> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 89 31 30 30 30 00 1C 08 01 00 |.......1000.....|
00000010: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 00 22 08 02 |.Z$:.Z$."".1."..|
00000020: 00 8E 00 2A 08 03 00 89 31 30 00 52 08 04 00 3A |...*....10.R...:|
00000030: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000040: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000050: AC AC 00 79 08 05 00 3A AC 20 20 20 20 20 20 20 |...y...:. |
00000060: 20 53 55 50 45 52 20 44 49 52 45 43 A4 52 59 20 | SUPER DIREC.RY |
00000070: 20 20 20 20 20 20 20 20 AC 00 A1 08 06 00 3A AC | ......:.|
00000080: 20 20 20 20 20 20 20 20 43 4F 4D 50 55 54 45 20 | COMPUTE |
00000090: 20 41 50 52 AB 38 34 20 20 20 20 20 20 20 20 20 | APR.84 |
000000A0: AC 00 C9 08 07 00 3A AC 20 20 20 20 20 20 20 20 |......:. |
000000B0: 20 20 20 50 41 47 45 20 31 37 32 20 20 20 20 20 | PAGE 172 |
000000C0: 20 20 20 20 20 20 20 20 AC 00 F1 08 08 00 3A AC | ......:.|
000000D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000000F0: AC 00 08 09 0A 00 84 31 35 2C 45 52 2C 45 52 24 |.......15,ER,ER$|
00000100: 3A 8B 45 52 B2 30 A7 8E 00 27 09 14 00 99 22 44 |:.ER.0...'...."D|
00000110: 49 53 4B 20 45 52 52 4F 52 20 23 22 45 52 3A 99 |ISK ERROR #"ER:.|
00000120: 45 52 24 3A 80 3A 8E 00 57 09 64 00 99 22 13 11 |ER$:.:..W.d.."..|
00000130: 11 11 22 3A 81 49 B2 30 A4 31 35 3A 81 4A B2 30 |..":.I.0.15:.J.0|
00000140: A4 4E 43 3A 99 A3 4A AC 32 30 29 3B 56 24 28 49 |.NC:..J.20);V$(I|
00000150: AA 4A AC 31 36 29 3B 00 63 09 6E 00 82 4A 3A 99 |.J.16);.c.n..J:.|
00000160: 3A 82 49 00 7C 09 78 00 97 58 42 2C 30 3A 52 4C |:.I.|.x..XB,0:RL|
00000170: B2 30 3A 43 4C B2 30 3A 8D 36 30 30 00 A9 09 82 |.0:CL.0:.600....|
00000180: 00 81 49 B2 30 A4 31 A9 30 3A 8D 31 3A 5A B2 C6 |..I.0.1.0:.1:Z..|
00000190: 28 5A 24 29 3A 54 43 B2 43 4C 3A 54 52 B2 52 4C |(Z$):TC.CL:TR.RL|
000001A0: 3A 81 4A B2 30 A4 31 A9 30 00 D0 09 8C 00 8B 28 |:.J.0.1.0......(|
000001B0: 5A AF 31 32 37 29 B2 32 39 A7 43 4C B2 28 43 4C |Z.127).29.CL.(CL|
000001C0: AA 31 AA 32 AC 28 5A B2 31 35 37 29 29 AF 4E 43 |.1.2.(Z.157)).NC|
000001D0: 00 F7 09 96 00 8B 28 5A AF 31 32 37 29 B2 31 37 |......(Z.127).17|
000001E0: A7 52 4C B2 28 52 4C AA 31 AA 32 AC 28 5A B2 31 |.RL.(RL.1.2.(Z.1|
000001F0: 34 35 29 29 AF 31 35 00 05 0A A0 00 8B 5A B2 31 |45)).15......Z.1|
00000200: 33 A7 49 B2 31 00 1F 0A AA 00 8B 56 24 28 52 4C |3.I.1......V$(RL|
00000210: AA 43 4C AC 31 36 29 B3 B1 42 24 A7 4A B2 31 00 |.CL.16)..B$.J.1.|
00000220: 3D 0A B4 00 82 3A 8B 28 54 43 B3 B1 43 4C 29 B0 |=....:.(TC..CL).|
00000230: 28 54 52 B3 B1 52 4C 29 A7 8D 35 30 30 00 45 0A |(TR..RL)..500.E.|
00000240: BE 00 82 3A 8E 00 6A 0A F4 01 97 58 41 2C 54 52 |...:..j....XA,TR|
00000250: AA 33 3A 99 3A 99 A3 54 43 AC 32 30 29 3B 56 24 |.3:.:..TC.20);V$|
00000260: 28 54 52 AA 31 36 AC 54 43 29 00 95 0A 58 02 97 |(TR.16.TC)...X..|
00000270: 58 41 2C 52 4C AA 33 3A 99 3A 99 A3 43 4C AC 32 |XA,RL.3:.:..CL.2|
00000280: 30 29 3B 22 12 22 3B 56 24 28 52 4C AA 31 36 AC |0);".";V$(RL.16.|
00000290: 43 4C 29 3A 8E 00 AE 0A 84 03 81 49 B2 31 A4 4E |CL):.......I.1.N|
000002A0: 56 3A 56 24 28 49 29 B2 42 24 3A 82 3A 8E 00 BF |V:V$(I).B$:.:...|
000002B0: 0A E8 03 99 22 13 13 93 22 3A 8D 36 30 30 30 00 |...."...":.6000.|
000002C0: D8 0A F2 03 4E 43 B2 31 3A 8B C2 28 32 31 33 29 |....NC.1:..(213)|
000002D0: B2 37 39 A7 4E 43 B2 33 00 12 0B FC 03 4E 56 B2 |.79.NC.3.....NV.|
000002E0: 28 4E 43 AA 31 29 AC 31 36 AB 31 3A 8D 32 30 30 |(NC.1).16.1:.200|
000002F0: 30 3A 42 24 B2 22 20 20 20 20 20 20 20 20 20 20 |0:B$." |
00000300: 20 20 20 20 20 20 20 20 20 22 3A 86 56 24 28 4E | ":.V$(N|
00000310: 56 29 00 3C 0B 4C 04 4E 50 B2 30 3A 53 4C B2 31 |V).<.L.NP.0:SL.1|
00000320: 3A 56 24 28 30 29 B2 22 4E 45 58 54 20 50 41 47 |:V$(0)."NEXT PAG|
00000330: 45 22 3A 99 22 93 11 12 22 48 45 24 00 61 0B 56 |E":."..."HE$.a.V|
00000340: 04 53 4C B2 53 4C AA 4E 50 3A 4E 50 B2 4D 41 AB |.SL.SL.NP:NP.MA.|
00000350: 53 4C AA 31 3A 8B 4E 50 B1 4E 56 A7 4E 50 B2 4E |SL.1:.NP.NV.NP.N|
00000360: 56 00 70 0B 60 04 8B 4E 50 B2 30 A7 33 30 30 30 |V.p.`..NP.0.3000|
00000370: 00 95 0B 6A 04 8D 39 30 30 3A 81 49 B2 31 A4 4E |...j..900:.I.1.N|
00000380: 50 3A 56 24 28 49 29 B2 50 52 24 28 53 4C AA 49 |P:V$(I).PR$(SL.I|
00000390: AB 31 29 3A 82 00 AC 0B 74 04 8D 31 30 30 3A 8B |.1):....t..100:.|
000003A0: 43 4C AA 52 4C B2 30 A7 31 31 31 30 00 B6 0B 7E |CL.RL.0.1110...~|
000003B0: 04 89 35 30 30 30 00 C5 0B D0 07 8D 32 39 30 30 |..5000......2900|
000003C0: 3A 4D 41 B2 30 00 DF 0B DA 07 9F 31 35 2C 55 4E |:MA.0......15,UN|
000003D0: 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 31 30 00 |,15,"I".DR$:.10.|
000003E0: F3 0B E4 07 9F 31 2C 55 4E 2C 33 2C 22 24 22 AA |.....1,UN,3,"$".|
000003F0: 44 52 24 00 FC 0B EE 07 9E 38 39 36 00 19 0C F8 |DR$......896....|
00000400: 07 46 4F B2 C6 28 49 4E 24 29 3A 8B 28 46 4F AF |.FO..(IN$):.(FO.|
00000410: 33 29 B2 31 A7 32 31 30 30 00 39 0C 02 08 A0 31 |3).1.2100.9....1|
00000420: 3A A0 31 35 3A 99 22 42 41 44 20 44 49 53 4B 20 |:.15:."BAD DISK |
00000430: 46 4F 52 4D 41 54 22 3A 80 00 4F 0C 34 08 48 45 |FORMAT":..O.4.HE|
00000440: 24 B2 CA 28 49 4E 24 2C 31 34 33 2C 31 36 29 00 |$..(IN$,143,16).|
00000450: 82 0C 3E 08 8B 46 4F B1 31 A7 53 45 B2 31 38 3A |..>..FO.1.SE.18:|
00000460: 48 45 24 B2 48 45 24 AA 22 2C 20 31 35 34 31 2F |HE$.HE$.", 1541/|
00000470: 34 30 34 30 20 46 4F 52 4D 41 54 22 3A 89 32 32 |4040 FORMAT":.22|
00000480: 30 30 00 AA 0C 48 08 8B 46 4F B2 31 A7 53 45 B2 |00...H..FO.1.SE.|
00000490: 31 39 3A 48 45 24 B2 48 45 24 AA 22 2C 20 32 30 |19:HE$.HE$.", 20|
000004A0: 34 30 20 46 4F 52 4D 41 54 22 00 C6 0C 98 08 86 |40 FORMAT"......|
000004B0: 50 52 24 28 53 45 AC 38 29 3A 81 49 B2 31 A4 53 |PR$(SE.8):.I.1.S|
000004C0: 45 3A 9E 38 39 36 00 E8 0C A2 08 81 4A B2 31 A4 |E:.896......J.1.|
000004D0: 32 35 34 A9 33 32 3A 41 B2 C6 28 CA 28 49 4E 24 |254.32:A..(.(IN$|
000004E0: 2C 4A 29 29 AF 31 32 37 00 0F 0D AC 08 8B 41 B2 |,J)).127......A.|
000004F0: 32 A7 4D 41 B2 4D 41 AA 31 3A 50 52 24 28 4D 41 |2.MA.MA.1:PR$(MA|
00000500: 29 B2 CA 28 49 4E 24 2C 4A AA 33 2C 31 36 29 00 |)..(IN$,J.3,16).|
00000510: 16 0D B6 08 82 4A 00 23 0D C0 08 8B 53 54 A7 49 |.....J.#....ST.I|
00000520: B2 53 45 00 2A 0D CA 08 82 49 00 37 0D D4 08 A0 |.SE.*....I.7....|
00000530: 31 3A A0 31 35 3A 8E 00 4D 0D 54 0B 55 4E B2 38 |1:.15:..M.T.UN.8|
00000540: 3A 44 52 B2 30 3A 44 52 24 B2 22 30 22 00 53 0D |:DR.0:DR$."0".S.|
00000550: 5E 0B 8E 00 72 0D 68 0B 99 22 55 4E 49 54 20 23 |^...r.h.."UNIT #|
00000560: 20 20 22 3B 55 4E 3B 3A 85 22 9D 9D 9D 9D 22 3B | ";UN;:."....";|
00000570: 55 4E 00 A2 0D 72 0B 99 22 44 52 49 56 45 20 23 |UN...r.."DRIVE #|
00000580: 20 20 22 3B 44 52 3B 3A 85 22 9D 9D 9D 9D 22 3B | ";DR;:."....";|
00000590: 44 52 3A 8B 44 52 AC 28 44 52 AB 31 29 A7 32 39 |DR:.DR.(DR.1).29|
000005A0: 33 30 00 B2 0D 7C 0B 44 52 24 B2 C4 28 44 52 29 |30...|.DR$..(DR)|
000005B0: 3A 8E 00 E8 0D B8 0B 8D 39 30 30 3A 99 22 93 11 |:.......900:."..|
000005C0: 4E 4F 20 4D 4F 52 45 20 50 52 4F 47 52 41 4D 53 |NO MORE PROGRAMS|
000005D0: 20 4F 4E 20 44 49 53 4B 2E 20 20 4F 50 54 49 4F | ON DISK. OPTIO|
000005E0: 4E 53 20 41 52 45 3A 22 00 28 0E CC 0B 56 24 28 |NS ARE:".(...V$(|
000005F0: 30 29 B2 22 53 45 45 20 4E 45 57 20 44 49 53 4B |0)."SEE NEW DISK|
00000600: 22 3A 56 24 28 32 29 B2 22 52 45 53 54 41 52 54 |":V$(2)."RESTART|
00000610: 20 54 48 49 53 20 44 49 53 4B 22 3A 56 24 28 34 | THIS DISK":V$(4|
00000620: 29 B2 22 51 55 49 54 22 00 39 0E D6 0B 8D 31 30 |)."QUIT".9....10|
00000630: 30 3A 8B 52 4C B2 30 A7 8A 00 48 0E E0 0B 8B 52 |0:.RL.0...H....R|
00000640: 4C B2 32 A7 31 31 30 30 00 53 0E EA 0B 99 22 93 |L.2.1100.S....".|
00000650: 22 3A 80 00 8F 0E 88 13 99 22 93 11 11 4C 4F 41 |":......."...LOA|
00000660: 44 22 3B C7 28 33 34 29 3B 56 24 28 52 4C AA 31 |D";.(34);V$(RL.1|
00000670: 36 AC 43 4C 29 3B C7 28 33 34 29 3B 22 2C 22 3B |6.CL);.(34);",";|
00000680: 55 4E 3A 99 22 11 11 11 11 52 55 4E 13 22 3B 00 |UN:."....RUN.";.|
00000690: B3 0E 92 13 8B 58 41 B2 32 31 34 A7 97 36 33 31 |.....XA.214..631|
000006A0: 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 58 42 2C |,13:.632,13:.XB,|
000006B0: 32 3A 80 00 D0 0E 9C 13 97 36 32 33 2C 31 33 3A |2:.......623,13:|
000006C0: 97 36 32 34 2C 31 33 3A 97 31 35 38 2C 32 3A 80 |.624,13:.158,2:.|
000006D0: 00 F2 0E 70 17 49 4E 24 B2 22 5A 5A 22 3A 81 49 |...p.IN$."ZZ":.I|
000006E0: B2 31 A4 36 3A 49 4E 24 B2 49 4E 24 AA 49 4E 24 |.1.6:IN$.IN$.IN$|
000006F0: 3A 82 00 0F 0F 7A 17 49 4E 24 B2 CA 28 49 4E 24 |:....z.IN$..(IN$|
00000700: 2C 32 29 3A 49 4E 24 B2 49 4E 24 AA 49 4E 24 00 |,2):IN$.IN$.IN$.|
00000710: 35 0F 84 17 8B C2 28 36 35 35 33 35 29 B2 32 35 |5.....(65535).25|
00000720: 35 A7 58 41 B2 32 31 34 3A 58 42 B2 31 39 38 3A |5.XA.214:XB.198:|
00000730: 89 36 30 34 30 00 47 0F 8E 17 58 41 B2 32 31 36 |.6040.G...XA.216|
00000740: 3A 58 42 B2 31 35 38 00 6D 0F 98 17 81 49 B2 38 |:XB.158.m....I.8|
00000750: 39 36 A4 39 32 39 3A 87 58 24 3A 8B C8 28 58 24 |96.929:.X$:..(X$|
00000760: 2C 31 29 B3 B1 22 41 22 A7 36 30 36 30 00 93 0F |,1).."A".6060...|
00000770: A2 17 58 24 B2 C4 28 C5 28 C9 28 58 24 2C C3 28 |..X$..(.(.(X$,.(|
00000780: 58 24 29 AB 31 29 29 AA 33 AC 28 58 41 B2 32 31 |X$).1)).3.(XA.21|
00000790: 36 29 29 00 A2 0F AC 17 97 49 2C C5 28 58 24 29 |6))......I,.(X$)|
000007A0: 3A 82 00 A8 0F B6 17 8E 00 DD 0F C0 17 83 20 31 |:............. 1|
000007B0: 36 30 2C 32 2C 31 37 37 2C 41 34 35 2C 31 35 33 |60,2,177,A45,153|
000007C0: 2C 41 31 33 37 2C 30 2C 32 30 30 2C 31 39 32 2C |,A137,0,200,192,|
000007D0: 36 2C 32 30 38 2C 32 34 36 2C 31 36 32 00 11 10 |6,208,246,162...|
000007E0: CA 17 83 20 31 2C 33 32 2C 31 39 38 2C 32 35 35 |... 1,32,198,255|
000007F0: 2C 33 32 2C 32 32 38 2C 32 35 35 2C 31 36 34 2C |,32,228,255,164,|
00000800: 41 31 34 32 2C 31 34 35 2C 41 31 34 30 2C 32 30 |A142,145,A140,20|
00000810: 30 00 3C 10 D4 17 83 20 31 33 32 2C 41 31 34 32 |0.<.... 132,A142|
00000820: 2C 31 39 36 2C 41 31 33 39 2C 32 30 38 2C 32 34 |,196,A139,208,24|
00000830: 32 2C 37 36 2C 32 30 34 2C 32 35 35 00 00 00 |2,76,204,255... |
.......1000......Z$:.Z$."".1.".....*....
10.R...:................................
...Y...:. SUPER DIREC.RY
......:. COMPUTE APR.84
..I...:. PAGE 172
......:.................................
.......15,ER,ER$:.ER.0...'...."DISK ERRO
R #"ER:.ER$:.:..W.D.."....":.I.0.15:.J.0
.NC:..J.20);V$(I.J.16);.C.N..J:.:.I.|.X.
.XB,0:RL.0:CL.0:.600......I.0.1.0:.1:Z.F
(Z$):TC.CL:TR.RL:.J.0.1.0.P....(Z.127).2
9.CL.(CL.1.2.(Z.157)).NC......(Z.127).17
.RL.(RL.1.2.(Z.145)).15... ..Z.13.I.1...
...V$(RL.CL.16)..B$.J.1.=....:.(TC..CL).
(TR..RL)..500.E....:..J....XA,TR.3:.:..T
C.20);V$(TR.16.TC)...X..XA,RL.3:.:..CL.2
0);".";V$(RL.16.CL):.......I.1.NV:V$(I).
B$:.:......."...":.6000.X...NC.1:.B(213)
.79.NC.3.....NV.(NC.1).16.1:.2000:B$."
":.V$(NV).<.L.NP.0:SL.1
:V$(0)."NEXT PAGE":."..."HE$.A.V.SL.SL.N
P:NP.MA.SL.1:.NP.NV.NP.NV.P.`..NP.0.3000
...J..900:.I.1.NP:V$(I).PR$(SL.I.1):....
T..100:.CL.RL.0.1110...~..5000.E.P..2900
:MA.0...Z..15,UN,15,"I".DR$:.10......1,U
N,3,"$".DR$......896.....FO.F(IN$):.(FO.
3).1.2100.9... 1: 15:."BAD DISK FORMAT":
..O.4.HE$.J(IN$,143,16)...>..FO.1.SE.18:
HE$.HE$.", 1541/4040 FORMAT":.2200...H..
FO.1.SE.19:HE$.HE$.", 2040 FORMAT".F....
PR$(SE.8):.I.1.SE:.896......J.1.254.32:A
.F(J(IN$,J)).127......A.2.MA.MA.1:PR$(MA
).J(IN$,J.3,16)......J.#....ST.I.SE.*.J.
.I.7.T. 1: 15:..M.T.UN.8:DR.0:DR$."0".S.
^...R.H.."UNIT # ";UN;:."....";UN...R..
"DRIVE # ";DR;:."....";DR:.DR.(DR.1).29
30...|.DR$.D(DR):.......900:."..NO MORE
PROGRAMS ON DISK. OPTIONS ARE:".(.L.V$(
0)."SEE NEW DISK":V$(2)."RESTART THIS DI
SK":V$(4)."QUIT".9.V..100:.RL.0...H....R
L.2.1100.S....".":......."...LOAD";G(34)
;V$(RL.16.CL);G(34);",";UN:."....RUN.";.
.....XA.214..631,13:.632,13:.XB,2:..P...
.623,13:.624,13:.158,2:....P.IN$."ZZ":.I
.1.6:IN$.IN$.IN$:....Z.IN$.J(IN$,2):IN$.
IN$.IN$.5....B(65535).255.XA.214:XB.198:
.6040.G...XA.216:XB.158.M....I.896.929:.
X$:.H(X$,1).."A".6060.....X$.D(E(I(X$,C(
X$).1)).3.(XA.216))......I,E(X$):.......
...... 160,2,177,A45,153,A137,0,200,192,
6,208,246,162...J.. 1,32,198,255,32,228,
255,164,A142,145,A140,200.<.T.. 132,A142
,196,A139,208,242,76,204,255...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL