DISK-MASTER
FILE INFORMATION
FILENAME(S): DISK-MASTER
FILE TYPE(S): PRG
FILE SIZE: 8.4K
FIRST SEEN: 2025-11-30 01:08:06
APPEARS ON: 3 disk(s)
FILE HASH
91e1f5116617bd85272ca9b0a83d4aa30c4e0c635f9bb8a076fd4af5b7c02d62
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | DISK-MASTER | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
| A NWENDER | DISK-MASTER | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 0 | DOWNLOAD FILE |
| PUBLIC DOMAIN | DISK-MASTER | PRG | DuncanTwain | 20 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2D 2D 2D 2D 2D 2D 2D 44 |..%.... -------D|
00000010: 49 53 4B 20 4D 41 53 54 45 52 2D 2D 2D 2D 2D 2D |ISK MASTER------|
00000020: 2D 2D 2D 2D 2D 00 2B 08 14 00 8F 00 49 08 1E 00 |-----.+.....I...|
00000030: 8F 20 20 20 20 53 49 4E 47 4C 45 20 56 49 43 2D |. SINGLE VIC-|
00000040: 31 35 34 31 20 44 49 53 4B 00 68 08 28 00 8F 20 |1541 DISK.h.(.. |
00000050: 20 20 4F 4E 20 43 4F 4D 4D 4F 44 4F 52 45 2D 36 | ON COMMODORE-6|
00000060: 34 20 53 59 53 54 45 4D 00 6E 08 32 00 8F 00 8B |4 SYSTEM.n.2....|
00000070: 08 3C 00 8F 20 20 20 20 20 20 20 20 52 4F 42 45 |.<.. ROBE|
00000080: 52 54 20 57 2E 20 42 41 4B 45 52 00 AF 08 46 00 |RT W. BAKER...F.|
00000090: 8F 20 31 35 20 57 49 4E 44 53 4F 52 20 44 52 2C |. 15 WINDSOR DR,|
000000A0: 20 41 54 43 4F 2C 20 4E 4A 20 30 38 30 30 34 00 | ATCO, NJ 08004.|
000000B0: D5 08 50 00 8F 20 50 55 42 4C 49 43 20 44 4F 4D |..P.. PUBLIC DOM|
000000C0: 41 49 4E 20 53 4F 46 54 57 41 52 45 20 23 20 30 |AIN SOFTWARE # 0|
000000D0: 38 39 37 36 35 00 F9 08 5A 00 8F 20 2D 2D 2D 2D |89765...Z.. ----|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 FF 08 64 00 3A 00 |---------...d.:.|
00000100: 19 09 6E 00 9C 3A 43 24 B2 22 22 3A 53 24 B2 43 |..n..:C$."":S$.C|
00000110: 24 3A 58 B2 30 3A 59 B2 30 00 52 09 78 00 43 52 |$:X.0:Y.0.R.x.CR|
00000120: 24 B2 C7 28 31 33 29 3A 48 43 24 B2 C7 28 31 34 |$..(13):HC$..(14|
00000130: 37 29 3A 52 56 24 B2 C7 28 31 38 29 3A 52 46 24 |7):RV$..(18):RF$|
00000140: B2 C7 28 31 34 36 29 3A 43 4C 24 B2 C7 28 31 35 |..(146):CL$..(15|
00000150: 37 29 00 8C 09 82 00 8F 20 43 52 3D 43 41 52 52 |7)...... CR=CARR|
00000160: 41 49 41 47 45 20 52 45 54 55 52 4E 2C 20 48 43 |AIAGE RETURN, HC|
00000170: 3D 20 48 4F 4D 45 2F 43 4C 45 41 52 2C 20 52 56 |= HOME/CLEAR, RV|
00000180: 3D 20 52 45 56 45 52 53 45 20 4F 4E 00 B5 09 8C |= REVERSE ON....|
00000190: 00 8F 20 52 46 3D 20 52 45 56 45 52 53 45 20 4F |.. RF= REVERSE O|
000001A0: 46 46 2C 20 20 20 43 4C 3D 20 43 55 52 53 45 52 |FF, CL= CURSER|
000001B0: 20 4C 45 46 54 00 D2 09 96 00 8D 20 32 31 34 30 | LEFT...... 2140|
000001C0: 3A 86 20 44 24 28 32 33 30 29 2C 58 24 28 32 33 |:. D$(230),X$(23|
000001D0: 30 29 00 FE 09 A0 00 99 22 20 20 20 52 45 41 44 |0)......" READ|
000001E0: 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 43 52 |ING DIRECTORY CR|
000001F0: 4F 53 53 20 52 45 46 45 52 45 4E 43 45 22 00 17 |OSS REFERENCE"..|
00000200: 0A AA 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |....15,8,15,"I0"|
00000210: 3A 8D 20 32 32 32 30 00 39 0A B4 00 9F 20 35 2C |:. 2220.9.... 5,|
00000220: 38 2C 35 2C 22 30 3A 44 49 53 4B 20 44 49 52 20 |8,5,"0:DISK DIR |
00000230: 58 52 45 46 2C 53 2C 52 22 00 5A 0A BE 00 84 31 |XREF,S,R".Z....1|
00000240: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00000250: 45 4E B2 36 32 A7 20 32 39 30 00 89 0A C8 00 84 |EN.62. 290......|
00000260: 35 2C 58 24 28 4E 58 29 3A 53 53 B2 53 54 3A 8D |5,X$(NX):SS.ST:.|
00000270: 32 32 32 30 3A 4E 58 B2 4E 58 AA 31 3A 8B 20 53 |2220:NX.NX.1:. S|
00000280: 53 B2 30 20 A7 20 32 30 30 00 93 0A D2 00 89 20 |S.0 . 200...... |
00000290: 32 39 30 00 BC 0A DC 00 53 24 B2 22 22 3A 81 20 |290.....S$."":. |
000002A0: 58 B2 31 20 A4 20 59 3A 8D 20 32 36 30 3A 53 24 |X.1 . Y:. 260:S$|
000002B0: B2 53 24 AA 43 24 3A 82 20 58 3A 8E 00 D6 0A E6 |.S$.C$:. X:.....|
000002C0: 00 81 58 B2 31 20 A4 20 59 3A 8D 20 32 36 30 3A |..X.1 . Y:. 260:|
000002D0: 82 20 58 3A 20 8E 00 F6 0A F0 00 56 B2 30 3A 8D |. X: ......V.0:.|
000002E0: 20 32 36 30 3A 8B 20 43 24 B3 B1 22 22 A7 20 56 | 260:. C$.."". V|
000002F0: B2 C6 28 43 24 29 00 FC 0A FA 00 8E 00 07 0B 04 |..(C$)..........|
00000300: 01 A1 23 35 2C 43 24 00 2D 0B 0E 01 53 53 B2 53 |..#5,C$.-...SS.S|
00000310: 54 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |T:.15,EN,EM$,ET,|
00000320: 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 51 0B |ES:. EN.0 . ..Q.|
00000330: 18 01 99 48 43 24 3B 52 56 24 3B 22 44 49 53 4B |...HC$;RV$;"DISK|
00000340: 20 45 52 52 4F 52 21 22 3A 99 3A 89 20 32 32 37 | ERROR!":.:. 227|
00000350: 30 00 69 0B 22 01 A0 20 34 3A A0 20 35 3A 43 58 |0.i.".. 4:. 5:CX|
00000360: B2 30 3A 8D 20 32 31 34 30 00 80 0B 2C 01 99 20 |.0:. 2140...,.. |
00000370: A6 35 29 3B 22 30 20 2D 20 44 4F 4E 45 22 3A 99 |.5);"0 - DONE":.|
00000380: 00 AA 0B 36 01 99 20 A6 35 29 3B 22 31 20 2D 20 |...6.. .5);"1 - |
00000390: 55 50 44 41 54 45 20 4D 41 53 54 45 52 20 44 49 |UPDATE MASTER DI|
000003A0: 52 45 43 54 4F 52 59 22 3A 99 00 DA 0B 40 01 99 |RECTORY":....@..|
000003B0: 20 A6 35 29 3B 22 32 20 2D 20 44 45 4C 45 54 45 | .5);"2 - DELETE|
000003C0: 20 44 49 53 4B 20 45 4E 54 52 59 20 46 52 4F 4D | DISK ENTRY FROM|
000003D0: 20 4D 41 53 54 45 52 22 3A 99 00 07 0C 4A 01 99 | MASTER":....J..|
000003E0: 20 A6 35 29 3B 22 33 20 2D 20 44 49 53 50 4C 41 | .5);"3 - DISPLA|
000003F0: 59 20 53 45 4C 45 43 54 45 44 20 44 49 52 45 43 |Y SELECTED DIREC|
00000400: 54 4F 52 59 22 3A 99 00 2D 0C 54 01 99 20 A6 35 |TORY":..-.T.. .5|
00000410: 29 3B 22 34 20 2D 20 46 49 4E 44 20 53 50 45 43 |);"4 - FIND SPEC|
00000420: 49 46 49 45 44 20 46 49 4C 45 22 3A 99 00 54 0C |IFIED FILE":..T.|
00000430: 5E 01 99 20 A6 35 29 3B 22 35 20 2D 20 4C 49 53 |^.. .5);"5 - LIS|
00000440: 54 20 44 49 53 4B 20 49 44 27 53 20 26 20 4E 41 |T DISK ID'S & NA|
00000450: 4D 45 53 22 00 7D 0C 68 01 8D 20 32 31 35 30 3A |MES".}.h.. 2150:|
00000460: 99 22 45 4E 54 45 52 20 44 45 53 49 52 45 44 20 |."ENTER DESIRED |
00000470: 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B 00 9F 0C |FUNCTION: ";...|
00000480: 72 01 8D 20 32 31 32 30 3A 8B 20 43 24 B2 22 30 |r.. 2120:. C$."0|
00000490: 22 A7 20 99 20 48 43 24 3A 89 20 32 33 38 30 00 |". . HC$:. 2380.|
000004A0: BD 0C 7C 01 56 B2 C5 28 43 24 29 3A 8B 20 56 B3 |..|.V..(C$):. V.|
000004B0: 31 20 B0 20 56 B1 35 20 A7 20 33 37 30 00 DE 0C |1 . V.5 . 370...|
000004C0: 86 01 91 20 56 20 89 20 34 30 30 2C 31 31 38 30 |... V . 400,1180|
000004D0: 2C 39 38 30 2C 31 36 39 30 2C 31 32 35 30 00 10 |,980,1690,1250..|
000004E0: 0D 90 01 A0 20 31 35 3A 43 58 B2 30 3A 99 20 48 |.... 15:CX.0:. H|
000004F0: 43 24 3B 22 49 4E 53 45 52 54 20 44 49 53 4B 20 |C$;"INSERT DISK |
00000500: 54 4F 20 42 45 20 43 41 54 41 4C 4F 47 45 44 22 |TO BE CATALOGED"|
00000510: 00 4E 0D 9A 01 99 3A 99 22 44 45 50 52 45 53 53 |.N....:."DEPRESS|
00000520: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00000530: 49 4E 55 45 2C 20 22 3B 52 56 24 3B 22 51 22 3B |INUE, ";RV$;"Q";|
00000540: 52 46 24 3B 22 20 54 4F 20 51 55 49 54 22 00 71 |RF$;" TO QUIT".q|
00000550: 0D A4 01 8D 20 32 31 32 30 3A 8B 20 43 24 B2 22 |.... 2120:. C$."|
00000560: 51 22 20 A7 20 8D 20 32 33 39 30 3A 89 20 32 39 |Q" . . 2390:. 29|
00000570: 30 00 96 0D AE 01 8D 20 32 31 35 30 3A 99 22 4F |0...... 2150:."O|
00000580: 4B 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 4F 22 |K":.15,8,15,"IO"|
00000590: 3A 8D 20 32 37 30 00 AF 0D B8 01 9F 35 2C 38 2C |:. 270......5,8,|
000005A0: 35 2C 22 24 30 2C 53 2C 52 22 3A 8D 32 37 30 00 |5,"$0,S,R":.270.|
000005B0: C4 0D C2 01 8D 20 32 34 30 3A 56 46 B2 56 3A 8D |..... 240:VF.V:.|
000005C0: 20 32 36 30 00 F0 0D CC 01 4E 42 B2 30 3A 81 20 | 260.....NB.0:. |
000005D0: 5A B2 31 20 A4 20 33 35 3A 8D 20 32 34 30 3A 8B |Z.1 . 35:. 240:.|
000005E0: 20 5A B3 B1 31 38 20 A7 20 4E 42 B2 4E 42 AA 56 | Z..18 . NB.NB.V|
000005F0: 00 02 0E D6 01 59 B2 33 3A 8D 20 32 33 30 3A 82 |.....Y.3:. 230:.|
00000600: 20 5A 00 22 0E E0 01 59 B2 31 36 3A 8D 20 32 32 | Z."...Y.16:. 22|
00000610: 30 3A 44 4E 24 B2 53 24 3A 59 B2 32 3A 8D 20 32 |0:DN$.S$:Y.2:. 2|
00000620: 33 30 00 41 0E EA 01 59 B2 32 3A 8D 20 32 32 30 |30.A...Y.2:. 220|
00000630: 3A 44 49 24 B2 C8 28 53 24 AA 22 20 20 22 2C 32 |:DI$..(S$." ",2|
00000640: 29 00 5B 0E F4 01 8D 20 32 31 36 30 3A 8B 20 43 |).[.... 2160:. C|
00000650: 24 B2 22 4E 22 20 A7 20 39 37 30 00 6C 0E FE 01 |$."N" . 970.l...|
00000660: 8B 20 4E 58 B2 30 20 A7 20 36 33 30 00 9A 0E 08 |. NX.0 . 630....|
00000670: 02 81 20 58 B2 30 20 A4 20 4E 58 AB 31 3A 43 24 |.. X.0 . NX.1:C$|
00000680: B2 C8 28 58 24 28 58 29 2C 32 29 3A 8B 20 44 49 |..(X$(X),2):. DI|
00000690: 24 B3 43 24 20 A7 20 36 33 30 00 B3 0E 12 02 8B |$.C$ . 630......|
000006A0: 20 44 49 24 B3 B1 43 24 A7 20 82 20 58 3A 89 20 | DI$..C$. . X:. |
000006B0: 36 33 30 00 CE 0E 1C 02 8B 20 44 4E 24 B2 CA 28 |630...... DN$..(|
000006C0: 58 24 28 58 29 2C 33 29 20 A7 20 36 33 30 00 11 |X$(X),3) . 630..|
000006D0: 0F 26 02 99 20 48 43 24 3B 52 56 24 3B 22 2A 2A |.&.. HC$;RV$;"**|
000006E0: 2A 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 22 3B 52 |* WARNING ***";R|
000006F0: 46 24 3B 22 20 20 54 48 49 53 20 44 49 53 4B 20 |F$;" THIS DISK |
00000700: 49 44 3A 20 22 3B 52 56 24 3B 44 49 24 3B 52 46 |ID: ";RV$;DI$;RF|
00000710: 24 00 2E 0F 30 02 99 3A 99 22 44 49 53 4B 20 4E |$...0..:."DISK N|
00000720: 41 4D 45 3A 20 22 3B 52 56 24 3B 44 4E 24 00 5F |AME: ";RV$;DN$._|
00000730: 0F 3A 02 99 3A 99 22 49 53 20 41 4C 4C 20 52 45 |.:..:."IS ALL RE|
00000740: 41 44 59 20 43 41 54 41 4C 4F 47 45 44 20 57 49 |ADY CATALOGED WI|
00000750: 54 48 20 41 20 44 49 46 46 45 52 45 4E 54 22 00 |TH A DIFFERENT".|
00000760: 8A 0F 44 02 99 3A 99 22 44 49 53 4B 20 4E 41 4D |..D..:."DISK NAM|
00000770: 45 3A 20 22 3B 52 56 24 3B CA 28 58 24 28 58 29 |E: ";RV$;.(X$(X)|
00000780: 2C 33 29 3A 8D 20 32 31 35 30 00 B6 0F 4E 02 99 |,3):. 2150...N..|
00000790: 22 43 41 54 41 4C 4F 47 49 4E 47 20 54 48 49 53 |"CATALOGING THIS|
000007A0: 20 44 49 53 4B 20 57 49 4C 4C 20 44 45 4C 45 54 | DISK WILL DELET|
000007B0: 45 20 54 48 45 22 00 D5 0F 58 02 99 3A 99 22 50 |E THE"...X..:."P|
000007C0: 52 45 56 49 4F 55 53 20 44 41 54 41 21 22 3A 8D |REVIOUS DATA!":.|
000007D0: 20 32 31 35 30 00 05 10 62 02 99 22 43 41 54 41 | 2150...b.."CATA|
000007E0: 4C 4F 47 20 54 48 49 53 20 44 49 53 4B 22 3B 3A |LOG THIS DISK";:|
000007F0: 8D 20 32 31 39 30 3A 8B 20 43 24 B2 22 4E 22 20 |. 2190:. C$."N" |
00000800: A7 20 39 37 30 00 34 10 6C 02 99 20 48 43 24 3B |. 970.4.l.. HC$;|
00000810: 22 43 41 54 41 4C 4F 47 49 4E 47 20 44 49 53 4B |"CATALOGING DISK|
00000820: 20 57 49 54 48 20 4E 45 57 20 44 49 53 4B 20 4E | WITH NEW DISK N|
00000830: 41 4D 45 22 00 60 10 76 02 8D 20 32 31 35 30 3A |AME".`.v.. 2150:|
00000840: 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 |."READING DIRECT|
00000850: 4F 52 59 20 45 4E 54 52 49 45 53 20 2E 2E 2E 22 |ORY ENTRIES ..."|
00000860: 00 80 10 80 02 8D 20 32 36 30 3A 59 B2 32 3A 8D |...... 260:Y.2:.|
00000870: 20 32 32 30 3A 44 46 24 B2 53 24 3A 59 B2 38 39 | 220:DF$.S$:Y.89|
00000880: 00 96 10 8A 02 8B 20 56 46 B2 31 20 A7 20 44 46 |...... VF.1 . DF|
00000890: 24 B2 22 20 31 22 00 A0 10 94 02 8D 20 32 33 30 |$." 1"...... 230|
000008A0: 00 AD 10 9E 02 4E 46 B2 30 3A 5A B2 30 00 BC 10 |.....NF.0:Z.0...|
000008B0: A8 02 8D 20 32 34 30 3A 46 54 B2 56 00 E5 10 B2 |... 240:FT.V....|
000008C0: 02 46 24 B2 43 24 3A 59 B2 32 3A 8D 20 32 33 30 |.F$.C$:Y.2:. 230|
000008D0: 3A 59 B2 31 36 3A 8D 20 32 32 30 3A 59 B2 39 3A |:Y.16:. 220:Y.9:|
000008E0: 8D 20 32 33 30 00 0D 11 BC 02 8D 20 32 34 30 3A |. 230...... 240:|
000008F0: 53 24 B2 53 24 AA C7 28 56 29 3A 8D 20 32 34 30 |S$.S$..(V):. 240|
00000900: 3A 8B 20 46 54 B2 30 20 A7 20 37 37 30 00 1E 11 |:. FT.0 . 770...|
00000910: C6 02 8B 20 4E 46 B2 30 20 A7 20 37 34 30 00 4E |... NF.0 . 740.N|
00000920: 11 D0 02 81 20 58 B2 31 20 A4 20 4E 46 3A 8B 20 |.... X.1 . NF:. |
00000930: C8 28 53 24 2C 31 36 29 20 B3 20 CA 28 44 24 28 |.(S$,16) . .(D$(|
00000940: 58 29 2C 32 2C 31 36 29 20 A7 20 37 35 30 00 56 |X),2,16) . 750.V|
00000950: 11 DA 02 82 20 58 00 67 11 E4 02 58 B2 4E 46 AA |.... X.g...X.NF.|
00000960: 31 3A 89 20 37 36 30 00 8C 11 EE 02 81 20 59 B2 |1:. 760...... Y.|
00000970: 4E 46 20 A4 20 58 20 A9 AB 31 3A 44 24 28 59 AA |NF . X ..1:D$(Y.|
00000980: 31 29 B2 44 24 28 59 29 3A 82 20 59 00 A9 11 F8 |1).D$(Y):. Y....|
00000990: 02 44 24 28 58 29 B2 46 24 AA 53 24 AA C7 28 56 |.D$(X).F$.S$..(V|
000009A0: 29 3A 4E 46 B2 4E 46 AA 31 00 D4 11 02 03 5A B2 |):NF.NF.1.....Z.|
000009B0: 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A AD 38 29 AC |Z.1:Z.Z.(.(Z.8).|
000009C0: 38 29 3A 8B 20 5A B1 30 20 A7 20 59 B2 32 3A 8D |8):. Z.0 . Y.2:.|
000009D0: 20 32 33 30 00 E6 11 0C 03 8B 20 4E 46 B3 31 35 | 230...... NF.15|
000009E0: 35 A7 20 38 34 30 00 21 12 16 03 99 20 48 43 24 |5. 840.!.... HC$|
000009F0: 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 44 49 |;.6);RV$;"*** DI|
00000A00: 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 41 4C 49 |SK BAM IS INVALI|
00000A10: 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 20 32 31 35 |D ***";RF$:. 215|
00000A20: 30 00 55 12 20 03 99 3A 99 22 20 20 20 43 55 52 |0.U. ..:." CUR|
00000A30: 52 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E 4F 54 |RENT DISK CANNOT|
00000A40: 20 42 45 20 43 41 54 41 4C 4F 47 45 44 21 22 3A | BE CATALOGED!":|
00000A50: 99 3A 99 3A 99 00 84 12 2A 03 99 22 20 50 4C 45 |.:.:....*.." PLE|
00000A60: 41 53 45 20 56 45 52 49 46 59 20 4F 52 20 43 48 |ASE VERIFY OR CH|
00000A70: 45 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 4E 54 |ECK DISK CONTENT|
00000A80: 53 22 3A 99 00 B5 12 34 03 99 22 42 45 46 4F 52 |S":....4.."BEFOR|
00000A90: 45 20 41 54 54 45 4D 50 54 49 4E 47 20 54 4F 20 |E ATTEMPTING TO |
00000AA0: 43 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 |CATALOG THIS DIS|
00000AB0: 4B 2E 22 3A 99 00 CC 12 3E 03 8D 20 32 31 35 30 |K.":....>.. 2150|
00000AC0: 3A 8D 20 32 31 31 30 3A 89 39 37 30 00 DD 12 48 |:. 2110:.970...H|
00000AD0: 03 8B 20 53 53 B2 30 20 A7 20 36 38 30 00 14 13 |.. SS.0 . 680...|
00000AE0: 52 03 A0 20 35 3A 8D 20 32 33 39 30 3A 8D 20 32 |R.. 5:. 2390:. 2|
00000AF0: 31 35 30 3A 99 22 55 50 44 41 54 49 4E 47 20 4D |150:."UPDATING M|
00000B00: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 20 |ASTER DIRECTORY |
00000B10: 2E 2E 2E 22 00 23 13 5C 03 8B 20 4E 58 B2 30 A7 |...".#.\.. NX.0.|
00000B20: 39 31 30 00 4D 13 66 03 81 20 58 B2 30 A4 4E 58 |910.M.f.. X.0.NX|
00000B30: AB 31 3A 43 24 B2 C8 28 58 24 28 58 29 2C 32 29 |.1:C$..(X$(X),2)|
00000B40: 3A 8B 20 44 49 24 B3 43 24 A7 39 30 30 00 5E 13 |:. DI$.C$.900.^.|
00000B50: 70 03 8B 20 44 49 24 B2 43 24 A7 39 33 30 00 6B |p.. DI$.C$.930.k|
00000B60: 13 7A 03 82 20 58 3A 89 39 31 30 00 97 13 84 03 |.z.. X:.910.....|
00000B70: 81 20 59 B2 4E 58 AB 31 20 A4 58 20 A9 AB 31 3A |. Y.NX.1 .X ..1:|
00000B80: 58 24 28 59 AA 31 29 B2 58 24 28 59 29 3A 82 20 |X$(Y.1).X$(Y):. |
00000B90: 59 20 3A 89 39 32 30 00 A0 13 8E 03 58 B2 4E 58 |Y :.920.....X.NX|
00000BA0: 00 AC 13 98 03 4E 58 B2 4E 58 AA 31 00 C3 13 A2 |.....NX.NX.1....|
00000BB0: 03 58 24 28 58 29 B2 44 49 24 AA 44 4E 24 3A 43 |.X$(X).DI$.DN$:C|
00000BC0: 58 B2 31 00 F1 13 AC 03 8D 20 32 30 33 30 3A 98 |X.1...... 2030:.|
00000BD0: 31 35 2C 22 53 22 AA 53 24 3A 9F 20 35 2C 38 2C |15,"S".S$:. 5,8,|
00000BE0: 35 2C 53 24 AA 22 2C 53 2C 57 22 3A 8D 20 32 37 |5,S$.",S,W":. 27|
00000BF0: 30 00 0E 14 B6 03 98 35 2C 44 46 24 3B 22 2C 22 |0......5,DF$;","|
00000C00: 3B 4E 42 3B 43 52 24 3B 3A 8D 20 32 37 30 00 3D |;NB;CR$;:. 270.=|
00000C10: 14 C0 03 8B 20 4E 46 B1 30 A7 20 81 20 58 B2 31 |.... NF.0. . X.1|
00000C20: 20 A4 20 4E 46 3A 98 35 2C 44 24 28 58 29 3B 43 | . NF:.5,D$(X);C|
00000C30: 52 24 3B 3A 8D 20 32 37 30 3A 82 20 58 00 50 14 |R$;:. 270:. X.P.|
00000C40: CA 03 A0 20 35 3A 8D 32 32 39 30 3A 89 34 30 30 |... 5:.2290:.400|
00000C50: 00 8A 14 D4 03 99 48 43 24 3B 22 54 4F 20 44 49 |......HC$;"TO DI|
00000C60: 53 50 4C 41 59 20 44 49 53 4B 20 44 49 52 45 43 |SPLAY DISK DIREC|
00000C70: 54 4F 52 59 22 3A 8D 20 31 38 37 30 3A 91 20 56 |TORY":. 1870:. V|
00000C80: 20 89 20 32 39 30 2C 39 38 30 00 BC 14 DE 03 9F | . 290,980......|
00000C90: 20 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 | 5,8,5,S$.",S,R"|
00000CA0: 3A 8D 20 32 37 30 3A 8D 20 32 30 37 30 3A 84 35 |:. 270:. 2070:.5|
00000CB0: 2C 44 46 24 2C 4E 42 3A 8D 32 37 30 00 E9 14 E8 |,DF$,NB:.270....|
00000CC0: 03 98 34 2C 22 20 20 22 3B 52 56 24 3B 22 44 49 |..4," ";RV$;"DI|
00000CD0: 53 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 3B 22 20 |SK NAME:";RF$;" |
00000CE0: 20 22 3B 44 4E 24 3A 98 34 00 16 15 F2 03 98 34 | ";DN$:.4......4|
00000CF0: 2C 22 22 A6 34 29 3B 52 56 24 3B 22 44 49 53 4B |,"".4);RV$;"DISK|
00000D00: 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 | ID:";RF$;" ";D|
00000D10: 49 24 3B A6 36 29 00 3F 15 FC 03 98 34 2C 52 56 |I$;.6).?....4,RV|
00000D20: 24 3B 22 44 49 53 4B 20 46 4F 52 4D 41 54 3A 22 |$;"DISK FORMAT:"|
00000D30: 3B 52 46 24 3B 22 20 20 22 44 46 24 3A 98 34 00 |;RF$;" "DF$:.4.|
00000D40: 67 15 06 04 98 34 2C 52 56 24 3B 22 42 4C 4F 43 |g....4,RV$;"BLOC|
00000D50: 4B 53 20 46 52 45 45 3A 22 3B 52 46 24 3B 22 20 |KS FREE:";RF$;" |
00000D60: 22 3B 4E 42 3A 98 34 00 9E 15 10 04 98 34 2C 22 |";NB:.4......4,"|
00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 98 34 00 B5 |----------":.4..|
00000DA0: 15 1A 04 4E 46 B2 30 3A 8B 20 53 53 B1 30 20 A7 |...NF.0:. SS.0 .|
00000DB0: 20 31 31 36 30 00 E5 15 24 04 8D 20 32 34 30 3A | 1160...$.. 240:|
00000DC0: 46 54 B2 56 3A 59 B2 31 36 3A 8D 20 32 32 30 3A |FT.V:Y.16:. 220:|
00000DD0: 8D 20 32 34 30 3A 5A B2 56 3A 8D 20 32 34 30 3A |. 240:Z.V:. 240:|
00000DE0: 8D 20 32 36 30 00 14 16 2E 04 98 34 2C C9 28 22 |. 260......4,.("|
00000DF0: 20 20 20 20 22 AA C4 28 5A AA 28 32 35 36 AC 56 | "..(Z.(256.V|
00000E00: 29 29 2C 34 29 3B 22 20 20 22 3B 53 24 3B 22 20 |)),4);" ";S$;" |
00000E10: 20 20 22 3B 00 2D 16 38 04 8B 20 46 54 B2 31 32 | ";.-.8.. FT.12|
00000E20: 39 20 A7 20 98 34 2C 22 53 45 51 22 3B 00 46 16 |9 . .4,"SEQ";.F.|
00000E30: 42 04 8B 20 46 54 B2 31 33 30 20 A7 20 98 34 2C |B.. FT.130 . .4,|
00000E40: 22 50 47 4D 22 3B 00 5F 16 4C 04 8B 20 46 54 B2 |"PGM";._.L.. FT.|
00000E50: 31 33 31 20 A7 20 98 34 2C 22 55 53 52 22 3B 00 |131 . .4,"USR";.|
00000E60: 78 16 56 04 8B 20 46 54 B2 31 33 32 20 A7 20 98 |x.V.. FT.132 . .|
00000E70: 34 2C 22 52 45 4C 22 3B 00 96 16 60 04 98 34 3A |4,"REL";...`..4:|
00000E80: A1 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 |. C$:. C$.."" . |
00000E90: 8D 20 32 31 32 30 00 AA 16 6A 04 8B 20 43 24 B2 |. 2120...j.. C$.|
00000EA0: 22 51 22 20 A7 20 31 31 37 30 00 C2 16 74 04 4E |"Q" . 1170...t.N|
00000EB0: 46 B2 4E 46 AA 31 3A 8B 20 53 53 B2 30 A7 31 30 |F.NF.1:. SS.0.10|
00000EC0: 36 30 00 E5 16 7E 04 98 34 3A 98 34 2C 52 56 24 |60...~..4:.4,RV$|
00000ED0: 3B 22 23 46 49 4C 45 53 3A 22 3B 52 46 24 3B 22 |;"#FILES:";RF$;"|
00000EE0: 20 22 3B 4E 46 00 00 17 88 04 8B 20 50 44 B2 33 | ";NF...... PD.3|
00000EF0: 20 A7 20 8D 20 32 31 35 30 3A 8D 20 32 31 31 30 | . . 2150:. 2110|
00000F00: 00 11 17 92 04 A0 20 34 3A A0 35 3A 89 20 39 38 |...... 4:.5:. 98|
00000F10: 30 00 41 17 9C 04 99 48 43 24 3B 22 54 4F 20 44 |0.A....HC$;"TO D|
00000F20: 45 4C 45 54 45 20 44 49 53 4B 20 46 52 4F 4D 20 |ELETE DISK FROM |
00000F30: 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 |MASTER DIRECTORY|
00000F40: 22 00 5C 17 A6 04 8D 20 31 38 37 30 3A 91 20 56 |".\.... 1870:. V|
00000F50: 20 89 20 31 32 34 30 2C 31 31 38 30 00 6B 17 B0 | . 1240,1180.k..|
00000F60: 04 98 31 35 2C 22 53 22 AA 53 24 00 99 17 BA 04 |..15,"S".S$.....|
00000F70: 43 58 B2 30 3A 81 20 58 B2 30 20 A4 20 4E 58 AB |CX.0:. X.0 . NX.|
00000F80: 31 3A 8B 20 C8 28 58 24 28 58 29 2C 32 29 B2 44 |1:. .(X$(X),2).D|
00000F90: 49 24 20 A7 20 43 58 B2 31 00 B2 17 C4 04 8B 20 |I$ . CX.1...... |
00000FA0: 43 58 20 A7 20 58 24 28 58 29 B2 58 24 28 58 AA |CX . X$(X).X$(X.|
00000FB0: 31 29 00 C9 17 CE 04 82 20 58 3A 4E 58 B2 4E 58 |1)...... X:NX.NX|
00000FC0: AB 31 3A 89 20 31 31 38 30 00 DA 17 D8 04 8D 20 |.1:. 1180...... |
00000FD0: 32 32 39 30 3A 89 20 32 39 30 00 F3 17 E2 04 8B |2290:. 290......|
00000FE0: 20 4E 58 B2 30 A7 20 8D 20 31 38 38 30 3A 89 20 | NX.0. . 1880:. |
00000FF0: 32 39 30 00 02 18 EC 04 A0 20 34 3A 8D 20 32 31 |290...... 4:. 21|
00001000: 34 30 00 31 18 F6 04 99 20 A6 35 29 3B 22 30 20 |40.1.... .5);"0 |
00001010: 2D 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E |- RETURN TO MAIN|
00001020: 20 46 55 4E 43 54 49 4F 4E 20 4D 45 4E 55 22 3A | FUNCTION MENU":|
00001030: 99 00 5D 18 00 05 99 A6 35 29 3B 22 31 20 2D 20 |..].....5);"1 - |
00001040: 50 52 49 4E 54 20 46 55 4C 4C 20 49 44 20 55 53 |PRINT FULL ID US|
00001050: 45 41 47 45 20 43 48 41 52 54 22 3A 99 00 88 18 |EAGE CHART":....|
00001060: 0A 05 99 A6 35 29 3B 22 32 20 2D 20 51 55 49 43 |....5);"2 - QUIC|
00001070: 4B 20 4C 49 53 54 20 4F 46 20 49 44 27 53 20 49 |K LIST OF ID'S I|
00001080: 4E 20 55 53 45 22 3A 99 00 B0 18 14 05 99 A6 35 |N USE":........5|
00001090: 29 3B 22 33 20 2D 20 4C 49 53 54 20 44 49 53 4B |);"3 - LIST DISK|
000010A0: 20 49 44 27 53 20 26 20 4E 41 4D 45 53 22 3A 99 | ID'S & NAMES":.|
000010B0: 00 EC 18 1E 05 99 A6 35 29 3B 22 34 20 2D 20 4C |.......5);"4 - L|
000010C0: 49 53 54 22 3B 52 56 24 3B 22 4D 49 4E 22 3B 52 |IST";RV$;"MIN";R|
000010D0: 46 24 3B 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 |F$;" FREE BLOCKS|
000010E0: 20 50 45 52 20 44 49 53 4B 22 3A 99 00 28 19 28 | PER DISK":..(.(|
000010F0: 05 99 20 A6 35 29 3B 22 35 20 2D 20 4C 49 53 54 |.. .5);"5 - LIST|
00001100: 20 22 3B 52 56 24 3B 22 4D 41 58 22 3B 52 46 24 | ";RV$;"MAX";RF$|
00001110: 3B 22 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 |;" FREE BLOCKS P|
00001120: 45 52 20 44 49 53 4B 22 00 51 19 32 05 8D 20 32 |ER DISK".Q.2.. 2|
00001130: 31 35 30 3A 99 22 45 4E 54 45 52 20 44 45 53 49 |150:."ENTER DESI|
00001140: 52 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 |RED FUNCTION: "|
00001150: 3B 00 6B 19 3C 05 8D 20 32 31 32 30 3A 8B 20 43 |;.k.<.. 2120:. C|
00001160: 24 B2 22 30 22 20 A7 20 32 39 30 00 8A 19 46 05 |$."0" . 290...F.|
00001170: 56 B2 C5 28 43 24 29 3A 8B 20 56 B3 31 20 B0 20 |V..(C$):. V.1 . |
00001180: 56 B1 35 20 A7 20 31 33 34 30 00 B2 19 50 05 99 |V.5 . 1340...P..|
00001190: 20 43 24 3A 91 20 56 20 89 20 31 33 37 30 2C 31 | C$:. V . 1370,1|
000011A0: 35 35 30 2C 31 36 32 30 2C 32 34 35 30 2C 32 34 |550,1620,2450,24|
000011B0: 39 30 00 BC 19 5A 05 9F 20 34 2C 34 00 FB 19 64 |90...Z.. 4,4...d|
000011C0: 05 98 34 2C 22 22 A6 31 35 29 3B 52 56 24 3B 22 |..4,"".15);RV$;"|
000011D0: 20 20 44 20 49 20 53 20 4B 20 20 20 49 44 20 20 | D I S K ID |
000011E0: 20 55 20 53 20 45 20 41 20 47 20 45 20 20 20 43 | U S E A G E C|
000011F0: 20 48 20 41 20 52 20 54 20 20 22 00 0B 1A 6E 05 | H A R T "...n.|
00001200: 98 34 3A 20 98 34 2C 22 20 22 3B 00 29 1A 78 05 |.4: .4," ";.).x.|
00001210: 81 20 58 B2 34 38 20 A4 20 39 30 3A 8B 20 58 B2 |. X.48 . 90:. X.|
00001220: 35 38 20 A7 20 58 B2 36 35 00 41 1A 82 05 98 34 |58 . X.65.A....4|
00001230: 2C 22 20 22 3B C7 28 58 29 3B 3A 82 20 58 3A 98 |," ";.(X);:. X:.|
00001240: 34 00 63 1A 8C 05 5A B2 30 3A 81 20 58 B2 34 38 |4.c...Z.0:. X.48|
00001250: 20 A4 20 39 30 3A 8B 20 58 B2 35 38 20 A7 20 58 | . 90:. X.58 . X|
00001260: B2 36 35 00 9F 1A 96 05 98 34 2C 22 20 DB C0 DB |.65......4," ...|
00001270: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................|
00001280: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................|
00001290: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB 22 00 |..............".|
000012A0: B4 1A A0 05 98 34 2C 22 C0 DB C0 DB C0 DB C0 DB |.....4,"........|
000012B0: C0 DB C0 B3 00 C1 1A AA 05 98 34 2C C7 28 58 29 |..........4,.(X)|
000012C0: 3B 00 DF 1A B4 05 81 20 59 B2 34 38 20 A4 20 39 |;...... Y.48 . 9|
000012D0: 30 3A 8B 20 59 B2 35 38 20 A7 20 59 B2 36 35 00 |0:. Y.58 . Y.65.|
000012E0: FC 1A BE 05 98 34 2C C7 28 32 32 31 29 3B 3A 8B |.....4,.(221);:.|
000012F0: 20 5A B2 4E 58 20 A7 20 31 35 30 30 00 1B 1B C8 | Z.NX . 1500....|
00001300: 05 43 24 B2 C7 28 58 29 AA C7 28 59 29 3A 53 24 |.C$..(X)..(Y):S$|
00001310: B2 C8 28 58 24 28 5A 29 2C 32 29 00 41 1B D2 05 |..(X$(Z),2).A...|
00001320: 8B 20 53 24 B2 43 24 20 A7 20 98 34 2C C7 28 31 |. S$.C$ . .4,.(1|
00001330: 36 36 29 3B 3A 5A B2 5A AA 31 3A 89 20 31 35 31 |66);:Z.Z.1:. 151|
00001340: 30 00 4D 1B DC 05 98 34 2C 22 20 22 3B 00 76 1B |0.M....4," ";.v.|
00001350: E6 05 82 20 59 3A 98 34 2C C7 28 32 32 31 29 3A |... Y:.4,.(221):|
00001360: A1 20 43 24 3A 8B 20 43 24 B3 B1 22 22 20 A7 20 |. C$:. C$.."" . |
00001370: 8D 20 32 31 32 30 00 8A 1B F0 05 8B 20 43 24 B3 |. 2120...... C$.|
00001380: B1 22 51 22 20 A7 20 82 20 58 00 C7 1B FA 05 98 |."Q" . . X......|
00001390: 34 2C 22 20 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |4," ............|
000013A0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
000013B0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
000013C0: B1 C0 B1 C0 B1 22 3B 00 E4 1B 04 06 98 34 2C 22 |.....";......4,"|
000013D0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 BD 22 3A 89 20 |............":. |
000013E0: 31 32 36 30 00 16 1C 0E 06 8D 20 32 30 37 30 3A |1260...... 2070:|
000013F0: 98 34 2C 22 22 A6 37 29 3B 22 12 44 49 53 4B 20 |.4,"".7);".DISK |
00001400: 49 44 27 53 20 43 55 52 52 45 4E 54 4C 59 20 49 |ID'S CURRENTLY I|
00001410: 4E 20 55 53 45 22 00 20 1C 18 06 98 34 3A 98 34 |N USE". ....4:.4|
00001420: 00 37 1C 22 06 56 B2 31 32 3A 8B 20 50 44 B2 34 |.7.".V.12:. PD.4|
00001430: 20 A7 20 56 B2 32 35 00 5E 1C 2C 06 5A B2 30 3A | . V.25.^.,.Z.0:|
00001440: 81 20 58 B2 30 A4 20 4E 58 AB 31 3A 98 34 2C C8 |. X.0. NX.1:.4,.|
00001450: 28 58 24 28 58 29 2C 32 29 3B 22 20 22 3B 00 7A |(X$(X),2);" ";.z|
00001460: 1C 36 06 5A B2 5A AA 31 3A 8B 20 5A B2 B5 28 5A |.6.Z.Z.1:. Z..(Z|
00001470: AD 56 29 AC 56 20 A7 20 98 34 00 9C 1C 40 06 82 |.V).V . .4...@..|
00001480: 20 58 3A 98 34 3A 98 34 3A 8B 20 5A B3 B1 B5 20 | X:.4:.4:. Z... |
00001490: 28 5A AD 56 29 AC 56 20 A7 20 98 34 00 CC 1C 4A |(Z.V).V . .4...J|
000014A0: 06 98 34 2C 5A 3B 52 56 24 3B 22 44 49 53 4B 53 |..4,Z;RV$;"DISKS|
000014B0: 20 49 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 | IN MASTER DIREC|
000014C0: 54 4F 52 59 22 3A 89 20 31 36 37 30 00 F8 1C 54 |TORY":. 1670...T|
000014D0: 06 8D 20 32 30 37 30 3A 98 34 2C 52 56 24 3B 22 |.. 2070:.4,RV$;"|
000014E0: 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 |ID ...DISK NAME|
000014F0: 2E 2E 2E 2E 22 3A 98 34 00 27 1D 5E 06 81 20 58 |....":.4.'.^.. X|
00001500: B2 30 20 A4 20 4E 58 AB 31 3A 98 34 2C C8 28 58 |.0 . NX.1:.4,.(X|
00001510: 24 28 58 29 2C 32 29 3B 22 20 20 22 3B CA 28 58 |$(X),2);" ";.(X|
00001520: 24 28 58 29 2C 33 29 00 41 1D 68 06 A1 20 43 24 |$(X),3).A.h.. C$|
00001530: 3A 8B 20 43 24 B3 B1 22 22 A7 20 8D 20 32 31 32 |:. C$.."". . 212|
00001540: 30 00 55 1D 72 06 8B 20 43 24 B2 22 51 22 20 A7 |0.U.r.. C$."Q" .|
00001550: 20 31 32 36 30 00 5D 1D 7C 06 82 20 58 00 6F 1D | 1260.].|.. X.o.|
00001560: 86 06 8B 20 50 44 B2 34 20 A7 20 31 32 36 30 00 |... PD.4 . 1260.|
00001570: 88 1D 90 06 8D 20 32 31 35 30 3A 8D 20 32 31 31 |..... 2150:. 211|
00001580: 30 3A 89 20 31 32 36 30 00 A2 1D 9A 06 8B 20 4E |0:. 1260...... N|
00001590: 58 B2 30 20 A7 20 8D 20 31 38 38 30 3A 89 20 32 |X.0 . . 1880:. 2|
000015A0: 39 30 00 D6 1D A4 06 A0 20 34 3A 99 20 48 43 24 |90...... 4:. HC$|
000015B0: 3B 22 54 4F 20 46 49 4E 44 20 57 48 41 54 20 44 |;"TO FIND WHAT D|
000015C0: 49 53 4B 28 53 29 20 41 20 46 49 4C 45 20 49 53 |ISK(S) A FILE IS|
000015D0: 20 4F 4E 22 3A 99 00 13 1E AE 06 99 22 45 4E 54 | ON":......."ENT|
000015E0: 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 20 20 2E |ER FILE NAME .|
000015F0: 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 |";CL$;CL$;CL$;:.|
00001600: 20 46 24 3A 20 8B 20 46 24 B2 22 2E 22 20 A7 20 | F$: . F$."." . |
00001610: 32 39 30 00 33 1E B8 06 8B 20 46 24 B2 22 2A 22 |290.3.... F$."*"|
00001620: 20 A7 20 99 3A 99 22 52 45 2D 22 3B 3A 89 20 31 | . .:."RE-";:. 1|
00001630: 37 31 30 00 4F 1E C2 06 53 24 B2 46 24 3A 8D 20 |710.O...S$.F$:. |
00001640: 32 30 34 30 3A 56 B2 59 3A 8D 20 32 30 37 30 00 |2040:V.Y:. 2070.|
00001650: 86 1E CC 06 98 34 2C 52 56 24 3B 22 2E 2E 2E 46 |.....4,RV$;"...F|
00001660: 49 4C 45 20 4E 41 4D 45 2E 2E 2E 2E 20 20 49 44 |ILE NAME.... ID|
00001670: 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E | ...DISK NAME..|
00001680: 2E 2E 22 3A 98 34 00 93 1E D6 06 98 34 2C 53 24 |..":.4......4,S$|
00001690: 3A 98 34 00 C2 1E E0 06 81 20 5A B2 30 20 A4 20 |:.4...... Z.0 . |
000016A0: 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 5A 29 |NX.1:DI$..(X$(Z)|
000016B0: 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 5A 29 2C |,2):DN$..(X$(Z),|
000016C0: 33 29 00 FB 1E EA 06 8D 20 32 30 33 30 3A 9F 20 |3)...... 2030:. |
000016D0: 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A |5,8,5,S$.",S,R":|
000016E0: 45 46 B2 31 35 3A 8D 20 32 37 30 3A 84 35 2C 44 |EF.15:. 270:.5,D|
000016F0: 46 24 2C 4E 42 3A 8D 20 32 37 30 00 1A 1F F4 06 |F$,NB:. 270.....|
00001700: 8D 20 32 36 30 3A 59 B2 31 36 3A 8D 20 32 32 30 |. 260:Y.16:. 220|
00001710: 3A 59 B2 33 3A 8D 20 32 33 30 00 34 1F FE 06 8B |:Y.3:. 230.4....|
00001720: 20 46 24 20 B3 20 C8 28 53 24 2C 56 29 20 A7 20 | F$ . .(S$,V) . |
00001730: 31 38 34 30 00 71 1F 08 07 8B 20 46 24 B2 C8 28 |1840.q.... F$..(|
00001740: 53 24 2C 56 29 20 A7 20 98 34 2C 53 24 3B 22 20 |S$,V) . .4,S$;" |
00001750: 20 22 3B 44 49 24 3B 22 20 20 22 3B 44 4E 24 3A | ";DI$;" ";DN$:|
00001760: 20 8F 20 3C 2D 20 32 20 53 50 41 43 45 53 20 45 | . <- 2 SPACES E|
00001770: 41 00 8C 1F 12 07 A1 20 43 24 3A 8B 20 43 24 B3 |A...... C$:. C$.|
00001780: B1 22 22 20 A7 20 8D 20 32 31 32 30 00 A6 1F 1C |."" . . 2120....|
00001790: 07 8B 20 43 24 B2 22 51 22 20 A7 20 A0 20 35 3A |.. C$."Q" . . 5:|
000017A0: 89 20 31 37 30 30 00 B8 1F 26 07 8B 20 53 53 B2 |. 1700...&.. SS.|
000017B0: 30 20 A7 20 31 37 38 30 00 C4 1F 30 07 A0 20 35 |0 . 1780...0.. 5|
000017C0: 3A 82 20 5A 00 DF 1F 3A 07 8B 20 50 44 B2 33 20 |:. Z...:.. PD.3 |
000017D0: A7 20 8D 20 32 31 35 30 3A 8D 20 32 31 31 30 00 |. . 2150:. 2110.|
000017E0: EA 1F 44 07 89 20 31 37 30 30 00 00 20 4E 07 56 |..D.. 1700.. N.V|
000017F0: B2 33 3A 8B 20 4E 58 B1 30 20 A7 20 31 38 39 30 |.3:. NX.0 . 1890|
00001800: 00 27 20 58 07 99 20 48 43 24 3B 52 56 24 3B 22 |.' X.. HC$;RV$;"|
00001810: 4E 4F 20 45 4E 54 52 49 45 53 22 3B 3A 56 B2 31 |NO ENTRIES";:V.1|
00001820: 3A 89 20 32 30 31 30 00 56 20 62 07 99 3A 99 20 |:. 2010.V b..:. |
00001830: 22 45 4E 54 45 52 20 44 49 53 4B 20 49 44 20 20 |"ENTER DISK ID |
00001840: 20 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B | .";CL$;CL$;CL$;|
00001850: 3A 85 20 44 49 24 00 7E 20 6C 07 44 49 24 B2 C8 |:. DI$.~ l.DI$..|
00001860: 28 44 49 24 AA 22 20 20 22 2C 32 29 3A 8B 20 44 |(DI$." ",2):. D|
00001870: 49 24 B2 22 2E 20 22 20 A7 20 31 39 35 30 00 AE |I$.". " . 1950..|
00001880: 20 76 07 81 20 58 B2 30 20 A4 20 4E 58 AB 31 3A | v.. X.0 . NX.1:|
00001890: 8B 20 44 49 24 B3 B1 C8 28 58 24 28 58 29 2C 32 |. DI$...(X$(X),2|
000018A0: 29 20 A7 20 82 20 58 3A 89 20 32 30 30 30 00 D0 |) . . X:. 2000..|
000018B0: 20 80 07 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 | ..DN$..(X$(X),3|
000018C0: 29 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |):DI$..(X$(X),2)|
000018D0: 00 EC 20 8A 07 8D 20 32 31 36 30 3A 8B 20 43 24 |.. ... 2160:. C$|
000018E0: B2 22 4E 22 20 A7 20 56 B2 32 3A 8E 00 F7 20 94 |."N" . V.2:... .|
000018F0: 07 89 20 32 30 33 30 00 26 21 9E 07 99 3A 99 22 |.. 2030.&!...:."|
00001900: 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 4D 45 20 |ENTER DISK NAME |
00001910: 20 20 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 | .";CL$;CL$;CL$|
00001920: 3B 3A 85 20 46 24 00 3B 21 A8 07 8B 20 46 24 B2 |;:. F$.;!... F$.|
00001930: 22 2E 22 20 A7 20 56 B2 31 3A 8E 00 5F 21 B2 07 |"." . V.1:.._!..|
00001940: 8D 20 32 30 34 30 3A 81 20 58 B2 30 20 A4 20 4E |. 2040:. X.0 . N|
00001950: 58 AB 31 3A 8B 20 59 B2 30 20 A7 32 30 32 30 00 |X.1:. Y.0 .2020.|
00001960: 7C 21 BC 07 8B 20 46 24 B2 CA 28 58 24 28 58 29 ||!... F$..(X$(X)|
00001970: 2C 33 2C 59 29 20 A7 20 32 30 32 30 00 84 21 C6 |,3,Y) . 2020..!.|
00001980: 07 82 20 58 00 9B 21 D0 07 99 3A 99 20 52 56 24 |.. X..!...:. RV$|
00001990: 3B 22 4E 4F 54 22 3B 3A 56 B2 32 00 C6 21 DA 07 |;"NOT";:V.2..!..|
000019A0: 99 22 20 49 4E 20 4D 41 53 54 45 52 20 44 49 52 |." IN MASTER DIR|
000019B0: 45 43 54 4F 52 59 21 22 3A 8D 20 32 31 35 30 3A |ECTORY!":. 2150:|
000019C0: 89 20 32 31 31 30 00 FD 21 E4 07 44 4E 24 B2 CA |. 2110..!..DN$..|
000019D0: 28 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 |(X$(X),3):DI$..(|
000019E0: 58 24 28 58 29 2C 32 29 3A 8D 20 32 31 36 30 3A |X$(X),2):. 2160:|
000019F0: 8B 20 43 24 B2 22 4E 22 A7 31 39 39 30 00 13 22 |. C$."N".1990.."|
00001A00: EE 07 53 24 B2 22 30 3A 44 49 52 2E 22 AA 44 49 |..S$."0:DIR.".DI|
00001A10: 24 3A 8E 00 23 22 F8 07 46 24 B2 C8 28 46 24 2C |$:..#"..F$..(F$,|
00001A20: 31 36 29 00 4D 22 02 08 8B 20 C9 28 46 24 2C 31 |16).M"... .(F$,1|
00001A30: 29 B2 22 2A 22 A7 20 59 B2 C3 28 46 24 29 AB 31 |)."*". Y..(F$).1|
00001A40: 3A 46 24 B2 C8 28 46 24 2C 59 29 3A 8E 00 77 22 |:F$..(F$,Y):..w"|
00001A50: 0C 08 59 B2 31 36 3A 46 24 B2 C8 28 46 24 AA 22 |..Y.16:F$..(F$."|
00001A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A70: 22 2C 31 36 29 3A 8E 00 A6 22 16 08 8D 20 32 31 |",16):..."... 21|
00001A80: 35 30 3A 99 22 57 41 4E 54 20 50 52 49 4E 54 45 |50:."WANT PRINTE|
00001A90: 44 20 43 4F 50 59 22 3B 3A 8D 20 32 31 39 30 3A |D COPY";:. 2190:|
00001AA0: 8D 20 32 31 35 30 00 BF 22 20 08 50 44 B2 33 3A |. 2150.." .PD.3:|
00001AB0: 8B 20 43 24 B2 22 59 22 20 A7 20 50 44 B2 34 00 |. C$."Y" . PD.4.|
00001AC0: DA 22 2A 08 9F 20 34 2C 50 44 3A 8B 20 50 44 B2 |."*.. 4,PD:. PD.|
00001AD0: 33 20 A7 20 99 20 48 43 24 3B 00 E0 22 34 08 8E |3 . . HC$;.."4..|
00001AE0: 00 03 23 3E 08 99 22 44 45 50 52 45 53 53 20 41 |..#>.."DEPRESS A|
00001AF0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00001B00: 55 45 22 00 19 23 48 08 A1 20 43 24 3A 8B 20 43 |UE"..#H.. C$:. C|
00001B10: 24 B2 22 22 A7 32 31 32 30 00 1F 23 52 08 8E 00 |$."".2120..#R...|
00001B20: 48 23 5C 08 99 20 48 43 24 3B A6 39 29 3B 52 56 |H#\.. HC$;.9);RV|
00001B30: 24 3B 22 44 20 49 20 53 20 4B 20 20 4D 20 41 20 |$;"D I S K M A |
00001B40: 53 20 54 20 45 20 52 22 00 7B 23 66 08 99 3A 99 |S T E R".{#f..:.|
00001B50: 22 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 2D 2D 2D 2D 2D 22 3A 8E 00 A4 23 70 08 |--------":...#p.|
00001B80: 99 48 43 24 3B 52 56 24 3B 22 44 49 53 4B 20 4E |.HC$;RV$;"DISK N|
00001B90: 41 4D 45 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 |AME:";RF$;" ";D|
00001BA0: 4E 24 3A 99 00 D1 23 7A 08 99 22 20 20 22 3B 52 |N$:...#z.." ";R|
00001BB0: 56 24 3B 22 44 49 53 4B 20 49 44 3A 22 3B 52 46 |V$;"DISK ID:";RF|
00001BC0: 24 3B 22 20 20 22 3B 44 49 24 3A 8D 20 32 31 35 |$;" ";DI$:. 215|
00001BD0: 30 00 E6 23 84 08 99 22 43 4F 52 52 45 43 54 20 |0..#..."CORRECT |
00001BE0: 44 49 53 4B 22 3B 00 F9 23 8E 08 99 22 20 28 59 |DISK";..#..." (Y|
00001BF0: 2F 4E 29 20 3F 20 20 22 3B 00 1F 24 98 08 8D 20 |/N) ? ";..$... |
00001C00: 32 31 32 30 3A 8B 20 43 24 B3 B1 22 59 22 20 AF |2120:. C$.."Y" .|
00001C10: 20 43 24 B3 B1 22 4E 22 20 A7 20 32 32 30 30 00 | C$.."N" . 2200.|
00001C20: 29 24 A2 08 99 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 74 24 B6 08 99 20 | EN.0 . ..t$... |
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 20 22 3B 00 8E 24 C0 08 8B 20 43 58 20 A7 20 | ";..$... CX . |
00001C80: 99 22 57 52 49 54 49 4E 47 20 4E 45 57 22 00 A6 |."WRITING NEW"..|
00001C90: 24 CA 08 8B 20 43 58 B2 30 20 A7 20 99 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 5E 26 56 09 99 20 48 43 24 3B 00 86 |5:..^&V.. HC$;..|
00001E60: 26 60 09 A0 20 31 35 3A 99 22 49 4E 53 45 52 54 |&`.. 15:."INSERT|
00001E70: 20 4D 41 53 54 45 52 20 44 49 53 4B 22 3A 99 3A | MASTER DISK":.:|
00001E80: 8D 20 32 31 31 30 00 9F 26 6A 09 9F 20 31 35 2C |. 2110..&j.. 15,|
00001E90: 38 2C 31 35 2C 22 49 30 22 3A 8D 20 32 37 30 00 |8,15,"I0":. 270.|
00001EA0: C6 26 74 09 98 31 35 2C 22 43 30 3A 44 49 53 4B |.&t..15,"C0:DISK|
00001EB0: 20 4D 41 53 54 45 52 3D 30 3A 44 49 53 4B 20 4D | MASTER=0:DISK M|
00001EC0: 41 53 54 45 52 22 00 DE 26 7E 09 84 31 35 2C 45 |ASTER"..&~..15,E|
00001ED0: 4E 3A 20 8B 20 45 4E B2 36 33 20 A7 20 8E 00 0A |N: . EN.63 . ...|
00001EE0: 27 88 09 99 3A 99 20 52 56 24 3B 22 49 4E 43 4F |'...:. RV$;"INCO|
00001EF0: 52 52 45 43 54 20 44 49 53 4B 21 22 3A 8D 20 32 |RRECT DISK!":. 2|
00001F00: 31 35 30 3A 89 20 32 34 30 30 00 39 27 92 09 99 |150:. 2400.9'...|
00001F10: 48 43 24 3B 22 45 4E 54 45 52 20 4D 49 4E 49 4D |HC$;"ENTER MINIM|
00001F20: 55 4D 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 |UM NUMBER OF FRE|
00001F30: 45 20 42 4C 4F 43 4B 53 22 00 74 27 9C 09 99 22 |E BLOCKS".t'..."|
00001F40: 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 |TO BE DISPLAYED |
00001F50: 20 20 30 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 | 0";CL$;CL$;CL$|
00001F60: 3B 3A 85 20 53 24 3A 8F 20 2D 20 44 45 46 41 55 |;:. S$:. - DEFAU|
00001F70: 4C 54 3D 30 00 97 27 A6 09 59 B2 C5 28 53 24 29 |LT=0..'..Y..(S$)|
00001F80: 3A 8B 20 53 24 B3 B1 22 30 22 20 AF 20 59 B2 30 |:. S$.."0" . Y.0|
00001F90: 20 A7 20 31 32 36 30 00 A7 27 B0 09 56 46 B2 30 | . 1260..'..VF.0|
00001FA0: 3A 89 20 32 35 33 30 00 D7 27 BA 09 99 20 48 43 |:. 2530..'... HC|
00001FB0: 24 3B 22 45 4E 54 45 52 20 4D 41 58 49 4D 55 4D |$;"ENTER MAXIMUM|
00001FC0: 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 20 | NUMBER OF FREE |
00001FD0: 42 4C 4F 43 4B 53 22 00 0B 28 C4 09 99 3A 99 22 |BLOCKS"..(...:."|
00001FE0: 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 |TO BE DISPLAYED |
00001FF0: 20 20 39 39 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C | 99";CL$;CL$;CL|
00002000: 24 3B 43 4C 24 3B 3A 85 20 53 24 00 24 28 CE 09 |$;CL$;:. S$.$(..|
00002010: 59 B2 C5 28 53 24 29 3A 8B 20 59 B2 30 20 A7 20 |Y..(S$):. Y.0 . |
00002020: 31 32 36 30 00 2D 28 D8 09 56 46 B2 31 00 65 28 |1260.-(..VF.1.e(|
00002030: E2 09 8D 20 32 30 37 30 3A 98 34 2C 52 56 24 3B |... 2070:.4,RV$;|
00002040: 22 23 42 4C 4B 53 20 46 52 45 45 20 20 49 44 20 |"#BLKS FREE ID |
00002050: 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E | ...DISK NAME...|
00002060: 2E 22 3A 98 34 00 94 28 EC 09 81 20 58 B2 30 20 |.":.4..(... X.0 |
00002070: A4 20 4E 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 |. NX.1:DI$..(X$(|
00002080: 58 29 2C 32 29 3A 44 4E 24 B2 CA 28 58 24 28 58 |X),2):DN$..(X$(X|
00002090: 29 2C 33 29 00 CE 28 F6 09 9F 20 35 2C 38 2C 35 |),3)..(... 5,8,5|
000020A0: 2C 22 30 3A 44 49 52 2E 22 AA 44 49 24 AA 22 2C |,"0:DIR.".DI$.",|
000020B0: 53 2C 52 22 3A 8D 20 32 37 30 3A 84 35 2C 44 46 |S,R":. 270:.5,DF|
000020C0: 24 2C 4E 42 3A 8D 20 32 37 30 3A A0 20 35 00 E9 |$,NB:. 270:. 5..|
000020D0: 28 00 0A 8B 28 56 46 B2 30 29 AF 20 28 4E 42 B3 |(...(VF.0). (NB.|
000020E0: 59 29 20 A7 20 32 35 39 30 00 04 29 0A 0A 8B 28 |Y) . 2590..)...(|
000020F0: 56 46 B2 31 29 AF 20 28 4E 42 B1 59 29 20 A7 20 |VF.1). (NB.Y) . |
00002100: 32 35 39 30 00 31 29 14 0A 98 34 2C C9 28 22 20 |2590.1)...4,.(" |
00002110: 20 20 20 20 20 20 22 AA C4 28 4E 42 29 2C 37 29 | "..(NB),7)|
00002120: 3B A6 35 29 3B 44 49 24 3B 22 20 20 22 3B 44 4E |;.5);DI$;" ";DN|
00002130: 24 00 4C 29 1E 0A A1 20 43 24 3A 8B 20 43 24 B3 |$.L)... C$:. C$.|
00002140: B1 22 22 20 A7 20 8D 20 32 31 32 30 00 60 29 28 |."" . . 2120.`)(|
00002150: 0A 8B 20 43 24 B2 22 51 22 20 A7 20 31 32 36 30 |.. C$."Q" . 1260|
00002160: 00 6F 29 32 0A 82 20 58 3A 89 20 31 36 37 30 00 |.o)2.. X:. 1670.|
00002170: 00 00 |.. |
..%.... -------DISK MASTER-----------.+.
....I.... SINGLE VIC-1541 DISK.H.(..
ON COMMODORE-64 SYSTEM.N.2.....<..
ROBERT W. BAKER...F.. 15 WINDSOR DR,
ATCO, NJ 08004.U.P.. PUBLIC DOMAIN SOFT
WARE # 089765...Z.. --------------------
---------...D.:...N..:C$."":S$.C$:X.0:Y.
0.R.X.CR$.G(13):HC$.G(147):RV$.G(18):RF$
.G(146):CL$.G(157)...... CR=CARRAIAGE RE
TURN, HC= HOME/CLEAR, RV= REVERSE ON....
.. RF= REVERSE OFF, CL= CURSER LEFT.R.
... 2140:. D$(230),X$(230)... .." READ
ING DIRECTORY CROSS REFERENCE"......15,8
,15,"I0":. 2220.9.... 5,8,5,"0:DISK DIR
XREF,S,R".Z....15,EN,EM$,ET,ES:.EN.62. 2
90...H..5,X$(NX):SS.ST:.2220:NX.NX.1:. S
S.0 . 200...R.. 290.....S$."":. X.1 . Y:
. 260:S$.S$.C$:. X:..V....X.1 . Y:. 260:
. X: ......V.0:. 260:. C$.."". V.F(C$)..
..........#5,C$.-...SS.ST:.15,EN,EM$,ET,
ES:. EN.0 . ..Q....HC$;RV$;"DISK ERROR!"
:.:. 2270.I.". 4: 5:CX.0:. 2140...,..
.5);"0 - DONE":....6.. .5);"1 - UPDATE M
ASTER DIRECTORY":..Z.@.. .5);"2 - DELETE
DISK ENTRY FROM MASTER":....J.. .5);"3
- DISPLAY SELECTED DIRECTORY":..-.T.. .5
);"4 - FIND SPECIFIED FILE":..T.^.. .5);
"5 - LIST DISK ID'S & NAMES".}.H.. 2150:
."ENTER DESIRED FUNCTION: ";...R.. 2120
:. C$."0". . HC$:. 2380...|.V.E(C$):. V.
1 . V.5 . 370...... V . 400,1180,980,169
0,1250..... 15:CX.0:. HC$;"INSERT DISK
TO BE CATALOGED".N....:."DEPRESS ANY KEY
TO CONTINUE, ";RV$;"Q";RF$;" TO QUIT".Q
.... 2120:. C$."Q" . . 2390:. 290......
2150:."OK":.15,8,15,"IO":. 270......5,8,
5,"$0,S,R":.270.D.B.. 240:VF.V:. 260...L
.NB.0:. Z.1 . 35:. 240:. Z..18 . NB.NB.V
...V.Y.3:. 230:. Z."...Y.16:. 220:DN$.S$
:Y.2:. 230.A...Y.2:. 220:DI$.H(S$." ",2
).[.... 2160:. C$."N" . 970.L.... NX.0 .
630...... X.0 . NX.1:C$.H(X$(X),2):. DI
$.C$ . 630...... DI$..C$. . X:. 630.N...
. DN$.J(X$(X),3) . 630...&.. HC$;RV$;"**
* WARNING ***";RF$;" THIS DISK ID: ";RV
$;DI$;RF$...0..:."DISK NAME: ";RV$;DN$._
.:..:."IS ALL READY CATALOGED WITH A DIF
FERENT"...D..:."DISK NAME: ";RV$;J(X$(X)
,3):. 2150...N.."CATALOGING THIS DISK WI
LL DELETE THE".U.X..:."PREVIOUS DATA!":.
2150...B.."CATALOG THIS DISK";:. 2190:.
C$."N" . 970.4.L.. HC$;"CATALOGING DISK
WITH NEW DISK NAME".`.V.. 2150:."READIN
G DIRECTORY ENTRIES ..."...... 260:Y.2:.
220:DF$.S$:Y.89...... VF.1 . DF$." 1".
.... 230.....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.N.P.. X.1 . NF:. H(S$,16)
. J(D$(X),2,16) . 750.V.Z.. X.G...X.NF.
1:. 760...... Y.NF . X ..1:D$(Y.1).D$(Y)
:. Y.....D$(X).F$.S$.G(V):NF.NF.1.T...Z.
Z.1:Z.Z.(.(Z.8).8):. Z.0 . Y.2:. 230....
.. NF.155. 840.!.... HC$;.6);RV$;"*** DI
SK BAM IS INVALID ***";RF$:. 2150.U. ..:
." CURRENT DISK CANNOT BE CATALOGED!":
.:.:....*.." PLEASE VERIFY OR CHECK DISK
CONTENTS":....4.."BEFORE ATTEMPTING TO
CATALOG THIS DISK.":..L.>.. 2150:. 2110:
.970...H.. SS.0 . 680...R. 5:. 2390:. 2
150:."UPDATING MASTER DIRECTORY ...".#.\
.. NX.0.910.M.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.....NX.NX.1.C...X$(X).D
I$.DN$:CX.1...... 2030:.15,"S".S$:. 5,8,
5,S$.",S,W":. 270......5,DF$;",";NB;CR$;
:. 270.=.... NF.0. . X.1 . NF:.5,D$(X);C
R$;:. 270:. X.P.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......4," ";RV$;"DI
SK NAME:";RF$;" ";DN$:.4......4,"".4);R
V$;"DISK ID:";RF$;" ";DI$;.6).?....4,RV
$;"DISK FORMAT:";RF$;" "DF$:.4.G....4,R
V$;"BLOCKS FREE:";RF$;" ";NB:.4......4,"
----------------------------------------
--":.4.....NF.0:. SS.0 . 1160...$.. 240:
FT.V:Y.16:. 220:. 240:Z.V:. 240:. 260...
...4,I(" ".D(Z.(256.V)),4);" ";S$;"
";.-.8.. FT.129 . .4,"SEQ";.F.B.. FT.1
30 . .4,"PGM";._.L.. FT.131 . .4,"USR";.
X.V.. FT.132 . .4,"REL";...`..4:. C$:. C
$.."" . . 2120...J.. C$."Q" . 1170.B.T.N
F.NF.1:. SS.0.1060...~..4:.4,RV$;"#FILES
:";RF$;" ";NF...... PD.3 . . 2150:. 2110
..... 4: 5:. 980.A....HC$;"TO DELETE DI
SK FROM MASTER DIRECTORY".\.... 1870:. V
. 1240,1180.K....15,"S".S$.....CX.0:. X
.0 . NX.1:. H(X$(X),2).DI$ . CX.1...D..
CX . X$(X).X$(X.1).I.N.. X:NX.NX.1:. 118
0.Z.X.. 2290:. 290...... NX.0. . 1880:.
290..... 4:. 2140.1.... .5);"0 - RETURN
TO MAIN FUNCTION MENU":..].....5);"1 -
PRINT FULL ID USEAGE CHART":........5);"
2 - QUICK LIST OF ID'S IN USE":........5
);"3 - LIST DISK ID'S & NAMES":........5
);"4 - LIST";RV$;"MIN";RF$;" FREE BLOCKS
PER DISK":..(.(.. .5);"5 - LIST ";RV$;"
MAX";RF$;" FREE BLOCKS PER DISK".Q.2.. 2
150:."ENTER DESIRED FUNCTION: ";.K.<..
2120:. C$."0" . 290...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 ID U S E A G E C H A R T
"...N..4: .4," ";.).X.. X.48 . 90:. X.
58 . X.65.A....4," ";G(X);:. X:.4.C...Z.
0:. X.48 . 90:. X.58 . X.65......4," ...
........................................
......"... ..4,".............A....4,G(X)
;...... Y.48 . 90:. Y.58 . Y.65......4,G
(221);:. Z.NX . 1500...H.C$.G(X).G(Y):S$
.H(X$(Z),2).A.R.. S$.C$ . .4,G(166);:Z.Z
.1:. 1510.M....4," ";.V.... Y:.4,G(221):
. C$:. C$.."" . . 2120...... C$.."Q" . .
X.G....4," ............................
.....................";......4,"........
....":. 1260...... 2070:.4,"".7);".DISK
ID'S CURRENTLY IN USE". ....4:.4.7.".V.1
2:. PD.4 . V.25.^.,.Z.0:. X.0. NX.1:.4,H
(X$(X),2);" ";.Z.6.Z.Z.1:. Z..(Z.V).V .
.4...@.. X:.4:.4:. Z... (Z.V).V . .4.L.J
..4,Z;RV$;"DISKS IN MASTER DIRECTORY":.
1670...T.. 2070:.4,RV$;"ID ...DISK NAME
....":.4.'.^.. X.0 . NX.1:.4,H(X$(X),2);
" ";J(X$(X),3).A.H.. C$:. C$.."". . 212
0.U.R.. C$."Q" . 1260.].|.. X.O.... PD.4
. 1260...... 2150:. 2110:. 1260...... N
X.0 . . 1880:. 290.V... 4:. HC$;"TO FIN
D WHAT DISK(S) A FILE IS ON":......."ENT
ER FILE NAME .";CL$;CL$;CL$;:. F$: . F
$."." . 290.3.... F$."*" . .:."RE-";:. 1
710.O.B.S$.F$:. 2040:V.Y:. 2070...L..4,R
V$;"...FILE NAME.... ID ...DISK NAME..
..":.4...V..4,S$:.4.B.... 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.4....
F$ . H(S$,V) . 1840.Q.... F$.H(S$,V) .
.4,S$;" ";DI$;" ";DN$: . <- 2 SPACES E
A...... C$:. C$.."" . . 2120...... C$."Q
" . 5:. 1700...&.. SS.0 . 1780.D.0. 5
:. Z...:.. PD.3 . . 2150:. 2110...D.. 17
00.. N.V.3:. NX.0 . 1890.' X.. HC$;RV$;"
NO ENTRIES";:V.1:. 2010.V B..:. "ENTER D
ISK ID .";CL$;CL$;CL$;:. DI$.~ L.DI$.H
(DI$." ",2):. DI$.". " . 1950.. V.. X.0
. NX.1:. DI$..H(X$(X),2) . . X:. 2000.P
..DN$.J(X$(X),3):DI$.H(X$(X),2).. ... 2
160:. C$."N" . V.2:... ... 2030.&!...:."
ENTER DISK NAME .";CL$;CL$;CL$;:. F$.;
!... F$."." . V.1:.._!... 2040:. X.0 . N
X.1:. Y.0 .2020.|!... F$.J(X$(X),3,Y) .
2020..!F.. X..!P..:. RV$;"NOT";:V.2.F!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).M"... I(F$,1)."*". Y.C(F$).1
:F$.H(F$,Y):..W"..Y.16:F$.H(F$."
",16):..."... 2150:."WANT PRINTE
D COPY";:. 2190:. 2150.." .PD.3:. C$."Y"
. PD.4.Z"*.. 4,PD:. PD.3 . . HC$;.."4..
..#>.."DEPRESS ANY KEY TO CONTINUE"..#H.
. C$:. C$."".2120..#R...H#\.. HC$;.9);RV
$;"D I S K M A S T E R".{#F..:."-------
--------------------------------":...#P.
.HC$;RV$;"DISK NAME:";RF$;" ";DN$:..Q#Z
.." ";RV$;"DISK ID:";RF$;" ";DI$:. 215
0..#..."CORRECT DISK";..#..." (Y/N) ? "
;..$... 2120:. C$.."Y" . C$.."N" . 2200.
)$...C$:..I$...15,EN,EM$,ET,ES:. EN.0 .
..T$... 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
DISK":.:. 2110..&J.. 15,8,15,"I0":. 270.
F&T..15,"C0:DISK MASTER=0:DISK MASTER"..
&~..15,EN: . EN.63 . ...'...:. RV$;"INCO
RRECT DISK!":. 2150:. 2400.9'...HC$;"ENT
ER MINIMUM NUMBER OF FREE BLOCKS".T'..."
TO BE DISPLAYED 0";CL$;CL$;CL$;:. S$:.
- DEFAULT=0..'..Y.E(S$):. S$.."0" . Y.0
. 1260..'..VF.0:. 2530.W'... HC$;"ENTER
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.E(
... 2070:.4,RV$;"#BLKS FREE ID ...DISK
NAME....":.4..(... X.0 . NX.1:DI$.H(X$(
X),2):DN$.J(X$(X),3).N(... 5,8,5,"0:DIR.
".DI$.",S,R":. 270:.5,DF$,NB:. 270: 5..
(...(VF.0). (NB.Y) . 2590..)...(VF.1). (
NB.Y) . 2590.1)...4,I(" ".D(NB),7)
;.5);DI$;" ";DN$.L)... C$:. C$.."" . .
2120.`)(.. C$."Q" . 1260.O)2.. X:. 1670.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL