DISK MASTER -80
FILE INFORMATION
FILENAME(S): DISK MASTER -80
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-10-20 14:32:05
APPEARS ON: 1 disk(s)
FILE HASH
6c222564a74b329b42bdfdb8ee921627fbdcd608853f3368f976241f345d81f8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C019 | DISK MASTER -80 | PRG | Treasure Chest - Klaus Der Suhler | 8 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 5B 40 5B 00 00 8F 20 56 45 52 53 49 4F 4E 20 |.[@[... VERSION |
00000010: 32 2E 35 20 20 32 2F 32 33 2F 38 36 20 2A 2A 52 |2.5 2/23/86 **R|
00000020: 55 4E 53 20 4F 4E 20 54 48 45 20 43 31 32 38 20 |UNS ON THE C128 |
00000030: 49 4E 20 38 30 20 43 4F 4C 20 4D 4F 44 45 2A 2A |IN 80 COL MODE**|
00000040: 00 7F 5B 01 00 8F 20 20 20 20 20 20 20 20 20 20 |..[... |
00000050: 20 20 20 20 20 2A 2A 20 54 4F 20 52 55 4E 20 4F | ** TO RUN O|
00000060: 4E 20 54 48 45 20 43 36 34 20 4F 52 20 54 48 45 |N THE C64 OR THE|
00000070: 20 31 32 38 20 49 4E 20 36 34 20 4D 4F 44 45 00 | 128 IN 64 MODE.|
00000080: B0 5B 02 00 8F 20 20 20 20 20 20 20 20 20 20 20 |.[... |
00000090: 20 20 20 20 20 20 20 52 45 4D 20 4F 55 54 20 4F | REM OUT O|
000000A0: 52 20 44 45 4C 45 54 45 20 4C 49 4E 45 20 32 37 |R DELETE LINE 27|
000000B0: 00 ED 5B 03 00 8F 20 20 20 20 20 20 20 20 20 20 |..[... |
000000C0: 20 20 20 20 20 20 20 20 41 4E 44 20 4C 49 4E 45 | AND LINE|
000000D0: 20 32 33 30 33 20 2D 20 54 48 45 4E 20 34 30 20 | 2303 - THEN 40 |
000000E0: 43 4F 4C 20 4D 4F 44 45 20 4F 4B 20 2D 00 15 5C |COL MODE OK -..\|
000000F0: 04 00 8F 20 43 4F 52 52 45 43 54 45 44 20 46 49 |... CORRECTED FI|
00000100: 4C 45 20 4E 41 4D 45 20 4D 41 54 43 48 20 50 52 |LE NAME MATCH PR|
00000110: 4F 42 4C 45 4D 00 55 5C 05 00 8F 20 41 44 44 45 |OBLEM.U\... ADDE|
00000120: 44 20 4C 4F 47 49 43 20 54 4F 20 44 45 54 45 43 |D LOGIC TO DETEC|
00000130: 54 20 41 4E 44 20 4C 4F 47 20 44 4F 55 42 4C 45 |T AND LOG DOUBLE|
00000140: 20 53 49 44 45 44 20 43 31 32 38 20 44 49 53 4B | SIDED C128 DISK|
00000150: 45 54 54 45 53 00 78 5C 06 00 8F 20 52 55 4E 53 |ETTES.x\... RUNS|
00000160: 20 49 4E 20 46 41 53 54 20 4D 4F 44 45 20 4F 4E | IN FAST MODE ON|
00000170: 20 54 48 45 20 31 32 38 00 97 5C 07 00 8F 20 43 | THE 128..\... C|
00000180: 4F 52 52 45 43 54 45 44 20 54 48 45 20 50 52 49 |ORRECTED THE PRI|
00000190: 4E 54 20 47 52 49 44 00 DC 5C 08 00 8F 20 4E 4F |NT GRID..\... NO|
000001A0: 57 20 43 4F 52 52 45 43 54 4C 59 20 53 48 4F 57 |W CORRECTLY SHOW|
000001B0: 53 20 4C 4F 43 4B 45 44 20 46 49 4C 45 53 20 2D |S LOCKED FILES -|
000001C0: 2D 20 44 49 53 50 4C 41 59 53 20 3C 20 41 46 54 |- DISPLAYS < AFT|
000001D0: 45 52 20 46 49 4C 45 20 54 59 50 45 00 0E 5D 0A |ER FILE TYPE..].|
000001E0: 00 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
000001F0: 2C 31 3A 99 22 93 97 22 3A 9C 3A 43 24 B2 22 22 |,1:."..":.:C$.""|
00000200: 3A 53 24 B2 43 24 3A 58 B2 30 3A 59 B2 30 00 47 |:S$.C$:X.0:Y.0.G|
00000210: 5D 14 00 43 52 24 B2 C7 28 31 33 29 3A 48 43 24 |]..CR$..(13):HC$|
00000220: B2 C7 28 31 34 37 29 3A 52 56 24 B2 C7 28 31 38 |..(147):RV$..(18|
00000230: 29 3A 52 46 24 B2 C7 28 31 34 36 29 3A 43 4C 24 |):RF$..(146):CL$|
00000240: B2 C7 28 31 35 37 29 00 55 5D 19 00 53 48 24 B2 |..(157).U]..SH$.|
00000250: C7 28 33 32 29 00 5C 5D 1B 00 FE 25 00 77 5D 1E |.(32).\]...%.w].|
00000260: 00 8D 32 30 36 30 3A 86 44 24 28 34 36 30 29 2C |..2060:.D$(460),|
00000270: 58 24 28 34 36 30 29 00 A3 5D 28 00 99 22 20 20 |X$(460)..](.." |
00000280: 20 52 45 41 44 49 4E 47 20 44 49 52 45 43 54 4F | READING DIRECTO|
00000290: 52 59 20 43 52 4F 53 53 20 52 45 46 45 52 45 4E |RY CROSS REFEREN|
000002A0: 43 45 22 00 BB 5D 32 00 9F 31 35 2C 38 2C 31 35 |CE"..]2..15,8,15|
000002B0: 2C 22 49 30 22 3A 8D 32 31 34 30 00 DC 5D 3C 00 |,"I0":.2140..]<.|
000002C0: 9F 35 2C 38 2C 35 2C 22 30 3A 44 49 53 4B 20 44 |.5,8,5,"0:DISK D|
000002D0: 49 52 20 58 52 45 46 2C 53 2C 52 22 00 FC 5D 46 |IR XREF,S,R"..]F|
000002E0: 00 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E|
000002F0: 53 3A 8B 45 4E B2 36 32 A7 31 39 30 00 27 5E 50 |S:.EN.62.190.'^P|
00000300: 00 84 35 2C 58 24 28 4E 58 29 3A 53 53 B2 53 54 |..5,X$(NX):SS.ST|
00000310: 3A 8D 32 31 34 30 3A 4E 58 B2 4E 58 AA 31 3A 8B |:.2140:NX.NX.1:.|
00000320: 53 53 B2 30 A7 38 30 00 30 5E 5A 00 89 31 39 30 |SS.0.80.0^Z..190|
00000330: 00 54 5E 64 00 53 24 B2 22 22 3A 81 58 B2 31 A4 |.T^d.S$."":.X.1.|
00000340: 59 3A 8D 31 35 30 3A 53 24 B2 53 24 AA 43 24 3A |Y:.150:S$.S$.C$:|
00000350: 82 58 3A 8E 00 69 5E 6E 00 81 58 B2 31 A4 59 3A |.X:..i^n..X.1.Y:|
00000360: 8D 31 35 30 3A 82 58 3A 8E 00 88 5E 78 00 56 B2 |.150:.X:...^x.V.|
00000370: 30 3A 8D 20 31 35 30 3A 8B 43 24 B3 B1 22 22 A7 |0:. 150:.C$.."".|
00000380: 20 56 B2 C6 28 43 24 29 00 8E 5E 82 00 8E 00 94 | V..(C$)..^.....|
00000390: 5E 8C 00 8F 00 B4 5E 96 00 A1 23 35 2C 43 24 3A |^.....^...#5,C$:|
000003A0: 8B 20 43 24 B2 C7 28 31 36 30 29 20 A7 20 43 24 |. C$..(160) . C$|
000003B0: B2 53 48 24 00 D7 5E A0 00 53 53 B2 53 54 3A 84 |.SH$..^..SS.ST:.|
000003C0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:|
000003D0: 8B 45 4E B2 30 A7 8E 00 DD 5E AA 00 8F 00 06 5F |.EN.0....^....._|
000003E0: B4 00 8D 32 35 38 30 3A 99 48 43 24 3B 52 56 24 |...2580:.HC$;RV$|
000003F0: 3B 22 44 49 53 4B 20 45 52 52 4F 52 21 22 3A 99 |;"DISK ERROR!":.|
00000400: 3A 89 32 31 39 30 00 21 5F BE 00 A0 34 3A A0 35 |:.2190.!_...4:.5|
00000410: 3A 43 58 B2 30 3A 8D 32 30 36 30 3A 8D 32 35 38 |:CX.0:.2060:.258|
00000420: 30 00 37 5F C8 00 99 A6 35 29 3B 22 30 20 2D 20 |0.7_....5);"0 - |
00000430: 44 4F 4E 45 22 3A 99 00 60 5F D2 00 99 A6 35 29 |DONE":..`_....5)|
00000440: 3B 22 31 20 2D 20 55 50 44 41 54 45 20 4D 41 53 |;"1 - UPDATE MAS|
00000450: 54 45 52 20 44 49 52 45 43 54 4F 52 59 22 3A 99 |TER DIRECTORY":.|
00000460: 00 8F 5F DC 00 99 A6 35 29 3B 22 32 20 2D 20 44 |.._....5);"2 - D|
00000470: 45 4C 45 54 45 20 44 49 53 4B 20 45 4E 54 52 59 |ELETE DISK ENTRY|
00000480: 20 46 52 4F 4D 20 4D 41 53 54 45 52 22 3A 99 00 | FROM MASTER":..|
00000490: BB 5F E6 00 99 A6 35 29 3B 22 33 20 2D 20 44 49 |._....5);"3 - DI|
000004A0: 53 50 4C 41 59 20 53 45 4C 45 43 54 45 44 20 44 |SPLAY SELECTED D|
000004B0: 49 52 45 43 54 4F 52 59 22 3A 99 00 E0 5F F0 00 |IRECTORY":..._..|
000004C0: 99 A6 35 29 3B 22 34 20 2D 20 46 49 4E 44 20 53 |..5);"4 - FIND S|
000004D0: 50 45 43 49 46 49 45 44 20 46 49 4C 45 22 3A 99 |PECIFIED FILE":.|
000004E0: 00 08 60 FA 00 99 A6 35 29 3B 22 35 20 2D 20 4C |..`....5);"5 - L|
000004F0: 49 53 54 20 44 49 53 4B 20 49 44 27 53 20 26 20 |IST DISK ID'S & |
00000500: 4E 41 4D 45 53 22 3A 99 00 30 60 04 01 8D 32 30 |NAMES":..0`...20|
00000510: 37 30 3A 99 22 45 4E 54 45 52 20 44 45 53 49 52 |70:."ENTER DESIR|
00000520: 45 44 20 46 55 4E 43 54 49 4F 4E 3A 20 20 22 3B |ED FUNCTION: ";|
00000530: 00 4D 60 0E 01 8D 32 30 33 30 3A 8B 43 24 B2 22 |.M`...2030:.C$."|
00000540: 30 22 A7 99 48 43 24 3A 89 32 33 30 30 00 66 60 |0"..HC$:.2300.f`|
00000550: 18 01 56 B2 C5 28 43 24 29 3A 8B 56 B3 31 B0 56 |..V..(C$):.V.1.V|
00000560: B1 35 A7 32 37 30 00 84 60 22 01 91 56 89 33 30 |.5.270..`"..V.30|
00000570: 30 2C 31 30 38 30 2C 38 38 30 2C 31 35 39 30 2C |0,1080,880,1590,|
00000580: 31 31 35 30 00 BA 60 2C 01 A0 31 35 3A 43 58 B2 |1150..`,..15:CX.|
00000590: 30 3A 8D 32 35 38 30 3A 99 48 43 24 3B 22 49 4E |0:.2580:.HC$;"IN|
000005A0: 53 45 52 54 20 44 49 53 4B 20 54 4F 20 42 45 20 |SERT DISK TO BE |
000005B0: 43 41 54 41 4C 4F 47 45 44 22 00 F8 60 36 01 99 |CATALOGED"..`6..|
000005C0: 3A 99 22 44 45 50 52 45 53 53 20 41 4E 59 20 4B |:."DEPRESS ANY K|
000005D0: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 |EY TO CONTINUE, |
000005E0: 22 3B 52 56 24 3B 22 51 22 3B 52 46 24 3B 22 20 |";RV$;"Q";RF$;" |
000005F0: 54 4F 20 51 55 49 54 22 00 15 61 40 01 8D 32 30 |TO QUIT"..a@..20|
00000600: 33 30 3A 8B 43 24 B2 22 51 22 A7 8D 32 33 31 30 |30:.C$."Q"..2310|
00000610: 3A 89 31 39 30 00 38 61 4A 01 8D 32 30 37 30 3A |:.190.8aJ..2070:|
00000620: 99 22 4F 4B 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 |."OK":.15,8,15,"|
00000630: 49 30 22 3A 8D 31 36 30 00 4D 61 54 01 9F 35 2C |I0":.160.MaT..5,|
00000640: 38 2C 35 2C 22 24 30 22 3A 8D 31 36 30 00 7D 61 |8,5,"$0":.160.}a|
00000650: 5E 01 8D 31 32 30 3A 56 46 B2 56 3A 44 44 B2 30 |^..120:VF.V:DD.0|
00000660: 3A 20 8D 31 35 30 3A 44 44 B2 20 C6 28 43 24 29 |: .150:DD. .(C$)|
00000670: 20 3A 99 20 22 44 44 3D 20 22 3B 44 44 00 A2 61 | :. "DD= ";DD..a|
00000680: 68 01 4E 42 B2 30 3A 81 5A B2 31 A4 33 35 3A 8D |h.NB.0:.Z.1.35:.|
00000690: 31 32 30 3A 8B 5A B3 B1 31 38 A7 4E 42 B2 4E 42 |120:.Z..18.NB.NB|
000006A0: AA 56 00 B2 61 72 01 59 B2 33 3A 8D 31 31 30 3A |.V..ar.Y.3:.110:|
000006B0: 82 5A 00 D0 61 7C 01 59 B2 31 36 3A 8D 31 30 30 |.Z..a|.Y.16:.100|
000006C0: 3A 44 4E 24 B2 53 24 3A 59 B2 32 3A 8D 31 31 30 |:DN$.S$:Y.2:.110|
000006D0: 00 EE 61 86 01 59 B2 32 3A 8D 31 30 30 3A 44 49 |..a..Y.2:.100:DI|
000006E0: 24 B2 C8 28 53 24 AA 22 20 20 22 2C 32 29 00 02 |$..(S$." ",2)..|
000006F0: 62 87 01 8B 20 44 44 B3 B1 31 32 38 20 A7 20 34 |b... DD..128 . 4|
00000700: 30 30 00 2E 62 88 01 8D 20 31 35 30 3A 59 B2 32 |00..b... 150:Y.2|
00000710: 3A 8D 20 31 30 30 3A 20 44 46 24 B2 53 24 20 3A |:. 100: DF$.S$ :|
00000720: 99 20 22 44 46 24 20 3D 20 22 3B 44 46 24 00 3E |. "DF$ = ";DF$.>|
00000730: 62 89 01 59 B2 35 34 20 3A 8D 20 31 31 30 00 5E |b..Y.54 :. 110.^|
00000740: 62 8A 01 81 51 5A B2 31 20 A4 20 33 35 3A 20 8D |b...QZ.1 . 35: .|
00000750: 20 31 32 30 20 3A 20 4E 42 B2 4E 42 AA 56 00 66 | 120 : NB.NB.V.f|
00000760: 62 8C 01 82 51 5A 00 9E 62 8D 01 89 20 35 37 30 |b...QZ..b... 570|
00000770: 20 8F 20 42 41 43 4B 20 49 4E 54 4F 20 54 48 45 | . BACK INTO THE|
00000780: 20 4D 41 49 4E 4C 49 4E 45 52 20 41 4E 44 20 49 | MAINLINER AND I|
00000790: 54 20 44 4F 45 53 4E 27 54 20 4B 4E 4F 57 00 B4 |T DOESN'T KNOW..|
000007A0: 62 90 01 8D 32 30 38 30 3A 8B 43 24 B2 22 4E 22 |b...2080:.C$."N"|
000007B0: A7 38 37 30 00 C2 62 9A 01 8B 4E 58 B2 30 A7 35 |.870..b...NX.0.5|
000007C0: 33 30 00 EA 62 A4 01 81 58 B2 30 A4 4E 58 AB 31 |30..b...X.0.NX.1|
000007D0: 3A 43 24 B2 C8 28 58 24 28 58 29 2C 32 29 3A 8B |:C$..(X$(X),2):.|
000007E0: 44 49 24 B3 43 24 A7 35 33 30 00 FF 62 AE 01 8B |DI$.C$.530..b...|
000007F0: 44 49 24 B3 B1 43 24 A7 82 58 3A 89 35 33 30 00 |DI$..C$..X:.530.|
00000800: 17 63 B8 01 8B 44 4E 24 B2 CA 28 58 24 28 58 29 |.c...DN$..(X$(X)|
00000810: 2C 33 29 A7 35 33 30 00 5F 63 C2 01 8D 32 35 38 |,3).530._c...258|
00000820: 30 3A 99 48 43 24 3B 52 56 24 3B 22 2A 2A 2A 20 |0:.HC$;RV$;"*** |
00000830: 57 41 52 4E 49 4E 47 20 2A 2A 2A 22 3B 52 46 24 |WARNING ***";RF$|
00000840: 3B 22 20 20 54 48 49 53 20 44 49 53 4B 20 49 44 |;" THIS DISK ID|
00000850: 3A 20 22 3B 52 56 24 3B 44 49 24 3B 52 46 24 00 |: ";RV$;DI$;RF$.|
00000860: 7C 63 CC 01 99 3A 99 22 44 49 53 4B 20 4E 41 4D ||c...:."DISK NAM|
00000870: 45 3A 20 22 3B 52 56 24 3B 44 4E 24 00 AD 63 D6 |E: ";RV$;DN$..c.|
00000880: 01 99 3A 99 22 49 53 20 41 4C 4C 20 52 45 41 44 |..:."IS ALL READ|
00000890: 59 20 43 41 54 41 4C 4F 47 45 44 20 57 49 54 48 |Y CATALOGED WITH|
000008A0: 20 41 20 44 49 46 46 45 52 45 4E 54 22 00 D7 63 | A DIFFERENT"..c|
000008B0: E0 01 99 3A 99 22 44 49 53 4B 20 4E 41 4D 45 3A |...:."DISK NAME:|
000008C0: 20 22 3B 52 56 24 3B CA 28 58 24 28 58 29 2C 33 | ";RV$;.(X$(X),3|
000008D0: 29 3A 8D 32 30 37 30 00 03 64 EA 01 99 22 43 41 |):.2070..d..."CA|
000008E0: 54 41 4C 4F 47 49 4E 47 20 54 48 49 53 20 44 49 |TALOGING THIS DI|
000008F0: 53 4B 20 57 49 4C 4C 20 44 45 4C 45 54 45 20 54 |SK WILL DELETE T|
00000900: 48 45 22 00 21 64 F4 01 99 3A 99 22 50 52 45 56 |HE".!d...:."PREV|
00000910: 49 4F 55 53 20 44 41 54 41 21 22 3A 8D 32 30 37 |IOUS DATA!":.207|
00000920: 30 00 4D 64 FE 01 99 22 43 41 54 41 4C 4F 47 20 |0.Md..."CATALOG |
00000930: 54 48 49 53 20 44 49 53 4B 22 3B 3A 8D 32 31 31 |THIS DISK";:.211|
00000940: 30 3A 8B 43 24 B2 22 4E 22 A7 38 37 30 00 81 64 |0:.C$."N".870..d|
00000950: 08 02 8D 32 35 38 30 3A 99 48 43 24 3B 22 43 41 |...2580:.HC$;"CA|
00000960: 54 41 4C 4F 47 49 4E 47 20 44 49 53 4B 20 57 49 |TALOGING DISK WI|
00000970: 54 48 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 |TH NEW DISK NAME|
00000980: 22 00 B2 64 12 02 8D 32 35 38 30 3A 8D 32 30 37 |"..d...2580:.207|
00000990: 30 3A 99 22 52 45 41 44 49 4E 47 20 44 49 52 45 |0:."READING DIRE|
000009A0: 43 54 4F 52 59 20 45 4E 54 52 49 45 53 20 2E 2E |CTORY ENTRIES ..|
000009B0: 2E 22 00 D0 64 1C 02 8D 31 35 30 3A 59 B2 32 3A |."..d...150:Y.2:|
000009C0: 8D 31 30 30 3A 44 46 24 B2 53 24 3A 59 B2 38 39 |.100:DF$.S$:Y.89|
000009D0: 00 E3 64 26 02 8B 56 46 B2 31 A7 44 46 24 B2 22 |..d&..VF.1.DF$."|
000009E0: 20 31 22 00 EC 64 30 02 8D 31 31 30 00 F9 64 3A | 1"..d0..110..d:|
000009F0: 02 4E 46 B2 30 3A 5A B2 30 00 07 65 44 02 8D 31 |.NF.0:Z.0..eD..1|
00000A00: 32 30 3A 46 54 B2 56 00 2D 65 4E 02 46 24 B2 43 |20:FT.V.-eN.F$.C|
00000A10: 24 3A 59 B2 32 3A 8D 31 31 30 3A 59 B2 31 36 3A |$:Y.2:.110:Y.16:|
00000A20: 8D 31 30 30 3A 59 B2 39 3A 8D 31 31 30 00 50 65 |.100:Y.9:.110.Pe|
00000A30: 58 02 8D 31 32 30 3A 53 24 B2 53 24 AA C7 28 56 |X..120:S$.S$..(V|
00000A40: 29 3A 8D 31 32 30 3A 8B 46 54 B2 30 A7 36 37 30 |):.120:.FT.0.670|
00000A50: 00 5E 65 62 02 8B 4E 46 B2 30 A7 36 34 30 00 86 |.^eb..NF.0.640..|
00000A60: 65 6C 02 81 58 B2 31 A4 4E 46 3A 8B C8 28 53 24 |el..X.1.NF:..(S$|
00000A70: 2C 31 36 29 B3 CA 28 44 24 28 58 29 2C 32 2C 31 |,16)..(D$(X),2,1|
00000A80: 36 29 A7 36 35 30 00 8D 65 76 02 82 58 00 9D 65 |6).650..ev..X..e|
00000A90: 80 02 58 B2 4E 46 AA 31 3A 89 36 36 30 00 BD 65 |..X.NF.1:.660..e|
00000AA0: 8A 02 81 59 B2 4E 46 A4 58 A9 AB 31 3A 44 24 28 |...Y.NF.X..1:D$(|
00000AB0: 59 AA 31 29 B2 44 24 28 59 29 3A 82 59 00 DA 65 |Y.1).D$(Y):.Y..e|
00000AC0: 94 02 44 24 28 58 29 B2 46 24 AA 53 24 AA C7 28 |..D$(X).F$.S$..(|
00000AD0: 56 29 3A 4E 46 B2 4E 46 AA 31 00 01 66 9E 02 5A |V):NF.NF.1..f..Z|
00000AE0: B2 5A AA 31 3A 5A B2 5A AB 28 B5 28 5A AD 38 29 |.Z.1:Z.Z.(.(Z.8)|
00000AF0: AC 38 29 3A 8B 5A B1 30 A7 59 B2 32 3A 8D 31 31 |.8):.Z.0.Y.2:.11|
00000B00: 30 00 11 66 A8 02 8B 4E 46 B3 31 35 35 A7 37 34 |0..f...NF.155.74|
00000B10: 30 00 50 66 B2 02 8D 32 35 38 30 3A 99 48 43 24 |0.Pf...2580:.HC$|
00000B20: 3B A6 36 29 3B 52 56 24 3B 22 2A 2A 2A 20 44 49 |;.6);RV$;"*** DI|
00000B30: 53 4B 20 42 41 4D 20 49 53 20 49 4E 56 41 4C 49 |SK BAM IS INVALI|
00000B40: 44 20 2A 2A 2A 22 3B 52 46 24 3A 8D 32 30 37 30 |D ***";RF$:.2070|
00000B50: 00 84 66 BC 02 99 3A 99 22 20 20 20 43 55 52 52 |..f...:." CURR|
00000B60: 45 4E 54 20 44 49 53 4B 20 43 41 4E 4E 4F 54 20 |ENT DISK CANNOT |
00000B70: 42 45 20 43 41 54 41 4C 4F 47 45 44 21 22 3A 99 |BE CATALOGED!":.|
00000B80: 3A 99 3A 99 00 B3 66 C6 02 99 22 20 50 4C 45 41 |:.:...f..." PLEA|
00000B90: 53 45 20 56 45 52 49 46 59 20 4F 52 20 43 48 45 |SE VERIFY OR CHE|
00000BA0: 43 4B 20 44 49 53 4B 20 43 4F 4E 54 45 4E 54 53 |CK DISK CONTENTS|
00000BB0: 22 3A 99 00 EA 66 D0 02 99 22 42 45 46 4F 52 45 |":...f..."BEFORE|
00000BC0: 20 41 54 54 45 4D 50 54 49 4E 47 20 54 4F 20 43 | ATTEMPTING TO C|
00000BD0: 41 54 41 4C 4F 47 20 54 48 49 53 20 44 49 53 4B |ATALOG THIS DISK|
00000BE0: 2E 22 3A 8D 32 35 38 30 3A 99 00 FF 66 DA 02 8D |.":.2580:...f...|
00000BF0: 32 30 37 30 3A 8D 32 30 32 30 3A 89 38 37 30 00 |2070:.2020:.870.|
00000C00: 0D 67 E4 02 8B 53 53 B2 30 A7 35 38 30 00 47 67 |.g...SS.0.580.Gg|
00000C10: EE 02 A0 35 3A 8D 32 33 31 30 3A 8D 32 30 37 30 |...5:.2310:.2070|
00000C20: 3A 8D 32 35 38 30 3A 99 22 55 50 44 41 54 49 4E |:.2580:."UPDATIN|
00000C30: 47 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 4F |G MASTER DIRECTO|
00000C40: 52 59 20 2E 2E 2E 22 00 55 67 F8 02 8B 4E 58 B2 |RY ...".Ug...NX.|
00000C50: 30 A7 38 31 30 00 7D 67 02 03 81 58 B2 30 A4 4E |0.810.}g...X.0.N|
00000C60: 58 AB 31 3A 43 24 B2 C8 28 58 24 28 58 29 2C 32 |X.1:C$..(X$(X),2|
00000C70: 29 3A 8B 44 49 24 B3 43 24 A7 38 30 30 00 8D 67 |):.DI$.C$.800..g|
00000C80: 0C 03 8B 44 49 24 B2 43 24 A7 38 33 30 00 99 67 |...DI$.C$.830..g|
00000C90: 16 03 82 58 3A 89 38 31 30 00 C0 67 20 03 81 59 |...X:.810..g ..Y|
00000CA0: B2 4E 58 AB 31 A4 58 A9 AB 31 3A 58 24 28 59 AA |.NX.1.X..1:X$(Y.|
00000CB0: 31 29 B2 58 24 28 59 29 3A 82 59 3A 89 38 32 30 |1).X$(Y):.Y:.820|
00000CC0: 00 C9 67 2A 03 58 B2 4E 58 00 D5 67 34 03 4E 58 |..g*.X.NX..g4.NX|
00000CD0: B2 4E 58 AA 31 00 EC 67 3E 03 58 24 28 58 29 B2 |.NX.1..g>.X$(X).|
00000CE0: 44 49 24 AA 44 4E 24 3A 43 58 B2 31 00 17 68 48 |DI$.DN$:CX.1..hH|
00000CF0: 03 8D 31 39 33 30 3A 98 31 35 2C 22 53 22 AA 53 |..1930:.15,"S".S|
00000D00: 24 3A 9F 35 2C 38 2C 35 2C 53 24 AA 22 2C 53 2C |$:.5,8,5,S$.",S,|
00000D10: 57 22 3A 8D 31 36 30 00 33 68 52 03 98 35 2C 44 |W":.160.3hR..5,D|
00000D20: 46 24 3B 22 2C 22 3B 4E 42 3B 43 52 24 3B 3A 8D |F$;",";NB;CR$;:.|
00000D30: 31 36 30 00 5B 68 5C 03 8B 4E 46 B1 30 A7 81 58 |160.[h\..NF.0..X|
00000D40: B2 31 A4 4E 46 3A 98 35 2C 44 24 28 58 29 3B 43 |.1.NF:.5,D$(X);C|
00000D50: 52 24 3B 3A 8D 31 36 30 3A 82 58 00 6D 68 66 03 |R$;:.160:.X.mhf.|
00000D60: A0 35 3A 8D 32 32 31 30 3A 89 33 30 30 00 A3 68 |.5:.2210:.300..h|
00000D70: 70 03 99 48 43 24 3B 22 54 4F 20 44 49 53 50 4C |p..HC$;"TO DISPL|
00000D80: 41 59 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 |AY DISK DIRECTOR|
00000D90: 59 22 3A 8D 31 37 37 30 3A 91 56 89 31 39 30 2C |Y":.1770:.V.190,|
00000DA0: 38 38 30 00 D2 68 7A 03 9F 35 2C 38 2C 35 2C 53 |880..hz..5,8,5,S|
00000DB0: 24 AA 22 2C 53 2C 52 22 3A 8D 31 36 30 3A 8D 31 |$.",S,R":.160:.1|
00000DC0: 39 37 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 31 |970:.5,DF$,NB:.1|
00000DD0: 36 30 00 F8 68 84 03 98 34 2C 22 20 20 44 49 53 |60..h...4," DIS|
00000DE0: 4B 20 4E 41 4D 45 3A 22 3B 52 46 24 3B 22 20 20 |K NAME:";RF$;" |
00000DF0: 22 3B 44 4E 24 3A 98 34 00 1E 69 8E 03 98 34 2C |";DN$:.4..i...4,|
00000E00: 22 22 A6 34 29 22 44 49 53 4B 20 49 44 3A 22 52 |"".4)"DISK ID:"R|
00000E10: 46 24 22 20 20 22 3B 44 49 24 3B A6 36 29 00 43 |F$" ";DI$;.6).C|
00000E20: 69 98 03 98 34 2C 22 44 49 53 4B 20 46 4F 52 4D |i...4,"DISK FORM|
00000E30: 41 54 3A 22 3B 52 46 24 3B 22 20 20 22 44 46 24 |AT:";RF$;" "DF$|
00000E40: 3A 98 34 00 67 69 A2 03 98 34 2C 22 42 4C 4F 43 |:.4.gi...4,"BLOC|
00000E50: 4B 53 20 46 52 45 45 3A 22 3B 52 46 24 3B 22 20 |KS FREE:";RF$;" |
00000E60: 22 3B 4E 42 3A 98 34 00 9B 69 AC 03 98 34 2C 22 |";NB:.4..i...4,"|
00000E70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000E90: 2D 2D 2D 2D 2D 2D 2D 22 3A 98 34 00 AF 69 B6 03 |-------":.4..i..|
00000EA0: 4E 46 B2 30 3A 8B 53 53 B1 30 A7 31 30 36 30 00 |NF.0:.SS.0.1060.|
00000EB0: DA 69 C0 03 8D 31 32 30 3A 46 54 B2 56 3A 59 B2 |.i...120:FT.V:Y.|
00000EC0: 31 36 3A 8D 31 30 30 3A 8D 31 32 30 3A 5A B2 56 |16:.100:.120:Z.V|
00000ED0: 3A 8D 31 32 30 3A 8D 31 35 30 00 09 6A CA 03 98 |:.120:.150..j...|
00000EE0: 34 2C C9 28 22 20 20 20 20 22 AA C4 28 5A AA 28 |4,.(" "..(Z.(|
00000EF0: 32 35 36 AC 56 29 29 2C 34 29 3B 22 20 20 22 3B |256.V)),4);" ";|
00000F00: 53 24 3B 22 20 20 20 22 3B 00 1F 6A D4 03 8B 46 |S$;" ";..j...F|
00000F10: 54 B2 31 32 39 A7 98 34 2C 22 53 45 51 22 3B 00 |T.129..4,"SEQ";.|
00000F20: 3B 6A D9 03 8B 20 46 54 B2 20 31 39 33 20 A7 20 |;j... FT. 193 . |
00000F30: 98 34 2C 20 22 53 45 51 3C 22 3B 00 51 6A DE 03 |.4, "SEQ<";.Qj..|
00000F40: 8B 46 54 B2 31 33 30 A7 98 34 2C 22 50 47 4D 22 |.FT.130..4,"PGM"|
00000F50: 3B 00 6D 6A E3 03 8B 20 46 54 B2 20 31 39 34 20 |;.mj... FT. 194 |
00000F60: A7 20 98 34 2C 20 22 50 47 4D 3C 22 3B 00 83 6A |. .4, "PGM<";..j|
00000F70: E8 03 8B 46 54 B2 31 33 31 A7 98 34 2C 22 55 53 |...FT.131..4,"US|
00000F80: 52 22 3B 00 9F 6A ED 03 8B 20 46 54 B2 20 31 39 |R";..j... FT. 19|
00000F90: 35 20 A7 20 98 34 2C 20 22 55 53 52 3C 22 3B 00 |5 . .4, "USR<";.|
00000FA0: B5 6A F2 03 8B 46 54 B2 31 33 32 A7 98 34 2C 22 |.j...FT.132..4,"|
00000FB0: 52 45 4C 22 3B 00 D1 6A F7 03 8B 20 46 54 B2 20 |REL";..j... FT. |
00000FC0: 31 39 36 20 A7 20 98 34 2C 20 22 52 45 4C 3C 22 |196 . .4, "REL<"|
00000FD0: 3B 00 EA 6A FC 03 98 34 3A A1 43 24 3A 8B 43 24 |;..j...4:.C$:.C$|
00000FE0: B3 B1 22 22 A7 8D 32 30 33 30 00 FB 6A 06 04 8B |..""..2030..j...|
00000FF0: 43 24 B2 22 51 22 A7 31 30 37 30 00 11 6B 10 04 |C$."Q".1070..k..|
00001000: 4E 46 B2 4E 46 AA 31 3A 8B 53 53 B2 30 A7 39 36 |NF.NF.1:.SS.0.96|
00001010: 30 00 30 6B 1A 04 98 34 3A 98 34 2C 22 23 46 49 |0.0k...4:.4,"#FI|
00001020: 4C 45 53 3A 22 3B 52 46 24 3B 22 20 22 3B 4E 46 |LES:";RF$;" ";NF|
00001030: 00 46 6B 24 04 8B 50 44 B2 33 A7 8D 32 30 37 30 |.Fk$..PD.3..2070|
00001040: 3A 8D 32 30 32 30 00 55 6B 2E 04 A0 34 3A A0 35 |:.2020.Uk...4:.5|
00001050: 3A 89 38 38 30 00 85 6B 38 04 99 48 43 24 3B 22 |:.880..k8..HC$;"|
00001060: 54 4F 20 44 45 4C 45 54 45 20 44 49 53 4B 20 46 |TO DELETE DISK F|
00001070: 52 4F 4D 20 4D 41 53 54 45 52 20 44 49 52 45 43 |ROM MASTER DIREC|
00001080: 54 4F 52 59 22 00 9C 6B 42 04 8D 31 37 37 30 3A |TORY"..kB..1770:|
00001090: 91 56 89 31 31 34 30 2C 31 30 38 30 00 AB 6B 4C |.V.1140,1080..kL|
000010A0: 04 98 31 35 2C 22 53 22 AA 53 24 00 D3 6B 56 04 |..15,"S".S$..kV.|
000010B0: 43 58 B2 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A 8B |CX.0:.X.0.NX.1:.|
000010C0: C8 28 58 24 28 58 29 2C 32 29 B2 44 49 24 A7 43 |.(X$(X),2).DI$.C|
000010D0: 58 B2 31 00 E9 6B 60 04 8B 43 58 A7 58 24 28 58 |X.1..k`..CX.X$(X|
000010E0: 29 B2 58 24 28 58 AA 31 29 00 FE 6B 6A 04 82 58 |).X$(X.1)..kj..X|
000010F0: 3A 4E 58 B2 4E 58 AB 31 3A 89 31 30 38 30 00 0D |:NX.NX.1:.1080..|
00001100: 6C 74 04 8D 32 32 31 30 3A 89 31 39 30 00 22 6C |lt..2210:.190."l|
00001110: 7E 04 8B 4E 58 B2 30 A7 8D 31 37 38 30 3A 89 31 |~..NX.0..1780:.1|
00001120: 39 30 00 2F 6C 88 04 A0 34 3A 8D 32 30 36 30 00 |90./l...4:.2060.|
00001130: 5D 6C 92 04 99 A6 35 29 3B 22 30 20 2D 20 52 45 |]l....5);"0 - RE|
00001140: 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 46 55 4E |TURN TO MAIN FUN|
00001150: 43 54 49 4F 4E 20 4D 45 4E 55 22 3A 99 00 88 6C |CTION MENU":...l|
00001160: 9C 04 99 A6 35 29 3B 22 31 20 2D 20 50 52 49 4E |....5);"1 - PRIN|
00001170: 54 20 46 55 4C 4C 20 49 44 20 55 53 41 47 45 20 |T FULL ID USAGE |
00001180: 43 48 41 52 54 22 3A 99 00 B3 6C A6 04 99 A6 35 |CHART":...l....5|
00001190: 29 3B 22 32 20 2D 20 51 55 49 43 4B 20 4C 49 53 |);"2 - QUICK LIS|
000011A0: 54 20 4F 46 20 49 44 27 53 20 49 4E 20 55 53 45 |T OF ID'S IN USE|
000011B0: 22 3A 99 00 DB 6C B0 04 99 A6 35 29 3B 22 33 20 |":...l....5);"3 |
000011C0: 2D 20 4C 49 53 54 20 44 49 53 4B 20 49 44 27 53 |- LIST DISK ID'S|
000011D0: 20 26 20 4E 41 4D 45 53 22 3A 99 00 18 6D BA 04 | & NAMES":...m..|
000011E0: 99 A6 35 29 3B 22 34 20 2D 20 4C 49 53 54 20 22 |..5);"4 - LIST "|
000011F0: 3B 52 56 24 3B 22 4D 49 4E 22 3B 52 46 24 3B 22 |;RV$;"MIN";RF$;"|
00001200: 20 46 52 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 | FREE BLOCKS PER|
00001210: 20 44 49 53 4B 22 3A 99 00 53 6D C4 04 99 A6 35 | DISK":..Sm....5|
00001220: 29 3B 22 35 20 2D 20 4C 49 53 54 20 22 3B 52 56 |);"5 - LIST ";RV|
00001230: 24 3B 22 4D 41 58 22 3B 52 46 24 3B 22 20 46 52 |$;"MAX";RF$;" FR|
00001240: 45 45 20 42 4C 4F 43 4B 53 20 50 45 52 20 44 49 |EE BLOCKS PER DI|
00001250: 53 4B 22 00 7B 6D CE 04 8D 32 30 37 30 3A 99 22 |SK".{m...2070:."|
00001260: 45 4E 54 45 52 20 44 45 53 49 52 45 44 20 46 55 |ENTER DESIRED FU|
00001270: 4E 43 54 49 4F 4E 3A 20 20 22 3B 00 92 6D D8 04 |NCTION: ";..m..|
00001280: 8D 32 30 33 30 3A 8B 20 43 24 B2 22 30 22 A7 31 |.2030:. C$."0".1|
00001290: 39 30 00 AC 6D E2 04 56 B2 C5 28 43 24 29 3A 8B |90..m..V..(C$):.|
000012A0: 56 B3 31 B0 56 B1 35 A7 31 32 34 30 00 D0 6D EC |V.1.V.5.1240..m.|
000012B0: 04 99 43 24 3A 91 56 89 31 32 37 30 2C 31 34 35 |..C$:.V.1270,145|
000012C0: 30 2C 31 35 32 30 2C 32 33 37 30 2C 32 34 31 30 |0,1520,2370,2410|
000012D0: 00 D9 6D F6 04 9F 34 2C 34 00 16 6E 00 05 98 34 |..m...4,4..n...4|
000012E0: 2C 22 22 A6 31 35 29 3B 52 56 24 3B 22 20 20 44 |,"".15);RV$;" D|
000012F0: 20 49 20 53 20 4B 20 20 49 20 44 20 20 55 20 53 | I S K I D U S|
00001300: 20 45 20 41 20 47 20 45 20 20 43 20 48 20 41 20 | E A G E C H A |
00001310: 52 20 54 20 20 22 00 25 6E 0A 05 98 34 3A 98 34 |R T ".%n...4:.4|
00001320: 2C 22 20 22 3B 00 3D 6E 14 05 81 58 B2 34 38 A4 |," ";.=n...X.48.|
00001330: 39 30 3A 8B 58 B2 35 38 A7 58 B2 36 35 00 54 6E |90:.X.58.X.65.Tn|
00001340: 1E 05 98 34 2C 22 20 22 3B C7 28 58 29 3B 3A 82 |...4," ";.(X);:.|
00001350: 58 3A 98 34 00 71 6E 28 05 5A B2 30 3A 81 58 B2 |X:.4.qn(.Z.0:.X.|
00001360: 34 38 A4 20 39 30 3A 8B 58 B2 35 38 A7 58 B2 36 |48. 90:.X.58.X.6|
00001370: 35 00 A8 6E 32 05 98 34 2C 22 20 DB C0 DB C0 DB |5..n2..4," .....|
00001380: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................|
00001390: C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB |................|
000013A0: C0 DB C0 DB C0 DB 22 3B 00 D0 6E 3C 05 98 34 2C |......";..n<..4,|
000013B0: 22 C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |"...............|
000013C0: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 22 |..............."|
000013D0: 00 DD 6E 46 05 98 34 2C C7 28 58 29 3B 00 F5 6E |..nF..4,.(X);..n|
000013E0: 50 05 81 59 B2 34 38 A4 39 30 3A 8B 59 B2 35 38 |P..Y.48.90:.Y.58|
000013F0: A7 59 B2 36 35 00 0F 6F 5A 05 98 34 2C C7 28 32 |.Y.65..oZ..4,.(2|
00001400: 32 31 29 3B 3A 8B 5A B2 4E 58 A7 31 34 30 30 00 |21);:.Z.NX.1400.|
00001410: 2E 6F 64 05 43 24 B2 C7 28 58 29 AA C7 28 59 29 |.od.C$..(X)..(Y)|
00001420: 3A 53 24 B2 C8 28 58 24 28 5A 29 2C 32 29 00 51 |:S$..(X$(Z),2).Q|
00001430: 6F 6E 05 8B 53 24 B2 43 24 20 A7 98 34 2C C7 28 |on..S$.C$ ..4,.(|
00001440: 31 36 36 29 3B 3A 5A B2 5A AA 31 3A 89 31 34 31 |166);:Z.Z.1:.141|
00001450: 30 00 5D 6F 78 05 98 34 2C 22 20 22 3B 00 80 6F |0.]ox..4," ";..o|
00001460: 82 05 82 59 3A 98 34 2C C7 28 32 32 31 29 3A A1 |...Y:.4,.(221):.|
00001470: 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D 32 30 33 30 |C$:.C$..""..2030|
00001480: 00 90 6F 8C 05 8B 43 24 B3 B1 22 51 22 A7 82 58 |..o...C$.."Q"..X|
00001490: 00 C7 6F 96 05 98 34 2C 22 20 B1 C0 B1 C0 B1 C0 |..o...4," ......|
000014A0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
000014B0: B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 |................|
000014C0: B1 C0 B1 C0 B1 22 3B 00 F5 6F A0 05 98 34 2C 22 |.....";..o...4,"|
000014D0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 |................|
000014E0: C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B1 C0 B3 22 3A |..............":|
000014F0: 89 31 31 36 30 00 25 70 AA 05 8D 31 39 37 30 3A |.1160.%p...1970:|
00001500: 98 34 2C 22 22 A6 37 29 3B 22 44 49 53 4B 20 49 |.4,"".7);"DISK I|
00001510: 44 27 53 20 43 55 52 52 45 4E 54 4C 59 20 49 4E |D'S CURRENTLY IN|
00001520: 20 55 53 45 22 00 2F 70 B4 05 98 34 3A 98 34 00 | USE"./p...4:.4.|
00001530: 44 70 BE 05 56 B2 31 32 3A 8B 20 50 44 B2 34 A7 |Dp..V.12:. PD.4.|
00001540: 56 B2 32 35 00 69 70 C8 05 5A B2 30 3A 81 58 B2 |V.25.ip..Z.0:.X.|
00001550: 30 A4 4E 58 AB 31 3A 98 34 2C C8 28 58 24 28 58 |0.NX.1:.4,.(X$(X|
00001560: 29 2C 32 29 3B 22 20 22 3B 00 82 70 D2 05 5A B2 |),2);" ";..p..Z.|
00001570: 5A AA 31 3A 8B 5A B2 B5 28 5A AD 56 29 AC 56 A7 |Z.1:.Z..(Z.V).V.|
00001580: 98 34 00 9F 70 DC 05 82 58 3A 98 34 3A 98 34 3A |.4..p...X:.4:.4:|
00001590: 8B 5A B3 B1 B5 28 5A AD 56 29 AC 56 A7 98 34 00 |.Z...(Z.V).V..4.|
000015A0: CA 70 E6 05 98 34 2C 5A 3B 22 44 49 53 4B 53 20 |.p...4,Z;"DISKS |
000015B0: 49 4E 20 4D 41 53 54 45 52 20 44 49 52 45 43 54 |IN MASTER DIRECT|
000015C0: 4F 52 59 22 3A 89 31 35 37 30 00 F1 70 F0 05 8D |ORY":.1570..p...|
000015D0: 31 39 37 30 3A 98 34 2C 22 49 44 20 20 2E 2E 2E |1970:.4,"ID ...|
000015E0: 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 3A 98 |DISK NAME....":.|
000015F0: 34 00 1D 71 FA 05 81 58 B2 30 A4 4E 58 AB 31 3A |4..q...X.0.NX.1:|
00001600: 98 34 2C C8 28 58 24 28 58 29 2C 32 29 3B 22 20 |.4,.(X$(X),2);" |
00001610: 20 22 3B CA 28 58 24 28 58 29 2C 33 29 00 33 71 | ";.(X$(X),3).3q|
00001620: 04 06 A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 8D 32 |...C$:.C$..""..2|
00001630: 30 33 30 00 44 71 0E 06 8B 43 24 B2 22 51 22 A7 |030.Dq...C$."Q".|
00001640: 31 31 36 30 00 4B 71 18 06 82 58 00 5A 71 22 06 |1160.Kq...X.Zq".|
00001650: 8B 50 44 B2 34 A7 31 31 36 30 00 70 71 2C 06 8D |.PD.4.1160.pq,..|
00001660: 32 30 37 30 3A 8D 32 30 32 30 3A 89 31 31 36 30 |2070:.2020:.1160|
00001670: 00 85 71 36 06 8B 4E 58 B2 30 A7 8D 31 37 38 30 |..q6..NX.0..1780|
00001680: 3A 89 31 39 30 00 B7 71 40 06 A0 34 3A 99 48 43 |:.190..q@..4:.HC|
00001690: 24 3B 22 54 4F 20 46 49 4E 44 20 57 48 41 54 20 |$;"TO FIND WHAT |
000016A0: 44 49 53 4B 28 53 29 20 41 20 46 49 4C 45 20 49 |DISK(S) A FILE I|
000016B0: 53 20 4F 4E 22 3A 99 00 EF 71 4A 06 99 22 45 4E |S ON":...qJ.."EN|
000016C0: 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 20 20 |TER FILE NAME |
000016D0: 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A |.";CL$;CL$;CL$;:|
000016E0: 85 46 24 3A 8B 46 24 B2 22 2E 22 A7 31 39 30 00 |.F$:.F$.".".190.|
000016F0: 0B 72 54 06 8B 46 24 B2 22 2A 22 A7 99 3A 99 22 |.rT..F$."*"..:."|
00001700: 52 45 2D 22 3B 3A 89 31 36 31 30 00 25 72 5E 06 |RE-";:.1610.%r^.|
00001710: 53 24 B2 46 24 3A 8D 31 39 34 30 3A 56 B2 59 3A |S$.F$:.1940:V.Y:|
00001720: 8D 31 39 37 30 00 58 72 68 06 98 34 2C 22 2E 2E |.1970.Xrh..4,"..|
00001730: 2E 46 49 4C 45 20 4E 41 4D 45 2E 2E 2E 2E 20 20 |.FILE NAME.... |
00001740: 49 44 20 20 2E 2E 2E 44 49 53 4B 20 4E 41 4D 45 |ID ...DISK NAME|
00001750: 2E 2E 2E 2E 22 3A 98 34 00 65 72 72 06 98 34 2C |....":.4.err..4,|
00001760: 53 24 3A 98 34 00 91 72 7C 06 81 5A B2 30 A4 4E |S$:.4..r|..Z.0.N|
00001770: 58 AB 31 3A 44 49 24 B2 C8 28 58 24 28 5A 29 2C |X.1:DI$..(X$(Z),|
00001780: 32 29 3A 44 4E 24 B2 CA 28 58 24 28 5A 29 2C 33 |2):DN$..(X$(Z),3|
00001790: 29 00 C6 72 86 06 8D 31 39 33 30 3A 9F 35 2C 38 |)..r...1930:.5,8|
000017A0: 2C 35 2C 53 24 AA 22 2C 53 2C 52 22 3A 45 46 B2 |,5,S$.",S,R":EF.|
000017B0: 31 35 3A 8D 31 36 30 3A 84 35 2C 44 46 24 2C 4E |15:.160:.5,DF$,N|
000017C0: 42 3A 8D 31 36 30 00 E2 72 90 06 8D 31 35 30 3A |B:.160..r...150:|
000017D0: 59 B2 31 36 3A 8D 31 30 30 3A 59 B2 33 3A 8D 31 |Y.16:.100:Y.3:.1|
000017E0: 31 30 00 F7 72 9A 06 8B 46 24 B3 C8 28 53 24 2C |10..r...F$..(S$,|
000017F0: 56 29 A7 31 37 34 30 00 2F 73 A4 06 8B 46 24 B2 |V).1740./s...F$.|
00001800: C8 28 53 24 2C 56 29 A7 98 34 2C 53 24 3B 22 20 |.(S$,V)..4,S$;" |
00001810: 20 22 3B 44 49 24 22 20 20 22 3B 44 4E 24 3A 8F | ";DI$" ";DN$:.|
00001820: 20 3C 2D 20 32 20 53 50 41 43 45 53 20 45 41 00 | <- 2 SPACES EA.|
00001830: 45 73 AE 06 A1 43 24 3A 8B 43 24 B3 B1 22 22 A7 |Es...C$:.C$.."".|
00001840: 8D 32 30 33 30 00 5A 73 B8 06 8B 43 24 B2 22 51 |.2030.Zs...C$."Q|
00001850: 22 A7 A0 35 3A 89 31 36 30 30 00 69 73 C2 06 8B |"..5:.1600.is...|
00001860: 53 53 B2 30 A7 31 36 38 30 00 73 73 CC 06 A0 35 |SS.0.1680.ss...5|
00001870: 3A 82 5A 00 89 73 D6 06 8B 50 44 B2 33 A7 8D 32 |:.Z..s...PD.3..2|
00001880: 30 37 30 3A 8D 32 30 32 30 00 93 73 E0 06 89 31 |070:.2020..s...1|
00001890: 36 30 30 00 A6 73 EA 06 56 B2 33 3A 8B 4E 58 B1 |600..s..V.3:.NX.|
000018A0: 30 A7 31 37 39 30 00 CB 73 F4 06 99 48 43 24 3B |0.1790..s...HC$;|
000018B0: 52 56 24 3B 22 4E 4F 20 45 4E 54 52 49 45 53 22 |RV$;"NO ENTRIES"|
000018C0: 3B 3A 56 B2 31 3A 89 31 39 31 30 00 F8 73 FE 06 |;:V.1:.1910..s..|
000018D0: 99 3A 99 22 45 4E 54 45 52 20 44 49 53 4B 20 49 |.:."ENTER DISK I|
000018E0: 44 20 20 20 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 |D .";CL$;CL$;C|
000018F0: 4C 24 3B 3A 85 44 49 24 00 1D 74 08 07 44 49 24 |L$;:.DI$..t..DI$|
00001900: B2 C8 28 44 49 24 AA 22 20 20 22 2C 32 29 3A 8B |..(DI$." ",2):.|
00001910: 44 49 24 B2 22 2E 20 22 A7 31 38 35 30 00 45 74 |DI$.". ".1850.Et|
00001920: 12 07 81 58 B2 30 A4 4E 58 AB 31 3A 8B 44 49 24 |...X.0.NX.1:.DI$|
00001930: B3 B1 C8 28 58 24 28 58 29 2C 32 29 A7 82 58 3A |...(X$(X),2)..X:|
00001940: 89 31 39 30 30 00 67 74 1C 07 44 4E 24 B2 CA 28 |.1900.gt..DN$..(|
00001950: 58 24 28 58 29 2C 33 29 3A 44 49 24 B2 C8 28 58 |X$(X),3):DI$..(X|
00001960: 24 28 58 29 2C 32 29 00 7F 74 26 07 8D 32 30 38 |$(X),2)..t&..208|
00001970: 30 3A 8B 43 24 B2 22 4E 22 A7 56 B2 32 3A 8E 00 |0:.C$."N".V.2:..|
00001980: 89 74 30 07 89 31 39 33 30 00 B7 74 3A 07 99 3A |.t0..1930..t:..:|
00001990: 99 22 45 4E 54 45 52 20 44 49 53 4B 20 4E 41 4D |."ENTER DISK NAM|
000019A0: 45 20 20 20 2E 22 3B 43 4C 24 3B 43 4C 24 3B 43 |E .";CL$;CL$;C|
000019B0: 4C 24 3B 3A 85 46 24 00 C9 74 44 07 8B 46 24 B2 |L$;:.F$..tD..F$.|
000019C0: 22 2E 22 A7 56 B2 31 3A 8E 00 E7 74 4E 07 8D 31 |".".V.1:...tN..1|
000019D0: 39 34 30 3A 81 58 B2 30 A4 4E 58 AB 31 3A 8B 59 |940:.X.0.NX.1:.Y|
000019E0: B2 30 A7 31 39 32 30 00 01 75 58 07 8B 46 24 B2 |.0.1920..uX..F$.|
000019F0: CA 28 58 24 28 58 29 2C 33 2C 59 29 A7 31 39 32 |.(X$(X),3,Y).192|
00001A00: 30 00 08 75 62 07 82 58 00 24 75 6C 07 99 3A 8D |0..ub..X.$ul..:.|
00001A10: 32 35 38 30 3A 99 52 56 24 3B 22 4E 4F 54 22 3B |2580:.RV$;"NOT";|
00001A20: 3A 56 B2 32 00 4D 75 76 07 99 22 20 49 4E 20 4D |:V.2.Muv.." IN M|
00001A30: 41 53 54 45 52 20 44 49 52 45 43 54 4F 52 59 21 |ASTER DIRECTORY!|
00001A40: 22 3A 8D 32 30 37 30 3A 89 32 30 32 30 00 82 75 |":.2070:.2020..u|
00001A50: 80 07 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 |..DN$..(X$(X),3)|
00001A60: 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 3A |:DI$..(X$(X),2):|
00001A70: 8D 32 30 38 30 3A 8B 43 24 B2 22 4E 22 A7 31 38 |.2080:.C$."N".18|
00001A80: 39 30 00 98 75 8A 07 53 24 B2 22 30 3A 44 49 52 |90..u..S$."0:DIR|
00001A90: 2E 22 AA 44 49 24 3A 8E 00 A8 75 94 07 46 24 B2 |.".DI$:...u..F$.|
00001AA0: C8 28 46 24 2C 31 36 29 00 D0 75 9E 07 8B C9 28 |.(F$,16)..u....(|
00001AB0: 46 24 2C 31 29 B2 22 2A 22 A7 59 B2 C3 28 46 24 |F$,1)."*".Y..(F$|
00001AC0: 29 AB 31 3A 46 24 B2 C8 28 46 24 2C 59 29 3A 8E |).1:F$..(F$,Y):.|
00001AD0: 00 FA 75 A8 07 59 B2 31 36 3A 46 24 B2 C8 28 46 |..u..Y.16:F$..(F|
00001AE0: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00001AF0: 20 20 20 22 2C 31 36 29 3A 8E 00 2C 76 B2 07 8D | ",16):..,v...|
00001B00: 32 30 37 30 3A 8D 32 35 38 30 3A 99 22 57 41 4E |2070:.2580:."WAN|
00001B10: 54 20 50 52 49 4E 54 45 44 20 43 4F 50 59 22 3B |T PRINTED COPY";|
00001B20: 3A 8D 32 31 31 30 3A 8D 32 30 37 30 00 42 76 BC |:.2110:.2070.Bv.|
00001B30: 07 50 44 B2 33 3A 8B 43 24 B2 22 59 22 A7 50 44 |.PD.3:.C$."Y".PD|
00001B40: B2 34 00 58 76 C6 07 9F 34 2C 50 44 3A 8B 50 44 |.4.Xv...4,PD:.PD|
00001B50: B2 33 A7 99 48 43 24 3B 00 5E 76 D0 07 8E 00 64 |.3..HC$;.^v....d|
00001B60: 76 DA 07 8F 00 87 76 E4 07 99 22 44 45 50 52 45 |v.....v..."DEPRE|
00001B70: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001B80: 4E 54 49 4E 55 45 22 00 9B 76 EE 07 A1 43 24 3A |NTINUE"..v...C$:|
00001B90: 8B 43 24 B2 22 22 A7 32 30 33 30 00 A1 76 F8 07 |.C$."".2030..v..|
00001BA0: 8E 00 A7 76 02 08 8F 00 D6 76 0C 08 8D 32 35 38 |...v.....v...258|
00001BB0: 30 3A 99 48 43 24 3B A6 39 29 3B 52 56 24 3B 22 |0:.HC$;.9);RV$;"|
00001BC0: 44 20 49 20 53 20 4B 20 20 20 4D 20 41 20 53 20 |D I S K M A S |
00001BD0: 54 20 45 20 52 22 00 08 77 16 08 99 22 2D 2D 2D |T E R"..w..."---|
00001BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C00: 2D 2D 2D 2D 2D 22 3A 8E 00 33 77 20 08 8D 32 35 |-----":..3w ..25|
00001C10: 38 30 3A 99 48 43 24 3B 22 44 49 53 4B 20 4E 41 |80:.HC$;"DISK NA|
00001C20: 4D 45 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 4E |ME:";RF$;" ";DN|
00001C30: 24 3A 99 00 58 77 2A 08 99 22 20 20 44 49 53 4B |$:..Xw*.." DISK|
00001C40: 20 49 44 3A 22 3B 52 46 24 3B 22 20 20 22 3B 44 | ID:";RF$;" ";D|
00001C50: 49 24 3A 8D 32 30 37 30 00 6D 77 34 08 99 22 43 |I$:.2070.mw4.."C|
00001C60: 4F 52 52 45 43 54 20 44 49 53 4B 22 3B 00 80 77 |ORRECT DISK";..w|
00001C70: 3E 08 99 22 20 28 59 2F 4E 29 20 3F 20 20 22 3B |>.." (Y/N) ? ";|
00001C80: 00 A0 77 48 08 8D 32 30 33 30 3A 8B 43 24 B3 B1 |..wH..2030:.C$..|
00001C90: 22 59 22 AF 43 24 B3 B1 22 4E 22 A7 32 31 32 30 |"Y".C$.."N".2120|
00001CA0: 00 AA 77 52 08 99 43 24 3A 8E 00 C7 77 5C 08 84 |..wR..C$:...w\..|
00001CB0: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A |15,EN,EM$,ET,ES:|
00001CC0: 8B 45 4E B2 30 A7 8E 00 F6 77 66 08 8D 32 35 38 |.EN.0....wf..258|
00001CD0: 30 3A 99 48 43 24 3B 52 56 24 3B 22 44 49 53 4B |0:.HC$;RV$;"DISK|
00001CE0: 20 45 52 52 4F 52 22 3B 52 46 24 3B 22 20 57 48 | ERROR";RF$;" WH|
00001CF0: 49 4C 45 20 22 3B 00 0D 78 70 08 8B 43 58 A7 99 |ILE ";..xp..CX..|
00001D00: 22 57 52 49 54 49 4E 47 20 4E 45 57 22 00 22 78 |"WRITING NEW"."x|
00001D10: 7A 08 8B 43 58 B2 30 A7 99 22 52 45 41 44 49 4E |z..CX.0.."READIN|
00001D20: 47 22 00 52 78 84 08 99 3A 99 22 44 49 53 4B 20 |G".Rx...:."DISK |
00001D30: 44 49 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 |DIRECTORY CROSS |
00001D40: 52 45 46 45 52 45 4E 43 45 20 46 49 4C 45 2E 22 |REFERENCE FILE."|
00001D50: 3A 99 00 64 78 8E 08 99 45 4E 3B 45 4D 24 3B 45 |:..dx...EN;EM$;E|
00001D60: 54 3B 45 53 00 8E 78 98 08 99 3A 8D 32 35 38 30 |T;ES..x...:.2580|
00001D70: 3A 99 52 56 24 3B 22 50 52 4F 47 52 41 4D 20 41 |:.RV$;"PROGRAM A|
00001D80: 42 4F 52 54 45 44 21 22 3A 89 32 33 30 30 00 9A |BORTED!":.2300..|
00001D90: 78 A2 08 8B 43 58 B2 30 A7 8E 00 D0 78 AC 08 8D |x...CX.0....x...|
00001DA0: 32 30 37 30 3A 99 22 55 50 44 41 54 49 4E 47 20 |2070:."UPDATING |
00001DB0: 44 49 52 45 43 54 4F 52 59 20 43 52 4F 53 53 20 |DIRECTORY CROSS |
00001DC0: 52 45 46 45 52 45 4E 43 45 20 2E 2E 2E 22 3A 99 |REFERENCE ...":.|
00001DD0: 00 F3 78 B6 08 8B 4E 58 B2 30 A7 98 31 35 2C 22 |..x...NX.0..15,"|
00001DE0: 53 30 3A 44 49 53 4B 20 44 49 52 20 58 52 45 46 |S0:DISK DIR XREF|
00001DF0: 22 3A 8E 00 0E 79 C0 08 98 31 35 2C 22 53 30 3A |":...y...15,"S0:|
00001E00: 44 49 52 20 58 52 45 46 2E 54 45 4D 50 22 00 35 |DIR XREF.TEMP".5|
00001E10: 79 CA 08 9F 35 2C 38 2C 35 2C 22 30 3A 44 49 52 |y...5,8,5,"0:DIR|
00001E20: 20 58 52 45 46 2E 54 45 4D 50 2C 53 2C 57 22 3A | XREF.TEMP,S,W":|
00001E30: 8D 32 31 34 30 00 5A 79 D4 08 81 58 B2 30 A4 4E |.2140.Zy...X.0.N|
00001E40: 58 AB 31 3A 98 35 2C 58 24 28 58 29 3B 43 52 24 |X.1:.5,X$(X);CR$|
00001E50: 3B 3A 8D 32 31 34 30 3A 82 58 00 78 79 DE 08 A0 |;:.2140:.X.xy...|
00001E60: 35 3A 98 31 35 2C 22 53 30 3A 44 49 53 4B 20 44 |5:.15,"S0:DISK D|
00001E70: 49 52 20 58 52 45 46 22 00 A9 79 E8 08 98 31 35 |IR XREF"..y...15|
00001E80: 2C 22 52 30 3A 44 49 53 4B 20 44 49 52 20 58 52 |,"R0:DISK DIR XR|
00001E90: 45 46 3D 30 3A 44 49 52 20 58 52 45 46 2E 54 45 |EF=0:DIR XREF.TE|
00001EA0: 4D 50 22 3A 8D 32 31 34 30 00 AF 79 F2 08 8E 00 |MP":.2140..y....|
00001EB0: C3 79 FC 08 A0 34 3A A0 35 3A A0 31 35 3A FE 26 |.y...4:.5:.15:.&|
00001EC0: 3A 20 80 00 CA 79 FF 08 FE 26 00 D0 79 01 09 80 |: ...y...&..y...|
00001ED0: 00 DA 79 06 09 99 48 43 24 3B 00 06 7A 10 09 A0 |..y...HC$;..z...|
00001EE0: 31 35 3A 8D 32 35 38 30 3A 99 22 49 4E 53 45 52 |15:.2580:."INSER|
00001EF0: 54 20 4D 41 53 54 45 52 20 44 49 53 4B 22 3A 99 |T MASTER DISK":.|
00001F00: 3A 8D 32 30 32 30 00 1D 7A 1A 09 9F 31 35 2C 38 |:.2020..z...15,8|
00001F10: 2C 31 35 2C 22 49 30 22 3A 8D 31 36 30 00 44 7A |,15,"I0":.160.Dz|
00001F20: 24 09 98 31 35 2C 22 43 30 3A 44 49 53 4B 20 4D |$..15,"C0:DISK M|
00001F30: 41 53 54 45 52 3D 30 3A 44 49 53 4B 20 4D 41 53 |ASTER=0:DISK MAS|
00001F40: 54 45 52 22 00 58 7A 2E 09 84 31 35 2C 45 4E 3A |TER".Xz...15,EN:|
00001F50: 8B 45 4E B2 36 33 A7 8E 00 87 7A 38 09 99 3A 8D |.EN.63....z8..:.|
00001F60: 32 35 38 30 3A 99 52 56 24 3B 22 49 4E 43 4F 52 |2580:.RV$;"INCOR|
00001F70: 52 45 43 54 20 44 49 53 4B 21 22 3A 8D 32 30 37 |RECT DISK!":.207|
00001F80: 30 3A 89 32 33 32 30 00 B6 7A 42 09 99 48 43 24 |0:.2320..zB..HC$|
00001F90: 3B 22 45 4E 54 45 52 20 4D 49 4E 49 4D 55 4D 20 |;"ENTER MINIMUM |
00001FA0: 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 20 42 |NUMBER OF FREE B|
00001FB0: 4C 4F 43 4B 53 22 00 F2 7A 4C 09 99 3A 99 22 54 |LOCKS"..zL..:."T|
00001FC0: 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 20 20 |O BE DISPLAYED |
00001FD0: 20 30 22 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B | 0";CL$;CL$;CL$;|
00001FE0: 3A 85 53 24 3A 8F 20 2D 20 44 45 46 41 55 4C 54 |:.S$:. - DEFAULT|
00001FF0: 3D 30 00 10 7B 56 09 59 B2 C5 28 53 24 29 3A 8B |=0..{V.Y..(S$):.|
00002000: 53 24 B3 B1 22 30 22 AF 59 B2 30 A7 31 31 36 30 |S$.."0".Y.0.1160|
00002010: 00 1F 7B 60 09 56 46 B2 30 3A 89 32 34 35 30 00 |..{`.VF.0:.2450.|
00002020: 4E 7B 6A 09 99 48 43 24 3B 22 45 4E 54 45 52 20 |N{j..HC$;"ENTER |
00002030: 4D 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 20 4F |MAXIMUM NUMBER O|
00002040: 46 20 46 52 45 45 20 42 4C 4F 43 4B 53 22 00 81 |F FREE BLOCKS"..|
00002050: 7B 74 09 99 3A 99 22 54 4F 20 42 45 20 44 49 53 |{t..:."TO BE DIS|
00002060: 50 4C 41 59 45 44 20 20 20 39 39 22 3B 43 4C 24 |PLAYED 99";CL$|
00002070: 3B 43 4C 24 3B 43 4C 24 3B 43 4C 24 3B 3A 85 53 |;CL$;CL$;CL$;:.S|
00002080: 24 00 97 7B 7E 09 59 B2 C5 28 53 24 29 3A 8B 59 |$..{~.Y..(S$):.Y|
00002090: B2 30 A7 31 31 36 30 00 A0 7B 88 09 56 46 B2 31 |.0.1160..{..VF.1|
000020A0: 00 D3 7B 92 09 8D 31 39 37 30 3A 98 34 2C 22 23 |..{...1970:.4,"#|
000020B0: 42 4C 4B 53 20 46 52 45 45 20 20 49 44 20 20 2E |BLKS FREE ID .|
000020C0: 2E 2E 44 49 53 4B 20 4E 41 4D 45 2E 2E 2E 2E 22 |..DISK NAME...."|
000020D0: 3A 98 34 00 FF 7B 9C 09 81 58 B2 30 A4 4E 58 AB |:.4..{...X.0.NX.|
000020E0: 31 3A 44 49 24 B2 C8 28 58 24 28 58 29 2C 32 29 |1:DI$..(X$(X),2)|
000020F0: 3A 44 4E 24 B2 CA 28 58 24 28 58 29 2C 33 29 00 |:DN$..(X$(X),3).|
00002100: 35 7C A6 09 9F 35 2C 38 2C 35 2C 22 30 3A 44 49 |5|...5,8,5,"0:DI|
00002110: 52 2E 22 AA 44 49 24 AA 22 2C 53 2C 52 22 3A 8D |R.".DI$.",S,R":.|
00002120: 31 36 30 3A 84 35 2C 44 46 24 2C 4E 42 3A 8D 31 |160:.5,DF$,NB:.1|
00002130: 36 30 3A A0 35 00 4D 7C B0 09 8B 28 56 46 B2 30 |60:.5.M|...(VF.0|
00002140: 29 AF 28 4E 42 B3 59 29 A7 32 35 31 30 00 65 7C |).(NB.Y).2510.e||
00002150: BA 09 8B 28 56 46 B2 31 29 AF 28 4E 42 B1 59 29 |...(VF.1).(NB.Y)|
00002160: A7 32 35 31 30 00 92 7C C4 09 98 34 2C C9 28 22 |.2510..|...4,.("|
00002170: 20 20 20 20 20 20 20 22 AA C4 28 4E 42 29 2C 37 | "..(NB),7|
00002180: 29 3B A6 35 29 3B 44 49 24 3B 22 20 20 22 3B 44 |);.5);DI$;" ";D|
00002190: 4E 24 00 A8 7C CE 09 A1 43 24 3A 8B 43 24 B3 B1 |N$..|...C$:.C$..|
000021A0: 22 22 A7 8D 32 30 33 30 00 B9 7C D8 09 8B 43 24 |""..2030..|...C$|
000021B0: B2 22 51 22 A7 31 31 36 30 00 C6 7C E2 09 82 58 |."Q".1160..|...X|
000021C0: 3A 89 31 35 37 30 00 CC 7C EC 09 80 00 D2 7C F6 |:.1570..|.....|.|
000021D0: 09 8F 00 E9 7C 00 0A 8F 20 53 4F 55 4E 44 20 53 |....|... SOUND S|
000021E0: 55 42 52 4F 55 54 49 4E 45 00 EF 7C 0A 0A 8F 00 |UBROUTINE..|....|
000021F0: 13 7D 14 0A 97 20 35 34 32 39 36 2C 31 35 3A 97 |.}... 54296,15:.|
00002200: 35 34 32 37 37 2C 32 3A 97 20 35 34 32 37 38 2C |54277,2:. 54278,|
00002210: 32 35 31 00 44 7D 1E 0A 97 20 35 34 32 37 36 2C |251.D}... 54276,|
00002220: 31 37 3A 97 35 34 32 37 33 2C 38 30 3A 97 20 35 |17:.54273,80:. 5|
00002230: 34 32 37 32 2C 31 30 3A 81 20 51 B2 30 20 A4 20 |4272,10:. Q.0 . |
00002240: 32 32 3A 82 00 5F 7D 28 0A 81 20 51 B2 30 20 A4 |22:.._}(.. Q.0 .|
00002250: 20 33 30 3A 97 35 34 32 37 36 2C 31 36 3A 82 00 | 30:.54276,16:..|
00002260: 65 7D 32 0A 8E 00 00 00 3B 43 |e}2.....;C |
.[@[... VERSION 2.5 2/23/86 **RUNS ON T
HE C128 IN 80 COL MODE**.[...
** TO RUN ON THE C64 OR THE 128 IN
64 MODE..[... REM OUT O
R DELETE LINE 27..[...
AND LINE 2303 - THEN 40 COL MODE OK -..\
... CORRECTED FILE NAME MATCH PROBLEM.U\
... ADDED LOGIC TO DETECT AND LOG DOUBLE
SIDED C128 DISKETTES.X\... RUNS IN FAST
MODE ON THE 128..\... CORRECTED THE PRI
NT GRID..\... NOW CORRECTLY SHOWS LOCKED
FILES -- DISPLAYS < AFTER FILE TYPE..].
..53281,0:.53280,1:."..":.:C$."":S$.C$:X
.0:Y.0.G]..CR$.G(13):HC$.G(147):RV$.G(18
):RF$.G(146):CL$.G(157).U]..SH$.G(32).\]
...%.W]...2060:.D$(460),X$(460)..](.."
READING DIRECTORY CROSS REFERENCE"..]2.
.15,8,15,"I0":.2140..]<..5,8,5,"0:DISK D
IR XREF,S,R"..]F..15,EN,EM$,ET,ES:.EN.62
.190.'^P..5,X$(NX):SS.ST:.2140:NX.NX.1:.
SS.0.80.0^Z..190.T^D.S$."":.X.1.Y:.150:S
$.S$.C$:.X:..I^N..X.1.Y:.150:.X:...^X.V.
0:. 150:.C$.."". V.F(C$)..^.....^.....^.
..#5,C$:. C$.G(160) . C$.SH$.W^ .SS.ST:.
15,EN,EM$,ET,ES:.EN.0....^....._...2580:
.HC$;RV$;"DISK ERROR!":.:.2190.!_.. 4: 5
:CX.0:.2060:.2580.7_H...5);"0 - DONE":..
`_R...5);"1 - UPDATE MASTER DIRECTORY":.
.._....5);"2 - DELETE DISK ENTRY FROM MA
STER":..._....5);"3 - DISPLAY SELECTED D
IRECTORY":..._....5);"4 - FIND SPECIFIED
FILE":...`....5);"5 - LIST DISK ID'S &
NAMES":..0`...2070:."ENTER DESIRED FUNCT
ION: ";.M`...2030:.C$."0"..HC$:.2300.F`
..V.E(C$):.V.1.V.5.270..`"..V.300,1080,8
80,1590,1150..`,. 15:CX.0:.2580:.HC$;"IN
SERT DISK TO BE CATALOGED"..`6..:."DEPRE
SS ANY KEY TO CONTINUE, ";RV$;"Q";RF$;"
TO QUIT"..A@..2030:.C$."Q"..2310:.190.8A
J..2070:."OK":.15,8,15,"I0":.160.MAT..5,
8,5,"$0":.160.}A^..120:VF.V:DD.0: .150:D
D. F(C$) :. "DD= ";DD..AH.NB.0:.Z.1.35:.
120:.Z..18.NB.NB.V..AR.Y.3:.110:.Z.PA|.Y
.16:.100:DN$.S$:Y.2:.110..A..Y.2:.100:DI
$.H(S$." ",2)..B... DD..128 . 400..B...
150:Y.2:. 100: DF$.S$ :. "DF$ = ";DF$.>
B..Y.54 :. 110.^B...QZ.1 . 35: . 120 : N
B.NB.V.FB...QZ..B... 570 . BACK INTO THE
MAINLINER AND IT DOESN'T KNOW..B...2080
:.C$."N".870.BB...NX.0.530..B...X.0.NX.1
:C$.H(X$(X),2):.DI$.C$.530..B...DI$..C$.
.X:.530..C...DN$.J(X$(X),3).530._CB..258
0:.HC$;RV$;"*** WARNING ***";RF$;" THIS
DISK ID: ";RV$;DI$;RF$.|CL..:."DISK NAM
E: ";RV$;DN$..CV..:."IS ALL READY CATALO
GED WITH A DIFFERENT".WC...:."DISK NAME:
";RV$;J(X$(X),3):.2070..D..."CATALOGING
THIS DISK WILL DELETE THE".!D...:."PREV
IOUS DATA!":.2070.MD..."CATALOG THIS DIS
K";:.2110:.C$."N".870..D...2580:.HC$;"CA
TALOGING DISK WITH NEW DISK NAME"..D...2
580:.2070:."READING DIRECTORY ENTRIES ..
.".PD...150:Y.2:.100:DF$.S$:Y.89..D&..VF
.1.DF$." 1"..D0..110..D:.NF.0:Z.0..ED..1
20:FT.V.-EN.F$.C$:Y.2:.110:Y.16:.100:Y.9
:.110.PEX..120:S$.S$.G(V):.120:.FT.0.670
.^EB..NF.0.640..EL..X.1.NF:.H(S$,16).J(D
$(X),2,16).650..EV..X..E..X.NF.1:.660..E
...Y.NF.X..1:D$(Y.1).D$(Y):.Y.ZE..D$(X).
F$.S$.G(V):NF.NF.1..F..Z.Z.1:Z.Z.(.(Z.8)
.8):.Z.0.Y.2:.110..F...NF.155.740.PF...2
580:.HC$;.6);RV$;"*** DISK BAM IS INVALI
D ***";RF$:.2070..F...:." CURRENT DISK
CANNOT BE CATALOGED!":.:.:...FF.." PLEA
SE VERIFY OR CHECK DISK CONTENTS":...FP.
."BEFORE ATTEMPTING TO CATALOG THIS DISK
.":.2580:...FZ..2070:.2020:.870..G...SS.
0.580.GG.. 5:.2310:.2070:.2580:."UPDATIN
G MASTER DIRECTORY ...".UG...NX.0.810.}G
...X.0.NX.1:C$.H(X$(X),2):.DI$.C$.800..G
...DI$.C$.830..G...X:.810..G ..Y.NX.1.X.
.1:X$(Y.1).X$(Y):.Y:.820.IG*.X.NX.UG4.NX
.NX.1..G>.X$(X).DI$.DN$:CX.1..HH..1930:.
15,"S".S$:.5,8,5,S$.",S,W":.160.3HR..5,D
F$;",";NB;CR$;:.160.[H\..NF.0..X.1.NF:.5
,D$(X);CR$;:.160:.X.MHF. 5:.2210:.300..H
P..HC$;"TO DISPLAY DISK DIRECTORY":.1770
:.V.190,880.RHZ..5,8,5,S$.",S,R":.160:.1
970:.5,DF$,NB:.160..H...4," DISK NAME:"
;RF$;" ";DN$:.4..I...4,"".4)"DISK ID:"R
F$" ";DI$;.6).CI...4,"DISK FORMAT:";RF$
;" "DF$:.4.GI...4,"BLOCKS FREE:";RF$;"
";NB:.4..I...4,"------------------------
---------------":.4..I..NF.0:.SS.0.1060.
ZI...120:FT.V:Y.16:.100:.120:Z.V:.120:.1
50..JJ..4,I(" ".D(Z.(256.V)),4);" ";
S$;" ";..JT..FT.129..4,"SEQ";.;JY.. FT
. 193 . .4, "SEQ<";.QJ...FT.130..4,"PGM"
;.MJ... FT. 194 . .4, "PGM<";..J...FT.13
1..4,"USR";..J... FT. 195 . .4, "USR<";.
.J...FT.132..4,"REL";.QJ... FT. 196 . .4
, "REL<";..J...4:.C$:.C$..""..2030..J...
C$."Q".1070..K..NF.NF.1:.SS.0.960.0K...4
:.4,"#FILES:";RF$;" ";NF.FK$..PD.3..2070
:.2020.UK.. 4: 5:.880..K8..HC$;"TO DELET
E DISK FROM MASTER DIRECTORY"..KB..1770:
.V.1140,1080..KL..15,"S".S$.SKV.CX.0:.X.
0.NX.1:.H(X$(X),2).DI$.CX.1..K`..CX.X$(X
).X$(X.1)..KJ..X:NX.NX.1:.1080..LT..2210
:.190."L~..NX.0..1780:.190./L.. 4:.2060.
]L....5);"0 - RETURN TO MAIN FUNCTION ME
NU":...L....5);"1 - PRINT FULL ID USAGE
CHART":...L....5);"2 - QUICK LIST OF ID'
S IN USE":...L....5);"3 - LIST DISK ID'S
& NAMES":...M....5);"4 - LIST ";RV$;"MI
N";RF$;" FREE BLOCKS PER DISK":..SMD...5
);"5 - LIST ";RV$;"MAX";RF$;" FREE BLOCK
S PER DISK".{MN..2070:."ENTER DESIRED FU
NCTION: ";..MX..2030:. C$."0".190..M..V
.E(C$):.V.1.V.5.1240.PM...C$:.V.1270,145
0,1520,2370,2410.YM...4,4..N...4,"".15);
RV$;" D I S K I D U S E A G E C H A
R T ".%N...4:.4," ";.=N...X.48.90:.X.58
.X.65.TN...4," ";G(X);:.X:.4.QN(.Z.0:.X.
48. 90:.X.58.X.65..N2..4," .............
..............................";.PN<..4,
".............................."..NF..4,
G(X);..NP..Y.48.90:.Y.58.Y.65..OZ..4,G(2
21);:.Z.NX.1400..OD.C$.G(X).G(Y):S$.H(X$
(Z),2).QON..S$.C$ ..4,G(166);:Z.Z.1:.141
0.]OX..4," ";..O...Y:.4,G(221):.C$:.C$..
""..2030..O...C$.."Q"..X.GO...4," ......
.....................................";.
.O ..4,"..............................":
.1160.%P...1970:.4,"".7);"DISK ID'S CURR
ENTLY IN USE"./P...4:.4.DP..V.12:. PD.4.
V.25.IPH.Z.0:.X.0.NX.1:.4,H(X$(X),2);" "
;..PR.Z.Z.1:.Z..(Z.V).V..4..P...X:.4:.4:
.Z...(Z.V).V..4.JP...4,Z;"DISKS IN MASTE
R DIRECTORY":.1570..P...1970:.4,"ID ...
DISK NAME....":.4..Q...X.0.NX.1:.4,H(X$(
X),2);" ";J(X$(X),3).3Q...C$:.C$..""..2
030.DQ...C$."Q".1160.KQ...X.ZQ"..PD.4.11
60.PQ,..2070:.2020:.1160..Q6..NX.0..1780
:.190..Q@. 4:.HC$;"TO FIND WHAT DISK(S)
A FILE IS ON":...QJ.."ENTER FILE NAME
.";CL$;CL$;CL$;:.F$:.F$.".".190..RT..F$.
"*"..:."RE-";:.1610.%R^.S$.F$:.1940:V.Y:
.1970.XRH..4,"...FILE NAME.... ID ...D
ISK NAME....":.4.ERR..4,S$:.4..R|..Z.0.N
X.1:DI$.H(X$(Z),2):DN$.J(X$(Z),3).FR...1
930:.5,8,5,S$.",S,R":EF.15:.160:.5,DF$,N
B:.160..R...150:Y.16:.100:Y.3:.110..R...
F$.H(S$,V).1740./S...F$.H(S$,V)..4,S$;"
";DI$" ";DN$:. <- 2 SPACES EA.ES...C$:
.C$..""..2030.ZS...C$."Q". 5:.1600.ISB..
SS.0.1680.SSL. 5:.Z..SV..PD.3..2070:.202
0..S...1600..S..V.3:.NX.0.1790.KS...HC$;
RV$;"NO ENTRIES";:V.1:.1910..S...:."ENTE
R DISK ID .";CL$;CL$;CL$;:.DI$..T..DI$
.H(DI$." ",2):.DI$.". ".1850.ET...X.0.N
X.1:.DI$..H(X$(X),2)..X:.1900.GT..DN$.J(
X$(X),3):DI$.H(X$(X),2).T&..2080:.C$."N
".V.2:...T0..1930..T:..:."ENTER DISK NAM
E .";CL$;CL$;CL$;:.F$.ITD..F$.".".V.1:
...TN..1940:.X.0.NX.1:.Y.0.1920..UX..F$.
J(X$(X),3,Y).1920..UB..X.$UL..:.2580:.RV
$;"NOT";:V.2.MUV.." IN MASTER DIRECTORY!
":.2070:.2020..U..DN$.J(X$(X),3):DI$.H(X
$(X),2):.2080:.C$."N".1890..U..S$."0:DIR
.".DI$:...U..F$.H(F$,16).PU...I(F$,1)."*
".Y.C(F$).1:F$.H(F$,Y):...U..Y.16:F$.H(F
$." ",16):..,V...2070:.25
80:."WANT PRINTED COPY";:.2110:.2070.BV.
.PD.3:.C$."Y".PD.4.XVF..4,PD:.PD.3..HC$;
.^VP...DVZ....V..."DEPRESS ANY KEY TO CO
NTINUE"..V...C$:.C$."".2030..V.....V....
VV...2580:.HC$;.9);RV$;"D I S K M A S
T E R"..W..."---------------------------
-------------":..3W ..2580:.HC$;"DISK NA
ME:";RF$;" ";DN$:..XW*.." DISK ID:";RF
$;" ";DI$:.2070.MW4.."CORRECT DISK";..W
>.." (Y/N) ? ";. WH..2030:.C$.."Y".C$..
"N".2120..WR..C$:..GW\..15,EN,EM$,ET,ES:
.EN.0....WF..2580:.HC$;RV$;"DISK ERROR";
RF$;" WHILE ";..XP..CX.."WRITING NEW"."X
Z..CX.0.."READING".RX...:."DISK DIRECTOR
Y CROSS REFERENCE FILE.":..DX...EN;EM$;E
T;ES..X...:.2580:.RV$;"PROGRAM ABORTED!"
:.2300..X...CX.0...PX...2070:."UPDATING
DIRECTORY CROSS REFERENCE ...":...X...NX
.0..15,"S0:DISK DIR XREF":...Y...15,"S0:
DIR XREF.TEMP".5YJ..5,8,5,"0:DIR XREF.TE
MP,S,W":.2140.ZYT..X.0.NX.1:.5,X$(X);CR$
;:.2140:.X.XY.. 5:.15,"S0:DISK DIR XREF"
..Y...15,"R0:DISK DIR XREF=0:DIR XREF.TE
MP":.2140..Y....CY.. 4: 5: 15:.&: ..JY..
.&.PY....ZY...HC$;..Z.. 15:.2580:."INSER
T MASTER DISK":.:.2020..Z...15,8,15,"I0"
:.160.DZ$..15,"C0:DISK MASTER=0:DISK MAS
TER".XZ...15,EN:.EN.63....Z8..:.2580:.RV
$;"INCORRECT DISK!":.2070:.2320..ZB..HC$
;"ENTER MINIMUM NUMBER OF FREE BLOCKS"..
ZL..:."TO BE DISPLAYED 0";CL$;CL$;CL$;
:.S$:. - DEFAULT=0..{V.Y.E(S$):.S$.."0".
Y.0.1160..{`.VF.0:.2450.N{J..HC$;"ENTER
MAXIMUM NUMBER OF FREE BLOCKS"..{T..:."T
O BE DISPLAYED 99";CL$;CL$;CL$;CL$;:.S
$..{~.Y.E(S$):.Y.0.1160. {..VF.1.S{...19
70:.4,"#BLKS FREE ID ...DISK NAME...."
:.4..{...X.0.NX.1:DI$.H(X$(X),2):DN$.J(X
$(X),3).5|...5,8,5,"0:DIR.".DI$.",S,R":.
160:.5,DF$,NB:.160: 5.M|...(VF.0).(NB.Y)
.2510.E|...(VF.1).(NB.Y).2510..|D..4,I("
".D(NB),7);.5);DI$;" ";DN$..|N..
C$:.C$..""..2030..|X..C$."Q".1160.F|...X
:.1570.L|....R|.....|... SOUND SUBROUTIN
E..|.....}... 54296,15:.54277,2:. 54278,
251.D}... 54276,17:.54273,80:. 54272,10:
. Q.0 . 22:.._}(.. Q.0 . 30:.54276,16:..
E}2.....;C
> CLICK IMAGE PREVIEW FOR FULL MODAL