DR. DIRECTORY
FILE INFORMATION
FILENAME(S): DR. DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-10-19 23:07:12
APPEARS ON: 1 disk(s)
FILE HASH
79f7fc5a42a4b9ac6a6e69e29157d7a9d0e6610de2f820d610e72dfca2766a27
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARTON SOFT 784 | DR. DIRECTORY | PRG | Bugjam - Argentina | 26 | 7 | 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 84 08 0F 00 97 35 33 32 38 31 |CREEN......53281|
00000050: 2C 36 3A 97 35 33 32 38 30 2C 33 3A 99 22 05 22 |,6:.53280,3:."."|
00000060: C7 28 31 34 32 29 C7 28 38 29 3B 3A 8F 20 53 45 |.(142).(8);:. SE|
00000070: 54 20 43 4F 4C 4F 52 53 2C 44 49 53 41 42 4C 45 |T COLORS,DISABLE|
00000080: 20 4C 2F 43 00 D3 08 14 00 8F 2A 2A 2A 2A 2A 2A | L/C......******|
00000090: 2A 4C 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C 41 |*LOAD MACHINE LA|
000000A0: 4E 47 55 41 47 45 20 50 52 4F 47 52 41 4D 20 49 |NGUAGE PROGRAM I|
000000B0: 4E 54 4F 20 4D 45 4D 4F 52 59 2A 2A 2A 2A 2A 2A |NTO MEMORY******|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 00 E2 08 1E 00 8D 31 32 39 30 3A 89 32 |***......1290:.2|
000000E0: 37 30 00 31 09 28 00 8F 2A 2A 2A 2A 2A 2A 2A 53 |70.1.(..*******S|
000000F0: 55 42 52 4F 55 54 49 4E 45 3A 20 52 45 41 44 20 |UBROUTINE: READ |
00000100: 44 49 52 45 43 54 4F 52 59 20 46 52 4F 4D 20 44 |DIRECTORY FROM D|
00000110: 49 53 4B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ISK*************|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 00 72 09 32 00 A0 35 3A 9F 35 2C 38 2C 35 2C |*.r.2..5:.5,8,5,|
00000140: 22 23 22 3A 53 25 28 31 29 B2 31 3A 44 45 B2 30 |"#":S%(1).1:DE.0|
00000150: 3A 49 B2 31 3A 8F 20 53 45 43 54 4F 52 20 31 2C |:I.1:. SECTOR 1,|
00000160: 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 | DIRECTORY ENTRY|
00000170: 20 30 00 9B 09 37 00 99 22 93 22 3B 3A 4D 45 24 | 0...7..".";:ME$|
00000180: B2 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 |."READING DIRECT|
00000190: 4F 52 59 22 3A 8D 20 31 32 32 30 00 BC 09 3C 00 |ORY":. 1220...<.|
000001A0: 98 31 35 2C 22 55 31 3A 22 3B 35 3B 30 3B 31 38 |.15,"U1:";5;0;18|
000001B0: 3B 53 25 28 49 29 3A 49 B2 49 AA 31 00 DF 09 46 |;S%(I):I.I.1...F|
000001C0: 00 A1 23 35 2C 54 24 3A A1 23 35 2C 53 24 3A 53 |..#5,T$:.#5,S$:S|
000001D0: 25 28 49 29 B2 C6 28 53 24 AA C7 28 30 29 29 00 |%(I)..(S$..(0)).|
000001E0: FD 09 50 00 81 51 B2 31 A4 38 3A 44 45 B2 44 45 |..P..Q.1.8:DE.DE|
000001F0: AA 31 3A 44 52 24 28 44 45 29 B2 22 22 00 11 0A |.1:DR$(DE).""...|
00000200: 5A 00 9E 38 39 36 3A 44 52 24 28 44 45 29 B2 41 |Z..896:DR$(DE).A|
00000210: 24 00 27 0A 64 00 8B 51 B3 B1 38 A7 A1 23 35 2C |$.'.d..Q..8..#5,|
00000220: 4E 47 24 2C 4E 47 24 00 3C 0A 6E 00 82 20 51 3A |NG$,NG$.<.n.. Q:|
00000230: 8B 53 25 28 49 29 B3 32 31 A7 36 30 00 86 0A 78 |.S%(I).21.60...x|
00000240: 00 A0 35 3A 8B 44 45 B1 34 38 A7 50 47 B2 31 3A |..5:.DE.48.PG.1:|
00000250: 8B 44 45 B1 39 36 A7 99 22 93 11 11 11 11 11 11 |.DE.96..".......|
00000260: 11 11 11 11 20 20 4F 56 45 52 20 39 32 20 45 4E |.... OVER 92 EN|
00000270: 54 52 49 45 53 20 2D 20 43 41 4E 27 54 20 44 4F |TRIES - CAN'T DO|
00000280: 22 3A 89 38 36 30 00 8C 0A 82 00 8E 00 DA 0A 8C |":.860..........|
00000290: 00 8F 2A 2A 2A 2A 2A 2A 2A 53 55 42 52 4F 55 54 |..*******SUBROUT|
000002A0: 49 4E 45 3A 20 44 49 53 50 4C 41 59 20 44 49 52 |INE: DISPLAY DIR|
000002B0: 45 43 54 4F 52 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |ECTORY *********|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 0A 96 00 8B |**********......|
000002E0: 41 4C A7 8D 31 31 39 30 00 F7 0A 9B 00 99 22 93 |AL..1190......".|
000002F0: 22 3B 3A 54 41 B2 30 00 02 0B A0 00 81 51 B2 31 |";:TA.0......Q.1|
00000300: A4 47 00 1D 0B AA 00 8B 51 B2 32 34 B0 51 B2 37 |.G......Q.24.Q.7|
00000310: 30 A7 54 41 B2 32 30 3A 99 22 13 22 3B 00 38 0B |0.TA.20:.".";.8.|
00000320: B4 00 8B 51 B2 34 37 A7 8D 31 31 39 30 3A 99 22 |...Q.47..1190:."|
00000330: 13 22 3B 3A 54 41 B2 30 00 73 0B BE 00 99 A3 54 |.";:TA.0.s.....T|
00000340: 41 29 22 9B 22 C9 28 C4 28 51 29 2C 32 29 22 20 |A)".".(.(Q),2)" |
00000350: 05 22 CA 28 44 52 24 28 53 43 25 28 51 29 29 2C |.".(DR$(SC%(Q)),|
00000360: 34 2C 31 36 29 3A 8F 20 50 52 49 4E 54 20 4E 41 |4,16):. PRINT NA|
00000370: 4D 45 53 00 7A 0B C8 00 82 51 00 80 0B D2 00 8E |MES.z....Q......|
00000380: 00 89 0B DC 00 A0 35 3A 8E 00 8F 0B E6 00 8F 00 |......5:........|
00000390: 95 0B F0 00 8F 00 9B 0B FA 00 8F 00 E9 0B 04 01 |................|
000003A0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 49 4E |.*************IN|
000003B0: 49 54 49 41 4C 49 5A 45 2A 2A 2A 2A 2A 2A 2A 2A |ITIALIZE********|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1A 0C 0E 01 86 20 |*********...... |
000003F0: 44 52 24 28 31 34 35 29 2C 53 25 28 32 30 29 2C |DR$(145),S%(20),|
00000400: 4E 4D 24 28 31 34 35 29 2C 53 4F 25 28 31 34 35 |NM$(145),SO%(145|
00000410: 29 2C 53 43 25 28 31 34 35 29 00 49 0C 18 01 41 |),SC%(145).I...A|
00000420: 4C B2 30 3A 8D 31 31 39 30 3A 99 22 93 22 3B 3A |L.0:.1190:.".";:|
00000430: 8D 31 31 39 30 3A 8F 20 43 4C 45 41 52 20 41 4C |.1190:. CLEAR AL|
00000440: 54 2E 20 53 43 52 45 45 4E 00 68 0C 22 01 53 50 |T. SCREEN.h.".SP|
00000450: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000460: 20 20 20 20 20 20 20 22 00 8B 0C 2C 01 56 45 24 | "...,.VE$|
00000470: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00000480: 11 11 11 11 11 11 11 11 11 11 22 00 95 0C 31 01 |.........."...1.|
00000490: 8D 31 34 39 30 00 A8 0C 40 01 A1 4A 24 3A 8B 4A |.1490...@..J$:.J|
000004A0: 24 B2 22 22 A7 33 32 30 00 E1 0C 45 01 8B 4A 24 |$."".320...E..J$|
000004B0: B2 22 49 22 A7 8D 31 37 30 30 3A 89 33 30 35 3A |."I"..1700:.305:|
000004C0: 8F 20 50 52 49 4E 54 20 49 4E 53 54 52 55 43 54 |. PRINT INSTRUCT|
000004D0: 49 4F 4E 53 20 49 46 20 52 45 51 55 45 53 54 45 |IONS IF REQUESTE|
000004E0: 44 00 06 0D 4A 01 A0 31 35 3A 9F 31 35 2C 38 2C |D...J..15:.15,8,|
000004F0: 31 35 2C 22 49 22 3A 8F 20 43 4F 4D 4D 41 4E 44 |15,"I":. COMMAND|
00000500: 20 43 48 41 4E 2E 00 54 0D 54 01 8F 2A 2A 2A 2A | CHAN..T.T..****|
00000510: 2A 2A 2A 2A 52 45 41 44 20 49 4E 20 44 49 52 45 |****READ IN DIRE|
00000520: 43 54 4F 52 59 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CTORY***********|
00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 00 8C 0D 5E 01 8D 35 30 3A 8F 20 52 |****...^..50:. R|
00000560: 45 41 44 20 54 48 45 20 44 49 52 45 43 54 4F 52 |EAD THE DIRECTOR|
00000570: 59 20 46 52 4F 4D 20 44 49 53 4B 20 49 4E 54 4F |Y FROM DISK INTO|
00000580: 20 44 52 24 28 29 20 41 52 52 41 59 00 DA 0D 68 | DR$() ARRAY...h|
00000590: 01 8F 2A 2A 2A 2A 2A 2A 20 42 55 49 4C 44 20 53 |..****** BUILD S|
000005A0: 43 52 45 45 4E 20 50 4F 53 49 54 49 4F 4E 20 41 |CREEN POSITION A|
000005B0: 52 52 41 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RRAY ***********|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 15 0E 72 01 47 |**********...r.G|
000005E0: B2 30 3A 44 B2 30 3A 8F 20 53 4F 52 54 20 45 4E |.0:D.0:. SORT EN|
000005F0: 54 52 49 45 53 20 49 4E 54 4F 20 47 4F 4F 44 20 |TRIES INTO GOOD |
00000600: 50 49 4C 45 20 41 4E 44 20 44 45 4C 45 54 45 44 |PILE AND DELETED|
00000610: 20 50 49 4C 45 00 21 0E 7C 01 81 4A B2 31 A4 44 | PILE.!.|..J.1.D|
00000620: 45 00 57 0E 86 01 41 B2 C6 28 44 52 24 28 4A 29 |E.W...A..(DR$(J)|
00000630: AA C7 28 30 29 29 3A 8B 41 B3 31 32 39 B0 41 B1 |..(0)):.A.129.A.|
00000640: 31 33 32 A7 44 B2 44 AA 31 3A 53 4F 25 28 44 29 |132.D.D.1:SO%(D)|
00000650: B2 4A 3A 89 34 31 30 00 6A 0E 90 01 47 B2 47 AA |.J:.410.j...G.G.|
00000660: 31 3A 53 43 25 28 47 29 B2 4A 00 71 0E 9A 01 82 |1:SC%(G).J.q....|
00000670: 4A 00 BC 0E A4 01 44 B2 30 3A 81 4A B2 47 AA 31 |J.....D.0:.J.G.1|
00000680: A4 44 45 3A 44 B2 44 AA 31 3A 53 43 25 28 4A 29 |.DE:D.D.1:SC%(J)|
00000690: B2 53 4F 25 28 44 29 3A 82 4A 3A 8F 20 44 45 4C |.SO%(D):.J:. DEL|
000006A0: 45 54 45 44 20 45 4E 54 52 49 45 53 20 41 54 20 |ETED ENTRIES AT |
000006B0: 45 4E 44 20 4F 46 20 41 52 52 41 59 00 0A 0F AE |END OF ARRAY....|
000006C0: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 44 49 53 50 4C 41 |..********DISPLA|
000006D0: 59 20 55 4E 53 4F 52 54 45 44 20 44 49 52 45 43 |Y UNSORTED DIREC|
000006E0: 54 4F 52 59 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TORY************|
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 00 34 0F B8 01 8D |**********.4....|
00000710: 20 31 35 30 3A 8B 50 47 A7 8D 31 32 31 35 3A 8F | 150:.PG..1215:.|
00000720: 20 50 52 49 4E 54 20 54 48 45 20 44 49 52 45 43 | PRINT THE DIREC|
00000730: 54 4F 52 59 00 82 0F C2 01 8F 2A 2A 2A 2A 2A 2A |TORY......******|
00000740: 2A 2A 50 52 45 53 45 4E 54 20 4D 45 4E 55 20 43 |**PRESENT MENU C|
00000750: 48 4F 49 43 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |HOICES**********|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 00 B0 0F CC 01 4D 45 24 B2 22 28 31 29 20 |**.....ME$."(1) |
00000790: 41 4C 50 48 41 42 45 54 49 5A 45 20 4F 52 20 28 |ALPHABETIZE OR (|
000007A0: 32 29 20 43 55 53 54 4F 4D 20 53 4F 52 54 3F 22 |2) CUSTOM SORT?"|
000007B0: 00 E7 0F D6 01 8D 31 32 32 30 3A 8D 31 31 36 30 |......1220:.1160|
000007C0: 3A 91 C5 28 51 24 29 89 35 31 30 2C 39 31 30 3A |:..(Q$).510,910:|
000007D0: 8B 50 47 A7 8B 51 24 B2 22 85 22 A7 8D 31 31 39 |.PG..Q$."."..119|
000007E0: 30 3A 8D 31 32 31 35 00 F0 0F DB 01 89 34 36 30 |0:.1215......460|
000007F0: 00 F6 0F E0 01 8F 00 FC 0F EA 01 8F 00 02 10 F4 |................|
00000800: 01 8F 00 50 10 FE 01 8F 2A 2A 2A 2A 2A 2A 2A 41 |...P....*******A|
00000810: 4C 50 48 41 42 45 54 49 5A 45 2A 2A 2A 2A 2A 2A |LPHABETIZE******|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
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: 00 84 10 03 02 4D 45 24 B2 22 11 92 20 20 20 20 |.....ME$.".. |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 20 20 91 22 3A 8D 20 | .":. |
00000880: 31 32 32 30 00 B4 10 08 02 4D 45 24 B2 22 2E 2E |1220.....ME$."..|
00000890: 53 45 50 41 52 41 54 49 4E 47 20 50 52 4F 47 52 |SEPARATING PROGR|
000008A0: 41 4D 53 20 26 20 46 49 4C 45 53 2E 2E 22 3A 8D |AMS & FILES..":.|
000008B0: 31 32 32 30 00 DD 10 12 02 81 20 58 B2 31 A4 47 |1220...... X.1.G|
000008C0: 3A 8F 20 4C 4F 4F 50 20 54 4F 20 43 4F 4E 56 45 |:. LOOP TO CONVE|
000008D0: 52 54 20 46 49 4C 45 20 4E 41 4D 45 53 00 27 11 |RT FILE NAMES.'.|
000008E0: 1C 02 4E 4D 24 28 58 29 B2 C8 28 44 52 24 28 53 |..NM$(X)..(DR$(S|
000008F0: 43 25 28 58 29 29 2C 31 29 AA CA 28 44 52 24 28 |C%(X)),1)..(DR$(|
00000900: 53 43 25 28 58 29 29 2C 34 2C 31 36 29 3A 8F 20 |SC%(X)),4,16):. |
00000910: 46 49 4C 45 20 54 59 50 45 20 42 59 54 45 20 49 |FILE TYPE BYTE I|
00000920: 4E 20 46 52 4F 4E 54 00 5A 11 26 02 81 50 B2 32 |N FRONT.Z.&..P.2|
00000930: A4 31 37 3A 8F 20 4C 4F 4F 50 20 54 4F 20 48 41 |.17:. LOOP TO HA|
00000940: 43 4B 20 53 48 49 46 54 45 44 20 53 50 41 43 45 |CK SHIFTED SPACE|
00000950: 53 20 46 52 4F 4D 20 45 4E 44 00 90 11 30 02 8B |S FROM END...0..|
00000960: CA 28 4E 4D 24 28 58 29 2C 50 2C 31 29 B2 C7 28 |.(NM$(X),P,1)..(|
00000970: 31 36 30 29 A7 4E 4D 24 28 58 29 B2 CA 28 4E 4D |160).NM$(X)..(NM|
00000980: 24 28 58 29 2C 31 2C 50 AB 31 29 3A 89 35 38 30 |$(X),1,P.1):.580|
00000990: 00 98 11 3A 02 82 20 50 00 A0 11 44 02 82 20 58 |...:.. P...D.. X|
000009A0: 00 CE 11 4E 02 4D 45 24 B2 22 2E 2E 2E 2E 2E 2E |...N.ME$."......|
000009B0: 2E 2E 2E 4E 4F 57 20 53 4F 52 54 49 4E 47 2E 2E |...NOW SORTING..|
000009C0: 2E 2E 2E 2E 2E 2E 2E 22 3A 8D 31 32 32 30 00 DF |.......":.1220..|
000009D0: 11 58 02 8F 20 53 48 45 4C 4C 20 53 4F 52 54 00 |.X.. SHELL SORT.|
000009E0: E7 11 6C 02 42 B2 47 00 15 12 76 02 42 B2 B5 28 |..l.B.G...v.B..(|
000009F0: 42 AD 32 29 3A 99 56 45 24 3B 22 11 12 22 CA 28 |B.2):.VE$;"..".(|
00000A00: C4 28 42 29 2C 32 29 22 92 20 22 3B 3A 8B 42 B2 |.(B),2)". ";:.B.|
00000A10: 30 A7 36 39 30 00 23 12 80 02 58 B2 31 3A 4B B2 |0.690.#...X.1:K.|
00000A20: 47 AB 42 00 2B 12 85 02 43 B2 58 00 49 12 8A 02 |G.B.+...C.X.I...|
00000A30: 44 B2 43 AA 42 3A 8B 4E 4D 24 28 43 29 B3 B2 4E |D.C.B:.NM$(C)..N|
00000A40: 4D 24 28 44 29 A7 36 37 30 00 6F 12 94 02 48 25 |M$(D).670.o...H%|
00000A50: B2 53 43 25 28 43 29 3A 53 43 25 28 43 29 B2 53 |.SC%(C):SC%(C).S|
00000A60: 43 25 28 44 29 3A 53 43 25 28 44 29 B2 48 25 00 |C%(D):SC%(D).H%.|
00000A70: A6 12 99 02 48 4F 24 B2 4E 4D 24 28 43 29 3A 4E |....HO$.NM$(C):N|
00000A80: 4D 24 28 43 29 B2 4E 4D 24 28 44 29 3A 4E 4D 24 |M$(C).NM$(D):NM$|
00000A90: 28 44 29 B2 48 4F 24 3A 43 B2 43 AB 42 3A 8B 43 |(D).HO$:C.C.B:.C|
00000AA0: B1 30 A7 36 35 30 00 B9 12 9E 02 58 B2 58 AA 31 |.0.650.....X.X.1|
00000AB0: 3A 8B 58 B1 4B A7 36 33 30 00 C2 12 A0 02 89 36 |:.X.K.630......6|
00000AC0: 34 35 00 C8 12 A1 02 8F 00 CE 12 A2 02 8F 00 1C |45..............|
00000AD0: 13 A8 02 8F 2A 2A 2A 2A 2A 2A 2A 44 49 53 50 4C |....*******DISPL|
00000AE0: 41 59 20 53 4F 52 54 45 44 20 44 49 52 45 43 54 |AY SORTED DIRECT|
00000AF0: 4F 52 59 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ORY*************|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 25 13 B2 |************.%..|
00000B20: 02 8D 31 35 30 00 4A 13 B4 02 4D 45 24 B2 22 4F |..150.J...ME$."O|
00000B30: 4B 41 59 3F 20 20 59 2F 4E 22 3A 8D 31 32 32 30 |KAY? Y/N":.1220|
00000B40: 3A 8B 50 47 A7 8D 31 32 31 35 00 6B 13 B7 02 8D |:.PG..1215.k....|
00000B50: 31 31 36 30 3A 8B 50 47 A7 8B 51 24 B2 22 85 22 |1160:.PG..Q$."."|
00000B60: A7 8D 31 31 39 30 3A 89 36 39 32 00 7C 13 BC 02 |..1190:.692.|...|
00000B70: 8B 51 24 B3 B1 22 59 22 A7 39 31 30 00 CA 13 C6 |.Q$.."Y".910....|
00000B80: 02 8F 2A 2A 2A 2A 2A 2A 2A 57 52 49 54 45 20 4E |..*******WRITE N|
00000B90: 45 57 20 44 49 52 45 43 54 4F 52 59 20 54 4F 20 |EW DIRECTORY TO |
00000BA0: 44 49 53 4B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |DISK************|
00000BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E6 13 D0 02 9F |**********......|
00000BD0: 35 2C 38 2C 35 2C 22 23 22 3A 8F 20 46 49 4C 45 |5,8,5,"#":. FILE|
00000BE0: 20 43 48 41 4E 2E 00 13 14 DA 02 57 B2 49 AB 31 | CHAN......W.I.1|
00000BF0: 3A 44 57 B2 30 3A 8F 20 57 3D 4E 55 4D 42 45 52 |:DW.0:. W=NUMBER|
00000C00: 20 4F 46 20 42 4C 4F 43 4B 53 20 54 4F 20 57 52 | OF BLOCKS TO WR|
00000C10: 49 54 45 00 58 14 E4 02 81 20 49 B2 31 A4 57 3A |ITE.X.... I.1.W:|
00000C20: 98 31 35 2C 22 42 2D 50 3A 22 3B 35 3B 30 3A 8F |.15,"B-P:";5;0:.|
00000C30: 20 4C 4F 4F 50 20 54 4F 20 57 52 49 54 45 2E 20 | LOOP TO WRITE. |
00000C40: 46 4F 52 43 45 20 50 55 46 20 50 4F 49 4E 54 20 |FORCE PUF POINT |
00000C50: 54 4F 20 42 45 47 49 4E 00 98 14 EE 02 54 54 B2 |TO BEGIN.....TT.|
00000C60: 31 38 3A 8B 53 25 28 49 AA 31 29 B2 32 35 35 A7 |18:.S%(I.1).255.|
00000C70: 54 54 B2 30 3A 8F 20 54 52 41 43 4B 20 23 20 54 |TT.0:. TRACK # T|
00000C80: 4F 20 57 52 49 54 45 2E 20 30 20 49 46 20 4C 41 |O WRITE. 0 IF LA|
00000C90: 53 54 20 42 4C 4F 43 4B 00 D1 14 F8 02 98 35 2C |ST BLOCK......5,|
00000CA0: C7 28 54 54 29 3B C7 28 53 25 28 49 AA 31 29 29 |.(TT);.(S%(I.1))|
00000CB0: 3B 3A 8F 20 50 55 54 20 54 48 45 20 54 52 41 43 |;:. PUT THE TRAC|
00000CC0: 4B 20 41 4E 44 20 4E 45 58 54 20 53 45 43 54 4F |K AND NEXT SECTO|
00000CD0: 52 00 03 15 02 03 81 20 51 B2 31 A4 38 3A 44 57 |R...... Q.1.8:DW|
00000CE0: B2 44 57 AA 31 3A 8F 20 4C 4F 4F 50 20 54 4F 20 |.DW.1:. LOOP TO |
00000CF0: 50 55 54 20 54 48 45 20 44 49 52 20 45 4E 54 52 |PUT THE DIR ENTR|
00000D00: 49 45 53 00 28 15 0C 03 98 35 2C 44 52 24 28 53 |IES.(....5,DR$(S|
00000D10: 43 25 28 44 57 29 29 3B 3A 8F 20 50 55 54 20 54 |C%(DW));:. PUT T|
00000D20: 48 45 20 45 4E 54 52 59 00 52 15 16 03 8B 51 B3 |HE ENTRY.R....Q.|
00000D30: B1 38 A7 98 35 2C 22 43 44 22 3B 3A 8F 20 50 55 |.8..5,"CD";:. PU|
00000D40: 54 20 49 4E 20 32 20 44 55 4D 4D 59 20 42 59 54 |T IN 2 DUMMY BYT|
00000D50: 45 53 00 5A 15 20 03 82 20 51 00 88 15 2A 03 98 |ES.Z. .. Q...*..|
00000D60: 31 35 2C 22 55 32 3A 22 3B 35 3B 30 3B 31 38 3B |15,"U2:";5;0;18;|
00000D70: 53 25 28 49 29 3A 8F 20 57 52 49 54 45 20 54 48 |S%(I):. WRITE TH|
00000D80: 45 20 53 45 43 54 4F 52 00 B2 15 34 03 4D 45 24 |E SECTOR...4.ME$|
00000D90: B2 22 57 52 49 54 49 4E 47 20 53 45 43 54 4F 52 |."WRITING SECTOR|
00000DA0: 3A 20 22 AA C4 28 53 25 28 49 29 29 3A 8D 31 32 |: "..(S%(I)):.12|
00000DB0: 32 30 00 BA 15 3E 03 82 20 49 00 08 16 48 03 8F |20...>.. I...H..|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 45 58 49 54 |************EXIT|
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 2A 2A 2A 2A 2A 2A |****************|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 00 2A 16 52 03 4D 45 24 |********.*.R.ME$|
00000E10: B2 22 44 20 4F 20 4E 20 45 22 3A 8D 31 32 32 30 |."D O N E":.1220|
00000E20: 3A 8B 50 47 A7 8D 31 32 30 30 00 55 16 5C 03 97 |:.PG..1200.U.\..|
00000E30: 35 36 2C 31 36 30 3A 97 36 34 34 2C 31 36 30 3A |56,160:.644,160:|
00000E40: 99 56 45 24 3B 3A A0 35 3A A0 31 35 3A 99 C7 28 |.VE$;:.5:.15:..(|
00000E50: 39 29 3B 3A 80 00 5B 16 66 03 8F 00 61 16 70 03 |9);:..[.f...a.p.|
00000E60: 8F 00 67 16 7A 03 8F 00 B5 16 84 03 8F 2A 2A 2A |..g.z........***|
00000E70: 2A 2A 2A 20 49 4E 50 55 54 20 43 55 53 54 4F 4D |*** INPUT CUSTOM|
00000E80: 20 53 4F 52 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | SORT **********|
00000E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EB0: 2A 2A 2A 2A 2A 00 E1 16 8E 03 4D 45 24 B2 22 52 |*****.....ME$."R|
00000EC0: 45 4E 55 4D 42 45 52 20 45 4E 54 52 49 45 53 2C |ENUMBER ENTRIES,|
00000ED0: 20 54 48 45 4E 20 50 52 45 53 53 20 3C 46 37 3E | THEN PRESS <F7>|
00000EE0: 22 00 F1 16 98 03 8D 31 32 32 30 3A 99 22 13 22 |"......1220:."."|
00000EF0: 3B 00 0A 17 A2 03 9E 39 33 38 3A 8B C2 28 37 38 |;......938:..(78|
00000F00: 30 29 B2 31 33 36 A7 39 37 30 00 29 17 AC 03 8B |0).136.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 F3 1C F6 04 8F 20 2A 2A 2A | .";:....... ***|
000014B0: 2A 2A 2A 2A 53 55 42 52 4F 55 54 49 4E 45 3A 20 |****SUBROUTINE: |
000014C0: 4C 4F 41 44 20 22 53 54 52 49 4E 47 20 54 48 49 |LOAD "STRING THI|
000014D0: 4E 47 22 20 4D 2E 4C 2E 20 50 52 4F 47 52 41 4D |NG" M.L. PROGRAM|
000014E0: 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 2A 2A 2A 2A | INTO MEMORY****|
000014F0: 2A 2A 2A 00 17 1D 00 05 8F 20 53 54 52 49 4E 47 |***...... STRING|
00001500: 20 4D 55 53 54 20 42 45 20 46 49 52 53 54 20 56 | MUST BE FIRST V|
00001510: 41 52 49 41 42 4C 45 00 2E 1D 0A 05 41 24 B2 22 |ARIABLE.....A$."|
00001520: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 22 00 4C |ABCDEFGHIJKLM".L|
00001530: 1D 14 05 41 24 B2 41 24 AA 22 4E 4F 50 51 52 53 |...A$.A$."NOPQRS|
00001540: 54 55 56 57 58 59 5A 31 32 33 34 22 00 71 1D 1E |TUVWXYZ1234".q..|
00001550: 05 8F 20 41 42 4F 56 45 20 53 45 54 53 20 53 54 |.. ABOVE SETS ST|
00001560: 52 49 4E 47 20 46 4F 52 20 33 30 20 43 48 41 52 |RING FOR 30 CHAR|
00001570: 53 00 A0 1D 28 05 99 22 93 11 11 11 11 11 11 11 |S...(.."........|
00001580: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4F 4E |..............ON|
00001590: 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 22 |E MOMENT PLEASE"|
000015A0: 00 D5 1D 32 05 83 20 31 36 30 2C 20 32 2C 20 31 |...2.. 160, 2, 1|
000015B0: 37 37 2C 20 34 35 2C 20 31 35 33 2C 20 31 33 37 |77, 45, 153, 137|
000015C0: 2C 20 30 2C 20 32 30 30 2C 20 31 39 32 2C 20 36 |, 0, 200, 192, 6|
000015D0: 2C 20 32 30 38 00 08 1E 37 05 83 20 32 34 36 2C |, 208...7.. 246,|
000015E0: 20 31 36 32 2C 20 35 2C 20 33 32 2C 20 31 39 38 | 162, 5, 32, 198|
000015F0: 2C 20 32 35 35 2C 20 33 32 2C 20 32 32 38 2C 20 |, 255, 32, 228, |
00001600: 32 35 35 2C 20 32 33 34 00 3F 1E 3C 05 83 20 32 |255, 234.?.<.. 2|
00001610: 33 34 2C 20 32 33 34 2C 20 32 33 34 2C 20 31 36 |34, 234, 234, 16|
00001620: 34 2C 20 31 34 32 2C 20 31 34 35 2C 20 31 34 30 |4, 142, 145, 140|
00001630: 2C 20 32 30 30 2C 20 31 33 32 2C 20 31 34 32 00 |, 200, 132, 142.|
00001640: 73 1E 41 05 83 20 31 39 36 2C 20 31 33 39 2C 20 |s.A.. 196, 139, |
00001650: 32 34 30 2C 20 34 2C 20 31 36 35 2C 20 31 34 34 |240, 4, 165, 144|
00001660: 2C 20 32 34 30 2C 20 32 33 34 2C 20 37 36 2C 20 |, 240, 234, 76, |
00001670: 32 30 34 00 A2 1E 46 05 83 20 32 35 35 2C 20 31 |204...F.. 255, 1|
00001680: 36 30 2C 20 31 2C 20 31 34 30 2C 20 31 34 36 2C |60, 1, 140, 146,|
00001690: 20 32 2C 20 32 30 38 2C 20 33 2C 20 33 32 2C 20 | 2, 208, 3, 32, |
000016A0: 32 32 00 D7 1E 4B 05 83 20 32 33 31 2C 20 33 32 |22...K.. 231, 32|
000016B0: 2C 20 34 34 2C 20 31 36 38 2C 20 31 36 35 2C 20 |, 44, 168, 165, |
000016C0: 31 39 38 2C 20 31 33 33 2C 20 32 30 34 2C 20 32 |198, 133, 204, 2|
000016D0: 34 30 2C 20 32 34 37 00 0B 1F 50 05 83 20 31 32 |40, 247...P.. 12|
000016E0: 30 2C 20 31 36 35 2C 20 32 30 37 2C 20 32 34 30 |0, 165, 207, 240|
000016F0: 2C 20 31 32 2C 20 31 36 35 2C 20 32 30 36 2C 20 |, 12, 165, 206, |
00001700: 31 37 34 2C 20 31 33 35 2C 20 32 00 3D 1F 55 05 |174, 135, 2.=.U.|
00001710: 83 20 31 36 30 2C 20 30 2C 20 31 33 32 2C 20 32 |. 160, 0, 132, 2|
00001720: 30 37 2C 20 33 32 2C 20 31 39 2C 20 32 33 34 2C |07, 32, 19, 234,|
00001730: 20 33 32 2C 20 31 38 30 2C 20 32 32 39 00 6F 1F | 32, 180, 229.o.|
00001740: 5A 05 83 20 32 30 31 2C 20 31 33 36 2C 20 32 34 |Z.. 201, 136, 24|
00001750: 30 2C 20 34 2C 20 32 30 31 2C 20 31 33 33 2C 20 |0, 4, 201, 133, |
00001760: 32 30 38 2C 20 31 2C 20 39 36 2C 20 32 30 31 00 |208, 1, 96, 201.|
00001770: A0 1F 5F 05 83 20 31 33 2C 20 32 34 30 2C 20 34 |.._.. 13, 240, 4|
00001780: 2C 20 32 30 31 2C 20 31 37 2C 20 32 30 38 2C 20 |, 201, 17, 208, |
00001790: 38 2C 20 31 36 36 2C 20 32 31 34 2C 20 32 32 34 |8, 166, 214, 224|
000017A0: 00 D5 1F 64 05 83 20 32 34 2C 20 31 34 34 2C 20 |...d.. 24, 144, |
000017B0: 32 30 31 2C 20 31 37 36 2C 20 32 30 32 2C 20 31 |201, 176, 202, 1|
000017C0: 36 36 2C 20 32 31 31 2C 20 32 32 34 2C 20 33 39 |66, 211, 224, 39|
000017D0: 2C 20 32 30 38 00 0C 20 6E 05 83 20 31 39 33 2C |, 208.. n.. 193,|
000017E0: 20 32 30 31 2C 20 31 35 37 2C 20 32 34 30 2C 20 | 201, 157, 240, |
000017F0: 31 38 39 2C 20 32 30 31 2C 20 31 34 35 2C 20 32 |189, 201, 145, 2|
00001800: 34 30 2C 20 31 38 35 2C 20 32 30 31 00 2F 20 78 |40, 185, 201./ x|
00001810: 05 83 20 32 39 2C 20 32 34 30 2C 20 31 38 31 2C |.. 29, 240, 181,|
00001820: 20 32 30 38 2C 20 31 38 32 2C 20 30 2C 20 30 00 | 208, 182, 0, 0.|
00001830: 4E 20 96 05 81 4A B2 38 39 36 A4 31 30 32 32 3A |N ...J.896.1022:|
00001840: 87 58 3A 97 4A 2C 58 3A 82 4A 3A 4A B2 30 00 54 |.X:.J,X:.J:J.0.T|
00001850: 20 A0 05 8E 00 75 20 D2 05 99 22 93 B0 22 3B 3A | ....u ..."..";:|
00001860: 81 58 B2 31 A4 33 38 3A 99 22 B1 22 3B 3A 82 3A |.X.1.38:.".";:.:|
00001870: 99 22 AE 22 3B 00 94 20 D3 05 81 58 B2 31 A4 32 |.".";.. ...X.1.2|
00001880: 33 3A 99 22 B3 22 A6 33 37 29 22 AB 9D 94 20 1D |3:.".".37)"... .|
00001890: 22 3B 3A 82 00 B8 20 D4 05 99 22 AD 22 3B 3A 81 |";:... ...".";:.|
000018A0: 58 B2 31 A4 33 37 3A 99 22 B2 22 3B 3A 82 3A 99 |X.1.37:.".";:.:.|
000018B0: 22 BD 9D 94 B2 13 22 3B 00 C4 20 DC 05 99 22 13 |".....";.. ...".|
000018C0: 11 11 22 3B 00 DD 20 E6 05 99 A6 31 32 29 22 2F |..";.. ....12)"/|
000018D0: 2A 2A 2A 2A 2A 2A 20 4F 43 54 4F 52 22 00 F1 20 |****** OCTOR".. |
000018E0: F0 05 99 A6 31 32 29 22 2F 2A 2A 2A 2A 2A 2A 2A |....12)"/*******|
000018F0: 22 00 06 21 FA 05 99 A6 31 32 29 22 2F 2A 2A 2F |"..!....12)"/**/|
00001900: 2F 2F 2F 2A 2A 22 00 1C 21 04 06 99 A6 31 32 29 |///**"..!....12)|
00001910: 22 2F 2A 2A 20 20 20 20 2F 2A 2A 22 00 32 21 0E |"/** /**".2!.|
00001920: 06 99 A6 31 32 29 22 2F 2A 2A 20 20 20 20 2F 2A |...12)"/** /*|
00001930: 2A 22 00 48 21 18 06 99 A6 31 32 29 22 2F 2A 2A |*".H!....12)"/**|
00001940: 20 20 20 20 2F 2A 2A 22 00 5E 21 22 06 99 A6 31 | /**".^!"...1|
00001950: 32 29 22 2F 2A 2A 20 20 20 20 2F 2A 2A 22 00 73 |2)"/** /**".s|
00001960: 21 2C 06 99 A6 31 32 29 22 2F 2A 2A 20 20 20 2F |!,...12)"/** /|
00001970: 2A 2A 22 00 87 21 36 06 99 A6 31 32 29 22 2F 2A |**"..!6...12)"/*|
00001980: 2A 2A 2A 2A 2A 2A 22 00 A3 21 40 06 99 A6 31 32 |******"..!@...12|
00001990: 29 22 2F 2A 2A 2A 2A 2A 2A 20 49 52 45 43 54 4F |)"/****** IRECTO|
000019A0: 52 59 22 00 B5 21 4A 06 99 A6 31 32 29 22 2F 2F |RY"..!J...12)"//|
000019B0: 2F 2F 2F 2F 22 00 BF 21 54 06 99 3A 99 3A 99 00 |////"..!T..:.:..|
000019C0: CF 21 5E 06 99 A6 31 37 29 22 42 59 22 3A 99 00 |.!^...17)"BY":..|
000019D0: E7 21 68 06 99 A6 31 32 29 22 53 54 45 56 45 20 |.!h...12)"STEVE |
000019E0: 47 52 41 4E 41 54 22 00 F7 21 6A 06 81 58 B2 31 |GRANAT"..!j..X.1|
000019F0: A4 31 30 30 30 3A 82 00 28 22 6B 06 99 3A 99 22 |.1000:..("k..:."|
00001A00: 1D A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001A10: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001A20: A4 A4 A4 A4 A4 A4 A4 22 00 5B 22 6D 06 99 22 12 |.......".["m..".|
00001A30: 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |INSERT DISK TO B|
00001A40: 45 20 53 4F 52 54 45 44 2C 20 54 48 45 4E 20 48 |E SORTED, THEN H|
00001A50: 49 54 20 53 50 41 43 45 92 22 3B 00 80 22 6F 06 |IT SPACE.";.."o.|
00001A60: 99 A6 36 29 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..6)"...........|
00001A70: A4 4F 52 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 |.OR............"|
00001A80: 00 B7 22 71 06 99 A3 36 29 22 12 50 52 45 53 53 |.."q...6)".PRESS|
00001A90: 20 22 AA C7 28 33 34 29 AA 22 49 22 AA C7 28 33 | "..(34)."I"..(3|
00001AA0: 34 29 AA 22 20 46 4F 52 20 49 4E 53 54 52 55 43 |4)." FOR INSTRUC|
00001AB0: 54 49 4F 4E 53 92 22 00 BD 22 72 06 8E 00 EB 22 |TIONS.".."r...."|
00001AC0: A4 06 99 22 93 22 A6 31 33 29 22 49 4E 53 54 52 |...".".13)"INSTR|
00001AD0: 55 43 54 49 4F 4E 53 22 3A 99 A6 31 33 29 22 A3 |UCTIONS":..13)".|
00001AE0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 1A 23 AE 06 |.............#..|
00001AF0: 99 22 20 12 44 4F 43 54 4F 52 92 20 12 44 49 52 |." .DOCTOR. .DIR|
00001B00: 45 43 54 4F 52 59 92 20 57 49 4C 4C 20 52 45 2D |ECTORY. WILL RE-|
00001B10: 53 4F 52 54 20 59 4F 55 52 22 00 45 23 B8 06 99 |SORT YOUR".E#...|
00001B20: 22 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 |" DIRECTORY ENTR|
00001B30: 49 45 53 20 49 4E 20 41 4E 59 20 4F 52 44 45 52 |IES IN ANY ORDER|
00001B40: 20 59 4F 55 22 00 71 23 C2 06 99 22 20 43 48 4F | YOU".q#..." CHO|
00001B50: 4F 53 45 2E 20 20 4A 55 53 54 20 49 4E 53 45 52 |OSE. JUST INSER|
00001B60: 54 20 54 48 45 20 44 49 53 4B 20 54 4F 20 42 45 |T THE DISK TO BE|
00001B70: 22 00 9D 23 CC 06 99 22 20 53 4F 52 54 45 44 20 |"..#..." SORTED |
00001B80: 49 4E 54 4F 20 54 48 45 20 44 49 53 4B 20 44 52 |INTO THE DISK DR|
00001B90: 49 56 45 2C 20 54 48 45 4E 20 48 49 54 00 D8 23 |IVE, THEN HIT..#|
00001BA0: D6 06 99 22 20 54 48 45 20 53 50 41 43 45 20 42 |..." THE SPACE B|
00001BB0: 41 52 2E 22 3A 99 3A 99 22 20 54 48 45 20 44 49 |AR.":.:." THE DI|
00001BC0: 52 45 43 54 4F 52 59 20 45 4E 54 52 49 45 53 20 |RECTORY ENTRIES |
00001BD0: 57 49 4C 4C 20 42 45 22 00 04 24 E0 06 99 22 20 |WILL BE"..$..." |
00001BE0: 44 49 53 50 4C 41 59 45 44 2C 20 4E 55 4D 42 45 |DISPLAYED, NUMBE|
00001BF0: 52 45 44 20 49 4E 20 54 48 45 49 52 20 43 55 52 |RED IN THEIR CUR|
00001C00: 52 45 4E 54 00 30 24 EA 06 99 22 20 4F 52 44 45 |RENT.0$..." ORDE|
00001C10: 52 2E 20 20 28 4E 4F 54 45 3A 20 20 54 48 45 20 |R. (NOTE: THE |
00001C20: 4E 55 4D 42 45 52 53 20 44 4F 20 12 4E 4F 54 92 |NUMBERS DO .NOT.|
00001C30: 00 56 24 F4 06 99 22 20 52 45 50 52 45 53 45 4E |.V$..." REPRESEN|
00001C40: 54 20 42 4C 4F 43 4B 53 2E 20 20 54 48 45 59 20 |T BLOCKS. THEY |
00001C50: 53 49 4D 50 4C 59 00 80 24 FE 06 99 22 20 52 45 |SIMPLY..$..." RE|
00001C60: 50 52 45 53 45 4E 54 20 54 48 45 20 4F 52 44 45 |PRESENT THE ORDE|
00001C70: 52 20 49 4E 20 57 48 49 43 48 20 45 41 43 48 22 |R IN WHICH EACH"|
00001C80: 00 A9 24 08 07 99 22 20 45 4E 54 52 59 20 41 50 |..$..." ENTRY AP|
00001C90: 50 45 41 52 53 20 49 4E 20 54 48 45 20 44 49 52 |PEARS IN THE DIR|
00001CA0: 45 43 54 4F 52 59 2E 29 22 00 D1 24 12 07 99 3A |ECTORY.)"..$...:|
00001CB0: 99 22 20 49 46 20 59 4F 55 20 57 49 53 48 20 54 |." IF YOU WISH T|
00001CC0: 4F 20 41 4C 50 48 41 42 45 54 49 5A 45 20 54 48 |O ALPHABETIZE TH|
00001CD0: 45 00 04 25 1C 07 99 22 20 45 4E 54 52 49 45 53 |E..%..." ENTRIES|
00001CE0: 2C 20 50 52 45 53 53 20 54 48 45 20 22 C7 28 33 |, PRESS THE ".(3|
00001CF0: 34 29 22 31 22 C7 28 33 34 29 22 20 4B 45 59 2C |4)"1".(34)" KEY,|
00001D00: 20 41 4E 44 00 2E 25 26 07 99 22 20 54 48 45 20 | AND..%&.." THE |
00001D10: 44 49 52 45 43 54 4F 52 59 20 57 49 4C 4C 20 42 |DIRECTORY WILL B|
00001D20: 45 20 41 4C 50 48 41 42 45 54 49 5A 45 44 00 5C |E ALPHABETIZED.\|
00001D30: 25 2B 07 99 22 20 41 55 54 4F 4D 41 54 49 43 41 |%+.." AUTOMATICA|
00001D40: 4C 4C 59 2E 20 20 50 52 4F 47 52 41 4D 53 20 26 |LLY. PROGRAMS &|
00001D50: 20 46 49 4C 45 53 20 57 49 4C 4C 22 00 A1 25 30 | FILES WILL"..%0|
00001D60: 07 99 22 20 42 45 20 47 52 4F 55 50 45 44 20 53 |.." BE GROUPED S|
00001D70: 45 50 41 52 41 54 45 4C 59 2E 22 3A 99 3A 99 22 |EPARATELY.":.:."|
00001D80: 20 49 46 20 59 4F 55 20 57 49 53 48 20 54 4F 20 | IF YOU WISH TO |
00001D90: 53 4F 52 54 20 54 48 45 4D 20 49 4E 20 53 4F 4D |SORT THEM IN SOM|
00001DA0: 45 00 D4 25 3A 07 99 22 20 4F 54 48 45 52 20 4F |E..%:.." OTHER O|
00001DB0: 52 44 45 52 2C 20 50 52 45 53 53 20 54 48 45 20 |RDER, PRESS THE |
00001DC0: 22 C7 28 33 34 29 22 32 22 C7 28 33 34 29 22 20 |".(34)"2".(34)" |
00001DD0: 4B 45 59 2E 00 00 26 3F 07 99 3A 99 22 20 20 20 |KEY...&?..:." |
00001DE0: 20 12 28 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | .(PRESS ANY KEY|
00001DF0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 92 22 3B | TO CONTINUE).";|
00001E00: 00 18 26 41 07 A1 20 41 4E 24 3A 8B 20 41 4E 24 |..&A.. AN$:. AN$|
00001E10: B2 22 22 A7 31 38 35 37 00 4A 26 44 07 99 22 93 |."".1857.J&D..".|
00001E20: 22 3A 99 22 20 59 4F 55 20 57 49 4C 4C 20 54 48 |":." YOU WILL TH|
00001E30: 45 4E 20 42 45 20 47 49 56 45 4E 20 43 4F 4E 54 |EN BE GIVEN CONT|
00001E40: 52 4F 4C 20 4F 46 20 54 48 45 00 6D 26 4E 07 99 |ROL OF THE.m&N..|
00001E50: 22 20 43 55 52 53 4F 52 2E 20 20 55 53 49 4E 47 |" CURSOR. USING|
00001E60: 20 54 48 45 20 4E 4F 52 4D 41 4C 22 3B 00 A1 26 | THE NORMAL";..&|
00001E70: 58 07 99 22 20 4B 45 59 42 4F 41 52 44 22 3A 99 |X.." KEYBOARD":.|
00001E80: 22 20 43 4F 4E 54 52 4F 4C 53 2C 20 52 45 2D 4E |" CONTROLS, RE-N|
00001E90: 55 4D 42 45 52 20 54 48 45 20 45 4E 54 52 49 45 |UMBER THE ENTRIE|
00001EA0: 53 00 CA 26 62 07 99 22 20 49 4E 20 41 4E 59 20 |S..&b.." IN ANY |
00001EB0: 4F 52 44 45 52 20 59 4F 55 20 57 49 53 48 2E 20 |ORDER YOU WISH. |
00001EC0: 20 4A 55 53 54 20 54 59 50 45 00 F5 26 6C 07 99 | JUST TYPE..&l..|
00001ED0: 22 20 4F 56 45 52 20 54 48 45 20 4F 4C 44 20 4E |" OVER THE OLD N|
00001EE0: 55 4D 42 45 52 53 20 57 49 54 48 20 59 4F 55 52 |UMBERS WITH YOUR|
00001EF0: 20 4E 45 57 22 00 20 27 76 07 99 22 20 4F 4E 45 | NEW". 'v.." ONE|
00001F00: 53 2E 20 20 57 48 45 4E 20 44 4F 4E 45 2C 20 50 |S. WHEN DONE, P|
00001F10: 52 45 53 53 20 54 48 45 20 46 37 20 4B 45 59 2E |RESS THE F7 KEY.|
00001F20: 00 4F 27 80 07 99 3A 99 22 20 54 48 45 20 50 52 |.O'...:." THE PR|
00001F30: 4F 47 52 41 4D 20 57 49 4C 4C 20 43 48 45 43 4B |OGRAM WILL CHECK|
00001F40: 20 59 4F 55 52 20 4E 55 4D 42 45 52 49 4E 47 00 | YOUR NUMBERING.|
00001F50: 7D 27 8A 07 99 22 20 46 4F 52 20 45 52 52 4F 52 |}'..." FOR ERROR|
00001F60: 53 2C 20 54 48 45 4E 20 44 49 53 50 4C 41 59 20 |S, THEN DISPLAY |
00001F70: 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 A8 27 |THE DIRECTORY..'|
00001F80: 94 07 99 22 20 45 4E 54 52 49 45 53 20 49 4E 20 |..." ENTRIES IN |
00001F90: 54 48 45 49 52 20 4E 45 57 20 4F 52 44 45 52 2C |THEIR NEW ORDER,|
00001FA0: 20 41 4E 44 20 41 53 4B 00 DC 27 9E 07 99 22 20 | AND ASK..'..." |
00001FB0: 22 C7 28 33 34 29 22 4F 4B 41 59 3F 22 C7 28 33 |".(34)"OKAY?".(3|
00001FC0: 34 29 22 2E 20 20 49 46 20 59 4F 55 20 41 4E 53 |4)". IF YOU ANS|
00001FD0: 57 45 52 20 59 45 53 2C 20 54 48 45 00 08 28 A8 |WER YES, THE..(.|
00001FE0: 07 99 22 20 4E 45 57 20 44 49 52 45 43 54 4F 52 |.." NEW DIRECTOR|
00001FF0: 59 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 |Y WILL BE WRITTE|
00002000: 4E 20 54 4F 20 54 48 45 00 32 28 B2 07 99 22 20 |N TO THE.2(..." |
00002010: 44 49 53 4B 2E 20 20 49 46 20 59 4F 55 20 41 4E |DISK. IF YOU AN|
00002020: 53 57 45 52 20 4E 4F 2C 20 59 4F 55 27 4C 4C 20 |SWER NO, YOU'LL |
00002030: 42 45 00 5C 28 BC 07 99 22 20 47 49 56 45 4E 20 |BE.\(..." GIVEN |
00002040: 54 48 45 20 43 48 41 4E 43 45 20 54 4F 20 52 45 |THE CHANCE TO RE|
00002050: 2D 44 4F 20 49 54 20 55 4E 54 49 4C 00 86 28 C6 |-DO IT UNTIL..(.|
00002060: 07 99 22 20 59 4F 55 27 52 45 20 53 41 54 49 53 |.." YOU'RE SATIS|
00002070: 46 49 45 44 2E 20 20 54 4F 20 41 42 4F 52 54 2C |FIED. TO ABORT,|
00002080: 20 50 52 45 53 53 00 AB 28 D0 07 99 22 20 54 48 | PRESS..(..." TH|
00002090: 45 20 52 55 4E 2D 53 54 4F 50 20 4B 45 59 20 41 |E RUN-STOP KEY A|
000020A0: 54 20 41 4E 59 20 54 49 4D 45 2E 00 D7 28 DA 07 |T ANY TIME...(..|
000020B0: 99 3A 99 22 20 49 46 20 59 4F 55 52 20 44 49 52 |.:." IF YOUR DIR|
000020C0: 45 43 54 4F 52 59 20 48 41 53 20 4D 4F 52 45 20 |ECTORY HAS MORE |
000020D0: 54 48 41 4E 20 34 36 00 05 29 E4 07 99 22 20 45 |THAN 46..)..." E|
000020E0: 4E 54 52 49 45 53 20 28 4D 41 58 3D 39 32 29 2C |NTRIES (MAX=92),|
000020F0: 20 49 54 20 57 49 4C 4C 20 42 45 20 44 49 53 50 | IT WILL BE DISP|
00002100: 4C 41 59 45 44 00 2F 29 EE 07 99 22 20 4F 4E 20 |LAYED./)..." ON |
00002110: 54 57 4F 20 53 45 50 41 52 41 54 45 20 50 41 47 |TWO SEPARATE PAG|
00002120: 45 53 2E 20 20 55 53 45 20 54 48 45 20 46 31 00 |ES. USE THE F1.|
00002130: 57 29 F8 07 99 22 20 4B 45 59 20 41 54 20 41 4E |W)..." KEY AT AN|
00002140: 59 20 54 49 4D 45 20 54 4F 20 46 4C 49 50 20 42 |Y TIME TO FLIP B|
00002150: 41 43 4B 20 41 4E 44 00 7B 29 02 08 99 22 20 46 |ACK AND.{)..." F|
00002160: 4F 52 54 48 20 42 45 54 57 45 45 4E 20 54 48 45 |ORTH BETWEEN THE|
00002170: 20 54 57 4F 20 50 41 47 45 53 2E 00 A7 29 0C 08 | TWO PAGES...)..|
00002180: 99 3A 99 22 20 20 20 20 20 20 12 28 50 52 45 53 |.:." .(PRES|
00002190: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 |S ANY KEY TO RET|
000021A0: 55 52 4E 29 92 22 3B 00 BD 29 16 08 A1 41 4E 24 |URN).";..)...AN$|
000021B0: 3A 8B 41 4E 24 B2 22 22 A7 32 30 37 30 00 C3 29 |:.AN$."".2070..)|
000021C0: 20 08 8E 00 00 00 00 | ...... |
..E....55,0:.56,60:.643,0:.644,60:.:. LO
WER MEMORY TOP FOR ALT SCREEN......53281
,6:.53280,3:."."G(142)G(8);:. SET COLORS
,DISABLE L/C.S....*******LOAD MACHINE LA
NGUAGE PROGRAM INTO MEMORY**************
***********......1290:.270.1.(..*******S
UBROUTINE: READ DIRECTORY FROM DISK*****
*************************.R.2. 5:.5,8,5,
"#":S%(1).1:DE.0:I.1:. SECTOR 1, DIRECTO
RY ENTRY 0...7..".";:ME$."READING DIRECT
ORY":. 1220...<..15,"U1:";5;0;18;S%(I):I
.I.1...F..#5,T$:.#5,S$:S%(I).F(S$.G(0)).
..P..Q.1.8:DE.DE.1:DR$(DE).""...Z..896:D
R$(DE).A$.'.D..Q..8..#5,NG$,NG$.<.N.. Q:
.S%(I).21.60...X. 5:.DE.48.PG.1:.DE.96..
"........... OVER 92 ENTRIES - CAN'T DO
":.860.......Z....*******SUBROUTINE: DIS
PLAY DIRECTORY *************************
**********......AL..1190......".";:TA.0.
.. ..Q.1.G......Q.24.Q.70.TA.20:.".";.8.
...Q.47..1190:.".";:TA.0.S.....TA)"."I(D
(Q),2)" ."J(DR$(SC%(Q)),4,16):. PRINT NA
MES.Z.H..Q...R....... 5:................
.........*************INITIALIZE********
****************************************
*...... DR$(145),S%(20),NM$(145),SO%(145
),SC%(145).I...AL.0:.1190:.".";:.1190:.
CLEAR ALT. SCREEN.H.".SP$."
"...,.VE$."......................
.."...1..1490...@..J$:.J$."".320...E..J$
."I"..1700:.305:. PRINT INSTRUCTIONS IF
REQUESTED...J. 15:.15,8,15,"I":. COMMAND
CHAN..T.T..********READ IN DIRECTORY***
****************************************
****...^..50:. READ THE DIRECTORY FROM D
ISK INTO DR$() ARRAY.Z.H..****** BUILD S
CREEN POSITION ARRAY *******************
******************...R.G.0:D.0:. SORT EN
TRIES INTO GOOD PILE AND DELETED PILE.!.
|..J.1.DE.W...A.F(DR$(J).G(0)):.A.129.A.
132.D.D.1:SO%(D).J:.410.J...G.G.1:SC%(G)
.J.Q....J.....D.0:.J.G.1.DE:D.D.1:SC%(J)
.SO%(D):.J:. DELETED ENTRIES AT END OF A
RRAY......********DISPLAY UNSORTED DIREC
TORY************************************
**.4.... 150:.PG..1215:. PRINT THE DIREC
TORY...B..********PRESENT MENU CHOICES**
****************************************
**...L.ME$."(1) ALPHABETIZE OR (2) CUSTO
M SORT?"...V..1220:.1160:.E(Q$).510,910:
.PG..Q$."."..1190:.1215......460........
...........P....*******ALPHABETIZE******
****************************************
********.....ME$."..
.":. 1220.....ME$."..SEPARATI
NG PROGRAMS & FILES..":.1220...... X.1.G
:. LOOP TO CONVERT FILE NAMES.'...NM$(X)
.H(DR$(SC%(X)),1).J(DR$(SC%(X)),4,16):.
FILE TYPE BYTE IN FRONT.Z.&..P.2.17:. LO
OP TO HACK SHIFTED SPACES FROM END...0..
J(NM$(X),P,1).G(160).NM$(X).J(NM$(X),1,P
.1):.580...:.. P. .D.. X.N.N.ME$."......
...NOW SORTING.........":.1220...X.. SHE
LL SORT...L.B.G...V.B..(B.2):.VE$;".."J(
D(B),2)". ";:.B.0.690.#...X.1:K.G.B.+...
C.X.I...D.C.B:.NM$(C)..NM$(D).670.O...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.B. ..645.H....
.N..........*******DISPLAY SORTED DIRECT
ORY*************************************
****.%....150.J...ME$."OKAY? Y/N":.1220
:.PG..1215.K....1160:.PG..Q$."."..1190:.
692.|....Q$.."Y".910.J.F..*******WRITE N
EW DIRECTORY TO DISK********************
******************...P..5,8,5,"#":. FILE
CHAN....Z.W.I.1:DW.0:. W=NUMBER OF BLOC
KS TO WRITE.X.... I.1.W:.15,"B-P:";5;0:.
LOOP TO WRITE. FORCE PUF POINT TO BEGIN
.....TT.18:.S%(I.1).255.TT.0:. TRACK # T
O WRITE. 0 IF LAST BLOCK.Q....5,G(TT);G(
S%(I.1));:. PUT THE TRACK AND NEXT SECTO
R...... Q.1.8:DW.DW.1:. LOOP TO PUT THE
DIR ENTRIES.(....5,DR$(SC%(DW));:. PUT T
HE ENTRY.R....Q..8..5,"CD";:. PUT IN 2 D
UMMY BYTES.Z. .. Q...*..15,"U2:";5;0;18;
S%(I):. WRITE THE SECTOR...4.ME$."WRITIN
G SECTOR: ".D(S%(I)):.1220...>.. I...H..
************EXIT************************
********************************.*.R.ME$
."D O N E":.1220:.PG..1200.U.\..56,160:.
644,160:.VE$;: 5: 15:.G(9);:..[.F...A.P.
..G.Z........****** INPUT CUSTOM SORT **
****************************************
*****.....ME$."RENUMBER ENTRIES, THEN PR
ESS <F7>"......1220:.".";......938:.B(78
0).136.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)".
.";:....... *******SUBROUTINE: LOAD "ST
RING THING" M.L. PROGRAM INTO MEMORY****
***...... STRING MUST BE FIRST VARIABLE.
....A$."ABCDEFGHIJKLM".L...A$.A$."NOPQRS
TUVWXYZ1234".Q.... ABOVE SETS STRING FOR
30 CHARS. .(.."......................ON
E MOMENT PLEASE".U.2.. 160, 2, 177, 45,
153, 137, 0, 200, 192, 6, 208...7.. 246,
162, 5, 32, 198, 255, 32, 228, 255, 234
.?.<.. 234, 234, 234, 164, 142, 145, 140
, 200, 132, 142.S.A.. 196, 139, 240, 4,
165, 144, 240, 234, 76, 204...F.. 255, 1
60, 1, 140, 146, 2, 208, 3, 32, 22.W.K..
231, 32, 44, 168, 165, 198, 133, 204, 2
40, 247...P.. 120, 165, 207, 240, 12, 16
5, 206, 174, 135, 2.=.U.. 160, 0, 132, 2
07, 32, 19, 234, 32, 180, 229.O.Z.. 201,
136, 240, 4, 201, 133, 208, 1, 96, 201.
._.. 13, 240, 4, 201, 17, 208, 8, 166,
214, 224.U.D.. 24, 144, 201, 176, 202, 1
66, 211, 224, 39, 208.. N.. 193, 201, 15
7, 240, 189, 201, 145, 240, 185, 201./ X
.. 29, 240, 181, 208, 182, 0, 0.N ...J.8
96.1022:.X:.J,X:.J:J.0.T ...U R.."..";:
.X.1.38:.".";:.:.".";.. S..X.1.23:.".".3
7)"... .";:... T..".";:.X.1.37:.".";:.:.
".....";.D ..."...";.. ....12)"/****** O
CTOR".. ....12)"/*******"..!....12)"/**/
///**"..!....12)"/** /**".2!....12)"/
** /**".H!....12)"/** /**".^!"...1
2)"/** /**".S!,...12)"/** /**"..!6.
..12)"/*******"..!@...12)"/****** IRECTO
RY"..!J...12)"//////"..!T..:.:..O!^...17
)"BY":...!H...12)"STEVE GRANAT"..!J..X.1
.1000:..("K..:."........................
...............".["M..".INSERT DISK TO B
E SORTED, THEN HIT SPACE.";.."O...6)"...
.........OR............".."Q...6)".PRESS
".G(34)."I".G(34)." FOR INSTRUCTIONS.".
."R...."...".".13)"INSTRUCTIONS":..13)".
.............#..." .DOCTOR. .DIRECTORY.
WILL RE-SORT YOUR".E#..." DIRECTORY ENTR
IES IN ANY ORDER YOU".Q#B.." CHOOSE. JU
ST INSERT THE DISK TO BE"..#L.." SORTED
INTO THE DISK DRIVE, THEN HIT.X#V.." THE
SPACE BAR.":.:." THE DIRECTORY ENTRIES
WILL BE"..$..." DISPLAYED, NUMBERED IN T
HEIR CURRENT.0$..." ORDER. (NOTE: THE
NUMBERS DO .NOT..V$..." REPRESENT BLOCKS
. THEY SIMPLY..$..." REPRESENT THE ORDE
R IN WHICH EACH"..$..." ENTRY APPEARS IN
THE DIRECTORY.)".Q$...:." IF YOU WISH T
O ALPHABETIZE THE..%..." ENTRIES, PRESS
THE "G(34)"1"G(34)" KEY, AND..%&.." THE
DIRECTORY WILL BE ALPHABETIZED.\%+.." AU
TOMATICALLY. PROGRAMS & FILES WILL"..%0
.." BE GROUPED SEPARATELY.":.:." IF YOU
WISH TO SORT THEM IN SOME.T%:.." OTHER O
RDER, PRESS THE "G(34)"2"G(34)" KEY...&?
..:." .(PRESS ANY KEY TO CONTINUE).";
..&A.. AN$:. AN$."".1857.J&D..".":." YOU
WILL THEN BE GIVEN CONTROL OF THE.M&N..
" CURSOR. USING THE NORMAL";..&X.." KEY
BOARD":." CONTROLS, RE-NUMBER THE ENTRIE
S.J&B.." IN ANY ORDER YOU WISH. JUST TY
PE..&L.." OVER THE OLD NUMBERS WITH YOUR
NEW". 'V.." ONES. WHEN DONE, PRESS THE
F7 KEY..O'...:." THE PROGRAM WILL CHECK
YOUR NUMBERING.}'..." FOR ERRORS, THEN
DISPLAY THE DIRECTORY..'..." ENTRIES IN
THEIR NEW ORDER, AND ASK..'..." "G(34)"O
KAY?"G(34)". IF YOU ANSWER YES, THE..(.
.." NEW DIRECTORY WILL BE WRITTEN TO THE
.2(..." DISK. IF YOU ANSWER NO, YOU'LL
BE.\(..." GIVEN THE CHANCE TO RE-DO IT U
NTIL..(F.." YOU'RE SATISFIED. TO ABORT,
PRESS..(P.." THE RUN-STOP KEY AT ANY TI
ME..W(Z..:." IF YOUR DIRECTORY HAS MORE
THAN 46..)..." ENTRIES (MAX=92), IT WILL
BE DISPLAYED./)..." ON TWO SEPARATE PAG
ES. USE THE F1.W)..." KEY AT ANY TIME T
O FLIP BACK AND.{)..." FORTH BETWEEN THE
TWO PAGES...)...:." .(PRESS ANY KE
Y TO RETURN).";..)...AN$:.AN$."".2070.C)
......
> CLICK IMAGE PREVIEW FOR FULL MODAL