PAM
FILE INFORMATION
FILENAME(S): PAM
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-12-02 02:08:03
APPEARS ON: 1 disk(s)
FILE HASH
4cebab23595299396b8117225b485a942d655abe8c81da819af08c9835fd8fdd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSEN | PAM | PRG | Shocktrooper | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 01 00 8F 20 22 2A 2A 2A 20 50 52 4F |..-.... "*** PRO|
00000010: 47 52 41 4D 20 41 43 43 45 53 53 20 4D 4F 44 55 |GRAM ACCESS MODU|
00000020: 4C 45 20 28 50 41 4D 29 20 2A 2A 2A 22 00 59 08 |LE (PAM) ***".Y.|
00000030: 02 00 8F 20 22 2A 2A 2A 20 4C 4F 41 44 22 50 41 |... "*** LOAD"PA|
00000040: 4D 22 2C 38 20 4F 52 20 39 20 20 20 20 20 20 20 |M",8 OR 9 |
00000050: 20 20 20 20 20 2A 2A 2A 22 00 85 08 03 00 8F 20 | ***"...... |
00000060: 22 2A 2A 2A 20 4A 2E 47 45 55 54 48 45 52 20 28 |"*** J.GEUTHER (|
00000070: 43 29 20 31 39 38 34 20 20 20 20 20 20 20 20 20 |C) 1984 |
00000080: 20 2A 2A 2A 22 00 B1 08 04 00 8F 20 22 2A 2A 2A | ***"...... "***|
00000090: 20 47 52 41 41 4E 5A 4F 4C 44 45 52 20 32 39 20 | GRAANZOLDER 29 |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A | ***|
000000B0: 22 00 DD 08 05 00 8F 20 22 2A 2A 2A 20 33 32 36 |"...... "*** 326|
000000C0: 32 20 43 52 20 4F 55 44 2D 42 45 49 4A 45 52 4C |2 CR OUD-BEIJERL|
000000D0: 41 4E 44 20 20 20 20 20 20 2A 2A 2A 22 00 09 09 |AND ***"...|
000000E0: 06 00 8F 20 22 2A 2A 2A 20 4E 45 44 45 52 4C 41 |... "*** NEDERLA|
000000F0: 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ND |
00000100: 20 20 20 20 20 2A 2A 2A 22 00 35 09 07 00 8F 20 | ***".5.... |
00000110: 22 2A 2A 2A 20 52 45 4C 45 41 53 45 20 32 2E 30 |"*** RELEASE 2.0|
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 2A 2A 2A 22 00 42 09 08 00 8B 50 43 B3 B1 30 | ***".B....PC..0|
00000140: A7 90 00 57 09 09 00 9C 3A 86 46 49 24 28 31 35 |...W....:.FI$(15|
00000150: 30 29 3A 50 43 B2 31 00 65 09 0A 00 44 56 B2 C2 |0):PC.1.e...DV..|
00000160: 28 31 38 36 29 00 6F 09 0B 00 99 22 93 22 3B 00 |(186).o....".";.|
00000170: 8F 09 0C 00 9F 31 35 2C 44 56 2C 31 35 2C 22 49 |.....15,DV,15,"I|
00000180: 30 22 3A 9F 32 2C 44 56 2C 32 2C 22 23 30 22 00 |0":.2,DV,2,"#0".|
00000190: 9C 09 0D 00 54 B2 31 38 3A 53 B2 31 00 B1 09 0E |....T.18:S.1....|
000001A0: 00 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B 54 3B |..15,"U1";2;0;T;|
000001B0: 53 00 C3 09 0F 00 98 31 35 2C 22 42 2D 50 22 3B |S......15,"B-P";|
000001C0: 32 3B 30 00 DB 09 10 00 A1 23 32 2C 58 24 3A 54 |2;0......#2,X$:T|
000001D0: B2 C6 28 58 24 AA C7 28 30 29 29 00 F3 09 11 00 |..(X$..(0)).....|
000001E0: A1 23 32 2C 58 24 3A 53 B2 C6 28 58 24 AA C7 28 |.#2,X$:S..(X$..(|
000001F0: 30 29 29 00 FE 09 12 00 81 58 B2 30 A4 37 00 15 |0))......X.0.7..|
00000200: 0A 13 00 98 31 35 2C 22 42 2D 50 22 3B 32 3B 58 |....15,"B-P";2;X|
00000210: AC 33 32 AA 32 00 38 0A 14 00 A1 23 32 2C 58 24 |.32.2.8....#2,X$|
00000220: 3A 51 B2 C6 28 58 24 AA C7 28 30 29 29 3A 8B 51 |:Q..(X$..(0)):.Q|
00000230: B3 B1 31 33 30 A7 33 33 00 4A 0A 15 00 A1 23 32 |..130.33.J....#2|
00000240: 2C 58 24 3A A1 23 32 2C 58 24 00 55 0A 16 00 46 |,X$:.#2,X$.U...F|
00000250: 46 24 B2 22 22 00 61 0A 17 00 81 59 B2 30 A4 31 |F$."".a....Y.0.1|
00000260: 35 00 7B 0A 18 00 A1 23 32 2C 58 24 3A 8B 58 24 |5.{....#2,X$:.X$|
00000270: B2 22 22 A7 58 24 B2 C7 28 30 29 00 8D 0A 19 00 |."".X$..(0).....|
00000280: 8B C6 28 58 24 29 B2 31 36 30 A7 32 38 00 9C 0A |..(X$).160.28...|
00000290: 1A 00 46 46 24 B2 46 46 24 AA 58 24 00 A3 0A 1B |..FF$.FF$.X$....|
000002A0: 00 82 59 00 B3 0A 1C 00 46 49 24 28 50 43 29 B2 |..Y.....FI$(PC).|
000002B0: 46 46 24 00 C9 0A 1D 00 50 24 B2 C9 28 C4 28 50 |FF$.....P$..(.(P|
000002C0: 43 29 2C 32 29 AA 22 20 22 00 E7 0A 1E 00 8B 41 |C),2)." "......A|
000002D0: B2 30 A7 41 B2 31 3A 99 50 24 3B 46 49 24 28 50 |.0.A.1:.P$;FI$(P|
000002E0: 43 29 3B 3A 89 33 32 00 FF 0A 1F 00 41 B2 30 3A |C);:.32.....A.0:|
000002F0: 99 A3 32 30 29 50 24 3B 46 49 24 28 50 43 29 00 |..20)P$;FI$(PC).|
00000300: 16 0B 20 00 50 43 B2 50 43 AA 31 3A 8B 50 43 B1 |.. .PC.PC.1:.PC.|
00000310: 34 32 A7 8D 33 35 00 1D 0B 21 00 82 58 00 2A 0B |42..35...!..X.*.|
00000320: 22 00 8B 54 B3 B1 30 A7 31 34 00 46 0B 23 00 99 |"..T..0.14.F.#..|
00000330: 3A 99 22 11 20 45 4E 54 45 52 20 50 52 4F 47 52 |:.". ENTER PROGR|
00000340: 41 4D 4E 52 20 22 00 63 0B 24 00 85 22 20 20 4F |AMNR ".c.$.." O|
00000350: 52 20 30 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |R 0 TO CONTINUE |
00000360: 22 3B 41 00 73 0B 25 00 8B 41 B2 30 AF 54 B2 30 |";A.s.%..A.0.T.0|
00000370: A7 33 35 00 89 0B 26 00 8B 41 B2 30 A7 99 22 93 |.35...&..A.0..".|
00000380: 22 3B 3A 50 43 B2 31 3A 8E 00 94 0B 27 00 A0 32 |";:PC.1:....'..2|
00000390: 3A A0 31 35 00 9F 0B 28 00 97 31 39 38 2C 30 00 |:.15...(..198,0.|
000003A0: C9 0B 29 00 99 22 93 22 22 4C 4F 41 44 22 C7 28 |..)..".""LOAD".(|
000003B0: 33 34 29 46 49 24 28 41 29 C7 28 33 34 29 22 2C |34)FI$(A).(34)",|
000003C0: 22 3B 44 56 3B 22 2C 31 22 00 D5 0B 2A 00 99 3A |";DV;",1"...*..:|
000003D0: 99 3A 99 3A 99 00 E0 0B 2B 00 99 22 52 55 4E 22 |.:.:....+.."RUN"|
000003E0: 00 05 0C 2C 00 97 20 36 33 31 2C 31 39 3A 97 36 |...,.. 631,19:.6|
000003F0: 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 97 36 |32,13:.633,13:.6|
00000400: 33 34 2C 31 33 00 12 0C 2D 00 97 31 39 38 2C 34 |34,13...-..198,4|
00000410: 3A 80 00 00 00 |:.... |
..-.... "*** PROGRAM ACCESS MODULE (PAM)
***".Y.... "*** LOAD"PAM",8 OR 9
***"...... "*** J.GEUTHER (C) 1984
***"...... "*** GRAANZOLDER 29
***"...... "*** 3262 CR OUD
-BEIJERLAND ***"...... "*** NEDERLA
ND ***".5.... "*** REL
EASE 2.0 ***".B....PC..0
...W....:.FI$(150):PC.1.E...DV.B(186).O.
...".";......15,DV,15,"I0":.2,DV,2,"#0".
....T.18:S.1......15,"U1";2;0;T;S.C....1
5,"B-P";2;0......#2,X$:T.F(X$.G(0)).....
.#2,X$:S.F(X$.G(0))......X.0.7......15,"
B-P";2;X.32.2.8....#2,X$:Q.F(X$.G(0)):.Q
..130.33.J....#2,X$:.#2,X$.U...FF$."".A.
...Y.0.15.{....#2,X$:.X$."".X$.G(0).....
.F(X$).160.28.....FF$.FF$.X$......Y.....
FI$(PC).FF$.I...P$.I(D(PC),2)." "......A
.0.A.1:.P$;FI$(PC);:.32.....A.0:..20)P$;
FI$(PC)... .PC.PC.1:.PC.42..35...!..X.*.
"..T..0.14.F.#..:.". ENTER PROGRAMNR ".C
.$.." OR 0 TO CONTINUE ";A.S.%..A.0.T.0
.35...&..A.0..".";:PC.1:....'. 2: 15...(
..198,0.I.)..".""LOAD"G(34)FI$(A)G(34)",
";DV;",1".U.*..:.:.:....+.."RUN"...,.. 6
31,19:.632,13:.633,13:.634,13...-..198,4
:....
> CLICK IMAGE PREVIEW FOR FULL MODAL