> 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 31 00 39 08 14 00 8B 20 53 B2 33 | ID=F1.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 37 |LIZATION.....:.7|
00000110: 09 96 00 49 4E 24 B2 22 2A 20 4D 41 52 43 4F 27 |...IN$."* MARCO'|
00000120: 53 20 49 53 45 50 49 43 20 50 52 4F 47 52 41 4D |S ISEPIC PROGRAM|
00000130: 53 20 23 31 20 2A 22 00 4A 09 A0 00 42 47 B2 35 |S #1 *".J...BG.5|
00000140: 3A 42 4F B2 38 3A 43 48 B2 30 00 57 09 AA 00 55 |:BO.8:CH.0.W...U|
00000150: B2 C2 28 31 38 36 29 00 72 09 B4 00 8D 20 37 30 |..(186).r.... 70|
00000160: 30 3A 8F 20 49 4E 49 54 20 43 41 52 54 20 42 4F |0:. INIT CART BO|
00000170: 4F 54 00 78 09 BE 00 3A 00 89 09 C8 00 8F 20 53 |OT.x...:...... S|
00000180: 45 54 20 43 4F 4C 4F 52 53 00 8F 09 D2 00 3A 00 |ET COLORS.....:.|
00000190: B0 09 DC 00 97 20 35 33 32 38 31 2C 42 47 3A 97 |..... 53281,BG:.|
000001A0: 35 33 32 38 30 2C 42 4F 3A 97 36 34 36 2C 43 48 |53280,BO:.646,CH|
000001B0: 00 B6 09 E6 00 3A 00 CB 09 F0 00 8F 20 44 41 54 |.....:...... DAT|
000001C0: 41 20 46 4F 52 4D 41 54 20 49 53 00 D1 09 FA 00 |A FORMAT IS.....|
000001D0: 3A 00 F3 09 04 01 8F 20 20 44 41 54 41 20 46 49 |:...... DATA FI|
000001E0: 4C 45 4E 41 4D 45 2C 54 59 50 45 20 4F 46 20 4C |LENAME,TYPE OF L|
000001F0: 4F 41 44 00 F9 09 0E 01 3A 00 0F 0A 18 01 8F 20 |OAD.....:...... |
00000200: 20 31 3D 22 46 49 4C 45 4E 41 4D 45 22 2C 38 00 | 1="FILENAME",8.|
00000210: 27 0A 22 01 8F 20 20 32 3D 22 46 49 4C 45 4E 41 |'.".. 2="FILENA|
00000220: 4D 45 22 2C 38 2C 31 00 4D 0A 2C 01 8F 20 20 33 |ME",8,1.M.,.. 3|
00000230: 3D 42 4F 4F 54 20 55 4E 44 45 52 20 4B 45 52 4E |=BOOT UNDER KERN|
00000240: 41 4C 20 46 52 4F 4D 20 24 32 30 30 30 00 79 0A |AL FROM $2000.y.|
00000250: 36 01 8F 20 3E 33 3D 53 50 45 43 49 46 59 20 53 |6.. >3=SPECIFY S|
00000260: 59 53 20 41 44 44 20 46 4F 52 20 22 46 49 4C 45 |YS ADD FOR "FILE|
00000270: 4E 41 4D 45 22 2C 38 2C 31 00 7F 0A 40 01 3A 00 |NAME",8,1...@.:.|
00000280: 88 0A 4A 01 89 33 36 30 00 8E 0A 54 01 3A 00 C6 |..J..360...T.:..|
00000290: 0A 5E 01 9F 31 2C 38 2C 31 35 2C 22 53 30 3A 49 |.^..1,8,15,"S0:I|
000002A0: 4E 44 45 58 22 3A A0 31 3A 94 22 30 3A 49 4E 44 |NDEX":.1:."0:IND|
000002B0: 45 58 22 2C 38 3A 90 3A 8F 20 55 50 44 41 54 45 |EX",8:.:. UPDATE|
000002C0: 20 49 4E 44 45 58 00 EC 0A 68 01 86 4E 24 28 35 | INDEX...h..N$(5|
000002D0: 30 29 2C 4E 28 35 30 29 3A 81 47 B2 30 A4 35 30 |0),N(50):.G.0.50|
000002E0: 3A 87 4E 24 28 47 29 2C 4E 28 47 29 00 0B 0B 72 |:.N$(G),N(G)...r|
000002F0: 01 8B 20 4E 24 28 47 29 B2 22 45 4E 44 22 A7 20 |.. N$(G)."END". |
00000300: 4E 47 B2 47 AB 31 3A 47 B2 35 30 00 11 0B 7C 01 |NG.G.1:G.50...|.|
00000310: 82 00 47 0B 86 01 43 B2 30 3A 42 45 B2 30 3A 99 |..G...C.0:BE.0:.|
00000320: 22 93 20 20 20 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 AF |................|
00000340: AF AF AF AF AF AF 22 00 6A 0B 90 01 99 22 20 20 |......".j...." |
00000350: 20 B4 22 A3 32 30 AB C3 28 49 4E 24 29 AD 32 29 | .".20..(IN$).2)|
00000360: 49 4E 24 A3 33 35 29 22 A7 22 00 96 0B 9A 01 99 |IN$.35)"."......|
00000370: 22 20 20 20 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 B7 B7 |................|
00000390: B7 B7 B7 B7 B7 22 00 B7 0B A4 01 41 44 B2 B5 28 |.....".....AD..(|
000003A0: 28 4E 47 AA 2E 35 29 AD 32 29 3A 8B 4E 47 B3 41 |(NG..5).2):.NG.A|
000003B0: 44 A7 41 44 B2 4E 47 00 CC 0B AE 01 99 22 13 22 |D.AD.NG......"."|
000003C0: A6 43 29 22 11 11 11 B0 C0 C0 AE 22 00 F5 0B B8 |.C)"......."....|
000003D0: 01 81 51 B2 42 45 A4 42 45 AA 41 44 3A 99 A6 43 |..Q.BE.BE.AD:..C|
000003E0: 29 22 DD 22 C9 28 22 20 22 AA C4 28 51 29 2C 32 |)".".(" "..(Q),2|
000003F0: 29 22 DD 22 3B 00 1F 0C C2 01 99 C8 28 4E 24 28 |)".";.......(N$(|
00000400: 51 29 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |Q)." |
00000410: 20 22 2C 31 36 29 3A 8B 43 A7 99 22 91 22 3B 00 | ",16):.C..".";.|
00000420: 25 0C CC 01 82 00 35 0C D6 01 99 A6 43 29 22 AD |%.....5.....C)".|
00000430: C0 C0 BD 11 22 00 43 0C E0 01 8B 43 B3 B1 30 A7 |....".C....C..0.|
00000440: 35 32 30 00 5B 0C EA 01 8B 42 45 AA 41 44 B3 4E |520.[....BE.AD.N|
00000450: 47 A7 43 B2 32 30 3A 89 35 31 30 00 64 0C F4 01 |G.C.20:.510.d...|
00000460: 89 35 32 30 00 80 0C FE 01 42 45 B2 41 44 AA 31 |.520.....BE.AD.1|
00000470: 3A 41 44 B2 4E 47 AB 41 44 AB 31 3A 89 34 33 30 |:AD.NG.AD.1:.430|
00000480: 00 86 0C 08 02 99 00 CF 0C 12 02 99 20 22 13 11 |............ "..|
00000490: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000004A0: 11 11 11 11 22 A3 38 29 22 2A 2A 2A 20 53 45 4C |....".8)"*** SEL|
000004B0: 45 43 54 20 4F 4E 45 20 2A 2A 2A 20 20 20 20 9D |ECT ONE *** .|
000004C0: 9D 9D 12 20 9D 92 22 3B 3A 47 47 24 B2 22 22 00 |... ..";:GG$."".|
000004D0: E2 0C 1C 02 A1 47 24 3A 8B 47 24 B2 22 22 A7 35 |.....G$:.G$."".5|
000004E0: 34 30 00 F2 0C 21 02 8B 47 24 B2 22 5F 22 A7 38 |40...!..G$."_".8|
000004F0: 30 30 00 0B 0D 26 02 47 B2 C6 28 47 24 29 AF 31 |00...&.G..(G$).1|
00000500: 32 37 3A 4C B2 C3 28 47 47 24 29 00 3D 0D 30 02 |27:L..(GG$).=.0.|
00000510: 8B 47 B2 32 30 AF 4C B1 30 A7 4C B2 4C AB 31 3A |.G.20.L.0.L.L.1:|
00000520: 47 47 24 B2 C8 28 47 47 24 2C 4C 29 3A 99 22 20 |GG$..(GG$,L):." |
00000530: 9D 9D 12 20 92 9D 22 3B 3A 89 35 34 30 00 4B 0D |... ..";:.540.K.|
00000540: 3A 02 8B 47 B2 31 33 A7 36 31 30 00 58 0D 44 02 |:..G.13.610.X.D.|
00000550: 8B 4C B2 32 A7 35 34 30 00 6B 0D 4E 02 8B 47 B3 |.L.2.540.k.N..G.|
00000560: 34 38 B0 47 B1 35 37 A7 35 34 30 00 8A 0D 58 02 |48.G.57.540...X.|
00000570: 47 47 24 B2 47 47 24 AA 47 24 3A 99 47 24 22 12 |GG$.GG$.G$:.G$".|
00000580: 20 92 9D 22 3B 3A 89 35 34 30 00 AA 0D 62 02 47 | ..";:.540...b.G|
00000590: B2 C5 28 47 47 24 29 3A 8B 47 B1 4E 47 20 B0 20 |..(GG$):.G.NG . |
000005A0: 47 47 24 B2 22 22 89 35 34 30 00 B0 0D 6C 02 99 |GG$."".540...l..|
000005B0: 00 C7 0D 76 02 53 B2 4E 28 47 29 3A 8B 4E 28 47 |...v.S.N(G):.N(G|
000005C0: 29 B3 33 A7 36 37 30 00 DF 0D 80 02 99 22 93 11 |).3.670......"..|
000005D0: 11 20 20 4C 4F 41 44 49 4E 47 11 11 11 11 22 00 |. LOADING....".|
000005E0: EF 0D 8A 02 99 22 20 20 20 22 4E 24 28 47 29 00 |....." "N$(G).|
000005F0: FF 0D 94 02 93 20 4E 24 28 47 29 2C 55 2C 31 00 |..... N$(G),U,1.|
00000600: 0F 0E 9E 02 8B 4E 28 47 29 B2 31 A7 36 39 30 00 |.....N(G).1.690.|
00000610: 49 0E A8 02 99 22 93 11 11 11 4C 4F 41 44 22 C7 |I...."....LOAD".|
00000620: 28 33 34 29 4E 24 28 47 29 C7 28 33 34 29 22 2C |(34)N$(G).(34)",|
00000630: 22 55 22 2C 31 13 22 3A 97 31 39 38 2C 31 3A 97 |"U",1.":.198,1:.|
00000640: 36 33 31 2C 31 33 31 3A 80 00 81 0E B2 02 99 22 |631,131:......."|
00000650: 93 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 4E 24 |....LOAD".(34)N$|
00000660: 28 47 29 C7 28 33 34 29 22 2C 22 55 22 13 22 3A |(G).(34)","U".":|
00000670: 97 31 39 38 2C 31 3A 97 36 33 31 2C 31 33 31 3A |.198,1:.631,131:|
00000680: 80 00 9E 0E BC 02 81 49 B2 38 30 30 30 A4 38 30 |.......I.8000.80|
00000690: 33 37 3A 87 4E 3A 97 49 2C 4E 3A 82 3A 8E 00 E7 |37:.N:.I,N:.:...|
000006A0: 0E C6 02 83 31 36 30 2C 30 2C 31 33 32 2C 32 2C |....160,0,132,2,|
000006B0: 31 33 32 2C 34 2C 31 36 39 2C 33 32 2C 31 33 33 |132,4,169,32,133|
000006C0: 2C 33 2C 31 36 39 2C 32 32 34 2C 31 33 33 2C 35 |,3,169,224,133,5|
000006D0: 2C 31 36 32 2C 33 32 2C 31 37 37 2C 32 2C 31 34 |,162,32,177,2,14|
000006E0: 35 2C 34 2C 32 30 30 00 28 0F D0 02 83 32 30 38 |5,4,200.(....208|
000006F0: 2C 32 34 39 2C 32 33 30 2C 33 2C 32 33 30 2C 35 |,249,230,3,230,5|
00000700: 2C 32 30 32 2C 32 30 38 2C 32 34 32 2C 31 36 39 |,202,208,242,169|
00000710: 2C 35 2C 31 32 30 2C 31 33 33 2C 31 2C 31 30 38 |,5,120,133,1,108|
00000720: 2C 32 35 32 2C 32 35 35 00 5D 0F 20 03 9F 34 2C |,252,255.]. ..4,|
00000730: 34 3A 98 34 2C 22 22 A6 32 30 29 22 44 49 53 4B |4:.4,"".20)"DISK|
00000740: 20 4E 41 4D 45 20 22 3B 49 4E 24 3A 81 47 B2 31 | NAME ";IN$:.G.1|
00000750: A4 4E 47 A9 34 3A 81 47 47 B2 30 A4 33 00 95 0F |.NG.4:.GG.0.3...|
00000760: 21 03 8B 47 AA 47 47 B3 B2 4E 47 A7 98 34 2C C8 |!..G.GG..NG..4,.|
00000770: 28 4E 24 28 47 AA 47 47 29 AA 22 20 20 20 20 20 |(N$(G.GG)." |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000790: 2C 31 39 29 3B 00 A6 0F 22 03 82 3A 98 34 3A 82 |,19);..."..:.4:.|
000007A0: 3A 98 34 3A A0 34 00 AF 0F 23 03 89 33 39 30 00 |:.4:.4...#..390.|
000007B0: BD 0F 0F 27 83 20 22 45 4E 44 22 2C 30 00 00 00 |...'. "END",0...|
..&.... *** 64 INDEX PROGRAM *** ID=F1.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.....:.7...IN$."
* MARCO'S ISEPIC PROGRAMS #1 *".J. .BG.5
:BO.8:CH.0.W...U.B(186).R.... 700:. INIT
CART BOOT.X...:...H.. SET COLORS...R.:.
..... 53281,BG:.53280,BO:.646,CH.....:.K
.... DATA FORMAT IS.Q...:...... DATA FI
LENAME,TYPE OF LOAD.....:...... 1="FILE
NAME",8.'.".. 2="FILENAME",8,1.M.,.. 3
=BOOT UNDER KERNAL FROM $2000.Y.6.. >3=S
PECIFY SYS ADD FOR "FILENAME",8,1..@.:.
..J..360...T.:.F.^..1,8,15,"S0:INDEX": 1
:."0:INDEX",8:.:. UPDATE INDEX...H..N$(5
0),N(50):.G.0.50:.N$(G),N(G)...R.. N$(G)
."END". NG.G.1:G.50...|...G...C.0:BE.0:.
". .................................".
J...." .".20.C(IN$).2)IN$.35)"."......
" ................................."..
...AD..((NG..5).2):.NG.AD.AD.NG.L...."."
.C)"......."......Q.BE.BE.AD:..C)"."I("
".D(Q),2)".";...B..H(N$(Q)."
",16):.C..".";.%.L...5.V...C)".....".C.
...C..0.520.[....BE.AD.NG.C.20:.510.D...
.520.....BE.AD.1:AD.NG.AD.1:.430.......O
.... "......................".8)"*** SEL
ECT ONE *** .... ..";:GG$.""......G$:
.G$."".540...!..G$."_".800...&.G.F(G$).1
27:L.C(GG$).=.0..G.20.L.0.L.L.1:GG$.H(GG
$,L):." ... ..";:.540.K.:..G.13.610.X.D.
.L.2.540.K.N..G.48.G.57.540...X.GG$.GG$.
G$:.G$". ..";:.540...B.G.E(GG$):.G.NG .
GG$."".540...L...G.V.S.N(G):.N(G).3.670.
....."... LOADING...."......" "N$(G).
..... N$(G),U,1......N(G).1.690.I...."..
..LOAD"G(34)N$(G)G(34)","U",1.":.198,1:.
631,131:......."....LOAD"G(34)N$(G)G(34)
","U".":.198,1:.631,131:.......I.8000.80
37:.N:.I,N:.:....F..160,0,132,2,132,4,16
9,32,133,3,169,224,133,5,162,32,177,2,14
5,4,200.(.P..208,249,230,3,230,5,202,208
,242,169,5,120,133,1,108,252,255.]. ..4,
4:.4,"".20)"DISK NAME ";IN$:.G.1.NG.4:.G
G.0.3...!..G.GG..NG..4,H(N$(G.GG)."
",19);..."..:.4:.:.4: 4..
.#..390....'. "END",0...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL