Multiple names: DISK UTILITY -80, DISK.PRG.80
FILE INFORMATION
FILENAME(S):
• DISK UTILITY -80<br>• DISK.PRG.80
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-10-20 14:30:23
APPEARS ON: 3 disk(s)
FILE HASH
f5c60117a3c527e026c0d639d192a13ed4ce5fa985b108c11bc624e256e2034d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT 128 PD | DISK UTILITY -80 | PRG | Treasure Chest - Klaus Der Suhler | 8 | 0 | DOWNLOAD FILE |
| IKL | DISK.PRG.80 | PRG | Treasure Chest - Plattfuss | 26 | 0 | DOWNLOAD FILE |
| 1 | DISK UTILITY -80 | PRG | Treasure Chest - Plattfuss | 31 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1E 1C 0A 00 8F 20 20 20 20 2A 2A 2A 2A 2A |....... *****|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B |**************.;|
00000020: 1C 0F 00 8F 20 20 20 20 2A 20 43 2D 31 32 38 20 |.... * C-128 |
00000030: 55 54 49 4C 49 54 49 45 53 20 2A 00 58 1C 14 00 |UTILITIES *.X...|
00000040: 8F 20 20 20 20 2A 20 20 20 20 20 2D 2D 2D 2D 2D |. * -----|
00000050: 2D 2D 20 20 20 20 20 2A 00 75 1C 19 00 8F 20 20 |-- *.u.... |
00000060: 20 20 2A 20 43 4F 4E 56 45 52 54 45 44 20 46 52 | * CONVERTED FR|
00000070: 4F 4D 20 20 2A 00 92 1C 1E 00 8F 20 20 20 20 2A |OM *...... *|
00000080: 20 43 2D 36 34 20 56 45 52 53 49 4F 4E 20 42 59 | C-64 VERSION BY|
00000090: 20 2A 00 AF 1C 23 00 8F 20 20 20 20 2A 20 20 20 | *...#.. * |
000000A0: 48 41 52 52 49 4E 47 54 4F 4E 20 20 20 20 2A 00 |HARRINGTON *.|
000000B0: CC 1C 28 00 8F 20 20 20 20 2A 20 20 20 20 20 20 |..(.. * |
000000C0: 39 2F 38 35 20 20 20 20 20 20 20 2A 00 E9 1C 2D |9/85 *...-|
000000D0: 00 8F 20 20 20 20 2A 20 20 20 20 20 2D 2D 2D 2D |.. * ----|
000000E0: 2D 2D 2D 20 20 20 20 20 2A 00 06 1D 32 00 8F 20 |--- *...2.. |
000000F0: 20 20 20 2A 20 20 20 20 38 30 20 43 4F 4C 55 4D | * 80 COLUM|
00000100: 4E 20 20 20 20 2A 00 23 1D 37 00 8F 20 20 20 20 |N *.#.7.. |
00000110: 2A 20 46 41 53 54 20 56 45 52 53 49 4F 4E 20 42 |* FAST VERSION B|
00000120: 59 20 2A 00 40 1D 3C 00 8F 20 20 20 20 2A 20 20 |Y *.@.<.. * |
00000130: 20 20 4D 49 4B 45 20 57 41 52 44 20 20 20 20 2A | MIKE WARD *|
00000140: 00 5D 1D 41 00 8F 20 20 20 20 2A 20 20 20 20 31 |.].A.. * 1|
00000150: 30 2F 32 34 2F 38 35 20 20 20 20 20 2A 00 7A 1D |0/24/85 *.z.|
00000160: 46 00 8F 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |F.. *********|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 84 1D 4A 00 D7 |**********...J..|
00000180: 31 34 30 35 00 8A 1D 4B 00 8F 00 9C 1D 4C 00 8B |1405...K.....L..|
00000190: CE 09 28 32 29 B2 34 30 A7 31 30 35 00 A8 1D 50 |..(2).40.105...P|
000001A0: 00 FE 25 3A DE 35 2C 31 00 C3 1D 55 00 E8 3A E7 |..%:.5,1...U..:.|
000001B0: 30 2C 31 3A E7 34 2C 31 3A E7 35 2C 31 35 3A E7 |0,1:.4,1:.5,15:.|
000001C0: 36 2C 31 00 C9 1D 5A 00 8F 00 D2 1D 5F 00 8D 36 |6,1...Z....._..6|
000001D0: 30 35 00 DB 1D 60 00 89 31 34 30 00 E7 1D 69 00 |05...`..140...i.|
000001E0: FE 26 3A DE 30 2C 31 00 13 1E 6E 00 99 22 11 11 |.&:.0,1...n.."..|
000001F0: 11 1D 1D 1D 1D 1D 20 20 20 20 54 48 49 53 20 50 |...... THIS P|
00000200: 52 4F 47 52 41 4D 20 52 55 4E 53 20 49 4E 20 54 |ROGRAM RUNS IN T|
00000210: 48 45 22 00 42 1E 73 00 99 22 11 1D 1D 38 30 20 |HE".B.s.."...80 |
00000220: 43 4F 4C 55 4D 4E 20 4D 4F 44 45 20 2D 20 41 44 |COLUMN MODE - AD|
00000230: 4A 55 53 54 20 59 4F 55 52 20 4D 4F 4E 49 54 4F |JUST YOUR MONITO|
00000240: 52 22 00 63 1E 78 00 99 22 11 1D 1D 1D 1D 1D 1D |R".c.x..".......|
00000250: 1D 1D 1D 1D 1D 1D 20 20 41 43 43 4F 52 44 49 4E |...... ACCORDIN|
00000260: 47 4C 59 00 97 1E 7D 00 99 22 11 11 11 11 11 11 |GLY...}.."......|
00000270: 1D 1D 1D 1D 1D 1D 1D 20 50 52 45 53 53 20 41 4E |....... PRESS AN|
00000280: 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 |Y KEY WHEN READY|
00000290: 22 3A 99 C7 28 37 29 00 A0 1E 82 00 A1 F9 4B 24 |":..(7).......K$|
000002A0: 00 AC 1E 87 00 FE 25 3A DE 35 2C 31 00 C7 1E 8C |......%:.5,1....|
000002B0: 00 9C 3A E7 30 2C 31 3A E7 34 2C 31 3A E7 35 2C |..:.0,1:.4,1:.5,|
000002C0: 31 35 3A E7 36 2C 31 00 0C 1F 91 00 8D 36 30 35 |15:.6,1......605|
000002D0: 3A 99 A3 31 35 29 22 05 11 11 42 59 20 48 41 52 |:..15)"...BY HAR|
000002E0: 52 49 4E 47 54 4F 4E 20 20 20 20 20 20 20 20 20 |RINGTON |
000002F0: 20 20 20 20 20 20 4D 4F 44 49 46 49 45 44 20 42 | MODIFIED B|
00000300: 59 20 4D 49 4B 45 20 57 41 52 44 22 00 36 1F 93 |Y MIKE WARD".6..|
00000310: 00 99 A3 32 35 29 22 05 11 11 B0 C0 C0 C0 C0 C0 |...25)".........|
00000320: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000330: C0 C0 C0 C0 AE 22 00 5F 1F 96 00 99 A3 32 35 29 |....."._.....25)|
00000340: 22 C2 9A 20 20 20 20 20 20 20 20 4D 41 49 4E 20 |".. MAIN |
00000350: 4D 45 4E 55 05 20 20 20 20 20 20 20 20 DD 22 00 |MENU. .".|
00000360: 86 1F 9B 00 99 A3 32 35 29 22 AB C0 C0 C0 C0 C0 |......25)"......|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000380: C0 C0 C0 C0 B3 22 00 AF 1F A0 00 99 A3 32 35 29 |.....".......25)|
00000390: 22 C2 9A 20 5B 31 5D 20 46 4F 52 4D 41 54 20 41 |".. [1] FORMAT A|
000003A0: 20 44 49 53 4B 05 20 20 20 20 20 20 20 DD 22 00 | DISK. .".|
000003B0: D8 1F A5 00 99 A3 32 35 29 22 C2 9A 20 5B 32 5D |......25)".. [2]|
000003C0: 20 43 48 41 4E 47 45 20 41 20 44 49 53 4B 20 4E | CHANGE A DISK N|
000003D0: 41 4D 45 05 20 20 DD 22 00 01 20 AA 00 99 A3 32 |AME. .".. ....2|
000003E0: 35 29 22 C2 9A 20 5B 33 5D 20 43 48 41 4E 47 45 |5)".. [3] CHANGE|
000003F0: 20 41 20 44 49 53 4B 20 49 44 05 20 20 20 20 DD | A DISK ID. .|
00000400: 22 00 2A 20 AF 00 99 A3 32 35 29 22 C2 9A 20 5B |".* ....25)".. [|
00000410: 34 5D 20 52 45 43 4F 56 45 52 20 28 55 4E 53 43 |4] RECOVER (UNSC|
00000420: 52 41 54 43 48 29 05 20 DD 22 00 53 20 B4 00 99 |RATCH). .".S ...|
00000430: A3 32 35 29 22 C2 9A 20 5B 35 5D 20 52 45 4E 41 |.25)".. [5] RENA|
00000440: 4D 45 20 41 20 46 49 4C 45 05 20 20 20 20 20 20 |ME A FILE. |
00000450: 20 DD 22 00 7C 20 B9 00 99 A3 32 35 29 22 C2 9A | .".| ....25)"..|
00000460: 20 5B 36 5D 20 43 48 41 4E 47 45 20 44 45 56 49 | [6] CHANGE DEVI|
00000470: 43 45 20 4E 55 4D 42 45 52 05 DD 22 00 A5 20 BE |CE NUMBER..".. .|
00000480: 00 99 A3 32 35 29 22 C2 9A 20 5B 37 5D 20 53 4F |...25)".. [7] SO|
00000490: 52 54 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 |RT DISK DIRECTOR|
000004A0: 59 05 20 DD 22 00 CE 20 C3 00 99 A3 32 35 29 22 |Y. .".. ....25)"|
000004B0: C2 9A 20 5B 38 5D 20 47 45 54 20 44 49 53 4B 20 |.. [8] GET DISK |
000004C0: 44 49 52 45 43 54 4F 52 59 05 20 20 DD 22 00 F7 |DIRECTORY. ."..|
000004D0: 20 C6 00 99 A3 32 35 29 22 C2 9A 20 5B 39 5D 20 | ....25)".. [9] |
000004E0: 51 55 49 54 20 54 48 49 53 20 50 52 4F 47 52 41 |QUIT THIS PROGRA|
000004F0: 4D 05 20 20 20 DD 22 00 1F 21 C8 00 99 A3 32 35 |M. ."..!....25|
00000500: 29 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |)"..............|
00000510: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3B 00 |.............";.|
00000520: 29 21 CD 00 99 C7 28 37 29 00 32 21 D2 00 A1 F9 |)!....(7).2!....|
00000530: 4B 24 00 4F 21 D7 00 8B 4B 24 B3 22 31 22 B0 4B |K$.O!...K$."1".K|
00000540: 24 B1 22 39 22 A7 8D 34 35 30 3A 89 32 31 30 00 |$."9"..450:.210.|
00000550: 87 21 DC 00 41 B2 C6 28 4B 24 29 AB 34 38 3A 91 |.!..A..(K$).48:.|
00000560: 41 89 32 34 35 2C 33 36 35 2C 33 37 35 2C 31 30 |A.245,365,375,10|
00000570: 32 35 2C 39 38 35 2C 32 39 30 2C 36 32 35 2C 32 |25,985,290,625,2|
00000580: 30 30 30 2C 32 33 35 00 9B 21 E6 00 8F 2D 2D 2D |000,235..!...---|
00000590: 2D 20 45 58 49 54 20 2D 2D 2D 2D 00 A3 21 EB 00 |- EXIT ----..!..|
000005A0: E8 3A 80 00 B2 21 F0 00 8D 34 35 30 20 3A 89 32 |.:...!...450 :.2|
000005B0: 31 30 00 C0 21 F5 00 8D 35 38 35 3A 8D 36 30 35 |10..!...585:.605|
000005C0: 00 DC 21 FA 00 8F 2D 2D 2D 2D 2D 20 46 4F 52 4D |..!...----- FORM|
000005D0: 41 54 20 44 49 53 4B 20 2D 2D 2D 2D 00 FC 21 FF |AT DISK ----..!.|
000005E0: 00 99 22 11 11 11 11 11 11 11 11 11 11 12 44 49 |.."...........DI|
000005F0: 53 4B 20 4E 41 4D 45 3A 92 20 22 3B 00 10 22 04 |SK NAME:. ";..".|
00000600: 01 4C B2 31 36 3A 8D 34 39 35 3A 44 24 B2 4E 24 |.L.16:.495:D$.N$|
00000610: 00 28 22 09 01 99 3A 99 22 12 44 49 53 4B 20 49 |.("...:.".DISK I|
00000620: 2E 44 2E 3A 92 20 22 3B 00 35 22 0E 01 4C B2 32 |.D.:. ";.5"..L.2|
00000630: 3A 8D 34 39 35 00 52 22 13 01 9F 31 35 2C 38 2C |:.495.R"...15,8,|
00000640: 31 35 2C 22 4E 30 3A 22 AA 44 24 AA 22 2C 22 AA |15,"N0:".D$.",".|
00000650: 4E 24 00 60 22 18 01 8D 34 36 30 3A 89 31 34 35 |N$.`"...460:.145|
00000660: 00 84 22 1D 01 8F 2D 2D 2D 2D 20 43 48 41 4E 47 |.."...---- CHANG|
00000670: 45 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 20 |E DEVICE NUMBER |
00000680: 2D 2D 2D 2D 00 AF 22 22 01 8D 36 30 35 3A 99 22 |----..""..605:."|
00000690: 11 11 11 1D 44 49 53 4B 20 43 48 41 4E 47 45 20 |....DISK CHANGE |
000006A0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 92 22 00 |INSTRUCTIONS .".|
000006B0: F5 22 27 01 99 22 11 20 50 4F 57 45 52 20 4F 46 |."'..". POWER OF|
000006C0: 46 20 53 4C 41 56 45 20 44 52 49 56 45 20 54 4F |F SLAVE DRIVE TO|
000006D0: 20 42 45 20 43 4F 50 49 45 44 20 54 4F 20 20 20 | BE COPIED TO |
000006E0: 54 48 45 4E 20 48 49 54 20 27 52 45 54 55 52 4E |THEN HIT 'RETURN|
000006F0: 27 22 3A 85 46 00 28 23 2C 01 9F 31 35 2C 38 2C |'":.F.(#,..15,8,|
00000700: 31 35 3A 98 31 35 2C 22 4D 2D 57 22 C7 28 31 31 |15:.15,"M-W".(11|
00000710: 39 29 C7 28 30 29 C7 28 32 29 C7 28 34 32 29 C7 |9).(0).(2).(42).|
00000720: 28 37 34 29 3A A0 31 35 00 6E 23 31 01 99 22 11 |(74):.15.n#1..".|
00000730: 20 50 4F 57 45 52 20 4F 4E 20 53 4C 41 56 45 20 | POWER ON SLAVE |
00000740: 44 52 49 56 45 20 28 4E 45 57 20 44 45 56 49 43 |DRIVE (NEW DEVIC|
00000750: 45 20 23 39 29 20 20 20 20 54 48 45 4E 20 48 49 |E #9) THEN HI|
00000760: 54 20 27 52 45 54 55 52 4E 27 22 3A 85 46 00 A1 |T 'RETURN'":.F..|
00000770: 23 36 01 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |#6..15,8,15:.15,|
00000780: 22 4D 2D 57 22 C7 28 31 31 39 29 C7 28 30 29 C7 |"M-W".(119).(0).|
00000790: 28 32 29 C7 28 34 31 29 C7 28 37 33 29 3A A0 31 |(2).(41).(73):.1|
000007A0: 35 00 D5 23 3B 01 9F 31 35 2C 31 30 2C 31 35 3A |5..#;..15,10,15:|
000007B0: 98 31 35 2C 22 4D 2D 57 22 C7 28 31 31 39 29 C7 |.15,"M-W".(119).|
000007C0: 28 30 29 C7 28 32 29 C7 28 34 30 29 C7 28 37 32 |(0).(2).(40).(72|
000007D0: 29 3A A0 20 35 00 FD 23 40 01 99 22 11 11 20 44 |):. 5..#@..".. D|
000007E0: 49 53 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 |ISK DRIVE DEVICE|
000007F0: 20 4E 55 4D 42 45 52 53 20 41 52 45 22 00 0E 24 | NUMBERS ARE"..$|
00000800: 45 01 99 22 20 43 48 41 4E 47 45 44 2E 22 00 1B |E.." CHANGED."..|
00000810: 24 4A 01 FE 0B 32 3A 89 31 34 30 00 4E 24 4F 01 |$J...2:.140.N$O.|
00000820: E8 3A 99 22 9A B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |.:."............|
00000830: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000840: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 22 00 5A |.............".Z|
00000850: 24 54 01 99 22 11 11 11 22 3B 00 86 24 59 01 99 |$T.."...";..$Y..|
00000860: A3 37 29 22 12 50 52 45 53 53 20 41 4E 59 20 4B |.7)".PRESS ANY K|
00000870: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |EY TO CONTINUE."|
00000880: 3A 8D 34 35 30 20 00 99 24 5E 01 A1 4B 24 3A 8B |:.450 ..$^..K$:.|
00000890: 4B 24 B2 22 22 A7 33 35 30 00 AA 24 63 01 8D 36 |K$."".350..$c..6|
000008A0: 30 35 20 3A 8D 33 33 35 3A 8E 00 CA 24 68 01 8F |05 :.335:...$h..|
000008B0: 2D 2D 2D 2D 20 43 48 41 4E 47 45 20 44 49 53 4B |---- CHANGE DISK|
000008C0: 20 4E 41 4D 45 20 2D 2D 2D 2D 00 F6 24 6D 01 42 | NAME ----..$m.B|
000008D0: B2 31 34 34 3A 4C B2 31 36 3A 44 24 B2 22 12 4E |.144:L.16:D$.".N|
000008E0: 45 57 20 44 49 53 4B 20 4E 41 4D 45 3A 92 20 22 |EW DISK NAME:. "|
000008F0: 3A 89 33 38 30 20 00 14 25 72 01 8F 2D 2D 2D 2D |:.380 ..%r..----|
00000900: 20 43 48 41 4E 47 45 20 44 49 53 4B 20 49 44 20 | CHANGE DISK ID |
00000910: 2D 2D 2D 2D 00 39 25 77 01 42 B2 31 36 32 3A 4C |----.9%w.B.162:L|
00000920: B2 32 3A 44 24 B2 22 12 4E 45 57 20 44 49 53 4B |.2:D$.".NEW DISK|
00000930: 20 49 2E 44 2E 3A 92 20 22 00 48 25 7C 01 8D 35 | I.D.:. ".H%|..5|
00000940: 38 35 3A 8D 36 30 35 20 00 5E 25 81 01 99 22 11 |85:.605 .^%...".|
00000950: 11 11 11 11 11 11 11 11 11 22 AA 44 24 3B 00 67 |.........".D$;.g|
00000960: 25 86 01 8D 34 39 35 00 88 25 8B 01 8B C3 28 4E |%...495..%....(N|
00000970: 24 29 B3 31 36 A7 4E 24 B2 4E 24 AA C7 28 31 36 |$).16.N$.N$..(16|
00000980: 30 29 3A 89 33 39 35 20 00 90 25 90 01 58 B2 30 |0):.395 ..%..X.0|
00000990: 00 9B 25 95 01 EB 20 FC 58 B2 32 00 A8 25 9A 01 |..%... .X.2..%..|
000009A0: 58 B2 58 AA 31 3A FE 0F 00 C4 25 9F 01 9F 31 35 |X.X.1:....%...15|
000009B0: 2C 38 2C 31 35 2C 22 49 22 3A 9F 34 2C 38 2C 34 |,8,15,"I":.4,8,4|
000009C0: 2C 22 23 22 00 DA 25 A4 01 98 31 35 2C 22 55 31 |,"#"..%...15,"U1|
000009D0: 3A 22 34 2C 30 2C 31 38 2C 30 00 EC 25 A9 01 98 |:"4,0,18,0..%...|
000009E0: 31 35 2C 22 42 2D 50 3A 22 34 2C 42 00 F6 25 AE |15,"B-P:"4,B..%.|
000009F0: 01 98 34 2C 4E 24 00 0C 26 B3 01 98 31 35 2C 22 |..4,N$..&...15,"|
00000A00: 55 32 3A 22 34 2C 30 2C 31 38 2C 30 00 12 26 B8 |U2:"4,0,18,0..&.|
00000A10: 01 EC 00 27 26 BD 01 A0 34 3A 8D 34 36 30 3A A0 |...'&...4:.460:.|
00000A20: 31 35 3A 89 31 34 35 00 2D 26 C2 01 8E 00 40 26 |15:.145.-&....@&|
00000A30: C7 01 81 5A B2 35 34 32 37 32 A4 35 34 32 39 36 |...Z.54272.54296|
00000A40: 00 53 26 CC 01 99 3A 84 31 35 2C 41 2C 42 24 2C |.S&...:.15,A,B$,|
00000A50: 43 2C 44 00 6D 26 D1 01 8B 41 B3 B1 30 A7 99 22 |C,D.m&...A..0.."|
00000A60: 11 11 11 22 3B 41 3B 42 24 3B 43 3B 44 00 79 26 |...";A;B$;C;D.y&|
00000A70: D6 01 99 22 11 11 11 22 3B 00 9F 26 DB 01 99 A3 |..."...";..&....|
00000A80: 37 29 22 12 50 52 45 53 53 20 41 4E 59 20 4B 45 |7)".PRESS ANY KE|
00000A90: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |Y TO CONTINUE.".|
00000AA0: A9 26 E0 01 8D 34 35 30 20 00 BC 26 E5 01 A1 4B |.&...450 ..&...K|
00000AB0: 24 3A 8B 4B 24 B2 22 22 A7 34 38 35 00 C2 26 EA |$:.K$."".485..&.|
00000AC0: 01 8E 00 D7 26 EF 01 4E 24 B2 22 22 3A 99 22 20 |....&..N$."":." |
00000AD0: 22 3B 3A 8D 34 35 30 00 E0 26 F4 01 8D 35 34 30 |";:.450..&...540|
00000AE0: 00 F0 26 F9 01 8B 4B 24 B2 C7 28 31 33 29 A7 8E |..&...K$..(13)..|
00000AF0: 00 2B 27 FE 01 8B 4B 24 B2 22 11 22 B0 4B 24 B2 |.+'...K$.".".K$.|
00000B00: 22 91 22 B0 4B 24 B2 22 9D 22 B0 4B 24 B2 22 1D |".".K$.".".K$.".|
00000B10: 22 B0 4B 24 B2 22 13 22 B0 4B 24 B2 22 93 22 B0 |".K$.".".K$.".".|
00000B20: 4B 24 B2 22 94 22 A7 89 35 30 30 00 3E 27 03 02 |K$."."..500.>'..|
00000B30: 8B 4B 24 B3 B1 C7 28 32 30 29 A7 35 37 35 00 54 |.K$...(20).575.T|
00000B40: 27 08 02 8B 4E 24 B2 22 22 A7 8D 34 35 30 20 3A |'...N$.""..450 :|
00000B50: 89 35 30 30 00 6B 27 0D 02 4E 24 B2 CA 28 4E 24 |.500.k'..N$..(N$|
00000B60: 2C 31 2C C3 28 4E 24 29 AB 31 29 00 74 27 12 02 |,1,.(N$).1).t'..|
00000B70: 99 4B 24 3B 00 7D 27 17 02 89 35 30 30 00 8C 27 |.K$;.}'...500..'|
00000B80: 1C 02 58 4C 25 B2 C2 28 32 31 31 29 00 A8 27 21 |..XL%..(211)..'!|
00000B90: 02 8B 58 4C 25 B1 33 39 A7 58 4C 25 B2 58 4C 25 |..XL%.39.XL%.XL%|
00000BA0: AB 34 30 3A 89 35 34 35 00 D0 27 26 02 58 4C 25 |.40:.545..'&.XL%|
00000BB0: B2 58 4C 25 AA C2 28 32 31 34 29 AC 34 30 AA 31 |.XL%..(214).40.1|
00000BC0: 30 32 34 3A 58 43 B2 35 34 32 37 32 AA 58 4C 25 |024:XC.54272.XL%|
00000BD0: 00 0C 28 2B 02 97 58 43 2C C2 28 36 34 36 29 3A |..(+..XC,.(646):|
00000BE0: 58 4F 25 B2 C2 28 58 4C 25 29 3A 58 54 25 B2 58 |XO%..(XL%):XT%.X|
00000BF0: 4F 25 3A 58 51 25 B2 31 32 38 3A 8B 58 4F 25 B1 |O%:XQ%.128:.XO%.|
00000C00: 31 32 37 A7 58 51 25 B2 AB 58 51 25 00 37 28 30 |127.XQ%..XQ%.7(0|
00000C10: 02 58 54 25 B2 58 54 25 AA 58 51 25 3A 97 58 4C |.XT%.XT%.XQ%:.XL|
00000C20: 25 2C 58 54 25 3A 58 51 25 B2 AB 58 51 25 3A 81 |%,XT%:XQ%..XQ%:.|
00000C30: 58 52 B2 31 A4 36 30 00 52 28 35 02 A1 4B 24 3A |XR.1.60.R(5..K$:|
00000C40: 8B 4B 24 B3 B1 22 22 A7 97 58 4C 25 2C 58 4F 25 |.K$..""..XL%,XO%|
00000C50: 3A 8E 00 5F 28 3A 02 82 58 52 3A 89 35 36 30 00 |:.._(:..XR:.560.|
00000C60: 77 28 3F 02 8B C3 28 4E 24 29 B2 4C A7 8D 34 35 |w(?...(N$).L..45|
00000C70: 30 20 3A 89 35 30 30 00 8E 28 44 02 4E 24 B2 4E |0 :.500..(D.N$.N|
00000C80: 24 AA 4B 24 3A 99 4B 24 3B 3A 89 35 30 30 00 CC |$.K$:.K$;:.500..|
00000C90: 28 49 02 8D 36 30 35 20 3A 99 22 11 11 11 11 11 |(I..605 :.".....|
00000CA0: 11 11 11 11 11 20 20 20 49 4E 53 45 52 54 20 59 |..... INSERT Y|
00000CB0: 4F 55 52 20 44 49 53 4B 20 41 4E 44 20 50 52 45 |OUR DISK AND PRE|
00000CC0: 53 53 20 12 52 45 54 55 52 4E 92 22 00 D5 28 4E |SS .RETURN."..(N|
00000CD0: 02 8D 34 35 30 00 EC 28 53 02 A1 4B 24 3A 8B 4B |..450..(S..K$:.K|
00000CE0: 24 B3 B1 C7 28 31 33 29 A7 35 39 35 00 F2 28 58 |$...(13).595..(X|
00000CF0: 02 8E 00 4C 29 5D 02 E8 3A 99 22 9A B9 B9 B9 B9 |...L)]..:.".....|
00000D00: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000D10: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000D20: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000D30: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................|
00000D40: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 22 00 A5 29 62 |..........."..)b|
00000D50: 02 99 22 1C 12 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D70: 20 20 20 20 43 2D 31 32 38 20 55 54 49 4C 49 54 | C-128 UTILIT|
00000D80: 49 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |IES |
00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000DA0: 20 20 20 20 22 00 FF 29 67 02 99 22 9A B8 B8 B8 | "..)g.."....|
00000DB0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000DC0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000DD0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000DE0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000DF0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 3A 8E 00 |............":..|
00000E00: 1D 2A 6C 02 8F 2D 2D 2D 2D 20 53 4F 52 54 20 44 |.*l..---- SORT D|
00000E10: 49 52 45 43 54 4F 52 59 20 2D 2D 2D 2D 00 2B 2A |IRECTORY ----.+*|
00000E20: 71 02 8D 35 38 35 3A 8D 36 30 35 00 49 2A 76 02 |q..585:.605.I*v.|
00000E30: 86 20 44 52 24 28 31 34 35 29 2C 53 28 32 30 29 |. DR$(145),S(20)|
00000E40: 2C 4E 4D 24 28 31 34 35 29 00 6A 2A 7B 02 99 22 |,NM$(145).j*{.."|
00000E50: 11 1D 1D 1D 1D 52 45 41 44 49 4E 47 20 44 49 52 |.....READING DIR|
00000E60: 45 43 54 4F 52 59 2E 2E 2E 22 00 77 2A 80 02 9F |ECTORY...".w*...|
00000E70: 31 35 2C 38 2C 31 35 00 86 2A 85 02 9F 35 2C 38 |15,8,15..*...5,8|
00000E80: 2C 35 2C 22 23 22 00 96 2A 8A 02 53 28 31 29 B2 |,5,"#"..*..S(1).|
00000E90: 31 3A 44 45 B2 30 00 9E 2A 8F 02 49 B2 31 00 B8 |1:DE.0..*..I.1..|
00000EA0: 2A 94 02 98 31 35 2C 22 55 31 3A 22 3B 35 3B 30 |*...15,"U1:";5;0|
00000EB0: 3B 31 38 3B 53 28 49 29 00 C2 2A 99 02 49 B2 49 |;18;S(I)..*..I.I|
00000EC0: AA 31 00 CD 2A 9E 02 A1 23 35 2C 54 24 00 E8 2A |.1..*...#5,T$..*|
00000ED0: A3 02 A1 23 35 2C 53 24 3A 53 28 49 29 B2 C6 28 |...#5,S$:S(I)..(|
00000EE0: 53 24 AA C7 28 30 29 29 00 F9 2A A8 02 81 51 B2 |S$..(0))..*...Q.|
00000EF0: 31 A4 38 3A 49 24 B2 22 22 00 10 2B AD 02 44 45 |1.8:I$.""..+..DE|
00000F00: B2 44 45 AA 31 3A 44 52 24 28 44 45 29 B2 22 22 |.DE.1:DR$(DE).""|
00000F10: 00 1C 2B B2 02 81 52 B2 31 A4 33 30 00 27 2B B7 |..+...R.1.30.'+.|
00000F20: 02 A1 23 35 2C 49 24 00 3A 2B BC 02 8B 49 24 B2 |..#5,I$.:+...I$.|
00000F30: 22 22 A7 49 24 B2 C7 28 30 29 00 51 2B C1 02 44 |"".I$..(0).Q+..D|
00000F40: 52 24 28 44 45 29 B2 44 52 24 28 44 45 29 AA 49 |R$(DE).DR$(DE).I|
00000F50: 24 00 59 2B C6 02 82 20 52 00 6F 2B CB 02 8B 51 |$.Y+... R.o+...Q|
00000F60: B3 B1 38 A7 A1 23 35 2C 4E 47 24 2C 4E 47 24 00 |..8..#5,NG$,NG$.|
00000F70: 77 2B D0 02 82 20 51 00 8A 2B D5 02 8B 53 28 49 |w+... Q..+...S(I|
00000F80: 29 B3 32 31 A7 20 89 36 36 30 00 A1 2B DA 02 99 |).21. .660..+...|
00000F90: 22 11 1D 1D 20 20 53 4F 52 54 49 4E 47 2E 2E 2E |"... SORTING...|
00000FA0: 22 00 AE 2B DF 02 81 20 58 B2 31 A4 44 45 00 D4 |"..+... X.1.DE..|
00000FB0: 2B E4 02 4E 4D 24 28 58 29 B2 C8 28 44 52 24 28 |+..NM$(X)..(DR$(|
00000FC0: 58 29 2C 31 29 AA CA 28 44 52 24 28 58 29 2C 34 |X),1)..(DR$(X),4|
00000FD0: 2C 31 36 29 00 E0 2B E9 02 81 50 B2 32 A4 31 37 |,16)..+...P.2.17|
00000FE0: 00 16 2C EE 02 8B CA 28 4E 4D 24 28 58 29 2C 50 |..,....(NM$(X),P|
00000FF0: 2C 31 29 B2 C7 28 31 36 30 29 A7 4E 4D 24 28 58 |,1)..(160).NM$(X|
00001000: 29 B2 CA 28 4E 4D 24 28 58 29 2C 31 2C 50 AB 31 |)..(NM$(X),1,P.1|
00001010: 29 3A 89 37 36 30 00 1E 2C F3 02 82 20 50 00 26 |):.760..,... P.&|
00001020: 2C F8 02 82 20 58 00 2F 2C FD 02 53 31 B2 31 00 |,... X./,..S1.1.|
00001030: 3A 2C 02 03 4C 28 31 29 B2 31 00 46 2C 07 03 52 |:,..L(1).1.F,..R|
00001040: 28 31 29 B2 44 45 00 53 2C 0C 03 4C 31 B2 4C 28 |(1).DE.S,..L1.L(|
00001050: 53 31 29 00 60 2C 11 03 52 31 B2 52 28 53 31 29 |S1).`,..R1.R(S1)|
00001060: 00 6C 2C 16 03 53 31 B2 53 31 AB 31 00 7C 2C 1B |.l,..S1.S1.1.|,.|
00001070: 03 4C 32 B2 4C 31 3A 52 32 B2 52 31 00 95 2C 20 |.L2.L1:R2.R1.., |
00001080: 03 58 24 B2 4E 4D 24 28 B5 28 28 4C 31 AA 52 31 |.X$.NM$(.((L1.R1|
00001090: 29 AD 32 29 29 00 9F 2C 25 03 43 B2 43 AA 31 00 |).2))..,%.C.C.1.|
000010A0: B5 2C 2A 03 8B 4E 4D 24 28 4C 32 29 B1 B2 58 24 |.,*..NM$(L2)..X$|
000010B0: A7 89 38 32 35 00 C1 2C 2F 03 4C 32 B2 4C 32 AA |..825..,/.L2.L2.|
000010C0: 31 00 CA 2C 34 03 89 38 30 35 00 D3 2C 39 03 43 |1..,4..805..,9.C|
000010D0: B2 43 31 00 E9 2C 3E 03 8B 58 24 B1 B2 4E 4D 24 |.C1..,>..X$..NM$|
000010E0: 28 52 32 29 A7 89 38 34 35 00 F5 2C 43 03 52 32 |(R2)..845..,C.R2|
000010F0: B2 52 32 AB 31 00 FE 2C 48 03 89 38 32 35 00 0E |.R2.1..,H..825..|
00001100: 2D 4D 03 8B 4C 32 B1 52 32 A7 89 38 37 35 00 18 |-M..L2.R2..875..|
00001110: 2D 52 03 53 B2 53 AA 31 00 42 2D 57 03 54 24 B2 |-R.S.S.1.B-W.T$.|
00001120: 44 52 24 28 4C 32 29 3A 44 52 24 28 4C 32 29 B2 |DR$(L2):DR$(L2).|
00001130: 44 52 24 28 52 32 29 3A 44 52 24 28 52 32 29 B2 |DR$(R2):DR$(R2).|
00001140: 54 24 00 6C 2D 5C 03 54 24 B2 4E 4D 24 28 4C 32 |T$.l-\.T$.NM$(L2|
00001150: 29 3A 4E 4D 24 28 4C 32 29 B2 4E 4D 24 28 52 32 |):NM$(L2).NM$(R2|
00001160: 29 3A 4E 4D 24 28 52 32 29 B2 54 24 00 78 2D 61 |):NM$(R2).T$.x-a|
00001170: 03 4C 32 B2 4C 32 AA 31 00 84 2D 66 03 52 32 B2 |.L2.L2.1..-f.R2.|
00001180: 52 32 AB 31 00 96 2D 6B 03 8B 4C 32 B3 B2 52 32 |R2.1..-k..L2..R2|
00001190: A7 89 38 30 35 20 00 A8 2D 70 03 8B 4C 32 B1 B2 |..805 ..-p..L2..|
000011A0: 52 31 A7 89 39 30 30 20 00 B4 2D 75 03 53 31 B2 |R1..900 ..-u.S1.|
000011B0: 53 31 AA 31 00 C1 2D 7A 03 4C 28 53 31 29 B2 4C |S1.1..-z.L(S1).L|
000011C0: 32 00 CE 2D 7F 03 52 28 53 31 29 B2 52 31 00 D8 |2..-..R(S1).R1..|
000011D0: 2D 84 03 52 31 B2 52 32 00 E9 2D 89 03 8B 4C 31 |-..R1.R2..-...L1|
000011E0: B3 52 31 A7 89 37 39 35 20 00 F9 2D 8E 03 8B 53 |.R1..795 ..-...S|
000011F0: 31 B1 30 A7 89 37 38 30 20 00 08 2E 93 03 57 B2 |1.0..780 .....W.|
00001200: 49 AB 31 3A 44 57 B2 30 00 2B 2E 98 03 99 22 11 |I.1:DW.0.+....".|
00001210: 1D 1D 20 20 52 45 57 52 49 54 49 4E 47 20 44 49 |.. REWRITING DI|
00001220: 52 45 43 54 4F 52 59 2E 2E 2E 22 00 46 2E 9D 03 |RECTORY...".F...|
00001230: 81 20 49 B2 31 A4 57 3A 98 31 35 2C 22 42 2D 50 |. I.1.W:.15,"B-P|
00001240: 3A 22 3B 35 3B 30 00 61 2E A2 03 54 54 B2 31 38 |:";5;0.a...TT.18|
00001250: 3A 8B 53 28 49 AA 31 29 B2 32 35 35 A7 54 54 B2 |:.S(I.1).255.TT.|
00001260: 30 00 79 2E A7 03 98 35 2C C7 28 54 54 29 3B C7 |0.y....5,.(TT);.|
00001270: 28 53 28 49 AA 31 29 29 3B 00 8D 2E AC 03 81 20 |(S(I.1));...... |
00001280: 51 B2 31 A4 38 3A 44 57 B2 44 57 AA 31 00 9D 2E |Q.1.8:DW.DW.1...|
00001290: B1 03 98 35 2C 44 52 24 28 44 57 29 3B 00 B0 2E |...5,DR$(DW);...|
000012A0: B6 03 8B 51 B3 B1 38 A7 98 35 2C 22 43 44 22 3B |...Q..8..5,"CD";|
000012B0: 00 B8 2E BB 03 82 20 51 00 D2 2E C0 03 98 31 35 |...... Q......15|
000012C0: 2C 22 55 32 3A 22 3B 35 3B 30 3B 31 38 3B 53 28 |,"U2:";5;0;18;S(|
000012D0: 49 29 00 DA 2E C5 03 82 20 49 00 E5 2E CA 03 A0 |I)...... I......|
000012E0: 35 3A A0 31 35 00 F0 2E CF 03 9C 3A 89 31 34 30 |5:.15......:.140|
000012F0: 00 0B 2F D4 03 8F 2D 2D 2D 2D 20 52 45 4E 41 4D |../...---- RENAM|
00001300: 45 20 46 49 4C 45 20 2D 2D 2D 2D 00 19 2F D9 03 |E FILE ----../..|
00001310: 8D 35 38 35 3A 8D 36 30 35 00 2C 2F DE 03 99 22 |.585:.605.,/..."|
00001320: 11 11 11 11 11 11 11 11 11 11 22 3B 00 46 2F E3 |..........";.F/.|
00001330: 03 99 22 12 4F 4C 44 20 46 49 4C 45 20 4E 41 4D |..".OLD FILE NAM|
00001340: 45 3A 92 20 22 3B 00 54 2F E8 03 4C B2 31 36 3A |E:. ";.T/..L.16:|
00001350: 8D 34 39 35 00 76 2F ED 03 44 24 B2 4E 24 3A 99 |.495.v/..D$.N$:.|
00001360: 3A 99 22 12 4E 45 57 20 46 49 4C 45 20 4E 41 4D |:.".NEW FILE NAM|
00001370: 45 3A 92 20 22 3B 00 7F 2F F2 03 8D 34 39 35 00 |E:. ";../...495.|
00001380: 9C 2F F7 03 9F 31 35 2C 38 2C 31 35 2C 22 52 30 |./...15,8,15,"R0|
00001390: 3A 22 AA 4E 24 AA 22 3D 22 AA 44 24 00 AE 2F FC |:".N$."=".D$../.|
000013A0: 03 8D 34 36 30 3A A0 31 35 3A 89 31 34 35 00 CC |..460:.15:.145..|
000013B0: 2F 01 04 8F 2D 2D 2D 2D 20 52 45 43 4F 56 45 52 |/...---- RECOVER|
000013C0: 20 41 20 46 49 4C 45 20 2D 2D 2D 2D 00 10 30 06 | A FILE ----..0.|
000013D0: 04 8D 36 30 35 3A 86 41 28 32 35 35 29 2C 43 25 |..605:.A(255),C%|
000013E0: 28 37 37 2C 32 38 29 2C 44 25 28 31 29 2C 54 25 |(77,28),D%(1),T%|
000013F0: 28 32 32 34 2C 31 29 2C 53 25 28 32 32 34 2C 31 |(224,1),S%(224,1|
00001400: 29 2C 4C 25 28 32 32 34 29 2C 52 25 28 37 37 29 |),L%(224),R%(77)|
00001410: 00 3D 30 0B 04 44 25 28 30 29 B2 35 38 3A 44 25 |.=0..D%(0).58:D%|
00001420: 28 31 29 B2 34 32 3A 5A 24 B2 C7 28 30 29 3A 42 |(1).42:Z$..(0):B|
00001430: 24 B2 C7 28 33 29 3A 44 24 B2 22 30 22 00 78 30 |$..(3):D$."0".x0|
00001440: 10 04 99 22 1D 1D 1D 11 11 11 4C 4F 41 44 49 4E |..."......LOADIN|
00001450: 47 20 46 52 45 45 20 53 45 43 54 4F 52 53 2E 2E |G FREE SECTORS..|
00001460: 2E 22 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 AA |.":.15,8,15,"I".|
00001470: 44 24 3A 8D 31 33 38 35 00 90 30 15 04 9F 33 2C |D$:.1385..0...3,|
00001480: 38 2C 33 2C 22 24 22 AA 44 24 3A 8D 31 33 38 35 |8,3,"$".D$:.1385|
00001490: 00 AB 30 1A 04 41 30 B2 31 3A A1 23 33 2C 41 24 |..0..A0.1:.#3,A$|
000014A0: 3A 41 B2 C6 28 41 24 AA 5A 24 29 00 BE 30 1F 04 |:A..(A$.Z$)..0..|
000014B0: 87 41 31 3A 8B 41 B2 41 31 A7 31 30 37 35 00 D5 |.A1:.A.A1.1075..|
000014C0: 30 24 04 46 25 B2 46 25 AA 31 3A 8B 46 25 B2 33 |0$.F%.F%.1:.F%.3|
000014D0: A7 31 30 39 35 00 E8 30 29 04 87 41 31 3A 8B 41 |.1095..0)..A1:.A|
000014E0: 31 B2 30 A7 31 30 35 35 00 F2 30 2E 04 89 31 30 |1.0.1055..0...10|
000014F0: 36 35 00 05 31 33 04 87 41 31 3A 8B 41 31 B2 30 |65..13..A1:.A1.0|
00001500: A7 31 30 38 35 00 2D 31 38 04 87 42 31 3A 81 4A |.1085.-18..B1:.J|
00001510: B2 41 30 A4 41 31 3A 52 25 28 4A 29 B2 42 31 3A |.A0.A1:R%(J).B1:|
00001520: 82 4A 3A 41 30 B2 4A 3A 89 31 30 37 35 00 51 31 |.J:A0.J:.1075.Q1|
00001530: 3D 04 8B 41 B2 31 B0 41 B2 36 35 A7 44 31 B2 31 |=..A.1.A.65.D1.1|
00001540: 3A 54 39 B2 33 35 3A 53 39 B2 33 3A 44 39 B2 31 |:T9.35:S9.3:D9.1|
00001550: 38 00 73 31 42 04 8B 41 B2 36 37 A7 44 31 B2 32 |8.s1B..A.67.D1.2|
00001560: 35 37 3A 54 39 B2 37 37 3A 53 39 B2 34 3A 44 39 |57:T9.77:S9.4:D9|
00001570: B2 33 39 00 A6 31 47 04 8B 54 39 B2 30 A7 A0 33 |.39..1G..T9.0..3|
00001580: 3A 99 22 20 20 20 44 49 53 4B 20 4E 4F 54 20 52 |:." DISK NOT R|
00001590: 45 43 4F 47 4E 49 5A 45 44 2E 2E 2E 22 3A FE 0B |ECOGNIZED...":..|
000015A0: 32 3A 89 31 34 30 00 BC 31 4C 04 81 4A B2 31 A4 |2:.140..1L..J.1.|
000015B0: 44 31 3A A1 23 33 2C 41 24 3A 82 4A 00 CD 31 51 |D1:.#3,A$:.J..1Q|
000015C0: 04 81 4A B2 31 A4 54 39 3A 54 31 B2 30 00 E7 31 |..J.1.T9:T1.0..1|
000015D0: 56 04 8B 4A B2 35 31 A7 A1 23 33 2C 41 24 2C 41 |V..J.51..#3,A$,A|
000015E0: 24 2C 41 24 2C 41 24 00 FD 31 5B 04 A1 23 33 2C |$,A$,A$..1[..#3,|
000015F0: 41 24 3A 43 B2 C6 28 41 24 AA 5A 24 29 00 22 32 |A$:C..(A$.Z$)."2|
00001600: 60 04 4B 31 B2 30 3A 81 4B B2 30 A4 53 39 AB 31 |`.K1.0:.K.0.S9.1|
00001610: 3A A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA 5A |:.#3,A$:A..(A$.Z|
00001620: 24 29 00 55 32 65 04 81 4C B2 30 A4 37 3A 41 25 |$).U2e..L.0.7:A%|
00001630: B2 41 AD 32 3A 44 31 B2 41 AB 41 25 AC 32 3A 8B |.A.2:D1.A.A%.2:.|
00001640: 4B 31 B3 B2 52 25 28 4A 29 A7 43 25 28 4A 2C 4B |K1..R%(J).C%(J,K|
00001650: 31 29 B2 44 31 00 74 32 6A 04 41 B2 41 25 3A 54 |1).D1.t2j.A.A%:T|
00001660: 31 B2 54 31 AA 44 31 3A 4B 31 B2 4B 31 AA 31 3A |1.T1.D1:K1.K1.1:|
00001670: 82 4C 2C 4B 00 7B 32 6F 04 82 4A 00 82 32 74 04 |.L,K.{2o..J..2t.|
00001680: A0 33 00 98 32 79 04 9F 32 2C 38 2C 32 2C 22 23 |.3..2y..2,8,2,"#|
00001690: 30 22 3A 8D 31 33 38 35 00 C6 32 7E 04 4B B2 30 |0":.1385..2~.K.0|
000016A0: 3A 99 22 11 1D 1D 20 4C 4F 4F 4B 49 4E 47 20 46 |:."... LOOKING F|
000016B0: 4F 52 20 53 43 52 41 54 43 48 45 44 20 46 49 4C |OR SCRATCHED FIL|
000016C0: 45 53 2E 2E 2E 22 00 F6 32 83 04 99 22 2D 2D 2D |ES..."..2..."---|
000016D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016F0: 2D 2D 2D 2D 2D 22 00 03 33 88 04 54 B2 44 39 3A |-----"..3..T.D9:|
00001700: 53 B2 31 00 0D 33 8D 04 8D 31 33 35 35 00 34 33 |S.1..3...1355.43|
00001710: 92 04 81 44 B2 32 A4 32 35 35 A9 33 32 3A 8B 41 |...D.2.255.32:.A|
00001720: 28 44 29 B3 B1 30 B0 41 28 44 AA 31 29 B2 30 A7 |(D)..0.A(D.1).0.|
00001730: 31 31 39 35 00 5A 33 97 04 8B 4B B2 30 A7 99 22 |1195.Z3...K.0.."|
00001740: 1D 1D 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |..DO YOU WANT TO|
00001750: 20 52 45 43 4F 56 45 52 3A 22 00 82 33 9C 04 A1 | RECOVER:"..3...|
00001760: 58 24 3A 81 4B B2 44 AA 33 A4 44 AA 31 38 3A 99 |X$:.K.D.3.D.18:.|
00001770: C7 28 41 28 4B 29 29 3B 3A 82 4B 3A 99 22 3F 20 |.(A(K));:.K:."? |
00001780: 22 3B 00 A0 33 A1 04 A1 58 24 3A 8B 58 24 B3 B1 |";..3...X$:.X$..|
00001790: 22 59 22 AF 58 24 B3 B1 22 4E 22 A7 31 31 38 35 |"Y".X$.."N".1185|
000017A0: 00 B5 33 A6 04 99 58 24 3A 8B 58 24 B2 22 59 22 |..3...X$:.X$."Y"|
000017B0: A7 31 32 31 35 00 BC 33 AB 04 82 44 00 D9 33 B0 |.1215..3...D..3.|
000017C0: 04 54 B2 41 28 30 29 3A 53 B2 41 28 31 29 3A 8B |.T.A(0):S.A(1):.|
000017D0: 54 B2 44 39 A7 31 31 36 35 00 18 34 B5 04 99 22 |T.D9.1165..4..."|
000017E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000017F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001800: 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 99 22 54 48 41 54 |--------":."THAT|
00001810: 27 53 20 41 4C 4C 20 22 00 38 34 BA 04 99 22 56 |'S ALL ".84..."V|
00001820: 41 4C 49 44 41 54 49 4E 47 20 44 49 53 4B 2E 2E |ALIDATING DISK..|
00001830: 2E 22 3A 89 31 33 34 35 00 7C 34 BF 04 54 36 B2 |.":.1345.|4..T6.|
00001840: 54 3A 53 36 B2 53 3A 44 36 B2 44 3A 54 B2 41 28 |T:S6.S:D6.D:T.A(|
00001850: 44 AA 31 29 3A 53 B2 41 28 44 AA 32 29 3A 4C 25 |D.1):S.A(D.2):L%|
00001860: 28 30 29 B2 41 28 44 AA 32 38 29 AA 41 28 44 AA |(0).A(D.28).A(D.|
00001870: 32 39 29 AC 32 35 36 3A 4C 25 B2 30 00 98 34 C4 |29).256:L%.0..4.|
00001880: 04 A1 58 24 3A 99 22 11 1D 1D 49 53 20 54 48 49 |..X$:."...IS THI|
00001890: 53 20 46 49 4C 45 3A 22 00 AE 34 C9 04 99 22 20 |S FILE:"..4..." |
000018A0: 31 2E 20 53 45 51 55 45 4E 54 49 41 4C 22 00 C1 |1. SEQUENTIAL"..|
000018B0: 34 CE 04 99 22 20 32 2E 20 50 52 4F 47 52 41 4D |4..." 2. PROGRAM|
000018C0: 22 00 D0 34 D3 04 99 22 20 33 2E 20 55 53 52 22 |"..4..." 3. USR"|
000018D0: 00 E4 34 D8 04 8B 41 28 44 AA 31 39 29 B2 30 A7 |..4...A(D.19).0.|
000018E0: 31 32 35 30 00 F8 34 DD 04 99 22 20 34 2E 20 52 |1250..4..." 4. R|
000018F0: 45 4C 41 54 49 56 45 22 00 11 35 E2 04 99 22 20 |ELATIVE"..5..." |
00001900: 20 57 48 49 43 48 20 4E 55 4D 42 45 52 3F 20 22 | WHICH NUMBER? "|
00001910: 3B 00 25 35 E7 04 A1 58 24 3A 8B 58 24 B2 22 22 |;.%5...X$:.X$.""|
00001920: A7 31 32 35 35 00 42 35 EC 04 58 B2 C6 28 58 24 |.1255.B5..X..(X$|
00001930: 29 AB 34 38 3A 8B 58 B3 31 B0 58 B1 34 89 31 32 |).48:.X.1.X.4.12|
00001940: 35 35 00 52 35 F1 04 99 58 24 3A 58 B2 58 AA 31 |55.R5...X$:X.X.1|
00001950: 32 38 00 8D 35 F6 04 8B 58 B2 31 33 32 A7 54 25 |28..5...X.132.T%|
00001960: 28 30 2C 31 29 B2 41 28 44 AA 31 39 29 3A 53 25 |(0,1).A(D.19):S%|
00001970: 28 30 2C 31 29 B2 41 28 44 AA 32 30 29 3A 8B 54 |(0,1).A(D.20):.T|
00001980: 25 28 30 2C 31 29 B2 30 A7 31 32 32 30 00 9F 35 |%(0,1).0.1220..5|
00001990: FB 04 8B 54 B1 54 39 B0 53 B3 30 A7 54 B2 30 00 |...T.T9.S.0.T.0.|
000019A0: CA 35 00 05 8B 54 B3 31 B0 53 B1 52 25 28 54 29 |.5...T.1.S.R%(T)|
000019B0: A7 99 22 9C 12 20 42 41 44 20 43 48 41 49 4E 21 |..".. BAD CHAIN!|
000019C0: 20 92 9A 22 3A 89 31 33 34 30 00 F6 35 05 05 8B | ..":.1340..5...|
000019D0: 43 25 28 54 2C 53 29 B2 30 A7 99 22 1D 1D 20 41 |C%(T,S).0..".. A|
000019E0: 4C 4C 4F 43 41 54 45 44 20 42 4C 4F 43 4B 53 22 |LLOCATED BLOCKS"|
000019F0: 3A 89 31 33 34 30 00 08 36 0A 05 8D 31 33 37 35 |:.1340..6...1375|
00001A00: 3A 4C 25 B2 4C 25 AA 31 00 2D 36 0F 05 81 4A B2 |:L%.L%.1.-6...J.|
00001A10: 30 A4 31 3A 98 31 35 2C 22 4D 2D 52 22 3B C7 28 |0.1:.15,"M-R";.(|
00001A20: 4A 29 3B 42 24 3A A1 23 31 35 2C 41 24 00 42 36 |J);B$:.#15,A$.B6|
00001A30: 14 05 41 28 4A 29 B2 C6 28 41 24 AA 5A 24 29 3A |..A(J)..(A$.Z$):|
00001A40: 82 4A 00 69 36 19 05 54 34 B2 54 3A 53 34 B2 53 |.J.i6..T4.T:S4.S|
00001A50: 3A 54 B2 41 28 30 29 3A 53 B2 41 28 31 29 3A 8B |:T.A(0):S.A(1):.|
00001A60: 54 B3 B1 30 A7 31 32 37 35 00 96 36 1E 05 54 B2 |T..0.1275..6..T.|
00001A70: 54 25 28 30 2C 31 29 3A 53 B2 53 25 28 30 2C 31 |T%(0,1):S.S%(0,1|
00001A80: 29 3A 54 25 28 30 2C 31 29 B2 30 3A 8B 54 B3 B1 |):T%(0,1).0:.T..|
00001A90: 30 A7 31 32 37 35 00 CC 36 23 05 8B 4C 25 B3 B1 |0.1275..6#..L%..|
00001AA0: 4C 25 28 30 29 A7 99 22 1D 1D 9C 12 20 49 4E 43 |L%(0)..".... INC|
00001AB0: 4F 52 52 45 43 54 20 42 4C 4F 43 4B 20 43 4F 55 |ORRECT BLOCK COU|
00001AC0: 4E 54 20 92 9A 22 3A 89 31 33 34 30 00 DF 36 28 |NT ..":.1340..6(|
00001AD0: 05 54 B2 54 36 3A 53 B2 53 36 3A 44 B2 44 36 00 |.T.T6:S.S6:D.D6.|
00001AE0: E9 36 2D 05 8D 31 33 37 35 00 09 37 32 05 98 31 |.6-..1375..72..1|
00001AF0: 35 2C 22 4D 2D 57 22 3B C7 28 44 29 3B 42 24 3B |5,"M-W";.(D);B$;|
00001B00: C7 28 31 29 3B C7 28 58 29 00 2C 37 37 05 98 31 |.(1);.(X).,77..1|
00001B10: 35 2C 22 55 32 3A 32 2C 22 3B 44 24 3B 54 3B 53 |5,"U2:2,";D$;T;S|
00001B20: 3A 8D 31 33 38 35 3A 89 31 33 35 30 00 4C 37 3C |:.1385:.1350.L7<|
00001B30: 05 99 22 20 41 42 4F 52 54 45 44 20 2D 20 49 54 |.." ABORTED - IT|
00001B40: 20 57 4F 4E 27 54 20 57 4F 52 4B 22 00 53 37 41 | WON'T WORK".S7A|
00001B50: 05 A0 32 00 7A 37 46 05 A0 32 3A 98 31 35 2C 22 |..2.z7F..2:.15,"|
00001B60: 56 30 22 3A A0 31 35 3A 81 51 57 B2 31 A4 31 30 |V0":.15:.QW.1.10|
00001B70: 30 30 30 3A 82 3A 89 31 34 30 00 95 37 4B 05 8F |000:.:.140..7K..|
00001B80: 20 47 52 41 42 20 46 55 4C 4C 20 44 49 53 4B 20 | GRAB FULL DISK |
00001B90: 42 4C 4F 43 4B 00 9F 37 50 05 8D 31 33 37 35 00 |BLOCK..7P..1375.|
00001BA0: C6 37 55 05 81 4A B2 30 A4 32 35 35 3A 98 31 35 |.7U..J.0.255:.15|
00001BB0: 2C 22 4D 2D 52 22 3B C7 28 4A 29 3B 42 24 3A A1 |,"M-R";.(J);B$:.|
00001BC0: 23 31 35 2C 41 24 00 DD 37 5A 05 41 28 4A 29 B2 |#15,A$..7Z.A(J).|
00001BD0: C6 28 41 24 AA 5A 24 29 3A 82 4A 3A 8E 00 EE 37 |.(A$.Z$):.J:...7|
00001BE0: 5F 05 8F 20 52 45 41 44 20 42 4C 4F 41 44 00 07 |_.. READ BLOAD..|
00001BF0: 38 64 05 98 31 35 2C 22 42 2D 52 22 32 3B C5 28 |8d..15,"B-R"2;.(|
00001C00: 44 24 29 3B 54 3B 53 00 1E 38 69 05 8F 20 47 45 |D$);T;S..8i.. GE|
00001C10: 54 20 45 52 52 4F 52 20 53 54 41 54 55 53 00 31 |T ERROR STATUS.1|
00001C20: 38 6E 05 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 |8n..15,E,E$,E1,E|
00001C30: 32 00 5E 38 73 05 8B 45 B3 B1 30 A7 99 22 11 1D |2.^8s..E..0.."..|
00001C40: 1D 12 20 44 49 53 4B 20 45 52 52 4F 52 3A 20 20 |.. DISK ERROR: |
00001C50: 20 20 92 22 45 3B 45 24 2C 45 31 3B 45 32 00 64 | ."E;E$,E1;E2.d|
00001C60: 38 78 05 8E 00 92 38 7D 05 8B 45 52 B2 35 A7 99 |8x....8}..ER.5..|
00001C70: 22 11 53 4F 52 52 59 2C 20 59 4F 55 52 20 44 52 |".SORRY, YOUR DR|
00001C80: 49 56 45 20 49 53 4E 27 54 20 4F 4E 4C 49 4E 45 |IVE ISN'T ONLINE|
00001C90: 2E 22 00 A5 38 7E 05 8B 45 4C B1 31 39 39 39 A7 |."..8~..EL.1999.|
00001CA0: D6 32 30 33 30 00 B3 38 81 05 99 D3 28 45 52 29 |.2030..8....(ER)|
00001CB0: 3B 45 4C 00 B9 38 82 05 D6 00 DB 38 87 05 83 20 |;EL..8.....8... |
00001CC0: 31 2C 31 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 |1,17,20,24,19,30|
00001CD0: 2C 31 37 2C 33 35 2C 31 36 2C 30 00 FE 38 8C 05 |,17,35,16,0..8..|
00001CE0: 83 20 36 35 2C 31 37 2C 32 30 2C 32 34 2C 31 38 |. 65,17,20,24,18|
00001CF0: 2C 33 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 21 |,30,17,35,16,0.!|
00001D00: 39 91 05 83 20 36 37 2C 33 39 2C 32 38 2C 35 33 |9... 67,39,28,53|
00001D10: 2C 32 36 2C 36 34 2C 32 34 2C 37 37 2C 32 32 2C |,26,64,24,77,22,|
00001D20: 30 00 43 39 D0 07 D7 31 34 30 35 3A 8D 36 30 35 |0.C9...1405:.605|
00001D30: 3A FE 1A 30 2C 33 2C 37 39 2C 32 34 3A 99 22 11 |:..0,3,79,24:.".|
00001D40: 11 11 22 00 73 39 D3 07 99 22 45 4E 54 45 52 20 |..".s9..."ENTER |
00001D50: 55 4E 49 54 20 46 4F 52 20 44 49 52 45 43 54 4F |UNIT FOR DIRECTO|
00001D60: 52 59 20 28 38 2F 39 29 20 20 38 9D 9D 9D 22 3B |RY (8/9) 8...";|
00001D70: 3A 85 55 00 85 39 D5 07 8B 55 B3 38 B0 55 B1 39 |:.U..9...U.8.U.9|
00001D80: A7 32 30 30 33 00 B7 39 DA 07 99 22 11 45 4E 54 |.2003..9...".ENT|
00001D90: 45 52 20 44 52 49 56 45 20 46 4F 52 20 44 49 52 |ER DRIVE FOR DIR|
00001DA0: 45 43 54 4F 52 59 20 28 30 2F 31 29 20 20 30 9D |ECTORY (0/1) 0.|
00001DB0: 9D 9D 22 3B 3A 85 44 00 C9 39 DF 07 8B 44 B3 30 |..";:.D..9...D.0|
00001DC0: B0 44 B1 31 A7 32 30 31 30 00 DD 39 E0 07 8B 55 |.D.1.2010..9...U|
00001DD0: B2 38 AF 44 B2 30 A7 EE 44 30 2C 55 38 00 F1 39 |.8.D.0..D0,U8..9|
00001DE0: E1 07 8B 55 B2 38 AF 44 B2 31 A7 EE 44 31 2C 55 |...U.8.D.1..D1,U|
00001DF0: 38 00 05 3A E2 07 8B 55 B2 39 AF 44 B2 30 A7 EE |8..:...U.9.D.0..|
00001E00: 44 30 2C 55 39 00 19 3A E3 07 8B 55 B2 39 AF 44 |D0,U9..:...U.9.D|
00001E10: B2 31 A7 EE 44 31 2C 55 39 00 4C 3A E4 07 8B 44 |.1..D1,U9.L:...D|
00001E20: 53 B2 37 34 A7 99 22 11 53 4F 52 52 59 2C 20 59 |S.74..".SORRY, Y|
00001E30: 4F 55 20 44 4F 4E 27 54 20 48 41 56 45 20 41 20 |OU DON'T HAVE A |
00001E40: 44 55 41 4C 20 44 52 49 56 45 2E 22 00 74 3A EE |DUAL DRIVE.".t:.|
00001E50: 07 99 22 11 50 52 45 53 53 20 12 52 45 54 55 52 |..".PRESS .RETUR|
00001E60: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A |N. TO CONTINUE":|
00001E70: A1 F9 41 24 00 89 3A F8 07 FE 1A 30 2C 30 2C 37 |..A$..:....0,0,7|
00001E80: 39 2C 32 34 3A 89 31 34 30 00 00 00 00 00 00 00 |9,24:.140.......|
00001E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001F00: 20 | |
....... *******************.;....
* C-128 UTILITIES *.X.... * -----
-- *.U.... * CONVERTED FROM *...
... * C-64 VERSION BY *...#.. *
HARRINGTON *.L.(.. * 9/85
*...-.. * ------- *...2..
* 80 COLUMN *.#.7.. * FAST V
ERSION BY *.@.<.. * MIKE WARD *
.].A.. * 10/24/85 *.Z.F.. *
******************...J.W1405...K.....L..
N.(2).40.105...P..%:.5,1.C.U..:.0,1:.4,1
:.5,15:.6,1.I.Z...R._..605...`..140...I.
.&:.0,1...N.."........ THIS PROGRAM R
UNS IN THE".B.S.."...80 COLUMN MODE - AD
JUST YOUR MONITOR".C.X..".............
ACCORDINGLY...}.."............. PRESS AN
Y KEY WHEN READY":.G(7). .....K$......%:
.5,1.G....:.0,1:.4,1:.5,15:.6,1......605
:..15)"...BY HARRINGTON MO
DIFIED BY MIKE WARD".6.....25)".........
....................."._.....25)"B.
MAIN MENU. .".......25)"......
....................."... ...25)"B. [1]
FORMAT A DISK. .".X.....25)"B. [2]
CHANGE A DISK NAME. .".. ....25)"B. [3
] CHANGE A DISK ID. .".* ....25)"B. [
4] RECOVER (UNSCRATCH). .".S ....25)"B.
[5] RENAME A FILE. .".| ....25)"B.
[6] CHANGE DEVICE NUMBER..".. ....25)"B
. [7] SORT DISK DIRECTORY. .".N C...25)"
B. [8] GET DISK DIRECTORY. .".. F...25)
"B. [9] QUIT THIS PROGRAM. ."..!H...25
)"...........................";.)!M..G(7
).2!R...K$.O!W..K$."1".K$."9"..450:.210.
.!..A.F(K$).48:.A.245,365,375,1025,985,2
90,625,2000,235..!...---- EXIT ----..!..
.:...!...450 :.210..!...585:.605..!...--
--- FORMAT DISK ----..!..."...........DI
SK NAME:. ";.."..L.16:.495:D$.N$.("...:.
".DISK I.D.:. ";.5"..L.2:.495.R"...15,8,
15,"N0:".D$.",".N$.`"...460:.145.."...--
-- CHANGE DEVICE NUMBER ----..""..605:."
....DISK CHANGE INSTRUCTIONS .".."'..".
POWER OFF SLAVE DRIVE TO BE COPIED TO
THEN HIT 'RETURN'":.F.(#,..15,8,15:.15,"
M-W"G(119)G(0)G(2)G(42)G(74): 15.N#1..".
POWER ON SLAVE DRIVE (NEW DEVICE #9)
THEN HIT 'RETURN'":.F..#6..15,8,15:.15,
"M-W"G(119)G(0)G(2)G(41)G(73): 15.U#;..1
5,10,15:.15,"M-W"G(119)G(0)G(2)G(40)G(72
): 5..#@..".. DISK DRIVE DEVICE NUMBERS
ARE"..$E.." CHANGED."..$J...2:.140.N$O.
.:."....................................
.....".Z$T.."...";..$Y...7)".PRESS ANY K
EY TO CONTINUE.":.450 ..$^..K$:.K$."".35
0..$C..605 :.335:..J$H..---- CHANGE DISK
NAME ----..$M.B.144:L.16:D$.".NEW DISK
NAME:. ":.380 ..%R..---- CHANGE DISK ID
----.9%W.B.162:L.2:D$.".NEW DISK I.D.:.
".H%|..585:.605 .^%..."..........".D$;.G
%...495..%...C(N$).16.N$.N$.G(160):.395
..%..X.0..%... .X.2..%..X.X.1:...D%...15
,8,15,"I":.4,8,4,"#".Z%...15,"U1:"4,0,18
,0..%...15,"B-P:"4,B..%...4,N$..&...15,"
U2:"4,0,18,0..&....'&.. 4:.460: 15:.145.
-&B...@&G..Z.54272.54296.S&L..:.15,A,B$,
C,D.M&Q..A..0.."...";A;B$;C;D.Y&V.."..."
;..&....7)".PRESS ANY KEY TO CONTINUE.".
.&...450 ..&...K$:.K$."".485.B&....W&..N
$."":." ";:.450..&...540..&...K$.G(13)..
.+'...K$.".".K$.".".K$.".".K$.".".K$."."
.K$.".".K$."."..500.>'...K$..G(20).575.T
'...N$.""..450 :.500.K'..N$.J(N$,1,C(N$)
.1).T'...K$;.}'...500..'..XL%.B(211)..'!
..XL%.39.XL%.XL%.40:.545.P'&.XL%.XL%.B(2
14).40.1024:XC.54272.XL%..(+..XC,B(646):
XO%.B(XL%):XT%.XO%:XQ%.128:.XO%.127.XQ%.
.XQ%.7(0.XT%.XT%.XQ%:.XL%,XT%:XQ%..XQ%:.
XR.1.60.R(5..K$:.K$..""..XL%,XO%:.._(:..
XR:.560.W(?..C(N$).L..450 :.500..(D.N$.N
$.K$:.K$;:.500.L(I..605 :."..........
INSERT YOUR DISK AND PRESS .RETURN.".U(N
..450..(S..K$:.K$..G(13).595..(X...L)]..
:.".....................................
........................................
..."..)B.."..
C-128 UTILITIES
"..)G.."....................
........................................
....................":...*L..---- SORT D
IRECTORY ----.+*Q..585:.605.I*V.. DR$(14
5),S(20),NM$(145).J*{..".....READING DIR
ECTORY...".W*...15,8,15..*...5,8,5,"#"..
*..S(1).1:DE.0..*..I.1..*...15,"U1:";5;0
;18;S(I).B*..I.I.1.M*...#5,T$..*...#5,S$
:S(I).F(S$.G(0))..*...Q.1.8:I$.""..+..DE
.DE.1:DR$(DE).""..+...R.1.30.'+...#5,I$.
:+...I$."".I$.G(0).Q+A.DR$(DE).DR$(DE).I
$.Y+F.. R.O+K..Q..8..#5,NG$,NG$.W+P.. Q.
.+U..S(I).21. .660..+Z.."... SORTING...
"..+... X.1.DE.T+..NM$(X).H(DR$(X),1).J(
DR$(X),4,16)..+...P.2.17..,...J(NM$(X),P
,1).G(160).NM$(X).J(NM$(X),1,P.1):.760..
,... P.&,... X./,..S1.1.:,..L(1).1.F,..R
(1).DE.S,..L1.L(S1).`,..R1.R(S1).L,..S1.
S1.1.|,..L2.L1:R2.R1.., .X$.NM$(.((L1.R1
).2))..,%.C.C.1..,*..NM$(L2)..X$..825.A,
/.L2.L2.1.J,4..805.S,9.C.C1..,>..X$..NM$
(R2)..845..,C.R2.R2.1..,H..825..-M..L2.R
2..875..-R.S.S.1.B-W.T$.DR$(L2):DR$(L2).
DR$(R2):DR$(R2).T$.L-\.T$.NM$(L2):NM$(L2
).NM$(R2):NM$(R2).T$.X-A.L2.L2.1..-F.R2.
R2.1..-K..L2..R2..805 ..-P..L2..R1..900
..-U.S1.S1.1.A-Z.L(S1).L2.N-.R(S1).R1.X
-..R1.R2..-...L1.R1..795 ..-...S1.0..780
.....W.I.1:DW.0.+...."... REWRITING DI
RECTORY...".F.... I.1.W:.15,"B-P:";5;0.A
...TT.18:.S(I.1).255.TT.0.Y....5,G(TT);G
(S(I.1));...... Q.1.8:DW.DW.1......5,DR$
(DW);......Q..8..5,"CD";...... Q.R....15
,"U2:";5;0;18;S(I).Z.E.. I...J. 5: 15...
O..:.140../T..---- RENAME FILE ----../Y.
.585:.605.,/..."..........";.F/...".OLD
FILE NAME:. ";.T/..L.16:.495.V/..D$.N$:.
:.".NEW FILE NAME:. ";./...495../...15,
8,15,"R0:".N$."=".D$../...460: 15:.145.L
/...---- RECOVER A FILE ----..0...605:.A
(255),C%(77,28),D%(1),T%(224,1),S%(224,1
),L%(224),R%(77).=0..D%(0).58:D%(1).42:Z
$.G(0):B$.G(3):D$."0".X0..."......LOADIN
G FREE SECTORS...":.15,8,15,"I".D$:.1385
..0...3,8,3,"$".D$:.1385..0..A0.1:.#3,A$
:A.F(A$.Z$)..0...A1:.A.A1.1075.U0$.F%.F%
.1:.F%.3.1095..0)..A1:.A1.0.1055..0...10
65..13..A1:.A1.0.1085.-18..B1:.J.A0.A1:R
%(J).B1:.J:A0.J:.1075.Q1=..A.1.A.65.D1.1
:T9.35:S9.3:D9.18.S1B..A.67.D1.257:T9.77
:S9.4:D9.39..1G..T9.0. 3:." DISK NOT R
ECOGNIZED...":..2:.140..1L..J.1.D1:.#3,A
$:.J.M1Q..J.1.T9:T1.0..1V..J.51..#3,A$,A
$,A$,A$..1[..#3,A$:C.F(A$.Z$)."2`.K1.0:.
K.0.S9.1:.#3,A$:A.F(A$.Z$).U2E..L.0.7:A%
.A.2:D1.A.A%.2:.K1..R%(J).C%(J,K1).D1.T2
J.A.A%:T1.T1.D1:K1.K1.1:.L,K.{2O..J..2T.
3..2Y..2,8,2,"#0":.1385.F2~.K.0:."... L
OOKING FOR SCRATCHED FILES..."..2..."---
-------------------------------------"..
3..T.D9:S.1..3...1355.43...D.2.255.32:.A
(D)..0.A(D.1).0.1195.Z3...K.0.."..DO YOU
WANT TO RECOVER:"..3...X$:.K.D.3.D.18:.
G(A(K));:.K:."? ";. 3...X$:.X$.."Y".X$..
"N".1185..3...X$:.X$."Y".1215..3...D.Y3.
.T.A(0):S.A(1):.T.D9.1165..4..."--------
--------------------------------":."THAT
'S ALL ".84..."VALIDATING DISK...":.1345
.|4..T6.T:S6.S:D6.D:T.A(D.1):S.A(D.2):L%
(0).A(D.28).A(D.29).256:L%.0..4D..X$:.".
..IS THIS FILE:"..4I.." 1. SEQUENTIAL".A
4N.." 2. PROGRAM".P4S.." 3. USR"..4X..A(
D.19).0.1250..4..." 4. RELATIVE"..5..."
WHICH NUMBER? ";.%5...X$:.X$."".1255.B5
..X.F(X$).48:.X.1.X.4.1255.R5...X$:X.X.1
28..5...X.132.T%(0,1).A(D.19):S%(0,1).A(
D.20):.T%(0,1).0.1220..5...T.T9.S.0.T.0.
J5...T.1.S.R%(T)..".. BAD CHAIN! ..":.13
40..5...C%(T,S).0..".. ALLOCATED BLOCKS"
:.1340..6...1375:L%.L%.1.-6...J.0.1:.15,
"M-R";G(J);B$:.#15,A$.B6..A(J).F(A$.Z$):
.J.I6..T4.T:S4.S:T.A(0):S.A(1):.T..0.127
5..6..T.T%(0,1):S.S%(0,1):T%(0,1).0:.T..
0.1275.L6#..L%..L%(0)..".... INCORRECT B
LOCK COUNT ..":.1340..6(.T.T6:S.S6:D.D6.
.6-..1375..72..15,"M-W";G(D);B$;G(1);G(X
).,77..15,"U2:2,";D$;T;S:.1385:.1350.L7<
.." ABORTED - IT WON'T WORK".S7A. 2.Z7F.
2:.15,"V0": 15:.QW.1.10000:.:.140..7K..
GRAB FULL DISK BLOCK..7P..1375.F7U..J.0
.255:.15,"M-R";G(J);B$:.#15,A$..7Z.A(J).
F(A$.Z$):.J:...7_.. READ BLOAD..8D..15,"
B-R"2;E(D$);T;S..8I.. GET ERROR STATUS.1
8N..15,E,E$,E1,E2.^8S..E..0..".... DISK
ERROR: ."E;E$,E1;E2.D8X....8}..ER.5..
".SORRY, YOUR DRIVE ISN'T ONLINE."..8~..
EL.1999.V2030..8...S(ER);EL..8..V..8...
1,17,20,24,19,30,17,35,16,0..8... 65,17,
20,24,18,30,17,35,16,0.!9... 67,39,28,53
,26,64,24,77,22,0.C9P.W1405:.605:..0,3,7
9,24:."...".S9S.."ENTER UNIT FOR DIRECTO
RY (8/9) 8...";:.U..9U..U.8.U.9.2003..9
Z..".ENTER DRIVE FOR DIRECTORY (0/1) 0.
..";:.D.I9...D.0.D.1.2010..9...U.8.D.0..
D0,U8..9...U.8.D.1..D1,U8..:...U.9.D.0..
D0,U9..:...U.9.D.1..D1,U9.L:...DS.74..".
SORRY, YOU DON'T HAVE A DUAL DRIVE.".T:.
..".PRESS .RETURN. TO CONTINUE":..A$..:.
...0,0,79,24:.140.......................
........................................
........................................
................
> CLICK IMAGE PREVIEW FOR FULL MODAL