DISK PAC
FILE INFORMATION
FILENAME(S): DISK PAC
FILE TYPE(S): PRG
FILE SIZE: 9.3K
FIRST SEEN: 2025-12-01 02:25:53
APPEARS ON: 1 disk(s)
FILE HASH
a75fe08402dab46c2f296cd2280cf7f03dd820648f0a772b0dbf104337c5ab8f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK ARRANGER A | DISK PAC | PRG | hedning, shine | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 6E 00 8F 20 2A 20 20 20 |*****.I.n.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 78 00 8F 20 | *.m.x.. |
00000050: 2A 20 20 20 20 20 20 20 20 20 44 49 53 4B 20 50 |* DISK P|
00000060: 41 43 20 20 20 20 20 20 20 20 20 20 2A 00 91 08 |AC *...|
00000070: 82 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 2A 00 B5 08 8C 00 8F 20 2A 20 20 20 20 20 20 42 |*...... * B|
000000A0: 59 20 53 54 45 56 45 20 43 41 54 45 53 20 20 20 |Y STEVE CATES |
000000B0: 20 20 20 20 2A 00 D9 08 96 00 8F 20 2A 20 20 20 | *...... * |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 2A 00 FD 08 A0 00 8F 20 | *...... |
000000E0: 2A 20 20 20 20 28 43 29 20 20 45 44 55 43 4F 4D |* (C) EDUCOM|
000000F0: 50 20 31 39 38 33 20 20 20 20 20 20 2A 00 21 09 |P 1983 *.!.|
00000100: AA 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 2A 00 45 09 B4 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.E.... ********|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 00 4B 09 BE 00 3A 00 6D 09 C8 00 |*****.K...:.m...|
00000150: 97 35 33 32 37 32 2C 32 31 3A 97 35 33 32 38 30 |.53272,21:.53280|
00000160: 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 00 B4 09 |,12:.53281,12...|
00000170: D2 00 58 24 B2 22 20 20 20 20 20 20 20 20 20 20 |..X$." |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 43 | ":C|
000001A0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
000001B0: 11 11 11 22 00 E5 09 DC 00 99 22 93 90 20 D5 C3 |..."......".. ..|
000001C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000001D0: C3 C3 C3 C3 C3 C3 C3 C3 C9 D5 C3 C3 C3 C3 C3 C3 |................|
000001E0: C3 C3 C3 C9 22 00 14 0A E6 00 99 22 20 DD 20 2A |...."......" . *|
000001F0: 2A 2A 2A 20 44 49 53 4B 20 50 41 43 20 20 28 43 |*** DISK PAC (C|
00000200: 29 20 2A 2A 2A 2A 20 DD DD 20 45 44 55 43 4F 4D |) **** .. EDUCOM|
00000210: 50 20 DD 22 00 43 0A F0 00 99 22 20 CA C3 C3 C3 |P .".C...." ....|
00000220: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000230: C3 C3 C3 C3 C3 C3 CB CA C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000240: C3 CB 22 00 73 0A FA 00 99 22 11 20 D5 C3 C3 C3 |..".s....". ....|
00000250: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000260: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000270: C3 C9 22 00 A2 0A 04 01 99 22 20 DD 20 31 2E 20 |.."......" . 1. |
00000280: 20 44 45 4C 45 54 45 20 44 49 53 4B 20 46 49 4C | DELETE DISK FIL|
00000290: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ES |
000002A0: DD 22 00 D1 0A 0E 01 99 22 20 DD 20 32 2E 20 20 |."......" . 2. |
000002B0: 43 48 45 43 4B 20 44 49 53 4B 20 42 4C 4F 43 4B |CHECK DISK BLOCK|
000002C0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DD |S .|
000002D0: 22 00 00 0B 18 01 99 22 20 DD 20 33 2E 20 20 56 |"......" . 3. V|
000002E0: 49 45 57 20 4C 4F 41 44 20 41 44 44 52 45 53 53 |IEW LOAD ADDRESS|
000002F0: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 |ES ."|
00000300: 00 2F 0B 22 01 99 22 20 DD 20 34 2E 20 20 43 48 |./.".." . 4. CH|
00000310: 41 4E 47 45 20 54 48 45 20 44 49 53 4B 20 4E 41 |ANGE THE DISK NA|
00000320: 4D 45 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 |ME .".|
00000330: 5E 0B 2C 01 99 22 20 DD 20 35 2E 20 20 43 48 41 |^.,.." . 5. CHA|
00000340: 4E 47 45 20 54 48 45 20 44 49 53 4B 20 49 44 20 |NGE THE DISK ID |
00000350: 4E 55 4D 42 45 52 20 20 20 20 20 20 DD 22 00 8D |NUMBER ."..|
00000360: 0B 36 01 99 22 20 DD 20 36 2E 20 20 43 48 41 4E |.6.." . 6. CHAN|
00000370: 47 45 20 54 48 45 20 44 49 53 4B 20 44 45 56 49 |GE THE DISK DEVI|
00000380: 43 45 20 4E 55 4D 42 45 52 20 20 DD 22 00 BC 0B |CE NUMBER ."...|
00000390: 40 01 99 22 20 DD 20 37 2E 20 20 45 58 49 54 20 |@.." . 7. EXIT |
000003A0: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 20 |PROGRAM |
000003B0: 20 20 20 20 20 20 20 20 20 20 DD 22 00 EB 0B 4A | ."...J|
000003C0: 01 99 22 20 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ............|
000003D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000003E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 19 0C 54 01 |.........."...T.|
000003F0: 99 22 20 DD 20 50 52 45 53 53 20 4B 45 59 53 20 |." . PRESS KEYS |
00000400: 31 2D 37 20 54 4F 20 43 48 4F 4F 53 45 20 53 45 |1-7 TO CHOOSE SE|
00000410: 4C 45 43 54 49 4F 4E 20 DD 00 48 0C 5E 01 99 22 |LECTION ..H.^.."|
00000420: 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00000430: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000440: C3 C3 C3 C3 C3 C3 CB 22 00 59 0C 68 01 A0 31 35 |.......".Y.h..15|
00000450: 3A 9F 31 35 2C 38 2C 31 35 00 6C 0C 72 01 A1 41 |:.15,8,15.l.r..A|
00000460: 24 3A 8B 41 24 B2 22 22 A7 33 37 30 00 7D 0C 7C |$:.A$."".370.}.||
00000470: 01 8B 41 24 B2 22 31 22 A7 31 33 37 30 00 8E 0C |..A$."1".1370...|
00000480: 86 01 8B 41 24 B2 22 32 22 A7 32 32 35 30 00 9F |...A$."2".2250..|
00000490: 0C 90 01 8B 41 24 B2 22 33 22 A7 32 36 39 30 00 |....A$."3".2690.|
000004A0: AF 0C 9A 01 8B 41 24 B2 22 34 22 A7 34 37 30 00 |.....A$."4".470.|
000004B0: BF 0C A4 01 8B 41 24 B2 22 35 22 A7 35 36 30 00 |.....A$."5".560.|
000004C0: CF 0C AE 01 8B 41 24 B2 22 36 22 A7 36 35 30 00 |.....A$."6".650.|
000004D0: E9 0C B8 01 8B 41 24 B2 22 37 22 B0 41 24 B2 C7 |.....A$."7".A$..|
000004E0: 28 31 33 29 A7 33 34 33 30 00 F2 0C C2 01 89 33 |(13).3430......3|
000004F0: 37 30 00 F8 0C CC 01 3A 00 1C 0D D6 01 8F 20 2A |70.....:...... *|
00000500: 2A 2A 2A 2A 2A 2A 2A 20 43 48 41 4E 47 45 20 4E |******* CHANGE N|
00000510: 41 4D 45 20 2A 2A 2A 2A 2A 2A 2A 2A 00 22 0D E0 |AME ********."..|
00000520: 01 3A 00 39 0D EA 01 58 31 B2 31 34 34 3A 58 32 |.:.9...X1.144:X2|
00000530: B2 31 36 3A 8D 31 32 35 30 00 61 0D F4 01 4D 45 |.16:.1250.a...ME|
00000540: 24 B2 22 54 48 45 20 4F 4C 44 20 4E 41 4D 45 20 |$."THE OLD NAME |
00000550: 49 53 20 20 22 3A 8D 31 30 36 30 3A 8D 31 31 33 |IS ":.1060:.113|
00000560: 30 00 84 0D FE 01 4D 45 24 B2 22 45 4E 54 45 52 |0.....ME$."ENTER|
00000570: 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 22 3A | NEW DISK NAME":|
00000580: 8D 39 39 30 00 94 0D 08 02 8D 31 31 39 30 3A 8D |.990......1190:.|
00000590: 31 32 35 30 00 B6 0D 12 02 4D 45 24 B2 22 54 48 |1250.....ME$."TH|
000005A0: 45 20 4E 45 57 20 4E 41 4D 45 20 49 53 20 20 22 |E NEW NAME IS "|
000005B0: 3A 8D 31 30 36 30 00 C5 0D 1C 02 8D 31 31 33 30 |:.1060......1130|
000005C0: 3A 89 34 37 30 00 CB 0D 26 02 3A 00 EF 0D 30 02 |:.470...&.:...0.|
000005D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 43 48 41 4E 47 |. ******** CHANG|
000005E0: 45 20 49 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |E ID **********.|
000005F0: F5 0D 3A 02 3A 00 0B 0E 44 02 58 31 B2 31 36 32 |..:.:...D.X1.162|
00000600: 3A 58 32 B2 32 3A 8D 31 32 35 30 00 33 0E 4E 02 |:X2.2:.1250.3.N.|
00000610: 4D 45 24 B2 22 54 48 45 20 4F 4C 44 20 49 44 20 |ME$."THE OLD ID |
00000620: 23 20 49 53 20 20 22 3A 8D 31 30 36 30 3A 8D 31 |# IS ":.1060:.1|
00000630: 31 33 30 00 56 0E 58 02 4D 45 24 B2 22 45 4E 54 |130.V.X.ME$."ENT|
00000640: 45 52 20 4E 45 57 20 49 44 20 4E 55 4D 42 45 52 |ER NEW ID NUMBER|
00000650: 22 3A 8D 39 39 30 00 66 0E 62 02 8D 31 31 39 30 |":.990.f.b..1190|
00000660: 3A 8D 31 32 35 30 00 88 0E 6C 02 4D 45 24 B2 22 |:.1250...l.ME$."|
00000670: 54 48 45 20 4E 45 57 20 49 44 20 23 20 49 53 20 |THE NEW ID # IS |
00000680: 20 22 3A 8D 31 30 36 30 00 97 0E 76 02 8D 31 31 | ":.1060...v..11|
00000690: 33 30 3A 89 35 36 30 00 9D 0E 80 02 3A 00 C1 0E |30:.560.....:...|
000006A0: 8A 02 8F 20 2A 2A 2A 2A 2A 2A 20 43 48 41 4E 47 |... ****** CHANG|
000006B0: 45 20 44 52 49 56 45 20 23 20 2A 2A 2A 2A 2A 2A |E DRIVE # ******|
000006C0: 2A 00 C7 0E 94 02 3A 00 E8 0E 9E 02 99 22 13 11 |*.....:......"..|
000006D0: 11 22 3A 81 49 B2 31 A4 31 32 3A 99 58 24 3A 82 |.":.I.1.12:.X$:.|
000006E0: 3A 99 22 13 11 11 11 22 00 17 0F A8 02 99 22 20 |:."...."......" |
000006F0: D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000700: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000710: C3 C3 C3 C3 C3 C9 22 00 46 0F B2 02 99 22 20 DD |......".F...." .|
00000720: 20 20 20 20 20 20 54 55 52 4E 20 4F 46 46 20 41 | TURN OFF A|
00000730: 4C 4C 20 44 49 53 4B 20 44 52 49 56 45 53 20 20 |LL DISK DRIVES |
00000740: 20 20 20 20 DD 22 00 75 0F BC 02 99 22 20 DD 20 | .".u...." . |
00000750: 20 20 20 45 58 43 45 50 54 20 54 48 45 20 4F 4E | EXCEPT THE ON|
00000760: 45 20 54 4F 20 42 45 20 43 48 41 4E 47 45 44 20 |E TO BE CHANGED |
00000770: 20 20 20 DD 22 00 A5 0F C6 02 99 22 20 CA C3 C3 | ."......" ...|
00000780: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000790: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000007A0: C3 C3 CB 11 22 00 D3 0F D0 02 85 22 20 20 20 20 |...."......" |
000007B0: 20 20 54 48 45 20 12 4F 4C 44 92 20 44 52 49 56 | THE .OLD. DRIV|
000007C0: 45 20 4E 55 4D 42 45 52 20 20 38 9D 9D 9D 22 3B |E NUMBER 8...";|
000007D0: 4F 4C 24 00 FC 0F DA 02 4F 4C B2 C5 28 4F 4C 24 |OL$.....OL..(OL$|
000007E0: 29 3A 8B 4F 4C B3 38 B0 4F 4C B1 31 32 A7 99 22 |):.OL.8.OL.12.."|
000007F0: 91 22 58 24 22 91 22 3A 89 37 32 30 00 02 10 E4 |."X$".":.720....|
00000800: 02 99 00 30 10 EE 02 85 22 20 20 20 20 20 20 54 |...0...." T|
00000810: 48 45 20 12 4E 45 57 92 20 44 52 49 56 45 20 4E |HE .NEW. DRIVE N|
00000820: 55 4D 42 45 52 20 20 39 9D 9D 9D 22 3B 4E 45 24 |UMBER 9...";NE$|
00000830: 00 59 10 F8 02 4E 45 B2 C5 28 4E 45 24 29 3A 8B |.Y...NE..(NE$):.|
00000840: 4E 45 B3 38 B0 4E 45 B1 31 32 A7 99 22 91 22 58 |NE.8.NE.12.."."X|
00000850: 24 22 91 22 3A 89 37 35 30 00 6B 10 02 03 A0 31 |$".":.750.k....1|
00000860: 35 3A 9F 31 35 2C 4F 4C 2C 31 35 00 97 10 0C 03 |5:.15,OL,15.....|
00000870: 98 31 35 2C 22 4D 2D 57 22 C7 28 31 31 39 29 C7 |.15,"M-W".(119).|
00000880: 28 30 29 C7 28 32 29 C7 28 4E 45 AA 33 32 29 C7 |(0).(2).(NE.32).|
00000890: 28 4E 45 AA 36 34 29 00 C7 10 16 03 99 22 11 20 |(NE.64)......". |
000008A0: D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000008B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000008C0: C3 C3 C3 C3 C3 C9 22 00 F6 10 20 03 99 22 20 DD |......"... .." .|
000008D0: 20 20 20 54 48 45 20 53 45 4C 45 43 54 45 44 20 | THE SELECTED |
000008E0: 44 52 49 56 45 20 48 41 53 20 4E 4F 57 20 42 45 |DRIVE HAS NOW BE|
000008F0: 45 4E 20 20 DD 22 00 25 11 2A 03 99 22 20 DD 20 |EN .".%.*.." . |
00000900: 20 43 48 41 4E 47 45 44 2C 20 4E 4F 57 20 54 55 | CHANGED, NOW TU|
00000910: 52 4E 20 4F 4E 20 4F 54 48 45 52 20 44 52 49 56 |RN ON OTHER DRIV|
00000920: 45 53 20 DD 22 00 54 11 34 03 99 22 20 AB C3 C3 |ES .".T.4.." ...|
00000930: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000940: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000950: C3 C3 B3 22 00 83 11 3E 03 99 22 20 DD 20 20 20 |..."...>.." . |
00000960: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000970: 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 20 | RETURN TO MENU |
00000980: 20 DD 22 00 B2 11 48 03 99 22 20 CA C3 C3 C3 C3 | ."...H.." .....|
00000990: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000009A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000009B0: CB 22 00 C5 11 52 03 A1 41 24 3A 8B 41 24 B2 22 |."...R..A$:.A$."|
000009C0: 22 A7 38 35 30 00 CF 11 5C 03 89 31 33 33 30 00 |".850...\..1330.|
000009D0: F3 11 66 03 8F 20 2A 20 44 49 53 4B 20 45 52 52 |..f.. * DISK ERR|
000009E0: 4F 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OR *************|
000009F0: 2A 2A 2A 00 F9 11 70 03 3A 00 0F 12 7A 03 84 31 |***...p.:...z..1|
00000A00: 35 2C 45 52 2C 45 4D 24 2C 45 54 2C 45 53 24 00 |5,ER,EM$,ET,ES$.|
00000A10: 1B 12 84 03 8B 45 52 B2 30 A7 8E 00 3B 12 8E 03 |.....ER.0...;...|
00000A20: 99 43 44 24 3A 81 49 B2 31 A4 38 3A 99 58 24 3A |.CD$:.I.1.8:.X$:|
00000A30: 82 3A 99 43 44 24 22 11 11 11 22 00 6A 12 98 03 |.:.CD$"...".j...|
00000A40: 99 22 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |." .............|
00000A50: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000A60: C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 99 12 A2 03 99 |........."......|
00000A70: 22 20 DD 20 20 20 20 20 20 20 20 20 20 20 20 20 |" . |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 20 20 20 20 20 20 DD 22 00 CA 12 AC 03 99 22 | ."......"|
00000AA0: 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00000AB0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000AC0: C3 C3 C3 C3 C3 C3 CB 91 91 22 00 D6 12 B6 03 81 |........."......|
00000AD0: 41 B2 31 A4 31 30 00 05 13 C0 03 99 22 1D 1D 12 |A.1.10......"...|
00000AE0: 44 49 53 4B 20 45 52 52 4F 52 20 21 92 20 22 45 |DISK ERROR !. "E|
00000AF0: 52 22 20 22 45 4D 24 22 91 22 3A 81 49 B2 31 A4 |R" "EM$".":.I.1.|
00000B00: 31 30 30 3A 82 00 32 13 CA 03 99 22 1D 1D 44 49 |100:..2...."..DI|
00000B10: 53 4B 20 45 52 52 4F 52 20 21 20 22 45 52 22 20 |SK ERROR ! "ER" |
00000B20: 22 45 4D 24 22 91 22 3A 81 49 B2 31 A4 31 30 30 |"EM$".":.I.1.100|
00000B30: 3A 82 00 3B 13 D4 03 82 41 3A 8A 00 5F 13 DE 03 |:..;....A:.._...|
00000B40: 8F 20 2A 20 49 4E 50 55 54 20 52 4F 55 54 49 4E |. * INPUT ROUTIN|
00000B50: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |E *************.|
00000B60: 65 13 E8 03 3A 00 77 13 F2 03 99 22 11 20 20 22 |e...:.w....". "|
00000B70: 4D 45 24 22 20 3A 22 00 85 13 FC 03 85 22 20 20 |ME$" :"......" |
00000B80: 22 3B 4E 4E 24 00 BB 13 06 04 8B C3 28 4E 4E 24 |";NN$.......(NN$|
00000B90: 29 B1 58 32 A7 99 22 91 20 20 20 20 20 20 20 20 |).X2..". |
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 20 91 22 3A 89 31 30 32 30 00 D0 13 10 04 | .":.1020.....|
00000BC0: 4E 4E 24 B2 C8 28 4E 4E 24 AA 58 24 2C 58 32 29 |NN$..(NN$.X$,X2)|
00000BD0: 00 D6 13 1A 04 8E 00 FA 13 24 04 8F 20 2A 20 50 |.........$.. * P|
00000BE0: 52 49 4E 54 20 4F 55 54 20 2A 2A 2A 2A 2A 2A 2A |RINT OUT *******|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 14 2E 04 3A |**********.....:|
00000C00: 00 37 14 38 04 99 43 44 24 3A 81 49 B2 31 A4 38 |.7.8..CD$:.I.1.8|
00000C10: 3A 99 58 24 3A 82 49 3A 99 43 44 24 3A 5A 58 24 |:.X$:.I:.CD$:ZX$|
00000C20: B2 22 22 3A 8B 58 32 B2 32 A7 5A 58 24 B2 22 20 |."":.X2.2.ZX$." |
00000C30: 20 20 20 20 20 20 22 00 66 14 42 04 99 22 20 D5 | ".f.B.." .|
00000C40: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000C50: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000C60: C3 C3 C3 C3 C9 22 00 86 14 4C 04 99 22 20 DD 22 |....."...L.." ."|
00000C70: 5A 58 24 4D 45 24 22 20 27 22 44 4E 24 22 27 22 |ZX$ME$" '"DN$"'"|
00000C80: 5A 58 24 22 DD 22 00 B5 14 56 04 99 22 20 CA C3 |ZX$"."...V.." ..|
00000C90: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000CA0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000CB0: C3 C3 C3 CB 22 00 BB 14 60 04 8E 00 EB 14 6A 04 |...."...`.....j.|
00000CC0: 99 22 91 20 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.". ............|
00000CD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000CE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 19 15 74 04 |.........."...t.|
00000CF0: 99 22 20 DD 20 20 20 44 4F 20 59 4F 55 20 57 49 |." . DO YOU WI|
00000D00: 53 48 20 54 4F 20 43 48 41 4E 47 45 20 49 54 20 |SH TO CHANGE IT |
00000D10: 28 59 2F 4E 29 20 20 20 DD 00 48 15 7E 04 99 22 |(Y/N) ..H.~.."|
00000D20: 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00000D30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000D40: C3 C3 C3 C3 C3 C3 CB 22 00 5C 15 88 04 A1 41 24 |.......".\....A$|
00000D50: 3A 8B 41 24 B2 22 22 A7 31 31 36 30 00 6D 15 92 |:.A$."".1160.m..|
00000D60: 04 8B 41 24 B2 22 4E 22 A7 31 33 33 30 00 73 15 |..A$."N".1330.s.|
00000D70: 9C 04 8E 00 96 15 A6 04 8F 20 2A 20 50 55 54 20 |......... * PUT |
00000D80: 44 49 53 4B 20 49 4E 46 4F 20 2A 2A 2A 2A 2A 2A |DISK INFO ******|
00000D90: 2A 2A 2A 2A 2A 2A 00 9C 15 B0 04 3A 00 B4 15 BA |******.....:....|
00000DA0: 04 98 31 35 2C 22 42 2D 50 3A 32 2C 22 58 31 3A |..15,"B-P:2,"X1:|
00000DB0: 8D 38 37 30 00 C5 15 C4 04 98 32 2C 4E 4E 24 3B |.870......2,NN$;|
00000DC0: 3A 8D 38 37 30 00 E0 15 CE 04 98 31 35 2C 22 55 |:.870......15,"U|
00000DD0: 32 3A 32 2C 30 2C 31 38 2C 30 22 3A 8D 38 37 30 |2:2,0,18,0":.870|
00000DE0: 00 E6 15 D8 04 8E 00 09 16 E2 04 8F 20 2A 20 47 |............ * G|
00000DF0: 45 54 20 44 49 53 4B 20 49 4E 46 4F 20 2A 2A 2A |ET DISK INFO ***|
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0F 16 EC 04 3A 00 |*********.....:.|
00000E10: 21 16 F6 04 98 31 35 2C 22 49 30 22 3A 8D 38 37 |!....15,"I0":.87|
00000E20: 30 00 4A 16 00 05 A0 32 3A 9F 32 2C 38 2C 32 2C |0.J....2:.2,8,2,|
00000E30: 22 23 22 3A 98 31 35 2C 22 55 31 3A 32 2C 30 2C |"#":.15,"U1:2,0,|
00000E40: 31 38 2C 30 22 3A 8D 38 37 30 00 62 16 0A 05 98 |18,0":.870.b....|
00000E50: 31 35 2C 22 42 2D 50 3A 32 2C 22 58 31 3A 8D 38 |15,"B-P:2,"X1:.8|
00000E60: 37 30 00 89 16 14 05 44 4E 24 B2 22 22 3A 81 49 |70.....DN$."":.I|
00000E70: B2 31 A4 58 32 3A A1 23 32 2C 41 24 3A 44 4E 24 |.1.X2:.#2,A$:DN$|
00000E80: B2 44 4E 24 AA 41 24 3A 82 00 8F 16 1E 05 8E 00 |.DN$.A$:........|
00000E90: 95 16 28 05 3A 00 B8 16 32 05 8F 20 2A 2A 2A 2A |..(.:...2.. ****|
00000EA0: 20 43 4C 4F 53 45 20 46 49 4C 45 53 20 41 4E 44 | CLOSE FILES AND|
00000EB0: 20 52 55 4E 20 2A 2A 2A 00 BE 16 3C 05 3A 00 D1 | RUN ***...<.:..|
00000EC0: 16 46 05 A0 31 3A A0 32 3A A0 33 3A A0 31 35 3A |.F..1:.2:.3:.15:|
00000ED0: 8A 00 D7 16 50 05 3A 00 FA 16 5A 05 8F 20 2A 2A |....P.:...Z.. **|
00000EE0: 2A 2A 2A 2A 2A 2A 20 44 45 4C 45 54 45 20 44 49 |****** DELETE DI|
00000EF0: 53 4B 20 2A 2A 2A 2A 2A 2A 2A 00 00 17 64 05 3A |SK *******...d.:|
00000F00: 00 1E 17 6E 05 86 20 4C 25 28 32 33 32 29 2C 4E |...n.. L%(232),N|
00000F10: 24 28 32 33 32 29 2C 54 25 28 32 33 32 29 00 4D |$(232),T%(232).M|
00000F20: 17 78 05 99 22 93 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 |.x..". .........|
00000F30: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000F40: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 7B 17 |............".{.|
00000F50: 82 05 99 22 20 DD 20 20 2A 2A 2A 2A 2A 2A 2A 2A |..." . ********|
00000F60: 2A 20 44 49 53 4B 20 44 45 4C 45 54 45 20 2A 2A |* DISK DELETE **|
00000F70: 2A 2A 2A 2A 2A 2A 2A 20 20 DD 22 00 A9 17 8C 05 |******* .".....|
00000F80: 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |." .............|
00000F90: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000FA0: C3 C3 C3 C3 C3 C3 C3 CB 22 00 D9 17 96 05 85 22 |........"......"|
00000FB0: 11 20 20 20 20 20 52 45 41 44 49 4E 47 20 46 52 |. READING FR|
00000FC0: 4F 4D 20 44 52 49 56 45 20 4E 55 4D 42 45 52 20 |OM DRIVE NUMBER |
00000FD0: 20 38 9D 9D 9D 22 3B 46 24 00 03 18 A0 05 46 B2 | 8...";F$.....F.|
00000FE0: C5 28 46 24 29 3A 8B 46 B3 38 B0 46 B1 31 32 A7 |.(F$):.F.8.F.12.|
00000FF0: 99 22 91 22 58 24 3A 99 22 91 91 91 22 3A 89 31 |."."X$:."...":.1|
00001000: 34 33 30 00 1A 18 AA 05 46 24 B2 C7 28 34 38 29 |430.....F$..(48)|
00001010: 3A 54 24 B2 46 24 3A 54 B2 38 00 24 18 B4 05 8D |:T$.F$:T.8.$....|
00001020: 32 30 36 30 00 44 18 BE 05 A0 31 3A A0 31 35 3A |2060.D....1:.15:|
00001030: 9F 20 31 35 2C 46 2C 31 35 3A 98 31 35 2C 22 49 |. 15,F,15:.15,"I|
00001040: 22 AA 46 24 00 56 18 C8 05 8D 32 30 33 30 3A 8B |".F$.V....2030:.|
00001050: 45 A7 31 39 33 30 00 84 18 D2 05 99 22 20 AB C3 |E.1930......" ..|
00001060: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001070: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001080: C3 C3 B3 22 00 B2 18 DC 05 99 22 20 DD 20 20 48 |..."......" . H|
00001090: 4F 4C 44 20 44 4F 57 4E 20 54 48 45 20 27 59 27 |OLD DOWN THE 'Y'|
000010A0: 20 4F 52 20 27 4E 27 20 4B 45 59 20 54 4F 20 20 | OR 'N' KEY TO |
000010B0: DD 22 00 E0 18 E6 05 99 22 20 DD 20 20 20 53 45 |."......" . SE|
000010C0: 4C 45 43 54 20 50 52 4F 47 52 41 4D 53 20 54 4F |LECT PROGRAMS TO|
000010D0: 20 42 45 20 44 45 4C 45 54 45 44 20 20 20 DD 22 | BE DELETED ."|
000010E0: 00 0F 19 F0 05 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 |......" ........|
000010F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001100: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 11 22 00 |..............".|
00001110: 32 19 FA 05 8F 20 2A 20 4C 49 53 54 20 46 49 4C |2.... * LIST FIL|
00001120: 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ES *************|
00001130: 2A 2A 00 38 19 04 06 3A 00 4B 19 0E 06 9F 20 31 |**.8...:.K.... 1|
00001140: 2C 46 2C 30 2C 22 24 22 AA 46 24 00 5D 19 18 06 |,F,0,"$".F$.]...|
00001150: 8D 32 30 33 30 3A 8B 45 A7 31 39 33 30 00 7B 19 |.2030:.E.1930.{.|
00001160: 22 06 4E B2 30 3A 52 B2 36 34 3A 5A B2 38 39 3A |".N.0:R.64:Z.89:|
00001170: 8D 32 31 38 30 3A 89 31 35 39 30 00 85 19 2C 06 |.2180:.1590...,.|
00001180: 8D 32 32 30 30 00 94 19 36 06 4C 25 B2 58 AA 59 |.2200...6.L%.X.Y|
00001190: AC 32 35 36 00 AB 19 40 06 A1 23 31 2C 41 24 3A |.256...@..#1,A$:|
000011A0: 8B 41 24 B2 22 22 89 31 38 32 30 00 BF 19 4A 06 |.A$."".1820...J.|
000011B0: 8B 41 24 B3 B1 C7 28 33 34 29 89 31 36 30 30 00 |.A$...(34).1600.|
000011C0: C9 19 54 06 4E 24 B2 22 22 00 E3 19 5E 06 A1 23 |..T.N$.""...^..#|
000011D0: 31 2C 41 24 3A 8B 41 24 B2 C7 28 33 34 29 89 31 |1,A$:.A$..(34).1|
000011E0: 36 35 30 00 F6 19 68 06 4E 24 B2 4E 24 AA 41 24 |650...h.N$.N$.A$|
000011F0: 3A 89 31 36 33 30 00 0D 1A 72 06 A1 23 31 2C 41 |:.1630...r..#1,A|
00001200: 24 3A 8B 41 24 B2 22 22 89 31 35 38 30 00 2A 1A |$:.A$."".1580.*.|
00001210: 7C 06 58 B2 C6 28 41 24 29 3A 8B 28 58 AF 31 32 ||.X..(A$):.(X.12|
00001220: 37 29 B2 33 32 89 31 36 35 30 00 42 1A 86 06 A1 |7).32.1650.B....|
00001230: 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 31 36 |#1,A$:.A$.."".16|
00001240: 37 30 00 73 1A 90 06 8B 20 28 20 58 B3 B1 38 30 |70.s.... ( X..80|
00001250: AF 58 B3 B1 38 33 20 29 20 AF 20 28 20 58 B3 B1 |.X..83 ) . ( X..|
00001260: 38 32 20 AF 20 58 B3 B1 38 35 20 29 20 89 20 31 |82 . X..85 ) . 1|
00001270: 35 38 30 00 93 1A 9A 06 46 45 24 B2 C7 28 58 29 |580.....FE$..(X)|
00001280: 3A 8B 46 45 24 B2 22 50 22 A7 46 45 24 B2 22 50 |:.FE$."P".FE$."P|
00001290: 52 47 22 00 AA 1A A4 06 8B 46 45 24 B2 22 53 22 |RG"......FE$."S"|
000012A0: A7 46 45 24 B2 22 53 45 51 22 00 C1 1A AE 06 8B |.FE$."SEQ"......|
000012B0: 46 45 24 B2 22 52 22 A7 46 45 24 B2 22 52 45 4C |FE$."R".FE$."REL|
000012C0: 22 00 D8 1A B8 06 8B 46 45 24 B2 22 55 22 A7 46 |"......FE$."U".F|
000012D0: 45 24 B2 22 55 53 52 22 00 F3 1A C2 06 99 22 20 |E$."USR"......" |
000012E0: 20 20 20 20 20 20 20 22 4E 24 3B A3 32 36 29 3B | "N$;.26);|
000012F0: 46 45 24 00 02 1B CC 06 50 B2 C2 28 32 30 33 29 |FE$.....P..(203)|
00001300: AF 52 00 1B 1B D6 06 A1 5A 24 3A 8B 5A 24 B2 22 |.R......Z$:.Z$."|
00001310: 22 AF 50 B3 36 34 89 31 37 39 30 00 41 1B E0 06 |".P.64.1790.A...|
00001320: 8B 5A 24 B2 22 59 22 B0 5A 24 B2 22 4E 22 A7 5A |.Z$."Y".Z$."N".Z|
00001330: B2 C6 28 5A 24 29 3A 52 B2 36 34 3A 89 31 37 39 |..(Z$):R.64:.179|
00001340: 30 00 59 1B EA 06 8B 5A 24 B2 C7 28 31 33 29 A7 |0.Y....Z$..(13).|
00001350: 52 B2 30 3A 89 31 37 39 30 00 63 1B F4 06 89 31 |R.0:.1790.c....1|
00001360: 37 35 30 00 9F 1B FE 06 8B 5A B3 38 30 A7 99 22 |750......Z.80.."|
00001370: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001390: 20 20 20 20 20 20 20 91 22 3A 89 31 35 38 30 00 | .":.1580.|
000013A0: C3 1B 08 07 4E B2 4E AA 31 3A 4C 25 28 4E 29 B2 |....N.N.1:L%(N).|
000013B0: 4C 25 3A 4E 24 28 4E 29 B2 4E 24 3A 54 25 28 4E |L%:N$(N).N$:T%(N|
000013C0: 29 B2 58 00 CD 1B 12 07 89 31 35 38 30 00 01 1C |).X......1580...|
000013D0: 1C 07 A0 31 3A A0 31 35 3A 99 22 20 20 20 2D 2D |...1:.15:." --|
000013E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000013F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001400: 22 00 24 1C 26 07 8F 20 2A 20 44 45 4C 45 54 45 |".$.&.. * DELETE|
00001410: 20 46 49 4C 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A | FILES *********|
00001420: 2A 2A 2A 2A 00 2A 1C 30 07 3A 00 35 1C 3A 07 81 |****.*.0.:.5.:..|
00001430: 4A B2 31 A4 4E 00 4B 1C 44 07 4C 25 B2 4C 25 28 |J.1.N.K.D.L%.L%(|
00001440: 4A 29 3A 54 25 B2 54 25 28 4A 29 00 61 1C 4E 07 |J):T%.T%(J).a.N.|
00001450: 9F 31 34 2C 46 2C 31 35 3A 9F 31 35 2C 54 2C 31 |.14,F,15:.15,T,1|
00001460: 35 00 84 1C 58 07 99 22 20 20 20 22 4E 24 28 4A |5...X.." "N$(J|
00001470: 29 3B C8 28 58 24 2C 31 37 AB C3 28 4E 24 28 4A |);.(X$,17..(N$(J|
00001480: 29 29 29 3B 00 9D 1C 62 07 98 31 35 2C 22 53 22 |)));...b..15,"S"|
00001490: AA 46 24 AA 22 3A 22 AA 4E 24 28 4A 29 00 A8 1C |.F$.":".N$(J)...|
000014A0: 6C 07 4C B2 4C AB 4C 25 00 C7 1C 76 07 8D 32 30 |l.L.L.L%...v..20|
000014B0: 33 30 3A 8B 45 31 AF 45 B3 31 A7 99 45 24 3B 45 |30:.E1.E.1..E$;E|
000014C0: 31 3A 89 31 39 33 30 00 D5 1C 80 07 99 22 12 22 |1:.1930......"."|
000014D0: 45 24 3B 45 31 00 E7 1C 8A 07 A0 34 3A A0 33 3A |E$;E1......4:.3:|
000014E0: A0 31 35 3A A0 31 34 00 EE 1C 94 07 82 4A 00 F9 |.15:.14......J..|
000014F0: 1C 9E 07 8D 20 32 30 36 30 00 27 1D A8 07 99 22 |.... 2060.'...."|
00001500: 20 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00001510: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001520: C3 C3 C3 C3 C3 B3 22 00 55 1D B2 07 99 22 20 DD |......".U...." .|
00001530: 20 20 20 20 20 20 41 4E 4F 54 48 45 52 20 44 49 | ANOTHER DI|
00001540: 53 4B 20 52 45 41 44 59 20 28 59 2F 4E 29 20 20 |SK READY (Y/N) |
00001550: 20 20 20 DD 22 00 83 1D BC 07 99 22 20 CA C3 C3 | ."......" ...|
00001560: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001570: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001580: C3 CB 22 00 97 1D C6 07 A1 41 24 3A 8B 41 24 B2 |.."......A$:.A$.|
00001590: 22 22 A7 31 39 39 30 00 A8 1D D0 07 8B 41 24 B2 |"".1990......A$.|
000015A0: 22 59 22 A7 31 34 30 30 00 B9 1D DA 07 8B 41 24 |"Y".1400......A$|
000015B0: B2 22 4E 22 A7 31 33 33 30 00 C3 1D E4 07 89 31 |."N".1330......1|
000015C0: 39 39 30 00 D6 1D EE 07 84 31 35 2C 45 2C 45 24 |990......15,E,E$|
000015D0: 2C 45 31 2C 45 32 00 F6 1D F8 07 8B 45 B2 30 A7 |,E1,E2......E.0.|
000015E0: 45 B2 28 53 54 20 AF 20 31 39 31 29 3A 45 24 B2 |E.(ST . 191):E$.|
000015F0: 22 2A 53 54 2A 22 00 FC 1D 02 08 8E 00 1F 1E 0C |"*ST*"..........|
00001600: 08 8F 20 2A 20 43 48 45 43 4B 20 46 4F 52 20 53 |.. * CHECK FOR S|
00001610: 43 52 41 54 43 48 20 2A 2A 2A 2A 2A 2A 2A 2A 00 |CRATCH ********.|
00001620: 25 1E 16 08 3A 00 37 1E 20 08 A0 31 35 3A 9F 20 |%...:.7. ..15:. |
00001630: 31 35 2C 54 2C 31 35 00 5D 1E 2A 08 98 31 35 2C |15,T,15.].*..15,|
00001640: 22 49 22 AA 54 24 3A 9F 31 2C 54 2C 30 2C 22 24 |"I".T$:.1,T,0,"$|
00001650: 22 AA 54 24 AA 22 3A 21 23 24 25 26 22 00 6F 1E |".T$.":!#$%&".o.|
00001660: 34 08 8D 32 30 33 30 3A 8B 45 A7 31 39 33 30 00 |4..2030:.E.1930.|
00001670: 79 1E 3E 08 8D 32 31 38 30 00 9C 1E 48 08 8F 20 |y.>..2180...H.. |
00001680: 2A 20 43 4F 4D 50 55 54 45 20 42 4C 4F 43 4B 53 |* COMPUTE BLOCKS|
00001690: 20 46 52 45 45 20 2A 2A 2A 2A 2A 2A 00 A2 1E 52 | FREE ******...R|
000016A0: 08 3A 00 B8 1E 5C 08 4C B2 58 AA 59 AC 32 35 36 |.:...\.L.X.Y.256|
000016B0: 3A 4C 24 B2 C4 28 4C 29 00 E7 1E 66 08 99 22 11 |:L$..(L)...f..".|
000016C0: 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
000016D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000016E0: C3 C3 C3 C3 C3 C9 22 00 25 1F 70 08 99 22 20 DD |......".%.p.." .|
000016F0: 20 20 20 2A 2A 2A 2A 2A 20 22 3B 4C 24 3B 22 20 | ***** ";L$;" |
00001700: 42 4C 4F 43 4B 53 20 46 52 45 45 20 20 2A 2A 2A |BLOCKS FREE ***|
00001710: 2A 2A 22 3B C8 28 58 24 2C 37 AB C3 28 4C 24 29 |**";.(X$,7..(L$)|
00001720: 29 3B 22 DD 22 00 32 1F 7A 08 A0 31 3A A0 31 35 |);".".2.z..1:.15|
00001730: 3A 8E 00 4C 1F 84 08 A1 23 31 2C 41 24 2C 41 24 |:..L....#1,A$,A$|
00001740: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 64 1F 8E |,A$,A$,A$,A$.d..|
00001750: 08 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 |..#1,A$:.A$.."".|
00001760: 32 31 39 30 00 75 1F 98 08 A1 23 31 2C 41 24 2C |2190.u....#1,A$,|
00001770: 41 24 2C 41 24 00 8C 1F A2 08 58 B2 C3 28 41 24 |A$,A$.....X..(A$|
00001780: 29 3A 8B 58 A7 58 B2 C6 28 41 24 29 00 AA 1F AC |):.X.X..(A$)....|
00001790: 08 A1 23 31 2C 41 24 3A 59 B2 C3 28 41 24 29 3A |..#1,A$:Y..(A$):|
000017A0: 8B 59 A7 59 B2 C6 28 41 24 29 00 B0 1F B6 08 8E |.Y.Y..(A$)......|
000017B0: 00 B6 1F C0 08 3A 00 D9 1F CA 08 8F 20 2A 2A 2A |.....:...... ***|
000017C0: 2A 2A 2A 2A 2A 20 43 48 45 43 4B 20 44 49 53 4B |***** CHECK DISK|
000017D0: 20 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 1F D4 08 3A 00 | ********.....:.|
000017E0: 0F 20 DE 08 99 22 93 20 D5 C3 C3 C3 C3 C3 C3 C3 |. ...". ........|
000017F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001800: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 |..............".|
00001810: 3E 20 E8 08 99 22 20 DD 20 20 2A 2A 2A 2A 2A 2A |> ..." . ******|
00001820: 2A 2A 2A 20 44 49 53 4B 20 43 48 45 43 4B 45 52 |*** DISK CHECKER|
00001830: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 DD 22 00 6F | ********* .".o|
00001840: 20 F2 08 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 | ..." ..........|
00001850: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001860: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 11 11 22 00 |..............".|
00001870: 9E 20 FC 08 99 22 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 |. ..." .........|
00001880: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001890: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 CD |............."..|
000018A0: 20 06 09 99 22 20 DD 20 20 50 4C 41 43 45 20 44 | ..." . PLACE D|
000018B0: 49 53 4B 20 54 4F 20 43 48 45 43 4B 20 49 4E 20 |ISK TO CHECK IN |
000018C0: 44 52 49 56 45 20 23 20 30 20 20 DD 22 00 FC 20 |DRIVE # 0 .".. |
000018D0: 10 09 99 22 20 DD 20 20 20 20 20 20 20 20 20 20 |..." . |
000018E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018F0: 20 20 20 20 20 20 20 20 20 20 DD 22 00 2B 21 1A | .".+!.|
00001900: 09 99 22 20 DD 20 20 20 54 48 45 4E 20 50 52 45 |.." . THEN PRE|
00001910: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |SS ANY KEY TO CO|
00001920: 4E 54 49 4E 55 45 20 20 20 DD 22 00 5A 21 24 09 |NTINUE .".Z!$.|
00001930: 99 22 20 AB C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |." .............|
00001940: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001950: C3 C3 C3 C3 C3 C3 C3 C3 B3 22 00 89 21 2E 09 99 |........."..!...|
00001960: 22 20 DD 20 20 20 20 50 52 45 53 53 20 52 45 54 |" . PRESS RET|
00001970: 55 52 4E 20 54 4F 20 45 58 49 54 20 54 4F 20 4D |URN TO EXIT TO M|
00001980: 45 4E 55 20 20 20 20 DD 22 00 BA 21 38 09 99 22 |ENU ."..!8.."|
00001990: 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
000019A0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000019B0: C3 C3 C3 C3 C3 C3 CB 11 11 22 00 CE 21 42 09 A1 |........."..!B..|
000019C0: 41 24 3A 8B 41 24 B2 22 22 A7 32 33 37 30 00 E1 |A$:.A$."".2370..|
000019D0: 21 4C 09 8B 41 24 B2 C7 28 31 33 29 A7 31 33 33 |!L..A$..(13).133|
000019E0: 30 00 F9 21 56 09 A0 32 3A 9F 32 2C 38 2C 32 2C |0..!V..2:.2,8,2,|
000019F0: 22 23 30 22 3A 8D 38 37 30 00 0D 22 60 09 51 B2 |"#0":.870.."`.Q.|
00001A00: 30 3A 52 B2 32 30 3A 44 24 B2 22 30 22 00 26 22 |0:R.20:D$."0".&"|
00001A10: 6A 09 81 54 B2 31 A4 33 35 3A 99 22 20 20 54 52 |j..T.1.35:." TR|
00001A20: 41 43 4B 22 3B 54 00 35 22 74 09 8B 54 B1 31 37 |ACK";T.5"t..T.17|
00001A30: A7 52 B2 31 38 00 44 22 7E 09 8B 54 B1 32 34 A7 |.R.18.D"~..T.24.|
00001A40: 52 B2 31 37 00 53 22 88 09 8B 54 B1 33 30 A7 52 |R.17.S"...T.30.R|
00001A50: B2 31 36 00 5E 22 92 09 81 53 B2 30 A4 52 00 7C |.16.^"...S.0.R.||
00001A60: 22 9C 09 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"..."...........|
00001A70: 1D 1D 20 53 45 43 54 4F 52 22 3B 53 00 86 22 A6 |.. SECTOR";S..".|
00001A80: 09 8D 32 35 38 30 00 9D 22 B0 09 A1 41 24 3A 8B |..2580.."...A$:.|
00001A90: 41 24 B2 C7 28 31 33 29 A7 32 35 32 30 00 A4 22 |A$..(13).2520.."|
00001AA0: BA 09 82 53 00 D0 22 C4 09 99 22 91 20 20 20 20 |...S.."...". |
00001AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 | ."|
00001AD0: 00 D7 22 CE 09 82 54 00 07 23 D8 09 99 22 11 20 |.."...T..#...". |
00001AE0: D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001AF0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001B00: C3 C3 C3 C3 C3 C9 22 00 27 23 E2 09 51 24 B2 C4 |......".'#..Q$..|
00001B10: 28 51 29 3A 51 24 B2 C8 28 58 24 2C 34 AB C3 28 |(Q):Q$..(X$,4..(|
00001B20: 51 24 29 29 AA 51 24 00 58 23 EC 09 99 22 20 DD |Q$)).Q$.X#..." .|
00001B30: 20 12 2A 2A 2A 2A 2A 20 4E 55 4D 42 45 52 20 4F | .***** NUMBER O|
00001B40: 46 20 45 52 52 4F 52 53 20 3D 22 51 24 22 20 2A |F ERRORS ="Q$" *|
00001B50: 2A 2A 2A 2A 92 20 DD 22 00 87 23 F6 09 99 22 20 |****. ."..#..." |
00001B60: CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001B70: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001B80: C3 C3 C3 C3 C3 CB 22 00 9E 23 00 0A 81 49 B2 31 |......"..#...I.1|
00001B90: A4 32 30 30 30 3A 82 49 3A 89 31 33 33 30 00 A4 |.2000:.I:.1330..|
00001BA0: 23 0A 0A 3A 00 C7 23 14 0A 8F 20 2A 2A 2A 2A 2A |#..:..#... *****|
00001BB0: 2A 2A 20 52 45 41 44 20 42 4C 4F 43 4B 20 2A 2A |** READ BLOCK **|
00001BC0: 2A 2A 2A 2A 2A 2A 2A 00 CD 23 1E 0A 3A 00 E5 23 |*******..#..:..#|
00001BD0: 28 0A 98 31 35 2C 22 42 2D 52 3A 32 2C 22 3B 44 |(..15,"B-R:2,";D|
00001BE0: 24 3B 54 3B 53 00 EB 23 32 0A 3A 00 0E 24 3C 0A |$;T;S..#2.:..$<.|
00001BF0: 8F 20 2A 2A 20 47 45 54 20 45 52 52 4F 52 20 53 |. ** GET ERROR S|
00001C00: 54 41 54 55 53 20 2A 2A 2A 2A 2A 2A 2A 2A 00 14 |TATUS ********..|
00001C10: 24 46 0A 3A 00 1E 24 50 0A 84 31 35 2C 45 00 29 |$F.:..$P..15,E.)|
00001C20: 24 5A 0A 8B 45 B2 30 A7 8E 00 69 24 64 0A 51 B2 |$Z..E.0...i$d.Q.|
00001C30: 51 AA 31 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D |Q.1:."..........|
00001C40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001C50: 12 45 52 52 4F 52 3A 92 22 54 3B 53 3A 99 22 20 |.ERROR:."T;S:." |
00001C60: 20 54 52 41 43 4B 22 3B 54 00 7E 24 6E 0A A0 32 | TRACK";T.~$n..2|
00001C70: 3A 9F 32 2C 38 2C 32 2C 22 23 30 22 3A 8E 00 84 |:.2,8,2,"#0":...|
00001C80: 24 78 0A 3A 00 A7 24 82 0A 8F 20 2A 2A 2A 2A 20 |$x.:..$... **** |
00001C90: 56 49 45 57 20 4C 4F 41 44 20 41 44 44 52 45 53 |VIEW LOAD ADDRES|
00001CA0: 53 45 53 20 2A 2A 2A 00 AD 24 8C 0A 3A 00 DD 24 |SES ***..$..:..$|
00001CB0: 96 0A 99 22 93 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 |...". ..........|
00001CC0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001CD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 22 00 0C 25 |............"..%|
00001CE0: A0 0A 99 22 20 DD 20 20 2A 2A 2A 2A 2A 2A 20 56 |..." . ****** V|
00001CF0: 49 45 57 20 4C 4F 41 44 20 41 44 44 52 45 53 53 |IEW LOAD ADDRESS|
00001D00: 45 53 20 2A 2A 2A 2A 2A 20 20 DD 22 00 3D 25 AA |ES ***** .".=%.|
00001D10: 0A 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ............|
00001D20: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001D30: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 11 11 22 00 62 25 |............".b%|
00001D40: B4 0A 43 24 B2 22 22 3A 99 22 20 20 20 45 4E 54 |..C$."":." ENT|
00001D50: 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 3A 20 AF |ER FILE NAME : .|
00001D60: 22 3B 00 76 25 BE 0A A1 41 24 3A 8B 41 24 B2 22 |";.v%...A$:.A$."|
00001D70: 22 A7 32 37 35 30 00 91 25 C8 0A 8B 41 24 B2 C7 |".2750..%...A$..|
00001D80: 28 32 30 29 AF C3 28 43 24 29 B3 31 A7 32 37 35 |(20)..(C$).1.275|
00001D90: 30 00 C0 25 D2 0A 8B 41 24 B2 C7 28 32 30 29 A7 |0..%...A$..(20).|
00001DA0: 99 22 9D 20 9D 9D AF 22 3B 3A 43 24 B2 C8 28 43 |.". ...";:C$..(C|
00001DB0: 24 2C C3 28 43 24 29 AB 31 29 3A 89 32 37 35 30 |$,.(C$).1):.2750|
00001DC0: 00 E9 25 DC 0A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..%...A$...(13).|
00001DD0: 99 22 9D 22 41 24 22 AF 22 3B 3A 43 24 B2 43 24 |."."A$".";:C$.C$|
00001DE0: AA 41 24 3A 89 32 37 35 30 00 F9 25 E6 0A 8B 43 |.A$:.2750..%...C|
00001DF0: 24 B2 22 22 A7 31 33 33 30 00 16 26 F0 0A 99 22 |$."".1330..&..."|
00001E00: 9D 20 11 22 3A A0 31 3A 9F 31 2C 38 2C 33 2C 22 |. .":.1:.1,8,3,"|
00001E10: 30 3A 22 AA 43 24 00 38 26 FA 0A 8B C9 28 43 24 |0:".C$.8&....(C$|
00001E20: 2C 31 29 B2 22 2A 22 A7 43 24 B2 C8 28 43 24 2C |,1)."*".C$..(C$,|
00001E30: C3 28 43 24 29 AB 31 29 00 47 26 04 0B 84 31 35 |.(C$).1).G&...15|
00001E40: 2C 45 52 2C 45 4D 24 00 56 26 0E 0B 8B 45 52 B2 |,ER,EM$.V&...ER.|
00001E50: 30 A7 32 39 34 30 00 66 26 18 0B 8D 32 38 35 30 |0.2940.f&...2850|
00001E60: 3A 89 32 36 39 30 00 89 26 22 0B 8F 20 2A 20 50 |:.2690..&".. * P|
00001E70: 52 49 4E 54 20 45 52 52 4F 52 20 53 54 41 54 55 |RINT ERROR STATU|
00001E80: 53 20 2A 2A 2A 2A 2A 2A 2A 00 8F 26 2C 0B 3A 00 |S *******..&,.:.|
00001E90: C4 26 36 0B 99 22 11 11 11 11 11 11 20 D5 C3 C3 |.&6.."...... ...|
00001EA0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001EB0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001EC0: C3 C3 C9 22 00 F3 26 40 0B 99 22 20 DD 20 20 20 |..."..&@.." . |
00001ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EF0: 20 DD 22 00 24 27 4A 0B 99 22 20 CA C3 C3 C3 C3 | .".$'J.." .....|
00001F00: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001F10: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00001F20: CB 91 91 22 00 30 27 54 0B 81 41 B2 31 A4 31 30 |...".0'T..A.1.10|
00001F30: 00 5F 27 5E 0B 99 22 1D 1D 12 44 49 53 4B 20 45 |._'^.."...DISK E|
00001F40: 52 52 4F 52 20 21 92 20 22 45 52 22 20 22 45 4D |RROR !. "ER" "EM|
00001F50: 24 22 91 22 3A 81 49 B2 31 A4 31 30 30 3A 82 00 |$".":.I.1.100:..|
00001F60: 8C 27 68 0B 99 22 1D 1D 44 49 53 4B 20 45 52 52 |.'h.."..DISK ERR|
00001F70: 4F 52 20 21 20 22 45 52 22 20 22 45 4D 24 22 91 |OR ! "ER" "EM$".|
00001F80: 22 3A 81 49 B2 31 A4 31 30 30 3A 82 00 A2 27 72 |":.I.1.100:...'r|
00001F90: 0B 82 41 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 35 |..A:.15:.15,8,15|
00001FA0: 3A 8E 00 C5 27 7C 0B 8F 20 2A 20 43 4F 4D 50 55 |:...'|.. * COMPU|
00001FB0: 54 45 20 53 54 41 52 54 49 4E 47 20 41 44 44 52 |TE STARTING ADDR|
00001FC0: 45 53 53 20 2A 00 CB 27 86 0B 3A 00 DF 27 90 0B |ESS *..'..:..'..|
00001FD0: A1 23 31 2C 4C 42 24 3A A1 23 31 2C 48 42 24 00 |.#1,LB$:.#1,HB$.|
00001FE0: 09 28 9A 0B 4E 24 B2 C7 28 30 29 3A 56 B2 28 C6 |.(..N$..(0):V.(.|
00001FF0: 28 48 42 24 AA 4E 24 29 AC 32 35 36 29 AA 28 C6 |(HB$.N$).256).(.|
00002000: 28 4C 42 24 AA 4E 24 29 29 00 1F 28 A4 0B 45 4C |(LB$.N$))..(..EL|
00002010: B2 56 3A 8D 33 30 33 30 3A 45 4C 24 B2 42 24 00 |.V:.3030:EL$.B$.|
00002020: 42 28 AE 0B 8F 20 2A 46 49 4E 44 20 46 49 4C 45 |B(... *FIND FILE|
00002030: 20 41 4E 44 20 45 4E 44 20 2A 2A 2A 2A 2A 2A 2A | AND END *******|
00002040: 2A 2A 00 48 28 B8 0B 3A 00 61 28 C2 0B 8D 33 31 |**.H(..:.a(...31|
00002050: 39 30 3A 8B 51 A7 8D 32 38 35 30 3A 89 32 36 39 |90:.Q..2850:.269|
00002060: 30 00 84 28 CC 0B 56 B2 45 4C AA 45 3A 45 48 B2 |0..(..V.EL.E:EH.|
00002070: 56 3A 8D 33 30 33 30 3A 45 48 24 B2 42 24 3A 89 |V:.3030:EH$.B$:.|
00002080: 33 30 38 30 00 A7 28 D6 0B 8F 20 2A 20 44 45 43 |3080..(... * DEC|
00002090: 49 4D 41 4C 20 54 4F 20 48 45 58 20 43 4F 4E 56 |IMAL TO HEX CONV|
000020A0: 45 52 54 45 52 20 2A 00 AD 28 E0 0B 3A 00 D9 28 |ERTER *..(..:..(|
000020B0: EA 0B 42 24 B2 22 22 3A 4C 24 B2 C4 28 56 29 3A |..B$."":L$..(V):|
000020C0: 4C 24 B2 C9 28 4C 24 2C C3 28 4C 24 29 AB 31 29 |L$..(L$,.(L$).1)|
000020D0: 3A 56 B2 56 AD 34 30 39 36 00 03 29 F4 0B 81 4A |:V.V.4096..)...J|
000020E0: B2 31 A4 34 3A 56 25 B2 56 3A 56 B2 31 36 AC 28 |.1.4:V%.V:V.16.(|
000020F0: 56 AB 56 25 29 3A 8B 56 25 B1 39 A7 56 25 B2 56 |V.V%):.V%.9.V%.V|
00002100: 25 AA 37 00 1B 29 FE 0B 42 24 B2 42 24 AA C7 28 |%.7..)..B$.B$..(|
00002110: 56 25 AA 34 38 29 3A 82 4A 3A 8E 00 3E 29 08 0C |V%.48):.J:..>)..|
00002120: 8F 20 2A 20 50 52 49 4E 54 20 41 44 44 52 45 53 |. * PRINT ADDRES|
00002130: 53 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 44 |SES **********.D|
00002140: 29 12 0C 3A 00 85 29 1C 0C 99 22 11 11 11 11 20 |)..:..)...".... |
00002150: 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 53 53 |STARTING ADDRESS|
00002160: 22 3A 99 22 11 20 20 20 44 45 43 49 4D 41 4C 20 |":.". DECIMAL |
00002170: 3D 20 22 45 4C 22 20 3A 20 20 48 45 58 20 3D 20 |= "EL" : HEX = |
00002180: 24 22 45 4C 24 00 C2 29 26 0C 99 22 11 11 20 45 |$"EL$..)&..".. E|
00002190: 4E 44 49 4E 47 20 41 44 44 52 45 53 53 22 3A 99 |NDING ADDRESS":.|
000021A0: 22 11 20 20 20 44 45 43 49 4D 41 4C 20 3D 20 22 |". DECIMAL = "|
000021B0: 45 48 22 20 3A 20 20 48 45 58 20 3D 20 24 22 45 |EH" : HEX = $"E|
000021C0: 48 24 00 C9 29 30 0C A0 31 00 F9 29 3A 0C 99 22 |H$..)0..1..):.."|
000021D0: 11 11 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.. .............|
000021E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000021F0: C3 C3 C3 C3 C3 C3 C3 C9 22 00 27 2A 44 0C 99 22 |........".'*D.."|
00002200: 20 DD 20 20 20 20 20 20 56 49 45 57 20 41 4E 4F | . VIEW ANO|
00002210: 54 48 45 52 20 46 49 4C 45 20 28 59 2F 4E 29 20 |THER FILE (Y/N) |
00002220: 20 20 20 20 20 DD 22 00 55 2A 4E 0C 99 22 20 CA | .".U*N.." .|
00002230: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002240: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002250: C3 C3 C3 CB 22 00 69 2A 58 0C A1 41 24 3A 8B 41 |....".i*X..A$:.A|
00002260: 24 B2 22 22 A7 33 31 36 30 00 7A 2A 62 0C 8B 41 |$."".3160.z*b..A|
00002270: 24 B2 22 59 22 A7 32 36 39 30 00 84 2A 6C 0C 89 |$."Y".2690..*l..|
00002280: 31 33 33 30 00 A7 2A 76 0C 8F 20 2A 20 46 49 4E |1330..*v.. * FIN|
00002290: 44 20 46 49 4C 45 20 4E 41 4D 45 20 2A 2A 2A 2A |D FILE NAME ****|
000022A0: 2A 2A 2A 2A 2A 2A 2A 00 AD 2A 80 0C 3A 00 C8 2A |*******..*..:..*|
000022B0: 8A 0C A0 31 3A 9F 31 2C 38 2C 32 2C 22 23 22 3A |...1:.1,8,2,"#":|
000022C0: 54 B2 31 38 3A 53 B2 31 00 DD 2A 94 0C 98 31 35 |T.18:S.1..*...15|
000022D0: 2C 22 55 31 22 3B 32 3B 30 3B 54 3B 53 00 EB 2A |,"U1";2;0;T;S..*|
000022E0: 9E 0C A1 23 31 2C 54 24 2C 53 24 00 F6 2A A8 0C |...#1,T$,S$..*..|
000022F0: 81 58 B2 31 A4 38 00 14 2B B2 0C A1 23 31 2C 4B |.X.1.8..+...#1,K|
00002300: 24 2C 54 32 24 2C 53 32 24 3A 4B B2 C6 28 4B 24 |$,T2$,S2$:K..(K$|
00002310: AA 4E 24 29 00 26 2B BC 0C 46 24 B2 22 22 3A 81 |.N$).&+..F$."":.|
00002320: 41 B2 31 A4 32 37 00 3D 2B C6 0C A1 23 31 2C 41 |A.1.27.=+...#1,A|
00002330: 24 3A 46 24 B2 46 24 AA 41 24 3A 82 41 00 59 2B |$:F$.F$.A$:.A.Y+|
00002340: D0 0C 46 24 B2 C8 28 46 24 2C 31 36 29 3A 8B 4B |..F$..(F$,16):.K|
00002350: B3 31 32 39 A7 33 33 32 30 00 88 2B DA 0C 99 22 |.129.3320..+..."|
00002360: 20 D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ...............|
00002370: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00002380: C3 C3 C3 C3 C3 C3 C9 22 00 AD 2B E4 0C 99 22 20 |......."..+..." |
00002390: DD 20 4C 4F 4F 4B 49 4E 47 20 41 54 20 46 49 4C |. LOOKING AT FIL|
000023A0: 45 20 3A 20 12 22 46 24 22 92 20 DD 22 00 DF 2B |E : ."F$". ."..+|
000023B0: EE 0C 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |..." ...........|
000023C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000023D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 91 91 91 22 00 |..............".|
000023E0: FE 2B F8 0C 8B C8 28 46 24 2C C3 28 43 24 29 29 |.+....(F$,.(C$))|
000023F0: B2 43 24 AF 4B B1 31 32 38 A7 33 33 34 30 00 20 |.C$.K.128.3340. |
00002400: 2C 02 0D A1 23 31 2C 41 24 2C 41 24 3A 82 58 3A |,...#1,A$,A$:.X:|
00002410: 53 B2 C6 28 53 24 AA 4E 24 29 3A 89 33 32 32 30 |S..(S$.N$):.3220|
00002420: 00 43 2C 0C 0D 8F 20 2A 20 47 45 54 20 45 4E 44 |.C,... * GET END|
00002430: 49 4E 47 20 4C 4F 43 41 54 49 4F 4E 20 2A 2A 2A |ING LOCATION ***|
00002440: 2A 2A 2A 00 49 2C 16 0D 3A 00 7E 2C 20 0D 51 B2 |***.I,..:.~, .Q.|
00002450: 30 3A 8B 4B B3 B1 31 33 30 A7 51 B2 31 3A 45 52 |0:.K..130.Q.1:ER|
00002460: B2 36 34 3A 45 4D 24 B2 22 46 49 4C 45 20 54 59 |.64:EM$."FILE TY|
00002470: 50 45 20 4D 49 53 4D 41 54 43 48 22 3A 8E 00 9E |PE MISMATCH":...|
00002480: 2C 2A 0D 45 B2 30 3A 54 B2 C6 28 54 32 24 AA 4E |,*.E.0:T..(T2$.N|
00002490: 24 29 3A 53 B2 C6 28 53 32 24 AA 4E 24 29 00 B3 |$):S..(S2$.N$)..|
000024A0: 2C 34 0D 98 31 35 2C 22 55 31 22 3B 32 3B 30 3B |,4..15,"U1";2;0;|
000024B0: 54 3B 53 00 CD 2C 3E 0D A1 23 31 2C 54 24 2C 53 |T;S..,>..#1,T$,S|
000024C0: 24 3A 8B 54 24 B2 22 22 A7 33 34 31 30 00 F3 2C |$:.T$."".3410..,|
000024D0: 48 0D 45 B2 45 AA 31 3A 54 B2 C6 28 54 24 AA 4E |H.E.E.1:T..(T$.N|
000024E0: 24 29 3A 53 B2 C6 28 53 24 AA 4E 24 29 3A 89 33 |$):S..(S$.N$):.3|
000024F0: 33 38 30 00 0C 2D 52 0D 45 B2 45 AC 32 35 34 AB |380..-R.E.E.254.|
00002500: 33 AA C6 28 53 24 AA 4E 24 29 3A 8E 00 12 2D 5C |3..(S$.N$):...-\|
00002510: 0D 3A 00 35 2D 66 0D 8F 20 2A 2A 20 43 4C 4F 53 |.:.5-f.. ** CLOS|
00002520: 45 20 41 4C 4C 20 46 49 4C 45 53 20 26 20 45 58 |E ALL FILES & EX|
00002530: 49 54 20 2A 2A 00 3B 2D 70 0D 3A 00 50 2D 7A 0D |IT **.;-p.:.P-z.|
00002540: A0 31 3A A0 32 3A A0 33 3A A0 31 34 3A A0 31 35 |.1:.2:.3:.14:.15|
00002550: 00 00 00 |... |
..%.D.. *****************************.I.
N.. * *.M.X..
* DISK PAC *...... *
*...... * B
Y STEVE CATES *.Y.... *
*... .. * (C) EDUCOM
P 1983 *.!.... *
*.E.... ************************
*****.K...:.M.H..53272,21:.53280,12:.532
81,12...R.X$."
":CD$."..............."....
..".. UCCCCCCCCCCCCCCCCCCCCCCCCCIUCCCCCC
CCCI"......" . **** DISK PAC (C) **** .
. EDUCOMP .".C...." JCCCCCCCCCCCCCCCCCCC
CCCCCCKJCCCCCCCCCK".S....". UCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCI"......" . 1.
DELETE DISK FILES .".Q....
" . 2. CHECK DISK BLOCKS .
"......" . 3. VIEW LOAD ADDRESSES
."./.".." . 4. CHANGE THE DISK NA
ME .".^.,.." . 5. CHANGE THE
DISK ID NUMBER ."...6.." . 6. CHAN
GE THE DISK DEVICE NUMBER ."...@.." . 7
. EXIT PROGRAM ."...J
.." .CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C."...T.." . PRESS KEYS 1-7 TO CHOOSE SE
LECTION ..H.^.." JCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCK".Y.H. 15:.15,8,15.L.R..A
$:.A$."".370.}.|..A$."1".1370......A$."2
".2250......A$."3".2690......A$."4".470.
.....A$."5".560.O....A$."6".650......A$.
"7".A$.G(13).3430...B..370...L.:...V.. *
******* CHANGE NAME ********."...:.9...X
1.144:X2.16:.1250.A...ME$."THE OLD NAME
IS ":.1060:.1130.....ME$."ENTER NEW DIS
K NAME":.990......1190:.1250.....ME$."TH
E NEW NAME IS ":.1060.E....1130:.470.K.
&.:...0.. ******** CHANGE ID **********.
..:.:...D.X1.162:X2.2:.1250.3.N.ME$."THE
OLD ID # IS ":.1060:.1130.V.X.ME$."ENT
ER NEW ID NUMBER":.990.F.B..1190:.1250..
.L.ME$."THE NEW ID # IS ":.1060...V..11
30:.560.....:.A.... ****** CHANGE DRIVE
# *******.G...:......"...":.I.1.12:.X$:.
:."...."......" UCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCI".F...." . TURN OFF A
LL DISK DRIVES .".U...." . EXCEP
T THE ONE TO BE CHANGED ."...F.." JCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK.".S.
P.." THE .OLD. DRIVE NUMBER 8...";
OL$...Z.OL.E(OL$):.OL.8.OL.12.."."X$".":
.720.......0...." THE .NEW. DRIVE N
UMBER 9...";NE$.Y...NE.E(NE$):.NE.8.NE.
12.."."X$".":.750.K... 15:.15,OL,15.....
.15,"M-W"G(119)G(0)G(2)G(NE.32)G(NE.64).
G....". UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCI"... .." . THE SELECTED DRIVE HA
S NOW BEEN .".%.*.." . CHANGED, NOW TU
RN ON OTHER DRIVES .".T.4.." .CCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCC."...>.." .
PRESS ANY KEY TO RETURN TO MENU ."...H.
." JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
K".E.R..A$:.A$."".850.O.\..1330...F.. *
DISK ERROR ****************...P.:...Z..1
5,ER,EM$,ET,ES$......ER.0...;....CD$:.I.
1.8:.X$:.:.CD$"...".J...." UCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCI"......" .
.".J...."
JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK.
.".V....A.1.10......"...DISK ERROR !. "E
R" "EM$".":.I.1.100:..2.J.."..DISK ERROR
! "ER" "EM$".":.I.1.100:..;.T..A:.._...
. * INPUT ROUTINE *************.E...:.W.
...". "ME$" :"......" ";NN$......C(NN$
).X2..". .":.1
020.P...NN$.H(NN$.X$,X2).V.......$.. * P
RINT OUT *****************.....:.7.8..CD
$:.I.1.8:.X$:.I:.CD$:ZX$."":.X2.2.ZX$."
".F.B.." UCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCI"...L.." ."ZX$ME$" '"DN$"'"
ZX$"."...V.." JCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCK"...`.....J..". .CCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCC."...T.." . D
O YOU WISH TO CHANGE IT (Y/N) ..H.~.."
JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK"
.\....A$:.A$."".1160.M....A$."N".1330.S.
......... * PUT DISK INFO ************..
...:......15,"B-P:2,"X1:.870.E.D..2,NN$;
:.870...N..15,"U2:2,0,18,0":.870...X....
.... * GET DISK INFO ************.....:.
!....15,"I0":.870.J... 2:.2,8,2,"#":.15,
"U1:2,0,18,0":.870.B....15,"B-P:2,"X1:.8
70.....DN$."":.I.1.X2:.#2,A$:DN$.DN$.A$:
..........(.:...2.. **** CLOSE FILES AND
RUN ***...<.:.Q.F. 1: 2: 3: 15:..W.P.:.
..Z.. ******** DELETE DISK *******...D.:
...N.. L%(232),N$(232),T%(232).M.X..". U
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI".{.
..." . ********* DISK DELETE *********
."......" JCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCK".Y....". READING FROM DRIVE
NUMBER 8...";F$... .F.E(F$):.F.8.F.12.
."."X$:."...":.1430.....F$.G(48):T$.F$:T
.8.$....2060.D... 1: 15:. 15,F,15:.15,"I
".F$.V.H..2030:.E.1930...R.." .CCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCC."......" . H
OLD DOWN THE 'Y' OR 'N' KEY TO ."......
" . SELECT PROGRAMS TO BE DELETED ."
......" JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCK.".2.... * LIST FILES *************
**.8...:.K.... 1,F,0,"$".F$.]....2030:.E
.1930.{.".N.0:R.64:Z.89:.2180:.1590...,.
.2200...6.L%.X.Y.256...@..#1,A$:.A$."".1
820...J..A$..G(34).1600.I.T.N$.""...^..#
1,A$:.A$.G(34).1650...H.N$.N$.A$:.1630..
.R..#1,A$:.A$."".1580.*.|.X.F(A$):.(X.12
7).32.1650.B....#1,A$:.A$.."".1670.S....
( X..80.X..83 ) . ( X..82 . X..85 ) . 1
580.....FE$.G(X):.FE$."P".FE$."PRG".....
.FE$."S".FE$."SEQ".A....FE$."R".FE$."REL
".X....FE$."U".FE$."USR"...B.." "
N$;.26);FE$...L.P.B(203).R...V..Z$:.Z$."
".P.64.1790.A....Z$."Y".Z$."N".Z.F(Z$):R
.64:.1790.Y....Z$.G(13).R.0:.1790.C....1
750......Z.80..".
.":.1580.C...N.N.1:L%(N).
L%:N$(N).N$:T%(N).X.M....1580..... 1: 15
:." ----------------------------------
".$.&.. * DELETE FILES *************.*.0
.:.5.:..J.1.N.K.D.L%.L%(J):T%.T%(J).A.N.
.14,F,15:.15,T,15...X.." "N$(J);H(X$,1
7.C(N$(J)));...B..15,"S".F$.":".N$(J)...
L.L.L.L%.G.V..2030:.E1.E.1..E$;E1:.1930.
U...."."E$;E1..... 4: 3: 15: 14......J..
.... 2060.'...." .CCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCC.".U...." . ANOTHER DI
SK READY (Y/N) ."......" JCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCK"...F..A$:.A$.
"".1990...P..A$."Y".1400...Z..A$."N".133
0.C....1990.V....15,E,E$,E1,E2......E.0.
E.(ST . 191):E$."*ST*"............ * CHE
CK FOR SCRATCH ********.%...:.7. . 15:.
15,T,15.].*..15,"I".T$:.1,T,0,"$".T$.":!
#$%&".O.4..2030:.E.1930.Y.>..2180...H..
* COMPUTE BLOCKS FREE ******...R.:...\.L
.X.Y.256:L$.D(L)...F..". UCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCI".%.P.." . *****
";L$;" BLOCKS FREE *****";H(X$,7.C(L$)
);".".2.Z. 1: 15:..L....#1,A$,A$,A$,A$,A
$,A$.D....#1,A$:.A$.."".2190.U....#1,A$,
A$,A$.....X.C(A$):.X.X.F(A$)......#1,A$:
Y.C(A$):.Y.Y.F(A$)...........:.Y.J.. ***
***** CHECK DISK ********...T.:.. ...".
UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI".
> ..." . ********* DISK CHECKER *******
** .".O ..." JCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCK..".. ..." UCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCI".M ..." . PLACE D
ISK TO CHECK IN DRIVE # 0 .".. ..." .
.".+!.
.." . THEN PRESS ANY KEY TO CONTINUE
.".Z!$.." .CCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCC."..!..." . PRESS RETURN TO E
XIT TO MENU ."..!8.." JCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCK..".N!B..A$:.A$."
".2370..!L..A$.G(13).1330..!V. 2:.2,8,2,
"#0":.870.."`.Q.0:R.20:D$."0".&"J..T.1.3
5:." TRACK";T.5"T..T.17.R.18.D"~..T.24.
R.17.S"...T.30.R.16.^"...S.0.R.|"..."...
.......... SECTOR";S.."...2580.."...A$:.
A$.G(13).2520.."...S.P"D..".
.".W"N..T..#X..".
UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI".
'#..Q$.D(Q):Q$.H(X$,4.C(Q$)).Q$.X#..." .
.***** NUMBER OF ERRORS ="Q$" *****. ."
..#..." JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCK"..#...I.1.2000:.I:.1330..#..:.G#.
.. ******* READ BLOCK *********.M#..:..#
(..15,"B-R:2,";D$;T;S..#2.:..$<.. ** GET
ERROR STATUS ********..$F.:..$P..15,E.)
$Z..E.0...I$D.Q.Q.1:."..................
.........ERROR:."T;S:." TRACK";T.~$N. 2
:.2,8,2,"#0":...$X.:..$... **** VIEW LOA
D ADDRESSES ***..$..:..$...". UCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCI"..% .." .
****** VIEW LOAD ADDRESSES ***** .".=%.
.." JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CK..".B%..C$."":." ENTER FILE NAME : .
";.V%...A$:.A$."".2750..%H..A$.G(20).C(C
$).1.2750..%R..A$.G(20)..". ...";:C$.H(C
$,C(C$).1):.2750..%...A$..G(13).."."A$".
";:C$.C$.A$:.2750..%...C$."".1330..&..."
. .": 1:.1,8,3,"0:".C$.8&...I(C$,1)."*".
C$.H(C$,C(C$).1).G&...15,ER,EM$.V&...ER.
0.2940.F&...2850:.2690..&".. * PRINT ERR
OR STATUS *******..&,.:.D&6.."...... UCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI"..&@
.." .
.".$'J.." JCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCK..".0'T..A.1.10._'^.."...DISK E
RROR !. "ER" "EM$".":.I.1.100:...'H.."..
DISK ERROR ! "ER" "EM$".":.I.1.100:...'R
..A: 15:.15,8,15:..E'|.. * COMPUTE START
ING ADDRESS *.K'..:..'...#1,LB$:.#1,HB$.
.(..N$.G(0):V.(F(HB$.N$).256).(F(LB$.N$)
)..(..EL.V:.3030:EL$.B$.B(... *FIND FILE
AND END *********.H(..:.A(B..3190:.Q..2
850:.2690..(L.V.EL.E:EH.V:.3030:EH$.B$:.
3080..(V.. * DECIMAL TO HEX CONVERTER *.
.(..:.Y(..B$."":L$.D(V):L$.I(L$,C(L$).1)
:V.V.4096..)...J.1.4:V%.V:V.16.(V.V%):.V
%.9.V%.V%.7..)..B$.B$.G(V%.48):.J:..>)..
. * PRINT ADDRESSES **********.D)..:..).
..".... STARTING ADDRESS":.". DECIMAL
= "EL" : HEX = $"EL$.B)&..".. ENDING AD
DRESS":.". DECIMAL = "EH" : HEX = $"E
H$.I)0. 1..):..".. UCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCI".'*D.." . VIEW ANO
THER FILE (Y/N) .".U*N.." JCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCK".I*X..A$:.A
$."".3160.Z*B..A$."Y".2690..*L..1330..*V
.. * FIND FILE NAME ***********..*..:.H*
.. 1:.1,8,2,"#":T.18:S.1..*...15,"U1";2;
0;T;S..*...#1,T$,S$..*...X.1.8..+...#1,K
$,T2$,S2$:K.F(K$.N$).&+..F$."":.A.1.27.=
+F..#1,A$:F$.F$.A$:.A.Y+P.F$.H(F$,16):.K
.129.3320..+Z.." UCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCI"..+..." . LOOKING AT FIL
E : ."F$". ."..+..." JCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCK..."..+...H(F$,C(C$))
.C$.K.128.3340. ,...#1,A$,A$:.X:S.F(S$.N
$):.3220.C,... * GET ENDING LOCATION ***
***.I,..:.~, .Q.0:.K..130.Q.1:ER.64:EM$.
"FILE TYPE MISMATCH":...,*.E.0:T.F(T2$.N
$):S.F(S2$.N$)..,4..15,"U1";2;0;T;S.M,>.
.#1,T$,S$:.T$."".3410..,H.E.E.1:T.F(T$.N
$):S.F(S$.N$):.3380..-R.E.E.254.3.F(S$.N
$):...-\.:.5-F.. ** CLOSE ALL FILES & EX
IT **.;-P.:.P-Z. 1: 2: 3: 14: 15...
> CLICK IMAGE PREVIEW FOR FULL MODAL