DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 7.2K
FIRST SEEN: 2025-11-30 21:27:45
APPEARS ON: 3 disk(s)
FILE HASH
5a17b37c8fbbcc3b4ba2c9881ae2b6a8376b9f609ea22a410e3d3097624ed43c
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HENNIE 64 | DISK MASTER | PRG | DuncanTwain | 26 | 12 | DOWNLOAD FILE |
| TOOLS | DISK MASTER | PRG | DuncanTwain | 32 | 0 | DOWNLOAD FILE |
| HENNIE 521 | DISK MASTER | PRG | DuncanTwain | 5 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 5A 5A 24 B2 22 22 3A 81 20 41 |..)...ZZ$."":. A|
00000010: B2 20 31 A4 20 31 35 3A 5A 5A 24 B2 5A 5A 24 AA |. 1. 15:ZZ$.ZZ$.|
00000020: 20 C7 28 33 32 29 3A 82 41 00 4F 08 0A 00 8F 20 | .(32):.A.O.... |
00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 44 49 53 4B 20 4D 41 |---------DISK MA|
00000040: 53 54 45 52 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |STER-----------.|
00000050: 55 08 64 00 3A 00 6F 08 6E 00 9C 3A 43 24 B2 22 |U.d.:.o.n..:C$."|
00000060: 22 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 B2 30 00 |":S$.C$:X.0:Y.0.|
00000070: A8 08 78 00 43 52 24 B2 C7 28 31 33 29 3A 48 43 |..x.CR$..(13):HC|
00000080: 24 B2 C7 28 31 34 37 29 3A 52 56 24 B2 C7 28 31 |$..(147):RV$..(1|
00000090: 38 29 3A 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C |8):RF$..(146):CL|
000000A0: 24 B2 C7 28 31 35 37 29 00 AE 08 82 00 8F 00 B4 |$..(157)........|
000000B0: 08 8C 00 8F 00 CF 08 96 00 8D 32 31 34 30 3A 86 |..........2140:.|
000000C0: 44 24 28 32 33 30 29 2C 58 24 28 32 33 30 29 00 |D$(230),X$(230).|
000000D0: FA 08 A0 00 99 22 20 20 52 45 41 44 49 4E 47 20 |....." READING |
000000E0: 44 49 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 |DIRECTORY CROSS |
000000F0: 52 45 46 45 52 45 4E 43 45 22 00 12 09 AA 00 9F |REFERENCE"......|
00000100: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 32 32 |15,8,15,"I0":.22|
00000110: 32 30 00 33 09 B4 00 9F 35 2C 38 2C 35 2C 22 30 |20.3....5,8,5,"0|
00000120: 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 2C 53 |:DISK DIR XREF,S|
00000130: 2C 52 22 00 53 09 BE 00 84 31 35 2C 45 4E 2C 45 |,R".S....15,EN,E|
00000140: 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 36 32 A7 |M$,ET,ES:.EN.62.|
00000150: 32 39 30 00 7F 09 C8 00 84 35 2C 58 24 28 4E 58 |290......5,X$(NX|
00000160: 29 3A 53 53 B2 53 54 3A 8D 32 32 32 30 3A 4E 58 |):SS.ST:.2220:NX|
00000170: B2 4E 58 AA 31 3A 8B 53 53 B2 30 A7 32 30 30 00 |.NX.1:.SS.0.200.|
00000180: 88 09 D2 00 89 32 39 30 00 AC 09 DC 00 53 24 B2 |.....290.....S$.|
00000190: 22 22 3A 81 58 B2 31 A4 59 3A 8D 32 36 30 3A 53 |"":.X.1.Y:.260:S|
000001A0: 24 B2 53 24 AA 43 24 3A 82 58 3A 8E 00 C1 09 E6 |$.S$.C$:.X:.....|
000001B0: 00 81 58 B2 31 A4 59 3A 8D 32 36 30 3A 82 58 3A |..X.1.Y:.260:.X:|
000001C0: 8E 00 DE 09 F0 00 56 B2 30 3A 8D 32 36 30 3A 8B |......V.0:.260:.|
000001D0: 43 24 B3 B1 22 22 A7 56 B2 C6 28 43 24 29 00 E4 |C$.."".V..(C$)..|
000001E0: 09 FA 00 8E 00 EF 09 04 01 A1 23 35 2C 43 24 00 |..........#5,C$.|
000001F0: 12 0A 0E 01 53 53 B2 53 54 3A 84 31 35 2C 45 4E |....SS.ST:.15,EN|
00000200: 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 |,EM$,ET,ES:.EN.0|
00000210: A7 8E 00 35 0A 18 01 99 48 43 24 3B 52 56 24 3B |...5....HC$;RV$;|
00000220: 22 44 49 53 4B 20 45 52 52 4F 52 21 22 3A 99 3A |"DISK ERROR!":.:|
00000230: 89 32 32 37 30 00 4A 0A 22 01 A0 34 3A A0 35 3A |.2270.J."..4:.5:|
00000240: 43 58 B2 30 3A 8D 32 31 34 30 00 60 0A 2C 01 99 |CX.0:.2140.`.,..|
00000250: A6 35 29 3B 22 30 20 2D 20 44 4F 4E 45 22 3A 99 |.5);"0 - DONE":.|
00000260: 00 88 0A 36 01 99 A6 35 29 3B 22 31 20 2D 20 55 |...6...5);"1 - U|
00000270: 50 44 41 54 45 20 4D 41 53 54 45 52 44 49 52 45 |PDATE MASTERDIRE|
00000280: 43 54 4F 52 59 22 3A 99 00 B7 0A 40 01 99 A6 35 |CTORY":....@...5|
00000290: 29 3B 22 32 20 2D 20 44 45 4C 45 54 45 20 44 49 |);"2 - DELETE DI|
000002A0: 53 4B 20 45 4E 54 52 59 20 46 52 4F 4D 20 4D 41 |SK ENTRY FROM MA|
000002B0: 53 54 45 52 22 3A 99 00 E3 0A 4A 01 99 A6 35 29 |STER":....J...5)|
000002C0: 3B 22 33 20 2D 20 44 49 53 50 4C 41 59 20 53 45 |;"3 - DISPLAY SE|
000002D0: 4C 45 43 54 45 44 20 44 49 52 45 43 54 4F 52 59 |LECTED DIRECTORY|
000002E0: 22 3A 99 00 08 0B 54 01 99 A6 35 29 3B 22 34 20 |":....T...5);"4 |
000002F0: 2D 20 46 49 4E 44 20 53 50 45 43 49 46 49 45 44 |- FIND SPECIFIED|
00000300: 20 46 49 4C 45 22 3A 99 00 30 0B 5E 01 99 A6 35 | FILE":..0.^...5|
00000310: 29 3B 22 35 20 2D 20 4C 49 53 54 20 44 49 53 4B |);"5 - LIST DISK|
00000320: 20 49 44 27 53 20 26 20 4E 41 4D 45 53 22 3A 99 | ID'S & NAMES":.|
00000330: 00 58 0B 68 01 8D 32 31 35 30 3A 99 22 45 4E 54 |.X.h..2150:."ENT|
00000340: 45 52 20 44 49 53 49 52 45 44 20 46 55 4E 43 54 |ER DISIRED FUNCT|
00000350: 49 4F 4E 3A 20 20 22 3B 00 76 0B 72 01 8D 32 31 |ION: ";.v.r..21|
00000360: 32 30 3A 8B 43 24 B2 22 30 22 A7 20 99 48 43 24 |20:.C$."0". .HC$|
00000370: 3A 89 32 33 38 30 00 8F 0B 7C 01 56 B2 C5 28 43 |:.2380...|.V..(C|
00000380: 24 29 3A 8B 56 B3 31 B0 56 B1 35 A7 33 37 30 00 |$):.V.1.V.5.370.|
00000390: AD 0B 86 01 91 56 89 34 30 30 2C 31 31 38 30 2C |.....V.400,1180,|
000003A0: 39 38 30 2C 31 36 39 30 2C 31 32 35 30 00 DD 0B |980,1690,1250...|
000003B0: 90 01 A0 31 35 3A 43 58 B2 30 3A 99 48 43 24 3B |...15:CX.0:.HC$;|
000003C0: 22 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 |"INSERT DISK TO |
000003D0: 42 45 20 43 41 54 41 4C 4F 47 45 44 22 00 1C 0C |BE CATALOGED"...|
000003E0: 9A 01 99 3A 99 22 44 45 50 52 45 53 53 20 41 4E |...:."DEPRESS AN|
000003F0: 59 20 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |Y KEY TO CONTIN|
00000400: 55 45 2C 20 20 22 52 56 24 3B 22 51 22 3B 52 46 |UE, "RV$;"Q";RF|
00000410: 24 3B 22 20 54 4F 20 51 55 49 54 22 00 39 0C A4 |$;" TO QUIT".9..|
00000420: 01 8D 32 31 32 30 3A 8B 43 24 B2 22 51 22 A7 8D |..2120:.C$."Q"..|
00000430: 32 33 39 30 3A 89 32 39 30 00 5C 0C AE 01 8D 32 |2390:.290.\....2|
00000440: 31 35 30 3A 99 22 4F 4B 22 3A 9F 31 35 2C 38 2C |150:."OK":.15,8,|
00000450: 31 35 2C 22 49 30 22 3A 8D 32 37 30 00 75 0C B8 |15,"I0":.270.u..|
00000460: 01 9F 35 2C 38 2C 35 2C 22 24 30 2C 53 2C 52 22 |..5,8,5,"$0,S,R"|
00000470: 3A 8D 32 37 30 00 88 0C C2 01 8D 32 34 30 3A 56 |:.270......240:V|
00000480: 46 B2 56 3A 8D 32 36 30 00 AD 0C CC 01 4E 42 B2 |F.V:.260.....NB.|
00000490: 30 3A 81 5A B2 31 A4 33 35 3A 8D 32 34 30 3A 8B |0:.Z.1.35:.240:.|
000004A0: 5A B3 B1 31 38 A7 4E 42 B2 4E 42 AA 56 00 BD 0C |Z..18.NB.NB.V...|
000004B0: D6 01 59 B2 33 3A 8D 32 33 30 3A 82 5A 00 DB 0C |..Y.3:.230:.Z...|
000004C0: E0 01 59 B2 31 36 3A 8D 32 32 30 3A 44 4E 24 B2 |..Y.16:.220:DN$.|
000004D0: 53 24 3A 59 B2 32 3A 8D 32 33 30 00 F9 0C EA 01 |S$:Y.2:.230.....|
000004E0: 59 B2 32 3A 8D 32 32 30 3A 44 49 24 B2 C8 28 53 |Y.2:.220:DI$..(S|
000004F0: 24 AA 22 20 20 22 2C 32 29 00 0F 0D F4 01 8D 32 |$." ",2)......2|
00000500: 31 36 30 3A 8B 43 24 B2 22 4E 22 A7 39 37 30 00 |160:.C$."N".970.|
00000510: 1D 0D FE 01 8B 4E 58 B2 30 A7 36 33 30 00 45 0D |.....NX.0.630.E.|
00000520: 08 02 81 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 |...X.0.NX.1:C$..|
00000530: 28 58 24 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 |(X$(X),2):.DI$.C|
00000540: 24 A7 36 33 30 00 5A 0D 12 02 8B 44 49 24 B3 B1 |$.630.Z....DI$..|
00000550: 43 24 A7 82 58 3A 89 36 33 30 00 72 0D 1C 02 8B |C$..X:.630.r....|
00000560: 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 A7 36 |DN$..(X$(X),3).6|
00000570: 33 30 00 B5 0D 26 02 99 48 43 24 3B 52 56 24 3B |30...&..HC$;RV$;|
00000580: 22 2A 2A 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A |"*** WARNING ***|
00000590: 22 3B 52 46 24 3B 22 20 20 54 48 49 53 20 44 49 |";RF$;" THIS DI|
000005A0: 53 4B 20 49 44 20 3A 20 22 3B 52 56 24 3B 44 49 |SK ID : ";RV$;DI|
000005B0: 24 3B 52 46 24 00 D2 0D 30 02 99 3A 99 22 44 49 |$;RF$...0..:."DI|
000005C0: 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 3B 44 |SK NAME: ";RV$;D|
000005D0: 4E 24 00 04 0E 3A 02 99 3A 99 22 49 53 20 41 4C |N$...:..:."IS AL|
000005E0: 4C 20 52 45 41 44 59 20 43 41 54 41 4C 4F 47 45 |L READY CATALOGE|
000005F0: 44 20 57 49 54 48 20 41 20 44 49 46 46 45 52 45 |D WITH A DIFFERE|
00000600: 4E 54 20 22 00 2E 0E 44 02 99 3A 99 22 44 49 53 |NT "...D..:."DIS|
00000610: 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 3B CA 28 |K NAME: ";RV$;.(|
00000620: 58 24 28 58 29 2C 33 29 3A 8D 32 31 35 30 00 5A |X$(X),3):.2150.Z|
00000630: 0E 4E 02 99 22 43 41 54 41 4C 4F 47 49 4E 47 20 |.N.."CATALOGING |
00000640: 54 48 49 53 20 44 49 53 4B 20 57 49 4C 4C 20 44 |THIS DISK WILL D|
00000650: 45 4C 45 54 45 20 54 48 45 22 00 79 0E 58 02 99 |ELETE THE".y.X..|
00000660: 3A 99 22 50 52 45 56 49 4F 55 53 20 44 41 54 41 |:."PREVIOUS DATA|
00000670: 21 22 3A 8D 20 32 31 35 30 00 A5 0E 62 02 99 22 |!":. 2150...b.."|
00000680: 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 |CATALOG THIS DIS|
00000690: 4B 22 3B 3A 8D 32 31 39 30 3A 8B 43 24 B2 22 4E |K";:.2190:.C$."N|
000006A0: 22 A7 39 37 30 00 D3 0E 6C 02 99 48 43 24 3B 22 |".970...l..HC$;"|
000006B0: 43 41 54 41 4C 4F 47 49 4E 47 20 44 49 53 4B 20 |CATALOGING DISK |
000006C0: 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 4E 41 |WITH NEW DISK NA|
000006D0: 4D 45 22 00 FF 0E 76 02 8D 20 32 31 35 30 3A 99 |ME"...v.. 2150:.|
000006E0: 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F |"READING DIRECTO|
000006F0: 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E 22 00 |RY ENTRIES ...".|
00000700: 1D 0F 80 02 8D 32 36 30 3A 59 B2 32 3A 8D 32 32 |.....260:Y.2:.22|
00000710: 30 3A 44 46 24 B2 53 24 3A 59 B2 38 39 00 31 0F |0:DF$.S$:Y.89.1.|
00000720: 8A 02 8B 20 56 46 B2 31 A7 44 46 24 B2 22 20 31 |... VF.1.DF$." 1|
00000730: 22 00 3A 0F 94 02 8D 32 33 30 00 47 0F 9E 02 4E |".:....230.G...N|
00000740: 46 B2 30 3A 5A B2 30 00 55 0F A8 02 8D 32 34 30 |F.0:Z.0.U....240|
00000750: 3A 46 54 B2 56 00 7B 0F B2 02 46 24 B2 43 24 3A |:FT.V.{...F$.C$:|
00000760: 59 B2 32 3A 8D 32 33 30 3A 59 B2 31 36 3A 8D 32 |Y.2:.230:Y.16:.2|
00000770: 32 30 3A 59 B2 39 3A 8D 32 33 30 00 9E 0F BC 02 |20:Y.9:.230.....|
00000780: 8D 32 34 30 3A 53 24 B2 53 24 AA C7 28 56 29 3A |.240:S$.S$..(V):|
00000790: 8D 32 34 30 3A 8B 46 54 B2 30 A7 37 37 30 00 AD |.240:.FT.0.770..|
000007A0: 0F C6 02 8B 20 4E 46 B2 30 A7 37 34 30 00 D5 0F |.... NF.0.740...|
000007B0: D0 02 81 58 B2 31 A4 4E 46 3A 8B C8 28 53 24 2C |...X.1.NF:..(S$,|
000007C0: 31 36 29 B3 CA 28 44 24 28 58 29 2C 32 2C 31 36 |16)..(D$(X),2,16|
000007D0: 29 A7 37 35 30 00 DC 0F DA 02 82 58 00 EC 0F E4 |).750......X....|
000007E0: 02 58 B2 4E 46 AA 31 3A 89 37 36 30 00 10 10 EE |.X.NF.1:.760....|
000007F0: 02 81 59 B2 4E 46 20 A4 20 58 20 A9 AB 31 3A 44 |..Y.NF . X ..1:D|
00000800: 24 28 59 AA 31 29 B2 44 24 28 59 29 3A 82 20 59 |$(Y.1).D$(Y):. Y|
00000810: 00 2D 10 F8 02 44 24 28 58 29 B2 46 24 AA 53 24 |.-...D$(X).F$.S$|
00000820: AA C7 28 56 29 3A 4E 46 B2 4E 46 AA 31 00 54 10 |..(V):NF.NF.1.T.|
00000830: 02 03 5A B2 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A |..Z.Z.1:Z.Z.(.(Z|
00000840: AD 38 29 AC 38 29 3A 8B 5A B1 30 A7 59 B2 32 3A |.8).8):.Z.0.Y.2:|
00000850: 8D 32 33 30 00 65 10 0C 03 8B 20 4E 46 B3 31 35 |.230.e.... NF.15|
00000860: 35 A7 38 34 30 00 9E 10 16 03 99 48 43 24 3B A6 |5.840......HC$;.|
00000870: 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 44 49 53 4B |6);RV$;"*** DISK|
00000880: 20 42 41 4D 20 49 53 20 49 4E 56 41 4C 49 44 20 | BAM IS INVALID |
00000890: 2A 2A 2A 22 3B 52 46 24 3A 8D 32 31 35 30 00 D2 |***";RF$:.2150..|
000008A0: 10 20 03 99 3A 99 22 20 20 20 43 55 52 52 45 4E |. ..:." CURREN|
000008B0: 54 20 44 49 53 4B 20 43 41 4E 4E 4F 54 20 42 45 |T DISK CANNOT BE|
000008C0: 20 43 41 54 41 4C 4F 47 45 44 21 22 3A 99 3A 99 | CATALOGED!":.:.|
000008D0: 3A 99 00 01 11 2A 03 99 22 50 4C 45 41 53 45 20 |:....*.."PLEASE |
000008E0: 56 45 52 49 46 59 20 4F 52 20 43 48 45 43 4B 20 |VERIFY OR CHECK |
000008F0: 43 49 53 43 20 43 4F 4E 54 45 4E 54 53 45 22 3A |CISC CONTENTSE":|
00000900: 99 00 32 11 34 03 99 22 42 45 46 4F 52 45 20 41 |..2.4.."BEFORE A|
00000910: 54 54 45 4D 50 54 49 4E 47 20 54 4F 20 43 41 54 |TTEMPTING TO CAT|
00000920: 41 4C 4F 47 20 54 48 49 53 20 44 49 53 4B 2E 22 |ALOG THIS DISK."|
00000930: 3A 99 00 48 11 3E 03 8D 20 32 31 35 30 3A 8D 32 |:..H.>.. 2150:.2|
00000940: 31 31 30 3A 89 39 37 30 00 56 11 48 03 8B 53 53 |110:.970.V.H..SS|
00000950: B2 30 A7 36 38 30 00 8A 11 52 03 A0 35 3A 8D 32 |.0.680...R..5:.2|
00000960: 33 39 30 3A 8D 32 31 35 30 3A 99 22 55 50 44 41 |390:.2150:."UPDA|
00000970: 54 49 4E 47 20 4D 41 53 54 45 52 20 44 49 52 45 |TING MASTER DIRE|
00000980: 43 54 4F 52 59 20 2E 2E 2E 22 00 9A 11 5C 03 8B |CTORY ..."...\..|
00000990: 20 4E 58 B2 30 A7 20 39 31 30 00 C4 11 66 03 81 | NX.0. 910...f..|
000009A0: 58 B2 30 A4 20 4E 58 AB 31 3A 43 24 B2 C8 28 58 |X.0. NX.1:C$..(X|
000009B0: 24 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 |$(X),2):.DI$.C$.|
000009C0: 20 39 30 30 00 D6 11 70 03 8B 20 44 49 24 B2 43 | 900...p.. DI$.C|
000009D0: 24 A7 20 39 33 30 00 E4 11 7A 03 82 20 58 3A 89 |$. 930...z.. X:.|
000009E0: 20 39 31 30 00 11 12 84 03 81 20 59 20 B2 4E 58 | 910...... Y .NX|
000009F0: AB 31 20 A4 20 58 20 A9 20 AB 31 3A 58 24 28 59 |.1 . X . .1:X$(Y|
00000A00: AA 31 29 B2 58 24 28 59 29 3A 82 59 3A 89 39 32 |.1).X$(Y):.Y:.92|
00000A10: 30 00 1A 12 8E 03 58 B2 4E 58 00 26 12 98 03 4E |0.....X.NX.&...N|
00000A20: 58 B2 4E 58 AA 31 00 3D 12 A2 03 58 24 28 58 29 |X.NX.1.=...X$(X)|
00000A30: B2 44 49 24 AA 44 4E 24 3A 43 58 B2 31 00 69 12 |.DI$.DN$:CX.1.i.|
00000A40: AC 03 8D 32 30 33 30 3A 98 31 35 2C 22 53 22 AA |...2030:.15,"S".|
00000A50: 53 24 3A 9F 20 35 2C 38 2C 35 2C 53 24 AA 22 2C |S$:. 5,8,5,S$.",|
00000A60: 53 2C 57 22 3A 8D 32 37 30 00 85 12 B6 03 98 35 |S,W":.270......5|
00000A70: 2C 44 46 24 3B 22 2C 22 3B 4E 42 3B 43 52 24 3B |,DF$;",";NB;CR$;|
00000A80: 3A 8D 32 37 30 00 AE 12 C0 03 8B 20 4E 46 B1 30 |:.270...... NF.0|
00000A90: A7 81 58 B2 31 A4 4E 46 3A 98 35 2C 44 24 28 58 |..X.1.NF:.5,D$(X|
00000AA0: 29 3B 43 52 24 3B 3A 8D 32 37 30 3A 82 58 00 C1 |);CR$;:.270:.X..|
00000AB0: 12 CA 03 A0 20 35 3A 8D 32 32 39 30 3A 89 34 30 |.... 5:.2290:.40|
00000AC0: 30 00 FB 12 D4 03 99 48 43 24 3B 22 54 4F 4F 20 |0......HC$;"TOO |
00000AD0: 44 49 53 50 4C 41 59 20 44 49 53 4B 20 44 49 52 |DISPLAY DISK DIR|
00000AE0: 45 43 54 4F 52 59 22 3A 8D 20 31 38 37 30 3A 91 |ECTORY":. 1870:.|
00000AF0: 20 56 20 89 32 39 30 2C 39 38 30 00 2C 13 DE 03 | V .290,980.,...|
00000B00: 9F 20 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 |. 5,8,5,S$.",S,R|
00000B10: 22 3A 8D 32 37 30 3A 8D 20 32 30 37 30 3A 84 35 |":.270:. 2070:.5|
00000B20: 2C 44 46 24 2C 4E 42 3A 8D 32 37 30 00 59 13 E8 |,DF$,NB:.270.Y..|
00000B30: 03 98 34 2C 22 20 20 22 3B 52 56 24 3B 22 44 49 |..4," ";RV$;"DI|
00000B40: 53 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 3B 22 20 |SK NAME:";RF$;" |
00000B50: 20 22 3B 44 4E 24 3A 98 34 00 86 13 F2 03 98 34 | ";DN$:.4......4|
00000B60: 2C 22 22 A6 34 29 3B 52 56 24 3B 22 44 49 53 4B |,"".4);RV$;"DISK|
00000B70: 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 | ID:";RF$;" ";D|
00000B80: 49 24 3B A6 36 29 00 AF 13 FC 03 98 34 2C 52 56 |I$;.6)......4,RV|
00000B90: 24 3B 22 44 49 53 4B 20 46 4F 52 4D 41 54 3A 22 |$;"DISK FORMAT:"|
00000BA0: 3B 52 46 24 3B 22 20 20 22 44 46 24 3A 98 34 00 |;RF$;" "DF$:.4.|
00000BB0: D6 13 06 04 98 34 2C 52 56 24 3B 22 42 4C 4F 43 |.....4,RV$;"BLOC|
00000BC0: 4B 53 20 46 52 45 45 3A 22 3B 52 46 24 3B 22 20 |KS FREE:";RF$;" |
00000BD0: 22 4E 42 3A 98 34 00 0A 14 10 04 98 34 2C 22 2D |"NB:.4......4,"-|
00000BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C00: 2D 2D 2D 2D 2D 2D 22 3A 98 34 00 20 14 1A 04 4E |------":.4. ...N|
00000C10: 46 B2 30 3A 8B 20 53 53 B1 30 A7 20 31 31 36 30 |F.0:. SS.0. 1160|
00000C20: 00 4D 14 24 04 8D 20 32 34 30 3A 46 54 B2 56 3A |.M.$.. 240:FT.V:|
00000C30: 59 B2 31 36 3A 8D 20 32 32 30 3A 8D 32 34 30 3A |Y.16:. 220:.240:|
00000C40: 5A B2 56 3A 8D 32 34 30 3A 8D 32 36 30 00 7D 14 |Z.V:.240:.260.}.|
00000C50: 2E 04 98 34 2C C9 28 22 20 20 20 20 22 AA C4 28 |...4,.(" "..(|
00000C60: 5A AA 28 32 35 36 AC 56 29 29 2C 34 29 3B 22 20 |Z.(256.V)),4);" |
00000C70: 20 22 3B 53 24 3B 22 20 20 20 20 22 3B 00 95 14 | ";S$;" ";...|
00000C80: 38 04 8B 20 46 54 B2 31 32 39 20 A7 20 98 34 2C |8.. FT.129 . .4,|
00000C90: 22 53 45 51 22 00 AD 14 42 04 8B 20 46 54 B2 31 |"SEQ"...B.. FT.1|
00000CA0: 33 30 20 A7 20 98 34 2C 22 50 47 4D 22 00 C5 14 |30 . .4,"PGM"...|
00000CB0: 4C 04 8B 20 46 54 B2 31 33 31 20 A7 20 98 34 2C |L.. FT.131 . .4,|
00000CC0: 22 55 53 52 22 00 DD 14 56 04 8B 20 46 54 B2 31 |"USR"...V.. FT.1|
00000CD0: 33 32 20 A7 20 98 34 2C 22 52 45 4C 22 00 F8 14 |32 . .4,"REL"...|
00000CE0: 60 04 98 34 3A A1 43 24 3A 8B 43 24 B3 B1 22 22 |`..4:.C$:.C$..""|
00000CF0: A7 20 8D 20 32 31 32 30 00 0B 15 6A 04 8B 20 43 |. . 2120...j.. C|
00000D00: 24 B2 22 51 22 A7 20 31 31 37 30 00 25 15 74 04 |$."Q". 1170.%.t.|
00000D10: 4E 46 B2 4E 46 AA 31 3A 8B 20 53 53 B2 30 20 A7 |NF.NF.1:. SS.0 .|
00000D20: 20 31 30 36 30 00 48 15 7E 04 98 34 3A 98 34 2C | 1060.H.~..4:.4,|
00000D30: 52 56 24 3B 22 23 46 49 4C 45 53 3A 22 3B 52 46 |RV$;"#FILES:";RF|
00000D40: 24 3B 22 20 22 3B 4E 46 00 60 15 88 04 8B 20 50 |$;" ";NF.`.... P|
00000D50: 44 B2 33 20 A7 8D 32 31 35 30 3A 8D 32 31 31 30 |D.3 ..2150:.2110|
00000D60: 00 70 15 92 04 A0 20 34 3A A0 35 3A 89 39 38 30 |.p.... 4:.5:.980|
00000D70: 00 A0 15 9C 04 99 48 43 24 3B 22 54 4F 20 44 45 |......HC$;"TO DE|
00000D80: 4C 45 54 45 20 44 49 53 4B 20 46 52 4F 4D 20 4D |LETE DISK FROM M|
00000D90: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 |ASTER DIRECTORY"|
00000DA0: 00 BA 15 A6 04 8D 20 31 38 37 30 3A 20 91 20 56 |...... 1870: . V|
00000DB0: 89 31 32 34 30 2C 31 31 38 30 00 C9 15 B0 04 98 |.1240,1180......|
00000DC0: 31 35 2C 22 53 22 AA 53 24 00 F4 15 BA 04 43 58 |15,"S".S$.....CX|
00000DD0: B2 30 3A 81 20 58 B2 30 A4 4E 58 AB 31 3A 8B 20 |.0:. X.0.NX.1:. |
00000DE0: C8 28 58 24 28 58 29 2C 32 29 B2 44 49 24 A7 20 |.(X$(X),2).DI$. |
00000DF0: 43 58 B2 31 00 0C 16 C4 04 8B 20 43 58 A7 20 58 |CX.1...... CX. X|
00000E00: 24 28 58 29 B2 58 24 28 58 AA 31 29 00 21 16 CE |$(X).X$(X.1).!..|
00000E10: 04 82 58 3A 4E 58 B2 4E 58 AB 31 3A 89 31 31 38 |..X:NX.NX.1:.118|
00000E20: 30 00 31 16 D8 04 8D 20 32 32 39 30 3A 89 32 39 |0.1.... 2290:.29|
00000E30: 30 00 47 16 E2 04 8B 4E 58 B2 30 A7 8D 20 31 38 |0.G....NX.0.. 18|
00000E40: 38 30 3A 89 32 39 30 00 56 16 EC 04 A0 20 34 3A |80:.290.V.... 4:|
00000E50: 8D 20 32 31 34 30 00 85 16 F6 04 99 20 A6 35 29 |. 2140...... .5)|
00000E60: 3B 22 30 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 |;"0 - RETURN TO |
00000E70: 4D 41 49 4E 20 46 55 4E 43 54 49 4F 4E 20 4D 45 |MAIN FUNCTION ME|
00000E80: 4E 55 22 3A 99 00 B2 16 00 05 99 20 A6 35 29 3B |NU":....... .5);|
00000E90: 22 31 20 2D 20 50 52 49 4E 54 20 46 55 4C 4C 20 |"1 - PRINT FULL |
00000EA0: 49 44 20 55 53 45 41 47 45 20 43 48 41 52 54 22 |ID USEAGE CHART"|
00000EB0: 3A 99 00 DB 16 14 05 99 20 A6 35 29 3B 22 32 20 |:....... .5);"2 |
00000EC0: 2D 20 4C 49 53 54 20 44 49 53 4B 20 49 44 27 53 |- LIST DISK ID'S|
00000ED0: 20 26 20 4E 41 4D 45 53 22 3A 99 00 19 17 1E 05 | & NAMES":......|
00000EE0: 99 20 A6 35 29 3B 22 33 20 2D 20 4C 49 53 54 20 |. .5);"3 - LIST |
00000EF0: 22 3B 52 56 24 3B 22 4D 49 4E 22 3B 52 46 24 3B |";RV$;"MIN";RF$;|
00000F00: 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 |" FREE BLOCKS PE|
00000F10: 52 20 44 49 53 4B 22 3A 99 00 55 17 28 05 99 20 |R DISK":..U.(.. |
00000F20: A6 35 29 3B 22 34 20 2D 20 4C 49 53 54 20 22 3B |.5);"4 - LIST ";|
00000F30: 52 56 24 3B 22 4D 41 58 22 3B 52 46 24 3B 22 20 |RV$;"MAX";RF$;" |
00000F40: 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 |FREE BLOCKS PER |
00000F50: 44 49 53 4B 22 00 7F 17 32 05 8D 20 32 31 35 30 |DISK"...2.. 2150|
00000F60: 3A 99 22 45 4E 54 45 52 20 44 45 53 49 52 45 44 |:."ENTER DESIRED|
00000F70: 20 46 55 4E 43 54 49 4F 4E 3A 20 20 20 22 3B 00 | FUNCTION: ";.|
00000F80: 98 17 3C 05 8D 20 32 31 32 30 3A 8B 20 43 24 B2 |..<.. 2120:. C$.|
00000F90: 22 30 22 A7 20 32 39 30 00 B6 17 46 05 56 B2 C5 |"0". 290...F.V..|
00000FA0: 28 43 24 29 3A 8B 20 56 B3 31 B0 20 56 B1 35 20 |(C$):. V.1. V.5 |
00000FB0: A7 20 31 33 34 30 00 D7 17 50 05 99 43 24 3A 91 |. 1340...P..C$:.|
00000FC0: 20 56 20 89 31 35 35 30 2C 31 36 32 30 2C 32 34 | V .1550,1620,24|
00000FD0: 35 30 2C 32 34 39 30 00 FD 17 64 05 8F 20 52 45 |50,2490...d.. RE|
00000FE0: 47 45 4C 20 31 33 38 30 20 2D 20 31 35 34 30 20 |GEL 1380 - 1540 |
00000FF0: 4F 56 45 52 20 47 45 53 4C 41 47 45 4E 00 2E 18 |OVER GESLAGEN...|
00001000: 0E 06 8D 20 32 30 37 30 3A 98 34 2C 22 22 A6 37 |... 2070:.4,"".7|
00001010: 29 3B 22 12 44 49 53 4B 20 49 44 27 53 20 43 55 |);".DISK ID'S CU|
00001020: 52 45 4E 54 4C 59 20 49 4E 20 55 53 45 22 00 38 |RENTLY IN USE".8|
00001030: 18 18 06 98 34 3A 98 34 00 4E 18 22 06 56 B2 31 |....4:.4.N.".V.1|
00001040: 32 3A 8B 20 50 44 B2 34 A7 20 56 B2 32 35 00 75 |2:. PD.4. V.25.u|
00001050: 18 2C 06 5A B2 30 3A 81 20 58 B2 30 A4 20 4E 58 |.,.Z.0:. X.0. NX|
00001060: AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C 32 29 |.1:.4,.(X$(X),2)|
00001070: 3B 22 20 22 3B 00 90 18 36 06 5A B2 5A AA 31 3A |;" ";...6.Z.Z.1:|
00001080: 8B 20 5A B2 B5 28 5A AD 56 29 AC 56 A7 20 98 34 |. Z..(Z.V).V. .4|
00001090: 00 B0 18 40 06 82 20 58 3A 98 34 3A 98 34 3A 8B |...@.. X:.4:.4:.|
000010A0: 20 5A B3 B1 B5 28 5A AD 56 29 AC 56 A7 20 98 34 | Z...(Z.V).V. .4|
000010B0: 00 DF 18 4A 06 98 34 2C 5A 3B 52 56 24 3B 22 44 |...J..4,Z;RV$;"D|
000010C0: 49 53 4B 53 20 49 4E 20 4D 41 53 54 45 52 20 44 |ISKS IN MASTER D|
000010D0: 49 52 45 43 54 4F 52 59 22 3A 89 31 36 37 30 00 |IRECTORY":.1670.|
000010E0: 0B 19 54 06 8D 20 32 30 37 30 3A 98 34 2C 52 56 |..T.. 2070:.4,RV|
000010F0: 24 3B 22 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E |$;"ID ...DISK N|
00001100: 41 4D 45 2E 2E 2E 2E 22 3A 98 34 00 39 19 5E 06 |AME....":.4.9.^.|
00001110: 81 20 58 B2 30 A4 20 4E 58 AB 31 3A 98 34 2C C8 |. X.0. NX.1:.4,.|
00001120: 28 58 24 28 58 29 2C 32 29 3B 22 20 20 22 3B CA |(X$(X),2);" ";.|
00001130: 28 58 24 28 58 29 2C 33 29 00 53 19 68 06 A1 20 |(X$(X),3).S.h.. |
00001140: 43 24 3A 8B 20 43 24 B3 B1 22 22 A7 20 8D 20 32 |C$:. C$.."". . 2|
00001150: 31 32 30 00 66 19 72 06 8B 20 43 24 B2 22 51 22 |120.f.r.. C$."Q"|
00001160: A7 20 31 32 36 30 00 6E 19 7C 06 82 20 58 00 7E |. 1260.n.|.. X.~|
00001170: 19 86 06 8B 20 50 44 B2 34 A7 31 32 36 30 00 96 |.... PD.4.1260..|
00001180: 19 90 06 8D 20 32 31 35 30 3A 8D 20 32 31 31 30 |.... 2150:. 2110|
00001190: 3A 89 31 32 36 30 00 AE 19 9A 06 8B 20 4E 58 B2 |:.1260...... NX.|
000011A0: 30 A7 20 8D 20 31 38 38 30 3A 89 32 39 30 00 E0 |0. . 1880:.290..|
000011B0: 19 A4 06 A0 34 3A 99 48 43 24 3B 22 54 4F 20 46 |....4:.HC$;"TO F|
000011C0: 49 4E 44 20 57 48 41 54 20 44 49 53 4B 28 53 29 |IND WHAT DISK(S)|
000011D0: 20 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 3A 99 | A FILE IS ON":.|
000011E0: 00 1A 1A AE 06 99 22 45 4E 54 45 52 20 46 49 4C |......"ENTER FIL|
000011F0: 45 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B |E NAME .";CL$;|
00001200: 43 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 3A 8B 20 |CL$;CL$;:. F$:. |
00001210: 46 24 B2 22 2E 22 A7 32 39 30 00 37 1A B8 06 8B |F$.".".290.7....|
00001220: 46 24 B2 22 2A 22 A7 20 99 3A 99 22 52 45 2D 22 |F$."*". .:."RE-"|
00001230: 3B 3A 89 31 37 31 30 00 51 1A C2 06 53 24 B2 46 |;:.1710.Q...S$.F|
00001240: 24 3A 8D 32 30 34 30 3A 56 B2 59 3A 8D 32 30 37 |$:.2040:V.Y:.207|
00001250: 30 00 88 1A CC 06 98 34 2C 52 56 24 3B 22 2E 2E |0......4,RV$;"..|
00001260: 2E 46 49 4C 45 20 4E 41 4D 45 2E 2E 2E 2E 20 20 |.FILE NAME.... |
00001270: 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 |ID ...DISK NAME|
00001280: 2E 2E 2E 2E 22 3A 98 34 00 95 1A D6 06 98 34 2C |....":.4......4,|
00001290: 53 24 3A 98 34 00 C3 1A E0 06 81 20 5A B2 30 A4 |S$:.4...... Z.0.|
000012A0: 20 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 5A | NX.1:DI$..(X$(Z|
000012B0: 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 5A 29 |),2):DN$..(X$(Z)|
000012C0: 2C 33 29 00 FC 1A EA 06 8D 32 30 33 30 3A 9F 20 |,3)......2030:. |
000012D0: 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A |5,8,5,S$.",S,R":|
000012E0: 45 46 B2 31 35 3A 8D 20 32 37 30 3A 84 35 2C 44 |EF.15:. 270:.5,D|
000012F0: 46 24 2C 4E 42 3A 8D 20 20 32 37 30 00 19 1B F4 |F$,NB:. 270....|
00001300: 06 8D 20 32 36 30 3A 59 B2 31 36 3A 8D 32 32 30 |.. 260:Y.16:.220|
00001310: 3A 59 B2 33 3A 8D 32 33 30 00 30 1B FE 06 8B 20 |:Y.3:.230.0.... |
00001320: 46 24 B3 C8 28 53 24 2C 56 29 A7 20 31 38 34 30 |F$..(S$,V). 1840|
00001330: 00 5C 1B 08 07 8B 20 46 24 20 B2 20 C8 28 53 24 |.\.... F$ . .(S$|
00001340: 2C 56 29 A7 20 98 34 2C 53 24 3B 22 20 20 22 3B |,V). .4,S$;" ";|
00001350: 44 49 24 3B 22 20 20 22 3B 44 4E 24 00 75 1B 12 |DI$;" ";DN$.u..|
00001360: 07 A1 43 24 3A 8B 20 43 24 B3 B1 22 22 A7 20 8D |..C$:. C$.."". .|
00001370: 20 32 31 32 30 00 8C 1B 1C 07 8B 20 43 24 B2 22 | 2120...... C$."|
00001380: 51 22 A7 20 A0 35 3A 89 31 37 30 30 00 9D 1B 26 |Q". .5:.1700...&|
00001390: 07 8B 20 53 53 B2 30 A7 20 31 37 38 30 00 A7 1B |.. SS.0. 1780...|
000013A0: 30 07 A0 35 3A 82 5A 00 C2 1B 3A 07 8B 20 50 44 |0..5:.Z...:.. PD|
000013B0: B2 33 20 A7 20 8D 20 32 31 35 30 3A 8D 20 32 31 |.3 . . 2150:. 21|
000013C0: 31 30 00 CC 1B 44 07 89 31 37 30 30 00 E1 1B 4E |10...D..1700...N|
000013D0: 07 56 B2 33 3A 8B 20 4E 58 B1 30 A7 20 31 38 39 |.V.3:. NX.0. 189|
000013E0: 30 00 06 1C 58 07 99 48 43 24 3B 52 56 24 3B 22 |0...X..HC$;RV$;"|
000013F0: 4E 4F 20 45 4E 54 52 49 45 53 22 3B 3A 56 B2 31 |NO ENTRIES";:V.1|
00001400: 3A 89 32 30 31 30 00 33 1C 62 07 99 3A 99 22 45 |:.2010.3.b..:."E|
00001410: 4E 54 45 52 20 44 49 53 4B 20 49 44 20 20 20 2E |NTER DISK ID .|
00001420: 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 |";CL$;CL$;CL$;:.|
00001430: 44 49 24 00 59 1C 6C 07 44 49 24 B2 C8 28 44 49 |DI$.Y.l.DI$..(DI|
00001440: 24 AA 22 20 20 22 2C 32 29 3A 8B 20 44 49 24 B2 |$." ",2):. DI$.|
00001450: 22 2E 20 22 A7 31 39 35 30 00 86 1C 76 07 81 20 |". ".1950...v.. |
00001460: 58 B2 30 A4 20 4E 58 AB 31 3A 8B 20 44 49 24 B3 |X.0. NX.1:. DI$.|
00001470: B1 C8 28 58 24 28 58 29 2C 32 29 A7 20 82 20 58 |..(X$(X),2). . X|
00001480: 3A 89 32 30 30 30 00 A8 1C 80 07 44 4E 24 B2 CA |:.2000.....DN$..|
00001490: 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 |(X$(X),3):DI$..(|
000014A0: 58 24 28 58 29 2C 32 29 00 C3 1C 8A 07 8D 20 32 |X$(X),2)...... 2|
000014B0: 31 36 30 3A 8B 20 43 24 B2 22 4E 22 A7 20 56 B2 |160:. C$."N". V.|
000014C0: 32 3A 8E 00 CE 1C 94 07 89 20 32 30 33 30 00 FC |2:....... 2030..|
000014D0: 1C 9E 07 99 3A 99 22 45 4E 54 45 52 20 44 49 53 |....:."ENTER DIS|
000014E0: 4B 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B |K NAME .";CL$;|
000014F0: 43 4C 24 3B 43 4C 24 3B 3A 85 46 24 00 0F 1D A8 |CL$;CL$;:.F$....|
00001500: 07 8B 46 24 B2 22 2E 22 A7 20 56 B2 31 3A 8E 00 |..F$.".". V.1:..|
00001510: 31 1D B2 07 8D 20 32 30 34 30 3A 81 20 58 B2 30 |1.... 2040:. X.0|
00001520: A4 20 4E 58 AB 31 3A 8B 20 59 B2 30 A7 32 30 32 |. NX.1:. Y.0.202|
00001530: 30 00 4D 1D BC 07 8B 20 46 24 B2 CA 28 58 24 28 |0.M.... F$..(X$(|
00001540: 58 29 2C 33 2C 59 29 A7 20 32 30 32 30 00 55 1D |X),3,Y). 2020.U.|
00001550: C6 07 82 20 58 00 6C 1D D0 07 99 3A 99 20 52 56 |... X.l....:. RV|
00001560: 24 3B 22 4E 4F 54 22 3B 3A 56 B2 32 00 96 1D DA |$;"NOT";:V.2....|
00001570: 07 99 22 20 49 4E 20 4D 41 53 54 45 52 20 44 49 |.." IN MASTER DI|
00001580: 52 45 43 54 4F 52 59 21 22 3A 8D 20 32 31 35 30 |RECTORY!":. 2150|
00001590: 3A 89 32 31 31 30 00 CE 1D E4 07 44 4E 24 B2 CA |:.2110.....DN$..|
000015A0: 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 |(X$(X),3):DI$..(|
000015B0: 58 24 28 58 29 2C 32 29 3A 8D 20 32 31 36 30 3A |X$(X),2):. 2160:|
000015C0: 8B 20 43 24 B2 22 4E 22 A7 20 31 39 39 30 00 E4 |. C$."N". 1990..|
000015D0: 1D EE 07 53 24 B2 22 30 3A 44 49 52 2E 22 AA 44 |...S$."0:DIR.".D|
000015E0: 49 24 3A 8E 00 F4 1D F8 07 46 24 B2 C8 28 46 24 |I$:......F$..(F$|
000015F0: 2C 31 36 29 00 20 1E 02 08 8B 20 C9 28 46 24 2C |,16). .... .(F$,|
00001600: 31 29 B2 22 2A 22 A7 20 59 20 B2 C3 28 46 24 29 |1)."*". Y ..(F$)|
00001610: AB 31 3A 20 46 24 B2 C8 28 46 24 2C 59 29 3A 8E |.1: F$..(F$,Y):.|
00001620: 00 3E 1E 0C 08 59 B2 C3 28 46 24 29 3A 46 24 B2 |.>...Y..(F$):F$.|
00001630: C8 28 46 24 AA 5A 5A 24 2C 31 36 29 3A 8E 00 6C |.(F$.ZZ$,16):..l|
00001640: 1E 16 08 8D 32 31 35 30 3A 99 22 57 41 4E 54 20 |....2150:."WANT |
00001650: 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B 3A 8D |PRINTED COPY";:.|
00001660: 20 32 31 39 30 3A 8D 20 32 31 35 30 00 84 1E 20 | 2190:. 2150... |
00001670: 08 50 44 B2 33 3A 8B 20 43 24 B2 22 59 22 A7 20 |.PD.3:. C$."Y". |
00001680: 50 44 B2 34 00 9D 1E 2A 08 9F 20 34 2C 50 44 3A |PD.4...*.. 4,PD:|
00001690: 8B 20 50 44 B2 33 A7 20 99 48 43 24 3B 00 A3 1E |. PD.3. .HC$;...|
000016A0: 34 08 8E 00 C6 1E 3E 08 99 22 44 45 50 52 45 53 |4.....>.."DEPRES|
000016B0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
000016C0: 54 49 4E 55 45 22 00 DC 1E 48 08 A1 43 24 3A 8B |TINUE"...H..C$:.|
000016D0: 20 43 24 B2 22 22 A7 20 32 31 32 30 00 E2 1E 52 | C$."". 2120...R|
000016E0: 08 8E 00 0B 1F 5C 08 99 48 43 24 3B A6 39 29 3B |.....\..HC$;.9);|
000016F0: 52 56 24 22 44 20 49 20 53 20 4B 20 20 20 4D 20 |RV$"D I S K M |
00001700: 41 20 53 20 54 20 45 20 52 20 22 00 3F 1F 66 08 |A S T E R ".?.f.|
00001710: 99 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.:."------------|
00001720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8E 00 |------------":..|
00001740: 68 1F 70 08 99 48 43 24 3B 52 56 24 3B 22 44 49 |h.p..HC$;RV$;"DI|
00001750: 53 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 3B 22 20 |SK NAME:";RF$;" |
00001760: 20 22 3B 44 4E 24 3A 99 00 94 1F 7A 08 99 22 20 | ";DN$:....z.." |
00001770: 20 22 3B 52 56 24 3B 22 44 49 53 4B 20 49 44 3A | ";RV$;"DISK ID:|
00001780: 22 3B 52 46 24 3B 22 20 20 22 3B 44 49 24 3A 8D |";RF$;" ";DI$:.|
00001790: 32 31 35 30 00 A9 1F 84 08 99 22 43 4F 52 52 45 |2150......"CORRE|
000017A0: 43 54 20 44 49 53 4B 22 3B 00 BB 1F 8E 08 99 22 |CT DISK";......"|
000017B0: 20 28 59 2F 4E 29 3F 20 20 22 3B 00 DD 1F 98 08 | (Y/N)? ";.....|
000017C0: 8D 20 32 31 32 30 3A 8B 43 24 B3 B1 22 59 22 AF |. 2120:.C$.."Y".|
000017D0: 43 24 B3 B1 22 4E 22 A7 20 32 32 30 30 00 E7 1F |C$.."N". 2200...|
000017E0: A2 08 99 43 24 3A 8E 00 06 20 AC 08 84 31 35 2C |...C$:... ...15,|
000017F0: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 |EN,EM$,ET,ES:. E|
00001800: 4E B2 30 A7 20 8E 00 2E 20 B6 08 99 48 43 24 3B |N.0. ... ...HC$;|
00001810: 52 56 24 3B 22 44 49 53 4B 20 45 52 52 4F 52 22 |RV$;"DISK ERROR"|
00001820: 3B 52 46 24 3B 22 57 48 49 4C 45 20 22 3B 00 47 |;RF$;"WHILE ";.G|
00001830: 20 C0 08 8B 20 43 58 A7 20 99 22 57 52 49 54 49 | ... CX. ."WRITI|
00001840: 4E 47 20 4E 45 57 22 00 5E 20 CA 08 8B 20 43 58 |NG NEW".^ ... CX|
00001850: B2 30 A7 20 99 22 52 45 41 44 49 4E 47 22 00 8E |.0. ."READING"..|
00001860: 20 D4 08 99 3A 99 22 44 49 53 4B 20 44 49 52 45 | ...:."DISK DIRE|
00001870: 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 45 |CTORY CROSS REFE|
00001880: 52 45 4E 43 45 20 46 49 4C 45 2E 22 3A 99 00 A0 |RENCE FILE.":...|
00001890: 20 DE 08 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 | ...EN;EM$;ET;ES|
000018A0: 00 C4 20 E8 08 99 3A 99 52 56 24 3B 22 50 52 4F |.. ...:.RV$;"PRO|
000018B0: 47 52 41 4D 20 41 42 4F 52 54 45 44 21 22 3A 89 |GRAM ABORTED!":.|
000018C0: 32 33 38 30 00 D2 20 F2 08 8B 20 43 58 B2 30 A7 |2380.. ... CX.0.|
000018D0: 20 8E 00 09 21 FC 08 8D 20 32 31 35 30 3A 99 22 | ...!... 2150:."|
000018E0: 55 50 44 41 54 49 4E 47 20 44 49 52 45 43 54 4F |UPDATING DIRECTO|
000018F0: 52 59 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E |RY CROSS REFEREN|
00001900: 43 45 20 2E 2E 2E 22 3A 99 00 2E 21 06 09 8B 20 |CE ...":...!... |
00001910: 4E 58 B2 30 A7 20 98 31 35 2C 22 53 30 3A 44 49 |NX.0. .15,"S0:DI|
00001920: 53 4B 20 44 49 52 20 58 52 45 46 22 3A 8E 00 49 |SK DIR XREF":..I|
00001930: 21 10 09 98 31 35 2C 22 53 30 3A 44 49 52 20 58 |!...15,"S0:DIR X|
00001940: 52 45 46 2E 54 45 4D 50 22 00 70 21 1A 09 9F 35 |REF.TEMP".p!...5|
00001950: 2C 38 2C 35 2C 22 30 3A 44 49 52 20 58 52 45 46 |,8,5,"0:DIR XREF|
00001960: 2E 54 45 4D 50 2C 53 2C 57 22 3A 8D 32 32 32 30 |.TEMP,S,W":.2220|
00001970: 00 96 21 24 09 81 58 B2 30 A4 4E 58 AB 31 3A 98 |..!$..X.0.NX.1:.|
00001980: 35 2C 58 24 28 58 29 3B 43 52 24 3B 3A 8D 32 32 |5,X$(X);CR$;:.22|
00001990: 32 30 3A 82 20 58 00 B4 21 2E 09 A0 35 3A 98 31 |20:. X..!...5:.1|
000019A0: 35 2C 22 53 30 3A 44 49 53 4B 20 44 49 52 20 58 |5,"S0:DISK DIR X|
000019B0: 52 45 46 22 00 E5 21 38 09 98 31 35 2C 22 52 30 |REF"..!8..15,"R0|
000019C0: 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 3D 30 |:DISK DIR XREF=0|
000019D0: 3A 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 3A |:DIR XREF.TEMP":|
000019E0: 8D 32 32 32 30 00 EB 21 42 09 8E 00 FB 21 4C 09 |.2220..!B....!L.|
000019F0: A0 34 3A A0 35 3A A0 31 35 3A 80 00 04 22 56 09 |.4:.5:.15:..."V.|
00001A00: 99 48 43 24 00 2A 22 60 09 A0 31 35 3A 99 22 49 |.HC$.*"`..15:."I|
00001A10: 4E 53 45 52 54 20 4D 41 53 54 45 52 20 44 49 53 |NSERT MASTER DIS|
00001A20: 4B 22 3A 99 3A 8D 32 31 31 30 00 41 22 6A 09 9F |K":.:.2110.A"j..|
00001A30: 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 32 37 |15,8,15,"I0":.27|
00001A40: 30 00 68 22 74 09 98 31 35 2C 22 43 30 3A 44 49 |0.h"t..15,"C0:DI|
00001A50: 53 4B 20 4D 41 53 54 45 52 3D 30 3A 44 49 53 4B |SK MASTER=0:DISK|
00001A60: 20 4D 41 53 54 45 52 22 00 7E 22 7E 09 84 31 35 | MASTER".~"~..15|
00001A70: 2C 45 4E 3A 8B 20 45 4E B2 36 33 A7 20 8E 00 A7 |,EN:. EN.63. ...|
00001A80: 22 88 09 99 3A 99 52 56 24 3B 22 49 4E 43 4F 52 |"...:.RV$;"INCOR|
00001A90: 52 45 43 54 20 44 49 53 4B 21 22 3A 8D 32 31 35 |RECT DISK!":.215|
00001AA0: 30 3A 89 32 34 30 30 00 D6 22 92 09 99 48 43 24 |0:.2400.."...HC$|
00001AB0: 3B 22 45 4E 54 45 52 20 4D 49 4E 49 4D 55 4D 20 |;"ENTER MINIMUM |
00001AC0: 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 20 42 |NUMBER OF FREE B|
00001AD0: 4C 4F 43 4B 53 22 00 04 23 9C 09 99 3A 99 22 54 |LOCKS"..#...:."T|
00001AE0: 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 20 |O BE DISPLAYED |
00001AF0: 20 30 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B | 0";CL$;CL$;CL$;|
00001B00: 3A 85 53 24 00 22 23 A6 09 59 B2 C5 28 53 24 29 |:.S$."#..Y..(S$)|
00001B10: 3A 8B 53 24 B3 B1 22 30 22 AF 59 B2 30 A7 31 32 |:.S$.."0".Y.0.12|
00001B20: 36 30 00 31 23 B0 09 56 46 B2 30 3A 89 32 35 33 |60.1#..VF.0:.253|
00001B30: 30 00 60 23 BA 09 99 48 43 24 3B 22 45 4E 54 45 |0.`#...HC$;"ENTE|
00001B40: 52 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 |R MAXIMUM NUMBER|
00001B50: 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 | OF FREE BLOCKS"|
00001B60: 00 93 23 C4 09 99 3A 99 22 54 4F 20 42 45 20 44 |..#...:."TO BE D|
00001B70: 49 53 50 4C 41 59 45 44 20 20 20 39 39 22 3B 43 |ISPLAYED 99";C|
00001B80: 4C 24 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A |L$;CL$;CL$;CL$;:|
00001B90: 85 53 24 00 A9 23 CE 09 59 B2 C5 28 53 24 29 3A |.S$..#..Y..(S$):|
00001BA0: 8B 59 B2 30 A7 31 32 36 30 00 B2 23 D8 09 56 46 |.Y.0.1260..#..VF|
00001BB0: B2 31 00 E9 23 E2 09 8D 32 30 37 30 3A 98 34 2C |.1..#...2070:.4,|
00001BC0: 52 56 24 3B 22 23 42 4C 4B 53 20 46 52 45 45 20 |RV$;"#BLKS FREE |
00001BD0: 20 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D | ID ...DISK NAM|
00001BE0: 45 2E 2E 2E 2E 22 3A 98 34 00 15 24 EC 09 81 58 |E....":.4..$...X|
00001BF0: B2 30 A4 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 |.0.NX.1:DI$..(X$|
00001C00: 28 58 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 |(X),2):DN$..(X$(|
00001C10: 58 29 2C 33 29 00 4B 24 F6 09 9F 35 2C 38 2C 35 |X),3).K$...5,8,5|
00001C20: 2C 22 30 3A 44 49 52 2E 22 AA 44 49 24 AA 22 2C |,"0:DIR.".DI$.",|
00001C30: 53 2C 52 22 3A 8D 32 37 30 3A 84 35 2C 44 46 24 |S,R":.270:.5,DF$|
00001C40: 2C 4E 42 3A 8D 32 37 30 3A A0 35 00 64 24 00 0A |,NB:.270:.5.d$..|
00001C50: 8B 28 56 46 B2 30 29 AF 28 4E 42 B3 59 29 A7 20 |.(VF.0).(NB.Y). |
00001C60: 32 35 39 30 00 7D 24 0A 0A 8B 28 56 46 B2 31 29 |2590.}$...(VF.1)|
00001C70: AF 28 4E 42 B1 59 29 A7 20 32 35 39 30 00 AA 24 |.(NB.Y). 2590..$|
00001C80: 14 0A 98 34 2C C9 28 22 20 20 20 20 20 20 20 22 |...4,.(" "|
00001C90: AA C4 28 4E 42 29 2C 37 29 3B A6 35 29 3B 44 49 |..(NB),7);.5);DI|
00001CA0: 24 3B 22 20 20 22 3B 44 4E 24 00 C1 24 1E 0A A1 |$;" ";DN$..$...|
00001CB0: 43 24 3A 8B 43 24 B3 B1 22 22 A7 20 8D 32 31 32 |C$:.C$.."". .212|
00001CC0: 30 00 D3 24 28 0A 8B 43 24 B2 22 51 22 A7 20 31 |0..$(..C$."Q". 1|
00001CD0: 32 36 30 00 E0 24 32 0A 82 58 3A 89 31 36 37 30 |260..$2..X:.1670|
00001CE0: 00 00 00 80 FF |..... |
..)...ZZ$."":. A. 1. 15:ZZ$.ZZ$. G(32):.
A.O.... ---------DISK MASTER-----------.
U.D.:.O.N..:C$."":S$.C$:X.0:Y.0...X.CR$.
G(13):HC$.G(147):RV$.G(18):RF$.G(146):CL
$.G(157).............O....2140:.D$(230),
X$(230)... .." READING DIRECTORY CROSS
REFERENCE"......15,8,15,"I0":.2220.3....
5,8,5,"0:DISK DIR XREF,S,R".S....15,EN,E
M$,ET,ES:.EN.62.290..H..5,X$(NX):SS.ST:
.2220:NX.NX.1:.SS.0.200...R..290.....S$.
"":.X.1.Y:.260:S$.S$.C$:.X:..A....X.1.Y:
.260:.X:......V.0:.260:.C$.."".V.F(C$)..
..........#5,C$.....SS.ST:.15,EN,EM$,ET,
ES:.EN.0...5....HC$;RV$;"DISK ERROR!":.:
.2270.J.". 4: 5:CX.0:.2140.`.,...5);"0 -
DONE":....6...5);"1 - UPDATE MASTERDIRE
CTORY":....@...5);"2 - DELETE DISK ENTRY
FROM MASTER":....J...5);"3 - DISPLAY SE
LECTED DIRECTORY":....T...5);"4 - FIND S
PECIFIED FILE":..0.^...5);"5 - LIST DISK
ID'S & NAMES":..X.H..2150:."ENTER DISIR
ED FUNCTION: ";.V.R..2120:.C$."0". .HC$
:.2380...|.V.E(C$):.V.1.V.5.370......V.4
00,1180,980,1690,1250..... 15:CX.0:.HC$;
"INSERT DISK TO BE CATALOGED"......:."DE
PRESS ANY KEY TO CONTINUE, "RV$;"Q";RF
$;" TO QUIT".9....2120:.C$."Q"..2390:.29
0.\....2150:."OK":.15,8,15,"I0":.270.U..
..5,8,5,"$0,S,R":.270...B..240:VF.V:.260
...L.NB.0:.Z.1.35:.240:.Z..18.NB.NB.V...
V.Y.3:.230:.Z.....Y.16:.220:DN$.S$:Y.2:.
230.....Y.2:.220:DI$.H(S$." ",2)......2
160:.C$."N".970......NX.0.630.E....X.0.N
X.1:C$.H(X$(X),2):.DI$.C$.630.Z....DI$..
C$..X:.630.R....DN$.J(X$(X),3).630...&..
HC$;RV$;"*** WARNING ***";RF$;" THIS DI
SK ID : ";RV$;DI$;RF$.R.0..:."DISK NAME:
";RV$;DN$...:..:."IS ALL READY CATALOGE
D WITH A DIFFERENT "...D..:."DISK NAME:
";RV$;J(X$(X),3):.2150.Z.N.."CATALOGING
THIS DISK WILL DELETE THE".Y.X..:."PREVI
OUS DATA!":. 2150...B.."CATALOG THIS DIS
K";:.2190:.C$."N".970.S.L..HC$;"CATALOGI
NG DISK WITH NEW DISK NAME"...V.. 2150:.
"READING DIRECTORY ENTRIES ..."......260
:Y.2:.220:DF$.S$:Y.89.1.... VF.1.DF$." 1
".:....230.G...NF.0:Z.0.U....240:FT.V.{.
..F$.C$:Y.2:.230:Y.16:.220:Y.9:.230.....
.240:S$.S$.G(V):.240:.FT.0.770...F.. NF.
0.740.U.P..X.1.NF:.H(S$,16).J(D$(X),2,16
).750...Z..X.....X.NF.1:.760......Y.NF .
X ..1:D$(Y.1).D$(Y):. Y.-...D$(X).F$.S$
.G(V):NF.NF.1.T...Z.Z.1:Z.Z.(.(Z.8).8):.
Z.0.Y.2:.230.E.... NF.155.840......HC$;.
6);RV$;"*** DISK BAM IS INVALID ***";RF$
:.2150.R. ..:." CURRENT DISK CANNOT BE
CATALOGED!":.:.:....*.."PLEASE VERIFY O
R CHECK CISC CONTENTSE":..2.4.."BEFORE A
TTEMPTING TO CATALOG THIS DISK.":..H.>..
2150:.2110:.970.V.H..SS.0.680...R. 5:.2
390:.2150:."UPDATING MASTER DIRECTORY ..
."...\.. NX.0. 910.D.F..X.0. NX.1:C$.H(X
$(X),2):.DI$.C$. 900.V.P.. DI$.C$. 930..
.Z.. X:. 910...... Y .NX.1 . X . .1:X$(Y
.1).X$(Y):.Y:.920.....X.NX.&...NX.NX.1.=
...X$(X).DI$.DN$:CX.1.I....2030:.15,"S".
S$:. 5,8,5,S$.",S,W":.270......5,DF$;","
;NB;CR$;:.270...... NF.0..X.1.NF:.5,D$(X
);CR$;:.270:.X.A.J. 5:.2290:.400...T..H
C$;"TOO DISPLAY DISK DIRECTORY":. 1870:.
V .290,980.,.... 5,8,5,S$.",S,R":.270:.
2070:.5,DF$,NB:.270.Y....4," ";RV$;"DI
SK NAME:";RF$;" ";DN$:.4......4,"".4);R
V$;"DISK ID:";RF$;" ";DI$;.6)......4,RV
$;"DISK FORMAT:";RF$;" "DF$:.4.V....4,R
V$;"BLOCKS FREE:";RF$;" "NB:.4......4,"-
--------------------------------------":
.4. ...NF.0:. SS.0. 1160.M.$.. 240:FT.V:
Y.16:. 220:.240:Z.V:.240:.260.}....4,I("
".D(Z.(256.V)),4);" ";S$;" ";...
8.. FT.129 . .4,"SEQ"...B.. FT.130 . .4,
"PGM".E.L.. FT.131 . .4,"USR"...V.. FT.1
32 . .4,"REL"...`..4:.C$:.C$.."". . 2120
...J.. C$."Q". 1170.%.T.NF.NF.1:. SS.0 .
1060.H.~..4:.4,RV$;"#FILES:";RF$;" ";NF
.`.... PD.3 ..2150:.2110.P... 4: 5:.980
. ....HC$;"TO DELETE DISK FROM MASTER DI
RECTORY"...... 1870: . V.1240,1180.I....
15,"S".S$.....CX.0:. X.0.NX.1:. H(X$(X),
2).DI$. CX.1...D.. CX. X$(X).X$(X.1).!.N
..X:NX.NX.1:.1180.1.X.. 2290:.290.G....N
X.0.. 1880:.290.V... 4:. 2140...... .5)
;"0 - RETURN TO MAIN FUNCTION MENU":....
... .5);"1 - PRINT FULL ID USEAGE CHART"
:....... .5);"2 - LIST DISK ID'S & NAMES
":....... .5);"3 - LIST ";RV$;"MIN";RF$;
" FREE BLOCKS PER DISK":..U.(.. .5);"4 -
LIST ";RV$;"MAX";RF$;" FREE BLOCKS PER
DISK"..2.. 2150:."ENTER DESIRED FUNCTIO
N: ";...<.. 2120:. C$."0". 290...F.V.E
(C$):. V.1. V.5 . 1340.W.P..C$:. V .1550
,1620,2450,2490...D.. REGEL 1380 - 1540
OVER GESLAGEN...... 2070:.4,"".7);".DISK
ID'S CURENTLY IN USE".8....4:.4.N.".V.1
2:. PD.4. V.25.U.,.Z.0:. X.0. NX.1:.4,H(
X$(X),2);" ";...6.Z.Z.1:. Z..(Z.V).V. .4
...@.. X:.4:.4:. Z...(Z.V).V. .4...J..4,
Z;RV$;"DISKS IN MASTER DIRECTORY":.1670.
..T.. 2070:.4,RV$;"ID ...DISK NAME...."
:.4.9.^.. X.0. NX.1:.4,H(X$(X),2);" ";J
(X$(X),3).S.H.. C$:. C$.."". . 2120.F.R.
. C$."Q". 1260.N.|.. X.~.... PD.4.1260..
.... 2150:. 2110:.1260...... NX.0. . 188
0:.290..... 4:.HC$;"TO FIND WHAT DISK(S)
A FILE IS ON":......."ENTER FILE NAME
.";CL$;CL$;CL$;:. F$:. F$.".".290.7....
F$."*". .:."RE-";:.1710.Q.B.S$.F$:.2040:
V.Y:.2070...L..4,RV$;"...FILE NAME....
ID ...DISK NAME....":.4...V..4,S$:.4.C.
... Z.0. NX.1:DI$.H(X$(Z),2):DN$.J(X$(Z)
,3)......2030:. 5,8,5,S$.",S,R":EF.15:.
270:.5,DF$,NB:. 270...... 260:Y.16:.220
:Y.3:.230.0.... F$.H(S$,V). 1840.\.... F
$ . H(S$,V). .4,S$;" ";DI$;" ";DN$.U..
..C$:. C$.."". . 2120...... C$."Q". 5:.
1700...&.. SS.0. 1780...0. 5:.Z.B.:.. PD
.3 . . 2150:. 2110.L.D..1700...N.V.3:. N
X.0. 1890...X..HC$;RV$;"NO ENTRIES";:V.1
:.2010.3.B..:."ENTER DISK ID .";CL$;CL
$;CL$;:.DI$.Y.L.DI$.H(DI$." ",2):. DI$.
". ".1950...V.. X.0. NX.1:. DI$..H(X$(X)
,2). . X:.2000.....DN$.J(X$(X),3):DI$.H(
X$(X),2).C.... 2160:. C$."N". V.2:..N...
. 2030......:."ENTER DISK NAME .";CL$;
CL$;CL$;:.F$......F$.".". V.1:..1.... 20
40:. X.0. NX.1:. Y.0.2020.M.... F$.J(X$(
X),3,Y). 2020.U.F.. X.L.P..:. RV$;"NOT";
:V.2...Z.." IN MASTER DIRECTORY!":. 2150
:.2110.N...DN$.J(X$(X),3):DI$.H(X$(X),2)
:. 2160:. C$."N". 1990.....S$."0:DIR.".D
I$:......F$.H(F$,16). .... I(F$,1)."*".
Y .C(F$).1: F$.H(F$,Y):..>...Y.C(F$):F$.
H(F$.ZZ$,16):..L....2150:."WANT PRINTED
COPY";:. 2190:. 2150... .PD.3:. C$."Y".
PD.4...*.. 4,PD:. PD.3. .HC$;...4...F.>.
."DEPRESS ANY KEY TO CONTINUE"...H..C$:.
C$."". 2120...R.....\..HC$;.9);RV$"D I
S K M A S T E R ".?.F..:."------------
----------------------------":..H.P..HC$
;RV$;"DISK NAME:";RF$;" ";DN$:....Z.."
";RV$;"DISK ID:";RF$;" ";DI$:.2150....
.."CORRECT DISK";......" (Y/N)? ";.....
. 2120:.C$.."Y".C$.."N". 2200......C$:..
. ...15,EN,EM$,ET,ES:. EN.0. ... ...HC$;
RV$;"DISK ERROR";RF$;"WHILE ";.G ... CX.
."WRITING NEW".^ J.. CX.0. ."READING"..
T..:."DISK DIRECTORY CROSS REFERENCE FI
LE.":.. ...EN;EM$;ET;ES.D ...:.RV$;"PRO
GRAM ABORTED!":.2380.R ... CX.0. ...!...
2150:."UPDATING DIRECTORY CROSS REFEREN
CE ...":...!... NX.0. .15,"S0:DISK DIR X
REF":..I!...15,"S0:DIR XREF.TEMP".P!...5
,8,5,"0:DIR XREF.TEMP,S,W":.2220..!$..X.
0.NX.1:.5,X$(X);CR$;:.2220:. X..!.. 5:.1
5,"S0:DISK DIR XREF"..!8..15,"R0:DISK DI
R XREF=0:DIR XREF.TEMP":.2220..!B....!L.
4: 5: 15:..."V..HC$.*"`. 15:."INSERT MA
STER DISK":.:.2110.A"J..15,8,15,"I0":.27
0.H"T..15,"C0:DISK MASTER=0:DISK MASTER"
.~"~..15,EN:. EN.63. ..."...:.RV$;"INCOR
RECT DISK!":.2150:.2400.V"...HC$;"ENTER
MINIMUM NUMBER OF FREE BLOCKS"..#...:."T
O BE DISPLAYED 0";CL$;CL$;CL$;:.S$."#.
.Y.E(S$):.S$.."0".Y.0.1260.1#..VF.0:.253
0.`#...HC$;"ENTER MAXIMUM NUMBER OF FREE
BLOCKS"..#D..:."TO BE DISPLAYED 99";C
L$;CL$;CL$;CL$;:.S$..#N.Y.E(S$):.Y.0.126
0..#X.VF.1..#...2070:.4,RV$;"#BLKS FREE
ID ...DISK NAME....":.4..$...X.0.NX.1:
DI$.H(X$(X),2):DN$.J(X$(X),3).K$...5,8,5
,"0:DIR.".DI$.",S,R":.270:.5,DF$,NB:.270
: 5.D$...(VF.0).(NB.Y). 2590.}$...(VF.1)
.(NB.Y). 2590..$...4,I(" ".D(NB),7
);.5);DI$;" ";DN$.A$...C$:.C$.."". .212
0.S$(..C$."Q". 1260..$2..X:.1670.....
> CLICK IMAGE PREVIEW FOR FULL MODAL