> 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 39 43 00 39 08 14 00 8B 20 53 B2 33 | ID=9C.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 30 |LIZATION.....:.0|
00000110: 09 96 00 49 4E 24 B2 22 2A 2A 20 4D 41 52 43 4F |...IN$."** MARCO|
00000120: 27 53 20 52 41 44 20 47 41 4D 45 53 20 2A 2A 22 |'S RAD GAMES **"|
00000130: 00 43 09 A0 00 42 47 B2 31 3A 42 4F B2 33 3A 43 |.C...BG.1:BO.3:C|
00000140: 48 B2 36 00 50 09 AA 00 55 B2 C2 28 31 38 36 29 |H.6.P...U..(186)|
00000150: 00 6B 09 B4 00 8D 20 37 30 30 3A 8F 20 49 4E 49 |.k.... 700:. INI|
00000160: 54 20 43 41 52 54 20 42 4F 4F 54 00 71 09 BE 00 |T CART BOOT.q...|
00000170: 3A 00 82 09 C8 00 8F 20 53 45 54 20 43 4F 4C 4F |:...... SET COLO|
00000180: 52 53 00 88 09 D2 00 3A 00 A9 09 DC 00 97 20 35 |RS.....:...... 5|
00000190: 33 32 38 31 2C 42 47 3A 97 35 33 32 38 30 2C 42 |3281,BG:.53280,B|
000001A0: 4F 3A 97 36 34 36 2C 43 48 00 AF 09 E6 00 3A 00 |O:.646,CH.....:.|
000001B0: C4 09 F0 00 8F 20 44 41 54 41 20 46 4F 52 4D 41 |..... DATA FORMA|
000001C0: 54 20 49 53 00 CA 09 FA 00 3A 00 EC 09 04 01 8F |T IS.....:......|
000001D0: 20 20 44 41 54 41 20 46 49 4C 45 4E 41 4D 45 2C | DATA FILENAME,|
000001E0: 54 59 50 45 20 4F 46 20 4C 4F 41 44 00 F2 09 0E |TYPE OF LOAD....|
000001F0: 01 3A 00 08 0A 18 01 8F 20 20 31 3D 22 46 49 4C |.:...... 1="FIL|
00000200: 45 4E 41 4D 45 22 2C 38 00 20 0A 22 01 8F 20 20 |ENAME",8. .".. |
00000210: 32 3D 22 46 49 4C 45 4E 41 4D 45 22 2C 38 2C 31 |2="FILENAME",8,1|
00000220: 00 46 0A 2C 01 8F 20 20 33 3D 42 4F 4F 54 20 55 |.F.,.. 3=BOOT U|
00000230: 4E 44 45 52 20 4B 45 52 4E 41 4C 20 46 52 4F 4D |NDER KERNAL FROM|
00000240: 20 24 32 30 30 30 00 72 0A 36 01 8F 20 3E 33 3D | $2000.r.6.. >3=|
00000250: 53 50 45 43 49 46 59 20 53 59 53 20 41 44 44 20 |SPECIFY SYS ADD |
00000260: 46 4F 52 20 22 46 49 4C 45 4E 41 4D 45 22 2C 38 |FOR "FILENAME",8|
00000270: 2C 31 00 78 0A 40 01 3A 00 81 0A 4A 01 89 33 36 |,1.x.@.:...J..36|
00000280: 30 00 87 0A 54 01 3A 00 BF 0A 5E 01 9F 31 2C 38 |0...T.:...^..1,8|
00000290: 2C 31 35 2C 22 53 30 3A 49 4E 44 45 58 22 3A A0 |,15,"S0:INDEX":.|
000002A0: 31 3A 94 22 30 3A 49 4E 44 45 58 22 2C 38 3A 90 |1:."0:INDEX",8:.|
000002B0: 3A 8F 20 55 50 44 41 54 45 20 49 4E 44 45 58 00 |:. UPDATE INDEX.|
000002C0: E5 0A 68 01 86 4E 24 28 35 30 29 2C 4E 28 35 30 |..h..N$(50),N(50|
000002D0: 29 3A 81 47 B2 30 A4 35 30 3A 87 4E 24 28 47 29 |):.G.0.50:.N$(G)|
000002E0: 2C 4E 28 47 29 00 04 0B 72 01 8B 20 4E 24 28 47 |,N(G)...r.. N$(G|
000002F0: 29 B2 22 45 4E 44 22 A7 20 4E 47 B2 47 AB 31 3A |)."END". NG.G.1:|
00000300: 47 B2 35 30 00 0A 0B 7C 01 82 00 40 0B 86 01 43 |G.50...|...@...C|
00000310: B2 30 3A 42 45 B2 30 3A 99 22 93 20 20 20 AF AF |.0:BE.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 AF AF AF AF 22 |..............."|
00000340: 00 63 0B 90 01 99 22 20 20 20 B4 22 A3 31 39 AB |.c...." .".19.|
00000350: C3 28 49 4E 24 29 AD 32 29 49 4E 24 A3 33 35 29 |.(IN$).2)IN$.35)|
00000360: 22 A7 22 00 8F 0B 9A 01 99 22 20 20 20 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 B7 B7 B7 B7 22 00 |..............".|
00000390: B0 0B A4 01 41 44 B2 B5 28 28 4E 47 AA 2E 35 29 |....AD..((NG..5)|
000003A0: AD 32 29 3A 8B 4E 47 B3 41 44 A7 41 44 B2 4E 47 |.2):.NG.AD.AD.NG|
000003B0: 00 C5 0B AE 01 99 22 13 22 A6 43 29 22 11 11 11 |......".".C)"...|
000003C0: B0 C0 C0 AE 22 00 EE 0B B8 01 81 51 B2 42 45 A4 |...."......Q.BE.|
000003D0: 42 45 AA 41 44 3A 99 A6 43 29 22 DD 22 C9 28 22 |BE.AD:..C)".".("|
000003E0: 20 22 AA C4 28 51 29 2C 32 29 22 DD 22 3B 00 18 | "..(Q),2)".";..|
000003F0: 0C C2 01 99 C8 28 4E 24 28 51 29 AA 22 20 20 20 |.....(N$(Q)." |
00000400: 20 20 20 20 20 20 20 20 20 20 22 2C 31 36 29 3A | ",16):|
00000410: 8B 43 A7 99 22 91 22 3B 00 1E 0C CC 01 82 00 2E |.C..".";........|
00000420: 0C D6 01 99 A6 43 29 22 AD C0 C0 BD 11 22 00 3C |.....C)".....".<|
00000430: 0C E0 01 8B 43 B3 B1 30 A7 35 32 30 00 54 0C EA |....C..0.520.T..|
00000440: 01 8B 42 45 AA 41 44 B3 4E 47 A7 43 B2 32 30 3A |..BE.AD.NG.C.20:|
00000450: 89 35 31 30 00 5D 0C F4 01 89 35 32 30 00 79 0C |.510.]....520.y.|
00000460: FE 01 42 45 B2 41 44 AA 31 3A 41 44 B2 4E 47 AB |..BE.AD.1:AD.NG.|
00000470: 41 44 AB 31 3A 89 34 33 30 00 7F 0C 08 02 99 00 |AD.1:.430.......|
00000480: C8 0C 12 02 99 20 22 13 11 11 11 11 11 11 11 11 |..... ".........|
00000490: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 A3 38 |.............".8|
000004A0: 29 22 2A 2A 2A 20 53 45 4C 45 43 54 20 4F 4E 45 |)"*** SELECT ONE|
000004B0: 20 2A 2A 2A 20 20 20 20 9D 9D 9D 12 20 9D 92 22 | *** .... .."|
000004C0: 3B 3A 47 47 24 B2 22 22 00 DB 0C 1C 02 A1 47 24 |;:GG$.""......G$|
000004D0: 3A 8B 47 24 B2 22 22 A7 35 34 30 00 EB 0C 21 02 |:.G$."".540...!.|
000004E0: 8B 47 24 B2 22 5F 22 A7 38 30 30 00 04 0D 26 02 |.G$."_".800...&.|
000004F0: 47 B2 C6 28 47 24 29 AF 31 32 37 3A 4C B2 C3 28 |G..(G$).127:L..(|
00000500: 47 47 24 29 00 36 0D 30 02 8B 47 B2 32 30 AF 4C |GG$).6.0..G.20.L|
00000510: B1 30 A7 4C B2 4C AB 31 3A 47 47 24 B2 C8 28 47 |.0.L.L.1:GG$..(G|
00000520: 47 24 2C 4C 29 3A 99 22 20 9D 9D 12 20 92 9D 22 |G$,L):." ... .."|
00000530: 3B 3A 89 35 34 30 00 44 0D 3A 02 8B 47 B2 31 33 |;:.540.D.:..G.13|
00000540: A7 36 31 30 00 51 0D 44 02 8B 4C B2 32 A7 35 34 |.610.Q.D..L.2.54|
00000550: 30 00 64 0D 4E 02 8B 47 B3 34 38 B0 47 B1 35 37 |0.d.N..G.48.G.57|
00000560: A7 35 34 30 00 83 0D 58 02 47 47 24 B2 47 47 24 |.540...X.GG$.GG$|
00000570: AA 47 24 3A 99 47 24 22 12 20 92 9D 22 3B 3A 89 |.G$:.G$". ..";:.|
00000580: 35 34 30 00 A3 0D 62 02 47 B2 C5 28 47 47 24 29 |540...b.G..(GG$)|
00000590: 3A 8B 47 B1 4E 47 20 B0 20 47 47 24 B2 22 22 89 |:.G.NG . GG$."".|
000005A0: 35 34 30 00 A9 0D 6C 02 99 00 C0 0D 76 02 53 B2 |540...l.....v.S.|
000005B0: 4E 28 47 29 3A 8B 4E 28 47 29 B3 33 A7 36 37 30 |N(G):.N(G).3.670|
000005C0: 00 D8 0D 80 02 99 22 93 11 11 20 20 4C 4F 41 44 |......"... LOAD|
000005D0: 49 4E 47 11 11 11 11 22 00 E8 0D 8A 02 99 22 20 |ING...."......" |
000005E0: 20 20 22 4E 24 28 47 29 00 F8 0D 94 02 93 20 4E | "N$(G)...... N|
000005F0: 24 28 47 29 2C 55 2C 31 00 08 0E 9E 02 8B 4E 28 |$(G),U,1......N(|
00000600: 47 29 B2 31 A7 36 39 30 00 42 0E A8 02 99 22 93 |G).1.690.B....".|
00000610: 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 4E 24 28 |...LOAD".(34)N$(|
00000620: 47 29 C7 28 33 34 29 22 2C 22 55 22 2C 31 13 22 |G).(34)","U",1."|
00000630: 3A 97 31 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 |:.198,1:.631,131|
00000640: 3A 80 00 7A 0E B2 02 99 22 93 11 11 11 4C 4F 41 |:..z...."....LOA|
00000650: 44 22 C7 28 33 34 29 4E 24 28 47 29 C7 28 33 34 |D".(34)N$(G).(34|
00000660: 29 22 2C 22 55 22 13 22 3A 97 31 39 38 2C 31 3A |)","U".":.198,1:|
00000670: 97 36 33 31 2C 31 33 31 3A 80 00 97 0E BC 02 81 |.631,131:.......|
00000680: 49 B2 38 30 30 30 A4 38 30 33 37 3A 87 4E 3A 97 |I.8000.8037:.N:.|
00000690: 49 2C 4E 3A 82 3A 8E 00 E0 0E C6 02 83 31 36 30 |I,N:.:.......160|
000006A0: 2C 30 2C 31 33 32 2C 32 2C 31 33 32 2C 34 2C 31 |,0,132,2,132,4,1|
000006B0: 36 39 2C 33 32 2C 31 33 33 2C 33 2C 31 36 39 2C |69,32,133,3,169,|
000006C0: 32 32 34 2C 31 33 33 2C 35 2C 31 36 32 2C 33 32 |224,133,5,162,32|
000006D0: 2C 31 37 37 2C 32 2C 31 34 35 2C 34 2C 32 30 30 |,177,2,145,4,200|
000006E0: 00 21 0F D0 02 83 32 30 38 2C 32 34 39 2C 32 33 |.!....208,249,23|
000006F0: 30 2C 33 2C 32 33 30 2C 35 2C 32 30 32 2C 32 30 |0,3,230,5,202,20|
00000700: 38 2C 32 34 32 2C 31 36 39 2C 35 2C 31 32 30 2C |8,242,169,5,120,|
00000710: 31 33 33 2C 31 2C 31 30 38 2C 32 35 32 2C 32 35 |133,1,108,252,25|
00000720: 35 00 56 0F 20 03 9F 34 2C 34 3A 98 34 2C 22 22 |5.V. ..4,4:.4,""|
00000730: A6 32 30 29 22 44 49 53 4B 20 4E 41 4D 45 20 22 |.20)"DISK NAME "|
00000740: 3B 49 4E 24 3A 81 47 B2 31 A4 4E 47 A9 34 3A 81 |;IN$:.G.1.NG.4:.|
00000750: 47 47 B2 30 A4 33 00 8E 0F 21 03 8B 47 AA 47 47 |GG.0.3...!..G.GG|
00000760: B3 B2 4E 47 A7 98 34 2C C8 28 4E 24 28 47 AA 47 |..NG..4,.(N$(G.G|
00000770: 47 29 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |G)." |
00000780: 20 20 20 20 20 20 20 20 22 2C 31 39 29 3B 00 9F | ",19);..|
00000790: 0F 22 03 82 3A 98 34 3A 82 3A 98 34 3A A0 34 00 |."..:.4:.:.4:.4.|
000007A0: A8 0F 23 03 89 33 39 30 00 B5 0F E8 03 83 49 4E |..#..390......IN|
000007B0: 44 45 58 2C 31 00 C5 0F E9 03 83 54 52 4F 4C 4C |DEX,1......TROLL|
000007C0: 53 2C 31 2C 31 00 DA 0F EB 03 83 4C 55 4E 41 52 |S,1,1......LUNAR|
000007D0: 20 4F 55 54 50 4F 53 54 2C 32 00 E8 0F EC 03 83 | OUTPOST,2......|
000007E0: 48 41 43 4B 45 52 2C 32 00 F6 0F 0F 27 83 20 22 |HACKER,2....'. "|
000007F0: 45 4E 44 22 2C 30 00 00 00 |END",0... |
..&.... *** 64 INDEX PROGRAM *** ID=9C.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.....:.0...IN$."
** MARCO'S RAD GAMES **".C. .BG.1:BO.3:C
H.6.P...U.B(186).K.... 700:. INIT CART B
OOT.Q...:...H.. SET COLORS...R.:...... 5
3281,BG:.53280,BO:.646,CH.....:.D.... DA
TA FORMAT IS.J...:...... DATA FILENAME,
TYPE OF LOAD.....:...... 1="FILENAME",8
. .".. 2="FILENAME",8,1.F.,.. 3=BOOT U
NDER KERNAL FROM $2000.R.6.. >3=SPECIFY
SYS ADD FOR "FILENAME",8,1.X.@.:...J..36
0...T.:...^..1,8,15,"S0:INDEX": 1:."0:IN
DEX",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:.". ..
...............................".C...."
.".19.C(IN$).2)IN$.35)"."......" ...
..............................".....AD..
((NG..5).2):.NG.AD.AD.NG.E....".".C)"...
...."......Q.BE.BE.AD:..C)"."I(" ".D(Q),
2)".";...B..H(N$(Q)." ",16):
.C..".";...L.....V...C)".....".<....C..0
.520.T....BE.AD.NG.C.20:.510.]....520.Y.
..BE.AD.1:AD.NG.AD.1:.430......H.... ".
.....................".8)"*** SELECT ONE
*** .... ..";:GG$.""......G$:.G$."".
540...!..G$."_".800...&.G.F(G$).127:L.C(
GG$).6.0..G.20.L.0.L.L.1:GG$.H(GG$,L):."
... ..";:.540.D.:..G.13.610.Q.D..L.2.54
0.D.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.X....".
.. LOADING...."......" "N$(G)...... N
$(G),U,1......N(G).1.690.B...."....LOAD"
G(34)N$(G)G(34)","U",1.":.198,1:.631,131
:..Z...."....LOAD"G(34)N$(G)G(34)","U"."
:.198,1:.631,131:.......I.8000.8037:.N:.
I,N:.:....F..160,0,132,2,132,4,169,32,13
3,3,169,224,133,5,162,32,177,2,145,4,200
.!.P..208,249,230,3,230,5,202,208,242,16
9,5,120,133,1,108,252,255.V. ..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.E....TROLLS,1,1.Z....LUNAR
OUTPOST,2......HACKER,2....'. "END",0..
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL