DISK SORT

FILE INFORMATION

FILENAME(S): DISK SORT

FILE TYPE(S): PRG

FILE SIZE: 1.4K

FIRST SEEN: 2025-10-19 22:48:24

APPEARS ON: 1 disk(s)

FILE HASH

b2253431a0b26eecdfe390a25fe6d9b3cd79cdca22c6a0bc9426cf08ee3d4cad

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
64 UTILITY	DISK SORT	PRG	Radd Maxx	3	16	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0A 08 01 00 8D 35  30 30 00 18 08 0A 00 8D  |.......500......|
00000010: 33 34 30 3A 89 31 35 30  00 41 08 14 00 99 22 11  |340:.150.A....".|
00000020: D3 4F 52 54 49 4E 47 22  3A 53 4B B2 4B 31 3A 4C  |.ORTING":SK.K1:L|
00000030: 25 28 4B 31 29 B2 4B 31  3A 52 25 28 31 29 B2 4E  |%(K1).K1:R%(1).N|
00000040: 46 00 61 08 1E 00 4C 31  B2 4C 25 28 53 4B 29 3A  |F.a...L1.L%(SK):|
00000050: 52 31 B2 52 25 28 53 4B  29 3A 53 4B B2 53 4B AB  |R1.R%(SK):SK.SK.|
00000060: 31 00 87 08 28 00 4C 32  B2 4C 31 3A 52 32 B2 52  |1...(.L2.L1:R2.R|
00000070: 31 3A 4B 45 24 B2 4E 53  24 28 B5 28 28 4C 31 AA  |1:KE$.NS$(.((L1.|
00000080: 52 31 29 AD 32 29 29 00  B3 08 32 00 4B 45 24 B2  |R1).2))...2.KE$.|
00000090: CA 28 4B 45 24 2C 33 31  29 AA CA 28 4B 45 24 2C  |.(KE$,31)..(KE$,|
000000A0: 34 2C 4D 25 28 B5 28 28  4C 31 AA 52 31 29 AD 32  |4,M%(.((L1.R1).2|
000000B0: 29 29 29 00 EB 08 3C 00  8B CA 28 4E 53 24 28 4C  |)))...<...(NS$(L|
000000C0: 32 29 2C 33 31 29 AA CA  28 4E 53 24 28 4C 32 29  |2),31)..(NS$(L2)|
000000D0: 2C 34 2C 4D 25 28 4C 32  29 29 B3 4B 45 24 A7 4C  |,4,M%(L2)).KE$.L|
000000E0: 32 B2 4C 32 AA 4B 31 3A  89 36 30 00 23 09 46 00  |2.L2.K1:.60.#.F.|
000000F0: 8B 4B 45 24 B3 CA 28 4E  53 24 28 52 32 29 2C 33  |.KE$..(NS$(R2),3|
00000100: 31 29 AA CA 28 4E 53 24  28 52 32 29 2C 34 2C 4D  |1)..(NS$(R2),4,M|
00000110: 25 28 52 32 29 29 A7 52  32 B2 52 32 AB 4B 31 3A  |%(R2)).R2.R2.K1:|
00000120: 89 37 30 00 32 09 50 00  8B 4C 32 B1 52 32 A7 31  |.70.2.P..L2.R2.1|
00000130: 31 30 00 68 09 5A 00 4E  24 B2 4E 53 24 28 52 32  |10.h.Z.N$.NS$(R2|
00000140: 29 3A 48 B2 4D 25 28 52  32 29 3A 4E 53 24 28 52  |):H.M%(R2):NS$(R|
00000150: 32 29 B2 4E 53 24 28 4C  32 29 3A 4D 25 28 52 32  |2).NS$(L2):M%(R2|
00000160: 29 B2 4D 25 28 4C 32 29  00 94 09 64 00 4E 53 24  |).M%(L2)...d.NS$|
00000170: 28 4C 32 29 B2 4E 24 3A  4D 25 28 4C 32 29 B2 48  |(L2).N$:M%(L2).H|
00000180: 3A 4C 32 B2 4C 32 AA 31  3A 52 32 B2 52 32 AB 31  |:L2.L2.1:R2.R2.1|
00000190: 3A 89 36 30 00 BB 09 6E  00 8B 4C 32 B3 52 31 A7  |:.60...n..L2.R1.|
000001A0: 53 4B B2 53 4B AA 31 3A  4C 25 28 53 4B 29 B2 4C  |SK.SK.1:L%(SK).L|
000001B0: 32 3A 52 25 28 53 4B 29  B2 52 31 00 CF 09 78 00  |2:R%(SK).R1...x.|
000001C0: 52 31 B2 52 32 3A 8B 4C  31 B3 52 31 A7 34 30 00  |R1.R2:.L1.R1.40.|
000001D0: DA 09 82 00 8B 53 4B A7  33 30 00 E0 09 8C 00 8E  |.....SK.30......|
000001E0: 00 EE 09 96 00 4E 46 B2  30 3A 8D 33 30 30 00 25  |.....NF.0:.300.%|
000001F0: 0A A0 00 8D 33 32 30 3A  81 50 50 B2 31 A4 38 3A  |....320:.PP.1.8:|
00000200: 52 24 B2 22 22 3A 46 4C  B2 30 3A 4D 25 28 4E 46  |R$."":FL.0:M%(NF|
00000210: AA 31 29 B2 31 36 3A 81  58 B2 31 A4 33 30 3A A1  |.1).16:.X.1.30:.|
00000220: 23 35 2C 49 24 00 4B 0A  AA 00 8B 49 24 B2 C7 28  |#5,I$.K....I$..(|
00000230: 31 36 30 29 AF 46 4C B2  30 A7 4D 25 28 4E 46 AA  |160).FL.0.M%(NF.|
00000240: 31 29 B2 58 AB 34 3A 46  4C B2 31 00 74 0A B4 00  |1).X.4:FL.1.t...|
00000250: 52 24 B2 52 24 AA C8 28  49 24 AA 43 30 24 2C 31  |R$.R$..(I$.C0$,1|
00000260: 29 3A 82 3A 8B 50 50 B3  B1 38 A7 A1 23 35 2C 49  |):.:.PP..8..#5,I|
00000270: 24 2C 49 24 00 9E 0A BE  00 58 24 B2 43 30 24 3A  |$,I$.....X$.C0$:|
00000280: 8B CA 28 52 24 2C 31 2C  31 29 B2 43 30 24 A7 58  |..(R$,1,1).C0$.X|
00000290: 24 B2 C7 28 32 35 35 29  3A 99 44 44 24 3B 00 D5  |$..(255):.DD$;..|
000002A0: 0A C8 00 4E 46 B2 4E 46  AA 31 3A 4E 53 24 28 4E  |...NF.NF.1:NS$(N|
000002B0: 46 29 B2 52 24 AA 58 24  3A 99 CA 28 52 24 2C 34  |F).R$.X$:..(R$,4|
000002C0: 2C 31 36 29 3A 82 50 50  3A 8B 59 53 B3 B1 32 35  |,16):.PP:.YS..25|
000002D0: 35 A7 31 36 30 00 E0 0A  D2 00 A0 35 3A 8D 32 30  |5.160......5:.20|
000002E0: 00 0F 0B DC 00 99 22 11  D0 52 45 53 53 20 53 50  |......"..RESS SP|
000002F0: 41 43 45 20 42 41 52 20  54 4F 20 52 45 2D 57 52  |ACE BAR TO RE-WR|
00000300: 49 54 45 20 44 49 52 45  43 54 4F 52 59 2E 22 00  |ITE DIRECTORY.".|
00000310: 24 0B E6 00 A1 41 24 3A  8B 41 24 B3 B1 22 20 22  |$....A$:.A$.." "|
00000320: A7 32 33 30 00 32 0B F0  00 8D 33 30 30 3A 4E 4E  |.230.2....300:NN|
00000330: B2 30 00 4B 0B FA 00 8D  33 32 30 3A 81 50 50 B2  |.0.K....320:.PP.|
00000340: 31 A4 38 3A 4E 4E B2 4E  4E AA 31 00 7F 0B 04 01  |1.8:NN.NN.1.....|
00000350: 98 35 2C CA 28 4E 53 24  28 4E 4E 29 2C 31 2C 33  |.5,.(NS$(NN),1,3|
00000360: 30 29 3B 3A 8B CA 28 4E  53 24 28 4E 4E 29 2C 33  |0);:..(NS$(NN),3|
00000370: 31 29 B2 C7 28 32 35 35  29 A7 99 44 44 24 3B 00  |1)..(255)..DD$;.|
00000380: A7 0B 0E 01 99 CA 28 4E  53 24 28 4E 4E 29 2C 34  |......(NS$(NN),4|
00000390: 2C 31 36 29 3A 8B 50 50  B3 B1 38 A7 98 35 2C 43  |,16):.PP..8..5,C|
000003A0: 30 24 3B 43 30 24 3B 00  CF 0B 18 01 82 50 50 3A  |0$;C0$;......PP:|
000003B0: 98 31 35 2C 22 55 32 22  3B 35 3B 30 3B 4C 54 3B  |.15,"U2";5;0;LT;|
000003C0: 4C 53 3A 8B 59 53 B3 B1  32 35 35 A7 32 35 30 00  |LS:.YS..255.250.|
000003D0: D8 0B 22 01 A0 35 3A 80  00 0E 0C 2C 01 9F 35 2C  |.."..5:....,..5,|
000003E0: 38 2C 35 2C 22 23 22 3A  59 54 B2 31 38 3A 59 53  |8,5,"#":YT.18:YS|
000003F0: B2 30 3A 8D 33 32 30 3A  98 31 35 2C 22 42 2D 50  |.0:.320:.15,"B-P|
00000400: 22 3B 35 3B 31 34 33 3A  99 C7 28 31 34 29 00 35  |";5;143:..(14).5|
00000410: 0C 36 01 99 52 4E 24 3B  3A 81 58 B2 31 A4 32 34  |.6..RN$;:.X.1.24|
00000420: 3A A1 23 35 2C 49 24 3A  99 49 24 3B 3A 82 3A 99  |:.#5,I$:.I$;:.:.|
00000430: 52 46 24 3A 8E 00 6F 0C  40 01 98 31 35 2C 22 55  |RF$:..o.@..15,"U|
00000440: 31 22 3B 35 3B 30 3B 59  54 3B 59 53 3A 4C 54 B2  |1";5;0;YT;YS:LT.|
00000450: 59 54 3A 4C 53 B2 59 53  3A A1 23 35 2C 54 24 2C  |YT:LS.YS:.#5,T$,|
00000460: 53 24 3A 59 54 B2 C6 28  54 24 AA 43 30 24 29 00  |S$:YT..(T$.C0$).|
00000470: 82 0C 4A 01 59 53 B2 C6  28 53 24 AA 43 30 24 29  |..J.YS..(S$.C0$)|
00000480: 3A 8E 00 C6 0C 54 01 58  B2 31 35 30 3A 86 4C 25  |:....T.X.150:.L%|
00000490: 28 58 29 2C 4D 25 28 58  29 2C 52 25 28 58 29 2C  |(X),M%(X),R%(X),|
000004A0: 4E 53 24 28 58 29 3A 4B  31 B2 31 3A 9F 31 35 2C  |NS$(X):K1.1:.15,|
000004B0: 38 2C 31 35 2C 22 49 22  3A 43 30 24 B2 C7 28 30  |8,15,"I":C0$..(0|
000004C0: 29 3A 4E 46 B2 30 00 FE  0C 5E 01 44 44 24 B2 22  |):NF.0...^.DD$."|
000004D0: 3A 3A 3A 3A 3A 3A 3A 3A  3A 3A 3A 3A 3A 3A 44 45  |::::::::::::::DE|
000004E0: 4C 45 54 45 44 A6 22 3A  52 4E 24 B2 C7 28 31 38  |LETED.":RN$..(18|
000004F0: 29 3A 52 46 24 B2 C7 28  31 34 36 29 3A 8E 00 3C  |):RF$..(146):..<|
00000500: 0D F4 01 97 35 33 32 38  30 2C 30 3A 97 35 33 32  |....53280,0:.532|
00000510: 38 31 2C 30 3A 99 22 95  93 50 55 54 20 49 4E 20  |81,0:."..PUT IN |
00000520: 44 49 53 4B 20 54 48 41  54 20 59 4F 55 20 57 49  |DISK THAT YOU WI|
00000530: 53 48 20 54 4F 20 53 4F  52 54 2E 22 00 5E 0D F6  |SH TO SORT.".^..|
00000540: 01 99 22 11 11 54 48 45  4E 20 48 49 54 20 46 31  |.."..THEN HIT F1|
00000550: 20 54 4F 20 43 4F 4E 54  49 4E 55 45 2E 22 00 71  | TO CONTINUE.".q|
00000560: 0D F8 01 A1 56 24 3A 8B  56 24 B2 22 22 A7 35 30  |....V$:.V$."".50|
00000570: 34 00 81 0D F9 01 8B 56  24 B2 22 85 22 A7 89 31  |4......V$."."..1|
00000580: 30 00 8A 0D FA 01 89 35  30 30 00 90 0D FB 01 80  |0......500......|
00000590: 00 00 00                                          |...             |

.......500......340:.150.A....".SORTING"
:SK.K1:L%(K1).K1:R%(1).NF.A...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.K1:.60.#.F.
.KE$.J(NS$(R2),31).J(NS$(R2),4,M%(R2)).R
2.R2.K1:.70.2.P..L2.R2.110.H.Z.N$.NS$(R2
):H.M%(R2):NS$(R2).NS$(L2):M%(R2).M%(L2)
...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.O.X.R1.R2:.L1.R1.40.Z....SK.30......
.....NF.0:.300.%. ..320:.PP.1.8:R$."":FL
.0:M%(NF.1).16:.X.1.30:.#5,I$.K....I$.G(
160).FL.0.M%(NF.1).X.4:FL.1.T...R$.R$.H(
I$.C0$,1):.:.PP..8..#5,I$,I$.....X$.C0$:
.J(R$,1,1).C0$.X$.G(255):.DD$;.U.H.NF.NF
.1:NS$(NF).R$.X$:.J(R$,4,16):.PP:.YS..25
5.160...R. 5:.20......".PRESS SPACE BAR 
TO RE-WRITE DIRECTORY.".$....A$:.A$.." "
.230.2....300:NN.0.K....320:.PP.1.8:NN.N
N.1.....5,J(NS$(NN),1,30);:.J(NS$(NN),3
1).G(255)..DD$;......J(NS$(NN),4,16):.PP
..8..5,C0$;C0$;.O....PP:.15,"U2";5;0;LT;
LS:.YS..255.250.X.". 5:....,..5,8,5,"#":
YT.18:YS.0:.320:.15,"B-P";5;143:.G(14).5
.6..RN$;:.X.1.24:.#5,I$:.I$;:.:.RF$:..O.
@..15,"U1";5;0;YT;YS:LT.YT:LS.YS:.#5,T$,
S$:YT.F(T$.C0$)...J.YS.F(S$.C0$):..F.T.X
.150:.L%(X),M%(X),R%(X),NS$(X):K1.1:.15,
8,15,"I":C0$.G(0):NF.0...^.DD$."::::::::
::::::DELETED.":RN$.G(18):RF$.G(146):..<
....53280,0:.53281,0:."..PUT IN DISK THA
T YOU WISH TO SORT.".^...."..THEN HIT F1
 TO CONTINUE.".Q....V$:.V$."".504......V
$."."..10......500.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL