> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2A 2A 2A 20 36 34 20 49 |..&.... *** 64 I|
00000010: 4E 44 45 58 20 50 52 4F 47 52 41 4D 20 2A 2A 2A |NDEX PROGRAM ***|
00000020: 20 49 44 3D 43 36 00 39 08 14 00 8B 20 53 B2 33 | ID=C6.9.... S.3|
00000030: 20 A7 20 9E 20 38 30 30 30 00 4C 08 1E 00 8B 20 | . . 8000.L.... |
00000040: 53 B1 33 20 A7 20 9E 20 4E 28 47 29 00 52 08 28 |S.3 . . N(G).R.(|
00000050: 00 3A 00 63 08 32 00 8F 20 56 41 52 49 41 42 4C |.:.c.2.. VARIABL|
00000060: 45 53 3A 00 69 08 3C 00 3A 00 81 08 46 00 8F 20 |ES:.i.<.:...F.. |
00000070: 20 49 4E 24 3D 20 49 4E 44 45 58 20 54 49 54 4C | IN$= INDEX TITL|
00000080: 45 00 9D 08 50 00 8F 20 20 42 47 20 3D 20 42 41 |E...P.. BG = BA|
00000090: 43 4B 47 4F 55 4E 44 20 43 4F 4C 4F 52 00 B6 08 |CKGOUND COLOR...|
000000A0: 5A 00 8F 20 20 42 4F 20 3D 20 42 4F 52 44 45 52 |Z.. BO = BORDER|
000000B0: 20 43 4F 4C 4F 52 00 D2 08 64 00 8F 20 20 43 48 | COLOR...d.. CH|
000000C0: 20 3D 20 43 48 41 52 41 43 54 45 52 20 43 4F 4C | = CHARACTER COL|
000000D0: 4F 52 00 ED 08 6E 00 8F 20 20 55 20 20 3D 20 43 |OR...n.. U = C|
000000E0: 55 52 52 45 4E 54 20 44 45 56 49 43 45 00 F3 08 |URRENT DEVICE...|
000000F0: 78 00 3A 00 08 09 82 00 8F 20 49 4E 49 54 49 41 |x.:...... INITIA|
00000100: 4C 49 5A 41 54 49 4F 4E 00 0E 09 8C 00 3A 00 29 |LIZATION.....:.)|
00000110: 09 96 00 49 4E 24 B2 22 2A 2A 20 36 34 20 47 41 |...IN$."** 64 GA|
00000120: 4D 45 53 20 37 20 2A 2A 22 00 3C 09 A0 00 42 47 |MES 7 **".<...BG|
00000130: B2 31 3A 42 4F B2 33 3A 43 48 B2 36 00 49 09 AA |.1:BO.3:CH.6.I..|
00000140: 00 55 B2 C2 28 31 38 36 29 00 64 09 B4 00 8D 20 |.U..(186).d.... |
00000150: 37 30 30 3A 8F 20 49 4E 49 54 20 43 41 52 54 20 |700:. INIT CART |
00000160: 42 4F 4F 54 00 6A 09 BE 00 3A 00 7B 09 C8 00 8F |BOOT.j...:.{....|
00000170: 20 53 45 54 20 43 4F 4C 4F 52 53 00 81 09 D2 00 | SET COLORS.....|
00000180: 3A 00 A2 09 DC 00 97 20 35 33 32 38 31 2C 42 47 |:...... 53281,BG|
00000190: 3A 97 35 33 32 38 30 2C 42 4F 3A 97 36 34 36 2C |:.53280,BO:.646,|
000001A0: 43 48 00 A8 09 E6 00 3A 00 BD 09 F0 00 8F 20 44 |CH.....:...... D|
000001B0: 41 54 41 20 46 4F 52 4D 41 54 20 49 53 00 C3 09 |ATA FORMAT IS...|
000001C0: FA 00 3A 00 E5 09 04 01 8F 20 20 44 41 54 41 20 |..:...... DATA |
000001D0: 46 49 4C 45 4E 41 4D 45 2C 54 59 50 45 20 4F 46 |FILENAME,TYPE OF|
000001E0: 20 4C 4F 41 44 00 EB 09 0E 01 3A 00 01 0A 18 01 | LOAD.....:.....|
000001F0: 8F 20 20 31 3D 22 46 49 4C 45 4E 41 4D 45 22 2C |. 1="FILENAME",|
00000200: 38 00 19 0A 22 01 8F 20 20 32 3D 22 46 49 4C 45 |8...".. 2="FILE|
00000210: 4E 41 4D 45 22 2C 38 2C 31 00 3F 0A 2C 01 8F 20 |NAME",8,1.?.,.. |
00000220: 20 33 3D 42 4F 4F 54 20 55 4E 44 45 52 20 4B 45 | 3=BOOT UNDER KE|
00000230: 52 4E 41 4C 20 46 52 4F 4D 20 24 32 30 30 30 00 |RNAL FROM $2000.|
00000240: 6B 0A 36 01 8F 20 3E 33 3D 53 50 45 43 49 46 59 |k.6.. >3=SPECIFY|
00000250: 20 53 59 53 20 41 44 44 20 46 4F 52 20 22 46 49 | SYS ADD FOR "FI|
00000260: 4C 45 4E 41 4D 45 22 2C 38 2C 31 00 71 0A 40 01 |LENAME",8,1.q.@.|
00000270: 3A 00 7A 0A 4A 01 89 33 36 30 00 80 0A 54 01 3A |:.z.J..360...T.:|
00000280: 00 B6 0A 5E 01 9F 31 2C 38 2C 31 35 2C 22 53 30 |...^..1,8,15,"S0|
00000290: 3A 49 4E 44 45 58 22 3A A0 31 3A 94 22 49 4E 44 |:INDEX":.1:."IND|
000002A0: 45 58 22 2C 38 3A 90 3A 8F 20 55 50 44 41 54 45 |EX",8:.:. UPDATE|
000002B0: 20 49 4E 44 45 58 00 DC 0A 68 01 86 4E 24 28 35 | INDEX...h..N$(5|
000002C0: 30 29 2C 4E 28 35 30 29 3A 81 47 B2 30 A4 35 30 |0),N(50):.G.0.50|
000002D0: 3A 87 4E 24 28 47 29 2C 4E 28 47 29 00 FB 0A 72 |:.N$(G),N(G)...r|
000002E0: 01 8B 20 4E 24 28 47 29 B2 22 45 4E 44 22 A7 20 |.. N$(G)."END". |
000002F0: 4E 47 B2 47 AB 31 3A 47 B2 35 30 00 01 0B 7C 01 |NG.G.1:G.50...|.|
00000300: 82 00 37 0B 86 01 43 B2 30 3A 42 45 B2 30 3A 99 |..7...C.0:BE.0:.|
00000310: 22 93 20 20 20 AF AF AF AF AF AF AF AF AF AF AF |". ...........|
00000320: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000330: AF AF AF AF AF AF 22 00 5A 0B 90 01 99 22 20 20 |......".Z...." |
00000340: 20 B4 22 A3 31 39 AB C3 28 49 4E 24 29 AD 32 29 | .".19..(IN$).2)|
00000350: 49 4E 24 A3 33 35 29 22 A7 22 00 86 0B 9A 01 99 |IN$.35)"."......|
00000360: 22 20 20 20 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |" ............|
00000370: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000380: B7 B7 B7 B7 B7 22 00 A7 0B A4 01 41 44 B2 B5 28 |.....".....AD..(|
00000390: 28 4E 47 AA 2E 35 29 AD 32 29 3A 8B 4E 47 B3 41 |(NG..5).2):.NG.A|
000003A0: 44 A7 41 44 B2 4E 47 00 BC 0B AE 01 99 22 13 22 |D.AD.NG......"."|
000003B0: A6 43 29 22 11 11 11 B0 C0 C0 AE 22 00 E5 0B B8 |.C)"......."....|
000003C0: 01 81 51 B2 42 45 A4 42 45 AA 41 44 3A 99 A6 43 |..Q.BE.BE.AD:..C|
000003D0: 29 22 DD 22 C9 28 22 20 22 AA C4 28 51 29 2C 32 |)".".(" "..(Q),2|
000003E0: 29 22 DD 22 3B 00 0F 0C C2 01 99 C8 28 4E 24 28 |)".";.......(N$(|
000003F0: 51 29 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |Q)." |
00000400: 20 22 2C 31 36 29 3A 8B 43 A7 99 22 91 22 3B 00 | ",16):.C..".";.|
00000410: 15 0C CC 01 82 00 25 0C D6 01 99 A6 43 29 22 AD |......%.....C)".|
00000420: C0 C0 BD 11 22 00 33 0C E0 01 8B 43 B3 B1 30 A7 |....".3....C..0.|
00000430: 35 32 30 00 4B 0C EA 01 8B 42 45 AA 41 44 B3 4E |520.K....BE.AD.N|
00000440: 47 A7 43 B2 32 30 3A 89 35 31 30 00 54 0C F4 01 |G.C.20:.510.T...|
00000450: 89 35 32 30 00 70 0C FE 01 42 45 B2 41 44 AA 31 |.520.p...BE.AD.1|
00000460: 3A 41 44 B2 4E 47 AB 41 44 AB 31 3A 89 34 33 30 |:AD.NG.AD.1:.430|
00000470: 00 76 0C 08 02 99 00 BF 0C 12 02 99 20 22 13 11 |.v.......... "..|
00000480: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000490: 11 11 11 11 22 A3 38 29 22 2A 2A 2A 20 53 45 4C |....".8)"*** SEL|
000004A0: 45 43 54 20 4F 4E 45 20 2A 2A 2A 20 20 20 20 9D |ECT ONE *** .|
000004B0: 9D 9D 12 20 9D 92 22 3B 3A 47 47 24 B2 22 22 00 |... ..";:GG$."".|
000004C0: D2 0C 1C 02 A1 47 24 3A 8B 47 24 B2 22 22 A7 35 |.....G$:.G$."".5|
000004D0: 34 30 00 E2 0C 21 02 8B 47 24 B2 22 5F 22 A7 38 |40...!..G$."_".8|
000004E0: 30 30 00 FB 0C 26 02 47 B2 C6 28 47 24 29 AF 31 |00...&.G..(G$).1|
000004F0: 32 37 3A 4C B2 C3 28 47 47 24 29 00 2D 0D 30 02 |27:L..(GG$).-.0.|
00000500: 8B 47 B2 32 30 AF 4C B1 30 A7 4C B2 4C AB 31 3A |.G.20.L.0.L.L.1:|
00000510: 47 47 24 B2 C8 28 47 47 24 2C 4C 29 3A 99 22 20 |GG$..(GG$,L):." |
00000520: 9D 9D 12 20 92 9D 22 3B 3A 89 35 34 30 00 3B 0D |... ..";:.540.;.|
00000530: 3A 02 8B 47 B2 31 33 A7 36 31 30 00 48 0D 44 02 |:..G.13.610.H.D.|
00000540: 8B 4C B2 32 A7 35 34 30 00 5B 0D 4E 02 8B 47 B3 |.L.2.540.[.N..G.|
00000550: 34 38 B0 47 B1 35 37 A7 35 34 30 00 7A 0D 58 02 |48.G.57.540.z.X.|
00000560: 47 47 24 B2 47 47 24 AA 47 24 3A 99 47 24 22 12 |GG$.GG$.G$:.G$".|
00000570: 20 92 9D 22 3B 3A 89 35 34 30 00 9A 0D 62 02 47 | ..";:.540...b.G|
00000580: B2 C5 28 47 47 24 29 3A 8B 47 B1 4E 47 20 B0 20 |..(GG$):.G.NG . |
00000590: 47 47 24 B2 22 22 89 35 34 30 00 A0 0D 6C 02 99 |GG$."".540...l..|
000005A0: 00 B7 0D 76 02 53 B2 4E 28 47 29 3A 8B 4E 28 47 |...v.S.N(G):.N(G|
000005B0: 29 B3 33 A7 36 37 30 00 CF 0D 80 02 99 22 93 11 |).3.670......"..|
000005C0: 11 20 20 4C 4F 41 44 49 4E 47 11 11 11 11 22 00 |. LOADING....".|
000005D0: DF 0D 8A 02 99 22 20 20 20 22 4E 24 28 47 29 00 |....." "N$(G).|
000005E0: EF 0D 94 02 93 20 4E 24 28 47 29 2C 55 2C 31 00 |..... N$(G),U,1.|
000005F0: FF 0D 9E 02 8B 4E 28 47 29 B2 31 A7 36 39 30 00 |.....N(G).1.690.|
00000600: 39 0E A8 02 99 22 93 11 11 11 4C 4F 41 44 22 C7 |9...."....LOAD".|
00000610: 28 33 34 29 4E 24 28 47 29 C7 28 33 34 29 22 2C |(34)N$(G).(34)",|
00000620: 22 55 22 2C 31 13 22 3A 97 31 39 38 2C 31 3A 97 |"U",1.":.198,1:.|
00000630: 36 33 31 2C 31 33 31 3A 80 00 71 0E B2 02 99 22 |631,131:..q...."|
00000640: 93 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 4E 24 |....LOAD".(34)N$|
00000650: 28 47 29 C7 28 33 34 29 22 2C 22 55 22 13 22 3A |(G).(34)","U".":|
00000660: 97 31 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A |.198,1:.631,131:|
00000670: 80 00 8E 0E BC 02 81 49 B2 38 30 30 30 A4 38 30 |.......I.8000.80|
00000680: 33 37 3A 87 4E 3A 97 49 2C 4E 3A 82 3A 8E 00 D7 |37:.N:.I,N:.:...|
00000690: 0E C6 02 83 31 36 30 2C 30 2C 31 33 32 2C 32 2C |....160,0,132,2,|
000006A0: 31 33 32 2C 34 2C 31 36 39 2C 33 32 2C 31 33 33 |132,4,169,32,133|
000006B0: 2C 33 2C 31 36 39 2C 32 32 34 2C 31 33 33 2C 35 |,3,169,224,133,5|
000006C0: 2C 31 36 32 2C 33 32 2C 31 37 37 2C 32 2C 31 34 |,162,32,177,2,14|
000006D0: 35 2C 34 2C 32 30 30 00 18 0F D0 02 83 32 30 38 |5,4,200......208|
000006E0: 2C 32 34 39 2C 32 33 30 2C 33 2C 32 33 30 2C 35 |,249,230,3,230,5|
000006F0: 2C 32 30 32 2C 32 30 38 2C 32 34 32 2C 31 36 39 |,202,208,242,169|
00000700: 2C 35 2C 31 32 30 2C 31 33 33 2C 31 2C 31 30 38 |,5,120,133,1,108|
00000710: 2C 32 35 32 2C 32 35 35 00 4D 0F 20 03 9F 34 2C |,252,255.M. ..4,|
00000720: 34 3A 98 34 2C 22 22 A6 32 30 29 22 44 49 53 4B |4:.4,"".20)"DISK|
00000730: 20 4E 41 4D 45 20 22 3B 49 4E 24 3A 81 47 B2 31 | NAME ";IN$:.G.1|
00000740: A4 4E 47 A9 34 3A 81 47 47 B2 30 A4 33 00 85 0F |.NG.4:.GG.0.3...|
00000750: 21 03 8B 47 AA 47 47 B3 B2 4E 47 A7 98 34 2C C8 |!..G.GG..NG..4,.|
00000760: 28 4E 24 28 47 AA 47 47 29 AA 22 20 20 20 20 20 |(N$(G.GG)." |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000780: 2C 31 39 29 3B 00 96 0F 22 03 82 3A 98 34 3A 82 |,19);..."..:.4:.|
00000790: 3A 98 34 3A A0 34 00 9F 0F 23 03 89 33 39 30 00 |:.4:.4...#..390.|
000007A0: AC 0F E8 03 83 49 4E 44 45 58 2C 31 00 BA 0F E9 |.....INDEX,1....|
000007B0: 03 83 41 52 43 48 4F 4E 2C 31 00 C6 0F EA 03 83 |..ARCHON,1......|
000007C0: 4D 55 4C 45 2C 31 00 DE 0F EB 03 83 53 48 4F 4F |MULE,1......SHOO|
000007D0: 54 49 4E 47 20 47 41 4C 4C 45 52 59 2C 31 00 EC |TING GALLERY,1..|
000007E0: 0F 0F 27 83 20 22 45 4E 44 22 2C 30 00 00 00 |..'. "END",0... |
..&.... *** 64 INDEX PROGRAM *** ID=C6.9
.... S.3 . . 8000.L.... S.3 . . N(G).R.(
.:.C.2.. VARIABLES:.I.<.:...F.. IN$= IN
DEX TITLE...P.. BG = BACKGOUND COLOR...
Z.. BO = BORDER COLOR.R.D.. CH = CHARA
CTER COLOR...N.. U = CURRENT DEVICE...
X.:...... INITIALIZATION.....:.)...IN$."
** 64 GAMES 7 **".<. .BG.1:BO.3:CH.6.I..
.U.B(186).D.... 700:. INIT CART BOOT.J..
.:.{.H.. SET COLORS...R.:...... 53281,BG
:.53280,BO:.646,CH.....:...... DATA FORM
AT IS.C...:...... DATA FILENAME,TYPE OF
LOAD.....:...... 1="FILENAME",8..."..
2="FILENAME",8,1.?.,.. 3=BOOT UNDER KE
RNAL FROM $2000.K.6.. >3=SPECIFY SYS ADD
FOR "FILENAME",8,1.Q.@.:.Z.J..360...T.:
...^..1,8,15,"S0:INDEX": 1:."INDEX",8:.:
. UPDATE INDEX...H..N$(50),N(50):.G.0.50
:.N$(G),N(G)...R.. N$(G)."END". NG.G.1:G
.50...|...7...C.0:BE.0:.". ...........
......................".Z...." .".19.C
(IN$).2)IN$.35)"."......" ............
.....................".....AD..((NG..5).
2):.NG.AD.AD.NG......".".C)"......."....
..Q.BE.BE.AD:..C)"."I(" ".D(Q),2)".";...
B..H(N$(Q)." ",16):.C..".";.
..L...%.V...C)".....".3....C..0.520.K...
.BE.AD.NG.C.20:.510.T....520.P...BE.AD.1
:AD.NG.AD.1:.430.V.......... "..........
............".8)"*** SELECT ONE *** .
... ..";:GG$."".R....G$:.G$."".540...!..
G$."_".800...&.G.F(G$).127:L.C(GG$).-.0.
.G.20.L.0.L.L.1:GG$.H(GG$,L):." ... ..";
:.540.;.:..G.13.610.H.D..L.2.540.[.N..G.
48.G.57.540.Z.X.GG$.GG$.G$:.G$". ..";:.5
40...B.G.E(GG$):.G.NG . GG$."".540. .L..
...V.S.N(G):.N(G).3.670.O...."... LOADI
NG...."......" "N$(G)...... N$(G),U,1.
.....N(G).1.690.9...."....LOAD"G(34)N$(G
)G(34)","U",1.":.198,1:.631,131:..Q...."
....LOAD"G(34)N$(G)G(34)","U".":.198,1:.
631,131:.......I.8000.8037:.N:.I,N:.:..W
.F..160,0,132,2,132,4,169,32,133,3,169,2
24,133,5,162,32,177,2,145,4,200...P..208
,249,230,3,230,5,202,208,242,169,5,120,1
33,1,108,252,255.M. ..4,4:.4,"".20)"DISK
NAME ";IN$:.G.1.NG.4:.GG.0.3...!..G.GG.
.NG..4,H(N$(G.GG)." "
,19);..."..:.4:.:.4: 4...#..390......IND
EX,1......ARCHON,1.F....MULE,1......SHOO
TING GALLERY,1....'. "END",0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL