DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-11-30 20:19:30
APPEARS ON: 1 disk(s)
FILE HASH
446925d1ff3435f698d138271f63c76c7996c68f4dcb5c07fd0ed7b806068fd6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | DISK MASTER | PRG | Curtcool, Malcom | 28 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 44 08 D2 00 9C 3A 8D 20 31 39 38 30 3A 86 |..D....:. 1980:.|
00000010: 20 44 24 28 32 32 35 29 2C 58 24 28 32 32 35 29 | D$(225),X$(225)|
00000020: 2C 55 28 32 32 35 2C 32 29 2C 42 24 28 32 35 35 |,U(225,2),B$(255|
00000030: 29 3A 46 54 24 B2 22 53 45 51 50 47 4D 55 53 52 |):FT$."SEQPGMUSR|
00000040: 52 45 4C 22 00 67 08 DC 00 44 31 B2 38 20 20 20 |REL".g...D1.8 |
00000050: 3A 8F 20 2D 4D 41 53 54 45 52 20 44 49 53 4B 20 |:. -MASTER DISK |
00000060: 44 45 56 49 43 45 23 00 89 08 E6 00 44 31 24 B2 |DEVICE#.....D1$.|
00000070: 22 30 22 3A 8F 20 2D 4D 41 53 54 45 52 20 44 49 |"0":. -MASTER DI|
00000080: 53 4B 20 44 52 49 56 45 23 00 AD 08 F0 00 44 32 |SK DRIVE#.....D2|
00000090: B2 38 20 20 20 3A 8F 20 2D 43 41 54 41 4C 4F 47 |.8 :. -CATALOG|
000000A0: 20 44 49 53 4B 20 44 45 56 49 43 45 23 00 D0 08 | DISK DEVICE#...|
000000B0: FA 00 44 32 24 B2 22 30 22 3A 8F 20 2D 43 41 54 |..D2$."0":. -CAT|
000000C0: 41 4C 4F 47 20 44 49 53 4B 20 44 52 49 56 45 23 |ALOG DISK DRIVE#|
000000D0: 00 F2 08 04 01 42 46 B2 31 38 20 20 3A 8F 20 2D |.....BF.18 :. -|
000000E0: 33 39 20 46 4F 52 20 38 30 35 30 20 44 52 49 56 |39 FOR 8050 DRIV|
000000F0: 45 53 00 13 09 0E 01 3A 20 20 20 20 20 20 3A 8F |ES.....: :.|
00000100: 20 2D 31 38 20 46 4F 52 20 41 4C 4C 20 4F 54 48 | -18 FOR ALL OTH|
00000110: 45 52 53 00 3A 09 18 01 51 24 B2 C7 28 33 34 29 |ERS.:...Q$..(34)|
00000120: 3A 20 A0 20 31 35 3A 20 9F 20 31 35 2C 44 31 2C |: . 15: . 15,D1,|
00000130: 31 35 3A 20 8D 20 32 33 36 30 00 71 09 22 01 43 |15: . 2360.q.".C|
00000140: 58 B2 32 3A 20 8D 20 31 39 39 30 3A 20 99 22 52 |X.2: . 1990: ."R|
00000150: 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 |EADING DIRECTORY|
00000160: 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 | CROSS REFERENCE|
00000170: 22 00 9D 09 2C 01 A0 20 35 3A 20 9F 20 35 2C 44 |"...,.. 5: . 5,D|
00000180: 31 2C 35 2C 44 31 24 AA 22 3A 44 49 53 4B 20 4D |1,5,D1$.":DISK M|
00000190: 53 54 52 20 58 52 45 46 2C 53 2C 52 22 00 C1 09 |STR XREF,S,R"...|
000001A0: 36 01 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |6..15,EN,EM$,ET,|
000001B0: 45 53 3A 20 8B 20 45 4E B2 36 32 20 A7 20 33 34 |ES: . EN.62 . 34|
000001C0: 30 00 D3 09 40 01 8B 20 45 4E B1 30 20 A7 20 32 |0...@.. EN.0 . 2|
000001D0: 32 37 30 00 12 0A 4A 01 84 35 2C 58 24 28 4E 58 |270...J..5,X$(NX|
000001E0: 29 2C 56 3A 8D 20 32 32 36 30 3A 55 28 4E 58 2C |),V:. 2260:U(NX,|
000001F0: 31 29 B2 56 3A 55 28 56 2C 32 29 B2 31 3A 4E 58 |1).V:U(V,2).1:NX|
00000200: B2 4E 58 AA 31 3A 8B 20 53 53 B2 30 20 A7 20 33 |.NX.1:. SS.0 . 3|
00000210: 33 30 00 3C 0A 54 01 A0 20 35 3A 20 43 58 B2 30 |30.<.T.. 5: CX.0|
00000220: 3A 20 8D 20 31 39 38 30 3A 20 99 22 11 20 20 20 |: . 1980: .". |
00000230: 20 20 30 20 2D 20 44 4F 4E 45 11 22 00 65 0A 5E | 0 - DONE.".e.^|
00000240: 01 99 22 20 20 20 20 20 31 20 2D 20 55 50 44 41 |.." 1 - UPDA|
00000250: 54 45 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 |TE MASTER DIRECT|
00000260: 4F 52 59 11 22 00 94 0A 68 01 99 22 20 20 20 20 |ORY."...h.." |
00000270: 20 32 20 2D 20 44 45 4C 45 54 45 20 44 49 53 4B | 2 - DELETE DISK|
00000280: 20 45 4E 54 52 59 20 46 52 4F 4D 20 4D 41 53 54 | ENTRY FROM MAST|
00000290: 45 52 11 22 00 C0 0A 72 01 99 22 20 20 20 20 20 |ER."...r.." |
000002A0: 33 20 2D 20 44 49 53 50 4C 41 59 20 53 45 4C 45 |3 - DISPLAY SELE|
000002B0: 43 54 45 44 20 44 49 52 45 43 54 4F 52 59 11 22 |CTED DIRECTORY."|
000002C0: 00 E8 0A 7C 01 99 22 20 20 20 20 20 34 20 2D 20 |...|.." 4 - |
000002D0: 4C 49 53 54 20 44 49 53 4B 20 49 44 27 53 20 26 |LIST DISK ID'S &|
000002E0: 20 4E 41 4D 45 53 11 22 00 0D 0B 86 01 99 22 20 | NAMES."......" |
000002F0: 20 20 20 20 35 20 2D 20 46 49 4E 44 20 53 50 45 | 5 - FIND SPE|
00000300: 43 49 46 49 45 44 20 46 49 4C 45 11 22 00 37 0B |CIFIED FILE.".7.|
00000310: 90 01 8D 20 31 39 39 30 3A 20 99 22 45 4E 54 45 |... 1990: ."ENTE|
00000320: 52 20 44 45 53 49 52 45 44 20 46 55 4E 43 54 49 |R DESIRED FUNCTI|
00000330: 4F 4E 3A 20 20 22 3B 00 5A 0B 9A 01 8D 20 31 39 |ON: ";.Z.... 19|
00000340: 36 30 3A 20 8B 20 43 24 B2 22 30 22 20 A7 20 99 |60: . C$."0" . .|
00000350: 22 93 22 3A 89 20 32 33 33 30 00 8B 0B A4 01 56 |".":. 2330.....V|
00000360: B2 C5 28 43 24 29 3A 20 91 20 56 20 89 20 34 33 |..(C$): . V . 43|
00000370: 30 2C 39 36 30 2C 31 30 31 30 2C 31 31 34 30 2C |0,960,1010,1140,|
00000380: 31 36 30 30 3A 20 89 20 34 31 30 00 C7 0B AE 01 |1600: . 410.....|
00000390: 43 58 B2 30 3A 20 99 22 93 11 20 20 20 20 20 20 |CX.0: .".. |
000003A0: 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |INSERT DISK TO B|
000003B0: 45 20 43 41 54 41 4C 4F 47 45 44 22 3A 20 A0 20 |E CATALOGED": . |
000003C0: 35 3A 20 A0 20 31 35 00 0A 0C B8 01 8B 28 44 31 |5: . 15......(D1|
000003D0: B3 B1 44 32 29 B0 28 44 31 24 B3 B1 44 32 24 29 |..D2).(D1$..D2$)|
000003E0: A7 20 99 22 11 20 20 20 20 20 20 20 49 4E 20 44 |. .". IN D|
000003F0: 45 56 49 43 45 23 22 3B 44 32 3B 22 20 20 44 52 |EVICE#";D2;" DR|
00000400: 49 56 45 23 20 22 3B 44 32 24 00 41 0C C2 01 99 |IVE# ";D2$.A....|
00000410: 3A 8D 20 31 39 39 30 3A 99 22 20 20 20 20 20 50 |:. 1990:." P|
00000420: 52 45 53 53 20 12 43 92 20 54 4F 20 43 41 54 41 |RESS .C. TO CATA|
00000430: 4C 4F 47 2C 20 12 51 92 20 54 4F 20 51 55 49 54 |LOG, .Q. TO QUIT|
00000440: 22 00 64 0C CC 01 A1 20 43 24 3A 20 8B 20 43 24 |".d.... C$: . C$|
00000450: B2 22 51 22 20 A7 20 8D 20 32 33 34 30 3A 20 89 |."Q" . . 2340: .|
00000460: 20 33 34 30 00 77 0C D6 01 8B 20 43 24 B3 B1 22 | 340.w.... C$.."|
00000470: 43 22 A7 20 34 36 30 00 B3 0C E0 01 8D 20 31 39 |C". 460...... 19|
00000480: 39 30 3A 99 22 4F 4B 2C 20 52 45 41 44 49 4E 47 |90:."OK, READING|
00000490: 20 42 41 4D 20 2E 2E 2E 22 3A 9F 20 31 35 2C 44 | BAM ...":. 15,D|
000004A0: 32 2C 31 35 2C 22 49 22 AA 44 32 24 3A 8D 20 32 |2,15,"I".D2$:. 2|
000004B0: 32 36 30 00 E5 0C EA 01 4D 44 B2 30 3A 20 9F 20 |260.....MD.0: . |
000004C0: 35 2C 44 32 2C 35 2C 22 23 30 22 3A 8D 20 32 32 |5,D2,5,"#0":. 22|
000004D0: 36 30 3A 20 54 B2 42 46 3A 20 53 B2 30 3A 20 8D |60: T.BF: S.0: .|
000004E0: 20 32 31 34 30 00 FF 0C F4 01 4D 46 B2 31 34 34 | 2140.....MF.144|
000004F0: 3A 20 8B 20 42 46 B2 31 38 20 A7 20 35 36 30 00 |: . BF.18 . 560.|
00000500: 31 0D FE 01 4D 46 B2 32 32 34 3A 20 44 4E 24 B2 |1...MF.224: DN$.|
00000510: 22 22 3A 20 81 20 5A B2 36 20 A4 20 32 31 3A 20 |"": . Z.6 . 21: |
00000520: 44 4E 24 B2 44 4E 24 AA 42 24 28 5A 29 3A 82 20 |DN$.DN$.B$(Z):. |
00000530: 5A 00 5E 0D 08 02 53 24 B2 42 24 28 32 34 29 3A |Z.^...S$.B$(24):|
00000540: 20 8B 20 42 24 28 32 35 29 B3 B1 C7 28 30 29 20 | . B$(25)...(0) |
00000550: A7 20 53 24 B2 53 24 AA 42 24 28 32 35 29 00 81 |. S$.S$.B$(25)..|
00000560: 0D 12 02 44 46 24 B2 42 24 28 32 37 29 AA 42 24 |...DF$.B$(27).B$|
00000570: 28 32 38 29 3A 4E 42 B2 30 3A 20 8D 20 32 31 33 |(28):NB.0: . 213|
00000580: 30 00 B0 0D 1C 02 81 20 5A B2 36 20 A4 20 32 35 |0...... Z.6 . 25|
00000590: 31 20 A9 20 35 3A 20 8B 20 5A B3 B1 31 39 36 20 |1 . 5: . Z..196 |
000005A0: A7 20 4E 42 B2 4E 42 AA C6 28 42 24 28 5A 29 29 |. NB.NB..(B$(Z))|
000005B0: 00 E7 0D 26 02 82 20 5A 3A 8D 20 32 31 33 30 3A |...&.. Z:. 2130:|
000005C0: 81 20 5A B2 36 20 A4 20 31 33 36 20 A9 20 35 3A |. Z.6 . 136 . 5:|
000005D0: 4E 42 B2 4E 42 AA C6 28 42 24 28 5A 29 29 3A 82 |NB.NB..(B$(Z)):.|
000005E0: 20 5A 3A 89 36 30 30 00 27 0E 30 02 44 46 24 B2 | Z:.600.'.0.DF$.|
000005F0: 42 24 28 31 36 35 29 AA 42 24 28 31 36 36 29 3A |B$(165).B$(166):|
00000600: 4E 42 B2 30 3A 81 5A B2 34 A4 20 31 34 30 A9 34 |NB.0:.Z.4. 140.4|
00000610: 3A 8B 5A B3 B1 37 32 A7 20 4E 42 B2 4E 42 AA C6 |:.Z..72. NB.NB..|
00000620: 28 42 24 28 5A 29 29 00 2F 0E 35 02 82 20 5A 00 |(B$(Z))./.5.. Z.|
00000630: 6C 0E 3A 02 8B C6 28 42 24 28 33 29 29 B2 31 32 |l.:...(B$(3)).12|
00000640: 38 A7 81 5A B2 32 32 31 A4 32 35 35 3A 4E 42 B2 |8..Z.221.255:NB.|
00000650: 4E 42 AA C6 28 42 24 28 5A 29 29 3A 82 5A 3A 44 |NB..(B$(Z)):.Z:D|
00000660: 46 24 B2 44 46 24 AA 22 2D 44 53 22 00 9A 0E 44 |F$.DF$."-DS"...D|
00000670: 02 44 4E 24 B2 22 22 3A 20 81 20 5A B2 31 34 34 |.DN$."": . Z.144|
00000680: 20 A4 20 31 35 39 3A 20 44 4E 24 B2 44 4E 24 AA | . 159: DN$.DN$.|
00000690: 42 24 28 5A 29 3A 20 82 20 5A 00 CA 0E 4E 02 53 |B$(Z): . Z...N.S|
000006A0: 24 B2 42 24 28 31 36 32 29 3A 20 8B 20 42 24 28 |$.B$(162): . B$(|
000006B0: 31 36 33 29 B3 B1 C7 28 30 29 20 A7 20 53 24 B2 |163)...(0) . S$.|
000006C0: 53 24 AA 42 24 28 31 36 33 29 00 FB 0E 58 02 44 |S$.B$(163)...X.D|
000006D0: 49 24 B2 C8 28 53 24 AA 22 20 20 22 2C 32 29 3A |I$..(S$." ",2):|
000006E0: 20 55 31 B2 AB 31 3A 20 55 32 B2 4E 58 3A 20 8B | U1..1: U2.NX: .|
000006F0: 20 4E 58 B2 30 20 A7 20 36 38 30 00 2A 0F 62 02 | NX.0 . 680.*.b.|
00000700: 43 24 B2 44 49 24 AA 44 4E 24 3A 20 81 20 58 B2 |C$.DI$.DN$: . X.|
00000710: 30 20 A4 20 4E 58 AB 31 3A 20 8B 20 43 24 B3 58 |0 . NX.1: . C$.X|
00000720: 24 28 58 29 20 A7 20 36 37 30 00 47 0F 6C 02 8B |$(X) . 670.G.l..|
00000730: 20 43 24 B3 B1 58 24 28 58 29 20 A7 20 82 20 58 | C$..X$(X) . . X|
00000740: 3A 20 89 20 36 38 30 00 89 0F 76 02 55 31 B2 58 |: . 680...v.U1.X|
00000750: 3A 58 B2 4E 58 3A 82 20 58 3A 99 22 93 11 12 2A |:X.NX:. X:."...*|
00000760: 2A 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 92 20 |** WARNING ***. |
00000770: 20 54 48 49 53 20 44 49 53 4B 20 49 44 3A 20 12 | THIS DISK ID: .|
00000780: 22 3B 44 49 24 3B 22 92 22 00 C8 0F 80 02 99 22 |";DI$;"."......"|
00000790: 11 44 49 53 4B 20 4E 41 4D 45 3A 20 12 22 3B 44 |.DISK NAME: .";D|
000007A0: 4E 24 3A 20 99 22 11 49 53 20 41 4C 4C 20 52 45 |N$: .".IS ALL RE|
000007B0: 41 44 59 20 43 41 54 41 4C 4F 47 45 44 2E 11 22 |ADY CATALOGED.."|
000007C0: 3A 20 8D 20 31 39 39 30 00 09 10 8A 02 99 22 11 |: . 1990......".|
000007D0: 43 41 54 41 4C 4F 47 49 4E 47 20 54 48 49 53 20 |CATALOGING THIS |
000007E0: 44 49 53 4B 22 3A 99 22 11 57 49 4C 4C 20 44 45 |DISK":.".WILL DE|
000007F0: 4C 45 54 45 20 54 48 45 20 50 52 45 56 49 4F 55 |LETE THE PREVIOU|
00000800: 53 20 44 41 54 41 21 11 22 00 42 10 94 02 8D 20 |S DATA!.".B.... |
00000810: 31 39 39 30 3A 20 99 22 4F 4B 20 54 4F 20 52 45 |1990: ."OK TO RE|
00000820: 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 |CATALOG THIS DIS|
00000830: 4B 22 3B 3A 20 8D 20 32 30 32 30 3A 20 89 20 36 |K";: . 2020: . 6|
00000840: 39 30 00 54 10 9E 02 55 32 B2 58 3A 58 B2 4E 58 |90.T...U2.X:X.NX|
00000850: 3A 82 20 58 00 5F 10 A8 02 8D 20 32 30 30 30 00 |:. X._.... 2000.|
00000860: 72 10 B2 02 8B 20 43 24 B2 22 4E 22 20 A7 20 34 |r.... C$."N" . 4|
00000870: 33 30 00 A5 10 BC 02 8D 20 31 39 39 30 3A 20 99 |30...... 1990: .|
00000880: 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F |"READING DIRECTO|
00000890: 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E 22 3A |RY ENTRIES ...":|
000008A0: 20 4E 46 B2 30 00 D9 10 C6 02 54 31 B2 54 3A 20 | NF.0.....T1.T: |
000008B0: 54 B2 C6 28 42 24 28 30 29 29 3A 20 53 31 B2 53 |T..(B$(0)): S1.S|
000008C0: 3A 20 53 B2 C6 28 42 24 28 31 29 29 3A 20 8B 20 |: S..(B$(1)): . |
000008D0: 54 B2 30 20 A7 20 38 36 30 00 F1 10 D0 02 8B 20 |T.0 . 860...... |
000008E0: 54 B2 54 31 20 AF 20 53 B2 53 31 20 A7 20 38 32 |T.T1 . S.S1 . 82|
000008F0: 30 00 28 11 DA 02 8D 20 32 31 34 30 3A 20 81 20 |0.(.... 2140: . |
00000900: 5A B2 32 20 A4 20 32 32 36 20 A9 20 33 32 3A 20 |Z.2 . 226 . 32: |
00000910: 8B 20 28 C6 28 42 24 28 5A 29 29 20 AF 20 37 29 |. (.(B$(Z)) . 7)|
00000920: B2 30 20 A7 20 38 30 30 00 5F 11 E4 02 53 24 B2 |.0 . 800._...S$.|
00000930: 22 22 3A 20 81 20 58 B2 33 20 A4 20 31 38 3A 20 |"": . X.3 . 18: |
00000940: 53 24 B2 53 24 AA 42 24 28 5A AA 58 29 3A 82 20 |S$.S$.B$(Z.X):. |
00000950: 58 3A 20 8B 20 4E 46 B2 30 20 A7 20 37 37 30 00 |X: . NF.0 . 770.|
00000960: 93 11 EE 02 50 B2 30 3A 20 81 20 58 B2 31 20 A4 |....P.0: . X.1 .|
00000970: 20 4E 46 3A 20 8B 20 53 24 B3 CA 28 44 24 28 58 | NF: . S$..(D$(X|
00000980: 29 2C 32 2C 31 36 29 20 A7 20 50 B2 58 3A 20 58 |),2,16) . P.X: X|
00000990: B2 4E 46 00 A8 11 F8 02 82 20 58 3A 20 8B 20 50 |.NF...... X: . P|
000009A0: B1 30 20 A7 20 37 38 30 00 BA 11 02 03 50 B2 4E |.0 . 780.....P.N|
000009B0: 46 AA 31 3A 20 89 20 37 39 30 00 E2 11 0C 03 81 |F.1: . 790......|
000009C0: 20 59 B2 4E 46 20 A4 20 50 20 A9 20 AB 31 3A 20 | Y.NF . P . .1: |
000009D0: 44 24 28 59 AA 31 29 B2 44 24 28 59 29 3A 20 82 |D$(Y.1).D$(Y): .|
000009E0: 20 59 00 10 12 16 03 44 24 28 50 29 B2 42 24 28 | Y.....D$(P).B$(|
000009F0: 5A 29 AA 53 24 AA 42 24 28 5A AA 32 38 29 AA 42 |Z).S$.B$(Z.28).B|
00000A00: 24 28 5A AA 32 39 29 3A 20 4E 46 B2 4E 46 AA 31 |$(Z.29): NF.NF.1|
00000A10: 00 2A 12 20 03 8B 20 4E 46 B3 B2 4D 46 20 A7 20 |.*. .. NF..MF . |
00000A20: 82 20 5A 3A 20 89 20 37 31 30 00 39 12 2A 03 5A |. Z: . 710.9.*.Z|
00000A30: B2 32 32 36 3A 20 82 20 5A 00 6A 12 34 03 99 22 |.226: . Z.j.4.."|
00000A40: 93 11 20 20 20 12 2A 2A 2A 20 44 49 53 4B 20 44 |.. .*** DISK D|
00000A50: 49 52 45 43 54 4F 52 59 20 49 53 20 49 4E 56 41 |IRECTORY IS INVA|
00000A60: 4C 49 44 20 2A 2A 2A 92 11 22 00 A2 12 3E 03 8D |LID ***.."...>..|
00000A70: 20 31 39 39 30 3A 20 99 22 11 11 11 20 20 20 43 | 1990: ."... C|
00000A80: 55 52 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E |URRENT DISK CANN|
00000A90: 4F 54 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 |OT BE CATALOGED!|
00000AA0: 11 22 00 D4 12 48 03 99 22 54 4F 4F 20 4D 41 4E |."...H.."TOO MAN|
00000AB0: 59 20 45 4E 54 52 49 45 53 20 4F 52 20 4E 4F 4E |Y ENTRIES OR NON|
00000AC0: 2D 53 54 41 4E 44 41 52 44 20 46 4F 52 4D 41 54 |-STANDARD FORMAT|
00000AD0: 11 11 11 22 00 0E 13 5C 03 A0 20 35 3A 20 8D 20 |..."...\.. 5: . |
00000AE0: 32 33 34 30 3A 20 8D 20 31 39 39 30 3A 20 99 22 |2340: . 1990: ."|
00000AF0: 55 50 44 41 54 49 4E 47 20 4D 41 53 54 45 52 20 |UPDATING MASTER |
00000B00: 44 49 52 45 43 54 4F 52 59 20 2E 2E 2E 22 00 27 |DIRECTORY ...".'|
00000B10: 13 66 03 8B 20 55 31 B1 AB 31 20 A7 20 58 B2 55 |.f.. U1..1 . X.U|
00000B20: 31 3A 89 20 39 32 30 00 3E 13 70 03 58 B2 55 32 |1:. 920.>.p.X.U2|
00000B30: 3A 20 8B 20 58 B2 4E 58 20 A7 20 39 30 30 00 78 |: . X.NX . 900.x|
00000B40: 13 7A 03 81 20 59 B2 4E 58 AB 31 20 A4 20 58 20 |.z.. Y.NX.1 . X |
00000B50: A9 20 AB 31 3A 20 58 24 28 59 AA 31 29 B2 58 24 |. .1: X$(Y.1).X$|
00000B60: 28 59 29 3A 20 55 28 59 AA 31 2C 31 29 B2 55 28 |(Y): U(Y.1,1).U(|
00000B70: 59 2C 31 29 3A 82 20 59 00 9B 13 84 03 81 20 59 |Y,1):. Y...... Y|
00000B80: B2 30 20 A4 20 4E 58 AA 31 3A 20 8B 20 55 28 59 |.0 . NX.1: . U(Y|
00000B90: 2C 32 29 B2 31 20 A7 20 82 20 59 00 D5 13 8E 03 |,2).1 . . Y.....|
00000BA0: 55 28 59 2C 32 29 B2 31 3A 20 55 28 58 2C 31 29 |U(Y,2).1: U(X,1)|
00000BB0: B2 59 3A 20 58 24 28 58 29 B2 44 49 24 AA 44 4E |.Y: X$(X).DI$.DN|
00000BC0: 24 3A 20 4E 58 B2 4E 58 AA 31 3A 20 59 B2 4E 58 |$: NX.NX.1: Y.NX|
00000BD0: 3A 20 82 20 59 00 08 14 98 03 8D 20 31 38 34 30 |: . Y...... 1840|
00000BE0: 3A 20 98 31 35 2C 22 53 22 AA 53 24 3A 20 9F 20 |: .15,"S".S$: . |
00000BF0: 35 2C 44 31 2C 35 2C 53 24 AA 22 2C 53 2C 57 22 |5,D1,5,S$.",S,W"|
00000C00: 3A 20 8D 20 32 32 36 30 00 30 14 A2 03 98 35 2C |: . 2260.0....5,|
00000C10: 44 46 24 3B 22 2C 22 3B 4E 42 3A 20 8D 20 32 32 |DF$;",";NB: . 22|
00000C20: 36 30 3A 20 8B 20 4E 46 B2 30 20 A7 20 39 35 30 |60: . NF.0 . 950|
00000C30: 00 56 14 AC 03 81 20 58 B2 31 20 A4 20 4E 46 3A |.V.... X.1 . NF:|
00000C40: 20 98 35 2C 44 24 28 58 29 3A 20 8D 20 32 32 36 | .5,D$(X): . 226|
00000C50: 30 3A 20 82 20 58 00 73 14 B6 03 A0 20 35 3A 20 |0: . X.s.... 5: |
00000C60: 43 58 B2 31 3A 20 8D 20 32 31 38 30 3A 20 89 20 |CX.1: . 2180: . |
00000C70: 34 33 30 00 A0 14 C0 03 99 22 93 54 4F 20 44 45 |430......".TO DE|
00000C80: 4C 45 54 45 20 44 49 53 4B 20 46 52 4F 4D 20 4D |LETE DISK FROM M|
00000C90: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 |ASTER DIRECTORY"|
00000CA0: 00 BB 14 CA 03 8D 20 31 37 33 30 3A 20 91 20 56 |...... 1730: . V|
00000CB0: 20 89 20 31 30 30 30 2C 39 36 30 00 F2 14 D4 03 | . 1000,960.....|
00000CC0: 43 58 B2 31 3A 20 98 31 35 2C 22 53 22 AA 53 24 |CX.1: .15,"S".S$|
00000CD0: 3A 20 59 B2 55 28 58 2C 31 29 3A 20 55 28 59 2C |: Y.U(X,1): U(Y,|
00000CE0: 32 29 B2 30 3A 20 81 20 59 B2 58 20 A4 20 4E 58 |2).0: . Y.X . NX|
00000CF0: AB 31 00 2A 15 DE 03 58 24 28 59 29 B2 58 24 28 |.1.*...X$(Y).X$(|
00000D00: 59 AA 31 29 3A 20 55 28 59 2C 31 29 B2 55 28 59 |Y.1): U(Y,1).U(Y|
00000D10: AA 31 2C 31 29 3A 20 82 20 59 3A 20 4E 58 B2 4E |.1,1): . Y: NX.N|
00000D20: 58 AB 31 3A 20 89 20 39 36 30 00 3C 15 E8 03 8D |X.1: . 960.<....|
00000D30: 20 32 31 38 30 3A 20 89 20 33 34 30 00 75 15 F2 | 2180: . 340.u..|
00000D40: 03 99 22 93 54 4F 20 44 49 53 50 4C 41 59 20 44 |..".TO DISPLAY D|
00000D50: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 8D |ISK DIRECTORY":.|
00000D60: 20 31 37 33 30 3A 20 91 20 56 20 89 20 33 34 30 | 1730: . V . 340|
00000D70: 2C 31 30 31 30 00 A7 15 FC 03 8D 20 32 31 37 30 |,1010...... 2170|
00000D80: 3A 20 8D 20 31 38 38 30 3A 20 4E 46 B2 30 3A 20 |: . 1880: NF.0: |
00000D90: 98 34 2C 22 20 20 44 49 53 4B 20 4E 41 4D 45 3A |.4," DISK NAME:|
00000DA0: 20 20 22 3B 44 4E 24 00 D7 15 06 04 98 34 2C 22 | ";DN$......4,"|
00000DB0: 20 20 20 20 44 49 53 4B 20 49 44 3A 20 20 22 3B | DISK ID: ";|
00000DC0: 44 49 24 3B A6 38 29 3B 22 46 4F 52 4D 41 54 3A |DI$;.8);"FORMAT:|
00000DD0: 20 20 22 3B 44 46 24 00 F1 15 10 04 98 34 2C 22 | ";DF$......4,"|
00000DE0: 42 4C 4F 43 4B 53 20 46 52 45 45 3A 20 22 3B 4E |BLOCKS FREE: ";N|
00000DF0: 42 00 31 16 1A 04 98 34 2C 22 2D 2D 2D 2D 2D 2D |B.1....4,"------|
00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E20: 2D 22 3A 20 8B 20 53 53 B1 30 20 A7 20 31 31 32 |-": . SS.0 . 112|
00000E30: 30 00 6A 16 24 04 8D 20 32 30 35 30 3A 20 98 34 |0.j.$.. 2050: .4|
00000E40: 2C C9 28 22 20 20 20 20 22 AA C4 28 58 31 AA 28 |,.(" "..(X1.(|
00000E50: 32 35 36 AC 58 32 29 29 2C 34 29 3B 22 20 20 22 |256.X2)),4);" "|
00000E60: 3B 53 24 3B 22 20 20 20 22 3B 00 8D 16 2E 04 56 |;S$;" ";.....V|
00000E70: B2 28 46 54 20 AF 20 37 29 AC 33 AB 32 3A 20 98 |.(FT . 7).3.2: .|
00000E80: 34 2C CA 28 46 54 24 2C 56 2C 33 29 3B 00 B1 16 |4,.(FT$,V,3);...|
00000E90: 38 04 8B 20 28 46 54 20 AF 20 31 32 38 29 B2 30 |8.. (FT . 128).0|
00000EA0: 20 A7 20 98 34 2C 22 20 20 28 4F 50 45 4E 29 22 | . .4," (OPEN)"|
00000EB0: 3B 00 D2 16 42 04 8B 20 46 54 B1 B2 31 39 33 20 |;...B.. FT..193 |
00000EC0: A7 20 98 34 2C 22 20 20 28 4C 4F 43 4B 45 44 29 |. .4," (LOCKED)|
00000ED0: 22 3B 00 F2 16 4C 04 98 34 3A 20 8D 20 31 39 31 |";...L..4: . 191|
00000EE0: 30 3A 20 8B 20 43 24 B2 22 51 22 20 A7 20 31 31 |0: . C$."Q" . 11|
00000EF0: 33 30 00 0D 17 56 04 4E 46 B2 4E 46 AA 31 3A 20 |30...V.NF.NF.1: |
00000F00: 8B 20 53 53 B2 30 20 A7 20 31 30 36 30 00 2E 17 |. SS.0 . 1060...|
00000F10: 60 04 98 34 3A 20 98 34 2C 22 23 46 49 4C 45 53 |`..4: .4,"#FILES|
00000F20: 3A 20 22 3B 4E 46 3A 20 8D 20 31 39 33 30 00 43 |: ";NF: . 1930.C|
00000F30: 17 6A 04 A0 20 34 3A 20 A0 20 35 3A 20 89 20 31 |.j.. 4: . 5: . 1|
00000F40: 30 31 30 00 5E 17 74 04 8B 20 4E 58 B2 30 20 A7 |010.^.t.. NX.0 .|
00000F50: 20 8D 20 31 37 33 30 3A 20 89 20 33 34 30 00 96 | . 1730: . 340..|
00000F60: 17 7E 04 8D 20 31 39 38 30 3A 20 99 20 22 11 20 |.~.. 1980: . ". |
00000F70: 20 20 20 20 30 20 2D 20 52 45 54 55 52 4E 20 54 | 0 - RETURN T|
00000F80: 4F 20 4D 41 49 4E 20 46 55 4E 43 54 49 4F 4E 20 |O MAIN FUNCTION |
00000F90: 4D 45 4E 55 11 22 00 C1 17 88 04 99 22 20 20 20 |MENU."......" |
00000FA0: 20 20 31 20 2D 20 4C 49 53 54 20 46 55 4C 4C 20 | 1 - LIST FULL |
00000FB0: 49 44 20 55 53 45 41 47 45 20 43 48 41 52 54 11 |ID USEAGE CHART.|
00000FC0: 22 00 EC 17 92 04 99 22 20 20 20 20 20 32 20 2D |"......" 2 -|
00000FD0: 20 51 55 49 43 4B 20 4C 49 53 54 20 4F 46 20 49 | QUICK LIST OF I|
00000FE0: 44 27 53 20 49 4E 20 55 53 45 11 22 00 14 18 9C |D'S IN USE."....|
00000FF0: 04 99 22 20 20 20 20 20 33 20 2D 20 4C 49 53 54 |.." 3 - LIST|
00001000: 20 44 49 53 4B 20 49 44 27 53 20 26 20 4E 41 4D | DISK ID'S & NAM|
00001010: 45 53 11 22 00 45 18 A6 04 99 22 20 20 20 20 20 |ES.".E...." |
00001020: 34 20 2D 20 4C 49 53 54 20 12 4D 49 4E 92 20 46 |4 - LIST .MIN. F|
00001030: 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 |REE BLOCKS PER D|
00001040: 49 53 4B 11 22 00 76 18 B0 04 99 22 20 20 20 20 |ISK.".v...." |
00001050: 20 35 20 2D 20 4C 49 53 54 20 12 4D 41 58 92 20 | 5 - LIST .MAX. |
00001060: 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 |FREE BLOCKS PER |
00001070: 44 49 53 4B 11 22 00 A0 18 BA 04 8D 20 31 39 39 |DISK."...... 199|
00001080: 30 3A 20 99 22 45 4E 54 45 52 20 44 45 53 49 52 |0: ."ENTER DESIR|
00001090: 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B |ED FUNCTION: ";|
000010A0: 00 BB 18 C4 04 8D 20 31 39 36 30 3A 20 8B 20 43 |...... 1960: . C|
000010B0: 24 B2 22 30 22 20 A7 20 33 34 30 00 DB 18 CE 04 |$."0" . 340.....|
000010C0: 56 B2 C5 28 43 24 29 3A 20 8B 20 56 B3 31 20 B0 |V..(C$): . V.1 .|
000010D0: 20 56 B1 35 20 A7 20 31 32 32 30 00 04 19 D8 04 | V.5 . 1220.....|
000010E0: 99 20 43 24 3A 20 91 20 56 20 89 20 31 32 35 30 |. C$: . V . 1250|
000010F0: 2C 31 33 38 30 2C 31 34 35 30 2C 31 34 37 30 2C |,1380,1450,1470,|
00001100: 31 35 30 30 00 38 19 E2 04 8D 20 31 38 38 30 3A |1500.8.... 1880:|
00001110: 20 8D 20 32 34 30 30 3A 20 5A B2 30 3A 20 81 20 | . 2400: Z.0: . |
00001120: 58 B2 34 38 20 A4 20 39 30 3A 20 8B 20 58 B2 35 |X.48 . 90: . X.5|
00001130: 38 20 A7 20 58 B2 36 35 00 52 19 EC 04 8B 20 50 |8 . X.65.R.... P|
00001140: 44 B2 34 20 B0 20 58 B3 B1 37 33 20 A7 20 31 33 |D.4 . X..73 . 13|
00001150: 30 30 00 8A 19 F6 04 8D 20 31 39 39 30 3A 20 99 |00...... 1990: .|
00001160: 22 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |" PRESS ANY KEY|
00001170: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 12 51 | TO CONTINUE, .Q|
00001180: 92 20 54 4F 20 51 55 49 54 22 00 B5 19 00 05 8D |. TO QUIT"......|
00001190: 20 31 39 36 30 3A 20 8B 20 43 24 B2 22 51 22 20 | 1960: . C$."Q" |
000011A0: A7 20 58 B2 39 39 39 39 3A 20 82 20 58 3A 20 89 |. X.9999: . X: .|
000011B0: 20 31 31 35 30 00 C7 19 0A 05 99 22 93 22 3B 3A | 1150......".";:|
000011C0: 20 8D 20 32 34 30 30 00 F4 19 14 05 98 34 2C C7 | . 2400......4,.|
000011D0: 28 58 29 3B 22 20 22 3B 3A 20 81 20 59 B2 34 38 |(X);" ";: . Y.48|
000011E0: 20 A4 20 39 30 3A 20 8B 20 59 B2 35 38 20 A7 20 | . 90: . Y.58 . |
000011F0: 59 B2 36 35 00 06 1A 1E 05 8B 20 5A B2 4E 58 20 |Y.65...... Z.NX |
00001200: A7 20 31 33 36 30 00 41 1A 28 05 81 20 56 B2 31 |. 1360.A.(.. V.1|
00001210: 20 A4 20 32 3A 20 46 24 B2 CA 28 58 24 28 5A 29 | . 2: F$..(X$(Z)|
00001220: 2C 56 2C 31 29 3A 20 8B 20 46 24 B1 B2 22 30 22 |,V,1): . F$.."0"|
00001230: 20 AF 20 46 24 B3 B2 22 39 22 20 A7 20 31 33 34 | . F$.."9" . 134|
00001240: 30 00 70 1A 32 05 8B 20 46 24 B3 22 41 22 20 B0 |0.p.2.. F$."A" .|
00001250: 20 46 24 B1 22 5A 22 20 A7 20 5A B2 5A AA 31 3A | F$."Z" . Z.Z.1:|
00001260: 20 56 B2 32 3A 20 82 20 56 3A 89 20 31 33 31 30 | V.2: . V:. 1310|
00001270: 00 95 1A 3C 05 82 20 56 3A 20 43 24 B2 C7 28 58 |...<.. V: C$..(X|
00001280: 29 AA C7 28 59 29 3A 20 53 24 B2 C8 28 58 24 28 |)..(Y): S$..(X$(|
00001290: 5A 29 2C 32 29 00 B9 1A 46 05 8B 20 53 24 B2 43 |Z),2)...F.. S$.C|
000012A0: 24 20 A7 20 98 34 2C 22 2A 22 3B 3A 5A B2 5A AA |$ . .4,"*";:Z.Z.|
000012B0: 31 3A 20 89 20 31 33 37 30 00 C5 1A 50 05 98 34 |1: . 1370...P..4|
000012C0: 2C 22 2E 22 3B 00 D9 1A 5A 05 82 20 59 3A 20 98 |,".";...Z.. Y: .|
000012D0: 34 3A 20 89 20 31 35 38 30 00 0B 1B 64 05 8D 20 |4: . 1580...d.. |
000012E0: 31 38 38 30 3A 20 98 34 2C 22 22 A6 37 29 3B 22 |1880: .4,"".7);"|
000012F0: 44 49 53 4B 20 49 44 27 53 20 43 55 52 52 45 4E |DISK ID'S CURREN|
00001300: 54 4C 59 20 49 4E 20 55 53 45 22 00 27 1B 6E 05 |TLY IN USE".'.n.|
00001310: 98 34 3A 20 56 B2 31 32 3A 20 8B 20 50 44 B2 34 |.4: V.12: . PD.4|
00001320: 20 A7 20 56 B2 32 35 00 4C 1B 78 05 5A B2 30 3A | . V.25.L.x.Z.0:|
00001330: 20 81 20 58 B2 30 20 A4 20 4E 58 AB 31 3A 20 43 | . X.0 . NX.1: C|
00001340: 24 B2 C8 28 58 24 28 58 29 2C 32 29 00 74 1B 82 |$..(X$(X),2).t..|
00001350: 05 8B 20 58 B3 4E 58 AB 31 20 A7 20 8B 20 43 24 |.. X.NX.1 . . C$|
00001360: B2 C8 28 58 24 28 58 AA 31 29 2C 32 29 20 A7 20 |..(X$(X.1),2) . |
00001370: 31 34 33 30 00 8B 1B 8C 05 98 34 2C 43 24 3B 22 |1430......4,C$;"|
00001380: 20 22 3B 3A 20 5A B2 5A AA 31 3A 00 AB 1B 96 05 | ";: Z.Z.1:.....|
00001390: 82 20 58 3A 20 98 34 3A 20 8B 20 5A B3 B1 B5 28 |. X: .4: . Z...(|
000013A0: 5A AD 56 29 AC 56 20 A7 20 98 34 00 E2 1B A0 05 |Z.V).V . .4.....|
000013B0: 98 34 2C 5A 3B 22 49 44 27 53 2C 22 3B 4E 58 3B |.4,Z;"ID'S,";NX;|
000013C0: 22 44 49 53 4B 53 20 43 41 54 41 4C 4F 47 45 44 |"DISKS CATALOGED|
000013D0: 22 3A 98 34 3A 8D 20 31 39 33 30 3A 89 20 31 31 |":.4:. 1930:. 11|
000013E0: 35 30 00 F5 1B AA 05 8D 20 31 38 38 30 3A 20 8D |50...... 1880: .|
000013F0: 20 32 34 33 30 00 2C 1C B4 05 81 20 58 B2 30 20 | 2430.,.... X.0 |
00001400: A4 20 4E 58 AB 31 3A 20 98 34 2C C8 28 58 24 28 |. NX.1: .4,.(X$(|
00001410: 58 29 2C 32 29 3B 22 20 20 22 3B CA 28 58 24 28 |X),2);" ";.(X$(|
00001420: 58 29 2C 33 29 3A 89 20 31 35 38 30 00 5F 1C BE |X),3):. 1580._..|
00001430: 05 8D 20 31 39 39 30 3A 20 99 22 45 4E 54 45 52 |.. 1990: ."ENTER|
00001440: 20 4D 49 4E 49 4D 55 4D 20 4E 55 4D 42 45 52 20 | MINIMUM NUMBER |
00001450: 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 00 |OF FREE BLOCKS".|
00001460: 9C 1C C8 05 85 22 54 4F 20 42 45 20 44 49 53 50 |....."TO BE DISP|
00001470: 4C 41 59 45 44 1D 1D 1D 30 9D 9D 9D 22 3B 53 24 |LAYED...0...";S$|
00001480: 3A 20 56 46 B2 30 3A 20 59 B2 30 3A 20 8B 20 53 |: VF.0: Y.0: . S|
00001490: 24 B2 22 30 22 20 A7 20 31 35 33 30 00 A7 1C D2 |$."0" . 1530....|
000014A0: 05 89 20 31 35 32 30 00 DA 1C DC 05 8D 20 31 39 |.. 1520...... 19|
000014B0: 39 30 3A 20 99 22 45 4E 54 45 52 20 4D 41 58 49 |90: ."ENTER MAXI|
000014C0: 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 |MUM NUMBER OF FR|
000014D0: 45 45 20 42 4C 4F 43 4B 53 22 00 03 1D E6 05 85 |EE BLOCKS"......|
000014E0: 22 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 |"TO BE DISPLAYED|
000014F0: 1D 1D 1D 39 39 9D 9D 9D 9D 22 3B 53 24 3A 20 56 |...99....";S$: V|
00001500: 46 B2 31 00 1D 1D F0 05 59 B2 C5 28 53 24 29 3A |F.1.....Y..(S$):|
00001510: 20 8B 20 59 B2 30 20 A7 20 31 31 35 30 00 44 1D | . Y.0 . 1150.D.|
00001520: FA 05 8D 20 31 38 38 30 3A 20 98 34 2C 22 23 42 |... 1880: .4,"#B|
00001530: 4C 4B 53 20 46 52 45 45 20 20 22 3B 3A 20 8D 20 |LKS FREE ";: . |
00001540: 32 34 33 30 00 69 1D 04 06 81 20 58 B2 30 20 A4 |2430.i.... X.0 .|
00001550: 20 4E 58 AB 31 3A 8D 20 31 38 33 30 3A 20 8D 20 | NX.1:. 1830: . |
00001560: 32 31 37 30 3A 20 A0 20 35 00 89 1D 0E 06 8B 20 |2170: . 5...... |
00001570: 28 56 46 B2 30 29 20 A7 20 8B 20 28 4E 42 B3 B2 |(VF.0) . . (NB..|
00001580: 59 29 20 A7 20 31 35 38 30 00 A9 1D 18 06 8B 20 |Y) . 1580...... |
00001590: 28 56 46 B2 31 29 20 A7 20 8B 20 28 4E 42 B1 B2 |(VF.1) . . (NB..|
000015A0: 59 29 20 A7 20 31 35 38 30 00 D6 1D 22 06 98 34 |Y) . 1580..."..4|
000015B0: 2C C9 28 22 20 20 20 20 20 20 20 22 AA C4 28 4E |,.(" "..(N|
000015C0: 42 29 2C 37 29 3B A6 35 29 3B 44 49 24 3B 22 20 |B),7);.5);DI$;" |
000015D0: 20 22 3B 44 4E 24 00 01 1E 2C 06 8D 20 31 39 31 | ";DN$...,.. 191|
000015E0: 30 3A 20 8B 20 43 24 B2 22 51 22 20 A7 20 58 B2 |0: . C$."Q" . X.|
000015F0: 39 39 39 39 3A 20 82 20 58 3A 20 89 20 31 31 35 |9999: . X: . 115|
00001600: 30 00 1C 1E 36 06 82 20 58 3A 20 99 3A 20 8D 20 |0...6.. X: .: . |
00001610: 31 39 33 30 3A 20 89 20 31 31 35 30 00 37 1E 40 |1930: . 1150.7.@|
00001620: 06 8B 20 4E 58 B2 30 20 A7 20 8D 20 31 37 33 30 |.. NX.0 . . 1730|
00001630: 3A 20 89 20 33 34 30 00 66 1E 4A 06 A0 20 34 3A |: . 340.f.J.. 4:|
00001640: 99 22 93 54 4F 20 46 49 4E 44 20 57 48 41 54 20 |.".TO FIND WHAT |
00001650: 44 49 53 4B 28 53 29 20 41 20 46 49 4C 45 20 49 |DISK(S) A FILE I|
00001660: 53 20 4F 4E 11 22 00 97 1E 54 06 85 22 45 4E 54 |S ON."...T.."ENT|
00001670: 45 52 20 46 49 4C 45 20 4E 41 4D 45 1D 1D 1D 2E |ER FILE NAME....|
00001680: 9D 9D 9D 22 3B 46 24 3A 20 8B 20 46 24 B2 22 2E |...";F$: . F$.".|
00001690: 22 20 A7 20 33 34 30 00 B9 1E 5E 06 8B 20 46 24 |" . 340...^.. F$|
000016A0: B2 22 2A 22 20 A7 20 99 3A 20 99 22 52 45 2D 22 |."*" . .: ."RE-"|
000016B0: 3B 3A 20 89 20 31 36 32 30 00 D8 1E 68 06 53 24 |;: . 1620...h.S$|
000016C0: B2 46 24 3A 20 8D 20 31 38 35 30 3A 20 56 B2 59 |.F$: . 1850: V.Y|
000016D0: 3A 20 8D 20 31 38 38 30 00 FD 1E 72 06 98 34 2C |: . 1880...r..4,|
000016E0: 22 2E 2E 2E 46 49 4C 45 20 4E 41 4D 45 2E 2E 2E |"...FILE NAME...|
000016F0: 2E 20 20 22 3B 3A 20 8D 20 32 34 33 30 00 29 1F |. ";: . 2430.).|
00001700: 7C 06 98 34 2C 53 24 3A 20 98 34 3A 20 81 20 58 ||..4,S$: .4: . X|
00001710: B2 30 20 A4 20 4E 58 AB 31 3A 20 8D 20 31 38 33 |.0 . NX.1: . 183|
00001720: 30 3A 20 8D 20 32 31 37 30 00 49 1F 86 06 8D 20 |0: . 2170.I.... |
00001730: 32 30 35 30 3A 20 8B 20 46 24 B3 C8 28 53 24 2C |2050: . F$..(S$,|
00001740: 56 29 20 A7 20 31 37 31 30 00 74 1F 90 06 8B 20 |V) . 1710.t.... |
00001750: 46 24 B2 C8 28 53 24 2C 56 29 20 A7 20 98 34 2C |F$..(S$,V) . .4,|
00001760: 53 24 3B 22 20 20 22 3B 44 49 24 3B 22 20 20 22 |S$;" ";DI$;" "|
00001770: 3B 44 4E 24 00 A2 1F 9A 06 8D 20 31 39 31 30 3A |;DN$...... 1910:|
00001780: 20 8B 20 43 24 B2 22 51 22 20 A7 20 A0 20 35 3A | . C$."Q" . . 5:|
00001790: 20 58 B2 4E 58 3A 20 82 20 58 3A 20 89 20 31 36 | X.NX: . X: . 16|
000017A0: 31 30 00 B4 1F A4 06 8B 20 53 53 B2 30 20 A7 20 |10...... SS.0 . |
000017B0: 31 36 37 30 00 D4 1F AE 06 A0 20 35 3A 20 82 20 |1670...... 5: . |
000017C0: 58 3A 20 99 3A 20 8D 20 31 39 33 30 3A 20 89 20 |X: .: . 1930: . |
000017D0: 31 36 31 30 00 F8 1F B8 06 8F 20 2A 2A 2A 2A 2A |1610...... *****|
000017E0: 20 20 20 53 55 42 52 4F 55 54 49 4E 45 53 20 20 | SUBROUTINES |
000017F0: 20 20 20 2A 2A 2A 2A 2A 00 28 20 C2 06 56 B2 33 | *****.( ..V.3|
00001800: 3A 8B 20 4E 58 B2 30 20 A7 20 99 22 93 11 12 4E |:. NX.0 . ."...N|
00001810: 4F 20 45 4E 54 52 49 45 53 22 3B 3A 20 56 B2 31 |O ENTRIES";: V.1|
00001820: 3A 20 89 20 31 38 32 30 00 5B 20 CC 06 85 22 11 |: . 1820.[ ...".|
00001830: 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 4D 45 1D |ENTER DISK NAME.|
00001840: 1D 1D 2E 9D 9D 9D 22 3B 46 24 3A 20 8B 20 46 24 |......";F$: . F$|
00001850: B2 22 2E 22 20 A7 20 31 37 36 30 00 73 20 D6 06 |."." . 1760.s ..|
00001860: 8D 20 31 38 35 30 3A 20 5A B2 33 3A 20 89 20 31 |. 1850: Z.3: . 1|
00001870: 37 38 30 00 A6 20 E0 06 85 22 11 45 4E 54 45 52 |780.. ...".ENTER|
00001880: 20 44 49 53 4B 20 49 44 1D 1D 1D 2E 9D 9D 9D 22 | DISK ID......."|
00001890: 3B 46 24 3A 20 8B 20 46 24 B2 22 2E 22 20 A7 20 |;F$: . F$."." . |
000018A0: 56 B2 31 3A 20 8E 00 C4 20 EA 06 46 24 B2 C8 28 |V.1: ... ..F$..(|
000018B0: 46 24 AA 22 20 20 22 2C 32 29 3A 20 59 B2 32 3A |F$." ",2): Y.2:|
000018C0: 20 5A B2 31 00 F8 20 F4 06 81 20 58 B2 30 20 A4 | Z.1.. ... X.0 .|
000018D0: 20 4E 58 AB 31 3A 20 8B 20 59 B1 30 20 A7 20 8B | NX.1: . Y.0 . .|
000018E0: 20 46 24 B3 B1 CA 28 58 24 28 58 29 2C 5A 2C 59 | F$...(X$(X),Z,Y|
000018F0: 29 20 A7 20 31 38 30 30 00 2E 21 FE 06 8D 20 31 |) . 1800..!... 1|
00001900: 38 33 30 3A 20 8D 20 32 30 30 30 3A 20 8B 20 43 |830: . 2000: . C|
00001910: 24 B2 22 59 22 20 A7 20 5A B2 58 3A 20 58 B2 4E |$."Y" . Z.X: X.N|
00001920: 58 3A 20 82 20 58 3A 20 58 B2 5A 3A 20 8E 00 36 |X: . X: X.Z: ..6|
00001930: 21 08 07 82 20 58 00 49 21 12 07 99 22 11 12 4E |!... X.I!..."..N|
00001940: 4F 54 22 3B 3A 20 56 B2 32 00 6E 21 1C 07 99 22 |OT";: V.2.n!..."|
00001950: 20 49 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 | IN MASTER DIREC|
00001960: 54 4F 52 59 21 22 3A 20 89 20 31 39 34 30 00 90 |TORY!": . 1940..|
00001970: 21 26 07 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 |!&.DN$..(X$(X),3|
00001980: 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |):DI$..(X$(X),2)|
00001990: 00 AF 21 30 07 53 24 B2 44 31 24 AA 22 3A 44 49 |..!0.S$.D1$.":DI|
000019A0: 52 22 AA C4 28 55 28 58 2C 31 29 29 3A 20 8E 00 |R"..(U(X,1)): ..|
000019B0: BF 21 3A 07 46 24 B2 C8 28 46 24 2C 31 36 29 00 |.!:.F$..(F$,16).|
000019C0: EC 21 44 07 8B 20 C9 28 46 24 2C 31 29 B2 22 2A |.!D.. .(F$,1)."*|
000019D0: 22 20 A7 20 59 B2 C3 28 46 24 29 AB 31 3A 20 46 |" . Y..(F$).1: F|
000019E0: 24 B2 C8 28 46 24 2C 59 29 3A 20 8E 00 17 22 4E |$..(F$,Y): ..."N|
000019F0: 07 59 B2 31 36 3A 20 46 24 B2 C8 28 46 24 AA 22 |.Y.16: F$..(F$."|
00001A00: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |................|
00001A10: 22 2C 31 36 29 3A 8E 00 48 22 58 07 8D 20 31 39 |",16):..H"X.. 19|
00001A20: 39 30 3A 20 99 22 57 41 4E 54 20 50 52 49 4E 54 |90: ."WANT PRINT|
00001A30: 45 44 20 43 4F 50 59 22 3B 3A 8D 20 32 30 32 30 |ED COPY";:. 2020|
00001A40: 3A 20 8D 20 31 39 39 30 00 69 22 62 07 50 44 B2 |: . 1990.i"b.PD.|
00001A50: 34 3A 20 8B 20 43 24 B2 22 4E 22 20 A7 20 50 44 |4: . C$."N" . PD|
00001A60: B2 33 3A 20 99 22 93 22 3B 00 77 22 6C 07 9F 20 |.3: .".";.w"l.. |
00001A70: 34 2C 50 44 3A 20 8E 00 8D 22 76 07 A1 20 43 24 |4,PD: ..."v.. C$|
00001A80: 3A 20 8B 20 43 24 B2 22 22 20 A7 20 8E 00 98 22 |: . C$."" . ..."|
00001A90: 80 07 89 20 31 39 36 30 00 A7 22 8A 07 8B 20 50 |... 1960.."... P|
00001AA0: 44 B2 34 20 A7 20 8E 00 B2 22 94 07 8D 20 31 39 |D.4 . ..."... 19|
00001AB0: 39 30 00 D3 22 9E 07 99 22 50 52 45 53 53 20 41 |90.."..."PRESS A|
00001AC0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00001AD0: 55 45 22 00 EC 22 A8 07 A1 20 43 24 3A 20 8B 20 |UE".."... C$: . |
00001AE0: 43 24 B2 22 22 20 A7 20 31 39 36 30 00 F2 22 B2 |C$."" . 1960..".|
00001AF0: 07 8E 00 21 23 BC 07 A0 20 34 3A 20 99 22 93 11 |...!#... 4: ."..|
00001B00: 22 3B A6 38 29 3B 22 12 20 44 20 49 20 53 20 4B |";.8);". D I S K|
00001B10: 20 20 20 4D 20 41 20 53 20 54 20 45 20 52 20 11 | M A S T E R .|
00001B20: 22 00 53 23 C6 07 99 22 2D 2D 2D 2D 2D 2D 2D 2D |".S#..."--------|
00001B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00001B50: 3A 20 8E 00 86 23 D0 07 99 22 93 12 44 49 53 4B |: ...#..."..DISK|
00001B60: 20 4E 41 4D 45 3A 92 20 20 22 3B 44 4E 24 3A 20 | NAME:. ";DN$: |
00001B70: 99 22 11 20 20 12 44 49 53 4B 20 49 44 3A 92 20 |.". .DISK ID:. |
00001B80: 20 22 3B 44 49 24 00 A3 23 DA 07 8D 20 31 39 39 | ";DI$..#... 199|
00001B90: 30 3A 20 99 22 43 4F 52 52 45 43 54 20 44 49 53 |0: ."CORRECT DIS|
00001BA0: 4B 22 3B 00 B6 23 E4 07 99 22 20 28 59 2F 4E 29 |K";..#..." (Y/N)|
00001BB0: 20 3F 20 20 22 3B 00 DD 23 EE 07 8D 20 31 39 36 | ? ";..#... 196|
00001BC0: 30 3A 20 8B 20 43 24 B3 B1 22 59 22 20 AF 20 43 |0: . C$.."Y" . C|
00001BD0: 24 B3 B1 22 4E 22 20 A7 20 32 30 33 30 00 E9 23 |$.."N" . 2030..#|
00001BE0: F8 07 99 20 43 24 3A 20 8E 00 07 24 02 08 53 24 |... C$: ...$..S$|
00001BF0: B2 22 22 3A 20 81 20 59 B2 31 20 A4 20 32 30 3A |."": . Y.1 . 20:|
00001C00: 20 A1 23 35 2C 43 24 00 32 24 0C 08 53 53 B2 53 | .#5,C$.2$..SS.S|
00001C10: 54 3A 20 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |T: .15,EN,EM$,ET|
00001C20: 2C 45 53 3A 20 8B 20 45 4E B1 30 20 A7 20 32 32 |,ES: . EN.0 . 22|
00001C30: 37 30 00 48 24 16 08 8B 20 43 24 B2 22 22 20 A7 |70.H$... C$."" .|
00001C40: 20 43 24 B2 C7 28 30 29 00 62 24 20 08 8B 20 59 | C$..(0).b$ .. Y|
00001C50: B2 31 20 A7 20 46 54 B2 C6 28 43 24 29 3A 20 82 |.1 . FT..(C$): .|
00001C60: 20 59 00 7D 24 2A 08 8B 20 59 B3 31 38 20 A7 20 | Y.}$*.. Y.18 . |
00001C70: 53 24 B2 53 24 AA 43 24 3A 20 82 20 59 00 93 24 |S$.S$.C$: . Y..$|
00001C80: 34 08 8B 20 59 B2 31 38 20 A7 20 58 31 B2 C6 28 |4.. Y.18 . X1..(|
00001C90: 43 24 29 00 A9 24 3E 08 8B 20 59 B2 31 39 20 A7 |C$)..$>.. Y.19 .|
00001CA0: 20 58 32 B2 C6 28 43 24 29 00 B4 24 48 08 82 20 | X2..(C$)..$H.. |
00001CB0: 59 3A 20 8E 00 CF 24 52 08 54 B2 C6 28 42 24 28 |Y: ...$R.T..(B$(|
00001CC0: 30 29 29 3A 20 53 B2 C6 28 42 24 28 31 29 29 00 |0)): S..(B$(1)).|
00001CD0: EF 24 5C 08 98 31 35 2C 22 55 31 3A 35 2C 22 3B |.$\..15,"U1:5,";|
00001CE0: 44 32 24 3B 54 3B 53 3A 20 8D 20 32 32 36 30 00 |D2$;T;S: . 2260.|
00001CF0: 23 25 66 08 81 20 58 B2 30 20 A4 20 32 35 35 3A |#%f.. X.0 . 255:|
00001D00: 20 A1 23 35 2C 42 24 28 58 29 3A 20 8B 20 42 24 | .#5,B$(X): . B$|
00001D10: 28 58 29 B2 22 22 20 A7 20 42 24 28 58 29 B2 C7 |(X)."" . B$(X)..|
00001D20: 28 30 29 00 2E 25 70 08 82 20 58 3A 20 8E 00 5F |(0)..%p.. X: .._|
00001D30: 25 7A 08 9F 20 35 2C 44 31 2C 35 2C 53 24 AA 22 |%z.. 5,D1,5,S$."|
00001D40: 2C 53 2C 52 22 3A 20 8D 20 32 32 36 30 3A 20 84 |,S,R": . 2260: .|
00001D50: 35 2C 44 46 24 2C 4E 42 3A 89 20 32 32 36 30 00 |5,DF$,NB:. 2260.|
00001D60: 6E 25 84 08 8B 20 43 58 B2 30 20 A7 20 8E 00 A5 |n%... CX.0 . ...|
00001D70: 25 8E 08 8D 20 31 39 39 30 3A 20 99 22 55 50 44 |%... 1990: ."UPD|
00001D80: 41 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 |ATING DIRECTORY |
00001D90: 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 20 |CROSS REFERENCE |
00001DA0: 2E 2E 2E 11 22 00 C6 25 98 08 98 31 35 2C 22 53 |...."..%...15,"S|
00001DB0: 22 AA 44 31 24 AA 22 3A 44 49 52 20 58 52 45 46 |".D1$.":DIR XREF|
00001DC0: 2F 54 45 4D 50 22 00 F3 25 A2 08 8B 20 4E 58 B2 |/TEMP"..%... NX.|
00001DD0: 30 20 A7 20 98 31 35 2C 22 53 22 AA 44 31 24 AA |0 . .15,"S".D1$.|
00001DE0: 22 3A 44 49 53 4B 20 4D 53 54 52 20 58 52 45 46 |":DISK MSTR XREF|
00001DF0: 22 3A 8E 00 21 26 AC 08 9F 20 35 2C 44 31 2C 35 |":..!&... 5,D1,5|
00001E00: 2C 44 31 24 AA 22 3A 44 49 52 20 58 52 45 46 2F |,D1$.":DIR XREF/|
00001E10: 54 45 4D 50 2C 53 2C 57 22 3A 20 8D 20 32 32 36 |TEMP,S,W": . 226|
00001E20: 30 00 5A 26 B6 08 81 20 58 B2 30 20 A4 20 4E 58 |0.Z&... X.0 . NX|
00001E30: AB 31 3A 20 98 35 2C 51 24 3B 58 24 28 58 29 3B |.1: .5,Q$;X$(X);|
00001E40: 51 24 3B 22 2C 22 3B 55 28 58 2C 31 29 3A 20 8D |Q$;",";U(X,1): .|
00001E50: 20 32 32 36 30 3A 20 82 20 58 00 81 26 C0 08 A0 | 2260: . X..&...|
00001E60: 20 35 3A 20 98 31 35 2C 22 53 22 AA 44 31 24 AA | 5: .15,"S".D1$.|
00001E70: 22 3A 44 49 53 4B 20 4D 53 54 52 20 58 52 45 46 |":DISK MSTR XREF|
00001E80: 22 00 B9 26 CA 08 98 31 35 2C 22 52 22 AA 44 31 |"..&...15,"R".D1|
00001E90: 24 AA 22 3A 44 49 53 4B 20 4D 53 54 52 20 58 52 |$.":DISK MSTR XR|
00001EA0: 45 46 3D 22 AA 44 31 24 AA 22 3A 44 49 52 20 58 |EF=".D1$.":DIR X|
00001EB0: 52 45 46 2F 54 45 4D 50 22 00 E1 26 D4 08 53 53 |REF/TEMP"..&..SS|
00001EC0: B2 53 54 3A 20 84 31 35 2C 45 4E 2C 45 4D 24 2C |.ST: .15,EN,EM$,|
00001ED0: 45 54 2C 45 53 3A 20 8B 20 45 4E B2 30 20 A7 20 |ET,ES: . EN.0 . |
00001EE0: 8E 00 0B 27 DE 08 99 22 93 12 44 49 53 4B 20 45 |...'..."..DISK E|
00001EF0: 52 52 4F 52 92 22 3B 3A 20 8B 20 43 58 B2 30 20 |RROR.";: . CX.0 |
00001F00: A7 20 99 3A 20 89 20 32 33 31 30 00 32 27 E8 08 |. .: . 2310.2'..|
00001F10: 8B 20 43 58 B2 31 20 A7 20 99 22 20 57 48 49 4C |. CX.1 . ." WHIL|
00001F20: 45 20 57 52 49 54 49 4E 47 20 55 50 44 41 54 45 |E WRITING UPDATE|
00001F30: 44 22 00 51 27 F2 08 8B 20 43 58 B2 32 20 A7 20 |D".Q'... CX.2 . |
00001F40: 99 22 20 57 48 49 4C 45 20 52 45 41 44 49 4E 47 |." WHILE READING|
00001F50: 22 00 7E 27 FC 08 99 22 11 44 49 53 4B 20 44 49 |".~'...".DISK DI|
00001F60: 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 |RECTORY CROSS RE|
00001F70: 46 45 52 45 4E 43 45 20 46 49 4C 45 2E 22 00 B0 |FERENCE FILE."..|
00001F80: 27 06 09 99 22 11 45 52 52 4F 52 23 3A 22 3B 45 |'...".ERROR#:";E|
00001F90: 4E 3B 22 20 20 20 54 52 4B 2F 53 45 43 3A 22 3B |N;" TRK/SEC:";|
00001FA0: 45 54 3B 22 2F 22 3B 45 53 3A 20 99 20 45 4D 24 |ET;"/";ES: . EM$|
00001FB0: 00 CA 27 10 09 99 22 11 12 50 52 4F 47 52 41 4D |..'..."..PROGRAM|
00001FC0: 20 41 42 4F 52 54 45 44 21 22 00 E0 27 1A 09 A0 | ABORTED!"..'...|
00001FD0: 20 34 3A 20 A0 20 35 3A 20 A0 20 31 35 3A 20 80 | 4: . 5: . 15: .|
00001FE0: 00 15 28 24 09 A0 20 31 35 3A 9F 20 31 35 2C 44 |..($.. 15:. 15,D|
00001FF0: 31 2C 31 35 3A 8B 20 28 4D 44 B2 31 29 B0 28 44 |1,15:. (MD.1).(D|
00002000: 31 B3 B1 44 32 29 B0 28 44 31 24 B3 B1 44 32 24 |1..D2).(D1$..D2$|
00002010: 29 20 A7 20 8E 00 1F 28 2E 09 99 22 93 22 3B 00 |) . ...(...".";.|
00002020: 59 28 38 09 4D 44 B2 31 3A 20 99 22 49 4E 53 45 |Y(8.MD.1: ."INSE|
00002030: 52 54 20 4D 41 53 54 45 52 20 44 49 53 4B 20 41 |RT MASTER DISK A|
00002040: 4E 44 11 22 3A 20 8D 20 31 39 35 30 3A 20 98 31 |ND.": . 1950: .1|
00002050: 35 2C 22 49 22 AA 44 31 24 00 94 28 42 09 8D 20 |5,"I".D1$..(B.. |
00002060: 32 32 36 30 3A 20 98 31 35 2C 22 43 22 AA 44 31 |2260: .15,"C".D1|
00002070: 24 AA 22 3A 44 49 53 4B 20 4D 41 53 54 45 52 3D |$.":DISK MASTER=|
00002080: 22 AA 44 31 24 AA 22 3A 44 49 53 4B 20 4D 41 53 |".D1$.":DISK MAS|
00002090: 54 45 52 22 00 AC 28 4C 09 84 31 35 2C 45 4E 3A |TER"..(L..15,EN:|
000020A0: 20 8B 20 45 4E B2 36 33 20 A7 20 8E 00 D6 28 56 | . EN.63 . ...(V|
000020B0: 09 99 22 11 12 49 4E 43 4F 52 52 45 43 54 20 44 |.."..INCORRECT D|
000020C0: 49 53 4B 21 11 22 3A 20 8D 20 31 39 39 30 3A 20 |ISK!.": . 1990: |
000020D0: 89 20 32 33 36 30 00 09 29 60 09 98 34 2C 22 22 |. 2360..)`..4,""|
000020E0: A6 31 30 29 3B 22 44 49 53 4B 20 49 44 20 55 53 |.10);"DISK ID US|
000020F0: 45 41 47 45 20 43 48 41 52 54 22 3A 20 98 34 3A |EAGE CHART": .4:|
00002100: 20 98 34 2C 22 20 20 22 3B 00 28 29 6A 09 81 20 | .4," ";.()j.. |
00002110: 56 B2 34 38 20 A4 20 39 30 3A 20 8B 20 56 B2 35 |V.48 . 90: . V.5|
00002120: 38 20 A7 20 56 B2 36 35 00 41 29 74 09 98 34 2C |8 . V.65.A)t..4,|
00002130: C7 28 56 29 3B 3A 20 82 20 56 3A 20 98 34 3A 20 |.(V);: . V: .4: |
00002140: 8E 00 66 29 7E 09 98 34 2C 22 49 44 20 20 2E 2E |..f)~..4,"ID ..|
00002150: 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A |.DISK NAME....":|
00002160: 20 98 34 3A 20 8E 00 00 00 2F 2F 77 70 20 6F 66 | .4: ....//wp of|
00002170: 66 0D 2F 2F 63 61 74 0D 2F 2F 77 20 6F 66 66 0D |f.//cat.//w off.|
..D.R..:. 1980:. D$(225),X$(225),U(225,2
),B$(255):FT$."SEQPGMUSRREL".G...D1.8
:. -MASTER DISK DEVICE#.....D1$."0":. -M
ASTER DISK DRIVE#.....D2.8 :. -CATALOG
DISK DEVICE#.P...D2$."0":. -CATALOG DIS
K DRIVE#.....BF.18 :. -39 FOR 8050 DRIV
ES.....: :. -18 FOR ALL OTHERS.:...
Q$.G(34): 15: . 15,D1,15: . 2360.Q.".C
X.2: . 1990: ."READING DIRECTORY CROSS R
EFERENCE"...,. 5: . 5,D1,5,D1$.":DISK M
STR XREF,S,R".A.6..15,EN,EM$,ET,ES: . EN
.62 . 340.S.@.. EN.0 . 2270...J..5,X$(NX
),V:. 2260:U(NX,1).V:U(V,2).1:NX.NX.1:.
SS.0 . 330.<.T. 5: CX.0: . 1980: .".
0 - DONE.".E.^.." 1 - UPDATE MASTE
R DIRECTORY."...H.." 2 - DELETE DISK
ENTRY FROM MASTER."...R.." 3 - DISP
LAY SELECTED DIRECTORY."...|.." 4 -
LIST DISK ID'S & NAMES."......" 5 -
FIND SPECIFIED FILE.".7.... 1990: ."ENTE
R DESIRED FUNCTION: ";.Z.... 1960: . C$
."0" . .".":. 2330.....V.E(C$): . V . 43
0,960,1010,1140,1600: . 410.G...CX.0: ."
.. INSERT DISK TO BE CATALOGED":
5: 15......(D1..D2).(D1$..D2$). .".
IN DEVICE#";D2;" DRIVE# ";D2$.A.B..
:. 1990:." PRESS .C. TO CATALOG, .Q.
TO QUIT".D.L.. C$: . C$."Q" . . 2340: .
340.W.V.. C$.."C". 460...... 1990:."OK,
READING BAM ...":. 15,D2,15,"I".D2$:. 2
260.....MD.0: . 5,D2,5,"#0":. 2260: T.BF
: S.0: . 2140.....MF.144: . BF.18 . 560.
1...MF.224: DN$."": . Z.6 . 21: DN$.DN$.
B$(Z):. Z.^...S$.B$(24): . B$(25)..G(0)
. S$.S$.B$(25).....DF$.B$(27).B$(28):NB.
0: . 2130...... Z.6 . 251 . 5: . Z..196
. NB.NB.F(B$(Z))...&.. Z:. 2130:. Z.6 .
136 . 5:NB.NB.F(B$(Z)):. Z:.600.'.0.DF$.
B$(165).B$(166):NB.0:.Z.4. 140.4:.Z..72.
NB.NB.F(B$(Z))./.5.. Z.L.:..F(B$(3)).12
8..Z.221.255:NB.NB.F(B$(Z)):.Z:DF$.DF$."
-DS"...D.DN$."": . Z.144 . 159: DN$.DN$.
B$(Z): . Z.J.N.S$.B$(162): . B$(163)..G(
0) . S$.S$.B$(163)...X.DI$.H(S$." ",2):
U1..1: U2.NX: . NX.0 . 680.*.B.C$.DI$.D
N$: . X.0 . NX.1: . C$.X$(X) . 670.G.L..
C$..X$(X) . . X: . 680...V.U1.X:X.NX:.
X:."...*** WARNING ***. THIS DISK ID: .
";DI$;".".H....".DISK NAME: .";DN$: .".I
S ALL READY CATALOGED..": . 1990......".
CATALOGING THIS DISK":.".WILL DELETE THE
PREVIOUS DATA!.".B.... 1990: ."OK TO RE
CATALOG THIS DISK";: . 2020: . 690.T...U
2.X:X.NX:. X._.... 2000.R.... C$."N" . 4
30...... 1990: ."READING DIRECTORY ENTRI
ES ...": NF.0.Y.F.T1.T: T.F(B$(0)): S1.S
: S.F(B$(1)): . T.0 . 860...P.. T.T1 . S
.S1 . 820.(.Z.. 2140: . Z.2 . 226 . 32:
. (F(B$(Z)) . 7).0 . 800._...S$."": . X.
3 . 18: S$.S$.B$(Z.X):. X: . NF.0 . 770.
....P.0: . X.1 . NF: . S$.J(D$(X),2,16)
. P.X: X.NF...... X: . P.0 . 780.....P.N
F.1: . 790...... Y.NF . P . .1: D$(Y.1).
D$(Y): . Y.....D$(P).B$(Z).S$.B$(Z.28).B
$(Z.29): NF.NF.1.*. .. NF..MF . . Z: . 7
10.9.*.Z.226: . Z.J.4..".. .*** DISK D
IRECTORY IS INVALID ***.."...>.. 1990: .
"... CURRENT DISK CANNOT BE CATALOGED!
.".T.H.."TOO MANY ENTRIES OR NON-STANDAR
D FORMAT..."...\. 5: . 2340: . 1990: ."
UPDATING MASTER DIRECTORY ...".'.F.. U1.
.1 . X.U1:. 920.>.P.X.U2: . X.NX . 900.X
.Z.. Y.NX.1 . X . .1: X$(Y.1).X$(Y): U(Y
.1,1).U(Y,1):. Y...... Y.0 . NX.1: . U(Y
,2).1 . . Y.U...U(Y,2).1: U(X,1).Y: X$(X
).DI$.DN$: NX.NX.1: Y.NX: . Y...... 1840
: .15,"S".S$: . 5,D1,5,S$.",S,W": . 2260
.0....5,DF$;",";NB: . 2260: . NF.0 . 950
.V.... X.1 . NF: .5,D$(X): . 2260: . X.S
... 5: CX.1: . 2180: . 430. ....".TO DE
LETE DISK FROM MASTER DIRECTORY"...J.. 1
730: . V . 1000,960...T.CX.1: .15,"S".S$
: Y.U(X,1): U(Y,2).0: . Y.X . NX.1.*...X
$(Y).X$(Y.1): U(Y,1).U(Y.1,1): . Y: NX.N
X.1: . 960.<.... 2180: . 340.U....".TO D
ISPLAY DISK DIRECTORY":. 1730: . V . 340
,1010...... 2170: . 1880: NF.0: .4," DI
SK NAME: ";DN$.W....4," DISK ID: ";
DI$;.8);"FORMAT: ";DF$......4,"BLOCKS F
REE: ";NB.1....4,"----------------------
-----------------": . SS.0 . 1120.J.$..
2050: .4,I(" ".D(X1.(256.X2)),4);" "
;S$;" ";.....V.(FT . 7).3.2: .4,J(FT$,
V,3);...8.. (FT . 128).0 . .4," (OPEN)"
;.R.B.. FT..193 . .4," (LOCKED)";...L..
4: . 1910: . C$."Q" . 1130...V.NF.NF.1:
. SS.0 . 1060...`..4: .4,"#FILES: ";NF:
. 1930.C.J. 4: 5: . 1010.^.T.. NX.0 .
. 1730: . 340...~.. 1980: . ". 0 -
RETURN TO MAIN FUNCTION MENU.".A...."
1 - LIST FULL ID USEAGE CHART."......"
2 - QUICK LIST OF ID'S IN USE."....
.." 3 - LIST DISK ID'S & NAMES.".E..
.." 4 - LIST .MIN. FREE BLOCKS PER D
ISK.".V...." 5 - LIST .MAX. FREE BLO
CKS PER DISK.". .... 1990: ."ENTER DESIR
ED FUNCTION: ";...D.. 1960: . C$."0" .
340...N.V.E(C$): . V.1 . V.5 . 1220...X.
. C$: . V . 1250,1380,1450,1470,1500.8..
.. 1880: . 2400: Z.0: . X.48 . 90: . X.5
8 . X.65.R.... PD.4 . X..73 . 1300......
1990: ." PRESS ANY KEY TO CONTINUE, .Q
. TO QUIT"...... 1960: . C$."Q" . X.9999
: . X: . 1150.G....".";: . 2400......4,G
(X);" ";: . Y.48 . 90: . Y.58 . Y.65....
.. Z.NX . 1360.A.(.. V.1 . 2: F$.J(X$(Z)
,V,1): . F$.."0" . F$.."9" . 1340.P.2..
F$."A" . F$."Z" . Z.Z.1: V.2: . V:. 1310
...<.. V: C$.G(X).G(Y): S$.H(X$(Z),2)...
F.. S$.C$ . .4,"*";:Z.Z.1: . 1370.E.P..4
,".";.Y.Z.. Y: .4: . 1580...D.. 1880: .4
,"".7);"DISK ID'S CURRENTLY IN USE".'.N.
.4: V.12: . PD.4 . V.25.L.X.Z.0: . X.0 .
NX.1: C$.H(X$(X),2).T.... X.NX.1 . . C$
.H(X$(X.1),2) . 1430......4,C$;" ";: Z.Z
.1:...... X: .4: . Z...(Z.V).V . .4... .
.4,Z;"ID'S,";NX;"DISKS CATALOGED":.4:. 1
930:. 1150...... 1880: . 2430.,.... X.0
. NX.1: .4,H(X$(X),2);" ";J(X$(X),3):.
1580._.... 1990: ."ENTER MINIMUM NUMBER
OF FREE BLOCKS"...H.."TO BE DISPLAYED...
0...";S$: VF.0: Y.0: . S$."0" . 1530...R
.. 1520.Z.... 1990: ."ENTER MAXIMUM NUMB
ER OF FREE BLOCKS"......"TO BE DISPLAYED
...99....";S$: VF.1.....Y.E(S$): . Y.0 .
1150.D.... 1880: .4,"#BLKS FREE ";: .
2430.I.... X.0 . NX.1:. 1830: . 2170:
5...... (VF.0) . . (NB..Y) . 1580......
(VF.1) . . (NB..Y) . 1580.V."..4,I("
".D(NB),7);.5);DI$;" ";DN$...,.. 191
0: . C$."Q" . X.9999: . X: . 1150...6..
X: .: . 1930: . 1150.7.@.. NX.0 . . 1730
: . 340.F.J. 4:.".TO FIND WHAT DISK(S)
A FILE IS ON."...T.."ENTER FILE NAME....
...";F$: . F$."." . 340...^.. F$."*" . .
: ."RE-";: . 1620.X.H.S$.F$: . 1850: V.Y
: . 1880...R..4,"...FILE NAME.... ";: .
2430.).|..4,S$: .4: . X.0 . NX.1: . 183
0: . 2170.I.... 2050: . F$.H(S$,V) . 171
0.T.... F$.H(S$,V) . .4,S$;" ";DI$;" "
;DN$...... 1910: . C$."Q" . 5: X.NX: .
X: . 1610...... SS.0 . 1670.T... 5: .
X: .: . 1930: . 1610...... ***** SUBRO
UTINES *****.( B.V.3:. NX.0 . ."...N
O ENTRIES";: V.1: . 1820.[ L..".ENTER DI
SK NAME.......";F$: . F$."." . 1760.S V.
. 1850: Z.3: . 1780.. ...".ENTER DISK ID
.......";F$: . F$."." . V.1: ..D ..F$.H(
F$." ",2): Y.2: Z.1.. ... X.0 . NX.1: .
Y.0 . . F$..J(X$(X),Z,Y) . 1800..!... 1
830: . 2000: . C$."Y" . Z.X: X.NX: . X:
X.Z: ..6!... X.I!..."..NOT";: V.2.N!..."
IN MASTER DIRECTORY!": . 1940..!&.DN$.J
(X$(X),3):DI$.H(X$(X),2)..!0.S$.D1$.":DI
R".D(U(X,1)): ...!:.F$.H(F$,16)..!D.. I(
F$,1)."*" . Y.C(F$).1: F$.H(F$,Y): ..."N
.Y.16: F$.H(F$." ",16):..
H"X.. 1990: ."WANT PRINTED COPY";:. 2020
: . 1990.I"B.PD.4: . C$."N" . PD.3: ."."
;.W"L.. 4,PD: ..."V.. C$: . C$."" . ..."
... 1960.."... PD.4 . ..."... 1990.S"...
"PRESS ANY KEY TO CONTINUE".."... C$: .
C$."" . 1960.."....!#.. 4: ."..";.8);".
D I S K M A S T E R .".S#F.."--------
-------------------------------": ...#P.
."..DISK NAME:. ";DN$: .". .DISK ID:.
";DI$..#Z.. 1990: ."CORRECT DISK";..#..
." (Y/N) ? ";..#... 1960: . C$.."Y" . C
$.."N" . 2030..#... C$: ...$..S$."": . Y
.1 . 20: .#5,C$.2$..SS.ST: .15,EN,EM$,ET
,ES: . EN.0 . 2270.H$... C$."" . C$.G(0)
.B$ .. Y.1 . FT.F(C$): . Y.}$*.. Y.18 .
S$.S$.C$: . Y..$4.. Y.18 . X1.F(C$)..$>.
. Y.19 . X2.F(C$)..$H.. Y: ..O$R.T.F(B$(
0)): S.F(B$(1))..$\..15,"U1:5,";D2$;T;S:
. 2260.#%F.. X.0 . 255: .#5,B$(X): . B$
(X)."" . B$(X).G(0)..%P.. X: .._%Z.. 5,D
1,5,S$.",S,R": . 2260: .5,DF$,NB:. 2260.
N%... CX.0 . ...%... 1990: ."UPDATING DI
RECTORY CROSS REFERENCE ....".F%...15,"S
".D1$.":DIR XREF/TEMP"..%... NX.0 . .15,
"S".D1$.":DISK MSTR XREF":..!&... 5,D1,5
,D1$.":DIR XREF/TEMP,S,W": . 2260.Z&...
X.0 . NX.1: .5,Q$;X$(X);Q$;",";U(X,1): .
2260: . X..&.. 5: .15,"S".D1$.":DISK M
STR XREF"..&J..15,"R".D1$.":DISK MSTR XR
EF=".D1$.":DIR XREF/TEMP"..&T.SS.ST: .15
,EN,EM$,ET,ES: . EN.0 . ...'..."..DISK E
RROR.";: . CX.0 . .: . 2310.2'... CX.1 .
." WHILE WRITING UPDATED".Q'... CX.2 .
." WHILE READING".~'...".DISK DIRECTORY
CROSS REFERENCE FILE."..'...".ERROR#:";E
N;" TRK/SEC:";ET;"/";ES: . EM$.J'...".
.PROGRAM ABORTED!"..'.. 4: 5: 15: .
..($. 15:. 15,D1,15:. (MD.1).(D1..D2).(
D1$..D2$) . ...(...".";.Y(8.MD.1: ."INSE
RT MASTER DISK AND.": . 1950: .15,"I".D1
$..(B.. 2260: .15,"C".D1$.":DISK MASTER=
".D1$.":DISK MASTER"..(L..15,EN: . EN.63
. ..V(V.."..INCORRECT DISK!.": . 1990:
. 2360..)`..4,"".10);"DISK ID USEAGE CHA
RT": .4: .4," ";.()J.. V.48 . 90: . V.5
8 . V.65.A)T..4,G(V);: . V: .4: ..F)~..4
,"ID ...DISK NAME....": .4: ....//WP OF
F.//CAT.//W OFF.
> CLICK IMAGE PREVIEW FOR FULL MODAL