DISK SORTER
FILE INFORMATION
FILENAME(S): DISK SORTER
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 21:05:28
APPEARS ON: 2 disk(s)
FILE HASH
559bff17ed9065dd27961d56c747795016e1825efa7d852d526143bebc6edeaa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE BRUIN 12B | DISK SORTER | PRG | DuncanTwain | 5 | 11 | DOWNLOAD FILE |
| QST DE WB4ZOJ | DISK SORTER | PRG | DuncanTwain | 5 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 C7 28 33 30 29 00 27 |53281,0:..(30).'|
00000020: 08 01 00 8D 31 31 38 00 4F 08 02 00 8F 20 2A 2A |....118.O.... **|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000050: 77 08 03 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |w.... * |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 2A 00 9F 08 04 00 8F 20 2A 20 | *...... * |
00000080: 20 20 20 20 20 20 20 53 20 4F 20 52 20 54 20 44 | S O R T D|
00000090: 20 49 20 52 20 20 20 20 20 20 20 20 20 20 2A 00 | I R *.|
000000A0: C7 08 05 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 2A 00 EF 08 06 00 8F 20 2A 20 | *...... * |
000000D0: 56 45 52 20 31 2E 30 20 28 43 29 20 31 39 38 33 |VER 1.0 (C) 1983|
000000E0: 20 42 59 20 43 48 52 49 53 44 4F 53 20 20 2A 00 | BY CHRISDOS *.|
000000F0: 17 09 07 00 8F 20 2A 20 44 4F 4E 41 54 45 44 20 |..... * DONATED |
00000100: 54 4F 20 54 48 45 20 50 55 42 4C 49 43 20 44 4F |TO THE PUBLIC DO|
00000110: 4D 41 49 4E 20 20 2A 00 3F 09 08 00 8F 20 2A 20 |MAIN *.?.... * |
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 20 20 20 20 2A 00 | *.|
00000140: 67 09 09 00 8F 20 2A 20 20 20 20 20 51 55 49 43 |g.... * QUIC|
00000150: 4B 53 4F 52 54 20 41 44 44 45 44 20 42 59 3A 20 |KSORT ADDED BY: |
00000160: 20 20 20 20 20 20 2A 00 8E 09 0A 00 8F 2A 20 20 | *......* |
00000170: 20 20 20 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 2A 00 B5 | *..|
00000190: 09 0B 00 8F 2A 20 20 20 20 20 20 4C 4C 4F 59 44 |....* LLOYD|
000001A0: 20 57 2E 20 44 55 4C 4C 20 49 49 49 20 20 20 20 | W. DULL III |
000001B0: 20 20 20 20 2A 00 DC 09 0C 00 8F 2A 20 20 20 20 | *......* |
000001C0: 20 20 41 4B 52 4F 4E 2C 20 4F 48 49 4F 20 34 34 | AKRON, OHIO 44|
000001D0: 33 31 32 20 20 20 20 20 20 20 20 2A 00 03 0A 0D |312 *....|
000001E0: 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |..* |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 2A 00 2A 0A 0E 00 8F 2A 2A 2A 2A 2A 2A 2A | *.*....*******|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 0A 0F 00 8F |**********.P....|
00000230: 20 20 20 54 48 49 53 20 55 54 49 4C 49 54 59 20 | THIS UTILITY |
00000240: 46 4F 52 20 54 48 45 20 43 36 34 20 57 49 4C 4C |FOR THE C64 WILL|
00000250: 00 71 0A 10 00 8F 20 20 20 53 4F 52 54 20 54 48 |.q.... SORT TH|
00000260: 45 20 44 49 53 4B 20 52 45 54 55 52 4E 20 41 4E |E DISK RETURN AN|
00000270: 44 00 94 0A 11 00 8F 20 20 20 57 52 49 54 45 20 |D...... WRITE |
00000280: 49 54 20 42 41 43 4B 20 54 4F 20 54 48 45 20 44 |IT BACK TO THE D|
00000290: 49 53 4B 2E 00 B7 0A 12 00 8F 20 20 20 49 4E 20 |ISK....... IN |
000002A0: 41 44 44 49 54 49 4F 4E 2C 20 49 54 20 57 49 4C |ADDITION, IT WIL|
000002B0: 4C 20 47 52 4F 55 50 00 D7 0A 13 00 8F 20 20 20 |L GROUP...... |
000002C0: 46 49 4C 45 53 20 54 4F 47 45 54 48 45 52 20 42 |FILES TOGETHER B|
000002D0: 59 20 54 59 50 45 2E 00 FB 0A 14 00 8F 20 20 20 |Y TYPE....... |
000002E0: 53 49 4D 50 4C 59 20 52 55 4E 20 54 48 49 53 20 |SIMPLY RUN THIS |
000002F0: 50 52 4F 47 52 41 4D 2E 20 4E 4F 00 1A 0B 15 00 |PROGRAM. NO.....|
00000300: 8F 20 20 20 4F 54 48 45 52 20 49 4E 50 55 54 20 |. OTHER INPUT |
00000310: 49 53 20 4E 45 45 44 45 44 2E 00 20 0B 16 00 8F |IS NEEDED.. ....|
00000320: 00 3E 0B 17 00 8F 20 20 20 2D 43 48 52 49 53 44 |.>.... -CHRISD|
00000330: 4F 53 20 5B 37 30 30 30 31 2C 37 36 36 5D 00 64 |OS [70001,766].d|
00000340: 0B 18 00 8F 20 20 20 2D 4C 4C 4F 59 44 20 57 2E |.... -LLOYD W.|
00000350: 20 44 55 4C 4C 20 49 49 49 20 5B 37 34 35 35 2C | DULL III [7455,|
00000360: 37 33 36 5D 00 6A 0B 19 00 8F 00 97 0B 1A 00 99 |736].j..........|
00000370: C7 28 31 34 37 29 3A 99 3A 99 3A 99 A6 39 29 22 |.(147):.:.:..9)"|
00000380: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 20 |DISK DIRECTORY |
00000390: 53 4F 52 54 45 52 22 00 AF 0B 1B 00 99 A6 31 34 |SORTER".......14|
000003A0: 29 22 42 59 20 20 43 48 52 49 53 44 4F 53 22 00 |)"BY CHRISDOS".|
000003B0: D7 0B 1C 00 99 3A 99 22 20 20 20 20 20 20 20 20 |.....:." |
000003C0: 20 20 20 51 55 49 43 4B 53 4F 52 54 20 41 44 44 | QUICKSORT ADD|
000003D0: 45 44 20 42 59 3A 22 00 FE 0B 1D 00 99 3A 99 22 |ED BY:"......:."|
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 4C 4C 4F 59 | LLOY|
000003F0: 44 20 57 2E 20 44 55 4C 4C 20 49 49 49 22 00 2E |D W. DULL III"..|
00000400: 0C 1E 00 99 3A 99 22 20 20 42 55 54 54 45 52 46 |....:." BUTTERF|
00000410: 49 45 4C 44 27 53 20 53 54 52 49 4E 47 20 54 48 |IELD'S STRING TH|
00000420: 49 4E 47 20 41 44 44 45 44 20 46 4F 52 22 00 5B |ING ADDED FOR".[|
00000430: 0C 1F 00 99 22 20 20 20 20 53 50 45 45 44 49 45 |...." SPEEDIE|
00000440: 52 20 52 45 41 44 49 4E 47 20 4F 46 20 54 48 45 |R READING OF THE|
00000450: 20 44 49 52 45 43 54 4F 52 59 22 00 88 0C 20 00 | DIRECTORY"... .|
00000460: 99 3A 99 22 20 20 20 20 20 20 20 50 4C 41 43 45 |.:." PLACE|
00000470: 20 44 49 53 4B 20 54 4F 20 42 45 20 53 4F 52 54 | DISK TO BE SORT|
00000480: 45 44 20 49 4E 54 4F 22 00 C2 0C 21 00 99 22 20 |ED INTO"...!.." |
00000490: 20 20 20 20 20 20 44 52 49 56 45 20 30 20 41 4E | DRIVE 0 AN|
000004A0: 44 20 50 52 45 53 53 20 22 C7 28 31 38 29 22 53 |D PRESS ".(18)"S|
000004B0: 48 49 46 54 22 C7 28 31 34 36 29 22 20 4B 45 59 |HIFT".(146)" KEY|
000004C0: 2E 22 00 E3 0C 22 00 92 36 35 33 2C 31 3A 20 8F |."..."..653,1: .|
000004D0: 20 54 45 53 54 20 46 4F 52 20 53 48 49 46 54 20 | TEST FOR SHIFT |
000004E0: 4B 45 59 00 01 0D 23 00 86 20 44 52 24 28 31 34 |KEY...#.. DR$(14|
000004F0: 35 29 2C 53 28 32 30 29 2C 4E 4D 24 28 31 34 35 |5),S(20),NM$(145|
00000500: 29 00 28 0D 24 00 8F 20 2A 2A 2A 2A 2A 2A 2A 20 |).(.$.. ******* |
00000510: 52 45 41 44 20 44 49 52 45 43 54 4F 52 59 20 46 |READ DIRECTORY F|
00000520: 52 4F 4D 20 44 49 53 4B 00 3E 0D 25 00 9F 31 35 |ROM DISK.>.%..15|
00000530: 2C 38 2C 31 35 3A 98 31 35 2C 22 49 30 22 00 7E |,8,15:.15,"I0".~|
00000540: 0D 26 00 A0 35 3A 9F 35 2C 38 2C 35 2C 22 23 22 |.&..5:.5,8,5,"#"|
00000550: 3A 53 28 31 29 B2 31 3A 44 45 B2 30 3A 49 B2 31 |:S(1).1:DE.0:I.1|
00000560: 3A 8F 20 53 45 43 54 4F 52 20 31 2C 20 44 49 52 |:. SECTOR 1, DIR|
00000570: 45 43 54 4F 52 59 20 45 4E 54 52 59 20 30 00 9E |ECTORY ENTRY 0..|
00000580: 0D 27 00 98 31 35 2C 22 55 31 3A 22 3B 35 3B 30 |.'..15,"U1:";5;0|
00000590: 3B 31 38 3B 53 28 49 29 3A 49 B2 49 AA 31 00 C0 |;18;S(I):I.I.1..|
000005A0: 0D 28 00 A1 23 35 2C 54 24 3A A1 23 35 2C 53 24 |.(..#5,T$:.#5,S$|
000005B0: 3A 53 28 49 29 B2 C6 28 53 24 AA C7 28 30 29 29 |:S(I)..(S$..(0))|
000005C0: 00 DE 0D 29 00 81 51 B2 31 A4 38 3A 44 45 B2 44 |...)..Q.1.8:DE.D|
000005D0: 45 AA 31 3A 44 52 24 28 44 45 29 B2 22 22 00 F2 |E.1:DR$(DE).""..|
000005E0: 0D 2A 00 9E 38 39 36 3A 44 52 24 28 44 45 29 B2 |.*..896:DR$(DE).|
000005F0: 41 24 00 08 0E 2B 00 8B 51 B3 B1 38 A7 A1 23 35 |A$...+..Q..8..#5|
00000600: 2C 4E 47 24 2C 4E 47 24 00 1D 0E 2C 00 82 20 51 |,NG$,NG$...,.. Q|
00000610: 3A 8B 53 28 49 29 B3 32 31 A7 89 33 39 00 24 0E |:.S(I).21..39.$.|
00000620: 2D 00 A0 35 00 34 0E 2E 00 8B 44 45 B1 34 38 A7 |-..5.4....DE.48.|
00000630: 50 47 B2 31 00 50 0E 2F 00 8D 31 31 33 3A 8F 20 |PG.1.P./..113:. |
00000640: 50 52 49 4E 54 20 54 48 45 20 52 45 54 55 52 4E |PRINT THE RETURN|
00000650: 00 73 0E 30 00 99 22 43 4F 4E 56 45 52 54 49 4E |.s.0.."CONVERTIN|
00000660: 47 20 46 49 4C 45 20 4E 41 4D 45 53 2E 2E 2E 2E |G FILE NAMES....|
00000670: 2E 2E 22 00 9D 0E 31 00 81 20 58 B2 31 A4 44 45 |.."...1.. X.1.DE|
00000680: 3A 8F 20 4C 4F 4F 50 20 54 4F 20 43 4F 4E 56 45 |:. LOOP TO CONVE|
00000690: 52 54 20 46 49 4C 45 20 4E 41 4D 45 53 00 E1 0E |RT FILE NAMES...|
000006A0: 32 00 4E 4D 24 28 58 29 B2 C8 28 44 52 24 28 58 |2.NM$(X)..(DR$(X|
000006B0: 29 2C 31 29 AA CA 28 44 52 24 28 58 29 2C 34 2C |),1)..(DR$(X),4,|
000006C0: 31 36 29 3A 8F 20 50 55 54 20 46 49 4C 45 20 54 |16):. PUT FILE T|
000006D0: 59 50 45 20 42 59 54 45 20 49 4E 20 46 52 4F 4E |YPE BYTE IN FRON|
000006E0: 54 00 14 0F 33 00 81 50 B2 32 A4 31 37 3A 8F 20 |T...3..P.2.17:. |
000006F0: 4C 4F 4F 50 20 54 4F 20 48 41 43 4B 20 53 48 49 |LOOP TO HACK SHI|
00000700: 46 54 45 44 20 53 50 41 43 45 53 20 46 52 4F 4D |FTED SPACES FROM|
00000710: 20 45 4E 44 00 49 0F 34 00 8B CA 28 4E 4D 24 28 | END.I.4...(NM$(|
00000720: 58 29 2C 50 2C 31 29 B2 C7 28 31 36 30 29 A7 4E |X),P,1)..(160).N|
00000730: 4D 24 28 58 29 B2 CA 28 4E 4D 24 28 58 29 2C 31 |M$(X)..(NM$(X),1|
00000740: 2C 50 AB 31 29 3A 89 35 34 00 51 0F 35 00 82 20 |,P.1):.54.Q.5.. |
00000750: 50 00 59 0F 36 00 82 20 58 00 6D 0F 37 00 8F 2A |P.Y.6.. X.m.7..*|
00000760: 2A 2A 2A 20 51 55 49 43 4B 53 4F 52 54 00 81 0F |*** QUICKSORT...|
00000770: 38 00 99 22 53 4F 52 54 49 4E 47 2E 2E 2E 2E 2E |8.."SORTING.....|
00000780: 22 00 8A 0F 39 00 53 31 B2 31 00 95 0F 3A 00 4C |"...9.S1.1...:.L|
00000790: 28 31 29 B2 31 00 A1 0F 3B 00 52 28 31 29 B2 44 |(1).1...;.R(1).D|
000007A0: 45 00 AE 0F 3C 00 4C 31 B2 4C 28 53 31 29 00 BB |E...<.L1.L(S1)..|
000007B0: 0F 3D 00 52 31 B2 52 28 53 31 29 00 C7 0F 3E 00 |.=.R1.R(S1)...>.|
000007C0: 53 31 B2 53 31 AB 31 00 D1 0F 3F 00 4C 32 B2 4C |S1.S1.1...?.L2.L|
000007D0: 31 00 DB 0F 40 00 52 32 B2 52 31 00 F4 0F 41 00 |1...@.R2.R1...A.|
000007E0: 58 24 B2 4E 4D 24 28 B5 28 28 4C 31 AA 52 31 29 |X$.NM$(.((L1.R1)|
000007F0: AD 32 29 29 00 FE 0F 42 00 43 B2 43 AA 31 00 13 |.2))...B.C.C.1..|
00000800: 10 43 00 8B 4E 4D 24 28 4C 32 29 B1 B2 58 24 A7 |.C..NM$(L2)..X$.|
00000810: 89 37 30 00 1F 10 44 00 4C 32 B2 4C 32 AA 31 00 |.70...D.L2.L2.1.|
00000820: 27 10 45 00 89 36 36 00 30 10 46 00 43 B2 43 31 |'.E..66.0.F.C.C1|
00000830: 00 45 10 47 00 8B 58 24 B1 B2 4E 4D 24 28 52 32 |.E.G..X$..NM$(R2|
00000840: 29 A7 89 37 34 00 51 10 48 00 52 32 B2 52 32 AB |)..74.Q.H.R2.R2.|
00000850: 31 00 59 10 49 00 89 37 30 00 68 10 4A 00 8B 4C |1.Y.I..70.h.J..L|
00000860: 32 B1 52 32 A7 89 38 30 00 72 10 4B 00 53 B2 53 |2.R2..80.r.K.S.S|
00000870: AA 31 00 9C 10 4C 00 54 24 B2 44 52 24 28 4C 32 |.1...L.T$.DR$(L2|
00000880: 29 3A 44 52 24 28 4C 32 29 B2 44 52 24 28 52 32 |):DR$(L2).DR$(R2|
00000890: 29 3A 44 52 24 28 52 32 29 B2 54 24 00 C6 10 4D |):DR$(R2).T$...M|
000008A0: 00 54 24 B2 4E 4D 24 28 4C 32 29 3A 4E 4D 24 28 |.T$.NM$(L2):NM$(|
000008B0: 4C 32 29 B2 4E 4D 24 28 52 32 29 3A 4E 4D 24 28 |L2).NM$(R2):NM$(|
000008C0: 52 32 29 B2 54 24 00 D2 10 4E 00 4C 32 B2 4C 32 |R2).T$...N.L2.L2|
000008D0: AA 31 00 DE 10 4F 00 52 32 B2 52 32 AB 31 00 EE |.1...O.R2.R2.1..|
000008E0: 10 50 00 8B 4C 32 B3 B2 52 32 A7 89 36 36 00 FE |.P..L2..R2..66..|
000008F0: 10 51 00 8B 4C 32 B1 B2 52 31 A7 89 38 35 00 0A |.Q..L2..R1..85..|
00000900: 11 52 00 53 31 B2 53 31 AA 31 00 17 11 53 00 4C |.R.S1.S1.1...S.L|
00000910: 28 53 31 29 B2 4C 32 00 24 11 54 00 52 28 53 31 |(S1).L2.$.T.R(S1|
00000920: 29 B2 52 31 00 2E 11 55 00 52 31 B2 52 32 00 3D |).R1...U.R1.R2.=|
00000930: 11 56 00 8B 4C 31 B3 52 31 A7 89 36 33 00 4B 11 |.V..L1.R1..63.K.|
00000940: 57 00 8B 53 31 B1 30 A7 89 36 30 00 60 11 58 00 |W..S1.0..60.`.X.|
00000950: 8F 2A 2A 2A 20 45 4E 44 20 53 4F 52 54 49 4E 47 |.*** END SORTING|
00000960: 00 82 11 59 00 8D 31 31 33 3A 8F 20 50 52 49 4E |...Y..113:. PRIN|
00000970: 54 20 54 48 45 20 53 4F 52 54 45 44 20 4E 41 4D |T THE SORTED NAM|
00000980: 45 53 00 A1 11 5A 00 8F 2A 2A 2A 20 57 52 49 54 |ES...Z..*** WRIT|
00000990: 45 20 4E 45 57 20 44 49 52 20 54 4F 20 44 49 53 |E NEW DIR TO DIS|
000009A0: 4B 00 C0 11 5B 00 A0 35 3A A0 31 35 3A 9F 31 35 |K...[..5:.15:.15|
000009B0: 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 23 22 |,8,15:.5,8,5,"#"|
000009C0: 00 ED 11 5C 00 57 B2 49 AB 31 3A 44 57 B2 30 3A |...\.W.I.1:DW.0:|
000009D0: 8F 20 57 3D 4E 55 4D 42 45 52 20 4F 46 20 42 4C |. W=NUMBER OF BL|
000009E0: 4F 43 4B 53 20 54 4F 20 57 52 49 54 45 00 32 12 |OCKS TO WRITE.2.|
000009F0: 5D 00 81 20 49 B2 31 A4 57 3A 98 31 35 2C 22 42 |].. I.1.W:.15,"B|
00000A00: 2D 50 3A 22 3B 35 3B 30 3A 8F 20 4C 4F 4F 50 20 |-P:";5;0:. LOOP |
00000A10: 54 4F 20 57 52 49 54 45 2E 20 46 4F 52 43 45 20 |TO WRITE. FORCE |
00000A20: 42 55 46 20 50 4F 49 4E 54 20 54 4F 20 42 45 47 |BUF POINT TO BEG|
00000A30: 49 4E 00 71 12 5E 00 54 54 B2 31 38 3A 8B 53 28 |IN.q.^.TT.18:.S(|
00000A40: 49 AA 31 29 B2 32 35 35 A7 54 54 B2 30 3A 8F 20 |I.1).255.TT.0:. |
00000A50: 54 52 41 43 4B 20 23 20 54 4F 20 57 52 49 54 45 |TRACK # TO WRITE|
00000A60: 2E 20 30 20 49 46 20 4C 41 53 54 20 42 4C 4F 43 |. 0 IF LAST BLOC|
00000A70: 4B 00 A9 12 5F 00 98 35 2C C7 28 54 54 29 3B C7 |K..._..5,.(TT);.|
00000A80: 28 53 28 49 AA 31 29 29 3B 3A 8F 20 50 55 54 20 |(S(I.1));:. PUT |
00000A90: 54 48 45 20 54 52 41 43 4B 20 41 4E 44 20 4E 45 |THE TRACK AND NE|
00000AA0: 58 54 20 53 45 43 54 4F 52 00 DB 12 60 00 81 20 |XT SECTOR...`.. |
00000AB0: 51 B2 31 A4 38 3A 44 57 B2 44 57 AA 31 3A 8F 20 |Q.1.8:DW.DW.1:. |
00000AC0: 4C 4F 4F 50 20 54 4F 20 50 55 54 20 54 48 45 20 |LOOP TO PUT THE |
00000AD0: 44 49 52 20 45 4E 54 52 49 45 53 00 FB 12 61 00 |DIR ENTRIES...a.|
00000AE0: 98 35 2C 44 52 24 28 44 57 29 3B 3A 8F 20 50 55 |.5,DR$(DW);:. PU|
00000AF0: 54 20 54 48 45 20 45 4E 54 52 59 00 25 13 62 00 |T THE ENTRY.%.b.|
00000B00: 8B 51 B3 B1 38 A7 98 35 2C 22 43 44 22 3B 3A 8F |.Q..8..5,"CD";:.|
00000B10: 20 50 55 54 20 49 4E 20 32 20 44 55 4D 4D 59 20 | PUT IN 2 DUMMY |
00000B20: 42 59 54 45 53 00 2D 13 63 00 82 20 51 00 5A 13 |BYTES.-.c.. Q.Z.|
00000B30: 64 00 98 31 35 2C 22 55 32 3A 22 3B 35 3B 30 3B |d..15,"U2:";5;0;|
00000B40: 31 38 3B 53 28 49 29 3A 8F 20 57 52 49 54 45 20 |18;S(I):. WRITE |
00000B50: 54 48 45 20 53 45 43 54 4F 52 00 76 13 65 00 99 |THE SECTOR.v.e..|
00000B60: 22 57 52 49 54 49 4E 47 20 53 45 43 54 4F 52 3A |"WRITING SECTOR:|
00000B70: 20 22 53 28 49 29 00 7E 13 66 00 82 20 49 00 8E | "S(I).~.f.. I..|
00000B80: 13 67 00 99 22 44 20 4F 20 4E 20 45 20 22 00 99 |.g.."D O N E "..|
00000B90: 13 68 00 A0 35 3A A0 31 35 00 CC 13 69 00 99 C7 |.h..5:.15...i...|
00000BA0: 28 31 34 37 29 3A 99 3A 99 3A 99 22 20 20 20 44 |(147):.:.:." D|
00000BB0: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 43 4F |O YOU WISH TO CO|
00000BC0: 4E 54 49 4E 55 45 20 57 49 54 48 22 00 EA 13 6A |NTINUE WITH"...j|
00000BD0: 00 99 22 20 20 20 41 4E 4F 54 48 45 52 20 44 49 |.." ANOTHER DI|
00000BE0: 53 4B 3F 20 28 59 2F 4E 29 22 00 FE 13 6B 00 A1 |SK? (Y/N)"...k..|
00000BF0: 5A 24 3A 8B 5A 24 B2 22 22 A7 89 31 30 37 00 19 |Z$:.Z$.""..107..|
00000C00: 14 6C 00 8B 5A 24 B2 22 59 22 B0 5A 24 B2 C7 28 |.l..Z$."Y".Z$..(|
00000C10: 32 31 37 29 A7 89 31 31 31 00 34 14 6D 00 8B 5A |217)..111.4.m..Z|
00000C20: 24 B2 22 4E 22 B0 5A 24 B2 C7 28 32 30 36 29 A7 |$."N".Z$..(206).|
00000C30: 89 31 31 32 00 3D 14 6E 00 89 31 30 35 00 4C 14 |.112.=.n..105.L.|
00000C40: 6F 00 41 B2 30 3A 8B 41 B2 30 A7 8A 00 52 14 70 |o.A.0:.A.0...R.p|
00000C50: 00 80 00 82 14 71 00 99 C7 28 31 34 37 29 3A 81 |.....q...(147):.|
00000C60: 20 51 B2 31 A4 44 45 3A 8F 20 4C 4F 4F 50 20 54 | Q.1.DE:. LOOP T|
00000C70: 48 52 4F 55 47 48 20 54 48 45 20 45 4E 54 52 49 |HROUGH THE ENTRI|
00000C80: 45 53 00 B5 14 72 00 8B CA 28 44 52 24 28 51 29 |ES...r...(DR$(Q)|
00000C90: 2C 31 2C 31 29 B2 C7 28 30 29 A7 89 31 31 36 3A |,1,1)..(0)..116:|
00000CA0: 8F 20 53 4B 49 50 20 27 44 45 4C 45 54 45 44 27 |. SKIP 'DELETED'|
00000CB0: 20 4F 4E 45 53 00 D7 14 73 00 99 CA 28 44 52 24 | ONES...s...(DR$|
00000CC0: 28 51 29 2C 34 2C 31 36 29 3A 8F 20 50 52 49 4E |(Q),4,16):. PRIN|
00000CD0: 54 20 4E 41 4D 45 53 00 DF 14 74 00 82 20 51 00 |T NAMES...t.. Q.|
00000CE0: E5 14 75 00 8E 00 32 15 76 00 8F 20 2A 2A 2A 2A |..u...2.v.. ****|
00000CF0: 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 4C |***SUBROUTINE: L|
00000D00: 4F 41 44 20 22 53 54 52 49 4E 47 20 54 48 49 4E |OAD "STRING THIN|
00000D10: 47 22 20 4D 2E 4C 2E 20 50 52 4F 47 52 41 4D 20 |G" M.L. PROGRAM |
00000D20: 49 4E 54 4F 20 4D 45 4D 4F 52 59 2A 2A 2A 2A 2A |INTO MEMORY*****|
00000D30: 2A 2A 00 56 15 77 00 8F 20 53 54 52 49 4E 47 20 |**.V.w.. STRING |
00000D40: 4D 55 53 54 20 42 45 20 46 49 52 53 54 20 56 41 |MUST BE FIRST VA|
00000D50: 52 49 41 42 4C 45 00 6D 15 78 00 41 24 B2 22 41 |RIABLE.m.x.A$."A|
00000D60: 42 43 44 45 46 47 48 49 4A 4B 4C 4D 22 00 8B 15 |BCDEFGHIJKLM"...|
00000D70: 79 00 41 24 B2 41 24 AA 22 4E 4F 50 51 52 53 54 |y.A$.A$."NOPQRST|
00000D80: 55 56 57 58 59 5A 31 32 33 34 22 00 B0 15 7A 00 |UVWXYZ1234"...z.|
00000D90: 8F 20 41 42 4F 56 45 20 53 45 54 53 20 53 54 52 |. ABOVE SETS STR|
00000DA0: 49 4E 47 20 46 4F 52 20 33 30 20 43 48 41 52 53 |ING FOR 30 CHARS|
00000DB0: 00 D0 15 7B 00 99 C7 28 31 34 37 29 3A 99 3A 99 |...{...(147):.:.|
00000DC0: 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 3A 99 |:.:.:.:.:.:.:.:.|
00000DD0: 00 F4 15 7C 00 99 22 20 20 20 20 20 20 20 20 20 |...|.." |
00000DE0: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00000DF0: 41 53 45 22 00 29 16 7D 00 83 20 31 36 30 2C 20 |ASE".).}.. 160, |
00000E00: 32 2C 20 31 37 37 2C 20 34 35 2C 20 31 35 33 2C |2, 177, 45, 153,|
00000E10: 20 31 33 37 2C 20 30 2C 20 32 30 30 2C 20 31 39 | 137, 0, 200, 19|
00000E20: 32 2C 20 36 2C 20 32 30 38 00 5C 16 7E 00 83 20 |2, 6, 208.\.~.. |
00000E30: 32 34 36 2C 20 31 36 32 2C 20 35 2C 20 33 32 2C |246, 162, 5, 32,|
00000E40: 20 31 39 38 2C 20 32 35 35 2C 20 33 32 2C 20 32 | 198, 255, 32, 2|
00000E50: 32 38 2C 20 32 35 35 2C 20 32 33 34 00 93 16 7F |28, 255, 234....|
00000E60: 00 83 20 32 33 34 2C 20 32 33 34 2C 20 32 33 34 |.. 234, 234, 234|
00000E70: 2C 20 31 36 34 2C 20 31 34 32 2C 20 31 34 35 2C |, 164, 142, 145,|
00000E80: 20 31 34 30 2C 20 32 30 30 2C 20 31 33 32 2C 20 | 140, 200, 132, |
00000E90: 31 34 32 00 C7 16 80 00 83 20 31 39 36 2C 20 31 |142...... 196, 1|
00000EA0: 33 39 2C 20 32 34 30 2C 20 34 2C 20 31 36 35 2C |39, 240, 4, 165,|
00000EB0: 20 31 34 34 2C 20 32 34 30 2C 20 32 33 34 2C 20 | 144, 240, 234, |
00000EC0: 37 36 2C 20 32 30 34 00 F6 16 81 00 83 20 32 35 |76, 204...... 25|
00000ED0: 35 2C 20 31 36 30 2C 20 31 2C 20 31 34 30 2C 20 |5, 160, 1, 140, |
00000EE0: 31 34 36 2C 20 32 2C 20 32 30 38 2C 20 33 2C 20 |146, 2, 208, 3, |
00000EF0: 33 32 2C 20 32 32 00 2B 17 82 00 83 20 32 33 31 |32, 22.+.... 231|
00000F00: 2C 20 33 32 2C 20 34 34 2C 20 31 36 38 2C 20 31 |, 32, 44, 168, 1|
00000F10: 36 35 2C 20 31 39 38 2C 20 31 33 33 2C 20 32 30 |65, 198, 133, 20|
00000F20: 34 2C 20 32 34 30 2C 20 32 34 37 00 5F 17 83 00 |4, 240, 247._...|
00000F30: 83 20 31 32 30 2C 20 31 36 35 2C 20 32 30 37 2C |. 120, 165, 207,|
00000F40: 20 32 34 30 2C 20 31 32 2C 20 31 36 35 2C 20 32 | 240, 12, 165, 2|
00000F50: 30 36 2C 20 31 37 34 2C 20 31 33 35 2C 20 32 00 |06, 174, 135, 2.|
00000F60: 91 17 84 00 83 20 31 36 30 2C 20 30 2C 20 31 33 |..... 160, 0, 13|
00000F70: 32 2C 20 32 30 37 2C 20 33 32 2C 20 31 39 2C 20 |2, 207, 32, 19, |
00000F80: 32 33 34 2C 20 33 32 2C 20 31 38 30 2C 20 32 32 |234, 32, 180, 22|
00000F90: 39 00 C3 17 85 00 83 20 32 30 31 2C 20 31 33 36 |9...... 201, 136|
00000FA0: 2C 20 32 34 30 2C 20 34 2C 20 32 30 31 2C 20 31 |, 240, 4, 201, 1|
00000FB0: 33 33 2C 20 32 30 38 2C 20 31 2C 20 39 36 2C 20 |33, 208, 1, 96, |
00000FC0: 32 30 31 00 F4 17 86 00 83 20 31 33 2C 20 32 34 |201...... 13, 24|
00000FD0: 30 2C 20 34 2C 20 32 30 31 2C 20 31 37 2C 20 32 |0, 4, 201, 17, 2|
00000FE0: 30 38 2C 20 38 2C 20 31 36 36 2C 20 32 31 34 2C |08, 8, 166, 214,|
00000FF0: 20 32 32 34 00 29 18 87 00 83 20 32 34 2C 20 31 | 224.).... 24, 1|
00001000: 34 34 2C 20 32 30 31 2C 20 31 37 36 2C 20 32 30 |44, 201, 176, 20|
00001010: 32 2C 20 31 36 36 2C 20 32 31 31 2C 20 32 32 34 |2, 166, 211, 224|
00001020: 2C 20 33 39 2C 20 32 30 38 00 60 18 88 00 83 20 |, 39, 208.`.... |
00001030: 31 39 33 2C 20 32 30 31 2C 20 31 35 37 2C 20 32 |193, 201, 157, 2|
00001040: 34 30 2C 20 31 38 39 2C 20 32 30 31 2C 20 31 34 |40, 189, 201, 14|
00001050: 35 2C 20 32 34 30 2C 20 31 38 35 2C 20 32 30 31 |5, 240, 185, 201|
00001060: 00 83 18 89 00 83 20 32 39 2C 20 32 34 30 2C 20 |...... 29, 240, |
00001070: 31 38 31 2C 20 32 30 38 2C 20 31 38 32 2C 20 30 |181, 208, 182, 0|
00001080: 2C 20 30 00 A2 18 8A 00 81 4A B2 38 39 36 A4 31 |, 0......J.896.1|
00001090: 30 32 32 3A 87 58 3A 97 4A 2C 58 3A 82 4A 3A 4A |022:.X:.J,X:.J:J|
000010A0: B2 30 00 A8 18 8B 00 8E 00 00 00 |.0......... |
.......53280,0:.53281,0:.G(30).'....118.
O.... *********************************.
W.... * *.
..... * S O R T D I R *.
G.... * *.
..... * VER 1.0 (C) 1983 BY CHRISDOS *.
..... * DONATED TO THE PUBLIC DOMAIN *.
?.... * *.
G.... * QUICKSORT ADDED BY: *.
.....* *..
....* LLOYD W. DULL III *...
...* AKRON, OHIO 44312 *....
..* *.*...
.*********************************.P....
THIS UTILITY FOR THE C64 WILL.Q....
SORT THE DISK RETURN AND...... WRITE
IT BACK TO THE DISK....... IN ADDITION
, IT WILL GROUP.W.... FILES TOGETHER B
Y TYPE....... SIMPLY RUN THIS PROGRAM.
NO...... OTHER INPUT IS NEEDED.. ....
.>.... -CHRISDOS [70001,766].D.... -
LLOYD W. DULL III [7455,736].J..........
G(147):.:.:..9)"DISK DIRECTORY SORTER".
......14)"BY CHRISDOS".W....:."
QUICKSORT ADDED BY:"......:."
LLOYD W. DULL III"......:." BUTTERF
IELD'S STRING THING ADDED FOR".[...."
SPEEDIER READING OF THE DIRECTORY"... .
.:." PLACE DISK TO BE SORTED INTO"
.B.!.." DRIVE 0 AND PRESS "G(18)"S
HIFT"G(146)" KEY."..."..653,1: . TEST FO
R SHIFT KEY...#.. DR$(145),S(20),NM$(145
).(.$.. ******* READ DIRECTORY FROM DISK
.>.%..15,8,15:.15,"I0".~.&. 5:.5,8,5,"#"
:S(1).1:DE.0:I.1:. SECTOR 1, DIRECTORY E
NTRY 0...'..15,"U1:";5;0;18;S(I):I.I.1..
.(..#5,T$:.#5,S$:S(I).F(S$.G(0))...)..Q.
1.8:DE.DE.1:DR$(DE).""...*..896:DR$(DE).
A$...+..Q..8..#5,NG$,NG$...,.. Q:.S(I).2
1..39.$.-. 5.4....DE.48.PG.1.P./..113:.
PRINT THE RETURN.S.0.."CONVERTING FILE N
AMES......"...1.. X.1.DE:. LOOP TO CONVE
RT FILE NAMES...2.NM$(X).H(DR$(X),1).J(D
R$(X),4,16):. PUT FILE TYPE BYTE IN FRON
T...3..P.2.17:. LOOP TO HACK SHIFTED SPA
CES FROM END.I.4..J(NM$(X),P,1).G(160).N
M$(X).J(NM$(X),1,P.1):.54.Q.5.. P.Y.6..
X.M.7..**** QUICKSORT...8.."SORTING.....
"...9.S1.1...:.L(1).1...;.R(1).DE...<.L1
.L(S1)...=.R1.R(S1).G.>.S1.S1.1.Q.?.L2.L
1...@.R2.R1...A.X$.NM$(.((L1.R1).2))...B
.C.C.1...C..NM$(L2)..X$..70...D.L2.L2.1.
'.E..66.0.F.C.C1.E.G..X$..NM$(R2)..74.Q.
H.R2.R2.1.Y.I..70.H.J..L2.R2..80.R.K.S.S
.1...L.T$.DR$(L2):DR$(L2).DR$(R2):DR$(R2
).T$.F.M.T$.NM$(L2):NM$(L2).NM$(R2):NM$(
R2).T$.R.N.L2.L2.1...O.R2.R2.1...P..L2..
R2..66...Q..L2..R1..85...R.S1.S1.1...S.L
(S1).L2.$.T.R(S1).R1...U.R1.R2.=.V..L1.R
1..63.K.W..S1.0..60.`.X..*** END SORTING
...Y..113:. PRINT THE SORTED NAMES...Z..
*** WRITE NEW DIR TO DISK...[. 5: 15:.15
,8,15:.5,8,5,"#"...\.W.I.1:DW.0:. W=NUMB
ER OF BLOCKS TO WRITE.2.].. I.1.W:.15,"B
-P:";5;0:. LOOP TO WRITE. FORCE BUF POIN
T TO BEGIN.Q.^.TT.18:.S(I.1).255.TT.0:.
TRACK # TO WRITE. 0 IF LAST BLOCK..._..5
,G(TT);G(S(I.1));:. PUT THE TRACK AND NE
XT SECTOR...`.. Q.1.8:DW.DW.1:. LOOP TO
PUT THE DIR ENTRIES...A..5,DR$(DW);:. PU
T THE ENTRY.%.B..Q..8..5,"CD";:. PUT IN
2 DUMMY BYTES.-.C.. Q.Z.D..15,"U2:";5;0;
18;S(I):. WRITE THE SECTOR.V.E.."WRITING
SECTOR: "S(I).~.F.. I...G.."D O N E "..
.H. 5: 15.L.I..G(147):.:.:." DO YOU WI
SH TO CONTINUE WITH"...J.." ANOTHER DI
SK? (Y/N)"...K..Z$:.Z$.""..107...L..Z$."
Y".Z$.G(217)..111.4.M..Z$."N".Z$.G(206).
.112.=.N..105.L.O.A.0:.A.0...R.P.....Q..
G(147):. Q.1.DE:. LOOP THROUGH THE ENTRI
ES...R..J(DR$(Q),1,1).G(0)..116:. SKIP '
DELETED' ONES.W.S..J(DR$(Q),4,16):. PRIN
T NAMES...T.. Q...U...2.V.. *******SUBRO
UTINE: LOAD "STRING THING" M.L. PROGRAM
INTO MEMORY*******.V.W.. STRING MUST BE
FIRST VARIABLE.M.X.A$."ABCDEFGHIJKLM"...
Y.A$.A$."NOPQRSTUVWXYZ1234"...Z.. ABOVE
SETS STRING FOR 30 CHARS.P.{..G(147):.:.
:.:.:.:.:.:.:.:....|.." ONE MO
MENT PLEASE".).}.. 160, 2, 177, 45, 153,
137, 0, 200, 192, 6, 208.\.~.. 246, 162
, 5, 32, 198, 255, 32, 228, 255, 234...
.. 234, 234, 234, 164, 142, 145, 140, 20
0, 132, 142.G.... 196, 139, 240, 4, 165,
144, 240, 234, 76, 204...... 255, 160,
1, 140, 146, 2, 208, 3, 32, 22.+.... 231
, 32, 44, 168, 165, 198, 133, 204, 240,
247._.... 120, 165, 207, 240, 12, 165, 2
06, 174, 135, 2...... 160, 0, 132, 207,
32, 19, 234, 32, 180, 229.C.... 201, 136
, 240, 4, 201, 133, 208, 1, 96, 201.....
. 13, 240, 4, 201, 17, 208, 8, 166, 214,
224.).... 24, 144, 201, 176, 202, 166,
211, 224, 39, 208.`.... 193, 201, 157, 2
40, 189, 201, 145, 240, 185, 201...... 2
9, 240, 181, 208, 182, 0, 0......J.896.1
022:.X:.J,X:.J:J.0.........
> CLICK IMAGE PREVIEW FOR FULL MODAL