DISK SORT
FILE INFORMATION
FILENAME(S): DISK SORT
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 17:31:36
APPEARS ON: 1 disk(s)
FILE HASH
7de6c60e8ae2af12ed185939e20c7b04aeb04f9f48af8f8c36df8bab366a1a1e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0016UT | DISK SORT | PRG | UK CD | 13 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 1E 22 00 26 08 0A |53281,0:.".".&..|
00000020: 00 8D 31 31 36 30 00 4D 08 14 00 8F 2A 2A 2A 2A |..1160.M....****|
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 00 74 08 |*************.t.|
00000050: 1E 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 2A 00 9B 08 28 00 8F 2A 20 20 20 20 20 | *...(..* |
00000080: 20 20 20 53 20 4F 20 52 20 54 20 44 20 49 20 52 | S O R T D I R|
00000090: 20 20 20 20 20 20 20 20 20 20 2A 00 C2 08 32 00 | *...2.|
000000A0: 8F 2A 20 20 20 20 20 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 2A 00 E9 08 3C 00 8F 2A 20 56 45 52 20 31 2E | *...<..* VER 1.|
000000D0: 30 20 28 43 29 20 31 39 38 33 20 42 59 20 43 48 |0 (C) 1983 BY CH|
000000E0: 52 49 53 44 4F 53 20 20 2A 00 10 09 46 00 8F 2A |RISDOS *...F..*|
000000F0: 20 44 4F 4E 41 54 45 44 20 54 4F 20 54 48 45 20 | DONATED TO THE |
00000100: 50 55 42 4C 49 43 20 44 4F 4D 41 49 4E 20 20 2A |PUBLIC DOMAIN *|
00000110: 00 37 09 50 00 8F 2A 20 20 20 20 20 20 20 20 20 |.7.P..* |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 2A 00 5E 09 5A 00 8F 2A 20 20 | *.^.Z..* |
00000140: 20 20 20 51 55 49 43 4B 53 4F 52 54 20 41 44 44 | QUICKSORT ADD|
00000150: 45 44 20 42 59 3A 20 20 20 20 20 20 20 2A 00 85 |ED BY: *..|
00000160: 09 64 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 |.d..* |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 2A 00 AC 09 6E 00 8F 2A 20 20 20 20 | *...n..* |
00000190: 20 20 4C 4C 4F 59 44 20 57 2E 20 44 55 4C 4C 20 | LLOYD W. DULL |
000001A0: 49 49 49 20 20 20 20 20 20 20 20 2A 00 D3 09 78 |III *...x|
000001B0: 00 8F 2A 20 20 20 20 20 20 41 4B 52 4F 4E 2C 20 |..* AKRON, |
000001C0: 4F 48 49 4F 20 34 34 33 31 32 20 20 20 20 20 20 |OHIO 44312 |
000001D0: 20 20 2A 00 FA 09 82 00 8F 2A 20 20 20 20 20 20 | *......* |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 2A 00 21 0A 8C 00 8F | *.!....|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 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 00 47 0A 96 00 8F 20 20 20 54 48 49 53 20 55 |*.G.... THIS U|
00000230: 54 49 4C 49 54 59 20 46 4F 52 20 54 48 45 20 43 |TILITY FOR THE C|
00000240: 36 34 20 57 49 4C 4C 00 63 0A A0 00 8F 20 20 20 |64 WILL.c.... |
00000250: 53 4F 52 54 20 54 48 45 20 44 49 53 4B 20 DA 20 |SORT THE DISK . |
00000260: 41 4E 44 00 86 0A AA 00 8F 20 20 20 57 52 49 54 |AND...... WRIT|
00000270: 45 20 49 54 20 42 41 43 4B 20 54 4F 20 54 48 45 |E IT BACK TO THE|
00000280: 20 44 49 53 4B 2E 00 AA 0A B4 00 8F 20 20 20 20 | DISK....... |
00000290: 49 4E 20 41 44 44 49 54 49 4F 4E 2C 20 49 54 20 |IN ADDITION, IT |
000002A0: 57 49 4C 4C 20 47 52 4F 55 50 00 CA 0A BE 00 8F |WILL GROUP......|
000002B0: 20 20 20 46 49 4C 45 53 20 54 4F 47 45 54 48 45 | FILES TOGETHE|
000002C0: 52 20 42 59 20 54 59 50 45 2E 00 EF 0A C8 00 8F |R BY TYPE.......|
000002D0: 20 20 20 20 53 49 4D 50 4C 59 20 52 55 4E 20 54 | SIMPLY RUN T|
000002E0: 48 49 53 20 50 52 4F 47 52 41 4D 2E 20 4E 4F 00 |HIS PROGRAM. NO.|
000002F0: 0E 0B D2 00 8F 20 20 20 4F 54 48 45 52 20 49 4E |..... OTHER IN|
00000300: 50 55 54 20 49 53 20 4E 45 45 44 45 44 2E 00 32 |PUT IS NEEDED..2|
00000310: 0B DC 00 8F 20 20 20 20 20 20 20 20 20 2D 43 48 |.... -CH|
00000320: 52 49 53 44 4F 53 20 5B 37 30 30 30 31 2C 37 36 |RISDOS [70001,76|
00000330: 36 5D 00 38 0B E6 00 8F 00 5D 0B F0 00 8F 20 20 |6].8.....].... |
00000340: 2D 4C 4C 4F 59 44 20 57 2E 20 44 55 4C 4C 20 49 |-LLOYD W. DULL I|
00000350: 49 49 20 5B 37 34 35 35 2C 37 33 36 5D 00 8E 0B |II [7455,736]...|
00000360: FA 00 99 22 93 11 11 11 20 20 20 20 20 20 20 20 |...".... |
00000370: 20 20 53 20 4F 20 52 20 54 20 44 20 49 20 52 20 | S O R T D I R |
00000380: 20 20 42 59 20 43 48 52 49 53 44 4F 53 22 00 B5 | BY CHRISDOS"..|
00000390: 0B 04 01 99 22 11 20 20 20 20 20 20 20 20 20 20 |....". |
000003A0: 20 51 55 49 43 4B 53 4F 52 54 20 41 44 44 45 44 | QUICKSORT ADDED|
000003B0: 20 42 59 3A 22 00 DB 0B 0E 01 99 22 11 20 20 20 | BY:"......". |
000003C0: 20 20 20 20 20 20 20 20 20 4C 4C 4F 59 44 20 57 | LLOYD W|
000003D0: 2E 20 44 55 4C 4C 20 49 49 49 22 00 0A 0C 18 01 |. DULL III".....|
000003E0: 99 22 11 1D 1D 42 55 54 54 45 52 46 49 45 4C 44 |."...BUTTERFIELD|
000003F0: 27 53 20 53 54 52 49 4E 47 20 54 48 49 4E 47 20 |'S STRING THING |
00000400: 41 44 44 45 44 20 46 4F 52 22 00 37 0C 22 01 99 |ADDED FOR".7."..|
00000410: 22 1D 1D 1D 1D 53 50 45 45 44 49 45 52 20 52 45 |"....SPEEDIER RE|
00000420: 41 44 49 4E 47 20 4F 46 20 54 48 45 20 44 49 52 |ADING OF THE DIR|
00000430: 45 43 54 4F 52 59 22 00 61 0C 2C 01 99 3A 99 22 |ECTORY".a.,..:."|
00000440: 20 20 20 20 50 4C 41 43 45 20 44 49 53 4B 20 54 | PLACE DISK T|
00000450: 4F 20 42 45 20 53 4F 52 54 45 44 20 49 4E 54 4F |O BE SORTED INTO|
00000460: 22 00 8B 0C 36 01 99 22 20 20 20 20 44 52 49 56 |"...6.." DRIV|
00000470: 45 20 30 20 41 4E 44 20 50 52 45 53 53 20 12 53 |E 0 AND PRESS .S|
00000480: 48 49 46 54 92 20 4B 45 59 2E 22 00 AC 0C 40 01 |HIFT. KEY."...@.|
00000490: 92 36 35 33 2C 31 3A 20 8F 20 54 45 53 54 20 46 |.653,1: . TEST F|
000004A0: 4F 52 20 53 48 49 46 54 20 4B 45 59 00 CA 0C 4A |OR SHIFT KEY...J|
000004B0: 01 86 20 44 52 24 28 31 34 35 29 2C 53 28 32 30 |.. DR$(145),S(20|
000004C0: 29 2C 4E 4D 24 28 31 34 35 29 00 F0 0C 54 01 8F |),NM$(145)...T..|
000004D0: 2A 2A 2A 2A 2A 2A 2A 20 52 45 41 44 20 44 49 52 |******* READ DIR|
000004E0: 45 43 54 4F 52 59 20 46 52 4F 4D 20 44 49 53 4B |ECTORY FROM DISK|
000004F0: 00 06 0D 5E 01 9F 31 35 2C 38 2C 31 35 3A 98 31 |...^..15,8,15:.1|
00000500: 35 2C 22 49 30 22 00 46 0D 68 01 A0 35 3A 9F 35 |5,"I0".F.h..5:.5|
00000510: 2C 38 2C 35 2C 22 23 22 3A 53 28 31 29 B2 31 3A |,8,5,"#":S(1).1:|
00000520: 44 45 B2 30 3A 49 B2 31 3A 8F 20 53 45 43 54 4F |DE.0:I.1:. SECTO|
00000530: 52 20 31 2C 20 44 49 52 45 43 54 4F 52 59 20 45 |R 1, DIRECTORY E|
00000540: 4E 54 52 59 20 30 00 66 0D 72 01 98 31 35 2C 22 |NTRY 0.f.r..15,"|
00000550: 55 31 3A 22 3B 35 3B 30 3B 31 38 3B 53 28 49 29 |U1:";5;0;18;S(I)|
00000560: 3A 49 B2 49 AA 31 00 88 0D 7C 01 A1 23 35 2C 54 |:I.I.1...|..#5,T|
00000570: 24 3A A1 23 35 2C 53 24 3A 53 28 49 29 B2 C6 28 |$:.#5,S$:S(I)..(|
00000580: 53 24 AA C7 28 30 29 29 00 A6 0D 86 01 81 51 B2 |S$..(0))......Q.|
00000590: 31 A4 38 3A 44 45 B2 44 45 AA 31 3A 44 52 24 28 |1.8:DE.DE.1:DR$(|
000005A0: 44 45 29 B2 22 22 00 BA 0D 90 01 9E 38 39 36 3A |DE).""......896:|
000005B0: 44 52 24 28 44 45 29 B2 41 24 00 D0 0D 9A 01 8B |DR$(DE).A$......|
000005C0: 51 B3 B1 38 A7 A1 23 35 2C 4E 47 24 2C 4E 47 24 |Q..8..#5,NG$,NG$|
000005D0: 00 E6 0D A4 01 82 20 51 3A 8B 53 28 49 29 B3 32 |...... Q:.S(I).2|
000005E0: 31 A7 89 33 37 30 00 ED 0D AE 01 A0 35 00 FD 0D |1..370......5...|
000005F0: B8 01 8B 44 45 B1 34 38 A7 50 47 B2 31 00 16 0E |...DE.48.PG.1...|
00000600: C2 01 8D 20 31 31 31 30 3A 8F 20 50 52 49 4E 54 |... 1110:. PRINT|
00000610: 20 54 48 45 20 DA 00 39 0E CC 01 99 22 43 4F 4E | THE ..9...."CON|
00000620: 56 45 52 54 49 4E 47 20 46 49 4C 45 20 4E 41 4D |VERTING FILE NAM|
00000630: 45 53 2E 2E 2E 2E 2E 2E 22 00 63 0E D6 01 81 20 |ES......".c.... |
00000640: 58 B2 31 A4 44 45 3A 8F 20 4C 4F 4F 50 20 54 4F |X.1.DE:. LOOP TO|
00000650: 20 43 4F 4E 56 45 52 54 20 46 49 4C 45 20 4E 41 | CONVERT FILE NA|
00000660: 4D 45 53 00 A7 0E E0 01 4E 4D 24 28 58 29 B2 C8 |MES.....NM$(X)..|
00000670: 28 44 52 24 28 58 29 2C 31 29 AA CA 28 44 52 24 |(DR$(X),1)..(DR$|
00000680: 28 58 29 2C 34 2C 31 36 29 3A 8F 20 50 55 54 20 |(X),4,16):. PUT |
00000690: 46 49 4C 45 20 54 59 50 45 20 42 59 54 45 20 49 |FILE TYPE BYTE I|
000006A0: 4E 20 46 52 4F 4E 54 00 DA 0E EA 01 81 50 B2 32 |N FRONT......P.2|
000006B0: A4 31 37 3A 8F 20 4C 4F 4F 50 20 54 4F 20 48 41 |.17:. LOOP TO HA|
000006C0: 43 4B 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |CK SHIFTED SPACE|
000006D0: 53 20 46 52 4F 4D 20 45 4E 44 00 10 0F F4 01 8B |S FROM END......|
000006E0: CA 28 4E 4D 24 28 58 29 2C 50 2C 31 29 B2 C7 28 |.(NM$(X),P,1)..(|
000006F0: 31 36 30 29 A7 4E 4D 24 28 58 29 B2 CA 28 4E 4D |160).NM$(X)..(NM|
00000700: 24 28 58 29 2C 31 2C 50 AB 31 29 3A 89 35 32 30 |$(X),1,P.1):.520|
00000710: 00 18 0F FE 01 82 20 50 00 20 0F 08 02 82 20 58 |...... P. .... X|
00000720: 00 34 0F 12 02 8F 2A 2A 2A 2A 20 51 55 49 43 4B |.4....**** QUICK|
00000730: 53 4F 52 54 00 48 0F 1C 02 99 22 53 4F 52 54 49 |SORT.H...."SORTI|
00000740: 4E 47 2E 2E 2E 2E 2E 22 00 51 0F 26 02 53 31 B2 |NG.....".Q.&.S1.|
00000750: 31 00 5C 0F 30 02 4C 28 31 29 B2 31 00 68 0F 3A |1.\.0.L(1).1.h.:|
00000760: 02 52 28 31 29 B2 44 45 00 75 0F 44 02 4C 31 B2 |.R(1).DE.u.D.L1.|
00000770: 4C 28 53 31 29 00 82 0F 4E 02 52 31 B2 52 28 53 |L(S1)...N.R1.R(S|
00000780: 31 29 00 8E 0F 58 02 53 31 B2 53 31 AB 31 00 98 |1)...X.S1.S1.1..|
00000790: 0F 62 02 4C 32 B2 4C 31 00 A2 0F 6C 02 52 32 B2 |.b.L2.L1...l.R2.|
000007A0: 52 31 00 BB 0F 76 02 58 24 B2 4E 4D 24 28 B5 28 |R1...v.X$.NM$(.(|
000007B0: 28 4C 31 AA 52 31 29 AD 32 29 29 00 C5 0F 80 02 |(L1.R1).2)).....|
000007C0: 43 B2 43 AA 31 00 DB 0F 8A 02 8B 4E 4D 24 28 4C |C.C.1......NM$(L|
000007D0: 32 29 B1 B2 58 24 A7 89 36 38 30 00 E7 0F 94 02 |2)..X$..680.....|
000007E0: 4C 32 B2 4C 32 AA 31 00 F0 0F 9E 02 89 36 34 30 |L2.L2.1......640|
000007F0: 00 F9 0F A8 02 43 B2 43 31 00 0F 10 B2 02 8B 58 |.....C.C1......X|
00000800: 24 B1 B2 4E 4D 24 28 52 32 29 A7 89 37 32 30 00 |$..NM$(R2)..720.|
00000810: 1B 10 BC 02 52 32 B2 52 32 AB 31 00 24 10 C6 02 |....R2.R2.1.$...|
00000820: 89 36 38 30 00 34 10 D0 02 8B 4C 32 B1 52 32 A7 |.680.4....L2.R2.|
00000830: 89 37 38 30 00 3E 10 DA 02 53 B2 53 AA 31 00 68 |.780.>...S.S.1.h|
00000840: 10 E4 02 54 24 B2 44 52 24 28 4C 32 29 3A 44 52 |...T$.DR$(L2):DR|
00000850: 24 28 4C 32 29 B2 44 52 24 28 52 32 29 3A 44 52 |$(L2).DR$(R2):DR|
00000860: 24 28 52 32 29 B2 54 24 00 92 10 EE 02 54 24 B2 |$(R2).T$.....T$.|
00000870: 4E 4D 24 28 4C 32 29 3A 4E 4D 24 28 4C 32 29 B2 |NM$(L2):NM$(L2).|
00000880: 4E 4D 24 28 52 32 29 3A 4E 4D 24 28 52 32 29 B2 |NM$(R2):NM$(R2).|
00000890: 54 24 00 9E 10 F8 02 4C 32 B2 4C 32 AA 31 00 AA |T$.....L2.L2.1..|
000008A0: 10 02 03 52 32 B2 52 32 AB 31 00 BB 10 0C 03 8B |...R2.R2.1......|
000008B0: 4C 32 B3 B2 52 32 A7 89 36 34 30 00 CC 10 16 03 |L2..R2..640.....|
000008C0: 8B 4C 32 B1 B2 52 31 A7 89 38 33 30 00 D8 10 20 |.L2..R1..830... |
000008D0: 03 53 31 B2 53 31 AA 31 00 E5 10 2A 03 4C 28 53 |.S1.S1.1...*.L(S|
000008E0: 31 29 B2 4C 32 00 F2 10 34 03 52 28 53 31 29 B2 |1).L2...4.R(S1).|
000008F0: 52 31 00 FC 10 3E 03 52 31 B2 52 32 00 0C 11 48 |R1...>.R1.R2...H|
00000900: 03 8B 4C 31 B3 52 31 A7 89 36 31 30 00 1B 11 52 |..L1.R1..610...R|
00000910: 03 8B 53 31 B1 30 A7 89 35 38 30 00 30 11 5C 03 |..S1.0..580.0.\.|
00000920: 8F 2A 2A 2A 20 45 4E 44 20 53 4F 52 54 49 4E 47 |.*** END SORTING|
00000930: 00 54 11 66 03 8D 20 31 31 31 30 3A 8F 20 50 52 |.T.f.. 1110:. PR|
00000940: 49 4E 54 20 54 48 45 20 53 4F 52 54 45 44 20 4E |INT THE SORTED N|
00000950: 41 4D 45 53 00 73 11 70 03 8F 2A 2A 2A 20 57 52 |AMES.s.p..*** WR|
00000960: 49 54 45 20 4E 45 57 20 44 49 52 20 54 4F 20 44 |ITE NEW DIR TO D|
00000970: 49 53 4B 00 92 11 7A 03 A0 35 3A A0 31 35 3A 9F |ISK...z..5:.15:.|
00000980: 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 |15,8,15:.5,8,5,"|
00000990: 23 22 00 BF 11 84 03 57 B2 49 AB 31 3A 44 57 B2 |#".....W.I.1:DW.|
000009A0: 30 3A 8F 20 57 3D 4E 55 4D 42 45 52 20 4F 46 20 |0:. W=NUMBER OF |
000009B0: 42 4C 4F 43 4B 53 20 54 4F 20 57 52 49 54 45 00 |BLOCKS TO WRITE.|
000009C0: 04 12 8E 03 81 20 49 B2 31 A4 57 3A 98 31 35 2C |..... I.1.W:.15,|
000009D0: 22 42 2D 50 3A 22 3B 35 3B 30 3A 8F 20 4C 4F 4F |"B-P:";5;0:. LOO|
000009E0: 50 20 54 4F 20 57 52 49 54 45 2E 20 46 4F 52 43 |P TO WRITE. FORC|
000009F0: 45 20 42 55 46 20 50 4F 49 4E 54 20 54 4F 20 42 |E BUF POINT TO B|
00000A00: 45 47 49 4E 00 43 12 98 03 54 54 B2 31 38 3A 8B |EGIN.C...TT.18:.|
00000A10: 53 28 49 AA 31 29 B2 32 35 35 A7 54 54 B2 30 3A |S(I.1).255.TT.0:|
00000A20: 8F 20 54 52 41 43 4B 20 23 20 54 4F 20 57 52 49 |. TRACK # TO WRI|
00000A30: 54 45 2E 20 30 20 49 46 20 4C 41 53 54 20 42 4C |TE. 0 IF LAST BL|
00000A40: 4F 43 4B 00 7B 12 A2 03 98 35 2C C7 28 54 54 29 |OCK.{....5,.(TT)|
00000A50: 3B C7 28 53 28 49 AA 31 29 29 3B 3A 8F 20 50 55 |;.(S(I.1));:. PU|
00000A60: 54 20 54 48 45 20 54 52 41 43 4B 20 41 4E 44 20 |T THE TRACK AND |
00000A70: 4E 45 58 54 20 53 45 43 54 4F 52 00 AD 12 AC 03 |NEXT SECTOR.....|
00000A80: 81 20 51 B2 31 A4 38 3A 44 57 B2 44 57 AA 31 3A |. Q.1.8:DW.DW.1:|
00000A90: 8F 20 4C 4F 4F 50 20 54 4F 20 50 55 54 20 54 48 |. LOOP TO PUT TH|
00000AA0: 45 20 44 49 52 20 45 4E 54 52 49 45 53 00 CD 12 |E DIR ENTRIES...|
00000AB0: B6 03 98 35 2C 44 52 24 28 44 57 29 3B 3A 8F 20 |...5,DR$(DW);:. |
00000AC0: 50 55 54 20 54 48 45 20 45 4E 54 52 59 00 F7 12 |PUT THE ENTRY...|
00000AD0: C0 03 8B 51 B3 B1 38 A7 98 35 2C 22 43 44 22 3B |...Q..8..5,"CD";|
00000AE0: 3A 8F 20 50 55 54 20 49 4E 20 32 20 44 55 4D 4D |:. PUT IN 2 DUMM|
00000AF0: 59 20 42 59 54 45 53 00 FF 12 CA 03 82 20 51 00 |Y BYTES...... Q.|
00000B00: 2C 13 D4 03 98 31 35 2C 22 55 32 3A 22 3B 35 3B |,....15,"U2:";5;|
00000B10: 30 3B 31 38 3B 53 28 49 29 3A 8F 20 57 52 49 54 |0;18;S(I):. WRIT|
00000B20: 45 20 54 48 45 20 53 45 43 54 4F 52 00 48 13 DE |E THE SECTOR.H..|
00000B30: 03 99 22 57 52 49 54 49 4E 47 20 53 45 43 54 4F |.."WRITING SECTO|
00000B40: 52 3A 20 22 53 28 49 29 00 50 13 E8 03 82 20 49 |R: "S(I).P.... I|
00000B50: 00 60 13 F2 03 99 22 44 20 4F 20 4E 20 45 20 22 |.`...."D O N E "|
00000B60: 00 6B 13 FC 03 A0 35 3A A0 31 35 00 96 13 06 04 |.k....5:.15.....|
00000B70: 99 22 93 11 11 11 1D 1D 1D 44 4F 20 59 4F 55 20 |.".......DO YOU |
00000B80: 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |WISH TO CONTINUE|
00000B90: 20 57 49 54 48 22 00 B4 13 10 04 99 22 1D 1D 1D | WITH"......"...|
00000BA0: 41 4E 4F 54 48 45 52 20 44 49 53 4B 3F 20 28 59 |ANOTHER DISK? (Y|
00000BB0: 2F 4E 29 22 00 C9 13 1A 04 A1 5A 24 3A 8B 5A 24 |/N)"......Z$:.Z$|
00000BC0: B2 22 22 A7 89 31 30 35 30 00 E2 13 24 04 8B 5A |.""..1050...$..Z|
00000BD0: 24 B2 22 59 22 B0 5A 24 B2 22 D9 22 A7 89 31 30 |$."Y".Z$."."..10|
00000BE0: 39 30 00 FB 13 2E 04 8B 5A 24 B2 22 4E 22 B0 5A |90......Z$."N".Z|
00000BF0: 24 B2 22 CE 22 A7 89 31 31 30 30 00 05 14 38 04 |$."."..1100...8.|
00000C00: 89 31 30 33 30 00 14 14 42 04 41 B2 30 3A 8B 41 |.1030...B.A.0:.A|
00000C10: B2 30 A7 8A 00 1A 14 4C 04 80 00 47 14 56 04 99 |.0.....L...G.V..|
00000C20: 22 93 22 3A 81 20 51 B2 31 A4 44 45 3A 8F 20 4C |".":. Q.1.DE:. L|
00000C30: 4F 4F 50 20 54 48 52 4F 55 47 48 20 54 48 45 20 |OOP THROUGH THE |
00000C40: 45 4E 54 52 49 45 53 00 7D 14 60 04 8B CA 28 44 |ENTRIES.}.`...(D|
00000C50: 52 24 28 51 29 2C 31 2C 31 29 B2 C7 28 30 29 A7 |R$(Q),1,1)..(0).|
00000C60: 89 20 31 31 34 30 3A 8F 20 53 4B 49 50 20 27 44 |. 1140:. SKIP 'D|
00000C70: 45 4C 45 41 54 45 44 27 20 4F 4E 45 53 00 9F 14 |ELEATED' ONES...|
00000C80: 6A 04 99 CA 28 44 52 24 28 51 29 2C 34 2C 31 36 |j...(DR$(Q),4,16|
00000C90: 29 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 53 00 |):. PRINT NAMES.|
00000CA0: A7 14 74 04 82 20 51 00 AD 14 7E 04 8E 00 FA 14 |..t.. Q...~.....|
00000CB0: 88 04 8F 20 2A 2A 2A 2A 2A 2A 2A 53 55 42 52 4F |... *******SUBRO|
00000CC0: 55 54 49 4E 45 3A 20 4C 4F 41 44 20 22 53 54 52 |UTINE: LOAD "STR|
00000CD0: 49 4E 47 20 54 48 49 4E 47 22 20 4D 2E 4C 2E 20 |ING THING" M.L. |
00000CE0: 50 52 4F 47 52 41 4D 20 49 4E 54 4F 20 4D 45 4D |PROGRAM INTO MEM|
00000CF0: 4F 52 59 2A 2A 2A 2A 2A 2A 2A 00 1E 15 92 04 8F |ORY*******......|
00000D00: 20 53 54 52 49 4E 47 20 4D 55 53 54 20 42 45 20 | STRING MUST BE |
00000D10: 46 49 52 53 54 20 56 41 52 49 41 42 4C 45 00 35 |FIRST VARIABLE.5|
00000D20: 15 9C 04 41 24 B2 22 41 42 43 44 45 46 47 48 49 |...A$."ABCDEFGHI|
00000D30: 4A 4B 4C 4D 22 00 53 15 A6 04 41 24 B2 41 24 AA |JKLM".S...A$.A$.|
00000D40: 22 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 31 32 |"NOPQRSTUVWXYZ12|
00000D50: 33 34 22 00 78 15 B0 04 8F 20 41 42 4F 56 45 20 |34".x.... ABOVE |
00000D60: 53 45 54 53 20 53 54 52 49 4E 47 20 46 4F 52 20 |SETS STRING FOR |
00000D70: 33 30 20 43 48 41 52 53 00 A7 15 BA 04 99 22 93 |30 CHARS......".|
00000D80: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................|
00000D90: 1D 1D 1D 1D 1D 4F 4E 45 20 4D 4F 4D 45 4E 54 20 |.....ONE MOMENT |
00000DA0: 50 4C 45 41 53 45 22 00 DC 15 C4 04 83 20 31 36 |PLEASE"...... 16|
00000DB0: 30 2C 20 32 2C 20 31 37 37 2C 20 34 35 2C 20 31 |0, 2, 177, 45, 1|
00000DC0: 35 33 2C 20 31 33 37 2C 20 30 2C 20 32 30 30 2C |53, 137, 0, 200,|
00000DD0: 20 31 39 32 2C 20 36 2C 20 32 30 38 00 0F 16 CE | 192, 6, 208....|
00000DE0: 04 83 20 32 34 36 2C 20 31 36 32 2C 20 35 2C 20 |.. 246, 162, 5, |
00000DF0: 33 32 2C 20 31 39 38 2C 20 32 35 35 2C 20 33 32 |32, 198, 255, 32|
00000E00: 2C 20 32 32 38 2C 20 32 35 35 2C 20 32 33 34 00 |, 228, 255, 234.|
00000E10: 46 16 D8 04 83 20 32 33 34 2C 20 32 33 34 2C 20 |F.... 234, 234, |
00000E20: 32 33 34 2C 20 31 36 34 2C 20 31 34 32 2C 20 31 |234, 164, 142, 1|
00000E30: 34 35 2C 20 31 34 30 2C 20 32 30 30 2C 20 31 33 |45, 140, 200, 13|
00000E40: 32 2C 20 31 34 32 00 7A 16 E2 04 83 20 31 39 36 |2, 142.z.... 196|
00000E50: 2C 20 31 33 39 2C 20 32 34 30 2C 20 34 2C 20 31 |, 139, 240, 4, 1|
00000E60: 36 35 2C 20 31 34 34 2C 20 32 34 30 2C 20 32 33 |65, 144, 240, 23|
00000E70: 34 2C 20 37 36 2C 20 32 30 34 00 A9 16 EC 04 83 |4, 76, 204......|
00000E80: 20 32 35 35 2C 20 31 36 30 2C 20 31 2C 20 31 34 | 255, 160, 1, 14|
00000E90: 30 2C 20 31 34 36 2C 20 32 2C 20 32 30 38 2C 20 |0, 146, 2, 208, |
00000EA0: 33 2C 20 33 32 2C 20 32 32 00 DE 16 F6 04 83 20 |3, 32, 22...... |
00000EB0: 32 33 31 2C 20 33 32 2C 20 34 34 2C 20 31 36 38 |231, 32, 44, 168|
00000EC0: 2C 20 31 36 35 2C 20 31 39 38 2C 20 31 33 33 2C |, 165, 198, 133,|
00000ED0: 20 32 30 34 2C 20 32 34 30 2C 20 32 34 37 00 12 | 204, 240, 247..|
00000EE0: 17 00 05 83 20 31 32 30 2C 20 31 36 35 2C 20 32 |.... 120, 165, 2|
00000EF0: 30 37 2C 20 32 34 30 2C 20 31 32 2C 20 31 36 35 |07, 240, 12, 165|
00000F00: 2C 20 32 30 36 2C 20 31 37 34 2C 20 31 33 35 2C |, 206, 174, 135,|
00000F10: 20 32 00 44 17 0A 05 83 20 31 36 30 2C 20 30 2C | 2.D.... 160, 0,|
00000F20: 20 31 33 32 2C 20 32 30 37 2C 20 33 32 2C 20 31 | 132, 207, 32, 1|
00000F30: 39 2C 20 32 33 34 2C 20 33 32 2C 20 31 38 30 2C |9, 234, 32, 180,|
00000F40: 20 32 32 39 00 76 17 14 05 83 20 32 30 31 2C 20 | 229.v.... 201, |
00000F50: 31 33 36 2C 20 32 34 30 2C 20 34 2C 20 32 30 31 |136, 240, 4, 201|
00000F60: 2C 20 31 33 33 2C 20 32 30 38 2C 20 31 2C 20 39 |, 133, 208, 1, 9|
00000F70: 36 2C 20 32 30 31 00 A7 17 1E 05 83 20 31 33 2C |6, 201...... 13,|
00000F80: 20 32 34 30 2C 20 34 2C 20 32 30 31 2C 20 31 37 | 240, 4, 201, 17|
00000F90: 2C 20 32 30 38 2C 20 38 2C 20 31 36 36 2C 20 32 |, 208, 8, 166, 2|
00000FA0: 31 34 2C 20 32 32 34 00 DC 17 28 05 83 20 32 34 |14, 224...(.. 24|
00000FB0: 2C 20 31 34 34 2C 20 32 30 31 2C 20 31 37 36 2C |, 144, 201, 176,|
00000FC0: 20 32 30 32 2C 20 31 36 36 2C 20 32 31 31 2C 20 | 202, 166, 211, |
00000FD0: 32 32 34 2C 20 33 39 2C 20 32 30 38 00 13 18 32 |224, 39, 208...2|
00000FE0: 05 83 20 31 39 33 2C 20 32 30 31 2C 20 31 35 37 |.. 193, 201, 157|
00000FF0: 2C 20 32 34 30 2C 20 31 38 39 2C 20 32 30 31 2C |, 240, 189, 201,|
00001000: 20 31 34 35 2C 20 32 34 30 2C 20 31 38 35 2C 20 | 145, 240, 185, |
00001010: 32 30 31 00 36 18 3C 05 83 20 32 39 2C 20 32 34 |201.6.<.. 29, 24|
00001020: 30 2C 20 31 38 31 2C 20 32 30 38 2C 20 31 38 32 |0, 181, 208, 182|
00001030: 2C 20 30 2C 20 30 00 55 18 46 05 81 4A B2 38 39 |, 0, 0.U.F..J.89|
00001040: 36 A4 31 30 32 32 3A 87 58 3A 97 4A 2C 58 3A 82 |6.1022:.X:.J,X:.|
00001050: 4A 3A 4A B2 30 00 5B 18 50 05 8E 00 00 00 |J:J.0.[.P..... |
.......53280,0:.53281,0:.".".&....1160.M
....*********************************.T.
...* *...(
..* S O R T D I R *.B.2.
.* *...<..
* VER 1.0 (C) 1983 BY CHRISDOS *...F..*
DONATED TO THE PUBLIC DOMAIN *.7.P..*
*.^.Z..*
QUICKSORT ADDED BY: *...D..*
*...N..*
LLOYD W. DULL III *.S.X..*
AKRON, OHIO 44312 *......*
*.!....********
*************************.G.... THIS U
TILITY FOR THE C64 WILL.C. .. SORT THE
DISK Z AND...... WRITE IT BACK TO THE
DISK....... IN ADDITION, IT WILL GRO
UP.J.... FILES TOGETHER BY TYPE....H..
SIMPLY RUN THIS PROGRAM. NO...R..
OTHER INPUT IS NEEDED..2.... -CH
RISDOS [70001,766].8.....].... -LLOYD W
. DULL III [7455,736]......"....
S O R T D I R BY CHRISDOS"......".
QUICKSORT ADDED BY:"......".
LLOYD W. DULL III"......"...BUT
TERFIELD'S STRING THING ADDED FOR".7."..
"....SPEEDIER READING OF THE DIRECTORY".
A.,..:." PLACE DISK TO BE SORTED INTO
"...6.." DRIVE 0 AND PRESS .SHIFT. KE
Y."...@..653,1: . TEST FOR SHIFT KEY.J.J
.. DR$(145),S(20),NM$(145)...T..*******
READ DIRECTORY FROM DISK...^..15,8,15:.1
5,"I0".F.H. 5:.5,8,5,"#":S(1).1:DE.0:I.1
:. SECTOR 1, DIRECTORY ENTRY 0.F.R..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$.P....Q..8..#5
,NG$,NG$...... Q:.S(I).21..370..... 5...
...DE.48.PG.1...B.. 1110:. PRINT THE Z.9
.L.."CONVERTING FILE NAMES......".C.V..
X.1.DE:. LOOP TO CONVERT FILE NAMES.....
NM$(X).H(DR$(X),1).J(DR$(X),4,16):. PUT
FILE TYPE BYTE IN FRONT.Z....P.2.17:. LO
OP TO HACK SHIFTED SPACES FROM END......
J(NM$(X),P,1).G(160).NM$(X).J(NM$(X),1,P
.1):.520...... P. .... X.4....**** QUICK
SORT.H...."SORTING.....".Q.&.S1.1.\.0.L(
1).1.H.:.R(1).DE.U.D.L1.L(S1)...N.R1.R(S
1)...X.S1.S1.1...B.L2.L1...L.R2.R1...V.X
$.NM$(.((L1.R1).2)).E...C.C.1......NM$(L
2)..X$..680.....L2.L2.1......640.....C.C
1......X$..NM$(R2)..720.....R2.R2.1.$.F.
.680.4.P..L2.R2..780.>.Z.S.S.1.H...T$.DR
$(L2):DR$(L2).DR$(R2):DR$(R2).T$.....T$.
NM$(L2):NM$(L2).NM$(R2):NM$(R2).T$.....L
2.L2.1.....R2.R2.1......L2..R2..640.L...
.L2..R1..830.X. .S1.S1.1...*.L(S1).L2...
4.R(S1).R1...>.R1.R2...H..L1.R1..610...R
..S1.0..580.0.\..*** END SORTING.T.F.. 1
110:. PRINT THE SORTED NAMES.S.P..*** WR
ITE NEW DIR TO DISK...Z. 5: 15:.15,8,15:
.5,8,5,"#".....W.I.1:DW.0:. W=NUMBER OF
BLOCKS TO WRITE...... I.1.W:.15,"B-P:";5
;0:. LOOP TO WRITE. FORCE BUF POINT TO B
EGIN.C...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 NEXT SEC
TOR...... Q.1.8:DW.DW.1:. LOOP TO PUT TH
E DIR ENTRIES.M....5,DR$(DW);:. PUT THE
ENTRY......Q..8..5,"CD";:. PUT IN 2 DUMM
Y BYTES...J.. Q.,.T..15,"U2:";5;0;18;S(I
):. WRITE THE SECTOR.H...."WRITING SECTO
R: "S(I).P.... I.`...."D O N E ".K... 5:
15......".......DO YOU WISH TO CONTINUE
WITH"......"...ANOTHER DISK? (Y/N)".I..
..Z$:.Z$.""..1050...$..Z$."Y".Z$."Y"..10
90......Z$."N".Z$."N"..1100...8..1030...
B.A.0:.A.0.....L...G.V..".":. Q.1.DE:. L
OOP THROUGH THE ENTRIES.}.`..J(DR$(Q),1,
1).G(0).. 1140:. SKIP 'DELEATED' ONES...
J..J(DR$(Q),4,16):. PRINT NAMES...T.. Q.
..~........ *******SUBROUTINE: LOAD "STR
ING THING" M.L. PROGRAM INTO MEMORY*****
**...... STRING MUST BE FIRST VARIABLE.5
...A$."ABCDEFGHIJKLM".S...A$.A$."NOPQRST
UVWXYZ1234".X.... ABOVE SETS STRING FOR
30 CHARS......"......................ONE
MOMENT PLEASE"...D.. 160, 2, 177, 45, 1
53, 137, 0, 200, 192, 6, 208...N.. 246,
162, 5, 32, 198, 255, 32, 228, 255, 234.
F.X.. 234, 234, 234, 164, 142, 145, 140,
200, 132, 142.Z.... 196, 139, 240, 4, 1
65, 144, 240, 234, 76, 204...... 255, 16
0, 1, 140, 146, 2, 208, 3, 32, 22......
231, 32, 44, 168, 165, 198, 133, 204, 24
0, 247...... 120, 165, 207, 240, 12, 165
, 206, 174, 135, 2.D.... 160, 0, 132, 20
7, 32, 19, 234, 32, 180, 229.V.... 201,
136, 240, 4, 201, 133, 208, 1, 96, 201..
.... 13, 240, 4, 201, 17, 208, 8, 166, 2
14, 224...(.. 24, 144, 201, 176, 202, 16
6, 211, 224, 39, 208...2.. 193, 201, 157
, 240, 189, 201, 145, 240, 185, 201.6.<.
. 29, 240, 181, 208, 182, 0, 0.U.F..J.89
6.1022:.X:.J,X:.J:J.0.[.P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL