> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 5A 00 99 22 93 11 1D 1D 1D 12 41 4C |....Z.."......AL|
00000010: 50 48 41 20 44 49 52 45 43 54 4F 52 59 11 00 65 |PHA DIRECTORY..e|
00000020: 08 64 00 86 46 58 24 28 32 35 36 29 2C 46 54 24 |.d..FX$(256),FT$|
00000030: 28 32 35 36 29 2C 46 4C 28 32 35 36 29 2C 54 54 |(256),FL(256),TT|
00000040: 28 32 35 36 29 3A 4E B2 AB 31 3A 81 49 B2 31 A4 |(256):N..1:.I.1.|
00000050: 32 35 36 3A 46 58 24 28 49 29 B2 22 22 3A 82 3A |256:FX$(I)."":.:|
00000060: 58 B2 32 32 31 00 87 08 6E 00 42 4C 24 B2 22 20 |X.221...n.BL$." |
00000070: 22 3A 81 49 B2 31 A4 34 30 3A 42 4C 24 B2 42 4C |":.I.1.40:BL$.BL|
00000080: 24 AA 22 A0 22 3A 82 00 B3 08 78 00 A0 31 35 3A |$.".":....x..15:|
00000090: 9F 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 2C 30 2C |.15,8,15:.1,8,0,|
000000A0: 22 24 30 22 3A 8D 34 38 30 3A A1 23 31 2C 41 24 |"$0":.480:.#1,A$|
000000B0: 2C 42 24 00 D5 08 82 00 57 B2 35 31 3A 4C 24 B2 |,B$.....W.51:L$.|
000000C0: 22 22 3A 85 22 4C 41 42 45 4C 20 53 54 52 49 4E |"":."LABEL STRIN|
000000D0: 47 22 3B 4C 24 00 E8 08 83 00 4C 24 B2 4C 24 AA |G";L$.....L$.L$.|
000000E0: 22 20 3C 3C 3C 20 20 22 00 23 09 87 00 8B C3 28 |" <<< ".#.....(|
000000F0: 4C 24 29 B1 32 32 A7 99 22 4C 41 42 45 4C 20 54 |L$).22.."LABEL T|
00000100: 4F 4F 20 4C 4F 4E 47 2D 4D 41 58 20 49 53 20 31 |OO LONG-MAX IS 1|
00000110: 36 20 43 48 41 52 41 43 54 45 52 53 2E 22 3A 89 |6 CHARACTERS.":.|
00000120: 31 33 30 00 4F 09 8C 00 A1 23 31 2C 41 24 2C 42 |130.O....#1,A$,B|
00000130: 24 3A A1 23 31 2C 41 24 2C 42 24 3A 43 B2 30 3A |$:.#1,A$,B$:C.0:|
00000140: 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 |.A$.."".C..(A$).|
00000150: 69 09 96 00 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA |i....B$.."".C.C.|
00000160: C6 28 42 24 29 AC 32 35 36 00 7B 09 A0 00 4E B2 |.(B$).256.{...N.|
00000170: 4E AA 31 3A 46 4C 28 4E 29 B2 43 00 91 09 AA 00 |N.1:FL(N).C.....|
00000180: A1 23 31 2C 42 24 3A 8B 53 54 B3 B1 30 A7 32 36 |.#1,B$:.ST..0.26|
00000190: 30 00 A4 09 B4 00 8B 42 24 B3 B1 C7 28 33 34 29 |0......B$...(34)|
000001A0: A7 31 37 30 00 AE 09 BE 00 4E 24 B2 22 22 00 D2 |.170.....N$.""..|
000001B0: 09 C8 00 A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 C7 |....#1,B$:.B$...|
000001C0: 28 33 34 29 A7 4E 24 B2 4E 24 AA 42 24 3A 89 32 |(34).N$.N$.B$:.2|
000001D0: 30 30 00 E0 09 D2 00 46 58 24 28 4E 29 B2 4E 24 |00.....FX$(N).N$|
000001E0: 00 FB 09 DC 00 A1 23 31 2C 42 24 3A 8B 42 24 B2 |......#1,B$:.B$.|
000001F0: C7 28 33 32 29 20 A7 20 32 32 30 00 05 0A E6 00 |.(32) . 220.....|
00000200: 43 24 B2 22 22 00 28 0A F0 00 43 24 B2 43 24 AA |C$."".(...C$.C$.|
00000210: 42 24 3A A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 22 |B$:.#1,B$:.B$.."|
00000220: 22 20 20 A7 20 32 34 30 00 45 0A FA 00 46 54 24 |" . 240.E...FT$|
00000230: 28 4E 29 B2 C8 28 43 24 2C 33 29 3A 8B 53 54 B2 |(N)..(C$,3):.ST.|
00000240: 30 A7 31 34 30 00 60 0A 04 01 A0 31 3A 42 46 B2 |0.140.`....1:BF.|
00000250: 46 4C 28 4E 29 3A 4E B2 4E AB 31 3A 8D 35 38 30 |FL(N):N.N.1:.580|
00000260: 00 6C 0A 0E 01 A0 33 3A 9F 33 2C 34 00 9A 0A 18 |.l....3:.3,4....|
00000270: 01 98 33 2C C7 28 31 37 36 29 3B 3A 81 49 B2 31 |..3,.(176);:.I.1|
00000280: A4 35 31 3A 98 33 2C C7 28 31 39 32 29 3B 3A 82 |.51:.3,.(192);:.|
00000290: 3A 98 33 2C C7 28 31 37 34 29 00 B0 0A 22 01 98 |:.3,.(174)..."..|
000002A0: 33 2C C7 28 58 29 3B A6 35 31 29 3B C7 28 58 29 |3,.(X);.51);.(X)|
000002B0: 00 DC 0A 2C 01 54 32 24 B2 46 58 24 28 30 29 3A |...,.T2$.FX$(0):|
000002C0: 8B 4C 24 B3 B1 22 22 A7 54 32 24 B2 54 32 24 AA |.L$.."".T2$.T2$.|
000002D0: 22 A0 A0 28 22 AA 4C 24 AA 22 29 22 00 FB 0A 36 |"..(".L$.")"...6|
000002E0: 01 54 24 B2 C7 28 58 29 AA 22 20 20 20 20 20 3E |.T$..(X)." >|
000002F0: 3E 3E 20 22 AA 46 58 24 28 30 29 00 24 0B 3B 01 |>> ".FX$(0).$.;.|
00000300: 8B 4C 24 B2 22 22 A7 54 24 B2 54 24 AA CA 28 42 |.L$."".T$.T$..(B|
00000310: 4C 24 2C 31 2C 57 AB C3 28 54 24 29 AB 31 29 3A |L$,1,W..(T$).1):|
00000320: 89 33 33 30 00 58 0B 40 01 4B B2 57 AB 32 AB C3 |.330.X.@.K.W.2..|
00000330: 28 54 24 29 AB C3 28 4C 24 29 3A 54 24 B2 54 24 |(T$)..(L$):T$.T$|
00000340: AA CA 28 42 4C 24 2C 31 2C 4B AB 31 29 AA 22 28 |..(BL$,1,K.1)."(|
00000350: 22 AA 4C 24 AA 22 29 22 00 72 0B 4A 01 54 24 B2 |".L$.")".r.J.T$.|
00000360: 54 24 AA 22 20 20 22 AA C7 28 58 29 3A 98 33 2C |T$." "..(X):.3,|
00000370: 54 24 00 88 0B 54 01 98 33 2C C7 28 58 29 3B A6 |T$...T..3,.(X);.|
00000380: 35 31 29 3B C7 28 58 29 00 B6 0B 5E 01 98 33 2C |51);.(X)...^..3,|
00000390: C7 28 31 37 31 29 3B 3A 81 49 B2 31 A4 35 31 3A |.(171);:.I.1.51:|
000003A0: 98 33 2C C7 28 31 39 32 29 3B 3A 82 3A 98 33 2C |.3,.(192);:.:.3,|
000003B0: C7 28 31 37 39 29 00 CC 0B 68 01 98 33 2C C7 28 |.(179)...h..3,.(|
000003C0: 58 29 3B A6 35 31 29 3B C7 28 58 29 00 E8 0B 72 |X);.51);.(X)...r|
000003D0: 01 4C B2 39 3A 4B B2 B5 28 28 4E AA 31 29 AD 32 |.L.9:K..((N.1).2|
000003E0: 29 3A 81 49 B2 31 A4 4B 00 22 0C 7C 01 54 24 B2 |):.I.1.K.".|.T$.|
000003F0: C7 28 58 29 3A 4A B2 49 3A 8D 35 32 30 3A 54 24 |.(X):J.I:.520:T$|
00000400: B2 54 24 AA 22 20 22 3A 4A B2 4B AA 49 3A 8D 35 |.T$." ":J.K.I:.5|
00000410: 32 30 3A 54 24 B2 54 24 AA 22 20 20 22 AA C7 28 |20:T$.T$." "..(|
00000420: 58 29 00 34 0C 86 01 98 33 2C 54 24 3A 4C B2 4C |X).4....3,T$:L.L|
00000430: AA 31 3A 82 00 4A 0C 90 01 98 33 2C C7 28 58 29 |.1:..J....3,.(X)|
00000440: 3B A6 35 31 29 3B C7 28 58 29 00 70 0C 9A 01 50 |;.51);.(X).p...P|
00000450: B2 B5 28 28 42 46 AC 31 30 30 AD 36 36 34 29 AA |..((BF.100.664).|
00000460: 2E 35 29 3A 50 24 B2 CA 28 C4 28 50 29 2C 32 29 |.5):P$..(.(P),2)|
00000470: 00 A8 0C A4 01 54 24 B2 C7 28 58 29 AA CA 28 42 |.....T$..(X)..(B|
00000480: 4C 24 2C 31 2C 31 34 29 AA C4 28 42 46 29 AA 22 |L$,1,14)..(BF)."|
00000490: 20 42 4C 4F 43 4B 53 20 28 22 AA 50 24 AA 22 20 | BLOCKS (".P$." |
000004A0: 25 29 20 46 52 45 45 22 00 D0 0C AE 01 54 24 B2 |%) FREE".....T$.|
000004B0: 54 24 AA CA 28 42 4C 24 2C 31 2C 57 AB C3 28 54 |T$..(BL$,1,W..(T|
000004C0: 24 29 AA 31 29 AA C7 28 58 29 3A 98 33 2C 54 24 |$).1)..(X):.3,T$|
000004D0: 00 ED 0C B8 01 81 49 B2 4C A4 32 37 3A 98 33 2C |......I.L.27:.3,|
000004E0: C7 28 58 29 3B A6 35 31 29 C7 28 58 29 00 F3 0C |.(X);.51).(X)...|
000004F0: C2 01 82 00 21 0D CC 01 98 33 2C C7 28 31 37 33 |....!....3,.(173|
00000500: 29 3B 3A 81 49 B2 31 A4 35 31 3A 98 33 2C C7 28 |);:.I.1.51:.3,.(|
00000510: 31 39 32 29 3B 3A 82 3A 98 33 2C C7 28 31 38 39 |192);:.:.3,.(189|
00000520: 29 00 31 0D D6 01 98 33 3A A0 33 3A A0 31 35 3A |).1....3:.3:.15:|
00000530: 80 00 6C 0D D7 01 A1 51 24 3A 8B 51 24 B2 22 59 |..l....Q$:.Q$."Y|
00000540: 22 A7 99 22 49 4E 53 45 52 54 20 4E 45 58 54 20 |".."INSERT NEXT |
00000550: 44 49 53 4B 20 41 4E 44 20 20 50 52 45 53 53 20 |DISK AND PRESS |
00000560: 52 45 54 55 52 4E 22 3A 85 41 3A 8A 00 7D 0D D8 |RETURN":.A:..}..|
00000570: 01 8B 51 24 B3 B1 22 4E 22 A7 34 37 31 00 83 0D |..Q$.."N".471...|
00000580: D9 01 80 00 9B 0D E0 01 84 31 35 2C 45 52 2C 45 |.........15,ER,E|
00000590: 52 24 3A 8B 45 52 B3 32 30 A7 8E 00 D4 0D EA 01 |R$:.ER.20.......|
000005A0: 8B 45 52 B2 37 34 B0 45 52 B2 32 31 A7 45 52 24 |.ER.74.ER.21.ER$|
000005B0: B2 45 52 24 AA 22 20 2D 2D 2D 2D 20 20 49 53 20 |.ER$." ---- IS |
000005C0: 44 49 53 4B 20 49 4E 53 45 52 54 45 44 3F 22 3A |DISK INSERTED?":|
000005D0: 89 35 31 30 00 F8 0D F4 01 45 52 24 B2 22 44 49 |.510.....ER$."DI|
000005E0: 53 4B 20 45 52 52 4F 52 22 AA C4 28 45 52 29 AA |SK ERROR"..(ER).|
000005F0: 22 3A 20 22 AA 45 52 24 00 03 0E FE 01 99 45 52 |": ".ER$......ER|
00000600: 24 3A 80 00 28 0E 08 02 54 B2 54 54 28 4A 29 3A |$:..(...T.TT(J):|
00000610: 8B 54 B2 30 A7 54 24 B2 54 24 AA CA 28 42 4C 24 |.T.0.T$.T$..(BL$|
00000620: 2C 31 2C 32 34 29 3A 8E 00 41 0E 12 02 8B 46 4C |,1,24):..A....FL|
00000630: 28 54 29 B3 31 30 30 A7 54 24 B2 54 24 AA 22 A0 |(T).100.T$.T$.".|
00000640: 22 00 59 0E 1C 02 8B 46 4C 28 54 29 B3 31 30 A7 |".Y....FL(T).10.|
00000650: 54 24 B2 54 24 AA 22 A0 22 00 7C 0E 26 02 54 24 |T$.T$.".".|.&.T$|
00000660: B2 54 24 AA CA 28 C4 28 46 4C 28 54 29 29 2C 32 |.T$..(.(FL(T)),2|
00000670: 29 AA 22 A0 22 AA 46 58 24 28 54 29 00 AA 0E 30 |).".".FX$(T)...0|
00000680: 02 8B C3 28 46 58 24 28 54 29 29 B3 31 36 A7 54 |...(FX$(T)).16.T|
00000690: 24 B2 54 24 AA CA 28 42 4C 24 2C 31 2C 31 36 AB |$.T$..(BL$,1,16.|
000006A0: C3 28 46 58 24 28 54 29 29 29 00 C6 0E 3A 02 54 |.(FX$(T)))...:.T|
000006B0: 24 B2 54 24 AA 22 A0 22 AA C8 28 46 54 24 28 54 |$.T$."."..(FT$(T|
000006C0: 29 2C 33 29 3A 8E 00 DB 0E 44 02 81 49 B2 31 A4 |),3):....D..I.1.|
000006D0: 4E 3A 54 54 28 49 29 B2 49 3A 82 00 10 0F 4E 02 |N:TT(I).I:....N.|
000006E0: 81 49 B2 31 A4 4E AB 31 3A 53 B2 49 3A 81 4A B2 |.I.1.N.1:S.I:.J.|
000006F0: 49 AA 31 A4 4E 3A 8B 46 58 24 28 54 54 28 4A 29 |I.1.N:.FX$(TT(J)|
00000700: 29 B3 46 58 24 28 54 54 28 53 29 29 A7 53 B2 4A |).FX$(TT(S)).S.J|
00000710: 00 39 0F 58 02 82 4A 3A 8B 53 B3 B1 49 A7 54 B2 |.9.X..J:.S..I.T.|
00000720: 54 54 28 49 29 3A 54 54 28 49 29 B2 54 54 28 53 |TT(I):TT(I).TT(S|
00000730: 29 3A 54 54 28 53 29 B2 54 00 42 0F 62 02 82 49 |):TT(S).T.B.b..I|
00000740: 3A 8E 00 56 0F 6C 02 98 33 2C 22 DD 22 A6 35 32 |:..V.l..3,".".52|
00000750: 29 22 DD 22 3A 8E 00 00 00 |)".":.... |
....Z.."......ALPHA DIRECTORY..E.D..FX$(
256),FT$(256),FL(256),TT(256):N..1:.I.1.
256:FX$(I)."":.:X.221...N.BL$." ":.I.1.4
0:BL$.BL$." ":....X. 15:.15,8,15:.1,8,0,
"$0":.480:.#1,A$,B$.U...W.51:L$."":."LAB
EL STRING";L$.....L$.L$." <<< ".#....C(
L$).22.."LABEL TOO LONG-MAX IS 16 CHARAC
TERS.":.130.O....#1,A$,B$:.#1,A$,B$:C.0:
.A$.."".C.F(A$).I....B$.."".C.C.F(B$).25
6.{. .N.N.1:FL(N).C......#1,B$:.ST..0.26
0......B$..G(34).170.....N$."".R.H..#1,B
$:.B$..G(34).N$.N$.B$:.200...R.FX$(N).N$
......#1,B$:.B$.G(32) . 220.....C$."".(.
..C$.C$.B$:.#1,B$:.B$.."" . 240.E...FT$
(N).H(C$,3):.ST.0.140.`... 1:BF.FL(N):N.
N.1:.580.L... 3:.3,4......3,G(176);:.I.1
.51:.3,G(192);:.:.3,G(174)..."..3,G(X);.
51);G(X)...,.T2$.FX$(0):.L$.."".T2$.T2$.
" (".L$.")"...6.T$.G(X)." >>> ".FX$
(0).$.;..L$."".T$.T$.J(BL$,1,W.C(T$).1):
.330.X.@.K.W.2.C(T$).C(L$):T$.T$.J(BL$,1
,K.1)."(".L$.")".R.J.T$.T$." ".G(X):.3,
T$...T..3,G(X);.51);G(X)...^..3,G(171);:
.I.1.51:.3,G(192);:.:.3,G(179).L.H..3,G(
X);.51);G(X)...R.L.9:K..((N.1).2):.I.1.K
.".|.T$.G(X):J.I:.520:T$.T$." ":J.K.I:.5
20:T$.T$." ".G(X).4....3,T$:L.L.1:..J..
..3,G(X);.51);G(X).P...P..((BF.100.664).
.5):P$.J(D(P),2).....T$.G(X).J(BL$,1,14)
.D(BF)." BLOCKS (".P$." %) FREE".P...T$.
T$.J(BL$,1,W.C(T$).1).G(X):.3,T$......I.
L.27:.3,G(X);.51)G(X)...B...!.L..3,G(173
);:.I.1.51:.3,G(192);:.:.3,G(189).1.V..3
: 3: 15:..L.W..Q$:.Q$."Y".."INSERT NEXT
DISK AND PRESS RETURN":.A:..}.X..Q$.."N
".471...Y........15,ER,ER$:.ER.20...T...
.ER.74.ER.21.ER$.ER$." ---- IS DISK INS
ERTED?":.510.....ER$."DISK ERROR".D(ER).
": ".ER$......ER$:..(...T.TT(J):.T.0.T$.
T$.J(BL$,1,24):..A....FL(T).100.T$.T$."
".Y....FL(T).10.T$.T$." ".|.&.T$.T$.J(D(
FL(T)),2)." ".FX$(T)...0..C(FX$(T)).16.T
$.T$.J(BL$,1,16.C(FX$(T))).F.:.T$.T$." "
.H(FT$(T),3):....D..I.1.N:TT(I).I:....N.
.I.1.N.1:S.I:.J.I.1.N:.FX$(TT(J)).FX$(TT
(S)).S.J.9.X..J:.S..I.T.TT(I):TT(I).TT(S
):TT(S).T.B.B..I:..V.L..3,".".52)".":...
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL