> 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 46 30 00 39 08 14 00 8B 20 53 B2 33 | ID=F0.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 2B |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 23 33 36 20 2A 2A 22 00 3F 09 A0 00 |MES #36 **".?...|
00000130: 42 47 B2 33 3A 42 4F B2 31 34 3A 43 48 B2 36 00 |BG.3:BO.14:CH.6.|
00000140: 4C 09 AA 00 55 B2 C2 28 31 38 36 29 00 67 09 B4 |L...U..(186).g..|
00000150: 00 8D 20 37 30 30 3A 8F 20 49 4E 49 54 20 43 41 |.. 700:. INIT CA|
00000160: 52 54 20 42 4F 4F 54 00 6D 09 BE 00 3A 00 7E 09 |RT BOOT.m...:.~.|
00000170: C8 00 8F 20 53 45 54 20 43 4F 4C 4F 52 53 00 84 |... SET COLORS..|
00000180: 09 D2 00 3A 00 A5 09 DC 00 97 20 35 33 32 38 31 |...:...... 53281|
00000190: 2C 42 47 3A 97 35 33 32 38 30 2C 42 4F 3A 97 36 |,BG:.53280,BO:.6|
000001A0: 34 36 2C 43 48 00 AB 09 E6 00 3A 00 C0 09 F0 00 |46,CH.....:.....|
000001B0: 8F 20 44 41 54 41 20 46 4F 52 4D 41 54 20 49 53 |. DATA FORMAT IS|
000001C0: 00 C6 09 FA 00 3A 00 E8 09 04 01 8F 20 20 44 41 |.....:...... DA|
000001D0: 54 41 20 46 49 4C 45 4E 41 4D 45 2C 54 59 50 45 |TA FILENAME,TYPE|
000001E0: 20 4F 46 20 4C 4F 41 44 00 EE 09 0E 01 3A 00 04 | OF LOAD.....:..|
000001F0: 0A 18 01 8F 20 20 31 3D 22 46 49 4C 45 4E 41 4D |.... 1="FILENAM|
00000200: 45 22 2C 38 00 1C 0A 22 01 8F 20 20 32 3D 22 46 |E",8...".. 2="F|
00000210: 49 4C 45 4E 41 4D 45 22 2C 38 2C 31 00 42 0A 2C |ILENAME",8,1.B.,|
00000220: 01 8F 20 20 33 3D 42 4F 4F 54 20 55 4E 44 45 52 |.. 3=BOOT UNDER|
00000230: 20 4B 45 52 4E 41 4C 20 46 52 4F 4D 20 24 32 30 | KERNAL FROM $20|
00000240: 30 30 00 6E 0A 36 01 8F 20 3E 33 3D 53 50 45 43 |00.n.6.. >3=SPEC|
00000250: 49 46 59 20 53 59 53 20 41 44 44 20 46 4F 52 20 |IFY SYS ADD FOR |
00000260: 22 46 49 4C 45 4E 41 4D 45 22 2C 38 2C 31 00 74 |"FILENAME",8,1.t|
00000270: 0A 40 01 3A 00 7D 0A 4A 01 89 33 36 30 00 83 0A |.@.:.}.J..360...|
00000280: 54 01 3A 00 BB 0A 5E 01 9F 31 2C 38 2C 31 35 2C |T.:...^..1,8,15,|
00000290: 22 53 30 3A 49 4E 44 45 58 22 3A A0 31 3A 94 22 |"S0:INDEX":.1:."|
000002A0: 30 3A 49 4E 44 45 58 22 2C 38 3A 90 3A 8F 20 55 |0:INDEX",8:.:. U|
000002B0: 50 44 41 54 45 20 49 4E 44 45 58 00 E1 0A 68 01 |PDATE INDEX...h.|
000002C0: 86 4E 24 28 35 30 29 2C 4E 28 35 30 29 3A 81 47 |.N$(50),N(50):.G|
000002D0: B2 30 A4 35 30 3A 87 4E 24 28 47 29 2C 4E 28 47 |.0.50:.N$(G),N(G|
000002E0: 29 00 00 0B 72 01 8B 20 4E 24 28 47 29 B2 22 45 |)...r.. N$(G)."E|
000002F0: 4E 44 22 A7 20 4E 47 B2 47 AB 31 3A 47 B2 35 30 |ND". NG.G.1:G.50|
00000300: 00 06 0B 7C 01 82 00 3C 0B 86 01 43 B2 30 3A 42 |...|...<...C.0:B|
00000310: 45 B2 30 3A 99 22 93 20 20 20 AF AF AF AF AF AF |E.0:.". ......|
00000320: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000330: AF AF AF AF AF AF AF AF AF AF AF 22 00 5F 0B 90 |..........."._..|
00000340: 01 99 22 20 20 20 B4 22 A3 32 30 AB C3 28 49 4E |.." .".20..(IN|
00000350: 24 29 AD 32 29 49 4E 24 A3 33 35 29 22 A7 22 00 |$).2)IN$.35)".".|
00000360: 8B 0B 9A 01 99 22 20 20 20 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 B7 B7 B7 B7 B7 22 00 AC 0B A4 01 |..........".....|
00000390: 41 44 B2 B5 28 28 4E 47 AA 2E 35 29 AD 32 29 3A |AD..((NG..5).2):|
000003A0: 8B 4E 47 B3 41 44 A7 41 44 B2 4E 47 00 C1 0B AE |.NG.AD.AD.NG....|
000003B0: 01 99 22 13 22 A6 43 29 22 11 11 11 B0 C0 C0 AE |..".".C)".......|
000003C0: 22 00 EA 0B B8 01 81 51 B2 42 45 A4 42 45 AA 41 |"......Q.BE.BE.A|
000003D0: 44 3A 99 A6 43 29 22 DD 22 C9 28 22 20 22 AA C4 |D:..C)".".(" "..|
000003E0: 28 51 29 2C 32 29 22 DD 22 3B 00 14 0C C2 01 99 |(Q),2)".";......|
000003F0: C8 28 4E 24 28 51 29 AA 22 20 20 20 20 20 20 20 |.(N$(Q)." |
00000400: 20 20 20 20 20 20 22 2C 31 36 29 3A 8B 43 A7 99 | ",16):.C..|
00000410: 22 91 22 3B 00 1A 0C CC 01 82 00 2A 0C D6 01 99 |".";.......*....|
00000420: A6 43 29 22 AD C0 C0 BD 11 22 00 38 0C E0 01 8B |.C)".....".8....|
00000430: 43 B3 B1 30 A7 35 32 30 00 50 0C EA 01 8B 42 45 |C..0.520.P....BE|
00000440: AA 41 44 B3 4E 47 A7 43 B2 32 30 3A 89 35 31 30 |.AD.NG.C.20:.510|
00000450: 00 59 0C F4 01 89 35 32 30 00 75 0C FE 01 42 45 |.Y....520.u...BE|
00000460: B2 41 44 AA 31 3A 41 44 B2 4E 47 AB 41 44 AB 31 |.AD.1:AD.NG.AD.1|
00000470: 3A 89 34 33 30 00 7B 0C 08 02 99 00 C4 0C 12 02 |:.430.{.........|
00000480: 99 20 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |. ".............|
00000490: 11 11 11 11 11 11 11 11 11 22 A3 38 29 22 2A 2A |.........".8)"**|
000004A0: 2A 20 53 45 4C 45 43 54 20 4F 4E 45 20 2A 2A 2A |* SELECT ONE ***|
000004B0: 20 20 20 20 9D 9D 9D 12 20 9D 92 22 3B 3A 47 47 | .... ..";:GG|
000004C0: 24 B2 22 22 00 D7 0C 1C 02 A1 47 24 3A 8B 47 24 |$.""......G$:.G$|
000004D0: B2 22 22 A7 35 34 30 00 E7 0C 21 02 8B 47 24 B2 |."".540...!..G$.|
000004E0: 22 5F 22 A7 38 30 30 00 00 0D 26 02 47 B2 C6 28 |"_".800...&.G..(|
000004F0: 47 24 29 AF 31 32 37 3A 4C B2 C3 28 47 47 24 29 |G$).127:L..(GG$)|
00000500: 00 32 0D 30 02 8B 47 B2 32 30 AF 4C B1 30 A7 4C |.2.0..G.20.L.0.L|
00000510: B2 4C AB 31 3A 47 47 24 B2 C8 28 47 47 24 2C 4C |.L.1:GG$..(GG$,L|
00000520: 29 3A 99 22 20 9D 9D 12 20 92 9D 22 3B 3A 89 35 |):." ... ..";:.5|
00000530: 34 30 00 40 0D 3A 02 8B 47 B2 31 33 A7 36 31 30 |40.@.:..G.13.610|
00000540: 00 4D 0D 44 02 8B 4C B2 32 A7 35 34 30 00 60 0D |.M.D..L.2.540.`.|
00000550: 4E 02 8B 47 B3 34 38 B0 47 B1 35 37 A7 35 34 30 |N..G.48.G.57.540|
00000560: 00 7F 0D 58 02 47 47 24 B2 47 47 24 AA 47 24 3A |...X.GG$.GG$.G$:|
00000570: 99 47 24 22 12 20 92 9D 22 3B 3A 89 35 34 30 00 |.G$". ..";:.540.|
00000580: 9F 0D 62 02 47 B2 C5 28 47 47 24 29 3A 8B 47 B1 |..b.G..(GG$):.G.|
00000590: 4E 47 20 B0 20 47 47 24 B2 22 22 89 35 34 30 00 |NG . GG$."".540.|
000005A0: A5 0D 6C 02 99 00 BC 0D 76 02 53 B2 4E 28 47 29 |..l.....v.S.N(G)|
000005B0: 3A 8B 4E 28 47 29 B3 33 A7 36 37 30 00 D4 0D 80 |:.N(G).3.670....|
000005C0: 02 99 22 93 11 11 20 20 4C 4F 41 44 49 4E 47 11 |.."... LOADING.|
000005D0: 11 11 11 22 00 E4 0D 8A 02 99 22 20 20 20 22 4E |..."......" "N|
000005E0: 24 28 47 29 00 F4 0D 94 02 93 20 4E 24 28 47 29 |$(G)...... N$(G)|
000005F0: 2C 55 2C 31 00 04 0E 9E 02 8B 4E 28 47 29 B2 31 |,U,1......N(G).1|
00000600: A7 36 39 30 00 3E 0E A8 02 99 22 93 11 11 11 4C |.690.>...."....L|
00000610: 4F 41 44 22 C7 28 33 34 29 4E 24 28 47 29 C7 28 |OAD".(34)N$(G).(|
00000620: 33 34 29 22 2C 22 55 22 2C 31 13 22 3A 97 31 39 |34)","U",1.":.19|
00000630: 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A 80 00 76 |8,1:.631,131:..v|
00000640: 0E B2 02 99 22 93 11 11 11 4C 4F 41 44 22 C7 28 |...."....LOAD".(|
00000650: 33 34 29 4E 24 28 47 29 C7 28 33 34 29 22 2C 22 |34)N$(G).(34)","|
00000660: 55 22 13 22 3A 97 31 39 38 2C 31 3A 97 36 33 31 |U".":.198,1:.631|
00000670: 2C 31 33 31 3A 80 00 93 0E BC 02 81 49 B2 38 30 |,131:.......I.80|
00000680: 30 30 A4 38 30 33 37 3A 87 4E 3A 97 49 2C 4E 3A |00.8037:.N:.I,N:|
00000690: 82 3A 8E 00 DC 0E C6 02 83 31 36 30 2C 30 2C 31 |.:.......160,0,1|
000006A0: 33 32 2C 32 2C 31 33 32 2C 34 2C 31 36 39 2C 33 |32,2,132,4,169,3|
000006B0: 32 2C 31 33 33 2C 33 2C 31 36 39 2C 32 32 34 2C |2,133,3,169,224,|
000006C0: 31 33 33 2C 35 2C 31 36 32 2C 33 32 2C 31 37 37 |133,5,162,32,177|
000006D0: 2C 32 2C 31 34 35 2C 34 2C 32 30 30 00 1D 0F D0 |,2,145,4,200....|
000006E0: 02 83 32 30 38 2C 32 34 39 2C 32 33 30 2C 33 2C |..208,249,230,3,|
000006F0: 32 33 30 2C 35 2C 32 30 32 2C 32 30 38 2C 32 34 |230,5,202,208,24|
00000700: 32 2C 31 36 39 2C 35 2C 31 32 30 2C 31 33 33 2C |2,169,5,120,133,|
00000710: 31 2C 31 30 38 2C 32 35 32 2C 32 35 35 00 52 0F |1,108,252,255.R.|
00000720: 20 03 9F 34 2C 34 3A 98 34 2C 22 22 A6 32 30 29 | ..4,4:.4,"".20)|
00000730: 22 44 49 53 4B 20 4E 41 4D 45 20 22 3B 49 4E 24 |"DISK NAME ";IN$|
00000740: 3A 81 47 B2 31 A4 4E 47 A9 34 3A 81 47 47 B2 30 |:.G.1.NG.4:.GG.0|
00000750: A4 33 00 8A 0F 21 03 8B 47 AA 47 47 B3 B2 4E 47 |.3...!..G.GG..NG|
00000760: A7 98 34 2C C8 28 4E 24 28 47 AA 47 47 29 AA 22 |..4,.(N$(G.GG)."|
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 22 2C 31 39 29 3B 00 9B 0F 22 03 82 | ",19);..."..|
00000790: 3A 98 34 3A 82 3A 98 34 3A A0 34 00 A4 0F 23 03 |:.4:.:.4:.4...#.|
000007A0: 89 33 39 30 00 B1 0F E8 03 83 49 4E 44 45 58 2C |.390......INDEX,|
000007B0: 31 00 C0 0F E9 03 83 22 4E 49 42 4C 59 22 2C 31 |1......"NIBLY",1|
000007C0: 00 D3 0F EA 03 83 22 53 54 45 4C 4C 45 52 20 37 |......"STELLER 7|
000007D0: 22 2C 31 00 E7 0F EB 03 83 22 52 4F 42 49 4E 20 |",1......"ROBIN |
000007E0: 48 4F 4F 44 22 2C 31 00 FD 0F EC 03 83 22 53 4C |HOOD",1......"SL|
000007F0: 4F 54 20 4D 41 43 48 49 4E 45 22 2C 31 00 11 10 |OT MACHINE",1...|
00000800: EE 03 83 22 46 52 4F 47 47 45 52 20 49 49 22 2C |..."FROGGER II",|
00000810: 31 00 24 10 EF 03 83 22 53 54 41 52 20 57 41 52 |1.$...."STAR WAR|
00000820: 53 22 2C 31 00 3D 10 F0 03 83 22 4D 41 52 49 4F |S",1.=...."MARIO|
00000830: 27 53 20 42 52 45 57 45 52 59 22 2C 31 00 4B 10 |'S BREWERY",1.K.|
00000840: 0F 27 83 20 22 45 4E 44 22 2C 30 00 00 00 |.'. "END",0... |
..&.... *** 64 INDEX PROGRAM *** ID=F0.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 #36 **".?. .BG.3:BO.14:CH.6.
L...U.B(186).G.... 700:. INIT CART BOOT.
M...:.~.H.. SET COLORS...R.:...... 53281
,BG:.53280,BO:.646,CH.....:...... DATA F
ORMAT IS.F...:...... DATA FILENAME,TYPE
OF LOAD.....:...... 1="FILENAME",8..."
.. 2="FILENAME",8,1.B.,.. 3=BOOT UNDER
KERNAL FROM $2000.N.6.. >3=SPECIFY SYS
ADD FOR "FILENAME",8,1.T.@.:.}.J..360...
T.:...^..1,8,15,"S0:INDEX": 1:."0: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...|...<...C.0:BE.0:.". ......
..........................."._...." ."
.20.C(IN$).2)IN$.35)"."......" .......
..........................".....AD..((NG
..5).2):.NG.AD.AD.NG.A....".".C)".......
"......Q.BE.BE.AD:..C)"."I(" ".D(Q),2)".
";...B..H(N$(Q)." ",16):.C..
".";...L...*.V...C)".....".8....C..0.520
.P....BE.AD.NG.C.20:.510.Y....520.U...BE
.AD.1:AD.NG.AD.1:.430.{.....D.... ".....
.................".8)"*** SELECT ONE ***
.... ..";:GG$."".W....G$:.G$."".540.
..!..G$."_".800...&.G.F(G$).127:L.C(GG$)
.2.0..G.20.L.0.L.L.1:GG$.H(GG$,L):." ...
..";:.540.@.:..G.13.610.M.D..L.2.540.`.
N..G.48.G.57.540..X.GG$.GG$.G$:.G$". ..
";:.540...B.G.E(GG$):.G.NG . GG$."".540.
..L.....V.S.N(G):.N(G).3.670.T...."...
LOADING...."......" "N$(G)...... N$(G)
,U,1......N(G).1.690.>...."....LOAD"G(34
)N$(G)G(34)","U",1.":.198,1:.631,131:..V
...."....LOAD"G(34)N$(G)G(34)","U".":.19
8,1:.631,131:.......I.8000.8037:.N:.I,N:
.:....F..160,0,132,2,132,4,169,32,133,3,
169,224,133,5,162,32,177,2,145,4,200...P
..208,249,230,3,230,5,202,208,242,169,5,
120,133,1,108,252,255.R. ..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....
..INDEX,1......"NIBLY",1.S...."STELLER 7
",1......"ROBIN HOOD",1......"SLOT MACHI
NE",1......"FROGGER II",1.$...."STAR WAR
S",1.=...."MARIO'S BREWERY",1.K..'. "END
",0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL