DISK-DIR SORT
FILE INFORMATION
FILENAME(S): DISK-DIR SORT
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:11:48
APPEARS ON: 1 disk(s)
FILE HASH
cd8368bf30173c3be68f9f9d1bc09996e8f2457c8ce85b1a4623a8cf74d55ac1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 3 KANT A | DISK-DIR SORT | PRG | DuncanTwain | 9 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 50 00 8F 22 14 14 14 14 14 14 14 20 |..9.P.."....... | 00000010: 2A 2A 2A 20 4D 4F 44 49 46 49 45 44 20 42 59 20 |*** MODIFIED BY | 00000020: 20 41 20 52 20 26 20 44 20 20 4F 43 54 20 31 39 | A R & D OCT 19| 00000030: 38 34 20 2A 2A 2A 20 20 21 00 7A 08 5A 00 97 35 |84 *** !.z.Z..5| 00000040: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:| 00000050: 97 37 38 38 2C 35 32 3A 99 22 93 05 22 C7 28 31 |.788,52:."..".(1| 00000060: 34 29 3A 55 32 24 B2 22 20 20 20 20 20 20 20 20 |4):U2$." | 00000070: 20 20 20 20 20 20 20 20 20 22 00 9D 08 64 00 86 | "...d..| 00000080: 54 24 28 31 35 32 29 2C 55 24 28 31 35 32 29 2C |T$(152),U$(152),| 00000090: 53 28 31 39 29 2C 48 25 28 31 35 32 29 00 B7 08 |S(19),H%(152)...| 000000A0: 6E 00 53 B2 31 3A 4E 4C 24 B2 C7 28 30 29 3A 9F |n.S.1:NL$..(0):.| 000000B0: 31 35 2C 38 2C 31 35 00 F5 08 78 00 99 22 93 22 |15,8,15...x.."."| 000000C0: A6 31 32 29 22 11 12 C4 49 53 4B 2D C4 49 52 45 |.12)"...ISK-.IRE| 000000D0: 43 54 4F 52 59 20 D3 4F 52 54 22 3A 8F 20 46 4F |CTORY .ORT":. FO| 000000E0: 52 4D 45 52 20 56 45 52 53 49 4F 4E 3D 44 49 53 |RMER VERSION=DIS| 000000F0: 4B 20 41 42 43 00 0B 09 8C 00 99 22 11 11 12 C6 |K ABC......"....| 00000100: 49 4C 45 2D 4E 41 4D 45 20 3A 22 00 21 09 96 00 |ILE-NAME :".!...| 00000110: 9F 32 2C 38 2C 32 2C 22 23 22 3A A1 23 32 2C 58 |.2,8,2,"#":.#2,X| 00000120: 24 00 3D 09 A0 00 45 B2 45 AA 31 3A 53 28 45 29 |$.=...E.E.1:S(E)| 00000130: B2 53 3A 8B 53 B2 32 35 35 A7 32 37 30 00 55 09 |.S:.S.255.270.U.| 00000140: AA 00 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 52 |...15,"U1:";2;DR| 00000150: 3B 31 38 3B 53 00 7D 09 B4 00 98 31 35 2C 22 42 |;18;S.}....15,"B| 00000160: 2D 50 3A 22 3B 32 3B 31 3A A1 23 32 2C 42 24 3A |-P:";2;1:.#2,B$:| 00000170: 8B 42 24 B2 22 22 A7 42 24 B2 4E 4C 24 00 89 09 |.B$."".B$.NL$...| 00000180: BE 00 53 B2 C6 28 42 24 29 00 94 09 C8 00 81 49 |..S..(B$)......I| 00000190: B2 30 A4 37 00 AE 09 D2 00 98 31 35 2C 22 42 2D |.0.7......15,"B-| 000001A0: 50 3A 22 3B 32 3B 28 32 AA 33 32 AC 49 29 00 BA |P:";2;(2.32.I)..| 000001B0: 09 DC 00 81 48 B2 31 A4 33 30 00 D3 09 E6 00 A1 |....H.1.30......| 000001C0: 23 32 2C 46 24 3A 8B 46 24 B2 22 22 A7 46 24 B2 |#2,F$:.F$."".F$.| 000001D0: 4E 4C 24 00 E0 09 F0 00 54 24 B2 54 24 AA 46 24 |NL$.....T$.T$.F$| 000001E0: 00 07 0A FA 00 82 48 3A 54 B2 54 AA 31 3A 54 24 |......H:T.T.1:T$| 000001F0: 28 54 29 B2 54 24 3A 55 24 28 54 29 B2 CA 28 54 |(T).T$:U$(T)..(T| 00000200: 24 2C 34 2C 32 30 29 00 2B 0A FF 00 55 31 24 B2 |$,4,20).+...U1$.| 00000210: C8 28 55 24 28 54 29 AA 55 32 24 2C 31 36 29 3A |.(U$(T).U2$,16):| 00000220: 99 A3 31 33 29 22 91 22 55 31 24 00 3D 0A 04 01 |..13)"."U1$.=...| 00000230: 54 24 B2 22 22 3A 82 49 3A 89 31 36 30 00 56 0A |T$."":.I:.160.V.| 00000240: 0E 01 A0 32 3A 99 22 11 11 12 D0 4C 45 41 53 45 |...2:."....LEASE| 00000250: 20 D7 41 49 54 22 00 6B 0A 18 01 81 49 B2 31 A4 | .AIT".k....I.1.| 00000260: 54 3A 48 25 28 49 29 B2 49 3A 82 00 83 0A 22 01 |T:H%(I).I:....".| 00000270: 53 B2 31 3A 53 4C 28 53 29 B2 53 3A 53 52 28 53 |S.1:SL(S).S:SR(S| 00000280: 29 B2 54 00 9D 0A 2C 01 4C B2 53 4C 28 53 29 3A |).T...,.L.SL(S):| 00000290: 52 B2 53 52 28 53 29 3A 53 B2 53 AB 31 00 A9 0A |R.SR(S):S.S.1...| 000002A0: 36 01 49 B2 4C 3A 4A B2 52 00 BE 0A 40 01 58 B2 |6.I.L:J.R...@.X.| 000002B0: 48 25 28 B5 28 28 4C AA 52 29 AD 32 29 29 00 DE |H%(.((L.R).2))..| 000002C0: 0A 4A 01 8B 55 24 28 48 25 28 49 29 29 B3 55 24 |.J..U$(H%(I)).U$| 000002D0: 28 58 29 A7 49 B2 49 AA 31 3A 89 33 33 30 00 FE |(X).I.I.1:.330..| 000002E0: 0A 54 01 8B 55 24 28 48 25 28 4A 29 29 B1 55 24 |.T..U$(H%(J)).U$| 000002F0: 28 58 29 A7 4A B2 4A AB 31 3A 89 33 34 30 00 0B |(X).J.J.1:.340..| 00000300: 0B 5E 01 8B 49 B1 4A A7 33 37 30 00 37 0B 68 01 |.^..I.J.370.7.h.| 00000310: 57 B2 48 25 28 49 29 3A 48 25 28 49 29 B2 48 25 |W.H%(I):H%(I).H%| 00000320: 28 4A 29 3A 48 25 28 4A 29 B2 57 3A 49 B2 49 AA |(J):H%(J).W:I.I.| 00000330: 31 3A 4A B2 4A AB 31 00 45 0B 72 01 8B 49 B3 B2 |1:J.J.1.E.r..I..| 00000340: 4A A7 33 33 30 00 57 0B 7C 01 8B 4A AB 4C B1 B2 |J.330.W.|..J.L..| 00000350: 52 AB 49 A7 34 31 30 00 76 0B 86 01 8B 49 B3 52 |R.I.410.v....I.R| 00000360: A7 53 B2 53 AA 31 3A 53 4C 28 53 29 B2 49 3A 53 |.S.S.1:SL(S).I:S| 00000370: 52 28 53 29 B2 52 00 83 0B 90 01 52 B2 4A 3A 89 |R(S).R.....R.J:.| 00000380: 34 33 30 00 A2 0B 9A 01 8B 4C B3 4A A7 53 B2 53 |430......L.J.S.S| 00000390: AA 31 3A 53 4C 28 53 29 B2 4C 3A 53 52 28 53 29 |.1:SL(S).L:SR(S)| 000003A0: B2 4A 00 AA 0B A4 01 4C B2 49 00 B7 0B AE 01 8B |.J.....L.I......| 000003B0: 4C B3 52 A7 33 31 30 00 C4 0B B8 01 8B 53 B1 30 |L.R.310......S.0| 000003C0: A7 33 30 30 00 D4 0B C2 01 99 22 91 D3 4F 52 54 |.300......"..ORT| 000003D0: 45 44 20 22 00 F4 0B CC 01 54 52 B2 31 38 3A 45 |ED ".....TR.18:E| 000003E0: B2 30 3A 9F 33 2C 38 2C 33 2C 22 23 22 3A A1 23 |.0:.3,8,3,"#":.#| 000003F0: 33 2C 58 24 00 07 0C D6 01 81 49 B2 31 A4 54 A9 |3,X$......I.1.T.| 00000400: 38 3A 45 B2 45 AA 31 00 1A 0C E0 01 98 31 35 2C |8:E.E.1......15,| 00000410: 22 42 2D 50 3A 22 3B 33 3B 30 00 2F 0C EA 01 8B |"B-P:";3;0./....| 00000420: 53 28 45 AA 31 29 B2 32 35 35 A7 54 52 B2 30 00 |S(E.1).255.TR.0.| 00000430: 47 0C F4 01 98 33 2C C7 28 54 52 29 3B C7 28 53 |G....3,.(TR);.(S| 00000440: 28 45 AA 31 29 29 3B 00 52 0C FE 01 81 4A B2 30 |(E.1));.R....J.0| 00000450: A4 37 00 6C 0C 08 02 98 31 35 2C 22 42 2D 50 3A |.7.l....15,"B-P:| 00000460: 22 3B 33 3B 28 4A AC 33 32 AA 32 29 00 80 0C 12 |";3;(J.32.2)....| 00000470: 02 98 33 2C 54 24 28 48 25 28 49 AA 4A 29 29 3B |..3,T$(H%(I.J));| 00000480: 00 87 0C 1C 02 82 4A 00 9C 0C 26 02 8B 53 28 45 |......J...&..S(E| 00000490: AA 31 29 B2 32 35 35 A7 5A 5A B2 31 00 B7 0C 30 |.1).255.ZZ.1...0| 000004A0: 02 98 31 35 2C 22 55 32 3A 22 3B 33 3B 44 52 3B |..15,"U2:";3;DR;| 000004B0: 31 38 3B 53 28 45 29 00 C5 0C 3A 02 8B 5A 5A B2 |18;S(E)...:..ZZ.| 000004C0: 31 A7 35 39 30 00 CC 0C 44 02 82 49 00 F3 0C 4E |1.590...D..I...N| 000004D0: 02 A0 33 3A A0 31 35 3A 97 37 38 38 2C 34 39 3A |..3:.15:.788,49:| 000004E0: 99 22 93 22 C7 28 31 34 32 29 22 11 11 11 5E 13 |.".".(142)"...^.| 000004F0: 22 3A 80 00 00 00 00 A9 00 |":....... |
..9.P.."....... *** MODIFIED BY A R & D OCT 1984 *** !.Z.Z..53280,0:.53281,0: .788,52:.".."G(14):U2$." "...D..T$(152),U$(152),S(19),H%(152)... N.S.1:NL$.G(0):.15,8,15...X..".".12)"..D ISK-DIRECTORY SORT":. FORMER VERSION=DIS K ABC......"...FILE-NAME :".!....2,8,2," #":.#2,X$.=. .E.E.1:S(E).S:.S.255.270.U. ...15,"U1:";2;DR;18;S.}....15,"B-P:";2;1 :.#2,B$:.B$."".B$.NL$.....S.F(B$)...H..I .0.7...R..15,"B-P:";2;(2.32.I)......H.1. 30.S....#2,F$:.F$."".F$.NL$.....T$.T$.F$ ......H:T.T.1:T$(T).T$:U$(T).J(T$,4,20). +...U1$.H(U$(T).U2$,16):..13)"."U1$.=... T$."":.I:.160.V... 2:."...PLEASE WAIT".K ....I.1.T:H%(I).I:....".S.1:SL(S).S:SR(S ).T...,.L.SL(S):R.SR(S):S.S.1...6.I.L:J. R...@.X.H%(.((L.R).2))...J..U$(H%(I)).U$ (X).I.I.1:.330...T..U$(H%(J)).U$(X).J.J. 1:.340...^..I.J.370.7.H.W.H%(I):H%(I).H% (J):H%(J).W:I.I.1:J.J.1.E.R..I..J.330.W. |..J.L..R.I.410.V....I.R.S.S.1:SL(S).I:S R(S).R.....R.J:.430......L.J.S.S.1:SL(S) .L:SR(S).J.....L.I......L.R.310.D....S.0 .300.T.B..".SORTED "...L.TR.18:E.0:.3,8, 3,"#":.#3,X$...V..I.1.T.8:E.E.1......15, "B-P:";3;0./....S(E.1).255.TR.0.G....3,G (TR);G(S(E.1));.R....J.0.7.L....15,"B-P: ";3;(J.32.2)......3,T$(H%(I.J));......J. ..&..S(E.1).255.ZZ.1...0..15,"U2:";3;DR; 18;S(E).E.:..ZZ.1.590.L.D..I...N. 3: 15: .788,49:."."G(142)"...^.":.......
> CLICK IMAGE PREVIEW FOR FULL MODAL