DISK MASTER
FILE INFORMATION
FILENAME(S): DISK MASTER
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-12-02 00:02:02
APPEARS ON: 1 disk(s)
FILE HASH
7289b5b25e2712c5c97240868d0d4ea1f8eb43a6705da05d30ed3f7bdfe5aeb0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | DISK MASTER | PRG | earthshaker | 19 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |..'.... --------|
00000010: 2D 2D 20 44 49 53 4B 20 4D 41 53 54 45 52 20 2D |-- DISK MASTER -|
00000020: 2D 2D 2D 2D 2D 2D 2D 00 2D 08 14 00 8F 00 4D 08 |-------.-.....M.|
00000030: 1E 00 8F 20 20 20 20 20 20 53 49 4E 47 4C 45 20 |... SINGLE |
00000040: 56 49 43 2D 31 35 34 31 20 44 49 53 4B 00 6E 08 |VIC-1541 DISK.n.|
00000050: 28 00 8F 20 20 20 20 20 4F 4E 20 43 4F 4D 4D 4F |(.. ON COMMO|
00000060: 44 4F 52 45 2D 36 34 20 53 59 53 54 45 4D 00 74 |DORE-64 SYSTEM.t|
00000070: 08 32 00 8F 00 90 08 3C 00 8F 20 20 20 20 20 20 |.2.....<.. |
00000080: 20 20 20 20 45 44 57 49 4E 20 4D 55 4C 4C 45 52 | EDWIN MULLER|
00000090: 00 96 08 46 00 8F 00 9C 08 50 00 8F 00 C2 08 5A |...F.....P.....Z|
000000A0: 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.. -------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000C0: 2D 2D 00 C8 08 64 00 3A 00 E2 08 6E 00 9C 3A 43 |--...d.:...n..:C|
000000D0: 24 B2 22 22 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 |$."":S$.C$:X.0:Y|
000000E0: B2 30 00 1B 09 78 00 43 52 24 B2 C7 28 31 33 29 |.0...x.CR$..(13)|
000000F0: 3A 48 43 24 B2 C7 28 31 34 37 29 3A 52 56 24 B2 |:HC$..(147):RV$.|
00000100: C7 28 31 38 29 3A 52 46 24 B2 C7 28 31 34 36 29 |.(18):RF$..(146)|
00000110: 3A 43 4C 24 B2 C7 28 31 35 37 29 00 58 09 82 00 |:CL$..(157).X...|
00000120: 8F 20 43 52 20 3D 20 43 41 52 52 49 41 47 45 20 |. CR = CARRIAGE |
00000130: 52 45 54 55 52 4E 2C 20 48 43 20 3D 20 48 4F 4D |RETURN, HC = HOM|
00000140: 45 2F 43 4C 45 41 52 2C 20 52 56 20 3D 20 52 45 |E/CLEAR, RV = RE|
00000150: 56 45 52 53 45 20 4F 4E 00 85 09 8C 00 8F 20 52 |VERSE ON...... R|
00000160: 46 20 3D 20 52 45 56 45 52 53 45 20 4F 46 46 2C |F = REVERSE OFF,|
00000170: 20 20 20 20 20 43 4C 20 3D 20 43 55 52 53 45 52 | CL = CURSER|
00000180: 20 4C 45 46 54 00 A2 09 96 00 8D 20 32 31 34 30 | LEFT...... 2140|
00000190: 3A 86 20 44 24 28 32 33 30 29 2C 58 24 28 32 33 |:. D$(230),X$(23|
000001A0: 30 29 00 CE 09 A0 00 99 22 20 20 20 52 45 41 44 |0)......" READ|
000001B0: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 43 52 |ING DIRECTORY CR|
000001C0: 4F 53 53 20 52 45 46 45 52 45 4E 43 45 22 00 E7 |OSS REFERENCE"..|
000001D0: 09 AA 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |....15,8,15,"I0"|
000001E0: 3A 8D 20 32 32 32 30 00 09 0A B4 00 9F 20 35 2C |:. 2220...... 5,|
000001F0: 38 2C 35 2C 22 30 3A 44 49 53 4B 20 44 49 52 20 |8,5,"0:DISK DIR |
00000200: 58 52 45 46 2C 53 2C 52 22 00 2A 0A BE 00 84 31 |XREF,S,R".*....1|
00000210: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00000220: 45 4E B2 36 32 A7 20 32 39 30 00 5A 0A C8 00 84 |EN.62. 290.Z....|
00000230: 35 2C 58 24 28 4E 58 29 3A 53 53 B2 53 54 3A 8D |5,X$(NX):SS.ST:.|
00000240: 20 32 32 32 30 3A 4E 58 B2 4E 58 AA 31 3A 8B 20 | 2220:NX.NX.1:. |
00000250: 53 53 B2 30 20 A7 20 32 30 30 00 64 0A D2 00 89 |SS.0 . 200.d....|
00000260: 20 32 39 30 00 8D 0A DC 00 53 24 B2 22 22 3A 81 | 290.....S$."":.|
00000270: 20 58 B2 31 20 A4 20 59 3A 8D 20 32 36 30 3A 53 | X.1 . Y:. 260:S|
00000280: 24 B2 53 24 AA 43 24 3A 82 20 58 3A 8E 00 A7 0A |$.S$.C$:. X:....|
00000290: E6 00 81 20 58 B2 31 20 A4 20 59 3A 8D 20 32 36 |... X.1 . Y:. 26|
000002A0: 30 3A 82 20 58 3A 8E 00 C8 0A F0 00 56 B2 30 3A |0:. X:......V.0:|
000002B0: 8D 20 32 36 30 3A 8B 20 43 24 B3 B1 22 22 20 A7 |. 260:. C$.."" .|
000002C0: 20 56 B2 C6 28 43 24 29 00 CE 0A FA 00 8E 00 D9 | V..(C$)........|
000002D0: 0A 04 01 A1 23 35 2C 43 24 00 FF 0A 0E 01 53 53 |....#5,C$.....SS|
000002E0: B2 53 54 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 |.ST:.15,EN,EM$,E|
000002F0: 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 |T,ES:. EN.0 . ..|
00000300: 24 0B 18 01 99 20 48 43 24 3B 52 56 24 3B 22 44 |$.... HC$;RV$;"D|
00000310: 49 53 4B 20 45 52 52 4F 52 21 22 3A 99 3A 89 20 |ISK ERROR!":.:. |
00000320: 32 32 37 30 00 3C 0B 22 01 A0 20 34 3A A0 20 35 |2270.<.".. 4:. 5|
00000330: 3A 43 58 B2 30 3A 8D 20 32 31 34 30 00 53 0B 2C |:CX.0:. 2140.S.,|
00000340: 01 99 20 A6 35 29 3B 22 30 20 2D 20 44 4F 4E 45 |.. .5);"0 - DONE|
00000350: 22 3A 99 00 7D 0B 36 01 99 20 A6 35 29 3B 22 31 |":..}.6.. .5);"1|
00000360: 20 2D 20 55 50 44 41 54 45 20 4D 41 53 54 45 52 | - UPDATE MASTER|
00000370: 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 AD 0B | DIRECTORY":....|
00000380: 40 01 99 20 A6 35 29 3B 22 32 20 2D 20 44 45 4C |@.. .5);"2 - DEL|
00000390: 45 54 45 20 44 49 53 4B 20 45 4E 54 52 59 20 46 |ETE DISK ENTRY F|
000003A0: 52 4F 4D 20 4D 41 53 54 45 52 22 3A 99 00 DA 0B |ROM MASTER":....|
000003B0: 4A 01 99 20 A6 35 29 3B 22 33 20 2D 20 44 49 53 |J.. .5);"3 - DIS|
000003C0: 50 4C 41 59 20 53 45 4C 45 43 54 45 44 20 44 49 |PLAY SELECTED DI|
000003D0: 52 45 43 54 4F 52 59 22 3A 99 00 00 0C 54 01 99 |RECTORY":....T..|
000003E0: 20 A6 35 29 3B 22 34 20 2D 20 46 49 4E 44 20 53 | .5);"4 - FIND S|
000003F0: 50 45 43 49 46 49 45 44 20 46 49 4C 45 22 3A 99 |PECIFIED FILE":.|
00000400: 00 27 0C 5E 01 99 20 A6 35 29 3B 22 35 20 2D 20 |.'.^.. .5);"5 - |
00000410: 4C 49 53 54 20 44 49 53 4B 20 49 44 27 53 20 26 |LIST DISK ID'S &|
00000420: 20 4E 41 4D 45 53 22 00 50 0C 68 01 8D 20 32 31 | NAMES".P.h.. 21|
00000430: 35 30 3A 99 22 45 4E 54 45 52 20 44 45 53 49 52 |50:."ENTER DESIR|
00000440: 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B |ED FUNCTION: ";|
00000450: 00 73 0C 72 01 8D 20 32 31 32 30 3A 8B 20 43 24 |.s.r.. 2120:. C$|
00000460: B2 22 30 22 20 A7 20 99 20 48 43 24 3A 89 20 32 |."0" . . HC$:. 2|
00000470: 33 38 30 00 91 0C 7C 01 56 B2 C5 28 43 24 29 3A |380...|.V..(C$):|
00000480: 8B 20 56 B3 31 20 B0 20 56 B1 35 20 A7 20 33 37 |. V.1 . V.5 . 37|
00000490: 30 00 B2 0C 86 01 91 20 56 20 89 20 34 30 30 2C |0...... V . 400,|
000004A0: 31 31 38 30 2C 39 38 30 2C 31 36 39 30 2C 31 32 |1180,980,1690,12|
000004B0: 35 30 00 E4 0C 90 01 A0 20 31 35 3A 43 58 B2 30 |50...... 15:CX.0|
000004C0: 3A 99 20 48 43 24 3B 22 49 4E 53 45 52 54 20 44 |:. HC$;"INSERT D|
000004D0: 49 53 4B 20 54 4F 20 42 45 20 43 41 54 41 4C 4F |ISK TO BE CATALO|
000004E0: 47 45 44 22 00 22 0D 9A 01 99 3A 99 22 44 45 50 |GED"."....:."DEP|
000004F0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000500: 43 4F 4E 54 49 4E 55 45 2C 20 22 3B 52 56 24 3B |CONTINUE, ";RV$;|
00000510: 22 51 22 3B 52 46 24 3B 22 20 54 4F 20 51 55 49 |"Q";RF$;" TO QUI|
00000520: 54 22 00 45 0D A4 01 8D 20 32 31 32 30 3A 8B 20 |T".E.... 2120:. |
00000530: 43 24 B2 22 51 22 20 A7 20 8D 20 32 33 39 30 3A |C$."Q" . . 2390:|
00000540: 89 20 32 39 30 00 6A 0D AE 01 8D 20 32 31 35 30 |. 290.j.... 2150|
00000550: 3A 99 22 4F 4B 22 3A 9F 31 35 2C 38 2C 31 35 2C |:."OK":.15,8,15,|
00000560: 22 49 30 22 3A 8D 20 32 37 30 00 83 0D B8 01 9F |"I0":. 270......|
00000570: 35 2C 38 2C 35 2C 22 24 30 2C 53 2C 52 22 3A 8D |5,8,5,"$0,S,R":.|
00000580: 32 37 30 00 98 0D C2 01 8D 20 32 34 30 3A 56 46 |270...... 240:VF|
00000590: B2 56 3A 8D 20 32 36 30 00 C4 0D CC 01 4E 42 B2 |.V:. 260.....NB.|
000005A0: 30 3A 81 20 5A B2 31 20 A4 20 33 35 3A 8D 20 32 |0:. Z.1 . 35:. 2|
000005B0: 34 30 3A 8B 20 5A B3 B1 31 38 20 A7 20 4E 42 B2 |40:. Z..18 . NB.|
000005C0: 4E 42 AA 56 00 D6 0D D6 01 59 B2 33 3A 8D 20 32 |NB.V.....Y.3:. 2|
000005D0: 33 30 3A 82 20 5A 00 F6 0D E0 01 59 B2 31 36 3A |30:. Z.....Y.16:|
000005E0: 8D 20 32 32 30 3A 44 4E 24 B2 53 24 3A 59 B2 32 |. 220:DN$.S$:Y.2|
000005F0: 3A 8D 20 32 33 30 00 15 0E EA 01 59 B2 32 3A 8D |:. 230.....Y.2:.|
00000600: 20 32 32 30 3A 44 49 24 B2 C8 28 53 24 AA 22 20 | 220:DI$..(S$." |
00000610: 20 22 2C 32 29 00 2F 0E F4 01 8D 20 32 31 36 30 | ",2)./.... 2160|
00000620: 3A 8B 20 43 24 B2 22 4E 22 20 A7 20 39 37 30 00 |:. C$."N" . 970.|
00000630: 40 0E FE 01 8B 20 4E 58 B2 30 20 A7 20 36 33 30 |@.... NX.0 . 630|
00000640: 00 6E 0E 08 02 81 20 58 B2 30 20 A4 20 4E 58 AB |.n.... X.0 . NX.|
00000650: 31 3A 43 24 B2 C8 28 58 24 28 58 29 2C 32 29 3A |1:C$..(X$(X),2):|
00000660: 8B 20 44 49 24 B3 43 24 20 A7 20 36 33 30 00 88 |. DI$.C$ . 630..|
00000670: 0E 12 02 8B 20 44 49 24 B3 B1 43 24 20 A7 20 82 |.... DI$..C$ . .|
00000680: 20 58 3A 89 20 36 33 30 00 A3 0E 1C 02 8B 20 44 | X:. 630...... D|
00000690: 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 20 A7 20 |N$..(X$(X),3) . |
000006A0: 36 33 30 00 E7 0E 26 02 99 20 48 43 24 3B 52 56 |630...&.. HC$;RV|
000006B0: 24 3B 22 2A 2A 2A 20 57 41 52 4E 49 4E 47 20 2A |$;"*** WARNING *|
000006C0: 2A 2A 22 3B 52 46 24 3B 22 20 20 54 48 49 53 20 |**";RF$;" THIS |
000006D0: 44 49 53 4B 20 49 44 20 3A 20 22 3B 52 56 24 3B |DISK ID : ";RV$;|
000006E0: 44 49 24 3B 52 46 24 00 04 0F 30 02 99 3A 99 22 |DI$;RF$...0..:."|
000006F0: 44 49 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 |DISK NAME: ";RV$|
00000700: 3B 44 4E 24 00 35 0F 3A 02 99 3A 99 22 49 53 20 |;DN$.5.:..:."IS |
00000710: 41 4C 4C 20 52 45 41 44 59 20 43 41 54 41 4C 4F |ALL READY CATALO|
00000720: 47 45 44 20 57 49 54 48 20 41 20 44 49 46 46 45 |GED WITH A DIFFE|
00000730: 52 45 4E 54 22 00 60 0F 44 02 99 3A 99 22 44 49 |RENT".`.D..:."DI|
00000740: 53 4B 20 4E 41 4D 45 3A 20 22 3B 52 56 24 3B CA |SK NAME: ";RV$;.|
00000750: 28 58 24 28 58 29 2C 33 29 3A 8D 20 32 31 35 30 |(X$(X),3):. 2150|
00000760: 00 87 0F 4E 02 99 22 43 41 54 41 4C 4F 47 49 4E |...N.."CATALOGIN|
00000770: 47 20 54 48 49 53 20 57 49 4C 4C 20 44 45 4C 45 |G THIS WILL DELE|
00000780: 54 45 20 54 48 45 22 00 A6 0F 58 02 99 3A 99 22 |TE THE"...X..:."|
00000790: 50 52 45 56 49 4F 55 53 20 44 41 54 45 21 22 3A |PREVIOUS DATE!":|
000007A0: 8D 20 32 31 35 30 00 D6 0F 62 02 99 22 43 41 54 |. 2150...b.."CAT|
000007B0: 41 4C 4F 47 20 54 48 49 53 20 44 49 53 4B 22 3B |ALOG THIS DISK";|
000007C0: 3A 8D 20 32 31 39 30 3A 8B 20 43 24 B2 22 4E 22 |:. 2190:. C$."N"|
000007D0: 20 A7 20 39 37 30 00 05 10 6C 02 99 20 48 43 24 | . 970...l.. HC$|
000007E0: 3B 22 43 41 54 41 4C 4F 47 49 4E 47 20 44 49 53 |;"CATALOGING DIS|
000007F0: 4B 20 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 |K WITH NEW DISK |
00000800: 4E 41 4D 45 22 00 31 10 76 02 8D 20 32 31 35 30 |NAME".1.v.. 2150|
00000810: 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 |:."READING DIREC|
00000820: 54 4F 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E |TORY ENTRIES ...|
00000830: 22 00 51 10 80 02 8D 20 32 36 30 3A 59 B2 32 3A |".Q.... 260:Y.2:|
00000840: 8D 20 32 32 30 3A 44 46 24 B2 53 24 3A 59 B2 38 |. 220:DF$.S$:Y.8|
00000850: 39 00 67 10 8A 02 8B 20 56 46 B2 31 20 A7 20 44 |9.g.... VF.1 . D|
00000860: 46 24 B2 22 20 31 22 00 71 10 94 02 8D 20 32 33 |F$." 1".q.... 23|
00000870: 30 00 7E 10 9E 02 4E 46 B2 30 3A 5A B2 30 00 8D |0.~...NF.0:Z.0..|
00000880: 10 A8 02 8D 20 32 34 30 3A 46 54 B2 56 00 B6 10 |.... 240:FT.V...|
00000890: B2 02 46 24 B2 43 24 3A 59 B2 32 3A 8D 20 32 33 |..F$.C$:Y.2:. 23|
000008A0: 30 3A 59 B2 31 36 3A 8D 20 32 32 30 3A 59 B2 39 |0:Y.16:. 220:Y.9|
000008B0: 3A 8D 20 32 33 30 00 DE 10 BC 02 8D 20 32 34 30 |:. 230...... 240|
000008C0: 3A 53 24 B2 53 24 AA C7 28 56 29 3A 8D 20 32 34 |:S$.S$..(V):. 24|
000008D0: 30 3A 8B 20 46 54 B2 30 20 A7 20 37 37 30 00 EF |0:. FT.0 . 770..|
000008E0: 10 C6 02 8B 20 4E 46 B2 30 20 A7 20 37 34 30 00 |.... NF.0 . 740.|
000008F0: 1F 11 D0 02 81 20 58 B2 31 20 A4 20 4E 46 3A 8B |..... X.1 . NF:.|
00000900: 20 C8 28 53 24 2C 31 36 29 20 B3 20 CA 28 44 24 | .(S$,16) . .(D$|
00000910: 28 58 29 2C 32 2C 31 36 29 20 A7 20 37 35 30 00 |(X),2,16) . 750.|
00000920: 27 11 DA 02 82 20 58 00 38 11 E4 02 58 B2 4E 46 |'.... X.8...X.NF|
00000930: AA 31 3A 89 20 37 36 30 00 5D 11 EE 02 81 20 59 |.1:. 760.].... Y|
00000940: B2 4E 46 20 A4 20 58 20 A9 AB 31 3A 44 24 28 59 |.NF . X ..1:D$(Y|
00000950: AA 31 29 B2 44 24 28 59 29 3A 82 20 59 00 7A 11 |.1).D$(Y):. Y.z.|
00000960: F8 02 44 24 28 58 29 B2 46 24 AA 53 24 AA C7 28 |..D$(X).F$.S$..(|
00000970: 56 29 3A 4E 46 B2 4E 46 AA 31 00 A5 11 02 03 5A |V):NF.NF.1.....Z|
00000980: B2 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A AD 38 29 |.Z.1:Z.Z.(.(Z.8)|
00000990: AC 38 29 3A 8B 20 5A B1 30 20 A7 20 59 B2 32 3A |.8):. Z.0 . Y.2:|
000009A0: 8D 20 32 33 30 00 B7 11 0C 03 8B 20 4E 46 B3 31 |. 230...... NF.1|
000009B0: 35 35 A7 20 38 34 30 00 F2 11 16 03 99 20 48 43 |55. 840...... HC|
000009C0: 24 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 44 |$;.6);RV$;"*** D|
000009D0: 49 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 41 4C |ISK BAM IS INVAL|
000009E0: 49 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 20 32 31 |ID ***";RF$:. 21|
000009F0: 35 30 00 26 12 20 03 99 3A 99 22 20 20 20 43 55 |50.&. ..:." CU|
00000A00: 52 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E 4F |RRENT DISK CANNO|
00000A10: 54 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 22 |T BE CATALOGED!"|
00000A20: 3A 99 3A 99 3A 99 00 55 12 2A 03 99 22 20 50 4C |:.:.:..U.*.." PL|
00000A30: 45 41 53 45 20 56 45 52 49 46 59 20 4F 52 20 43 |EASE VERIFY OR C|
00000A40: 48 45 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 4E |HECK DISK CONTEN|
00000A50: 54 53 22 3A 99 00 86 12 34 03 99 22 42 45 46 4F |TS":....4.."BEFO|
00000A60: 52 45 20 41 54 54 45 4D 50 54 49 4E 47 20 54 4F |RE ATTEMPTING TO|
00000A70: 20 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 | CATALOG THIS DI|
00000A80: 53 4B 2E 22 3A 99 00 9E 12 3E 03 8D 20 32 31 35 |SK.":....>.. 215|
00000A90: 30 3A 8D 20 32 31 31 30 3A 89 20 39 37 30 00 AF |0:. 2110:. 970..|
00000AA0: 12 48 03 8B 20 53 53 B2 30 20 A7 20 36 38 30 00 |.H.. SS.0 . 680.|
00000AB0: E6 12 52 03 A0 20 35 3A 8D 20 32 33 39 30 3A 8D |..R.. 5:. 2390:.|
00000AC0: 20 32 31 35 30 3A 99 22 55 50 44 41 54 49 4E 47 | 2150:."UPDATING|
00000AD0: 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 | MASTER DIRECTOR|
00000AE0: 59 20 2E 2E 2E 22 00 F7 12 5C 03 8B 20 4E 58 B2 |Y ..."...\.. NX.|
00000AF0: 30 20 A7 20 39 31 30 00 27 13 66 03 81 20 58 B2 |0 . 910.'.f.. X.|
00000B00: 30 20 A4 20 4E 58 AB 31 3A 43 24 B2 C8 28 58 24 |0 . NX.1:C$..(X$|
00000B10: 28 58 29 2C 32 29 3A 8B 20 44 49 24 20 B3 20 43 |(X),2):. DI$ . C|
00000B20: 24 20 A7 20 39 30 30 00 3A 13 70 03 8B 20 44 49 |$ . 900.:.p.. DI|
00000B30: 24 B2 43 24 20 A7 20 39 33 30 00 48 13 7A 03 82 |$.C$ . 930.H.z..|
00000B40: 20 58 3A 89 20 39 31 30 00 75 13 84 03 81 20 59 | X:. 910.u.... Y|
00000B50: B2 4E 58 AB 31 20 A4 20 58 20 A9 AB 31 3A 58 24 |.NX.1 . X ..1:X$|
00000B60: 28 59 AA 31 29 B2 58 24 28 59 29 3A 82 20 59 3A |(Y.1).X$(Y):. Y:|
00000B70: 89 20 39 32 30 00 7E 13 8E 03 58 B2 4E 58 00 8A |. 920.~...X.NX..|
00000B80: 13 98 03 4E 58 B2 4E 58 AA 31 00 A1 13 A2 03 58 |...NX.NX.1.....X|
00000B90: 24 28 58 29 B2 44 49 24 AA 44 4E 24 3A 43 58 B2 |$(X).DI$.DN$:CX.|
00000BA0: 31 00 CF 13 AC 03 8D 20 32 30 33 30 3A 98 31 35 |1...... 2030:.15|
00000BB0: 2C 22 53 22 AA 53 24 3A 9F 20 35 2C 38 2C 35 2C |,"S".S$:. 5,8,5,|
00000BC0: 53 24 AA 22 2C 53 2C 57 22 3A 8D 20 32 37 30 00 |S$.",S,W":. 270.|
00000BD0: EC 13 B6 03 98 35 2C 44 46 24 3B 22 2C 22 3B 4E |.....5,DF$;",";N|
00000BE0: 42 3B 43 52 24 3B 3A 8D 20 32 37 30 00 1C 14 C0 |B;CR$;:. 270....|
00000BF0: 03 8B 20 4E 46 B1 30 20 A7 20 81 20 58 B2 31 20 |.. NF.0 . . X.1 |
00000C00: A4 20 4E 46 3A 98 35 2C 44 24 28 58 29 3B 43 52 |. NF:.5,D$(X);CR|
00000C10: 24 3B 3A 8D 20 32 37 30 3A 82 20 58 00 31 14 CA |$;:. 270:. X.1..|
00000C20: 03 A0 20 35 3A 8D 20 32 32 39 30 3A 89 20 34 30 |.. 5:. 2290:. 40|
00000C30: 30 00 6C 14 D4 03 99 20 48 43 24 3B 22 54 4F 20 |0.l.... HC$;"TO |
00000C40: 44 49 53 50 4C 41 59 20 44 49 53 4B 20 44 49 52 |DISPLAY DISK DIR|
00000C50: 45 43 54 4F 52 59 22 3A 8D 20 31 38 37 30 3A 91 |ECTORY":. 1870:.|
00000C60: 20 56 20 89 20 32 39 30 2C 39 38 30 00 9F 14 DE | V . 290,980....|
00000C70: 03 9F 20 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C |.. 5,8,5,S$.",S,|
00000C80: 52 22 3A 8D 20 32 37 30 3A 8D 20 32 30 37 30 3A |R":. 270:. 2070:|
00000C90: 84 35 2C 44 46 24 2C 4E 42 3A 8D 20 32 37 30 00 |.5,DF$,NB:. 270.|
00000CA0: CC 14 E8 03 98 34 2C 22 20 20 22 3B 52 56 24 3B |.....4," ";RV$;|
00000CB0: 22 44 49 53 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 |"DISK NAME:";RF$|
00000CC0: 3B 22 20 20 22 3B 44 4E 24 3A 98 34 00 F9 14 F2 |;" ";DN$:.4....|
00000CD0: 03 98 34 2C 22 22 A6 34 29 3B 52 56 24 3B 22 44 |..4,"".4);RV$;"D|
00000CE0: 49 53 4B 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 |ISK ID:";RF$;" |
00000CF0: 22 3B 44 49 24 3B A6 36 29 00 22 15 FC 03 98 34 |";DI$;.6)."....4|
00000D00: 2C 52 56 24 3B 22 44 49 53 4B 20 46 4F 52 4D 41 |,RV$;"DISK FORMA|
00000D10: 54 3A 22 3B 52 46 24 3B 22 20 20 22 44 46 24 3A |T:";RF$;" "DF$:|
00000D20: 98 34 00 4A 15 06 04 98 34 2C 52 56 24 3B 22 42 |.4.J....4,RV$;"B|
00000D30: 4C 4F 43 4B 53 20 46 52 45 45 3A 22 3B 52 46 24 |LOCKS FREE:";RF$|
00000D40: 3B 22 20 22 3B 4E 42 3A 98 34 00 7E 15 10 04 98 |;" ";NB:.4.~....|
00000D50: 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |4,"-------------|
00000D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 98 34 00 95 |----------":.4..|
00000D80: 15 1A 04 4E 46 B2 30 3A 8B 20 53 53 B1 30 20 A7 |...NF.0:. SS.0 .|
00000D90: 20 31 31 36 30 00 C5 15 24 04 8D 20 32 34 30 3A | 1160...$.. 240:|
00000DA0: 46 54 B2 56 3A 59 B2 31 36 3A 8D 20 32 32 30 3A |FT.V:Y.16:. 220:|
00000DB0: 8D 20 32 34 30 3A 5A B2 56 3A 8D 20 32 34 30 3A |. 240:Z.V:. 240:|
00000DC0: 8D 20 32 36 30 00 F4 15 2E 04 98 34 2C C9 28 22 |. 260......4,.("|
00000DD0: 20 20 20 20 22 AA C4 28 5A AA 28 32 35 36 AC 56 | "..(Z.(256.V|
00000DE0: 29 29 2C 34 29 3B 22 20 20 22 3B 53 24 3B 22 20 |)),4);" ";S$;" |
00000DF0: 20 20 22 3B 00 0D 16 38 04 8B 20 46 54 B2 31 32 | ";...8.. FT.12|
00000E00: 39 20 A7 20 98 34 2C 22 53 45 51 22 3B 00 26 16 |9 . .4,"SEQ";.&.|
00000E10: 42 04 8B 20 46 54 B2 31 33 30 20 A7 20 98 34 2C |B.. FT.130 . .4,|
00000E20: 22 50 47 4D 22 3B 00 3F 16 4C 04 8B 20 46 54 B2 |"PGM";.?.L.. FT.|
00000E30: 31 33 31 20 A7 20 98 34 2C 22 55 53 52 22 3B 00 |131 . .4,"USR";.|
00000E40: 58 16 56 04 8B 20 46 54 B2 31 33 32 20 A7 20 98 |X.V.. FT.132 . .|
00000E50: 34 2C 22 52 45 4C 22 3B 00 76 16 60 04 98 34 3A |4,"REL";.v.`..4:|
00000E60: A1 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 |. C$:. C$.."" . |
00000E70: 8D 20 32 31 32 30 00 8A 16 6A 04 8B 20 43 24 B2 |. 2120...j.. C$.|
00000E80: 22 51 22 20 A7 20 31 31 37 30 00 A4 16 74 04 4E |"Q" . 1170...t.N|
00000E90: 46 B2 4E 46 AA 31 3A 8B 20 53 53 B2 30 20 A7 20 |F.NF.1:. SS.0 . |
00000EA0: 31 30 36 30 00 C7 16 7E 04 98 34 3A 98 34 2C 52 |1060...~..4:.4,R|
00000EB0: 56 24 3B 22 23 46 49 4C 45 53 3A 22 3B 52 46 24 |V$;"#FILES:";RF$|
00000EC0: 3B 22 20 22 3B 4E 46 00 E2 16 88 04 8B 20 50 44 |;" ";NF...... PD|
00000ED0: B2 33 20 A7 20 8D 20 32 31 35 30 3A 8D 20 32 31 |.3 . . 2150:. 21|
00000EE0: 31 30 00 F4 16 92 04 A0 20 34 3A A0 20 35 3A 89 |10...... 4:. 5:.|
00000EF0: 20 39 38 30 00 24 17 9C 04 99 48 43 24 3B 22 54 | 980.$....HC$;"T|
00000F00: 4F 20 44 45 4C 45 54 45 20 44 49 53 4B 20 46 52 |O DELETE DISK FR|
00000F10: 4F 4D 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 |OM MASTER DIRECT|
00000F20: 4F 52 59 22 00 3F 17 A6 04 8D 20 31 38 37 30 3A |ORY".?.... 1870:|
00000F30: 91 20 56 20 89 20 31 32 34 30 2C 31 31 38 30 00 |. V . 1240,1180.|
00000F40: 4E 17 B0 04 98 31 35 2C 22 53 22 AA 53 24 00 7C |N....15,"S".S$.||
00000F50: 17 BA 04 43 58 B2 30 3A 81 20 58 B2 30 20 A4 20 |...CX.0:. X.0 . |
00000F60: 4E 58 AB 31 3A 8B 20 C8 28 58 24 28 58 29 2C 32 |NX.1:. .(X$(X),2|
00000F70: 29 B2 44 49 24 20 A7 20 43 58 B2 31 00 95 17 C4 |).DI$ . CX.1....|
00000F80: 04 8B 20 43 58 20 A7 20 58 24 28 58 29 B2 58 24 |.. CX . X$(X).X$|
00000F90: 28 58 AA 31 29 00 AC 17 CE 04 82 20 58 3A 4E 58 |(X.1)...... X:NX|
00000FA0: B2 4E 58 AB 31 3A 89 20 31 31 38 30 00 BD 17 D8 |.NX.1:. 1180....|
00000FB0: 04 8D 20 32 32 39 30 3A 89 20 32 39 30 00 D7 17 |.. 2290:. 290...|
00000FC0: E2 04 8B 20 4E 58 B2 30 20 A7 20 8D 20 31 38 38 |... NX.0 . . 188|
00000FD0: 30 3A 89 20 32 39 30 00 E6 17 EC 04 A0 20 34 3A |0:. 290...... 4:|
00000FE0: 8D 20 32 31 34 30 00 15 18 F6 04 99 20 A6 35 29 |. 2140...... .5)|
00000FF0: 3B 22 30 20 2D 20 52 45 54 55 52 4E 20 54 4F 20 |;"0 - RETURN TO |
00001000: 4D 41 49 4E 20 46 55 4E 43 54 49 4F 4E 20 4D 45 |MAIN FUNCTION ME|
00001010: 4E 55 22 3A 99 00 42 18 00 05 99 20 A6 35 29 3B |NU":..B.... .5);|
00001020: 22 31 20 2D 20 50 52 49 4E 54 20 46 55 4C 4C 20 |"1 - PRINT FULL |
00001030: 49 44 20 55 53 45 41 47 45 20 43 48 41 52 54 22 |ID USEAGE CHART"|
00001040: 3A 99 00 6E 18 0A 05 99 20 A6 35 29 3B 22 32 20 |:..n.... .5);"2 |
00001050: 2D 20 51 55 49 43 4B 20 4C 49 53 54 20 4F 46 20 |- QUICK LIST OF |
00001060: 49 44 27 53 20 49 4E 20 55 53 45 22 3A 99 00 97 |ID'S IN USE":...|
00001070: 18 14 05 99 20 A6 35 29 3B 22 33 20 2D 20 4C 49 |.... .5);"3 - LI|
00001080: 53 54 20 44 49 53 4B 20 49 44 27 53 20 26 20 4E |ST DISK ID'S & N|
00001090: 41 4D 45 53 22 3A 99 00 D5 18 1E 05 99 20 A6 35 |AMES":....... .5|
000010A0: 29 3B 22 34 20 2D 20 4C 49 53 54 20 22 3B 52 56 |);"4 - LIST ";RV|
000010B0: 24 3B 22 4D 49 4E 22 3B 52 46 24 3B 22 20 46 52 |$;"MIN";RF$;" FR|
000010C0: 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 49 |EE BLOCKS PER DI|
000010D0: 53 4B 22 3A 99 00 11 19 28 05 99 20 A6 35 29 3B |SK":....(.. .5);|
000010E0: 22 35 20 2D 20 4C 49 53 54 20 22 3B 52 56 24 3B |"5 - LIST ";RV$;|
000010F0: 22 4D 41 58 22 3B 52 46 24 3B 22 20 46 52 45 45 |"MAX";RF$;" FREE|
00001100: 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 49 53 4B | BLOCKS PER DISK|
00001110: 22 00 3A 19 32 05 8D 20 32 31 35 30 3A 99 22 45 |".:.2.. 2150:."E|
00001120: 4E 54 45 52 20 44 45 53 49 52 45 44 20 46 55 4E |NTER DESIRED FUN|
00001130: 43 54 49 4F 4E 3A 20 20 22 3B 00 54 19 3C 05 8D |CTION: ";.T.<..|
00001140: 20 32 31 32 30 3A 8B 20 43 24 B2 22 30 22 20 A7 | 2120:. C$."0" .|
00001150: 20 32 39 30 00 73 19 46 05 56 B2 C5 28 43 24 29 | 290.s.F.V..(C$)|
00001160: 3A 8B 20 56 B3 31 20 B0 20 56 B1 35 20 A7 20 31 |:. V.1 . V.5 . 1|
00001170: 33 34 30 00 9B 19 50 05 99 20 43 24 3A 91 20 56 |340...P.. C$:. V|
00001180: 20 89 20 31 33 37 30 2C 31 35 35 30 2C 31 36 32 | . 1370,1550,162|
00001190: 30 2C 32 34 35 30 2C 32 34 39 30 00 A5 19 5A 05 |0,2450,2490...Z.|
000011A0: 9F 20 34 2C 34 00 E2 19 64 05 98 34 2C 22 22 A6 |. 4,4...d..4,"".|
000011B0: 31 35 29 3B 52 56 24 3B 22 20 20 44 20 49 20 53 |15);RV$;" D I S|
000011C0: 20 4B 20 20 49 20 44 20 20 55 20 53 20 45 20 41 | K I D U S E A|
000011D0: 20 47 20 45 20 20 43 20 48 20 41 20 52 20 54 20 | G E C H A R T |
000011E0: 20 22 00 F2 19 6E 05 98 34 3A 20 98 34 2C 22 20 | "...n..4: .4," |
000011F0: 22 3B 00 10 1A 78 05 81 20 58 B2 34 38 20 A4 20 |";...x.. X.48 . |
00001200: 39 30 3A 8B 20 58 B2 35 38 20 A7 20 58 B2 36 35 |90:. X.58 . X.65|
00001210: 00 28 1A 82 05 98 34 2C 22 20 22 3B C7 28 58 29 |.(....4," ";.(X)|
00001220: 3B 3A 82 20 58 3A 98 34 00 4A 1A 8C 05 5A B2 30 |;:. X:.4.J...Z.0|
00001230: 3A 81 20 58 B2 34 38 20 A4 20 39 30 3A 8B 20 58 |:. X.48 . 90:. X|
00001240: B2 35 38 20 A7 20 58 B2 36 35 00 88 1A 96 05 98 |.58 . X.65......|
00001250: 34 2C 22 A0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |4,".............|
00001260: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001270: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00001280: DB C0 DB C0 DB C0 22 3B 00 9E 1A A0 05 98 34 2C |......";......4,|
00001290: 22 C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 22 00 AB |"............"..|
000012A0: 1A AA 05 98 34 2C C7 28 58 29 3B 00 C9 1A B4 05 |....4,.(X);.....|
000012B0: 81 20 59 B2 34 38 20 A4 20 39 30 3A 8B 20 59 B2 |. Y.48 . 90:. Y.|
000012C0: 35 38 20 A7 20 59 B2 36 35 00 E6 1A BE 05 98 34 |58 . Y.65......4|
000012D0: 2C C7 28 32 32 31 29 3B 3A 8B 20 5A B2 4E 58 20 |,.(221);:. Z.NX |
000012E0: A7 20 31 35 30 30 00 05 1B C8 05 43 24 B2 C7 28 |. 1500.....C$..(|
000012F0: 58 29 AA C7 28 59 29 3A 53 24 B2 C8 28 58 24 28 |X)..(Y):S$..(X$(|
00001300: 5A 29 2C 32 29 00 2B 1B D2 05 8B 20 53 24 B2 43 |Z),2).+.... S$.C|
00001310: 24 20 A7 20 98 34 2C C7 28 31 36 36 29 3B 3A 5A |$ . .4,.(166);:Z|
00001320: B2 5A AA 31 3A 89 20 31 35 31 30 00 37 1B DC 05 |.Z.1:. 1510.7...|
00001330: 98 34 2C 22 20 22 3B 00 60 1B E6 05 82 20 59 3A |.4," ";.`.... Y:|
00001340: 98 34 2C C7 28 32 32 31 29 3A A1 20 43 24 3A 8B |.4,.(221):. C$:.|
00001350: 20 43 24 B3 B1 22 22 20 A7 20 8D 20 32 31 32 30 | C$.."" . . 2120|
00001360: 00 74 1B F0 05 8B 20 43 24 B3 B1 22 51 22 20 A7 |.t.... C$.."Q" .|
00001370: 20 82 20 58 00 B2 1B FA 05 98 34 2C 22 20 B1 C0 | . X......4," ..|
00001380: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
00001390: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
000013A0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 C0 B1 |................|
000013B0: 22 3B 00 CF 1B 04 06 98 34 2C 22 C0 B1 C0 B1 C0 |";......4,".....|
000013C0: B1 C0 B1 C0 B1 C0 BD 22 3A 89 20 31 32 36 30 00 |.......":. 1260.|
000013D0: 01 1C 0E 06 8D 20 32 30 37 30 3A 98 34 2C 22 22 |..... 2070:.4,""|
000013E0: A6 37 29 3B 22 12 44 49 53 4B 20 49 44 27 53 20 |.7);".DISK ID'S |
000013F0: 43 55 52 52 45 4E 54 4C 59 20 49 4E 20 55 53 45 |CURRENTLY IN USE|
00001400: 22 00 0B 1C 18 06 98 34 3A 98 34 00 22 1C 22 06 |"......4:.4.".".|
00001410: 56 B2 31 32 3A 8B 20 50 44 B2 34 20 A7 20 56 B2 |V.12:. PD.4 . V.|
00001420: 32 35 00 4A 1C 2C 06 5A B2 30 3A 81 20 58 B2 30 |25.J.,.Z.0:. X.0|
00001430: 20 A4 20 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 | . NX.1:.4,.(X$(|
00001440: 58 29 2C 32 29 3B 22 20 22 3B 00 66 1C 36 06 5A |X),2);" ";.f.6.Z|
00001450: B2 5A AA 31 3A 8B 20 5A B2 B5 28 5A AD 56 29 AC |.Z.1:. Z..(Z.V).|
00001460: 56 20 A7 20 98 34 00 87 1C 40 06 82 20 58 3A 98 |V . .4...@.. X:.|
00001470: 34 3A 98 34 3A 8B 20 5A B3 B1 B5 28 5A AD 56 29 |4:.4:. Z...(Z.V)|
00001480: AC 56 20 A7 20 98 34 00 B7 1C 4A 06 98 34 2C 5A |.V . .4...J..4,Z|
00001490: 3B 52 56 24 3B 22 44 49 53 4B 53 20 49 4E 20 4D |;RV$;"DISKS IN M|
000014A0: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 |ASTER DIRECTORY"|
000014B0: 3A 89 20 31 36 37 30 00 E3 1C 54 06 8D 20 32 30 |:. 1670...T.. 20|
000014C0: 37 30 3A 98 34 2C 52 56 24 3B 22 49 44 20 20 2E |70:.4,RV$;"ID .|
000014D0: 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 |..DISK NAME...."|
000014E0: 3A 98 34 00 12 1D 5E 06 81 20 58 B2 30 20 A4 20 |:.4...^.. X.0 . |
000014F0: 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C |NX.1:.4,.(X$(X),|
00001500: 32 29 3B 22 20 20 22 3B CA 28 58 24 28 58 29 2C |2);" ";.(X$(X),|
00001510: 33 29 00 2D 1D 68 06 A1 20 43 24 3A 8B 20 43 24 |3).-.h.. C$:. C$|
00001520: B3 B1 22 22 20 A7 20 8D 20 32 31 32 30 00 41 1D |.."" . . 2120.A.|
00001530: 72 06 8B 20 43 24 B2 22 51 22 20 A7 20 31 32 36 |r.. C$."Q" . 126|
00001540: 30 00 49 1D 7C 06 82 20 58 00 5B 1D 86 06 8B 20 |0.I.|.. X.[.... |
00001550: 50 44 B2 34 20 A7 20 31 32 36 30 00 74 1D 90 06 |PD.4 . 1260.t...|
00001560: 8D 20 32 31 35 30 3A 8D 20 32 31 31 30 3A 89 20 |. 2150:. 2110:. |
00001570: 31 32 36 30 00 8E 1D 9A 06 8B 20 4E 58 B2 30 20 |1260...... NX.0 |
00001580: A7 20 8D 20 31 38 38 30 3A 89 20 32 39 30 00 C2 |. . 1880:. 290..|
00001590: 1D A4 06 A0 20 34 3A 99 20 48 43 24 3B 22 54 4F |.... 4:. HC$;"TO|
000015A0: 20 46 49 4E 44 20 57 48 41 54 20 44 49 53 4B 28 | FIND WHAT DISK(|
000015B0: 53 29 20 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 |S) A FILE IS ON"|
000015C0: 3A 99 00 FE 1D AE 06 99 22 45 4E 54 45 52 20 46 |:......."ENTER F|
000015D0: 49 4C 45 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C |ILE NAME .";CL|
000015E0: 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 3A |$;CL$;CL$;:. F$:|
000015F0: 8B 20 46 24 B2 22 2E 22 20 A7 20 32 39 30 00 1E |. F$."." . 290..|
00001600: 1E B8 06 8B 20 46 24 B2 22 2A 22 20 A7 20 99 3A |.... F$."*" . .:|
00001610: 99 22 52 45 2D 22 3B 3A 89 20 31 37 31 30 00 3A |."RE-";:. 1710.:|
00001620: 1E C2 06 53 24 B2 46 24 3A 8D 20 32 30 34 30 3A |...S$.F$:. 2040:|
00001630: 56 B2 59 3A 8D 20 32 30 37 30 00 71 1E CC 06 98 |V.Y:. 2070.q....|
00001640: 34 2C 52 56 24 3B 22 2E 2E 2E 46 49 4C 45 20 4E |4,RV$;"...FILE N|
00001650: 41 4D 45 2E 2E 2E 2E 20 20 49 44 20 20 2E 2E 2E |AME.... ID ...|
00001660: 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 |DISK NAME....":.|
00001670: 34 00 7E 1E D6 06 98 34 2C 53 24 3A 98 34 00 AD |4.~....4,S$:.4..|
00001680: 1E E0 06 81 20 5A B2 30 20 A4 20 4E 58 AB 31 3A |.... Z.0 . NX.1:|
00001690: 44 49 24 B2 C8 28 58 24 28 5A 29 2C 32 29 3A 44 |DI$..(X$(Z),2):D|
000016A0: 4E 24 B2 CA 28 58 24 28 5A 29 2C 33 29 00 E6 1E |N$..(X$(Z),3)...|
000016B0: EA 06 8D 20 32 30 33 30 3A 9F 20 35 2C 38 2C 35 |... 2030:. 5,8,5|
000016C0: 2C 53 24 AA 22 2C 53 2C 52 22 3A 45 46 B2 31 35 |,S$.",S,R":EF.15|
000016D0: 3A 8D 20 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 |:. 270:.5,DF$,NB|
000016E0: 3A 8D 20 32 37 30 00 05 1F F4 06 8D 20 32 36 30 |:. 270...... 260|
000016F0: 3A 59 B2 31 36 3A 8D 20 32 32 30 3A 59 B2 33 3A |:Y.16:. 220:Y.3:|
00001700: 8D 20 32 33 30 00 1F 1F FE 06 8B 20 46 24 20 B3 |. 230...... F$ .|
00001710: 20 C8 28 53 24 2C 56 29 20 A7 20 31 38 34 30 00 | .(S$,V) . 1840.|
00001720: 5D 1F 08 07 8B 20 46 24 20 B2 20 C8 28 53 24 2C |].... F$ . .(S$,|
00001730: 56 29 20 A7 20 98 34 2C 53 24 3B 22 20 20 22 3B |V) . .4,S$;" ";|
00001740: 44 49 24 3B 22 20 20 22 3B 44 4E 24 3A 8F 20 3C |DI$;" ";DN$:. <|
00001750: 2D 20 32 20 53 50 41 43 45 53 20 45 41 00 78 1F |- 2 SPACES EA.x.|
00001760: 12 07 A1 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 |... C$:. C$.."" |
00001770: A7 20 8D 20 32 31 32 30 00 92 1F 1C 07 8B 20 43 |. . 2120...... C|
00001780: 24 B2 22 51 22 20 A7 20 A0 20 35 3A 89 20 31 37 |$."Q" . . 5:. 17|
00001790: 30 30 00 A4 1F 26 07 8B 20 53 53 B2 30 20 A7 20 |00...&.. SS.0 . |
000017A0: 31 37 38 30 00 B0 1F 30 07 A0 20 35 3A 82 20 5A |1780...0.. 5:. Z|
000017B0: 00 CB 1F 3A 07 8B 20 50 44 B2 33 20 A7 20 8D 20 |...:.. PD.3 . . |
000017C0: 32 31 35 30 3A 8D 20 32 31 31 30 00 D6 1F 44 07 |2150:. 2110...D.|
000017D0: 89 20 31 37 30 30 00 EC 1F 4E 07 56 B2 33 3A 8B |. 1700...N.V.3:.|
000017E0: 20 4E 58 B1 30 20 A7 20 31 38 39 30 00 13 20 58 | NX.0 . 1890.. X|
000017F0: 07 99 20 48 43 24 3B 52 56 24 3B 22 4E 4F 20 45 |.. HC$;RV$;"NO E|
00001800: 4E 54 52 49 45 53 22 3B 3A 56 B2 31 3A 89 20 32 |NTRIES";:V.1:. 2|
00001810: 30 31 30 00 42 20 62 07 99 3A 99 20 22 45 4E 54 |010.B b..:. "ENT|
00001820: 45 52 20 44 49 53 4B 20 49 44 20 20 20 2E 22 3B |ER DISK ID .";|
00001830: 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 44 |CL$;CL$;CL$;:. D|
00001840: 49 24 00 6A 20 6C 07 44 49 24 B2 C8 28 44 49 24 |I$.j l.DI$..(DI$|
00001850: AA 22 20 20 22 2C 32 29 3A 8B 20 44 49 24 B2 22 |." ",2):. DI$."|
00001860: 2E 20 22 20 A7 20 31 39 35 30 00 9A 20 76 07 81 |. " . 1950.. v..|
00001870: 20 58 B2 30 20 A4 20 4E 58 AB 31 3A 8B 20 44 49 | X.0 . NX.1:. DI|
00001880: 24 B3 B1 C8 28 58 24 28 58 29 2C 32 29 20 A7 20 |$...(X$(X),2) . |
00001890: 82 20 58 3A 89 20 32 30 30 30 00 BC 20 80 07 44 |. X:. 2000.. ..D|
000018A0: 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 3A 44 49 |N$..(X$(X),3):DI|
000018B0: 24 B2 C8 28 58 24 28 58 29 2C 32 29 00 D8 20 8A |$..(X$(X),2).. .|
000018C0: 07 8D 20 32 31 36 30 3A 8B 20 43 24 B2 22 4E 22 |.. 2160:. C$."N"|
000018D0: 20 A7 20 56 B2 32 3A 8E 00 E3 20 94 07 89 20 32 | . V.2:... ... 2|
000018E0: 30 33 30 00 12 21 9E 07 99 3A 99 22 45 4E 54 45 |030..!...:."ENTE|
000018F0: 52 20 44 49 53 4B 20 4E 41 4D 45 20 20 20 2E 22 |R DISK NAME ."|
00001900: 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 |;CL$;CL$;CL$;:. |
00001910: 46 24 00 28 21 A8 07 8B 20 46 24 B2 22 2E 22 20 |F$.(!... F$."." |
00001920: A7 20 56 B2 31 3A 20 8E 00 4D 21 B2 07 8D 20 32 |. V.1: ..M!... 2|
00001930: 30 34 30 3A 81 20 58 B2 30 20 A4 20 4E 58 AB 31 |040:. X.0 . NX.1|
00001940: 3A 8B 20 59 B2 30 20 A7 20 32 30 32 30 00 6A 21 |:. Y.0 . 2020.j!|
00001950: BC 07 8B 20 46 24 B2 CA 28 58 24 28 58 29 2C 33 |... F$..(X$(X),3|
00001960: 2C 59 29 20 A7 20 32 30 32 30 00 72 21 C6 07 82 |,Y) . 2020.r!...|
00001970: 20 58 00 89 21 D0 07 99 3A 99 20 52 56 24 3B 22 | X..!...:. RV$;"|
00001980: 4E 4F 54 22 3B 3A 56 B2 32 00 B4 21 DA 07 99 22 |NOT";:V.2..!..."|
00001990: 20 49 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 | IN MASTER DIREC|
000019A0: 54 4F 52 59 21 22 3A 8D 20 32 31 35 30 3A 89 20 |TORY!":. 2150:. |
000019B0: 32 31 31 30 00 ED 21 E4 07 44 4E 24 B2 CA 28 58 |2110..!..DN$..(X|
000019C0: 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 58 24 |$(X),3):DI$..(X$|
000019D0: 28 58 29 2C 32 29 3A 8D 20 32 31 36 30 3A 8B 20 |(X),2):. 2160:. |
000019E0: 43 24 B2 22 4E 22 20 A7 20 31 39 39 30 00 03 22 |C$."N" . 1990.."|
000019F0: EE 07 53 24 B2 22 30 3A 44 49 52 2E 22 AA 44 49 |..S$."0:DIR.".DI|
00001A00: 24 3A 8E 00 13 22 F8 07 46 24 B2 C8 28 46 24 2C |$:..."..F$..(F$,|
00001A10: 31 36 29 00 3E 22 02 08 8B 20 C9 28 46 24 2C 31 |16).>"... .(F$,1|
00001A20: 29 B2 22 2A 22 20 A7 20 59 B2 C3 28 46 24 29 AB |)."*" . Y..(F$).|
00001A30: 31 3A 46 24 B2 C8 28 46 24 2C 59 29 3A 8E 00 68 |1:F$..(F$,Y):..h|
00001A40: 22 0C 08 59 B2 31 36 3A 46 24 B2 C8 28 46 24 AA |"..Y.16:F$..(F$.|
00001A50: 22 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |"...............|
00001A60: A0 22 2C 31 36 29 3A 8E 00 97 22 16 08 8D 20 32 |.",16):..."... 2|
00001A70: 31 35 30 3A 99 22 57 41 4E 54 20 50 52 49 4E 54 |150:."WANT PRINT|
00001A80: 45 44 20 43 4F 50 59 22 3B 3A 8D 20 32 31 39 30 |ED COPY";:. 2190|
00001A90: 3A 8D 20 32 31 35 30 00 B0 22 20 08 50 44 B2 33 |:. 2150.." .PD.3|
00001AA0: 3A 8B 20 43 24 B2 22 59 22 20 A7 20 50 44 B2 34 |:. C$."Y" . PD.4|
00001AB0: 00 CB 22 2A 08 9F 20 34 2C 50 44 3A 8B 20 50 44 |.."*.. 4,PD:. PD|
00001AC0: B2 33 20 A7 20 99 20 48 43 24 3B 00 D1 22 34 08 |.3 . . HC$;.."4.|
00001AD0: 8E 00 F4 22 3E 08 99 22 44 45 50 52 45 53 53 20 |...">.."DEPRESS |
00001AE0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00001AF0: 4E 55 45 22 00 0D 23 48 08 A1 20 43 24 3A 20 8B |NUE"..#H.. C$: .|
00001B00: 20 43 24 B2 22 22 20 A7 20 32 31 32 30 00 13 23 | C$."" . 2120..#|
00001B10: 52 08 8E 00 3D 23 5C 08 99 20 48 43 24 3B A6 39 |R...=#\.. HC$;.9|
00001B20: 29 3B 52 56 24 3B 22 44 20 49 20 53 20 4B 20 20 |);RV$;"D I S K |
00001B30: 20 4D 20 41 20 53 20 54 20 45 20 52 22 00 71 23 | M A S T E R".q#|
00001B40: 66 08 99 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |f..:."----------|
00001B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |--------------":|
00001B70: 8E 00 9B 23 70 08 99 20 48 43 24 3B 52 56 24 3B |...#p.. HC$;RV$;|
00001B80: 22 44 49 53 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 |"DISK NAME:";RF$|
00001B90: 3B 22 20 20 22 3B 44 4E 24 3A 99 00 C9 23 7A 08 |;" ";DN$:...#z.|
00001BA0: 99 20 22 20 20 22 3B 52 56 24 3B 22 44 49 53 4B |. " ";RV$;"DISK|
00001BB0: 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 | ID:";RF$;" ";D|
00001BC0: 49 24 3A 8D 20 32 31 35 30 00 DE 23 84 08 99 22 |I$:. 2150..#..."|
00001BD0: 43 4F 52 52 45 43 54 20 44 49 53 4B 22 3B 00 F1 |CORRECT DISK";..|
00001BE0: 23 8E 08 99 22 20 28 59 2F 4E 29 20 3F 20 20 22 |#..." (Y/N) ? "|
00001BF0: 3B 00 17 24 98 08 8D 20 32 31 32 30 3A 8B 20 43 |;..$... 2120:. C|
00001C00: 24 B3 B1 22 59 22 20 AF 20 43 24 B3 B1 22 4E 22 |$.."Y" . C$.."N"|
00001C10: 20 A7 20 32 32 30 30 00 22 24 A2 08 99 20 43 24 | . 2200."$... C$|
00001C20: 3A 8E 00 42 24 AC 08 84 31 35 2C 45 4E 2C 45 4D |:..B$...15,EN,EM|
00001C30: 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 |$,ET,ES:. EN.0 .|
00001C40: 20 8E 00 6C 24 B6 08 99 20 48 43 24 3B 52 56 24 | ..l$... HC$;RV$|
00001C50: 3B 22 44 49 53 4B 20 45 52 52 4F 52 22 3B 52 46 |;"DISK ERROR";RF|
00001C60: 24 3B 22 20 57 48 49 4C 45 20 22 3B 00 86 24 C0 |$;" WHILE ";..$.|
00001C70: 08 8B 20 43 58 20 A7 20 99 22 57 52 49 54 49 4E |.. CX . ."WRITIN|
00001C80: 47 20 4E 45 57 22 00 9E 24 CA 08 8B 20 43 58 B2 |G NEW"..$... CX.|
00001C90: 30 20 A7 20 99 22 52 45 41 44 49 4E 47 22 00 CE |0 . ."READING"..|
00001CA0: 24 D4 08 99 3A 99 22 44 49 53 4B 20 44 49 52 45 |$...:."DISK DIRE|
00001CB0: 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 45 |CTORY CROSS REFE|
00001CC0: 52 45 4E 43 45 20 46 49 4C 45 2E 22 3A 99 00 E1 |RENCE FILE.":...|
00001CD0: 24 DE 08 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 |$... EN;EM$;ET;E|
00001CE0: 53 00 07 25 E8 08 99 3A 99 20 52 56 24 3B 22 50 |S..%...:. RV$;"P|
00001CF0: 52 4F 47 52 41 4D 20 41 42 4F 52 54 45 44 21 22 |ROGRAM ABORTED!"|
00001D00: 3A 89 20 32 33 38 30 00 16 25 F2 08 8B 20 43 58 |:. 2380..%... CX|
00001D10: B2 30 20 A7 20 8E 00 4D 25 FC 08 8D 20 32 31 35 |.0 . ..M%... 215|
00001D20: 30 3A 99 22 55 50 44 41 54 49 4E 47 20 44 49 52 |0:."UPDATING DIR|
00001D30: 45 43 54 4F 52 59 20 43 52 4F 53 53 20 52 45 46 |ECTORY CROSS REF|
00001D40: 45 52 45 4E 43 45 20 2E 2E 2E 22 3A 99 00 73 25 |ERENCE ...":..s%|
00001D50: 06 09 8B 20 4E 58 B2 30 20 A7 20 98 31 35 2C 22 |... NX.0 . .15,"|
00001D60: 53 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 |S0:DISK DIR XREF|
00001D70: 22 3A 8E 00 8E 25 10 09 98 31 35 2C 22 53 30 3A |":...%...15,"S0:|
00001D80: 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 00 B7 |DIR XREF.TEMP"..|
00001D90: 25 1A 09 9F 20 35 2C 38 2C 35 2C 22 30 3A 44 49 |%... 5,8,5,"0:DI|
00001DA0: 52 20 58 52 45 46 2E 54 45 4D 50 2C 53 2C 57 22 |R XREF.TEMP,S,W"|
00001DB0: 3A 8D 20 32 32 32 30 00 E1 25 24 09 81 20 58 B2 |:. 2220..%$.. X.|
00001DC0: 30 20 A4 20 4E 58 AB 31 3A 98 35 2C 58 24 28 58 |0 . NX.1:.5,X$(X|
00001DD0: 29 3B 43 52 24 3B 3A 8D 20 32 32 32 30 3A 82 20 |);CR$;:. 2220:. |
00001DE0: 58 00 00 26 2E 09 A0 20 35 3A 98 31 35 2C 22 53 |X..&... 5:.15,"S|
00001DF0: 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 22 |0:DISK DIR XREF"|
00001E00: 00 32 26 38 09 98 31 35 2C 22 52 30 3A 44 49 53 |.2&8..15,"R0:DIS|
00001E10: 4B 20 44 49 52 20 58 52 45 46 3D 30 3A 44 49 52 |K DIR XREF=0:DIR|
00001E20: 20 58 52 45 46 2E 54 45 4D 50 22 3A 8D 20 32 32 | XREF.TEMP":. 22|
00001E30: 32 30 00 38 26 42 09 8E 00 4B 26 4C 09 A0 20 34 |20.8&B...K&L.. 4|
00001E40: 3A A0 20 35 3A A0 20 31 35 3A 80 00 56 26 56 09 |:. 5:. 15:..V&V.|
00001E50: 99 20 48 43 24 3B 00 7E 26 60 09 A0 20 31 35 3A |. HC$;.~&`.. 15:|
00001E60: 99 22 49 4E 53 45 52 54 20 4D 41 53 54 45 52 20 |."INSERT MASTER |
00001E70: 44 49 53 4B 22 3A 99 3A 8D 20 32 31 31 30 00 97 |DISK":.:. 2110..|
00001E80: 26 6A 09 9F 20 31 35 2C 38 2C 31 35 2C 22 49 30 |&j.. 15,8,15,"I0|
00001E90: 22 3A 8D 20 32 37 30 00 BE 26 74 09 98 31 35 2C |":. 270..&t..15,|
00001EA0: 22 43 30 3A 44 49 53 4B 20 4D 41 53 54 45 52 3D |"C0:DISK MASTER=|
00001EB0: 30 3A 44 49 53 4B 20 4D 41 53 54 45 52 22 00 D6 |0:DISK MASTER"..|
00001EC0: 26 7E 09 84 31 35 2C 45 4E 3A 20 8B 20 45 4E B2 |&~..15,EN: . EN.|
00001ED0: 36 33 20 A7 20 8E 00 01 27 88 09 99 3A 99 20 52 |63 . ...'...:. R|
00001EE0: 56 24 3B 22 49 4E 43 4F 52 52 45 43 54 20 44 49 |V$;"INCORRECT DI|
00001EF0: 53 4B 21 22 3A 8D 20 32 31 35 30 3A 89 32 34 30 |SK!":. 2150:.240|
00001F00: 30 00 31 27 92 09 99 20 48 43 24 3B 22 45 4E 54 |0.1'... HC$;"ENT|
00001F10: 45 52 20 4D 49 4E 49 4D 55 4D 20 4E 55 4D 42 45 |ER MINIMUM NUMBE|
00001F20: 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 |R OF FREE BLOCKS|
00001F30: 22 00 6F 27 9C 09 99 3A 99 22 54 4F 20 42 45 20 |".o'...:."TO BE |
00001F40: 44 49 53 50 4C 41 59 45 44 20 20 20 30 22 3B 43 |DISPLAYED 0";C|
00001F50: 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 20 53 24 |L$;CL$;CL$;:. S$|
00001F60: 3A 20 8F 20 2D 20 44 45 46 41 55 4C 54 3D 30 00 |: . - DEFAULT=0.|
00001F70: 92 27 A6 09 59 B2 C5 28 53 24 29 3A 8B 20 53 24 |.'..Y..(S$):. S$|
00001F80: B3 B1 22 30 22 20 AF 20 59 B2 30 20 A7 20 31 32 |.."0" . Y.0 . 12|
00001F90: 36 30 00 A2 27 B0 09 56 46 B2 30 3A 89 20 32 35 |60..'..VF.0:. 25|
00001FA0: 33 30 00 D2 27 BA 09 99 20 48 43 24 3B 22 45 4E |30..'... HC$;"EN|
00001FB0: 54 45 52 20 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 |TER MAXIMUM NUMB|
00001FC0: 45 52 20 4F 46 20 46 52 45 45 20 42 4C 4F 43 4B |ER OF FREE BLOCK|
00001FD0: 53 22 00 06 28 C4 09 99 3A 99 22 54 4F 20 42 45 |S"..(...:."TO BE|
00001FE0: 20 44 49 53 50 4C 41 59 45 44 20 20 20 39 39 22 | DISPLAYED 99"|
00001FF0: 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 |;CL$;CL$;CL$;CL$|
00002000: 3B 3A 85 20 53 24 00 1F 28 CE 09 59 B2 C5 28 53 |;:. S$..(..Y..(S|
00002010: 24 29 3A 8B 20 59 B2 30 20 A7 20 31 32 36 30 00 |$):. Y.0 . 1260.|
00002020: 28 28 D8 09 56 46 B2 31 00 60 28 E2 09 8D 20 32 |((..VF.1.`(... 2|
00002030: 30 37 30 3A 98 34 2C 52 56 24 3B 22 23 42 4C 4B |070:.4,RV$;"#BLK|
00002040: 53 20 46 52 45 45 20 20 49 44 20 20 2E 2E 2E 44 |S FREE ID ...D|
00002050: 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 34 |ISK NAME....":.4|
00002060: 00 8F 28 EC 09 81 20 58 B2 30 20 A4 20 4E 58 AB |..(... X.0 . NX.|
00002070: 31 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |1:DI$..(X$(X),2)|
00002080: 3A 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 00 |:DN$..(X$(X),3).|
00002090: C9 28 F6 09 9F 20 35 2C 38 2C 35 2C 22 30 3A 44 |.(... 5,8,5,"0:D|
000020A0: 49 52 2E 22 AA 44 49 24 AA 22 2C 53 2C 52 22 3A |IR.".DI$.",S,R":|
000020B0: 8D 20 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A |. 270:.5,DF$,NB:|
000020C0: 8D 20 32 37 30 3A A0 20 35 00 E6 28 00 0A 8B 20 |. 270:. 5..(... |
000020D0: 28 56 46 B2 30 29 20 AF 20 28 4E 42 B3 59 29 20 |(VF.0) . (NB.Y) |
000020E0: A7 20 32 35 39 30 00 03 29 0A 0A 8B 20 28 56 46 |. 2590..)... (VF|
000020F0: B2 31 29 20 AF 20 28 4E 42 B1 59 29 20 A7 20 32 |.1) . (NB.Y) . 2|
00002100: 35 39 30 00 30 29 14 0A 98 34 2C C9 28 22 20 20 |590.0)...4,.(" |
00002110: 20 20 20 20 20 22 AA C4 28 4E 42 29 2C 37 29 3B | "..(NB),7);|
00002120: A6 35 29 3B 44 49 24 3B 22 20 20 22 3B 44 4E 24 |.5);DI$;" ";DN$|
00002130: 00 4B 29 1E 0A A1 20 43 24 3A 8B 20 43 24 B3 B1 |.K)... C$:. C$..|
00002140: 22 22 20 A7 20 8D 20 32 31 32 30 00 5F 29 28 0A |"" . . 2120._)(.|
00002150: 8B 20 43 24 B2 22 51 22 20 A7 20 31 32 36 30 00 |. C$."Q" . 1260.|
00002160: 6E 29 32 0A 82 20 58 3A 89 20 31 36 37 30 00 00 |n)2.. X:. 1670..|
00002170: 00 00 BD A2 |.... |
..'.... ---------- DISK MASTER --------.
-.....M.... SINGLE VIC-1541 DISK.N.
(.. ON COMMODORE-64 SYSTEM.T.2.....<
.. EDWIN MULLER...F.....P...B.Z
.. -------------------------------.H.D.:
...N..:C$."":S$.C$:X.0:Y.0...X.CR$.G(13)
:HC$.G(147):RV$.G(18):RF$.G(146):CL$.G(1
57).X.... CR = CARRIAGE RETURN, HC = HOM
E/CLEAR, RV = REVERSE ON...... RF = REVE
RSE OFF, CL = CURSER LEFT...... 2140
:. D$(230),X$(230).N. .." READING DIRE
CTORY CROSS REFERENCE"......15,8,15,"I0"
:. 2220...... 5,8,5,"0:DISK DIR XREF,S,R
".*....15,EN,EM$,ET,ES:.EN.62. 290.Z.H..
5,X$(NX):SS.ST:. 2220:NX.NX.1:. SS.0 . 2
00.D.R.. 290.....S$."":. X.1 . Y:. 260:S
$.S$.C$:. X:....... X.1 . Y:. 260:. X:..
H...V.0:. 260:. C$.."" . V.F(C$).N.....Y
....#5,C$.....SS.ST:.15,EN,EM$,ET,ES:. E
N.0 . ..$.... HC$;RV$;"DISK ERROR!":.:.
2270.<.". 4: 5:CX.0:. 2140.S.,.. .5);"
0 - DONE":..}.6.. .5);"1 - UPDATE MASTER
DIRECTORY":....@.. .5);"2 - DELETE DISK
ENTRY FROM MASTER":..Z.J.. .5);"3 - DIS
PLAY SELECTED DIRECTORY":....T.. .5);"4
- FIND SPECIFIED FILE":..'.^.. .5);"5 -
LIST DISK ID'S & NAMES".P.H.. 2150:."ENT
ER DESIRED FUNCTION: ";.S.R.. 2120:. C$
."0" . . HC$:. 2380...|.V.E(C$):. V.1 .
V.5 . 370...... V . 400,1180,980,1690,12
50..... 15:CX.0:. HC$;"INSERT DISK TO B
E CATALOGED"."....:."DEPRESS ANY KEY TO
CONTINUE, ";RV$;"Q";RF$;" TO QUIT".E....
2120:. C$."Q" . . 2390:. 290.J.... 2150
:."OK":.15,8,15,"I0":. 270......5,8,5,"$
0,S,R":.270...B.. 240:VF.V:. 260.D.L.NB.
0:. Z.1 . 35:. 240:. Z..18 . NB.NB.V.V.V
.Y.3:. 230:. Z.....Y.16:. 220:DN$.S$:Y.2
:. 230.....Y.2:. 220:DI$.H(S$." ",2)./.
... 2160:. C$."N" . 970.@.... NX.0 . 630
.N.... X.0 . NX.1:C$.H(X$(X),2):. DI$.C$
. 630...... DI$..C$ . . X:. 630...... D
N$.J(X$(X),3) . 630...&.. HC$;RV$;"*** W
ARNING ***";RF$;" THIS DISK ID : ";RV$;
DI$;RF$...0..:."DISK NAME: ";RV$;DN$.5.:
..:."IS ALL READY CATALOGED WITH A DIFFE
RENT".`.D..:."DISK NAME: ";RV$;J(X$(X),3
):. 2150...N.."CATALOGING THIS WILL DELE
TE THE"...X..:."PREVIOUS DATE!":. 2150.V
.B.."CATALOG THIS DISK";:. 2190:. C$."N"
. 970...L.. HC$;"CATALOGING DISK WITH N
EW DISK NAME".1.V.. 2150:."READING DIREC
TORY ENTRIES ...".Q.... 260:Y.2:. 220:DF
$.S$:Y.89.G.... VF.1 . DF$." 1".Q.... 23
0.~...NF.0:Z.0...... 240:FT.V.....F$.C$:
Y.2:. 230:Y.16:. 220:Y.9:. 230...... 240
:S$.S$.G(V):. 240:. FT.0 . 770...F.. NF.
0 . 740...P.. X.1 . NF:. H(S$,16) . J(D$
(X),2,16) . 750.'.Z.. X.8...X.NF.1:. 760
.].... Y.NF . X ..1:D$(Y.1).D$(Y):. Y.Z.
..D$(X).F$.S$.G(V):NF.NF.1.....Z.Z.1:Z.Z
.(.(Z.8).8):. Z.0 . Y.2:. 230...... NF.1
55. 840...... HC$;.6);RV$;"*** DISK BAM
IS INVALID ***";RF$:. 2150.&. ..:." CU
RRENT DISK CANNOT BE CATALOGED!":.:.:..U
.*.." PLEASE VERIFY OR CHECK DISK CONTEN
TS":....4.."BEFORE ATTEMPTING TO CATALOG
THIS DISK.":....>.. 2150:. 2110:. 970..
.H.. SS.0 . 680...R. 5:. 2390:. 2150:."
UPDATING MASTER DIRECTORY ..."...\.. NX.
0 . 910.'.F.. X.0 . NX.1:C$.H(X$(X),2):.
DI$ . C$ . 900.:.P.. DI$.C$ . 930.H.Z..
X:. 910.U.... Y.NX.1 . X ..1:X$(Y.1).X$
(Y):. Y:. 920.~...X.NX.....NX.NX.1.....X
$(X).DI$.DN$:CX.1.O.... 2030:.15,"S".S$:
. 5,8,5,S$.",S,W":. 270......5,DF$;",";N
B;CR$;:. 270...... NF.0 . . X.1 . NF:.5,
D$(X);CR$;:. 270:. X.1.J. 5:. 2290:. 40
0.L.T.. HC$;"TO DISPLAY DISK DIRECTORY":
. 1870:. V . 290,980...... 5,8,5,S$.",S,
R":. 270:. 2070:.5,DF$,NB:. 270.L....4,"
";RV$;"DISK NAME:";RF$;" ";DN$:.4....
..4,"".4);RV$;"DISK ID:";RF$;" ";DI$;.6
)."....4,RV$;"DISK FORMAT:";RF$;" "DF$:
.4.J....4,RV$;"BLOCKS FREE:";RF$;" ";NB:
.4.~....4,"-----------------------------
----------":.4.....NF.0:. SS.0 . 1160.E.
$.. 240:FT.V:Y.16:. 220:. 240:Z.V:. 240:
. 260......4,I(" ".D(Z.(256.V)),4);"
";S$;" ";...8.. FT.129 . .4,"SEQ";.&.
B.. FT.130 . .4,"PGM";.?.L.. FT.131 . .4
,"USR";.X.V.. FT.132 . .4,"REL";.V.`..4:
. C$:. C$.."" . . 2120...J.. C$."Q" . 11
70...T.NF.NF.1:. SS.0 . 1060.G.~..4:.4,R
V$;"#FILES:";RF$;" ";NF...... PD.3 . . 2
150:. 2110..... 4: 5:. 980.$....HC$;"T
O DELETE DISK FROM MASTER DIRECTORY".?..
.. 1870:. V . 1240,1180.N....15,"S".S$.|
...CX.0:. X.0 . NX.1:. H(X$(X),2).DI$ .
CX.1...D.. CX . X$(X).X$(X.1)...N.. X:NX
.NX.1:. 1180...X.. 2290:. 290.W.... NX.0
. . 1880:. 290..... 4:. 2140...... .5)
;"0 - RETURN TO MAIN FUNCTION MENU":..B.
... .5);"1 - PRINT FULL ID USEAGE CHART"
:..N.... .5);"2 - QUICK LIST OF ID'S IN
USE":....... .5);"3 - LIST DISK ID'S & N
AMES":..U.... .5);"4 - LIST ";RV$;"MIN";
RF$;" FREE BLOCKS PER DISK":....(.. .5);
"5 - LIST ";RV$;"MAX";RF$;" FREE BLOCKS
PER DISK".:.2.. 2150:."ENTER DESIRED FUN
CTION: ";.T.<.. 2120:. C$."0" . 290.S.F
.V.E(C$):. V.1 . V.5 . 1340...P.. C$:. V
. 1370,1550,1620,2450,2490...Z.. 4,4...
D..4,"".15);RV$;" D I S K I D U S E A
G E C H A R T "...N..4: .4," ";...X..
X.48 . 90:. X.58 . X.65.(....4," ";G(X)
;:. X:.4.J...Z.0:. X.48 . 90:. X.58 . X.
65......4," ............................
......................";... ..4,".......
....."......4,G(X);.I.... Y.48 . 90:. Y.
58 . Y.65......4,G(221);:. Z.NX . 1500..
.H.C$.G(X).G(Y):S$.H(X$(Z),2).+.R.. S$.C
$ . .4,G(166);:Z.Z.1:. 1510.7....4," ";.
`.... Y:.4,G(221):. C$:. C$.."" . . 2120
.T.... C$.."Q" . . X......4," ..........
........................................
";.O....4,"............":. 1260...... 20
70:.4,"".7);".DISK ID'S CURRENTLY IN USE
"......4:.4.".".V.12:. PD.4 . V.25.J.,.Z
.0:. X.0 . NX.1:.4,H(X$(X),2);" ";.F.6.Z
.Z.1:. Z..(Z.V).V . .4...@.. X:.4:.4:. Z
...(Z.V).V . .4...J..4,Z;RV$;"DISKS IN M
ASTER DIRECTORY":. 1670...T.. 2070:.4,RV
$;"ID ...DISK NAME....":.4...^.. X.0 .
NX.1:.4,H(X$(X),2);" ";J(X$(X),3).-.H..
C$:. C$.."" . . 2120.A.R.. C$."Q" . 126
0.I.|.. X.[.... PD.4 . 1260.T.... 2150:.
2110:. 1260...... NX.0 . . 1880:. 290.B
... 4:. HC$;"TO FIND WHAT DISK(S) A FIL
E IS ON":......."ENTER FILE NAME .";CL
$;CL$;CL$;:. F$:. F$."." . 290...... F$.
"*" . .:."RE-";:. 1710.:.B.S$.F$:. 2040:
V.Y:. 2070.Q.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)...... 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) . 1840.
].... F$ . H(S$,V) . .4,S$;" ";DI$;" "
;DN$:. <- 2 SPACES EA.X.... C$:. C$..""
. . 2120...... C$."Q" . 5:. 1700...&..
SS.0 . 1780...0. 5:. Z.K.:.. PD.3 . .
2150:. 2110.V.D.. 1700...N.V.3:. NX.0 .
1890.. X.. HC$;RV$;"NO ENTRIES";:V.1:. 2
010.B B..:. "ENTER DISK ID .";CL$;CL$;
CL$;:. DI$.J 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).X ... 2160:. C$."N" . V.2:.
.. ... 2030..!...:."ENTER DISK NAME ."
;CL$;CL$;CL$;:. F$.(!... F$."." . V.1: .
.M!... 2040:. X.0 . NX.1:. Y.0 . 2020.J!
... F$.J(X$(X),3,Y) . 2020.R!F.. X..!P..
:. RV$;"NOT";:V.2..!Z.." IN MASTER DIREC
TORY!":. 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):..H
"..Y.16:F$.H(F$." ",16):.
.."... 2150:."WANT PRINTED COPY";:. 2190
:. 2150.." .PD.3:. C$."Y" . PD.4.K"*.. 4
,PD:. PD.3 . . HC$;.Q"4....">.."DEPRESS
ANY KEY TO CONTINUE"..#H.. C$: . C$."" .
2120..#R...=#\.. HC$;.9);RV$;"D I S K
M A S T E R".Q#F..:."------------------
----------------------":...#P.. HC$;RV$;
"DISK NAME:";RF$;" ";DN$:..I#Z.. " ";R
V$;"DISK ID:";RF$;" ";DI$:. 2150..#..."
CORRECT DISK";..#..." (Y/N) ? ";..$...
2120:. C$.."Y" . C$.."N" . 2200."$... C$
:..B$...15,EN,EM$,ET,ES:. EN.0 . ..L$...
HC$;RV$;"DISK ERROR";RF$;" WHILE ";..$.
.. CX . ."WRITING NEW"..$J.. CX.0 . ."RE
ADING".N$T..:."DISK DIRECTORY CROSS REFE
RENCE FILE.":...$... EN;EM$;ET;ES..%...:
. RV$;"PROGRAM ABORTED!":. 2380..%... CX
.0 . ..M%... 2150:."UPDATING DIRECTORY C
ROSS REFERENCE ...":..S%... NX.0 . .15,"
S0: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"
.2&8..15,"R0:DISK DIR XREF=0:DIR XREF.TE
MP":. 2220.8&B...K&L. 4: 5: 15:..V&V.
. HC$;.~&`. 15:."INSERT MASTER DISK":.:
. 2110..&J.. 15,8,15,"I0":. 270..&T..15,
"C0:DISK MASTER=0:DISK MASTER".V&~..15,E
N: . EN.63 . ...'...:. RV$;"INCORRECT DI
SK!":. 2150:.2400.1'... HC$;"ENTER MINIM
UM NUMBER OF FREE BLOCKS".O'...:."TO BE
DISPLAYED 0";CL$;CL$;CL$;:. S$: . - DE
FAULT=0..'..Y.E(S$):. S$.."0" . Y.0 . 12
60..'..VF.0:. 2530.R'... HC$;"ENTER MAXI
MUM NUMBER OF FREE BLOCKS"..(D..:."TO BE
DISPLAYED 99";CL$;CL$;CL$;CL$;:. S$..
(N.Y.E(S$):. Y.0 . 1260.((X.VF.1.`(... 2
070:.4,RV$;"#BLKS FREE ID ...DISK NAME
....":.4..(... X.0 . NX.1:DI$.H(X$(X),2)
:DN$.J(X$(X),3).I(... 5,8,5,"0:DIR.".DI$
.",S,R":. 270:.5,DF$,NB:. 270: 5..(...
(VF.0) . (NB.Y) . 2590..)... (VF.1) . (N
B.Y) . 2590.0)...4,I(" ".D(NB),7);
.5);DI$;" ";DN$.K)... C$:. C$.."" . . 2
120._)(.. C$."Q" . 1260.N)2.. X:. 1670..
....
> CLICK IMAGE PREVIEW FOR FULL MODAL