DISK MASTER V2
FILE INFORMATION
FILENAME(S): DISK MASTER V2
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 21:05:48
APPEARS ON: 1 disk(s)
FILE HASH
e4f697324dd1e00bcb956d9ecdbdd8ca59eb5a0c668fa240609e774550cc41bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VAN DOUWEN | DISK MASTER V2 | PRG | DuncanTwain | 28 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 26 04 0A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |..&.... --------|
00000010: 2D 20 44 49 53 4B 20 4D 41 53 54 45 52 20 2D 2D |- DISK MASTER --|
00000020: 2D 2D 2D 2D 2D 2D 00 2C 04 0F 00 8F 00 4C 04 14 |------.,.....L..|
00000030: 00 8F 20 20 20 20 20 20 20 20 42 59 20 52 4F 42 |.. BY ROB|
00000040: 45 52 54 20 57 2E 20 42 41 4B 45 52 00 52 04 19 |ERT W. BAKER.R..|
00000050: 00 8F 00 77 04 1E 00 8F 20 20 32 30 34 30 2C 20 |...w.... 2040, |
00000060: 33 30 34 30 2C 20 34 30 34 30 20 26 20 38 30 35 |3040, 4040 & 805|
00000070: 30 20 44 49 53 4B 53 00 94 04 28 00 8F 20 20 20 |0 DISKS...(.. |
00000080: 20 20 20 20 20 20 20 44 4F 53 20 31 2E 30 20 26 | DOS 1.0 &|
00000090: 20 32 2E 58 00 B3 04 32 00 8F 20 20 20 20 20 20 | 2.X...2.. |
000000A0: 20 20 42 41 53 49 43 20 32 2E 30 20 41 4E 44 20 | BASIC 2.0 AND |
000000B0: 34 2E 30 00 D5 04 3C 00 8F 20 20 20 20 20 34 30 |4.0...<.. 40|
000000C0: 20 4F 52 20 38 30 20 43 4F 4C 55 4D 4E 20 44 49 | OR 80 COLUMN DI|
000000D0: 53 50 4C 41 59 00 DB 04 41 00 8F 00 FE 04 46 00 |SPLAY...A.....F.|
000000E0: 8F 20 20 20 43 4F 50 49 45 44 20 46 52 4F 4D 20 |. COPIED FROM |
000000F0: 4D 49 43 52 4F 43 4F 4D 50 55 54 49 4E 47 00 1B |MICROCOMPUTING..|
00000100: 05 4B 00 8F 20 20 20 20 20 20 20 20 20 20 23 36 |.K.. #6|
00000110: 36 20 4A 55 4E 45 20 31 39 38 32 00 21 05 50 00 |6 JUNE 1982.!.P.|
00000120: 8F 00 40 05 55 00 8F 20 20 20 20 20 20 20 20 42 |..@.U.. B|
00000130: 59 20 20 44 41 56 49 44 20 41 2E 20 48 4F 4F 4B |Y DAVID A. HOOK|
00000140: 00 46 05 5A 00 8F 00 6B 05 5F 00 8F 20 2D 2D 2D |.F.Z...k._.. ---|
00000150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 56 32 2E 30 20 2D |--------- V2.0 -|
00000160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 71 05 6E 00 |-----------.q.n.|
00000170: 3A 00 95 05 78 00 9C 3A 43 24 B2 22 22 3A 53 24 |:...x..:C$."":S$|
00000180: B2 43 24 3A 58 B2 30 3A 59 B2 30 3A 97 35 39 34 |.C$:X.0:Y.0:.594|
00000190: 36 38 2C 31 32 00 BA 05 82 00 8D 32 30 31 30 3A |68,12......2010:|
000001A0: 86 44 24 28 32 33 30 29 2C 58 24 28 32 33 30 29 |.D$(230),X$(230)|
000001B0: 3A 43 52 24 B2 C7 28 31 33 29 00 D6 05 8C 00 9F |:CR$..(13)......|
000001C0: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 49 30 22 |15,8,15:.15,"I0"|
000001D0: 3A 8D 32 30 38 30 00 F7 05 96 00 9F 35 2C 38 2C |:.2080......5,8,|
000001E0: 35 2C 22 30 3A 44 49 53 4B 20 44 49 52 20 58 52 |5,"0:DISK DIR XR|
000001F0: 45 46 2C 53 2C 52 22 00 17 06 A0 00 84 31 35 2C |EF,S,R"......15,|
00000200: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E |EN,EM$,ET,ES:.EN|
00000210: B2 36 32 A7 32 38 30 00 41 06 AA 00 99 22 20 20 |.62.280.A...." |
00000220: 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 |READING DIRECTOR|
00000230: 59 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 |Y CROSS REFERENC|
00000240: 45 00 6D 06 B4 00 84 35 2C 58 24 28 4E 58 29 3A |E.m....5,X$(NX):|
00000250: 53 53 B2 53 54 3A 8D 32 30 38 30 3A 4E 58 B2 4E |SS.ST:.2080:NX.N|
00000260: 58 AA 31 3A 8B 53 53 B2 30 A7 31 38 30 00 76 06 |X.1:.SS.0.180.v.|
00000270: BE 00 89 32 38 30 00 9A 06 C8 00 53 24 B2 22 22 |...280.....S$.""|
00000280: 3A 81 58 B2 31 A4 59 3A 8D 32 34 30 3A 53 24 B2 |:.X.1.Y:.240:S$.|
00000290: 53 24 AA 43 24 3A 82 58 3A 8E 00 AF 06 D2 00 81 |S$.C$:.X:.......|
000002A0: 58 B2 31 A4 59 3A 8D 32 34 30 3A 82 58 3A 8E 00 |X.1.Y:.240:.X:..|
000002B0: CC 06 DC 00 56 B2 30 3A 8D 32 34 30 3A 8B 43 24 |....V.0:.240:.C$|
000002C0: B3 B1 22 22 A7 56 B2 C6 28 43 24 29 00 D2 06 E6 |.."".V..(C$)....|
000002D0: 00 8E 00 DD 06 F0 00 A1 23 35 2C 43 24 00 00 07 |........#5,C$...|
000002E0: FA 00 53 53 B2 53 54 3A 84 31 35 2C 45 4E 2C 45 |..SS.ST:.15,EN,E|
000002F0: 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 8E |M$,ET,ES:.EN.0..|
00000300: 00 24 07 04 01 99 22 93 12 44 49 53 4B 20 45 52 |.$...."..DISK ER|
00000310: 52 4F 52 21 11 22 3A 99 45 4E 3B 45 4D 24 3B 45 |ROR!.":.EN;EM$;E|
00000320: 54 3B 45 53 00 34 07 0E 01 8D 32 30 32 30 3A 8D |T;ES.4....2020:.|
00000330: 31 39 38 30 00 49 07 18 01 A0 34 3A A0 35 3A 43 |1980.I....4:.5:C|
00000340: 58 B2 30 3A 8D 32 30 31 30 00 5C 07 22 01 99 A6 |X.0:.2010.\."...|
00000350: 35 29 22 30 20 2D 20 44 4F 4E 45 11 00 82 07 2C |5)"0 - DONE....,|
00000360: 01 99 A6 35 29 22 31 20 2D 20 55 50 44 41 54 45 |...5)"1 - UPDATE|
00000370: 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 | MASTER DIRECTOR|
00000380: 59 11 00 AE 07 36 01 99 A6 35 29 22 32 20 2D 20 |Y....6...5)"2 - |
00000390: 44 45 4C 45 54 45 20 44 49 53 4B 20 45 4E 54 52 |DELETE DISK ENTR|
000003A0: 59 20 46 52 4F 4D 20 4D 41 53 54 45 52 11 00 D7 |Y FROM MASTER...|
000003B0: 07 40 01 99 A6 35 29 22 33 20 2D 20 44 49 53 50 |.@...5)"3 - DISP|
000003C0: 4C 41 59 20 53 45 4C 45 43 54 45 44 20 44 49 52 |LAY SELECTED DIR|
000003D0: 45 43 54 4F 52 59 11 00 F9 07 4A 01 99 A6 35 29 |ECTORY....J...5)|
000003E0: 22 34 20 2D 20 46 49 4E 44 20 53 50 45 43 49 46 |"4 - FIND SPECIF|
000003F0: 49 45 44 20 46 49 4C 45 11 00 1D 08 54 01 99 A6 |IED FILE....T...|
00000400: 35 29 22 35 20 2D 20 4C 49 53 54 20 44 49 53 4B |5)"5 - LIST DISK|
00000410: 20 49 44 27 53 20 26 20 4E 41 4D 45 53 00 45 08 | ID'S & NAMES.E.|
00000420: 5E 01 8D 32 30 32 30 3A 99 22 45 4E 54 45 52 20 |^..2020:."ENTER |
00000430: 44 45 53 49 52 45 44 20 46 55 4E 43 54 49 4F 4E |DESIRED FUNCTION|
00000440: 3A 20 20 22 3B 00 62 08 68 01 8D 31 39 39 30 3A |: ";.b.h..1990:|
00000450: 8B 43 24 B2 22 30 22 A7 99 22 93 22 3A 89 32 32 |.C$."0"..".":.22|
00000460: 34 30 00 7B 08 72 01 56 B2 C5 28 43 24 29 3A 8B |40.{.r.V..(C$):.|
00000470: 56 B3 31 B0 56 B1 35 A7 33 36 30 00 99 08 7C 01 |V.1.V.5.360...|.|
00000480: 91 56 89 33 39 30 2C 31 31 32 30 2C 39 34 30 2C |.V.390,1120,940,|
00000490: 31 35 39 30 2C 31 31 38 30 00 C4 08 86 01 43 58 |1590,1180.....CX|
000004A0: B2 30 3A 99 22 93 49 4E 53 45 52 54 20 55 50 44 |.0:.".INSERT UPD|
000004B0: 41 54 45 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |ATE DISK IN DRIV|
000004C0: 45 20 23 31 00 F4 08 90 01 99 22 11 44 45 50 52 |E #1......".DEPR|
000004D0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
000004E0: 4F 4E 54 49 4E 55 45 2C 20 12 51 92 20 54 4F 20 |ONTINUE, .Q. TO |
000004F0: 51 55 49 54 00 0A 09 9A 01 8D 31 39 39 30 3A 8B |QUIT......1990:.|
00000500: 43 24 B2 22 51 22 A7 32 38 30 00 28 09 A4 01 8D |C$."Q".280.(....|
00000510: 32 30 32 30 3A 99 22 4F 4B 22 3A 98 31 35 2C 22 |2020:."OK":.15,"|
00000520: 49 31 22 3A 8D 32 35 30 00 41 09 AE 01 9F 35 2C |I1":.250.A....5,|
00000530: 38 2C 35 2C 22 24 31 2C 53 2C 52 22 3A 8D 32 35 |8,5,"$1,S,R":.25|
00000540: 30 00 69 09 B8 01 8D 32 32 30 3A 56 46 B2 56 3A |0.i....220:VF.V:|
00000550: 8D 32 34 30 3A 8B 56 46 B2 36 37 A7 59 B2 32 3A |.240:.VF.67.Y.2:|
00000560: 8D 32 31 30 3A 89 34 37 30 00 8E 09 C2 01 4E 42 |.210:.470.....NB|
00000570: B2 30 3A 81 5A B2 31 A4 33 35 3A 8D 32 32 30 3A |.0:.Z.1.35:.220:|
00000580: 8B 5A B3 B1 31 38 A7 4E 42 B2 4E 42 AA 56 00 9E |.Z..18.NB.NB.V..|
00000590: 09 CC 01 59 B2 33 3A 8D 32 31 30 3A 82 5A 00 D6 |...Y.3:.210:.Z..|
000005A0: 09 D6 01 59 B2 31 36 3A 8D 32 30 30 3A 44 4E 24 |...Y.16:.200:DN$|
000005B0: B2 53 24 3A 59 B2 32 3A 8D 32 31 30 3A 59 B2 32 |.S$:Y.2:.210:Y.2|
000005C0: 3A 8D 32 30 30 3A 44 49 24 B2 C8 28 53 24 AA 22 |:.200:DI$..(S$."|
000005D0: 20 20 22 2C 32 29 00 EC 09 E0 01 8D 32 30 33 30 | ",2)......2030|
000005E0: 3A 8B 43 24 B2 22 4E 22 A7 39 33 30 00 FA 09 EA |:.C$."N".930....|
000005F0: 01 8B 4E 58 B2 30 A7 36 31 30 00 22 0A F4 01 81 |..NX.0.610."....|
00000600: 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 |X.0.NX.1:C$..(X$|
00000610: 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 36 |(X),2):.DI$.C$.6|
00000620: 31 30 00 37 0A FE 01 8B 44 49 24 B3 B1 43 24 A7 |10.7....DI$..C$.|
00000630: 82 58 3A 89 36 31 30 00 4F 0A 08 02 8B 44 4E 24 |.X:.610.O....DN$|
00000640: B2 CA 28 58 24 28 58 29 2C 33 29 A7 36 31 30 00 |..(X$(X),3).610.|
00000650: 7F 0A 12 02 99 22 93 12 2A 2A 2A 20 57 41 52 4E |....."..*** WARN|
00000660: 49 4E 47 20 2A 2A 2A 92 20 20 54 48 49 53 20 44 |ING ***. THIS D|
00000670: 49 53 4B 20 49 44 3A 20 12 22 44 49 24 22 92 00 |ISK ID: ."DI$"..|
00000680: 97 0A 1C 02 99 22 11 44 49 53 4B 20 4E 41 4D 45 |.....".DISK NAME|
00000690: 3A 20 12 22 44 4E 24 00 C6 0A 26 02 99 22 11 49 |: ."DN$...&..".I|
000006A0: 53 20 41 4C 4C 20 52 45 41 44 59 20 43 41 54 41 |S ALL READY CATA|
000006B0: 4C 4F 47 45 44 20 57 49 54 48 20 41 20 44 49 46 |LOGED WITH A DIF|
000006C0: 46 45 52 45 4E 54 00 EB 0A 30 02 99 22 11 44 49 |FERENT...0..".DI|
000006D0: 53 4B 20 4E 41 4D 45 3A 20 12 22 CA 28 58 24 28 |SK NAME: .".(X$(|
000006E0: 58 29 2C 33 29 3A 8D 32 30 32 30 00 16 0B 3A 02 |X),3):.2020...:.|
000006F0: 99 22 43 41 54 41 4C 4F 47 49 4E 47 20 54 48 49 |."CATALOGING THI|
00000700: 53 20 44 49 53 4B 20 57 49 4C 4C 20 44 45 4C 45 |S DISK WILL DELE|
00000710: 54 45 20 54 48 45 00 33 0B 44 02 99 22 11 50 52 |TE THE.3.D..".PR|
00000720: 45 56 49 4F 55 53 20 44 41 54 41 21 22 3A 8D 32 |EVIOUS DATA!":.2|
00000730: 30 32 30 00 5F 0B 4E 02 99 22 43 41 54 41 4C 4F |020._.N.."CATALO|
00000740: 47 20 54 48 49 53 20 44 49 53 4B 22 3B 3A 8D 32 |G THIS DISK";:.2|
00000750: 30 35 30 3A 8B 43 24 B2 22 4E 22 A7 39 33 30 00 |050:.C$."N".930.|
00000760: 89 0B 58 02 99 22 93 43 41 54 41 4C 4F 47 49 4E |..X..".CATALOGIN|
00000770: 47 20 44 49 53 4B 20 57 49 54 48 20 4E 45 57 20 |G DISK WITH NEW |
00000780: 44 49 53 4B 20 4E 41 4D 45 00 B3 0B 62 02 8D 32 |DISK NAME...b..2|
00000790: 30 32 30 3A 99 22 52 45 41 44 49 4E 47 20 44 49 |020:."READING DI|
000007A0: 52 45 43 54 4F 52 59 20 45 4E 54 52 49 45 53 20 |RECTORY ENTRIES |
000007B0: 2E 2E 2E 00 DE 0B 6C 02 8D 32 34 30 3A 59 B2 32 |......l..240:Y.2|
000007C0: 3A 8D 32 30 30 3A 44 46 24 B2 53 24 3A 59 B2 38 |:.200:DF$.S$:Y.8|
000007D0: 39 3A 8B 56 46 B2 36 37 A7 59 B2 32 32 37 00 F1 |9:.VF.67.Y.227..|
000007E0: 0B 71 02 8B 56 46 B2 31 A7 44 46 24 B2 22 20 31 |.q..VF.1.DF$." 1|
000007F0: 22 00 06 0C 76 02 8D 32 31 30 3A 8B 56 46 B3 B1 |"...v..210:.VF..|
00000800: 36 37 A7 36 33 39 00 2E 0C 78 02 4E 42 B2 30 3A |67.639...x.NB.0:|
00000810: 81 5A B2 31 A4 37 37 3A 8B 28 5A B2 31 29 B0 28 |.Z.1.77:.(Z.1).(|
00000820: 5A B2 35 31 29 A7 59 B2 34 3A 8D 32 31 30 00 46 |Z.51).Y.4:.210.F|
00000830: 0C 7A 02 8D 32 32 30 3A 8B 5A B3 B1 33 39 A7 4E |.z..220:.Z..39.N|
00000840: 42 B2 4E 42 AA 56 00 56 0C 7C 02 59 B2 34 3A 8D |B.NB.V.V.|.Y.4:.|
00000850: 32 31 30 3A 82 5A 00 65 0C 7E 02 59 B2 31 31 35 |210:.Z.e.~.Y.115|
00000860: 3A 8D 32 31 30 00 72 0C 7F 02 4E 46 B2 30 3A 5A |:.210.r...NF.0:Z|
00000870: B2 30 00 A2 0C 80 02 8D 32 32 30 3A 46 54 B2 56 |.0......220:FT.V|
00000880: 3A 46 24 B2 43 24 3A 59 B2 32 3A 8D 32 31 30 3A |:F$.C$:Y.2:.210:|
00000890: 59 B2 31 36 3A 8D 32 30 30 3A 59 B2 39 3A 8D 32 |Y.16:.200:Y.9:.2|
000008A0: 31 30 00 C5 0C 8A 02 8D 32 32 30 3A 53 24 B2 53 |10......220:S$.S|
000008B0: 24 AA C7 28 56 29 3A 8D 32 32 30 3A 8B 46 54 B2 |$..(V):.220:.FT.|
000008C0: 30 A7 37 32 30 00 D3 0C 94 02 8B 4E 46 B2 30 A7 |0.720......NF.0.|
000008D0: 36 39 30 00 FB 0C 9E 02 81 58 B2 31 A4 4E 46 3A |690......X.1.NF:|
000008E0: 8B C8 28 53 24 2C 31 36 29 B3 CA 28 44 24 28 58 |..(S$,16)..(D$(X|
000008F0: 29 2C 32 2C 31 36 29 A7 37 30 30 00 02 0D A8 02 |),2,16).700.....|
00000900: 82 58 00 12 0D B2 02 58 B2 4E 46 AA 31 3A 89 37 |.X.....X.NF.1:.7|
00000910: 31 30 00 32 0D BC 02 81 59 B2 4E 46 A4 58 A9 AB |10.2....Y.NF.X..|
00000920: 31 3A 44 24 28 59 AA 31 29 B2 44 24 28 59 29 3A |1:D$(Y.1).D$(Y):|
00000930: 82 59 00 4F 0D C6 02 44 24 28 58 29 B2 46 24 AA |.Y.O...D$(X).F$.|
00000940: 53 24 AA C7 28 56 29 3A 4E 46 B2 4E 46 AA 31 00 |S$..(V):NF.NF.1.|
00000950: 76 0D D0 02 5A B2 5A AA 31 3A 5A B2 5A AB 28 B5 |v...Z.Z.1:Z.Z.(.|
00000960: 28 5A AD 38 29 AC 38 29 3A 8B 5A B1 30 A7 59 B2 |(Z.8).8):.Z.0.Y.|
00000970: 32 3A 8D 32 31 30 00 8F 0D D5 02 58 58 B2 31 35 |2:.210.....XX.15|
00000980: 35 3A 8B 56 46 B2 36 37 A7 58 58 B2 32 37 37 00 |5:.VF.67.XX.277.|
00000990: 9F 0D DA 02 8B 4E 46 B3 31 35 35 A7 37 39 30 00 |.....NF.155.790.|
000009A0: D1 0D E4 02 99 22 93 20 20 20 20 20 20 12 2A 2A |.....". .**|
000009B0: 2A 20 44 49 53 4B 20 42 41 4D 20 49 53 20 49 4E |* DISK BAM IS IN|
000009C0: 56 41 4C 49 44 20 2A 2A 2A 92 22 3A 8D 32 30 32 |VALID ***.":.202|
000009D0: 30 00 00 0E EE 02 99 22 11 20 20 20 43 55 52 52 |0......". CURR|
000009E0: 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E 4F 54 20 |ENT DISK CANNOT |
000009F0: 42 45 20 43 41 54 41 4C 4F 47 45 44 21 11 11 11 |BE CATALOGED!...|
00000A00: 00 2D 0E F8 02 99 22 20 50 4C 45 41 53 45 20 56 |.-...." PLEASE V|
00000A10: 45 52 49 46 59 20 4F 52 20 43 48 45 43 4B 20 44 |ERIFY OR CHECK D|
00000A20: 49 53 4B 20 43 4F 4E 54 45 4E 54 53 11 00 5C 0E |ISK CONTENTS..\.|
00000A30: 02 03 99 22 42 45 46 4F 52 45 20 41 54 54 45 4D |..."BEFORE ATTEM|
00000A40: 50 54 49 4E 47 20 54 4F 20 43 41 54 41 4C 4F 47 |PTING TO CATALOG|
00000A50: 20 54 48 49 53 20 44 49 53 4B 2E 11 00 71 0E 0C | THIS DISK...q..|
00000A60: 03 8D 32 30 32 30 3A 8D 31 39 38 30 3A 89 39 33 |..2020:.1980:.93|
00000A70: 30 00 7F 0E 16 03 8B 53 53 B2 30 A7 36 34 30 00 |0......SS.0.640.|
00000A80: AC 0E 20 03 A0 35 3A 8D 32 30 32 30 3A 99 22 55 |.. ..5:.2020:."U|
00000A90: 50 44 41 54 49 4E 47 20 4D 41 53 54 45 52 20 44 |PDATING MASTER D|
00000AA0: 49 52 45 43 54 4F 52 59 20 2E 2E 2E 00 BA 0E 2A |IRECTORY ......*|
00000AB0: 03 8B 4E 58 B2 30 A7 38 36 30 00 E2 0E 34 03 81 |..NX.0.860...4..|
00000AC0: 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 |X.0.NX.1:C$..(X$|
00000AD0: 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 38 |(X),2):.DI$.C$.8|
00000AE0: 35 30 00 F2 0E 3E 03 8B 44 49 24 B2 43 24 A7 38 |50...>..DI$.C$.8|
00000AF0: 38 30 00 FE 0E 48 03 82 58 3A 89 38 36 30 00 25 |80...H..X:.860.%|
00000B00: 0F 52 03 81 59 B2 4E 58 AB 31 A4 58 A9 AB 31 3A |.R..Y.NX.1.X..1:|
00000B10: 58 24 28 59 AA 31 29 B2 58 24 28 59 29 3A 82 59 |X$(Y.1).X$(Y):.Y|
00000B20: 3A 89 38 37 30 00 2E 0F 5C 03 58 B2 4E 58 00 3A |:.870...\.X.NX.:|
00000B30: 0F 66 03 4E 58 B2 4E 58 AA 31 00 51 0F 70 03 58 |.f.NX.NX.1.Q.p.X|
00000B40: 24 28 58 29 B2 44 49 24 AA 44 4E 24 3A 43 58 B2 |$(X).DI$.DN$:CX.|
00000B50: 31 00 7C 0F 7A 03 8D 31 39 31 30 3A 98 31 35 2C |1.|.z..1910:.15,|
00000B60: 22 53 22 AA 53 24 3A 9F 35 2C 38 2C 35 2C 53 24 |"S".S$:.5,8,5,S$|
00000B70: AA 22 2C 53 2C 57 22 3A 8D 32 35 30 00 96 0F 84 |.",S,W":.250....|
00000B80: 03 98 35 2C 44 46 24 22 2C 22 4E 42 3B 43 52 24 |..5,DF$","NB;CR$|
00000B90: 3B 3A 8D 32 35 30 00 BE 0F 8E 03 8B 4E 46 B1 30 |;:.250......NF.0|
00000BA0: A7 81 58 B2 31 A4 4E 46 3A 98 35 2C 44 24 28 58 |..X.1.NF:.5,D$(X|
00000BB0: 29 3B 43 52 24 3B 3A 8D 32 35 30 3A 82 58 00 D0 |);CR$;:.250:.X..|
00000BC0: 0F A2 03 A0 35 3A 8D 32 31 35 30 3A 89 33 39 30 |....5:.2150:.390|
00000BD0: 00 03 10 AC 03 99 22 93 54 4F 20 44 49 53 50 4C |......".TO DISPL|
00000BE0: 41 59 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 |AY DISK DIRECTOR|
00000BF0: 59 22 3A 8D 31 37 37 30 3A 91 56 89 32 38 30 2C |Y":.1770:.V.280,|
00000C00: 39 34 30 00 32 10 B6 03 9F 35 2C 38 2C 35 2C 53 |940.2....5,8,5,S|
00000C10: 24 AA 22 2C 53 2C 52 22 3A 8D 32 35 30 3A 8D 31 |$.",S,R":.250:.1|
00000C20: 39 34 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 32 |940:.5,DF$,NB:.2|
00000C30: 35 30 00 52 10 C0 03 98 34 2C 22 20 20 12 44 49 |50.R....4," .DI|
00000C40: 53 4B 20 4E 41 4D 45 3A 92 20 20 22 44 4E 24 3A |SK NAME:. "DN$:|
00000C50: 98 34 00 74 10 CA 03 98 34 2C 22 20 20 20 20 12 |.4.t....4," .|
00000C60: 44 49 53 4B 20 49 44 3A 92 20 20 22 44 49 24 3B |DISK ID:. "DI$;|
00000C70: A6 36 29 3B 00 94 10 CF 03 98 34 2C 22 12 44 49 |.6);......4,".DI|
00000C80: 53 4B 20 46 4F 52 4D 41 54 3A 92 20 20 22 44 46 |SK FORMAT:. "DF|
00000C90: 24 3A 98 34 00 B2 10 D4 03 98 34 2C 22 12 42 4C |$:.4......4,".BL|
00000CA0: 4F 43 4B 53 20 46 52 45 45 3A 92 20 22 4E 42 3A |OCKS FREE:. "NB:|
00000CB0: 98 34 00 E6 10 DE 03 98 34 2C 22 C3 C3 C3 C3 C3 |.4......4,".....|
00000CC0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000CD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000CE0: C3 C3 22 3A 98 34 00 FA 10 E8 03 4E 46 B2 30 3A |..":.4.....NF.0:|
00000CF0: 8B 53 53 B1 30 A7 31 31 30 30 00 25 11 F2 03 8D |.SS.0.1100.%....|
00000D00: 32 32 30 3A 46 54 B2 56 3A 59 B2 31 36 3A 8D 32 |220:FT.V:Y.16:.2|
00000D10: 30 30 3A 8D 32 32 30 3A 5A B2 56 3A 8D 32 32 30 |00:.220:Z.V:.220|
00000D20: 3A 8D 32 34 30 00 52 11 FC 03 98 34 2C C9 28 22 |:.240.R....4,.("|
00000D30: 20 20 20 20 22 AA C4 28 5A AA 28 32 35 36 AC 56 | "..(Z.(256.V|
00000D40: 29 29 2C 34 29 3B 22 20 20 22 53 24 22 20 20 20 |)),4);" "S$" |
00000D50: 22 3B 00 68 11 06 04 8B 46 54 B2 31 32 39 A7 98 |";.h....FT.129..|
00000D60: 34 2C 22 53 45 51 22 3B 00 7E 11 10 04 8B 46 54 |4,"SEQ";.~....FT|
00000D70: B2 31 33 30 A7 98 34 2C 22 50 47 4D 22 3B 00 94 |.130..4,"PGM";..|
00000D80: 11 1A 04 8B 46 54 B2 31 33 31 A7 98 34 2C 22 55 |....FT.131..4,"U|
00000D90: 53 52 22 3B 00 AA 11 1F 04 8B 46 54 B2 31 33 32 |SR";......FT.132|
00000DA0: A7 98 34 2C 22 52 45 4C 22 3B 00 C3 11 24 04 98 |..4,"REL";...$..|
00000DB0: 34 3A A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D 31 |4:.C$:.C$..""..1|
00000DC0: 39 39 30 00 D4 11 2E 04 8B 43 24 B2 22 51 22 A7 |990......C$."Q".|
00000DD0: 31 31 31 30 00 EB 11 38 04 4E 46 B2 4E 46 AA 31 |1110...8.NF.NF.1|
00000DE0: 3A 8B 53 53 B2 30 A7 31 30 31 30 00 04 12 42 04 |:.SS.0.1010...B.|
00000DF0: 98 34 3A 98 34 2C 22 12 23 46 49 4C 45 53 3A 92 |.4:.4,".#FILES:.|
00000E00: 20 22 4E 46 00 1A 12 4C 04 8B 50 44 B2 33 A7 8D | "NF...L..PD.3..|
00000E10: 32 30 32 30 3A 8D 31 39 38 30 00 29 12 56 04 A0 |2020:.1980.).V..|
00000E20: 34 3A A0 35 3A 89 39 34 30 00 69 12 60 04 99 22 |4:.5:.940.i.`.."|
00000E30: 93 54 4F 20 44 45 4C 45 54 45 20 44 49 53 4B 20 |.TO DELETE DISK |
00000E40: 46 52 4F 4D 20 4D 41 53 54 45 52 20 44 49 52 45 |FROM MASTER DIRE|
00000E50: 43 54 4F 52 59 22 3A 8D 31 37 37 30 3A 91 56 89 |CTORY":.1770:.V.|
00000E60: 31 31 37 30 2C 31 31 32 30 00 78 12 6A 04 98 31 |1170,1120.x.j..1|
00000E70: 35 2C 22 53 22 AA 53 24 00 A0 12 74 04 43 58 B2 |5,"S".S$...t.CX.|
00000E80: 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A 8B C8 28 58 |0:.X.0.NX.1:..(X|
00000E90: 24 28 58 29 2C 32 29 B2 44 49 24 A7 43 58 B2 31 |$(X),2).DI$.CX.1|
00000EA0: 00 B6 12 7E 04 8B 43 58 A7 58 24 28 58 29 B2 58 |...~..CX.X$(X).X|
00000EB0: 24 28 58 AA 31 29 00 CB 12 88 04 82 58 3A 4E 58 |$(X.1)......X:NX|
00000EC0: B2 4E 58 AB 31 3A 89 31 31 32 30 00 DA 12 92 04 |.NX.1:.1120.....|
00000ED0: 8D 32 31 35 30 3A 89 32 38 30 00 EF 12 9C 04 8B |.2150:.280......|
00000EE0: 4E 58 B2 30 A7 8D 31 37 38 30 3A 89 32 38 30 00 |NX.0..1780:.280.|
00000EF0: FC 12 A6 04 A0 34 3A 8D 32 30 31 30 00 27 13 B0 |.....4:.2010.'..|
00000F00: 04 99 A6 35 29 22 30 20 2D 20 52 45 54 55 52 4E |...5)"0 - RETURN|
00000F10: 20 54 4F 20 4D 41 49 4E 20 46 55 4E 43 54 49 4F | TO MAIN FUNCTIO|
00000F20: 4E 20 4D 45 4E 55 11 00 50 13 BA 04 99 A6 35 29 |N MENU..P.....5)|
00000F30: 22 31 20 2D 20 50 52 49 4E 54 20 46 55 4C 4C 20 |"1 - PRINT FULL |
00000F40: 49 44 20 55 53 45 41 47 45 20 43 48 41 52 54 11 |ID USEAGE CHART.|
00000F50: 00 78 13 C4 04 99 A6 35 29 22 32 20 2D 20 51 55 |.x.....5)"2 - QU|
00000F60: 49 43 4B 20 4C 49 53 54 20 4F 46 20 49 44 27 53 |ICK LIST OF ID'S|
00000F70: 20 49 4E 20 55 53 45 11 00 9D 13 CE 04 99 A6 35 | IN USE........5|
00000F80: 29 22 33 20 2D 20 4C 49 53 54 20 44 49 53 4B 20 |)"3 - LIST DISK |
00000F90: 49 44 27 53 20 26 20 4E 41 4D 45 53 11 00 CB 13 |ID'S & NAMES....|
00000FA0: D3 04 99 A6 35 29 22 34 20 2D 20 4C 49 53 54 20 |....5)"4 - LIST |
00000FB0: 12 4D 49 4E 92 20 46 52 45 45 20 42 4C 4F 43 4B |.MIN. FREE BLOCK|
00000FC0: 53 20 50 45 52 20 44 49 53 4B 11 00 F8 13 D6 04 |S PER DISK......|
00000FD0: 99 A6 35 29 22 35 20 2D 20 4C 49 53 54 20 12 4D |..5)"5 - LIST .M|
00000FE0: 41 58 92 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 |AX. FREE BLOCKS |
00000FF0: 50 45 52 20 44 49 53 4B 00 20 14 D8 04 8D 32 30 |PER DISK. ....20|
00001000: 32 30 3A 99 22 45 4E 54 45 52 20 44 45 53 49 52 |20:."ENTER DESIR|
00001010: 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B |ED FUNCTION: ";|
00001020: 00 36 14 E2 04 8D 31 39 39 30 3A 8B 43 24 B2 22 |.6....1990:.C$."|
00001030: 30 22 A7 32 38 30 00 50 14 EC 04 56 B2 C5 28 43 |0".280.P...V..(C|
00001040: 24 29 3A 8B 56 B3 31 B0 56 B1 35 A7 31 32 35 30 |$):.V.1.V.5.1250|
00001050: 00 74 14 F6 04 99 43 24 3A 91 56 89 31 32 38 30 |.t....C$:.V.1280|
00001060: 2C 31 34 36 30 2C 31 35 32 30 2C 32 35 30 30 2C |,1460,1520,2500,|
00001070: 32 36 30 30 00 84 14 00 05 9F 34 2C 34 3A 9F 36 |2600......4,4:.6|
00001080: 2C 34 2C 36 00 C1 14 0A 05 98 34 2C A6 31 35 29 |,4,6......4,.15)|
00001090: 22 12 20 20 44 20 49 20 53 20 4B 20 20 20 49 20 |". D I S K I |
000010A0: 44 20 20 20 55 20 53 20 45 20 41 20 47 20 45 20 |D U S E A G E |
000010B0: 20 20 43 20 48 20 41 20 52 20 54 20 20 22 3A 98 | C H A R T ":.|
000010C0: 34 00 CD 14 14 05 98 34 2C 22 20 22 3B 00 E5 14 |4......4," ";...|
000010D0: 1E 05 81 58 B2 34 38 A4 39 30 3A 8B 58 B2 35 38 |...X.48.90:.X.58|
000010E0: A7 58 B2 36 35 00 04 15 28 05 98 34 2C 22 20 22 |.X.65...(..4," "|
000010F0: C7 28 58 29 3B 3A 82 58 3A 98 34 3A 98 36 2C C7 |.(X);:.X:.4:.6,.|
00001100: 28 31 38 29 00 20 15 32 05 5A B2 30 3A 81 58 B2 |(18). .2.Z.0:.X.|
00001110: 34 38 A4 39 30 3A 8B 58 B2 35 38 A7 58 B2 36 35 |48.90:.X.58.X.65|
00001120: 00 69 15 3C 05 98 34 2C 22 20 DB C0 DB C0 DB C0 |.i.<..4," ......|
00001130: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001140: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001150: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001160: DB C0 DB C0 DB C0 DB 22 3B 00 7E 15 46 05 98 34 |.......";.~.F..4|
00001170: 2C 22 C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 8B |,"..............|
00001180: 15 50 05 98 34 2C C7 28 58 29 3B 00 A3 15 5A 05 |.P..4,.(X);...Z.|
00001190: 81 59 B2 34 38 A4 39 30 3A 8B 59 B2 35 38 A7 59 |.Y.48.90:.Y.58.Y|
000011A0: B2 36 35 00 BA 15 64 05 98 34 2C 22 DD 22 3B 3A |.65...d..4,".";:|
000011B0: 8B 5A B2 4E 58 A7 31 34 31 30 00 D9 15 6E 05 43 |.Z.NX.1410...n.C|
000011C0: 24 B2 C7 28 58 29 AA C7 28 59 29 3A 53 24 B2 C8 |$..(X)..(Y):S$..|
000011D0: 28 58 24 28 5A 29 2C 32 29 00 F8 15 78 05 8B 53 |(X$(Z),2)...x..S|
000011E0: 24 B2 43 24 A7 98 34 2C 22 A6 22 3B 3A 5A B2 5A |$.C$..4,".";:Z.Z|
000011F0: AA 31 3A 89 31 34 32 30 00 04 16 82 05 98 34 2C |.1:.1420......4,|
00001200: 22 20 22 3B 00 24 16 8C 05 82 59 3A 98 34 2C 22 |" ";.$....Y:.4,"|
00001210: DD 22 3A A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D |.":.C$:.C$..""..|
00001220: 31 39 39 30 00 34 16 96 05 8B 43 24 B3 B1 22 51 |1990.4....C$.."Q|
00001230: 22 A7 82 58 00 7D 16 A0 05 98 34 2C 22 20 B1 C0 |"..X.}....4," ..|
00001240: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001250: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001260: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001270: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 22 3B 00 A2 16 |...........";...|
00001280: AA 05 98 34 2C 22 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |...4,"..........|
00001290: C0 BD 22 3A 98 36 2C C7 28 32 34 29 3A 89 31 31 |..":.6,.(24):.11|
000012A0: 39 30 00 D6 16 B4 05 8D 31 39 34 30 3A 98 34 2C |90......1940:.4,|
000012B0: A6 37 29 22 12 44 49 53 4B 20 49 44 27 53 20 43 |.7)".DISK ID'S C|
000012C0: 55 52 52 45 4E 54 4C 59 20 49 4E 20 55 53 45 22 |URRENTLY IN USE"|
000012D0: 3A 98 34 3A 98 34 00 EA 16 BE 05 56 B2 31 32 3A |:.4:.4.....V.12:|
000012E0: 8B 50 44 B2 34 A7 56 B2 32 35 00 0E 17 C8 05 5A |.PD.4.V.25.....Z|
000012F0: B2 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A 98 34 2C |.0:.X.0.NX.1:.4,|
00001300: C8 28 58 24 28 58 29 2C 32 29 22 20 22 3B 00 27 |.(X$(X),2)" ";.'|
00001310: 17 D2 05 5A B2 5A AA 31 3A 8B 5A B2 B5 28 5A AD |...Z.Z.1:.Z..(Z.|
00001320: 56 29 AC 56 A7 98 34 00 44 17 DC 05 82 58 3A 98 |V).V..4.D....X:.|
00001330: 34 3A 98 34 3A 8B 5A B3 B1 B5 28 5A AD 56 29 AC |4:.4:.Z...(Z.V).|
00001340: 56 A7 98 34 00 6F 17 E6 05 98 34 2C 5A 22 12 44 |V..4.o....4,Z".D|
00001350: 49 53 4B 53 20 49 4E 20 4D 41 53 54 45 52 20 44 |ISKS IN MASTER D|
00001360: 49 52 45 43 54 4F 52 59 22 3A 89 31 35 37 30 00 |IRECTORY":.1570.|
00001370: 97 17 F0 05 8D 31 39 34 30 3A 98 34 2C 22 12 49 |.....1940:.4,".I|
00001380: 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E |D ...DISK NAME.|
00001390: 2E 2E 2E 22 3A 98 34 00 C1 17 FA 05 81 58 B2 30 |...":.4......X.0|
000013A0: A4 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 |.NX.1:.4,.(X$(X)|
000013B0: 2C 32 29 22 20 20 22 CA 28 58 24 28 58 29 2C 33 |,2)" ".(X$(X),3|
000013C0: 29 00 D7 17 04 06 A1 43 24 3A 8B 43 24 B3 B1 22 |)......C$:.C$.."|
000013D0: 22 A7 8D 31 39 39 30 00 E8 17 0E 06 8B 43 24 B2 |"..1990......C$.|
000013E0: 22 51 22 A7 31 31 39 30 00 EF 17 18 06 82 58 00 |"Q".1190......X.|
000013F0: FE 17 22 06 8B 50 44 B2 34 A7 31 31 39 30 00 14 |.."..PD.4.1190..|
00001400: 18 2C 06 8D 32 30 32 30 3A 8D 31 39 38 30 3A 89 |.,..2020:.1980:.|
00001410: 31 31 39 30 00 29 18 36 06 8B 4E 58 B2 30 A7 8D |1190.).6..NX.0..|
00001420: 31 37 38 30 3A 89 32 38 30 00 56 18 40 06 A0 34 |1780:.280.V.@..4|
00001430: 3A 99 22 93 54 4F 20 46 49 4E 44 20 57 48 41 54 |:.".TO FIND WHAT|
00001440: 20 44 49 53 4B 28 53 29 20 41 20 46 49 4C 45 20 | DISK(S) A FILE |
00001450: 49 53 20 4F 4E 11 00 83 18 4A 06 85 22 45 4E 54 |IS ON....J.."ENT|
00001460: 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 20 20 A2 |ER FILE NAME .|
00001470: 9D 9D 9D 22 3B 46 24 3A 8B 46 24 B2 22 A2 22 A7 |...";F$:.F$.".".|
00001480: 32 38 30 00 9E 18 54 06 8B 46 24 B2 22 2A 22 A7 |280...T..F$."*".|
00001490: 99 22 11 52 45 2D 22 3B 3A 89 31 36 31 30 00 B8 |.".RE-";:.1610..|
000014A0: 18 5E 06 53 24 B2 46 24 3A 8D 31 39 32 30 3A 56 |.^.S$.F$:.1920:V|
000014B0: B2 59 3A 8D 31 39 34 30 00 EC 18 68 06 98 34 2C |.Y:.1940...h..4,|
000014C0: 22 12 2E 2E 2E 46 49 4C 45 20 4E 41 4D 45 2E 2E |"....FILE NAME..|
000014D0: 2E 2E 20 20 49 44 20 20 2E 2E 2E 44 49 53 4B 20 |.. ID ...DISK |
000014E0: 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 34 00 F9 18 72 |NAME....":.4...r|
000014F0: 06 98 34 2C 53 24 3A 98 34 00 25 19 7C 06 81 5A |..4,S$:.4.%.|..Z|
00001500: B2 30 A4 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 |.0.NX.1:DI$..(X$|
00001510: 28 5A 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 |(Z),2):DN$..(X$(|
00001520: 5A 29 2C 33 29 00 54 19 86 06 8D 31 39 31 30 3A |Z),3).T....1910:|
00001530: 9F 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 |.5,8,5,S$.",S,R"|
00001540: 3A 8D 32 35 30 3A 84 35 2C 44 46 24 2C 4E 42 3A |:.250:.5,DF$,NB:|
00001550: 8D 32 35 30 00 70 19 90 06 8D 32 34 30 3A 59 B2 |.250.p....240:Y.|
00001560: 31 36 3A 8D 32 30 30 3A 59 B2 33 3A 8D 32 31 30 |16:.200:Y.3:.210|
00001570: 00 85 19 9A 06 8B 46 24 B3 C8 28 53 24 2C 56 29 |......F$..(S$,V)|
00001580: A7 31 37 34 30 00 A9 19 A4 06 8B 46 24 B2 C8 28 |.1740......F$..(|
00001590: 53 24 2C 56 29 A7 98 34 2C 53 24 22 20 20 22 44 |S$,V)..4,S$" "D|
000015A0: 49 24 22 20 20 22 44 4E 24 00 BF 19 AE 06 A1 43 |I$" "DN$......C|
000015B0: 24 3A 8B 43 24 B3 B1 22 22 A7 8D 31 39 39 30 00 |$:.C$..""..1990.|
000015C0: D4 19 B8 06 8B 43 24 B2 22 51 22 A7 A0 35 3A 89 |.....C$."Q"..5:.|
000015D0: 31 36 30 30 00 E3 19 C2 06 8B 53 53 B2 30 A7 31 |1600......SS.0.1|
000015E0: 36 38 30 00 ED 19 CC 06 A0 35 3A 82 5A 00 03 1A |680......5:.Z...|
000015F0: D6 06 8B 50 44 B2 33 A7 8D 32 30 32 30 3A 8D 31 |...PD.3..2020:.1|
00001600: 39 38 30 00 0D 1A E0 06 89 31 36 30 30 00 20 1A |980......1600. .|
00001610: EA 06 56 B2 33 3A 8B 4E 58 B1 30 A7 31 37 39 30 |..V.3:.NX.0.1790|
00001620: 00 3F 1A F4 06 99 22 93 12 4E 4F 20 45 4E 54 52 |.?...."..NO ENTR|
00001630: 49 45 53 22 3B 3A 56 B2 31 3A 89 31 38 39 30 00 |IES";:V.1:.1890.|
00001640: 81 1A FE 06 85 22 11 45 4E 54 45 52 20 44 49 53 |.....".ENTER DIS|
00001650: 4B 20 49 44 20 20 20 A2 9D 9D 9D 22 3B 44 49 24 |K ID ....";DI$|
00001660: 3A 44 49 24 B2 C8 28 44 49 24 AA 22 20 20 22 2C |:DI$..(DI$." ",|
00001670: 32 29 3A 8B 44 49 24 B2 22 A2 20 22 A7 31 38 34 |2):.DI$.". ".184|
00001680: 30 00 A9 1A 08 07 81 58 B2 30 A4 4E 58 AB 31 3A |0......X.0.NX.1:|
00001690: 8B 44 49 24 B3 B1 C8 28 58 24 28 58 29 2C 32 29 |.DI$...(X$(X),2)|
000016A0: A7 82 58 3A 89 31 38 38 30 00 CB 1A 12 07 44 4E |..X:.1880.....DN|
000016B0: 24 B2 CA 28 58 24 28 58 29 2C 33 29 3A 44 49 24 |$..(X$(X),3):DI$|
000016C0: B2 C8 28 58 24 28 58 29 2C 32 29 00 E3 1A 1C 07 |..(X$(X),2).....|
000016D0: 8D 32 30 33 30 3A 8B 43 24 B2 22 4E 22 A7 56 B2 |.2030:.C$."N".V.|
000016E0: 32 3A 8E 00 ED 1A 26 07 89 31 39 31 30 00 1D 1B |2:....&..1910...|
000016F0: 30 07 85 22 11 45 4E 54 45 52 20 44 49 53 4B 20 |0..".ENTER DISK |
00001700: 4E 41 4D 45 20 20 20 A2 9D 9D 9D 22 3B 46 24 3A |NAME ....";F$:|
00001710: 8B 46 24 B2 22 A2 22 A7 56 B2 31 3A 8E 00 3B 1B |.F$.".".V.1:..;.|
00001720: 3A 07 8D 31 39 32 30 3A 81 58 B2 30 A4 4E 58 AB |:..1920:.X.0.NX.|
00001730: 31 3A 8B 59 B2 30 A7 31 39 30 30 00 55 1B 44 07 |1:.Y.0.1900.U.D.|
00001740: 8B 46 24 B2 CA 28 58 24 28 58 29 2C 33 2C 59 29 |.F$..(X$(X),3,Y)|
00001750: A7 31 39 30 30 00 5C 1B 4E 07 82 58 00 6E 1B 58 |.1900.\.N..X.n.X|
00001760: 07 99 22 11 12 4E 4F 54 22 3B 3A 56 B2 32 00 97 |.."..NOT";:V.2..|
00001770: 1B 62 07 99 22 20 49 4E 20 4D 41 53 54 45 52 20 |.b.." IN MASTER |
00001780: 44 49 52 45 43 54 4F 52 59 21 22 3A 8D 32 30 32 |DIRECTORY!":.202|
00001790: 30 3A 89 31 39 38 30 00 CC 1B 6C 07 44 4E 24 B2 |0:.1980...l.DN$.|
000017A0: CA 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 |.(X$(X),3):DI$..|
000017B0: 28 58 24 28 58 29 2C 32 29 3A 8D 32 30 33 30 3A |(X$(X),2):.2030:|
000017C0: 8B 43 24 B2 22 4E 22 A7 31 38 37 30 00 E2 1B 76 |.C$."N".1870...v|
000017D0: 07 53 24 B2 22 30 3A 44 49 52 2E 22 AA 44 49 24 |.S$."0:DIR.".DI$|
000017E0: 3A 8E 00 16 1C 80 07 46 24 B2 C8 28 46 24 2C 31 |:......F$..(F$,1|
000017F0: 36 29 3A 8B C9 28 46 24 2C 31 29 B2 22 2A 22 A7 |6):..(F$,1)."*".|
00001800: 59 B2 C3 28 46 24 29 AB 31 3A 46 24 B2 C8 28 46 |Y..(F$).1:F$..(F|
00001810: 24 2C 59 29 3A 8E 00 40 1C 8A 07 59 B2 31 36 3A |$,Y):..@...Y.16:|
00001820: 46 24 B2 C8 28 46 24 AA 22 20 20 20 20 20 20 20 |F$..(F$." |
00001830: 20 20 20 20 20 20 20 20 20 22 2C 31 36 29 3A 8E | ",16):.|
00001840: 00 6C 1C 94 07 8D 32 30 32 30 3A 99 22 57 41 4E |.l....2020:."WAN|
00001850: 54 20 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B |T PRINTED COPY";|
00001860: 3A 8D 32 30 35 30 3A 8D 32 30 32 30 00 82 1C 9E |:.2050:.2020....|
00001870: 07 50 44 B2 33 3A 8B 43 24 B2 22 59 22 A7 50 44 |.PD.3:.C$."Y".PD|
00001880: B2 34 00 98 1C A8 07 9F 34 2C 50 44 3A 8B 50 44 |.4......4,PD:.PD|
00001890: B2 33 A7 99 22 93 22 3B 00 9E 1C B2 07 8E 00 C0 |.3..".";........|
000018A0: 1C BC 07 99 22 44 45 50 52 45 53 53 20 41 4E 59 |...."DEPRESS ANY|
000018B0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
000018C0: 00 D4 1C C6 07 A1 43 24 3A 8B 43 24 B2 22 22 A7 |......C$:.C$."".|
000018D0: 31 39 39 30 00 DA 1C D0 07 8E 00 FF 1C DA 07 99 |1990............|
000018E0: 22 93 22 3B A6 39 29 3B 22 12 44 20 49 20 53 20 |".";.9);".D I S |
000018F0: 4B 20 20 20 4D 20 41 20 53 20 54 20 45 20 52 00 |K M A S T E R.|
00001900: 32 1D E4 07 99 22 11 C0 C0 C0 C0 C0 C0 C0 C0 C0 |2...."..........|
00001910: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001920: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."|
00001930: 3A 8E 00 68 1D EE 07 99 22 93 12 44 49 53 4B 20 |:..h...."..DISK |
00001940: 4E 41 4D 45 3A 92 20 20 22 44 4E 24 3A 99 22 11 |NAME:. "DN$:.".|
00001950: 20 20 12 44 49 53 4B 20 49 44 3A 92 20 20 22 44 | .DISK ID:. "D|
00001960: 49 24 3A 8D 32 30 32 30 00 7D 1D F8 07 99 22 43 |I$:.2020.}...."C|
00001970: 4F 52 52 45 43 54 20 44 49 53 4B 22 3B 00 90 1D |ORRECT DISK";...|
00001980: 02 08 99 22 20 28 59 2F 4E 29 20 3F 20 20 22 3B |..." (Y/N) ? ";|
00001990: 00 B0 1D 0C 08 8D 31 39 39 30 3A 8B 43 24 B3 B1 |......1990:.C$..|
000019A0: 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 32 30 36 30 |"Y".C$.."N".2060|
000019B0: 00 BA 1D 16 08 99 43 24 3A 8E 00 D7 1D 20 08 84 |......C$:.... ..|
000019C0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:|
000019D0: 8B 45 4E B2 30 A7 8E 00 F4 1D 2A 08 99 22 93 12 |.EN.0.....*.."..|
000019E0: 44 49 53 4B 20 45 52 52 4F 52 92 20 57 48 49 4C |DISK ERROR. WHIL|
000019F0: 45 20 22 3B 00 0A 1E 34 08 8B 43 58 A7 99 22 57 |E ";...4..CX.."W|
00001A00: 52 49 54 49 4E 47 20 4E 45 57 00 1E 1E 3E 08 8B |RITING NEW...>..|
00001A10: 43 58 B2 30 A7 99 22 52 45 41 44 49 4E 47 00 4B |CX.0.."READING.K|
00001A20: 1E 48 08 99 22 11 44 49 53 4B 20 44 49 52 45 43 |.H..".DISK DIREC|
00001A30: 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 45 52 |TORY CROSS REFER|
00001A40: 45 4E 43 45 20 46 49 4C 45 2E 11 00 5D 1E 52 08 |ENCE FILE...].R.|
00001A50: 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 7D 1E |.EN;EM$;ET;ES.}.|
00001A60: 5C 08 99 22 11 12 50 52 4F 47 52 41 4D 20 41 42 |\.."..PROGRAM AB|
00001A70: 4F 52 54 45 44 21 22 3A 89 32 32 34 30 00 89 1E |ORTED!":.2240...|
00001A80: 66 08 8B 43 58 B2 30 A7 8E 00 BD 1E 70 08 8D 32 |f..CX.0.....p..2|
00001A90: 30 32 30 3A 99 22 55 50 44 41 54 49 4E 47 20 44 |020:."UPDATING D|
00001AA0: 49 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 |IRECTORY CROSS R|
00001AB0: 45 46 45 52 45 4E 43 45 20 2E 2E 2E 11 00 E0 1E |EFERENCE .......|
00001AC0: 7A 08 8B 4E 58 B2 30 A7 98 31 35 2C 22 53 30 3A |z..NX.0..15,"S0:|
00001AD0: 44 49 53 4B 20 44 49 52 20 58 52 45 46 22 3A 8E |DISK DIR XREF":.|
00001AE0: 00 FB 1E 84 08 98 31 35 2C 22 53 30 3A 44 49 52 |......15,"S0:DIR|
00001AF0: 20 58 52 45 46 2E 54 45 4D 50 22 00 22 1F 8E 08 | XREF.TEMP"."...|
00001B00: 9F 35 2C 38 2C 35 2C 22 30 3A 44 49 52 20 58 52 |.5,8,5,"0:DIR XR|
00001B10: 45 46 2E 54 45 4D 50 2C 53 2C 57 22 3A 8D 32 30 |EF.TEMP,S,W":.20|
00001B20: 38 30 00 47 1F 98 08 81 58 B2 30 A4 4E 58 AB 31 |80.G....X.0.NX.1|
00001B30: 3A 98 35 2C 58 24 28 58 29 3B 43 52 24 3B 3A 8D |:.5,X$(X);CR$;:.|
00001B40: 32 30 38 30 3A 82 58 00 65 1F A2 08 A0 35 3A 98 |2080:.X.e....5:.|
00001B50: 31 35 2C 22 53 30 3A 44 49 53 4B 20 44 49 52 20 |15,"S0:DISK DIR |
00001B60: 58 52 45 46 22 00 96 1F AC 08 98 31 35 2C 22 52 |XREF"......15,"R|
00001B70: 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 3D |0:DISK DIR XREF=|
00001B80: 30 3A 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 |0:DIR XREF.TEMP"|
00001B90: 3A 8D 32 30 38 30 00 9C 1F B6 08 8E 00 AC 1F C0 |:.2080..........|
00001BA0: 08 A0 34 3A A0 35 3A A0 31 35 3A 80 00 D7 1F C4 |..4:.5:.15:.....|
00001BB0: 09 99 22 93 45 4E 54 45 52 20 4D 49 4E 49 4D 55 |..".ENTER MINIMU|
00001BC0: 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 |M NUMBER OF FREE|
00001BD0: 20 42 4C 4F 43 4B 53 00 F9 1F CE 09 85 22 11 54 | BLOCKS......".T|
00001BE0: 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 20 |O BE DISPLAYED |
00001BF0: 20 30 9D 9D 9D 22 3B 53 24 00 17 20 D8 09 59 B2 | 0...";S$.. ..Y.|
00001C00: C5 28 53 24 29 3A 8B 53 24 B3 B1 22 30 22 AF 59 |.(S$):.S$.."0".Y|
00001C10: B2 30 A7 31 31 39 30 00 26 20 E2 09 56 46 B2 30 |.0.1190.& ..VF.0|
00001C20: 3A 89 33 30 30 30 00 51 20 28 0A 99 22 93 45 4E |:.3000.Q (..".EN|
00001C30: 54 45 52 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 |TER MAXIMUM NUMB|
00001C40: 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B |ER OF FREE BLOCK|
00001C50: 53 00 75 20 32 0A 85 22 11 54 4F 20 42 45 20 44 |S.u 2..".TO BE D|
00001C60: 49 53 50 4C 41 59 45 44 20 20 20 39 39 9D 9D 9D |ISPLAYED 99...|
00001C70: 9D 22 3B 53 24 00 8B 20 3C 0A 59 B2 C5 28 53 24 |.";S$.. <.Y..(S$|
00001C80: 29 3A 8B 59 B2 30 A7 31 31 39 30 00 94 20 46 0A |):.Y.0.1190.. F.|
00001C90: 56 46 B2 31 00 C8 20 B8 0B 8D 31 39 34 30 3A 98 |VF.1.. ...1940:.|
00001CA0: 34 2C 22 12 23 42 4C 4B 53 20 46 52 45 45 20 20 |4,".#BLKS FREE |
00001CB0: 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 |ID ...DISK NAME|
00001CC0: 2E 2E 2E 2E 22 3A 98 34 00 F4 20 C2 0B 81 58 B2 |....":.4.. ...X.|
00001CD0: 30 A4 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 |0.NX.1:DI$..(X$(|
00001CE0: 58 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 58 |X),2):DN$..(X$(X|
00001CF0: 29 2C 33 29 00 2A 21 CC 0B 9F 35 2C 38 2C 35 2C |),3).*!...5,8,5,|
00001D00: 22 30 3A 44 49 52 2E 22 AA 44 49 24 AA 22 2C 53 |"0:DIR.".DI$.",S|
00001D10: 2C 52 22 3A 8D 32 35 30 3A 84 35 2C 44 46 24 2C |,R":.250:.5,DF$,|
00001D20: 4E 42 3A 8D 32 35 30 3A A0 35 00 42 21 D6 0B 8B |NB:.250:.5.B!...|
00001D30: 28 56 46 B2 30 29 AF 28 4E 42 B3 59 29 A7 33 30 |(VF.0).(NB.Y).30|
00001D40: 35 30 00 5A 21 DB 0B 8B 28 56 46 B2 31 29 AF 28 |50.Z!...(VF.1).(|
00001D50: 4E 42 B1 59 29 A7 33 30 35 30 00 83 21 E0 0B 98 |NB.Y).3050..!...|
00001D60: 34 2C C9 28 22 20 20 20 20 20 20 20 22 AA C4 28 |4,.(" "..(|
00001D70: 4E 42 29 2C 37 29 A6 35 29 44 49 24 22 20 20 22 |NB),7).5)DI$" "|
00001D80: 44 4E 24 00 99 21 EA 0B A1 43 24 3A 8B 43 24 B3 |DN$..!...C$:.C$.|
00001D90: B1 22 22 A7 8D 31 39 39 30 00 AA 21 F4 0B 8B 43 |.""..1990..!...C|
00001DA0: 24 B2 22 51 22 A7 31 31 39 30 00 B7 21 FE 0B 82 |$."Q".1190..!...|
00001DB0: 58 3A 89 31 35 37 30 00 00 00 |X:.1570... |
..&.... --------- DISK MASTER --------.,
.....L.... BY ROBERT W. BAKER.R..
...W.... 2040, 3040, 4040 & 8050 DISKS.
..(.. DOS 1.0 & 2.X...2..
BASIC 2.0 AND 4.0.U.<.. 40 OR 80 C
OLUMN DISPLAY...A.....F.. COPIED FROM
MICROCOMPUTING...K.. #66 JUNE 1
982.!.P...@.U.. BY DAVID A. HOOK
.F.Z...K._.. ------------ V2.0 ---------
---.Q.N.:...X..:C$."":S$.C$:X.0:Y.0:.594
68,12......2010:.D$(230),X$(230):CR$.G(1
3).V....15,8,15:.15,"I0":.2080......5,8,
5,"0:DISK DIR XREF,S,R"... ..15,EN,EM$,E
T,ES:.EN.62.280.A...." READING DIRECTOR
Y CROSS REFERENCE.M....5,X$(NX):SS.ST:.2
080:NX.NX.1:.SS.0.180.V....280...H.S$.""
:.X.1.Y:.240:S$.S$.C$:.X:....R..X.1.Y:.2
40:.X:..L...V.0:.240:.C$.."".V.F(C$).R..
........#5,C$.....SS.ST:.15,EN,EM$,ET,ES
:.EN.0...$...."..DISK ERROR!.":.EN;EM$;E
T;ES.4....2020:.1980.I... 4: 5:CX.0:.201
0.\."...5)"0 - DONE....,...5)"1 - UPDATE
MASTER DIRECTORY....6...5)"2 - DELETE D
ISK ENTRY FROM MASTER..W.@...5)"3 - DISP
LAY SELECTED DIRECTORY....J...5)"4 - FIN
D SPECIFIED FILE....T...5)"5 - LIST DISK
ID'S & NAMES.E.^..2020:."ENTER DESIRED
FUNCTION: ";.B.H..1990:.C$."0"..".":.22
40.{.R.V.E(C$):.V.1.V.5.360...|..V.390,1
120,940,1590,1180.D...CX.0:.".INSERT UPD
ATE DISK IN DRIVE #1......".DEPRESS ANY
KEY TO CONTINUE, .Q. TO QUIT......1990:.
C$."Q".280.(....2020:."OK":.15,"I1":.250
.A....5,8,5,"$1,S,R":.250.I....220:VF.V:
.240:.VF.67.Y.2:.210:.470...B.NB.0:.Z.1.
35:.220:.Z..18.NB.NB.V...L.Y.3:.210:.Z.V
.V.Y.16:.200:DN$.S$:Y.2:.210:Y.2:.200:DI
$.H(S$." ",2)......2030:.C$."N".930....
..NX.0.610."....X.0.NX.1:C$.H(X$(X),2):.
DI$.C$.610.7....DI$..C$..X:.610.O....DN$
.J(X$(X),3).610....."..*** WARNING ***.
THIS DISK ID: ."DI$".......".DISK NAME
: ."DN$.F.&..".IS ALL READY CATALOGED WI
TH A DIFFERENT...0..".DISK NAME: ."J(X$(
X),3):.2020...:.."CATALOGING THIS DISK W
ILL DELETE THE.3.D..".PREVIOUS DATA!":.2
020._.N.."CATALOG THIS DISK";:.2050:.C$.
"N".930...X..".CATALOGING DISK WITH NEW
DISK NAME...B..2020:."READING DIRECTORY
ENTRIES ......L..240:Y.2:.200:DF$.S$:Y.8
9:.VF.67.Y.227...Q..VF.1.DF$." 1"...V..2
10:.VF..67.639...X.NB.0:.Z.1.77:.(Z.1).(
Z.51).Y.4:.210.F.Z..220:.Z..39.NB.NB.V.V
.|.Y.4:.210:.Z.E.~.Y.115:.210.R..NF.0:Z
.0......220:FT.V:F$.C$:Y.2:.210:Y.16:.20
0:Y.9:.210.E....220:S$.S$.G(V):.220:.FT.
0.720.S....NF.0.690......X.1.NF:.H(S$,16
).J(D$(X),2,16).700......X.....X.NF.1:.7
10.2....Y.NF.X..1:D$(Y.1).D$(Y):.Y.O.F.D
$(X).F$.S$.G(V):NF.NF.1.V.P.Z.Z.1:Z.Z.(.
(Z.8).8):.Z.0.Y.2:.210...U.XX.155:.VF.67
.XX.277...Z..NF.155.790.Q....". .**
* DISK BAM IS INVALID ***.":.2020......"
. CURRENT DISK CANNOT BE CATALOGED!...
.-...." PLEASE VERIFY OR CHECK DISK CONT
ENTS..\...."BEFORE ATTEMPTING TO CATALOG
THIS DISK...Q....2020:.1980:.930.....S
S.0.640... . 5:.2020:."UPDATING MASTER D
IRECTORY ......*..NX.0.860...4..X.0.NX.1
:C$.H(X$(X),2):.DI$.C$.850...>..DI$.C$.8
80...H..X:.860.%.R..Y.NX.1.X..1:X$(Y.1).
X$(Y):.Y:.870...\.X.NX.:.F.NX.NX.1.Q.P.X
$(X).DI$.DN$:CX.1.|.Z..1910:.15,"S".S$:.
5,8,5,S$.",S,W":.250......5,DF$","NB;CR$
;:.250......NF.0..X.1.NF:.5,D$(X);CR$;:.
250:.X.P... 5:.2150:.390......".TO DISPL
AY DISK DIRECTORY":.1770:.V.280,940.2...
.5,8,5,S$.",S,R":.250:.1940:.5,DF$,NB:.2
50.R....4," .DISK NAME:. "DN$:.4.T.J..
4," .DISK ID:. "DI$;.6);...O..4,".DI
SK FORMAT:. "DF$:.4...T..4,".BLOCKS FRE
E:. "NB:.4......4,"CCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCC":.4.....NF.0:.SS.0.11
00.%....220:FT.V:Y.16:.200:.220:Z.V:.220
:.240.R....4,I(" ".D(Z.(256.V)),4);"
"S$" ";.H....FT.129..4,"SEQ";.~....FT
.130..4,"PGM";......FT.131..4,"USR";....
..FT.132..4,"REL";.C.$..4:.C$:.C$..""..1
990.T....C$."Q".1110...8.NF.NF.1:.SS.0.1
010...B..4:.4,".#FILES:. "NF...L..PD.3..
2020:.1980.).V. 4: 5:.940.I.`..".TO DELE
TE DISK FROM MASTER DIRECTORY":.1770:.V.
1170,1120.X.J..15,"S".S$. .T.CX.0:.X.0.N
X.1:.H(X$(X),2).DI$.CX.1...~..CX.X$(X).X
$(X.1).K....X:NX.NX.1:.1120.Z....2150:.2
80......NX.0..1780:.280..... 4:.2010.'..
...5)"0 - RETURN TO MAIN FUNCTION MENU..
P.....5)"1 - PRINT FULL ID USEAGE CHART.
.X.D...5)"2 - QUICK LIST OF ID'S IN USE.
...N...5)"3 - LIST DISK ID'S & NAMES..K.
S...5)"4 - LIST .MIN. FREE BLOCKS PER DI
SK....V...5)"5 - LIST .MAX. FREE BLOCKS
PER DISK. .X..2020:."ENTER DESIRED FUNCT
ION: ";.6....1990:.C$."0".280.P...V.E(C
$):.V.1.V.5.1250.T....C$:.V.1280,1460,15
20,2500,2600......4,4:.6,4,6.A....4,.15)
". D I S K I D U S E A G E C H A
R T ":.4.M....4," ";......X.48.90:.X.58
.X.65...(..4," "G(X);:.X:.4:.6,G(18). .2
.Z.0:.X.48.90:.X.58.X.65.I.<..4," ......
........................................
...............";.~.F..4,"..............
.P..4,G(X);...Z..Y.48.90:.Y.58.Y.65...D.
.4,".";:.Z.NX.1410.Y.N.C$.G(X).G(Y):S$.H
(X$(Z),2)...X..S$.C$..4,".";:Z.Z.1:.1420
......4," ";.$....Y:.4,".":.C$:.C$..""..
1990.4....C$.."Q"..X.}. ..4," ..........
........................................
...........";......4,"............":.6,G
(24):.1190.V....1940:.4,.7)".DISK ID'S C
URRENTLY IN USE":.4:.4.....V.12:.PD.4.V.
25...H.Z.0:.X.0.NX.1:.4,H(X$(X),2)" ";.'
.R.Z.Z.1:.Z..(Z.V).V..4.D....X:.4:.4:.Z.
..(Z.V).V..4.O....4,Z".DISKS IN MASTER D
IRECTORY":.1570......1940:.4,".ID ...DI
SK NAME....":.4.A....X.0.NX.1:.4,H(X$(X)
,2)" "J(X$(X),3).W....C$:.C$..""..1990.
.....C$."Q".1190......X..."..PD.4.1190..
.,..2020:.1980:.1190.).6..NX.0..1780:.28
0.V.@. 4:.".TO FIND WHAT DISK(S) A FILE
IS ON....J.."ENTER FILE NAME ....";F$:
.F$.".".280...T..F$."*"..".RE-";:.1610..
.^.S$.F$:.1920:V.Y:.1940...H..4,"....FIL
E NAME.... ID ...DISK NAME....":.4...R
..4,S$:.4.%.|..Z.0.NX.1:DI$.H(X$(Z),2):D
N$.J(X$(Z),3).T....1910:.5,8,5,S$.",S,R"
:.250:.5,DF$,NB:.250.P....240:Y.16:.200:
Y.3:.210......F$.H(S$,V).1740......F$.H(
S$,V)..4,S$" "DI$" "DN$......C$:.C$.."
"..1990.T....C$."Q". 5:.1600...B..SS.0.1
680...L. 5:.Z...V..PD.3..2020:.1980.....
.1600. ...V.3:.NX.0.1790.?...."..NO ENTR
IES";:V.1:.1890......".ENTER DISK ID .
...";DI$:DI$.H(DI$." ",2):.DI$.". ".184
0......X.0.NX.1:.DI$..H(X$(X),2)..X:.188
0.K...DN$.J(X$(X),3):DI$.H(X$(X),2).....
.2030:.C$."N".V.2:....&..1910...0..".ENT
ER DISK NAME ....";F$:.F$.".".V.1:..;.
:..1920:.X.0.NX.1:.Y.0.1900.U.D..F$.J(X$
(X),3,Y).1900.\.N..X.N.X.."..NOT";:V.2..
.B.." IN MASTER DIRECTORY!":.2020:.1980.
L.L.DN$.J(X$(X),3):DI$.H(X$(X),2):.2030:
.C$."N".1870...V.S$."0:DIR.".DI$:......F
$.H(F$,16):.I(F$,1)."*".Y.C(F$).1:F$.H(F
$,Y):..@...Y.16:F$.H(F$."
",16):..L....2020:."WANT PRINTED COPY";
:.2050:.2020.....PD.3:.C$."Y".PD.4......
4,PD:.PD.3..".";............"DEPRESS ANY
KEY TO CONTINUE.T.F..C$:.C$."".1990.Z.P
.....Z..".";.9);".D I S K M A S T E R.
2...."..................................
.......":..H...."..DISK NAME:. "DN$:.".
.DISK ID:. "DI$:.2020.}...."CORRECT D
ISK";......" (Y/N) ? ";......1990:.C$..
"Y".C$.."N".2060......C$:..W. ..15,EN,EM
$,ET,ES:.EN.0.....*.."..DISK ERROR. WHIL
E ";...4..CX.."WRITING NEW...>..CX.0.."R
EADING.K.H..".DISK DIRECTORY CROSS REFER
ENCE FILE...].R..EN;EM$;ET;ES.}.\.."..PR
OGRAM ABORTED!":.2240...F..CX.0.....P..2
020:."UPDATING DIRECTORY CROSS REFERENCE
.......Z..NX.0..15,"S0:DISK DIR XREF":.
......15,"S0:DIR XREF.TEMP"."....5,8,5,"
0:DIR XREF.TEMP,S,W":.2080.G....X.0.NX.1
:.5,X$(X);CR$;:.2080:.X.E... 5:.15,"S0:D
ISK DIR XREF"......15,"R0:DISK DIR XREF=
0:DIR XREF.TEMP":.2080........... 4: 5:
15:..W.D..".ENTER MINIMUM NUMBER OF FREE
BLOCKS...N..".TO BE DISPLAYED 0...";S
$.. X.Y.E(S$):.S$.."0".Y.0.1190.& ..VF.0
:.3000.Q (..".ENTER MAXIMUM NUMBER OF FR
EE BLOCKS.U 2..".TO BE DISPLAYED 99...
.";S$.. <.Y.E(S$):.Y.0.1190.. F.VF.1.H .
..1940:.4,".#BLKS FREE ID ...DISK NAME
....":.4.. B..X.0.NX.1:DI$.H(X$(X),2):DN
$.J(X$(X),3).*!L..5,8,5,"0:DIR.".DI$.",S
,R":.250:.5,DF$,NB:.250: 5.B!V..(VF.0).(
NB.Y).3050.Z!...(VF.1).(NB.Y).3050..!...
4,I(" ".D(NB),7).5)DI$" "DN$..!..
.C$:.C$..""..1990..!...C$."Q".1190..!...
X:.1570...
> CLICK IMAGE PREVIEW FOR FULL MODAL