DIR.SORT
FILE INFORMATION
FILENAME(S): DIR.SORT
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-10-20 14:32:11
APPEARS ON: 1 disk(s)
FILE HASH
a84c410067abfe52cb30e5c0e4a9c60e47df082d4f3ae54200d8e0522283895d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | DIR.SORT | PRG | Treasure Chest - Klaus Der Suhler | 20 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 45 08 0A 00 97 35 35 2C 30 3A 97 35 36 2C |..E....55,0:.56,|
00000010: 36 30 3A 97 36 34 33 2C 30 3A 97 36 34 34 2C 36 |60:.643,0:.644,6|
00000020: 30 3A 9C 3A 8F 20 4C 4F 57 45 52 20 4D 45 4D 4F |0:.:. LOWER MEMO|
00000030: 52 59 20 54 4F 50 20 46 4F 52 20 41 4C 54 20 53 |RY TOP FOR ALT S|
00000040: 43 52 45 45 4E 00 7F 08 0F 00 97 35 33 32 38 31 |CREEN......53281|
00000050: 2C 30 3A 97 35 33 32 38 30 2C 30 3A 97 20 36 34 |,0:.53280,0:. 64|
00000060: 36 2C 31 33 3A 99 C7 28 31 34 32 29 C7 28 38 29 |6,13:..(142).(8)|
00000070: 3B 3A 8F 20 44 49 53 41 42 4C 45 20 4C 2F 43 00 |;:. DISABLE L/C.|
00000080: 8D 08 14 00 8D 36 35 35 3A 89 31 32 35 00 A2 08 |.....655:.125...|
00000090: 19 00 8F 3A 52 45 41 44 20 44 49 52 45 43 54 4F |...:READ DIRECTO|
000000A0: 52 59 00 E3 08 1E 00 A0 35 3A 9F 35 2C 38 2C 35 |RY......5:.5,8,5|
000000B0: 2C 22 23 22 3A 53 25 28 31 29 B2 31 3A 44 45 B2 |,"#":S%(1).1:DE.|
000000C0: 30 3A 49 B2 31 3A 8F 20 53 45 43 54 4F 52 20 31 |0:I.1:. SECTOR 1|
000000D0: 2C 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 |, DIRECTORY ENTR|
000000E0: 59 20 30 00 0A 09 23 00 99 22 93 22 3B 3A 4D 45 |Y 0...#..".";:ME|
000000F0: 24 B2 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 |$."READING DIREC|
00000100: 54 4F 52 59 22 3A 8D 36 30 35 00 39 09 28 00 98 |TORY":.605.9.(..|
00000110: 31 35 2C 20 22 55 31 3A 22 3B 35 3B 5A 3B 31 38 |15, "U1:";5;Z;18|
00000120: 3B 53 25 28 49 29 3A 49 B2 49 AA 31 3A 8D 36 33 |;S%(I):I.I.1:.63|
00000130: 35 3A 8B 45 52 A7 34 34 35 00 5C 09 2D 00 A1 23 |5:.ER.445.\.-..#|
00000140: 35 2C 54 24 3A A1 23 35 2C 53 24 3A 53 25 28 49 |5,T$:.#5,S$:S%(I|
00000150: 29 B2 C6 28 53 24 AA C7 28 30 29 29 00 7A 09 32 |)..(S$..(0)).z.2|
00000160: 00 81 51 B2 31 A4 38 3A 44 45 B2 44 45 AA 31 3A |..Q.1.8:DE.DE.1:|
00000170: 44 52 24 28 44 45 29 B2 22 22 00 8E 09 37 00 9E |DR$(DE).""...7..|
00000180: 38 39 36 3A 44 52 24 28 44 45 29 B2 41 24 00 A4 |896:DR$(DE).A$..|
00000190: 09 3C 00 8B 51 B3 B1 38 A7 A1 23 35 2C 4E 47 24 |.<..Q..8..#5,NG$|
000001A0: 2C 4E 47 24 00 B9 09 41 00 82 20 51 3A 8B 53 25 |,NG$...A.. Q:.S%|
000001B0: 28 49 29 B3 32 31 A7 34 30 00 C0 09 46 00 A0 35 |(I).21.40...F..5|
000001C0: 00 D6 09 4B 00 8E 20 20 20 20 20 20 20 20 20 20 |...K.. |
000001D0: 20 20 20 20 20 20 00 E3 09 50 00 8B 41 4C A7 8D | ...P..AL..|
000001E0: 35 38 35 00 F2 09 55 00 99 22 93 22 3B 3A 54 41 |585...U..".";:TA|
000001F0: B2 30 00 FD 09 5A 00 81 51 B2 31 A4 47 00 18 0A |.0...Z..Q.1.G...|
00000200: 5F 00 8B 51 B2 32 34 B0 51 B2 37 30 A7 54 41 B2 |_..Q.24.Q.70.TA.|
00000210: 32 30 3A 99 22 13 22 3B 00 32 0A 64 00 8B 51 B2 |20:.".";.2.d..Q.|
00000220: 34 37 A7 8D 35 38 35 3A 99 22 13 22 3B 3A 54 41 |47..585:.".";:TA|
00000230: B2 30 00 6D 0A 69 00 99 A3 54 41 29 22 9E 22 C9 |.0.m.i...TA)".".|
00000240: 28 C4 28 51 29 2C 32 29 22 20 99 22 CA 28 44 52 |(.(Q),2)" .".(DR|
00000250: 24 28 53 43 25 28 51 29 29 2C 34 2C 31 36 29 3A |$(SC%(Q)),4,16):|
00000260: 8F 20 50 52 49 4E 54 20 4E 41 4D 45 53 00 74 0A |. PRINT NAMES.t.|
00000270: 6E 00 82 51 00 7A 0A 73 00 8E 00 83 0A 78 00 A0 |n..Q.z.s.....x..|
00000280: 35 3A 8E 00 B4 0A 7D 00 86 20 44 52 24 28 31 34 |5:....}.. DR$(14|
00000290: 35 29 2C 53 25 28 32 30 29 2C 4E 4D 24 28 31 34 |5),S%(20),NM$(14|
000002A0: 35 29 2C 53 4F 25 28 31 34 35 29 2C 53 43 25 28 |5),SO%(145),SC%(|
000002B0: 31 34 35 29 00 E1 0A 82 00 41 4C B2 30 3A 8D 35 |145).....AL.0:.5|
000002C0: 38 35 3A 99 22 93 22 3B 3A 8D 35 38 35 3A 8F 20 |85:.".";:.585:. |
000002D0: 43 4C 45 41 52 20 41 4C 54 2E 20 53 43 52 45 45 |CLEAR ALT. SCREE|
000002E0: 4E 00 00 0B 87 00 53 50 24 B2 22 20 20 20 20 20 |N.....SP$." |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000300: 00 23 0B 8C 00 56 45 24 B2 22 13 11 11 11 11 11 |.#...VE$."......|
00000310: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000320: 11 11 22 00 2C 0B 91 00 8D 37 35 35 00 47 0B 96 |..".,....755.G..|
00000330: 00 A1 4A 24 3A 8B 4A 24 B2 22 22 A7 31 35 30 20 |..J$:.J$."".150 |
00000340: 20 20 20 20 20 20 20 00 7F 0B 9B 00 8B 4A 24 B2 | ......J$.|
00000350: 22 49 22 A7 8D 38 31 30 3A 89 31 34 35 3A 8F 20 |"I"..810:.145:. |
00000360: 50 52 49 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |PRINT INSTRUCTIO|
00000370: 4E 53 20 49 46 20 52 45 51 55 45 53 54 45 44 00 |NS IF REQUESTED.|
00000380: 92 0B A0 00 8B 4A 24 B3 B1 C7 28 33 32 29 A7 31 |.....J$...(32).1|
00000390: 35 30 00 B4 0B A5 00 99 22 93 22 3A 4D 45 24 B2 |50......".":ME$.|
000003A0: 22 44 52 49 56 45 20 30 20 4F 52 20 31 3F 22 3A |"DRIVE 0 OR 1?":|
000003B0: 8D 36 30 35 00 C9 0B AA 00 A1 44 4E 24 3A 8B 44 |.605......DN$:.D|
000003C0: 4E 24 B2 22 22 A7 31 37 30 00 D6 0B AF 00 5A B2 |N$."".170.....Z.|
000003D0: C5 28 44 4E 24 29 00 EF 0B B4 00 A0 31 35 3A 9F |.(DN$)......15:.|
000003E0: 31 35 2C 38 2C 31 35 2C 22 49 22 AA 44 4E 24 00 |15,8,15,"I".DN$.|
000003F0: 27 0C B9 00 8D 33 30 3A 8F 20 52 45 41 44 20 54 |'....30:. READ T|
00000400: 48 45 20 44 49 52 45 43 54 4F 52 59 20 46 52 4F |HE DIRECTORY FRO|
00000410: 4D 20 44 49 53 4B 20 49 4E 54 4F 20 44 52 24 28 |M DISK INTO DR$(|
00000420: 29 20 41 52 52 41 59 00 4B 0C BE 00 47 B2 30 3A |) ARRAY.K...G.0:|
00000430: 44 B2 30 3A 8F 20 53 4F 52 54 20 47 4F 4F 44 2F |D.0:. SORT GOOD/|
00000440: 44 45 4C 20 45 4E 54 52 49 45 53 00 57 0C C3 00 |DEL ENTRIES.W...|
00000450: 81 4A B2 31 A4 44 45 00 87 0C C8 00 41 B2 C6 28 |.J.1.DE.....A..(|
00000460: 44 52 24 28 4A 29 AA C7 28 30 29 29 3A 8B 41 B3 |DR$(J)..(0)):.A.|
00000470: 31 32 38 A7 44 B2 44 AA 31 3A 53 4F 25 28 44 29 |128.D.D.1:SO%(D)|
00000480: B2 4A 3A 89 32 31 30 00 9A 0C CD 00 47 B2 47 AA |.J:.210.....G.G.|
00000490: 31 3A 53 43 25 28 47 29 B2 4A 00 A1 0C D2 00 82 |1:SC%(G).J......|
000004A0: 4A 00 E6 0C D7 00 8B 47 B1 34 36 A7 50 47 B2 31 |J......G.46.PG.1|
000004B0: 3A 8B 47 B1 39 32 A7 99 22 93 11 11 11 11 11 11 |:.G.92..".......|
000004C0: 11 11 11 11 20 20 4F 56 45 52 20 39 32 20 45 4E |.... OVER 92 EN|
000004D0: 54 52 49 45 53 20 2D 20 43 41 4E 27 54 20 44 4F |TRIES - CAN'T DO|
000004E0: 22 3A 89 34 34 35 00 31 0D DC 00 44 B2 30 3A 81 |":.445.1...D.0:.|
000004F0: 4A B2 47 AA 31 A4 44 45 3A 44 B2 44 AA 31 3A 53 |J.G.1.DE:D.D.1:S|
00000500: 43 25 28 4A 29 B2 53 4F 25 28 44 29 3A 82 4A 3A |C%(J).SO%(D):.J:|
00000510: 8F 20 44 45 4C 45 54 45 44 20 45 4E 54 52 49 45 |. DELETED ENTRIE|
00000520: 53 20 41 54 20 45 4E 44 20 4F 46 20 41 52 52 41 |S AT END OF ARRA|
00000530: 59 00 52 0D E1 00 8F 3A 44 49 53 50 4C 41 59 20 |Y.R....:DISPLAY |
00000540: 55 4E 53 4F 52 54 45 44 20 44 49 52 45 43 54 4F |UNSORTED DIRECTO|
00000550: 52 59 00 75 0D E6 00 8D 38 30 3A 8B 50 47 A7 8D |RY.u....80:.PG..|
00000560: 36 30 30 3A 8F 20 50 52 49 4E 54 20 44 49 52 45 |600:. PRINT DIRE|
00000570: 43 54 4F 52 59 00 A3 0D EB 00 4D 45 24 B2 22 28 |CTORY.....ME$."(|
00000580: 31 29 20 41 4C 50 48 41 42 45 54 49 5A 45 20 4F |1) ALPHABETIZE O|
00000590: 52 20 28 32 29 20 43 55 53 54 4F 4D 20 53 4F 52 |R (2) CUSTOM SOR|
000005A0: 54 3F 22 00 D6 0D F0 00 8D 36 30 35 3A 8D 35 37 |T?"......605:.57|
000005B0: 30 3A 91 C5 28 51 24 29 89 32 35 30 2C 34 37 30 |0:..(Q$).250,470|
000005C0: 3A 8B 50 47 A7 8B 51 24 B2 22 85 22 A7 8D 35 38 |:.PG..Q$."."..58|
000005D0: 35 3A 8D 36 30 30 00 DF 0D F5 00 89 32 33 35 00 |5:.600......235.|
000005E0: EA 0D FA 00 8F 3A 53 4F 52 54 00 1C 0E FF 00 4D |.....:SORT.....M|
000005F0: 45 24 B2 22 11 92 20 20 20 20 20 20 20 20 20 20 |E$.".. |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 91 22 3A 8D 36 30 35 00 51 0E 04 | .":.605.Q..|
00000620: 01 4D 45 24 B2 22 2E 2E 50 52 45 50 41 52 49 4E |.ME$."..PREPARIN|
00000630: 47 20 46 4F 52 20 53 4F 52 54 20 2D 2D 20 50 4C |G FOR SORT -- PL|
00000640: 45 41 53 45 20 57 41 49 54 2E 2E 22 3A 8D 36 30 |EASE WAIT..":.60|
00000650: 35 00 7A 0E 09 01 81 20 58 B2 31 A4 47 3A 8F 20 |5.z.... X.1.G:. |
00000660: 4C 4F 4F 50 20 54 4F 20 43 4F 4E 56 45 52 54 20 |LOOP TO CONVERT |
00000670: 46 49 4C 45 20 4E 41 4D 45 53 00 99 0E 0E 01 4E |FILE NAMES.....N|
00000680: 4D 24 28 58 29 B2 CA 28 44 52 24 28 53 43 25 28 |M$(X)..(DR$(SC%(|
00000690: 58 29 29 2C 34 2C 31 36 29 00 C6 0E 13 01 81 50 |X)),4,16)......P|
000006A0: B2 32 A4 31 37 3A 8F 20 52 45 4D 4F 56 45 20 54 |.2.17:. REMOVE T|
000006B0: 52 41 49 4C 49 4E 47 20 53 48 49 46 54 45 44 20 |RAILING SHIFTED |
000006C0: 53 50 41 43 45 53 00 FC 0E 18 01 8B CA 28 4E 4D |SPACES.......(NM|
000006D0: 24 28 58 29 2C 50 2C 31 29 B2 C7 28 31 36 30 29 |$(X),P,1)..(160)|
000006E0: A7 4E 4D 24 28 58 29 B2 CA 28 4E 4D 24 28 58 29 |.NM$(X)..(NM$(X)|
000006F0: 2C 31 2C 50 AB 31 29 3A 89 32 39 30 00 04 0F 1D |,1,P.1):.290....|
00000700: 01 82 20 50 00 0C 0F 22 01 82 20 58 00 39 0F 27 |.. P...".. X.9.'|
00000710: 01 4D 45 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 4E |.ME$.".........N|
00000720: 4F 57 20 53 4F 52 54 49 4E 47 2E 2E 2E 2E 2E 2E |OW SORTING......|
00000730: 2E 2E 2E 22 3A 8D 36 30 35 00 4A 0F 2C 01 8F 20 |...":.605.J.,.. |
00000740: 53 48 45 4C 4C 20 53 4F 52 54 00 52 0F 31 01 42 |SHELL SORT.R.1.B|
00000750: B2 47 00 80 0F 36 01 42 B2 B5 28 42 AD 32 29 3A |.G...6.B..(B.2):|
00000760: 99 56 45 24 3B 22 11 12 22 CA 28 C4 28 42 29 2C |.VE$;"..".(.(B),|
00000770: 32 29 22 92 20 22 3B 3A 8B 42 B2 30 A7 33 35 35 |2)". ";:.B.0.355|
00000780: 00 8E 0F 3B 01 58 B2 31 3A 4B B2 47 AB 42 00 96 |...;.X.1:K.G.B..|
00000790: 0F 40 01 43 B2 58 00 B4 0F 45 01 44 B2 43 AA 42 |.@.C.X...E.D.C.B|
000007A0: 3A 8B 4E 4D 24 28 43 29 B3 B2 4E 4D 24 28 44 29 |:.NM$(C)..NM$(D)|
000007B0: A7 33 34 30 00 DA 0F 4A 01 48 25 B2 53 43 25 28 |.340...J.H%.SC%(|
000007C0: 43 29 3A 53 43 25 28 43 29 B2 53 43 25 28 44 29 |C):SC%(C).SC%(D)|
000007D0: 3A 53 43 25 28 44 29 B2 48 25 00 11 10 4F 01 48 |:SC%(D).H%...O.H|
000007E0: 4F 24 B2 4E 4D 24 28 43 29 3A 4E 4D 24 28 43 29 |O$.NM$(C):NM$(C)|
000007F0: B2 4E 4D 24 28 44 29 3A 4E 4D 24 28 44 29 B2 48 |.NM$(D):NM$(D).H|
00000800: 4F 24 3A 43 B2 43 AB 42 3A 8B 43 B1 30 A7 33 32 |O$:C.C.B:.C.0.32|
00000810: 35 00 24 10 54 01 58 B2 58 AA 31 3A 8B 58 B1 4B |5.$.T.X.X.1:.X.K|
00000820: A7 33 31 30 00 2D 10 59 01 89 33 32 30 00 4C 10 |.310.-.Y..320.L.|
00000830: 5E 01 8F 3A 44 49 53 50 4C 41 59 20 53 4F 52 54 |^..:DISPLAY SORT|
00000840: 45 44 20 44 49 52 45 43 54 4F 52 59 00 54 10 63 |ED DIRECTORY.T.c|
00000850: 01 8D 38 30 00 77 10 68 01 4D 45 24 B2 22 4F 4B |..80.w.h.ME$."OK|
00000860: 41 59 3F 20 20 59 2F 4E 22 3A 8D 36 30 35 3A 8B |AY? Y/N":.605:.|
00000870: 50 47 A7 8D 36 30 30 00 96 10 6D 01 8D 35 37 30 |PG..600...m..570|
00000880: 3A 8B 50 47 A7 8B 51 24 B2 22 85 22 A7 8D 35 38 |:.PG..Q$."."..58|
00000890: 35 3A 89 33 36 30 00 A7 10 72 01 8B 51 24 B3 B1 |5:.360...r..Q$..|
000008A0: 22 59 22 A7 34 37 30 00 C1 10 77 01 8F 3A 57 52 |"Y".470...w..:WR|
000008B0: 49 54 45 20 4E 45 57 20 44 49 52 45 43 54 4F 52 |ITE NEW DIRECTOR|
000008C0: 59 00 D0 10 7C 01 9F 35 2C 38 2C 35 2C 22 23 22 |Y...|..5,8,5,"#"|
000008D0: 00 FD 10 81 01 57 B2 49 AB 31 3A 44 57 B2 30 3A |.....W.I.1:DW.0:|
000008E0: 8F 20 57 3D 4E 55 4D 42 45 52 20 4F 46 20 42 4C |. W=NUMBER OF BL|
000008F0: 4F 43 4B 53 20 54 4F 20 57 52 49 54 45 00 40 11 |OCKS TO WRITE.@.|
00000900: 86 01 81 49 B2 31 A4 57 3A 98 31 35 2C 22 42 2D |...I.1.W:.15,"B-|
00000910: 50 3A 22 3B 35 3B 5A 3A 8F 20 4C 4F 4F 50 20 54 |P:";5;Z:. LOOP T|
00000920: 4F 20 57 52 49 54 45 2E 46 4F 52 43 45 20 42 55 |O WRITE.FORCE BU|
00000930: 46 20 50 4F 49 4E 54 20 54 4F 20 42 45 47 49 4E |F POINT TO BEGIN|
00000940: 00 80 11 8B 01 54 54 B2 31 38 3A 8B 53 25 28 49 |.....TT.18:.S%(I|
00000950: AA 31 29 B2 32 35 35 A7 54 54 B2 30 3A 8F 20 54 |.1).255.TT.0:. T|
00000960: 52 41 43 4B 20 23 20 54 4F 20 57 52 49 54 45 2E |RACK # TO WRITE.|
00000970: 20 30 20 49 46 20 4C 41 53 54 20 42 4C 4F 43 4B | 0 IF LAST BLOCK|
00000980: 00 99 11 90 01 98 35 2C C7 28 54 54 29 3B C7 28 |......5,.(TT);.(|
00000990: 53 25 28 49 AA 31 29 29 3B 00 CB 11 95 01 81 20 |S%(I.1));...... |
000009A0: 51 B2 31 A4 38 3A 44 57 B2 44 57 AA 31 3A 8F 20 |Q.1.8:DW.DW.1:. |
000009B0: 4C 4F 4F 50 20 54 4F 20 50 55 54 20 54 48 45 20 |LOOP TO PUT THE |
000009C0: 44 49 52 20 45 4E 54 52 49 45 53 00 E0 11 9A 01 |DIR ENTRIES.....|
000009D0: 98 35 2C 44 52 24 28 53 43 25 28 44 57 29 29 3B |.5,DR$(SC%(DW));|
000009E0: 00 0A 12 9F 01 8B 51 B3 B1 38 A7 98 35 2C 22 53 |......Q..8..5,"S|
000009F0: 47 22 3B 3A 8F 20 50 55 54 20 49 4E 20 32 20 44 |G";:. PUT IN 2 D|
00000A00: 55 4D 4D 59 20 42 59 54 45 53 00 12 12 A4 01 82 |UMMY BYTES......|
00000A10: 20 51 00 3B 12 A9 01 98 31 35 2C 20 22 55 32 3A | Q.;....15, "U2:|
00000A20: 22 3B 35 3B 5A 3B 31 38 3B 53 25 28 49 29 3A 8D |";5;Z;18;S%(I):.|
00000A30: 36 33 35 3A 8B 45 52 A7 34 34 35 00 64 12 AE 01 |635:.ER.445.d...|
00000A40: 4D 45 24 B2 22 57 52 49 54 49 4E 47 20 53 45 43 |ME$."WRITING SEC|
00000A50: 54 4F 52 3A 20 22 AA C4 28 53 25 28 49 29 29 3A |TOR: "..(S%(I)):|
00000A60: 8D 36 30 35 00 6C 12 B3 01 82 20 49 00 77 12 B8 |.605.l.... I.w..|
00000A70: 01 A0 35 3A A0 31 35 00 B2 12 BD 01 4D 45 24 B2 |..5:.15.....ME$.|
00000A80: 22 41 20 4E 20 4F 20 54 20 48 20 45 20 52 20 20 |"A N O T H E R |
00000A90: 20 44 20 49 20 53 20 4B 20 3F 20 20 20 20 28 59 | D I S K ? (Y|
00000AA0: 2F 4E 29 22 3A 8D 36 30 35 3A 8B 50 47 A7 8D 35 |/N)":.605:.PG..5|
00000AB0: 39 30 00 C5 12 C2 01 A1 51 24 3A 8B 51 24 B2 22 |90......Q$:.Q$."|
00000AC0: 22 A7 34 35 30 00 D9 12 C7 01 8B 51 24 B2 22 59 |".450......Q$."Y|
00000AD0: 22 A7 A0 31 35 3A 89 31 30 00 09 13 CC 01 97 35 |"..15:.10......5|
00000AE0: 36 2C 31 36 30 3A 97 36 34 34 2C 31 36 30 3A 99 |6,160:.644,160:.|
00000AF0: 56 45 24 3B 3A A0 35 3A A0 31 35 3A 99 C7 28 39 |VE$;:.5:.15:..(9|
00000B00: 29 3B 3A 99 22 93 22 3A 80 00 1B 13 D1 01 8F 3A |);:.".":.......:|
00000B10: 43 55 53 54 4F 4D 20 53 4F 52 54 00 47 13 D6 01 |CUSTOM SORT.G...|
00000B20: 4D 45 24 B2 22 52 45 4E 55 4D 42 45 52 20 45 4E |ME$."RENUMBER EN|
00000B30: 54 52 49 45 53 2C 20 54 48 45 4E 20 50 52 45 53 |TRIES, THEN PRES|
00000B40: 53 20 3C 46 37 3E 22 00 56 13 DB 01 8D 36 30 35 |S <F7>".V....605|
00000B50: 3A 99 22 13 22 3B 00 8C 13 E0 01 9E 39 33 38 3A |:.".";......938:|
00000B60: 8B C2 28 37 38 30 29 B2 31 33 36 A7 4D 45 24 B2 |..(780).136.ME$.|
00000B70: 22 2E 2E 2E 52 45 2D 53 4F 52 54 49 4E 47 2E 2E |"...RE-SORTING..|
00000B80: 2E 22 3A 8D 36 30 35 3A 89 35 30 30 00 AA 13 E5 |.":.605:.500....|
00000B90: 01 8B 50 47 A7 8B C2 28 37 38 30 29 B2 31 33 33 |..PG...(780).133|
00000BA0: A7 8D 35 38 35 3A 89 34 37 35 00 B3 13 EA 01 89 |..585:.475......|
00000BB0: 34 38 30 00 D5 13 EF 01 8F 3A 53 4F 52 54 20 41 |480......:SORT A|
00000BC0: 43 43 4F 52 44 49 4E 47 20 54 4F 20 4E 45 57 20 |CCORDING TO NEW |
00000BD0: 4F 52 44 45 52 00 FF 13 F4 01 81 4A B2 31 A4 47 |ORDER......J.1.G|
00000BE0: 3A 53 4F 25 28 4A 29 B2 30 3A 82 4A 3A 8F 20 43 |:SO%(J).0:.J:. C|
00000BF0: 4C 45 41 52 20 53 4F 52 54 20 41 52 52 41 59 00 |LEAR SORT ARRAY.|
00000C00: 20 14 F9 01 8B 41 4C A7 8D 35 38 35 3A 8F 20 53 | ....AL..585:. S|
00000C10: 54 41 52 54 20 4F 4E 20 31 53 54 20 50 41 47 45 |TART ON 1ST PAGE|
00000C20: 00 31 14 FE 01 A0 33 3A 9F 33 2C 33 3A 54 41 B2 |.1....3:.3,3:TA.|
00000C30: 30 00 3C 14 03 02 81 4A B2 31 A4 47 00 51 14 08 |0.<....J.1.G.Q..|
00000C40: 02 8B 4A B2 32 34 B0 4A B2 37 30 A7 54 41 B2 32 |..J.24.J.70.TA.2|
00000C50: 30 00 65 14 0D 02 8B 4A B2 34 37 A7 8D 35 38 35 |0.e....J.47..585|
00000C60: 3A 54 41 B2 30 00 88 14 12 02 8D 36 31 35 3A 84 |:TA.0......615:.|
00000C70: 33 2C 54 45 4D 50 24 3A 4E 4E B2 C5 28 C8 28 54 |3,TEMP$:NN..(.(T|
00000C80: 45 4D 50 24 2C 32 29 29 00 CB 14 17 02 8B 4E 4E |EMP$,2))......NN|
00000C90: B3 31 B0 4E 4E B1 47 A7 4D 45 24 B2 22 49 4E 56 |.1.NN.G.ME$."INV|
00000CA0: 41 4C 49 44 20 4E 55 4D 42 45 52 20 2D 20 50 4C |ALID NUMBER - PL|
00000CB0: 45 41 53 45 20 43 48 41 4E 47 45 22 3A 8D 36 30 |EASE CHANGE":.60|
00000CC0: 35 3A 8D 36 32 35 3A 89 34 38 30 00 11 15 1C 02 |5:.625:.480.....|
00000CD0: 8B 53 4F 25 28 4E 4E 29 B3 B1 30 A7 4D 45 24 B2 |.SO%(NN)..0.ME$.|
00000CE0: 22 44 55 50 4C 49 43 41 54 45 20 4E 55 4D 42 45 |"DUPLICATE NUMBE|
00000CF0: 52 20 2D 20 50 4C 45 41 53 45 20 43 48 41 4E 47 |R - PLEASE CHANG|
00000D00: 45 22 3A 8D 36 30 35 3A 8D 36 32 35 3A 89 34 38 |E":.605:.625:.48|
00000D10: 30 00 24 15 21 02 53 4F 25 28 4E 4E 29 B2 53 43 |0.$.!.SO%(NN).SC|
00000D20: 25 28 4A 29 00 2D 15 26 02 82 3A A0 33 00 71 15 |%(J).-.&..:.3.q.|
00000D30: 2B 02 81 4A B2 31 A4 47 3A 53 43 25 28 4A 29 B2 |+..J.1.G:SC%(J).|
00000D40: 53 4F 25 28 4A 29 3A 82 3A 8F 20 54 52 41 4E 53 |SO%(J):.:. TRANS|
00000D50: 46 45 52 20 53 4F 52 54 45 44 20 4B 45 59 20 23 |FER SORTED KEY #|
00000D60: 27 53 20 54 4F 20 53 43 25 28 29 20 41 52 52 41 |'S TO SC%() ARRA|
00000D70: 59 00 9F 15 30 02 89 33 35 35 3A 8F 20 44 49 53 |Y...0..355:. DIS|
00000D80: 50 4C 41 59 20 53 4F 52 54 45 44 20 44 49 52 45 |PLAY SORTED DIRE|
00000D90: 43 54 4F 52 59 20 26 20 43 4F 4E 46 49 52 4D 00 |CTORY & CONFIRM.|
00000DA0: B5 15 35 02 8F 20 3A 47 45 54 20 53 55 42 52 4F |..5.. :GET SUBRO|
00000DB0: 55 54 49 4E 45 00 C8 15 3A 02 A1 51 24 3A 8B 51 |UTINE...:..Q$:.Q|
00000DC0: 24 B2 22 22 A7 35 37 30 00 CE 15 3F 02 8E 00 E8 |$."".570...?....|
00000DD0: 15 44 02 8F 3A 20 54 4F 47 47 4C 45 20 41 4C 54 |.D..: TOGGLE ALT|
00000DE0: 20 53 43 52 45 45 4E 53 00 0C 16 49 02 41 4C B2 | SCREENS...I.AL.|
00000DF0: A8 41 4C 3A 8B 41 4C A7 97 35 33 32 37 32 2C 32 |.AL:.AL..53272,2|
00000E00: 34 35 3A 97 36 34 38 2C 36 30 3A 8E 00 24 16 4E |45:.648,60:..$.N|
00000E10: 02 97 20 35 33 32 37 32 2C 32 31 3A 97 36 34 38 |.. 53272,21:.648|
00000E20: 2C 34 3A 8E 00 49 16 53 02 8F 3A 50 52 49 4E 54 |,4:..I.S..:PRINT|
00000E30: 20 4D 45 53 53 41 47 45 20 41 54 20 53 43 52 45 | MESSAGE AT SCRE|
00000E40: 45 4E 20 42 4F 54 54 4F 4D 00 7B 16 58 02 4D 45 |EN BOTTOM.{.X.ME|
00000E50: 24 B2 22 11 48 49 54 20 3C 46 31 3E 20 54 4F 20 |$.".HIT <F1> TO |
00000E60: 53 45 45 20 50 41 47 45 20 22 AA C9 28 C4 28 41 |SEE PAGE "..(.(A|
00000E70: 4C AA 32 29 2C 31 29 AA 22 91 22 00 BD 16 5D 02 |L.2),1)."."...].|
00000E80: 53 50 B2 33 39 AB C3 28 4D 45 24 29 3A 48 53 B2 |SP.39..(ME$):HS.|
00000E90: B5 28 53 50 AD 32 29 3A 99 56 45 24 C8 28 53 50 |.(SP.2):.VE$.(SP|
00000EA0: 24 2C 53 50 AB 48 53 29 22 12 22 4D 45 24 22 92 |$,SP.HS)"."ME$".|
00000EB0: 22 C8 28 53 50 24 2C 48 53 29 3B 3A 8E 00 DA 16 |".(SP$,HS);:....|
00000EC0: 62 02 8F 3A 4D 4F 56 45 20 43 55 52 53 4F 52 20 |b..:MOVE CURSOR |
00000ED0: 54 4F 20 45 4E 54 52 59 20 4A 00 FE 16 67 02 99 |TO ENTRY J...g..|
00000EE0: C8 28 56 45 24 2C 4A AB B5 28 28 4A AB 31 29 AD |.(VE$,J..((J.1).|
00000EF0: 32 33 29 AC 32 33 29 A3 54 41 29 3B 3A 8E 00 20 |23).23).TA);:.. |
00000F00: 17 6C 02 8F 3A 48 49 47 48 4C 49 47 48 54 20 4E |.l..:HIGHLIGHT N|
00000F10: 55 4D 42 45 52 20 41 54 20 45 4E 54 52 59 20 4A |UMBER AT ENTRY J|
00000F20: 00 32 17 71 02 8D 36 31 35 3A 99 22 12 22 52 49 |.2.q..615:."."RI|
00000F30: 47 48 00 4B 17 76 02 8F 3A 52 45 41 44 20 45 52 |GH.K.v..:READ ER|
00000F40: 52 4F 52 20 43 48 41 4E 4E 45 4C 00 90 17 7B 02 |ROR CHANNEL...{.|
00000F50: 84 31 35 2C 45 52 2C 45 52 24 2C 54 52 2C 53 45 |.15,ER,ER$,TR,SE|
00000F60: 3A 8B 45 52 B1 31 39 A7 99 22 93 11 11 11 11 11 |:.ER.19.."......|
00000F70: 11 11 1D 22 45 52 3B 45 52 24 3B 22 20 54 52 41 |..."ER;ER$;" TRA|
00000F80: 43 4B 22 54 52 22 20 53 45 43 54 4F 52 22 53 45 |CK"TR" SECTOR"SE|
00000F90: 00 96 17 80 02 8E 00 BC 17 85 02 8F 3A 4C 4F 41 |............:LOA|
00000FA0: 44 20 22 53 54 52 49 4E 47 20 54 48 49 4E 47 22 |D "STRING THING"|
00000FB0: 20 4D 2F 4C 20 50 52 4F 47 52 41 4D 00 E0 17 8A | M/L PROGRAM....|
00000FC0: 02 8F 20 53 54 52 49 4E 47 20 4D 55 53 54 20 42 |.. STRING MUST B|
00000FD0: 45 20 46 49 52 53 54 20 56 41 52 49 41 42 4C 45 |E FIRST VARIABLE|
00000FE0: 00 F7 17 8F 02 41 24 B2 22 41 42 43 44 45 46 47 |.....A$."ABCDEFG|
00000FF0: 48 49 4A 4B 4C 4D 22 00 15 18 94 02 41 24 B2 41 |HIJKLM".....A$.A|
00001000: 24 AA 22 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |$."NOPQRSTUVWXYZ|
00001010: 31 32 33 34 22 00 3A 18 99 02 8F 20 41 42 4F 56 |1234".:.... ABOV|
00001020: 45 20 53 45 54 53 20 53 54 52 49 4E 47 20 46 4F |E SETS STRING FO|
00001030: 52 20 33 30 20 43 48 41 52 53 00 69 18 9E 02 99 |R 30 CHARS.i....|
00001040: 22 93 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |"...............|
00001050: 1D 1D 1D 1D 1D 1D 1D 4F 4E 45 20 4D 4F 4D 45 4E |.......ONE MOMEN|
00001060: 54 20 50 4C 45 41 53 45 22 00 9E 18 A3 02 83 20 |T PLEASE"...... |
00001070: 31 36 30 2C 20 32 2C 20 31 37 37 2C 20 34 35 2C |160, 2, 177, 45,|
00001080: 20 31 35 33 2C 20 31 33 37 2C 20 30 2C 20 32 30 | 153, 137, 0, 20|
00001090: 30 2C 20 31 39 32 2C 20 36 2C 20 32 30 38 00 D1 |0, 192, 6, 208..|
000010A0: 18 A8 02 83 20 32 34 36 2C 20 31 36 32 2C 20 35 |.... 246, 162, 5|
000010B0: 2C 20 33 32 2C 20 31 39 38 2C 20 32 35 35 2C 20 |, 32, 198, 255, |
000010C0: 33 32 2C 20 32 32 38 2C 20 32 35 35 2C 20 32 33 |32, 228, 255, 23|
000010D0: 34 00 08 19 AD 02 83 20 32 33 34 2C 20 32 33 34 |4...... 234, 234|
000010E0: 2C 20 32 33 34 2C 20 31 36 34 2C 20 31 34 32 2C |, 234, 164, 142,|
000010F0: 20 31 34 35 2C 20 31 34 30 2C 20 32 30 30 2C 20 | 145, 140, 200, |
00001100: 31 33 32 2C 20 31 34 32 00 3C 19 B2 02 83 20 31 |132, 142.<.... 1|
00001110: 39 36 2C 20 31 33 39 2C 20 32 34 30 2C 20 34 2C |96, 139, 240, 4,|
00001120: 20 31 36 35 2C 20 31 34 34 2C 20 32 34 30 2C 20 | 165, 144, 240, |
00001130: 32 33 34 2C 20 37 36 2C 20 32 30 34 00 6B 19 B7 |234, 76, 204.k..|
00001140: 02 83 20 32 35 35 2C 20 31 36 30 2C 20 31 2C 20 |.. 255, 160, 1, |
00001150: 31 34 30 2C 20 31 34 36 2C 20 32 2C 20 32 30 38 |140, 146, 2, 208|
00001160: 2C 20 33 2C 20 33 32 2C 20 32 32 00 A0 19 BC 02 |, 3, 32, 22.....|
00001170: 83 20 32 33 31 2C 20 33 32 2C 20 34 34 2C 20 31 |. 231, 32, 44, 1|
00001180: 36 38 2C 20 31 36 35 2C 20 31 39 38 2C 20 31 33 |68, 165, 198, 13|
00001190: 33 2C 20 32 30 34 2C 20 32 34 30 2C 20 32 34 37 |3, 204, 240, 247|
000011A0: 00 D4 19 C1 02 83 20 31 32 30 2C 20 31 36 35 2C |...... 120, 165,|
000011B0: 20 32 30 37 2C 20 32 34 30 2C 20 31 32 2C 20 31 | 207, 240, 12, 1|
000011C0: 36 35 2C 20 32 30 36 2C 20 31 37 34 2C 20 31 33 |65, 206, 174, 13|
000011D0: 35 2C 20 32 00 06 1A C6 02 83 20 31 36 30 2C 20 |5, 2...... 160, |
000011E0: 30 2C 20 31 33 32 2C 20 32 30 37 2C 20 33 32 2C |0, 132, 207, 32,|
000011F0: 20 31 39 2C 20 32 33 34 2C 20 33 32 2C 20 31 38 | 19, 234, 32, 18|
00001200: 30 2C 20 32 32 39 00 38 1A CB 02 83 20 32 30 31 |0, 229.8.... 201|
00001210: 2C 20 31 33 36 2C 20 32 34 30 2C 20 34 2C 20 32 |, 136, 240, 4, 2|
00001220: 30 31 2C 20 31 33 33 2C 20 32 30 38 2C 20 31 2C |01, 133, 208, 1,|
00001230: 20 39 36 2C 20 32 30 31 00 69 1A D0 02 83 20 31 | 96, 201.i.... 1|
00001240: 33 2C 20 32 34 30 2C 20 34 2C 20 32 30 31 2C 20 |3, 240, 4, 201, |
00001250: 31 37 2C 20 32 30 38 2C 20 38 2C 20 31 36 36 2C |17, 208, 8, 166,|
00001260: 20 32 31 34 2C 20 32 32 34 00 9E 1A D5 02 83 20 | 214, 224...... |
00001270: 32 34 2C 20 31 34 34 2C 20 32 30 31 2C 20 31 37 |24, 144, 201, 17|
00001280: 36 2C 20 32 30 32 2C 20 31 36 36 2C 20 32 31 31 |6, 202, 166, 211|
00001290: 2C 20 32 32 34 2C 20 33 39 2C 20 32 30 38 00 D5 |, 224, 39, 208..|
000012A0: 1A DA 02 83 20 31 39 33 2C 20 32 30 31 2C 20 31 |.... 193, 201, 1|
000012B0: 35 37 2C 20 32 34 30 2C 20 31 38 39 2C 20 32 30 |57, 240, 189, 20|
000012C0: 31 2C 20 31 34 35 2C 20 32 34 30 2C 20 31 38 35 |1, 145, 240, 185|
000012D0: 2C 20 32 30 31 00 F8 1A DF 02 83 20 32 39 2C 20 |, 201...... 29, |
000012E0: 32 34 30 2C 20 31 38 31 2C 20 32 30 38 2C 20 31 |240, 181, 208, 1|
000012F0: 38 32 2C 20 30 2C 20 30 00 17 1B E4 02 81 4A B2 |82, 0, 0......J.|
00001300: 38 39 36 A4 31 30 32 32 3A 87 58 3A 97 4A 2C 58 |896.1022:.X:.J,X|
00001310: 3A 82 4A 3A 4A B2 30 00 1D 1B E9 02 8E 00 30 1B |:.J:J.0.......0.|
00001320: EE 02 8F 3A 54 49 54 4C 45 20 53 43 52 45 45 4E |...:TITLE SCREEN|
00001330: 00 3D 1B F3 02 99 22 93 11 11 11 11 22 00 77 1B |.=....".....".w.|
00001340: F8 02 99 22 20 20 20 12 20 20 20 20 92 20 12 20 |..." . . . |
00001350: 92 20 12 20 20 20 20 92 20 20 20 12 20 20 20 20 |. . . . |
00001360: 92 20 12 20 20 20 20 92 20 12 20 20 20 20 92 20 |. . . . . |
00001370: 12 20 20 20 20 20 92 00 B7 1B FD 02 99 22 A0 A0 |. ......."..|
00001380: 20 12 20 92 20 20 12 20 92 20 12 20 92 20 12 20 | . . . . . . . |
00001390: 92 20 20 12 20 92 20 20 20 12 20 92 20 20 B7 20 |. . . . . . |
000013A0: 12 20 92 20 20 12 20 92 20 12 20 92 20 20 12 20 |. . . . . . . |
000013B0: 92 20 20 20 12 20 92 00 F5 1B 02 03 99 22 20 20 |. . ......." |
000013C0: 20 12 20 92 20 20 12 20 92 20 12 20 92 20 12 20 | . . . . . . . |
000013D0: 92 B7 B7 B5 20 20 20 12 92 B7 B7 B7 12 20 92 20 |.... ...... . |
000013E0: 12 20 92 20 20 12 20 92 20 12 20 92 B7 B7 B5 20 |. . . . . .... |
000013F0: 20 20 12 20 92 00 1F 1C 07 03 99 22 20 20 20 B7 | . ......." .|
00001400: B7 B7 B7 20 B8 20 B7 20 20 BE 20 B8 20 B7 B7 B7 |... . . . . ...|
00001410: B7 20 B7 B7 B7 B7 20 B7 20 20 BE 20 20 20 B8 00 |. .... . . ..|
00001420: 46 1C 0C 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |F...."..........|
00001430: 1D 1D A0 52 45 56 49 53 45 44 20 46 4F 52 20 43 |...REVISED FOR C|
00001440: 55 43 55 47 20 22 00 6E 1C 11 03 99 22 1D 1D 1D |UCUG ".n...."...|
00001450: 1D 1D 1D 1D 1D 1D 42 59 3A 20 41 52 54 20 4C 45 |......BY: ART LE|
00001460: 57 49 53 20 4B 49 4D 42 41 4C 4C 22 3A 99 00 A7 |WIS KIMBALL":...|
00001470: 1C 16 03 99 3A 99 A3 36 29 22 12 50 52 45 53 53 |....:..6)".PRESS|
00001480: 20 22 AA C7 28 33 34 29 AA 22 49 22 AA C7 28 33 | "..(34)."I"..(3|
00001490: 34 29 AA 22 20 46 4F 52 20 49 4E 53 54 52 55 43 |4)." FOR INSTRUC|
000014A0: 54 49 4F 4E 53 92 22 00 CE 1C 1B 03 99 3A 99 A6 |TIONS."......:..|
000014B0: 36 29 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 4F |6)"............O|
000014C0: 52 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 03 |R............"..|
000014D0: 1D 20 03 99 22 11 11 12 49 4E 53 45 52 54 20 44 |. .."...INSERT D|
000014E0: 49 53 4B 20 54 4F 20 42 45 20 53 4F 52 54 45 44 |ISK TO BE SORTED|
000014F0: 2D 2D 54 48 45 4E 20 48 49 54 20 53 50 41 43 45 |--THEN HIT SPACE|
00001500: 92 22 3B 00 09 1D 25 03 8E 00 37 1D 2A 03 99 22 |.";...%...7.*.."|
00001510: 93 22 A6 31 33 29 22 49 4E 53 54 52 55 43 54 49 |.".13)"INSTRUCTI|
00001520: 4F 4E 53 22 3A 99 A6 31 33 29 22 A3 A3 A3 A3 A3 |ONS":..13)".....|
00001530: A3 A3 A3 A3 A3 A3 A3 00 5C 1D 2F 03 99 22 20 12 |........\./.." .|
00001540: 44 49 52 2E 53 4F 52 54 92 20 57 49 4C 4C 20 52 |DIR.SORT. WILL R|
00001550: 45 2D 53 4F 52 54 20 59 4F 55 52 22 00 87 1D 34 |E-SORT YOUR"...4|
00001560: 03 99 22 20 44 49 52 45 43 54 4F 52 59 20 45 4E |.." DIRECTORY EN|
00001570: 54 52 49 45 53 20 49 4E 20 41 4E 59 20 4F 52 44 |TRIES IN ANY ORD|
00001580: 45 52 20 59 4F 55 22 00 B3 1D 39 03 99 22 20 43 |ER YOU"...9.." C|
00001590: 48 4F 4F 53 45 2E 20 20 4A 55 53 54 20 49 4E 53 |HOOSE. JUST INS|
000015A0: 45 52 54 20 54 48 45 20 44 49 53 4B 20 54 4F 20 |ERT THE DISK TO |
000015B0: 42 45 22 00 DF 1D 3E 03 99 22 20 53 4F 52 54 45 |BE"...>.." SORTE|
000015C0: 44 20 49 4E 54 4F 20 54 48 45 20 44 49 53 4B 20 |D INTO THE DISK |
000015D0: 44 52 49 56 45 2C 20 54 48 45 4E 20 48 49 54 00 |DRIVE, THEN HIT.|
000015E0: 1A 1E 43 03 99 22 20 54 48 45 20 53 50 41 43 45 |..C.." THE SPACE|
000015F0: 20 42 41 52 2E 22 3A 99 3A 99 22 20 54 48 45 20 | BAR.":.:." THE |
00001600: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 49 45 |DIRECTORY ENTRIE|
00001610: 53 20 57 49 4C 4C 20 42 45 22 00 46 1E 48 03 99 |S WILL BE".F.H..|
00001620: 22 20 44 49 53 50 4C 41 59 45 44 2C 20 4E 55 4D |" DISPLAYED, NUM|
00001630: 42 45 52 45 44 20 49 4E 20 54 48 45 49 52 20 43 |BERED IN THEIR C|
00001640: 55 52 52 45 4E 54 00 72 1E 4D 03 99 22 20 4F 52 |URRENT.r.M.." OR|
00001650: 44 45 52 2E 20 20 28 4E 4F 54 45 3A 20 20 54 48 |DER. (NOTE: TH|
00001660: 45 20 4E 55 4D 42 45 52 53 20 44 4F 20 12 4E 4F |E NUMBERS DO .NO|
00001670: 54 92 00 98 1E 52 03 99 22 20 52 45 50 52 45 53 |T....R.." REPRES|
00001680: 45 4E 54 20 42 4C 4F 43 4B 53 2E 20 20 54 48 45 |ENT BLOCKS. THE|
00001690: 59 20 53 49 4D 50 4C 59 00 C2 1E 57 03 99 22 20 |Y SIMPLY...W.." |
000016A0: 52 45 50 52 45 53 45 4E 54 20 54 48 45 20 4F 52 |REPRESENT THE OR|
000016B0: 44 45 52 20 49 4E 20 57 48 49 43 48 20 45 41 43 |DER IN WHICH EAC|
000016C0: 48 22 00 EB 1E 5C 03 99 22 20 45 4E 54 52 59 20 |H"...\.." ENTRY |
000016D0: 41 50 50 45 41 52 53 20 49 4E 20 54 48 45 20 44 |APPEARS IN THE D|
000016E0: 49 52 45 43 54 4F 52 59 2E 29 22 00 13 1F 61 03 |IRECTORY.)"...a.|
000016F0: 99 3A 99 22 20 49 46 20 59 4F 55 20 57 49 53 48 |.:." IF YOU WISH|
00001700: 20 54 4F 20 41 4C 50 48 41 42 45 54 49 5A 45 20 | TO ALPHABETIZE |
00001710: 54 48 45 00 46 1F 66 03 99 22 20 45 4E 54 52 49 |THE.F.f.." ENTRI|
00001720: 45 53 2C 20 50 52 45 53 53 20 54 48 45 20 22 C7 |ES, PRESS THE ".|
00001730: 28 33 34 29 22 31 22 C7 28 33 34 29 22 20 4B 45 |(34)"1".(34)" KE|
00001740: 59 2C 20 41 4E 44 00 70 1F 6B 03 99 22 20 54 48 |Y, AND.p.k.." TH|
00001750: 45 20 44 49 52 45 43 54 4F 52 59 20 57 49 4C 4C |E DIRECTORY WILL|
00001760: 20 42 45 20 41 4C 50 48 41 42 45 54 49 5A 45 44 | BE ALPHABETIZED|
00001770: 00 87 1F 70 03 99 22 20 41 55 54 4F 4D 41 54 49 |...p.." AUTOMATI|
00001780: 43 41 4C 4C 59 2E 22 00 B1 1F 75 03 99 3A 99 22 |CALLY."...u..:."|
00001790: 20 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 | IF YOU WISH TO |
000017A0: 53 4F 52 54 20 54 48 45 4D 20 49 4E 20 53 4F 4D |SORT THEM IN SOM|
000017B0: 45 00 E4 1F 7A 03 99 22 20 4F 54 48 45 52 20 4F |E...z.." OTHER O|
000017C0: 52 44 45 52 2C 20 50 52 45 53 53 20 54 48 45 20 |RDER, PRESS THE |
000017D0: 22 C7 28 33 34 29 22 32 22 C7 28 33 34 29 22 20 |".(34)"2".(34)" |
000017E0: 4B 45 59 2E 00 10 20 7F 03 99 3A 99 22 20 20 20 |KEY... ...:." |
000017F0: 20 12 28 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | .(PRESS ANY KEY|
00001800: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 92 22 3B | TO CONTINUE).";|
00001810: 00 27 20 84 03 A1 20 41 4E 24 3A 8B 20 41 4E 24 |.' ... AN$:. AN$|
00001820: B2 22 22 A7 39 30 30 00 59 20 89 03 99 22 93 22 |."".900.Y ..."."|
00001830: 3A 99 22 20 59 4F 55 20 57 49 4C 4C 20 54 48 45 |:." YOU WILL THE|
00001840: 4E 20 42 45 20 47 49 56 45 4E 20 43 4F 4E 54 52 |N BE GIVEN CONTR|
00001850: 4F 4C 20 4F 46 20 54 48 45 00 7C 20 8E 03 99 22 |OL OF THE.| ..."|
00001860: 20 43 55 52 53 4F 52 2E 20 20 55 53 49 4E 47 20 | CURSOR. USING |
00001870: 54 48 45 20 4E 4F 52 4D 41 4C 22 3B 00 B0 20 93 |THE NORMAL";.. .|
00001880: 03 99 22 20 4B 45 59 42 4F 41 52 44 22 3A 99 22 |.." KEYBOARD":."|
00001890: 20 43 4F 4E 54 52 4F 4C 53 2C 20 52 45 2D 4E 55 | CONTROLS, RE-NU|
000018A0: 4D 42 45 52 20 54 48 45 20 45 4E 54 52 49 45 53 |MBER THE ENTRIES|
000018B0: 00 D9 20 98 03 99 22 20 49 4E 20 41 4E 59 20 4F |.. ..." IN ANY O|
000018C0: 52 44 45 52 20 59 4F 55 20 57 49 53 48 2E 20 20 |RDER YOU WISH. |
000018D0: 4A 55 53 54 20 54 59 50 45 00 04 21 9D 03 99 22 |JUST TYPE..!..."|
000018E0: 20 4F 56 45 52 20 54 48 45 20 4F 4C 44 20 4E 55 | OVER THE OLD NU|
000018F0: 4D 42 45 52 53 20 57 49 54 48 20 59 4F 55 52 20 |MBERS WITH YOUR |
00001900: 4E 45 57 22 00 2F 21 A2 03 99 22 20 4F 4E 45 53 |NEW"./!..." ONES|
00001910: 2E 20 20 57 48 45 4E 20 44 4F 4E 45 2C 20 50 52 |. WHEN DONE, PR|
00001920: 45 53 53 20 54 48 45 20 46 37 20 4B 45 59 2E 00 |ESS THE F7 KEY..|
00001930: 5E 21 A7 03 99 3A 99 22 20 54 48 45 20 50 52 4F |^!...:." THE PRO|
00001940: 47 52 41 4D 20 57 49 4C 4C 20 43 48 45 43 4B 20 |GRAM WILL CHECK |
00001950: 59 4F 55 52 20 4E 55 4D 42 45 52 49 4E 47 00 8C |YOUR NUMBERING..|
00001960: 21 AC 03 99 22 20 46 4F 52 20 45 52 52 4F 52 53 |!..." FOR ERRORS|
00001970: 2C 20 54 48 45 4E 20 44 49 53 50 4C 41 59 20 54 |, THEN DISPLAY T|
00001980: 48 45 20 44 49 52 45 43 54 4F 52 59 00 B7 21 B1 |HE DIRECTORY..!.|
00001990: 03 99 22 20 45 4E 54 52 49 45 53 20 49 4E 20 54 |.." ENTRIES IN T|
000019A0: 48 45 49 52 20 4E 45 57 20 4F 52 44 45 52 2C 20 |HEIR NEW ORDER, |
000019B0: 41 4E 44 20 41 53 4B 00 EB 21 B6 03 99 22 20 22 |AND ASK..!..." "|
000019C0: C7 28 33 34 29 22 4F 4B 41 59 3F 22 C7 28 33 34 |.(34)"OKAY?".(34|
000019D0: 29 22 2E 20 20 49 46 20 59 4F 55 20 41 4E 53 57 |)". IF YOU ANSW|
000019E0: 45 52 20 59 45 53 2C 20 54 48 45 00 17 22 BB 03 |ER YES, THE.."..|
000019F0: 99 22 20 4E 45 57 20 44 49 52 45 43 54 4F 52 59 |." NEW DIRECTORY|
00001A00: 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 4E | WILL BE WRITTEN|
00001A10: 20 54 4F 20 54 48 45 00 41 22 C0 03 99 22 20 44 | TO THE.A"..." D|
00001A20: 49 53 4B 2E 20 20 49 46 20 59 4F 55 20 41 4E 53 |ISK. IF YOU ANS|
00001A30: 57 45 52 20 4E 4F 2C 20 59 4F 55 27 4C 4C 20 42 |WER NO, YOU'LL B|
00001A40: 45 00 6B 22 C5 03 99 22 20 47 49 56 45 4E 20 54 |E.k"..." GIVEN T|
00001A50: 48 45 20 43 48 41 4E 43 45 20 54 4F 20 52 45 2D |HE CHANCE TO RE-|
00001A60: 44 4F 20 49 54 20 55 4E 54 49 4C 00 95 22 CA 03 |DO IT UNTIL.."..|
00001A70: 99 22 20 59 4F 55 27 52 45 20 53 41 54 49 53 46 |." YOU'RE SATISF|
00001A80: 49 45 44 2E 20 20 54 4F 20 41 42 4F 52 54 2C 20 |IED. TO ABORT, |
00001A90: 50 52 45 53 53 00 BA 22 CF 03 99 22 20 54 48 45 |PRESS.."..." THE|
00001AA0: 20 52 55 4E 2D 53 54 4F 50 20 4B 45 59 20 41 54 | RUN-STOP KEY AT|
00001AB0: 20 41 4E 59 20 54 49 4D 45 2E 00 E6 22 D4 03 99 | ANY TIME..."...|
00001AC0: 3A 99 22 20 49 46 20 59 4F 55 52 20 44 49 52 45 |:." IF YOUR DIRE|
00001AD0: 43 54 4F 52 59 20 48 41 53 20 4D 4F 52 45 20 54 |CTORY HAS MORE T|
00001AE0: 48 41 4E 20 34 36 00 14 23 D9 03 99 22 20 45 4E |HAN 46..#..." EN|
00001AF0: 54 52 49 45 53 20 28 4D 41 58 3D 39 32 29 2C 20 |TRIES (MAX=92), |
00001B00: 49 54 20 57 49 4C 4C 20 42 45 20 44 49 53 50 4C |IT WILL BE DISPL|
00001B10: 41 59 45 44 00 3E 23 DE 03 99 22 20 4F 4E 20 54 |AYED.>#..." ON T|
00001B20: 57 4F 20 53 45 50 41 52 41 54 45 20 50 41 47 45 |WO SEPARATE PAGE|
00001B30: 53 2E 20 20 55 53 45 20 54 48 45 20 46 31 00 66 |S. USE THE F1.f|
00001B40: 23 E3 03 99 22 20 4B 45 59 20 41 54 20 41 4E 59 |#..." KEY AT ANY|
00001B50: 20 54 49 4D 45 20 54 4F 20 46 4C 49 50 20 42 41 | TIME TO FLIP BA|
00001B60: 43 4B 20 41 4E 44 00 8A 23 E8 03 99 22 20 46 4F |CK AND..#..." FO|
00001B70: 52 54 48 20 42 45 54 57 45 45 4E 20 54 48 45 20 |RTH BETWEEN THE |
00001B80: 54 57 4F 20 50 41 47 45 53 2E 00 B6 23 ED 03 99 |TWO PAGES...#...|
00001B90: 3A 99 22 20 20 20 20 20 20 12 28 50 52 45 53 53 |:." .(PRESS|
00001BA0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 | ANY KEY TO RETU|
00001BB0: 52 4E 29 92 22 3B 00 CC 23 F2 03 A1 41 4E 24 3A |RN).";..#...AN$:|
00001BC0: 8B 41 4E 24 B2 22 22 A7 31 30 31 30 00 D2 23 F7 |.AN$."".1010..#.|
00001BD0: 03 8E 00 00 00 |..... |
..E....55,0:.56,60:.643,0:.644,60:.:. LO
WER MEMORY TOP FOR ALT SCREEN.....53281
,0:.53280,0:. 646,13:.G(142)G(8);:. DISA
BLE L/C......655:.125......:READ DIRECTO
RY..... 5:.5,8,5,"#":S%(1).1:DE.0:I.1:.
SECTOR 1, DIRECTORY ENTRY 0...#..".";:ME
$."READING DIRECTORY":.605.9.(..15, "U1:
";5;Z;18;S%(I):I.I.1:.635:.ER.445.\.-..#
5,T$:.#5,S$:S%(I).F(S$.G(0)).Z.2..Q.1.8:
DE.DE.1:DR$(DE).""...7..896:DR$(DE).A$..
.<..Q..8..#5,NG$,NG$...A.. Q:.S%(I).21.4
0...F. 5.V.K.. ...P..AL..
585...U..".";:TA.0...Z..Q.1.G..._..Q.24.
Q.70.TA.20:.".";.2.D..Q.47..585:.".";:TA
.0.M.I...TA)"."I(D(Q),2)" ."J(DR$(SC%(Q)
),4,16):. PRINT NAMES.T.N..Q.Z.S.....X.
5:....}.. DR$(145),S%(20),NM$(145),SO%(1
45),SC%(145).....AL.0:.585:.".";:.585:.
CLEAR ALT. SCREEN.....SP$."
".#...VE$."......................
..".,....755.G....J$:.J$."".150 .
....J$."I"..810:.145:. PRINT INSTRUCTIO
NS IF REQUESTED... ..J$..G(32).150......
".":ME$."DRIVE 0 OR 1?":.605.I....DN$:.D
N$."".170.V...Z.E(DN$)..... 15:.15,8,15,
"I".DN$.'....30:. READ THE DIRECTORY FRO
M DISK INTO DR$() ARRAY.K...G.0:D.0:. SO
RT GOOD/DEL ENTRIES.W.C..J.1.DE...H.A.F(
DR$(J).G(0)):.A.128.D.D.1:SO%(D).J:.210.
..M.G.G.1:SC%(G).J...R..J...W..G.46.PG.1
:.G.92.."........... OVER 92 ENTRIES -
CAN'T DO":.445.1...D.0:.J.G.1.DE:D.D.1:S
C%(J).SO%(D):.J:. DELETED ENTRIES AT END
OF ARRAY.R....:DISPLAY UNSORTED DIRECTO
RY.U....80:.PG..600:. PRINT DIRECTORY...
..ME$."(1) ALPHABETIZE OR (2) CUSTOM SOR
T?".V....605:.570:.E(Q$).250,470:.PG..Q$
."."..585:.600......235......:SORT.....M
E$.".. .":
.605.Q...ME$."..PREPARING FOR SORT -- PL
EASE WAIT..":.605.Z.... X.1.G:. LOOP TO
CONVERT FILE NAMES.....NM$(X).J(DR$(SC%(
X)),4,16).F....P.2.17:. REMOVE TRAILING
SHIFTED SPACES......J(NM$(X),P,1).G(160)
.NM$(X).J(NM$(X),1,P.1):.290...... P..."
.. X.9.'.ME$.".........NOW SORTING......
...":.605.J.,.. SHELL SORT.R.1.B.G...6.B
..(B.2):.VE$;".."J(D(B),2)". ";:.B.0.355
...;.X.1:K.G.B...@.C.X...E.D.C.B:.NM$(C)
..NM$(D).340.Z.J.H%.SC%(C):SC%(C).SC%(D)
:SC%(D).H%...O.HO$.NM$(C):NM$(C).NM$(D):
NM$(D).HO$:C.C.B:.C.0.325.$.T.X.X.1:.X.K
.310.-.Y..320.L.^..:DISPLAY SORTED DIREC
TORY.T.C..80.W.H.ME$."OKAY? Y/N":.605:.
PG..600...M..570:.PG..Q$."."..585:.360..
.R..Q$.."Y".470.A.W..:WRITE NEW DIRECTOR
Y.P.|..5,8,5,"#".....W.I.1:DW.0:. W=NUMB
ER OF BLOCKS TO WRITE.@....I.1.W:.15,"B-
P:";5;Z:. LOOP TO WRITE.FORCE BUF POINT
TO BEGIN.....TT.18:.S%(I.1).255.TT.0:. T
RACK # TO WRITE. 0 IF LAST BLOCK......5,
G(TT);G(S%(I.1));.K.... Q.1.8:DW.DW.1:.
LOOP TO PUT THE DIR ENTRIES......5,DR$(S
C%(DW));......Q..8..5,"SG";:. PUT IN 2 D
UMMY BYTES...... Q.;....15, "U2:";5;Z;18
;S%(I):.635:.ER.445.D...ME$."WRITING SEC
TOR: ".D(S%(I)):.605.L.... I.W... 5: 15.
....ME$."A N O T H E R D I S K ? (Y
/N)":.605:.PG..590.E.B..Q$:.Q$."".450.Y.
G..Q$."Y". 15:.10...L..56,160:.644,160:.
VE$;: 5: 15:.G(9);:.".":....Q..:CUSTOM S
ORT.G.V.ME$."RENUMBER ENTRIES, THEN PRES
S <F7>".V....605:.".";......938:.B(780).
136.ME$."...RE-SORTING...":.605:.500....
..PG..B(780).133..585:.475......480.U...
.:SORT ACCORDING TO NEW ORDER......J.1.G
:SO%(J).0:.J:. CLEAR SORT ARRAY. ....AL.
.585:. START ON 1ST PAGE.1... 3:.3,3:TA.
0.<....J.1.G.Q....J.24.J.70.TA.20.E....J
.47..585:TA.0......615:.3,TEMP$:NN.E(H(T
EMP$,2)).K....NN.1.NN.G.ME$."INVALID NUM
BER - PLEASE CHANGE":.605:.625:.480.....
.SO%(NN)..0.ME$."DUPLICATE NUMBER - PLEA
SE CHANGE":.605:.625:.480.$.!.SO%(NN).SC
%(J).-.&..: 3.Q.+..J.1.G:SC%(J).SO%(J):.
:. TRANSFER SORTED KEY #'S TO SC%() ARRA
Y...0..355:. DISPLAY SORTED DIRECTORY &
CONFIRM...5.. :GET SUBROUTINE.H.:..Q$:.Q
$."".570.N.?.....D..: TOGGLE ALT SCREENS
...I.AL..AL:.AL..53272,245:.648,60:..$.N
.. 53272,21:.648,4:..I.S..:PRINT MESSAGE
AT SCREEN BOTTOM.{.X.ME$.".HIT <F1> TO
SEE PAGE ".I(D(AL.2),1)."."...].SP.39.C(
ME$):HS..(SP.2):.VE$H(SP$,SP.HS)"."ME$".
"H(SP$,HS);:..Z.B..:MOVE CURSOR TO ENTRY
J...G..H(VE$,J..((J.1).23).23).TA);:..
.L..:HIGHLIGHT NUMBER AT ENTRY J.2.Q..61
5:."."RIGH.K.V..:READ ERROR CHANNEL...{.
.15,ER,ER$,TR,SE:.ER.19.."........."ER;E
R$;" TRACK"TR" SECTOR"SE............:LOA
D "STRING THING" M/L PROGRAM...... STRIN
G MUST BE FIRST VARIABLE.....A$."ABCDEFG
HIJKLM".....A$.A$."NOPQRSTUVWXYZ1234".:.
... ABOVE SETS STRING FOR 30 CHARS.I....
"......................ONE MOMENT PLEASE
"...... 160, 2, 177, 45, 153, 137, 0, 20
0, 192, 6, 208.Q.... 246, 162, 5, 32, 19
8, 255, 32, 228, 255, 234...... 234, 234
, 234, 164, 142, 145, 140, 200, 132, 142
.<.... 196, 139, 240, 4, 165, 144, 240,
234, 76, 204.K.... 255, 160, 1, 140, 146
, 2, 208, 3, 32, 22. .... 231, 32, 44, 1
68, 165, 198, 133, 204, 240, 247.T.A.. 1
20, 165, 207, 240, 12, 165, 206, 174, 13
5, 2...F.. 160, 0, 132, 207, 32, 19, 234
, 32, 180, 229.8.K.. 201, 136, 240, 4, 2
01, 133, 208, 1, 96, 201.I.P.. 13, 240,
4, 201, 17, 208, 8, 166, 214, 224...U..
24, 144, 201, 176, 202, 166, 211, 224, 3
9, 208.U.Z.. 193, 201, 157, 240, 189, 20
1, 145, 240, 185, 201...... 29, 240, 181
, 208, 182, 0, 0......J.896.1022:.X:.J,X
:.J:J.0.......0....:TITLE SCREEN.=....".
....".W...." . . . . . . .
. . . . . . ......." . . .
. . . . . . . . . . . . . . . . .
. . ......." . . . . . . . .... .
..... . . . . . . .... . ......." .
... . . . . .... .... . . ..F...."..
.......... REVISED FOR CUCUG ".N...."...
......BY: ART LEWIS KIMBALL":.......:..6
)".PRESS ".G(34)."I".G(34)." FOR INSTRUC
TIONS.".N....:..6)"............OR.......
....."... .."...INSERT DISK TO BE SORTED
--THEN HIT SPACE.";...%...7.*..".".13)"I
NSTRUCTIONS":..13)".............\./.." .
DIR.SORT. WILL RE-SORT YOUR"...4.." DIRE
CTORY ENTRIES IN ANY ORDER YOU"...9.." C
HOOSE. JUST INSERT THE DISK TO BE"...>.
." SORTED INTO THE DISK DRIVE, THEN HIT.
..C.." THE SPACE BAR.":.:." THE DIRECTOR
Y ENTRIES WILL BE".F.H.." DISPLAYED, NUM
BERED IN THEIR CURRENT.R.M.." ORDER. (N
OTE: THE NUMBERS DO .NOT....R.." REPRES
ENT BLOCKS. THEY SIMPLY.B.W.." REPRESEN
T THE ORDER IN WHICH EACH"...\.." ENTRY
APPEARS IN THE DIRECTORY.)"...A..:." IF
YOU WISH TO ALPHABETIZE THE.F.F.." ENTRI
ES, PRESS THE "G(34)"1"G(34)" KEY, AND.P
.K.." THE DIRECTORY WILL BE ALPHABETIZED
...P.." AUTOMATICALLY."...U..:." IF YOU
WISH TO SORT THEM IN SOME...Z.." OTHER O
RDER, PRESS THE "G(34)"2"G(34)" KEY...
..:." .(PRESS ANY KEY TO CONTINUE).";
.' ... AN$:. AN$."".900.Y ...".":." YOU
WILL THEN BE GIVEN CONTROL OF THE.| ..."
CURSOR. USING THE NORMAL";.. ..." KEYB
OARD":." CONTROLS, RE-NUMBER THE ENTRIES
.Y ..." IN ANY ORDER YOU WISH. JUST TYP
E..!..." OVER THE OLD NUMBERS WITH YOUR
NEW"./!..." ONES. WHEN DONE, PRESS THE
F7 KEY..^!...:." THE PROGRAM WILL CHECK
YOUR NUMBERING..!..." FOR ERRORS, THEN D
ISPLAY THE DIRECTORY..!..." ENTRIES IN T
HEIR NEW ORDER, AND ASK..!..." "G(34)"OK
AY?"G(34)". IF YOU ANSWER YES, THE.."..
." NEW DIRECTORY WILL BE WRITTEN TO THE.
A"..." DISK. IF YOU ANSWER NO, YOU'LL B
E.K"E.." GIVEN THE CHANCE TO RE-DO IT UN
TIL.."J.." YOU'RE SATISFIED. TO ABORT,
PRESS.."O.." THE RUN-STOP KEY AT ANY TIM
E..."T..:." IF YOUR DIRECTORY HAS MORE T
HAN 46..#Y.." ENTRIES (MAX=92), IT WILL
BE DISPLAYED.>#..." ON TWO SEPARATE PAGE
S. USE THE F1.F#..." KEY AT ANY TIME TO
FLIP BACK AND..#..." FORTH BETWEEN THE
TWO PAGES...#...:." .(PRESS ANY KEY
TO RETURN).";.L#...AN$:.AN$."".1010.R#.
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL