A DIR COMPR. SOR
FILE INFORMATION
FILENAME(S): A DIR COMPR. SOR
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:10:11
APPEARS ON: 1 disk(s)
FILE HASH
62c757e96c82d56f3fc1623397e6dcce154ce08275315d1b163deddcc8e6491e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPIEER PRG 1A | A DIR COMPR. SOR | PRG | DuncanTwain | 10 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: C0 02 00 08 01 00 93 22 41 20 44 49 52 20 43 4F |......."A DIR CO|
00000010: 4D 50 52 2E 20 53 4F 52 54 2E 22 2C 38 2C 31 00 |MPR. SORT.",8,1.|
00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000040: 00 00 8B E3 34 03 7C A5 1A A7 E4 A7 86 AE 00 00 |....4.|.........|
00000050: 00 00 4C 48 B2 00 31 EA 66 02 47 FE 4A F3 91 F2 |..LH..1.f.G.J...|
00000060: 0E F2 50 F2 33 F3 57 F1 CA F1 ED F6 3E F1 2F F3 |..P.3.W.....>./.|
00000070: 66 FE A5 F4 ED F5 20 59 A6 4C AE A7 20 20 20 20 |f..... Y.L.. |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 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 20 20 20 20 20 20 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 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
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 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 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 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 00 31 08 0A 00 9C 3A 20 99 20 22 93 11 20 | .1....: . ".. |
00000550: 43 4F 4D 50 52 45 53 53 20 2F 20 53 4F 52 54 20 |COMPRESS / SORT |
00000560: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 49 45 |DIRECTORY ENTRIE|
00000570: 53 22 00 5A 08 14 00 99 20 22 11 11 20 44 49 53 |S".Z.... ".. DIS|
00000580: 4B 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 |K UNIT NR (8-15)|
00000590: 20 3F A0 38 20 9D 9D 9D 9D 22 3B 00 80 08 1E 00 | ?.8 ....";.....|
000005A0: 85 20 55 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 31 |. U: . U.8 . U.1|
000005B0: 35 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 32 |5 . . "...": . 2|
000005C0: 30 00 A6 08 28 00 99 20 22 11 20 44 49 53 4B 20 |0...(.. ". DISK |
000005D0: 44 52 49 56 45 20 4E 52 20 28 30 2F 31 29 20 3F |DRIVE NR (0/1) ?|
000005E0: A0 30 9D 9D 9D 22 3B 00 CB 08 32 00 85 20 44 3A |.0...";...2.. D:|
000005F0: 20 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 | . D.0 . D.1 . .|
00000600: 20 22 91 91 91 22 3A 20 89 20 34 30 00 FA 08 3C | "...": . 40...<|
00000610: 00 99 20 22 11 20 57 41 4E 54 20 54 4F 20 53 4F |.. ". WANT TO SO|
00000620: 52 54 20 44 49 52 45 43 54 4F 52 59 20 28 59 2F |RT DIRECTORY (Y/|
00000630: 4E 29 20 3F 20 4E 9D 9D 9D 22 3B 00 28 09 46 00 |N) ? N...";.(.F.|
00000640: 85 20 52 24 3A 20 8B 20 52 24 B3 B1 22 59 22 20 |. R$: . R$.."Y" |
00000650: AF 20 52 24 B3 B1 22 4E 22 20 A7 20 99 20 22 91 |. R$.."N" . . ".|
00000660: 91 91 22 3A 20 89 20 37 30 00 57 09 50 00 99 20 |..": . 70.W.P.. |
00000670: 22 11 11 20 50 55 54 20 54 41 52 47 45 54 20 44 |".. PUT TARGET D|
00000680: 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 |ISK IN UNIT";U;"|
00000690: 44 52 49 56 45 22 3B 44 00 7F 09 5A 00 99 20 22 |DRIVE";D...Z.. "|
000006A0: 20 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 | THEN PRESS ANY |
000006B0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
000006C0: 00 97 09 64 00 A1 20 58 24 3A 20 8B 20 58 24 B2 |...d.. X$: . X$.|
000006D0: 22 22 20 A7 20 31 30 30 00 BC 09 6E 00 41 B2 31 |"" . 100...n.A.1|
000006E0: 3A 20 4C B2 34 3A 20 4E B2 38 3A 20 56 B2 31 36 |: L.4: N.8: V.16|
000006F0: 3A 20 51 B2 33 32 3A 20 46 B2 31 32 38 00 E0 09 |: Q.32: F.128...|
00000700: 78 00 54 B2 31 38 3A 20 53 B2 41 3A 20 5A B2 30 |x.T.18: S.A: Z.0|
00000710: 3A 20 4D B2 31 34 34 3A 20 51 24 B2 C7 28 33 34 |: M.144: Q$..(34|
00000720: 29 00 FA 09 82 00 5A 24 B2 C7 28 30 29 3A 20 44 |).....Z$..(0): D|
00000730: 24 B2 C9 28 C4 28 44 29 2C 31 29 00 15 0A 8C 00 |$..(.(D),1).....|
00000740: 9F 20 31 2C 55 2C 31 35 2C 22 49 22 AA 44 24 3A |. 1,U,15,"I".D$:|
00000750: 20 8D 20 36 36 30 00 33 0A 96 00 9F 20 32 2C 55 | . 660.3.... 2,U|
00000760: 2C 32 2C 22 23 22 3A 20 8D 20 36 36 30 3A 20 48 |,2,"#": . 660: H|
00000770: 24 B2 22 22 00 4F 0A A0 00 98 31 2C 22 55 31 3A |$."".O....1,"U1:|
00000780: 22 3B 32 3B 44 3B 54 3B 5A 3A 20 8D 20 36 36 30 |";2;D;T;Z: . 660|
00000790: 00 6D 0A AA 00 98 31 2C 22 42 2D 50 3A 22 3B 32 |.m....1,"B-P:";2|
000007A0: 3B 4D 3A 20 81 20 58 B2 41 20 A4 20 32 30 00 85 |;M: . X.A . 20..|
000007B0: 0A B4 00 A1 23 32 2C 54 24 3A 20 48 24 B2 48 24 |....#2,T$: H$.H$|
000007C0: AA 54 24 3A 20 82 00 A9 0A BE 00 99 20 22 11 20 |.T$: ....... ". |
000007D0: 44 49 53 4B 2D 4E 41 4D 45 20 2B 20 49 44 3A 20 |DISK-NAME + ID: |
000007E0: 22 3B 51 24 3B 48 24 3B 51 24 00 D9 0A C8 00 99 |";Q$;H$;Q$......|
000007F0: 20 22 11 20 4F 4B 20 54 4F 20 50 52 4F 43 45 53 | ". OK TO PROCES|
00000800: 53 20 54 48 49 53 20 44 49 53 4B 20 28 59 2F 4E |S THIS DISK (Y/N|
00000810: 29 20 3F 20 59 9D 9D 9D 22 3B 00 F2 0A D2 00 85 |) ? Y...";......|
00000820: 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 20 | X$: . X$."Y" . |
00000830: 32 33 30 00 0B 0B DC 00 A0 20 32 3A 20 A0 20 31 |230...... 2: . 1|
00000840: 3A 20 99 20 22 93 22 3A 89 20 36 30 00 2D 0B E6 |: . ".":. 60.-..|
00000850: 00 86 20 45 24 28 4D 29 2C 54 28 32 30 29 2C 53 |.. E$(M),T(20),S|
00000860: 28 32 30 29 3A 20 42 B2 5A 3A 20 4A B2 5A 00 49 |(20): B.Z: J.Z.I|
00000870: 0B F0 00 98 31 2C 22 55 31 3A 22 3B 32 3B 44 3B |....1,"U1:";2;D;|
00000880: 54 3B 53 3A 20 8D 20 36 36 30 00 66 0B FA 00 98 |T;S: . 660.f....|
00000890: 31 2C 22 42 2D 50 3A 22 3B 32 3B 5A 3A 20 A1 23 |1,"B-P:";2;Z: .#|
000008A0: 32 2C 41 24 2C 42 24 00 85 0B 04 01 54 28 42 29 |2,A$,B$.....T(B)|
000008B0: B2 54 3A 20 53 28 42 29 B2 53 3A 20 54 B2 C6 28 |.T: S(B).S: T..(|
000008C0: 41 24 AA 5A 24 29 00 A4 0B 0E 01 53 B2 C6 28 42 |A$.Z$).....S..(B|
000008D0: 24 AA 5A 24 29 3A 20 48 B2 32 3A 20 81 20 59 B2 |$.Z$): H.2: . Y.|
000008E0: 41 20 A4 20 4E 00 BE 0B 18 01 98 31 2C 22 42 2D |A . N......1,"B-|
000008F0: 50 3A 22 3B 32 3B 48 3A 20 A1 23 32 2C 54 24 00 |P:";2;H: .#2,T$.|
00000900: E3 0B 22 01 43 B2 C6 28 54 24 AA 5A 24 29 3A 20 |..".C..(T$.Z$): |
00000910: 46 24 B2 C7 28 43 29 3A 20 8B 20 43 B3 46 20 A7 |F$..(C): . C.F .|
00000920: 20 33 32 30 00 06 0C 2C 01 81 20 58 B2 32 20 A4 | 320...,.. X.2 .|
00000930: 20 33 30 3A 20 A1 23 32 2C 54 24 3A 20 43 B2 C6 | 30: .#2,T$: C..|
00000940: 28 54 24 AA 5A 24 29 00 29 0C 36 01 46 24 B2 46 |(T$.Z$).).6.F$.F|
00000950: 24 AA C7 28 43 29 3A 20 82 3A 20 4A B2 4A AA 41 |$..(C): .: J.J.A|
00000960: 3A 20 45 24 28 4A 29 B2 46 24 00 4A 0C 40 01 48 |: E$(J).F$.J.@.H|
00000970: B2 48 AA 51 3A 20 82 3A 20 42 B2 42 AA 41 3A 20 |.H.Q: .: B.B.A: |
00000980: 8B 20 54 B1 5A 20 A7 20 32 34 30 00 62 0C 4A 01 |. T.Z . 240.b.J.|
00000990: 58 B2 4A 3A 20 8B 20 52 24 B2 22 4E 22 20 A7 20 |X.J: . R$."N" . |
000009A0: 34 32 30 00 86 0C 54 01 99 20 22 11 20 53 4F 52 |420...T.. ". SOR|
000009B0: 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 |TING DIRECTORY E|
000009C0: 4E 54 52 49 45 53 22 00 AC 0C 5E 01 58 B2 B5 28 |NTRIES"...^.X..(|
000009D0: 58 AD 32 29 3A 20 59 B2 41 3A 20 48 B2 4A AB 58 |X.2): Y.A: H.J.X|
000009E0: 3A 20 8B 20 58 B2 30 20 A7 20 34 32 30 00 B4 0C |: . X.0 . 420...|
000009F0: 68 01 4B B2 59 00 E2 0C 72 01 43 B2 4B AA 58 3A |h.K.Y...r.C.K.X:|
00000A00: 20 8B 20 CA 28 45 24 28 4B 29 2C 4C 2C 56 29 B3 | . .(E$(K),L,V).|
00000A10: B2 CA 28 45 24 28 43 29 2C 4C 2C 56 29 20 A7 20 |..(E$(C),L,V) . |
00000A20: 34 30 30 00 06 0D 7C 01 54 24 B2 45 24 28 4B 29 |400...|.T$.E$(K)|
00000A30: 3A 20 45 24 28 4B 29 B2 45 24 28 43 29 3A 20 45 |: E$(K).E$(C): E|
00000A40: 24 28 43 29 B2 54 24 00 1E 0D 86 01 4B B2 4B AB |$(C).T$.....K.K.|
00000A50: 58 3A 20 8B 20 4B B2 B1 41 20 A7 20 33 37 30 00 |X: . K..A . 370.|
00000A60: 35 0D 90 01 59 B2 59 AA 41 3A 20 8B 20 59 B1 48 |5...Y.Y.A: . Y.H|
00000A70: 20 A7 20 33 35 30 00 3F 0D 9A 01 89 20 33 36 30 | . 350.?.... 360|
00000A80: 00 66 0D A4 01 99 20 22 11 20 52 45 2D 57 52 49 |.f.... ". RE-WRI|
00000A90: 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 |TING DIRECTORY E|
00000AA0: 4E 54 52 49 45 53 22 00 87 0D AE 01 42 B2 5A 3A |NTRIES".....B.Z:|
00000AB0: 20 4B B2 41 3A 20 43 B2 B5 28 4A AD 4E AA 2E 39 | K.A: C..(J.N..9|
00000AC0: 29 3A 20 58 24 B2 22 22 00 A3 0D B8 01 81 20 58 |): X$.""...... X|
00000AD0: B2 41 20 A4 20 33 30 3A 20 58 24 B2 58 24 AA 5A |.A . 30: X$.X$.Z|
00000AE0: 24 3A 20 82 00 C0 0D C2 01 81 20 59 B2 41 20 A4 |$: ....... Y.A .|
00000AF0: 20 43 3A 20 98 31 2C 22 42 2D 50 3A 22 3B 32 3B | C: .1,"B-P:";2;|
00000B00: 32 00 E8 0D CC 01 81 20 58 B2 41 20 A4 20 4E 3A |2...... X.A . N:|
00000B10: 20 41 24 B2 58 24 3A 20 8B 20 4B B3 B2 4A 20 A7 | A$.X$: . K..J .|
00000B20: 20 41 24 B2 45 24 28 4B 29 00 06 0E D6 01 98 32 | A$.E$(K)......2|
00000B30: 2C 41 24 3B 3A 20 8B 20 58 B3 4E 20 A7 20 98 32 |,A$;: . X.N . .2|
00000B40: 2C 5A 24 3B 5A 24 3B 00 2A 0E E0 01 4B B2 4B AA |,Z$;Z$;.*...K.K.|
00000B50: 41 3A 20 82 3A 20 54 B2 54 28 42 29 3A 20 53 B2 |A: .: T.T(B): S.|
00000B60: 53 28 42 29 3A 20 42 B2 42 AA 41 00 45 0E EA 01 |S(B): B.B.A.E...|
00000B70: 41 24 B2 C7 28 54 28 42 29 29 3A 20 42 24 B2 C7 |A$..(T(B)): B$..|
00000B80: 28 53 28 42 29 29 00 5F 0E F4 01 8B 20 59 B2 43 |(S(B))._.... Y.C|
00000B90: 20 A7 20 41 24 B2 5A 24 3A 20 42 24 B2 22 FF 22 | . A$.Z$: B$."."|
00000BA0: 00 7C 0E FE 01 98 31 2C 22 42 2D 50 3A 22 3B 32 |.|....1,"B-P:";2|
00000BB0: 3B 5A 3A 20 98 32 2C 41 24 3B 42 24 3B 00 98 0E |;Z: .2,A$;B$;...|
00000BC0: 08 02 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B 54 |...1,"U2:";2;D;T|
00000BD0: 3B 53 3A 20 8D 20 36 36 30 00 B5 0E 12 02 82 3A |;S: . 660......:|
00000BE0: 20 8B 20 42 B2 32 30 20 B0 20 54 28 42 29 B2 5A | . B.20 . T(B).Z|
00000BF0: 20 A7 20 35 39 30 00 D2 0E 1C 02 98 31 2C 22 42 | . 590......1,"B|
00000C00: 2D 50 3A 22 3B 32 3B 5A 3A 20 81 20 58 B2 41 20 |-P:";2;Z: . X.A |
00000C10: A4 20 4E 00 E6 0E 26 02 98 32 2C 58 24 3B 5A 24 |. N...&..2,X$;Z$|
00000C20: 3B 5A 24 3B 3A 20 82 00 12 0F 30 02 54 B2 54 28 |;Z$;: ....0.T.T(|
00000C30: 42 29 3A 20 53 B2 53 28 42 29 3A 20 98 31 2C 22 |B): S.S(B): .1,"|
00000C40: 55 32 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 |U2:";2;D;T;S: . |
00000C50: 36 36 30 00 2D 0F 3A 02 98 31 2C 22 42 2D 46 3A |660.-.:..1,"B-F:|
00000C60: 22 3B 44 3B 54 3B 53 3A 20 8D 20 36 36 30 00 47 |";D;T;S: . 660.G|
00000C70: 0F 44 02 42 B2 42 AA 41 3A 20 8B 20 54 28 42 29 |.D.B.B.A: . T(B)|
00000C80: B1 5A 20 A7 20 35 36 30 00 5B 0F 4E 02 A0 20 32 |.Z . 560.[.N.. 2|
00000C90: 3A 20 8D 20 36 36 30 3A 20 A0 20 31 00 7B 0F 58 |: . 660: . 1.{.X|
00000CA0: 02 99 20 22 11 20 44 49 52 45 43 54 4F 52 59 20 |.. ". DIRECTORY |
00000CB0: 43 4F 4D 50 52 45 53 53 45 44 20 22 00 A3 0F 62 |COMPRESSED "...b|
00000CC0: 02 8B 20 52 24 B2 22 59 22 20 A7 20 99 20 22 20 |.. R$."Y" . . " |
00000CD0: 41 4E 44 20 45 4E 54 52 49 45 53 20 53 4F 3F 3F |AND ENTRIES SO??|
00000CE0: 7F 01 41 22 00 BC 0F 6C 02 99 20 22 20 46 4F 52 |..A"...l.. " FOR|
00000CF0: 3A 20 20 22 3B 51 24 3B 48 24 3B 51 24 00 E9 0F |: ";Q$;H$;Q$...|
00000D00: 76 02 99 20 22 11 20 50 52 4F 43 45 53 53 20 41 |v.. ". PROCESS A|
00000D10: 4E 4F 54 48 45 52 20 44 49 53 4B 20 28 59 2F 4E |NOTHER DISK (Y/N|
00000D20: 29 20 3F 20 59 9D 9D 9D 22 3B 00 00 10 80 02 85 |) ? Y...";......|
00000D30: 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 20 | X$: . X$."Y" . |
00000D40: 8A 00 0E 10 8A 02 99 20 22 93 22 3B 3A 20 80 00 |....... ".";: ..|
00000D50: 28 10 94 02 84 31 2C 45 2C 4D 24 2C 47 2C 50 3A |(....1,E,M$,G,P:|
00000D60: 8B 20 45 B2 30 20 A7 20 8E 00 43 10 9E 02 99 20 |. E.0 . ..C.... |
00000D70: 22 11 20 45 52 52 4F 52 3A 20 22 3B 45 3B 4D 24 |". ERROR: ";E;M$|
00000D80: 3B 47 3B 50 00 53 10 A8 02 A0 20 32 3A 20 A0 20 |;G;P.S.... 2: . |
00000D90: 31 3A 20 80 00 00 00 |1: .... |
......."A DIR COMPR. SORT.",8,1.........
............................4.|.........
..LH..1.F.G.J.....P.3.W.J...>./.F..... Y
.L..
.1....: . "..
COMPRESS / SORT DIRECTORY ENTRIES".Z....
".. DISK UNIT NR (8-15) ? 8 ....";.....
. U: . U.8 . U.15 . . "...": . 20...(..
". DISK DRIVE NR (0/1) ? 0...";.K.2.. D:
. D.0 . D.1 . . "...": . 40...<.. ". WA
NT TO SORT DIRECTORY (Y/N) ? N...";.(.F.
. R$: . R$.."Y" . R$.."N" . . "...": . 7
0.W.P.. ".. PUT TARGET DISK IN UNIT";U;"
DRIVE";D..Z.. " THEN PRESS ANY KEY TO C
ONTINUE"...D.. X$: . X$."" . 100...N.A.1
: L.4: N.8: V.16: Q.32: F.128...X.T.18:
S.A: Z.0: M.144: Q$.G(34).....Z$.G(0): D
$.I(D(D),1)...... 1,U,15,"I".D$: . 660.3
.... 2,U,2,"#": . 660: H$."".O. ..1,"U1:
";2;D;T;Z: . 660.M....1,"B-P:";2;M: . X.
A . 20......#2,T$: H$.H$.T$: ....... ".
DISK-NAME + ID: ";Q$;H$;Q$.Y.H.. ". OK T
O PROCESS THIS DISK (Y/N) ? Y...";...R..
X$: . X$."Y" . 230..... 2: 1: . ".":
. 60.-.... E$(M),T(20),S(20): B.Z: J.Z.I
....1,"U1:";2;D;T;S: . 660.F....1,"B-P:"
;2;Z: .#2,A$,B$.....T(B).T: S(B).S: T.F(
A$.Z$).....S.F(B$.Z$): H.2: . Y.A . N...
...1,"B-P:";2;H: .#2,T$...".C.F(T$.Z$):
F$.G(C): . C.F . 320...,.. X.2 . 30: .#2
,T$: C.F(T$.Z$).).6.F$.F$.G(C): .: J.J.A
: E$(J).F$.J.@.H.H.Q: .: B.B.A: . T.Z .
240.B.J.X.J: . R$."N" . 420...T.. ". SOR
TING DIRECTORY ENTRIES"...^.X..(X.2): Y.
A: H.J.X: . X.0 . 420...H.K.Y...R.C.K.X:
. J(E$(K),L,V)..J(E$(C),L,V) . 400...|.
T$.E$(K): E$(K).E$(C): E$(C).T$.....K.K.
X: . K..A . 370.5...Y.Y.A: . Y.H . 350.?
.... 360.F.... ". RE-WRITING DIRECTORY E
NTRIES".....B.Z: K.A: C..(J.N..9): X$.""
...... X.A . 30: X$.X$.Z$: ....B.. Y.A .
C: .1,"B-P:";2;2...L.. X.A . N: A$.X$:
. K..J . A$.E$(K)...V..2,A$;: . X.N . .2
,Z$;Z$;.*...K.K.A: .: T.T(B): S.S(B): B.
B.A.E...A$.G(T(B)): B$.G(S(B))._.... Y.C
. A$.Z$: B$.".".|....1,"B-P:";2;Z: .2,A
$;B$;......1,"U2:";2;D;T;S: . 660......:
. B.20 . T(B).Z . 590.R....1,"B-P:";2;Z
: . X.A . N...&..2,X$;Z$;Z$;: ....0.T.T(
B): S.S(B): .1,"U2:";2;D;T;S: . 660.-.:.
.1,"B-F:";D;T;S: . 660.G.D.B.B.A: . T(B)
.Z . 560.[.N. 2: . 660: 1.{.X.. ". DI
RECTORY COMPRESSED "...B.. R$."Y" . . "
AND ENTRIES SO??.A"...L.. " FOR: ";Q$;
H$;Q$...V.. ". PROCESS ANOTHER DISK (Y/N
) ? Y...";...... X$: . X$."Y" . .......
".";: ..(....1,E,M$,G,P:. E.0 . ..C....
". ERROR: ";E;M$;G;P.S... 2: 1: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL