Multiple names: DIRECTORY SORT, DIR SORT
FILE INFORMATION
FILENAME(S):
• DIRECTORY SORT<br>• DIR SORT
FILE TYPE(S): PRG
FILE SIZE: 8.5K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 2 disk(s)
FILE HASH
540d6b3118b65cb09949c7f6360cc3a5478f58168b732998f11cdddcd7822c1b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | DIRECTORY SORT | PRG | Radd Maxx | 22 | 0 | DOWNLOAD FILE |
| C 64 MENUE | DIR SORT | PRG | Treasure Chest - Reamigation | 13 | 0 | 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 85 08 0F 00 97 35 33 32 38 31 |CREEN......53281|
00000050: 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 99 22 05 |,6:.53280,14:.".|
00000060: 22 C7 28 31 34 32 29 C7 28 38 29 3B 3A 8F 20 53 |".(142).(8);:. S|
00000070: 45 54 20 43 4F 4C 4F 52 53 2C 44 49 53 41 42 4C |ET COLORS,DISABL|
00000080: 45 20 4C 2F 43 00 D4 08 14 00 8F 2A 2A 2A 2A 2A |E L/C......*****|
00000090: 2A 2A 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C |**LOAD MACHINE L|
000000A0: 41 4E 47 55 41 47 45 20 50 52 4F 47 52 41 4D 20 |ANGUAGE PROGRAM |
000000B0: 49 4E 54 4F 20 4D 45 4D 4F 52 59 2A 2A 2A 2A 2A |INTO MEMORY*****|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 00 E3 08 1E 00 8D 31 32 39 30 3A 89 |****......1290:.|
000000E0: 32 37 30 00 32 09 28 00 8F 2A 2A 2A 2A 2A 2A 2A |270.2.(..*******|
000000F0: 53 55 42 52 4F 55 54 49 4E 45 3A 20 52 45 41 44 |SUBROUTINE: READ|
00000100: 20 44 49 52 45 43 54 4F 52 59 20 46 52 4F 4D 20 | DIRECTORY FROM |
00000110: 44 49 53 4B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |DISK************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 00 73 09 32 00 A0 35 3A 9F 35 2C 38 2C 35 |**.s.2..5:.5,8,5|
00000140: 2C 22 23 22 3A 53 25 28 31 29 B2 31 3A 44 45 B2 |,"#":S%(1).1:DE.|
00000150: 30 3A 49 B2 31 3A 8F 20 53 45 43 54 4F 52 20 31 |0:I.1:. SECTOR 1|
00000160: 2C 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 |, DIRECTORY ENTR|
00000170: 59 20 30 00 9C 09 37 00 99 22 93 22 3B 3A 4D 45 |Y 0...7..".";:ME|
00000180: 24 B2 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 |$."READING DIREC|
00000190: 54 4F 52 59 22 3A 8D 20 31 32 32 30 00 CB 09 3C |TORY":. 1220...<|
000001A0: 00 98 31 35 2C 22 55 31 3A 22 3B 35 3B 30 3B 31 |..15,"U1:";5;0;1|
000001B0: 38 3B 53 25 28 49 29 3A 49 B2 49 AA 31 3A 8D 31 |8;S%(I):I.I.1:.1|
000001C0: 32 36 32 3A 8B 45 52 A7 38 35 30 00 EE 09 46 00 |262:.ER.850...F.|
000001D0: A1 23 35 2C 54 24 3A A1 23 35 2C 53 24 3A 53 25 |.#5,T$:.#5,S$:S%|
000001E0: 28 49 29 B2 C6 28 53 24 AA C7 28 30 29 29 00 0C |(I)..(S$..(0))..|
000001F0: 0A 50 00 81 51 B2 31 A4 38 3A 44 45 B2 44 45 AA |.P..Q.1.8:DE.DE.|
00000200: 31 3A 44 52 24 28 44 45 29 B2 22 22 00 20 0A 5A |1:DR$(DE)."". .Z|
00000210: 00 9E 38 39 36 3A 44 52 24 28 44 45 29 B2 41 24 |..896:DR$(DE).A$|
00000220: 00 36 0A 64 00 8B 51 B3 B1 38 A7 A1 23 35 2C 4E |.6.d..Q..8..#5,N|
00000230: 47 24 2C 4E 47 24 00 4B 0A 6E 00 82 20 51 3A 8B |G$,NG$.K.n.. Q:.|
00000240: 53 25 28 49 29 B3 32 31 A7 36 30 00 52 0A 78 00 |S%(I).21.60.R.x.|
00000250: A0 35 00 58 0A 82 00 8E 00 A6 0A 8C 00 8F 2A 2A |.5.X..........**|
00000260: 2A 2A 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A |*****SUBROUTINE:|
00000270: 20 44 49 53 50 4C 41 59 20 44 49 52 45 43 54 4F | DISPLAY DIRECTO|
00000280: 52 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RY *************|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 00 B4 0A 96 00 8B 41 4C A7 8D |******......AL..|
000002B0: 31 31 39 30 00 C3 0A 9B 00 99 22 93 22 3B 3A 54 |1190......".";:T|
000002C0: 41 B2 30 00 CE 0A A0 00 81 51 B2 31 A4 47 00 E9 |A.0......Q.1.G..|
000002D0: 0A AA 00 8B 51 B2 32 34 B0 51 B2 37 30 A7 54 41 |....Q.24.Q.70.TA|
000002E0: B2 32 30 3A 99 22 13 22 3B 00 04 0B B4 00 8B 51 |.20:.".";......Q|
000002F0: B2 34 37 A7 8D 31 31 39 30 3A 99 22 13 22 3B 3A |.47..1190:.".";:|
00000300: 54 41 B2 30 00 3F 0B BE 00 99 A3 54 41 29 22 9B |TA.0.?.....TA)".|
00000310: 22 C9 28 C4 28 51 29 2C 32 29 22 20 05 22 CA 28 |".(.(Q),2)" .".(|
00000320: 44 52 24 28 53 43 25 28 51 29 29 2C 34 2C 31 36 |DR$(SC%(Q)),4,16|
00000330: 29 3A 8F 20 50 52 49 4E 54 20 4E 41 4D 45 53 00 |):. PRINT NAMES.|
00000340: 46 0B C8 00 82 51 00 4C 0B D2 00 8E 00 55 0B DC |F....Q.L.....U..|
00000350: 00 A0 35 3A 8E 00 5B 0B E6 00 8F 00 61 0B F0 00 |..5:..[.....a...|
00000360: 8F 00 67 0B FA 00 8F 00 B5 0B 04 01 8F 2A 2A 2A |..g..........***|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 49 4E 49 54 49 41 |**********INITIA|
00000380: 4C 49 5A 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |LIZE************|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 00 E6 0B 0E 01 86 20 44 52 24 28 |*****...... DR$(|
000003C0: 31 34 35 29 2C 53 25 28 32 30 29 2C 4E 4D 24 28 |145),S%(20),NM$(|
000003D0: 31 34 35 29 2C 53 4F 25 28 31 34 35 29 2C 53 43 |145),SO%(145),SC|
000003E0: 25 28 31 34 35 29 00 15 0C 18 01 41 4C B2 30 3A |%(145).....AL.0:|
000003F0: 8D 31 31 39 30 3A 99 22 93 22 3B 3A 8D 31 31 39 |.1190:.".";:.119|
00000400: 30 3A 8F 20 43 4C 45 41 52 20 41 4C 54 2E 20 53 |0:. CLEAR ALT. S|
00000410: 43 52 45 45 4E 00 34 0C 22 01 53 50 24 B2 22 20 |CREEN.4.".SP$." |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 22 00 57 0C 2C 01 56 45 24 B2 22 13 11 | ".W.,.VE$."..|
00000440: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000450: 11 11 11 11 11 11 22 00 61 0C 31 01 8D 31 34 39 |......".a.1..149|
00000460: 30 00 74 0C 40 01 A1 4A 24 3A 8B 4A 24 B2 22 22 |0.t.@..J$:.J$.""|
00000470: A7 33 32 30 00 AD 0C 45 01 8B 4A 24 B2 22 49 22 |.320...E..J$."I"|
00000480: A7 8D 31 37 30 30 3A 89 33 30 35 3A 8F 20 50 52 |..1700:.305:. PR|
00000490: 49 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |INT INSTRUCTIONS|
000004A0: 20 49 46 20 52 45 51 55 45 53 54 45 44 00 D2 0C | IF REQUESTED...|
000004B0: 4A 01 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 |J..15:.15,8,15,"|
000004C0: 49 22 3A 8F 20 43 4F 4D 4D 41 4E 44 20 43 48 41 |I":. COMMAND CHA|
000004D0: 4E 2E 00 20 0D 54 01 8F 2A 2A 2A 2A 2A 2A 2A 2A |N.. .T..********|
000004E0: 52 45 41 44 20 49 4E 20 44 49 52 45 43 54 4F 52 |READ IN DIRECTOR|
000004F0: 59 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y***************|
00000500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000520: 00 58 0D 5E 01 8D 35 30 3A 8F 20 52 45 41 44 20 |.X.^..50:. READ |
00000530: 54 48 45 20 44 49 52 45 43 54 4F 52 59 20 46 52 |THE DIRECTORY FR|
00000540: 4F 4D 20 44 49 53 4B 20 49 4E 54 4F 20 44 52 24 |OM DISK INTO DR$|
00000550: 28 29 20 41 52 52 41 59 00 A6 0D 68 01 8F 2A 2A |() ARRAY...h..**|
00000560: 2A 2A 2A 2A 20 42 55 49 4C 44 20 53 43 52 45 45 |**** BUILD SCREE|
00000570: 4E 20 50 4F 53 49 54 49 4F 4E 20 41 52 52 41 59 |N POSITION ARRAY|
00000580: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005A0: 2A 2A 2A 2A 2A 2A 00 E1 0D 72 01 47 B2 30 3A 44 |******...r.G.0:D|
000005B0: B2 30 3A 8F 20 53 4F 52 54 20 45 4E 54 52 49 45 |.0:. SORT ENTRIE|
000005C0: 53 20 49 4E 54 4F 20 47 4F 4F 44 20 50 49 4C 45 |S INTO GOOD PILE|
000005D0: 20 41 4E 44 20 44 45 4C 45 54 45 44 20 50 49 4C | AND DELETED PIL|
000005E0: 45 00 ED 0D 7C 01 81 4A B2 31 A4 44 45 00 1D 0E |E...|..J.1.DE...|
000005F0: 86 01 41 B2 C6 28 44 52 24 28 4A 29 AA C7 28 30 |..A..(DR$(J)..(0|
00000600: 29 29 3A 8B 41 B3 31 32 38 A7 44 B2 44 AA 31 3A |)):.A.128.D.D.1:|
00000610: 53 4F 25 28 44 29 B2 4A 3A 89 34 31 30 00 30 0E |SO%(D).J:.410.0.|
00000620: 90 01 47 B2 47 AA 31 3A 53 43 25 28 47 29 B2 4A |..G.G.1:SC%(G).J|
00000630: 00 37 0E 9A 01 82 4A 00 7C 0E 9F 01 8B 47 B1 34 |.7....J.|....G.4|
00000640: 36 A7 50 47 B2 31 3A 8B 47 B1 39 32 A7 99 22 93 |6.PG.1:.G.92..".|
00000650: 11 11 11 11 11 11 11 11 11 11 20 20 4F 56 45 52 |.......... OVER|
00000660: 20 39 32 20 45 4E 54 52 49 45 53 20 2D 20 43 41 | 92 ENTRIES - CA|
00000670: 4E 27 54 20 44 4F 22 3A 89 38 35 30 00 C7 0E A4 |N'T DO":.850....|
00000680: 01 44 B2 30 3A 81 4A B2 47 AA 31 A4 44 45 3A 44 |.D.0:.J.G.1.DE:D|
00000690: B2 44 AA 31 3A 53 43 25 28 4A 29 B2 53 4F 25 28 |.D.1:SC%(J).SO%(|
000006A0: 44 29 3A 82 4A 3A 8F 20 44 45 4C 45 54 45 44 20 |D):.J:. DELETED |
000006B0: 45 4E 54 52 49 45 53 20 41 54 20 45 4E 44 20 4F |ENTRIES AT END O|
000006C0: 46 20 41 52 52 41 59 00 15 0F AE 01 8F 2A 2A 2A |F ARRAY......***|
000006D0: 2A 2A 2A 2A 2A 44 49 53 50 4C 41 59 20 55 4E 53 |*****DISPLAY UNS|
000006E0: 4F 52 54 45 44 20 44 49 52 45 43 54 4F 52 59 2A |ORTED DIRECTORY*|
000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000710: 2A 2A 2A 2A 2A 00 3F 0F B8 01 8D 20 31 35 30 3A |*****.?.... 150:|
00000720: 8B 50 47 A7 8D 31 32 31 35 3A 8F 20 50 52 49 4E |.PG..1215:. PRIN|
00000730: 54 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 |T THE DIRECTORY.|
00000740: 8D 0F C2 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 50 52 45 |.....********PRE|
00000750: 53 45 4E 54 20 4D 45 4E 55 20 43 48 4F 49 43 45 |SENT MENU CHOICE|
00000760: 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S***************|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BB 0F |*************...|
00000790: CC 01 4D 45 24 B2 22 28 31 29 20 41 4C 50 48 41 |..ME$."(1) ALPHA|
000007A0: 42 45 54 49 5A 45 20 4F 52 20 28 32 29 20 43 55 |BETIZE OR (2) CU|
000007B0: 53 54 4F 4D 20 53 4F 52 54 3F 22 00 F2 0F D6 01 |STOM SORT?".....|
000007C0: 8D 31 32 32 30 3A 8D 31 31 36 30 3A 91 C5 28 51 |.1220:.1160:..(Q|
000007D0: 24 29 89 35 31 30 2C 39 31 30 3A 8B 50 47 A7 8B |$).510,910:.PG..|
000007E0: 51 24 B2 22 85 22 A7 8D 31 31 39 30 3A 8D 31 32 |Q$."."..1190:.12|
000007F0: 31 35 00 FB 0F DB 01 89 34 36 30 00 01 10 E0 01 |15......460.....|
00000800: 8F 00 07 10 EA 01 8F 00 0D 10 F4 01 8F 00 5B 10 |..............[.|
00000810: FE 01 8F 2A 2A 2A 2A 2A 2A 2A 41 4C 50 48 41 42 |...*******ALPHAB|
00000820: 45 54 49 5A 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ETIZE***********|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 10 03 02 |***********.....|
00000860: 4D 45 24 B2 22 11 92 20 20 20 20 20 20 20 20 20 |ME$.".. |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 91 22 3A 8D 20 31 32 32 30 00 | .":. 1220.|
00000890: C5 10 08 02 4D 45 24 B2 22 2E 2E 50 52 45 50 41 |....ME$."..PREPA|
000008A0: 52 49 4E 47 20 46 4F 52 20 53 4F 52 54 20 2D 2D |RING FOR SORT --|
000008B0: 20 50 4C 45 41 53 45 20 57 41 49 54 2E 2E 22 3A | PLEASE WAIT..":|
000008C0: 8D 31 32 32 30 00 EE 10 12 02 81 20 58 B2 31 A4 |.1220...... X.1.|
000008D0: 47 3A 8F 20 4C 4F 4F 50 20 54 4F 20 43 4F 4E 56 |G:. LOOP TO CONV|
000008E0: 45 52 54 20 46 49 4C 45 20 4E 41 4D 45 53 00 0D |ERT FILE NAMES..|
000008F0: 11 1C 02 4E 4D 24 28 58 29 B2 CA 28 44 52 24 28 |...NM$(X)..(DR$(|
00000900: 53 43 25 28 58 29 29 2C 34 2C 31 36 29 00 40 11 |SC%(X)),4,16).@.|
00000910: 26 02 81 50 B2 32 A4 31 37 3A 8F 20 4C 4F 4F 50 |&..P.2.17:. LOOP|
00000920: 20 54 4F 20 48 41 43 4B 20 53 48 49 46 54 45 44 | TO HACK SHIFTED|
00000930: 20 53 50 41 43 45 53 20 46 52 4F 4D 20 45 4E 44 | SPACES FROM END|
00000940: 00 76 11 30 02 8B CA 28 4E 4D 24 28 58 29 2C 50 |.v.0...(NM$(X),P|
00000950: 2C 31 29 B2 C7 28 31 36 30 29 A7 4E 4D 24 28 58 |,1)..(160).NM$(X|
00000960: 29 B2 CA 28 4E 4D 24 28 58 29 2C 31 2C 50 AB 31 |)..(NM$(X),1,P.1|
00000970: 29 3A 89 35 38 30 00 7E 11 3A 02 82 20 50 00 86 |):.580.~.:.. P..|
00000980: 11 44 02 82 20 58 00 B4 11 4E 02 4D 45 24 B2 22 |.D.. X...N.ME$."|
00000990: 2E 2E 2E 2E 2E 2E 2E 2E 2E 4E 4F 57 20 53 4F 52 |.........NOW SOR|
000009A0: 54 49 4E 47 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 8D |TING.........":.|
000009B0: 31 32 32 30 00 C5 11 58 02 8F 20 53 48 45 4C 4C |1220...X.. SHELL|
000009C0: 20 53 4F 52 54 00 CD 11 6C 02 42 B2 47 00 FB 11 | SORT...l.B.G...|
000009D0: 76 02 42 B2 B5 28 42 AD 32 29 3A 99 56 45 24 3B |v.B..(B.2):.VE$;|
000009E0: 22 11 12 22 CA 28 C4 28 42 29 2C 32 29 22 92 20 |"..".(.(B),2)". |
000009F0: 22 3B 3A 8B 42 B2 30 A7 36 39 30 00 09 12 80 02 |";:.B.0.690.....|
00000A00: 58 B2 31 3A 4B B2 47 AB 42 00 11 12 85 02 43 B2 |X.1:K.G.B.....C.|
00000A10: 58 00 2F 12 8A 02 44 B2 43 AA 42 3A 8B 4E 4D 24 |X./...D.C.B:.NM$|
00000A20: 28 43 29 B3 B2 4E 4D 24 28 44 29 A7 36 37 30 00 |(C)..NM$(D).670.|
00000A30: 55 12 94 02 48 25 B2 53 43 25 28 43 29 3A 53 43 |U...H%.SC%(C):SC|
00000A40: 25 28 43 29 B2 53 43 25 28 44 29 3A 53 43 25 28 |%(C).SC%(D):SC%(|
00000A50: 44 29 B2 48 25 00 8C 12 99 02 48 4F 24 B2 4E 4D |D).H%.....HO$.NM|
00000A60: 24 28 43 29 3A 4E 4D 24 28 43 29 B2 4E 4D 24 28 |$(C):NM$(C).NM$(|
00000A70: 44 29 3A 4E 4D 24 28 44 29 B2 48 4F 24 3A 43 B2 |D):NM$(D).HO$:C.|
00000A80: 43 AB 42 3A 8B 43 B1 30 A7 36 35 30 00 9F 12 9E |C.B:.C.0.650....|
00000A90: 02 58 B2 58 AA 31 3A 8B 58 B1 4B A7 36 33 30 00 |.X.X.1:.X.K.630.|
00000AA0: A8 12 A0 02 89 36 34 35 00 AE 12 A1 02 8F 00 B4 |.....645........|
00000AB0: 12 A2 02 8F 00 02 13 A8 02 8F 2A 2A 2A 2A 2A 2A |..........******|
00000AC0: 2A 44 49 53 50 4C 41 59 20 53 4F 52 54 45 44 20 |*DISPLAY SORTED |
00000AD0: 44 49 52 45 43 54 4F 52 59 2A 2A 2A 2A 2A 2A 2A |DIRECTORY*******|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B00: 2A 2A 00 0B 13 B2 02 8D 31 35 30 00 30 13 B4 02 |**......150.0...|
00000B10: 4D 45 24 B2 22 4F 4B 41 59 3F 20 20 59 2F 4E 22 |ME$."OKAY? Y/N"|
00000B20: 3A 8D 31 32 32 30 3A 8B 50 47 A7 8D 31 32 31 35 |:.1220:.PG..1215|
00000B30: 00 51 13 B7 02 8D 31 31 36 30 3A 8B 50 47 A7 8B |.Q....1160:.PG..|
00000B40: 51 24 B2 22 85 22 A7 8D 31 31 39 30 3A 89 36 39 |Q$."."..1190:.69|
00000B50: 32 00 62 13 BC 02 8B 51 24 B3 B1 22 59 22 A7 39 |2.b....Q$.."Y".9|
00000B60: 31 30 00 B0 13 C6 02 8F 2A 2A 2A 2A 2A 2A 2A 57 |10......*******W|
00000B70: 52 49 54 45 20 4E 45 57 20 44 49 52 45 43 54 4F |RITE NEW DIRECTO|
00000B80: 52 59 20 54 4F 20 44 49 53 4B 2A 2A 2A 2A 2A 2A |RY TO DISK******|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 00 CC 13 D0 02 9F 35 2C 38 2C 35 2C 22 23 22 3A |......5,8,5,"#":|
00000BC0: 8F 20 46 49 4C 45 20 43 48 41 4E 2E 00 F9 13 DA |. FILE CHAN.....|
00000BD0: 02 57 B2 49 AB 31 3A 44 57 B2 30 3A 8F 20 57 3D |.W.I.1:DW.0:. W=|
00000BE0: 4E 55 4D 42 45 52 20 4F 46 20 42 4C 4F 43 4B 53 |NUMBER OF BLOCKS|
00000BF0: 20 54 4F 20 57 52 49 54 45 00 3E 14 E4 02 81 20 | TO WRITE.>.... |
00000C00: 49 B2 31 A4 57 3A 98 31 35 2C 22 42 2D 50 3A 22 |I.1.W:.15,"B-P:"|
00000C10: 3B 35 3B 30 3A 8F 20 4C 4F 4F 50 20 54 4F 20 57 |;5;0:. LOOP TO W|
00000C20: 52 49 54 45 2E 20 46 4F 52 43 45 20 42 55 46 20 |RITE. FORCE BUF |
00000C30: 50 4F 49 4E 54 20 54 4F 20 42 45 47 49 4E 00 7E |POINT TO BEGIN.~|
00000C40: 14 EE 02 54 54 B2 31 38 3A 8B 53 25 28 49 AA 31 |...TT.18:.S%(I.1|
00000C50: 29 B2 32 35 35 A7 54 54 B2 30 3A 8F 20 54 52 41 |).255.TT.0:. TRA|
00000C60: 43 4B 20 23 20 54 4F 20 57 52 49 54 45 2E 20 30 |CK # TO WRITE. 0|
00000C70: 20 49 46 20 4C 41 53 54 20 42 4C 4F 43 4B 00 B7 | IF LAST BLOCK..|
00000C80: 14 F8 02 98 35 2C C7 28 54 54 29 3B C7 28 53 25 |....5,.(TT);.(S%|
00000C90: 28 49 AA 31 29 29 3B 3A 8F 20 50 55 54 20 54 48 |(I.1));:. PUT TH|
00000CA0: 45 20 54 52 41 43 4B 20 41 4E 44 20 4E 45 58 54 |E TRACK AND NEXT|
00000CB0: 20 53 45 43 54 4F 52 00 E9 14 02 03 81 20 51 B2 | SECTOR...... Q.|
00000CC0: 31 A4 38 3A 44 57 B2 44 57 AA 31 3A 8F 20 4C 4F |1.8:DW.DW.1:. LO|
00000CD0: 4F 50 20 54 4F 20 50 55 54 20 54 48 45 20 44 49 |OP TO PUT THE DI|
00000CE0: 52 20 45 4E 54 52 49 45 53 00 0E 15 0C 03 98 35 |R ENTRIES......5|
00000CF0: 2C 44 52 24 28 53 43 25 28 44 57 29 29 3B 3A 8F |,DR$(SC%(DW));:.|
00000D00: 20 50 55 54 20 54 48 45 20 45 4E 54 52 59 00 38 | PUT THE ENTRY.8|
00000D10: 15 16 03 8B 51 B3 B1 38 A7 98 35 2C 22 53 47 22 |....Q..8..5,"SG"|
00000D20: 3B 3A 8F 20 50 55 54 20 49 4E 20 32 20 44 55 4D |;:. PUT IN 2 DUM|
00000D30: 4D 59 20 42 59 54 45 53 00 40 15 20 03 82 20 51 |MY BYTES.@. .. Q|
00000D40: 00 6A 15 2A 03 98 31 35 2C 22 55 32 3A 22 3B 35 |.j.*..15,"U2:";5|
00000D50: 3B 30 3B 31 38 3B 53 25 28 49 29 3A 8D 31 32 36 |;0;18;S%(I):.126|
00000D60: 32 3A 8B 20 45 52 A7 38 35 30 00 94 15 34 03 4D |2:. ER.850...4.M|
00000D70: 45 24 B2 22 57 52 49 54 49 4E 47 20 53 45 43 54 |E$."WRITING SECT|
00000D80: 4F 52 3A 20 22 AA C4 28 53 25 28 49 29 29 3A 8D |OR: "..(S%(I)):.|
00000D90: 31 32 32 30 00 9C 15 3E 03 82 20 49 00 EA 15 48 |1220...>.. I...H|
00000DA0: 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 45 58 |..************EX|
00000DB0: 49 54 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |IT**************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 16 52 03 4D |**********...R.M|
00000DF0: 45 24 B2 22 44 20 4F 20 4E 20 45 22 3A 8D 31 32 |E$."D O N E":.12|
00000E00: 32 30 3A 8B 50 47 A7 8D 31 32 30 30 00 37 16 5C |20:.PG..1200.7.\|
00000E10: 03 97 35 36 2C 31 36 30 3A 97 36 34 34 2C 31 36 |..56,160:.644,16|
00000E20: 30 3A 99 56 45 24 3B 3A A0 35 3A A0 31 35 3A 99 |0:.VE$;:.5:.15:.|
00000E30: C7 28 39 29 3B 3A 80 00 3D 16 66 03 8F 00 43 16 |.(9);:..=.f...C.|
00000E40: 70 03 8F 00 49 16 7A 03 8F 00 97 16 84 03 8F 2A |p...I.z........*|
00000E50: 2A 2A 2A 2A 2A 20 49 4E 50 55 54 20 43 55 53 54 |***** INPUT CUST|
00000E60: 4F 4D 20 53 4F 52 54 20 2A 2A 2A 2A 2A 2A 2A 2A |OM SORT ********|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E90: 2A 2A 2A 2A 2A 2A 2A 00 C3 16 8E 03 4D 45 24 B2 |*******.....ME$.|
00000EA0: 22 52 45 4E 55 4D 42 45 52 20 45 4E 54 52 49 45 |"RENUMBER ENTRIE|
00000EB0: 53 2C 20 54 48 45 4E 20 50 52 45 53 53 20 3C 46 |S, THEN PRESS <F|
00000EC0: 37 3E 22 00 D3 16 98 03 8D 31 32 32 30 3A 99 22 |7>"......1220:."|
00000ED0: 13 22 3B 00 0A 17 A2 03 9E 39 33 38 3A 8B C2 28 |.";......938:..(|
00000EE0: 37 38 30 29 B2 31 33 36 A7 4D 45 24 B2 22 2E 2E |780).136.ME$."..|
00000EF0: 2E 52 45 2D 53 4F 52 54 49 4E 47 2E 2E 2E 22 3A |.RE-SORTING...":|
00000F00: 8D 31 32 32 30 3A 89 39 37 30 00 29 17 AC 03 8B |.1220:.970.)....|
00000F10: 50 47 A7 8B C2 28 37 38 30 29 B2 31 33 33 A7 8D |PG...(780).133..|
00000F20: 31 31 39 30 3A 89 39 32 30 00 32 17 B6 03 89 39 |1190:.920.2....9|
00000F30: 33 30 00 80 17 C0 03 8F 2A 2A 2A 2A 2A 2A 2A 52 |30......*******R|
00000F40: 45 2D 53 4F 52 54 20 41 43 43 4F 52 44 49 4E 47 |E-SORT ACCORDING|
00000F50: 20 54 4F 20 4E 45 57 20 4F 52 44 45 52 2A 2A 2A | TO NEW ORDER***|
00000F60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F80: 00 AA 17 CA 03 81 4A B2 31 A4 47 3A 53 4F 25 28 |......J.1.G:SO%(|
00000F90: 4A 29 B2 30 3A 82 4A 3A 8F 20 43 4C 45 41 52 20 |J).0:.J:. CLEAR |
00000FA0: 53 4F 52 54 20 41 52 52 41 59 00 CC 17 D4 03 8B |SORT ARRAY......|
00000FB0: 41 4C A7 8D 31 31 39 30 3A 8F 20 53 54 41 52 54 |AL..1190:. START|
00000FC0: 20 4F 4E 20 31 53 54 20 50 41 47 45 00 DD 17 DE | ON 1ST PAGE....|
00000FD0: 03 A0 33 3A 9F 33 2C 33 3A 54 41 B2 30 00 E8 17 |..3:.3,3:TA.0...|
00000FE0: E8 03 81 4A B2 31 A4 47 00 FD 17 F2 03 8B 4A B2 |...J.1.G......J.|
00000FF0: 32 34 B0 4A B2 37 30 A7 54 41 B2 32 30 00 12 18 |24.J.70.TA.20...|
00001000: FC 03 8B 4A B2 34 37 A7 8D 31 31 39 30 3A 54 41 |...J.47..1190:TA|
00001010: B2 30 00 36 18 06 04 8D 31 32 34 30 3A 84 33 2C |.0.6....1240:.3,|
00001020: 54 45 4D 50 24 3A 4E 4E B2 C5 28 C8 28 54 45 4D |TEMP$:NN..(.(TEM|
00001030: 50 24 2C 32 29 29 00 7B 18 10 04 8B 4E 4E B3 31 |P$,2)).{....NN.1|
00001040: B0 4E 4E B1 47 A7 4D 45 24 B2 22 49 4E 56 41 4C |.NN.G.ME$."INVAL|
00001050: 49 44 20 4E 55 4D 42 45 52 20 2D 20 50 4C 45 41 |ID NUMBER - PLEA|
00001060: 53 45 20 43 48 41 4E 47 45 22 3A 8D 31 32 32 30 |SE CHANGE":.1220|
00001070: 3A 8D 31 32 36 30 3A 89 39 33 30 00 C3 18 1A 04 |:.1260:.930.....|
00001080: 8B 53 4F 25 28 4E 4E 29 B3 B1 30 A7 4D 45 24 B2 |.SO%(NN)..0.ME$.|
00001090: 22 44 55 50 4C 49 43 41 54 45 20 4E 55 4D 42 45 |"DUPLICATE NUMBE|
000010A0: 52 20 2D 20 50 4C 45 41 53 45 20 43 48 41 4E 47 |R - PLEASE CHANG|
000010B0: 45 22 3A 8D 31 32 32 30 3A 8D 31 32 36 30 3A 89 |E":.1220:.1260:.|
000010C0: 39 33 30 00 D6 18 24 04 53 4F 25 28 4E 4E 29 B2 |930...$.SO%(NN).|
000010D0: 53 43 25 28 4A 29 00 DF 18 2E 04 82 3A A0 33 00 |SC%(J)......:.3.|
000010E0: 23 19 38 04 81 4A B2 31 A4 47 3A 53 43 25 28 4A |#.8..J.1.G:SC%(J|
000010F0: 29 B2 53 4F 25 28 4A 29 3A 82 3A 8F 20 54 52 41 |).SO%(J):.:. TRA|
00001100: 4E 53 46 45 52 20 53 4F 52 54 45 44 20 4B 45 59 |NSFER SORTED KEY|
00001110: 20 23 27 53 20 54 4F 20 53 43 25 28 29 20 41 52 | #'S TO SC%() AR|
00001120: 52 41 59 00 51 19 42 04 89 36 39 30 3A 8F 20 44 |RAY.Q.B..690:. D|
00001130: 49 53 50 4C 41 59 20 53 4F 52 54 45 44 20 44 49 |ISPLAY SORTED DI|
00001140: 52 45 43 54 4F 52 59 20 26 20 43 4F 4E 46 49 52 |RECTORY & CONFIR|
00001150: 4D 00 57 19 4C 04 8F 00 5D 19 56 04 8F 00 AA 19 |M.W.L...].V.....|
00001160: 60 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |`..*************|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C9 19 6A 04 8F |**********...j..|
000011B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 55 | SU|
000011C0: 42 52 4F 55 54 49 4E 45 53 00 16 1A 74 04 8F 2A |BROUTINES...t..*|
000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001210: 2A 2A 2A 2A 2A 2A 00 63 1A 7E 04 8F 2A 2A 2A 2A |******.c.~..****|
00001220: 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 47 |***SUBROUTINE: G|
00001230: 45 54 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ET**************|
00001240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001260: 2A 2A 2A 00 77 1A 88 04 A1 51 24 3A 8B 51 24 B2 |***.w....Q$:.Q$.|
00001270: 22 22 A7 31 31 36 30 00 7D 1A 92 04 8E 00 CA 1A |"".1160.}.......|
00001280: 9C 04 8F 2A 2A 2A 2A 2A 2A 53 55 42 52 4F 55 54 |...******SUBROUT|
00001290: 49 4E 45 3A 20 54 4F 47 47 4C 45 20 41 4C 54 45 |INE: TOGGLE ALTE|
000012A0: 52 4E 41 54 45 20 53 43 52 45 45 4E 53 2A 2A 2A |RNATE SCREENS***|
000012B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 1A A6 04 41 |**********.....A|
000012D0: 4C B2 A8 41 4C 3A 8B 41 4C A7 97 35 33 32 37 32 |L..AL:.AL..53272|
000012E0: 2C 32 34 35 3A 97 36 34 38 2C 36 30 3A 8E 00 06 |,245:.648,60:...|
000012F0: 1B B0 04 97 20 35 33 32 37 32 2C 32 31 3A 97 36 |.... 53272,21:.6|
00001300: 34 38 2C 34 3A 8E 00 53 1B BA 04 8F 2A 2A 2A 2A |48,4:..S....****|
00001310: 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 50 |***SUBROUTINE: P|
00001320: 52 49 4E 54 20 4D 45 53 53 41 47 45 20 41 54 20 |RINT MESSAGE AT |
00001330: 53 43 52 45 45 4E 20 42 4F 54 54 4F 4D 2A 2A 2A |SCREEN BOTTOM***|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001350: 2A 2A 2A 00 85 1B BF 04 4D 45 24 B2 22 11 48 49 |***.....ME$.".HI|
00001360: 54 20 3C 46 31 3E 20 54 4F 20 53 45 45 20 50 41 |T <F1> TO SEE PA|
00001370: 47 45 20 22 AA C9 28 C4 28 41 4C AA 32 29 2C 31 |GE "..(.(AL.2),1|
00001380: 29 AA 22 91 22 00 C7 1B C4 04 53 50 B2 33 39 AB |).".".....SP.39.|
00001390: C3 28 4D 45 24 29 3A 48 53 B2 B5 28 53 50 AD 32 |.(ME$):HS..(SP.2|
000013A0: 29 3A 99 56 45 24 C8 28 53 50 24 2C 53 50 AB 48 |):.VE$.(SP$,SP.H|
000013B0: 53 29 22 12 22 4D 45 24 22 92 22 C8 28 53 50 24 |S)"."ME$".".(SP$|
000013C0: 2C 48 53 29 3B 3A 8E 00 14 1C CE 04 8F 2A 2A 2A |,HS);:.......***|
000013D0: 2A 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 |****SUBROUTINE: |
000013E0: 4D 4F 56 45 20 43 55 52 53 4F 52 20 54 4F 20 45 |MOVE CURSOR TO E|
000013F0: 4E 54 52 59 20 4A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NTRY J**********|
00001400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001410: 2A 2A 2A 2A 00 38 1C D8 04 99 C8 28 56 45 24 2C |****.8.....(VE$,|
00001420: 4A AB B5 28 28 4A AB 31 29 AD 32 33 29 AC 32 33 |J..((J.1).23).23|
00001430: 29 A3 54 41 29 3B 3A 8E 00 85 1C E2 04 8F 2A 2A |).TA);:.......**|
00001440: 2A 2A 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A |*****SUBROUTINE:|
00001450: 20 48 49 47 48 4C 49 47 48 54 20 4E 55 4D 42 45 | HIGHLIGHT NUMBE|
00001460: 52 20 41 54 20 45 4E 54 52 59 20 4A 2A 2A 2A 2A |R AT ENTRY J****|
00001470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001480: 2A 2A 2A 2A 2A 00 A6 1C EC 04 8D 31 32 34 30 3A |*****......1240:|
00001490: 99 22 12 22 C9 28 C4 28 4E 4E 29 2C 32 29 22 92 |.".".(.(NN),2)".|
000014A0: 20 9D 22 3B 3A 8E 00 D1 1C ED 04 8F 2A 2A 2A 2A | .";:.......****|
000014B0: 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 52 |***SUBROUTINE: R|
000014C0: 45 41 44 20 45 52 52 4F 52 20 43 48 41 4E 4E 45 |EAD ERROR CHANNE|
000014D0: 4C 00 16 1D EE 04 84 31 35 2C 45 52 2C 45 52 24 |L......15,ER,ER$|
000014E0: 2C 54 52 2C 53 45 3A 8B 45 52 B1 31 39 A7 99 22 |,TR,SE:.ER.19.."|
000014F0: 93 11 11 11 11 11 11 11 1D 22 45 52 3B 45 52 24 |........."ER;ER$|
00001500: 3B 22 20 54 52 41 43 4B 22 54 52 22 20 53 45 43 |;" TRACK"TR" SEC|
00001510: 54 4F 52 22 53 45 00 1C 1D EF 04 8E 00 69 1D F6 |TOR"SE.......i..|
00001520: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 53 55 42 52 4F 55 |.. *******SUBROU|
00001530: 54 49 4E 45 3A 20 4C 4F 41 44 20 22 53 54 52 49 |TINE: LOAD "STRI|
00001540: 4E 47 20 54 48 49 4E 47 22 20 4D 2E 4C 2E 20 50 |NG THING" M.L. P|
00001550: 52 4F 47 52 41 4D 20 49 4E 54 4F 20 4D 45 4D 4F |ROGRAM INTO MEMO|
00001560: 52 59 2A 2A 2A 2A 2A 2A 2A 00 8D 1D 00 05 8F 20 |RY*******...... |
00001570: 53 54 52 49 4E 47 20 4D 55 53 54 20 42 45 20 46 |STRING MUST BE F|
00001580: 49 52 53 54 20 56 41 52 49 41 42 4C 45 00 A4 1D |IRST VARIABLE...|
00001590: 0A 05 41 24 B2 22 41 42 43 44 45 46 47 48 49 4A |..A$."ABCDEFGHIJ|
000015A0: 4B 4C 4D 22 00 C2 1D 14 05 41 24 B2 41 24 AA 22 |KLM".....A$.A$."|
000015B0: 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 31 32 33 |NOPQRSTUVWXYZ123|
000015C0: 34 22 00 E7 1D 1E 05 8F 20 41 42 4F 56 45 20 53 |4"...... ABOVE S|
000015D0: 45 54 53 20 53 54 52 49 4E 47 20 46 4F 52 20 33 |ETS STRING FOR 3|
000015E0: 30 20 43 48 41 52 53 00 16 1E 28 05 99 22 93 11 |0 CHARS...(.."..|
000015F0: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
00001600: 1D 1D 1D 1D 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 |....ONE MOMENT P|
00001610: 4C 45 41 53 45 22 00 4B 1E 32 05 83 20 31 36 30 |LEASE".K.2.. 160|
00001620: 2C 20 32 2C 20 31 37 37 2C 20 34 35 2C 20 31 35 |, 2, 177, 45, 15|
00001630: 33 2C 20 31 33 37 2C 20 30 2C 20 32 30 30 2C 20 |3, 137, 0, 200, |
00001640: 31 39 32 2C 20 36 2C 20 32 30 38 00 7E 1E 37 05 |192, 6, 208.~.7.|
00001650: 83 20 32 34 36 2C 20 31 36 32 2C 20 35 2C 20 33 |. 246, 162, 5, 3|
00001660: 32 2C 20 31 39 38 2C 20 32 35 35 2C 20 33 32 2C |2, 198, 255, 32,|
00001670: 20 32 32 38 2C 20 32 35 35 2C 20 32 33 34 00 B5 | 228, 255, 234..|
00001680: 1E 3C 05 83 20 32 33 34 2C 20 32 33 34 2C 20 32 |.<.. 234, 234, 2|
00001690: 33 34 2C 20 31 36 34 2C 20 31 34 32 2C 20 31 34 |34, 164, 142, 14|
000016A0: 35 2C 20 31 34 30 2C 20 32 30 30 2C 20 31 33 32 |5, 140, 200, 132|
000016B0: 2C 20 31 34 32 00 E9 1E 41 05 83 20 31 39 36 2C |, 142...A.. 196,|
000016C0: 20 31 33 39 2C 20 32 34 30 2C 20 34 2C 20 31 36 | 139, 240, 4, 16|
000016D0: 35 2C 20 31 34 34 2C 20 32 34 30 2C 20 32 33 34 |5, 144, 240, 234|
000016E0: 2C 20 37 36 2C 20 32 30 34 00 18 1F 46 05 83 20 |, 76, 204...F.. |
000016F0: 32 35 35 2C 20 31 36 30 2C 20 31 2C 20 31 34 30 |255, 160, 1, 140|
00001700: 2C 20 31 34 36 2C 20 32 2C 20 32 30 38 2C 20 33 |, 146, 2, 208, 3|
00001710: 2C 20 33 32 2C 20 32 32 00 4D 1F 4B 05 83 20 32 |, 32, 22.M.K.. 2|
00001720: 33 31 2C 20 33 32 2C 20 34 34 2C 20 31 36 38 2C |31, 32, 44, 168,|
00001730: 20 31 36 35 2C 20 31 39 38 2C 20 31 33 33 2C 20 | 165, 198, 133, |
00001740: 32 30 34 2C 20 32 34 30 2C 20 32 34 37 00 81 1F |204, 240, 247...|
00001750: 50 05 83 20 31 32 30 2C 20 31 36 35 2C 20 32 30 |P.. 120, 165, 20|
00001760: 37 2C 20 32 34 30 2C 20 31 32 2C 20 31 36 35 2C |7, 240, 12, 165,|
00001770: 20 32 30 36 2C 20 31 37 34 2C 20 31 33 35 2C 20 | 206, 174, 135, |
00001780: 32 00 B3 1F 55 05 83 20 31 36 30 2C 20 30 2C 20 |2...U.. 160, 0, |
00001790: 31 33 32 2C 20 32 30 37 2C 20 33 32 2C 20 31 39 |132, 207, 32, 19|
000017A0: 2C 20 32 33 34 2C 20 33 32 2C 20 31 38 30 2C 20 |, 234, 32, 180, |
000017B0: 32 32 39 00 E5 1F 5A 05 83 20 32 30 31 2C 20 31 |229...Z.. 201, 1|
000017C0: 33 36 2C 20 32 34 30 2C 20 34 2C 20 32 30 31 2C |36, 240, 4, 201,|
000017D0: 20 31 33 33 2C 20 32 30 38 2C 20 31 2C 20 39 36 | 133, 208, 1, 96|
000017E0: 2C 20 32 30 31 00 16 20 5F 05 83 20 31 33 2C 20 |, 201.. _.. 13, |
000017F0: 32 34 30 2C 20 34 2C 20 32 30 31 2C 20 31 37 2C |240, 4, 201, 17,|
00001800: 20 32 30 38 2C 20 38 2C 20 31 36 36 2C 20 32 31 | 208, 8, 166, 21|
00001810: 34 2C 20 32 32 34 00 4B 20 64 05 83 20 32 34 2C |4, 224.K d.. 24,|
00001820: 20 31 34 34 2C 20 32 30 31 2C 20 31 37 36 2C 20 | 144, 201, 176, |
00001830: 32 30 32 2C 20 31 36 36 2C 20 32 31 31 2C 20 32 |202, 166, 211, 2|
00001840: 32 34 2C 20 33 39 2C 20 32 30 38 00 82 20 6E 05 |24, 39, 208.. n.|
00001850: 83 20 31 39 33 2C 20 32 30 31 2C 20 31 35 37 2C |. 193, 201, 157,|
00001860: 20 32 34 30 2C 20 31 38 39 2C 20 32 30 31 2C 20 | 240, 189, 201, |
00001870: 31 34 35 2C 20 32 34 30 2C 20 31 38 35 2C 20 32 |145, 240, 185, 2|
00001880: 30 31 00 A5 20 78 05 83 20 32 39 2C 20 32 34 30 |01.. x.. 29, 240|
00001890: 2C 20 31 38 31 2C 20 32 30 38 2C 20 31 38 32 2C |, 181, 208, 182,|
000018A0: 20 30 2C 20 30 00 C4 20 96 05 81 4A B2 38 39 36 | 0, 0.. ...J.896|
000018B0: A4 31 30 32 32 3A 87 58 3A 97 4A 2C 58 3A 82 4A |.1022:.X:.J,X:.J|
000018C0: 3A 4A B2 30 00 CA 20 A0 05 8E 00 EB 20 D2 05 99 |:J.0.. ..... ...|
000018D0: 22 93 B0 22 3B 3A 81 58 B2 31 A4 33 38 3A 99 22 |"..";:.X.1.38:."|
000018E0: B1 22 3B 3A 82 3A 99 22 AE 22 3B 00 0A 21 D3 05 |.";:.:.".";..!..|
000018F0: 81 58 B2 31 A4 32 33 3A 99 22 B3 22 A6 33 37 29 |.X.1.23:.".".37)|
00001900: 22 AB 9D 94 20 1D 22 3B 3A 82 00 2E 21 D4 05 99 |"... .";:...!...|
00001910: 22 AD 22 3B 3A 81 58 B2 31 A4 33 37 3A 99 22 B2 |".";:.X.1.37:.".|
00001920: 22 3B 3A 82 3A 99 22 BD 9D 94 B2 13 22 3B 00 3A |";:.:.".....";.:|
00001930: 21 DC 05 99 22 13 11 11 22 3B 00 53 21 E6 05 99 |!..."...";.S!...|
00001940: A6 31 32 29 22 2F 2A 2A 2A 2A 2A 2A 20 4F 43 54 |.12)"/****** OCT|
00001950: 4F 52 22 00 67 21 F0 05 99 A6 31 32 29 22 2F 2A |OR".g!....12)"/*|
00001960: 2A 2A 2A 2A 2A 2A 22 00 7C 21 FA 05 99 A6 31 32 |******".|!....12|
00001970: 29 22 2F 2A 2A 2F 2F 2F 2F 2A 2A 22 00 92 21 04 |)"/**////**"..!.|
00001980: 06 99 A6 31 32 29 22 2F 2A 2A 20 20 20 20 2F 2A |...12)"/** /*|
00001990: 2A 22 00 A8 21 0E 06 99 A6 31 32 29 22 2F 2A 2A |*"..!....12)"/**|
000019A0: 20 20 20 20 2F 2A 2A 22 00 BE 21 18 06 99 A6 31 | /**"..!....1|
000019B0: 32 29 22 2F 2A 2A 20 20 20 20 2F 2A 2A 22 00 D4 |2)"/** /**"..|
000019C0: 21 22 06 99 A6 31 32 29 22 2F 2A 2A 20 20 20 20 |!"...12)"/** |
000019D0: 2F 2A 2A 22 00 E9 21 2C 06 99 A6 31 32 29 22 2F |/**"..!,...12)"/|
000019E0: 2A 2A 20 20 20 2F 2A 2A 22 00 FD 21 36 06 99 A6 |** /**"..!6...|
000019F0: 31 32 29 22 2F 2A 2A 2A 2A 2A 2A 2A 22 00 19 22 |12)"/*******".."|
00001A00: 40 06 99 A6 31 32 29 22 2F 2A 2A 2A 2A 2A 2A 20 |@...12)"/****** |
00001A10: 49 52 45 43 54 4F 52 59 22 00 2B 22 4A 06 99 A6 |IRECTORY".+"J...|
00001A20: 31 32 29 22 2F 2F 2F 2F 2F 2F 22 00 35 22 54 06 |12)"//////".5"T.|
00001A30: 99 3A 99 3A 99 00 45 22 5E 06 99 A6 31 37 29 22 |.:.:..E"^...17)"|
00001A40: 42 59 22 3A 99 00 5D 22 68 06 99 A6 31 32 29 22 |BY":..]"h...12)"|
00001A50: 53 54 45 56 45 20 47 52 41 4E 41 54 22 00 6D 22 |STEVE GRANAT".m"|
00001A60: 6A 06 81 58 B2 31 A4 31 30 30 30 3A 82 00 9E 22 |j..X.1.1000:..."|
00001A70: 6B 06 99 3A 99 22 1D A4 A4 A4 A4 A4 A4 A4 A4 A4 |k..:."..........|
00001A80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001A90: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 D1 |............."..|
00001AA0: 22 6D 06 99 22 12 49 4E 53 45 52 54 20 44 49 53 |"m..".INSERT DIS|
00001AB0: 4B 20 54 4F 20 42 45 20 53 4F 52 54 45 44 2C 20 |K TO BE SORTED, |
00001AC0: 54 48 45 4E 20 48 49 54 20 53 50 41 43 45 92 22 |THEN HIT SPACE."|
00001AD0: 3B 00 F6 22 6F 06 99 A6 36 29 22 A4 A4 A4 A4 A4 |;.."o...6)".....|
00001AE0: A4 A4 A4 A4 A4 A4 A4 4F 52 A4 A4 A4 A4 A4 A4 A4 |.......OR.......|
00001AF0: A4 A4 A4 A4 A4 22 00 2D 23 71 06 99 A3 36 29 22 |.....".-#q...6)"|
00001B00: 12 50 52 45 53 53 20 22 AA C7 28 33 34 29 AA 22 |.PRESS "..(34)."|
00001B10: 49 22 AA C7 28 33 34 29 AA 22 20 46 4F 52 20 49 |I"..(34)." FOR I|
00001B20: 4E 53 54 52 55 43 54 49 4F 4E 53 92 22 00 33 23 |NSTRUCTIONS.".3#|
00001B30: 72 06 8E 00 61 23 A4 06 99 22 93 22 A6 31 33 29 |r...a#...".".13)|
00001B40: 22 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3A 99 |"INSTRUCTIONS":.|
00001B50: A6 31 33 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.13)"...........|
00001B60: A3 00 90 23 AE 06 99 22 20 12 44 4F 43 54 4F 52 |...#..." .DOCTOR|
00001B70: 92 20 12 44 49 52 45 43 54 4F 52 59 92 20 57 49 |. .DIRECTORY. WI|
00001B80: 4C 4C 20 52 45 2D 53 4F 52 54 20 59 4F 55 52 22 |LL RE-SORT YOUR"|
00001B90: 00 BB 23 B8 06 99 22 20 44 49 52 45 43 54 4F 52 |..#..." DIRECTOR|
00001BA0: 59 20 45 4E 54 52 49 45 53 20 49 4E 20 41 4E 59 |Y ENTRIES IN ANY|
00001BB0: 20 4F 52 44 45 52 20 59 4F 55 22 00 E7 23 C2 06 | ORDER YOU"..#..|
00001BC0: 99 22 20 43 48 4F 4F 53 45 2E 20 20 4A 55 53 54 |." CHOOSE. JUST|
00001BD0: 20 49 4E 53 45 52 54 20 54 48 45 20 44 49 53 4B | INSERT THE DISK|
00001BE0: 20 54 4F 20 42 45 22 00 13 24 CC 06 99 22 20 53 | TO BE"..$..." S|
00001BF0: 4F 52 54 45 44 20 49 4E 54 4F 20 54 48 45 20 44 |ORTED INTO THE D|
00001C00: 49 53 4B 20 44 52 49 56 45 2C 20 54 48 45 4E 20 |ISK DRIVE, THEN |
00001C10: 48 49 54 00 4E 24 D6 06 99 22 20 54 48 45 20 53 |HIT.N$..." THE S|
00001C20: 50 41 43 45 20 42 41 52 2E 22 3A 99 3A 99 22 20 |PACE BAR.":.:." |
00001C30: 54 48 45 20 44 49 52 45 43 54 4F 52 59 20 45 4E |THE DIRECTORY EN|
00001C40: 54 52 49 45 53 20 57 49 4C 4C 20 42 45 22 00 7A |TRIES WILL BE".z|
00001C50: 24 E0 06 99 22 20 44 49 53 50 4C 41 59 45 44 2C |$..." DISPLAYED,|
00001C60: 20 4E 55 4D 42 45 52 45 44 20 49 4E 20 54 48 45 | NUMBERED IN THE|
00001C70: 49 52 20 43 55 52 52 45 4E 54 00 A6 24 EA 06 99 |IR CURRENT..$...|
00001C80: 22 20 4F 52 44 45 52 2E 20 20 28 4E 4F 54 45 3A |" ORDER. (NOTE:|
00001C90: 20 20 54 48 45 20 4E 55 4D 42 45 52 53 20 44 4F | THE NUMBERS DO|
00001CA0: 20 12 4E 4F 54 92 00 CC 24 F4 06 99 22 20 52 45 | .NOT...$..." RE|
00001CB0: 50 52 45 53 45 4E 54 20 42 4C 4F 43 4B 53 2E 20 |PRESENT BLOCKS. |
00001CC0: 20 54 48 45 59 20 53 49 4D 50 4C 59 00 F6 24 FE | THEY SIMPLY..$.|
00001CD0: 06 99 22 20 52 45 50 52 45 53 45 4E 54 20 54 48 |.." REPRESENT TH|
00001CE0: 45 20 4F 52 44 45 52 20 49 4E 20 57 48 49 43 48 |E ORDER IN WHICH|
00001CF0: 20 45 41 43 48 22 00 1F 25 08 07 99 22 20 45 4E | EACH"..%..." EN|
00001D00: 54 52 59 20 41 50 50 45 41 52 53 20 49 4E 20 54 |TRY APPEARS IN T|
00001D10: 48 45 20 44 49 52 45 43 54 4F 52 59 2E 29 22 00 |HE DIRECTORY.)".|
00001D20: 47 25 12 07 99 3A 99 22 20 49 46 20 59 4F 55 20 |G%...:." IF YOU |
00001D30: 57 49 53 48 20 54 4F 20 41 4C 50 48 41 42 45 54 |WISH TO ALPHABET|
00001D40: 49 5A 45 20 54 48 45 00 7A 25 1C 07 99 22 20 45 |IZE THE.z%..." E|
00001D50: 4E 54 52 49 45 53 2C 20 50 52 45 53 53 20 54 48 |NTRIES, PRESS TH|
00001D60: 45 20 22 C7 28 33 34 29 22 31 22 C7 28 33 34 29 |E ".(34)"1".(34)|
00001D70: 22 20 4B 45 59 2C 20 41 4E 44 00 A4 25 26 07 99 |" KEY, AND..%&..|
00001D80: 22 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 20 |" THE DIRECTORY |
00001D90: 57 49 4C 4C 20 42 45 20 41 4C 50 48 41 42 45 54 |WILL BE ALPHABET|
00001DA0: 49 5A 45 44 00 BB 25 2B 07 99 22 20 41 55 54 4F |IZED..%+.." AUTO|
00001DB0: 4D 41 54 49 43 41 4C 4C 59 2E 22 00 E5 25 30 07 |MATICALLY."..%0.|
00001DC0: 99 3A 99 22 20 49 46 20 59 4F 55 20 57 49 53 48 |.:." IF YOU WISH|
00001DD0: 20 54 4F 20 53 4F 52 54 20 54 48 45 4D 20 49 4E | TO SORT THEM IN|
00001DE0: 20 53 4F 4D 45 00 18 26 3A 07 99 22 20 4F 54 48 | SOME..&:.." OTH|
00001DF0: 45 52 20 4F 52 44 45 52 2C 20 50 52 45 53 53 20 |ER ORDER, PRESS |
00001E00: 54 48 45 20 22 C7 28 33 34 29 22 32 22 C7 28 33 |THE ".(34)"2".(3|
00001E10: 34 29 22 20 4B 45 59 2E 00 44 26 3F 07 99 3A 99 |4)" KEY..D&?..:.|
00001E20: 22 20 20 20 20 12 28 50 52 45 53 53 20 41 4E 59 |" .(PRESS ANY|
00001E30: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001E40: 29 92 22 3B 00 5C 26 41 07 A1 20 41 4E 24 3A 8B |).";.\&A.. AN$:.|
00001E50: 20 41 4E 24 B2 22 22 A7 31 38 35 37 00 8E 26 44 | AN$."".1857..&D|
00001E60: 07 99 22 93 22 3A 99 22 20 59 4F 55 20 57 49 4C |..".":." YOU WIL|
00001E70: 4C 20 54 48 45 4E 20 42 45 20 47 49 56 45 4E 20 |L THEN BE GIVEN |
00001E80: 43 4F 4E 54 52 4F 4C 20 4F 46 20 54 48 45 00 B1 |CONTROL OF THE..|
00001E90: 26 4E 07 99 22 20 43 55 52 53 4F 52 2E 20 20 55 |&N.." CURSOR. U|
00001EA0: 53 49 4E 47 20 54 48 45 20 4E 4F 52 4D 41 4C 22 |SING THE NORMAL"|
00001EB0: 3B 00 E5 26 58 07 99 22 20 4B 45 59 42 4F 41 52 |;..&X.." KEYBOAR|
00001EC0: 44 22 3A 99 22 20 43 4F 4E 54 52 4F 4C 53 2C 20 |D":." CONTROLS, |
00001ED0: 52 45 2D 4E 55 4D 42 45 52 20 54 48 45 20 45 4E |RE-NUMBER THE EN|
00001EE0: 54 52 49 45 53 00 0E 27 62 07 99 22 20 49 4E 20 |TRIES..'b.." IN |
00001EF0: 41 4E 59 20 4F 52 44 45 52 20 59 4F 55 20 57 49 |ANY ORDER YOU WI|
00001F00: 53 48 2E 20 20 4A 55 53 54 20 54 59 50 45 00 39 |SH. JUST TYPE.9|
00001F10: 27 6C 07 99 22 20 4F 56 45 52 20 54 48 45 20 4F |'l.." OVER THE O|
00001F20: 4C 44 20 4E 55 4D 42 45 52 53 20 57 49 54 48 20 |LD NUMBERS WITH |
00001F30: 59 4F 55 52 20 4E 45 57 22 00 64 27 76 07 99 22 |YOUR NEW".d'v.."|
00001F40: 20 4F 4E 45 53 2E 20 20 57 48 45 4E 20 44 4F 4E | ONES. WHEN DON|
00001F50: 45 2C 20 50 52 45 53 53 20 54 48 45 20 46 37 20 |E, PRESS THE F7 |
00001F60: 4B 45 59 2E 00 93 27 80 07 99 3A 99 22 20 54 48 |KEY...'...:." TH|
00001F70: 45 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 43 |E PROGRAM WILL C|
00001F80: 48 45 43 4B 20 59 4F 55 52 20 4E 55 4D 42 45 52 |HECK YOUR NUMBER|
00001F90: 49 4E 47 00 C1 27 8A 07 99 22 20 46 4F 52 20 45 |ING..'..." FOR E|
00001FA0: 52 52 4F 52 53 2C 20 54 48 45 4E 20 44 49 53 50 |RRORS, THEN DISP|
00001FB0: 4C 41 59 20 54 48 45 20 44 49 52 45 43 54 4F 52 |LAY THE DIRECTOR|
00001FC0: 59 00 EC 27 94 07 99 22 20 45 4E 54 52 49 45 53 |Y..'..." ENTRIES|
00001FD0: 20 49 4E 20 54 48 45 49 52 20 4E 45 57 20 4F 52 | IN THEIR NEW OR|
00001FE0: 44 45 52 2C 20 41 4E 44 20 41 53 4B 00 20 28 9E |DER, AND ASK. (.|
00001FF0: 07 99 22 20 22 C7 28 33 34 29 22 4F 4B 41 59 3F |.." ".(34)"OKAY?|
00002000: 22 C7 28 33 34 29 22 2E 20 20 49 46 20 59 4F 55 |".(34)". IF YOU|
00002010: 20 41 4E 53 57 45 52 20 59 45 53 2C 20 54 48 45 | ANSWER YES, THE|
00002020: 00 4C 28 A8 07 99 22 20 4E 45 57 20 44 49 52 45 |.L(..." NEW DIRE|
00002030: 43 54 4F 52 59 20 57 49 4C 4C 20 42 45 20 57 52 |CTORY WILL BE WR|
00002040: 49 54 54 45 4E 20 54 4F 20 54 48 45 00 76 28 B2 |ITTEN TO THE.v(.|
00002050: 07 99 22 20 44 49 53 4B 2E 20 20 49 46 20 59 4F |.." DISK. IF YO|
00002060: 55 20 41 4E 53 57 45 52 20 4E 4F 2C 20 59 4F 55 |U ANSWER NO, YOU|
00002070: 27 4C 4C 20 42 45 00 A0 28 BC 07 99 22 20 47 49 |'LL BE..(..." GI|
00002080: 56 45 4E 20 54 48 45 20 43 48 41 4E 43 45 20 54 |VEN THE CHANCE T|
00002090: 4F 20 52 45 2D 44 4F 20 49 54 20 55 4E 54 49 4C |O RE-DO IT UNTIL|
000020A0: 00 CA 28 C6 07 99 22 20 59 4F 55 27 52 45 20 53 |..(..." YOU'RE S|
000020B0: 41 54 49 53 46 49 45 44 2E 20 20 54 4F 20 41 42 |ATISFIED. TO AB|
000020C0: 4F 52 54 2C 20 50 52 45 53 53 00 EF 28 D0 07 99 |ORT, PRESS..(...|
000020D0: 22 20 54 48 45 20 52 55 4E 2D 53 54 4F 50 20 4B |" THE RUN-STOP K|
000020E0: 45 59 20 41 54 20 41 4E 59 20 54 49 4D 45 2E 00 |EY AT ANY TIME..|
000020F0: 1B 29 DA 07 99 3A 99 22 20 49 46 20 59 4F 55 52 |.)...:." IF YOUR|
00002100: 20 44 49 52 45 43 54 4F 52 59 20 48 41 53 20 4D | DIRECTORY HAS M|
00002110: 4F 52 45 20 54 48 41 4E 20 34 36 00 49 29 E4 07 |ORE THAN 46.I)..|
00002120: 99 22 20 45 4E 54 52 49 45 53 20 28 4D 41 58 3D |." ENTRIES (MAX=|
00002130: 39 32 29 2C 20 49 54 20 57 49 4C 4C 20 42 45 20 |92), IT WILL BE |
00002140: 44 49 53 50 4C 41 59 45 44 00 73 29 EE 07 99 22 |DISPLAYED.s)..."|
00002150: 20 4F 4E 20 54 57 4F 20 53 45 50 41 52 41 54 45 | ON TWO SEPARATE|
00002160: 20 50 41 47 45 53 2E 20 20 55 53 45 20 54 48 45 | PAGES. USE THE|
00002170: 20 46 31 00 9B 29 F8 07 99 22 20 4B 45 59 20 41 | F1..)..." KEY A|
00002180: 54 20 41 4E 59 20 54 49 4D 45 20 54 4F 20 46 4C |T ANY TIME TO FL|
00002190: 49 50 20 42 41 43 4B 20 41 4E 44 00 BF 29 02 08 |IP BACK AND..)..|
000021A0: 99 22 20 46 4F 52 54 48 20 42 45 54 57 45 45 4E |." FORTH BETWEEN|
000021B0: 20 54 48 45 20 54 57 4F 20 50 41 47 45 53 2E 00 | THE TWO PAGES..|
000021C0: EB 29 0C 08 99 3A 99 22 20 20 20 20 20 20 12 28 |.)...:." .(|
000021D0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
000021E0: 20 52 45 54 55 52 4E 29 92 22 3B 00 01 2A 16 08 | RETURN).";..*..|
000021F0: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 32 30 37 |.AN$:.AN$."".207|
00002200: 30 00 07 2A 20 08 8E 00 00 00 |0..* ..... |
..E....55,0:.56,60:.643,0:.644,60:.:. LO
WER MEMORY TOP FOR ALT SCREEN......53281
,6:.53280,14:."."G(142)G(8);:. SET COLOR
S,DISABLE L/C.T....*******LOAD MACHINE L
ANGUAGE PROGRAM INTO MEMORY*************
************......1290:.270.2.(..*******
SUBROUTINE: READ DIRECTORY FROM DISK****
**************************.S.2. 5:.5,8,5
,"#":S%(1).1:DE.0:I.1:. SECTOR 1, DIRECT
ORY ENTRY 0...7..".";:ME$."READING DIREC
TORY":. 1220.K.<..15,"U1:";5;0;18;S%(I):
I.I.1:.1262:.ER.850...F..#5,T$:.#5,S$:S%
(I).F(S$.G(0))...P..Q.1.8:DE.DE.1:DR$(DE
)."". .Z..896:DR$(DE).A$.6.D..Q..8..#5,N
G$,NG$.K.N.. Q:.S%(I).21.60.R.X. 5.X....
......*******SUBROUTINE: DISPLAY DIRECTO
RY ***********************************..
....AL..1190.C....".";:TA.0.N. ..Q.1.G..
....Q.24.Q.70.TA.20:.".";......Q.47..119
0:.".";:TA.0.?.....TA)"."I(D(Q),2)" ."J(
DR$(SC%(Q)),4,16):. PRINT NAMES.F.H..Q.L
.R...U... 5:..[.....A.....G..........***
**********INITIALIZE********************
*****************************...... DR$(
145),S%(20),NM$(145),SO%(145),SC%(145)..
...AL.0:.1190:.".";:.1190:. CLEAR ALT. S
CREEN.4.".SP$." ".W.,
.VE$."........................".A.1..149
0.T.@..J$:.J$."".320...E..J$."I"..1700:.
305:. PRINT INSTRUCTIONS IF REQUESTED.R.
J. 15:.15,8,15,"I":. COMMAND CHAN.. .T..
********READ IN DIRECTORY***************
********************************.X.^..50
:. READ THE DIRECTORY FROM DISK INTO DR$
() ARRAY...H..****** BUILD SCREEN POSITI
ON ARRAY *******************************
******...R.G.0:D.0:. SORT ENTRIES INTO G
OOD PILE AND DELETED PILE...|..J.1.DE...
..A.F(DR$(J).G(0)):.A.128.D.D.1:SO%(D).J
:.410.0...G.G.1:SC%(G).J.7....J.|....G.4
6.PG.1:.G.92.."........... OVER 92 ENTR
IES - CAN'T DO":.850.G...D.0:.J.G.1.DE:D
.D.1:SC%(J).SO%(D):.J:. DELETED ENTRIES
AT END OF ARRAY......********DISPLAY UNS
ORTED DIRECTORY*************************
*************.?.... 150:.PG..1215:. PRIN
T THE DIRECTORY...B..********PRESENT MEN
U CHOICES*******************************
*************...L.ME$."(1) ALPHABETIZE O
R (2) CUSTOM SORT?"...V..1220:.1160:.E(Q
$).510,910:.PG..Q$."."..1190:.1215......
460...................[....*******ALPHAB
ETIZE***********************************
*******************.....ME$."..
.":. 1220.E...ME$.
"..PREPARING FOR SORT -- PLEASE WAIT..":
.1220...... X.1.G:. LOOP TO CONVERT FILE
NAMES.....NM$(X).J(DR$(SC%(X)),4,16).@.
&..P.2.17:. LOOP TO HACK SHIFTED SPACES
FROM END.V.0..J(NM$(X),P,1).G(160).NM$(X
).J(NM$(X),1,P.1):.580.~.:.. P...D.. X..
.N.ME$.".........NOW SORTING.........":.
1220.E.X.. SHELL SORT.M.L.B.G...V.B..(B.
2):.VE$;".."J(D(B),2)". ";:.B.0.690.....
X.1:K.G.B.....C.X./...D.C.B:.NM$(C)..NM$
(D).670.U...H%.SC%(C):SC%(C).SC%(D):SC%(
D).H%.....HO$.NM$(C):NM$(C).NM$(D):NM$(D
).HO$:C.C.B:.C.0.650.....X.X.1:.X.K.630.
.. ..645..................*******DISPLAY
SORTED DIRECTORY***********************
******************......150.0...ME$."OKA
Y? Y/N":.1220:.PG..1215.Q....1160:.PG..
Q$."."..1190:.692.B....Q$.."Y".910...F..
*******WRITE NEW DIRECTORY TO DISK******
********************************.L.P..5,
8,5,"#":. FILE CHAN....Z.W.I.1:DW.0:. W=
NUMBER OF BLOCKS TO WRITE.>.... I.1.W:.1
5,"B-P:";5;0:. LOOP TO WRITE. FORCE BUF
POINT TO BEGIN.~...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 SECTOR...... Q.1.8:DW.DW.1:. LO
OP TO PUT THE DIR ENTRIES......5,DR$(SC%
(DW));:. PUT THE ENTRY.8....Q..8..5,"SG"
;:. PUT IN 2 DUMMY BYTES.@. .. Q.J.*..15
,"U2:";5;0;18;S%(I):.1262:. ER.850...4.M
E$."WRITING SECTOR: ".D(S%(I)):.1220...>
.. I...H..************EXIT**************
****************************************
**...R.ME$."D O N E":.1220:.PG..1200.7.\
..56,160:.644,160:.VE$;: 5: 15:.G(9);:..
=.F...C.P...I.Z........****** INPUT CUST
OM SORT ********************************
***************.C...ME$."RENUMBER ENTRIE
S, THEN PRESS <F7>".S....1220:.".";.....
.938:.B(780).136.ME$."...RE-SORTING...":
.1220:.970.)....PG..B(780).133..1190:.92
0.2....930......*******RE-SORT ACCORDING
TO NEW ORDER***************************
********...J..J.1.G:SO%(J).0:.J:. CLEAR
SORT ARRAY.L.T..AL..1190:. START ON 1ST
PAGE..... 3:.3,3:TA.0......J.1.G......J.
24.J.70.TA.20......J.47..1190:TA.0.6....
1240:.3,TEMP$:NN.E(H(TEMP$,2)).{....NN.1
.NN.G.ME$."INVALID NUMBER - PLEASE CHANG
E":.1220:.1260:.930.C....SO%(NN)..0.ME$.
"DUPLICATE NUMBER - PLEASE CHANGE":.1220
:.1260:.930.V.$.SO%(NN).SC%(J)......: 3.
#.8..J.1.G:SC%(J).SO%(J):.:. TRANSFER SO
RTED KEY #'S TO SC%() ARRAY.Q.B..690:. D
ISPLAY SORTED DIRECTORY & CONFIRM.W.L...
].V.....`..*****************************
****************************************
**.I.J.. SUBROUTINES...T..*
****************************************
******************************.C.~..****
***SUBROUTINE: GET**********************
***************************.W....Q$:.Q$.
"".1160.}.....J....******SUBROUTINE: TOG
GLE ALTERNATE SCREENS*******************
**********.....AL..AL:.AL..53272,245:.64
8,60:....... 53272,21:.648,4:..S....****
***SUBROUTINE: PRINT MESSAGE AT SCREEN B
OTTOM**********************.....ME$.".HI
T <F1> TO SEE PAGE ".I(D(AL.2),1).".".G.
D.SP.39.C(ME$):HS..(SP.2):.VE$H(SP$,SP.H
S)"."ME$"."H(SP$,HS);:....N..*******SUBR
OUTINE: MOVE CURSOR TO ENTRY J**********
********************.8.X..H(VE$,J..((J.1
).23).23).TA);:.......*******SUBROUTINE:
HIGHLIGHT NUMBER AT ENTRY J************
*************......1240:."."I(D(NN),2)".
.";:..Q....*******SUBROUTINE: READ ERRO
R CHANNEL......15,ER,ER$,TR,SE:.ER.19.."
........."ER;ER$;" TRACK"TR" SECTOR"SE..
.....I.... *******SUBROUTINE: LOAD "STRI
NG THING" M.L. PROGRAM INTO MEMORY******
*...... STRING MUST BE FIRST VARIABLE...
..A$."ABCDEFGHIJKLM".B...A$.A$."NOPQRSTU
VWXYZ1234"...... ABOVE SETS STRING FOR 3
0 CHARS...(.."......................ONE
MOMENT PLEASE".K.2.. 160, 2, 177, 45, 15
3, 137, 0, 200, 192, 6, 208.~.7.. 246, 1
62, 5, 32, 198, 255, 32, 228, 255, 234..
.<.. 234, 234, 234, 164, 142, 145, 140,
200, 132, 142...A.. 196, 139, 240, 4, 16
5, 144, 240, 234, 76, 204...F.. 255, 160
, 1, 140, 146, 2, 208, 3, 32, 22.M.K.. 2
31, 32, 44, 168, 165, 198, 133, 204, 240
, 247...P.. 120, 165, 207, 240, 12, 165,
206, 174, 135, 2...U.. 160, 0, 132, 207
, 32, 19, 234, 32, 180, 229...Z.. 201, 1
36, 240, 4, 201, 133, 208, 1, 96, 201..
_.. 13, 240, 4, 201, 17, 208, 8, 166, 21
4, 224.K D.. 24, 144, 201, 176, 202, 166
, 211, 224, 39, 208.. N.. 193, 201, 157,
240, 189, 201, 145, 240, 185, 201.. X..
29, 240, 181, 208, 182, 0, 0.D ...J.896
.1022:.X:.J,X:.J:J.0.J .... R.."..";:.X
.1.38:.".";:.:.".";..!S..X.1.23:.".".37)
"... .";:...!T..".";:.X.1.37:.".";:.:.".
....";.:!..."...";.S!....12)"/****** OCT
OR".G!....12)"/*******".|!....12)"/**///
/**"..!....12)"/** /**"..!....12)"/**
/**"..!....12)"/** /**".T!"...12)
"/** /**"..!,...12)"/** /**"..!6...
12)"/*******".."@...12)"/****** IRECTORY
".+"J...12)"//////".5"T..:.:..E"^...17)"
BY":..]"H...12)"STEVE GRANAT".M"J..X.1.1
000:..."K..:."..........................
.............".Q"M..".INSERT DISK TO BE
SORTED, THEN HIT SPACE.";.."O...6)".....
.......OR............".-#Q...6)".PRESS "
.G(34)."I".G(34)." FOR INSTRUCTIONS.".3#
R...A#...".".13)"INSTRUCTIONS":..13)"...
...........#..." .DOCTOR. .DIRECTORY. WI
LL RE-SORT YOUR"..#..." DIRECTORY ENTRIE
S IN ANY ORDER YOU"..#B.." CHOOSE. JUST
INSERT THE DISK TO BE"..$L.." SORTED IN
TO THE DISK DRIVE, THEN HIT.N$V.." THE S
PACE BAR.":.:." THE DIRECTORY ENTRIES WI
LL BE".Z$..." DISPLAYED, NUMBERED IN THE
IR CURRENT..$..." ORDER. (NOTE: THE NU
MBERS DO .NOT..L$..." REPRESENT BLOCKS.
THEY SIMPLY..$..." REPRESENT THE ORDER
IN WHICH EACH"..%..." ENTRY APPEARS IN T
HE DIRECTORY.)".G%...:." IF YOU WISH TO
ALPHABETIZE THE.Z%..." ENTRIES, PRESS TH
E "G(34)"1"G(34)" KEY, AND..%&.." THE DI
RECTORY WILL BE ALPHABETIZED..%+.." AUTO
MATICALLY."..%0..:." IF YOU WISH TO SORT
THEM IN SOME..&:.." OTHER ORDER, PRESS
THE "G(34)"2"G(34)" KEY..D&?..:." .(P
RESS ANY KEY TO CONTINUE).";.\&A.. AN$:.
AN$."".1857..&D..".":." YOU WILL THEN B
E GIVEN CONTROL OF THE..&N.." CURSOR. U
SING THE NORMAL";..&X.." KEYBOARD":." CO
NTROLS, RE-NUMBER THE ENTRIES..'B.." IN
ANY ORDER YOU WISH. JUST TYPE.9'L.." OV
ER THE OLD NUMBERS WITH YOUR NEW".D'V.."
ONES. WHEN DONE, PRESS THE F7 KEY...'.
..:." THE PROGRAM WILL CHECK YOUR NUMBER
ING.A'..." FOR ERRORS, THEN DISPLAY THE
DIRECTORY..'..." ENTRIES IN THEIR NEW OR
DER, AND ASK. (..." "G(34)"OKAY?"G(34)".
IF YOU ANSWER YES, THE.L(..." NEW DIRE
CTORY WILL BE WRITTEN TO THE.V(..." DISK
. IF YOU ANSWER NO, YOU'LL BE. (..." GI
VEN THE CHANCE TO RE-DO IT UNTIL.J(F.."
YOU'RE SATISFIED. TO ABORT, PRESS..(P..
" THE RUN-STOP KEY AT ANY TIME...)Z..:."
IF YOUR DIRECTORY HAS MORE THAN 46.I)..
." ENTRIES (MAX=92), IT WILL BE DISPLAYE
D.S)..." ON TWO SEPARATE PAGES. USE THE
F1..)..." KEY AT ANY TIME TO FLIP BACK
AND..)..." FORTH BETWEEN THE TWO PAGES..
.)...:." .(PRESS ANY KEY TO RETURN)
.";..*...AN$:.AN$."".2070..* .....
> CLICK IMAGE PREVIEW FOR FULL MODAL