22.DISC-MASTER
FILE INFORMATION
FILENAME(S): 22.DISC-MASTER
FILE TYPE(S): PRG
FILE SIZE: 8.3K
FIRST SEEN: 2025-11-30 01:08:05
APPEARS ON: 2 disk(s)
FILE HASH
3e787029f2492428db48692b34c8d577e943680a5b971a6758ff0598c32f3ad0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITEIS | 22.DISC-MASTER | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 2 | DOWNLOAD FILE |
| FREEWARE DISK NR | 22.DISC-MASTER | PRG | Treasure Chest - Wolfgang Rauprich | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 44 |..%.... -------D|
00000010: 49 53 4B 20 4D 41 53 54 45 52 2D 2D 2D 2D 2D 2D |ISK MASTER------|
00000020: 2D 2D 2D 2D 2D 00 2B 08 14 00 8F 00 49 08 1E 00 |-----.+.....I...|
00000030: 8F 20 20 20 20 53 49 4E 47 4C 45 20 56 49 43 2D |. SINGLE VIC-|
00000040: 31 35 34 31 20 44 49 53 4B 00 68 08 28 00 8F 20 |1541 DISK.h.(.. |
00000050: 20 20 4F 4E 20 43 4F 4D 4D 4F 44 4F 52 45 2D 36 | ON COMMODORE-6|
00000060: 34 20 53 59 53 54 45 4D 00 6E 08 32 00 8F 00 92 |4 SYSTEM.n.2....|
00000070: 08 5A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.Z.. -----------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000090: 2D 2D 00 98 08 64 00 3A 00 B2 08 6E 00 9C 3A 43 |--...d.:...n..:C|
000000A0: 24 B2 22 22 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 |$."":S$.C$:X.0:Y|
000000B0: B2 30 00 EB 08 78 00 43 52 24 B2 C7 28 31 33 29 |.0...x.CR$..(13)|
000000C0: 3A 48 43 24 B2 C7 28 31 34 37 29 3A 52 56 24 B2 |:HC$..(147):RV$.|
000000D0: C7 28 31 38 29 3A 52 46 24 B2 C7 28 31 34 36 29 |.(18):RF$..(146)|
000000E0: 3A 43 4C 24 B2 C7 28 31 35 37 29 00 25 09 82 00 |:CL$..(157).%...|
000000F0: 8F 20 43 52 3D 43 41 52 52 41 49 41 47 45 20 52 |. CR=CARRAIAGE R|
00000100: 45 54 55 52 4E 2C 20 48 43 3D 20 48 4F 4D 45 2F |ETURN, HC= HOME/|
00000110: 43 4C 45 41 52 2C 20 52 56 3D 20 52 45 56 45 52 |CLEAR, RV= REVER|
00000120: 53 45 20 4F 4E 00 4E 09 8C 00 8F 20 52 46 3D 20 |SE ON.N.... RF= |
00000130: 52 45 56 45 52 53 45 20 4F 46 46 2C 20 20 20 43 |REVERSE OFF, C|
00000140: 4C 3D 20 43 55 52 53 45 52 20 4C 45 46 54 00 6B |L= CURSER LEFT.k|
00000150: 09 96 00 8D 20 32 31 34 30 3A 86 20 44 24 28 32 |.... 2140:. D$(2|
00000160: 33 30 29 2C 58 24 28 32 33 30 29 00 97 09 A0 00 |30),X$(230).....|
00000170: 99 22 20 20 20 52 45 41 44 49 4E 47 20 44 49 52 |." READING DIR|
00000180: 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 |ECTORY CROSS REF|
00000190: 45 52 45 4E 43 45 22 00 B0 09 AA 00 9F 31 35 2C |ERENCE"......15,|
000001A0: 38 2C 31 35 2C 22 49 30 22 3A 8D 20 32 32 32 30 |8,15,"I0":. 2220|
000001B0: 00 D2 09 B4 00 9F 20 35 2C 38 2C 35 2C 22 30 3A |...... 5,8,5,"0:|
000001C0: 44 49 53 4B 20 44 49 52 20 58 52 45 46 2C 53 2C |DISK DIR XREF,S,|
000001D0: 52 22 00 F3 09 BE 00 84 31 35 2C 45 4E 2C 45 4D |R"......15,EN,EM|
000001E0: 24 2C 45 54 2C 45 53 3A 8B 45 4E B2 36 32 A7 20 |$,ET,ES:.EN.62. |
000001F0: 32 39 30 00 22 0A C8 00 84 35 2C 58 24 28 4E 58 |290."....5,X$(NX|
00000200: 29 3A 53 53 B2 53 54 3A 8D 32 32 32 30 3A 4E 58 |):SS.ST:.2220:NX|
00000210: B2 4E 58 AA 31 3A 8B 20 53 53 B2 30 20 A7 20 32 |.NX.1:. SS.0 . 2|
00000220: 30 30 00 2C 0A D2 00 89 20 32 39 30 00 55 0A DC |00.,.... 290.U..|
00000230: 00 53 24 B2 22 22 3A 81 20 58 B2 31 20 A4 20 59 |.S$."":. X.1 . Y|
00000240: 3A 8D 20 32 36 30 3A 53 24 B2 53 24 AA 43 24 3A |:. 260:S$.S$.C$:|
00000250: 82 20 58 3A 8E 00 6F 0A E6 00 81 58 B2 31 20 A4 |. X:..o....X.1 .|
00000260: 20 59 3A 8D 20 32 36 30 3A 82 20 58 3A 20 8E 00 | Y:. 260:. X: ..|
00000270: 8F 0A F0 00 56 B2 30 3A 8D 20 32 36 30 3A 8B 20 |....V.0:. 260:. |
00000280: 43 24 B3 B1 22 22 A7 20 56 B2 C6 28 43 24 29 00 |C$.."". V..(C$).|
00000290: 95 0A FA 00 8E 00 A0 0A 04 01 A1 23 35 2C 43 24 |...........#5,C$|
000002A0: 00 C6 0A 0E 01 53 53 B2 53 54 3A 84 31 35 2C 45 |.....SS.ST:.15,E|
000002B0: 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 4E |N,EM$,ET,ES:. EN|
000002C0: B2 30 20 A7 20 8E 00 EA 0A 18 01 99 48 43 24 3B |.0 . .......HC$;|
000002D0: 52 56 24 3B 22 44 49 53 4B 20 45 52 52 4F 52 21 |RV$;"DISK ERROR!|
000002E0: 22 3A 99 3A 89 20 32 32 37 30 00 02 0B 22 01 A0 |":.:. 2270..."..|
000002F0: 20 34 3A A0 20 35 3A 43 58 B2 30 3A 8D 20 32 31 | 4:. 5:CX.0:. 21|
00000300: 34 30 00 19 0B 2C 01 99 20 A6 35 29 3B 22 30 20 |40...,.. .5);"0 |
00000310: 2D 20 44 4F 4E 45 22 3A 99 00 43 0B 36 01 99 20 |- DONE":..C.6.. |
00000320: A6 35 29 3B 22 31 20 2D 20 55 50 44 41 54 45 20 |.5);"1 - UPDATE |
00000330: 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 |MASTER DIRECTORY|
00000340: 22 3A 99 00 73 0B 40 01 99 20 A6 35 29 3B 22 32 |":..s.@.. .5);"2|
00000350: 20 2D 20 44 45 4C 45 54 45 20 44 49 53 4B 20 45 | - DELETE DISK E|
00000360: 4E 54 52 59 20 46 52 4F 4D 20 4D 41 53 54 45 52 |NTRY FROM MASTER|
00000370: 22 3A 99 00 A0 0B 4A 01 99 20 A6 35 29 3B 22 33 |":....J.. .5);"3|
00000380: 20 2D 20 44 49 53 50 4C 41 59 20 53 45 4C 45 43 | - DISPLAY SELEC|
00000390: 54 45 44 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |TED DIRECTORY":.|
000003A0: 00 C6 0B 54 01 99 20 A6 35 29 3B 22 34 20 2D 20 |...T.. .5);"4 - |
000003B0: 46 49 4E 44 20 53 50 45 43 49 46 49 45 44 20 46 |FIND SPECIFIED F|
000003C0: 49 4C 45 22 3A 99 00 ED 0B 5E 01 99 20 A6 35 29 |ILE":....^.. .5)|
000003D0: 3B 22 35 20 2D 20 4C 49 53 54 20 44 49 53 4B 20 |;"5 - LIST DISK |
000003E0: 49 44 27 53 20 26 20 4E 41 4D 45 53 22 00 16 0C |ID'S & NAMES"...|
000003F0: 68 01 8D 20 32 31 35 30 3A 99 22 45 4E 54 45 52 |h.. 2150:."ENTER|
00000400: 20 44 45 53 49 52 45 44 20 46 55 4E 43 54 49 4F | DESIRED FUNCTIO|
00000410: 4E 3A 20 20 22 3B 00 38 0C 72 01 8D 20 32 31 32 |N: ";.8.r.. 212|
00000420: 30 3A 8B 20 43 24 B2 22 30 22 A7 20 99 20 48 43 |0:. C$."0". . HC|
00000430: 24 3A 89 20 32 33 38 30 00 56 0C 7C 01 56 B2 C5 |$:. 2380.V.|.V..|
00000440: 28 43 24 29 3A 8B 20 56 B3 31 20 B0 20 56 B1 35 |(C$):. V.1 . V.5|
00000450: 20 A7 20 33 37 30 00 77 0C 86 01 91 20 56 20 89 | . 370.w.... V .|
00000460: 20 34 30 30 2C 31 31 38 30 2C 39 38 30 2C 31 36 | 400,1180,980,16|
00000470: 39 30 2C 31 32 35 30 00 A9 0C 90 01 A0 20 31 35 |90,1250...... 15|
00000480: 3A 43 58 B2 30 3A 99 20 48 43 24 3B 22 49 4E 53 |:CX.0:. HC$;"INS|
00000490: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 43 |ERT DISK TO BE C|
000004A0: 41 54 41 4C 4F 47 45 44 22 00 E7 0C 9A 01 99 3A |ATALOGED"......:|
000004B0: 99 22 44 45 50 52 45 53 53 20 41 4E 59 20 4B 45 |."DEPRESS ANY KE|
000004C0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 22 |Y TO CONTINUE, "|
000004D0: 3B 52 56 24 3B 22 51 22 3B 52 46 24 3B 22 20 54 |;RV$;"Q";RF$;" T|
000004E0: 4F 20 51 55 49 54 22 00 0A 0D A4 01 8D 20 32 31 |O QUIT"...... 21|
000004F0: 32 30 3A 8B 20 43 24 B2 22 51 22 20 A7 20 8D 20 |20:. C$."Q" . . |
00000500: 32 33 39 30 3A 89 20 32 39 30 00 2F 0D AE 01 8D |2390:. 290./....|
00000510: 20 32 31 35 30 3A 99 22 4F 4B 22 3A 9F 31 35 2C | 2150:."OK":.15,|
00000520: 38 2C 31 35 2C 22 49 4F 22 3A 8D 20 32 37 30 00 |8,15,"IO":. 270.|
00000530: 48 0D B8 01 9F 35 2C 38 2C 35 2C 22 24 30 2C 53 |H....5,8,5,"$0,S|
00000540: 2C 52 22 3A 8D 32 37 30 00 5D 0D C2 01 8D 20 32 |,R":.270.].... 2|
00000550: 34 30 3A 56 46 B2 56 3A 8D 20 32 36 30 00 89 0D |40:VF.V:. 260...|
00000560: CC 01 4E 42 B2 30 3A 81 20 5A B2 31 20 A4 20 33 |..NB.0:. Z.1 . 3|
00000570: 35 3A 8D 20 32 34 30 3A 8B 20 5A B3 B1 31 38 20 |5:. 240:. Z..18 |
00000580: A7 20 4E 42 B2 4E 42 AA 56 00 9B 0D D6 01 59 B2 |. NB.NB.V.....Y.|
00000590: 33 3A 8D 20 32 33 30 3A 82 20 5A 00 BB 0D E0 01 |3:. 230:. Z.....|
000005A0: 59 B2 31 36 3A 8D 20 32 32 30 3A 44 4E 24 B2 53 |Y.16:. 220:DN$.S|
000005B0: 24 3A 59 B2 32 3A 8D 20 32 33 30 00 DA 0D EA 01 |$:Y.2:. 230.....|
000005C0: 59 B2 32 3A 8D 20 32 32 30 3A 44 49 24 B2 C8 28 |Y.2:. 220:DI$..(|
000005D0: 53 24 AA 22 20 20 22 2C 32 29 00 F4 0D F4 01 8D |S$." ",2)......|
000005E0: 20 32 31 36 30 3A 8B 20 43 24 B2 22 4E 22 20 A7 | 2160:. C$."N" .|
000005F0: 20 39 37 30 00 05 0E FE 01 8B 20 4E 58 B2 30 20 | 970...... NX.0 |
00000600: A7 20 36 33 30 00 33 0E 08 02 81 20 58 B2 30 20 |. 630.3.... X.0 |
00000610: A4 20 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 28 58 |. NX.1:C$..(X$(X|
00000620: 29 2C 32 29 3A 8B 20 44 49 24 B3 43 24 20 A7 20 |),2):. DI$.C$ . |
00000630: 36 33 30 00 4C 0E 12 02 8B 20 44 49 24 B3 B1 43 |630.L.... DI$..C|
00000640: 24 A7 20 82 20 58 3A 89 20 36 33 30 00 67 0E 1C |$. . X:. 630.g..|
00000650: 02 8B 20 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 |.. DN$..(X$(X),3|
00000660: 29 20 A7 20 36 33 30 00 AA 0E 26 02 99 20 48 43 |) . 630...&.. HC|
00000670: 24 3B 52 56 24 3B 22 2A 2A 2A 20 57 41 52 4E 49 |$;RV$;"*** WARNI|
00000680: 4E 47 20 2A 2A 2A 22 3B 52 46 24 3B 22 20 20 54 |NG ***";RF$;" T|
00000690: 48 49 53 20 44 49 53 4B 20 49 44 3A 20 22 3B 52 |HIS DISK ID: ";R|
000006A0: 56 24 3B 44 49 24 3B 52 46 24 00 C7 0E 30 02 99 |V$;DI$;RF$...0..|
000006B0: 3A 99 22 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B |:."DISK NAME: ";|
000006C0: 52 56 24 3B 44 4E 24 00 F8 0E 3A 02 99 3A 99 22 |RV$;DN$...:..:."|
000006D0: 49 53 20 41 4C 4C 20 52 45 41 44 59 20 43 41 54 |IS ALL READY CAT|
000006E0: 41 4C 4F 47 45 44 20 57 49 54 48 20 41 20 44 49 |ALOGED WITH A DI|
000006F0: 46 46 45 52 45 4E 54 22 00 23 0F 44 02 99 3A 99 |FFERENT".#.D..:.|
00000700: 22 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 |"DISK NAME: ";RV|
00000710: 24 3B CA 28 58 24 28 58 29 2C 33 29 3A 8D 20 32 |$;.(X$(X),3):. 2|
00000720: 31 35 30 00 4F 0F 4E 02 99 22 43 41 54 41 4C 4F |150.O.N.."CATALO|
00000730: 47 49 4E 47 20 54 48 49 53 20 44 49 53 4B 20 57 |GING THIS DISK W|
00000740: 49 4C 4C 20 44 45 4C 45 54 45 20 54 48 45 22 00 |ILL DELETE THE".|
00000750: 6E 0F 58 02 99 3A 99 22 50 52 45 56 49 4F 55 53 |n.X..:."PREVIOUS|
00000760: 20 44 41 54 41 21 22 3A 8D 20 32 31 35 30 00 9E | DATA!":. 2150..|
00000770: 0F 62 02 99 22 43 41 54 41 4C 4F 47 20 54 48 49 |.b.."CATALOG THI|
00000780: 53 20 44 49 53 4B 22 3B 3A 8D 20 32 31 39 30 3A |S DISK";:. 2190:|
00000790: 8B 20 43 24 B2 22 4E 22 20 A7 20 39 37 30 00 CD |. C$."N" . 970..|
000007A0: 0F 6C 02 99 20 48 43 24 3B 22 43 41 54 41 4C 4F |.l.. HC$;"CATALO|
000007B0: 47 49 4E 47 20 44 49 53 4B 20 57 49 54 48 20 4E |GING DISK WITH N|
000007C0: 45 57 20 44 49 53 4B 20 4E 41 4D 45 22 00 F9 0F |EW DISK NAME"...|
000007D0: 76 02 8D 20 32 31 35 30 3A 99 22 52 45 41 44 49 |v.. 2150:."READI|
000007E0: 4E 47 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 |NG DIRECTORY ENT|
000007F0: 52 49 45 53 20 2E 2E 2E 22 00 19 10 80 02 8D 20 |RIES ..."...... |
00000800: 32 36 30 3A 59 B2 32 3A 8D 20 32 32 30 3A 44 46 |260:Y.2:. 220:DF|
00000810: 24 B2 53 24 3A 59 B2 38 39 00 2F 10 8A 02 8B 20 |$.S$:Y.89./.... |
00000820: 56 46 B2 31 20 A7 20 44 46 24 B2 22 20 31 22 00 |VF.1 . DF$." 1".|
00000830: 39 10 94 02 8D 20 32 33 30 00 46 10 9E 02 4E 46 |9.... 230.F...NF|
00000840: B2 30 3A 5A B2 30 00 55 10 A8 02 8D 20 32 34 30 |.0:Z.0.U.... 240|
00000850: 3A 46 54 B2 56 00 7E 10 B2 02 46 24 B2 43 24 3A |:FT.V.~...F$.C$:|
00000860: 59 B2 32 3A 8D 20 32 33 30 3A 59 B2 31 36 3A 8D |Y.2:. 230:Y.16:.|
00000870: 20 32 32 30 3A 59 B2 39 3A 8D 20 32 33 30 00 A6 | 220:Y.9:. 230..|
00000880: 10 BC 02 8D 20 32 34 30 3A 53 24 B2 53 24 AA C7 |.... 240:S$.S$..|
00000890: 28 56 29 3A 8D 20 32 34 30 3A 8B 20 46 54 B2 30 |(V):. 240:. FT.0|
000008A0: 20 A7 20 37 37 30 00 B7 10 C6 02 8B 20 4E 46 B2 | . 770...... NF.|
000008B0: 30 20 A7 20 37 34 30 00 E7 10 D0 02 81 20 58 B2 |0 . 740...... X.|
000008C0: 31 20 A4 20 4E 46 3A 8B 20 C8 28 53 24 2C 31 36 |1 . NF:. .(S$,16|
000008D0: 29 20 B3 20 CA 28 44 24 28 58 29 2C 32 2C 31 36 |) . .(D$(X),2,16|
000008E0: 29 20 A7 20 37 35 30 00 EF 10 DA 02 82 20 58 00 |) . 750...... X.|
000008F0: 00 11 E4 02 58 B2 4E 46 AA 31 3A 89 20 37 36 30 |....X.NF.1:. 760|
00000900: 00 25 11 EE 02 81 20 59 B2 4E 46 20 A4 20 58 20 |.%.... Y.NF . X |
00000910: A9 AB 31 3A 44 24 28 59 AA 31 29 B2 44 24 28 59 |..1:D$(Y.1).D$(Y|
00000920: 29 3A 82 20 59 00 42 11 F8 02 44 24 28 58 29 B2 |):. Y.B...D$(X).|
00000930: 46 24 AA 53 24 AA C7 28 56 29 3A 4E 46 B2 4E 46 |F$.S$..(V):NF.NF|
00000940: AA 31 00 6D 11 02 03 5A B2 5A AA 31 3A 5A B2 5A |.1.m...Z.Z.1:Z.Z|
00000950: AB 28 B5 28 5A AD 38 29 AC 38 29 3A 8B 20 5A B1 |.(.(Z.8).8):. Z.|
00000960: 30 20 A7 20 59 B2 32 3A 8D 20 32 33 30 00 7F 11 |0 . Y.2:. 230...|
00000970: 0C 03 8B 20 4E 46 B3 31 35 35 A7 20 38 34 30 00 |... NF.155. 840.|
00000980: BA 11 16 03 99 20 48 43 24 3B A6 36 29 3B 52 56 |..... HC$;.6);RV|
00000990: 24 3B 22 2A 2A 2A 20 44 49 53 4B 20 42 41 4D 20 |$;"*** DISK BAM |
000009A0: 49 53 20 49 4E 56 41 4C 49 44 20 2A 2A 2A 22 3B |IS INVALID ***";|
000009B0: 52 46 24 3A 8D 20 32 31 35 30 00 EE 11 20 03 99 |RF$:. 2150... ..|
000009C0: 3A 99 22 20 20 20 43 55 52 52 45 4E 54 20 44 49 |:." CURRENT DI|
000009D0: 53 4B 20 43 41 4E 4E 4F 54 20 42 45 20 43 41 54 |SK CANNOT BE CAT|
000009E0: 41 4C 4F 47 45 44 21 22 3A 99 3A 99 3A 99 00 1D |ALOGED!":.:.:...|
000009F0: 12 2A 03 99 22 20 50 4C 45 41 53 45 20 56 45 52 |.*.." PLEASE VER|
00000A00: 49 46 59 20 4F 52 20 43 48 45 43 4B 20 44 49 53 |IFY OR CHECK DIS|
00000A10: 4B 20 43 4F 4E 54 45 4E 54 53 22 3A 99 00 4E 12 |K CONTENTS":..N.|
00000A20: 34 03 99 22 42 45 46 4F 52 45 20 41 54 54 45 4D |4.."BEFORE ATTEM|
00000A30: 50 54 49 4E 47 20 54 4F 20 43 41 54 41 4C 4F 47 |PTING TO CATALOG|
00000A40: 20 54 48 49 53 20 44 49 53 4B 2E 22 3A 99 00 65 | THIS DISK.":..e|
00000A50: 12 3E 03 8D 20 32 31 35 30 3A 8D 20 32 31 31 30 |.>.. 2150:. 2110|
00000A60: 3A 89 39 37 30 00 76 12 48 03 8B 20 53 53 B2 30 |:.970.v.H.. SS.0|
00000A70: 20 A7 20 36 38 30 00 AD 12 52 03 A0 20 35 3A 8D | . 680...R.. 5:.|
00000A80: 20 32 33 39 30 3A 8D 20 32 31 35 30 3A 99 22 55 | 2390:. 2150:."U|
00000A90: 50 44 41 54 49 4E 47 20 4D 41 53 54 45 52 20 44 |PDATING MASTER D|
00000AA0: 49 52 45 43 54 4F 52 59 20 2E 2E 2E 22 00 BC 12 |IRECTORY ..."...|
00000AB0: 5C 03 8B 20 4E 58 B2 30 A7 39 31 30 00 E6 12 66 |\.. NX.0.910...f|
00000AC0: 03 81 20 58 B2 30 A4 4E 58 AB 31 3A 43 24 B2 C8 |.. X.0.NX.1:C$..|
00000AD0: 28 58 24 28 58 29 2C 32 29 3A 8B 20 44 49 24 B3 |(X$(X),2):. DI$.|
00000AE0: 43 24 A7 39 30 30 00 F7 12 70 03 8B 20 44 49 24 |C$.900...p.. DI$|
00000AF0: B2 43 24 A7 39 33 30 00 04 13 7A 03 82 20 58 3A |.C$.930...z.. X:|
00000B00: 89 39 31 30 00 30 13 84 03 81 20 59 B2 4E 58 AB |.910.0.... Y.NX.|
00000B10: 31 20 A4 58 20 A9 AB 31 3A 58 24 28 59 AA 31 29 |1 .X ..1:X$(Y.1)|
00000B20: B2 58 24 28 59 29 3A 82 20 59 20 3A 89 39 32 30 |.X$(Y):. Y :.920|
00000B30: 00 39 13 8E 03 58 B2 4E 58 00 45 13 98 03 4E 58 |.9...X.NX.E...NX|
00000B40: B2 4E 58 AA 31 00 5C 13 A2 03 58 24 28 58 29 B2 |.NX.1.\...X$(X).|
00000B50: 44 49 24 AA 44 4E 24 3A 43 58 B2 31 00 8A 13 AC |DI$.DN$:CX.1....|
00000B60: 03 8D 20 32 30 33 30 3A 98 31 35 2C 22 53 22 AA |.. 2030:.15,"S".|
00000B70: 53 24 3A 9F 20 35 2C 38 2C 35 2C 53 24 AA 22 2C |S$:. 5,8,5,S$.",|
00000B80: 53 2C 57 22 3A 8D 20 32 37 30 00 A7 13 B6 03 98 |S,W":. 270......|
00000B90: 35 2C 44 46 24 3B 22 2C 22 3B 4E 42 3B 43 52 24 |5,DF$;",";NB;CR$|
00000BA0: 3B 3A 8D 20 32 37 30 00 D6 13 C0 03 8B 20 4E 46 |;:. 270...... NF|
00000BB0: B1 30 A7 20 81 20 58 B2 31 20 A4 20 4E 46 3A 98 |.0. . X.1 . NF:.|
00000BC0: 35 2C 44 24 28 58 29 3B 43 52 24 3B 3A 8D 20 32 |5,D$(X);CR$;:. 2|
00000BD0: 37 30 3A 82 20 58 00 E9 13 CA 03 A0 20 35 3A 8D |70:. X...... 5:.|
00000BE0: 32 32 39 30 3A 89 34 30 30 00 23 14 D4 03 99 48 |2290:.400.#....H|
00000BF0: 43 24 3B 22 54 4F 20 44 49 53 50 4C 41 59 20 44 |C$;"TO DISPLAY D|
00000C00: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A 8D |ISK DIRECTORY":.|
00000C10: 20 31 38 37 30 3A 91 20 56 20 89 20 32 39 30 2C | 1870:. V . 290,|
00000C20: 39 38 30 00 55 14 DE 03 9F 20 35 2C 38 2C 35 2C |980.U.... 5,8,5,|
00000C30: 53 24 AA 22 2C 53 2C 52 22 3A 8D 20 32 37 30 3A |S$.",S,R":. 270:|
00000C40: 8D 20 32 30 37 30 3A 84 35 2C 44 46 24 2C 4E 42 |. 2070:.5,DF$,NB|
00000C50: 3A 8D 32 37 30 00 82 14 E8 03 98 34 2C 22 20 20 |:.270......4," |
00000C60: 22 3B 52 56 24 3B 22 44 49 53 4B 20 4E 41 4D 45 |";RV$;"DISK NAME|
00000C70: 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 4E 24 3A |:";RF$;" ";DN$:|
00000C80: 98 34 00 AF 14 F2 03 98 34 2C 22 22 A6 34 29 3B |.4......4,"".4);|
00000C90: 52 56 24 3B 22 44 49 53 4B 20 49 44 3A 22 3B 52 |RV$;"DISK ID:";R|
00000CA0: 46 24 3B 22 20 20 22 3B 44 49 24 3B A6 36 29 00 |F$;" ";DI$;.6).|
00000CB0: D8 14 FC 03 98 34 2C 52 56 24 3B 22 44 49 53 4B |.....4,RV$;"DISK|
00000CC0: 20 46 4F 52 4D 41 54 3A 22 3B 52 46 24 3B 22 20 | FORMAT:";RF$;" |
00000CD0: 20 22 44 46 24 3A 98 34 00 00 15 06 04 98 34 2C | "DF$:.4......4,|
00000CE0: 52 56 24 3B 22 42 4C 4F 43 4B 53 20 46 52 45 45 |RV$;"BLOCKS FREE|
00000CF0: 3A 22 3B 52 46 24 3B 22 20 22 3B 4E 42 3A 98 34 |:";RF$;" ";NB:.4|
00000D00: 00 37 15 10 04 98 34 2C 22 2D 2D 2D 2D 2D 2D 2D |.7....4,"-------|
00000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D30: 2D 2D 2D 22 3A 98 34 00 4E 15 1A 04 4E 46 B2 30 |---":.4.N...NF.0|
00000D40: 3A 8B 20 53 53 B1 30 20 A7 20 31 31 36 30 00 7E |:. SS.0 . 1160.~|
00000D50: 15 24 04 8D 20 32 34 30 3A 46 54 B2 56 3A 59 B2 |.$.. 240:FT.V:Y.|
00000D60: 31 36 3A 8D 20 32 32 30 3A 8D 20 32 34 30 3A 5A |16:. 220:. 240:Z|
00000D70: B2 56 3A 8D 20 32 34 30 3A 8D 20 32 36 30 00 AD |.V:. 240:. 260..|
00000D80: 15 2E 04 98 34 2C C9 28 22 20 20 20 20 22 AA C4 |....4,.(" "..|
00000D90: 28 5A AA 28 32 35 36 AC 56 29 29 2C 34 29 3B 22 |(Z.(256.V)),4);"|
00000DA0: 20 20 22 3B 53 24 3B 22 20 20 20 22 3B 00 C6 15 | ";S$;" ";...|
00000DB0: 38 04 8B 20 46 54 B2 31 32 39 20 A7 20 98 34 2C |8.. FT.129 . .4,|
00000DC0: 22 53 45 51 22 3B 00 DF 15 42 04 8B 20 46 54 B2 |"SEQ";...B.. FT.|
00000DD0: 31 33 30 20 A7 20 98 34 2C 22 50 47 4D 22 3B 00 |130 . .4,"PGM";.|
00000DE0: F8 15 4C 04 8B 20 46 54 B2 31 33 31 20 A7 20 98 |..L.. FT.131 . .|
00000DF0: 34 2C 22 55 53 52 22 3B 00 11 16 56 04 8B 20 46 |4,"USR";...V.. F|
00000E00: 54 B2 31 33 32 20 A7 20 98 34 2C 22 52 45 4C 22 |T.132 . .4,"REL"|
00000E10: 3B 00 2F 16 60 04 98 34 3A A1 20 43 24 3A 8B 20 |;./.`..4:. C$:. |
00000E20: 43 24 B3 B1 22 22 20 A7 20 8D 20 32 31 32 30 00 |C$.."" . . 2120.|
00000E30: 43 16 6A 04 8B 20 43 24 B2 22 51 22 20 A7 20 31 |C.j.. C$."Q" . 1|
00000E40: 31 37 30 00 5B 16 74 04 4E 46 B2 4E 46 AA 31 3A |170.[.t.NF.NF.1:|
00000E50: 8B 20 53 53 B2 30 A7 31 30 36 30 00 7E 16 7E 04 |. SS.0.1060.~.~.|
00000E60: 98 34 3A 98 34 2C 52 56 24 3B 22 23 46 49 4C 45 |.4:.4,RV$;"#FILE|
00000E70: 53 3A 22 3B 52 46 24 3B 22 20 22 3B 4E 46 00 99 |S:";RF$;" ";NF..|
00000E80: 16 88 04 8B 20 50 44 B2 33 20 A7 20 8D 20 32 31 |.... PD.3 . . 21|
00000E90: 35 30 3A 8D 20 32 31 31 30 00 AA 16 92 04 A0 20 |50:. 2110...... |
00000EA0: 34 3A A0 35 3A 89 20 39 38 30 00 DA 16 9C 04 99 |4:.5:. 980......|
00000EB0: 48 43 24 3B 22 54 4F 20 44 45 4C 45 54 45 20 44 |HC$;"TO DELETE D|
00000EC0: 49 53 4B 20 46 52 4F 4D 20 4D 41 53 54 45 52 20 |ISK FROM MASTER |
00000ED0: 44 49 52 45 43 54 4F 52 59 22 00 F5 16 A6 04 8D |DIRECTORY"......|
00000EE0: 20 31 38 37 30 3A 91 20 56 20 89 20 31 32 34 30 | 1870:. V . 1240|
00000EF0: 2C 31 31 38 30 00 04 17 B0 04 98 31 35 2C 22 53 |,1180......15,"S|
00000F00: 22 AA 53 24 00 32 17 BA 04 43 58 B2 30 3A 81 20 |".S$.2...CX.0:. |
00000F10: 58 B2 30 20 A4 20 4E 58 AB 31 3A 8B 20 C8 28 58 |X.0 . NX.1:. .(X|
00000F20: 24 28 58 29 2C 32 29 B2 44 49 24 20 A7 20 43 58 |$(X),2).DI$ . CX|
00000F30: B2 31 00 4B 17 C4 04 8B 20 43 58 20 A7 20 58 24 |.1.K.... CX . X$|
00000F40: 28 58 29 B2 58 24 28 58 AA 31 29 00 62 17 CE 04 |(X).X$(X.1).b...|
00000F50: 82 20 58 3A 4E 58 B2 4E 58 AB 31 3A 89 20 31 31 |. X:NX.NX.1:. 11|
00000F60: 38 30 00 73 17 D8 04 8D 20 32 32 39 30 3A 89 20 |80.s.... 2290:. |
00000F70: 32 39 30 00 8C 17 E2 04 8B 20 4E 58 B2 30 A7 20 |290...... NX.0. |
00000F80: 8D 20 31 38 38 30 3A 89 20 32 39 30 00 9B 17 EC |. 1880:. 290....|
00000F90: 04 A0 20 34 3A 8D 20 32 31 34 30 00 CA 17 F6 04 |.. 4:. 2140.....|
00000FA0: 99 20 A6 35 29 3B 22 30 20 2D 20 52 45 54 55 52 |. .5);"0 - RETUR|
00000FB0: 4E 20 54 4F 20 4D 41 49 4E 20 46 55 4E 43 54 49 |N TO MAIN FUNCTI|
00000FC0: 4F 4E 20 4D 45 4E 55 22 3A 99 00 F6 17 00 05 99 |ON MENU":.......|
00000FD0: A6 35 29 3B 22 31 20 2D 20 50 52 49 4E 54 20 46 |.5);"1 - PRINT F|
00000FE0: 55 4C 4C 20 49 44 20 55 53 45 41 47 45 20 43 48 |ULL ID USEAGE CH|
00000FF0: 41 52 54 22 3A 99 00 21 18 0A 05 99 A6 35 29 3B |ART":..!.....5);|
00001000: 22 32 20 2D 20 51 55 49 43 4B 20 4C 49 53 54 20 |"2 - QUICK LIST |
00001010: 4F 46 20 49 44 27 53 20 49 4E 20 55 53 45 22 3A |OF ID'S IN USE":|
00001020: 99 00 49 18 14 05 99 A6 35 29 3B 22 33 20 2D 20 |..I.....5);"3 - |
00001030: 4C 49 53 54 20 44 49 53 4B 20 49 44 27 53 20 26 |LIST DISK ID'S &|
00001040: 20 4E 41 4D 45 53 22 3A 99 00 85 18 1E 05 99 A6 | NAMES":........|
00001050: 35 29 3B 22 34 20 2D 20 4C 49 53 54 22 3B 52 56 |5);"4 - LIST";RV|
00001060: 24 3B 22 4D 49 4E 22 3B 52 46 24 3B 22 20 46 52 |$;"MIN";RF$;" FR|
00001070: 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 49 |EE BLOCKS PER DI|
00001080: 53 4B 22 3A 99 00 C1 18 28 05 99 20 A6 35 29 3B |SK":....(.. .5);|
00001090: 22 35 20 2D 20 4C 49 53 54 20 22 3B 52 56 24 3B |"5 - LIST ";RV$;|
000010A0: 22 4D 41 58 22 3B 52 46 24 3B 22 20 46 52 45 45 |"MAX";RF$;" FREE|
000010B0: 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 49 53 4B | BLOCKS PER DISK|
000010C0: 22 00 EA 18 32 05 8D 20 32 31 35 30 3A 99 22 45 |"...2.. 2150:."E|
000010D0: 4E 54 45 52 20 44 45 53 49 52 45 44 20 46 55 4E |NTER DESIRED FUN|
000010E0: 43 54 49 4F 4E 3A 20 20 22 3B 00 04 19 3C 05 8D |CTION: ";...<..|
000010F0: 20 32 31 32 30 3A 8B 20 43 24 B2 22 30 22 20 A7 | 2120:. C$."0" .|
00001100: 20 32 39 30 00 23 19 46 05 56 B2 C5 28 43 24 29 | 290.#.F.V..(C$)|
00001110: 3A 8B 20 56 B3 31 20 B0 20 56 B1 35 20 A7 20 31 |:. V.1 . V.5 . 1|
00001120: 33 34 30 00 4B 19 50 05 99 20 43 24 3A 91 20 56 |340.K.P.. C$:. V|
00001130: 20 89 20 31 33 37 30 2C 31 35 35 30 2C 31 36 32 | . 1370,1550,162|
00001140: 30 2C 32 34 35 30 2C 32 34 39 30 00 55 19 5A 05 |0,2450,2490.U.Z.|
00001150: 9F 20 34 2C 34 00 94 19 64 05 98 34 2C 22 22 A6 |. 4,4...d..4,"".|
00001160: 31 35 29 3B 52 56 24 3B 22 20 20 44 20 49 20 53 |15);RV$;" D I S|
00001170: 20 4B 20 20 20 49 44 20 20 20 55 20 53 20 45 20 | K ID U S E |
00001180: 41 20 47 20 45 20 20 20 43 20 48 20 41 20 52 20 |A G E C H A R |
00001190: 54 20 20 22 00 A4 19 6E 05 98 34 3A 20 98 34 2C |T "...n..4: .4,|
000011A0: 22 20 22 3B 00 C2 19 78 05 81 20 58 B2 34 38 20 |" ";...x.. X.48 |
000011B0: A4 20 39 30 3A 8B 20 58 B2 35 38 20 A7 20 58 B2 |. 90:. X.58 . X.|
000011C0: 36 35 00 DA 19 82 05 98 34 2C 22 20 22 3B C7 28 |65......4," ";.(|
000011D0: 58 29 3B 3A 82 20 58 3A 98 34 00 FC 19 8C 05 5A |X);:. X:.4.....Z|
000011E0: B2 30 3A 81 20 58 B2 34 38 20 A4 20 39 30 3A 8B |.0:. X.48 . 90:.|
000011F0: 20 58 B2 35 38 20 A7 20 58 B2 36 35 00 38 1A 96 | X.58 . X.65.8..|
00001200: 05 98 34 2C 22 20 DB C0 DB C0 DB C0 DB C0 DB C0 |..4," ..........|
00001210: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001220: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001230: DB C0 DB C0 DB C0 DB 22 00 4D 1A A0 05 98 34 2C |.......".M....4,|
00001240: 22 C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 00 5A 1A |".............Z.|
00001250: AA 05 98 34 2C C7 28 58 29 3B 00 78 1A B4 05 81 |...4,.(X);.x....|
00001260: 20 59 B2 34 38 20 A4 20 39 30 3A 8B 20 59 B2 35 | Y.48 . 90:. Y.5|
00001270: 38 20 A7 20 59 B2 36 35 00 95 1A BE 05 98 34 2C |8 . Y.65......4,|
00001280: C7 28 32 32 31 29 3B 3A 8B 20 5A B2 4E 58 20 A7 |.(221);:. Z.NX .|
00001290: 20 31 35 30 30 00 B4 1A C8 05 43 24 B2 C7 28 58 | 1500.....C$..(X|
000012A0: 29 AA C7 28 59 29 3A 53 24 B2 C8 28 58 24 28 5A |)..(Y):S$..(X$(Z|
000012B0: 29 2C 32 29 00 DA 1A D2 05 8B 20 53 24 B2 43 24 |),2)...... S$.C$|
000012C0: 20 A7 20 98 34 2C C7 28 31 36 36 29 3B 3A 5A B2 | . .4,.(166);:Z.|
000012D0: 5A AA 31 3A 89 20 31 35 31 30 00 E6 1A DC 05 98 |Z.1:. 1510......|
000012E0: 34 2C 22 20 22 3B 00 0F 1B E6 05 82 20 59 3A 98 |4," ";...... Y:.|
000012F0: 34 2C C7 28 32 32 31 29 3A A1 20 43 24 3A 8B 20 |4,.(221):. C$:. |
00001300: 43 24 B3 B1 22 22 20 A7 20 8D 20 32 31 32 30 00 |C$.."" . . 2120.|
00001310: 23 1B F0 05 8B 20 43 24 B3 B1 22 51 22 20 A7 20 |#.... C$.."Q" . |
00001320: 82 20 58 00 60 1B FA 05 98 34 2C 22 20 B1 C0 B1 |. X.`....4," ...|
00001330: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
00001340: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
00001350: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 22 3B |..............";|
00001360: 00 7D 1B 04 06 98 34 2C 22 C0 B1 C0 B1 C0 B1 C0 |.}....4,".......|
00001370: B1 C0 B1 C0 BD 22 3A 89 20 31 32 36 30 00 AF 1B |.....":. 1260...|
00001380: 0E 06 8D 20 32 30 37 30 3A 98 34 2C 22 22 A6 37 |... 2070:.4,"".7|
00001390: 29 3B 22 12 44 49 53 4B 20 49 44 27 53 20 43 55 |);".DISK ID'S CU|
000013A0: 52 52 45 4E 54 4C 59 20 49 4E 20 55 53 45 22 00 |RRENTLY IN USE".|
000013B0: B9 1B 18 06 98 34 3A 98 34 00 D0 1B 22 06 56 B2 |.....4:.4...".V.|
000013C0: 31 32 3A 8B 20 50 44 B2 34 20 A7 20 56 B2 32 35 |12:. PD.4 . V.25|
000013D0: 00 F7 1B 2C 06 5A B2 30 3A 81 20 58 B2 30 A4 20 |...,.Z.0:. X.0. |
000013E0: 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C |NX.1:.4,.(X$(X),|
000013F0: 32 29 3B 22 20 22 3B 00 13 1C 36 06 5A B2 5A AA |2);" ";...6.Z.Z.|
00001400: 31 3A 8B 20 5A B2 B5 28 5A AD 56 29 AC 56 20 A7 |1:. Z..(Z.V).V .|
00001410: 20 98 34 00 35 1C 40 06 82 20 58 3A 98 34 3A 98 | .4.5.@.. X:.4:.|
00001420: 34 3A 8B 20 5A B3 B1 B5 20 28 5A AD 56 29 AC 56 |4:. Z... (Z.V).V|
00001430: 20 A7 20 98 34 00 65 1C 4A 06 98 34 2C 5A 3B 52 | . .4.e.J..4,Z;R|
00001440: 56 24 3B 22 44 49 53 4B 53 20 49 4E 20 4D 41 53 |V$;"DISKS IN MAS|
00001450: 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 3A 89 |TER DIRECTORY":.|
00001460: 20 31 36 37 30 00 91 1C 54 06 8D 20 32 30 37 30 | 1670...T.. 2070|
00001470: 3A 98 34 2C 52 56 24 3B 22 49 44 20 20 2E 2E 2E |:.4,RV$;"ID ...|
00001480: 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 |DISK NAME....":.|
00001490: 34 00 C0 1C 5E 06 81 20 58 B2 30 20 A4 20 4E 58 |4...^.. X.0 . NX|
000014A0: AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C 32 29 |.1:.4,.(X$(X),2)|
000014B0: 3B 22 20 20 22 3B CA 28 58 24 28 58 29 2C 33 29 |;" ";.(X$(X),3)|
000014C0: 00 DA 1C 68 06 A1 20 43 24 3A 8B 20 43 24 B3 B1 |...h.. C$:. C$..|
000014D0: 22 22 A7 20 8D 20 32 31 32 30 00 EE 1C 72 06 8B |"". . 2120...r..|
000014E0: 20 43 24 B2 22 51 22 20 A7 20 31 32 36 30 00 F6 | C$."Q" . 1260..|
000014F0: 1C 7C 06 82 20 58 00 08 1D 86 06 8B 20 50 44 B2 |.|.. X...... PD.|
00001500: 34 20 A7 20 31 32 36 30 00 21 1D 90 06 8D 20 32 |4 . 1260.!.... 2|
00001510: 31 35 30 3A 8D 20 32 31 31 30 3A 89 20 31 32 36 |150:. 2110:. 126|
00001520: 30 00 3B 1D 9A 06 8B 20 4E 58 B2 30 20 A7 20 8D |0.;.... NX.0 . .|
00001530: 20 31 38 38 30 3A 89 20 32 39 30 00 6F 1D A4 06 | 1880:. 290.o...|
00001540: A0 20 34 3A 99 20 48 43 24 3B 22 54 4F 20 46 49 |. 4:. HC$;"TO FI|
00001550: 4E 44 20 57 48 41 54 20 44 49 53 4B 28 53 29 20 |ND WHAT DISK(S) |
00001560: 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 3A 99 00 |A FILE IS ON":..|
00001570: AC 1D AE 06 99 22 45 4E 54 45 52 20 46 49 4C 45 |....."ENTER FILE|
00001580: 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B 43 | NAME .";CL$;C|
00001590: 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 3A 20 8B 20 |L$;CL$;:. F$: . |
000015A0: 46 24 B2 22 2E 22 20 A7 20 32 39 30 00 CC 1D B8 |F$."." . 290....|
000015B0: 06 8B 20 46 24 B2 22 2A 22 20 A7 20 99 3A 99 22 |.. F$."*" . .:."|
000015C0: 52 45 2D 22 3B 3A 89 20 31 37 31 30 00 E8 1D C2 |RE-";:. 1710....|
000015D0: 06 53 24 B2 46 24 3A 8D 20 32 30 34 30 3A 56 B2 |.S$.F$:. 2040:V.|
000015E0: 59 3A 8D 20 32 30 37 30 00 1F 1E CC 06 98 34 2C |Y:. 2070......4,|
000015F0: 52 56 24 3B 22 2E 2E 2E 46 49 4C 45 20 4E 41 4D |RV$;"...FILE NAM|
00001600: 45 2E 2E 2E 2E 20 20 49 44 20 20 2E 2E 2E 44 49 |E.... ID ...DI|
00001610: 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 34 00 |SK NAME....":.4.|
00001620: 2C 1E D6 06 98 34 2C 53 24 3A 98 34 00 5B 1E E0 |,....4,S$:.4.[..|
00001630: 06 81 20 5A B2 30 20 A4 20 4E 58 AB 31 3A 44 49 |.. Z.0 . NX.1:DI|
00001640: 24 B2 C8 28 58 24 28 5A 29 2C 32 29 3A 44 4E 24 |$..(X$(Z),2):DN$|
00001650: B2 CA 28 58 24 28 5A 29 2C 33 29 00 94 1E EA 06 |..(X$(Z),3).....|
00001660: 8D 20 32 30 33 30 3A 9F 20 35 2C 38 2C 35 2C 53 |. 2030:. 5,8,5,S|
00001670: 24 AA 22 2C 53 2C 52 22 3A 45 46 B2 31 35 3A 8D |$.",S,R":EF.15:.|
00001680: 20 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D | 270:.5,DF$,NB:.|
00001690: 20 32 37 30 00 B3 1E F4 06 8D 20 32 36 30 3A 59 | 270...... 260:Y|
000016A0: B2 31 36 3A 8D 20 32 32 30 3A 59 B2 33 3A 8D 20 |.16:. 220:Y.3:. |
000016B0: 32 33 30 00 CD 1E FE 06 8B 20 46 24 20 B3 20 C8 |230...... F$ . .|
000016C0: 28 53 24 2C 56 29 20 A7 20 31 38 34 30 00 0A 1F |(S$,V) . 1840...|
000016D0: 08 07 8B 20 46 24 B2 C8 28 53 24 2C 56 29 20 A7 |... F$..(S$,V) .|
000016E0: 20 98 34 2C 53 24 3B 22 20 20 22 3B 44 49 24 3B | .4,S$;" ";DI$;|
000016F0: 22 20 20 22 3B 44 4E 24 3A 20 8F 20 3C 2D 20 32 |" ";DN$: . <- 2|
00001700: 20 53 50 41 43 45 53 20 45 41 00 25 1F 12 07 A1 | SPACES EA.%....|
00001710: 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 8D | C$:. C$.."" . .|
00001720: 20 32 31 32 30 00 3F 1F 1C 07 8B 20 43 24 B2 22 | 2120.?.... C$."|
00001730: 51 22 20 A7 20 A0 20 35 3A 89 20 31 37 30 30 00 |Q" . . 5:. 1700.|
00001740: 51 1F 26 07 8B 20 53 53 B2 30 20 A7 20 31 37 38 |Q.&.. SS.0 . 178|
00001750: 30 00 5D 1F 30 07 A0 20 35 3A 82 20 5A 00 78 1F |0.].0.. 5:. Z.x.|
00001760: 3A 07 8B 20 50 44 B2 33 20 A7 20 8D 20 32 31 35 |:.. PD.3 . . 215|
00001770: 30 3A 8D 20 32 31 31 30 00 83 1F 44 07 89 20 31 |0:. 2110...D.. 1|
00001780: 37 30 30 00 99 1F 4E 07 56 B2 33 3A 8B 20 4E 58 |700...N.V.3:. NX|
00001790: B1 30 20 A7 20 31 38 39 30 00 C0 1F 58 07 99 20 |.0 . 1890...X.. |
000017A0: 48 43 24 3B 52 56 24 3B 22 4E 4F 20 45 4E 54 52 |HC$;RV$;"NO ENTR|
000017B0: 49 45 53 22 3B 3A 56 B2 31 3A 89 20 32 30 31 30 |IES";:V.1:. 2010|
000017C0: 00 EF 1F 62 07 99 3A 99 20 22 45 4E 54 45 52 20 |...b..:. "ENTER |
000017D0: 44 49 53 4B 20 49 44 20 20 20 2E 22 3B 43 4C 24 |DISK ID .";CL$|
000017E0: 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 44 49 24 00 |;CL$;CL$;:. DI$.|
000017F0: 17 20 6C 07 44 49 24 B2 C8 28 44 49 24 AA 22 20 |. l.DI$..(DI$." |
00001800: 20 22 2C 32 29 3A 8B 20 44 49 24 B2 22 2E 20 22 | ",2):. DI$.". "|
00001810: 20 A7 20 31 39 35 30 00 47 20 76 07 81 20 58 B2 | . 1950.G v.. X.|
00001820: 30 20 A4 20 4E 58 AB 31 3A 8B 20 44 49 24 B3 B1 |0 . NX.1:. DI$..|
00001830: C8 28 58 24 28 58 29 2C 32 29 20 A7 20 82 20 58 |.(X$(X),2) . . X|
00001840: 3A 89 20 32 30 30 30 00 69 20 80 07 44 4E 24 B2 |:. 2000.i ..DN$.|
00001850: CA 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 |.(X$(X),3):DI$..|
00001860: 28 58 24 28 58 29 2C 32 29 00 85 20 8A 07 8D 20 |(X$(X),2).. ... |
00001870: 32 31 36 30 3A 8B 20 43 24 B2 22 4E 22 20 A7 20 |2160:. C$."N" . |
00001880: 56 B2 32 3A 8E 00 90 20 94 07 89 20 32 30 33 30 |V.2:... ... 2030|
00001890: 00 BF 20 9E 07 99 3A 99 22 45 4E 54 45 52 20 44 |.. ...:."ENTER D|
000018A0: 49 53 4B 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C |ISK NAME .";CL|
000018B0: 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 00 |$;CL$;CL$;:. F$.|
000018C0: D4 20 A8 07 8B 20 46 24 B2 22 2E 22 20 A7 20 56 |. ... F$."." . V|
000018D0: B2 31 3A 8E 00 F8 20 B2 07 8D 20 32 30 34 30 3A |.1:... ... 2040:|
000018E0: 81 20 58 B2 30 20 A4 20 4E 58 AB 31 3A 8B 20 59 |. X.0 . NX.1:. Y|
000018F0: B2 30 20 A7 32 30 32 30 00 15 21 BC 07 8B 20 46 |.0 .2020..!... F|
00001900: 24 B2 CA 28 58 24 28 58 29 2C 33 2C 59 29 20 A7 |$..(X$(X),3,Y) .|
00001910: 20 32 30 32 30 00 1D 21 C6 07 82 20 58 00 34 21 | 2020..!... X.4!|
00001920: D0 07 99 3A 99 20 52 56 24 3B 22 4E 4F 54 22 3B |...:. RV$;"NOT";|
00001930: 3A 56 B2 32 00 5F 21 DA 07 99 22 20 49 4E 20 4D |:V.2._!..." IN M|
00001940: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 21 |ASTER DIRECTORY!|
00001950: 22 3A 8D 20 32 31 35 30 3A 89 20 32 31 31 30 00 |":. 2150:. 2110.|
00001960: 96 21 E4 07 44 4E 24 B2 CA 28 58 24 28 58 29 2C |.!..DN$..(X$(X),|
00001970: 33 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 |3):DI$..(X$(X),2|
00001980: 29 3A 8D 20 32 31 36 30 3A 8B 20 43 24 B2 22 4E |):. 2160:. C$."N|
00001990: 22 A7 31 39 39 30 00 AC 21 EE 07 53 24 B2 22 30 |".1990..!..S$."0|
000019A0: 3A 44 49 52 2E 22 AA 44 49 24 3A 8E 00 BC 21 F8 |:DIR.".DI$:...!.|
000019B0: 07 46 24 B2 C8 28 46 24 2C 31 36 29 00 E6 21 02 |.F$..(F$,16)..!.|
000019C0: 08 8B 20 C9 28 46 24 2C 31 29 B2 22 2A 22 A7 20 |.. .(F$,1)."*". |
000019D0: 59 B2 C3 28 46 24 29 AB 31 3A 46 24 B2 C8 28 46 |Y..(F$).1:F$..(F|
000019E0: 24 2C 59 29 3A 8E 00 10 22 0C 08 59 B2 31 36 3A |$,Y):..."..Y.16:|
000019F0: 46 24 B2 C8 28 46 24 AA 22 20 20 20 20 20 20 20 |F$..(F$." |
00001A00: 20 20 20 20 20 20 20 20 20 22 2C 31 36 29 3A 8E | ",16):.|
00001A10: 00 3F 22 16 08 8D 20 32 31 35 30 3A 99 22 57 41 |.?"... 2150:."WA|
00001A20: 4E 54 20 50 52 49 4E 54 45 44 20 43 4F 50 59 22 |NT PRINTED COPY"|
00001A30: 3B 3A 8D 20 32 31 39 30 3A 8D 20 32 31 35 30 00 |;:. 2190:. 2150.|
00001A40: 58 22 20 08 50 44 B2 33 3A 8B 20 43 24 B2 22 59 |X" .PD.3:. C$."Y|
00001A50: 22 20 A7 20 50 44 B2 34 00 73 22 2A 08 9F 20 34 |" . PD.4.s"*.. 4|
00001A60: 2C 50 44 3A 8B 20 50 44 B2 33 20 A7 20 99 20 48 |,PD:. PD.3 . . H|
00001A70: 43 24 3B 00 79 22 34 08 8E 00 9C 22 3E 08 99 22 |C$;.y"4....">.."|
00001A80: 44 45 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |DEPRESS ANY KEY |
00001A90: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 B2 22 48 |TO CONTINUE".."H|
00001AA0: 08 A1 20 43 24 3A 8B 20 43 24 B2 22 22 A7 32 31 |.. C$:. C$."".21|
00001AB0: 32 30 00 B8 22 52 08 8E 00 E1 22 5C 08 99 20 48 |20.."R...."\.. H|
00001AC0: 43 24 3B A6 39 29 3B 52 56 24 3B 22 44 20 49 20 |C$;.9);RV$;"D I |
00001AD0: 53 20 4B 20 20 4D 20 41 20 53 20 54 20 45 20 52 |S K M A S T E R|
00001AE0: 22 00 14 23 66 08 99 3A 99 22 2D 2D 2D 2D 2D 2D |"..#f..:."------|
00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B10: 2D 22 3A 8E 00 3D 23 70 08 99 48 43 24 3B 52 56 |-":..=#p..HC$;RV|
00001B20: 24 3B 22 44 49 53 4B 20 4E 41 4D 45 3A 22 3B 52 |$;"DISK NAME:";R|
00001B30: 46 24 3B 22 20 20 22 3B 44 4E 24 3A 99 00 6A 23 |F$;" ";DN$:..j#|
00001B40: 7A 08 99 22 20 20 22 3B 52 56 24 3B 22 44 49 53 |z.." ";RV$;"DIS|
00001B50: 4B 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 22 3B |K ID:";RF$;" ";|
00001B60: 44 49 24 3A 8D 20 32 31 35 30 00 7F 23 84 08 99 |DI$:. 2150..#...|
00001B70: 22 43 4F 52 52 45 43 54 20 44 49 53 4B 22 3B 00 |"CORRECT DISK";.|
00001B80: 92 23 8E 08 99 22 20 28 59 2F 4E 29 20 3F 20 20 |.#..." (Y/N) ? |
00001B90: 22 3B 00 B8 23 98 08 8D 20 32 31 32 30 3A 8B 20 |";..#... 2120:. |
00001BA0: 43 24 B3 B1 22 59 22 20 AF 20 43 24 B3 B1 22 4E |C$.."Y" . C$.."N|
00001BB0: 22 20 A7 20 32 32 30 30 00 C2 23 A2 08 99 43 24 |" . 2200..#...C$|
00001BC0: 3A 8E 00 E2 23 AC 08 84 31 35 2C 45 4E 2C 45 4D |:...#...15,EN,EM|
00001BD0: 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 |$,ET,ES:. EN.0 .|
00001BE0: 20 8E 00 0D 24 B6 08 99 20 48 43 24 3B 52 56 24 | ...$... HC$;RV$|
00001BF0: 3B 22 44 49 53 4B 20 45 52 52 4F 52 22 3B 52 46 |;"DISK ERROR";RF|
00001C00: 24 3B 22 20 57 48 49 4C 45 20 20 22 3B 00 27 24 |$;" WHILE ";.'$|
00001C10: C0 08 8B 20 43 58 20 A7 20 99 22 57 52 49 54 49 |... CX . ."WRITI|
00001C20: 4E 47 20 4E 45 57 22 00 3F 24 CA 08 8B 20 43 58 |NG NEW".?$... CX|
00001C30: B2 30 20 A7 20 99 22 52 45 41 44 49 4E 47 22 00 |.0 . ."READING".|
00001C40: 6F 24 D4 08 99 3A 99 22 44 49 53 4B 20 44 49 52 |o$...:."DISK DIR|
00001C50: 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 |ECTORY CROSS REF|
00001C60: 45 52 45 4E 43 45 20 46 49 4C 45 2E 22 3A 99 00 |ERENCE FILE.":..|
00001C70: 82 24 DE 08 99 20 45 4E 3B 45 4D 24 3B 45 54 3B |.$... EN;EM$;ET;|
00001C80: 45 53 00 A8 24 E8 08 99 3A 99 20 52 56 24 3B 22 |ES..$...:. RV$;"|
00001C90: 50 52 4F 47 52 41 4D 20 41 42 4F 52 54 45 44 21 |PROGRAM ABORTED!|
00001CA0: 22 3A 89 20 32 33 38 30 00 B7 24 F2 08 8B 20 43 |":. 2380..$... C|
00001CB0: 58 B2 30 20 A7 20 8E 00 EE 24 FC 08 8D 20 32 31 |X.0 . ...$... 21|
00001CC0: 35 30 3A 99 22 55 50 44 41 54 49 4E 47 20 44 49 |50:."UPDATING DI|
00001CD0: 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 |RECTORY CROSS RE|
00001CE0: 46 45 52 45 4E 43 45 20 2E 2E 2E 22 3A 99 00 14 |FERENCE ...":...|
00001CF0: 25 06 09 8B 20 4E 58 B2 30 20 A7 20 98 31 35 2C |%... NX.0 . .15,|
00001D00: 22 53 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 |"S0:DISK DIR XRE|
00001D10: 46 22 3A 8E 00 2F 25 10 09 98 31 35 2C 22 53 30 |F":../%...15,"S0|
00001D20: 3A 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 00 |:DIR XREF.TEMP".|
00001D30: 58 25 1A 09 9F 20 35 2C 38 2C 35 2C 22 30 3A 44 |X%... 5,8,5,"0:D|
00001D40: 49 52 20 58 52 45 46 2E 54 45 4D 50 2C 53 2C 57 |IR XREF.TEMP,S,W|
00001D50: 22 3A 8D 20 32 32 32 30 00 82 25 24 09 81 20 58 |":. 2220..%$.. X|
00001D60: B2 30 20 A4 20 4E 58 AB 31 3A 98 35 2C 58 24 28 |.0 . NX.1:.5,X$(|
00001D70: 58 29 3B 43 52 24 3B 3A 8D 20 32 32 32 30 3A 82 |X);CR$;:. 2220:.|
00001D80: 20 58 00 A1 25 2E 09 A0 20 35 3A 98 31 35 2C 22 | X..%... 5:.15,"|
00001D90: 53 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 |S0:DISK DIR XREF|
00001DA0: 22 00 D3 25 38 09 98 31 35 2C 22 52 30 3A 44 49 |"..%8..15,"R0:DI|
00001DB0: 53 4B 20 44 49 52 20 58 52 45 46 3D 30 3A 44 49 |SK DIR XREF=0:DI|
00001DC0: 52 20 58 52 45 46 2E 54 45 4D 50 22 3A 8D 20 32 |R XREF.TEMP":. 2|
00001DD0: 32 32 30 00 D9 25 42 09 8E 00 EC 25 4C 09 A0 20 |220..%B....%L.. |
00001DE0: 34 3A A0 20 35 3A A0 20 31 35 3A 80 00 F7 25 56 |4:. 5:. 15:...%V|
00001DF0: 09 99 20 48 43 24 3B 00 1F 26 60 09 A0 20 31 35 |.. HC$;..&`.. 15|
00001E00: 3A 99 22 49 4E 53 45 52 54 20 4D 41 53 54 45 52 |:."INSERT MASTER|
00001E10: 20 44 49 53 4B 22 3A 99 3A 8D 20 32 31 31 30 00 | DISK":.:. 2110.|
00001E20: 38 26 6A 09 9F 20 31 35 2C 38 2C 31 35 2C 22 49 |8&j.. 15,8,15,"I|
00001E30: 30 22 3A 8D 20 32 37 30 00 5F 26 74 09 98 31 35 |0":. 270._&t..15|
00001E40: 2C 22 43 30 3A 44 49 53 4B 20 4D 41 53 54 45 52 |,"C0:DISK MASTER|
00001E50: 3D 30 3A 44 49 53 4B 20 4D 41 53 54 45 52 22 00 |=0:DISK MASTER".|
00001E60: 77 26 7E 09 84 31 35 2C 45 4E 3A 20 8B 20 45 4E |w&~..15,EN: . EN|
00001E70: B2 36 33 20 A7 20 8E 00 A3 26 88 09 99 3A 99 20 |.63 . ...&...:. |
00001E80: 52 56 24 3B 22 49 4E 43 4F 52 52 45 43 54 20 44 |RV$;"INCORRECT D|
00001E90: 49 53 4B 21 22 3A 8D 20 32 31 35 30 3A 89 20 32 |ISK!":. 2150:. 2|
00001EA0: 34 30 30 00 D2 26 92 09 99 48 43 24 3B 22 45 4E |400..&...HC$;"EN|
00001EB0: 54 45 52 20 4D 49 4E 49 4D 55 4D 20 4E 55 4D 42 |TER MINIMUM NUMB|
00001EC0: 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B |ER OF FREE BLOCK|
00001ED0: 53 22 00 0D 27 9C 09 99 22 54 4F 20 42 45 20 44 |S"..'..."TO BE D|
00001EE0: 49 53 50 4C 41 59 45 44 20 20 20 30 22 3B 43 4C |ISPLAYED 0";CL|
00001EF0: 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 53 24 3A |$;CL$;CL$;:. S$:|
00001F00: 8F 20 2D 20 44 45 46 41 55 4C 54 3D 30 00 30 27 |. - DEFAULT=0.0'|
00001F10: A6 09 59 B2 C5 28 53 24 29 3A 8B 20 53 24 B3 B1 |..Y..(S$):. S$..|
00001F20: 22 30 22 20 AF 20 59 B2 30 20 A7 20 31 32 36 30 |"0" . Y.0 . 1260|
00001F30: 00 40 27 B0 09 56 46 B2 30 3A 89 20 32 35 33 30 |.@'..VF.0:. 2530|
00001F40: 00 70 27 BA 09 99 20 48 43 24 3B 22 45 4E 54 45 |.p'... HC$;"ENTE|
00001F50: 52 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 |R MAXIMUM NUMBER|
00001F60: 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 | OF FREE BLOCKS"|
00001F70: 00 A4 27 C4 09 99 3A 99 22 54 4F 20 42 45 20 44 |..'...:."TO BE D|
00001F80: 49 53 50 4C 41 59 45 44 20 20 20 39 39 22 3B 43 |ISPLAYED 99";C|
00001F90: 4C 24 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A |L$;CL$;CL$;CL$;:|
00001FA0: 85 20 53 24 00 BD 27 CE 09 59 B2 C5 28 53 24 29 |. S$..'..Y..(S$)|
00001FB0: 3A 8B 20 59 B2 30 20 A7 20 31 32 36 30 00 C6 27 |:. Y.0 . 1260..'|
00001FC0: D8 09 56 46 B2 31 00 FE 27 E2 09 8D 20 32 30 37 |..VF.1..'... 207|
00001FD0: 30 3A 98 34 2C 52 56 24 3B 22 23 42 4C 4B 53 20 |0:.4,RV$;"#BLKS |
00001FE0: 46 52 45 45 20 20 49 44 20 20 2E 2E 2E 44 49 53 |FREE ID ...DIS|
00001FF0: 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 34 00 2D |K NAME....":.4.-|
00002000: 28 EC 09 81 20 58 B2 30 20 A4 20 4E 58 AB 31 3A |(... X.0 . NX.1:|
00002010: 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 3A 44 |DI$..(X$(X),2):D|
00002020: 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 00 67 28 |N$..(X$(X),3).g(|
00002030: F6 09 9F 20 35 2C 38 2C 35 2C 22 30 3A 44 49 52 |... 5,8,5,"0:DIR|
00002040: 2E 22 AA 44 49 24 AA 22 2C 53 2C 52 22 3A 8D 20 |.".DI$.",S,R":. |
00002050: 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 20 |270:.5,DF$,NB:. |
00002060: 32 37 30 3A A0 20 35 00 82 28 00 0A 8B 28 56 46 |270:. 5..(...(VF|
00002070: B2 30 29 AF 20 28 4E 42 B3 59 29 20 A7 20 32 35 |.0). (NB.Y) . 25|
00002080: 39 30 00 9D 28 0A 0A 8B 28 56 46 B2 31 29 AF 20 |90..(...(VF.1). |
00002090: 28 4E 42 B1 59 29 20 A7 20 32 35 39 30 00 CA 28 |(NB.Y) . 2590..(|
000020A0: 14 0A 98 34 2C C9 28 22 20 20 20 20 20 20 20 22 |...4,.(" "|
000020B0: AA C4 28 4E 42 29 2C 37 29 3B A6 35 29 3B 44 49 |..(NB),7);.5);DI|
000020C0: 24 3B 22 20 20 22 3B 44 4E 24 00 E5 28 1E 0A A1 |$;" ";DN$..(...|
000020D0: 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 8D | C$:. C$.."" . .|
000020E0: 20 32 31 32 30 00 F9 28 28 0A 8B 20 43 24 B2 22 | 2120..((.. C$."|
000020F0: 51 22 20 A7 20 31 32 36 30 00 08 29 32 0A 82 20 |Q" . 1260..)2.. |
00002100: 58 3A 89 20 31 36 37 30 00 00 00 |X:. 1670... |
..%.... -------DISK MASTER-----------.+.
....I.... SINGLE VIC-1541 DISK.H.(..
ON COMMODORE-64 SYSTEM.N.2.....Z.. ---
--------------------------...D.:...N..:C
$."":S$.C$:X.0:Y.0...X.CR$.G(13):HC$.G(1
47):RV$.G(18):RF$.G(146):CL$.G(157).%...
. CR=CARRAIAGE RETURN, HC= HOME/CLEAR, R
V= REVERSE ON.N.... RF= REVERSE OFF, C
L= CURSER LEFT.K.... 2140:. D$(230),X$(2
30)... .." READING DIRECTORY CROSS REF
ERENCE"......15,8,15,"I0":. 2220.R.... 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.,.R.. 290.U..
.S$."":. X.1 . Y:. 260:S$.S$.C$:. X:..O.
...X.1 . Y:. 260:. X: ......V.0:. 260:.
C$.."". V.F(C$)....... ....#5,C$.F...SS.
ST:.15,EN,EM$,ET,ES:. EN.0 . .......HC$;
RV$;"DISK ERROR!":.:. 2270...". 4: 5:C
X.0:. 2140...,.. .5);"0 - DONE":..C.6..
.5);"1 - UPDATE MASTER DIRECTORY":..S.@.
. .5);"2 - DELETE DISK ENTRY FROM MASTER
":.. .J.. .5);"3 - DISPLAY SELECTED DIRE
CTORY":..F.T.. .5);"4 - FIND SPECIFIED F
ILE":....^.. .5);"5 - LIST DISK ID'S & N
AMES"...H.. 2150:."ENTER DESIRED FUNCTIO
N: ";.8.R.. 2120:. C$."0". . HC$:. 2380
.V.|.V.E(C$):. V.1 . V.5 . 370.W.... V .
400,1180,980,1690,1250..... 15:CX.0:.
HC$;"INSERT DISK TO BE CATALOGED"......:
."DEPRESS ANY KEY TO CONTINUE, ";RV$;"Q"
;RF$;" TO QUIT"...... 2120:. C$."Q" . .
2390:. 290./.... 2150:."OK":.15,8,15,"IO
":. 270.H....5,8,5,"$0,S,R":.270.].B.. 2
40: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.Z...Y.2:. 22
0:DI$.H(S$." ",2)...... 2160:. C$."N" .
970...... NX.0 . 630.3.... X.0 . NX.1:C
$.H(X$(X),2):. DI$.C$ . 630.L.... DI$..C
$. . X:. 630.G.... DN$.J(X$(X),3) . 630.
..&.. HC$;RV$;"*** WARNING ***";RF$;" T
HIS DISK ID: ";RV$;DI$;RF$.G.0..:."DISK
NAME: ";RV$;DN$...:..:."IS ALL READY CAT
ALOGED WITH A DIFFERENT".#.D..:."DISK NA
ME: ";RV$;J(X$(X),3):. 2150.O.N.."CATALO
GING THIS DISK WILL DELETE THE".N.X..:."
PREVIOUS DATA!":. 2150...B.."CATALOG THI
S DISK";:. 2190:. C$."N" . 970.M.L.. HC$
;"CATALOGING DISK WITH NEW DISK NAME"...
V.. 2150:."READING DIRECTORY ENTRIES ...
"...... 260:Y.2:. 220:DF$.S$:Y.89./....
VF.1 . DF$." 1".9.... 230.F...NF.0:Z.0.U
.... 240:FT.V.~...F$.C$:Y.2:. 230:Y.16:.
220:Y.9:. 230...... 240:S$.S$.G(V):. 24
0:. FT.0 . 770...F.. NF.0 . 740...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.B...D$(X).F$.S$.G(
V):NF.NF.1.M...Z.Z.1:Z.Z.(.(Z.8).8):. Z.
0 . Y.2:. 230..... NF.155. 840...... HC
$;.6);RV$;"*** DISK BAM IS INVALID ***";
RF$:. 2150... ..:." CURRENT DISK CANNO
T BE CATALOGED!":.:.:....*.." PLEASE VER
IFY OR CHECK DISK CONTENTS":..N.4.."BEFO
RE ATTEMPTING TO CATALOG THIS DISK.":..E
.>.. 2150:. 2110:.970.V.H.. SS.0 . 680..
.R. 5:. 2390:. 2150:."UPDATING MASTER D
IRECTORY ..."...\.. NX.0.910...F.. X.0.N
X.1:C$.H(X$(X),2):. DI$.C$.900...P.. DI$
.C$.930...Z.. X:.910.0.... Y.NX.1 .X ..1
:X$(Y.1).X$(Y):. Y :.920.9...X.NX.E...NX
.NX.1.\...X$(X).DI$.DN$:CX.1...... 2030:
.15,"S".S$:. 5,8,5,S$.",S,W":. 270......
5,DF$;",";NB;CR$;:. 270.V.... NF.0. . X.
1 . NF:.5,D$(X);CR$;:. 270:. X...J. 5:.
2290:.400.#.T..HC$;"TO DISPLAY DISK DIRE
CTORY":. 1870:. V . 290,980.U.... 5,8,5,
S$.",S,R":. 270:. 2070:.5,DF$,NB:.270...
...4," ";RV$;"DISK NAME:";RF$;" ";DN$:
.4......4,"".4);RV$;"DISK ID:";RF$;" ";
DI$;.6).X....4,RV$;"DISK FORMAT:";RF$;"
"DF$:.4......4,RV$;"BLOCKS FREE:";RF$;"
";NB:.4.7....4,"-----------------------
-------------------":.4.N...NF.0:. SS.0
. 1160.~.$.. 240:FT.V:Y.16:. 220:. 240:Z
.V:. 240:. 260......4,I(" ".D(Z.(256.
V)),4);" ";S$;" ";.F.8.. FT.129 . .4,
"SEQ";...B.. FT.130 . .4,"PGM";...L.. FT
.131 . .4,"USR";...V.. FT.132 . .4,"REL"
;./.`..4:. C$:. C$.."" . . 2120.C.J.. C$
."Q" . 1170.[.T.NF.NF.1:. SS.0.1060.~.~.
.4:.4,RV$;"#FILES:";RF$;" ";NF...... PD.
3 . . 2150:. 2110..... 4: 5:. 980.Z....
HC$;"TO DELETE DISK FROM MASTER DIRECTOR
Y"...... 1870:. V . 1240,1180......15,"S
".S$.2...CX.0:. X.0 . NX.1:. H(X$(X),2).
DI$ . CX.1.K.D.. CX . X$(X).X$(X.1).B.N.
. X:NX.NX.1:. 1180.S.X.. 2290:. 290.....
. NX.0. . 1880:. 290..... 4:. 2140.J...
. .5);"0 - RETURN TO MAIN FUNCTION MENU"
:........5);"1 - PRINT FULL ID USEAGE CH
ART":..!.....5);"2 - QUICK LIST OF ID'S
IN USE":..I.....5);"3 - LIST DISK ID'S &
NAMES":........5);"4 - LIST";RV$;"MIN";
RF$;" FREE BLOCKS PER DISK":..A.(.. .5);
"5 - LIST ";RV$;"MAX";RF$;" FREE BLOCKS
PER DISK"...2.. 2150:."ENTER DESIRED FUN
CTION: ";...<.. 2120:. C$."0" . 290.#.F
.V.E(C$):. V.1 . V.5 . 1340.K.P.. C$:. V
. 1370,1550,1620,2450,2490.U.Z.. 4,4...
D..4,"".15);RV$;" D I S K ID U S E
A G E C H A R T "...N..4: .4," ";.B.X
.. X.48 . 90:. X.58 . X.65.Z....4," ";G(
X);:. X:.4.....Z.0:. X.48 . 90:. X.58 .
X.65.8....4," ..........................
.......................".M. ..4,".......
......Z....4,G(X);.X.... Y.48 . 90:. Y.5
8 . Y.65......4,G(221);:. Z.NX . 1500...
H.C$.G(X).G(Y):S$.H(X$(Z),2).Z.R.. S$.C$
. .4,G(166);:Z.Z.1:. 1510......4," ";..
.... Y:.4,G(221):. C$:. C$.."" . . 2120.
#.... C$.."Q" . . X.`....4," ...........
......................................";
.}....4,"............":. 1260...... 2070
:.4,"".7);".DISK ID'S CURRENTLY IN USE".
.....4:.4.P.".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.5.@.. X:.4:.4:. Z...
(Z.V).V . .4.E.J..4,Z;RV$;"DISKS IN MAS
TER DIRECTORY":. 1670...T.. 2070:.4,RV$;
"ID ...DISK NAME....":.4...^.. X.0 . NX
.1:.4,H(X$(X),2);" ";J(X$(X),3).Z.H.. C
$:. C$.."". . 2120...R.. C$."Q" . 1260..
.|.. X...... PD.4 . 1260.!.... 2150:. 21
10:. 1260.;.... NX.0 . . 1880:. 290.O...
4:. HC$;"TO FIND WHAT DISK(S) A FILE I
S ON":......."ENTER FILE NAME .";CL$;C
L$;CL$;:. F$: . F$."." . 290.L.... F$."*
" . .:."RE-";:. 1710...B.S$.F$:. 2040:V.
Y:. 2070...L..4,RV$;"...FILE NAME.... I
D ...DISK NAME....":.4.,.V..4,S$:.4.[..
.. 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:. 22
0:Y.3:. 230.M.... F$ . H(S$,V) . 1840...
... F$.H(S$,V) . .4,S$;" ";DI$;" ";DN$
: . <- 2 SPACES EA.%.... C$:. C$.."" . .
2120.?.... C$."Q" . 5:. 1700.Q.&.. SS
.0 . 1780.].0. 5:. Z.X.:.. PD.3 . . 215
0:. 2110...D.. 1700...N.V.3:. NX.0 . 189
0...X.. HC$;RV$;"NO ENTRIES";:V.1:. 2010
...B..:. "ENTER DISK ID .";CL$;CL$;CL$
;:. DI$.. L.DI$.H(DI$." ",2):. DI$.". "
. 1950.G V.. X.0 . NX.1:. DI$..H(X$(X),
2) . . X:. 2000.I ..DN$.J(X$(X),3):DI$.H
(X$(X),2).. ... 2160:. C$."N" . V.2:...
... 2030.. ...:."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.4!P..:. RV
$;"NOT";:V.2._!Z.." IN MASTER DIRECTORY!
":. 2150:. 2110..!..DN$.J(X$(X),3):DI$.H
(X$(X),2):. 2160:. C$."N".1990..!..S$."0
:DIR.".DI$:...!..F$.H(F$,16)..!... I(F$,
1)."*". Y.C(F$).1:F$.H(F$,Y):..."..Y.16:
F$.H(F$." ",16):..?"... 2
150:."WANT PRINTED COPY";:. 2190:. 2150.
X" .PD.3:. C$."Y" . PD.4.S"*.. 4,PD:. PD
.3 . . HC$;.Y"4....">.."DEPRESS ANY KEY
TO CONTINUE".."H.. C$:. C$."".2120.."R..
.."\.. HC$;.9);RV$;"D I S K M A S T E R
"..#F..:."------------------------------
---------":..=#P..HC$;RV$;"DISK NAME:";R
F$;" ";DN$:..J#Z.." ";RV$;"DISK ID:";R
F$;" ";DI$:. 2150.#..."CORRECT DISK";.
.#..." (Y/N) ? ";..#... 2120:. C$.."Y"
. C$.."N" . 2200.B#...C$:...#...15,EN,EM
$,ET,ES:. EN.0 . ...$... HC$;RV$;"DISK E
RROR";RF$;" WHILE ";.'$... CX . ."WRITI
NG NEW".?$J.. CX.0 . ."READING".O$T..:."
DISK DIRECTORY CROSS REFERENCE FILE.":..
.$... EN;EM$;ET;ES..$...:. RV$;"PROGRAM
ABORTED!":. 2380..$... CX.0 . ...$... 21
50:."UPDATING DIRECTORY CROSS REFERENCE
...":...%... NX.0 . .15,"S0:DISK DIR XRE
F":../%...15,"S0:DIR XREF.TEMP".X%... 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".S%8..15,"R0:DI
SK DIR XREF=0:DIR XREF.TEMP":. 2220.Y%B.
...%L. 4: 5: 15:...%V.. HC$;..&`. 15
:."INSERT MASTER DISK":.:. 2110.8&J.. 15
,8,15,"I0":. 270._&T..15,"C0:DISK MASTER
=0:DISK MASTER".W&~..15,EN: . EN.63 . ..
.&...:. RV$;"INCORRECT DISK!":. 2150:. 2
400.R&...HC$;"ENTER MINIMUM NUMBER OF FR
EE BLOCKS"..'..."TO BE DISPLAYED 0";CL
$;CL$;CL$;:. S$:. - DEFAULT=0.0'..Y.E(S$
):. S$.."0" . Y.0 . 1260.@'..VF.0:. 2530
.P'... HC$;"ENTER MAXIMUM NUMBER OF FREE
BLOCKS"..'D..:."TO BE DISPLAYED 99";C
L$;CL$;CL$;CL$;:. S$..'N.Y.E(S$):. Y.0 .
1260.F'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).G(
... 5,8,5,"0:DIR.".DI$.",S,R":. 270:.5,D
F$,NB:. 270: 5..(...(VF.0). (NB.Y) . 25
90..(...(VF.1). (NB.Y) . 2590.J(...4,I("
".D(NB),7);.5);DI$;" ";DN$..(...
C$:. C$.."" . . 2120..((.. C$."Q" . 126
0..)2.. X:. 1670...
> CLICK IMAGE PREVIEW FOR FULL MODAL