DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 19:47:26
APPEARS ON: 2 disk(s)
FILE HASH
ac1df5ef5b584ee3258bd89cd333f898fc6727cb3380ee9d3627cef5a27d5c78
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| S REN 01 1 | DISK MASTER | PRG | Curtcool, Frank | 16 | 0 | DOWNLOAD FILE |
| KOPIDISK 01 2 | DISK MASTER | PRG | Curtcool, Frank | 14 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 3A 00 24 08 6E 00 97 36 34 36 |....d.:.$.n..646|
00000010: 2C 31 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 |,1:.53280,0:.532|
00000020: 38 31 2C 30 00 3E 08 78 00 9C 3A 43 24 B2 22 22 |81,0.>.x..:C$.""|
00000030: 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 B2 30 00 77 |:S$.C$:X.0:Y.0.w|
00000040: 08 82 00 43 52 24 B2 C7 28 31 33 29 3A 48 43 24 |...CR$..(13):HC$|
00000050: B2 C7 28 31 34 37 29 3A 52 56 24 B2 C7 28 31 38 |..(147):RV$..(18|
00000060: 29 3A 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C 24 |):RF$..(146):CL$|
00000070: B2 C7 28 31 35 37 29 00 92 08 8C 00 8D 32 31 32 |..(157)......212|
00000080: 30 3A 86 44 24 28 32 33 30 29 2C 58 24 28 32 33 |0:.D$(230),X$(23|
00000090: 30 29 00 BE 08 96 00 99 22 20 20 20 52 45 41 44 |0)......" READ|
000000A0: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 43 52 |ING DIRECTORY CR|
000000B0: 4F 53 53 20 52 45 46 45 52 45 4E 43 45 22 00 D7 |OSS REFERENCE"..|
000000C0: 08 A0 00 9F 20 31 35 2C 38 2C 31 35 2C 22 49 30 |.... 15,8,15,"I0|
000000D0: 22 3A 8D 32 32 30 30 00 F9 08 AA 00 9F 20 35 2C |":.2200...... 5,|
000000E0: 38 2C 35 2C 22 30 3A 44 49 53 4B 20 44 49 52 20 |8,5,"0:DISK DIR |
000000F0: 58 52 45 46 2C 53 2C 52 22 00 19 09 B4 00 84 31 |XREF,S,R"......1|
00000100: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00000110: 45 4E B2 36 32 A7 32 38 30 00 45 09 BE 00 84 35 |EN.62.280.E....5|
00000120: 2C 58 24 28 4E 58 29 3A 53 53 B2 53 54 3A 8D 32 |,X$(NX):SS.ST:.2|
00000130: 32 30 30 3A 4E 58 B2 4E 58 AA 31 3A 8B 53 53 B2 |200:NX.NX.1:.SS.|
00000140: 30 A7 31 39 30 00 4E 09 C8 00 89 32 38 30 00 72 |0.190.N....280.r|
00000150: 09 D2 00 53 24 B2 22 22 3A 81 58 B2 31 A4 59 3A |...S$."":.X.1.Y:|
00000160: 8D 32 35 30 3A 53 24 B2 53 24 AA 43 24 3A 82 58 |.250:S$.S$.C$:.X|
00000170: 3A 8E 00 87 09 DC 00 81 58 B2 31 A4 59 3A 8D 32 |:.......X.1.Y:.2|
00000180: 35 30 3A 82 58 3A 8E 00 A5 09 E6 00 56 B2 30 3A |50:.X:......V.0:|
00000190: 8D 32 35 30 3A 8B 43 24 B3 B1 22 22 A7 20 56 B2 |.250:.C$.."". V.|
000001A0: C6 28 43 24 29 00 AB 09 F0 00 8E 00 B6 09 FA 00 |.(C$)...........|
000001B0: A1 23 35 2C 43 24 00 DA 09 04 01 53 53 B2 53 54 |.#5,C$.....SS.ST|
000001C0: 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |:.15,EN,EM$,ET,E|
000001D0: 53 3A 8B 45 4E B2 30 A7 20 8E 00 FE 09 0E 01 99 |S:.EN.0. .......|
000001E0: 20 48 43 24 3B 52 56 24 3B 22 44 49 53 4B 20 45 | HC$;RV$;"DISK E|
000001F0: 52 52 4F 52 21 22 3A 99 3A 89 32 32 35 30 00 13 |RROR!":.:.2250..|
00000200: 0A 18 01 A0 34 3A A0 35 3A 43 58 B2 30 3A 8D 32 |....4:.5:CX.0:.2|
00000210: 31 32 30 00 2A 0A 22 01 99 20 A6 35 29 3B 22 30 |120.*.".. .5);"0|
00000220: 20 2D 20 44 4F 4E 45 22 3A 99 00 54 0A 2C 01 99 | - DONE":..T.,..|
00000230: 20 A6 35 29 3B 22 31 20 2D 20 55 50 44 41 54 45 | .5);"1 - UPDATE|
00000240: 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 | MASTER DIRECTOR|
00000250: 59 22 3A 99 00 84 0A 36 01 99 20 A6 35 29 3B 22 |Y":....6.. .5);"|
00000260: 32 20 2D 20 44 45 4C 45 54 45 20 44 49 53 4B 20 |2 - DELETE DISK |
00000270: 45 4E 54 52 59 20 46 52 4F 4D 20 4D 41 53 54 45 |ENTRY FROM MASTE|
00000280: 52 22 3A 99 00 B1 0A 40 01 99 20 A6 35 29 3B 22 |R":....@.. .5);"|
00000290: 33 20 2D 20 44 49 53 50 4C 41 59 20 53 45 4C 45 |3 - DISPLAY SELE|
000002A0: 43 54 45 44 20 44 49 52 45 43 54 4F 52 59 22 3A |CTED DIRECTORY":|
000002B0: 99 00 D7 0A 4A 01 99 20 A6 35 29 3B 22 34 20 2D |....J.. .5);"4 -|
000002C0: 20 46 49 4E 44 20 53 50 45 43 49 46 49 45 44 20 | FIND SPECIFIED |
000002D0: 46 49 4C 45 22 3A 99 00 FE 0A 54 01 99 20 A6 35 |FILE":....T.. .5|
000002E0: 29 3B 22 35 20 2D 20 4C 49 53 54 20 44 49 53 4B |);"5 - LIST DISK|
000002F0: 20 49 44 27 53 20 26 20 4E 41 4D 45 53 22 00 1E | ID'S & NAMES"..|
00000300: 0B 5E 01 8D 32 31 33 30 3A 99 22 45 4E 54 45 52 |.^..2130:."ENTER|
00000310: 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B 00 3E | FUNCTION: ";.>|
00000320: 0B 68 01 8D 32 31 30 30 3A 8B 43 24 B2 22 30 22 |.h..2100:.C$."0"|
00000330: 20 A7 20 99 20 48 43 24 3A 89 32 33 35 30 00 5B | . . HC$:.2350.[|
00000340: 0B 72 01 56 B2 C5 28 43 24 29 3A 8B 56 B3 31 20 |.r.V..(C$):.V.1 |
00000350: B0 20 56 B1 35 20 A7 20 33 36 30 00 7C 0B 7C 01 |. V.5 . 360.|.|.|
00000360: 91 20 56 20 89 20 33 39 30 2C 31 31 37 30 2C 39 |. V . 390,1170,9|
00000370: 37 30 2C 31 36 37 30 2C 31 32 34 30 00 B5 0B 86 |70,1670,1240....|
00000380: 01 A0 31 35 3A 43 58 B2 30 3A 99 20 48 43 24 3B |..15:CX.0:. HC$;|
00000390: 52 56 24 3B 22 49 4E 53 45 52 54 20 44 49 53 4B |RV$;"INSERT DISK|
000003A0: 20 54 4F 20 42 45 20 43 41 54 41 4C 4F 47 45 44 | TO BE CATALOGED|
000003B0: 22 3B 52 46 24 00 F3 0B 90 01 99 3A 99 22 44 45 |";RF$......:."DE|
000003C0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
000003D0: 20 43 4F 4E 54 49 4E 55 45 2C 20 22 3B 52 56 24 | CONTINUE, ";RV$|
000003E0: 3B 22 51 22 3B 52 46 24 3B 22 20 54 4F 20 51 55 |;"Q";RF$;" TO QU|
000003F0: 49 54 22 00 10 0C 9A 01 8D 32 31 30 30 3A 8B 43 |IT"......2100:.C|
00000400: 24 B2 22 51 22 A7 8D 32 33 36 30 3A 89 32 38 30 |$."Q"..2360:.280|
00000410: 00 33 0C A4 01 8D 32 31 33 30 3A 99 22 4F 4B 22 |.3....2130:."OK"|
00000420: 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 4F 22 3A 8D |:.15,8,15,"IO":.|
00000430: 32 36 30 00 4C 0C AE 01 9F 35 2C 38 2C 35 2C 22 |260.L....5,8,5,"|
00000440: 24 30 2C 53 2C 52 22 3A 8D 32 36 30 00 5F 0C B8 |$0,S,R":.260._..|
00000450: 01 8D 32 33 30 3A 56 46 B2 56 3A 8D 32 35 30 00 |..230:VF.V:.250.|
00000460: 84 0C C2 01 4E 42 B2 30 3A 81 5A B2 31 A4 33 35 |....NB.0:.Z.1.35|
00000470: 3A 8D 32 33 30 3A 8B 5A B3 B1 31 38 A7 4E 42 B2 |:.230:.Z..18.NB.|
00000480: 4E 42 AA 56 00 95 0C CC 01 59 B2 33 3A 8D 32 32 |NB.V.....Y.3:.22|
00000490: 30 3A 82 20 5A 00 B3 0C D6 01 59 B2 31 36 3A 8D |0:. Z.....Y.16:.|
000004A0: 32 31 30 3A 44 4E 24 B2 53 24 3A 59 B2 32 3A 8D |210:DN$.S$:Y.2:.|
000004B0: 32 32 30 00 D1 0C E0 01 59 B2 32 3A 8D 32 31 30 |220.....Y.2:.210|
000004C0: 3A 44 49 24 B2 C8 28 53 24 AA 22 20 20 22 2C 32 |:DI$..(S$." ",2|
000004D0: 29 00 E9 0C EA 01 8D 20 32 31 34 30 3A 8B 43 24 |)...... 2140:.C$|
000004E0: B2 22 4E 22 A7 20 39 36 30 00 FA 0C F4 01 8B 20 |."N". 960...... |
000004F0: 4E 58 B2 30 20 A7 20 36 32 30 00 22 0D FE 01 81 |NX.0 . 620."....|
00000500: 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 |X.0.NX.1:C$..(X$|
00000510: 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 36 |(X),2):.DI$.C$.6|
00000520: 32 30 00 39 0D 08 02 8B 20 44 49 24 B3 B1 43 24 |20.9.... DI$..C$|
00000530: A7 20 82 58 3A 89 36 32 30 00 54 0D 12 02 8B 20 |. .X:.620.T.... |
00000540: 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 20 A7 |DN$..(X$(X),3) .|
00000550: 20 36 32 30 00 97 0D 1C 02 99 48 43 24 3B 52 56 | 620......HC$;RV|
00000560: 24 3B 22 2A 2A 2A 20 57 41 52 4E 49 4E 47 20 2A |$;"*** WARNING *|
00000570: 2A 2A 22 3B 52 46 24 3B 22 20 20 54 48 49 53 20 |**";RF$;" THIS |
00000580: 44 49 53 4B 20 49 44 20 3A 20 22 3B 52 56 24 3B |DISK ID : ";RV$;|
00000590: 44 49 24 3B 52 46 24 00 B4 0D 26 02 99 3A 99 22 |DI$;RF$...&..:."|
000005A0: 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 |DISK NAME: ";RV$|
000005B0: 3B 44 4E 24 00 E5 0D 30 02 99 3A 99 22 49 53 20 |;DN$...0..:."IS |
000005C0: 41 4C 4C 20 52 45 41 44 59 20 43 41 54 41 4C 4F |ALL READY CATALO|
000005D0: 47 45 44 20 57 49 54 48 20 41 20 44 49 46 46 45 |GED WITH A DIFFE|
000005E0: 52 45 4E 54 22 00 0F 0E 3A 02 99 3A 99 22 44 49 |RENT"...:..:."DI|
000005F0: 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 3B CA |SK NAME: ";RV$;.|
00000600: 28 58 24 28 58 29 2C 33 29 3A 8D 32 31 33 30 00 |(X$(X),3):.2130.|
00000610: 3B 0E 44 02 99 22 43 41 54 41 4C 4F 47 49 4E 47 |;.D.."CATALOGING|
00000620: 20 54 48 49 53 20 44 49 53 4B 20 57 49 4C 4C 20 | THIS DISK WILL |
00000630: 44 45 4C 45 54 45 20 54 48 45 22 00 59 0E 4E 02 |DELETE THE".Y.N.|
00000640: 99 3A 99 22 50 52 45 56 49 4F 55 53 20 44 41 54 |.:."PREVIOUS DAT|
00000650: 41 21 22 3A 8D 32 31 33 30 00 85 0E 58 02 99 22 |A!":.2130...X.."|
00000660: 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 |CATALOG THIS DIS|
00000670: 4B 22 3B 3A 8D 32 31 37 30 3A 8B 43 24 B2 22 4E |K";:.2170:.C$."N|
00000680: 22 A7 39 36 30 00 B3 0E 62 02 99 48 43 24 3B 22 |".960...b..HC$;"|
00000690: 43 41 54 41 4C 4F 47 49 4E 47 20 44 49 53 4B 20 |CATALOGING DISK |
000006A0: 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 4E 41 |WITH NEW DISK NA|
000006B0: 4D 45 22 00 DF 0E 6C 02 8D 20 32 31 33 30 3A 99 |ME"...l.. 2130:.|
000006C0: 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F |"READING DIRECTO|
000006D0: 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E 22 00 |RY ENTRIES ...".|
000006E0: FD 0E 76 02 8D 32 35 30 3A 59 B2 32 3A 8D 32 31 |..v..250:Y.2:.21|
000006F0: 30 3A 44 46 24 B2 53 24 3A 59 B2 38 39 00 11 0F |0:DF$.S$:Y.89...|
00000700: 80 02 8B 20 56 46 B2 31 A7 44 46 24 B2 22 20 31 |... VF.1.DF$." 1|
00000710: 22 00 1A 0F 8A 02 8D 32 32 30 00 27 0F 94 02 4E |"......220.'...N|
00000720: 46 B2 30 3A 5A B2 30 00 35 0F 9E 02 8D 32 33 30 |F.0:Z.0.5....230|
00000730: 3A 46 54 B2 56 00 5B 0F A8 02 46 24 B2 43 24 3A |:FT.V.[...F$.C$:|
00000740: 59 B2 32 3A 8D 32 32 30 3A 59 B2 31 36 3A 8D 32 |Y.2:.220:Y.16:.2|
00000750: 31 30 3A 59 B2 39 3A 8D 32 32 30 00 7F 0F B2 02 |10:Y.9:.220.....|
00000760: 8D 32 33 30 3A 53 24 B2 53 24 AA C7 28 56 29 3A |.230:S$.S$..(V):|
00000770: 8D 32 33 30 3A 8B 20 46 54 B2 30 A7 37 36 30 00 |.230:. FT.0.760.|
00000780: 90 0F BC 02 8B 20 4E 46 B2 30 20 A7 20 37 33 30 |..... NF.0 . 730|
00000790: 00 B8 0F C6 02 81 58 B2 31 A4 4E 46 3A 8B C8 28 |......X.1.NF:..(|
000007A0: 53 24 2C 31 36 29 B3 CA 28 44 24 28 58 29 2C 32 |S$,16)..(D$(X),2|
000007B0: 2C 31 36 29 A7 37 34 30 00 BF 0F D0 02 82 58 00 |,16).740......X.|
000007C0: CF 0F DA 02 58 B2 4E 46 AA 31 3A 89 37 35 30 00 |....X.NF.1:.750.|
000007D0: F0 0F E4 02 81 59 B2 4E 46 A4 58 20 A9 AB 31 3A |.....Y.NF.X ..1:|
000007E0: 44 24 28 59 AA 31 29 B2 44 24 28 59 29 3A 82 59 |D$(Y.1).D$(Y):.Y|
000007F0: 00 0D 10 EE 02 44 24 28 58 29 B2 46 24 AA 53 24 |.....D$(X).F$.S$|
00000800: AA C7 28 56 29 3A 4E 46 B2 4E 46 AA 31 00 37 10 |..(V):NF.NF.1.7.|
00000810: F8 02 5A B2 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A |..Z.Z.1:Z.Z.(.(Z|
00000820: AD 38 29 AC 38 29 3A 8B 20 5A B1 30 20 A7 20 59 |.8).8):. Z.0 . Y|
00000830: B2 32 3A 8D 32 32 30 00 49 10 02 03 8B 20 4E 46 |.2:.220.I.... NF|
00000840: B3 31 35 35 A7 20 38 33 30 00 83 10 0C 03 99 20 |.155. 830...... |
00000850: 48 43 24 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A |HC$;.6);RV$;"***|
00000860: 20 44 49 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 | DISK BAM IS INV|
00000870: 41 4C 49 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 32 |ALID ***";RF$:.2|
00000880: 31 33 30 00 B7 10 16 03 99 3A 99 22 20 20 20 43 |130......:." C|
00000890: 55 52 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E |URRENT DISK CANN|
000008A0: 4F 54 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 |OT BE CATALOGED!|
000008B0: 22 3A 99 3A 99 3A 99 00 E4 10 20 03 99 22 50 4C |":.:.:.... .."PL|
000008C0: 45 41 53 45 20 56 45 52 49 46 59 20 4F 52 20 43 |EASE VERIFY OR C|
000008D0: 48 45 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 4E |HECK DISK CONTEN|
000008E0: 53 22 3A 99 00 15 11 2A 03 99 22 42 45 46 4F 52 |S":....*.."BEFOR|
000008F0: 45 20 41 54 54 45 4D 50 54 49 4E 47 20 54 4F 20 |E ATTEMPTING TO |
00000900: 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 |CATALOG THIS DIS|
00000910: 4B 2E 22 3A 99 00 2C 11 34 03 8D 20 32 31 33 30 |K.":..,.4.. 2130|
00000920: 3A 8D 20 32 30 39 30 3A 89 39 36 30 00 3D 11 3E |:. 2090:.960.=.>|
00000930: 03 8B 20 53 53 B2 30 20 A7 20 36 37 30 00 72 11 |.. SS.0 . 670.r.|
00000940: 48 03 A0 20 35 3A 8D 32 33 36 30 3A 8D 32 31 33 |H.. 5:.2360:.213|
00000950: 30 3A 99 22 55 50 44 41 54 49 4E 47 20 4D 41 53 |0:."UPDATING MAS|
00000960: 54 45 52 20 44 49 52 45 43 54 4F 52 59 20 2E 2E |TER DIRECTORY ..|
00000970: 2E 22 00 83 11 52 03 8B 20 4E 58 B2 30 20 A7 20 |."...R.. NX.0 . |
00000980: 39 30 30 00 AF 11 5C 03 81 20 58 B2 30 20 A4 20 |900...\.. X.0 . |
00000990: 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 28 58 29 2C |NX.1:C$..(X$(X),|
000009A0: 32 29 3A 8B 20 44 49 24 B3 43 24 A7 38 39 30 00 |2):. DI$.C$.890.|
000009B0: C1 11 66 03 8B 20 44 49 24 B2 43 24 20 A7 39 32 |..f.. DI$.C$ .92|
000009C0: 30 00 CE 11 70 03 82 20 58 3A 89 39 30 30 00 F8 |0...p.. X:.900..|
000009D0: 11 7A 03 81 20 59 B2 4E 58 AB 31 A4 58 20 A9 AB |.z.. Y.NX.1.X ..|
000009E0: 31 3A 58 24 28 59 AA 31 29 B2 58 24 28 59 29 3A |1:X$(Y.1).X$(Y):|
000009F0: 82 20 59 3A 89 39 31 30 00 01 12 84 03 58 B2 4E |. Y:.910.....X.N|
00000A00: 58 00 0D 12 8E 03 4E 58 B2 4E 58 AA 31 00 24 12 |X.....NX.NX.1.$.|
00000A10: 98 03 58 24 28 58 29 B2 44 49 24 AA 44 4E 24 3A |..X$(X).DI$.DN$:|
00000A20: 43 58 B2 31 00 53 12 A2 03 8D 32 30 31 30 3A 98 |CX.1.S....2010:.|
00000A30: 31 35 2C 22 53 22 AA 53 24 3A 9F 20 35 2C 38 2C |15,"S".S$:. 5,8,|
00000A40: 35 2C 53 24 AA 22 2C 53 2C 57 3A 47 4F 53 55 42 |5,S$.",S,W:GOSUB|
00000A50: 32 37 30 00 6F 12 AC 03 98 35 2C 44 46 24 3B 22 |270.o....5,DF$;"|
00000A60: 2C 22 3B 4E 42 3B 43 52 24 3B 3A 8D 32 36 30 00 |,";NB;CR$;:.260.|
00000A70: 9A 12 B6 03 8B 20 4E 46 B1 30 A7 20 81 20 58 B2 |..... NF.0. . X.|
00000A80: 31 A4 4E 46 3A 98 35 2C 44 24 28 58 29 3B 43 52 |1.NF:.5,D$(X);CR|
00000A90: 24 3B 3A 8D 32 36 30 3A 82 58 00 AD 12 C0 03 A0 |$;:.260:.X......|
00000AA0: 20 35 3A 8D 32 32 37 30 3A 89 33 39 30 00 E6 12 | 5:.2270:.390...|
00000AB0: CA 03 99 20 48 43 24 3B 22 54 4F 20 44 49 53 50 |... HC$;"TO DISP|
00000AC0: 4C 41 59 20 44 49 53 4B 20 44 49 52 45 43 54 4F |LAY DISK DIRECTO|
00000AD0: 52 59 22 3A 8D 31 38 35 30 3A 91 56 20 89 20 32 |RY":.1850:.V . 2|
00000AE0: 38 30 2C 39 37 30 00 16 13 D4 03 9F 20 35 2C 38 |80,970...... 5,8|
00000AF0: 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A 8D 32 36 |,5,S$.",S,R":.26|
00000B00: 30 3A 8D 32 30 35 30 3A 84 35 2C 44 46 24 2C 4E |0:.2050:.5,DF$,N|
00000B10: 42 3A 8D 32 36 30 00 3F 13 DE 03 98 34 2C 52 56 |B:.260.?....4,RV|
00000B20: 24 3B 22 44 49 53 4B 20 4E 41 4D 45 20 20 20 22 |$;"DISK NAME "|
00000B30: 3B 52 46 24 22 20 20 22 3B 44 4E 24 3A 98 34 00 |;RF$" ";DN$:.4.|
00000B40: 69 13 E8 03 98 34 2C 52 56 24 3B 22 44 49 53 4B |i....4,RV$;"DISK|
00000B50: 20 49 44 20 20 20 20 20 22 3B 52 46 24 3B 22 20 | ID ";RF$;" |
00000B60: 20 22 3B 44 49 24 3A 98 34 00 92 13 F2 03 98 34 | ";DI$:.4......4|
00000B70: 2C 52 56 24 3B 22 42 4C 4F 43 4B 53 20 46 52 45 |,RV$;"BLOCKS FRE|
00000B80: 45 3A 22 3B 52 46 24 3B 22 20 22 3B 4E 42 3B A6 |E:";RF$;" ";NB;.|
00000B90: 35 29 00 BB 13 FC 03 98 34 2C 52 56 24 3B 22 44 |5)......4,RV$;"D|
00000BA0: 49 53 4B 20 46 4F 52 4D 41 54 3A 22 3B 52 46 24 |ISK FORMAT:";RF$|
00000BB0: 3B 22 20 20 22 44 46 24 3A 98 34 00 EF 13 06 04 |;" "DF$:.4.....|
00000BC0: 98 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.4,"------------|
00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 98 34 00 |-----------":.4.|
00000BF0: 05 14 10 04 4E 46 B2 30 3A 8B 20 53 53 B1 30 20 |....NF.0:. SS.0 |
00000C00: A7 31 31 35 30 00 31 14 1A 04 8D 20 32 33 30 3A |.1150.1.... 230:|
00000C10: 46 54 B2 56 3A 59 B2 31 36 3A 8D 32 31 30 3A 8D |FT.V:Y.16:.210:.|
00000C20: 32 33 30 3A 5A B2 56 3A 8D 32 33 30 3A 8D 32 35 |230:Z.V:.230:.25|
00000C30: 30 00 63 14 24 04 98 34 2C C9 28 22 20 20 20 20 |0.c.$..4,.(" |
00000C40: 22 AA C4 28 5A AA 28 32 35 36 AC 56 29 29 2C 34 |"..(Z.(256.V)),4|
00000C50: 29 3B 22 20 22 3B 53 24 3B 22 20 20 20 20 20 20 |);" ";S$;" |
00000C60: 20 22 3B 00 7B 14 2E 04 8B 20 46 54 B2 31 32 39 | ";.{.... FT.129|
00000C70: A7 20 98 34 2C 22 53 45 51 22 3B 00 93 14 38 04 |. .4,"SEQ";...8.|
00000C80: 8B 20 46 54 B2 31 33 30 A7 20 98 34 2C 22 50 47 |. FT.130. .4,"PG|
00000C90: 4D 22 3B 00 AB 14 42 04 8B 20 46 54 B2 31 33 31 |M";...B.. FT.131|
00000CA0: A7 20 98 34 2C 22 55 53 52 22 3B 00 C3 14 4C 04 |. .4,"USR";...L.|
00000CB0: 8B 20 46 54 B2 31 33 32 A7 20 98 34 2C 22 52 45 |. FT.132. .4,"RE|
00000CC0: 4C 22 3B 00 DD 14 56 04 98 34 3A A1 20 43 24 3A |L";...V..4:. C$:|
00000CD0: 8B 43 24 B3 B1 22 22 A7 8D 32 31 30 30 00 EF 14 |.C$..""..2100...|
00000CE0: 60 04 8B 20 43 24 B2 22 51 22 A7 31 31 36 30 00 |`.. C$."Q".1160.|
00000CF0: 06 15 6A 04 4E 46 B2 4E 46 AA 31 3A 8B 53 53 B2 |..j.NF.NF.1:.SS.|
00000D00: 30 A7 31 30 35 30 00 29 15 74 04 98 34 3A 98 34 |0.1050.).t..4:.4|
00000D10: 2C 52 56 24 3B 22 23 46 49 4C 45 53 3A 22 3B 52 |,RV$;"#FILES:";R|
00000D20: 46 24 3B 22 20 22 3B 4E 46 00 42 15 7E 04 8B 20 |F$;" ";NF.B.~.. |
00000D30: 50 44 B2 33 20 A7 20 8D 32 31 33 30 3A 8D 32 30 |PD.3 . .2130:.20|
00000D40: 39 30 00 51 15 88 04 A0 34 3A A0 35 3A 89 39 37 |90.Q....4:.5:.97|
00000D50: 30 00 81 15 92 04 99 48 43 24 3B 22 54 4F 20 44 |0......HC$;"TO D|
00000D60: 45 4C 45 54 45 20 44 49 53 4B 20 46 52 4F 4D 20 |ELETE DISK FROM |
00000D70: 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 |MASTER DIRECTORY|
00000D80: 22 00 9B 15 9C 04 8D 31 38 35 30 3A 91 20 56 20 |"......1850:. V |
00000D90: 89 20 31 32 33 30 2C 31 31 37 30 00 AA 15 A6 04 |. 1230,1170.....|
00000DA0: 98 31 35 2C 22 53 22 AA 53 24 00 D3 15 B0 04 43 |.15,"S".S$.....C|
00000DB0: 58 B2 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A 8B 20 |X.0:.X.0.NX.1:. |
00000DC0: C8 28 58 24 28 58 29 2C 32 29 B2 44 49 24 A7 43 |.(X$(X),2).DI$.C|
00000DD0: 58 B2 31 00 EB 15 BA 04 8B 20 43 58 20 A7 58 24 |X.1...... CX .X$|
00000DE0: 28 58 29 B2 58 24 28 58 AA 31 29 00 01 16 C4 04 |(X).X$(X.1).....|
00000DF0: 82 20 58 3A 4E 58 B2 4E 58 AB 31 3A 89 31 31 37 |. X:NX.NX.1:.117|
00000E00: 30 00 10 16 CE 04 8D 32 32 37 30 3A 89 32 38 30 |0......2270:.280|
00000E10: 00 26 16 D8 04 8B 20 4E 58 B2 30 A7 8D 31 38 36 |.&.... NX.0..186|
00000E20: 30 3A 89 32 38 30 00 33 16 E2 04 A0 34 3A 8D 32 |0:.280.3....4:.2|
00000E30: 31 32 30 00 62 16 EC 04 99 20 A6 35 29 3B 22 30 |120.b.... .5);"0|
00000E40: 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 | - RETURN TO MAI|
00000E50: 4E 20 46 55 4E 43 54 49 4F 4E 20 4D 45 4E 55 22 |N FUNCTION MENU"|
00000E60: 3A 99 00 8E 16 F6 04 99 20 A6 35 29 3B 22 31 20 |:....... .5);"1 |
00000E70: 2D 20 50 52 49 4E 54 20 46 55 4C 4C 20 49 44 20 |- PRINT FULL ID |
00000E80: 55 53 41 47 45 20 43 48 41 52 54 22 3A 99 00 BA |USAGE CHART":...|
00000E90: 16 00 05 99 20 A6 35 29 3B 22 32 20 2D 20 51 55 |.... .5);"2 - QU|
00000EA0: 49 43 4B 20 4C 49 53 54 20 4F 46 20 49 44 27 53 |ICK LIST OF ID'S|
00000EB0: 20 49 4E 20 55 53 45 22 3A 99 00 E3 16 0A 05 99 | IN USE":.......|
00000EC0: 20 A6 35 29 3B 22 33 20 2D 20 4C 49 53 54 20 44 | .5);"3 - LIST D|
00000ED0: 49 53 4B 20 49 44 27 53 20 26 20 4E 41 4D 45 53 |ISK ID'S & NAMES|
00000EE0: 22 3A 99 00 21 17 14 05 99 20 A6 35 29 3B 22 34 |":..!.... .5);"4|
00000EF0: 20 2D 20 4C 49 53 54 20 22 3B 52 56 24 3B 22 4D | - LIST ";RV$;"M|
00000F00: 49 4E 22 3B 52 46 24 3B 22 20 46 52 45 45 20 42 |IN";RF$;" FREE B|
00000F10: 4C 4F 43 4B 53 20 50 45 52 20 44 49 53 4B 22 3A |LOCKS PER DISK":|
00000F20: 99 00 5D 17 1E 05 99 20 A6 35 29 3B 22 35 20 2D |..].... .5);"5 -|
00000F30: 20 4C 49 53 54 20 22 3B 52 56 24 3B 22 4D 41 58 | LIST ";RV$;"MAX|
00000F40: 22 3B 52 46 24 3B 22 20 46 52 45 45 20 42 4C 4F |";RF$;" FREE BLO|
00000F50: 43 4B 53 20 50 45 52 20 44 49 53 4B 22 00 7D 17 |CKS PER DISK".}.|
00000F60: 28 05 8D 32 31 33 30 3A 99 22 45 4E 54 45 52 20 |(..2130:."ENTER |
00000F70: 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B 00 94 17 |FUNCTION: ";...|
00000F80: 32 05 8D 32 31 30 30 3A 8B 20 43 24 B2 22 30 22 |2..2100:. C$."0"|
00000F90: A7 32 38 30 00 B0 17 3C 05 56 B2 C5 28 43 24 29 |.280...<.V..(C$)|
00000FA0: 3A 8B 56 B3 31 20 B0 20 56 B1 35 A7 31 33 33 30 |:.V.1 . V.5.1330|
00000FB0: 00 D7 17 46 05 99 20 43 24 3A 91 20 56 20 89 31 |...F.. C$:. V .1|
00000FC0: 33 36 30 2C 31 35 34 30 2C 31 36 31 30 2C 32 34 |360,1540,1610,24|
00000FD0: 32 30 2C 32 34 36 30 00 E0 17 50 05 9F 34 2C 34 |20,2460...P..4,4|
00000FE0: 00 1D 18 5A 05 98 34 2C 22 22 A6 31 35 29 3B 52 |...Z..4,"".15);R|
00000FF0: 56 24 3B 22 20 20 44 20 49 20 53 20 4B 20 20 49 |V$;" D I S K I|
00001000: 20 44 20 20 55 20 53 20 45 20 41 20 47 20 45 20 | D U S E A G E |
00001010: 20 43 20 48 20 41 20 52 20 54 20 20 22 00 2D 18 | C H A R T ".-.|
00001020: 64 05 98 34 3A 20 98 34 2C 22 20 22 3B 00 49 18 |d..4: .4," ";.I.|
00001030: 6E 05 81 20 58 B2 34 38 20 A4 20 39 30 3A 8B 58 |n.. X.48 . 90:.X|
00001040: B2 35 38 A7 20 58 B2 36 35 00 61 18 78 05 98 34 |.58. X.65.a.x..4|
00001050: 2C 22 20 22 3B C7 28 58 29 3B 3A 82 20 58 3A 98 |," ";.(X);:. X:.|
00001060: 34 00 82 18 82 05 5A B2 30 3A 81 58 B2 34 38 20 |4.....Z.0:.X.48 |
00001070: A4 20 39 30 3A 8B 20 58 B2 35 38 20 A7 20 58 B2 |. 90:. X.58 . X.|
00001080: 36 35 00 C1 18 8C 05 98 34 2C 22 20 DB C0 DB C0 |65......4," ....|
00001090: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
000010A0: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
000010B0: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB 22 |..............."|
000010C0: 3B 00 E0 18 96 05 98 34 2C 22 C0 DB C0 DB C0 DB |;......4,"......|
000010D0: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 |................|
000010E0: 00 ED 18 A0 05 98 34 2C C7 28 58 29 3B 00 06 19 |......4,.(X);...|
000010F0: AA 05 81 20 59 B2 34 38 A4 39 30 3A 8B 59 B2 35 |... Y.48.90:.Y.5|
00001100: 38 A7 59 B2 36 35 00 20 19 B4 05 98 34 2C C7 28 |8.Y.65. ....4,.(|
00001110: 32 32 31 29 3B 3A 8B 5A B2 4E 58 A7 31 34 39 30 |221);:.Z.NX.1490|
00001120: 00 3F 19 BE 05 43 24 B2 C7 28 58 29 AA C7 28 59 |.?...C$..(X)..(Y|
00001130: 29 3A 53 24 B2 C8 28 58 24 28 5A 29 2C 32 29 00 |):S$..(X$(Z),2).|
00001140: 62 19 C8 05 8B 20 53 24 B2 43 24 A7 98 34 2C C7 |b.... S$.C$..4,.|
00001150: 28 31 36 36 29 3B 3A 5A B2 5A AA 31 3A 89 31 35 |(166);:Z.Z.1:.15|
00001160: 30 30 00 6E 19 D2 05 98 34 2C 22 20 22 3B 00 91 |00.n....4," ";..|
00001170: 19 DC 05 82 59 3A 98 34 2C C7 28 32 32 31 29 3A |....Y:.4,.(221):|
00001180: A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D 32 31 30 |.C$:.C$..""..210|
00001190: 30 00 A3 19 E6 05 8B 43 24 B3 B1 22 51 22 A7 20 |0......C$.."Q". |
000011A0: 82 20 58 00 E3 19 F0 05 98 34 2C 22 20 B1 C0 B1 |. X......4," ...|
000011B0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000011C0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000011D0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000011E0: C0 22 3B 00 09 1A FA 05 98 34 2C 22 20 B1 C0 B1 |.";......4," ...|
000011F0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
00001200: C0 BD 22 3A 89 31 32 35 30 00 34 1A 04 06 8D 32 |..":.1250.4....2|
00001210: 30 35 30 3A 98 34 2C 22 12 44 49 53 4B 20 49 44 |050:.4,".DISK ID|
00001220: 27 53 20 43 55 52 52 45 4E 54 4C 59 20 49 4E 20 |'S CURRENTLY IN |
00001230: 55 53 45 22 00 3E 1A 0E 06 98 34 3A 98 34 00 52 |USE".>....4:.4.R|
00001240: 1A 18 06 56 B2 31 32 3A 8B 50 44 B2 34 A7 56 B2 |...V.12:.PD.4.V.|
00001250: 32 35 00 77 1A 22 06 5A B2 30 3A 81 58 B2 30 A4 |25.w.".Z.0:.X.0.|
00001260: 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C |NX.1:.4,.(X$(X),|
00001270: 32 29 3B 22 20 22 3B 00 90 1A 2C 06 5A B2 5A AA |2);" ";...,.Z.Z.|
00001280: 31 3A 8B 5A B2 B5 28 5A AD 56 29 AC 56 A7 98 34 |1:.Z..(Z.V).V..4|
00001290: 00 AD 1A 36 06 82 58 3A 98 34 3A 98 34 3A 8B 5A |...6..X:.4:.4:.Z|
000012A0: B3 B1 B5 28 5A AD 56 29 AC 56 A7 98 34 00 DA 1A |...(Z.V).V..4...|
000012B0: 40 06 98 34 2C 52 56 24 3B 22 44 49 53 4B 53 20 |@..4,RV$;"DISKS |
000012C0: 49 4E 20 44 49 52 45 43 54 4F 52 59 20 22 3B 52 |IN DIRECTORY ";R|
000012D0: 46 24 3B 5A 3A 89 31 36 35 30 00 07 1B 4A 06 8D |F$;Z:.1650...J..|
000012E0: 32 30 35 30 3A 98 34 2C 52 56 24 3B 22 49 44 20 |2050:.4,RV$;"ID |
000012F0: 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 20 20 20 | DISK NAME |
00001300: 20 20 20 22 3A 98 34 00 33 1B 54 06 81 58 B2 30 | ":.4.3.T..X.0|
00001310: A4 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 |.NX.1:.4,.(X$(X)|
00001320: 2C 32 29 3B 22 20 20 22 3B CA 28 58 24 28 58 29 |,2);" ";.(X$(X)|
00001330: 2C 33 29 00 4B 1B 5E 06 A1 20 43 24 3A 8B 20 43 |,3).K.^.. C$:. C|
00001340: 24 B3 B1 22 22 A7 8D 32 31 30 30 00 53 1B 68 06 |$..""..2100.S.h.|
00001350: 82 20 58 00 63 1B 72 06 8B 20 50 44 B2 34 A7 31 |. X.c.r.. PD.4.1|
00001360: 32 35 30 00 79 1B 7C 06 8D 32 31 33 30 3A 8D 32 |250.y.|..2130:.2|
00001370: 30 39 30 3A 89 31 32 35 30 00 8F 1B 86 06 8B 20 |090:.1250...... |
00001380: 4E 58 B2 30 A7 8D 31 38 36 30 3A 89 32 38 30 00 |NX.0..1860:.280.|
00001390: C1 1B 90 06 A0 34 3A 99 48 43 24 3B 22 54 4F 20 |.....4:.HC$;"TO |
000013A0: 46 49 4E 44 20 57 48 41 54 20 44 49 53 4B 28 53 |FIND WHAT DISK(S|
000013B0: 29 20 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 3A |) A FILE IS ON":|
000013C0: 99 00 FA 1B 9A 06 99 22 45 4E 54 45 52 20 46 49 |......."ENTER FI|
000013D0: 4C 45 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 |LE NAME .";CL$|
000013E0: 3B 43 4C 24 3B 43 4C 24 3B 3A 85 46 24 3A 8B 20 |;CL$;CL$;:.F$:. |
000013F0: 46 24 B2 22 2E 22 A7 32 38 30 00 18 1C A4 06 8B |F$.".".280......|
00001400: 20 46 24 B2 22 2A 22 A7 20 99 3A 99 22 52 45 2D | F$."*". .:."RE-|
00001410: 22 3B 3A 89 31 36 39 30 00 32 1C AE 06 53 24 B2 |";:.1690.2...S$.|
00001420: 46 24 3A 8D 32 30 32 30 3A 56 B2 59 3A 8D 32 30 |F$:.2020:V.Y:.20|
00001430: 35 30 00 6A 1C B8 06 98 34 2C 52 56 24 3B 22 46 |50.j....4,RV$;"F|
00001440: 49 4C 45 20 4E 41 4D 45 20 20 20 20 20 20 20 20 |ILE NAME |
00001450: 20 49 44 20 20 44 49 53 4B 20 4E 41 4D 45 20 20 | ID DISK NAME |
00001460: 20 20 20 20 20 20 22 3A 98 34 00 77 1C C2 06 98 | ":.4.w....|
00001470: 34 2C 53 24 3A 98 34 00 A3 1C CC 06 81 5A B2 30 |4,S$:.4......Z.0|
00001480: A4 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 5A |.NX.1:DI$..(X$(Z|
00001490: 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 5A 29 |),2):DN$..(X$(Z)|
000014A0: 2C 33 29 00 D8 1C D6 06 8D 32 30 31 30 3A 9F 35 |,3)......2010:.5|
000014B0: 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A 45 |,8,5,S$.",S,R":E|
000014C0: 46 B2 31 35 3A 8D 32 36 30 3A 84 35 2C 44 46 24 |F.15:.260:.5,DF$|
000014D0: 2C 4E 42 3A 8D 32 36 30 00 F4 1C E0 06 8D 32 35 |,NB:.260......25|
000014E0: 30 3A 59 B2 31 36 3A 8D 32 31 30 3A 59 B2 33 3A |0:Y.16:.210:Y.3:|
000014F0: 8D 32 32 30 00 0A 1D EA 06 8B 20 46 24 B3 C8 28 |.220...... F$..(|
00001500: 53 24 2C 56 29 A7 31 38 32 30 00 46 1D F4 06 8B |S$,V).1820.F....|
00001510: 20 46 24 B2 C8 28 53 24 2C 56 29 A7 20 98 34 2C | F$..(S$,V). .4,|
00001520: 53 24 3B 22 20 20 22 3B 44 49 24 3B 22 20 20 22 |S$;" ";DI$;" "|
00001530: 3B 44 4E 24 3A 20 8F 20 3C 2D 20 32 20 53 50 41 |;DN$: . <- 2 SPA|
00001540: 43 45 53 20 45 41 00 5E 1D FE 06 A1 20 43 24 3A |CES EA.^.... C$:|
00001550: 8B 20 43 24 B3 B1 22 22 A7 8D 32 31 30 30 00 74 |. C$..""..2100.t|
00001560: 1D 08 07 8B 43 24 B2 22 51 22 A7 20 A0 35 3A 89 |....C$."Q". .5:.|
00001570: 31 36 38 30 00 84 1D 12 07 8B 20 53 53 B2 30 A7 |1680...... SS.0.|
00001580: 31 37 36 30 00 8F 1D 1C 07 A0 35 3A 82 20 5A 00 |1760......5:. Z.|
00001590: A6 1D 26 07 8B 20 50 44 B2 33 A7 8D 32 31 33 30 |..&.. PD.3..2130|
000015A0: 3A 8D 32 30 39 30 00 B0 1D 30 07 89 31 36 38 30 |:.2090...0..1680|
000015B0: 00 C3 1D 3A 07 56 B2 33 3A 8B 4E 58 B1 30 A7 31 |...:.V.3:.NX.0.1|
000015C0: 38 37 30 00 E7 1D 44 07 99 48 24 3B 52 56 24 3B |870...D..H$;RV$;|
000015D0: 22 4E 4F 20 45 4E 54 52 49 45 53 22 3B 3A 56 B2 |"NO ENTRIES";:V.|
000015E0: 31 3A 89 31 39 39 30 00 16 1E 4E 07 99 3A 99 20 |1:.1990...N..:. |
000015F0: 22 45 4E 54 45 52 20 44 49 53 4B 20 49 44 20 20 |"ENTER DISK ID |
00001600: 20 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B | .";CL$;CL$;CL$;|
00001610: 3A 85 20 44 49 24 00 3C 1E 58 07 44 49 24 B2 C8 |:. DI$.<.X.DI$..|
00001620: 28 44 49 24 AA 22 20 20 22 2C 32 29 3A 8B 20 44 |(DI$." ",2):. D|
00001630: 49 24 B2 22 2E 20 22 A7 31 39 33 30 00 66 1E 62 |I$.". ".1930.f.b|
00001640: 07 81 58 B2 30 A4 4E 58 AB 31 3A 8B 44 49 24 B3 |..X.0.NX.1:.DI$.|
00001650: B1 C8 28 58 24 28 58 29 2C 32 29 A7 20 82 20 58 |..(X$(X),2). . X|
00001660: 3A 89 31 39 38 30 00 88 1E 6C 07 44 4E 24 B2 CA |:.1980...l.DN$..|
00001670: 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 |(X$(X),3):DI$..(|
00001680: 58 24 28 58 29 2C 32 29 00 A2 1E 76 07 8D 20 32 |X$(X),2)...v.. 2|
00001690: 31 34 30 3A 8B 43 24 B2 22 4E 22 A7 20 56 B2 32 |140:.C$."N". V.2|
000016A0: 3A 8E 00 AC 1E 80 07 89 32 30 31 30 00 DB 1E 8A |:.......2010....|
000016B0: 07 99 3A 99 22 45 4E 54 45 52 20 44 49 53 4B 20 |..:."ENTER DISK |
000016C0: 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B 43 4C |NAME .";CL$;CL|
000016D0: 24 3B 43 4C 24 3B 3A 85 20 46 24 00 EE 1E 94 07 |$;CL$;:. F$.....|
000016E0: 8B 20 46 24 B2 22 2E 22 A7 56 B2 31 3A 8E 00 0D |. F$.".".V.1:...|
000016F0: 1F 9E 07 8D 32 30 32 30 3A 81 58 B2 30 A4 4E 58 |....2020:.X.0.NX|
00001700: AB 31 3A 8B 20 59 B2 30 A7 32 30 30 30 00 29 1F |.1:. Y.0.2000.).|
00001710: A8 07 8B 20 46 24 B2 CA 28 58 24 28 58 29 2C 33 |... F$..(X$(X),3|
00001720: 2C 59 29 A7 20 32 30 30 30 00 31 1F B2 07 82 20 |,Y). 2000.1.... |
00001730: 58 00 47 1F BC 07 99 3A 99 52 56 24 3B 22 4E 4F |X.G....:.RV$;"NO|
00001740: 54 22 3B 3A 56 B2 32 00 70 1F C6 07 99 22 20 49 |T";:V.2.p...." I|
00001750: 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F |N MASTER DIRECTO|
00001760: 52 59 21 22 3A 8D 32 31 33 30 3A 89 32 30 39 30 |RY!":.2130:.2090|
00001770: 00 A5 1F D0 07 44 4E 24 B2 CA 28 58 24 28 58 29 |.....DN$..(X$(X)|
00001780: 2C 33 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C |,3):DI$..(X$(X),|
00001790: 32 29 3A 8D 32 31 34 30 3A 8B 43 24 B2 22 4E 22 |2):.2140:.C$."N"|
000017A0: A7 31 39 37 30 00 BB 1F DA 07 53 24 B2 22 30 3A |.1970.....S$."0:|
000017B0: 44 49 52 2E 22 AA 44 49 24 3A 8E 00 CB 1F E4 07 |DIR.".DI$:......|
000017C0: 46 24 B2 C8 28 46 24 2C 31 36 29 00 F5 1F EE 07 |F$..(F$,16).....|
000017D0: 8B 20 C9 28 46 24 2C 31 29 B2 22 2A 22 A7 20 59 |. .(F$,1)."*". Y|
000017E0: B2 C3 28 46 24 29 AB 31 3A 46 24 B2 C8 28 46 24 |..(F$).1:F$..(F$|
000017F0: 2C 59 29 3A 8E 00 1F 20 F8 07 59 B2 31 36 3A 46 |,Y):... ..Y.16:F|
00001800: 24 B2 C8 28 46 24 AA 22 20 20 20 20 20 20 20 20 |$..(F$." |
00001810: 20 20 20 20 20 20 20 20 22 2C 31 36 29 3A 8E 00 | ",16):..|
00001820: 4B 20 02 08 8D 32 31 33 30 3A 99 22 57 41 4E 54 |K ...2130:."WANT|
00001830: 20 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B 3A | PRINTED COPY";:|
00001840: 8D 32 31 37 30 3A 8D 32 31 33 30 00 62 20 0C 08 |.2170:.2130.b ..|
00001850: 50 44 B2 33 3A 8B 43 24 B2 22 59 22 A7 20 50 44 |PD.3:.C$."Y". PD|
00001860: B2 34 00 7A 20 16 08 9F 34 2C 50 44 3A 8B 50 44 |.4.z ...4,PD:.PD|
00001870: B2 33 A7 20 99 20 48 43 24 3B 00 80 20 20 08 8E |.3. . HC$;.. ..|
00001880: 00 A3 20 2A 08 99 22 44 45 50 52 45 53 53 20 41 |.. *.."DEPRESS A|
00001890: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
000018A0: 55 45 22 00 BA 20 34 08 A1 20 43 24 3A 8B 20 43 |UE".. 4.. C$:. C|
000018B0: 24 B2 22 22 A7 20 32 31 30 30 00 C0 20 3E 08 8E |$."". 2100.. >..|
000018C0: 00 EB 20 48 08 99 20 48 43 24 3B A6 38 29 3B 52 |.. H.. HC$;.8);R|
000018D0: 56 24 3B 22 20 44 20 49 20 53 20 4B 20 20 4D 20 |V$;" D I S K M |
000018E0: 41 20 53 20 54 20 45 20 52 20 22 00 1E 21 52 08 |A S T E R "..!R.|
000018F0: 99 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.:."------------|
00001900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8E 00 47 |-----------":..G|
00001920: 21 5C 08 99 48 43 24 3B 52 56 24 3B 22 44 49 53 |!\..HC$;RV$;"DIS|
00001930: 4B 20 4E 41 4D 45 20 22 3B 52 46 24 3B 22 20 20 |K NAME ";RF$;" |
00001940: 22 3B 44 4E 24 3A 99 00 70 21 66 08 99 52 56 24 |";DN$:..p!f..RV$|
00001950: 3B 22 44 49 53 4B 20 49 44 20 20 20 22 3B 52 46 |;"DISK ID ";RF|
00001960: 24 3B 22 20 20 22 3B 44 49 24 3A 8D 32 31 33 30 |$;" ";DI$:.2130|
00001970: 00 85 21 70 08 99 22 43 4F 52 52 45 43 54 20 44 |..!p.."CORRECT D|
00001980: 49 53 4B 22 3B 00 98 21 7A 08 99 22 20 28 59 2F |ISK";..!z.." (Y/|
00001990: 4E 29 20 3F 20 20 22 3B 00 B9 21 84 08 8D 32 31 |N) ? ";..!...21|
000019A0: 30 30 3A 8B 20 43 24 B3 B1 22 59 22 AF 43 24 B3 |00:. C$.."Y".C$.|
000019B0: B1 22 4E 22 A7 32 31 38 30 00 C4 21 8E 08 99 20 |."N".2180..!... |
000019C0: 43 24 3A 8E 00 E1 21 98 08 84 31 35 2C 45 4E 2C |C$:...!...15,EN,|
000019D0: 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 30 A7 |EM$,ET,ES:.EN.0.|
000019E0: 8E 00 0B 22 A2 08 99 20 48 43 24 3B 52 56 24 3B |..."... HC$;RV$;|
000019F0: 22 44 49 53 4B 20 45 52 52 4F 52 22 3B 52 46 24 |"DISK ERROR";RF$|
00001A00: 3B 22 20 57 48 49 4C 45 20 22 3B 00 25 22 AC 08 |;" WHILE ";.%"..|
00001A10: 8B 20 43 58 20 A7 20 99 22 57 52 49 54 49 4E 47 |. CX . ."WRITING|
00001A20: 20 4E 45 57 22 00 3B 22 B6 08 8B 20 43 58 B2 30 | NEW".;"... CX.0|
00001A30: A7 99 22 52 45 41 44 49 4E 47 22 00 6B 22 C0 08 |.."READING".k"..|
00001A40: 99 3A 99 22 44 49 53 4B 20 44 49 52 45 43 54 4F |.:."DISK DIRECTO|
00001A50: 52 59 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E |RY CROSS REFEREN|
00001A60: 43 45 20 46 49 4C 45 2E 22 3A 99 00 7E 22 CA 08 |CE FILE.":..~"..|
00001A70: 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 A3 |. EN;EM$;ET;ES..|
00001A80: 22 D4 08 99 3A 99 20 52 56 24 3B 22 50 52 4F 47 |"...:. RV$;"PROG|
00001A90: 52 41 4D 20 41 42 4F 52 54 45 44 21 22 3A 89 32 |RAM ABORTED!":.2|
00001AA0: 33 35 30 00 AF 22 DE 08 8B 43 58 B2 30 A7 8E 00 |350.."...CX.0...|
00001AB0: E5 22 E8 08 8D 32 31 33 30 3A 99 22 55 50 44 41 |."...2130:."UPDA|
00001AC0: 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 43 |TING DIRECTORY C|
00001AD0: 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 20 2E |ROSS REFERENCE .|
00001AE0: 2E 2E 22 3A 99 00 08 23 F2 08 8B 4E 58 B2 30 A7 |..":...#...NX.0.|
00001AF0: 98 31 35 2C 22 53 30 3A 44 49 53 4B 20 44 49 52 |.15,"S0:DISK DIR|
00001B00: 20 58 52 45 46 22 3A 8E 00 30 23 FC 08 9F 20 35 | XREF":..0#... 5|
00001B10: 2C 38 2C 35 2C 22 30 3A 44 49 52 20 58 52 45 46 |,8,5,"0:DIR XREF|
00001B20: 2E 54 45 4D 50 2C 53 2C 57 22 3A 8D 32 32 30 30 |.TEMP,S,W":.2200|
00001B30: 00 55 23 06 09 81 58 B2 30 A4 4E 58 AB 31 3A 98 |.U#...X.0.NX.1:.|
00001B40: 35 2C 58 24 28 58 29 3B 43 52 24 3B 3A 8D 32 32 |5,X$(X);CR$;:.22|
00001B50: 30 30 3A 82 58 00 73 23 10 09 A0 35 3A 98 31 35 |00:.X.s#...5:.15|
00001B60: 2C 22 53 30 3A 44 49 53 4B 20 44 49 52 20 58 52 |,"S0:DISK DIR XR|
00001B70: 45 46 22 00 A4 23 1A 09 98 31 35 2C 22 52 30 3A |EF"..#...15,"R0:|
00001B80: 44 49 53 4B 20 44 49 52 20 58 52 45 46 3D 30 3A |DISK DIR XREF=0:|
00001B90: 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 3A 8D |DIR XREF.TEMP":.|
00001BA0: 32 32 30 30 00 AA 23 24 09 8E 00 BA 23 2E 09 A0 |2200..#$....#...|
00001BB0: 34 3A A0 35 3A A0 31 35 3A 80 00 C5 23 38 09 99 |4:.5:.15:...#8..|
00001BC0: 20 48 43 24 3B 00 F3 23 42 09 A0 31 35 3A 99 52 | HC$;..#B..15:.R|
00001BD0: 56 24 3B 22 49 4E 53 45 52 54 20 4D 41 53 54 45 |V$;"INSERT MASTE|
00001BE0: 52 20 44 49 53 4B 22 3B 52 46 24 3A 99 3A 8D 32 |R DISK";RF$:.:.2|
00001BF0: 30 39 30 00 0B 24 4C 09 9F 20 31 35 2C 38 2C 31 |090..$L.. 15,8,1|
00001C00: 35 2C 22 49 30 22 3A 8D 32 36 30 00 32 24 56 09 |5,"I0":.260.2$V.|
00001C10: 98 31 35 2C 22 43 30 3A 44 49 53 4B 20 4D 41 53 |.15,"C0:DISK MAS|
00001C20: 54 45 52 3D 30 3A 44 49 53 4B 20 4D 41 53 54 45 |TER=0:DISK MASTE|
00001C30: 52 22 00 48 24 60 09 84 31 35 2C 45 4E 3A 8B 20 |R".H$`..15,EN:. |
00001C40: 45 4E B2 36 33 A7 20 8E 00 72 24 6A 09 99 3A 99 |EN.63. ..r$j..:.|
00001C50: 20 52 56 24 3B 22 49 4E 43 4F 52 52 45 43 54 20 | RV$;"INCORRECT |
00001C60: 44 49 53 4B 21 22 3A 8D 32 31 33 30 3A 89 32 33 |DISK!":.2130:.23|
00001C70: 37 30 00 A2 24 74 09 99 20 48 43 24 3B 22 45 4E |70..$t.. HC$;"EN|
00001C80: 54 45 52 20 4D 49 4E 49 4D 55 4D 20 4E 55 4D 42 |TER MINIMUM NUMB|
00001C90: 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B |ER OF FREE BLOCK|
00001CA0: 53 22 00 DE 24 7E 09 99 3A 99 22 54 4F 20 42 45 |S"..$~..:."TO BE|
00001CB0: 20 44 49 53 50 4C 41 59 45 44 20 20 20 20 30 22 | DISPLAYED 0"|
00001CC0: 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 |;CL$;CL$;CL$;:. |
00001CD0: 53 24 3A 8F 20 44 45 46 41 55 4C 54 3D 30 00 FF |S$:. DEFAULT=0..|
00001CE0: 24 88 09 59 B2 C5 28 53 24 29 3A 8B 20 53 24 B3 |$..Y..(S$):. S$.|
00001CF0: B1 22 30 22 20 AF 20 59 B2 30 A7 31 32 35 30 00 |."0" . Y.0.1250.|
00001D00: 0E 25 92 09 56 46 B2 30 3A 89 32 35 30 30 00 3E |.%..VF.0:.2500.>|
00001D10: 25 9C 09 99 20 48 43 24 3B 22 45 4E 54 45 52 20 |%... HC$;"ENTER |
00001D20: 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 20 4F |MAXIMUM NUMBER O|
00001D30: 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 00 72 |F FREE BLOCKS".r|
00001D40: 25 A6 09 99 3A 99 22 54 4F 20 42 45 20 44 49 53 |%...:."TO BE DIS|
00001D50: 50 4C 41 59 45 44 20 20 20 39 39 22 3B 43 4C 24 |PLAYED 99";CL$|
00001D60: 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 |;CL$;CL$;CL$;:. |
00001D70: 53 24 00 88 25 B0 09 59 B2 C5 28 53 24 29 3A 8B |S$..%..Y..(S$):.|
00001D80: 59 B2 30 A7 31 32 35 30 00 91 25 BA 09 56 46 B2 |Y.0.1250..%..VF.|
00001D90: 31 00 C8 25 C4 09 8D 32 30 35 30 3A 98 34 2C 52 |1..%...2050:.4,R|
00001DA0: 56 24 3B 22 23 42 4C 4B 53 20 46 52 45 45 20 20 |V$;"#BLKS FREE |
00001DB0: 49 44 20 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 |ID DISK NAME |
00001DC0: 20 20 20 20 22 3A 98 34 00 F5 25 CE 09 81 20 58 | ":.4..%... X|
00001DD0: B2 30 A4 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 |.0.NX.1:DI$..(X$|
00001DE0: 28 58 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 |(X),2):DN$..(X$(|
00001DF0: 58 29 2C 33 29 00 2C 26 D8 09 9F 20 35 2C 38 2C |X),3).,&... 5,8,|
00001E00: 35 2C 22 30 3A 44 49 52 2E 22 AA 44 49 24 AA 22 |5,"0:DIR.".DI$."|
00001E10: 2C 53 2C 52 22 3A 8D 32 36 30 3A 84 35 2C 44 46 |,S,R":.260:.5,DF|
00001E20: 24 2C 4E 42 3A 8D 32 36 30 3A A0 35 00 48 26 E2 |$,NB:.260:.5.H&.|
00001E30: 09 8B 28 56 46 B2 30 29 20 AF 20 28 4E 42 B3 59 |..(VF.0) . (NB.Y|
00001E40: 29 20 A7 20 32 35 36 30 00 64 26 EC 09 8B 28 56 |) . 2560.d&...(V|
00001E50: 46 B2 31 29 20 AF 20 28 4E 42 B1 59 29 20 A7 20 |F.1) . (NB.Y) . |
00001E60: 32 35 36 30 00 90 26 F6 09 98 34 2C C9 28 22 20 |2560..&...4,.(" |
00001E70: 20 20 20 20 20 22 AA C4 28 4E 42 29 2C 37 29 3B | "..(NB),7);|
00001E80: A6 35 29 3B 44 49 24 3B 22 20 20 22 3B 44 4E 24 |.5);DI$;" ";DN$|
00001E90: 00 AA 26 00 0A A1 20 43 24 3A 8B 20 43 24 B3 B1 |..&... C$:. C$..|
00001EA0: 22 22 20 A7 20 8D 32 31 30 30 00 BE 26 0A 0A 8B |"" . .2100..&...|
00001EB0: 20 43 24 B2 22 51 22 20 A7 20 31 32 35 30 00 CB | C$."Q" . 1250..|
00001EC0: 26 14 0A 82 58 3A 89 31 36 35 30 00 00 00 18 8A |&...X:.1650.....|
....D.:.$.N..646,1:.53280,0:.53281,0.>.X
..:C$."":S$.C$:X.0:Y.0.W...CR$.G(13):HC$
.G(147):RV$.G(18):RF$.G(146):CL$.G(157).
.....2120:.D$(230),X$(230)......" READ
ING DIRECTORY CROSS REFERENCE".W. .. 15,
8,15,"I0":.2200...... 5,8,5,"0:DISK DIR
XREF,S,R"......15,EN,EM$,ET,ES:.EN.62.28
0.E....5,X$(NX):SS.ST:.2200:NX.NX.1:.SS.
0.190.N.H..280.R.R.S$."":.X.1.Y:.250:S$.
S$.C$:.X:.......X.1.Y:.250:.X:......V.0:
.250:.C$.."". V.F(C$)............#5,C$.Z
...SS.ST:.15,EN,EM$,ET,ES:.EN.0. .......
HC$;RV$;"DISK ERROR!":.:.2250..... 4: 5
:CX.0:.2120.*.".. .5);"0 - DONE":..T.,..
.5);"1 - UPDATE MASTER DIRECTORY":....6
.. .5);"2 - DELETE DISK ENTRY FROM MASTE
R":....@.. .5);"3 - DISPLAY SELECTED DIR
ECTORY":..W.J.. .5);"4 - FIND SPECIFIED
FILE":....T.. .5);"5 - LIST DISK ID'S &
NAMES"...^..2130:."ENTER FUNCTION: ";.>
.H..2100:.C$."0" . . HC$:.2350.[.R.V.E(C
$):.V.1 . V.5 . 360.|.|.. V . 390,1170,9
70,1670,1240..... 15:CX.0:. HC$;RV$;"INS
ERT DISK TO BE CATALOGED";RF$......:."DE
PRESS ANY KEY TO CONTINUE, ";RV$;"Q";RF$
;" TO QUIT"......2100:.C$."Q"..2360:.280
.3....2130:."OK":.15,8,15,"IO":.260.L...
.5,8,5,"$0,S,R":.260._....230:VF.V:.250.
..B.NB.0:.Z.1.35:.230:.Z..18.NB.NB.V...L
.Y.3:.220:. Z...V.Y.16:.210:DN$.S$:Y.2:.
220.Q...Y.2:.210:DI$.H(S$." ",2)......
2140:.C$."N". 960...... NX.0 . 620."....
X.0.NX.1:C$.H(X$(X),2):.DI$.C$.620.9....
DI$..C$. .X:.620.T.... DN$.J(X$(X),3) .
620......HC$;RV$;"*** WARNING ***";RF$;
" THIS DISK ID : ";RV$;DI$;RF$...&..:."
DISK NAME: ";RV$;DN$...0..:."IS ALL READ
Y CATALOGED WITH A DIFFERENT"...:..:."DI
SK NAME: ";RV$;J(X$(X),3):.2130.;.D.."CA
TALOGING THIS DISK WILL DELETE THE".Y.N.
.:."PREVIOUS DATA!":.2130...X.."CATALOG
THIS DISK";:.2170:.C$."N".960...B..HC$;"
CATALOGING DISK WITH NEW DISK NAME"...L.
. 2130:."READING DIRECTORY ENTRIES ...".
..V..250:Y.2:.210:DF$.S$:Y.89...... VF.1
.DF$." 1"......220.'...NF.0:Z.0.5....230
:FT.V.[...F$.C$:Y.2:.220:Y.16:.210:Y.9:.
220.....230:S$.S$.G(V):.230:. FT.0.760.
..... NF.0 . 730...F..X.1.NF:.H(S$,16).J
(D$(X),2,16).740...P..X.O.Z.X.NF.1:.750.
.....Y.NF.X ..1:D$(Y.1).D$(Y):.Y.....D$(
X).F$.S$.G(V):NF.NF.1.7...Z.Z.1:Z.Z.(.(Z
.8).8):. Z.0 . Y.2:.220.I.... NF.155. 83
0...... HC$;.6);RV$;"*** DISK BAM IS INV
ALID ***";RF$:.2130......:." CURRENT D
ISK CANNOT BE CATALOGED!":.:.:.... .."PL
EASE VERIFY OR CHECK DISK CONTENS":....*
.."BEFORE ATTEMPTING TO CATALOG THIS DIS
K.":..,.4.. 2130:. 2090:.960.=.>.. SS.0
. 670.R.H. 5:.2360:.2130:."UPDATING MAS
TER DIRECTORY ..."...R.. NX.0 . 900...\.
. X.0 . NX.1:C$.H(X$(X),2):. DI$.C$.890.
A.F.. DI$.C$ .920.N.P.. X:.900...Z.. Y.N
X.1.X ..1:X$(Y.1).X$(Y):. Y:.910.....X.N
X.....NX.NX.1.$...X$(X).DI$.DN$:CX.1.S..
..2010:.15,"S".S$:. 5,8,5,S$.",S,W:GOSUB
270.O....5,DF$;",";NB;CR$;:.260...... NF
.0. . X.1.NF:.5,D$(X);CR$;:.260:.X.....
5:.2270:.390...J.. HC$;"TO DISPLAY DISK
DIRECTORY":.1850:.V . 280,970...T.. 5,8
,5,S$.",S,R":.260:.2050:.5,DF$,NB:.260.?
....4,RV$;"DISK NAME ";RF$" ";DN$:.4.
I....4,RV$;"DISK ID ";RF$;" ";DI$:.
4......4,RV$;"BLOCKS FREE:";RF$;" ";NB;.
5)......4,RV$;"DISK FORMAT:";RF$;" "DF$
:.4......4,"----------------------------
-----------":.4.....NF.0:. SS.0 .1150.1.
... 230:FT.V:Y.16:.210:.230:Z.V:.230:.25
0.C.$..4,I(" ".D(Z.(256.V)),4);" ";S$
;" ";.{.... FT.129. .4,"SEQ";...8.
. FT.130. .4,"PGM";...B.. FT.131. .4,"US
R";.C.L.. FT.132. .4,"REL";...V..4:. C$:
.C$..""..2100...`.. C$."Q".1160...J.NF.N
F.1:.SS.0.1050.).T..4:.4,RV$;"#FILES:";R
F$;" ";NF.B.~.. PD.3 . .2130:.2090.Q...
4: 5:.970......HC$;"TO DELETE DISK FROM
MASTER DIRECTORY"......1850:. V . 1230,1
170......15,"S".S$.S...CX.0:.X.0.NX.1:.
H(X$(X),2).DI$.CX.1...... CX .X$(X).X$(X
.1)...D.. X:NX.NX.1:.1170...N..2270:.280
.&.X.. NX.0..1860:.280.3... 4:.2120.B...
. .5);"0 - RETURN TO MAIN FUNCTION MENU"
:....... .5);"1 - PRINT FULL ID USAGE CH
ART":....... .5);"2 - QUICK LIST OF ID'S
IN USE":....... .5);"3 - LIST DISK ID'S
& NAMES":..!.... .5);"4 - LIST ";RV$;"M
IN";RF$;" FREE BLOCKS PER DISK":..]....
.5);"5 - LIST ";RV$;"MAX";RF$;" FREE BLO
CKS PER DISK".}.(..2130:."ENTER FUNCTION
: ";...2..2100:. C$."0".280...<.V.E(C$)
:.V.1 . V.5.1330.W.F.. C$:. V .1360,1540
,1610,2420,2460...P..4,4...Z..4,"".15);R
V$;" D I S K I D U S E A G E C H A R
T ".-.D..4: .4," ";.I.N.. X.48 . 90:.X
.58. X.65.A.X..4," ";G(X);:. X:.4.....Z.
0:.X.48 . 90:. X.58 . X.65.A....4," ....
........................................
.......";......4,"......................
... ..4,G(X);...... Y.48.90:.Y.58.Y.65.
....4,G(221);:.Z.NX.1490.?...C$.G(X).G(Y
):S$.H(X$(Z),2).B.H.. S$.C$..4,G(166);:Z
.Z.1:.1500.N.R..4," ";......Y:.4,G(221):
.C$:.C$..""..2100......C$.."Q". . X.....
.4," ...................................
.................";......4," ...........
..........":.1250.4....2050:.4,".DISK ID
'S CURRENTLY IN USE".>....4:.4.R...V.12:
.PD.4.V.25.W.".Z.0:.X.0.NX.1:.4,H(X$(X),
2);" ";...,.Z.Z.1:.Z..(Z.V).V..4...6..X:
.4:.4:.Z...(Z.V).V..4.Z.@..4,RV$;"DISKS
IN DIRECTORY ";RF$;Z:.1650...J..2050:.4,
RV$;"ID DISK NAME ":.4.3.T..X.0
.NX.1:.4,H(X$(X),2);" ";J(X$(X),3).K.^.
. C$:. C$..""..2100.S.H.. X.C.R.. PD.4.1
250.Y.|..2130:.2090:.1250...... NX.0..18
60:.280.A... 4:.HC$;"TO FIND WHAT DISK(S
) A FILE IS ON":......."ENTER FILE NAME
.";CL$;CL$;CL$;:.F$:. F$.".".280......
F$."*". .:."RE-";:.1690.2...S$.F$:.2020
:V.Y:.2050.J....4,RV$;"FILE NAME
ID DISK NAME ":.4.W.B..4,S$:.4.
..L..Z.0.NX.1:DI$.H(X$(Z),2):DN$.J(X$(Z)
,3).X.V..2010:.5,8,5,S$.",S,R":EF.15:.26
0:.5,DF$,NB:.260......250:Y.16:.210:Y.3:
.220...... F$.H(S$,V).1820.F.... F$.H(S$
,V). .4,S$;" ";DI$;" ";DN$: . <- 2 SPA
CES EA.^.... C$:. C$..""..2100.T....C$."
Q". 5:.1680...... SS.0.1760..... 5:. Z.
..&.. PD.3..2130:.2090...0..1680.C.:.V.3
:.NX.0.1870...D..H$;RV$;"NO ENTRIES";:V.
1:.1990...N..:. "ENTER DISK ID .";CL$;
CL$;CL$;:. DI$.<.X.DI$.H(DI$." ",2):. D
I$.". ".1930.F.B..X.0.NX.1:.DI$..H(X$(X)
,2). . X:.1980...L.DN$.J(X$(X),3):DI$.H(
X$(X),2)...V.. 2140:.C$."N". V.2:.......
2010......:."ENTER DISK NAME .";CL$;CL
$;CL$;:. F$...... F$.".".V.1:.......2020
:.X.0.NX.1:. Y.0.2000.).... F$.J(X$(X),3
,Y). 2000.1.... X.G....:.RV$;"NOT";:V.2.
P.F.." IN MASTER DIRECTORY!":.2130:.2090
...P.DN$.J(X$(X),3):DI$.H(X$(X),2):.2140
:.C$."N".1970...Z.S$."0:DIR.".DI$:..K...
F$.H(F$,16)...... I(F$,1)."*". Y.C(F$).1
:F$.H(F$,Y):... ..Y.16:F$.H(F$."
",16):..K ...2130:."WANT PRINTED
COPY";:.2170:.2130.B ..PD.3:.C$."Y". PD
.4.Z ...4,PD:.PD.3. . HC$;.. .... *.."D
EPRESS ANY KEY TO CONTINUE".. 4.. C$:. C
$."". 2100.. >.... H.. HC$;.8);RV$;" D I
S K M A S T E R "..!R..:."------------
---------------------------":..G!\..HC$;
RV$;"DISK NAME ";RF$;" ";DN$:..P!F..RV$
;"DISK ID ";RF$;" ";DI$:.2130..!P.."C
ORRECT DISK";..!Z.." (Y/N) ? ";..!...21
00:. C$.."Y".C$.."N".2180.D!... C$:...!.
..15,EN,EM$,ET,ES:.EN.0...."... HC$;RV$;
"DISK ERROR";RF$;" WHILE ";.%"... CX . .
"WRITING NEW".;"... CX.0.."READING".K"..
.:."DISK DIRECTORY CROSS REFERENCE FILE.
":..~"J.. EN;EM$;ET;ES.."T..:. RV$;"PROG
RAM ABORTED!":.2350.."...CX.0...."...213
0:."UPDATING DIRECTORY CROSS REFERENCE .
..":...#...NX.0..15,"S0:DISK DIR XREF":.
.0#... 5,8,5,"0:DIR XREF.TEMP,S,W":.2200
.U#...X.0.NX.1:.5,X$(X);CR$;:.2200:.X.S#
.. 5:.15,"S0:DISK DIR XREF"..#...15,"R0:
DISK DIR XREF=0:DIR XREF.TEMP":.2200..#$
....#.. 4: 5: 15:..E#8.. HC$;..#B. 15:.R
V$;"INSERT MASTER DISK";RF$:.:.2090..$L.
. 15,8,15,"I0":.260.2$V..15,"C0:DISK MAS
TER=0:DISK MASTER".H$`..15,EN:. EN.63. .
.R$J..:. RV$;"INCORRECT DISK!":.2130:.23
70..$T.. HC$;"ENTER MINIMUM NUMBER OF FR
EE BLOCKS"..$~..:."TO BE DISPLAYED 0"
;CL$;CL$;CL$;:. S$:. DEFAULT=0..$..Y.E(S
$):. S$.."0" . Y.0.1250..%..VF.0:.2500.>
%... HC$;"ENTER MAXIMUM NUMBER OF FREE B
LOCKS".R%...:."TO BE DISPLAYED 99";CL$
;CL$;CL$;CL$;:. S$..%..Y.E(S$):.Y.0.1250
..%..VF.1.H%D..2050:.4,RV$;"#BLKS FREE
ID DISK NAME ":.4..%N.. X.0.NX.1:
DI$.H(X$(X),2):DN$.J(X$(X),3).,&X.. 5,8,
5,"0:DIR.".DI$.",S,R":.260:.5,DF$,NB:.26
0: 5.H&...(VF.0) . (NB.Y) . 2560.D&...(V
F.1) . (NB.Y) . 2560..&...4,I(" ".D
(NB),7);.5);DI$;" ";DN$..&... C$:. C$..
"" . .2100..&... C$."Q" . 1250.K&...X:.1
650.....
> CLICK IMAGE PREVIEW FOR FULL MODAL