CMD DIR SORT 1.5
FILE INFORMATION
FILENAME(S): CMD DIR SORT 1.5
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 3 disk(s)
FILE HASH
c2889d3c4aa0a43449fc256e5284d95d8991ec6f16c141920dd9091b3ddbfea7
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CMD UTILITIES | CMD DIR SORT 1.5 | PRG | Treasure Chest - Klaus Der Suhler | 9 | 2 | DOWNLOAD FILE |
| CMD UTILITIES | CMD DIR SORT 1.5 | PRG | Icebreaker | 12 | 2 | DOWNLOAD FILE |
| CMD UTILITIES | CMD DIR SORT 1.5 | PRG | Icebreaker | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 21 1C 64 00 8F 20 20 20 2A 2A 20 43 4D 44 |..!.d.. ** CMD| 00000010: 20 44 49 52 20 53 4F 52 54 20 56 31 2E 35 20 2A | DIR SORT V1.5 *| 00000020: 2A 00 5A 1C 6E 00 97 35 33 32 38 30 2C 30 3A 97 |*.Z.n..53280,0:.| 00000030: 35 33 32 38 31 2C 30 3A 99 22 93 05 20 20 20 20 |53281,0:.".. | 00000040: 20 20 20 20 20 20 20 43 4D 44 20 44 49 52 45 43 | CMD DIREC| 00000050: 54 4F 52 59 20 53 4F 52 54 22 00 7C 1C 78 00 99 |TORY SORT".|.x..| 00000060: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 |" B| 00000070: 59 20 44 2E 20 43 4F 54 54 4F 4E 22 00 A0 1C 82 |Y D. COTTON"....| 00000080: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00000090: 20 28 43 29 20 31 39 39 30 20 43 4D 44 11 11 22 | (C) 1990 CMD.."| 000000A0: 00 E5 1C 8C 00 86 46 45 24 28 31 30 30 30 29 2C |......FE$(1000),| 000000B0: 54 25 28 31 32 35 29 2C 53 25 28 31 32 35 29 3A |T%(125),S%(125):| 000000C0: 8F 20 46 45 24 3D 46 49 4C 45 20 45 4E 54 52 59 |. FE$=FILE ENTRY| 000000D0: 2C 20 54 25 3D 54 52 41 43 4B 2C 20 53 25 3D 53 |, T%=TRACK, S%=S| 000000E0: 45 43 54 4F 52 00 1F 1D 96 00 42 46 24 B2 C7 28 |ECTOR.....BF$..(| 000000F0: 32 35 35 29 3A 81 49 B2 31 A4 34 3A 42 46 24 B2 |255):.I.1.4:BF$.| 00000100: 42 46 24 AA 42 46 24 3A 82 3A 81 49 B2 31 A4 33 |BF$.BF$:.:.I.1.3| 00000110: 3A 42 46 24 B2 C7 28 30 29 AA 42 46 24 3A 82 00 |:BF$..(0).BF$:..| 00000120: 3A 1D A0 00 81 49 B2 31 A4 31 31 3A 42 46 24 B2 |:....I.1.11:BF$.| 00000130: 42 46 24 AA C7 28 30 29 3A 82 00 55 1D AA 00 81 |BF$..(0):..U....| 00000140: 49 B2 31 A4 33 30 3A 5A 46 24 B2 5A 46 24 AA C7 |I.1.30:ZF$.ZF$..| 00000150: 28 30 29 3A 82 00 65 1D B4 00 8F 20 2A 2A 20 53 |(0):..e.... ** S| 00000160: 45 54 20 55 50 00 78 1D BE 00 44 56 B2 C2 28 31 |ET UP.x...DV..(1| 00000170: 38 36 29 3A 4D 52 B2 37 00 A5 1D C8 00 85 22 05 |86):MR.7......".| 00000180: 44 45 56 49 43 45 20 4E 55 4D 42 45 52 20 20 20 |DEVICE NUMBER | 00000190: 20 22 3B 44 56 3A 8B 44 56 B3 38 B0 44 56 B1 32 | ";DV:.DV.8.DV.2| 000001A0: 39 A7 32 30 30 00 D0 1D D2 00 9F 31 35 2C 44 56 |9.200......15,DV| 000001B0: 2C 31 35 3A 98 31 35 2C 22 4D 2D 52 22 3B C7 28 |,15:.15,"M-R";.(| 000001C0: 32 33 33 29 3B C7 28 31 36 36 29 3B C7 28 31 29 |233);.(166);.(1)| 000001D0: 00 ED 1D DC 00 A1 23 31 35 2C 49 24 3A A0 31 35 |......#15,I$:.15| 000001E0: 3A 8B 49 24 B2 22 38 22 A7 4D 52 B2 39 00 18 1E |:.I$."8".MR.9...| 000001F0: E6 00 9F 31 35 2C 44 56 2C 31 35 3A 98 31 35 2C |...15,DV,15:.15,| 00000200: 22 4D 2D 52 22 3B C7 28 31 36 30 29 3B C7 28 32 |"M-R";.(160);.(2| 00000210: 35 34 29 3B C7 28 36 29 00 43 1E F0 00 49 44 24 |54);.(6).C...ID$| 00000220: B2 22 22 3A 81 49 B2 31 A4 36 3A A1 23 31 35 2C |."":.I.1.6:.#15,| 00000230: 49 24 3A 49 44 24 B2 49 44 24 AA 49 24 3A 82 3A |I$:ID$.ID$.I$:.:| 00000240: A0 31 35 00 5C 1E FA 00 8B C9 28 49 44 24 2C 32 |.15.\.....(ID$,2| 00000250: 29 B2 22 48 44 22 A7 4D 52 B2 33 32 00 75 1E 04 |)."HD".MR.32.u..| 00000260: 01 8B C9 28 49 44 24 2C 32 29 B2 22 46 44 22 A7 |...(ID$,2)."FD".| 00000270: 4D 52 B2 33 33 00 9C 1E 0E 01 8B C9 28 49 44 24 |MR.33.......(ID$| 00000280: 2C 32 29 B2 22 52 4C 22 B0 C9 28 49 44 24 2C 32 |,2)."RL"..(ID$,2| 00000290: 29 B2 22 52 44 22 A7 4D 52 B2 31 30 00 AC 1E 18 |)."RD".MR.10....| 000002A0: 01 8B 4D 52 B3 31 30 A7 89 33 37 30 00 C8 1E 22 |..MR.10..370..."| 000002B0: 01 85 22 50 41 52 54 49 54 49 4F 4E 20 4E 55 4D |.."PARTITION NUM| 000002C0: 42 45 52 20 22 3B 50 41 00 F4 1E 2C 01 8B 50 41 |BER ";PA...,..PA| 000002D0: B3 31 B0 28 4D 52 B2 33 32 AF 50 41 B1 32 35 34 |.1.(MR.32.PA.254| 000002E0: 29 B0 28 4D 52 B3 B1 33 32 AF 50 41 B1 33 31 29 |).(MR..32.PA.31)| 000002F0: A7 32 39 30 00 21 1F 36 01 9F 31 35 2C 44 56 2C |.290.!.6..15,DV,| 00000300: 31 35 3A 98 31 35 2C 22 43 D0 22 3B C7 28 50 41 |15:.15,"C.";.(PA| 00000310: 29 3A 98 31 35 2C 22 47 2D 50 22 3B C7 28 50 41 |):.15,"G-P";.(PA| 00000320: 29 00 49 1F 40 01 A1 23 31 35 2C 50 54 24 3A 50 |).I.@..#15,PT$:P| 00000330: 54 24 B2 50 54 24 AA C7 28 30 29 3A 50 54 B2 C6 |T$.PT$..(0):PT..| 00000340: 28 50 54 24 29 3A A0 31 35 00 6C 1F 4A 01 8B 50 |(PT$):.15.l.J..P| 00000350: 54 B2 31 A7 85 22 50 41 54 48 20 20 20 20 20 20 |T.1.."PATH | 00000360: 20 20 20 20 20 20 20 22 3B 50 41 24 00 A5 1F 54 | ";PA$...T| 00000370: 01 8B 50 54 B2 31 A7 8B 50 41 24 B3 B1 22 22 A7 |..PT.1..PA$.."".| 00000380: 8B 28 C8 28 50 41 24 2C 32 29 B3 B1 22 2F 2F 22 |.(.(PA$,2).."//"| 00000390: 29 B0 28 C9 28 50 41 24 2C 31 29 B3 B1 22 2F 22 |).(.(PA$,1).."/"| 000003A0: 29 A7 33 33 30 00 D3 1F 5E 01 8B 50 54 B2 31 A7 |).330...^..PT.1.| 000003B0: 8B 50 41 24 B3 B1 22 22 A7 9F 31 35 2C 44 56 2C |.PA$..""..15,DV,| 000003C0: 31 35 3A 98 31 35 2C 22 43 44 22 3B 50 41 24 3A |15:.15,"CD";PA$:| 000003D0: A0 31 35 00 F7 1F 68 01 8F 20 2A 2A 20 46 49 4E |.15...h.. ** FIN| 000003E0: 44 20 53 54 41 52 54 49 4E 47 20 54 20 26 20 53 |D STARTING T & S| 000003F0: 20 4F 46 20 44 49 52 00 18 20 72 01 9F 31 35 2C | OF DIR.. r..15,| 00000400: 44 56 2C 31 35 3A 9F 32 2C 44 56 2C 32 2C 22 24 |DV,15:.2,DV,2,"$| 00000410: 30 3A 2A 2C 50 2C 52 22 00 3E 20 7C 01 98 31 35 |0:*,P,R".> |..15| 00000420: 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 4D 52 29 C7 |,"M-R".(0).(MR).| 00000430: 28 32 29 3A A1 23 31 35 2C 54 24 2C 53 24 00 49 |(2):.#15,T$,S$.I| 00000440: 20 86 01 A0 32 3A A0 31 35 00 69 20 90 01 42 54 | ...2:.15.i ..BT| 00000450: B2 C6 28 54 24 AA C7 28 30 29 29 3A 42 53 B2 C6 |..(T$..(0)):BS..| 00000460: 28 53 24 AA C7 28 30 29 29 00 7C 20 9A 01 54 B2 |(S$..(0)).| ..T.| 00000470: 42 54 3A 53 B2 42 53 3A 4E 46 B2 30 00 99 20 A4 |BT:S.BS:NF.0.. .| 00000480: 01 8F 20 2A 2A 20 52 45 41 44 20 44 49 52 20 49 |.. ** READ DIR I| 00000490: 4E 54 4F 20 41 52 52 41 59 00 B8 20 AE 01 99 22 |NTO ARRAY.. ..."| 000004A0: 93 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F |.READING DIRECTO| 000004B0: 52 59 2E 2E 2E 22 3A 99 00 C1 20 B8 01 42 43 B2 |RY...":... ..BC.| 000004C0: 30 00 CF 20 C2 01 9F 31 35 2C 44 56 2C 31 35 00 |0.. ...15,DV,15.| 000004D0: DF 20 CC 01 9F 32 2C 44 56 2C 32 2C 22 23 22 00 |. ...2,DV,2,"#".| 000004E0: 11 21 D6 01 8B 42 43 B2 31 32 35 A7 A0 32 3A A0 |.!...BC.125..2:.| 000004F0: 31 35 3A 99 22 93 44 49 52 45 43 54 4F 52 59 20 |15:.".DIRECTORY | 00000500: 54 4F 4F 20 4C 41 52 47 45 21 22 3A 89 31 30 33 |TOO LARGE!":.103| 00000510: 30 00 2F 21 E0 01 4E 46 B2 4E 46 AA 38 3A 98 31 |0./!..NF.NF.8:.1| 00000520: 35 2C 22 55 31 3A 22 3B 32 3B 30 3B 54 3B 53 00 |5,"U1:";2;0;T;S.| 00000530: 41 21 EA 01 98 31 35 2C 22 42 2D 50 22 3B 32 3B |A!...15,"B-P";2;| 00000540: 30 00 4C 21 F4 01 81 49 B2 30 A4 37 00 5C 21 FE |0.L!...I.0.7.\!.| 00000550: 01 A1 23 32 2C 4E 54 24 2C 4E 53 24 00 69 21 08 |..#2,NT$,NS$.i!.| 00000560: 02 8B 49 B1 30 A7 35 34 30 00 93 21 12 02 54 25 |..I.0.540..!..T%| 00000570: 28 42 43 29 B2 C6 28 4E 54 24 AA C7 28 30 29 29 |(BC)..(NT$..(0))| 00000580: 3A 53 25 28 42 43 29 B2 C6 28 4E 53 24 AA C7 28 |:S%(BC)..(NS$..(| 00000590: 30 29 29 00 CD 21 1C 02 46 45 24 B2 22 22 3A 81 |0))..!..FE$."":.| 000005A0: 4A B2 31 A4 33 30 3A A1 23 32 2C 45 42 24 3A 45 |J.1.30:.#2,EB$:E| 000005B0: 42 B2 C6 28 45 42 24 AA C7 28 30 29 29 3A 46 45 |B..(EB$..(0)):FE| 000005C0: 24 B2 46 45 24 AA C7 28 45 42 29 3A 82 00 04 22 |$.FE$..(EB):..."| 000005D0: 26 02 46 45 24 28 42 43 AC 38 AA 49 29 B2 46 45 |&.FE$(BC.8.I).FE| 000005E0: 24 3A 8B C6 28 CA 28 46 45 24 2C 31 2C 31 29 AA |$:..(.(FE$,1,1).| 000005F0: C7 28 30 29 29 B1 30 A7 99 CA 28 46 45 24 2C 34 |.(0)).0...(FE$,4| 00000600: 2C 31 36 29 00 0A 22 30 02 82 00 33 22 3A 02 8B |,16).."0...3":..| 00000610: 28 54 25 28 42 43 29 AC 32 35 36 AA 53 25 28 42 |(T%(BC).256.S%(B| 00000620: 43 29 B2 32 35 35 29 A7 A0 32 3A A0 31 35 3A 89 |C).255)..2:.15:.| 00000630: 35 39 30 00 56 22 44 02 54 B2 54 25 28 42 43 29 |590.V"D.T.T%(BC)| 00000640: 3A 53 B2 53 25 28 42 43 29 3A 42 43 B2 42 43 AA |:S.S%(BC):BC.BC.| 00000650: 31 3A 89 34 37 30 00 70 22 4E 02 8F 20 2A 2A 20 |1:.470.p"N.. ** | 00000660: 41 44 4A 55 53 54 20 44 45 4C 20 46 49 4C 45 53 |ADJUST DEL FILES| 00000670: 00 7E 22 58 02 81 49 B2 30 A4 4E 46 AB 31 00 A6 |.~"X..I.0.NF.1..| 00000680: 22 62 02 8B C6 28 CA 28 46 45 24 28 49 29 2C 31 |"b...(.(FE$(I),1| 00000690: 2C 31 29 AA C7 28 30 29 29 B2 30 A7 46 45 24 28 |,1)..(0)).0.FE$(| 000006A0: 49 29 B2 42 46 24 00 AC 22 6C 02 82 00 C2 22 76 |I).BF$.."l...."v| 000006B0: 02 8F 20 2A 2A 20 53 4F 52 54 20 45 4E 54 52 49 |.. ** SORT ENTRI| 000006C0: 45 53 00 E0 22 80 02 99 22 93 53 4F 52 54 49 4E |ES.."...".SORTIN| 000006D0: 47 22 4E 46 22 46 49 4C 45 53 2E 2E 2E 22 3A 99 |G"NF"FILES...":.| 000006E0: 00 F0 22 8A 02 8F 20 48 45 41 50 20 53 4F 52 54 |.."... HEAP SORT| 000006F0: 00 07 23 94 02 48 4C B2 B5 28 4E 46 AD 32 29 AA |..#..HL..(NF.2).| 00000700: 31 3A 48 52 B2 4E 46 00 16 23 9E 02 8B 48 4C B3 |1:HR.NF..#...HL.| 00000710: B2 31 A7 36 39 30 00 2C 23 A8 02 48 4C B2 48 4C |.1.690.,#..HL.HL| 00000720: AB 31 3A 8D 37 31 30 3A 89 36 37 30 00 3C 23 B2 |.1:.710:.670.<#.| 00000730: 02 8B 48 52 B3 B2 31 A7 89 37 38 30 00 78 23 BC |..HR..1..780.x#.| 00000740: 02 48 58 24 B2 46 45 24 28 31 29 3A 46 45 24 28 |.HX$.FE$(1):FE$(| 00000750: 31 29 B2 46 45 24 28 48 52 29 3A 46 45 24 28 48 |1).FE$(HR):FE$(H| 00000760: 52 29 B2 48 58 24 3A 48 52 B2 48 52 AB 31 3A 8D |R).HX$:HR.HR.1:.| 00000770: 37 31 30 3A 89 36 39 30 00 96 23 C6 02 48 49 B2 |710:.690..#..HI.| 00000780: 48 4C 3A 48 4A B2 32 AC 48 49 3A 48 58 24 B2 46 |HL:HJ.2.HI:HX$.F| 00000790: 45 24 28 48 49 29 00 A5 23 D0 02 8B 48 4A B1 48 |E$(HI)..#...HJ.H| 000007A0: 52 A7 37 36 30 00 DC 23 DA 02 8B 48 4A B3 48 52 |R.760..#...HJ.HR| 000007B0: A7 8B CA 28 46 45 24 28 48 4A 29 2C 34 2C 31 36 |...(FE$(HJ),4,16| 000007C0: 29 B3 B2 CA 28 46 45 24 28 48 4A AA 31 29 2C 34 |)...(FE$(HJ.1),4| 000007D0: 2C 31 36 29 A7 48 4A B2 48 4A AA 31 00 01 24 E4 |,16).HJ.HJ.1..$.| 000007E0: 02 8B CA 28 48 58 24 2C 34 2C 31 36 29 B1 CA 28 |...(HX$,4,16)..(| 000007F0: 46 45 24 28 48 4A 29 2C 34 2C 31 36 29 A7 37 36 |FE$(HJ),4,16).76| 00000800: 30 00 28 24 EE 02 46 45 24 28 48 49 29 B2 46 45 |0.($..FE$(HI).FE| 00000810: 24 28 48 4A 29 3A 48 49 B2 48 4A 3A 48 4A B2 32 |$(HJ):HI.HJ:HJ.2| 00000820: AC 48 49 3A 89 37 32 30 00 3A 24 F8 02 46 45 24 |.HI:.720.:$..FE$| 00000830: 28 48 49 29 B2 48 58 24 3A 8E 00 54 24 02 03 8F |(HI).HX$:..T$...| 00000840: 20 2A 2A 20 53 48 4F 57 20 53 4F 52 54 45 44 20 | ** SHOW SORTED | 00000850: 4C 49 53 54 00 89 24 0C 03 81 49 B2 31 A4 4E 46 |LIST..$...I.1.NF| 00000860: 3A 8B C6 28 CA 28 46 45 24 28 49 29 2C 31 2C 31 |:..(.(FE$(I),1,1| 00000870: 29 AA C7 28 30 29 29 B1 30 A7 99 CA 28 46 45 24 |)..(0)).0...(FE$| 00000880: 28 49 29 2C 34 2C 31 36 29 00 8F 24 0E 03 82 00 |(I),4,16)..$....| 00000890: A6 24 16 03 8F 20 2A 2A 20 46 49 58 20 44 45 4C |.$... ** FIX DEL| 000008A0: 20 46 49 4C 45 53 00 B4 24 20 03 81 49 B2 30 A4 | FILES..$ ..I.0.| 000008B0: 4E 46 AB 31 00 DC 24 2A 03 8B C6 28 CA 28 46 45 |NF.1..$*...(.(FE| 000008C0: 24 28 49 29 2C 31 2C 31 29 AA C7 28 30 29 29 B2 |$(I),1,1)..(0)).| 000008D0: 30 A7 46 45 24 28 49 29 B2 5A 46 24 00 E2 24 34 |0.FE$(I).ZF$..$4| 000008E0: 03 82 00 F9 24 3E 03 8F 20 2A 2A 20 57 52 49 54 |....$>.. ** WRIT| 000008F0: 45 20 4E 45 57 20 44 49 52 00 20 25 48 03 99 22 |E NEW DIR. %H.."| 00000900: 93 57 52 49 54 45 20 4E 45 57 20 44 49 52 45 43 |.WRITE NEW DIREC| 00000910: 54 4F 52 59 20 54 4F 20 44 49 53 4B 3F 20 22 3B |TORY TO DISK? ";| 00000920: 00 33 25 52 03 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 |.3%R..K$:.K$."".| 00000930: 38 35 30 00 4D 25 5C 03 8B 4B 24 B3 B1 22 59 22 |850.M%\..K$.."Y"| 00000940: AF 4B 24 B3 B1 22 D9 22 A7 31 30 33 30 00 6E 25 |.K$..".".1030.n%| 00000950: 66 03 99 22 93 57 52 49 54 49 4E 47 20 4E 45 57 |f..".WRITING NEW| 00000960: 20 44 49 52 45 43 54 4F 52 59 2E 2E 2E 22 00 7C | DIRECTORY...".|| 00000970: 25 70 03 54 B2 42 54 3A 53 B2 42 53 00 96 25 7A |%p.T.BT:S.BS..%z| 00000980: 03 9F 31 35 2C 44 56 2C 31 35 3A 9F 32 2C 44 56 |..15,DV,15:.2,DV| 00000990: 2C 32 2C 22 23 22 00 A2 25 84 03 81 49 B2 30 A4 |,2,"#"..%...I.0.| 000009A0: 42 43 00 B4 25 8E 03 98 31 35 2C 22 42 2D 50 22 |BC..%...15,"B-P"| 000009B0: 3B 32 3B 30 00 D7 25 98 03 98 32 2C C7 28 54 25 |;2;0..%...2,.(T%| 000009C0: 28 49 29 29 3B C7 28 53 25 28 49 29 29 3B 46 45 |(I));.(S%(I));FE| 000009D0: 24 28 49 AC 38 29 3B 00 E2 25 A2 03 81 4A B2 31 |$(I.8);..%...J.1| 000009E0: A4 37 00 FF 25 AC 03 98 32 2C C7 28 30 29 3B C7 |.7..%...2,.(0);.| 000009F0: 28 30 29 3B 46 45 24 28 49 AC 38 AA 4A 29 3B 00 |(0);FE$(I.8.J);.| 00000A00: 05 26 B6 03 82 00 1B 26 C0 03 98 31 35 2C 22 55 |.&.....&...15,"U| 00000A10: 32 3A 22 3B 32 3B 30 3B 54 3B 53 00 2F 26 CA 03 |2:";2;0;T;S./&..| 00000A20: 54 B2 54 25 28 49 29 3A 53 B2 53 25 28 49 29 00 |T.T%(I):S.S%(I).| 00000A30: 35 26 D4 03 82 00 3C 26 DE 03 A0 32 00 52 26 E8 |5&....<&...2.R&.| 00000A40: 03 99 22 93 56 41 4C 49 44 41 54 49 4E 47 2E 2E |..".VALIDATING..| 00000A50: 2E 22 00 60 26 F2 03 98 31 35 2C 22 56 30 3A 22 |.".`&...15,"V0:"| 00000A60: 00 68 26 FC 03 A0 31 35 00 7C 26 06 04 8F 20 2A |.h&...15.|&... *| 00000A70: 2A 20 44 4F 20 41 4E 4F 54 48 45 52 00 9D 26 10 |* DO ANOTHER..&.| 00000A80: 04 99 22 93 53 4F 52 54 20 41 4E 4F 54 48 45 52 |..".SORT ANOTHER| 00000A90: 20 44 49 52 45 43 54 4F 52 59 3F 22 3B 00 B1 26 | DIRECTORY?";..&| 00000AA0: 1A 04 A1 4B 24 3A 8B 4B 24 B2 22 22 A7 31 30 35 |...K$:.K$."".105| 00000AB0: 30 00 C8 26 24 04 8B 4B 24 B3 B1 22 59 22 AF 4B |0..&$..K$.."Y".K| 00000AC0: 24 B3 B1 22 D9 22 A7 80 00 CE 26 2E 04 8A 00 00 |$.."."....&.....| 00000AD0: 00 |. |
..!.D.. ** CMD DIR SORT V1.5 **.Z.N..5 3280,0:.53281,0:.".. CMD DIREC TORY SORT".|.X.." BY D. COT TON". ...." (C) 1990 CMD.." ......FE$(1000),T%(125),S%(125):. FE$=FI LE ENTRY, T%=TRACK, S%=SECTOR.....BF$.G( 255):.I.1.4:BF$.BF$.BF$:.:.I.1.3:BF$.G(0 ).BF$:..:. ..I.1.11:BF$.BF$.G(0):..U.... I.1.30:ZF$.ZF$.G(0):..E.... ** SET UP.X. ..DV.B(186):MR.7...H..".DEVICE NUMBER ";DV:.DV.8.DV.29.200.P.R..15,DV,15:.15, "M-R";G(233);G(166);G(1)......#15,I$: 15 :.I$."8".MR.9......15,DV,15:.15,"M-R";G( 160);G(254);G(6).C...ID$."":.I.1.6:.#15, I$:ID$.ID$.I$:.: 15.\....I(ID$,2)."HD".M R.32.U....I(ID$,2)."FD".MR.33......I(ID$ ,2)."RL".I(ID$,2)."RD".MR.10......MR.10. .370.H.".."PARTITION NUMBER ";PA...,..PA .1.(MR.32.PA.254).(MR..32.PA.31).290.!.6 ..15,DV,15:.15,"CP";G(PA):.15,"G-P";G(PA ).I.@..#15,PT$:PT$.PT$.G(0):PT.F(PT$): 1 5.L.J..PT.1.."PATH ";PA$...T ..PT.1..PA$..""..(H(PA$,2).."//").(I(PA$ ,1).."/").330.S.^..PT.1..PA$..""..15,DV, 15:.15,"CD";PA$: 15...H.. ** FIND STARTI NG T & S OF DIR.. R..15,DV,15:.2,DV,2,"$ 0:*,P,R".> |..15,"M-R"G(0)G(MR)G(2):.#15 ,T$,S$.I .. 2: 15.I ..BT.F(T$.G(0)):BS.F (S$.G(0)).| ..T.BT:S.BS:NF.0.. ... ** RE AD DIR INTO ARRAY.. ...".READING DIRECTO RY...":..A ..BC.0.O B..15,DV,15.. L..2,D V,2,"#"..!V..BC.125. 2: 15:.".DIRECTORY TOO LARGE!":.1030./!..NF.NF.8:.15,"U1:"; 2;0;T;S.A!...15,"B-P";2;0.L!...I.0.7.\!. ..#2,NT$,NS$.I!...I.0.540..!..T%(BC).F(N T$.G(0)):S%(BC).F(NS$.G(0)).M!..FE$."":. J.1.30:.#2,EB$:EB.F(EB$.G(0)):FE$.FE$.G( EB):..."&.FE$(BC.8.I).FE$:.F(J(FE$,1,1). G(0)).0..J(FE$,4,16).."0...3":..(T%(BC). 256.S%(BC).255). 2: 15:.590.V"D.T.T%(BC) :S.S%(BC):BC.BC.1:.470.P"N.. ** ADJUST D EL FILES.~"X..I.0.NF.1.."B..F(J(FE$(I),1 ,1).G(0)).0.FE$(I).BF$.."L...B"V.. ** SO RT ENTRIES.."...".SORTING"NF"FILES...":. .."... HEAP SORT..#..HL..(NF.2).1:HR.NF. .#...HL..1.690.,#..HL.HL.1:.710:.670.<#. ..HR..1..780.X#..HX$.FE$(1):FE$(1).FE$(H R):FE$(HR).HX$:HR.HR.1:.710:.690..#F.HI. HL:HJ.2.HI:HX$.FE$(HI)..#P..HJ.HR.760..# Z..HJ.HR..J(FE$(HJ),4,16)..J(FE$(HJ.1),4 ,16).HJ.HJ.1..$...J(HX$,4,16).J(FE$(HJ), 4,16).760.($..FE$(HI).FE$(HJ):HI.HJ:HJ.2 .HI:.720.:$..FE$(HI).HX$:..T$... ** SHOW SORTED LIST..$...I.1.NF:.F(J(FE$(I),1,1 ).G(0)).0..J(FE$(I),4,16)..$.....$... ** FIX DEL FILES..$ ..I.0.NF.1..$*..F(J(FE $(I),1,1).G(0)).0.FE$(I).ZF$..$4....$>.. ** WRITE NEW DIR. %H..".WRITE NEW DIREC TORY TO DISK? ";.3%R..K$:.K$."".850.M%\. .K$.."Y".K$.."Y".1030.N%F..".WRITING NEW DIRECTORY...".|%P.T.BT:S.BS..%Z..15,DV, 15:.2,DV,2,"#"..%...I.0.BC..%...15,"B-P" ;2;0.W%...2,G(T%(I));G(S%(I));FE$(I.8);. .%...J.1.7..%...2,G(0);G(0);FE$(I.8.J);. .&.....&...15,"U2:";2;0;T;S./&J.T.T%(I): S.S%(I).5&T...<&.. 2.R&...".VALIDATING.. .".`&...15,"V0:".H&.. 15.|&... ** DO ANO THER..&...".SORT ANOTHER DIRECTORY?";..& ...K$:.K$."".1050.H&$..K$.."Y".K$.."Y".. .N&......
> CLICK IMAGE PREVIEW FOR FULL MODAL