00000000: 01 04 31 08 0A 00 9C 3A 20 99 20 22 93 11 20 43 |..1....: . ".. C|
00000010: 4F 4D 50 52 45 53 53 20 2F 20 53 4F 52 54 20 44 |OMPRESS / SORT D|
00000020: 49 52 45 43 54 4F 52 59 20 45 4E 54 52 49 45 53 |IRECTORY ENTRIES|
00000030: 22 00 5A 08 14 00 99 20 22 11 11 20 44 49 53 4B |".Z.... ".. DISK|
00000040: 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 20 | UNIT NR (8-15) |
00000050: 3F A0 38 20 9D 9D 9D 9D 22 3B 00 80 08 1E 00 85 |?.8 ....";......|
00000060: 20 55 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 31 35 | U: . U.8 . U.15|
00000070: 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 32 30 | . . "...": . 20|
00000080: 00 A6 08 28 00 99 20 22 11 20 44 49 53 4B 20 44 |...(.. ". DISK D|
00000090: 52 49 56 45 20 4E 52 20 28 30 2F 31 29 20 3F A0 |RIVE NR (0/1) ?.|
000000A0: 30 9D 9D 9D 22 3B 00 CB 08 32 00 85 20 44 3A 20 |0...";...2.. D: |
000000B0: 8B 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 |. D.0 . D.1 . . |
000000C0: 22 91 91 91 22 3A 20 89 20 34 30 00 FA 08 3C 00 |"...": . 40...<.|
000000D0: 99 20 22 11 20 57 41 4E 54 20 54 4F 20 53 4F 52 |. ". WANT TO SOR|
000000E0: 54 20 44 49 52 45 43 54 4F 52 59 20 28 59 2F 4E |T DIRECTORY (Y/N|
000000F0: 29 20 3F 20 4E 9D 9D 9D 22 3B 00 28 09 46 00 85 |) ? N...";.(.F..|
00000100: 20 52 24 3A 20 8B 20 52 24 B3 B1 22 59 22 20 AF | R$: . R$.."Y" .|
00000110: 20 52 24 B3 B1 22 4E 22 20 A7 20 99 20 22 91 91 | R$.."N" . . "..|
00000120: 91 22 3A 20 89 20 37 30 00 57 09 50 00 99 20 22 |.": . 70.W.P.. "|
00000130: 11 11 20 50 55 54 20 54 41 52 47 45 54 20 44 49 |.. PUT TARGET DI|
00000140: 53 4B 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 44 |SK IN UNIT";U;"D|
00000150: 52 49 56 45 22 3B 44 00 7F 09 5A 00 99 20 22 20 |RIVE";D...Z.. " |
00000160: 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B |THEN PRESS ANY K|
00000170: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |EY TO CONTINUE".|
00000180: 97 09 64 00 A1 20 58 24 3A 20 8B 20 58 24 B2 22 |..d.. X$: . X$."|
00000190: 22 20 A7 20 31 30 30 00 BC 09 6E 00 41 B2 31 3A |" . 100...n.A.1:|
000001A0: 20 4C B2 34 3A 20 4E B2 38 3A 20 56 B2 31 36 3A | L.4: N.8: V.16:|
000001B0: 20 51 B2 33 32 3A 20 46 B2 31 32 38 00 E0 09 78 | Q.32: F.128...x|
000001C0: 00 54 B2 31 38 3A 20 53 B2 41 3A 20 5A B2 30 3A |.T.18: S.A: Z.0:|
000001D0: 20 4D B2 31 34 34 3A 20 51 24 B2 C7 28 33 34 29 | M.144: Q$..(34)|
000001E0: 00 FA 09 82 00 5A 24 B2 C7 28 30 29 3A 20 44 24 |.....Z$..(0): D$|
000001F0: B2 C9 28 C4 28 44 29 2C 31 29 00 15 0A 8C 00 9F |..(.(D),1)......|
00000200: 20 31 2C 55 2C 31 35 2C 22 49 22 AA 44 24 3A 20 | 1,U,15,"I".D$: |
00000210: 8D 20 36 36 30 00 33 0A 96 00 9F 20 32 2C 55 2C |. 660.3.... 2,U,|
00000220: 32 2C 22 23 22 3A 20 8D 20 36 36 30 3A 20 48 24 |2,"#": . 660: H$|
00000230: B2 22 22 00 4F 0A A0 00 98 31 2C 22 55 31 3A 22 |."".O....1,"U1:"|
00000240: 3B 32 3B 44 3B 54 3B 5A 3A 20 8D 20 36 36 30 00 |;2;D;T;Z: . 660.|
00000250: 6D 0A AA 00 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |m....1,"B-P:";2;|
00000260: 4D 3A 20 81 20 58 B2 41 20 A4 20 32 30 00 85 0A |M: . X.A . 20...|
00000270: B4 00 A1 23 32 2C 54 24 3A 20 48 24 B2 48 24 AA |...#2,T$: H$.H$.|
00000280: 54 24 3A 20 82 00 A9 0A BE 00 99 20 22 11 20 44 |T$: ....... ". D|
00000290: 49 53 4B 2D 4E 41 4D 45 20 2B 20 49 44 3A 20 22 |ISK-NAME + ID: "|
000002A0: 3B 51 24 3B 48 24 3B 51 24 00 D9 0A C8 00 99 20 |;Q$;H$;Q$...... |
000002B0: 22 11 20 4F 4B 20 54 4F 20 50 52 4F 43 45 53 53 |". OK TO PROCESS|
000002C0: 20 54 48 49 53 20 44 49 53 4B 20 28 59 2F 4E 29 | THIS DISK (Y/N)|
000002D0: 20 3F 20 59 9D 9D 9D 22 3B 00 F2 0A D2 00 85 20 | ? Y...";...... |
000002E0: 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 20 32 |X$: . X$."Y" . 2|
000002F0: 33 30 00 0B 0B DC 00 A0 20 32 3A 20 A0 20 31 3A |30...... 2: . 1:|
00000300: 20 99 20 22 93 22 3A 89 20 36 30 00 2D 0B E6 00 | . ".":. 60.-...|
00000310: 86 20 45 24 28 4D 29 2C 54 28 32 30 29 2C 53 28 |. E$(M),T(20),S(|
00000320: 32 30 29 3A 20 42 B2 5A 3A 20 4A B2 5A 00 49 0B |20): B.Z: J.Z.I.|
00000330: F0 00 98 31 2C 22 55 31 3A 22 3B 32 3B 44 3B 54 |...1,"U1:";2;D;T|
00000340: 3B 53 3A 20 8D 20 36 36 30 00 66 0B FA 00 98 31 |;S: . 660.f....1|
00000350: 2C 22 42 2D 50 3A 22 3B 32 3B 5A 3A 20 A1 23 32 |,"B-P:";2;Z: .#2|
00000360: 2C 41 24 2C 42 24 00 85 0B 04 01 54 28 42 29 B2 |,A$,B$.....T(B).|
00000370: 54 3A 20 53 28 42 29 B2 53 3A 20 54 B2 C6 28 41 |T: S(B).S: T..(A|
00000380: 24 AA 5A 24 29 00 A4 0B 0E 01 53 B2 C6 28 42 24 |$.Z$).....S..(B$|
00000390: AA 5A 24 29 3A 20 48 B2 32 3A 20 81 20 59 B2 41 |.Z$): H.2: . Y.A|
000003A0: 20 A4 20 4E 00 BE 0B 18 01 98 31 2C 22 42 2D 50 | . N......1,"B-P|
000003B0: 3A 22 3B 32 3B 48 3A 20 A1 23 32 2C 54 24 00 E3 |:";2;H: .#2,T$..|
000003C0: 0B 22 01 43 B2 C6 28 54 24 AA 5A 24 29 3A 20 46 |.".C..(T$.Z$): F|
000003D0: 24 B2 C7 28 43 29 3A 20 8B 20 43 B3 46 20 A7 20 |$..(C): . C.F . |
000003E0: 33 32 30 00 06 0C 2C 01 81 20 58 B2 32 20 A4 20 |320...,.. X.2 . |
000003F0: 33 30 3A 20 A1 23 32 2C 54 24 3A 20 43 B2 C6 28 |30: .#2,T$: C..(|
00000400: 54 24 AA 5A 24 29 00 29 0C 36 01 46 24 B2 46 24 |T$.Z$).).6.F$.F$|
00000410: AA C7 28 43 29 3A 20 82 3A 20 4A B2 4A AA 41 3A |..(C): .: J.J.A:|
00000420: 20 45 24 28 4A 29 B2 46 24 00 4A 0C 40 01 48 B2 | E$(J).F$.J.@.H.|
00000430: 48 AA 51 3A 20 82 3A 20 42 B2 42 AA 41 3A 20 8B |H.Q: .: B.B.A: .|
00000440: 20 54 B1 5A 20 A7 20 32 34 30 00 62 0C 4A 01 58 | T.Z . 240.b.J.X|
00000450: B2 4A 3A 20 8B 20 52 24 B2 22 4E 22 20 A7 20 34 |.J: . R$."N" . 4|
00000460: 32 30 00 86 0C 54 01 99 20 22 11 20 53 4F 52 54 |20...T.. ". SORT|
00000470: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 4E |ING DIRECTORY EN|
00000480: 54 52 49 45 53 22 00 AC 0C 5E 01 58 B2 B5 28 58 |TRIES"...^.X..(X|
00000490: AD 32 29 3A 20 59 B2 41 3A 20 48 B2 4A AB 58 3A |.2): Y.A: H.J.X:|
000004A0: 20 8B 20 58 B2 30 20 A7 20 34 32 30 00 B4 0C 68 | . X.0 . 420...h|
000004B0: 01 4B B2 59 00 E2 0C 72 01 43 B2 4B AA 58 3A 20 |.K.Y...r.C.K.X: |
000004C0: 8B 20 CA 28 45 24 28 4B 29 2C 4C 2C 56 29 B3 B2 |. .(E$(K),L,V)..|
000004D0: CA 28 45 24 28 43 29 2C 4C 2C 56 29 20 A7 20 34 |.(E$(C),L,V) . 4|
000004E0: 30 30 00 06 0D 7C 01 54 24 B2 45 24 28 4B 29 3A |00...|.T$.E$(K):|
000004F0: 20 45 24 28 4B 29 B2 45 24 28 43 29 3A 20 45 24 | E$(K).E$(C): E$|
00000500: 28 43 29 B2 54 24 00 1E 0D 86 01 4B B2 4B AB 58 |(C).T$.....K.K.X|
00000510: 3A 20 8B 20 4B B2 B1 41 20 A7 20 33 37 30 00 35 |: . K..A . 370.5|
00000520: 0D 90 01 59 B2 59 AA 41 3A 20 8B 20 59 B1 48 20 |...Y.Y.A: . Y.H |
00000530: A7 20 33 35 30 00 3F 0D 9A 01 89 20 33 36 30 00 |. 350.?.... 360.|
00000540: 66 0D A4 01 99 20 22 11 20 52 45 2D 57 52 49 54 |f.... ". RE-WRIT|
00000550: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 4E |ING DIRECTORY EN|
00000560: 54 52 49 45 53 22 00 87 0D AE 01 42 B2 5A 3A 20 |TRIES".....B.Z: |
00000570: 4B B2 41 3A 20 43 B2 B5 28 4A AD 4E AA 2E 39 29 |K.A: C..(J.N..9)|
00000580: 3A 20 58 24 B2 22 22 00 A3 0D B8 01 81 20 58 B2 |: X$.""...... X.|
00000590: 41 20 A4 20 33 30 3A 20 58 24 B2 58 24 AA 5A 24 |A . 30: X$.X$.Z$|
000005A0: 3A 20 82 00 C0 0D C2 01 81 20 59 B2 41 20 A4 20 |: ....... Y.A . |
000005B0: 43 3A 20 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 32 |C: .1,"B-P:";2;2|
000005C0: 00 E8 0D CC 01 81 20 58 B2 41 20 A4 20 4E 3A 20 |...... X.A . N: |
000005D0: 41 24 B2 58 24 3A 20 8B 20 4B B3 B2 4A 20 A7 20 |A$.X$: . K..J . |
000005E0: 41 24 B2 45 24 28 4B 29 00 06 0E D6 01 98 32 2C |A$.E$(K)......2,|
000005F0: 41 24 3B 3A 20 8B 20 58 B3 4E 20 A7 20 98 32 2C |A$;: . X.N . .2,|
00000600: 5A 24 3B 5A 24 3B 00 2A 0E E0 01 4B B2 4B AA 41 |Z$;Z$;.*...K.K.A|
00000610: 3A 20 82 3A 20 54 B2 54 28 42 29 3A 20 53 B2 53 |: .: T.T(B): S.S|
00000620: 28 42 29 3A 20 42 B2 42 AA 41 00 45 0E EA 01 41 |(B): B.B.A.E...A|
00000630: 24 B2 C7 28 54 28 42 29 29 3A 20 42 24 B2 C7 28 |$..(T(B)): B$..(|
00000640: 53 28 42 29 29 00 5F 0E F4 01 8B 20 59 B2 43 20 |S(B))._.... Y.C |
00000650: A7 20 41 24 B2 5A 24 3A 20 42 24 B2 22 FF 22 00 |. A$.Z$: B$.".".|
00000660: 7C 0E FE 01 98 31 2C 22 42 2D 50 3A 22 3B 32 3B ||....1,"B-P:";2;|
00000670: 5A 3A 20 98 32 2C 41 24 3B 42 24 3B 00 98 0E 08 |Z: .2,A$;B$;....|
00000680: 02 98 31 2C 22 55 32 3A 22 3B 32 3B 44 3B 54 3B |..1,"U2:";2;D;T;|
00000690: 53 3A 20 8D 20 36 36 30 00 B5 0E 12 02 82 3A 20 |S: . 660......: |
000006A0: 8B 20 42 B2 32 30 20 B0 20 54 28 42 29 B2 5A 20 |. B.20 . T(B).Z |
000006B0: A7 20 35 39 30 00 D2 0E 1C 02 98 31 2C 22 42 2D |. 590......1,"B-|
000006C0: 50 3A 22 3B 32 3B 5A 3A 20 81 20 58 B2 41 20 A4 |P:";2;Z: . X.A .|
000006D0: 20 4E 00 E6 0E 26 02 98 32 2C 58 24 3B 5A 24 3B | N...&..2,X$;Z$;|
000006E0: 5A 24 3B 3A 20 82 00 12 0F 30 02 54 B2 54 28 42 |Z$;: ....0.T.T(B|
000006F0: 29 3A 20 53 B2 53 28 42 29 3A 20 98 31 2C 22 55 |): S.S(B): .1,"U|
00000700: 32 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 36 |2:";2;D;T;S: . 6|
00000710: 36 30 00 2D 0F 3A 02 98 31 2C 22 42 2D 46 3A 22 |60.-.:..1,"B-F:"|
00000720: 3B 44 3B 54 3B 53 3A 20 8D 20 36 36 30 00 47 0F |;D;T;S: . 660.G.|
00000730: 44 02 42 B2 42 AA 41 3A 20 8B 20 54 28 42 29 B1 |D.B.B.A: . T(B).|
00000740: 5A 20 A7 20 35 36 30 00 5B 0F 4E 02 A0 20 32 3A |Z . 560.[.N.. 2:|
00000750: 20 8D 20 36 36 30 3A 20 A0 20 31 00 7B 0F 58 02 | . 660: . 1.{.X.|
00000760: 99 20 22 11 20 44 49 52 45 43 54 4F 52 59 20 43 |. ". DIRECTORY C|
00000770: 4F 4D 50 52 45 53 53 45 44 20 22 00 A3 0F 62 02 |OMPRESSED "...b.|
00000780: 8B 20 52 24 B2 22 59 22 20 A7 20 99 20 22 20 41 |. R$."Y" . . " A|
00000790: 4E 44 20 45 4E 54 52 49 45 53 20 53 4F 3F 3F 7F |ND ENTRIES SO??.|
000007A0: 01 41 22 00 BC 0F 6C 02 99 20 22 20 46 4F 52 3A |.A"...l.. " FOR:|
000007B0: 20 20 22 3B 51 24 3B 48 24 3B 51 24 00 E9 0F 76 | ";Q$;H$;Q$...v|
000007C0: 02 99 20 22 11 20 50 52 4F 43 45 53 53 20 41 4E |.. ". PROCESS AN|
000007D0: 4F 54 48 45 52 20 44 49 53 4B 20 28 59 2F 4E 29 |OTHER DISK (Y/N)|
000007E0: 20 3F 20 59 9D 9D 9D 22 3B 00 00 10 80 02 85 20 | ? Y...";...... |
000007F0: 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 20 8A |X$: . X$."Y" . .|
00000800: 00 0E 10 8A 02 99 20 22 93 22 3B 3A 20 80 00 28 |...... ".";: ..(|
00000810: 10 94 02 84 31 2C 45 2C 4D 24 2C 47 2C 50 3A 8B |....1,E,M$,G,P:.|
00000820: 20 45 B2 30 20 A7 20 8E 00 43 10 9E 02 99 20 22 | E.0 . ..C.... "|
00000830: 11 20 45 52 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B |. ERROR: ";E;M$;|
00000840: 47 3B 50 00 53 10 A8 02 A0 20 32 3A 20 A0 20 31 |G;P.S.... 2: . 1|
00000850: 3A 20 80 00 00 00 |: .... |
..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...<.. ". WANT TO SORT DIRECTORY (Y/N
) ? N...";.(.F.. R$: . R$.."Y" . R$.."N"
. . "...": . 70.W.P.. ".. PUT TARGET DI
SK IN UNIT";U;"DRIVE";D..Z.. " THEN PRE
SS ANY KEY TO CONTINUE"...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 TO 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: . 66
0.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" . 4
20...T.. ". SORTING 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-WRIT
ING DIRECTORY ENTRIES".....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.. ". DIRECTORY COMPRESSED "...B.
. R$."Y" . . " AND ENTRIES SO??.A"...L.
. " FOR: ";Q$;H$;Q$...V.. ". PROCESS AN
OTHER DISK (Y/N) ? Y...";...... X$: . X$
."Y" . ....... ".";: ..(....1,E,M$,G,P:.
E.0 . ..C.... ". ERROR: ";E;M$;G;P.S...
2: 1: ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL