00 SORT
FILE INFORMATION
FILENAME(S): 00 SORT
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-12-01 13:49:22
APPEARS ON: 2 disk(s)
FILE HASH
067109b120c047a7086e037734f63ec843bfa6fe00dc119bd43fc7a42e2c3610
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 7LOB KOP HJ LPPR | 00 SORT | PRG | hedning, Helsinborg | 17 | 0 | DOWNLOAD FILE |
| ARTH RBIT TATI | 00 SORT | PRG | hedning, Helsinborg | 19 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 00 00 97 37 37 35 2C 30 00 2E 08 32 |.......775,0...2| 00000010: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4D |**************.M| 00000030: 08 3C 00 8F 20 2A 20 44 49 52 45 43 54 4F 52 59 |.<.. * DIRECTORY| 00000040: 20 DC 45 52 20 45 4E 4C 49 47 54 20 2A 00 6F 08 | .ER ENLIGT *.o.| 00000050: 46 00 8F 20 2A 20 50 52 41 43 54 49 43 41 4C 20 |F.. * PRACTICAL | 00000060: 43 4F 4D 50 55 54 49 4E 47 20 20 20 20 20 2A 00 |COMPUTING *.| 00000070: 91 08 50 00 8F 20 2A 20 41 50 52 49 4C 20 31 39 |..P.. * APRIL 19| 00000080: 38 34 20 20 20 53 49 44 41 4E 20 31 34 38 20 20 |84 SIDAN 148 | 00000090: 2A 00 B3 08 5A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...Z.. ********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 00 E5 08 64 00 99 22 93 11 11 11 11 11 |***...d.."......| 000000C0: 11 20 20 20 20 20 12 20 20 20 20 20 20 20 20 20 |. . | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 22 00 10 09 6E 00 99 22 20 20 20 20 | "...n.." | 000000F0: 20 12 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 | . DISK DIRECTOR| 00000100: 59 20 53 4F 52 54 20 50 52 4F 47 52 41 4D 20 22 |Y SORT PROGRAM "| 00000110: 00 3B 09 78 00 99 22 20 20 20 20 20 12 20 20 20 |.;.x.." . | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 22 00 66 09 82 00 | ".f...| 00000140: 99 22 20 20 20 20 20 12 20 42 59 20 4C 41 55 52 |." . BY LAUR| 00000150: 49 45 20 46 41 55 4C 4B 4E 45 52 20 4E 4F 56 20 |IE FAULKNER NOV | 00000160: 31 39 38 33 20 22 00 91 09 8C 00 99 22 20 20 20 |1983 "......" | 00000170: 20 20 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000190: 22 00 B3 09 96 00 8D 20 34 35 30 3A 46 24 B2 22 |"...... 450:F$."| 000001A0: 55 4E 53 4F 52 54 45 44 22 3A 8D 34 38 30 3A 8D |UNSORTED":.480:.| 000001B0: 34 35 30 00 D8 09 A0 00 99 22 93 22 3A 54 24 B2 |450......".":T$.| 000001C0: 22 52 45 41 44 49 4E 47 20 46 49 4C 45 4E 41 4D |"READING FILENAM| 000001D0: 45 53 22 3A 8D 35 30 30 00 04 0A AA 00 86 41 24 |ES":.500......A$| 000001E0: 28 31 35 30 29 2C 53 28 32 30 29 3A 53 28 30 29 |(150),S(20):S(0)| 000001F0: B2 31 3A 54 B2 31 38 3A 43 24 B2 C7 28 30 29 AA |.1:T.18:C$..(0).| 00000200: C7 28 30 29 00 29 0A B4 00 4E 24 B2 43 24 AA 43 |.(0).)...N$.C$.C| 00000210: 24 AA 43 24 AA 43 24 AA 43 24 AA 43 24 AA 43 24 |$.C$.C$.C$.C$.C$| 00000220: 3A 4E 24 B2 4E 24 AA 4E 24 00 40 0A BE 00 9F 31 |:N$.N$.N$.@....1| 00000230: 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 35 31 30 |5,8,15,"I0":.510| 00000240: 00 54 0A C8 00 9F 32 2C 38 2C 32 2C 22 23 22 3A |.T....2,8,2,"#":| 00000250: 8D 35 31 30 00 71 0A D2 00 98 31 35 2C 22 55 31 |.510.q....15,"U1| 00000260: 22 3B 32 3B 30 3B 54 3B 53 28 56 29 3A 8D 35 31 |";2;0;T;S(V):.51| 00000270: 30 00 8B 0A DC 00 A1 23 32 2C 54 24 3A 8B 54 24 |0......#2,T$:.T$| 00000280: B2 22 22 A7 54 24 B2 C7 28 30 29 00 A5 0A E6 00 |."".T$..(0).....| 00000290: A1 23 32 2C 53 24 3A 8B 53 24 B2 22 22 A7 53 24 |.#2,S$:.S$."".S$| 000002A0: B2 C7 28 30 29 00 C2 0A F0 00 56 B2 56 AA 31 3A |..(0).....V.V.1:| 000002B0: 54 B2 C6 28 54 24 29 3A 53 28 56 29 B2 C6 28 53 |T..(T$):S(V)..(S| 000002C0: 24 29 00 E4 0A FA 00 81 4A B2 31 A4 38 3A 4B B2 |$)......J.1.8:K.| 000002D0: 4B AA 31 3A 41 24 28 4B 29 B2 22 22 3A 81 49 B2 |K.1:A$(K)."":.I.| 000002E0: 31 A4 33 30 00 FE 0A 04 01 A1 23 32 2C 42 24 3A |1.30......#2,B$:| 000002F0: 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 00 13 |.B$."".B$..(0)..| 00000300: 0B 0E 01 41 24 28 4B 29 B2 41 24 28 4B 29 AA 42 |...A$(K).A$(K).B| 00000310: 24 3A 82 00 2B 0B 18 01 8B 4A B3 B1 38 A7 A1 23 |$:..+....J..8..#| 00000320: 32 2C 58 24 3A A1 23 32 2C 58 24 00 5B 0B 22 01 |2,X$:.#2,X$.[.".| 00000330: 8B C8 28 41 24 28 4B 29 2C 31 29 B2 C7 28 30 29 |..(A$(K),1)..(0)| 00000340: A7 41 24 28 4B 29 B2 22 5A 5A 5A 5A 5A 5A 22 AA |.A$(K)."ZZZZZZ".| 00000350: C9 28 41 24 28 4B 29 2C 32 34 29 00 6A 0B 2C 01 |.(A$(K),24).j.,.| 00000360: 82 3A 8B 54 B1 30 89 32 31 30 00 8A 0B 36 01 54 |.:.T.0.210...6.T| 00000370: 24 B2 22 53 4F 52 54 49 4E 47 20 46 49 4C 45 4E |$."SORTING FILEN| 00000380: 41 4D 45 53 22 3A 8D 35 30 30 00 BE 0B 40 01 4D |AMES":.500...@.M| 00000390: B2 B5 28 4B AD 32 29 3A 81 41 B2 AB 31 A4 30 A9 |..(K.2):.A..1.0.| 000003A0: 30 3A 81 4A B2 31 A4 4B AB 4D 3A 81 48 B2 4A A4 |0:.J.1.K.M:.H.J.| 000003B0: 30 A9 AB 4D 3A 4C B2 48 AA 4D 3A 50 B2 30 00 FD |0..M:L.H.M:P.0..| 000003C0: 0B 4A 01 8B C9 28 41 24 28 48 29 2C 32 37 29 B1 |.J...(A$(H),27).| 000003D0: C9 28 41 24 28 4C 29 2C 32 37 29 A7 5A 24 B2 41 |.(A$(L),27).Z$.A| 000003E0: 24 28 48 29 3A 41 24 28 48 29 B2 41 24 28 4C 29 |$(H):A$(H).A$(L)| 000003F0: 3A 41 24 28 4C 29 B2 5A 24 3A 50 B2 48 00 23 0C |:A$(L).Z$:P.H.#.| 00000400: 54 01 48 B2 50 3A 82 3A 82 3A 4D B2 B5 28 4D AD |T.H.P:.:.:M..(M.| 00000410: 32 29 3A 41 B2 28 4D B1 30 29 3A 82 3A 81 52 B2 |2):A.(M.0):.:.R.| 00000420: 31 A4 4B 00 4A 0C 5E 01 8B C8 28 41 24 28 52 29 |1.K.J.^...(A$(R)| 00000430: 2C 36 29 B2 22 5A 5A 5A 5A 5A 5A 22 A7 41 24 28 |,6)."ZZZZZZ".A$(| 00000440: 52 29 B2 4E 24 3A 89 33 36 30 00 79 0C 68 01 82 |R).N$:.360.y.h..| 00000450: 3A 54 24 B2 22 57 52 49 54 49 4E 47 20 46 49 4C |:T$."WRITING FIL| 00000460: 45 4E 41 4D 45 53 22 3A 8D 35 30 30 3A 4B B2 31 |ENAMES":.500:K.1| 00000470: 3A 56 B2 31 3A 54 B2 31 38 00 90 0C 72 01 98 31 |:V.1:T.18...r..1| 00000480: 35 2C 22 42 2D 50 22 3B 32 2C 30 3A 8D 35 31 30 |5,"B-P";2,0:.510| 00000490: 00 A9 0C 7C 01 8B 53 28 56 29 B2 30 B0 53 28 56 |...|..S(V).0.S(V| 000004A0: 29 B2 32 35 35 A7 54 B2 30 00 BE 0C 86 01 98 32 |).255.T.0......2| 000004B0: 2C C7 28 54 29 3B C7 28 53 28 56 29 29 3B 00 D9 |,.(T);.(S(V));..| 000004C0: 0C 90 01 81 4A B2 31 A4 38 3A 98 32 2C 41 24 28 |....J.1.8:.2,A$(| 000004D0: 4B 29 3B 3A 4B B2 4B AA 31 00 EA 0C 9A 01 8B 4A |K);:K.K.1......J| 000004E0: B3 B1 38 A7 98 32 2C 43 24 3B 00 0C 0D A4 01 82 |..8..2,C$;......| 000004F0: 3A 98 31 35 2C 22 55 32 22 3B 32 3B 30 3B 31 38 |:.15,"U2";2;0;18| 00000500: 3B 53 28 56 AB 31 29 3A 8D 35 31 30 00 21 0D AE |;S(V.1):.510.!..| 00000510: 01 8B 54 B2 31 38 A7 56 B2 56 AA 31 3A 89 33 38 |..T.18.V.V.1:.38| 00000520: 30 00 3B 0D B8 01 A0 32 3A 46 24 B2 22 53 4F 52 |0.;....2:F$."SOR| 00000530: 54 45 44 22 3A 8D 34 38 30 3A 80 00 69 0D C2 01 |TED":.480:..i...| 00000540: 99 22 11 11 20 20 20 20 20 2A 2A 20 50 52 45 53 |.".. ** PRES| 00000550: 53 20 12 52 45 54 55 52 4E 92 20 57 48 45 4E 20 |S .RETURN. WHEN | 00000560: 52 45 41 44 59 20 2A 2A 22 00 80 0D CC 01 A1 41 |READY **"......A| 00000570: 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 89 34 36 30 |$:.A$...(13).460| 00000580: 00 86 0D D6 01 8E 00 A2 0D E0 01 99 22 93 20 20 |............". | 00000590: 20 20 20 20 20 22 46 24 22 20 44 49 53 4B 20 3A | "F$" DISK :| 000005A0: 11 22 00 A8 0D EA 01 8E 00 C0 0D F4 01 99 22 11 |."............".| 000005B0: 11 11 20 20 20 20 20 20 20 20 12 22 54 24 3A 8E |.. ."T$:.| 000005C0: 00 D7 0D FE 01 84 31 35 2C 45 4E 2C 45 4D 24 2C |......15,EN,EM$,| 000005D0: 45 54 24 2C 45 53 24 00 E3 0D 08 02 8B 45 4E B2 |ET$,ES$......EN.| 000005E0: 30 A7 8E 00 FC 0D 12 02 99 22 12 22 45 4E 2C 45 |0........"."EN,E| 000005F0: 4D 24 2C 45 54 24 2C 45 53 24 3A 90 00 00 00 |M$,ET$,ES$:.... |
.......775,0...2.. *********************
******.M.<.. * DIRECTORY .ER ENLIGT *.O.
F.. * PRACTICAL COMPUTING *...P.. *
APRIL 1984 SIDAN 148 *...Z.. ********
*******************...D.."....... .
"...N.."
. DISK DIRECTORY SORT PROGRAM ".;.X.."
. ".F...
." . BY LAURIE FAULKNER NOV 1983 "..
...." .
"...... 450:F$."UNSORTED":.480:.450.X. .
.".":T$."READING FILENAMES":.500......A$
(150),S(20):S(0).1:T.18:C$.G(0).G(0).)..
.N$.C$.C$.C$.C$.C$.C$.C$:N$.N$.N$.@....1
5,8,15,"I0":.510.T.H..2,8,2,"#":.510.Q.R
..15,"U1";2;0;T;S(V):.510......#2,T$:.T$
."".T$.G(0)......#2,S$:.S$."".S$.G(0).B.
..V.V.1:T.F(T$):S(V).F(S$)......J.1.8:K.
K.1:A$(K)."":.I.1.30......#2,B$:.B$."".B
$.G(0).....A$(K).A$(K).B$:..+....J..8..#
2,X$:.#2,X$.[."..H(A$(K),1).G(0).A$(K)."
ZZZZZZ".I(A$(K),24).J.,..:.T.0.210...6.T
$."SORTING FILENAMES":.500...@.M..(K.2):
.A..1.0.0:.J.1.K.M:.H.J.0..M:L.H.M:P.0..
.J..I(A$(H),27).I(A$(L),27).Z$.A$(H):A$(
H).A$(L):A$(L).Z$:P.H.#.T.H.P:.:.:M..(M.
2):A.(M.0):.:.R.1.K.J.^..H(A$(R),6)."ZZZ
ZZZ".A$(R).N$:.360.Y.H..:T$."WRITING FIL
ENAMES":.500:K.1:V.1:T.18...R..15,"B-P";
2,0:.510...|..S(V).0.S(V).255.T.0......2
,G(T);G(S(V));.Y....J.1.8:.2,A$(K);:K.K.
1......J..8..2,C$;......:.15,"U2";2;0;18
;S(V.1):.510.!....T.18.V.V.1:.380.;... 2
:F$."SORTED":.480:..I.B..".. ** PRES
S .RETURN. WHEN READY **"...L..A$:.A$..G
(13).460...V........". "F$" DISK :
."............"... ."T$:..W....15
,EN,EM$,ET$,ES$......EN.0........"."EN,E
M$,ET$,ES$:....
> CLICK IMAGE PREVIEW FOR FULL MODAL