Multiple names: DISKMASTER, POINT PLOTTER
FILE INFORMATION
FILENAME(S):
• DISKMASTER<br>• POINT PLOTTER
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-11-30 21:23:59
APPEARS ON: 2 disk(s)
FILE HASH
77239397cabef054130548776d47203362e25181f06b446a130a4aa05dea63fa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 44 1 | DISKMASTER | PRG | DuncanTwain | 21 | 7 | DOWNLOAD FILE |
| C64 SPEL 44 1 | POINT PLOTTER | PRG | DuncanTwain | 21 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D |..&.... --------|
00000010: 2D 20 44 49 53 4B 20 4D 41 53 54 45 52 20 2D 2D |- DISK MASTER --|
00000020: 2D 2D 2D 2D 2D 2D 00 2C 08 14 00 8F 00 4C 08 1E |------.,.....L..|
00000030: 00 8F 20 20 20 20 20 20 53 49 4E 47 4C 45 20 56 |.. SINGLE V|
00000040: 49 43 2D 31 35 34 31 20 44 49 53 4B 00 6C 08 28 |IC-1541 DISK.l.(|
00000050: 00 8F 20 20 20 20 4F 4E 20 43 4F 4D 4D 4F 44 4F |.. ON COMMODO|
00000060: 52 45 2D 36 34 20 53 59 53 54 45 4D 00 72 08 32 |RE-64 SYSTEM.r.2|
00000070: 00 8F 00 90 08 3C 00 8F 20 20 20 20 20 20 20 20 |.....<.. |
00000080: 20 52 4F 42 45 52 54 20 57 2E 20 42 41 4B 45 52 | ROBERT W. BAKER|
00000090: 00 B5 08 46 00 8F 20 20 32 35 20 57 49 4E 44 53 |...F.. 25 WINDS|
000000A0: 4F 52 20 44 52 2C 20 41 54 43 4F 2C 20 4E 4A 20 |OR DR, ATCO, NJ |
000000B0: 30 38 30 30 34 00 BB 08 50 00 8F 00 E0 08 5A 00 |08004...P.....Z.|
000000C0: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000E0: 00 E6 08 64 00 3A 00 F9 08 66 00 48 24 B2 22 DB |...d.:...f.H$.".|
000000F0: C0 22 3A 41 31 24 B2 22 22 00 17 09 67 00 81 20 |.":A1$.""...g.. |
00000100: 49 B2 31 20 A4 20 31 30 3A 41 31 24 B2 41 31 24 |I.1 . 10:A1$.A1$|
00000110: AA 48 24 3A 82 20 49 00 2A 09 68 00 48 24 B2 22 |.H$:. I.*.h.H$."|
00000120: B1 C0 22 3A 41 32 24 B2 22 22 00 48 09 69 00 81 |..":A2$."".H.i..|
00000130: 20 49 B2 31 20 A4 20 31 30 3A 41 32 24 B2 41 32 | I.1 . 10:A2$.A2|
00000140: 24 AA 48 24 3A 82 20 49 00 62 09 6E 00 9C 3A 43 |$.H$:. I.b.n..:C|
00000150: 24 B2 22 22 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 |$."":S$.C$:X.0:Y|
00000160: B2 30 00 9B 09 78 00 43 52 24 B2 C7 28 31 33 29 |.0...x.CR$..(13)|
00000170: 3A 48 43 24 B2 C7 28 31 34 37 29 3A 52 56 24 B2 |:HC$..(147):RV$.|
00000180: C7 28 31 38 29 3A 52 46 24 B2 C7 28 31 34 36 29 |.(18):RF$..(146)|
00000190: 3A 43 4C 24 B2 C7 28 31 35 37 29 00 D2 09 82 00 |:CL$..(157).....|
000001A0: 8F 20 43 52 3D 43 41 52 52 49 41 47 45 20 52 45 |. CR=CARRIAGE RE|
000001B0: 54 55 52 4E 2C 20 48 43 3D 48 4F 4D 45 2F 43 4C |TURN, HC=HOME/CL|
000001C0: 45 41 52 2C 20 52 56 3D 52 45 56 45 52 53 45 20 |EAR, RV=REVERSE |
000001D0: 4F 4E 00 F7 09 8C 00 8F 20 52 46 3D 52 45 56 45 |ON...... RF=REVE|
000001E0: 52 53 45 20 4F 46 46 2C 20 43 4C 3D 43 55 52 53 |RSE OFF, CL=CURS|
000001F0: 4F 52 20 4C 45 46 54 00 14 0A 96 00 8D 20 32 31 |OR LEFT...... 21|
00000200: 34 30 3A 86 20 44 24 28 32 33 30 29 2C 58 24 28 |40:. D$(230),X$(|
00000210: 32 33 30 29 00 40 0A A0 00 99 22 20 20 20 52 45 |230).@...." RE|
00000220: 41 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 |ADING DIRECTORY |
00000230: 43 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 22 |CROSS REFERENCE"|
00000240: 00 5A 0A AA 00 9F 20 31 35 2C 38 2C 31 35 2C 22 |.Z.... 15,8,15,"|
00000250: 49 30 22 3A 8D 20 32 32 32 30 00 7C 0A B4 00 9F |I0":. 2220.|....|
00000260: 20 35 2C 38 2C 35 2C 22 30 3A 44 49 53 4B 20 44 | 5,8,5,"0:DISK D|
00000270: 49 52 20 58 52 45 46 2C 53 2C 52 22 00 9F 0A BE |IR XREF,S,R"....|
00000280: 00 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E|
00000290: 53 3A 8B 20 45 4E B2 36 32 20 A7 20 32 39 30 00 |S:. EN.62 . 290.|
000002A0: CF 0A C8 00 84 35 2C 58 24 28 4E 58 29 3A 53 53 |.....5,X$(NX):SS|
000002B0: B2 53 54 3A 8D 20 32 32 32 30 3A 4E 58 B2 4E 58 |.ST:. 2220:NX.NX|
000002C0: AA 31 3A 8B 20 53 53 B2 30 20 A7 20 32 30 30 00 |.1:. SS.0 . 200.|
000002D0: D9 0A D2 00 89 20 32 39 30 00 02 0B DC 00 53 24 |..... 290.....S$|
000002E0: B2 22 22 3A 81 20 58 B2 31 20 A4 20 59 3A 8D 20 |."":. X.1 . Y:. |
000002F0: 32 36 30 3A 53 24 B2 53 24 AA 43 24 3A 82 20 58 |260:S$.S$.C$:. X|
00000300: 3A 8E 00 1C 0B E6 00 81 20 58 B2 31 20 A4 20 59 |:....... X.1 . Y|
00000310: 3A 8D 20 32 36 30 3A 82 20 58 3A 8E 00 3D 0B F0 |:. 260:. X:..=..|
00000320: 00 56 B2 30 3A 8D 20 32 36 30 3A 8B 20 43 24 B3 |.V.0:. 260:. C$.|
00000330: B1 22 22 20 A7 20 56 B2 C6 28 43 24 29 00 43 0B |."" . V..(C$).C.|
00000340: FA 00 8E 00 4E 0B 04 01 A1 23 35 2C 43 24 00 74 |....N....#5,C$.t|
00000350: 0B 0E 01 53 53 B2 53 54 3A 84 31 35 2C 45 4E 2C |...SS.ST:.15,EN,|
00000360: 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 4E B2 30 |EM$,ET,ES:. EN.0|
00000370: 20 A7 20 8E 00 99 0B 18 01 99 20 48 43 24 3B 52 | . ....... HC$;R|
00000380: 56 24 3B 22 44 49 53 4B 20 45 52 52 4F 52 21 22 |V$;"DISK ERROR!"|
00000390: 3A 99 3A 89 20 32 32 37 30 00 B1 0B 22 01 A0 20 |:.:. 2270...".. |
000003A0: 34 3A A0 20 35 3A 43 58 B2 30 3A 8D 20 32 31 34 |4:. 5:CX.0:. 214|
000003B0: 30 00 C8 0B 2C 01 99 20 A6 35 29 3B 22 30 20 2D |0...,.. .5);"0 -|
000003C0: 20 44 4F 4E 45 22 3A 99 00 F2 0B 36 01 99 20 A6 | DONE":....6.. .|
000003D0: 35 29 3B 22 31 20 2D 20 55 50 44 41 54 45 20 4D |5);"1 - UPDATE M|
000003E0: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 |ASTER DIRECTORY"|
000003F0: 3A 99 00 22 0C 40 01 99 20 A6 35 29 3B 22 32 20 |:..".@.. .5);"2 |
00000400: 2D 20 44 45 4C 45 54 45 20 44 49 53 4B 20 45 4E |- DELETE DISK EN|
00000410: 54 52 59 20 46 4F 52 4D 20 4D 41 53 54 45 52 22 |TRY FORM MASTER"|
00000420: 3A 99 00 4F 0C 4A 01 99 20 A6 35 29 3B 22 33 20 |:..O.J.. .5);"3 |
00000430: 2D 20 44 49 53 50 4C 41 59 20 53 45 4C 45 43 54 |- DISPLAY SELECT|
00000440: 45 44 20 44 49 52 45 43 54 4F 52 59 22 3A 99 00 |ED DIRECTORY":..|
00000450: 75 0C 54 01 99 20 A6 35 29 3B 22 34 20 2D 20 46 |u.T.. .5);"4 - F|
00000460: 49 4E 44 20 53 50 45 43 49 46 49 45 44 20 46 49 |IND SPECIFIED FI|
00000470: 4C 45 22 3A 99 00 9C 0C 5E 01 99 20 A6 35 29 3B |LE":....^.. .5);|
00000480: 22 35 20 2D 20 4C 49 53 54 20 44 49 53 4B 20 49 |"5 - LIST DISK I|
00000490: 44 27 53 20 26 20 4E 41 4D 45 53 22 00 C5 0C 68 |D'S & NAMES"...h|
000004A0: 01 8D 20 32 31 35 30 3A 99 22 45 4E 54 45 52 20 |.. 2150:."ENTER |
000004B0: 44 45 53 49 52 45 44 20 46 55 4E 43 54 49 4F 4E |DESIRED FUNCTION|
000004C0: 3A 20 20 22 3B 00 E8 0C 72 01 8D 20 32 31 32 30 |: ";...r.. 2120|
000004D0: 3A 8B 20 43 24 B2 22 30 22 20 A7 20 99 20 48 43 |:. C$."0" . . HC|
000004E0: 24 3A 89 20 32 33 38 30 00 06 0D 7C 01 56 B2 C5 |$:. 2380...|.V..|
000004F0: 28 43 24 29 3A 8B 20 56 B3 31 20 B0 20 56 B1 35 |(C$):. V.1 . V.5|
00000500: 20 A7 20 33 37 30 00 27 0D 86 01 91 20 56 20 89 | . 370.'.... V .|
00000510: 20 34 30 30 2C 31 31 38 30 2C 39 38 30 2C 31 36 | 400,1180,980,16|
00000520: 39 30 2C 31 32 35 30 00 59 0D 90 01 A0 20 31 35 |90,1250.Y.... 15|
00000530: 3A 43 58 B2 30 3A 99 20 48 43 24 3B 22 49 4E 53 |:CX.0:. HC$;"INS|
00000540: 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 43 |ERT DISK TO BE C|
00000550: 41 54 41 4C 4F 47 45 44 22 00 97 0D 9A 01 99 3A |ATALOGED"......:|
00000560: 99 22 44 45 50 52 45 53 53 20 41 4E 59 20 4B 45 |."DEPRESS ANY KE|
00000570: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 22 |Y TO CONTINUE, "|
00000580: 3B 52 56 24 3B 22 51 22 3B 52 46 24 3B 22 20 54 |;RV$;"Q";RF$;" T|
00000590: 4F 20 51 55 49 54 22 00 BA 0D A4 01 8D 20 32 31 |O QUIT"...... 21|
000005A0: 32 30 3A 8B 20 43 24 B2 22 51 22 20 A7 20 8D 20 |20:. C$."Q" . . |
000005B0: 32 33 39 30 3A 89 20 32 39 30 00 E0 0D AE 01 8D |2390:. 290......|
000005C0: 20 32 31 35 30 3A 99 22 4F 4B 22 3A 9F 20 31 35 | 2150:."OK":. 15|
000005D0: 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 20 32 37 30 |,8,15,"I0":. 270|
000005E0: 00 FB 0D B8 01 9F 20 35 2C 38 2C 35 2C 22 24 30 |...... 5,8,5,"$0|
000005F0: 2C 53 2C 52 22 3A 8D 20 32 37 30 00 10 0E C2 01 |,S,R":. 270.....|
00000600: 8D 20 32 34 30 3A 56 46 B2 56 3A 8D 20 32 36 30 |. 240:VF.V:. 260|
00000610: 00 3D 0E CC 01 4E 42 B2 30 3A 81 20 5A B2 31 20 |.=...NB.0:. Z.1 |
00000620: A4 20 33 35 3A 20 8D 20 32 34 30 3A 8B 20 5A B3 |. 35: . 240:. Z.|
00000630: B1 31 38 20 A7 20 4E 42 B2 4E 42 AA 56 00 4F 0E |.18 . NB.NB.V.O.|
00000640: D6 01 59 B2 33 3A 8D 20 32 33 30 3A 82 20 5A 00 |..Y.3:. 230:. Z.|
00000650: 6F 0E E0 01 59 B2 31 36 3A 8D 20 32 32 30 3A 44 |o...Y.16:. 220:D|
00000660: 4E 24 B2 53 24 3A 59 B2 32 3A 8D 20 32 33 30 00 |N$.S$:Y.2:. 230.|
00000670: 8E 0E EA 01 59 B2 32 3A 8D 20 32 32 30 3A 44 49 |....Y.2:. 220:DI|
00000680: 24 B2 C8 28 53 24 AA 22 20 20 22 2C 32 29 00 A8 |$..(S$." ",2)..|
00000690: 0E F4 01 8D 20 32 31 36 30 3A 8B 20 43 24 B2 22 |.... 2160:. C$."|
000006A0: 4E 22 20 A7 20 39 37 30 00 B9 0E FE 01 8B 20 4E |N" . 970...... N|
000006B0: 58 B2 30 20 A7 20 36 33 30 00 E7 0E 08 02 81 20 |X.0 . 630...... |
000006C0: 58 B2 30 20 A4 20 4E 58 AB 31 3A 43 24 B2 C8 28 |X.0 . NX.1:C$..(|
000006D0: 58 24 28 58 29 2C 32 29 3A 8B 20 44 49 24 B3 43 |X$(X),2):. DI$.C|
000006E0: 24 20 A7 20 36 33 30 00 02 0F 12 02 8B 20 44 49 |$ . 630...... DI|
000006F0: 24 B3 B1 43 24 20 A7 20 82 20 58 3A 20 89 20 36 |$..C$ . . X: . 6|
00000700: 33 30 00 1D 0F 1C 02 8B 20 44 4E 24 B2 CA 28 58 |30...... DN$..(X|
00000710: 24 28 58 29 2C 33 29 20 A7 20 36 33 30 00 61 0F |$(X),3) . 630.a.|
00000720: 26 02 99 20 48 43 24 3B 52 56 24 3B 22 2A 2A 2A |&.. HC$;RV$;"***|
00000730: 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 22 3B 52 46 | WARNING ***";RF|
00000740: 24 3B 22 20 20 54 48 49 53 20 44 49 53 4B 20 49 |$;" THIS DISK I|
00000750: 44 20 3A 20 22 3B 52 56 24 3B 44 49 24 3B 52 46 |D : ";RV$;DI$;RF|
00000760: 24 00 7E 0F 30 02 99 3A 99 22 44 49 53 4B 20 4E |$.~.0..:."DISK N|
00000770: 41 4D 45 3A 20 22 3B 52 56 24 3B 44 4E 24 00 AF |AME: ";RV$;DN$..|
00000780: 0F 3A 02 99 3A 99 22 49 53 20 41 4C 4C 52 45 41 |.:..:."IS ALLREA|
00000790: 44 59 20 43 41 54 41 4C 4F 47 45 44 20 57 49 54 |DY CATALOGED WIT|
000007A0: 48 20 41 20 44 49 46 46 45 52 45 4E 54 20 22 00 |H A DIFFERENT ".|
000007B0: DA 0F 44 02 99 3A 99 22 44 49 53 4B 20 4E 41 4D |..D..:."DISK NAM|
000007C0: 45 3A 20 22 3B 52 56 24 3B CA 28 58 24 28 58 29 |E: ";RV$;.(X$(X)|
000007D0: 2C 33 29 3A 8D 20 32 31 35 30 00 07 10 4E 02 99 |,3):. 2150...N..|
000007E0: 20 22 43 41 54 41 4C 4F 47 49 4E 47 20 54 48 49 | "CATALOGING THI|
000007F0: 53 20 44 49 53 4B 20 57 49 4C 4C 20 44 45 4C 45 |S DISK WILL DELE|
00000800: 54 45 20 54 48 45 22 00 26 10 58 02 99 3A 99 22 |TE THE".&.X..:."|
00000810: 50 52 45 56 49 4F 55 53 20 44 41 54 41 21 22 3A |PREVIOUS DATA!":|
00000820: 8D 20 32 31 35 30 00 56 10 62 02 99 22 43 41 54 |. 2150.V.b.."CAT|
00000830: 41 4C 4F 47 20 54 48 49 53 20 44 49 53 4B 22 3B |ALOG THIS DISK";|
00000840: 3A 8D 20 32 31 39 30 3A 8B 20 43 24 B2 22 4E 22 |:. 2190:. C$."N"|
00000850: 20 A7 20 39 37 30 00 85 10 6C 02 99 20 48 43 24 | . 970...l.. HC$|
00000860: 3B 22 43 41 54 41 4C 4F 47 49 4E 47 20 44 49 53 |;"CATALOGING DIS|
00000870: 4B 20 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 |K WITH NEW DISK |
00000880: 4E 41 4D 45 22 00 B1 10 76 02 8D 20 32 31 35 30 |NAME"...v.. 2150|
00000890: 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 |:."READING DIREC|
000008A0: 54 4F 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E |TORY ENTRIES ...|
000008B0: 22 00 D1 10 80 02 8D 20 32 36 30 3A 59 B2 32 3A |"...... 260:Y.2:|
000008C0: 8D 20 32 32 30 3A 44 46 24 B2 53 24 3A 59 B2 38 |. 220:DF$.S$:Y.8|
000008D0: 39 00 E7 10 8A 02 8B 20 56 46 B2 31 20 A7 20 44 |9...... VF.1 . D|
000008E0: 46 24 B2 22 20 31 22 00 F1 10 94 02 8D 20 32 33 |F$." 1"...... 23|
000008F0: 30 00 FE 10 9E 02 4E 46 B2 30 3A 5A B2 30 00 0D |0.....NF.0:Z.0..|
00000900: 11 A8 02 8D 20 32 34 30 3A 46 54 B2 56 00 36 11 |.... 240:FT.V.6.|
00000910: B2 02 46 24 B2 43 24 3A 59 B2 32 3A 8D 20 32 33 |..F$.C$:Y.2:. 23|
00000920: 30 3A 59 B2 31 36 3A 8D 20 32 32 30 3A 59 B2 39 |0:Y.16:. 220:Y.9|
00000930: 3A 8D 20 32 33 30 00 5E 11 BC 02 8D 20 32 34 30 |:. 230.^.... 240|
00000940: 3A 53 24 B2 53 24 AA C7 28 56 29 3A 8D 20 32 34 |:S$.S$..(V):. 24|
00000950: 30 3A 8B 20 46 54 B2 30 20 A7 20 37 37 30 00 6F |0:. FT.0 . 770.o|
00000960: 11 C6 02 8B 20 4E 46 B2 30 20 A7 20 37 34 30 00 |.... NF.0 . 740.|
00000970: 9F 11 D0 02 81 20 58 B2 31 20 A4 20 4E 46 3A 8B |..... X.1 . NF:.|
00000980: 20 C8 28 53 24 2C 31 36 29 20 B3 20 CA 28 44 24 | .(S$,16) . .(D$|
00000990: 28 58 29 2C 32 2C 31 36 29 20 A7 20 37 35 30 00 |(X),2,16) . 750.|
000009A0: A7 11 DA 02 82 20 58 00 B8 11 E4 02 58 B2 4E 46 |..... X.....X.NF|
000009B0: AA 31 3A 89 20 37 36 30 00 DD 11 EE 02 81 20 59 |.1:. 760...... Y|
000009C0: B2 4E 46 20 A4 20 58 20 A9 AB 31 3A 44 24 28 59 |.NF . X ..1:D$(Y|
000009D0: AA 31 29 B2 44 24 28 59 29 3A 82 20 59 00 FA 11 |.1).D$(Y):. Y...|
000009E0: F8 02 44 24 28 58 29 B2 46 24 AA 53 24 AA C7 28 |..D$(X).F$.S$..(|
000009F0: 56 29 3A 4E 46 B2 4E 46 AA 31 00 25 12 02 03 5A |V):NF.NF.1.%...Z|
00000A00: B2 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A AD 38 29 |.Z.1:Z.Z.(.(Z.8)|
00000A10: AC 38 29 3A 8B 20 5A B1 30 20 A7 20 59 B2 32 3A |.8):. Z.0 . Y.2:|
00000A20: 8D 20 32 33 30 00 38 12 0C 03 8B 20 4E 46 B3 31 |. 230.8.... NF.1|
00000A30: 35 35 20 A7 20 38 34 30 00 73 12 16 03 99 20 48 |55 . 840.s.... H|
00000A40: 43 24 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 |C$;.6);RV$;"*** |
00000A50: 44 49 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 41 |DISK BAM IS INVA|
00000A60: 4C 49 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 20 32 |LID ***";RF$:. 2|
00000A70: 31 35 30 00 A7 12 20 03 99 3A 99 22 20 20 20 43 |150... ..:." C|
00000A80: 55 52 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E |URRENT DISK CANN|
00000A90: 4F 54 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 |OT BE CATALOGED!|
00000AA0: 22 3A 99 3A 99 3A 99 00 D7 12 2A 03 99 22 20 50 |":.:.:....*.." P|
00000AB0: 4C 45 41 53 45 20 56 45 52 49 46 59 20 4F 52 20 |LEASE VERIFY OR |
00000AC0: 43 48 45 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 |CHECK DISK CONTE|
00000AD0: 4E 54 53 22 3A 20 99 00 08 13 34 03 99 22 42 45 |NTS": ....4.."BE|
00000AE0: 46 4F 52 45 20 41 54 54 45 4D 50 54 49 4E 47 20 |FORE ATTEMPTING |
00000AF0: 54 4F 20 43 41 54 41 4C 4F 47 20 54 48 49 53 20 |TO CATALOG THIS |
00000B00: 44 49 53 4B 2E 22 3A 99 00 20 13 3E 03 8D 20 32 |DISK.":.. .>.. 2|
00000B10: 31 35 30 3A 8D 20 32 31 31 30 3A 89 20 39 37 30 |150:. 2110:. 970|
00000B20: 00 31 13 48 03 8B 20 53 53 B2 30 20 A7 20 36 38 |.1.H.. SS.0 . 68|
00000B30: 30 00 69 13 52 03 A0 20 35 3A 20 8D 20 32 33 39 |0.i.R.. 5: . 239|
00000B40: 30 3A 8D 20 32 31 35 30 3A 99 22 55 50 44 41 54 |0:. 2150:."UPDAT|
00000B50: 49 4E 47 20 4D 41 53 54 45 52 20 44 49 52 45 43 |ING MASTER DIREC|
00000B60: 54 4F 52 59 20 2E 2E 2E 22 00 7A 13 5C 03 8B 20 |TORY ...".z.\.. |
00000B70: 4E 58 B2 30 20 A7 20 39 31 30 00 AA 13 66 03 81 |NX.0 . 910...f..|
00000B80: 20 58 B2 30 20 A4 20 4E 58 AB 31 3A 43 24 B2 C8 | X.0 . NX.1:C$..|
00000B90: 28 58 24 28 58 29 2C 32 29 3A 8B 20 44 49 24 20 |(X$(X),2):. DI$ |
00000BA0: B3 20 43 24 20 A7 20 39 30 30 00 BD 13 70 03 8B |. C$ . 900...p..|
00000BB0: 20 44 49 24 B2 43 24 20 A7 20 39 33 30 00 CB 13 | DI$.C$ . 930...|
00000BC0: 7A 03 82 20 58 3A 89 20 39 31 30 00 F9 13 84 03 |z.. X:. 910.....|
00000BD0: 81 20 59 B2 4E 58 AB 31 20 A4 20 58 20 A9 20 AB |. Y.NX.1 . X . .|
00000BE0: 31 3A 58 24 28 59 AA 31 29 B2 58 24 28 59 29 3A |1:X$(Y.1).X$(Y):|
00000BF0: 82 20 59 3A 89 20 39 32 30 00 02 14 8E 03 58 B2 |. Y:. 920.....X.|
00000C00: 4E 58 00 0E 14 98 03 4E 58 B2 4E 58 AA 31 00 25 |NX.....NX.NX.1.%|
00000C10: 14 A2 03 58 24 28 58 29 B2 44 49 24 AA 44 4E 24 |...X$(X).DI$.DN$|
00000C20: 3A 43 58 B2 31 00 53 14 AC 03 8D 20 32 30 33 30 |:CX.1.S.... 2030|
00000C30: 3A 98 31 35 2C 22 53 22 AA 53 24 3A 9F 20 35 2C |:.15,"S".S$:. 5,|
00000C40: 38 2C 35 2C 53 24 AA 22 2C 53 2C 57 22 3A 8D 20 |8,5,S$.",S,W":. |
00000C50: 32 37 30 00 70 14 B6 03 98 35 2C 44 46 24 3B 22 |270.p....5,DF$;"|
00000C60: 2C 22 3B 4E 42 3B 43 52 24 3B 3A 8D 20 32 37 30 |,";NB;CR$;:. 270|
00000C70: 00 A0 14 C0 03 8B 20 4E 46 B1 30 20 A7 20 81 20 |...... NF.0 . . |
00000C80: 58 B2 31 20 A4 20 4E 46 3A 98 35 2C 44 24 28 58 |X.1 . NF:.5,D$(X|
00000C90: 29 3B 43 52 24 3B 3A 8D 20 32 37 30 3A 82 20 58 |);CR$;:. 270:. X|
00000CA0: 00 B5 14 CA 03 A0 20 35 3A 8D 20 32 32 39 30 3A |...... 5:. 2290:|
00000CB0: 89 20 34 30 30 00 F0 14 D4 03 99 20 48 43 24 3B |. 400...... HC$;|
00000CC0: 22 54 4F 20 44 49 53 50 4C 41 59 20 44 49 53 4B |"TO DISPLAY DISK|
00000CD0: 20 44 49 52 45 43 54 4F 52 59 22 3A 8D 20 31 38 | DIRECTORY":. 18|
00000CE0: 37 30 3A 91 20 56 20 89 20 32 39 30 2C 39 38 30 |70:. V . 290,980|
00000CF0: 00 23 15 DE 03 9F 20 35 2C 38 2C 35 2C 53 24 AA |.#.... 5,8,5,S$.|
00000D00: 22 2C 53 2C 52 22 3A 8D 20 32 37 30 3A 8D 20 32 |",S,R":. 270:. 2|
00000D10: 30 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 20 |070:.5,DF$,NB:. |
00000D20: 32 37 30 00 50 15 E8 03 98 34 2C 22 20 20 22 3B |270.P....4," ";|
00000D30: 52 56 24 3B 22 44 49 53 4B 4E 41 4D 45 3A 22 3B |RV$;"DISKNAME:";|
00000D40: 52 46 24 3B 22 20 20 20 22 3B 44 4E 24 3A 98 34 |RF$;" ";DN$:.4|
00000D50: 00 7D 15 F2 03 98 34 2C 22 22 A6 34 29 3B 52 56 |.}....4,"".4);RV|
00000D60: 24 3B 22 44 49 53 4B 20 49 44 3A 22 3B 52 46 24 |$;"DISK ID:";RF$|
00000D70: 3B 22 20 20 22 3B 44 49 24 3B A6 36 29 00 A6 15 |;" ";DI$;.6)...|
00000D80: FC 03 98 34 2C 52 56 24 3B 22 44 49 53 4B 20 46 |...4,RV$;"DISK F|
00000D90: 4F 52 4D 41 54 3A 22 3B 52 46 24 3B 22 20 20 22 |ORMAT:";RF$;" "|
00000DA0: 44 46 24 3A 98 34 00 CE 15 06 04 98 34 2C 52 56 |DF$:.4......4,RV|
00000DB0: 24 3B 22 42 4C 4F 43 4B 53 20 46 52 45 45 3A 22 |$;"BLOCKS FREE:"|
00000DC0: 3B 52 46 24 3B 22 20 22 3B 4E 42 3A 98 34 00 03 |;RF$;" ";NB:.4..|
00000DD0: 16 10 04 98 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |....4,"---------|
00000DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000E00: 3A 98 34 00 1A 16 1A 04 4E 46 B2 30 3A 8B 20 53 |:.4.....NF.0:. S|
00000E10: 53 B1 30 20 A7 20 31 31 36 30 00 4A 16 24 04 8D |S.0 . 1160.J.$..|
00000E20: 20 32 34 30 3A 46 54 B2 56 3A 59 B2 31 36 3A 8D | 240:FT.V:Y.16:.|
00000E30: 20 32 32 30 3A 8D 20 32 34 30 3A 5A B2 56 3A 8D | 220:. 240:Z.V:.|
00000E40: 20 32 34 30 3A 8D 20 32 36 30 00 79 16 2E 04 98 | 240:. 260.y....|
00000E50: 34 2C C9 28 22 20 20 20 20 22 AA C4 28 5A AA 28 |4,.(" "..(Z.(|
00000E60: 32 35 36 AC 56 29 29 2C 34 29 3B 22 20 20 22 3B |256.V)),4);" ";|
00000E70: 53 24 3B 22 20 20 20 22 3B 00 92 16 38 04 8B 20 |S$;" ";...8.. |
00000E80: 46 54 B2 31 32 39 20 A7 20 98 34 2C 22 53 45 51 |FT.129 . .4,"SEQ|
00000E90: 22 3B 00 AB 16 42 04 8B 20 46 54 B2 31 33 30 20 |";...B.. FT.130 |
00000EA0: A7 20 98 34 2C 22 50 47 4D 22 3B 00 C4 16 4C 04 |. .4,"PGM";...L.|
00000EB0: 8B 20 46 54 B2 31 33 31 20 A7 20 98 34 2C 22 55 |. FT.131 . .4,"U|
00000EC0: 53 52 22 3B 00 DD 16 56 04 8B 20 46 54 B2 31 33 |SR";...V.. FT.13|
00000ED0: 32 20 A7 20 98 34 2C 22 52 45 4C 22 3B 00 FB 16 |2 . .4,"REL";...|
00000EE0: 60 04 98 34 3A A1 20 43 24 3A 8B 20 43 24 B3 B1 |`..4:. C$:. C$..|
00000EF0: 22 22 20 A7 20 8D 20 32 31 32 30 00 0F 17 6A 04 |"" . . 2120...j.|
00000F00: 8B 20 43 24 B2 22 51 22 20 A7 20 31 31 37 30 00 |. C$."Q" . 1170.|
00000F10: 29 17 74 04 4E 46 B2 4E 46 AA 31 3A 8B 20 53 53 |).t.NF.NF.1:. SS|
00000F20: B2 30 20 A7 20 31 30 36 30 00 4C 17 7E 04 98 34 |.0 . 1060.L.~..4|
00000F30: 3A 98 34 2C 52 56 24 3B 22 23 46 49 4C 45 53 3A |:.4,RV$;"#FILES:|
00000F40: 22 3B 52 46 24 3B 22 20 22 3B 4E 46 00 67 17 88 |";RF$;" ";NF.g..|
00000F50: 04 8B 20 50 44 B2 33 20 A7 20 8D 20 32 31 35 30 |.. PD.3 . . 2150|
00000F60: 3A 8D 20 32 31 31 30 00 79 17 92 04 A0 20 34 3A |:. 2110.y.... 4:|
00000F70: A0 20 35 3A 89 20 39 38 30 00 AA 17 9C 04 99 20 |. 5:. 980...... |
00000F80: 48 43 24 3B 22 54 4F 20 44 45 4C 45 54 45 20 44 |HC$;"TO DELETE D|
00000F90: 49 53 4B 20 46 52 4F 4D 20 4D 41 53 54 45 52 20 |ISK FROM MASTER |
00000FA0: 44 49 52 45 43 54 4F 52 59 22 00 C5 17 A6 04 8D |DIRECTORY"......|
00000FB0: 20 31 38 37 30 3A 91 20 56 20 89 20 31 32 34 30 | 1870:. V . 1240|
00000FC0: 2C 31 31 38 30 00 D4 17 B0 04 98 31 35 2C 22 53 |,1180......15,"S|
00000FD0: 22 AA 53 24 00 02 18 BA 04 43 58 B2 30 3A 81 20 |".S$.....CX.0:. |
00000FE0: 58 B2 30 20 A4 20 4E 58 AB 31 3A 8B 20 C8 28 58 |X.0 . NX.1:. .(X|
00000FF0: 24 28 58 29 2C 32 29 B2 44 49 24 20 A7 20 43 58 |$(X),2).DI$ . CX|
00001000: B2 31 00 1B 18 C4 04 8B 20 43 58 20 A7 20 58 24 |.1...... CX . X$|
00001010: 28 58 29 B2 58 24 28 58 AA 31 29 00 32 18 CE 04 |(X).X$(X.1).2...|
00001020: 82 20 58 3A 4E 58 B2 4E 58 AB 31 3A 89 20 31 31 |. X:NX.NX.1:. 11|
00001030: 38 30 00 43 18 D8 04 8D 20 32 32 39 30 3A 89 20 |80.C.... 2290:. |
00001040: 32 39 30 00 5D 18 E2 04 8B 20 4E 58 B2 30 20 A7 |290.].... NX.0 .|
00001050: 20 8D 20 31 38 38 30 3A 89 20 32 39 30 00 6C 18 | . 1880:. 290.l.|
00001060: EC 04 A0 20 34 3A 8D 20 32 31 34 30 00 9B 18 F6 |... 4:. 2140....|
00001070: 04 99 20 A6 35 29 3B 22 30 20 2D 20 52 45 54 55 |.. .5);"0 - RETU|
00001080: 52 4E 20 54 4F 20 4D 41 49 4E 20 46 55 4E 43 54 |RN TO MAIN FUNCT|
00001090: 49 4F 4E 20 4D 45 4E 55 22 3A 99 00 C8 18 00 05 |ION MENU":......|
000010A0: 99 20 A6 35 29 3B 22 31 20 2D 20 50 52 49 4E 54 |. .5);"1 - PRINT|
000010B0: 20 46 55 4C 4C 20 49 44 20 55 53 45 41 47 45 20 | FULL ID USEAGE |
000010C0: 43 48 41 52 54 22 3A 99 00 F4 18 0A 05 99 20 A6 |CHART":....... .|
000010D0: 35 29 3B 22 32 20 2D 20 51 55 49 43 4B 20 4C 49 |5);"2 - QUICK LI|
000010E0: 53 54 20 4F 46 20 49 44 27 53 20 49 4E 20 55 53 |ST OF ID'S IN US|
000010F0: 45 22 3A 99 00 1D 19 14 05 99 20 A6 35 29 3B 22 |E":....... .5);"|
00001100: 33 20 2D 20 4C 49 53 54 20 44 49 53 4B 20 49 44 |3 - LIST DISK ID|
00001110: 27 53 20 26 20 4E 41 4D 45 53 22 3A 99 00 5B 19 |'S & NAMES":..[.|
00001120: 1E 05 99 20 A6 35 29 3B 22 34 20 2D 20 4C 49 53 |... .5);"4 - LIS|
00001130: 54 A0 22 3B 52 56 24 3B 22 4D 49 4E 22 3B 52 46 |T.";RV$;"MIN";RF|
00001140: 24 3B 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 |$;" FREE BLOCKS |
00001150: 50 45 52 20 44 49 53 4B 22 3A 99 00 97 19 28 05 |PER DISK":....(.|
00001160: 99 20 A6 35 29 3B 22 35 20 2D 20 4C 49 53 54 20 |. .5);"5 - LIST |
00001170: 22 3B 52 56 24 3B 22 4D 41 58 22 3B 52 46 24 3B |";RV$;"MAX";RF$;|
00001180: 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 |" FREE BLOCKS PE|
00001190: 52 20 44 49 53 4B 22 00 BF 19 32 05 8D 20 32 31 |R DISK"...2.. 21|
000011A0: 35 30 3A 99 22 45 4E 54 45 52 20 44 45 53 49 52 |50:."ENTER DESIR|
000011B0: 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 22 3B 00 |ED FUNCTION: ";.|
000011C0: D9 19 3C 05 8D 20 32 31 32 30 3A 8B 20 43 24 B2 |..<.. 2120:. C$.|
000011D0: 22 30 22 20 A7 20 32 39 30 00 F8 19 46 05 56 B2 |"0" . 290...F.V.|
000011E0: C5 28 43 24 29 3A 8B 20 56 B3 31 20 B0 20 56 B1 |.(C$):. V.1 . V.|
000011F0: 35 20 A7 20 31 33 34 30 00 20 1A 50 05 99 20 43 |5 . 1340. .P.. C|
00001200: 24 3A 91 20 56 20 89 20 31 33 37 30 2C 31 35 35 |$:. V . 1370,155|
00001210: 30 2C 31 36 32 30 2C 32 34 35 30 2C 32 34 39 30 |0,1620,2450,2490|
00001220: 00 2A 1A 5A 05 9F 20 34 2C 34 00 68 1A 64 05 98 |.*.Z.. 4,4.h.d..|
00001230: 34 2C 22 22 A6 31 35 29 3B 52 56 24 3B 22 20 44 |4,"".15);RV$;" D|
00001240: 20 49 20 53 20 4B 20 20 20 49 20 44 20 20 20 55 | I S K I D U|
00001250: 20 53 20 45 20 41 20 47 20 45 20 20 20 43 20 48 | S E A G E C H|
00001260: 20 41 20 52 20 54 20 22 00 77 1A 6E 05 98 34 3A | A R T ".w.n..4:|
00001270: 98 34 2C 22 20 22 3B 00 95 1A 78 05 81 20 58 B2 |.4," ";...x.. X.|
00001280: 34 38 20 A4 20 39 30 3A 8B 20 58 B2 35 38 20 A7 |48 . 90:. X.58 .|
00001290: 20 58 B2 36 35 00 AD 1A 82 05 98 34 2C 22 A0 22 | X.65......4,"."|
000012A0: 3B C7 28 58 29 3B 3A 82 20 58 3A 98 34 00 CF 1A |;.(X);:. X:.4...|
000012B0: 8C 05 5A B2 30 3A 81 20 58 B2 34 38 20 A4 20 39 |..Z.0:. X.48 . 9|
000012C0: 30 3A 8B 20 58 B2 35 38 20 A7 20 58 B2 36 35 00 |0:. X.58 . X.65.|
000012D0: DE 1A 96 05 98 34 2C 41 31 24 3B 22 B3 22 00 EA |.....4,A1$;"."..|
000012E0: 1A AA 05 98 34 2C C7 28 58 29 00 08 1B B4 05 81 |....4,.(X)......|
000012F0: 20 59 B2 34 38 20 A4 20 39 30 3A 8B 20 59 B2 35 | Y.48 . 90:. Y.5|
00001300: 38 20 A7 20 59 B2 36 35 00 25 1B BE 05 98 34 2C |8 . Y.65.%....4,|
00001310: C7 28 32 32 31 29 3B 3A 8B 20 5A B2 4E 58 20 A7 |.(221);:. Z.NX .|
00001320: 20 31 35 30 30 00 44 1B C8 05 43 24 B2 C7 28 58 | 1500.D...C$..(X|
00001330: 29 AA C7 28 59 29 3A 53 24 B2 C8 28 58 24 28 5A |)..(Y):S$..(X$(Z|
00001340: 29 2C 32 29 00 6A 1B D2 05 8B 20 53 24 B2 43 24 |),2).j.... S$.C$|
00001350: 20 A7 20 98 34 2C C7 28 31 36 36 29 3B 3A 5A B2 | . .4,.(166);:Z.|
00001360: 5A AA 31 3A 89 20 31 35 31 30 00 76 1B DC 05 98 |Z.1:. 1510.v....|
00001370: 34 2C 22 20 22 3B 00 9F 1B E6 05 82 20 59 3A 98 |4," ";...... Y:.|
00001380: 34 2C C7 28 32 32 31 29 3A A1 20 43 24 3A 8B 20 |4,.(221):. C$:. |
00001390: 43 24 B3 B1 22 22 20 A7 20 8D 20 32 31 32 30 00 |C$.."" . . 2120.|
000013A0: B4 1B F0 05 8B 20 43 24 20 B3 B1 22 51 22 20 A7 |..... C$ .."Q" .|
000013B0: 20 82 20 58 00 C3 1B FA 05 98 34 2C 41 32 24 3B | . X......4,A2$;|
000013C0: 22 BD 22 00 CE 1B 04 06 89 20 31 32 36 30 00 00 |"."...... 1260..|
000013D0: 1C 0E 06 8D 20 32 30 37 30 3A 98 34 2C 22 22 A6 |.... 2070:.4,"".|
000013E0: 37 29 3B 22 12 44 49 53 4B 20 49 44 27 53 20 43 |7);".DISK ID'S C|
000013F0: 55 52 52 45 4E 54 4C 59 20 49 4E 20 55 53 45 22 |URRENTLY IN USE"|
00001400: 00 0A 1C 18 06 98 34 3A 98 34 00 21 1C 22 06 56 |......4:.4.!.".V|
00001410: B2 31 32 3A 8B 20 50 44 B2 34 20 A7 20 56 B2 32 |.12:. PD.4 . V.2|
00001420: 35 00 49 1C 2C 06 5A B2 30 3A 81 20 58 B2 30 20 |5.I.,.Z.0:. X.0 |
00001430: A4 20 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 |. NX.1:.4,.(X$(X|
00001440: 29 2C 32 29 3B 22 20 22 3B 00 65 1C 36 06 5A B2 |),2);" ";.e.6.Z.|
00001450: 5A AA 31 3A 8B 20 5A B2 B5 28 5A AD 56 29 AC 56 |Z.1:. Z..(Z.V).V|
00001460: 20 A7 20 98 34 00 86 1C 40 06 82 20 58 3A 98 34 | . .4...@.. X:.4|
00001470: 3A 98 34 3A 8B 20 5A B3 B1 B5 28 5A AD 56 29 AC |:.4:. Z...(Z.V).|
00001480: 56 20 A7 20 98 34 00 B6 1C 4A 06 98 34 2C 5A 3B |V . .4...J..4,Z;|
00001490: 52 56 24 3B 22 44 49 53 4B 53 20 49 4E 20 4D 41 |RV$;"DISKS IN MA|
000014A0: 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 3A |STER DIRECTORY":|
000014B0: 89 20 31 36 37 30 00 E2 1C 54 06 8D 20 32 30 37 |. 1670...T.. 207|
000014C0: 30 3A 98 34 2C 52 56 24 3B 22 49 44 20 20 2E 2E |0:.4,RV$;"ID ..|
000014D0: 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A |.DISK NAME....":|
000014E0: 98 34 00 10 1D 5E 06 81 20 58 B2 30 20 A4 20 4E |.4...^.. X.0 . N|
000014F0: 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 29 2C 32 |X.1:.4,.(X$(X),2|
00001500: 29 3B 22 20 22 3B CA 28 58 24 28 58 29 2C 33 29 |);" ";.(X$(X),3)|
00001510: 00 2B 1D 68 06 A1 20 43 24 3A 8B 20 43 24 B3 B1 |.+.h.. C$:. C$..|
00001520: 22 22 20 A7 20 8D 20 32 31 32 30 00 3F 1D 72 06 |"" . . 2120.?.r.|
00001530: 8B 20 43 24 B2 22 51 22 20 A7 20 31 32 36 30 00 |. C$."Q" . 1260.|
00001540: 47 1D 7C 06 82 20 58 00 59 1D 86 06 8B 20 50 44 |G.|.. X.Y.... PD|
00001550: B2 34 20 A7 20 31 32 36 30 00 72 1D 90 06 8D 20 |.4 . 1260.r.... |
00001560: 32 31 35 30 3A 8D 20 32 31 31 30 3A 89 20 31 32 |2150:. 2110:. 12|
00001570: 36 30 00 8C 1D 9A 06 8B 20 4E 58 B2 30 20 A7 20 |60...... NX.0 . |
00001580: 8D 20 31 38 38 30 3A 89 20 32 39 30 00 C0 1D A4 |. 1880:. 290....|
00001590: 06 A0 20 34 3A 99 20 48 43 24 3B 22 54 4F 20 46 |.. 4:. HC$;"TO F|
000015A0: 49 4E 44 20 57 48 41 54 20 44 49 53 4B 28 53 29 |IND WHAT DISK(S)|
000015B0: 20 41 20 46 49 4C 45 20 49 53 20 4F 4E 22 3A 99 | A FILE IS ON":.|
000015C0: 00 FC 1D AE 06 99 20 22 45 4E 54 45 52 20 46 49 |...... "ENTER FI|
000015D0: 4C 45 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B |LENAME .";CL$;|
000015E0: 43 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 3A 8B 20 |CL$;CL$;:. F$:. |
000015F0: 46 24 B2 22 2E 22 20 A7 20 32 39 30 00 1C 1E B8 |F$."." . 290....|
00001600: 06 8B 20 46 24 B2 22 2A 22 20 A7 20 99 3A 99 22 |.. F$."*" . .:."|
00001610: 52 45 2D 22 3B 3A 89 20 31 37 31 30 00 38 1E C2 |RE-";:. 1710.8..|
00001620: 06 53 24 B2 46 24 3A 8D 20 32 30 34 30 3A 56 B2 |.S$.F$:. 2040:V.|
00001630: 59 3A 8D 20 32 30 37 30 00 6F 1E CC 06 98 34 2C |Y:. 2070.o....4,|
00001640: 52 56 24 3B 22 2E 2E 2E 46 49 4C 45 20 4E 41 4D |RV$;"...FILE NAM|
00001650: 45 2E 2E 2E 2E 20 20 49 44 20 20 2E 2E 2E 44 49 |E.... ID ...DI|
00001660: 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 34 00 |SK NAME....":.4.|
00001670: 7C 1E D6 06 98 34 2C 53 24 3A 98 34 00 AB 1E E0 ||....4,S$:.4....|
00001680: 06 81 20 5A B2 30 20 A4 20 4E 58 AB 31 3A 44 49 |.. Z.0 . NX.1:DI|
00001690: 24 B2 C8 28 58 24 28 5A 29 2C 32 29 3A 44 4E 24 |$..(X$(Z),2):DN$|
000016A0: B2 CA 28 58 24 28 5A 29 2C 33 29 00 E4 1E EA 06 |..(X$(Z),3).....|
000016B0: 8D 20 32 30 33 30 3A 9F 20 35 2C 38 2C 35 2C 53 |. 2030:. 5,8,5,S|
000016C0: 24 AA 22 2C 53 2C 52 22 3A 45 46 B2 31 35 3A 8D |$.",S,R":EF.15:.|
000016D0: 20 32 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D | 270:.5,DF$,NB:.|
000016E0: 20 32 37 30 00 03 1F F4 06 8D 20 32 36 30 3A 59 | 270...... 260:Y|
000016F0: B2 31 36 3A 8D 20 32 32 30 3A 59 B2 33 3A 8D 20 |.16:. 220:Y.3:. |
00001700: 32 33 30 00 1D 1F FE 06 8B 20 46 24 20 B3 20 C8 |230...... F$ . .|
00001710: 28 53 24 2C 56 29 20 A7 20 31 38 34 30 00 58 1F |(S$,V) . 1840.X.|
00001720: 08 07 8B 20 46 24 B2 C8 28 53 24 2C 56 29 20 A7 |... F$..(S$,V) .|
00001730: 20 98 34 2C 53 24 3B 22 20 20 22 3B 44 49 24 3B | .4,S$;" ";DI$;|
00001740: 22 20 20 22 3B 44 4E 24 3A 8F 20 3C 2D 32 20 53 |" ";DN$:. <-2 S|
00001750: 50 41 43 45 53 20 45 41 00 73 1F 12 07 A1 20 43 |PACES EA.s.... C|
00001760: 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 8D 20 32 |$:. C$.."" . . 2|
00001770: 31 32 30 00 8D 1F 1C 07 8B 20 43 24 B2 22 51 22 |120...... C$."Q"|
00001780: 20 A7 20 A0 20 35 3A 89 20 31 37 30 30 00 9F 1F | . . 5:. 1700...|
00001790: 26 07 8B 20 53 53 B2 30 20 A7 20 31 37 38 30 00 |&.. SS.0 . 1780.|
000017A0: AB 1F 30 07 A0 20 35 3A 82 20 5A 00 C6 1F 3A 07 |..0.. 5:. Z...:.|
000017B0: 8B 20 50 44 B2 33 20 A7 20 8D 20 32 31 35 30 3A |. PD.3 . . 2150:|
000017C0: 8D 20 32 31 31 30 00 D1 1F 44 07 89 20 31 37 30 |. 2110...D.. 170|
000017D0: 30 00 E7 1F 4E 07 56 B2 33 3A 8B 20 4E 58 B1 30 |0...N.V.3:. NX.0|
000017E0: 20 A7 20 31 38 39 30 00 0E 20 58 07 99 20 48 43 | . 1890.. X.. HC|
000017F0: 24 3B 52 56 24 3B 22 4E 4F 20 45 4E 54 52 49 45 |$;RV$;"NO ENTRIE|
00001800: 53 22 3B 3A 56 B2 31 3A 89 20 32 30 31 30 00 3D |S";:V.1:. 2010.=|
00001810: 20 62 07 99 3A 99 20 22 45 4E 54 45 52 20 44 49 | b..:. "ENTER DI|
00001820: 53 4B 20 49 44 20 20 20 2E 22 3B 43 4C 24 3B 43 |SK ID .";CL$;C|
00001830: 4C 24 3B 43 4C 24 3B 3A 85 20 44 49 24 00 65 20 |L$;CL$;:. DI$.e |
00001840: 6C 07 44 49 24 B2 C8 28 44 49 24 AA 22 20 20 22 |l.DI$..(DI$." "|
00001850: 2C 32 29 3A 8B 20 44 49 24 B2 22 2E 20 22 20 A7 |,2):. DI$.". " .|
00001860: 20 31 39 35 30 00 95 20 76 07 81 20 58 B2 30 20 | 1950.. v.. X.0 |
00001870: A4 20 4E 58 AB 31 3A 8B 20 44 49 24 B3 B1 C8 28 |. NX.1:. DI$...(|
00001880: 58 24 28 58 29 2C 32 29 20 A7 20 82 20 58 3A 89 |X$(X),2) . . X:.|
00001890: 20 32 30 30 30 00 B7 20 80 07 44 4E 24 B2 CA 28 | 2000.. ..DN$..(|
000018A0: 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 58 |X$(X),3):DI$..(X|
000018B0: 24 28 58 29 2C 32 29 00 D3 20 8A 07 8D 20 32 31 |$(X),2).. ... 21|
000018C0: 36 30 3A 8B 20 43 24 B2 22 4E 22 20 A7 20 56 B2 |60:. C$."N" . V.|
000018D0: 32 3A 8E 00 DE 20 94 07 89 20 32 30 33 30 00 0D |2:... ... 2030..|
000018E0: 21 9E 07 99 3A 99 22 45 4E 54 45 52 20 44 49 53 |!...:."ENTER DIS|
000018F0: 4B 20 4E 41 4D 45 20 20 20 2E 22 3B 43 4C 24 3B |K NAME .";CL$;|
00001900: 43 4C 24 3B 43 4C 24 3B 3A 85 20 46 24 00 22 21 |CL$;CL$;:. F$."!|
00001910: A8 07 8B 20 46 24 B2 22 2E 22 20 A7 20 56 B2 31 |... F$."." . V.1|
00001920: 3A 8E 00 47 21 B2 07 8D 20 32 30 34 30 3A 81 20 |:..G!... 2040:. |
00001930: 58 B2 30 20 A4 20 4E 58 AB 31 3A 8B 20 59 B2 30 |X.0 . NX.1:. Y.0|
00001940: 20 A7 20 32 30 32 30 00 64 21 BC 07 8B 20 46 24 | . 2020.d!... F$|
00001950: B2 CA 28 58 24 28 58 29 2C 33 2C 59 29 20 A7 20 |..(X$(X),3,Y) . |
00001960: 32 30 32 30 00 6C 21 C6 07 82 20 58 00 83 21 D0 |2020.l!... X..!.|
00001970: 07 99 3A 99 20 52 56 24 3B 22 4E 4F 54 22 3B 3A |..:. RV$;"NOT";:|
00001980: 56 B2 32 00 AE 21 DA 07 99 22 20 49 4E 20 4D 41 |V.2..!..." IN MA|
00001990: 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 21 22 |STER DIRECTORY!"|
000019A0: 3A 8D 20 32 31 35 30 3A 89 20 32 31 31 30 00 E7 |:. 2150:. 2110..|
000019B0: 21 E4 07 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 |!..DN$..(X$(X),3|
000019C0: 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |):DI$..(X$(X),2)|
000019D0: 3A 8D 20 32 31 36 30 3A 8B 20 43 24 B2 22 4E 22 |:. 2160:. C$."N"|
000019E0: 20 A7 20 31 39 39 30 00 FD 21 EE 07 53 24 B2 22 | . 1990..!..S$."|
000019F0: 30 3A 44 49 52 2E 22 AA 44 49 24 3A 8E 00 0D 22 |0:DIR.".DI$:..."|
00001A00: F8 07 46 24 B2 C8 28 46 24 2C 31 36 29 00 38 22 |..F$..(F$,16).8"|
00001A10: 02 08 8B 20 C9 28 46 24 2C 31 29 B2 22 2A 22 20 |... .(F$,1)."*" |
00001A20: A7 20 59 B2 C3 28 46 24 29 AB 31 3A 46 24 B2 C8 |. Y..(F$).1:F$..|
00001A30: 28 46 24 2C 59 29 3A 8E 00 6D 22 0C 08 59 B2 31 |(F$,Y):..m"..Y.1|
00001A40: 36 3A 81 20 46 46 B2 31 20 A4 20 31 36 3A 46 24 |6:. FF.1 . 16:F$|
00001A50: B2 46 24 AA C7 28 31 36 30 29 3A 82 20 46 46 3A |.F$..(160):. FF:|
00001A60: 46 24 B2 C8 28 46 24 2C 31 36 29 3A 8E 00 9C 22 |F$..(F$,16):..."|
00001A70: 16 08 8D 20 32 31 35 30 3A 99 22 57 41 4E 54 20 |... 2150:."WANT |
00001A80: 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B 3A 8D |PRINTED COPY";:.|
00001A90: 20 32 31 39 30 3A 8D 20 32 31 35 30 00 B5 22 20 | 2190:. 2150.." |
00001AA0: 08 50 44 B2 33 3A 8B 20 43 24 B2 22 59 22 20 A7 |.PD.3:. C$."Y" .|
00001AB0: 20 50 44 B2 34 00 D0 22 2A 08 9F 20 34 2C 50 44 | PD.4.."*.. 4,PD|
00001AC0: 3A 8B 20 50 44 B2 33 20 A7 20 99 20 48 43 24 3B |:. PD.3 . . HC$;|
00001AD0: 00 D6 22 34 08 8E 00 FA 22 3E 08 99 20 22 44 45 |.."4....">.. "DE|
00001AE0: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00001AF0: 20 43 4F 4E 54 49 4E 55 45 22 00 12 23 48 08 A1 | CONTINUE"..#H..|
00001B00: 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 32 31 | C$:. C$."" . 21|
00001B10: 32 30 00 18 23 52 08 8E 00 42 23 5C 08 99 20 48 |20..#R...B#\.. H|
00001B20: 43 24 3B A6 39 29 3B 52 56 24 3B 22 44 20 49 20 |C$;.9);RV$;"D I |
00001B30: 53 20 4B 20 20 20 4D 20 41 20 53 20 54 20 45 20 |S K M A S T E |
00001B40: 52 22 00 76 23 66 08 99 3A 99 22 2D 2D 2D 2D 2D |R".v#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 2D 2D |----------------|
00001B70: 2D 2D 2D 22 3A 8E 00 A0 23 70 08 99 20 48 43 24 |---":...#p.. HC$|
00001B80: 3B 52 56 24 3B 22 44 49 53 4B 20 4E 41 4D 45 3A |;RV$;"DISK NAME:|
00001B90: 22 3B 52 46 24 3B 22 20 20 22 3B 44 4E 24 3A 99 |";RF$;" ";DN$:.|
00001BA0: 00 CD 23 7A 08 99 22 20 20 22 3B 52 56 24 3B 22 |..#z.." ";RV$;"|
00001BB0: 44 49 53 4B 20 49 44 3A 22 3B 52 46 24 3B 22 20 |DISK ID:";RF$;" |
00001BC0: 20 22 3B 44 49 24 3A 8D 20 32 31 35 30 00 E3 23 | ";DI$:. 2150..#|
00001BD0: 84 08 99 20 22 43 4F 52 52 45 43 54 20 44 49 53 |... "CORRECT DIS|
00001BE0: 4B 22 3B 00 F5 23 8E 08 99 22 20 28 59 2F 4E 29 |K";..#..." (Y/N)|
00001BF0: 20 3F 20 22 3B 00 1E 24 98 08 8D 20 32 31 32 30 | ? ";..$... 2120|
00001C00: 3A 8B 20 43 24 B3 B1 20 22 59 22 20 AF 20 43 24 |:. C$.. "Y" . C$|
00001C10: 20 B3 B1 20 22 4E 22 20 A7 20 32 32 30 30 00 29 | .. "N" . 2200.)|
00001C20: 24 A2 08 99 20 43 24 3A 8E 00 49 24 AC 08 84 31 |$... C$:..I$...1|
00001C30: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00001C40: 20 45 4E B2 30 20 A7 20 8E 00 73 24 B6 08 99 20 | EN.0 . ..s$... |
00001C50: 48 43 24 3B 52 56 24 3B 22 44 49 53 4B 20 45 52 |HC$;RV$;"DISK ER|
00001C60: 52 4F 52 22 3B 52 46 24 3B 22 20 57 48 49 4C 45 |ROR";RF$;" WHILE|
00001C70: 20 22 3B 00 8D 24 C0 08 8B 20 43 58 20 A7 20 99 | ";..$... CX . .|
00001C80: 22 57 52 49 54 49 4E 47 20 4E 45 57 22 00 A6 24 |"WRITING NEW"..$|
00001C90: CA 08 8B 20 43 58 B2 30 20 A7 20 99 20 22 52 45 |... CX.0 . . "RE|
00001CA0: 41 44 49 4E 47 22 00 D6 24 D4 08 99 3A 99 22 44 |ADING"..$...:."D|
00001CB0: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 20 43 52 |ISK DIRECTORY CR|
00001CC0: 4F 53 53 20 52 45 46 45 52 45 4E 43 45 20 46 49 |OSS REFERENCE FI|
00001CD0: 4C 45 2E 22 3A 99 00 E9 24 DE 08 99 20 45 4E 3B |LE.":...$... EN;|
00001CE0: 45 4D 24 3B 45 54 3B 45 53 00 0F 25 E8 08 99 3A |EM$;ET;ES..%...:|
00001CF0: 99 20 52 56 24 3B 22 50 52 4F 47 52 41 4D 20 41 |. RV$;"PROGRAM A|
00001D00: 42 4F 52 54 45 44 21 22 3A 89 20 32 33 38 30 00 |BORTED!":. 2380.|
00001D10: 1E 25 F2 08 8B 20 43 58 B2 30 20 A7 20 8E 00 55 |.%... CX.0 . ..U|
00001D20: 25 FC 08 8D 20 32 31 35 30 3A 99 22 55 50 44 41 |%... 2150:."UPDA|
00001D30: 54 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 43 |TING DIRECTORY C|
00001D40: 52 4F 53 53 20 52 45 46 45 52 45 4E 43 45 20 2E |ROSS REFERENCE .|
00001D50: 2E 2E 22 3A 99 00 7B 25 06 09 8B 20 4E 58 B2 30 |..":..{%... NX.0|
00001D60: 20 A7 20 98 31 35 2C 22 53 30 3A 44 49 53 4B 20 | . .15,"S0:DISK |
00001D70: 44 49 52 20 58 52 45 46 22 3A 8E 00 96 25 10 09 |DIR XREF":...%..|
00001D80: 98 31 35 2C 22 53 30 3A 44 49 52 20 58 52 45 46 |.15,"S0:DIR XREF|
00001D90: 2E 54 45 4D 50 22 00 BF 25 1A 09 9F 20 35 2C 38 |.TEMP"..%... 5,8|
00001DA0: 2C 35 2C 22 30 3A 44 49 52 20 58 52 45 46 2E 54 |,5,"0:DIR XREF.T|
00001DB0: 45 4D 50 2C 53 2C 57 22 3A 8D 20 32 32 32 30 00 |EMP,S,W":. 2220.|
00001DC0: E9 25 24 09 81 20 58 B2 30 20 A4 20 4E 58 AB 31 |.%$.. X.0 . NX.1|
00001DD0: 3A 98 35 2C 58 24 28 58 29 3B 43 52 24 3B 3A 8D |:.5,X$(X);CR$;:.|
00001DE0: 20 32 32 32 30 3A 82 20 58 00 08 26 2E 09 A0 20 | 2220:. X..&... |
00001DF0: 35 3A 98 31 35 2C 22 53 30 3A 44 49 53 4B 20 44 |5:.15,"S0:DISK D|
00001E00: 49 52 20 58 52 45 46 22 00 3A 26 38 09 98 31 35 |IR XREF".:&8..15|
00001E10: 2C 22 52 30 3A 44 49 53 4B 20 44 49 52 20 58 52 |,"R0:DISK DIR XR|
00001E20: 45 46 3D 30 3A 44 49 52 20 58 52 45 46 2E 54 45 |EF=0:DIR XREF.TE|
00001E30: 4D 50 22 3A 8D 20 32 32 32 30 00 40 26 42 09 8E |MP":. 2220.@&B..|
00001E40: 00 53 26 4C 09 A0 20 34 3A A0 20 35 3A A0 20 31 |.S&L.. 4:. 5:. 1|
00001E50: 35 3A 80 00 5D 26 56 09 99 20 48 43 24 00 85 26 |5:..]&V.. HC$..&|
00001E60: 60 09 A0 20 31 35 3A 99 22 49 4E 53 45 52 54 20 |`.. 15:."INSERT |
00001E70: 4D 41 53 54 45 52 20 44 49 53 4B 22 3A 99 3A 8D |MASTER DISK":.:.|
00001E80: 20 32 31 31 30 00 9E 26 6A 09 9F 20 31 35 2C 38 | 2110..&j.. 15,8|
00001E90: 2C 31 35 2C 22 49 30 22 3A 8D 20 32 37 30 00 C5 |,15,"I0":. 270..|
00001EA0: 26 74 09 98 31 35 2C 22 43 30 3A 44 49 53 4B 20 |&t..15,"C0:DISK |
00001EB0: 4D 41 53 54 45 52 3D 30 3A 44 49 53 4B 20 4D 41 |MASTER=0:DISK MA|
00001EC0: 53 54 45 52 22 00 DC 26 7E 09 84 31 35 2C 45 4E |STER"..&~..15,EN|
00001ED0: 3A 8B 20 45 4E B2 36 33 20 A7 20 8E 00 08 27 88 |:. EN.63 . ...'.|
00001EE0: 09 99 3A 99 20 52 56 24 3B 22 49 4E 43 4F 52 52 |..:. RV$;"INCORR|
00001EF0: 45 43 54 20 44 49 53 4B 21 22 3A 8D 20 32 31 35 |ECT DISK!":. 215|
00001F00: 30 3A 89 20 32 34 30 30 00 38 27 92 09 99 20 48 |0:. 2400.8'... H|
00001F10: 43 24 3B 22 45 4E 54 45 52 20 4D 49 4E 49 4D 55 |C$;"ENTER MINIMU|
00001F20: 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 |M NUMBER OF FREE|
00001F30: 20 42 4C 4F 43 4B 53 22 00 75 27 9C 09 99 3A 99 | BLOCKS".u'...:.|
00001F40: 22 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 |"TO BE DISPLAYED|
00001F50: 20 20 20 30 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C | 0";CL$;CL$;CL|
00001F60: 24 3B 3A 85 20 53 24 3A 8F 20 2D 20 44 45 46 41 |$;:. S$:. - DEFA|
00001F70: 55 4C 54 3D 30 00 99 27 A6 09 59 B2 C5 28 53 24 |ULT=0..'..Y..(S$|
00001F80: 29 3A 8B 20 53 24 B3 B1 20 22 30 22 20 AF 20 59 |):. S$.. "0" . Y|
00001F90: B2 30 20 A7 20 31 32 36 30 00 A9 27 B0 09 56 46 |.0 . 1260..'..VF|
00001FA0: B2 30 3A 89 20 32 35 33 30 00 D9 27 BA 09 99 20 |.0:. 2530..'... |
00001FB0: 48 43 24 3B 22 45 4E 54 45 52 20 4D 41 58 49 4D |HC$;"ENTER MAXIM|
00001FC0: 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 |UM NUMBER OF FRE|
00001FD0: 45 20 42 4C 4F 43 4B 53 22 00 0D 28 C4 09 99 3A |E BLOCKS"..(...:|
00001FE0: 99 22 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 |."TO BE DISPLAYE|
00001FF0: 44 20 20 20 39 39 22 3B 43 4C 24 3B 43 4C 24 3B |D 99";CL$;CL$;|
00002000: 43 4C 24 3B 43 4C 24 3B 3A 85 20 53 24 00 26 28 |CL$;CL$;:. S$.&(|
00002010: CE 09 59 B2 C5 28 53 24 29 3A 8B 20 59 B2 30 20 |..Y..(S$):. Y.0 |
00002020: A7 20 31 32 36 30 00 2F 28 D8 09 56 46 B2 31 00 |. 1260./(..VF.1.|
00002030: 67 28 E2 09 8D 20 32 30 37 30 3A 98 34 2C 52 56 |g(... 2070:.4,RV|
00002040: 24 3B 22 23 42 4C 4B 53 20 46 52 45 45 20 20 49 |$;"#BLKS FREE I|
00002050: 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E |D ...DISK NAME.|
00002060: 2E 2E 2E 22 3A 98 34 00 96 28 EC 09 81 20 58 B2 |...":.4..(... X.|
00002070: 30 20 A4 20 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 |0 . NX.1:DI$..(X|
00002080: 24 28 58 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 |$(X),2):DN$..(X$|
00002090: 28 58 29 2C 33 29 00 D0 28 F6 09 9F 20 35 2C 38 |(X),3)..(... 5,8|
000020A0: 2C 35 2C 22 30 3A 44 49 52 2E 22 AA 44 49 24 AA |,5,"0:DIR.".DI$.|
000020B0: 22 2C 53 2C 52 22 3A 8D 20 32 37 30 3A 84 35 2C |",S,R":. 270:.5,|
000020C0: 44 46 24 2C 4E 42 3A 8D 20 32 37 30 3A A0 20 35 |DF$,NB:. 270:. 5|
000020D0: 00 ED 28 00 0A 8B 20 28 56 46 B2 30 29 20 AF 20 |..(... (VF.0) . |
000020E0: 28 4E 42 B3 59 29 20 A7 20 32 35 39 30 00 0A 29 |(NB.Y) . 2590..)|
000020F0: 0A 0A 8B 20 28 56 46 B2 31 29 20 AF 20 28 4E 42 |... (VF.1) . (NB|
00002100: B1 59 29 20 A7 20 32 35 39 30 00 37 29 14 0A 98 |.Y) . 2590.7)...|
00002110: 34 2C C9 28 22 20 20 20 20 20 20 20 22 AA C4 28 |4,.(" "..(|
00002120: 4E 42 29 2C 37 29 3B A6 35 29 3B 44 49 24 3B 22 |NB),7);.5);DI$;"|
00002130: 20 20 22 3B 44 4E 24 00 52 29 1E 0A A1 20 43 24 | ";DN$.R)... C$|
00002140: 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 8D 20 32 31 |:. C$.."" . . 21|
00002150: 32 30 00 66 29 28 0A 8B 20 43 24 B2 22 51 22 20 |20.f)(.. C$."Q" |
00002160: A7 20 31 32 36 30 00 75 29 32 0A 82 20 58 3A 89 |. 1260.u)2.. X:.|
00002170: 20 31 36 37 30 00 00 00 | 1670... |
..&.... --------- DISK MASTER --------.,
.....L.... SINGLE VIC-1541 DISK.L.(
.. ON COMMODORE-64 SYSTEM.R.2.....<..
ROBERT W. BAKER...F.. 25 WINDS
OR DR, ATCO, NJ 08004...P.....Z.. ------
------------------------...D.:...F.H$.".
.":A1$.""...G.. I.1 . 10:A1$.A1$.H$:. I.
*.H.H$."..":A2$."".H.I.. I.1 . 10:A2$.A2
$.H$:. I.B.N..:C$."":S$.C$:X.0:Y.0...X.C
R$.G(13):HC$.G(147):RV$.G(18):RF$.G(146)
:CL$.G(157).R.... CR=CARRIAGE RETURN, HC
=HOME/CLEAR, RV=REVERSE ON...... RF=REVE
RSE OFF, CL=CURSOR LEFT...... 2140:. D$(
230),X$(230).@. .." READING DIRECTORY
CROSS REFERENCE".Z.... 15,8,15,"I0":. 22
20.|.... 5,8,5,"0:DISK DIR XREF,S,R"....
..15,EN,EM$,ET,ES:. EN.62 . 290.O.H..5,X
$(NX):SS.ST:. 2220:NX.NX.1:. SS.0 . 200.
Y.R.. 290.....S$."":. X.1 . Y:. 260:S$.S
$.C$:. X:....... X.1 . Y:. 260:. X:..=..
.V.0:. 260:. C$.."" . V.F(C$).C.....N...
.#5,C$.T...SS.ST:.15,EN,EM$,ET,ES:. EN.0
. ....... HC$;RV$;"DISK ERROR!":.:. 227
0...". 4: 5:CX.0:. 2140.H.,.. .5);"0 -
DONE":....6.. .5);"1 - UPDATE MASTER DI
RECTORY":..".@.. .5);"2 - DELETE DISK EN
TRY FORM MASTER":..O.J.. .5);"3 - DISPLA
Y SELECTED DIRECTORY":..U.T.. .5);"4 - F
IND SPECIFIED FILE":....^.. .5);"5 - LIS
T DISK ID'S & NAMES".E.H.. 2150:."ENTER
DESIRED FUNCTION: ";...R.. 2120:. C$."0
" . . HC$:. 2380...|.V.E(C$):. V.1 . V.5
. 370.'.... V . 400,1180,980,1690,1250.
Y... 15:CX.0:. HC$;"INSERT DISK TO BE C
ATALOGED"......:."DEPRESS ANY KEY TO CON
TINUE, ";RV$;"Q";RF$;" TO QUIT"...... 21
20:. C$."Q" . . 2390:. 290...... 2150:."
OK":. 15,8,15,"I0":. 270...... 5,8,5,"$0
,S,R":. 270...B.. 240:VF.V:. 260.=.L.NB.
0:. Z.1 . 35: . 240:. Z..18 . NB.NB.V.O.
V.Y.3:. 230:. Z.O...Y.16:. 220:DN$.S$:Y.
2:. 230.....Y.2:. 220:DI$.H(S$." ",2)..
.... 2160:. C$."N" . 970...... NX.0 . 63
0...... X.0 . NX.1:C$.H(X$(X),2):. DI$.C
$ . 630...... DI$..C$ . . X: . 630......
DN$.J(X$(X),3) . 630.A.&.. HC$;RV$;"***
WARNING ***";RF$;" THIS DISK ID : ";RV
$;DI$;RF$.~.0..:."DISK NAME: ";RV$;DN$..
.:..:."IS ALLREADY CATALOGED WITH A DIFF
ERENT ".Z.D..:."DISK NAME: ";RV$;J(X$(X)
,3):. 2150...N.. "CATALOGING THIS DISK W
ILL DELETE THE".&.X..:."PREVIOUS DATA!":
. 2150.V.B.."CATALOG THIS DISK";:. 2190:
. C$."N" . 970...L.. HC$;"CATALOGING DIS
K WITH NEW DISK NAME"...V.. 2150:."READI
NG DIRECTORY ENTRIES ...".Q.... 260:Y.2:
. 220:DF$.S$:Y.89...... VF.1 . DF$." 1".
..... 230.....NF.0:Z.0...... 240:FT.V.6.
..F$.C$:Y.2:. 230:Y.16:. 220:Y.9:. 230.^
.... 240:S$.S$.G(V):. 240:. FT.0 . 770.O
.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.....D$(X).F$.S$.G(V):NF.NF.1.%...Z
.Z.1:Z.Z.(.(Z.8).8):. Z.0 . Y.2:. 230.8.
... NF.155 . 840.S.... HC$;.6);RV$;"***
DISK BAM IS INVALID ***";RF$:. 2150... .
.:." CURRENT DISK CANNOT BE CATALOGED!
":.:.:..W.*.." PLEASE VERIFY OR CHECK DI
SK CONTENTS": ....4.."BEFORE ATTEMPTING
TO CATALOG THIS DISK.":.. .>.. 2150:. 21
10:. 970.1.H.. SS.0 . 680.I.R. 5: . 239
0:. 2150:."UPDATING MASTER DIRECTORY ...
".Z.\.. NX.0 . 910...F.. X.0 . NX.1:C$.H
(X$(X),2):. DI$ . C$ . 900...P.. DI$.C$
. 930.K.Z.. X:. 910...... Y.NX.1 . X . .
1:X$(Y.1).X$(Y):. Y:. 920.....X.NX.....N
X.NX.1.%...X$(X).DI$.DN$:CX.1.S.... 2030
:.15,"S".S$:. 5,8,5,S$.",S,W":. 270.P...
.5,DF$;",";NB;CR$;:. 270. .... NF.0 . .
X.1 . NF:.5,D$(X);CR$;:. 270:. X...J. 5
:. 2290:. 400...T.. HC$;"TO DISPLAY DISK
DIRECTORY":. 1870:. V . 290,980.#.... 5
,8,5,S$.",S,R":. 270:. 2070:.5,DF$,NB:.
270.P....4," ";RV$;"DISKNAME:";RF$;"
";DN$:.4.}....4,"".4);RV$;"DISK ID:";RF$
;" ";DI$;.6)......4,RV$;"DISK FORMAT:";
RF$;" "DF$:.4.N....4,RV$;"BLOCKS FREE:"
;RF$;" ";NB:.4......4,"-----------------
-----------------------":.4.....NF.0:. S
S.0 . 1160.J.$.. 240:FT.V:Y.16:. 220:. 2
40:Z.V:. 240:. 260.Y....4,I(" ".D(Z.(
256.V)),4);" ";S$;" ";...8.. FT.129 .
.4,"SEQ";...B.. FT.130 . .4,"PGM";.D.L.
. FT.131 . .4,"USR";...V.. FT.132 . .4,"
REL";...`..4:. C$:. C$.."" . . 2120...J.
. C$."Q" . 1170.).T.NF.NF.1:. SS.0 . 106
0.L.~..4:.4,RV$;"#FILES:";RF$;" ";NF.G..
.. PD.3 . . 2150:. 2110.Y... 4: 5:. 98
0...... HC$;"TO DELETE DISK FROM MASTER
DIRECTORY".E.... 1870:. V . 1240,1180.T.
...15,"S".S$.....CX.0:. X.0 . NX.1:. H(X
$(X),2).DI$ . CX.1...D.. CX . X$(X).X$(X
.1).2.N.. X:NX.NX.1:. 1180.C.X.. 2290:.
290.].... NX.0 . . 1880:. 290.L... 4:.
2140...... .5);"0 - RETURN TO MAIN FUNCT
ION MENU":..H.... .5);"1 - PRINT FULL ID
USEAGE CHART":....... .5);"2 - QUICK LI
ST OF ID'S IN USE":....... .5);"3 - LIST
DISK ID'S & NAMES":..[.... .5);"4 - LIS
T ";RV$;"MIN";RF$;" FREE BLOCKS PER DISK
":....(.. .5);"5 - LIST ";RV$;"MAX";RF$;
" FREE BLOCKS PER DISK"...2.. 2150:."ENT
ER DESIRED FUNCTION: ";.Y.<.. 2120:. C$.
"0" . 290...F.V.E(C$):. V.1 . V.5 . 1340
. .P.. C$:. V . 1370,1550,1620,2450,2490
.*.Z.. 4,4.H.D..4,"".15);RV$;" D I S K
I D U S E A G E C H A R T ".W.N..4:
.4," ";...X.. X.48 . 90:. X.58 . X.65...
...4," ";G(X);:. X:.4.O...Z.0:. X.48 . 9
0:. X.58 . X.65......4,A1$;"."......4,G(
X)...... Y.48 . 90:. Y.58 . Y.65.%....4,
G(221);:. Z.NX . 1500.D.H.C$.G(X).G(Y):S
$.H(X$(Z),2).J.R.. S$.C$ . .4,G(166);:Z.
Z.1:. 1510.V....4," ";...... Y:.4,G(221)
:. C$:. C$.."" . . 2120...... C$ .."Q" .
. X.C....4,A2$;".".N.... 1260...... 207
0:.4,"".7);".DISK ID'S CURRENTLY IN USE"
......4:.4.!.".V.12:. PD.4 . V.25.I.,.Z.
0:. X.0 . NX.1:.4,H(X$(X),2);" ";.E.6.Z.
Z.1:. Z..(Z.V).V . .4...@.. X:.4:.4:. Z.
..(Z.V).V . .4...J..4,Z;RV$;"DISKS IN MA
STER DIRECTORY":. 1670...T.. 2070:.4,RV$
;"ID ...DISK NAME....":.4...^.. X.0 . N
X.1:.4,H(X$(X),2);" ";J(X$(X),3).+.H.. C
$:. C$.."" . . 2120.?.R.. C$."Q" . 1260.
G.|.. X.Y.... PD.4 . 1260.R.... 2150:. 2
110:. 1260...... NX.0 . . 1880:. 290....
. 4:. HC$;"TO FIND WHAT DISK(S) A FILE
IS ON":....... "ENTER FILENAME .";CL$;
CL$;CL$;:. F$:. F$."." . 290...... F$."*
" . .:."RE-";:. 1710.8.B.S$.F$:. 2040:V.
Y:. 2070.O.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...... F$ . H(S$,V) . 1840.X.
... F$.H(S$,V) . .4,S$;" ";DI$;" ";DN$
:. <-2 SPACES EA.S.... C$:. C$.."" . . 2
120...... C$."Q" . 5:. 1700...&.. SS.0
. 1780...0. 5:. Z.F.:.. PD.3 . . 2150:
. 2110.Q.D.. 1700...N.V.3:. NX.0 . 1890.
. X.. HC$;RV$;"NO ENTRIES";:V.1:. 2010.=
B..:. "ENTER DISK ID .";CL$;CL$;CL$;:
. DI$.E 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).S ... 2160:. C$."N" . V.2:... ..
. 2030..!...:."ENTER DISK NAME .";CL$;
CL$;CL$;:. F$."!... F$."." . V.1:..G!...
2040:. X.0 . NX.1:. Y.0 . 2020.D!... F$
.J(X$(X),3,Y) . 2020.L!F.. X..!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).8"... I(F$
,1)."*" . Y.C(F$).1:F$.H(F$,Y):..M"..Y.1
6:. FF.1 . 16:F$.F$.G(160):. FF:F$.H(F$,
16):..."... 2150:."WANT PRINTED COPY";:.
2190:. 2150.." .PD.3:. C$."Y" . PD.4.P"
*.. 4,PD:. PD.3 . . HC$;.V"4....">.. "DE
PRESS ANY KEY TO CONTINUE"..#H.. C$:. C$
."" . 2120..#R...B#\.. HC$;.9);RV$;"D I
S K M A S T E R".V#F..:."-------------
---------------------------":.. #P.. HC$
;RV$;"DISK NAME:";RF$;" ";DN$:..M#Z.."
";RV$;"DISK ID:";RF$;" ";DI$:. 2150..#
... "CORRECT DISK";..#..." (Y/N) ? ";..$
... 2120:. C$.. "Y" . C$ .. "N" . 2200.)
$... C$:..I$...15,EN,EM$,ET,ES:. EN.0 .
..S$... HC$;RV$;"DISK ERROR";RF$;" WHILE
";..$... CX . ."WRITING NEW"..$J.. CX.0
. . "READING".V$T..:."DISK DIRECTORY CR
OSS REFERENCE FILE.":...$... EN;EM$;ET;E
S..%...:. RV$;"PROGRAM ABORTED!":. 2380.
.%... CX.0 . ..U%... 2150:."UPDATING DIR
ECTORY CROSS REFERENCE ...":..{%... NX.0
. .15,"S0:DISK DIR XREF":...%...15,"S0:
DIR XREF.TEMP"..%... 5,8,5,"0:DIR XREF.T
EMP,S,W":. 2220..%$.. X.0 . NX.1:.5,X$(X
);CR$;:. 2220:. X..&.. 5:.15,"S0:DISK D
IR XREF".:&8..15,"R0:DISK DIR XREF=0:DIR
XREF.TEMP":. 2220.@&B...S&L. 4: 5: 1
5:..]&V.. HC$..&`. 15:."INSERT MASTER D
ISK":.:. 2110..&J.. 15,8,15,"I0":. 270.E
&T..15,"C0:DISK MASTER=0:DISK MASTER"..&
~..15,EN:. EN.63 . ...'...:. RV$;"INCORR
ECT DISK!":. 2150:. 2400.8'... HC$;"ENTE
R MINIMUM NUMBER OF FREE BLOCKS".U'...:.
"TO BE DISPLAYED 0";CL$;CL$;CL$;:. S$:
. - DEFAULT=0..'..Y.E(S$):. S$.. "0" . Y
.0 . 1260..'..VF.0:. 2530.Y'... HC$;"ENT
ER MAXIMUM NUMBER OF FREE BLOCKS"..(D..:
."TO BE DISPLAYED 99";CL$;CL$;CL$;CL$;
:. S$.&(N.Y.E(S$):. Y.0 . 1260./(X.VF.1.
G(... 2070:.4,RV$;"#BLKS FREE ID ...DI
SK NAME....":.4..(... X.0 . NX.1:DI$.H(X
$(X),2):DN$.J(X$(X),3).P(... 5,8,5,"0:DI
R.".DI$.",S,R":. 270:.5,DF$,NB:. 270: 5
..(... (VF.0) . (NB.Y) . 2590..)... (VF.
1) . (NB.Y) . 2590.7)...4,I(" ".D(
NB),7);.5);DI$;" ";DN$.R)... C$:. C$.."
" . . 2120.F)(.. C$."Q" . 1260.U)2.. X:.
1670...
> CLICK IMAGE PREVIEW FOR FULL MODAL