> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2E 08 0A 00 9F 31 35 2C 38 2C 31 35 2C 22 |.......15,8,15,"|
00000010: 49 22 3A A0 31 35 3A 97 31 39 38 2C 2E 3A 8D 33 |I":.15:.198,.:.3|
00000020: 34 30 3A 8B 41 24 B2 22 41 22 A7 33 39 30 00 37 |40:.A$."A".390.7|
00000030: 08 0F 00 89 31 35 30 00 73 08 14 00 99 22 93 11 |....150.s...."..|
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
00000050: 20 D3 4F 52 54 49 4E 47 20 22 3A 53 4B B2 4B 31 | .ORTING ":SK.K1|
00000060: 3A 4C 25 28 4B 31 29 B2 4B 31 3A 52 25 28 31 29 |:L%(K1).K1:R%(1)|
00000070: B2 4E 46 00 93 08 1E 00 4C 31 B2 4C 25 28 53 4B |.NF.....L1.L%(SK|
00000080: 29 3A 52 31 B2 52 25 28 53 4B 29 3A 53 4B B2 53 |):R1.R%(SK):SK.S|
00000090: 4B AB 31 00 B9 08 28 00 4C 32 B2 4C 31 3A 52 32 |K.1...(.L2.L1:R2|
000000A0: B2 52 31 3A 4B 45 24 B2 4E 53 24 28 B5 28 28 4C |.R1:KE$.NS$(.((L|
000000B0: 31 AA 52 31 29 AD 32 29 29 00 E5 08 32 00 4B 45 |1.R1).2))...2.KE|
000000C0: 24 B2 CA 28 4B 45 24 2C 33 31 29 AA CA 28 4B 45 |$..(KE$,31)..(KE|
000000D0: 24 2C 34 2C 4D 25 28 B5 28 28 4C 31 AA 52 31 29 |$,4,M%(.((L1.R1)|
000000E0: AD 32 29 29 29 00 1D 09 3C 00 8B CA 28 4E 53 24 |.2)))...<...(NS$|
000000F0: 28 4C 32 29 2C 33 31 29 AA CA 28 4E 53 24 28 4C |(L2),31)..(NS$(L|
00000100: 32 29 2C 34 2C 4D 25 28 4C 32 29 29 B3 4B 45 24 |2),4,M%(L2)).KE$|
00000110: A7 4C 32 B2 4C 32 AA 4B 31 3A 89 36 30 00 55 09 |.L2.L2.K1:.60.U.|
00000120: 46 00 8B 4B 45 24 B3 CA 28 4E 53 24 28 52 32 29 |F..KE$..(NS$(R2)|
00000130: 2C 33 31 29 AA CA 28 4E 53 24 28 52 32 29 2C 34 |,31)..(NS$(R2),4|
00000140: 2C 4D 25 28 52 32 29 29 A7 52 32 B2 52 32 AB 4B |,M%(R2)).R2.R2.K|
00000150: 31 3A 89 37 30 00 64 09 50 00 8B 4C 32 B1 52 32 |1:.70.d.P..L2.R2|
00000160: A7 31 31 30 00 9A 09 5A 00 4E 24 B2 4E 53 24 28 |.110...Z.N$.NS$(|
00000170: 52 32 29 3A 48 B2 4D 25 28 52 32 29 3A 4E 53 24 |R2):H.M%(R2):NS$|
00000180: 28 52 32 29 B2 4E 53 24 28 4C 32 29 3A 4D 25 28 |(R2).NS$(L2):M%(|
00000190: 52 32 29 B2 4D 25 28 4C 32 29 00 C6 09 64 00 4E |R2).M%(L2)...d.N|
000001A0: 53 24 28 4C 32 29 B2 4E 24 3A 4D 25 28 4C 32 29 |S$(L2).N$:M%(L2)|
000001B0: B2 48 3A 4C 32 B2 4C 32 AA 31 3A 52 32 B2 52 32 |.H:L2.L2.1:R2.R2|
000001C0: AB 31 3A 89 36 30 00 ED 09 6E 00 8B 4C 32 B3 52 |.1:.60...n..L2.R|
000001D0: 31 A7 53 4B B2 53 4B AA 31 3A 4C 25 28 53 4B 29 |1.SK.SK.1:L%(SK)|
000001E0: B2 4C 32 3A 52 25 28 53 4B 29 B2 52 31 00 01 0A |.L2:R%(SK).R1...|
000001F0: 78 00 52 31 B2 52 32 3A 8B 4C 31 B3 52 31 A7 34 |x.R1.R2:.L1.R1.4|
00000200: 30 00 0C 0A 82 00 8B 53 4B A7 33 30 00 12 0A 8C |0......SK.30....|
00000210: 00 8E 00 20 0A 96 00 4E 46 B2 2E 3A 8D 33 30 30 |... ...NF..:.300|
00000220: 00 57 0A A0 00 8D 33 32 30 3A 81 50 50 B2 31 A4 |.W....320:.PP.1.|
00000230: 38 3A 52 24 B2 22 22 3A 46 4C B2 2E 3A 4D 25 28 |8:R$."":FL..:M%(|
00000240: 4E 46 AA 31 29 B2 31 36 3A 81 58 B2 31 A4 33 30 |NF.1).16:.X.1.30|
00000250: 3A A1 23 35 2C 49 24 00 7D 0A AA 00 8B 49 24 B2 |:.#5,I$.}....I$.|
00000260: C7 28 31 36 30 29 AF 46 4C B2 2E A7 4D 25 28 4E |.(160).FL...M%(N|
00000270: 46 AA 31 29 B2 58 AB 34 3A 46 4C B2 31 00 A6 0A |F.1).X.4:FL.1...|
00000280: B4 00 52 24 B2 52 24 AA C8 28 49 24 AA 43 30 24 |..R$.R$..(I$.C0$|
00000290: 2C 31 29 3A 82 3A 8B 50 50 B3 B1 38 A7 A1 23 35 |,1):.:.PP..8..#5|
000002A0: 2C 49 24 2C 49 24 00 D0 0A BE 00 58 24 B2 43 30 |,I$,I$.....X$.C0|
000002B0: 24 3A 8B CA 28 52 24 2C 31 2C 31 29 B2 43 30 24 |$:..(R$,1,1).C0$|
000002C0: A7 58 24 B2 C7 28 32 35 35 29 3A 99 44 44 24 3B |.X$..(255):.DD$;|
000002D0: 00 07 0B C8 00 4E 46 B2 4E 46 AA 31 3A 4E 53 24 |.....NF.NF.1:NS$|
000002E0: 28 4E 46 29 B2 52 24 AA 58 24 3A 99 CA 28 52 24 |(NF).R$.X$:..(R$|
000002F0: 2C 34 2C 31 36 29 3A 82 50 50 3A 8B 59 53 B3 B1 |,4,16):.PP:.YS..|
00000300: 32 35 35 A7 31 36 30 00 12 0B D2 00 A0 35 3A 8D |255.160......5:.|
00000310: 32 30 00 43 0B DC 00 99 59 24 22 20 20 D0 52 45 |20.C....Y$" .RE|
00000320: 53 53 20 12 20 D2 C5 D4 D5 D2 CE 20 92 20 54 4F |SS . ...... . TO|
00000330: 20 52 45 57 52 49 54 45 20 44 49 52 45 43 54 4F | REWRITE DIRECTO|
00000340: 52 59 22 00 70 0B E6 00 A1 41 24 3A 91 28 C2 28 |RY".p....A$:.(.(|
00000350: 35 36 33 32 30 29 B2 31 31 31 29 AA 32 89 32 34 |56320).111).2.24|
00000360: 30 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 32 33 30 |0:.A$...(13).230|
00000370: 00 7E 0B F0 00 8D 33 30 30 3A 4E 4E B2 2E 00 97 |.~....300:NN....|
00000380: 0B FA 00 8D 33 32 30 3A 81 50 50 B2 31 A4 38 3A |....320:.PP.1.8:|
00000390: 4E 4E B2 4E 4E AA 31 00 CB 0B 04 01 98 35 2C CA |NN.NN.1......5,.|
000003A0: 28 4E 53 24 28 4E 4E 29 2C 31 2C 33 30 29 3B 3A |(NS$(NN),1,30);:|
000003B0: 8B CA 28 4E 53 24 28 4E 4E 29 2C 33 31 29 B2 C7 |..(NS$(NN),31)..|
000003C0: 28 32 35 35 29 A7 99 44 44 24 3B 00 F3 0B 0E 01 |(255)..DD$;.....|
000003D0: 99 CA 28 4E 53 24 28 4E 4E 29 2C 34 2C 31 36 29 |..(NS$(NN),4,16)|
000003E0: 3A 8B 50 50 B3 B1 38 A7 98 35 2C 43 30 24 3B 43 |:.PP..8..5,C0$;C|
000003F0: 30 24 3B 00 1B 0C 18 01 82 50 50 3A 98 31 35 2C |0$;......PP:.15,|
00000400: 22 55 32 22 3B 35 3B 30 3B 4C 54 3B 4C 53 3A 8B |"U2";5;0;LT;LS:.|
00000410: 59 53 B3 B1 32 35 35 A7 32 35 30 00 27 0C 22 01 |YS..255.250.'.".|
00000420: A0 35 3A 89 33 36 30 00 56 0C 2C 01 9F 35 2C 38 |.5:.360.V.,..5,8|
00000430: 2C 35 2C 22 23 22 3A 59 54 B2 31 38 3A 59 53 B2 |,5,"#":YT.18:YS.|
00000440: 2E 3A 8D 33 32 30 3A 98 31 35 2C 22 42 2D 50 22 |.:.320:.15,"B-P"|
00000450: 3B 35 3B 31 34 33 00 7D 0C 36 01 99 52 4E 24 3B |;5;143.}.6..RN$;|
00000460: 3A 81 58 B2 31 A4 32 34 3A A1 23 35 2C 49 24 3A |:.X.1.24:.#5,I$:|
00000470: 99 49 24 3B 3A 82 3A 99 52 46 24 3A 8E 00 B8 0C |.I$;:.:.RF$:....|
00000480: 40 01 98 31 35 2C 22 55 31 3A 22 3B 35 3B 30 3B |@..15,"U1:";5;0;|
00000490: 59 54 3B 59 53 3A 4C 54 B2 59 54 3A 4C 53 B2 59 |YT;YS:LT.YT:LS.Y|
000004A0: 53 3A A1 23 35 2C 54 24 2C 53 24 3A 59 54 B2 C6 |S:.#5,T$,S$:YT..|
000004B0: 28 54 24 AA 43 30 24 29 00 CB 0C 4A 01 59 53 B2 |(T$.C0$)...J.YS.|
000004C0: C6 28 53 24 AA 43 30 24 29 3A 8E 00 0F 0D 54 01 |.(S$.C0$):....T.|
000004D0: 58 B2 31 35 30 3A 86 4C 25 28 58 29 2C 4D 25 28 |X.150:.L%(X),M%(|
000004E0: 58 29 2C 52 25 28 58 29 2C 4E 53 24 28 58 29 3A |X),R%(X),NS$(X):|
000004F0: 4B 31 B2 31 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 |K1.1:.15,8,15,"I|
00000500: 22 3A 43 30 24 B2 C7 28 30 29 3A 4E 46 B2 2E 00 |":C0$..(0):NF...|
00000510: 30 0D 59 01 59 24 B2 22 13 11 11 11 11 11 11 11 |0.Y.Y$."........|
00000520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
00000530: 00 68 0D 5E 01 44 44 24 B2 22 97 12 20 20 20 20 |.h.^.DD$.".. |
00000540: 20 20 20 44 45 4C 45 54 45 44 20 20 20 20 20 20 | DELETED |
00000550: 20 20 22 3A 52 4E 24 B2 C7 28 31 38 29 3A 52 46 | ":RN$..(18):RF|
00000560: 24 B2 C7 28 31 34 36 29 00 99 0D 5F 01 99 C7 28 |$..(146)..._...(|
00000570: 31 34 29 C7 28 38 29 22 93 9F 11 20 20 20 20 20 |14).(8)"... |
00000580: 20 20 20 20 20 20 20 12 20 D3 4F 52 54 20 C4 49 | . .ORT .I|
00000590: 52 45 43 54 4F 52 59 20 22 00 E3 0D 60 01 99 22 |RECTORY "...`.."|
000005A0: 11 11 20 20 20 20 20 C9 4E 53 45 52 54 20 44 49 |.. .NSERT DI|
000005B0: 53 4B 20 41 4E 44 20 50 52 45 53 53 20 12 20 D2 |SK AND PRESS . .|
000005C0: C5 D4 D5 D2 CE 20 22 3A 99 22 20 20 20 20 20 20 |..... ":." |
000005D0: 20 20 20 20 20 20 20 20 20 28 41 3D 41 42 4F 52 | (A=ABOR|
000005E0: 54 29 22 00 10 0E 61 01 A1 41 24 3A 91 28 C2 28 |T)"...a..A$:.(.(|
000005F0: 35 36 33 32 30 29 B2 31 31 31 29 AA 32 89 33 35 |56320).111).2.35|
00000600: 34 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 33 35 33 |4:.A$...(13).353|
00000610: 00 1B 0E 62 01 99 22 93 22 3A 8E 00 3E 0E 68 01 |...b..".":..>.h.|
00000620: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000630: 20 20 12 20 C6 49 4E 49 53 48 45 44 20 22 00 66 | . .INISHED ".f|
00000640: 0E 6D 01 99 22 11 20 20 20 20 20 20 20 20 20 D2 |.m..". .|
00000650: 45 4D 4F 56 45 20 44 49 53 4B 20 46 52 4F 4D 20 |EMOVE DISK FROM |
00000660: 44 52 49 56 45 22 00 90 0E 72 01 99 59 24 22 20 |DRIVE"...r..Y$" |
00000670: 20 20 20 20 20 20 20 C4 4F 20 41 4E 4F 54 48 45 | .O ANOTHE|
00000680: 52 3F 20 28 D2 C5 D4 D5 D2 CE 3D 59 45 53 29 22 |R? (......=YES)"|
00000690: 00 B9 0E 77 01 A1 41 24 3A 91 28 C2 28 35 36 33 |...w..A$:.(.(563|
000006A0: 32 30 29 B2 31 31 31 29 AA 32 89 34 33 35 3A 8B |20).111).2.435:.|
000006B0: 41 24 B2 22 22 A7 33 37 35 00 D0 0E 7C 01 8B 41 |A$."".375...|..A|
000006C0: 24 B2 C7 28 31 33 29 B0 41 24 B2 22 59 22 A7 8A |$..(13).A$."Y"..|
000006D0: 00 E1 0E 81 01 8B 41 24 B3 B1 22 4E 22 A7 33 37 |......A$.."N".37|
000006E0: 35 00 F2 0E 86 01 A0 31 35 3A 9F 31 35 2C 38 2C |5......15:.15,8,|
000006F0: 31 35 00 23 0F 8B 01 99 22 93 11 C9 4E 53 45 52 |15.#...."...NSER|
00000700: 54 20 D0 52 4F 47 52 41 4D 20 C4 49 53 4B 20 12 |T .ROGRAM .ISK .|
00000710: D3 49 44 45 20 32 92 20 49 4E 54 4F 20 44 52 49 |.IDE 2. INTO DRI|
00000720: 56 45 22 00 50 0F 90 01 99 59 24 22 20 20 20 20 |VE".P....Y$" |
00000730: 20 20 20 20 D0 52 45 53 53 20 12 20 D2 C5 D4 D5 | .RESS . ....|
00000740: D2 CE 20 92 20 57 48 45 4E 20 52 45 41 44 59 22 |.. . WHEN READY"|
00000750: 00 7D 0F 95 01 A1 41 24 3A 91 28 C2 28 35 36 33 |.}....A$:.(.(563|
00000760: 32 30 29 B2 31 31 31 29 AA 32 89 34 31 30 3A 8B |20).111).2.410:.|
00000770: 41 24 B3 B1 C7 28 31 33 29 A7 34 30 35 00 B2 0F |A$...(13).405...|
00000780: 9A 01 9F 33 2C 38 2C 33 2C 22 30 3A 20 33 37 30 |...3,8,3,"0: 370|
00000790: 22 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 54 2C 53 |":.15,EN,EM$,T,S|
000007A0: 3A 8B 45 4E B1 2E A7 A0 33 3A A0 31 35 3A 89 34 |:.EN....3:.15:.4|
000007B0: 33 30 00 C6 0F 9F 01 A0 33 3A A0 31 35 3A 99 22 |30......3:.15:."|
000007C0: 93 90 11 11 11 22 00 E9 0F A4 01 99 22 4C 4F 41 |....."......"LOA|
000007D0: 44 22 C7 28 33 34 29 22 20 33 37 30 22 C7 28 33 |D".(34)" 370".(3|
000007E0: 34 29 22 2C 38 91 91 91 22 00 1E 10 A9 01 97 36 |4)",8..."......6|
000007F0: 33 31 2C 31 33 3A 97 36 33 32 2C 38 32 3A 97 36 |31,13:.632,82:.6|
00000800: 33 33 2C 38 35 3A 97 36 33 34 2C 37 38 3A 97 36 |33,85:.634,78:.6|
00000810: 33 35 2C 31 33 3A 97 31 39 38 2C 35 3A 80 00 3D |35,13:.198,5:..=|
00000820: 10 AE 01 99 22 93 11 22 3B 45 4D 24 3A 81 58 B2 |...."..";EM$:.X.|
00000830: 31 A4 32 30 30 30 3A 82 3A 89 33 39 30 00 43 10 |1.2000:.:.390.C.|
00000840: B3 01 8A 00 00 00 |...... |
.......15,8,15,"I": 15:.198,.:.340:.A$."
A".390.7....150.S....".. .
SORTING ":SK.K1:L%(K1).K1:R%(1).NF.....
L1.L%(SK):R1.R%(SK):SK.SK.1...(.L2.L1:R2
.R1:KE$.NS$(.((L1.R1).2))...2.KE$.J(KE$,
31).J(KE$,4,M%(.((L1.R1).2)))...<..J(NS$
(L2),31).J(NS$(L2),4,M%(L2)).KE$.L2.L2.K
1:.60.U.F..KE$.J(NS$(R2),31).J(NS$(R2),4
,M%(R2)).R2.R2.K1:.70.D.P..L2.R2.110...Z
.N$.NS$(R2):H.M%(R2):NS$(R2).NS$(L2):M%(
R2).M%(L2).F.D.NS$(L2).N$:M%(L2).H:L2.L2
.1:R2.R2.1:.60...N..L2.R1.SK.SK.1:L%(SK)
.L2:R%(SK).R1...X.R1.R2:.L1.R1.40......S
K.30....... ...NF..:.300.W. ..320:.PP.1.
8:R$."":FL..:M%(NF.1).16:.X.1.30:.#5,I$.
}....I$.G(160).FL...M%(NF.1).X.4:FL.1...
..R$.R$.H(I$.C0$,1):.:.PP..8..#5,I$,I$.P
...X$.C0$:.J(R$,1,1).C0$.X$.G(255):.DD$;
...H.NF.NF.1:NS$(NF).R$.X$:.J(R$,4,16):.
PP:.YS..255.160...R. 5:.20.C....Y$" PRE
SS . RETURN . TO REWRITE DIRECTORY".P...
.A$:.(B(56320).111).2.240:.A$..G(13).230
.~....300:NN........320:.PP.1.8:NN.NN.1.
K....5,J(NS$(NN),1,30);:.J(NS$(NN),31).G
(255)..DD$;......J(NS$(NN),4,16):.PP..8.
.5,C0$;C0$;......PP:.15,"U2";5;0;LT;LS:.
YS..255.250.'.". 5:.360.V.,..5,8,5,"#":Y
T.18:YS..:.320:.15,"B-P";5;143.}.6..RN$;
:.X.1.24:.#5,I$:.I$;:.:.RF$:....@..15,"U
1:";5;0;YT;YS:LT.YT:LS.YS:.#5,T$,S$:YT.F
(T$.C0$).K.J.YS.F(S$.C0$):....T.X.150:.L
%(X),M%(X),R%(X),NS$(X):K1.1:.15,8,15,"I
":C0$.G(0):NF...0.Y.Y$."................
.......".H.^.DD$.".. DELETED
":RN$.G(18):RF$.G(146)..._..G(14)G(8)"
... . SORT DIRECTORY "...`.."
.. INSERT DISK AND PRESS . RETURN ":
." (A=ABORT)"...A..A$:.(B(
56320).111).2.354:.A$..G(13).353...B..".
":..>.H..". . FINISHED ".F
.M..". REMOVE DISK FROM DRIVE"..
.R..Y$" DO ANOTHER? (RETURN=YES)"
...W..A$:.(B(56320).111).2.435:.A$."".37
5.P.|..A$.G(13).A$."Y"........A$.."N".37
5..... 15:.15,8,15.#...."..INSERT PROGRA
M DISK .SIDE 2. INTO DRIVE".P....Y$"
PRESS . RETURN . WHEN READY".}....A$
:.(B(56320).111).2.410:.A$..G(13).405...
...3,8,3,"0: 370":.15,EN,EM$,T,S:.EN...
3: 15:.430.F... 3: 15:."....."......"LOA
D"G(34)" 370"G(34)",8..."......631,13:.6
32,82:.633,85:.634,78:.635,13:.198,5:..=
...."..";EM$:.X.1.2000:.:.390.C.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL