DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 7.5K
FIRST SEEN: 2025-11-30 20:22:11
APPEARS ON: 1 disk(s)
FILE HASH
2e1e35fc19193efb41780afbbd80993a148f9a8432aa1e07ba49ef3c7d78a646
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SIKKERHEDSKOPIER | DISK MASTER | PRG | Curtcool, Misc | 23 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 97 35 33 32 38 31 2C 32 3A 97 |....d..53281,2:.|
00000010: 36 34 36 2C 31 00 2F 08 6E 00 9C 3A 43 24 B2 22 |646,1./.n..:C$."|
00000020: 22 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 B2 30 00 |":S$.C$:X.0:Y.0.|
00000030: 68 08 78 00 43 52 24 B2 C7 28 31 33 29 3A 48 43 |h.x.CR$..(13):HC|
00000040: 24 B2 C7 28 31 34 37 29 3A 52 56 24 B2 C7 28 31 |$..(147):RV$..(1|
00000050: 38 29 3A 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C |8):RF$..(146):CL|
00000060: 24 B2 C7 28 31 35 37 29 00 6E 08 82 00 8F 00 74 |$..(157).n.....t|
00000070: 08 8C 00 8F 00 8F 08 96 00 8D 32 31 34 30 3A 86 |..........2140:.|
00000080: 44 24 28 32 33 30 29 2C 58 24 28 32 33 30 29 00 |D$(230),X$(230).|
00000090: BB 08 A0 00 99 22 20 20 20 52 45 41 44 49 4E 47 |....." READING|
000000A0: 20 44 49 52 45 43 54 4F 52 59 20 43 52 4F 53 53 | DIRECTORY CROSS|
000000B0: 20 52 45 46 45 52 45 4E 43 45 22 00 D3 08 AA 00 | REFERENCE".....|
000000C0: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 32 |.15,8,15,"I0":.2|
000000D0: 32 32 30 00 F4 08 B4 00 9F 35 2C 38 2C 35 2C 22 |220......5,8,5,"|
000000E0: 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 2C |0:DISK DIR XREF,|
000000F0: 53 2C 52 22 00 14 09 BE 00 84 31 35 2C 45 4E 2C |S,R"......15,EN,|
00000100: 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 36 32 |EM$,ET,ES:.EN.62|
00000110: A7 32 39 30 00 40 09 C8 00 84 35 2C 58 24 28 4E |.290.@....5,X$(N|
00000120: 58 29 3A 53 53 B2 53 54 3A 8D 32 32 32 30 3A 4E |X):SS.ST:.2220:N|
00000130: 58 B2 4E 58 AA 31 3A 8B 53 53 B2 30 A7 32 30 30 |X.NX.1:.SS.0.200|
00000140: 00 49 09 D2 00 89 32 39 30 00 6D 09 DC 00 53 24 |.I....290.m...S$|
00000150: B2 22 22 3A 81 58 B2 31 A4 59 3A 8D 32 36 30 3A |."":.X.1.Y:.260:|
00000160: 53 24 B2 53 24 AA 43 24 3A 82 58 3A 8E 00 82 09 |S$.S$.C$:.X:....|
00000170: E6 00 81 58 B2 31 A4 59 3A 8D 32 36 30 3A 82 58 |...X.1.Y:.260:.X|
00000180: 3A 8E 00 9F 09 F0 00 56 B2 30 3A 8D 32 36 30 3A |:......V.0:.260:|
00000190: 8B 43 24 B3 B1 22 22 A7 56 B2 C6 28 43 24 29 00 |.C$.."".V..(C$).|
000001A0: A5 09 FA 00 8E 00 B0 09 04 01 A1 23 35 2C 43 24 |...........#5,C$|
000001B0: 00 D3 09 0E 01 53 53 B2 53 54 3A 84 31 35 2C 45 |.....SS.ST:.15,E|
000001C0: 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 |N,EM$,ET,ES:.EN.|
000001D0: 30 A7 8E 00 F6 09 18 01 99 48 43 24 3B 52 56 24 |0........HC$;RV$|
000001E0: 3B 22 44 49 53 4B 20 45 52 52 4F 52 21 22 3A 99 |;"DISK ERROR!":.|
000001F0: 3A 89 32 32 37 30 00 0B 0A 22 01 A0 34 3A A0 35 |:.2270..."..4:.5|
00000200: 3A 43 58 B2 30 3A 8D 32 31 34 30 00 21 0A 2C 01 |:CX.0:.2140.!.,.|
00000210: 99 A6 35 29 3B 22 30 20 2D 20 44 4F 4E 45 22 3A |..5);"0 - DONE":|
00000220: 99 00 4A 0A 36 01 99 A6 35 29 3B 22 31 20 2D 20 |..J.6...5);"1 - |
00000230: 55 50 44 41 54 45 20 4D 41 53 54 45 52 20 44 49 |UPDATE MASTER DI|
00000240: 52 45 43 54 4F 52 59 22 3A 99 00 79 0A 40 01 99 |RECTORY":..y.@..|
00000250: A6 35 29 3B 22 32 20 2D 20 44 45 4C 45 54 45 20 |.5);"2 - DELETE |
00000260: 44 49 53 4B 20 45 4E 54 52 59 20 46 52 4F 4D 20 |DISK ENTRY FROM |
00000270: 4D 41 53 54 45 52 22 3A 99 00 A5 0A 4A 01 99 A6 |MASTER":....J...|
00000280: 35 29 3B 22 33 20 2D 20 44 49 53 50 4C 41 59 20 |5);"3 - DISPLAY |
00000290: 53 45 4C 45 43 54 45 44 20 44 49 52 45 43 54 4F |SELECTED DIRECTO|
000002A0: 52 59 22 3A 99 00 CA 0A 54 01 99 A6 35 29 3B 22 |RY":....T...5);"|
000002B0: 34 20 2D 20 46 49 4E 44 20 53 50 45 43 49 46 49 |4 - FIND SPECIFI|
000002C0: 45 44 20 46 49 4C 45 22 3A 99 00 F0 0A 5E 01 99 |ED FILE":....^..|
000002D0: A6 35 29 3B 22 35 20 2D 20 4C 49 53 54 20 44 49 |.5);"5 - LIST DI|
000002E0: 53 4B 20 49 44 27 53 20 26 20 4E 41 4D 45 53 22 |SK ID'S & NAMES"|
000002F0: 00 18 0B 68 01 8D 32 31 35 30 3A 99 22 45 4E 54 |...h..2150:."ENT|
00000300: 45 52 20 44 45 53 49 52 45 44 20 46 55 4E 43 54 |ER DESIRED FUNCT|
00000310: 49 4F 4E 3A 20 20 22 3B 00 35 0B 72 01 8D 32 31 |ION: ";.5.r..21|
00000320: 32 30 3A 8B 43 24 B2 22 30 22 A7 99 48 43 24 3A |20:.C$."0"..HC$:|
00000330: 89 32 33 38 30 00 4E 0B 7C 01 56 B2 C5 28 43 24 |.2380.N.|.V..(C$|
00000340: 29 3A 8B 56 B3 31 B0 56 B1 35 A7 33 37 30 00 6C |):.V.1.V.5.370.l|
00000350: 0B 86 01 91 56 89 34 30 30 2C 31 31 38 30 2C 39 |....V.400,1180,9|
00000360: 38 30 2C 31 36 39 30 2C 31 32 35 30 00 9C 0B 90 |80,1690,1250....|
00000370: 01 A0 31 35 3A 43 58 B2 30 3A 99 48 43 24 3B 22 |..15:CX.0:.HC$;"|
00000380: 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 |INSERT DISK TO B|
00000390: 45 20 43 41 54 41 4C 4F 47 45 44 22 00 DA 0B 9A |E CATALOGED"....|
000003A0: 01 99 3A 99 22 44 45 50 52 45 53 53 20 41 4E 59 |..:."DEPRESS ANY|
000003B0: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
000003C0: 2C 20 22 3B 52 56 24 3B 22 51 22 3B 52 46 24 3B |, ";RV$;"Q";RF$;|
000003D0: 22 20 54 4F 20 51 55 49 54 22 00 F7 0B A4 01 8D |" TO QUIT"......|
000003E0: 32 31 32 30 3A 8B 43 24 B2 22 51 22 A7 8D 32 33 |2120:.C$."Q"..23|
000003F0: 39 30 3A 89 32 39 30 00 1A 0C AE 01 8D 32 31 35 |90:.290......215|
00000400: 30 3A 99 22 4F 4B 22 3A 9F 31 35 2C 38 2C 31 35 |0:."OK":.15,8,15|
00000410: 2C 22 49 30 22 3A 8D 32 37 30 00 33 0C B8 01 9F |,"I0":.270.3....|
00000420: 35 2C 38 2C 35 2C 22 24 30 2C 53 2C 52 22 3A 8D |5,8,5,"$0,S,R":.|
00000430: 32 37 30 00 46 0C C2 01 8D 32 34 30 3A 56 46 B2 |270.F....240:VF.|
00000440: 56 3A 8D 32 36 30 00 6B 0C CC 01 4E 42 B2 30 3A |V:.260.k...NB.0:|
00000450: 81 5A B2 31 A4 33 35 3A 8D 32 34 30 3A 8B 5A B3 |.Z.1.35:.240:.Z.|
00000460: B1 31 38 A7 4E 42 B2 4E 42 AA 56 00 7B 0C D6 01 |.18.NB.NB.V.{...|
00000470: 59 B2 33 3A 8D 32 33 30 3A 82 5A 00 99 0C E0 01 |Y.3:.230:.Z.....|
00000480: 59 B2 31 36 3A 8D 32 32 30 3A 44 4E 24 B2 53 24 |Y.16:.220:DN$.S$|
00000490: 3A 59 B2 32 3A 8D 32 33 30 00 B7 0C EA 01 59 B2 |:Y.2:.230.....Y.|
000004A0: 32 3A 8D 32 32 30 3A 44 49 24 B2 C8 28 53 24 AA |2:.220:DI$..(S$.|
000004B0: 22 20 20 22 2C 32 29 00 CD 0C F4 01 8D 32 31 36 |" ",2)......216|
000004C0: 30 3A 8B 43 24 B2 22 4E 22 A7 39 37 30 00 DB 0C |0:.C$."N".970...|
000004D0: FE 01 8B 4E 58 B2 30 A7 36 33 30 00 03 0D 08 02 |...NX.0.630.....|
000004E0: 81 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 28 58 |.X.0.NX.1:C$..(X|
000004F0: 24 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 |$(X),2):.DI$.C$.|
00000500: 36 33 30 00 18 0D 12 02 8B 44 49 24 B3 B1 43 24 |630......DI$..C$|
00000510: A7 82 58 3A 89 36 33 30 00 30 0D 1C 02 8B 44 4E |..X:.630.0....DN|
00000520: 24 B2 CA 28 58 24 28 58 29 2C 33 29 A7 36 33 30 |$..(X$(X),3).630|
00000530: 00 72 0D 26 02 99 48 43 24 3B 52 56 24 3B 22 2A |.r.&..HC$;RV$;"*|
00000540: 2A 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 22 3B |** WARNING ***";|
00000550: 52 46 24 3B 22 20 20 54 48 49 53 20 44 49 53 4B |RF$;" THIS DISK|
00000560: 20 49 44 3A 20 22 3B 52 56 24 3B 44 49 24 3B 52 | ID: ";RV$;DI$;R|
00000570: 46 24 00 8F 0D 30 02 99 3A 99 22 44 49 53 4B 20 |F$...0..:."DISK |
00000580: 4E 41 4D 45 3A 20 22 3B 52 56 24 3B 44 4E 24 00 |NAME: ";RV$;DN$.|
00000590: C0 0D 3A 02 99 3A 99 22 49 53 20 41 4C 4C 20 52 |..:..:."IS ALL R|
000005A0: 45 41 44 59 20 43 41 54 41 4C 4F 47 45 44 20 57 |EADY CATALOGED W|
000005B0: 49 54 48 20 41 20 44 49 46 46 45 52 45 4E 54 22 |ITH A DIFFERENT"|
000005C0: 00 EA 0D 44 02 99 3A 99 22 44 49 53 4B 20 4E 41 |...D..:."DISK NA|
000005D0: 4D 45 3A 20 22 3B 52 56 24 3B CA 28 58 24 28 58 |ME: ";RV$;.(X$(X|
000005E0: 29 2C 33 29 3A 8D 32 31 35 30 00 16 0E 4E 02 99 |),3):.2150...N..|
000005F0: 22 43 41 54 41 4C 4F 47 49 4E 47 20 54 48 49 53 |"CATALOGING THIS|
00000600: 20 44 49 53 4B 20 57 49 4C 4C 20 44 45 4C 45 54 | DISK WILL DELET|
00000610: 45 20 54 48 45 22 00 35 0E 58 02 99 3A 99 22 50 |E THE".5.X..:."P|
00000620: 52 45 56 49 4F 55 53 20 44 41 54 41 21 22 3A 8D |REVIOUS DATA!":.|
00000630: 20 32 31 35 30 00 61 0E 62 02 99 22 43 41 54 41 | 2150.a.b.."CATA|
00000640: 4C 4F 47 20 54 48 49 53 20 44 49 53 4B 22 3B 3A |LOG THIS DISK";:|
00000650: 8D 32 31 39 30 3A 8B 43 24 B2 22 4E 22 A7 39 37 |.2190:.C$."N".97|
00000660: 30 00 8F 0E 6C 02 99 48 43 24 3B 22 43 41 54 41 |0...l..HC$;"CATA|
00000670: 4C 4F 47 49 4E 47 20 44 49 53 4B 20 57 49 54 48 |LOGING DISK WITH|
00000680: 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 22 00 | NEW DISK NAME".|
00000690: BA 0E 76 02 8D 32 31 35 30 3A 99 22 52 45 41 44 |..v..2150:."READ|
000006A0: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 4E |ING DIRECTORY EN|
000006B0: 54 52 49 45 53 20 2E 2E 2E 22 00 D8 0E 80 02 8D |TRIES ..."......|
000006C0: 32 36 30 3A 59 B2 32 3A 8D 32 32 30 3A 44 46 24 |260:Y.2:.220:DF$|
000006D0: B2 53 24 3A 59 B2 38 39 00 EB 0E 8A 02 8B 56 46 |.S$:Y.89......VF|
000006E0: B2 31 A7 44 46 24 B2 22 20 31 22 00 F4 0E 94 02 |.1.DF$." 1".....|
000006F0: 8D 32 33 30 00 01 0F 9E 02 4E 46 B2 30 3A 5A B2 |.230.....NF.0:Z.|
00000700: 30 00 0F 0F A8 02 8D 32 34 30 3A 46 54 B2 56 00 |0......240:FT.V.|
00000710: 35 0F B2 02 46 24 B2 43 24 3A 59 B2 32 3A 8D 32 |5...F$.C$:Y.2:.2|
00000720: 33 30 3A 59 B2 31 36 3A 8D 32 32 30 3A 59 B2 39 |30:Y.16:.220:Y.9|
00000730: 3A 8D 32 33 30 00 58 0F BC 02 8D 32 34 30 3A 53 |:.230.X....240:S|
00000740: 24 B2 53 24 AA C7 28 56 29 3A 8D 32 34 30 3A 8B |$.S$..(V):.240:.|
00000750: 46 54 B2 30 A7 37 37 30 00 66 0F C6 02 8B 4E 46 |FT.0.770.f....NF|
00000760: B2 30 A7 37 34 30 00 8E 0F D0 02 81 58 B2 31 A4 |.0.740......X.1.|
00000770: 4E 46 3A 8B C8 28 53 24 2C 31 36 29 B3 CA 28 44 |NF:..(S$,16)..(D|
00000780: 24 28 58 29 2C 32 2C 31 36 29 A7 37 35 30 00 95 |$(X),2,16).750..|
00000790: 0F DA 02 82 58 00 A5 0F E4 02 58 B2 4E 46 AA 31 |....X.....X.NF.1|
000007A0: 3A 89 37 36 30 00 C5 0F EE 02 81 59 B2 4E 46 A4 |:.760......Y.NF.|
000007B0: 58 A9 AB 31 3A 44 24 28 59 AA 31 29 B2 44 24 28 |X..1:D$(Y.1).D$(|
000007C0: 59 29 3A 82 59 00 E2 0F F8 02 44 24 28 58 29 B2 |Y):.Y.....D$(X).|
000007D0: 46 24 AA 53 24 AA C7 28 56 29 3A 4E 46 B2 4E 46 |F$.S$..(V):NF.NF|
000007E0: AA 31 00 09 10 02 03 5A B2 5A AA 31 3A 5A B2 5A |.1.....Z.Z.1:Z.Z|
000007F0: AB 28 B5 28 5A AD 38 29 AC 38 29 3A 8B 5A B1 30 |.(.(Z.8).8):.Z.0|
00000800: A7 59 B2 32 3A 8D 32 33 30 00 19 10 0C 03 8B 4E |.Y.2:.230......N|
00000810: 46 B3 31 35 35 A7 38 34 30 00 52 10 16 03 99 48 |F.155.840.R....H|
00000820: 43 24 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 |C$;.6);RV$;"*** |
00000830: 44 49 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 41 |DISK BAM IS INVA|
00000840: 4C 49 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 32 31 |LID ***";RF$:.21|
00000850: 35 30 00 86 10 20 03 99 3A 99 22 20 20 20 43 55 |50... ..:." CU|
00000860: 52 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E 4F |RRENT DISK CANNO|
00000870: 54 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 22 |T BE CATALOGED!"|
00000880: 3A 99 3A 99 3A 99 00 B5 10 2A 03 99 22 20 50 4C |:.:.:....*.." PL|
00000890: 45 41 53 45 20 56 45 52 49 46 59 20 4F 52 20 43 |EASE VERIFY OR C|
000008A0: 48 45 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 4E |HECK DISK CONTEN|
000008B0: 54 53 22 3A 99 00 E6 10 34 03 99 22 42 45 46 4F |TS":....4.."BEFO|
000008C0: 52 45 20 41 54 54 45 4D 50 54 49 4E 47 20 54 4F |RE ATTEMPTING TO|
000008D0: 20 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 | CATALOG THIS DI|
000008E0: 53 4B 2E 22 3A 99 00 FB 10 3E 03 8D 32 31 35 30 |SK.":....>..2150|
000008F0: 3A 8D 32 31 31 30 3A 89 39 37 30 00 09 11 48 03 |:.2110:.970...H.|
00000900: 8B 53 53 B2 30 A7 36 38 30 00 3D 11 52 03 A0 35 |.SS.0.680.=.R..5|
00000910: 3A 8D 32 33 39 30 3A 8D 32 31 35 30 3A 99 22 55 |:.2390:.2150:."U|
00000920: 50 44 41 54 49 4E 47 20 4D 41 53 54 45 52 20 44 |PDATING MASTER D|
00000930: 49 52 45 43 54 4F 52 59 20 2E 2E 2E 22 00 4B 11 |IRECTORY ...".K.|
00000940: 5C 03 8B 4E 58 B2 30 A7 39 31 30 00 73 11 66 03 |\..NX.0.910.s.f.|
00000950: 81 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 28 58 |.X.0.NX.1:C$..(X|
00000960: 24 28 58 29 2C 32 29 3A 8B 44 49 24 B3 43 24 A7 |$(X),2):.DI$.C$.|
00000970: 39 30 30 00 83 11 70 03 8B 44 49 24 B2 43 24 A7 |900...p..DI$.C$.|
00000980: 39 33 30 00 8F 11 7A 03 82 58 3A 89 39 31 30 00 |930...z..X:.910.|
00000990: B6 11 84 03 81 59 B2 4E 58 AB 31 A4 58 A9 AB 31 |.....Y.NX.1.X..1|
000009A0: 3A 58 24 28 59 AA 31 29 B2 58 24 28 59 29 3A 82 |:X$(Y.1).X$(Y):.|
000009B0: 59 3A 89 39 32 30 00 BF 11 8E 03 58 B2 4E 58 00 |Y:.920.....X.NX.|
000009C0: CB 11 98 03 4E 58 B2 4E 58 AA 31 00 E2 11 A2 03 |....NX.NX.1.....|
000009D0: 58 24 28 58 29 B2 44 49 24 AA 44 4E 24 3A 43 58 |X$(X).DI$.DN$:CX|
000009E0: B2 31 00 0D 12 AC 03 8D 32 30 33 30 3A 98 31 35 |.1......2030:.15|
000009F0: 2C 22 53 22 AA 53 24 3A 9F 35 2C 38 2C 35 2C 53 |,"S".S$:.5,8,5,S|
00000A00: 24 AA 22 2C 53 2C 57 22 3A 8D 32 37 30 00 29 12 |$.",S,W":.270.).|
00000A10: B6 03 98 35 2C 44 46 24 3B 22 2C 22 3B 4E 42 3B |...5,DF$;",";NB;|
00000A20: 43 52 24 3B 3A 8D 32 37 30 00 51 12 C0 03 8B 4E |CR$;:.270.Q....N|
00000A30: 46 B1 30 A7 81 58 B2 31 A4 4E 46 3A 98 35 2C 44 |F.0..X.1.NF:.5,D|
00000A40: 24 28 58 29 3B 43 52 24 3B 3A 8D 32 37 30 3A 82 |$(X);CR$;:.270:.|
00000A50: 58 00 63 12 CA 03 A0 35 3A 8D 32 32 39 30 3A 89 |X.c....5:.2290:.|
00000A60: 34 30 30 00 99 12 D4 03 99 48 43 24 3B 22 54 4F |400......HC$;"TO|
00000A70: 20 44 49 53 50 4C 41 59 20 44 49 53 4B 20 44 49 | DISPLAY DISK DI|
00000A80: 52 45 43 54 4F 52 59 22 3A 8D 31 38 37 30 3A 91 |RECTORY":.1870:.|
00000A90: 56 89 32 39 30 2C 39 38 30 00 C8 12 DE 03 9F 35 |V.290,980......5|
00000AA0: 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A 8D |,8,5,S$.",S,R":.|
00000AB0: 32 37 30 3A 8D 32 30 37 30 3A 84 35 2C 44 46 24 |270:.2070:.5,DF$|
00000AC0: 2C 4E 42 3A 8D 32 37 30 00 F5 12 E8 03 98 34 2C |,NB:.270......4,|
00000AD0: 22 20 20 22 3B 52 56 24 3B 22 44 49 53 4B 20 4E |" ";RV$;"DISK N|
00000AE0: 41 4D 45 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 |AME:";RF$;" ";D|
00000AF0: 4E 24 3A 98 34 00 22 13 F2 03 98 34 2C 22 22 A6 |N$:.4."....4,"".|
00000B00: 34 29 3B 52 56 24 3B 22 44 49 53 4B 20 49 44 3A |4);RV$;"DISK ID:|
00000B10: 22 3B 52 46 24 3B 22 20 20 22 3B 44 49 24 3B A6 |";RF$;" ";DI$;.|
00000B20: 36 29 00 4B 13 FC 03 98 34 2C 52 56 24 3B 22 44 |6).K....4,RV$;"D|
00000B30: 49 53 4B 20 46 4F 52 4D 41 54 3A 22 3B 52 46 24 |ISK FORMAT:";RF$|
00000B40: 3B 22 20 20 22 44 46 24 3A 98 34 00 73 13 06 04 |;" "DF$:.4.s...|
00000B50: 98 34 2C 52 56 24 3B 22 42 4C 4F 43 4B 53 20 46 |.4,RV$;"BLOCKS F|
00000B60: 52 45 45 3A 22 3B 52 46 24 3B 22 20 22 3B 4E 42 |REE:";RF$;" ";NB|
00000B70: 3A 98 34 00 A7 13 10 04 98 34 2C 22 2D 2D 2D 2D |:.4......4,"----|
00000B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BA0: 2D 2D 2D 22 3A 98 34 00 BB 13 1A 04 4E 46 B2 30 |---":.4.....NF.0|
00000BB0: 3A 8B 53 53 B1 30 A7 31 31 36 30 00 E6 13 24 04 |:.SS.0.1160...$.|
00000BC0: 8D 32 34 30 3A 46 54 B2 56 3A 59 B2 31 36 3A 8D |.240:FT.V:Y.16:.|
00000BD0: 32 32 30 3A 8D 32 34 30 3A 5A B2 56 3A 8D 32 34 |220:.240:Z.V:.24|
00000BE0: 30 3A 8D 32 36 30 00 15 14 2E 04 98 34 2C C9 28 |0:.260......4,.(|
00000BF0: 22 20 20 20 20 22 AA C4 28 5A AA 28 32 35 36 AC |" "..(Z.(256.|
00000C00: 56 29 29 2C 34 29 3B 22 20 20 22 3B 53 24 3B 22 |V)),4);" ";S$;"|
00000C10: 20 20 20 22 3B 00 2B 14 38 04 8B 46 54 B2 31 32 | ";.+.8..FT.12|
00000C20: 39 A7 98 34 2C 22 53 45 51 22 3B 00 41 14 42 04 |9..4,"SEQ";.A.B.|
00000C30: 8B 46 54 B2 31 33 30 A7 98 34 2C 22 50 47 4D 22 |.FT.130..4,"PGM"|
00000C40: 3B 00 57 14 4C 04 8B 46 54 B2 31 33 31 A7 98 34 |;.W.L..FT.131..4|
00000C50: 2C 22 55 53 52 22 3B 00 6D 14 56 04 8B 46 54 B2 |,"USR";.m.V..FT.|
00000C60: 31 33 32 A7 98 34 2C 22 52 45 4C 22 3B 00 86 14 |132..4,"REL";...|
00000C70: 60 04 98 34 3A A1 43 24 3A 8B 43 24 B3 B1 22 22 |`..4:.C$:.C$..""|
00000C80: A7 8D 32 31 32 30 00 97 14 6A 04 8B 43 24 B2 22 |..2120...j..C$."|
00000C90: 51 22 A7 31 31 37 30 00 AE 14 74 04 4E 46 B2 4E |Q".1170...t.NF.N|
00000CA0: 46 AA 31 3A 8B 53 53 B2 30 A7 31 30 36 30 00 D1 |F.1:.SS.0.1060..|
00000CB0: 14 7E 04 98 34 3A 98 34 2C 52 56 24 3B 22 23 46 |.~..4:.4,RV$;"#F|
00000CC0: 49 4C 45 53 3A 22 3B 52 46 24 3B 22 20 22 3B 4E |ILES:";RF$;" ";N|
00000CD0: 46 00 E7 14 88 04 8B 50 44 B2 33 A7 8D 32 31 35 |F......PD.3..215|
00000CE0: 30 3A 8D 32 31 31 30 00 F6 14 92 04 A0 34 3A A0 |0:.2110......4:.|
00000CF0: 35 3A 89 39 38 30 00 26 15 9C 04 99 48 43 24 3B |5:.980.&....HC$;|
00000D00: 22 54 4F 20 44 45 4C 45 54 45 20 44 49 53 4B 20 |"TO DELETE DISK |
00000D10: 46 52 4F 4D 20 4D 41 53 54 45 52 20 44 49 52 45 |FROM MASTER DIRE|
00000D20: 43 54 4F 52 59 22 00 3D 15 A6 04 8D 31 38 37 30 |CTORY".=....1870|
00000D30: 3A 91 56 89 31 32 34 30 2C 31 31 38 30 00 4C 15 |:.V.1240,1180.L.|
00000D40: B0 04 98 31 35 2C 22 53 22 AA 53 24 00 74 15 BA |...15,"S".S$.t..|
00000D50: 04 43 58 B2 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A |.CX.0:.X.0.NX.1:|
00000D60: 8B C8 28 58 24 28 58 29 2C 32 29 B2 44 49 24 A7 |..(X$(X),2).DI$.|
00000D70: 43 58 B2 31 00 8A 15 C4 04 8B 43 58 A7 58 24 28 |CX.1......CX.X$(|
00000D80: 58 29 B2 58 24 28 58 AA 31 29 00 9F 15 CE 04 82 |X).X$(X.1)......|
00000D90: 58 3A 4E 58 B2 4E 58 AB 31 3A 89 31 31 38 30 00 |X:NX.NX.1:.1180.|
00000DA0: AE 15 D8 04 8D 32 32 39 30 3A 89 32 39 30 00 C3 |.....2290:.290..|
00000DB0: 15 E2 04 8B 4E 58 B2 30 A7 8D 31 38 38 30 3A 89 |....NX.0..1880:.|
00000DC0: 32 39 30 00 D0 15 EC 04 A0 34 3A 8D 32 31 34 30 |290......4:.2140|
00000DD0: 00 FE 15 F6 04 99 A6 35 29 3B 22 30 20 2D 20 52 |.......5);"0 - R|
00000DE0: 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 46 55 |ETURN TO MAIN FU|
00000DF0: 4E 43 54 49 4F 4E 20 4D 45 4E 55 22 3A 99 00 2A |NCTION MENU":..*|
00000E00: 16 00 05 99 A6 35 29 3B 22 31 20 2D 20 50 52 49 |.....5);"1 - PRI|
00000E10: 4E 54 20 46 55 4C 4C 20 49 44 20 55 53 45 41 47 |NT FULL ID USEAG|
00000E20: 45 20 43 48 41 52 54 22 3A 99 00 55 16 0A 05 99 |E CHART":..U....|
00000E30: A6 35 29 3B 22 32 20 2D 20 51 55 49 43 4B 20 4C |.5);"2 - QUICK L|
00000E40: 49 53 54 20 4F 46 20 49 44 27 53 20 49 4E 20 55 |IST OF ID'S IN U|
00000E50: 53 45 22 3A 99 00 7D 16 14 05 99 A6 35 29 3B 22 |SE":..}.....5);"|
00000E60: 33 20 2D 20 4C 49 53 54 20 44 49 53 4B 20 49 44 |3 - LIST DISK ID|
00000E70: 27 53 20 26 20 4E 41 4D 45 53 22 3A 99 00 BA 16 |'S & NAMES":....|
00000E80: 1E 05 99 A6 35 29 3B 22 34 20 2D 20 4C 49 53 54 |....5);"4 - LIST|
00000E90: 20 22 3B 52 56 24 3B 22 4D 49 4E 22 3B 52 46 24 | ";RV$;"MIN";RF$|
00000EA0: 3B 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 |;" FREE BLOCKS P|
00000EB0: 45 52 20 44 49 53 4B 22 3A 99 00 F5 16 28 05 99 |ER DISK":....(..|
00000EC0: A6 35 29 3B 22 35 20 2D 20 4C 49 53 54 20 22 3B |.5);"5 - LIST ";|
00000ED0: 52 56 24 3B 22 4D 41 58 22 3B 52 46 24 3B 22 20 |RV$;"MAX";RF$;" |
00000EE0: 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 |FREE BLOCKS PER |
00000EF0: 44 49 53 4B 22 00 1D 17 32 05 8D 32 31 35 30 3A |DISK"...2..2150:|
00000F00: 99 22 45 4E 54 45 52 20 44 45 53 49 52 45 44 20 |."ENTER DESIRED |
00000F10: 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B 00 33 17 |FUNCTION: ";.3.|
00000F20: 3C 05 8D 32 31 32 30 3A 8B 43 24 B2 22 30 22 A7 |<..2120:.C$."0".|
00000F30: 32 39 30 00 4D 17 46 05 56 B2 C5 28 43 24 29 3A |290.M.F.V..(C$):|
00000F40: 8B 56 B3 31 B0 56 B1 35 A7 31 33 34 30 00 71 17 |.V.1.V.5.1340.q.|
00000F50: 50 05 99 43 24 3A 91 56 89 31 33 37 30 2C 31 35 |P..C$:.V.1370,15|
00000F60: 35 30 2C 31 36 32 30 2C 32 34 35 30 2C 32 34 39 |50,1620,2450,249|
00000F70: 30 00 7A 17 5A 05 9F 34 2C 34 00 B7 17 64 05 98 |0.z.Z..4,4...d..|
00000F80: 34 2C 22 22 A6 31 35 29 3B 52 56 24 3B 22 20 20 |4,"".15);RV$;" |
00000F90: 44 20 49 20 53 20 4B 20 20 49 20 44 20 20 55 20 |D I S K I D U |
00000FA0: 53 20 45 20 41 20 47 20 45 20 20 43 20 48 20 41 |S E A G E C H A|
00000FB0: 20 52 20 54 20 20 22 00 C6 17 6E 05 98 34 3A 98 | R T "...n..4:.|
00000FC0: 34 2C 22 20 22 3B 00 DF 17 78 05 81 20 58 B2 34 |4," ";...x.. X.4|
00000FD0: 38 A4 39 30 3A 8B 58 B2 35 38 A7 58 B2 36 35 00 |8.90:.X.58.X.65.|
00000FE0: F6 17 82 05 98 34 2C 22 20 22 3B C7 28 58 29 3B |.....4," ";.(X);|
00000FF0: 3A 82 58 3A 98 34 00 12 18 8C 05 5A B2 30 3A 81 |:.X:.4.....Z.0:.|
00001000: 58 B2 34 38 A4 39 30 3A 8B 58 B2 35 38 A7 58 B2 |X.48.90:.X.58.X.|
00001010: 36 35 00 4F 18 96 05 98 34 2C 22 20 DB C0 DB C0 |65.O....4," ....|
00001020: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001030: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001040: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB 22 3B 00 |.............";.|
00001050: 71 18 A0 05 98 34 2C 22 C0 DB C0 DB C0 DB C0 DB |q....4,"........|
00001060: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 |................|
00001070: 22 00 7E 18 AA 05 98 34 2C C7 28 58 29 3B 00 96 |".~....4,.(X);..|
00001080: 18 B4 05 81 59 B2 34 38 A4 39 30 3A 8B 59 B2 35 |....Y.48.90:.Y.5|
00001090: 38 A7 59 B2 36 35 00 B0 18 BE 05 98 34 2C C7 28 |8.Y.65......4,.(|
000010A0: 32 32 31 29 3B 3A 8B 5A B2 4E 58 A7 31 35 30 30 |221);:.Z.NX.1500|
000010B0: 00 CF 18 C8 05 43 24 B2 C7 28 58 29 AA C7 28 59 |.....C$..(X)..(Y|
000010C0: 29 3A 53 24 B2 C8 28 58 24 28 5A 29 2C 32 29 00 |):S$..(X$(Z),2).|
000010D0: F1 18 D2 05 8B 53 24 B2 43 24 A7 98 34 2C C7 28 |.....S$.C$..4,.(|
000010E0: 31 36 36 29 3B 3A 5A B2 5A AA 31 3A 89 31 35 31 |166);:Z.Z.1:.151|
000010F0: 30 00 FD 18 DC 05 98 34 2C 22 20 22 3B 00 20 19 |0......4," ";. .|
00001100: E6 05 82 59 3A 98 34 2C C7 28 32 32 31 29 3A A1 |...Y:.4,.(221):.|
00001110: 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D 32 31 32 30 |C$:.C$..""..2120|
00001120: 00 30 19 F0 05 8B 43 24 B3 B1 22 51 22 A7 82 58 |.0....C$.."Q"..X|
00001130: 00 6B 19 FA 05 98 34 2C 22 20 B1 C0 B1 C0 B1 C0 |.k....4," ......|
00001140: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001150: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001160: B1 C0 B1 C0 B1 C0 B1 C0 B1 22 3B 00 95 19 04 06 |.........";.....|
00001170: 98 34 2C 22 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |.4,"............|
00001180: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 BD 22 3A |..............":|
00001190: 89 31 32 36 30 00 C6 19 0E 06 8D 32 30 37 30 3A |.1260......2070:|
000011A0: 98 34 2C 22 22 A6 37 29 3B 22 12 44 49 53 4B 20 |.4,"".7);".DISK |
000011B0: 49 44 27 53 20 43 55 52 52 45 4E 54 4C 59 20 49 |ID'S CURRENTLY I|
000011C0: 4E 20 55 53 45 22 00 D0 19 18 06 98 34 3A 98 34 |N USE"......4:.4|
000011D0: 00 E4 19 22 06 56 B2 31 32 3A 8B 50 44 B2 34 A7 |...".V.12:.PD.4.|
000011E0: 56 B2 32 35 00 09 1A 2C 06 5A B2 30 3A 81 58 B2 |V.25...,.Z.0:.X.|
000011F0: 30 A4 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 |0.NX.1:.4,.(X$(X|
00001200: 29 2C 32 29 3B 22 20 22 3B 00 22 1A 36 06 5A B2 |),2);" ";.".6.Z.|
00001210: 5A AA 31 3A 8B 5A B2 B5 28 5A AD 56 29 AC 56 A7 |Z.1:.Z..(Z.V).V.|
00001220: 98 34 00 3F 1A 40 06 82 58 3A 98 34 3A 98 34 3A |.4.?.@..X:.4:.4:|
00001230: 8B 5A B3 B1 B5 28 5A AD 56 29 AC 56 A7 98 34 00 |.Z...(Z.V).V..4.|
00001240: 6E 1A 4A 06 98 34 2C 5A 3B 52 56 24 3B 22 44 49 |n.J..4,Z;RV$;"DI|
00001250: 53 4B 53 20 49 4E 20 4D 41 53 54 45 52 20 44 49 |SKS IN MASTER DI|
00001260: 52 45 43 54 4F 52 59 22 3A 89 31 36 37 30 00 99 |RECTORY":.1670..|
00001270: 1A 54 06 8D 32 30 37 30 3A 98 34 2C 52 56 24 3B |.T..2070:.4,RV$;|
00001280: 22 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D |"ID ...DISK NAM|
00001290: 45 2E 2E 2E 2E 22 3A 98 34 00 C5 1A 5E 06 81 58 |E....":.4...^..X|
000012A0: B2 30 A4 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 |.0.NX.1:.4,.(X$(|
000012B0: 58 29 2C 32 29 3B 22 20 20 22 3B CA 28 58 24 28 |X),2);" ";.(X$(|
000012C0: 58 29 2C 33 29 00 DB 1A 68 06 A1 43 24 3A 8B 43 |X),3)...h..C$:.C|
000012D0: 24 B3 B1 22 22 A7 8D 32 31 32 30 00 EC 1A 72 06 |$..""..2120...r.|
000012E0: 8B 43 24 B2 22 51 22 A7 31 32 36 30 00 F3 1A 7C |.C$."Q".1260...||
000012F0: 06 82 58 00 02 1B 86 06 8B 50 44 B2 34 A7 31 32 |..X......PD.4.12|
00001300: 36 30 00 18 1B 90 06 8D 32 31 35 30 3A 8D 32 31 |60......2150:.21|
00001310: 31 30 3A 89 31 32 36 30 00 2D 1B 9A 06 8B 4E 58 |10:.1260.-....NX|
00001320: B2 30 A7 8D 31 38 38 30 3A 89 32 39 30 00 5F 1B |.0..1880:.290._.|
00001330: A4 06 A0 34 3A 99 48 43 24 3B 22 54 4F 20 46 49 |...4:.HC$;"TO FI|
00001340: 4E 44 20 57 48 41 54 20 44 49 53 4B 28 53 29 20 |ND WHAT DISK(S) |
00001350: 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 3A 99 00 |A FILE IS ON":..|
00001360: 97 1B AE 06 99 22 45 4E 54 45 52 20 46 49 4C 45 |....."ENTER FILE|
00001370: 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B 43 | NAME .";CL$;C|
00001380: 4C 24 3B 43 4C 24 3B 3A 85 46 24 3A 8B 46 24 B2 |L$;CL$;:.F$:.F$.|
00001390: 22 2E 22 A7 32 39 30 00 B3 1B B8 06 8B 46 24 B2 |".".290......F$.|
000013A0: 22 2A 22 A7 99 3A 99 22 52 45 2D 22 3B 3A 89 31 |"*"..:."RE-";:.1|
000013B0: 37 31 30 00 CD 1B C2 06 53 24 B2 46 24 3A 8D 32 |710.....S$.F$:.2|
000013C0: 30 34 30 3A 56 B2 59 3A 8D 32 30 37 30 00 04 1C |040:V.Y:.2070...|
000013D0: CC 06 98 34 2C 52 56 24 3B 22 2E 2E 2E 46 49 4C |...4,RV$;"...FIL|
000013E0: 45 20 4E 41 4D 45 2E 2E 2E 2E 20 20 49 44 20 20 |E NAME.... ID |
000013F0: 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E |...DISK NAME....|
00001400: 22 3A 98 34 00 11 1C D6 06 98 34 2C 53 24 3A 98 |":.4......4,S$:.|
00001410: 34 00 3D 1C E0 06 81 5A B2 30 A4 4E 58 AB 31 3A |4.=....Z.0.NX.1:|
00001420: 44 49 24 B2 C8 28 58 24 28 5A 29 2C 32 29 3A 44 |DI$..(X$(Z),2):D|
00001430: 4E 24 B2 CA 28 58 24 28 5A 29 2C 33 29 00 72 1C |N$..(X$(Z),3).r.|
00001440: EA 06 8D 32 30 33 30 3A 9F 35 2C 38 2C 35 2C 53 |...2030:.5,8,5,S|
00001450: 24 AA 22 2C 53 2C 52 22 3A 45 46 B2 31 35 3A 8D |$.",S,R":EF.15:.|
00001460: 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 32 |270:.5,DF$,NB:.2|
00001470: 37 30 00 8E 1C F4 06 8D 32 36 30 3A 59 B2 31 36 |70......260:Y.16|
00001480: 3A 8D 32 32 30 3A 59 B2 33 3A 8D 32 33 30 00 A3 |:.220:Y.3:.230..|
00001490: 1C FE 06 8B 46 24 B3 C8 28 53 24 2C 56 29 A7 31 |....F$..(S$,V).1|
000014A0: 38 34 30 00 D8 1C 08 07 8B 46 24 B2 C8 28 53 24 |840......F$..(S$|
000014B0: 2C 56 29 A7 98 34 2C 53 24 3B 22 20 20 22 3B 44 |,V)..4,S$;" ";D|
000014C0: 49 24 3B 22 20 20 22 3B 44 4E 24 3A 8F 3C 2D 32 |I$;" ";DN$:.<-2|
000014D0: 53 50 41 43 45 53 45 41 00 EE 1C 12 07 A1 43 24 |SPACESEA......C$|
000014E0: 3A 8B 43 24 B3 B1 22 22 A7 8D 32 31 32 30 00 03 |:.C$..""..2120..|
000014F0: 1D 1C 07 8B 43 24 B2 22 51 22 A7 A0 35 3A 89 31 |....C$."Q"..5:.1|
00001500: 37 30 30 00 12 1D 26 07 8B 53 53 B2 30 A7 31 37 |700...&..SS.0.17|
00001510: 38 30 00 1C 1D 30 07 A0 35 3A 82 5A 00 32 1D 3A |80...0..5:.Z.2.:|
00001520: 07 8B 50 44 B2 33 A7 8D 32 31 35 30 3A 8D 32 31 |..PD.3..2150:.21|
00001530: 31 30 00 3C 1D 44 07 89 31 37 30 30 00 4F 1D 4E |10.<.D..1700.O.N|
00001540: 07 56 B2 33 3A 8B 4E 58 B1 30 A7 31 38 39 30 00 |.V.3:.NX.0.1890.|
00001550: 74 1D 58 07 99 48 43 24 3B 52 56 24 3B 22 4E 4F |t.X..HC$;RV$;"NO|
00001560: 20 45 4E 54 52 49 45 53 22 3B 3A 56 B2 31 3A 89 | ENTRIES";:V.1:.|
00001570: 32 30 31 30 00 A3 1D 62 07 99 3A 99 20 22 45 4E |2010...b..:. "EN|
00001580: 54 45 52 20 44 49 53 4B 20 49 44 20 20 20 20 2E |TER DISK ID .|
00001590: 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 |";CL$;CL$;CL$;:.|
000015A0: 44 49 24 00 C8 1D 6C 07 44 49 24 B2 C8 28 44 49 |DI$...l.DI$..(DI|
000015B0: 24 AA 22 20 20 22 2C 32 29 3A 8B 44 49 24 B2 22 |$." ",2):.DI$."|
000015C0: 2E 20 22 A7 31 39 35 30 00 F0 1D 76 07 81 58 B2 |. ".1950...v..X.|
000015D0: 30 A4 4E 58 AB 31 3A 8B 44 49 24 B3 B1 C8 28 58 |0.NX.1:.DI$...(X|
000015E0: 24 28 58 29 2C 32 29 A7 82 58 3A 89 32 30 30 30 |$(X),2)..X:.2000|
000015F0: 00 12 1E 80 07 44 4E 24 B2 CA 28 58 24 28 58 29 |.....DN$..(X$(X)|
00001600: 2C 33 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C |,3):DI$..(X$(X),|
00001610: 32 29 00 2A 1E 8A 07 8D 32 31 36 30 3A 8B 43 24 |2).*....2160:.C$|
00001620: B2 22 4E 22 A7 56 B2 32 3A 8E 00 34 1E 94 07 89 |."N".V.2:..4....|
00001630: 32 30 33 30 00 62 1E 9E 07 99 3A 99 22 45 4E 54 |2030.b....:."ENT|
00001640: 45 52 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 2E |ER DISK NAME .|
00001650: 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 |";CL$;CL$;CL$;:.|
00001660: 46 24 00 74 1E A8 07 8B 46 24 B2 22 2E 22 A7 56 |F$.t....F$.".".V|
00001670: B2 31 3A 8E 00 92 1E B2 07 8D 32 30 34 30 3A 81 |.1:.......2040:.|
00001680: 58 B2 30 A4 4E 58 AB 31 3A 8B 59 B2 30 A7 32 30 |X.0.NX.1:.Y.0.20|
00001690: 32 30 00 AC 1E BC 07 8B 46 24 B2 CA 28 58 24 28 |20......F$..(X$(|
000016A0: 58 29 2C 33 2C 59 29 A7 32 30 32 30 00 B3 1E C6 |X),3,Y).2020....|
000016B0: 07 82 58 00 C9 1E D0 07 99 3A 99 52 56 24 3B 22 |..X......:.RV$;"|
000016C0: 4E 4F 54 22 3B 3A 56 B2 32 00 F2 1E DA 07 99 22 |NOT";:V.2......"|
000016D0: 20 49 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 | IN MASTER DIREC|
000016E0: 54 4F 52 59 21 22 3A 8D 32 31 35 30 3A 89 32 31 |TORY!":.2150:.21|
000016F0: 31 30 00 27 1F E4 07 44 4E 24 B2 CA 28 58 24 28 |10.'...DN$..(X$(|
00001700: 58 29 2C 33 29 3A 44 49 24 B2 C8 28 58 24 28 58 |X),3):DI$..(X$(X|
00001710: 29 2C 32 29 3A 8D 32 31 36 30 3A 8B 43 24 B2 22 |),2):.2160:.C$."|
00001720: 4E 22 A7 31 39 39 30 00 3D 1F EE 07 53 24 B2 22 |N".1990.=...S$."|
00001730: 30 3A 44 49 52 2E 22 AA 44 49 24 3A 8E 00 4D 1F |0:DIR.".DI$:..M.|
00001740: F8 07 46 24 B2 C8 28 46 24 2C 31 36 29 00 75 1F |..F$..(F$,16).u.|
00001750: 02 08 8B C9 28 46 24 2C 31 29 B2 22 2A 22 A7 59 |....(F$,1)."*".Y|
00001760: B2 C3 28 46 24 29 AB 31 3A 46 24 B2 C8 28 46 24 |..(F$).1:F$..(F$|
00001770: 2C 59 29 3A 8E 00 9F 1F 0C 08 59 B2 31 36 3A 46 |,Y):......Y.16:F|
00001780: 24 B2 C8 28 46 24 AA 22 20 20 20 20 20 20 20 20 |$..(F$." |
00001790: 20 20 20 20 20 20 20 20 22 2C 31 36 29 3A 8E 00 | ",16):..|
000017A0: CB 1F 16 08 8D 32 31 35 30 3A 99 22 57 41 4E 54 |.....2150:."WANT|
000017B0: 20 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B 3A | PRINTED COPY";:|
000017C0: 8D 32 31 39 30 3A 8D 32 31 35 30 00 E1 1F 20 08 |.2190:.2150... .|
000017D0: 50 44 B2 33 3A 8B 43 24 B2 22 59 22 A7 50 44 B2 |PD.3:.C$."Y".PD.|
000017E0: 34 00 F7 1F 2A 08 9F 34 2C 50 44 3A 8B 50 44 B2 |4...*..4,PD:.PD.|
000017F0: 33 A7 99 48 43 24 3B 00 FD 1F 34 08 8E 00 20 20 |3..HC$;...4... |
00001800: 3E 08 99 22 44 45 50 52 45 53 53 20 41 4E 59 20 |>.."DEPRESS ANY |
00001810: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
00001820: 00 34 20 48 08 A1 43 24 3A 8B 43 24 B2 22 22 A7 |.4 H..C$:.C$."".|
00001830: 32 31 32 30 00 3A 20 52 08 8E 00 62 20 5C 08 99 |2120.: R...b \..|
00001840: 48 43 24 3B A6 39 29 3B 52 56 24 3B 22 44 20 49 |HC$;.9);RV$;"D I|
00001850: 20 53 20 4B 20 20 4D 20 41 20 53 20 54 20 45 20 | S K M A S T E |
00001860: 52 22 00 96 20 66 08 99 3A 99 22 2D 2D 2D 2D 2D |R".. f..:."-----|
00001870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001890: 2D 2D 2D 22 3A 8E 00 BF 20 70 08 99 48 43 24 3B |---":... p..HC$;|
000018A0: 52 56 24 3B 22 44 49 53 4B 20 4E 41 4D 45 3A 22 |RV$;"DISK NAME:"|
000018B0: 3B 52 46 24 3B 22 20 20 22 3B 44 4E 24 3A 99 00 |;RF$;" ";DN$:..|
000018C0: EB 20 7A 08 99 22 20 20 22 3B 52 56 24 3B 22 44 |. z.." ";RV$;"D|
000018D0: 49 53 4B 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 |ISK ID:";RF$;" |
000018E0: 22 3B 44 49 24 3A 8D 32 31 35 30 00 00 21 84 08 |";DI$:.2150..!..|
000018F0: 99 22 43 4F 52 52 45 43 54 20 44 49 53 4B 22 3B |."CORRECT DISK";|
00001900: 00 13 21 8E 08 99 22 20 28 59 2F 4E 29 20 3F 20 |..!..." (Y/N) ? |
00001910: 20 22 3B 00 33 21 98 08 8D 32 31 32 30 3A 8B 43 | ";.3!...2120:.C|
00001920: 24 B3 B1 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 32 |$.."Y".C$.."N".2|
00001930: 32 30 30 00 3D 21 A2 08 99 43 24 3A 8E 00 5A 21 |200.=!...C$:..Z!|
00001940: AC 08 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |...15,EN,EM$,ET,|
00001950: 45 53 3A 8B 45 4E B2 30 A7 8E 00 83 21 B6 08 99 |ES:.EN.0....!...|
00001960: 48 43 24 3B 52 56 24 3B 22 44 49 53 4B 20 45 52 |HC$;RV$;"DISK ER|
00001970: 52 4F 52 22 3B 52 46 24 3B 22 20 57 48 49 4C 45 |ROR";RF$;" WHILE|
00001980: 20 22 3B 00 9A 21 C0 08 8B 43 58 A7 99 22 57 52 | ";..!...CX.."WR|
00001990: 49 54 49 4E 47 20 4E 45 57 22 00 AF 21 CA 08 8B |ITING NEW"..!...|
000019A0: 43 58 B2 30 A7 99 22 52 45 41 44 49 4E 47 22 00 |CX.0.."READING".|
000019B0: DF 21 D4 08 99 3A 99 22 44 49 53 4B 20 44 49 52 |.!...:."DISK DIR|
000019C0: 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 |ECTORY CROSS REF|
000019D0: 45 52 45 4E 43 45 20 46 49 4C 45 2E 22 3A 99 00 |ERENCE FILE.":..|
000019E0: F1 21 DE 08 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 |.!...EN;EM$;ET;E|
000019F0: 53 00 15 22 E8 08 99 3A 99 52 56 24 3B 22 50 52 |S.."...:.RV$;"PR|
00001A00: 4F 47 52 41 4D 20 41 42 4F 52 54 45 44 21 22 3A |OGRAM ABORTED!":|
00001A10: 89 32 33 38 30 00 21 22 F2 08 8B 43 58 B2 30 A7 |.2380.!"...CX.0.|
00001A20: 8E 00 57 22 FC 08 8D 32 31 35 30 3A 99 22 55 50 |..W"...2150:."UP|
00001A30: 44 41 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 |DATING DIRECTORY|
00001A40: 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 | CROSS REFERENCE|
00001A50: 20 2E 2E 2E 22 3A 99 00 7A 22 06 09 8B 4E 58 B2 | ...":..z"...NX.|
00001A60: 30 A7 98 31 35 2C 22 53 30 3A 44 49 53 4B 20 44 |0..15,"S0:DISK D|
00001A70: 49 52 20 58 52 45 46 22 3A 8E 00 95 22 10 09 98 |IR XREF":..."...|
00001A80: 31 35 2C 22 53 30 3A 44 49 52 20 58 52 45 46 2E |15,"S0:DIR XREF.|
00001A90: 54 45 4D 50 22 00 BC 22 1A 09 9F 35 2C 38 2C 35 |TEMP".."...5,8,5|
00001AA0: 2C 22 30 3A 44 49 52 20 58 52 45 46 2E 54 45 4D |,"0:DIR XREF.TEM|
00001AB0: 50 2C 53 2C 57 22 3A 8D 32 32 32 30 00 E1 22 24 |P,S,W":.2220.."$|
00001AC0: 09 81 58 B2 30 A4 4E 58 AB 31 3A 98 35 2C 58 24 |..X.0.NX.1:.5,X$|
00001AD0: 28 58 29 3B 43 52 24 3B 3A 8D 32 32 32 30 3A 82 |(X);CR$;:.2220:.|
00001AE0: 58 00 FF 22 2E 09 A0 35 3A 98 31 35 2C 22 53 30 |X.."...5:.15,"S0|
00001AF0: 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 22 00 |:DISK DIR XREF".|
00001B00: 30 23 38 09 98 31 35 2C 22 52 30 3A 44 49 53 4B |0#8..15,"R0:DISK|
00001B10: 20 44 49 52 20 58 52 45 46 3D 30 3A 44 49 52 20 | DIR XREF=0:DIR |
00001B20: 58 52 45 46 2E 54 45 4D 50 22 3A 8D 32 32 32 30 |XREF.TEMP":.2220|
00001B30: 00 36 23 42 09 8E 00 46 23 4C 09 A0 34 3A A0 35 |.6#B...F#L..4:.5|
00001B40: 3A A0 31 35 3A 80 00 50 23 56 09 99 48 43 24 3B |:.15:..P#V..HC$;|
00001B50: 00 76 23 60 09 A0 31 35 3A 99 22 49 4E 53 45 52 |.v#`..15:."INSER|
00001B60: 54 20 4D 41 53 54 45 52 20 44 49 53 4B 22 3A 99 |T MASTER DISK":.|
00001B70: 3A 8D 32 31 31 30 00 8D 23 6A 09 9F 31 35 2C 38 |:.2110..#j..15,8|
00001B80: 2C 31 35 2C 22 49 30 22 3A 8D 32 37 30 00 B4 23 |,15,"I0":.270..#|
00001B90: 74 09 98 31 35 2C 22 43 30 3A 44 49 53 4B 20 4D |t..15,"C0:DISK M|
00001BA0: 41 53 54 45 52 3D 30 3A 44 49 53 4B 20 4D 41 53 |ASTER=0:DISK MAS|
00001BB0: 54 45 52 22 00 C8 23 7E 09 84 31 35 2C 45 4E 3A |TER"..#~..15,EN:|
00001BC0: 8B 45 4E B2 36 33 A7 8E 00 F1 23 88 09 99 3A 99 |.EN.63....#...:.|
00001BD0: 52 56 24 3B 22 49 4E 43 4F 52 52 45 43 54 20 44 |RV$;"INCORRECT D|
00001BE0: 49 53 4B 21 22 3A 8D 32 31 35 30 3A 89 32 34 30 |ISK!":.2150:.240|
00001BF0: 30 00 20 24 92 09 99 48 43 24 3B 22 45 4E 54 45 |0. $...HC$;"ENTE|
00001C00: 52 20 4D 49 4E 49 4D 55 4D 20 4E 55 4D 42 45 52 |R MINIMUM NUMBER|
00001C10: 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 | OF FREE BLOCKS"|
00001C20: 00 4E 24 9C 09 99 3A 99 22 54 4F 20 42 45 20 44 |.N$...:."TO BE D|
00001C30: 49 53 50 4C 41 59 45 44 20 20 20 30 22 3B 43 4C |ISPLAYED 0";CL|
00001C40: 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 53 24 00 6C |$;CL$;CL$;:.S$.l|
00001C50: 24 A6 09 59 B2 C5 28 53 24 29 3A 8B 53 24 B3 B1 |$..Y..(S$):.S$..|
00001C60: 22 30 22 AF 59 B2 30 A7 31 32 36 30 00 7B 24 B0 |"0".Y.0.1260.{$.|
00001C70: 09 56 46 B2 30 3A 89 32 35 33 30 00 AA 24 BA 09 |.VF.0:.2530..$..|
00001C80: 99 48 43 24 3B 22 45 4E 54 45 52 20 4D 41 58 55 |.HC$;"ENTER MAXU|
00001C90: 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 |MUM NUMBER OF FR|
00001CA0: 45 45 20 42 4C 4F 43 4B 53 22 00 DD 24 C4 09 99 |EE BLOCKS"..$...|
00001CB0: 3A 99 22 54 4F 20 42 45 20 44 49 53 50 4C 41 59 |:."TO BE DISPLAY|
00001CC0: 45 44 20 20 20 39 39 22 3B 43 4C 24 3B 43 4C 24 |ED 99";CL$;CL$|
00001CD0: 3B 43 4C 24 3B 43 4C 24 3B 3A 85 53 24 00 F3 24 |;CL$;CL$;:.S$..$|
00001CE0: CE 09 59 B2 C5 28 53 24 29 3A 8B 59 B2 30 A7 31 |..Y..(S$):.Y.0.1|
00001CF0: 32 36 30 00 FC 24 D8 09 56 46 B2 31 00 33 25 E2 |260..$..VF.1.3%.|
00001D00: 09 8D 32 30 37 30 3A 98 34 2C 52 56 24 3B 22 23 |..2070:.4,RV$;"#|
00001D10: 42 4C 4B 53 20 46 52 45 45 20 20 49 44 20 20 2E |BLKS FREE ID .|
00001D20: 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 |..DISK NAME...."|
00001D30: 3A 98 34 00 5F 25 EC 09 81 58 B2 30 A4 4E 58 AB |:.4._%...X.0.NX.|
00001D40: 31 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |1:DI$..(X$(X),2)|
00001D50: 3A 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 00 |:DN$..(X$(X),3).|
00001D60: 95 25 F6 09 9F 35 2C 38 2C 35 2C 22 30 3A 44 49 |.%...5,8,5,"0:DI|
00001D70: 52 2E 22 AA 44 49 24 AA 22 2C 53 2C 52 22 3A 8D |R.".DI$.",S,R":.|
00001D80: 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 32 |270:.5,DF$,NB:.2|
00001D90: 37 30 3A A0 35 00 AD 25 00 0A 8B 28 56 46 B2 30 |70:.5..%...(VF.0|
00001DA0: 29 AF 28 4E 42 B3 59 29 A7 32 35 39 30 00 C5 25 |).(NB.Y).2590..%|
00001DB0: 0A 0A 8B 28 56 46 B2 31 29 AF 28 4E 42 B1 59 29 |...(VF.1).(NB.Y)|
00001DC0: A7 32 35 39 30 00 F2 25 14 0A 98 34 2C C9 28 22 |.2590..%...4,.("|
00001DD0: 20 20 20 20 20 20 20 22 AA C4 28 4E 42 29 2C 37 | "..(NB),7|
00001DE0: 29 3B A6 35 29 3B 44 49 24 3B 22 20 20 22 3B 44 |);.5);DI$;" ";D|
00001DF0: 4E 24 00 08 26 1E 0A A1 43 24 3A 8B 43 24 B3 B1 |N$..&...C$:.C$..|
00001E00: 22 22 A7 8D 32 31 32 30 00 19 26 28 0A 8B 43 24 |""..2120..&(..C$|
00001E10: B2 22 51 22 A7 31 32 36 30 00 26 26 32 0A 82 58 |."Q".1260.&&2..X|
00001E20: 3A 89 31 36 37 30 00 00 20 |:.1670.. |
....D..53281,2:.646,1./.N..:C$."":S$.C$:
X.0:Y.0.H.X.CR$.G(13):HC$.G(147):RV$.G(1
8):RF$.G(146):CL$.G(157).N.....T........
..2140:.D$(230),X$(230)... .." READING
DIRECTORY CROSS REFERENCE".S....15,8,15
,"I0":.2220......5,8,5,"0:DISK DIR XREF,
S,R"......15,EN,EM$,ET,ES:.EN.62.290.@.H
..5,X$(NX):SS.ST:.2220:NX.NX.1:.SS.0.200
.I.R..290.M...S$."":.X.1.Y:.260:S$.S$.C$
:.X:.......X.1.Y:.260:.X:......V.0:.260:
.C$.."".V.F(C$)............#5,C$.S...SS.
ST:.15,EN,EM$,ET,ES:.EN.0........HC$;RV$
;"DISK ERROR!":.:.2270...". 4: 5:CX.0:.2
140.!.,...5);"0 - DONE":..J.6...5);"1 -
UPDATE MASTER DIRECTORY":..Y.@...5);"2 -
DELETE DISK ENTRY FROM MASTER":....J...
5);"3 - DISPLAY SELECTED DIRECTORY":..J.
T...5);"4 - FIND SPECIFIED FILE":....^..
.5);"5 - LIST DISK ID'S & NAMES"...H..21
50:."ENTER DESIRED FUNCTION: ";.5.R..21
20:.C$."0"..HC$:.2380.N.|.V.E(C$):.V.1.V
.5.370.L....V.400,1180,980,1690,1250....
. 15:CX.0:.HC$;"INSERT DISK TO BE CATALO
GED".Z....:."DEPRESS ANY KEY TO CONTINUE
, ";RV$;"Q";RF$;" TO QUIT"......2120:.C$
."Q"..2390:.290......2150:."OK":.15,8,15
,"I0":.270.3....5,8,5,"$0,S,R":.270.F.B.
.240:VF.V:.260.K.L.NB.0:.Z.1.35:.240:.Z.
.18.NB.NB.V.{.V.Y.3:.230:.Z.....Y.16:.22
0:DN$.S$:Y.2:.230.....Y.2:.220:DI$.H(S$.
" ",2).M....2160:.C$."N".970......NX.0.
630......X.0.NX.1:C$.H(X$(X),2):.DI$.C$.
630......DI$..C$..X:.630.0....DN$.J(X$(X
),3).630.R.&..HC$;RV$;"*** WARNING ***";
RF$;" THIS DISK ID: ";RV$;DI$;RF$...0..
:."DISK NAME: ";RV$;DN$...:..:."IS ALL R
EADY CATALOGED WITH A DIFFERENT"...D..:.
"DISK NAME: ";RV$;J(X$(X),3):.2150...N..
"CATALOGING THIS DISK WILL DELETE THE".5
.X..:."PREVIOUS DATA!":. 2150.A.B.."CATA
LOG THIS DISK";:.2190:.C$."N".970...L..H
C$;"CATALOGING DISK WITH NEW DISK NAME".
..V..2150:."READING DIRECTORY ENTRIES ..
.".X....260:Y.2:.220:DF$.S$:Y.89......VF
.1.DF$." 1"......230.....NF.0:Z.0......2
40:FT.V.5...F$.C$:Y.2:.230:Y.16:.220:Y.9
:.230.X....240:S$.S$.G(V):.240:.FT.0.770
.F.F..NF.0.740...P..X.1.NF:.H(S$,16).J(D
$(X),2,16).750...Z..X.....X.NF.1:.760.E.
...Y.NF.X..1:D$(Y.1).D$(Y):.Y.....D$(X).
F$.S$.G(V):NF.NF.1.....Z.Z.1:Z.Z.(.(Z.8)
.8):.Z.0.Y.2:.230......NF.155.840.R....H
C$;.6);RV$;"*** DISK BAM IS INVALID ***"
;RF$:.2150... ..:." CURRENT DISK CANNO
T BE CATALOGED!":.:.:....*.." PLEASE VER
IFY OR CHECK DISK CONTENTS":....4.."BEFO
RE ATTEMPTING TO CATALOG THIS DISK.":...
.>..2150:.2110:.970...H..SS.0.680.=.R. 5
:.2390:.2150:."UPDATING MASTER DIRECTORY
...".K.\..NX.0.910.S.F..X.0.NX.1:C$.H(X
$(X),2):.DI$.C$.900...P..DI$.C$.930...Z.
.X:.910......Y.NX.1.X..1:X$(Y.1).X$(Y):.
Y:.920.....X.NX.K...NX.NX.1.....X$(X).DI
$.DN$:CX.1......2030:.15,"S".S$:.5,8,5,S
$.",S,W":.270.)....5,DF$;",";NB;CR$;:.27
0.Q....NF.0..X.1.NF:.5,D$(X);CR$;:.270:.
X.C.J. 5:.2290:.400...T..HC$;"TO DISPLAY
DISK DIRECTORY":.1870:.V.290,980.H....5
,8,5,S$.",S,R":.270:.2070:.5,DF$,NB:.270
......4," ";RV$;"DISK NAME:";RF$;" ";D
N$:.4."....4,"".4);RV$;"DISK ID:";RF$;"
";DI$;.6).K....4,RV$;"DISK FORMAT:";RF$
;" "DF$:.4.S....4,RV$;"BLOCKS FREE:";RF
$;" ";NB:.4......4,"--------------------
-------------------":.4.....NF.0:.SS.0.1
160...$..240:FT.V:Y.16:.220:.240:Z.V:.24
0:.260......4,I(" ".D(Z.(256.V)),4);"
";S$;" ";.+.8..FT.129..4,"SEQ";.A.B.
.FT.130..4,"PGM";.W.L..FT.131..4,"USR";.
M.V..FT.132..4,"REL";...`..4:.C$:.C$..""
..2120...J..C$."Q".1170...T.NF.NF.1:.SS.
0.1060.Q.~..4:.4,RV$;"#FILES:";RF$;" ";N
F......PD.3..2150:.2110..... 4: 5:.980.&
....HC$;"TO DELETE DISK FROM MASTER DIRE
CTORY".=....1870:.V.1240,1180.L....15,"S
".S$.T...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...X..2290:.290.C....NX.0..1880:.
290.P... 4:.2140.......5);"0 - RETURN TO
MAIN FUNCTION MENU":..*.....5);"1 - PRI
NT FULL ID USEAGE CHART":..U.....5);"2 -
QUICK LIST OF ID'S IN USE":..}.....5);"
3 - LIST DISK ID'S & NAMES":........5);"
4 - LIST ";RV$;"MIN";RF$;" FREE BLOCKS P
ER DISK":....(...5);"5 - LIST ";RV$;"MAX
";RF$;" FREE BLOCKS PER DISK"...2..2150:
."ENTER DESIRED FUNCTION: ";.3.<..2120:
.C$."0".290.M.F.V.E(C$):.V.1.V.5.1340.Q.
P..C$:.V.1370,1550,1620,2450,2490.Z.Z..4
,4...D..4,"".15);RV$;" D I S K I D U
S E A G E C H A R T ".F.N..4:.4," ";..
.X.. X.48.90:.X.58.X.65......4," ";G(X);
:.X:.4.....Z.0:.X.48.90:.X.58.X.65.O....
4," ....................................
.............";.Q. ..4,"................
........".~....4,G(X);......Y.48.90:.Y.5
8.Y.65......4,G(221);:.Z.NX.1500.O.H.C$.
G(X).G(Y):S$.H(X$(Z),2)...R..S$.C$..4,G(
166);:Z.Z.1:.1510......4," ";. ....Y:.4,
G(221):.C$:.C$..""..2120.0....C$.."Q"..X
.K....4," ..............................
.................";......4,"............
..............":.1260.F....2070:.4,"".7)
;".DISK ID'S CURRENTLY IN USE".P....4:.4
...".V.12:.PD.4.V.25...,.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.N.J..4,Z
;RV$;"DISKS IN MASTER DIRECTORY":.1670..
.T..2070:.4,RV$;"ID ...DISK NAME....":.
4.E.^..X.0.NX.1:.4,H(X$(X),2);" ";J(X$(
X),3)...H..C$:.C$..""..2120...R..C$."Q".
1260...|..X......PD.4.1260......2150:.21
10:.1260.-....NX.0..1880:.290._... 4:.HC
$;"TO FIND WHAT DISK(S) A FILE IS ON":..
....."ENTER FILE NAME .";CL$;CL$;CL$;:
.F$:.F$.".".290......F$."*"..:."RE-";:.1
710.M.B.S$.F$:.2040:V.Y:.2070...L..4,RV$
;"...FILE NAME.... ID ...DISK NAME....
":.4...V..4,S$:.4.=....Z.0.NX.1:DI$.H(X$
(Z),2):DN$.J(X$(Z),3).R....2030:.5,8,5,S
$.",S,R":EF.15:.270:.5,DF$,NB:.270......
260:Y.16:.220:Y.3:.230......F$.H(S$,V).1
840.X....F$.H(S$,V)..4,S$;" ";DI$;" ";
DN$:.<-2SPACESEA......C$:.C$..""..2120..
....C$."Q". 5:.1700...&..SS.0.1780...0.
5:.Z.2.:..PD.3..2150:.2110.<.D..1700.O.N
.V.3:.NX.0.1890.T.X..HC$;RV$;"NO ENTRIES
";:V.1:.2010...B..:. "ENTER DISK ID .
";CL$;CL$;CL$;:.DI$.H.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).*....2160:.C$."N".V.2:..4....
2030.B....:."ENTER DISK NAME .";CL$;CL
$;CL$;:.F$.T....F$.".".V.1:.......2040:.
X.0.NX.1:.Y.0.2020......F$.J(X$(X),3,Y).
2020...F..X.I.P..:.RV$;"NOT";:V.2...Z.."
IN MASTER DIRECTORY!":.2150:.2110.'...D
N$.J(X$(X),3):DI$.H(X$(X),2):.2160:.C$."
N".1990.=...S$."0:DIR.".DI$:..M...F$.H(F
$,16).U....I(F$,1)."*".Y.C(F$).1:F$.H(F$
,Y):......Y.16:F$.H(F$."
",16):..K....2150:."WANT PRINTED COPY";:
.2190:.2150... .PD.3:.C$."Y".PD.4...*..4
,PD:.PD.3..HC$;...4... >.."DEPRESS ANY
KEY TO CONTINUE".4 H..C$:.C$."".2120.: R
...B \..HC$;.9);RV$;"D I S K M A S T E
R".. F..:."-----------------------------
-----------":... P..HC$;RV$;"DISK NAME:"
;RF$;" ";DN$:... Z.." ";RV$;"DISK ID:"
;RF$;" ";DI$:.2150..!..."CORRECT DISK";
..!..." (Y/N) ? ";.3!...2120:.C$.."Y".C
$.."N".2200.=!...C$:..Z!...15,EN,EM$,ET,
ES:.EN.0....!...HC$;RV$;"DISK ERROR";RF$
;" WHILE ";..!...CX.."WRITING NEW"..!J..
CX.0.."READING"..!T..:."DISK DIRECTORY C
ROSS REFERENCE FILE.":...!...EN;EM$;ET;E
S.."...:.RV$;"PROGRAM ABORTED!":.2380.!"
...CX.0...W"...2150:."UPDATING DIRECTORY
CROSS REFERENCE ...":..Z"...NX.0..15,"S
0:DISK DIR XREF":..."...15,"S0:DIR XREF.
TEMP".."...5,8,5,"0:DIR XREF.TEMP,S,W":.
2220.."$..X.0.NX.1:.5,X$(X);CR$;:.2220:.
X..".. 5:.15,"S0:DISK DIR XREF".0#8..15,
"R0:DISK DIR XREF=0:DIR XREF.TEMP":.2220
.6#B...F#L. 4: 5: 15:..P#V..HC$;.V#`. 15
:."INSERT MASTER DISK":.:.2110..#J..15,8
,15,"I0":.270..#T..15,"C0:DISK MASTER=0:
DISK MASTER".H#~..15,EN:.EN.63....#...:.
RV$;"INCORRECT DISK!":.2150:.2400. $...H
C$;"ENTER MINIMUM NUMBER OF FREE BLOCKS"
.N$...:."TO BE DISPLAYED 0";CL$;CL$;CL
$;:.S$.L$..Y.E(S$):.S$.."0".Y.0.1260.{$.
.VF.0:.2530..$...HC$;"ENTER MAXUMUM NUMB
ER OF FREE BLOCKS"..$D..:."TO BE DISPLAY
ED 99";CL$;CL$;CL$;CL$;:.S$..$N.Y.E(S$
):.Y.0.1260..$X.VF.1.3%...2070:.4,RV$;"#
BLKS FREE ID ...DISK NAME....":.4._%..
.X.0.NX.1:DI$.H(X$(X),2):DN$.J(X$(X),3).
.%...5,8,5,"0:DIR.".DI$.",S,R":.270:.5,D
F$,NB:.270: 5..%...(VF.0).(NB.Y).2590.E%
...(VF.1).(NB.Y).2590..%...4,I(" "
.D(NB),7);.5);DI$;" ";DN$..&...C$:.C$..
""..2120..&(..C$."Q".1260.&&2..X:.1670..
> CLICK IMAGE PREVIEW FOR FULL MODAL