9.DISK-VIEW
FILE INFORMATION
FILENAME(S): 9.DISK-VIEW
FILE TYPE(S): PRG
FILE SIZE: 20.3K
FIRST SEEN: 2025-11-30 01:07:55
APPEARS ON: 2 disk(s)
FILE HASH
68abeaac8bc3def33b2b31f82d46fb034eb06bc7626633d88a9e31dcbf9d969a
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| U TILITIE | 9.DISK-VIEW | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 20 | DOWNLOAD FILE |
| FREEWARE DISK NR | 9.DISK-VIEW | PRG | Treasure Chest - Wolfgang Rauprich | 14 | 20 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 08 00 8F 20 44 49 53 4B 56 49 45 57 |..".... DISKVIEW|
00000010: 20 2D 20 46 4F 52 20 50 45 54 20 41 4E 44 20 43 | - FOR PET AND C|
00000020: 36 34 00 31 08 09 00 8F 22 B8 B8 B8 B8 B8 B8 B8 |64.1....".......|
00000030: B8 00 6C 08 0A 00 8B C2 28 30 29 B2 34 37 A7 97 |..l.....(0).47..|
00000040: 35 36 2C 37 AC 31 36 3A 97 35 35 2C 30 3A 9C 3A |56,7.16:.55,0:.:|
00000050: 8F 20 53 4F 4D 45 20 52 41 4D 20 46 4F 52 20 53 |. SOME RAM FOR S|
00000060: 41 56 49 4E 47 20 42 4C 4F 43 4B 53 00 8B 08 0B |AVING BLOCKS....|
00000070: 00 8B C2 28 30 29 B3 B1 34 37 A7 97 35 33 2C 37 |...(0)..47..53,7|
00000080: AC 31 36 3A 97 35 32 2C 30 3A 9C 00 AB 08 0C 00 |.16:.52,0:......|
00000090: 46 31 B2 30 37 3A 46 33 B2 30 30 3A 46 35 B2 30 |F1.07:F3.00:F5.0|
000000A0: 36 3A 8F 20 43 4F 4C 4F 55 52 53 00 B1 08 0D 00 |6:. COLOURS.....|
000000B0: 3A 00 C5 08 0E 00 44 41 24 B2 22 4D 41 52 20 33 |:.....DA$."MAR 3|
000000C0: 31 2F 38 34 22 00 CB 08 0F 00 3A 00 03 09 10 00 |1/84".....:.....|
000000D0: 43 52 54 B2 31 30 32 34 3A 43 50 24 B2 22 43 36 |CRT.1024:CP$."C6|
000000E0: 34 22 3A 8B 20 C2 28 30 29 B3 B1 34 37 20 A7 20 |4":. .(0)..47 . |
000000F0: 43 52 54 B2 33 32 37 36 38 3A 43 50 24 B2 22 50 |CRT.32768:CP$."P|
00000100: 45 54 22 00 17 09 14 00 42 53 B2 43 52 54 AA 34 |ET".....BS.CRT.4|
00000110: 35 3A 8D 38 30 30 30 00 1D 09 1E 00 3A 00 42 09 |5:.8000.....:.B.|
00000120: 1F 00 4D 24 28 31 29 B2 22 CC 4F 41 44 20 42 4C |..M$(1).".OAD BL|
00000130: 4F 43 4B 20 49 4E 54 4F 20 43 4F 4D 50 55 54 45 |OCK INTO COMPUTE|
00000140: 52 22 00 67 09 20 00 4D 24 28 32 29 B2 22 D3 45 |R".g. .M$(2).".E|
00000150: 45 20 C1 D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 45 |E ..... OF ABOVE|
00000160: 20 42 4C 4F 43 4B 22 00 86 09 21 00 4D 24 28 33 | BLOCK"...!.M$(3|
00000170: 29 B2 22 CD 4F 44 49 46 59 20 41 42 4F 56 45 20 |).".ODIFY ABOVE |
00000180: 42 4C 4F 43 4B 22 00 AB 09 22 00 4D 24 28 34 29 |BLOCK"...".M$(4)|
00000190: B2 22 D3 54 4F 52 45 20 41 42 4F 56 45 20 42 4C |.".TORE ABOVE BL|
000001A0: 4F 43 4B 20 49 4E 20 D2 C1 CD 22 00 D2 09 23 00 |OCK IN ..."...#.|
000001B0: 4D 24 28 35 29 B2 22 D7 52 49 54 45 20 42 4C 4F |M$(5).".RITE BLO|
000001C0: 43 4B 20 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 53 |CK IN ... TO DIS|
000001D0: 4B 22 00 F5 09 24 00 4D 24 28 36 29 B2 22 C2 4C |K"...$.M$(6).".L|
000001E0: 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 49 54 59 |OCK .VAILABILITY|
000001F0: 20 CD 41 50 22 00 0F 0A 25 00 4D 24 28 37 29 B2 | .AP"...%.M$(7).|
00000200: 22 C4 49 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 00 |".ISK .OMMANDS".|
00000210: 27 0A 26 00 4D 24 28 38 29 B2 22 D4 52 41 43 45 |'.&.M$(8).".RACE|
00000220: 20 C2 4C 4F 43 4B 53 00 43 0A 27 00 4D 24 28 39 | .LOCKS.C.'.M$(9|
00000230: 29 B2 22 D5 4E 53 43 52 41 54 43 48 20 41 20 C6 |).".NSCRATCH A .|
00000240: 49 4C 45 00 4F 0A 64 00 8F 20 20 4D 45 4E 55 00 |ILE.O.d.. MENU.|
00000250: 5B 0A 65 00 8F 22 20 B8 B8 B8 B8 00 69 0A 68 00 |[.e.." .....i.h.|
00000260: 97 35 33 32 38 30 2C 46 31 00 9D 0A 69 00 A0 31 |.53280,F1...i..1|
00000270: 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 8D 35 38 30 |5:.15,DV,15:.580|
00000280: 31 30 3A 99 22 93 22 3A 58 24 B2 22 CD C1 C9 CE |10:.".":X$."....|
00000290: 22 3A 58 B2 33 30 3A 8D 35 34 30 30 30 00 A9 0A |":X.30:.54000...|
000002A0: 6E 00 99 22 13 22 48 44 24 00 C6 0A 78 00 81 49 |n.."."HD$...x..I|
000002B0: B2 31 A4 39 3A 99 22 11 12 22 49 22 92 3A 22 4D |.1.9:.".."I".:"M|
000002C0: 24 28 49 29 3A 82 00 EE 0A 82 00 99 53 30 24 3A |$(I):.......S0$:|
000002D0: 99 56 43 24 22 48 49 54 20 12 D2 C5 D4 D5 D2 CE |.VC$"HIT .......|
000002E0: 92 20 54 4F 20 D1 55 49 54 13 22 54 43 24 00 05 |. TO .UIT."TC$..|
000002F0: 0B 8C 00 8D 33 31 30 3A 8B 49 4E 24 B2 43 52 24 |....310:.IN$.CR$|
00000300: A7 37 39 30 30 00 16 0B 96 00 8B 49 4E 24 B2 22 |.7900......IN$."|
00000310: 85 22 A7 31 31 30 00 27 0B A0 00 8B 49 4E 24 B2 |.".110.'....IN$.|
00000320: 22 86 22 A7 31 31 30 00 38 0B AA 00 8B 49 4E 24 |".".110.8....IN$|
00000330: B2 22 87 22 A7 31 31 30 00 6E 0B B4 00 99 22 13 |.".".110.n....".|
00000340: 11 22 3A 81 49 B2 31 A4 49 4E 3A 99 22 11 11 22 |.":.I.1.IN:.".."|
00000350: 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 4D 24 28 49 |;:.:."....."M$(I|
00000360: 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A 82 00 AB |N):.T9.1.300:...|
00000370: 0B C8 00 91 49 4E AA 31 8D 35 30 30 30 30 2C 31 |....IN.1.50000,1|
00000380: 30 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 |000,2000,3000,40|
00000390: 30 30 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 |00,5000,6000,700|
000003A0: 30 2C 37 31 30 30 2C 37 35 30 30 00 B4 0B D2 00 |0,7100,7500.....|
000003B0: 89 31 30 34 00 E1 0B FA 00 46 31 B2 AB 28 46 31 |.104.....F1..(F1|
000003C0: AA 31 29 AC 28 46 31 B3 31 35 29 3A 97 35 33 32 |.1).(F1.15):.532|
000003D0: 38 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 3A |81,F1:.53280,F1:|
000003E0: 8E 00 0A 0C 04 01 46 33 B2 AB 28 46 33 AA 31 29 |......F3..(F3.1)|
000003F0: AC 28 46 33 B3 31 35 29 3A 54 43 24 B2 46 33 24 |.(F3.15):TC$.F3$|
00000400: 28 46 33 29 3A 99 54 43 24 3B 00 45 0C 05 01 48 |(F3):.TC$;.E...H|
00000410: 44 24 B2 53 30 24 AA 43 52 24 AA 56 43 24 AA 4D |D$.S0$.CR$.VC$.M|
00000420: 48 24 AA 22 44 45 56 49 43 45 20 22 AA CA 28 C4 |H$."DEVICE "..(.|
00000430: 28 44 56 29 2C 32 29 AA 54 43 24 AA 43 52 24 AA |(DV),2).TC$.CR$.|
00000440: 53 30 24 3A 8E 00 68 0C 0E 01 46 35 B2 AB 28 46 |S0$:..h...F5..(F|
00000450: 35 AA 31 29 AC 28 46 35 B3 31 35 29 3A 56 43 24 |5.1).(F5.15):VC$|
00000460: B2 46 35 24 28 46 35 29 00 71 0C 0F 01 89 32 36 |.F5$(F5).q....26|
00000470: 31 00 7C 0C 2C 01 8F 20 20 47 45 54 00 87 0C 2D |1.|.,.. GET...-|
00000480: 01 8F 22 20 B8 B8 B8 00 A6 0C 31 01 99 56 43 24 |.." ......1..VC$|
00000490: 22 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |"......... TO CO|
000004A0: 4E 54 22 54 43 24 00 BC 0C 36 01 A1 49 4E 24 3A |NT"TC$...6..IN$:|
000004B0: 8B 49 4E 24 B3 B1 22 22 A7 33 31 30 00 D1 0C 40 |.IN$.."".310...@|
000004C0: 01 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 33 32 |..IN$:.IN$."".32|
000004D0: 30 00 E3 0C 4A 01 8B 49 4E 24 B2 22 85 22 A7 8D |0...J..IN$."."..|
000004E0: 32 35 30 00 F5 0C 4B 01 8B 49 4E 24 B2 22 86 22 |250...K..IN$."."|
000004F0: A7 8D 32 36 30 00 07 0D 4C 01 8B 49 4E 24 B2 22 |..260...L..IN$."|
00000500: 87 22 A7 8D 32 37 30 00 1E 0D 54 01 49 4E B2 C5 |."..270...T.IN..|
00000510: 28 49 4E 24 29 3A 8D 35 39 31 30 30 3A 8E 00 3D |(IN$):.59100:..=|
00000520: 0D E8 03 8F 20 4C 4F 41 44 20 42 4C 4F 43 4B 20 |.... LOAD BLOCK |
00000530: 49 4E 54 4F 20 43 4F 4D 50 55 54 45 52 00 5C 0D |INTO COMPUTER.\.|
00000540: E9 03 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000550: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 65 0D ED |.............e..|
00000560: 03 59 39 B2 30 00 9D 0D F2 03 A0 33 3A A0 31 35 |.Y9.0......3:.15|
00000570: 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C 44 56 |:.15,DV,15:.3,DV|
00000580: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
00000590: 4E B2 C6 28 42 4E 24 29 3A 44 43 B2 33 00 AE 0D |N..(BN$):DC.3...|
000005A0: F7 03 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 00 C6 |..BN$..(BN$,2)..|
000005B0: 0D FC 03 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
000005C0: 31 3A 99 22 93 22 00 DB 0D 06 04 81 4B B2 30 A4 |1:."."......K.0.|
000005D0: 31 30 3A 98 33 2C 4B 24 3B 3A 82 00 EF 0D 10 04 |10:.3,K$;:......|
000005E0: 99 22 93 11 11 11 11 11 11 11 11 22 53 30 24 00 |."........."S0$.|
000005F0: 15 0E 15 04 8B 59 39 A7 99 22 12 D4 D2 C1 C3 CB |.....Y9.."......|
00000600: 2C D3 C5 C3 D4 CF D2 92 20 22 54 22 2C 22 53 3A |,....... "T","S:|
00000610: 89 31 30 36 30 00 36 0E 1A 04 85 22 12 D4 D2 C1 |.1060.6...."....|
00000620: C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D |..,....... ...|
00000630: 9D 22 3B 54 2C 53 00 4E 0E 24 04 98 31 35 2C 22 |.";T,S.N.$..15,"|
00000640: 42 2D 52 22 3B 44 43 3B 44 52 3B 54 3B 53 00 61 |B-R";DC;DR;T;S.a|
00000650: 0E 2E 04 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
00000660: 30 00 7A 0E 38 04 A1 23 33 2C 5A 24 3A 8B 5A 24 |0.z.8..#3,Z$:.Z$|
00000670: B2 22 22 A7 5A 24 B2 43 5A 24 00 8F 0E 42 04 43 |."".Z$.CZ$...B.C|
00000680: 28 30 29 B2 C6 28 5A 24 29 3A 8D 31 32 30 30 00 |(0)..(Z$):.1200.|
00000690: C3 0E 60 04 99 56 43 24 22 13 12 D2 C5 D4 D5 D2 |..`..VC$".......|
000006A0: CE 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 22 54 |. TO TERMINATE"T|
000006B0: 43 24 3A 99 C4 28 43 28 30 29 29 C4 28 43 28 31 |C$:..(C(0)).(C(1|
000006C0: 29 29 3B 00 E3 0E 6A 04 4A B2 32 3A 81 49 B2 32 |));...j.J.2:.I.2|
000006D0: A4 32 35 35 3A 98 31 35 2C 22 42 2D 50 22 3B 44 |.255:.15,"B-P";D|
000006E0: 43 3B 49 00 FC 0E 74 04 A1 23 33 2C 42 24 3A 8B |C;I...t..#3,B$:.|
000006F0: 42 24 B2 22 22 A7 42 24 B2 43 5A 24 00 0B 0F 7E |B$."".B$.CZ$...~|
00000700: 04 43 28 49 29 B2 C6 28 42 24 29 00 23 0F 88 04 |.C(I)..(B$).#...|
00000710: 97 42 53 AA 4A 2C 43 28 49 29 3A 97 4E 4E AA 4A |.BS.J,C(I):.NN.J|
00000720: 2C 46 33 00 39 0F 92 04 A1 41 24 3A 8B 41 24 B3 |,F3.9....A$:.A$.|
00000730: B1 22 22 A7 8D 31 31 39 35 00 45 0F 9C 04 4A B2 |.""..1195.E...J.|
00000740: 4A AA 31 3A 82 00 5A 0F A6 04 A0 33 3A A0 31 35 |J.1:..Z....3:.15|
00000750: 3A 99 42 42 24 3A 8D 33 30 30 00 6D 0F A7 04 59 |:.BB$:.300.m...Y|
00000760: 39 B2 30 3A 8B 43 28 30 29 B2 30 A7 8E 00 A7 0F |9.0:.C(0).0.....|
00000770: A8 04 85 22 93 11 11 11 11 CC 4F 41 44 20 CE C5 |..."......OAD ..|
00000780: D8 D4 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 20 |.. TRACK/SECTOR |
00000790: 20 20 4E 9D 9D 9D 22 3B 49 4E 24 3A 8B 49 4E 24 | N...";IN$:.IN$|
000007A0: B3 B1 22 59 22 A7 8E 00 C4 0F A9 04 54 B2 43 28 |.."Y".......T.C(|
000007B0: 30 29 3A 53 B2 43 28 31 29 3A 59 39 B2 31 3A 89 |0):S.C(1):Y9.1:.|
000007C0: 31 30 31 30 00 06 10 AB 04 99 56 43 24 22 13 11 |1010......VC$"..|
000007D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 C2 CC |................|
000007E0: CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 C2 C5 C5 CE |... ... ... ....|
000007F0: 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 CC CF C1 C4 | .......... ....|
00000800: C5 C4 22 54 43 24 00 40 10 AC 04 85 22 2E 2E 57 |.."TC$.@...."..W|
00000810: 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |ANT TO CONTINUE |
00000820: 4C 4F 41 44 49 4E 47 20 20 20 4E 9D 9D 9D 22 3B |LOADING N...";|
00000830: 4E 24 3A 8B 4E 24 B2 22 4E 22 A7 49 B2 32 35 36 |N$:.N$."N".I.256|
00000840: 00 7F 10 AD 04 99 22 13 11 11 11 11 11 11 11 11 |......".........|
00000850: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 20 20 20 20 20 20 22 54 43 24 00 | "TC$.|
00000880: AA 10 AE 04 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 20 20 20 20 22 3A 8E 00 BA 10 B0 04 8F | ":.......|
000008B0: 20 43 28 30 29 2F 43 28 31 29 00 CA 10 B1 04 8F | C(0)/C(1)......|
000008C0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 E1 10 BA 04 99 |"...............|
000008D0: 53 44 24 3A 98 31 35 2C 22 42 2D 50 22 3B 33 3B |SD$:.15,"B-P";3;|
000008E0: 31 00 FA 10 C4 04 A1 23 33 2C 42 24 3A 8B 42 24 |1......#3,B$:.B$|
000008F0: B2 22 22 A7 42 24 B2 43 5A 24 00 09 11 CE 04 43 |."".B$.CZ$.....C|
00000900: 28 31 29 B2 C6 28 42 24 29 00 2A 11 D8 04 8B 43 |(1)..(B$).*....C|
00000910: 28 30 29 B2 30 A7 99 53 44 24 3A 99 22 CC 41 53 |(0).0..SD$:.".AS|
00000920: 54 20 D4 52 41 43 4B 22 3A 8E 00 5A 11 E2 04 99 |T .RACK":..Z....|
00000930: 53 44 24 3A 99 22 CE 45 58 54 20 D4 52 41 43 4B |SD$:.".EXT .RACK|
00000940: 3D 22 43 28 30 29 3A 99 22 CE 45 58 54 20 D3 45 |="C(0):.".EXT .E|
00000950: 43 54 4F 52 3D 22 43 28 31 29 00 70 11 EC 04 4E |CTOR="C(1).p...N|
00000960: 54 B2 43 28 30 29 3A 4E 53 B2 43 28 31 29 3A 8E |T.C(0):NS.C(1):.|
00000970: 00 82 11 D0 07 8F 20 50 52 49 4E 54 20 41 53 43 |...... PRINT ASC|
00000980: 49 49 00 94 11 D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 |II......".......|
00000990: B8 B8 B8 B8 00 AE 11 D2 07 49 4A B2 30 3A 49 49 |.........IJ.0:II|
000009A0: B2 32 35 35 3A 99 22 93 22 3A 48 58 B2 30 00 E1 |.255:.".":HX.0..|
000009B0: 11 D3 07 99 22 93 11 11 12 30 92 3A C4 C5 C3 C9 |...."....0.:....|
000009C0: CD C1 CC 22 3A 99 22 11 11 12 31 92 3A C8 C5 D8 |...":."...1.:...|
000009D0: 22 3A 85 22 11 11 20 20 20 30 9D 9D 9D 22 3B 49 |":.".. 0...";I|
000009E0: 4E 00 F6 11 D4 07 99 22 93 22 3A 8B 20 49 4E 20 |N......".":. IN |
000009F0: A7 20 48 58 B2 31 00 39 12 D5 07 99 56 43 24 22 |. HX.1.9....VC$"|
00000A00: 13 12 D2 C5 D4 D5 D2 CE 92 3D 51 55 49 54 3A 12 |.........=QUIT:.|
00000A10: D3 D0 C1 C3 C5 92 3D 50 41 55 53 45 3A 20 20 22 |......=PAUSE: "|
00000A20: 48 24 28 48 58 29 3B 54 43 24 3A 99 53 30 24 3A |H$(HX);TC$:.S0$:|
00000A30: 45 45 24 B2 22 92 20 12 22 00 5C 12 D6 07 5A 31 |EE$.". .".\...Z1|
00000A40: B2 33 32 3A 5A 32 B2 32 32 33 3A 5A 33 B2 31 32 |.32:Z2.223:Z3.12|
00000A50: 37 3A 5A 34 B2 31 36 30 3A 50 B2 30 00 91 12 D7 |7:Z4.160:P.0....|
00000A60: 07 59 30 24 B2 22 12 22 AA 54 43 24 AA 43 4C 24 |.Y0$.".".TC$.CL$|
00000A70: 3A 59 31 24 B2 56 43 24 AA 22 91 12 22 3A 59 32 |:Y1$.VC$."..":Y2|
00000A80: 24 B2 22 92 3A 2D 3E 22 AA 54 43 24 3A 43 39 B2 |$.".:->".TC$:C9.|
00000A90: 31 00 C1 12 DA 07 81 49 B2 30 A4 49 49 A9 38 3A |1......I.0.II.8:|
00000AA0: 59 24 B2 59 31 24 AA C9 28 22 20 20 22 AA C4 28 |Y$.Y1$..(" "..(|
00000AB0: 49 29 2C 33 29 AA 59 32 24 3A 45 30 24 B2 45 45 |I),3).Y2$:E0$.EE|
00000AC0: 24 00 EA 12 DC 07 99 59 30 24 3A 99 59 24 3B 3A |$......Y0$:.Y$;:|
00000AD0: 81 4A B2 30 A4 37 3A 48 B2 49 AA 4A 3A 43 35 B2 |.J.0.7:H.I.J:C5.|
00000AE0: 43 28 48 29 3A 43 36 B2 43 35 00 11 13 DD 07 8B |C(H):C6.C5......|
00000AF0: 28 43 35 B3 5A 31 B0 43 35 B1 5A 32 29 B0 28 43 |(C5.Z1.C5.Z2).(C|
00000B00: 35 B1 5A 33 AF 43 35 B3 5A 34 29 A7 43 36 B2 33 |5.Z3.C5.Z4).C6.3|
00000B10: 32 00 23 13 DE 07 45 30 24 B2 45 30 24 AA C7 28 |2.#...E0$.E0$..(|
00000B20: 43 36 29 00 5D 13 DF 07 45 24 B2 C9 28 22 20 20 |C6).]...E$..(" |
00000B30: 20 22 AA C4 28 43 35 29 2C 33 29 3A 8B 20 48 58 | "..(C5),3):. HX|
00000B40: 20 A7 20 4D 24 B2 22 22 3A 4D B2 43 35 3A 8D 39 | . M$."":M.C5:.9|
00000B50: 35 30 35 3A 45 24 B2 22 20 22 AA 4D 24 00 7A 13 |505:E$." ".M$.z.|
00000B60: E4 07 99 52 24 28 50 29 45 24 52 24 28 31 AB 50 |...R$(P)E$R$(1.P|
00000B70: 29 3B 3A 50 B2 31 AB 50 3A 82 00 8E 13 E5 07 A1 |);:P.1.P:.......|
00000B80: 41 24 3A 8B 41 24 B2 22 22 89 32 30 33 30 00 A7 |A$:.A$."".2030..|
00000B90: 13 E9 07 8B 41 24 B2 C7 28 31 33 29 A7 49 49 B2 |....A$..(13).II.|
00000BA0: 49 3A 49 B2 32 35 35 00 C0 13 EA 07 8B 41 24 B2 |I:I.255......A$.|
00000BB0: C7 28 33 32 29 A7 8D 33 31 30 3A 89 32 30 32 31 |.(32)..310:.2021|
00000BC0: 00 DF 13 EE 07 99 45 30 24 3A 82 3A 99 43 4C 24 |......E0$:.:.CL$|
00000BD0: 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 43 4C 24 00 |:.CL$:.CL$:.CL$.|
00000BE0: 14 14 EF 07 99 22 91 91 91 91 22 53 30 24 3A 99 |....."...."S0$:.|
00000BF0: 56 43 24 22 C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 |VC$"....... ....|
00000C00: CB 2C D3 C5 C3 D4 CF D2 3D 22 54 22 2C 22 3B 53 |.,......="T",";S|
00000C10: 3B 54 43 24 00 35 14 F3 07 99 22 4E 45 58 54 20 |;TC$.5...."NEXT |
00000C20: 54 52 41 43 4B 2C 53 45 43 54 4F 52 3D 22 4E 54 |TRACK,SECTOR="NT|
00000C30: 22 2C 22 4E 53 00 44 14 F8 07 8B 49 4A B2 30 A7 |","NS.D....IJ.0.|
00000C40: 8D 33 30 30 00 4A 14 02 08 8E 00 5D 14 B8 0B 8F |.300.J.....]....|
00000C50: 20 4D 4F 44 49 46 59 20 42 4C 4F 43 4B 00 70 14 | MODIFY BLOCK.p.|
00000C60: B9 0B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000C70: 00 9B 14 F4 0B 99 22 93 D4 48 45 20 C1 D3 C3 C9 |......"..HE ....|
00000C80: C9 20 43 4F 44 45 20 46 4F 52 20 45 41 43 48 20 |. CODE FOR EACH |
00000C90: 42 4C 4F 43 4B 2D 42 59 54 45 22 00 CA 14 FE 0B |BLOCK-BYTE".....|
00000CA0: 99 22 11 57 49 4C 4C 20 42 45 20 44 49 53 50 4C |.".WILL BE DISPL|
00000CB0: 41 59 45 44 2E 2E 49 2E 45 2E 20 43 28 30 29 2E |AYED..I.E. C(0).|
00000CC0: 2E 2E 43 28 32 35 35 29 2E 22 00 FA 14 08 0C 99 |..C(255)."......|
00000CD0: 22 11 D9 4F 55 20 4D 41 59 20 52 45 44 45 46 49 |"..OU MAY REDEFI|
00000CE0: 4E 45 20 41 4E 59 20 43 28 49 29 2E 20 D4 48 45 |NE ANY C(I). .HE|
00000CF0: 20 4D 4F 44 49 46 49 45 44 22 00 24 15 12 0C 99 | MODIFIED".$....|
00000D00: 22 11 42 4C 4F 43 4B 20 57 49 4C 4C 20 42 45 20 |".BLOCK WILL BE |
00000D10: 57 52 49 54 54 45 4E 20 54 4F 20 54 48 45 20 44 |WRITTEN TO THE D|
00000D20: 49 53 4B 22 00 4E 15 1C 0C 99 22 11 49 4E 54 4F |ISK".N....".INTO|
00000D30: 20 54 48 45 20 D4 52 41 43 4B 2C D3 45 43 54 4F | THE .RACK,.ECTO|
00000D40: 52 20 59 4F 55 20 53 45 4C 45 43 54 2E 22 00 7C |R YOU SELECT.".||
00000D50: 15 1D 0C 99 22 11 D4 4F 20 45 4E 54 45 52 20 41 |...."..O ENTER A|
00000D60: 20 D3 D4 D2 C9 CE C7 2C 20 53 45 4C 45 43 54 20 | ......, SELECT |
00000D70: 54 48 45 20 49 20 57 48 49 43 48 22 00 A5 15 1E |THE I WHICH"....|
00000D80: 0C 99 22 11 42 45 47 49 4E 53 20 54 48 45 20 D3 |..".BEGINS THE .|
00000D90: D4 D2 C9 CE C7 20 41 4E 44 20 57 48 45 4E 20 41 |..... AND WHEN A|
00000DA0: 53 4B 45 44 22 00 CA 15 1F 0C 99 22 11 46 4F 52 |SKED"......".FOR|
00000DB0: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 49 2C | THE VALUE OF I,|
00000DC0: 20 45 4E 54 45 52 20 49 2A 22 00 F7 15 20 0C 99 | ENTER I*"... ..|
00000DD0: 22 11 45 58 41 4D 50 4C 45 3A 20 54 4F 20 4D 4F |".EXAMPLE: TO MO|
00000DE0: 44 49 46 59 20 42 59 54 45 53 20 53 54 41 52 54 |DIFY BYTES START|
00000DF0: 49 4E 47 20 41 54 22 00 10 16 21 0C 99 22 11 20 |ING AT"...!..". |
00000E00: 49 3D 31 32 2C 20 45 4E 54 45 52 20 31 32 2A 22 |I=12, ENTER 12*"|
00000E10: 00 3F 16 26 0C 99 22 11 12 C2 C5 20 D3 D5 D2 C5 |.?.&..".... ....|
00000E20: 20 C1 20 C3 CF CD D0 CC C5 D4 C5 20 C2 CC CF C3 | . ........ ....|
00000E30: CB 20 D7 C1 D3 20 CC CF C1 C4 C5 C4 21 21 22 00 |. ... ......!!".|
00000E40: 5B 16 30 0C 8D 33 30 30 3A 99 22 93 22 3A 49 49 |[.0..300:.".":II|
00000E50: B2 32 35 35 AB 38 3A 49 4A B2 31 00 6A 16 3A 0C |.255.8:IJ.1.j.:.|
00000E60: 99 22 13 22 3A 8D 32 30 30 35 00 92 16 44 0C 99 |.".":.2005...D..|
00000E70: 56 43 24 22 3E 3E 3E 12 D2 C5 D4 D5 D2 CE 20 54 |VC$">>>....... T|
00000E80: 4F 20 51 55 49 54 92 3C 3C 3C 22 54 43 24 3A A1 |O QUIT.<<<"TC$:.|
00000E90: 49 24 00 CF 16 4E 0C 85 22 12 D7 C8 C9 C3 C8 20 |I$...N.."...... |
00000EA0: 49 20 C4 CF A0 D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF |I ..............|
00000EB0: A0 CD CF C4 C9 C6 D9 92 20 20 20 20 20 9D 9D A6 |........ ...|
00000EC0: 9D 9D 9D 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 |...";I$:I..(I$).|
00000ED0: E0 16 58 0C 8B 49 24 B2 22 A6 22 89 33 31 37 33 |..X..I$.".".3173|
00000EE0: 00 FE 16 5D 0C 8B C9 28 49 24 2C 31 29 B2 22 2A |...]...(I$,1)."*|
00000EF0: 22 A7 8D 36 31 30 30 30 3A 89 33 31 37 33 00 42 |"..61000:.3173.B|
00000F00: 17 62 0C 99 22 43 55 52 52 45 4E 54 20 43 28 22 |.b.."CURRENT C("|
00000F10: 49 22 29 3D 20 20 20 20 20 A0 9D 9D 9D 9D 9D 22 |I")= ......"|
00000F20: 43 28 49 29 22 20 4E 45 57 20 56 41 4C 55 45 3D |C(I)" NEW VALUE=|
00000F30: 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 3A 85 43 28 | .....";:.C(|
00000F40: 49 29 00 51 17 63 0C 8B 49 B1 49 49 A7 49 49 B2 |I).Q.c..I.II.II.|
00000F50: 49 00 5B 17 64 0C 89 33 31 35 30 00 81 17 65 0C |I.[.d..3150...e.|
00000F60: 99 22 93 22 3A 8D 32 30 30 35 3A 99 22 20 20 20 |.".":.2005:." |
00000F70: 20 20 20 20 20 3E 3E 3E 12 4F 4B 92 3F 20 20 22 | >>>.OK.? "|
00000F80: 3B 00 9B 17 66 0C 8D 33 31 30 3A 8B 49 4E 24 B2 |;...f..310:.IN$.|
00000F90: 22 4E 22 A7 99 3A 89 33 31 35 30 00 BF 17 67 0C |"N"..:.3150...g.|
00000FA0: 85 22 93 12 52 45 54 55 52 4E 20 54 4F 20 4D 45 |."..RETURN TO ME|
00000FB0: 4E 55 92 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 00 |NU. N...";IN$.|
00000FC0: CE 17 68 0C 8B 49 4E 24 B2 22 59 22 A7 8E 00 F8 |..h..IN$."Y"....|
00000FD0: 17 69 0C 99 56 43 24 22 93 C3 D5 D2 D2 C5 CE D4 |.i..VC$"........|
00000FE0: 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 3D 22 54 | .....,......="T|
00000FF0: 22 2C 22 53 3B 54 43 24 00 19 18 6A 0C 99 22 4E |","S;TC$...j.."N|
00001000: 45 58 54 20 54 52 41 43 4B 2C 53 45 43 54 4F 52 |EXT TRACK,SECTOR|
00001010: 3D 22 4E 54 22 2C 22 4E 53 00 46 18 6C 0C 99 22 |="NT","NS.F.l.."|
00001020: 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 |.............. .|
00001030: D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 22 |....,....... "|
00001040: 3B 54 22 2C 22 53 00 6F 18 6D 0C 85 22 91 12 C4 |;T","S.o.m.."...|
00001050: C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB |.......... .....|
00001060: 2C D3 C5 C3 D4 CF D2 92 1D 1D 22 3B 54 2C 53 00 |,.........";T,S.|
00001070: 93 18 76 0C 99 22 11 11 11 12 C4 C5 D3 D4 C9 CE |..v.."..........|
00001080: C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 A0 22 |..... ........."|
00001090: 3B 44 52 00 D7 18 77 0C 85 22 91 12 C4 C5 D3 D4 |;DR...w.."......|
000010A0: C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 1D 1D |....... ........|
000010B0: 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 3A |";DR$:DR..(DR$):|
000010C0: 8B 44 52 24 B3 B1 22 30 22 AF 44 52 24 B3 B1 22 |.DR$.."0".DR$.."|
000010D0: 31 22 A7 33 31 39 30 00 EC 18 80 0C A0 33 3A A0 |1".3190......3:.|
000010E0: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 03 19 8A |15:.15,DV,15....|
000010F0: 0C 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D 36 33 |..3,DV,3,"#":.63|
00001100: 39 30 30 00 38 19 8F 0C A1 23 33 2C 42 4E 24 3A |900.8....#3,BN$:|
00001110: 42 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 |BN..(BN$):."."SD|
00001120: 24 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 |$"....FILLING ..|
00001130: C6 C6 C5 D2 23 22 42 4E 00 45 19 99 0C 81 49 B2 |....#"BN.E....I.|
00001140: 30 A4 32 35 35 00 71 19 9E 0C 98 31 35 2C 22 42 |0.255.q....15,"B|
00001150: 2D 50 22 2C 33 2C 49 3A 98 33 2C C7 28 43 28 49 |-P",3,I:.3,.(C(I|
00001160: 29 29 3B 3A 99 22 13 20 20 20 9D 9D 9D 22 49 3A |));:.". ..."I:|
00001170: 82 00 88 19 D0 0C 98 31 35 2C 22 55 32 3A 22 3B |.......15,"U2:";|
00001180: 33 3B 44 52 3B 54 3B 53 00 AD 19 DA 0C 98 31 35 |3;DR;T;S......15|
00001190: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A |,"I".DR$:.63900:|
000011A0: A0 33 3A A0 31 35 3A 99 22 93 22 3A 8E 00 C5 19 |.3:.15:.".":....|
000011B0: A0 0F 8F 20 53 54 4F 52 45 20 43 28 49 29 20 49 |... STORE C(I) I|
000011C0: 4E 20 52 41 4D 00 DD 19 A1 0F 8F 22 B8 B8 B8 B8 |N RAM......"....|
000011D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 F7 19 |................|
000011E0: A2 0F 49 4A B2 30 3A 49 49 B2 32 35 35 3A 99 22 |..IJ.0:II.255:."|
000011F0: 93 22 3A 48 58 B2 30 00 07 1A A5 0F 99 22 93 22 |.":HX.0......"."|
00001200: 3B 3A 8D 32 30 30 35 00 2E 1A B4 0F 85 22 12 D3 |;:.2005......"..|
00001210: D4 C1 D2 D4 C9 CE C7 A0 D6 C1 CC D5 C5 A0 CF C6 |................|
00001220: 20 49 92 20 20 20 A6 9D 9D 9D 22 3B 49 31 00 5B | I. ....";I1.[|
00001230: 1A BE 0F 99 22 12 D3 D4 C1 D2 D4 C9 CE C7 A0 CD |...."...........|
00001240: C5 CD CF D2 D9 A0 CC CF C3 27 CE 92 28 24 3D C8 |.........'..($=.|
00001250: C5 D8 29 20 20 24 37 30 30 30 22 00 8B 1A C3 0F |..) $7000".....|
00001260: 85 22 91 12 D3 D4 C1 D2 D4 C9 CE C7 A0 CD C5 CD |."..............|
00001270: CF D2 D9 A0 CC CF C3 27 CE 92 28 24 3D C8 C5 D8 |.......'..($=...|
00001280: 29 22 3B 4D 24 3A 8D 39 30 30 30 00 AB 1A C8 0F |)";M$:.9000.....|
00001290: 81 4B 31 B2 49 31 A4 32 35 35 3A 97 4D AB 49 31 |.K1.I1.255:.M.I1|
000012A0: AA 4B 31 2C 43 28 4B 31 29 3A 82 00 E0 1A D2 0F |.K1,C(K1):......|
000012B0: 4D B2 4D AB 49 31 AA 32 35 36 3A 99 22 12 CE C5 |M.M.I1.256:."...|
000012C0: D8 D4 92 20 4D 45 4D 27 59 20 4C 4F 43 27 4E 3D |... MEM'Y LOC'N=|
000012D0: 22 4D 3B 3A 8D 39 35 30 30 3A 99 22 12 22 4D 24 |"M;:.9500:."."M$|
000012E0: 00 F1 1A DC 0F 8D 33 30 30 3A 99 22 93 22 3B 3A |......300:.".";:|
000012F0: 8E 00 09 1B 88 13 8F 20 57 52 49 54 45 20 52 41 |....... WRITE RA|
00001300: 4D 20 54 4F 20 44 49 53 4B 00 21 1B 89 13 8F 22 |M TO DISK.!...."|
00001310: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00001320: B8 00 58 1B 9C 13 85 22 93 11 12 CD C5 CD 27 D9 |..X...."......'.|
00001330: 20 CC CF C3 27 CE 20 CF C6 20 C2 CC CF C3 CB 92 | ...'. .. ......|
00001340: 28 24 3D C8 C5 D8 29 20 20 20 A6 9D 9D 9D 22 3B |($=...) ....";|
00001350: 4D 24 3A 8D 39 30 30 30 00 7A 1B A6 13 85 22 11 |M$:.9000.z....".|
00001360: 12 D3 D4 C1 D2 D4 20 D7 C9 D4 C8 20 49 92 3D A0 |...... .... I.=.|
00001370: A0 A0 A6 9D 9D 9D 22 3B 49 31 00 9A 1B B0 13 85 |......";I1......|
00001380: 22 11 12 C5 CE C4 20 D7 C9 D4 C8 20 49 92 3D A0 |"..... .... I.=.|
00001390: A0 A0 A6 9D 9D 9D 22 3B 49 32 00 B5 1B C4 13 81 |......";I2......|
000013A0: 49 B2 49 31 A4 49 32 3A 43 28 49 29 B2 C2 28 4D |I.I1.I2:C(I)..(M|
000013B0: AA 49 29 3A 82 00 E5 1B CE 13 85 22 93 11 11 12 |.I):......."....|
000013C0: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 |........... ....|
000013D0: CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D |.,....... ....|
000013E0: 22 3B 54 2C 53 00 26 1C D8 13 85 22 11 11 11 12 |";T,S.&...."....|
000013F0: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 |........... ....|
00001400: C5 92 A0 A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 |.........";DR$:D|
00001410: 52 B2 C5 28 44 52 24 29 3A 8B 44 52 24 B2 22 A6 |R..(DR$):.DR$.".|
00001420: 22 A7 35 30 38 30 00 67 1C E2 13 9F 33 2C 44 56 |".5080.g....3,DV|
00001430: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
00001440: 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 24 |N..(BN$):."."SD$|
00001450: 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 C6 |"....FILLING ...|
00001460: C6 C5 D2 23 22 42 4E 00 80 1C EC 13 81 49 B2 49 |...#"BN......I.I|
00001470: 31 A4 49 32 3A 99 22 13 20 20 20 9D 9D 9D 22 49 |1.I2:.". ..."I|
00001480: 00 A0 1C F6 13 98 31 35 2C 22 42 2D 50 22 3B 33 |......15,"B-P";3|
00001490: 3B 49 3A 98 33 2C C7 28 43 28 49 29 29 3B 3A 82 |;I:.3,.(C(I));:.|
000014A0: 00 B7 1C 14 14 98 31 35 2C 22 55 32 3A 22 3B 33 |......15,"U2:";3|
000014B0: 3B 44 52 3B 54 3B 53 00 DC 1C 1E 14 98 31 35 2C |;DR;T;S......15,|
000014C0: 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 |"I".DR$:.63900:.|
000014D0: 33 3A A0 31 35 3A 99 22 93 22 3A 8E 00 E6 1C 70 |3:.15:.".":....p|
000014E0: 17 8F 20 42 41 4D 00 F0 1C 7A 17 8F 22 B8 B8 B8 |.. BAM...z.."...|
000014F0: 00 18 1D 7F 17 97 35 33 32 38 30 2C 46 35 3A 99 |......53280,F5:.|
00001500: 22 93 22 3A 58 B2 33 30 3A 58 24 B2 22 C2 C1 CD |".":X.30:X$."...|
00001510: 22 3A 8D 35 34 30 30 30 00 32 1D 84 17 96 20 A5 |":.54000.2.... .|
00001520: 42 28 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 |B(I).(Z.P(I)).P(|
00001530: 49 29 00 41 1D 8E 17 A0 31 35 3A 8D 35 38 30 31 |I).A....15:.5801|
00001540: 30 00 5B 1D 98 17 99 22 13 11 11 12 31 92 3A C4 |0.[...."....1.:.|
00001550: 49 53 50 4C 41 59 20 42 41 4D 22 00 72 1D A2 17 |ISPLAY BAM".r...|
00001560: 99 22 11 12 32 92 3A C3 48 41 4E 47 45 20 42 41 |."..2.:.HANGE BA|
00001570: 4D 22 00 93 1D AC 17 99 56 43 24 22 11 11 11 12 |M"......VC$"....|
00001580: 52 45 54 55 52 4E 92 20 54 4F 20 45 58 49 54 22 |RETURN. TO EXIT"|
00001590: 54 43 24 00 AF 1D B6 17 8D 33 31 30 3A 99 22 93 |TC$......310:.".|
000015A0: 22 3A 8B 49 4E 24 B2 43 52 24 A7 36 30 39 35 00 |":.IN$.CR$.6095.|
000015B0: C8 1D C0 17 8D 35 38 30 32 30 3A 91 49 4E 8D 36 |.....58020:.IN.6|
000015C0: 31 30 30 2C 36 32 38 30 00 D2 1D CA 17 89 36 30 |100,6280......60|
000015D0: 30 30 00 FE 1D CF 17 A0 32 3A A0 33 3A 9F 31 35 |00......2:.3:.15|
000015E0: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D |,DV,15,"I".DR$:.|
000015F0: 35 38 30 31 30 3A 8D 36 33 39 30 30 3A 8E 00 10 |58010:.63900:...|
00001600: 1E D4 17 8F 20 44 49 53 50 4C 41 59 20 42 41 4D |.... DISPLAY BAM|
00001610: 00 22 1E DE 17 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |."....".........|
00001620: A3 A3 00 47 1E E8 17 99 22 11 11 57 48 49 43 48 |...G...."..WHICH|
00001630: 20 54 52 41 43 4B 53 22 3A 99 22 B8 B8 B8 B8 B8 | TRACKS":.".....|
00001640: B8 B8 B8 B8 B8 B8 B8 00 6E 1E F2 17 85 22 11 11 |........n...."..|
00001650: 46 49 52 53 54 2C 4C 41 53 54 20 54 52 41 43 4B |FIRST,LAST TRACK|
00001660: 20 20 20 A6 9D 9D 9D 22 3B 54 53 2C 54 45 00 8D | ....";TS,TE..|
00001670: 1E 06 18 99 22 93 12 52 45 54 55 52 4E 92 92 20 |...."..RETURN.. |
00001680: 54 4F 20 53 54 4F 50 22 3A 99 53 30 24 00 AA 1E |TO STOP":.S0$...|
00001690: 10 18 9F 31 35 2C 44 56 2C 31 35 2C 22 49 22 AA |...15,DV,15,"I".|
000016A0: 44 52 24 3A 8D 36 33 39 30 30 00 C5 1E 1A 18 9F |DR$:.63900......|
000016B0: 32 2C 44 56 2C 32 2C 22 24 22 AA 44 52 24 3A 8D |2,DV,2,"$".DR$:.|
000016C0: 36 33 39 30 30 00 D9 1E 24 18 46 46 B2 44 31 AA |63900...$.FF.D1.|
000016D0: 28 54 53 AB 31 29 AC 53 33 00 EE 1E 2E 18 81 4B |(TS.1).S3......K|
000016E0: B2 30 A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 11 |.0.FF:.#2,A$:...|
000016F0: 1F 38 18 81 54 B2 54 53 A4 54 45 3A 8B 54 B2 35 |.8..T.TS.TE:.T.5|
00001700: 31 A7 A1 23 32 2C 41 24 2C 41 24 2C 41 24 2C 41 |1..#2,A$,A$,A$,A|
00001710: 24 00 1B 1F 42 18 8D 36 34 30 30 00 32 1F 4C 18 |$...B..6400.2.L.|
00001720: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 54 B2 54 45 |.A$:.A$.."".T.TE|
00001730: AA 31 00 4C 1F 56 18 82 3A A0 32 3A A0 31 35 3A |.1.L.V..:.2:.15:|
00001740: 8D 36 38 37 30 3A 8D 33 31 30 3A 8E 00 5D 1F 60 |.6870:.310:..].`|
00001750: 18 8F 20 43 48 41 4E 47 45 20 42 41 4D 00 6E 1F |.. CHANGE BAM.n.|
00001760: 6A 18 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 8D |j.."............|
00001770: 1F 74 18 85 22 93 4D 4F 52 45 20 43 48 41 4E 47 |.t..".MORE CHANG|
00001780: 45 53 20 20 20 59 9D 9D 9D 22 3B 49 24 00 9C 1F |ES Y...";I$...|
00001790: 7E 18 8B 49 24 B3 B1 22 59 22 A7 8E 00 D9 1F 88 |~..I$.."Y"......|
000017A0: 18 8B 44 54 B2 36 37 A7 99 22 93 53 4F 52 52 59 |..DT.67..".SORRY|
000017B0: 2E 2E 43 41 4E 27 54 20 43 48 41 4E 47 45 20 42 |..CAN'T CHANGE B|
000017C0: 41 4D 20 46 4F 52 20 54 48 49 53 20 44 49 53 4B |AM FOR THIS DISK|
000017D0: 2E 22 3A 8D 33 31 30 3A 8E 00 F0 1F 8D 18 85 22 |.":.310:......."|
000017E0: 93 54 52 41 43 4B 20 20 20 D6 9D 9D 9D 22 3B 54 |.TRACK ....";T|
000017F0: 00 02 20 92 18 A0 31 35 3A 9F 31 35 2C 44 56 2C |.. ...15:.15,DV,|
00001800: 31 35 00 1C 20 9C 18 A0 32 3A 9F 32 2C 44 56 2C |15.. ...2:.2,DV,|
00001810: 32 2C 22 23 22 3A 8D 36 33 39 30 30 00 34 20 A6 |2,"#":.63900.4 .|
00001820: 18 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 52 3B |..15,"U1:";2;DR;|
00001830: 44 49 3B 30 00 48 20 B0 18 98 31 35 2C 22 42 2D |DI;0.H ...15,"B-|
00001840: 50 22 3B 32 3B 54 AC 34 00 78 20 BA 18 99 56 43 |P";2;T.4.x ...VC|
00001850: 24 22 93 48 49 54 20 12 52 45 54 55 52 4E 92 20 |$".HIT .RETURN. |
00001860: 54 4F 20 51 55 49 54 11 22 54 43 24 3A 8D 36 34 |TO QUIT."TC$:.64|
00001870: 30 30 3A 8D 36 35 38 30 00 B8 20 C4 18 85 22 13 |00:.6580.. ...".|
00001880: 11 11 11 11 11 11 11 11 11 43 48 41 4E 47 45 20 |.........CHANGE |
00001890: 57 48 49 43 48 20 53 45 43 54 4F 52 20 20 20 20 |WHICH SECTOR |
000018A0: 20 9D 9D D6 9D 9D 9D 22 3B 53 24 3A 8B 53 24 B2 | ......";S$:.S$.|
000018B0: 22 D6 22 A7 36 32 36 30 00 D7 20 CE 18 53 B2 C5 |".".6260.. ..S..|
000018C0: 28 53 24 29 3A 8B 53 B3 30 B0 53 B1 B2 53 43 28 |(S$):.S.0.S..SC(|
000018D0: 54 29 A7 36 32 36 30 00 E7 20 D8 18 A0 32 3A A0 |T).6260.. ...2:.|
000018E0: 31 35 3A 99 53 44 24 00 16 21 E2 18 8D 36 36 32 |15:.SD$..!...662|
000018F0: 30 3A 8D 36 34 38 30 3A 8D 36 35 38 30 3A 99 3A |0:.6480:.6580:.:|
00001900: 99 4D 44 24 22 12 4F 4B 3F 92 22 3B 3A 8D 33 31 |.MD$".OK?.";:.31|
00001910: 30 3A 99 43 4C 24 00 29 21 EC 18 8B 49 4E 24 B2 |0:.CL$.)!...IN$.|
00001920: 22 59 22 A7 8D 36 37 33 30 00 38 21 F1 18 99 4D |"Y"..6730.8!...M|
00001930: 44 24 43 4C 24 53 44 24 00 48 21 F6 18 8D 36 34 |D$CL$SD$.H!...64|
00001940: 38 30 3A 89 36 33 34 30 00 5B 21 00 19 81 4B B2 |80:.6340.[!...K.|
00001950: 30 A4 53 32 3A A1 23 32 2C 41 24 00 6D 21 0A 19 |0.S2:.#2,A$.m!..|
00001960: 8B 41 24 B2 22 22 A7 41 24 B2 43 5A 24 00 7E 21 |.A$."".A$.CZ$.~!|
00001970: 14 19 42 28 4B 29 B2 C6 28 41 24 29 3A 82 00 90 |..B(K)..(A$):...|
00001980: 21 50 19 8F 20 50 52 49 4E 54 20 54 52 41 43 4B |!P.. PRINT TRACK|
00001990: 00 A2 21 5A 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..!Z..".........|
000019A0: A3 A3 00 B5 21 64 19 81 4B B2 31 A4 53 31 3A 5A |....!d..K.1.S1:Z|
000019B0: B2 42 28 4B 29 00 C0 21 6E 19 81 49 B2 30 A4 37 |.B(K)..!n..I.0.7|
000019C0: 00 D7 21 78 19 58 B2 A5 42 28 49 29 3A 99 58 24 |..!x.X..B(I):.X$|
000019D0: 28 58 29 3B 3A 82 49 00 DE 21 82 19 82 4B 00 FB |(X);:.I..!...K..|
000019E0: 21 8C 19 5A B2 42 28 4B 29 3A 81 49 B2 30 A4 53 |!..Z.B(K):.I.0.S|
000019F0: 43 28 54 29 AB 53 43 28 54 54 29 00 14 22 96 19 |C(T).SC(TT).."..|
00001A00: 58 B2 A5 42 28 49 29 3A 99 58 24 28 58 29 3B 3A |X..B(I):.X$(X);:|
00001A10: 82 49 3A 99 00 39 22 A0 19 99 22 91 22 A3 32 32 |.I:..9"...".".22|
00001A20: 29 22 54 52 41 43 4B 12 22 54 22 92 9D 46 52 45 |)"TRACK."T"..FRE|
00001A30: 45 3D 22 42 28 30 29 3A 8E 00 4B 22 B4 19 99 C8 |E="B(0):..K"....|
00001A40: 28 53 31 24 2C 53 43 28 54 29 29 00 72 22 BE 19 |(S1$,SC(T)).r"..|
00001A50: 99 C8 28 53 32 24 2C 53 43 28 54 29 29 A3 32 33 |..(S2$,SC(T)).23|
00001A60: 29 22 23 20 53 45 43 54 4F 52 53 3D 22 53 43 28 |)"# SECTORS="SC(|
00001A70: 54 29 00 96 22 C8 19 8B 53 43 28 54 29 B2 32 31 |T).."...SC(T).21|
00001A80: A7 99 C8 28 53 33 24 2C 53 43 28 54 29 AA 31 29 |...(S3$,SC(T).1)|
00001A90: 3A 89 36 36 31 30 00 A8 22 CD 19 99 C8 28 53 33 |:.6610.."....(S3|
00001AA0: 24 2C 53 43 28 54 29 29 00 B3 22 D2 19 99 53 30 |$,SC(T)).."...S0|
00001AB0: 24 3A 8E 00 C7 22 DC 19 8F 20 43 48 41 4E 47 45 |$:..."... CHANGE|
00001AC0: 20 53 45 43 54 4F 52 00 DB 22 E6 19 8F 22 A3 A3 | SECTOR.."..."..|
00001AD0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 F6 22 F0 19 |............."..|
00001AE0: 8B 53 B3 38 A7 5A B2 42 28 31 29 3A 53 53 B2 53 |.S.8.Z.B(1):SS.S|
00001AF0: 3A 89 36 36 37 30 00 14 23 FA 19 8B 53 B3 31 36 |:.6670..#...S.16|
00001B00: A7 5A B2 42 28 32 29 3A 53 53 B2 53 AB 38 3A 89 |.Z.B(2):SS.S.8:.|
00001B10: 36 36 37 30 00 27 23 04 1A 5A B2 42 28 33 29 3A |6670.'#..Z.B(3):|
00001B20: 53 53 B2 53 AB 31 36 00 44 23 0E 1A 4E 5A B2 28 |SS.S.16.D#..NZ.(|
00001B30: A8 5A AF 50 28 53 53 29 29 B0 28 5A AF A8 50 28 |.Z.P(SS)).(Z..P(|
00001B40: 53 53 29 29 00 60 23 18 1A 42 28 30 29 B2 42 28 |SS)).`#..B(0).B(|
00001B50: 30 29 AA 28 4E 5A B3 5A 29 AB 28 4E 5A B1 5A 29 |0).(NZ.Z).(NZ.Z)|
00001B60: 00 77 23 22 1A 8B 53 B3 38 A7 42 28 31 29 B2 4E |.w#"..S.8.B(1).N|
00001B70: 5A 3A 89 36 37 32 30 00 8F 23 2C 1A 8B 53 B3 31 |Z:.6720..#,..S.1|
00001B80: 36 A7 42 28 32 29 B2 4E 5A 3A 89 36 37 32 30 00 |6.B(2).NZ:.6720.|
00001B90: 9B 23 36 1A 42 28 33 29 B2 4E 5A 00 A1 23 40 1A |.#6.B(3).NZ..#@.|
00001BA0: 8E 00 AF 23 4A 1A 9F 31 35 2C 44 56 2C 31 35 00 |...#J..15,DV,15.|
00001BB0: E7 23 54 1A 99 4D 44 24 56 43 24 22 12 41 52 45 |.#T..MD$VC$".ARE|
00001BC0: 20 59 4F 55 20 53 55 52 45 3F 92 22 54 43 24 3B | YOU SURE?."TC$;|
00001BD0: 3A 8D 33 31 30 3A 99 49 4E 24 3B 3A 8B 49 4E 24 |:.310:.IN$;:.IN$|
00001BE0: B3 B1 22 59 22 A7 8E 00 01 24 5E 1A 99 22 2E 2E |.."Y"....$^.."..|
00001BF0: 12 43 48 41 4E 47 49 4E 47 20 42 41 4D 2E 2E 22 |.CHANGING BAM.."|
00001C00: 3B 00 18 24 68 1A 9F 33 2C 44 56 2C 33 2C 22 23 |;..$h..3,DV,3,"#|
00001C10: 22 3A 8D 36 33 39 30 30 00 2E 24 72 1A A1 23 33 |":.63900..$r..#3|
00001C20: 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 5A |,BN$:BN..(BN$).Z|
00001C30: 24 90 1A 81 49 B2 30 A4 53 32 3A 98 31 35 2C 22 |$...I.0.S2:.15,"|
00001C40: 42 2D 50 22 3B 33 3B 49 AA 54 AC 34 3A 98 33 2C |B-P";3;I.T.4:.3,|
00001C50: C7 28 42 28 49 29 29 3B 3A 82 00 72 24 B8 1A 98 |.(B(I));:..r$...|
00001C60: 31 35 2C 22 55 32 3A 22 3B 33 3B 44 52 3B 44 49 |15,"U2:";3;DR;DI|
00001C70: 3B 30 00 92 24 C2 1A 98 31 35 2C 22 49 22 AA 44 |;0..$...15,"I".D|
00001C80: 52 24 3A 8D 36 33 39 30 30 3A A0 33 3A A0 31 35 |R$:.63900:.3:.15|
00001C90: 3A 8E 00 CA 24 D6 1A 99 22 13 11 11 11 11 11 11 |:...$...".......|
00001CA0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001CB0: 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |...RETURN. TO CO|
00001CC0: 4E 54 49 4E 55 45 22 3B 3A 8E 00 EB 24 F4 1A 99 |NTINUE";:...$...|
00001CD0: 56 43 24 22 11 11 11 12 D2 C5 D4 D5 D2 CE 92 20 |VC$"........... |
00001CE0: 54 4F 20 45 58 49 54 22 54 43 24 00 F6 24 FE 1A |TO EXIT"TC$..$..|
00001CF0: 8D 33 31 30 3A 8E 00 0A 25 58 1B 8F 20 44 49 53 |.310:...%X.. DIS|
00001D00: 4B 20 43 4F 4D 4D 41 4E 44 53 00 1E 25 59 1B 8F |K COMMANDS..%Y..|
00001D10: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 56 |"..............V|
00001D20: 25 5A 1B 97 35 33 32 38 30 2C 46 35 3A 8D 35 38 |%Z..53280,F5:.58|
00001D30: 30 31 30 3A 99 22 93 22 3A 58 24 B2 22 C4 C9 D3 |010:.".":X$."...|
00001D40: CB 22 3A 58 B2 33 30 3A 8D 35 34 30 30 30 3A 99 |.":X.30:.54000:.|
00001D50: 22 13 22 48 44 24 00 96 25 5B 1B A0 31 35 3A 44 |"."HD$..%[..15:D|
00001D60: 24 28 31 29 B2 22 C9 4E 49 54 49 41 4C 49 5A 45 |$(1).".NITIALIZE|
00001D70: 22 3A 44 24 28 32 29 B2 22 D6 41 4C 49 44 41 54 |":D$(2).".ALIDAT|
00001D80: 45 22 3A 44 24 28 33 29 B2 22 C6 4F 52 4D 41 54 |E":D$(3).".ORMAT|
00001D90: 20 C4 49 53 4B 22 00 AE 25 5C 1B 44 24 28 34 29 | .ISK"..%\.D$(4)|
00001DA0: B2 22 C3 48 41 4E 47 45 20 C4 C9 D3 CB 22 00 CC |.".HANGE ...."..|
00001DB0: 25 5D 1B 44 24 28 35 29 B2 22 C4 49 53 50 4C 41 |%].D$(5).".ISPLA|
00001DC0: 59 20 C4 49 52 45 43 54 4F 52 59 22 00 E7 25 5E |Y .IRECTORY"..%^|
00001DD0: 1B 44 24 28 36 29 B2 22 C3 48 41 4E 47 45 20 C4 |.D$(6).".HANGE .|
00001DE0: C5 D6 C9 C3 C5 23 22 00 25 26 5F 1B 44 24 28 37 |.....#".%&_.D$(7|
00001DF0: 29 B2 22 C3 48 45 43 4B 20 46 4F 52 20 C4 C9 D3 |).".HECK FOR ...|
00001E00: CB 20 C5 D2 D2 CF D2 22 3A 44 24 28 38 29 B2 22 |. .....":D$(8)."|
00001E10: C3 48 45 43 4B 20 46 4F 52 20 C2 C1 C4 20 42 4C |.HECK FOR ... BL|
00001E20: 4F 43 4B 53 22 00 49 26 60 1B 44 24 28 39 29 B2 |OCKS".I&`.D$(9).|
00001E30: 22 C2 41 43 4B 55 50 20 28 42 4C 4F 43 4B 2D 42 |".ACKUP (BLOCK-B|
00001E40: 59 2D 42 4C 4F 43 4B 29 22 00 86 26 62 1B 81 49 |Y-BLOCK)"..&b..I|
00001E50: B2 31 A4 39 3A 99 22 11 12 22 49 22 92 3A 22 44 |.1.9:.".."I".:"D|
00001E60: 24 28 49 29 3A 82 3A 99 53 30 24 3A 99 56 43 24 |$(I):.:.S0$:.VC$|
00001E70: 22 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 45 58 |"......... TO EX|
00001E80: 49 54 22 54 43 24 00 9A 26 63 1B 8D 33 31 30 3A |IT"TC$..&c..310:|
00001E90: 8B 49 4E 24 B2 43 52 24 A7 8E 00 A4 26 64 1B 99 |.IN$.CR$....&d..|
00001EA0: 22 13 11 22 00 D4 26 65 1B 81 49 B2 31 A4 49 4E |".."..&e..I.1.IN|
00001EB0: 3A 99 22 11 11 22 3B 3A 82 3A 99 22 1D 1D 1D 1D |:."..";:.:."....|
00001EC0: 12 22 44 24 28 49 4E 29 3A 81 54 39 B2 31 A4 33 |."D$(IN):.T9.1.3|
00001ED0: 30 30 3A 82 00 0E 27 67 1B 91 20 49 4E 20 8D 37 |00:...'g.. IN .7|
00001EE0: 30 32 30 2C 37 30 33 30 2C 37 30 33 35 2C 37 30 |020,7030,7035,70|
00001EF0: 34 30 2C 31 31 30 30 30 2C 37 33 30 30 2C 37 33 |40,11000,7300,73|
00001F00: 35 30 2C 35 31 30 30 30 2C 35 30 30 30 30 00 18 |50,51000,50000..|
00001F10: 27 68 1B 89 37 30 30 30 00 37 27 6C 1B 9F 31 35 |'h..7000.7'l..15|
00001F20: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D |,DV,15,"I".DR$:.|
00001F30: 36 33 39 30 30 3A 8E 00 56 27 76 1B 9F 31 35 2C |63900:..V'v..15,|
00001F40: 44 56 2C 31 35 2C 22 56 22 AA 44 52 24 3A 8D 36 |DV,15,"V".DR$:.6|
00001F50: 33 39 30 30 3A 8E 00 96 27 7B 1B 85 22 93 11 11 |3900:...'{.."...|
00001F60: CE C1 CD C5 20 46 4F 52 20 44 49 53 4B 22 3B 4E |.... FOR DISK";N|
00001F70: 4D 24 3A 85 22 11 11 C9 C4 20 46 4F 52 20 44 49 |M$:.".... FOR DI|
00001F80: 53 4B 22 3B 49 44 24 3A 85 22 11 11 C4 D2 C9 D6 |SK";ID$:."......|
00001F90: C5 22 3B 44 41 24 00 D9 27 7C 1B 43 43 24 B2 22 |.";DA$..'|.CC$."|
00001FA0: 4E 22 AA 44 41 24 AA 22 3A 22 AA 4E 4D 24 AA 22 |N".DA$.":".NM$."|
00001FB0: 2C 22 AA 49 44 24 3A 99 22 11 11 4F 50 45 4E 20 |,".ID$:."..OPEN |
00001FC0: 31 35 2C 22 44 56 22 2C 31 35 2C 22 C7 28 33 34 |15,"DV",15,".(34|
00001FD0: 29 43 43 24 C7 28 33 34 29 00 09 28 7E 1B 85 22 |)CC$.(34)..(~.."|
00001FE0: 11 11 C1 D2 C5 20 D9 CF D5 20 D3 D5 D2 C5 20 20 |..... ... .... |
00001FF0: 20 4E 9D 9D 9D 22 3B 56 56 24 20 3A 8B 20 56 56 | N...";VV$ :. VV|
00002000: 24 B3 B1 22 59 22 A7 20 8E 00 24 28 7F 1B 9F 31 |$.."Y". ..$(...1|
00002010: 35 2C 44 56 2C 31 35 2C 43 43 24 3A 8D 36 33 39 |5,DV,15,CC$:.639|
00002020: 30 30 3A 8E 00 55 28 80 1B 44 52 B2 C5 28 44 52 |00:..U(..DR..(DR|
00002030: 24 29 3A 99 22 93 11 11 44 52 49 56 45 20 20 20 |$):."...DRIVE |
00002040: 22 31 AB 44 52 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D |"1.DR:."........|
00002050: 22 3B 44 52 24 00 86 28 81 1B 4D 48 24 B2 22 44 |";DR$..(..MH$."D|
00002060: 52 49 56 45 20 22 AA 44 52 24 AA 22 12 20 20 2A |RIVE ".DR$.". *|
00002070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002080: 2A 2A 2A 2A 92 22 00 B7 28 82 1B 4D 48 24 B2 22 |****."..(..MH$."|
00002090: 44 52 49 56 45 20 22 AA 44 52 24 AA 22 12 20 20 |DRIVE ".DR$.". |
000020A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020B0: 2A 2A 2A 2A 2A 92 22 00 C8 28 83 1B 8D 32 36 31 |*****."..(...261|
000020C0: 3A 8D 38 30 34 30 3A 8E 00 DB 28 BC 1B 8F 20 54 |:.8040:...(... T|
000020D0: 52 41 43 45 20 42 4C 4F 43 4B 53 00 EE 28 BD 1B |RACE BLOCKS..(..|
000020E0: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 32 |.".............2|
000020F0: 29 BE 1B 99 22 93 11 12 31 92 3A C4 49 53 50 4C |)..."...1.:.ISPL|
00002100: 41 59 20 C1 CC CC 20 4C 49 4E 4B 53 20 4F 4E 20 |AY ... LINKS ON |
00002110: 41 20 54 52 41 43 4B 2E 22 3A 99 22 11 12 32 92 |A TRACK.":."..2.|
00002120: 3A C6 4F 4C 4C 4F 57 20 4C 49 4E 4B 53 2E 11 11 |:.OLLOW LINKS...|
00002130: 11 22 00 61 29 BF 1B 58 B2 33 30 3A 58 24 B2 22 |.".a)..X.30:X$."|
00002140: D4 D2 C1 C3 C5 22 3A 8D 35 34 30 30 30 3A 8D 36 |.....":.54000:.6|
00002150: 39 30 30 3A 8B 20 49 4E 24 B2 43 52 24 20 A7 20 |900:. IN$.CR$ . |
00002160: 8E 00 95 29 C0 1B 85 22 93 11 11 D4 CF 20 D0 D2 |...)..."..... ..|
00002170: C9 CE D4 C5 D2 20 20 20 4E 9D 9D 9D 22 3B 49 49 |..... N...";II|
00002180: 24 3A 50 44 B2 33 3A 8B 20 49 49 24 B2 22 59 22 |$:PD.3:. II$."Y"|
00002190: A7 50 44 B2 34 00 AC 29 C1 1B 9F 34 2C 50 44 3A |.PD.4..)...4,PD:|
000021A0: 8B 20 49 4E B2 32 20 A7 37 31 31 32 00 E2 29 C2 |. IN.2 .7112..).|
000021B0: 1B 85 22 93 11 D4 D2 C1 C3 CB 20 20 20 A6 9D 9D |.."....... ...|
000021C0: 9D 22 3B 54 38 3A A0 33 3A A0 31 35 3A 9F 31 35 |.";T8:.3:.15:.15|
000021D0: 2C 44 56 2C 31 35 3A 9F 33 2C 44 56 2C 33 2C 22 |,DV,15:.3,DV,3,"|
000021E0: 23 22 00 02 2A C3 1B 98 34 2C 22 93 54 52 41 43 |#"..*...4,".TRAC|
000021F0: 4B 22 54 38 3A 98 34 2C 22 B8 B8 B8 B8 B8 B8 B8 |K"T8:.4,".......|
00002200: B8 22 00 32 2A C4 1B 81 53 38 B2 30 A4 33 31 3A |.".2*...S8.0.31:|
00002210: 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 |.15,"B-R";3;DR;T|
00002220: 38 3B 53 38 3A 84 31 35 2C 45 3A 8B 45 A7 37 31 |8;S8:.15,E:.E.71|
00002230: 31 30 00 6D 2A C5 1B 98 31 35 2C 22 42 2D 50 22 |10.m*...15,"B-P"|
00002240: 3B 33 3B 31 3A A1 23 33 2C 41 24 3A 98 34 2C 22 |;3;1:.#3,A$:.4,"|
00002250: 53 45 43 54 4F 52 22 53 38 22 20 4C 49 4E 4B 53 |SECTOR"S8" LINKS|
00002260: 20 54 4F 22 C6 28 41 24 AA 43 5A 24 29 00 85 2A | TO".(A$.CZ$)..*|
00002270: C6 1B A1 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 A7 |...IN$:.IN$.."".|
00002280: 53 38 B2 33 32 00 9C 2A C7 1B 82 3A 8D 33 30 30 |S8.32..*...:.300|
00002290: 3A 98 34 3A A0 34 3A 89 37 31 30 30 00 D1 2A C8 |:.4:.4:.7100..*.|
000022A0: 1B 85 22 93 11 12 53 54 41 52 54 49 4E 47 20 D4 |.."...STARTING .|
000022B0: D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 |....,....... .|
000022C0: 9D 9D 9D 22 3B 54 38 2C 53 38 3A A0 33 3A A0 31 |...";T8,S8:.3:.1|
000022D0: 35 00 F2 2A C9 1B 9F 31 35 2C 44 56 2C 31 35 3A |5..*...15,DV,15:|
000022E0: 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D 36 33 39 |.3,DV,3,"#":.639|
000022F0: 30 30 00 2E 2B CB 1B 99 22 93 12 D2 C5 D4 D5 D2 |00..+...".......|
00002300: CE 92 20 54 4F 20 51 55 49 54 22 3A 98 34 2C 22 |.. TO QUIT":.4,"|
00002310: 28 22 54 38 22 2C 22 53 38 22 29 5F 20 46 49 52 |("T8","S8")_ FIR|
00002320: 53 54 20 42 4C 4F 43 4B 22 3A 4E 39 B2 31 00 47 |ST BLOCK":N9.1.G|
00002330: 2B D0 1B 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 |+...15,"B-R";3;D|
00002340: 52 3B 54 38 3B 53 38 00 59 2B DA 1B 98 31 35 2C |R;T8;S8.Y+...15,|
00002350: 22 42 2D 50 22 3B 33 3B 30 00 72 2B E4 1B A1 23 |"B-P";3;0.r+...#|
00002360: 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 |3,Z$:.Z$."".Z$.C|
00002370: 5A 24 00 8A 2B EE 1B 54 38 B2 C6 28 5A 24 29 3A |Z$..+..T8..(Z$):|
00002380: 8B 54 38 B2 30 A7 37 32 30 30 00 A3 2B F8 1B A1 |.T8.0.7200..+...|
00002390: 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 |#3,Z$:.Z$."".Z$.|
000023A0: 43 5A 24 00 B0 2B 02 1C 53 38 B2 C6 28 5A 24 29 |CZ$..+..S8..(Z$)|
000023B0: 00 D2 2B 07 1C 54 38 24 B2 CA 28 C4 28 54 38 29 |..+..T8$..(.(T8)|
000023C0: 2C 32 29 3A 53 38 24 B2 CA 28 C4 28 53 38 29 2C |,2):S8$..(.(S8),|
000023D0: 32 29 00 FB 2B 0C 1C 98 34 2C 22 28 22 54 38 24 |2)..+...4,"("T8$|
000023E0: 22 2C 22 53 38 24 22 29 22 3B 3A 8B B5 28 4E 39 |","S8$")";:..(N9|
000023F0: AD 35 29 AC 35 B2 4E 39 A7 98 34 00 19 2C 16 1C |.5).5.N9..4..,..|
00002400: 4E 39 B2 4E 39 AA 31 3A A1 49 4E 24 3A 8B 49 4E |N9.N9.1:.IN$:.IN|
00002410: 24 B2 22 22 89 37 31 32 30 00 25 2C 1B 1C 99 3A |$."".7120.%,...:|
00002420: 89 37 32 31 30 00 48 2C 20 1C 98 34 2C 22 5F 20 |.7210.H, ..4,"_ |
00002430: 4C 41 53 54 20 11 11 22 3A 98 34 2C 4E 39 22 20 |LAST ..":.4,N9" |
00002440: 42 4C 4F 43 4B 53 11 22 00 5D 2C 2A 1C 8D 33 30 |BLOCKS.".],*..30|
00002450: 30 3A 98 34 3A A0 34 3A 89 37 31 30 30 00 96 2C |0:.4:.4:.7100..,|
00002460: 84 1C 44 39 B2 39 3A 44 31 24 B2 C7 28 44 56 AA |..D9.9:D1$..(DV.|
00002470: 33 32 29 3A 44 32 24 B2 C7 28 44 56 AA 36 34 29 |32):D2$..(DV.64)|
00002480: 3A 9F 31 35 2C 44 56 2C 31 35 3A 8B 44 56 B2 44 |:.15,DV,15:.DV.D|
00002490: 39 A7 44 39 B2 38 00 C9 2C 89 1C 99 22 13 11 11 |9.D9.8..,..."...|
000024A0: 11 11 11 11 11 11 11 11 11 15 11 11 11 11 11 11 |................|
000024B0: 11 11 11 11 11 12 CE C5 D7 92 20 44 45 56 49 43 |.......... DEVIC|
000024C0: 45 20 23 20 20 20 22 44 39 00 E3 2C 8D 1C 85 22 |E # "D9..,..."|
000024D0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
000024E0: 3B 44 39 00 FC 2C 8E 1C 58 58 B2 31 32 3A 8D 37 |;D9..,..XX.12:.7|
000024F0: 33 34 30 3A 8B 59 59 A7 37 33 31 35 00 15 2D 8F |340:.YY.7315..-.|
00002500: 1C 58 58 B2 35 30 3A 8D 37 33 34 30 3A 8B 59 59 |.XX.50:.7340:.YY|
00002510: A7 37 33 31 35 00 2F 2D 90 1C 58 58 B2 31 31 39 |.7315./-..XX.119|
00002520: 3A 8D 37 33 34 30 3A 8B 59 59 A7 37 33 31 35 00 |:.7340:.YY.7315.|
00002530: 3B 2D 91 1C 8D 37 34 30 30 3A 8E 00 67 2D 93 1C |;-...7400:..g-..|
00002540: 98 31 35 2C 22 4D 2D 57 22 C7 28 58 58 29 C7 28 |.15,"M-W".(XX).(|
00002550: 30 30 29 C7 28 32 29 C7 28 44 39 AA 33 32 29 C7 |00).(2).(D9.32).|
00002560: 28 44 39 AA 36 34 29 00 7C 2D 98 1C A0 31 35 3A |(D9.64).|-...15:|
00002570: 44 56 B2 44 39 3A 8D 32 36 31 3A 8E 00 B1 2D AC |DV.D9:.261:...-.|
00002580: 1C 59 59 B2 AB 31 3A 98 31 35 2C 22 4D 2D 52 22 |.YY..1:.15,"M-R"|
00002590: C7 28 58 58 29 C7 28 30 29 3A A1 23 31 35 2C 58 |.(XX).(0):.#15,X|
000025A0: 58 24 3A 8B 58 58 24 B3 B1 44 31 24 A7 59 59 B2 |X$:.XX$..D1$.YY.|
000025B0: 30 00 B7 2D B1 1C 8E 00 E5 2D B6 1C A0 31 35 3A |0..-.....-...15:|
000025C0: 9F 31 35 2C 44 56 2C 31 35 3A 84 31 35 2C 45 31 |.15,DV,15:.15,E1|
000025D0: 24 2C 45 32 24 2C 45 33 24 2C 45 34 24 3A 53 39 |$,E2$,E3$,E4$:S9|
000025E0: 24 B2 22 2C 22 00 08 2E B7 1C 58 24 B2 45 31 24 |$.",".....X$.E1$|
000025F0: AA 53 39 24 AA 45 32 24 AA 53 39 24 AA 45 33 24 |.S9$.E2$.S9$.E3$|
00002600: AA 53 39 24 AA 45 34 24 00 3E 2E B8 1C 99 22 93 |.S9$.E4$.>....".|
00002610: 22 3A 58 B2 35 3A 59 24 B2 22 22 3A 8D 35 34 30 |":X.5:Y$."":.540|
00002620: 32 30 3A 81 41 39 B2 31 A4 31 30 30 3A 45 B2 C5 |20:.A9.1.100:E..|
00002630: 28 45 31 24 29 3A 82 3A 8B 45 B2 30 A7 8E 00 54 |(E1$):.:.E.0...T|
00002640: 2E B9 1C 81 41 39 B2 31 A4 31 30 3A 8D 35 39 31 |....A9.1.10:.591|
00002650: 30 30 3A 82 00 73 2E BA 1C 99 22 11 11 12 52 45 |00:..s...."...RE|
00002660: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00002670: 45 2E 22 00 95 2E BB 1C 99 22 11 11 41 4E 59 20 |E."......"..ANY |
00002680: 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 12 51 55 |OTHER KEY TO .QU|
00002690: 49 54 92 2E 22 00 A9 2E BC 1C 8D 33 31 30 3A 8B |IT.."......310:.|
000026A0: 49 4E 24 B2 43 52 24 A7 8E 00 B3 2E BD 1C 89 37 |IN$.CR$........7|
000026B0: 39 30 30 00 F0 2E E8 1C 99 22 93 11 11 2A 2A 2A |900......"...***|
000026C0: 12 4E 4F 54 20 41 20 52 45 43 4F 47 4E 49 5A 41 |.NOT A RECOGNIZA|
000026D0: 42 4C 45 20 44 49 53 4B 92 2A 2A 2A 22 3A 99 22 |BLE DISK.***":."|
000026E0: 11 11 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 22 |..WANT TO QUIT?"|
000026F0: 00 07 2F F2 1C 8D 33 31 30 3A 8B 49 4E 24 B2 22 |../...310:.IN$."|
00002700: 59 22 A7 37 39 30 30 00 0D 2F FC 1C 8E 00 1D 2F |Y".7900../...../|
00002710: 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 2D 2F |L.. UNSCRATCH.-/|
00002720: 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 57 2F |M.."..........W/|
00002730: 4E 1D 99 22 93 22 3A 58 B2 32 35 3A 58 24 B2 22 |N..".":X.25:X$."|
00002740: D5 CE D3 C3 D2 C1 D4 C3 C8 22 3A 59 24 B2 22 22 |.........":Y$.""|
00002750: 3A 8D 35 34 30 32 30 00 77 2F 56 1D 99 22 11 D7 |:.54020.w/V.."..|
00002760: 45 27 4C 4C 20 44 4F 20 54 48 45 20 46 4F 4C 4C |E'LL DO THE FOLL|
00002770: 4F 57 49 4E 47 3A 22 00 A6 2F 57 1D 99 22 11 12 |OWING:"../W.."..|
00002780: 31 92 3A C7 4F 20 54 48 52 55 27 20 44 49 52 45 |1.:.O THRU' DIRE|
00002790: 43 54 4F 52 59 20 54 52 41 43 4B 22 44 49 22 20 |CTORY TRACK"DI" |
000027A0: 55 4E 54 49 4C 22 00 D0 2F 58 1D 99 22 20 20 57 |UNTIL"../X.." W|
000027B0: 45 20 46 49 4E 44 20 54 48 45 20 53 43 52 41 54 |E FIND THE SCRAT|
000027C0: 43 48 45 44 20 46 49 4C 45 20 4E 41 4D 45 2E 22 |CHED FILE NAME."|
000027D0: 00 F9 2F 59 1D 99 22 11 12 32 92 3A D4 52 41 43 |../Y.."..2.:.RAC|
000027E0: 45 20 54 48 45 20 C2 4C 4F 43 4B 53 20 41 4E 44 |E THE .LOCKS AND|
000027F0: 20 43 4F 4D 50 41 52 45 22 00 1F 30 5A 1D 99 22 | COMPARE"..0Z.."|
00002800: 20 20 54 48 45 20 C2 4C 4F 43 4B 53 20 4F 42 54 | THE .LOCKS OBT|
00002810: 41 49 4E 45 44 20 57 49 54 48 20 54 48 45 22 00 |AINED WITH THE".|
00002820: 3F 30 5B 1D 99 22 20 20 C4 49 52 45 43 54 4F 52 |?0[.." .IRECTOR|
00002830: 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 2E 22 00 |Y .LOCK .OUNT.".|
00002840: 6D 30 5C 1D 99 22 11 12 33 92 3A CC 4F 4F 4B 20 |m0\.."..3.:.OOK |
00002850: 41 54 20 54 48 45 20 C2 4C 4F 43 4B 20 C1 56 41 |AT THE .LOCK .VA|
00002860: 49 4C 41 42 49 4C 54 59 20 CD 41 50 22 00 99 30 |ILABILTY .AP"..0|
00002870: 5D 1D 99 22 20 20 54 4F 20 53 45 45 20 49 46 20 |].." TO SEE IF |
00002880: 41 4C 4C 20 54 48 45 20 42 4C 4F 43 4B 53 20 41 |ALL THE BLOCKS A|
00002890: 52 45 20 46 52 45 45 2E 22 00 BE 30 5E 1D 99 22 |RE FREE."..0^.."|
000028A0: 11 3E 3E C9 46 20 41 4C 4C 20 4F 46 20 54 48 45 |.>>.F ALL OF THE|
000028B0: 20 41 42 4F 56 45 20 41 52 45 20 CF CB 22 00 E5 | ABOVE ARE .."..|
000028C0: 30 5F 1D 99 22 20 20 59 4F 55 20 54 48 45 4E 20 |0_.." YOU THEN |
000028D0: CD 4F 44 49 46 59 20 54 48 45 20 C4 49 52 45 43 |.ODIFY THE .IREC|
000028E0: 54 4F 52 59 22 00 FF 30 60 1D 99 22 20 20 41 53 |TORY"..0`.." AS|
000028F0: 20 46 4F 4C 4C 4F 57 53 3A 22 3A 8D 33 30 30 00 | FOLLOWS:":.300.|
00002900: 24 31 74 1D 99 22 93 CD 4F 44 49 46 59 20 54 48 |$1t.."..ODIFY TH|
00002910: 45 20 42 4C 4F 43 4B 20 53 4F 20 54 48 41 54 20 |E BLOCK SO THAT |
00002920: 54 48 45 22 00 37 31 79 1D 99 22 12 4D 41 47 49 |THE".71y..".MAGI|
00002930: 43 20 42 59 54 45 22 00 64 31 7E 1D 99 22 20 20 |C BYTE".d1~.." |
00002940: 57 48 49 43 48 20 4F 43 43 55 52 53 20 4A 55 53 |WHICH OCCURS JUS|
00002950: 54 20 12 33 92 20 50 4C 41 43 45 53 20 42 45 46 |T .3. PLACES BEF|
00002960: 4F 52 45 22 00 85 31 88 1D 99 22 20 20 54 48 45 |ORE"..1..." THE|
00002970: 20 4E 41 4D 45 20 49 53 20 41 53 20 46 4F 4C 4C | NAME IS AS FOLL|
00002980: 4F 57 53 3A 22 00 9B 31 92 1D 99 22 20 20 31 32 |OWS:"..1..." 12|
00002990: 39 3D D3 C5 D1 20 46 49 4C 45 22 00 B1 31 93 1D |9=... FILE"..1..|
000029A0: 99 22 20 20 31 33 30 3D D0 D2 C7 20 46 49 4C 45 |." 130=... FILE|
000029B0: 22 00 C7 31 94 1D 99 22 20 20 31 33 31 3D D5 D3 |"..1..." 131=..|
000029C0: D2 20 46 49 4C 45 22 00 DD 31 95 1D 99 22 20 20 |. FILE"..1..." |
000029D0: 31 33 32 3D D2 C5 CC 20 46 49 4C 45 22 00 0B 32 |132=... FILE"..2|
000029E0: 9C 1D 99 22 11 C5 58 41 4D 50 4C 45 3A 54 4F 20 |..."..XAMPLE:TO |
000029F0: 55 4E 53 43 52 41 54 43 48 20 41 20 D0 D2 C7 20 |UNSCRATCH A ... |
00002A00: 46 49 4C 45 20 27 C1 C2 DA 27 22 00 37 32 A6 1D |FILE '...'".72..|
00002A10: 99 22 46 49 4E 44 20 49 54 27 53 20 4E 41 4D 45 |."FIND IT'S NAME|
00002A20: 20 4F 4E 20 54 48 45 20 C4 C9 D2 C5 C3 D4 CF D2 | ON THE ........|
00002A30: D9 2C 20 41 4E 44 22 00 5D 32 B0 1D 99 22 53 45 |., AND".]2..."SE|
00002A40: 4C 45 43 54 20 CD C5 CE D5 20 49 54 45 4D 3D CD |LECT .... ITEM=.|
00002A50: 4F 44 49 46 59 20 C2 4C 4F 43 4B 2E 22 00 72 32 |ODIFY .LOCK.".r2|
00002A60: BA 1D 99 22 D9 4F 55 20 57 49 4C 4C 20 53 45 45 |...".OU WILL SEE|
00002A70: 3A 22 00 AC 32 C4 1D 99 22 11 2E 2E 20 30 12 20 |:"..2..."... 0. |
00002A80: 30 92 20 30 22 56 43 24 22 12 20 30 22 54 43 24 |0. 0"VC$". 0"TC$|
00002A90: 22 92 20 31 39 12 20 33 92 20 36 35 12 20 36 36 |". 19. 3. 65. 66|
00002AA0: 92 20 39 30 2E 2E 2E 2E 45 54 43 22 00 CC 32 CE |. 90....ETC"..2.|
00002AB0: 1D 99 22 20 20 20 20 20 20 20 20 20 5E 20 20 5E |.." ^ ^|
00002AC0: 20 5E 20 20 5E 20 20 5E 20 20 5E 22 00 EC 32 D8 | ^ ^ ^ ^"..2.|
00002AD0: 1D 99 22 20 53 48 4F 55 4C 44 20 42 45 20 DD D4 |.." SHOULD BE ..|
00002AE0: 52 43 4B DD C1 20 20 C2 20 20 DA 22 00 17 33 E2 |RCK.. . ."..3.|
00002AF0: 1D 99 22 20 20 20 20 20 41 20 31 33 30 20 DD 26 |.." A 130 .&|
00002B00: D3 45 43 DD C6 49 4C 45 4E 41 4D 45 28 49 4E 20 |.EC..ILENAME(IN |
00002B10: C1 D3 C3 C9 C9 29 22 00 25 33 EC 1D 8D 33 30 30 |.....)".%3...300|
00002B20: 3A 99 22 91 22 00 53 33 F6 1D 99 22 11 CD 4F 44 |:.".".S3..."..OD|
00002B30: 49 46 59 20 54 48 45 20 42 59 54 45 20 57 48 49 |IFY THE BYTE WHI|
00002B40: 43 48 20 49 44 45 4E 54 49 46 49 45 53 20 54 48 |CH IDENTIFIES TH|
00002B50: 45 20 22 00 7A 33 00 1E 99 22 46 49 4C 45 20 54 |E ".z3..."FILE T|
00002B60: 59 50 45 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 |YPE..TO 130..SO |
00002B70: 49 54 20 52 45 41 44 53 3A 22 00 B5 33 05 1E 99 |IT READS:"..3...|
00002B80: 22 11 2E 2E 20 30 12 20 30 92 20 30 22 56 43 24 |"... 0. 0. 0"VC$|
00002B90: 22 12 31 33 30 22 54 43 24 22 92 20 31 39 12 20 |".130"TC$". 19. |
00002BA0: 33 92 20 36 35 12 20 36 36 92 20 39 30 2E 2E 2E |3. 65. 66. 90...|
00002BB0: 2E 45 54 43 22 00 E3 33 0A 1E 99 22 11 12 34 92 |.ETC"..3..."..4.|
00002BC0: 3A D7 52 49 54 45 20 54 48 45 20 42 4C 4F 43 4B |:.RITE THE BLOCK|
00002BD0: 20 42 41 43 4B 20 54 4F 20 54 48 45 20 44 49 53 | BACK TO THE DIS|
00002BE0: 4B 2E 22 00 14 34 14 1E 99 22 11 12 35 92 3A D6 |K."..4..."..5.:.|
00002BF0: C1 CC C9 C4 C1 D4 C5 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002C00: B8 B8 B8 B8 B8 B8 B8 B8 91 20 54 48 45 20 44 49 |......... THE DI|
00002C10: 53 4B 2E 22 00 2C 34 1E 1E 99 22 11 12 35 92 3A |SK.".,4..."..5.:|
00002C20: D0 52 41 59 2E 2E 22 3A 8D 33 31 30 00 55 34 C8 |.RAY..":.310.U4.|
00002C30: 1E 85 22 11 D7 C1 CE D4 20 D4 CF 20 D4 D2 D9 20 |.."..... .. ... |
00002C40: 20 20 59 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B3 B1 | Y...";A$:.A$..|
00002C50: 22 59 22 A7 8E 00 60 34 D2 1E 89 31 32 30 30 30 |"Y"...`4...12000|
00002C60: 00 8A 34 DC 1E A0 31 35 3A 8D 35 38 30 32 30 3A |..4...15:.58020:|
00002C70: 99 22 93 11 11 11 11 11 42 59 45 11 11 11 22 3A |."......BYE...":|
00002C80: 99 48 44 24 22 11 11 22 3A 80 00 9B 34 40 1F 8F |.HD$"..":...4@..|
00002C90: 20 49 4E 49 54 49 41 4C 49 5A 45 00 AC 34 41 1F | INITIALIZE..4A.|
00002CA0: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 E2 34 42 |."............4B|
00002CB0: 1F 99 22 93 22 3A 8D 35 38 30 32 30 3A 97 35 33 |..".":.58020:.53|
00002CC0: 32 38 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 |281,F1:.53280,F1|
00002CD0: 3A 86 20 46 33 24 28 31 35 29 2C 46 35 24 28 31 |:. F3$(15),F5$(1|
00002CE0: 35 29 00 06 35 43 1F 81 49 B2 30 A4 31 35 3A 87 |5)..5C..I.0.15:.|
00002CF0: 46 33 24 28 49 29 3A 46 35 24 28 49 29 B2 46 33 |F3$(I):F5$(I).F3|
00002D00: 24 28 49 29 3A 82 00 2B 35 44 1F 83 22 90 22 2C |$(I):..+5D..".",|
00002D10: 22 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C |".",".",".",".",|
00002D20: 22 1E 22 2C 22 1F 22 2C 22 9E 22 00 50 35 45 1F |".",".",".".P5E.|
00002D30: 83 22 81 22 2C 22 95 22 2C 22 96 22 2C 22 97 22 |.".",".",".","."|
00002D40: 2C 22 98 22 2C 22 99 22 2C 22 9A 22 2C 22 9B 22 |,".",".",".","."|
00002D50: 00 71 35 46 1F 54 43 24 B2 46 33 24 28 46 33 29 |.q5F.TC$.F3$(F3)|
00002D60: 3A 99 54 43 24 3A 56 43 24 B2 46 35 24 28 46 35 |:.TC$:VC$.F5$(F5|
00002D70: 29 00 97 35 47 1F 86 43 28 32 35 35 29 2C 54 28 |)..5G..C(255),T(|
00002D80: 31 32 30 29 2C 53 28 31 32 30 29 2C 53 43 28 37 |120),S(120),SC(7|
00002D90: 37 29 2C 42 28 34 29 00 B8 35 48 1F 83 31 2C 31 |7),B(4)..5H..1,1|
00002DA0: 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 2C 31 37 |7,20,24,19,30,17|
00002DB0: 2C 33 35 2C 31 36 2C 30 00 DA 35 49 1F 83 36 35 |,35,16,0..5I..65|
00002DC0: 2C 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 30 2C |,17,20,24,18,30,|
00002DD0: 31 37 2C 33 35 2C 31 36 2C 30 00 FC 35 4A 1F 83 |17,35,16,0..5J..|
00002DE0: 36 37 2C 33 39 2C 32 38 2C 35 33 2C 32 36 2C 36 |67,39,28,53,26,6|
00002DF0: 34 2C 32 34 2C 37 37 2C 32 32 2C 30 00 3A 36 4B |4,24,77,22,0.:6K|
00002E00: 1F 53 30 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.S0$."..........|
00002E10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002E20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 53 |.............":S|
00002E30: 34 24 B2 53 30 24 AA 53 30 24 00 7E 36 4C 1F 41 |4$.S0$.S0$.~6L.A|
00002E40: 24 B2 56 43 24 AA 22 93 12 2A 50 4F 4E 5A 4F 2A |$.VC$."..*PONZO*|
00002E50: 2A 2A 2A 20 44 49 53 4B 56 49 45 57 20 2A 2A 2A |*** DISKVIEW ***|
00002E60: 2A 28 22 AA 44 41 24 AA 22 29 2A 2A 2A 2A 22 AA |*(".DA$.")****".|
00002E70: 54 43 24 3A 81 49 B2 31 A4 C3 28 41 24 29 00 B0 |TC$:.I.1..(A$)..|
00002E80: 36 4D 1F 99 CA 28 41 24 2C 49 2C 31 29 3B 3A 81 |6M...(A$,I,1);:.|
00002E90: 54 B2 31 A4 35 3A 82 3A 82 3A 99 3A 99 53 30 24 |T.1.5:.:.:.:.S0$|
00002EA0: 3A 8B 43 50 24 B2 22 50 45 54 22 89 38 30 31 36 |:.CP$."PET".8016|
00002EB0: 00 C7 36 4E 1F 99 22 11 11 4E 4F 54 45 11 9D 9D |..6N.."..NOTE...|
00002EC0: 9D 9D B8 B8 B8 B8 22 00 F6 36 4F 1F 99 22 46 55 |......"..6O.."FU|
00002ED0: 4E 43 54 49 4F 4E 20 4B 45 59 53 20 43 48 41 4E |NCTION KEYS CHAN|
00002EE0: 47 45 20 43 4F 4C 4F 55 52 53 20 41 54 20 4D 45 |GE COLOURS AT ME|
00002EF0: 4E 55 2E 2E 2E 22 00 12 37 50 1F 85 22 11 11 44 |NU..."..7P.."..D|
00002F00: 45 56 49 43 45 20 23 20 20 20 38 9D 9D 9D 22 3B |EVICE # 8...";|
00002F10: 44 56 00 33 37 51 1F 52 24 28 30 29 B2 22 12 22 |DV.37Q.R$(0)."."|
00002F20: 3A 52 24 28 31 29 B2 22 92 22 3A 4E 4E B2 35 35 |:R$(1).".":NN.55|
00002F30: 33 34 31 00 4E 37 52 1F 48 58 24 B2 22 30 31 32 |341.N7R.HX$."012|
00002F40: 33 34 35 36 37 38 39 41 42 43 44 45 46 22 00 7A |3456789ABCDEF".z|
00002F50: 37 54 1F 53 44 24 B2 22 13 11 11 11 11 11 11 11 |7T.SD$."........|
00002F60: 11 11 11 22 3A 42 42 24 B2 53 44 24 AA 22 11 11 |...":BB$.SD$."..|
00002F70: 11 11 11 11 11 11 11 11 11 22 00 AC 37 59 1F 4D |........."..7Y.M|
00002F80: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00002F90: 11 11 11 11 11 11 11 92 22 3A 43 52 24 B2 C7 28 |........":CR$..(|
00002FA0: 31 33 29 3A 43 5A 24 B2 C7 28 30 29 00 B7 37 5A |13):CZ$..(0)..7Z|
00002FB0: 1F 8D 35 39 30 30 30 00 DE 37 63 1F 85 22 11 11 |..59000..7c.."..|
00002FC0: 20 44 52 49 56 45 20 23 20 20 20 30 9D 9D 9D 22 | DRIVE # 0..."|
00002FD0: 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 00 06 |;DR$:DR..(DR$)..|
00002FE0: 38 68 1F 8D 35 38 30 32 30 3A A0 31 35 3A 9F 31 |8h..58020:.15:.1|
00002FF0: 35 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A |5,DV,15,"I".DR$:|
00003000: 8D 36 33 39 30 30 00 27 38 72 1F 4B 24 B2 22 20 |.63900.'8r.K$." |
00003010: 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 C9 D3 A0 C5 | ...............|
00003020: CD D0 D4 D9 20 20 22 00 45 38 7C 1F 8C 3A 81 49 |.... ".E8|..:.I|
00003030: B2 30 A4 31 35 3A 87 58 24 3A 82 3A 57 57 B2 30 |.0.15:.X$:.:WW.0|
00003040: 3A 41 30 B2 31 00 60 38 7D 1F 9F 33 2C 44 56 2C |:A0.1.`8}..3,DV,|
00003050: 33 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 |3,"$".DR$:.63900|
00003060: 00 77 38 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 28 |.w8~..#3,A$:A..(|
00003070: 41 24 AA 43 5A 24 29 00 8A 38 7F 1F 87 44 54 3A |A$.CZ$)..8...DT:|
00003080: 8B 41 B2 44 54 A7 38 30 37 30 00 B0 38 80 1F 57 |.A.DT.8070..8..W|
00003090: 57 B2 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 81 49 |W.WW.1:.WW.3. .I|
000030A0: B2 31 A4 39 3A 87 44 54 3A 82 3A 89 38 30 36 33 |.1.9:.DT:.:.8063|
000030B0: 00 BD 38 81 1F A0 33 3A 8D 37 34 30 30 00 F4 38 |..8...3:.7400..8|
000030C0: 82 1F 4D 48 24 B2 22 44 52 49 56 45 20 22 AA 44 |..MH$."DRIVE ".D|
000030D0: 52 24 AA 22 12 21 21 55 4E 52 45 43 4F 47 4E 49 |R$.".!!UNRECOGNI|
000030E0: 5A 41 42 4C 45 20 44 49 53 4B 21 21 92 22 3A 8D |ZABLE DISK!!.":.|
000030F0: 38 32 33 30 00 0B 39 83 1F 54 54 B2 32 30 30 3A |8230..9..TT.200:|
00003100: 44 49 B2 37 36 3A 89 38 31 31 30 00 22 39 86 1F |DI.76:.8110."9..|
00003110: 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 4B 4B B2 31 |.DT.1.DT.65.KK.1|
00003120: 34 33 00 32 39 87 1F 8B 44 54 B2 36 37 A7 4B 4B |43.29...DT.67.KK|
00003130: B2 35 00 3C 39 88 1F 8D 38 32 30 30 00 4F 39 8B |.5.<9...8200.O9.|
00003140: 1F 87 41 31 3A 8B 41 31 B2 30 A7 38 30 39 30 00 |..A1:.A1.0.8090.|
00003150: 78 39 90 1F 87 42 31 3A 81 49 B2 41 30 A4 41 31 |x9...B1:.I.A0.A1|
00003160: 3A 53 43 28 49 29 B2 42 31 AA 31 3A 82 3A 41 30 |:SC(I).B1.1:.:A0|
00003170: B2 49 3A 89 38 30 37 35 00 9E 39 9A 1F 8B 44 54 |.I:.8075..9...DT|
00003180: B2 31 B0 44 54 B2 36 35 A7 44 31 B2 31 3A 54 54 |.1.DT.65.D1.1:TT|
00003190: B2 33 35 3A 53 32 B2 33 3A 44 49 B2 31 38 00 C1 |.35:S2.3:DI.18..|
000031A0: 39 9F 1F 8B 44 54 B2 36 37 A7 44 31 B2 32 35 37 |9...DT.67.D1.257|
000031B0: 3A 54 54 B2 37 37 3A 53 32 B2 34 3A 44 49 B2 33 |:TT.77:S2.4:DI.3|
000031C0: 39 00 D5 39 A0 1F 53 31 B2 53 32 AB 31 3A 53 33 |9..9..S1.S2.1:S3|
000031D0: B2 53 32 AA 31 00 E7 39 A4 1F A0 33 3A 8B 54 54 |.S2.1..9...3:.TT|
000031E0: B2 30 A7 38 30 36 35 00 10 3A AE 1F 81 49 B2 30 |.0.8065..:...I.0|
000031F0: A4 37 3A 50 28 49 29 B2 32 AE 49 3A 82 3A 81 49 |.7:P(I).2.I:.:.I|
00003200: B2 30 A4 33 3A 48 28 49 29 B2 31 36 AE 49 3A 82 |.0.3:H(I).16.I:.|
00003210: 00 30 3A B3 1F 48 24 28 30 29 B2 22 C4 C5 C3 C9 |.0:..H$(0)."....|
00003220: CD C1 CC 22 3A 48 24 28 31 29 B2 22 C8 C5 D8 22 |...":H$(1)."..."|
00003230: 00 48 3A B8 1F 58 24 28 30 29 B2 22 D1 22 3A 58 |.H:..X$(0).".":X|
00003240: 24 28 31 29 B2 22 D7 22 00 69 3A CC 1F 43 4C 24 |$(1).".".i:..CL$|
00003250: B2 22 22 3A 81 49 B2 31 A4 33 39 3A 43 4C 24 B2 |."":.I.1.39:CL$.|
00003260: 43 4C 24 AA 22 20 22 3A 82 00 97 3A D6 1F 53 31 |CL$." ":...:..S1|
00003270: 24 B2 22 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E |$."^....^....^..|
00003280: 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E |..^....^....^...|
00003290: 2E 5E 2E 2E 2E 2E 22 00 C1 3A E0 1F 53 32 24 B2 |.^...."..:..S2$.|
000032A0: 22 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 |". . . |
000032B0: DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 DD |. . . .|
000032C0: 22 00 EE 3A EA 1F 53 33 24 B2 22 30 20 20 20 20 |"..:..S3$."0 |
000032D0: 35 20 20 20 20 31 30 20 20 20 31 35 20 20 20 32 |5 10 15 2|
000032E0: 30 20 20 20 32 35 20 20 20 33 30 22 3A 8E 00 19 |0 25 30":...|
000032F0: 3B 08 20 81 49 B2 33 A4 4B 4B 3A A1 23 33 2C 41 |;. .I.3.KK:.#3,A|
00003300: 24 3A 82 3A 4D 48 24 B2 22 44 52 49 56 45 20 22 |$:.:MH$."DRIVE "|
00003310: AA 44 52 24 AA 22 12 20 22 00 4F 3B 12 20 81 49 |.DR$.". ".O;. .I|
00003320: B2 31 A4 31 36 3A A1 23 33 2C 41 24 3A 4D 48 24 |.1.16:.#3,A$:MH$|
00003330: B2 4D 48 24 AA 41 24 3A 82 3A A1 23 33 2C 41 24 |.MH$.A$:.:.#3,A$|
00003340: 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 22 3A 22 00 |,A$:MH$.MH$.":".|
00003350: 81 3B 1C 20 81 49 B2 31 A4 32 3A A1 23 33 2C 41 |.;. .I.1.2:.#3,A|
00003360: 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 3A 82 3A 4D |$:MH$.MH$.A$:.:M|
00003370: 48 24 B2 4D 48 24 AA 22 3A 22 3A A1 23 33 2C 41 |H$.MH$.":":.#3,A|
00003380: 24 00 AC 3B 1D 20 81 49 B2 31 A4 32 3A A1 23 33 |$..;. .I.1.2:.#3|
00003390: 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 3A 82 |,A$:MH$.MH$.A$:.|
000033A0: 3A 4D 48 24 B2 4D 48 24 AA 22 92 22 00 CD 3B 21 |:MH$.MH$."."..;!|
000033B0: 20 53 50 24 B2 22 22 3A 81 49 B2 31 A4 34 30 3A | SP$."":.I.1.40:|
000033C0: 53 50 24 B2 53 50 24 AA 22 20 22 3A 82 00 E1 3B |SP$.SP$." ":...;|
000033D0: 26 20 8D 32 36 31 3A 99 22 11 11 22 48 44 24 3A |& .261:.".."HD$:|
000033E0: 8E 00 F3 3B 28 23 8F 20 44 45 43 49 4D 41 4C 5F |...;(#. DECIMAL_|
000033F0: 48 45 58 00 05 3C 29 23 8F 22 A3 A3 A3 A3 A3 A3 |HEX..<)#."......|
00003400: A3 A3 A3 A3 A3 00 19 3C 2D 23 4D B2 C5 28 4D 24 |.......<-#M..(M$|
00003410: 29 3A 8B 4D B3 B1 30 A7 8E 00 35 3C 32 23 4D 24 |):.M..0...5<2#M$|
00003420: B2 CA 28 4D 24 2C 32 29 3A 4D B2 30 3A 4C 4D B2 |..(M$,2):M.0:LM.|
00003430: C3 28 4D 24 29 00 42 3C 3C 23 81 43 4E B2 31 A4 |.(M$).B<<#.CN.1.|
00003440: 4C 4D 00 6D 3C 46 23 4D 4D 24 B2 CA 28 4D 24 2C |LM.m<F#MM$..(M$,|
00003450: 43 4E 2C 31 29 3A 8D 39 31 30 30 3A 4D B2 4D AA |CN,1):.9100:M.M.|
00003460: 4D 4D AC 48 28 4C 4D AB 43 4E 29 3A 82 00 73 3C |MM.H(LM.CN):..s<|
00003470: 50 23 8E 00 87 3C 8C 23 8B 4D 4D 24 B2 22 30 22 |P#...<.#.MM$."0"|
00003480: A7 4D 4D B2 30 3A 8E 00 9E 3C 96 23 4D 4D B2 C5 |.MM.0:...<.#MM..|
00003490: 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 B1 |(MM$):.MM..0....|
000034A0: 3C A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 3A |<.#MM..(MM$).55:|
000034B0: 8E 00 C3 3C 1C 25 8F 20 48 45 58 5F 44 45 43 49 |...<.%. HEX_DECI|
000034C0: 4D 41 4C 00 D5 3C 1D 25 8F 22 A3 A3 A3 A3 A3 A3 |MAL..<.%."......|
000034D0: A3 A3 A3 A3 A3 00 E5 3C 20 25 43 39 B2 33 3A 4D |.......< %C9.3:M|
000034E0: 24 B2 22 24 22 00 07 3D 21 25 53 4D B2 4D 3A 81 |$."$"..=!%SM.M:.|
000034F0: 43 4E B2 43 39 A4 30 A9 AB 31 3A 43 4D 25 B2 53 |CN.C9.0..1:CM%.S|
00003500: 4D AD 48 28 43 4E 29 00 39 3D 26 25 4D 24 B2 4D |M.H(CN).9=&%M$.M|
00003510: 24 AA C7 28 43 4D 25 AA 34 38 AB 37 AC 28 43 4D |$..(CM%.48.7.(CM|
00003520: 25 B1 39 29 29 3A 53 4D B2 53 4D AB 48 28 43 4E |%.9)):SM.SM.H(CN|
00003530: 29 AC 43 4D 25 3A 82 3A 8E 00 49 3D F8 2A 8F 20 |).CM%:.:..I=.*. |
00003540: 44 49 52 45 43 54 4F 52 59 00 85 3D 02 2B 8D 35 |DIRECTORY..=.+.5|
00003550: 38 30 32 30 3A 85 22 93 11 11 54 4F 20 50 52 49 |8020:."...TO PRI|
00003560: 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 |NTER N...";IN$|
00003570: 3A 50 44 B2 33 3A 8B 20 49 4E 24 B2 22 59 22 A7 |:PD.3:. IN$."Y".|
00003580: 20 50 44 B2 34 00 CF 3D 0C 2B 50 54 B2 AB 28 50 | PD.4..=.+PT..(P|
00003590: 44 B2 34 29 3A 50 46 24 B2 22 22 3A 53 46 24 B2 |D.4):PF$."":SF$.|
000035A0: 43 52 24 3A 50 53 B2 30 3A 51 24 B2 C7 28 33 34 |CR$:PS.0:Q$..(34|
000035B0: 29 3A 52 31 24 B2 22 12 22 3A 52 32 24 B2 22 92 |):R1$.".":R2$.".|
000035C0: 22 3A 42 54 24 B2 22 22 3A 41 54 24 B2 22 22 00 |":BT$."":AT$."".|
000035D0: 09 3E 11 2B 41 46 24 B2 22 22 3A 43 38 30 B2 30 |.>.+AF$."":C80.0|
000035E0: 3A 4C 46 24 B2 C7 28 31 30 29 3A 53 35 24 B2 53 |:LF$..(10):S5$.S|
000035F0: 30 24 3A 55 39 B2 31 3A 9F 34 2C 50 44 3A 8B 50 |0$:U9.1:.4,PD:.P|
00003600: 54 B2 30 89 31 31 30 37 30 00 39 3E 12 2B 85 22 |T.0.11070.9>.+."|
00003610: 11 38 30 20 43 4F 4C 55 4D 4E 20 44 49 52 27 59 |.80 COLUMN DIR'Y|
00003620: 20 20 20 59 9D 9D 9D 22 3B 57 24 3A 8B 57 24 B2 | Y...";W$:.W$.|
00003630: 22 4E 22 89 31 31 30 33 30 00 77 3E 13 2B 81 49 |"N".11030.w>.+.I|
00003640: B2 31 A4 31 38 3A 42 54 24 B2 42 54 24 AA 22 20 |.1.18:BT$.BT$." |
00003650: 22 3A 82 3A 43 38 30 B2 31 3A 53 35 24 B2 53 34 |":.:C80.1:S5$.S4|
00003660: 24 3A 53 46 24 B2 22 22 3A 41 46 24 B2 22 2D 22 |$:SF$."":AF$."-"|
00003670: 3A 89 31 31 30 35 30 00 B5 3E 16 2B 53 35 24 B2 |:.11050..>.+S5$.|
00003680: C8 28 53 30 24 2C 33 38 29 3A 85 22 11 50 52 49 |.(S0$,38):.".PRI|
00003690: 4E 54 20 12 52 49 47 48 54 92 20 48 4F 57 20 4D |NT .RIGHT. HOW M|
000036A0: 41 4E 59 20 53 50 41 43 45 53 20 20 20 30 9D 9D |ANY SPACES 0..|
000036B0: 9D 22 3B 50 53 00 DB 3E 20 2B 8B 50 53 A7 81 49 |.";PS..> +.PS..I|
000036C0: B2 31 A4 50 53 3A 50 46 24 B2 50 46 24 AA 22 20 |.1.PS:PF$.PF$." |
000036D0: 22 3A 82 3A 42 54 24 B2 50 46 24 00 10 3F 2A 2B |":.:BT$.PF$..?*+|
000036E0: 85 22 11 44 4F 45 53 20 54 48 45 20 50 52 49 4E |.".DOES THE PRIN|
000036F0: 54 45 52 20 4E 45 45 44 20 41 20 4C 49 4E 45 20 |TER NEED A LINE |
00003700: 46 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 39 24 |FEED N...";U9$|
00003710: 00 3C 3F 34 2B 8B 55 39 24 B2 22 59 22 A7 41 54 |.<?4+.U9$."Y".AT|
00003720: 24 B2 41 54 24 AA 4C 46 24 3A 8B 43 38 30 B2 30 |$.AT$.LF$:.C80.0|
00003730: A7 53 46 24 B2 53 46 24 AA 4C 46 24 00 7A 3F 3E |.SF$.SF$.LF$.z?>|
00003740: 2B 99 22 93 22 3A 50 54 24 B2 22 20 2A 2A 2A 2A |+.".":PT$." ****|
00003750: 2A 2A 2A 22 AA CA 28 4D 48 24 2C 31 30 2C 32 34 |***"..(MH$,10,24|
00003760: 29 AA 22 20 2A 2A 2A 2A 2A 2A 2A 22 3A 8B 50 54 |)." *******":.PT|
00003770: B2 30 A7 50 54 24 B2 48 44 24 00 B8 3F 48 2B 98 |.0.PT$.HD$..?H+.|
00003780: 34 2C 42 54 24 50 54 24 41 54 24 3A 99 22 48 49 |4,BT$PT$AT$:."HI|
00003790: 54 20 41 20 4B 45 59 20 54 4F 20 53 54 4F 50 11 |T A KEY TO STOP.|
000037A0: 22 56 43 24 3A 41 35 B2 33 32 3A 41 36 B2 31 32 |"VC$:A5.32:A6.12|
000037B0: 37 3A 41 37 B2 31 36 30 00 EA 3F 52 2B A0 33 3A |7:A7.160..?R+.3:|
000037C0: 9F 33 2C 44 56 2C 33 2C 22 24 22 AA 44 52 24 3A |.3,DV,3,"$".DR$:|
000037D0: 4A 24 B2 22 20 22 3A 8B 20 50 54 20 A7 52 31 24 |J$." ":. PT .R1$|
000037E0: B2 22 22 3A 52 32 24 B2 22 22 00 27 40 5C 2B 98 |."":R2$."".'@\+.|
000037F0: 34 2C 42 54 24 52 31 24 22 20 42 4C 4B 53 20 20 |4,BT$R1$" BLKS |
00003800: 20 20 20 20 4E 41 4D 45 20 20 20 20 20 20 20 54 | NAME T|
00003810: 59 50 45 20 28 54 2C 53 29 20 53 54 41 52 54 22 |YPE (T,S) START"|
00003820: 54 43 24 3B 41 54 24 00 6C 40 66 2B 54 59 24 28 |TC$;AT$.l@f+TY$(|
00003830: 30 29 B2 22 44 45 4C 22 3A 54 59 24 28 31 29 B2 |0)."DEL":TY$(1).|
00003840: 22 53 45 51 22 3A 54 59 24 28 32 29 B2 22 50 52 |"SEQ":TY$(2)."PR|
00003850: 47 22 3A 54 59 24 28 33 29 B2 22 55 53 52 22 3A |G":TY$(3)."USR":|
00003860: 54 59 24 28 34 29 B2 22 52 45 4C 22 00 7F 40 6B |TY$(4)."REL"..@k|
00003870: 2B 8B 43 38 30 B2 30 A7 98 34 2C 42 54 24 3B 00 |+.C80.0..4,BT$;.|
00003880: 9F 40 70 2B 98 34 2C 53 35 24 41 54 24 3A 81 49 |.@p+.4,S5$AT$:.I|
00003890: B2 30 A4 32 35 33 3A A1 23 33 2C 41 24 3A 82 00 |.0.253:.#3,A$:..|
000038A0: E2 40 7A 2B 53 49 B2 30 3A 81 50 B2 31 A4 38 3A |.@z+SI.0:.P.1.8:|
000038B0: A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA 43 5A |.#3,A$:A..(A$.CZ|
000038C0: 24 29 AB 31 32 38 3A 54 59 B2 AB 41 AC 28 41 B1 |$).128:TY..A.(A.|
000038D0: 30 AF 41 B3 35 29 3A 41 33 24 B2 54 59 24 28 54 |0.A.5):A3$.TY$(T|
000038E0: 59 29 00 12 41 84 2B A1 23 33 2C 41 24 2C 42 24 |Y)..A.+.#3,A$,B$|
000038F0: 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 B2 C6 |:A..(A$.CZ$):B..|
00003900: 28 42 24 AA 43 5A 24 29 3A 8B 53 54 A7 31 31 33 |(B$.CZ$):.ST.113|
00003910: 30 30 00 49 41 8E 2B 41 34 24 B2 22 28 22 AA C9 |00.IA.+A4$."("..|
00003920: 28 C4 28 41 29 2C 32 29 AA 22 2C 22 AA C9 28 C4 |(.(A),2).","..(.|
00003930: 28 42 29 2C 32 29 AA 22 29 22 3A 41 30 24 B2 22 |(B),2).")":A0$."|
00003940: 22 3A 81 49 B2 31 A4 31 36 00 7E 41 98 2B A1 23 |":.I.1.16.~A.+.#|
00003950: 33 2C 42 24 3A 41 30 24 B2 41 30 24 AA 42 24 3A |3,B$:A0$.A0$.B$:|
00003960: 82 3A 41 32 24 B2 22 22 3A 81 49 B2 31 A4 31 36 |.:A2$."":.I.1.16|
00003970: 3A 42 24 B2 CA 28 41 30 24 2C 49 2C 31 29 00 A8 |:B$..(A0$,I,1)..|
00003980: 41 A2 2B 41 39 B2 C6 28 42 24 AA 43 5A 24 29 3A |A.+A9..(B$.CZ$):|
00003990: 8B 41 39 B2 41 37 A7 42 24 B2 22 22 3A 49 B2 31 |.A9.A7.B$."":I.1|
000039A0: 36 3A 89 31 31 31 39 30 00 C8 41 AC 2B 8B 41 39 |6:.11190..A.+.A9|
000039B0: B3 41 35 B0 28 41 39 B1 41 36 AF 41 39 B3 41 37 |.A5.(A9.A6.A9.A7|
000039C0: 29 A7 42 24 B2 22 3F 22 00 FD 41 B6 2B 41 32 24 |).B$."?"..A.+A2$|
000039D0: B2 41 32 24 AA 42 24 3A 82 3A 8D 31 31 33 32 30 |.A2$.B$:.:.11320|
000039E0: 3A 8B 54 59 B3 B1 32 A7 41 35 24 B2 22 20 20 20 |:.TY..2.A5$." |
000039F0: 20 22 AA 41 46 24 3A 89 31 31 32 32 30 00 3C 42 | ".AF$:.11220.<B|
00003A00: C0 2B 9F 32 2C 44 56 2C 32 2C 44 52 24 AA 22 3A |.+.2,DV,2,DR$.":|
00003A10: 22 AA 41 30 24 AA 22 2C 22 AA 41 33 24 AA 22 2C |".A0$.",".A3$.",|
00003A20: 52 22 3A A1 23 32 2C 41 4C 24 2C 41 48 24 3A 58 |R":.#2,AL$,AH$:X|
00003A30: 24 B2 41 4C 24 3A 8D 31 31 34 34 30 00 6F 42 CA |$.AL$:.11440.oB.|
00003A40: 2B 41 4C 24 B2 58 24 3A 58 24 B2 41 48 24 3A 8D |+AL$.X$:X$.AH$:.|
00003A50: 31 31 34 34 30 3A 41 48 24 B2 58 24 3A 41 35 24 |11440:AH$.X$:A5$|
00003A60: B2 41 48 24 AA 41 4C 24 AA 41 46 24 3A A0 32 00 |.AH$.AL$.AF$:.2.|
00003A70: 92 42 D4 2B A1 23 33 2C 41 24 2C 41 24 2C 41 24 |.B.+.#3,A$,A$,A$|
00003A80: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |,A$,A$,A$,A$,A$,|
00003A90: 41 24 00 D2 42 DE 2B A1 23 33 2C 41 24 2C 42 24 |A$..B.+.#3,A$,B$|
00003AA0: 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 B2 C6 |:A..(A$.CZ$):B..|
00003AB0: 28 42 24 AA 43 5A 24 29 3A 43 B2 41 AA 32 35 36 |(B$.CZ$):C.A.256|
00003AC0: AC 42 3A 4B 39 B2 53 54 3A 8B 43 B2 30 A7 50 B2 |.B:K9.ST:.C.0.P.|
00003AD0: 31 30 00 EA 42 E8 2B 41 31 24 B2 C9 28 22 20 20 |10..B.+A1$..(" |
00003AE0: 20 22 AA C4 28 43 29 2C 33 29 00 FD 42 F2 2B 8B | "..(C),3)..B.+.|
00003AF0: 50 B3 38 A7 A1 23 33 2C 41 24 2C 41 24 00 34 43 |P.8..#3,A$,A$.4C|
00003B00: FC 2B 8B 20 50 54 20 AF 20 54 59 B2 30 20 A7 20 |.+. PT . TY.0 . |
00003B10: 99 20 50 46 24 41 31 24 4A 24 41 32 24 41 33 24 |. PF$A1$J$A2$A3$|
00003B20: 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3A 89 31 |J$A4$J$A5$SF$:.1|
00003B30: 31 32 39 30 00 5E 43 06 2C 8B 20 43 20 A7 20 98 |1290.^C.,. C . .|
00003B40: 34 2C 50 46 24 41 31 24 4A 24 41 32 24 41 33 24 |4,PF$A1$J$A2$A3$|
00003B50: 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3B 00 73 |J$A4$J$A5$SF$;.s|
00003B60: 43 10 2C A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 50 |C.,.A$:.A$.."".P|
00003B70: B2 31 30 00 8F 43 15 2C 8B 43 38 30 A7 55 39 B2 |.10..C.,.C80.U9.|
00003B80: 31 AB 55 39 3A 8B 55 39 A7 98 34 2C 41 54 24 00 |1.U9:.U9..4,AT$.|
00003B90: A6 43 1A 2C 82 3A 8B 50 B3 31 30 AF 4B 39 B2 30 |.C.,.:.P.10.K9.0|
00003BA0: A7 31 31 31 33 30 00 C1 43 24 2C A0 33 3A 8D 31 |.11130..C$,.3:.1|
00003BB0: 31 33 33 30 3A 98 34 2C 50 46 24 53 35 24 53 46 |1330:.4,PF$S5$SF|
00003BC0: 24 00 D6 43 2E 2C A0 34 3A 8D 35 38 30 31 30 3A |$..C.,.4:.58010:|
00003BD0: 8D 33 30 30 3A 8E 00 FC 43 38 2C 41 32 24 B2 52 |.300:...C8,A2$.R|
00003BE0: 31 24 AA 51 24 AA C8 28 41 32 24 AA 51 24 AA 53 |1$.Q$..(A2$.Q$.S|
00003BF0: 50 24 2C 31 37 29 AA 52 32 24 3A 8E 00 0E 44 42 |P$,17).R2$:...DB|
00003C00: 2C 8F 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 26 |,. BLOCKS FREE.&|
00003C10: 44 4C 2C 9F 31 2C 44 56 2C 30 2C 22 24 22 AA 44 |DL,.1,DV,0,"$".D|
00003C20: 52 24 AA 22 3A 22 00 38 44 56 2C 8D 31 31 33 38 |R$.":".8DV,.1138|
00003C30: 30 3A 98 34 2C 4C 46 24 00 60 44 60 2C 4C B2 58 |0:.4,LF$.`D`,L.X|
00003C40: AA 59 AC 32 35 36 3A 98 34 2C 50 46 24 4C 3B 22 |.Y.256:.4,PF$L;"|
00003C50: 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 41 54 24 | BLOCKS FREE"AT$|
00003C60: 00 69 44 6A 2C A0 31 3A 8E 00 83 44 74 2C A1 23 |.iDj,.1:...Dt,.#|
00003C70: 31 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C 58 24 |1,X$,X$,X$,X$,X$|
00003C80: 2C 58 24 00 9C 44 7E 2C A1 23 31 2C 58 24 3A 8B |,X$..D~,.#1,X$:.|
00003C90: 58 24 B3 B1 22 22 89 31 31 33 39 30 00 B0 44 88 |X$.."".11390..D.|
00003CA0: 2C A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 59 24 |,.#1,X$,X$,X$,Y$|
00003CB0: 00 C7 44 92 2C 58 B2 C3 28 58 24 29 3A 8B 58 A7 |..D.,X..(X$):.X.|
00003CC0: 58 B2 C6 28 58 24 29 00 DE 44 9C 2C 59 B2 C3 28 |X..(X$)..D.,Y..(|
00003CD0: 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 00 E4 |Y$):.Y.Y..(Y$)..|
00003CE0: 44 A6 2C 8E 00 29 45 B0 2C 58 B2 C6 28 58 24 AA |D.,..)E.,X..(X$.|
00003CF0: 43 5A 24 29 3A 58 48 25 B2 58 AD 31 36 3A 58 4C |CZ$):XH%.X.16:XL|
00003D00: B2 58 AB 31 36 AC 58 48 25 3A 58 24 B2 CA 28 48 |.X.16.XH%:X$..(H|
00003D10: 58 24 2C 58 48 25 AA 31 2C 31 29 AA CA 28 48 58 |X$,XH%.1,1)..(HX|
00003D20: 24 2C 58 4C AA 31 2C 31 29 00 2F 45 BA 2C 8E 00 |$,XL.1,1)./E.,..|
00003D30: 47 45 E0 2E 8F 20 55 4E 53 43 52 41 54 43 48 20 |GE... UNSCRATCH |
00003D40: 52 4F 55 54 49 4E 45 00 5F 45 E1 2E 8F 22 B8 B8 |ROUTINE._E..."..|
00003D50: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00003D60: 6A 45 EA 2E 8D 35 38 30 32 30 00 A4 45 F4 2E 99 |jE...58020..E...|
00003D70: 22 93 11 11 54 48 45 20 53 43 52 41 54 43 48 45 |"...THE SCRATCHE|
00003D80: 44 20 46 49 4C 45 20 4E 41 4D 45 53 20 57 49 4C |D FILE NAMES WIL|
00003D90: 4C 22 3A 99 22 11 42 45 20 44 49 53 50 4C 41 59 |L":.".BE DISPLAY|
00003DA0: 45 44 2E 22 00 DF 45 08 2F 99 22 11 59 4F 55 20 |ED."..E./.".YOU |
00003DB0: 4D 41 59 20 44 45 43 49 44 45 20 57 48 49 43 48 |MAY DECIDE WHICH|
00003DC0: 20 46 49 4C 45 20 59 4F 55 22 3A 99 22 11 57 49 | FILE YOU":.".WI|
00003DD0: 53 48 20 54 4F 20 52 45 43 4F 56 45 52 2E 22 00 |SH TO RECOVER.".|
00003DE0: 07 46 1C 2F 99 22 11 11 12 52 45 54 55 52 4E 92 |.F./."...RETURN.|
00003DF0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 33 | TO CONTINUE":.3|
00003E00: 31 30 3A 99 22 93 22 00 1C 46 30 2F A0 33 3A A0 |10:."."..F0/.3:.|
00003E10: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 3D 46 3A |15:.15,DV,15.=F:|
00003E20: 2F 54 B2 44 49 3A 53 B2 31 3A 9F 33 2C 44 56 2C |/T.DI:S.1:.3,DV,|
00003E30: 33 2C 22 23 30 22 3A 8D 36 33 39 30 30 00 54 46 |3,"#0":.63900.TF|
00003E40: 3F 2F 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 |?/.15,"B-R";3;DR|
00003E50: 3B 54 3B 53 00 68 46 40 2F 99 22 93 4C 4F 4F 4B |;T;S.hF@/.".LOOK|
00003E60: 49 4E 47 20 41 54 3A 22 00 8E 46 41 2F 99 22 11 |ING AT:"..FA/.".|
00003E70: 11 54 52 41 43 4B 20 20 20 9D 9D 9D 22 54 22 20 |.TRACK ..."T" |
00003E80: 53 45 43 54 4F 52 20 20 20 9D 9D 9D 22 53 00 B0 |SECTOR ..."S..|
00003E90: 46 44 2F 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C |FD/.J.0.255:.15,|
00003EA0: 22 42 2D 50 22 3B 33 3B 4A 3A A1 23 33 2C 41 24 |"B-P";3;J:.#3,A$|
00003EB0: 00 C5 46 4E 2F 43 28 4A 29 B2 C6 28 41 24 AA 43 |..FN/C(J)..(A$.C|
00003EC0: 5A 24 29 3A 82 00 ED 46 58 2F 81 44 B2 32 A4 32 |Z$):...FX/.D.2.2|
00003ED0: 35 35 A9 33 32 3A 8B 43 28 44 29 B3 B1 30 B0 43 |55.32:.C(D)..0.C|
00003EE0: 28 44 AA 31 29 B2 30 A7 31 32 32 30 30 00 1E 47 |(D.1).0.12200..G|
00003EF0: 62 2F 99 53 44 24 43 4C 24 53 44 24 22 57 41 4E |b/.SD$CL$SD$"WAN|
00003F00: 54 20 54 4F 20 55 4E 53 43 52 41 54 43 48 20 12 |T TO UNSCRATCH .|
00003F10: 22 3B 3A 81 50 39 B2 31 A4 32 30 30 3A 82 00 49 |";:.P9.1.200:..I|
00003F20: 47 6C 2F A1 41 24 3A 81 4B B2 44 AA 33 A4 44 AA |Gl/.A$:.K.D.3.D.|
00003F30: 31 38 3A 99 C7 28 43 28 4B 29 29 3B 3A 82 3A 99 |18:..(C(K));:.:.|
00003F40: 22 92 3F 22 3A 8D 33 31 30 00 5C 47 76 2F 8B 49 |".?":.310.\Gv/.I|
00003F50: 4E 24 B2 22 59 22 A7 31 32 33 30 30 00 7D 47 A8 |N$."Y".12300.}G.|
00003F60: 2F 82 44 3A 54 B2 43 28 30 29 3A 53 B2 43 28 31 |/.D:T.C(0):S.C(1|
00003F70: 29 3A 8B 54 B2 44 49 A7 31 32 30 39 35 00 BA 47 |):.T.DI.12095..G|
00003F80: B2 2F 99 22 93 46 49 4E 49 53 48 45 44 20 4C 4F |./.".FINISHED LO|
00003F90: 4F 4B 49 4E 47 2E 2E 22 3A 99 22 11 11 12 52 45 |OKING..":."...RE|
00003FA0: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00003FB0: 45 2E 22 3A 8D 33 31 30 3A 8E 00 F8 47 0C 30 54 |E.":.310:...G.0T|
00003FC0: 30 B2 54 3A 53 30 B2 53 3A 54 B2 43 28 44 AA 31 |0.T:S0.S:T.C(D.1|
00003FD0: 29 3A 53 B2 43 28 44 AA 32 29 3A 42 30 B2 43 28 |):S.C(D.2):B0.C(|
00003FE0: 44 AA 32 38 29 AA 43 28 44 AA 32 39 29 AC 32 35 |D.28).C(D.29).25|
00003FF0: 36 3A 8D 35 38 30 31 30 00 26 48 0D 30 99 22 93 |6:.58010.&H.0.".|
00004000: 11 11 12 C4 49 52 45 43 54 4F 52 59 20 C2 4C 4F |....IRECTORY .LO|
00004010: 43 4B 20 C3 4F 55 4E 54 3D 22 42 30 3A 4E 39 B2 |CK .OUNT="B0:N9.|
00004020: 31 3A 99 53 30 24 00 60 48 0E 30 A0 33 3A A0 31 |1:.S0$.`H.0.3:.1|
00004030: 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C 44 |5:.15,DV,15:.3,D|
00004040: 56 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 3A A1 |V,3,"#":.63900:.|
00004050: 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 |#3,BN$:BN..(BN$)|
00004060: 00 7C 48 0F 30 54 28 4E 39 29 B2 54 3A 53 28 4E |.|H.0T(N9).T:S(N|
00004070: 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 00 93 48 11 |9).S:N9.N9.1..H.|
00004080: 30 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B |0.15,"B-R";3;DR;|
00004090: 54 3B 53 00 A5 48 12 30 98 31 35 2C 22 42 2D 50 |T;S..H.0.15,"B-P|
000040A0: 22 3B 33 3B 30 00 BE 48 13 30 A1 23 33 2C 5A 24 |";3;0..H.0.#3,Z$|
000040B0: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 00 DD |:.Z$."".Z$.CZ$..|
000040C0: 48 14 30 54 28 4E 39 29 B2 C6 28 5A 24 29 3A 8B |H.0T(N9)..(Z$):.|
000040D0: 54 28 4E 39 29 B2 30 A7 31 32 33 31 34 00 F6 48 |T(N9).0.12314..H|
000040E0: 15 30 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 |.0.#3,Z$:.Z$."".|
000040F0: 5A 24 B2 43 5A 24 00 06 49 16 30 53 28 4E 39 29 |Z$.CZ$..I.0S(N9)|
00004100: B2 C6 28 5A 24 29 00 24 49 17 30 54 24 B2 CA 28 |..(Z$).$I.0T$..(|
00004110: C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 53 |.(T),2):S$..(.(S|
00004120: 29 2C 32 29 00 38 49 18 30 99 22 28 22 54 24 22 |),2).8I.0."("T$"|
00004130: 2C 22 53 24 22 29 22 3B 00 5B 49 19 30 54 B2 54 |,"S$")";.[I.0T.T|
00004140: 28 4E 39 29 3A 53 B2 53 28 4E 39 29 3A 4E 39 B2 |(N9):S.S(N9):N9.|
00004150: 4E 39 AA 31 3A 89 31 32 33 30 35 00 69 49 1A 30 |N9.1:.12305.iI.0|
00004160: 4E 39 B2 4E 39 AB 31 3A 99 00 7F 49 1B 30 99 22 |N9.N9.1:...I.0."|
00004170: 11 12 22 4E 39 22 20 42 4C 4F 43 4B 53 11 22 00 |.."N9" BLOCKS.".|
00004180: B5 49 3E 30 8B 4E 39 B3 B1 42 30 A7 99 22 11 11 |.I>0.N9..B0.."..|
00004190: 2A 2A 12 49 4E 43 4F 52 52 45 43 54 20 42 4C 4F |**.INCORRECT BLO|
000041A0: 43 4B 20 43 4F 55 4E 54 92 2A 2A 11 11 22 3A 8D |CK COUNT.**..":.|
000041B0: 33 30 30 3A 8E 00 D0 49 48 30 99 22 11 CC 4F 4F |300:...IH0."..OO|
000041C0: 4B 53 20 47 4F 4F 44 20 53 4F 20 46 41 52 2E 22 |KS GOOD SO FAR."|
000041D0: 00 FB 49 52 30 99 22 11 D3 48 41 4C 4C 20 57 45 |..IR0."..HALL WE|
000041E0: 20 50 52 4F 43 45 45 44 3F 22 3A 8D 33 31 30 3A | PROCEED?":.310:|
000041F0: 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 27 4A 5C 30 |.IN$.."Y"...'J\0|
00004200: 99 22 93 11 11 D7 45 27 4C 4C 20 43 48 45 43 4B |."....E'LL CHECK|
00004210: 20 54 48 41 54 20 54 48 45 20 41 42 4F 56 45 20 | THAT THE ABOVE |
00004220: 42 4C 4F 43 4B 53 22 00 50 4A 66 30 99 22 11 41 |BLOCKS".PJf0.".A|
00004230: 52 45 20 C6 D2 C5 C5 20 42 59 20 4C 4F 4F 4B 49 |RE .... BY LOOKI|
00004240: 4E 47 20 41 54 20 54 48 45 20 C2 C1 CD 2E 11 22 |NG AT THE ....."|
00004250: 00 7F 4A 70 30 99 22 11 D4 48 45 20 54 52 41 43 |..Jp0."..HE TRAC|
00004260: 4B 2F 53 45 43 54 4F 52 53 20 46 4F 52 20 54 48 |K/SECTORS FOR TH|
00004270: 45 20 46 49 4C 45 20 57 49 4C 4C 20 42 45 22 00 |E FILE WILL BE".|
00004280: A9 4A 7A 30 99 22 11 44 49 53 50 4C 41 59 45 44 |.Jz0.".DISPLAYED|
00004290: 2E 20 C9 46 20 41 20 42 4C 4F 43 4B 20 49 53 20 |. .F A BLOCK IS |
000042A0: 4F 43 43 55 50 49 45 44 22 00 D3 4A 84 30 99 22 |OCCUPIED"..J.0."|
000042B0: 11 54 48 45 20 D5 CE D3 C3 D2 C1 D4 C3 C8 20 57 |.THE ......... W|
000042C0: 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 21 22 3A 8D |ILL NOT WORK!":.|
000042D0: 33 30 30 00 05 4B 85 30 A0 31 35 3A 9F 31 35 2C |300..K.0.15:.15,|
000042E0: 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 |DV,15,"I".DR$:.6|
000042F0: 33 39 30 30 3A 99 22 93 22 3A 8D 35 38 30 32 30 |3900:.".":.58020|
00004300: 3A 4B 31 B2 31 00 20 4B 86 30 9F 32 2C 44 56 2C |:K1.1. K.0.2,DV,|
00004310: 32 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 |2,"$".DR$:.63900|
00004320: 00 3A 4B 87 30 96 20 A5 42 28 49 29 B2 28 5A AF |.:K.0. .B(I).(Z.|
00004330: 50 28 49 29 29 AD 50 28 49 29 00 56 4B 88 30 46 |P(I)).P(I).VK.0F|
00004340: 46 B2 44 31 AA 28 54 28 4B 31 29 AB 31 29 AC 53 |F.D1.(T(K1).1).S|
00004350: 33 3A 50 50 B2 30 00 6C 4B 89 30 81 4B 32 B2 30 |3:PP.0.lK.0.K2.0|
00004360: A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 89 4B 98 |.FF:.#2,A$:...K.|
00004370: 30 54 B2 54 28 4B 31 29 3A 99 22 93 22 3A 8D 36 |0T.T(K1):.".":.6|
00004380: 34 30 30 3A 8D 36 35 38 30 00 AD 4B A2 30 99 53 |400:.6580..K.0.S|
00004390: 44 24 22 43 48 45 43 4B 20 54 48 41 54 20 54 48 |D$"CHECK THAT TH|
000043A0: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 22 00 C8 4B |E FOLLOWING "..K|
000043B0: A7 30 99 22 11 53 45 43 54 4F 52 53 20 41 52 45 |.0.".SECTORS ARE|
000043C0: 20 46 52 45 45 3D D7 22 00 FC 4B AC 30 81 4B 32 | FREE=."..K.0.K2|
000043D0: B2 31 A4 4E 39 3A 8B 54 28 4B 32 29 B2 54 A7 99 |.1.N9:.T(K2).T..|
000043E0: 52 24 28 50 50 29 CA 28 C4 28 53 28 4B 32 29 29 |R$(PP).(.(S(K2))|
000043F0: 2C 32 29 52 24 28 31 AB 50 50 29 3B 00 0C 4C B1 |,2)R$(1.PP);..L.|
00004400: 30 50 50 B2 31 AB 50 50 3A 82 3A 99 00 1D 4C B6 |0PP.1.PP:.:...L.|
00004410: 30 99 22 11 4F 4B 3F 22 3A 8D 33 31 30 00 48 4C |0.".OK?":.310.HL|
00004420: BB 30 8B 49 4E 24 B3 B1 22 59 22 A7 99 22 93 53 |.0.IN$.."Y"..".S|
00004430: 4F 52 52 59 2E 2E 22 3A 8D 35 38 30 31 30 3A 8D |ORRY..":.58010:.|
00004440: 33 30 30 3A A0 32 3A 8E 00 5C 4C C0 30 A0 32 3A |300:.2:..\L.0.2:|
00004450: 8B 4B 31 B1 4E 39 A7 A0 31 35 3A 8E 00 77 4C CA |.K1.N9..15:..wL.|
00004460: 30 4B 31 B2 4B 31 AA 31 3A 8B 54 28 4B 31 29 B2 |0K1.K1.1:.T(K1).|
00004470: 30 A7 31 32 36 30 30 00 8A 4C D4 30 8B 54 28 4B |0.12600..L.0.T(K|
00004480: 31 29 B2 54 A7 31 32 34 39 30 00 95 4C D9 30 89 |1).T.12490..L.0.|
00004490: 31 32 34 32 32 00 A5 4C 38 31 99 22 93 22 3A 8D |12422..L81.".":.|
000044A0: 35 38 30 31 30 00 D5 4C 42 31 99 22 CE 4F 57 20 |58010..LB1.".OW |
000044B0: 4D 4F 44 49 46 59 20 54 48 45 20 12 4D 41 47 49 |MODIFY THE .MAGI|
000044C0: 43 20 42 59 54 45 92 20 4F 4E 20 44 49 52 45 43 |C BYTE. ON DIREC|
000044D0: 54 4F 52 59 22 00 F0 4C 4C 31 99 22 11 D4 52 41 |TORY"..LL1."..RA|
000044E0: 43 4B 22 54 30 22 20 D3 45 43 54 4F 52 22 53 30 |CK"T0" .ECTOR"S0|
000044F0: 00 21 4D 56 31 99 22 11 D4 48 45 4E 20 D7 52 49 |.!MV1."..HEN .RI|
00004500: 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 42 41 43 |TE THE BLOCK BAC|
00004510: 4B 20 54 4F 20 28 22 54 30 22 2C 22 53 30 22 29 |K TO ("T0","S0")|
00004520: 22 00 46 4D 60 31 99 22 11 C6 49 4E 41 4C 4C 59 |".FM`1."..INALLY|
00004530: 20 12 D6 41 4C 49 44 41 54 45 92 20 54 48 45 20 | ..ALIDATE. THE |
00004540: 44 49 53 4B 21 22 00 51 4D 6A 31 8D 33 30 30 3A |DISK!".QMj1.300:|
00004550: 8E 00 67 4D 50 C3 8F 20 42 41 43 4B 55 50 20 42 |..gMP.. BACKUP B|
00004560: 59 20 42 4C 4F 43 4B 00 7D 4D 51 C3 8F 22 B8 B8 |Y BLOCK.}MQ.."..|
00004570: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 AE 4D |...............M|
00004580: 52 C3 97 35 33 32 38 30 2C 46 35 3A 99 22 93 22 |R..53280,F5:."."|
00004590: 3A 58 B2 33 30 3A 58 24 B2 22 C2 C1 C3 CB D5 D0 |:X.30:X$."......|
000045A0: 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 00 D0 |":Y$."":.54020..|
000045B0: 4D 53 C3 99 22 11 11 C6 CF D2 20 D4 D7 CF 20 C4 |MS.."..... ... .|
000045C0: D2 C9 D6 C5 D3 20 CF CE CC D9 22 3A 8D 33 30 30 |..... ....":.300|
000045D0: 00 FC 4D 55 C3 99 22 93 28 48 49 54 20 D2 C5 D4 |..MU..".(HIT ...|
000045E0: D5 D2 CE 20 54 4F 20 41 42 4F 52 54 29 22 3A 46 |... TO ABORT)":F|
000045F0: 46 24 B2 22 22 3A 8D 35 34 30 32 30 00 34 4E 5A |F$."":.54020.4NZ|
00004600: C3 85 22 11 11 11 12 46 52 4F 4D 92 20 44 52 49 |.."....FROM. DRI|
00004610: 56 45 20 20 20 A0 9D 9D 9D 22 3B 46 44 24 3A 46 |VE ....";FD$:F|
00004620: 44 B2 C5 28 46 44 24 29 3A 8B 20 46 44 24 B2 22 |D..(FD$):. FD$."|
00004630: A0 22 A7 8E 00 4D 4E 5F C3 85 22 11 44 45 56 49 |."...MN_..".DEVI|
00004640: 43 45 20 20 20 38 9D 9D 9D 22 3B 44 41 00 84 4E |CE 8...";DA..N|
00004650: 64 C3 85 22 11 11 12 54 4F 92 20 44 52 49 56 45 |d.."...TO. DRIVE|
00004660: 22 3B 54 44 24 3A 54 44 B2 C5 28 54 44 24 29 3A |";TD$:TD..(TD$):|
00004670: 85 22 11 44 45 56 49 43 45 20 20 20 38 9D 9D 9D |.".DEVICE 8...|
00004680: 22 3B 44 42 00 AC 4E 69 C3 A0 33 3A A0 35 3A A0 |";DB..Ni..3:.5:.|
00004690: 31 34 3A A0 31 35 3A 9F 31 35 2C 44 41 2C 31 35 |14:.15:.15,DA,15|
000046A0: 3A 98 31 35 2C 22 49 22 AA 46 44 24 00 E4 4E 6E |:.15,"I".FD$..Nn|
000046B0: C3 9F 33 2C 44 41 2C 33 2C 22 23 22 3A 8D 36 33 |..3,DA,3,"#":.63|
000046C0: 39 30 30 3A 9F 31 34 2C 44 42 2C 31 35 3A 50 B2 |900:.14,DB,15:P.|
000046D0: 31 3A 8B 44 42 B2 44 41 A7 42 42 B2 33 3A 89 35 |1:.DB.DA.BB.3:.5|
000046E0: 30 30 34 30 00 F9 4E 73 C3 42 42 B2 35 3A 9F 35 |0040..Ns.BB.5:.5|
000046F0: 2C 44 42 2C 35 2C 22 23 22 00 39 4F 78 C3 85 22 |,DB,5,"#".9Ox.."|
00004700: 11 11 53 54 41 52 54 20 41 54 20 54 52 41 43 4B |..START AT TRACK|
00004710: 20 20 20 31 9D 9D 9D 22 3B 54 38 3A 85 22 11 11 | 1...";T8:."..|
00004720: 45 4E 44 20 41 54 20 54 52 41 43 4B 20 20 20 33 |END AT TRACK 3|
00004730: 35 9D 9D 9D 9D 22 3B 54 39 00 7A 4F 7D C3 85 22 |5....";T9.zO}.."|
00004740: 11 11 45 52 52 4F 52 53 20 54 4F 20 50 52 49 4E |..ERRORS TO PRIN|
00004750: 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 56 56 24 3A |TER N...";VV$:|
00004760: 56 56 B2 30 3A 8B 20 56 56 24 B2 22 59 22 20 A7 |VV.0:. VV$."Y" .|
00004770: 20 56 56 B2 31 3A 9F 34 2C 34 00 8A 4F 82 C3 8B | VV.1:.4,4..O...|
00004780: 56 56 B2 30 A7 35 30 30 35 33 00 BF 4F 83 C3 85 |VV.0.50053..O...|
00004790: 22 11 44 4F 45 53 20 54 48 45 20 50 52 49 4E 54 |".DOES THE PRINT|
000047A0: 45 52 20 4E 45 45 44 20 41 20 4C 49 4E 45 20 46 |ER NEED A LINE F|
000047B0: 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 39 24 00 |EED N...";U9$.|
000047C0: D6 4F 84 C3 8B 55 39 24 B2 22 59 22 A7 46 46 24 |.O...U9$."Y".FF$|
000047D0: B2 C7 28 31 30 29 00 F7 4F 85 C3 99 22 93 2E 2E |..(10)..O..."...|
000047E0: 47 4F 20 46 4F 52 20 41 20 43 4F 46 46 45 45 2E |GO FOR A COFFEE.|
000047F0: 2E 22 3A 8D 33 30 30 00 11 50 87 C3 99 22 93 22 |.":.300..P..."."|
00004800: 3A 81 54 B2 54 38 A4 54 39 3A 81 53 B2 30 A4 33 |:.T.T8.T9:.S.0.3|
00004810: 31 00 28 50 9B C3 98 31 35 2C 22 42 2D 52 22 3B |1.(P...15,"B-R";|
00004820: 33 3B 46 44 3B 54 3B 53 00 3B 50 A0 C3 84 31 35 |3;FD;T;S.;P...15|
00004830: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 54 50 A5 C3 |,E,E$,E1,E2.TP..|
00004840: 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 35 |. E.66 . S.31:.5|
00004850: 30 31 34 30 00 81 50 AA C3 99 22 13 54 52 41 43 |0140..P...".TRAC|
00004860: 4B 20 20 20 20 20 9D 9D 9D 9D 9D 22 54 22 20 53 |K ....."T" S|
00004870: 45 43 54 4F 52 20 20 20 20 20 9D 9D 9D 9D 9D 22 |ECTOR ....."|
00004880: 53 00 92 50 AF C3 8B 20 45 B2 30 20 A7 35 30 31 |S..P... E.0 .501|
00004890: 31 30 00 C5 50 B4 C3 99 22 13 22 3A 81 49 B2 31 |10..P...".":.I.1|
000048A0: A4 50 3A 99 3A 82 3A 99 45 3B 45 24 3B 45 31 3B |.P:.:.:.E;E$;E1;|
000048B0: 45 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 3A |E2;":DRIVE ."FD:|
000048C0: 50 B2 50 AA 31 00 EF 50 B5 C3 8B 20 56 56 20 A7 |P.P.1..P... VV .|
000048D0: 20 98 34 2C 45 3B 45 24 3B 45 31 3B 45 32 3B 22 | .4,E;E$;E1;E2;"|
000048E0: 3A 44 52 49 56 45 20 12 22 46 44 3B 46 46 24 00 |:DRIVE ."FD;FF$.|
000048F0: FF 50 BE C3 8B 42 42 B2 33 A7 35 30 31 31 34 00 |.P...BB.3.50114.|
00004900: 2B 51 BF C3 81 55 39 B2 30 A4 32 35 35 3A 98 31 |+Q...U9.0.255:.1|
00004910: 35 2C 22 42 2D 50 22 2C 33 2C 55 39 3A 98 31 34 |5,"B-P",3,U9:.14|
00004920: 2C 22 42 2D 50 22 2C 35 2C 55 39 00 40 51 C0 C3 |,"B-P",5,U9.@Q..|
00004930: A1 23 33 2C 42 59 24 3A 98 35 2C 42 59 24 3A 82 |.#3,BY$:.5,BY$:.|
00004940: 00 58 51 C2 C3 98 31 34 2C 22 55 32 3A 22 3B 42 |.XQ...14,"U2:";B|
00004950: 42 3B 54 44 3B 54 3B 53 00 6B 51 C3 C3 84 31 34 |B;TD;T;S.kQ...14|
00004960: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 84 51 C8 C3 |,E,E$,E1,E2..Q..|
00004970: 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 35 |. E.66 . S.31:.5|
00004980: 30 31 34 30 00 95 51 CD C3 8B 20 45 B2 30 20 A7 |0140..Q... E.0 .|
00004990: 35 30 31 33 35 00 C8 51 D2 C3 99 22 13 22 3A 81 |50135..Q...".":.|
000049A0: 49 B2 31 A4 50 3A 99 3A 82 3A 99 45 3B 45 24 3B |I.1.P:.:.:.E;E$;|
000049B0: 45 31 3B 45 32 3B 22 3A 44 52 49 56 45 20 12 22 |E1;E2;":DRIVE ."|
000049C0: 54 44 3A 50 B2 50 AA 31 00 F2 51 D3 C3 8B 20 56 |TD:P.P.1..Q... V|
000049D0: 56 20 A7 20 98 34 2C 45 3B 45 24 3B 45 31 3B 45 |V . .4,E;E$;E1;E|
000049E0: 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 3B 46 |2;":DRIVE ."FD;F|
000049F0: 46 24 00 10 52 D7 C3 A1 49 4E 24 3A 8B 49 4E 24 |F$..R...IN$:.IN$|
00004A00: B3 B1 22 22 A7 53 B2 31 30 30 3A 54 B2 31 30 30 |.."".S.100:T.100|
00004A10: 00 31 52 DC C3 82 3A 82 3A 98 31 34 2C 22 49 22 |.1R...:.:.14,"I"|
00004A20: AA 54 44 24 3A 8B 20 56 56 20 A7 20 98 34 3A A0 |.TD$:. VV . .4:.|
00004A30: 34 00 43 52 E6 C3 A0 33 3A A0 35 3A A0 31 34 3A |4.CR...3:.5:.14:|
00004A40: A0 31 35 00 84 52 F0 C3 99 22 13 20 20 20 20 20 |.15..R...". |
00004A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004A70: 20 13 22 58 24 22 2E 2E 2E 12 46 49 4E 49 53 48 | ."X$"....FINISH|
00004A80: 45 44 92 22 00 99 52 FA C3 A1 41 24 3A 8B 41 24 |ED."..R...A$:.A$|
00004A90: B2 22 22 89 35 30 31 37 30 00 9F 52 04 C4 8E 00 |."".50170..R....|
00004AA0: B7 52 38 C7 8F 20 43 48 45 43 4B 20 44 49 53 4B |.R8.. CHECK DISK|
00004AB0: 20 42 4C 4F 43 4B 53 00 CF 52 39 C7 8F 22 B8 B8 | BLOCKS..R9.."..|
00004AC0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00004AD0: FF 52 3A C7 99 22 93 22 3A 58 B2 32 3A 58 24 B2 |.R:..".":X.2:X$.|
00004AE0: 22 C3 C8 C5 C3 CB 20 C2 C1 C4 20 C2 CC CF C3 CB |"..... ... .....|
00004AF0: D3 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 00 |.":Y$."":.54020.|
00004B00: 1E 53 42 C7 85 22 11 44 45 56 49 43 45 20 20 20 |.SB..".DEVICE |
00004B10: 38 9D 9D 9D 22 3B 44 41 3A 44 42 B2 44 41 00 53 |8...";DA:DB.DA.S|
00004B20: 53 4C C7 85 22 11 44 52 49 56 45 20 20 20 30 9D |SL..".DRIVE 0.|
00004B30: 9D 9D 22 3B 46 44 24 3A 54 44 24 B2 46 44 24 3A |..";FD$:TD$.FD$:|
00004B40: 46 44 B2 C5 28 46 44 24 29 3A 54 44 B2 C5 28 54 |FD..(FD$):TD..(T|
00004B50: 44 24 29 00 7D 53 56 C7 99 22 11 11 12 D7 45 27 |D$).}SV.."....E'|
00004B60: 4C 4C 20 52 45 41 44 2F 57 52 49 54 45 20 54 4F |LL READ/WRITE TO|
00004B70: 20 45 56 45 52 59 20 42 4C 4F 43 4B 22 00 A6 53 | EVERY BLOCK"..S|
00004B80: 60 C7 99 22 11 12 41 4E 44 20 49 4E 44 49 43 41 |`.."..AND INDICA|
00004B90: 54 45 20 41 4E 59 20 44 49 53 4B 20 45 52 52 4F |TE ANY DISK ERRO|
00004BA0: 52 53 2E 20 20 22 00 D9 53 6A C7 85 22 11 11 D3 |RS. "..Sj.."...|
00004BB0: 48 41 4C 4C 20 57 45 20 43 4F 4E 54 49 4E 55 45 |HALL WE CONTINUE|
00004BC0: 20 20 20 59 9D 9D 9D 22 3B 51 24 3A 8B 51 24 B2 | Y...";Q$:.Q$.|
00004BD0: 22 59 22 89 35 30 30 32 35 00 DF 53 74 C7 8E 00 |"Y".50025..St...|
00004BE0: 0E 54 F0 D2 99 22 13 11 11 22 3A 81 55 39 B2 31 |.T..."...":.U9.1|
00004BF0: A4 58 3A 99 22 1D 22 3B 3A 82 3A 4C 39 B2 C3 28 |.X:.".";:.:L9..(|
00004C00: 58 24 29 3A 8B 4C 39 B3 34 A7 4C 39 B2 34 00 3D |X$):.L9.4.L9.4.=|
00004C10: 54 FA D2 58 24 B2 C8 28 58 24 AA 22 20 20 20 20 |T..X$..(X$." |
00004C20: 22 2C 4C 39 29 3A 59 24 B2 C8 28 22 4D 45 4E 55 |",L9):Y$..("MENU|
00004C30: 20 20 20 20 20 20 20 20 22 2C 4C 39 29 00 72 54 | ",L9).rT|
00004C40: 04 D3 4C 39 B2 C3 28 58 24 29 3A 99 22 B0 22 3B |..L9..(X$):.".";|
00004C50: 3A 81 55 39 B2 31 A4 4C 39 3A 99 22 C0 22 3B 3A |:.U9.1.L9:.".";:|
00004C60: 82 3A 99 22 AE 11 9D DD 11 9D DD 11 9D BD 9D 9D |.:."............|
00004C70: 22 3B 00 A7 54 0E D3 81 55 39 B2 31 A4 4C 39 3A |";..T...U9.1.L9:|
00004C80: 99 22 C0 9D 9D 22 3B 3A 82 3A 99 22 AD 9D 91 DD |."...";:.:."....|
00004C90: 9D 91 DD 12 22 56 43 24 58 24 3B 3A 81 55 39 B2 |...."VC$X$;:.U9.|
00004CA0: 31 A4 C3 28 58 24 29 00 C0 54 18 D3 99 22 9D 22 |1..(X$)..T..."."|
00004CB0: 3B 3A 82 3A 99 22 11 12 22 59 24 54 43 24 3A 8E |;:.:.".."Y$TC$:.|
00004CC0: 00 D7 54 90 E2 8F 20 55 50 50 45 52 2F 4C 4F 57 |..T... UPPER/LOW|
00004CD0: 45 52 20 43 41 53 45 00 F0 54 9A E2 8B 43 50 24 |ER CASE..T...CP$|
00004CE0: B2 22 43 36 34 22 A7 99 C7 28 31 34 29 3B 3A 8E |."C64"...(14);:.|
00004CF0: 00 00 55 9B E2 97 35 39 34 36 38 2C 31 34 3A 8E |..U...59468,14:.|
00004D00: 00 1A 55 A4 E2 8B 43 50 24 B2 22 43 36 34 22 A7 |..U...CP$."C64".|
00004D10: 99 C7 28 31 34 32 29 3B 3A 8E 00 2A 55 A5 E2 97 |..(142);:..*U...|
00004D20: 35 39 34 36 38 2C 31 32 3A 8E 00 66 55 78 E6 53 |59468,12:..fUx.S|
00004D30: 44 B2 35 34 32 37 32 3A 81 49 B2 30 A4 32 34 3A |D.54272:.I.0.24:|
00004D40: 97 53 44 AA 49 2C 30 3A 82 3A 97 53 44 AA 36 2C |.SD.I,0:.:.SD.6,|
00004D50: 32 34 30 3A 97 53 44 AA 31 2C 35 30 3A 97 53 44 |240:.SD.1,50:.SD|
00004D60: AA 32 34 2C 31 35 00 8C 55 82 E6 50 41 B2 53 44 |.24,15..U..PA.SD|
00004D70: AA 34 3A 4F 30 B2 33 33 3A 4F 31 B2 30 3A 50 42 |.4:O0.33:O1.0:PB|
00004D80: B2 36 35 35 33 35 3A 50 43 B2 50 42 00 CB 55 8C |.65535:PC.PB..U.|
00004D90: E6 8B 43 50 24 B2 22 50 45 54 22 A7 50 42 B2 35 |..CP$."PET".PB.5|
00004DA0: 39 34 36 37 3A 50 43 B2 35 39 34 36 36 3A 97 50 |9467:PC.59466:.P|
00004DB0: 42 2C 31 36 3A 97 50 43 2C 31 35 3A 50 41 B2 35 |B,16:.PC,15:PA.5|
00004DC0: 39 34 36 34 3A 4F 30 B2 31 30 30 00 D8 55 DB E6 |9464:O0.100..U..|
00004DD0: 8D 35 39 31 30 30 3A 8E 00 0B 56 DC E6 97 50 42 |.59100:...V...PB|
00004DE0: 2C 31 36 3A 97 50 43 2C 31 35 3A 97 50 41 2C 4F |,16:.PC,15:.PA,O|
00004DF0: 30 3A 81 50 39 B2 31 A4 31 30 3A 82 3A 97 50 41 |0:.P9.1.10:.:.PA|
00004E00: 2C 4F 31 3A 97 50 42 2C 30 3A 8E 00 17 56 48 EE |,O1:.PB,0:...VH.|
00004E10: 8F 20 49 4E 50 55 54 00 3D 56 49 EE 99 22 43 55 |. INPUT.=VI.."CU|
00004E20: 52 52 45 4E 54 20 43 28 22 49 22 29 3D 20 20 20 |RRENT C("I")= |
00004E30: 20 20 A0 9D 9D 9D 9D 9D 22 43 28 49 29 00 68 56 | ......"C(I).hV|
00004E40: 4B EE 85 22 11 49 4E 50 55 54 20 41 20 53 54 52 |K..".INPUT A STR|
00004E50: 49 4E 47 20 20 20 59 9D 9D 9D 22 3B 41 24 3A 8B |ING Y...";A$:.|
00004E60: 41 24 B2 22 4E 22 A7 8E 00 B2 56 4C EE 99 22 11 |A$."N"....VL..".|
00004E70: C5 CE D4 C5 D2 20 D3 D4 D2 C9 CE C7 3A 20 D4 C5 |..... ......: ..|
00004E80: D2 CD C9 CE C1 D4 C5 20 D7 C9 D4 C8 20 12 D2 C5 |....... .... ...|
00004E90: D4 D5 D2 CE 92 3A 11 22 3A 42 43 24 B2 22 42 59 |.....:.":BC$."BY|
00004EA0: 54 45 A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 A0 |TE.COUNT........|
00004EB0: A0 22 00 D4 56 4D EE 42 43 24 B2 22 42 59 54 45 |."..VM.BC$."BYTE|
00004EC0: A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.COUNT..........|
00004ED0: A0 A0 A0 22 00 0F 57 52 EE 49 4E 24 B2 22 22 3A |..."..WR.IN$."":|
00004EE0: 4E B2 C3 28 49 4E 24 29 3A 81 4B 39 B2 31 A4 32 |N..(IN$):.K9.1.2|
00004EF0: 33 3A 97 43 52 54 AA 4B 39 AB 31 2C C6 28 CA 28 |3:.CRT.K9.1,.(.(|
00004F00: 42 43 24 2C 4B 39 2C 31 29 29 AB 36 34 3A 82 00 |BC$,K9,1)).64:..|
00004F10: 38 57 57 EE 4B 39 B2 31 32 3A 4E 24 B2 CA 28 C4 |8WW.K9.12:N$..(.|
00004F20: 28 4E 29 2C 32 29 3A 4C 4E B2 C3 28 4E 24 29 3A |(N),2):LN..(N$):|
00004F30: 81 4B 38 B2 31 A4 4C 4E 00 65 57 58 EE 97 43 52 |.K8.1.LN.eWX..CR|
00004F40: 54 AA 4B 38 AA 4B 39 2C C6 28 CA 28 4E 24 2C 4B |T.K8.K9,.(.(N$,K|
00004F50: 38 2C 31 29 29 3A 82 3A 97 43 52 54 AA 4B 38 AA |8,1)):.:.CRT.K8.|
00004F60: 4B 39 2C 33 32 00 81 57 5C EE 99 22 AF 9D 22 3B |K9,32..W\.."..";|
00004F70: 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 36 31 30 31 |:.A$:.A$."".6101|
00004F80: 35 00 B6 57 66 EE 41 B2 C6 28 41 24 29 3A 8B 41 |5..Wf.A..(A$):.A|
00004F90: B2 31 37 B0 41 B2 31 34 35 B0 41 B2 31 34 38 B0 |.17.A.145.A.148.|
00004FA0: 41 B2 31 39 B0 41 B2 31 34 37 B0 41 B2 31 35 37 |A.19.A.147.A.157|
00004FB0: A7 36 31 30 31 35 00 CD 57 70 EE 99 22 20 9D 22 |.61015..Wp.." ."|
00004FC0: 3B 3A 8B 41 B2 31 33 A7 36 31 30 38 30 00 E4 57 |;:.A.13.61080..W|
00004FD0: 7A EE 8B 49 4E 24 B2 22 22 AF 41 B2 32 30 A7 36 |z..IN$."".A.20.6|
00004FE0: 31 30 31 35 00 10 58 84 EE 8B 41 B2 32 30 A7 4E |1015..X...A.20.N|
00004FF0: B2 4E AB 31 3A 99 22 9D 20 9D 22 3B 3A 49 4E 24 |.N.1:.". .";:IN$|
00005000: B2 C8 28 49 4E 24 2C 4E 29 3A 89 36 31 30 31 35 |..(IN$,N):.61015|
00005010: 00 40 58 8E EE 99 22 20 9D 22 41 24 3B 3A 49 4E |.@X..." ."A$;:IN|
00005020: 24 B2 49 4E 24 AA 41 24 3A 4E B2 C3 28 49 4E 24 |$.IN$.A$:N..(IN$|
00005030: 29 3A 8B 4E B3 32 35 35 AB 49 A7 36 31 30 31 35 |):.N.255.I.61015|
00005040: 00 69 58 98 EE 81 55 39 B2 31 A4 4E 3A 43 28 49 |.iX...U9.1.N:C(I|
00005050: AA 55 39 AB 31 29 B2 C6 28 CA 28 49 4E 24 2C 55 |.U9.1)..(.(IN$,U|
00005060: 39 2C 31 29 29 3A 82 3A 8E 00 7C 58 9C F9 84 31 |9,1)):.:..|X...1|
00005070: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 87 58 9D |5,E,E$,E1,E2..X.|
00005080: F9 8B 45 B2 30 A7 8E 00 AF 58 9E F9 99 3A 99 22 |..E.0....X...:."|
00005090: 11 2A 2A 12 44 49 53 4B 20 45 52 52 4F 52 92 2A |.**.DISK ERROR.*|
000050A0: 2A 11 22 3A 99 45 3B 45 24 3B 45 31 3B 45 32 00 |*.":.E;E$;E1;E2.|
000050B0: C5 58 9F F9 81 41 39 B2 31 A4 31 30 3A 8D 35 39 |.X...A9.1.10:.59|
000050C0: 31 30 30 3A 82 00 E4 58 A0 F9 99 22 11 11 12 52 |100:...X..."...R|
000050D0: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
000050E0: 55 45 2E 22 00 06 59 A1 F9 99 22 11 11 41 4E 59 |UE."..Y..."..ANY|
000050F0: 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 12 51 | OTHER KEY TO .Q|
00005100: 55 49 54 92 2E 22 00 1A 59 A2 F9 8D 33 31 30 3A |UIT.."..Y...310:|
00005110: 8B 49 4E 24 B2 43 52 24 A7 8E 00 24 59 A3 F9 89 |.IN$.CR$...$Y...|
00005120: 37 39 30 30 00 00 00 |7900... |
..".... DISKVIEW - FOR PET AND C64.1....
".........L....B(0).47..56,7.16:.55,0:.:
. SOME RAM FOR SAVING BLOCKS......B(0)..
47..53,7.16:.52,0:......F1.07:F3.00:F5.0
6:. COLOURS.....:.E...DA$."MAR 31/84".K.
..:.....CRT.1024:CP$."C64":. B(0)..47 .
CRT.32768:CP$."PET".....BS.CRT.45:.8000.
....:.B...M$(1)."LOAD BLOCK INTO COMPUTE
R".G. .M$(2)."SEE ASCII OF ABOVE BLOCK".
..!.M$(3)."MODIFY ABOVE BLOCK"...".M$(4)
."STORE ABOVE BLOCK IN RAM".R.#.M$(5)."W
RITE BLOCK IN RAM TO DISK"...$.M$(6)."BL
OCK AVAILABILITY MAP"...%.M$(7)."DISK CO
MMANDS".'.&.M$(8)."TRACE BLOCKS.C.'.M$(9
)."UNSCRATCH A FILE.O.D.. MENU.[.E.." .
....I.H..53280,F1...I. 15:.15,DV,15:.580
10:.".":X$."MAIN":X.30:.54000...N.."."HD
$.F.X..I.1.9:.".."I".:"M$(I):.......S0$:
.VC$"HIT .RETURN. TO QUIT."TC$......310:
.IN$.CR$.7900......IN$.".".110.'. ..IN$.
".".110.8....IN$.".".110.N...."..":.I.1.
IN:."..";:.:."....."M$(IN):.T9.1.300:...
.H..IN.1.50000,1000,2000,3000,4000,5000,
6000,7000,7100,7500...R..104.....F1..(F1
.1).(F1.15):.53281,F1:.53280,F1:......F3
..(F3.1).(F3.15):TC$.F3$(F3):.TC$;.E...H
D$.S0$.CR$.VC$.MH$."DEVICE ".J(D(DV),2).
TC$.CR$.S0$:..H...F5..(F5.1).(F5.15):VC$
.F5$(F5).Q....261.|.,.. GET...-.." ....
..1..VC$"..RETURN. TO CONT"TC$...6..IN$:
.IN$.."".310.Q.@..IN$:.IN$."".320...J..I
N$."."..250...K..IN$."."..260...L..IN$."
."..270...T.IN.E(IN$):.59100:..=.... LOA
D BLOCK INTO COMPUTER.\...."............
.............E...Y9.0..... 3: 15:.15,DV,
15:.3,DV,3,"#":.#3,BN$:BN.F(BN$):DC.3...
..BN$.J(BN$,2).F....15,"B-P";DC;1:."."..
....K.0.10:.3,K$;:......."........."S0$.
.....Y9..".TRACK,SECTOR. "T","S:.1060.6.
...".TRACK,SECTOR. ....";T,S.N.$..15,"
B-R";DC;DR;T;S.A....15,"B-P";DC;0.Z.8..#
3,Z$:.Z$."".Z$.CZ$...B.C(0).F(Z$):.1200.
C.`..VC$"..RETURN TO TERMINATE"TC$:.D(C(
0))D(C(1));...J.J.2:.I.2.255:.15,"B-P";D
C;I...T..#3,B$:.B$."".B$.CZ$...~.C(I).F(
B$).#....BS.J,C(I):.NN.J,F3.9....A$:.A$.
.""..1195.E...J.J.1:..Z... 3: 15:.BB$:.3
00.M...Y9.0:.C(0).0........".....LOAD NE
XT TRACK/SECTOR N...";IN$:.IN$.."Y"...
D...T.C(0):S.C(1):Y9.1:.1010......VC$"..
..............BLOCK HAS NOT BEEN COMPLET
ELY LOADED"TC$.@...."..WANT TO CONTINUE
LOADING N...";N$:.N$."N".I.256.....".
..............
"TC$......"
":....... C(0)/C(1).J....
"...............SD$:.15,"B-P";3;1...D..#
3,B$:.B$."".B$.CZ$...N.C(1).F(B$).*.X..C
(0).0..SD$:."LAST TRACK":..Z....SD$:."NE
XT TRACK="C(0):."NEXT SECTOR="C(1).P...N
T.C(0):NS.C(1):....P.. PRINT ASCII...Q..
"..............R.IJ.0:II.255:.".":HX.0..
.S.."....0.:DECIMAL":."...1.:HEX":."..
0...";IN...T..".":. IN . HX.1.9.U..VC$"
..RETURN.=QUIT:.SPACE.=PAUSE: "H$(HX);T
C$:.S0$:EE$.". .".\.V.Z1.32:Z2.223:Z3.12
7:Z4.160:P.0...W.Y0$.".".TC$.CL$:Y1$.VC$
."..":Y2$.".:->".TC$:C9.1.A.Z..I.0.II.8:
Y$.Y1$.I(" ".D(I),3).Y2$:E0$.EE$......Y
0$:.Y$;:.J.0.7:H.I.J:C5.C(H):C6.C5......
(C5.Z1.C5.Z2).(C5.Z3.C5.Z4).C6.32.#...E0
$.E0$.G(C6).]...E$.I(" ".D(C5),3):. HX
. M$."":M.C5:.9505:E$." ".M$.Z....R$(P)
E$R$(1.P);:P.1.P:.......A$:.A$."".2030..
....A$.G(13).II.I:I.255......A$.G(32)..3
10:.2021......E0$:.:.CL$:.CL$:.CL$:.CL$.
....."...."S0$:.VC$"CURRENT TRACK,SECTOR
="T",";S;TC$.5...."NEXT TRACK,SECTOR="NT
","NS.D....IJ.0..300.J.....].... MODIFY
BLOCK.P...."..................".THE ASCI
I CODE FOR EACH BLOCK-BYTE".J....".WILL
BE DISPLAYED..I.E. C(0)...C(255)."......
".YOU MAY REDEFINE ANY C(I). THE MODIFIE
D".$....".BLOCK WILL BE WRITTEN TO THE D
ISK".N....".INTO THE TRACK,SECTOR YOU SE
LECT.".|....".TO ENTER A STRING, SELECT
THE I WHICH"......".BEGINS THE STRING AN
D WHEN ASKED".J....".FOR THE VALUE OF I,
ENTER I*"... ..".EXAMPLE: TO MODIFY BYT
ES STARTING AT"...!..". I=12, ENTER 12*"
.?.&.."..BE SURE A COMPLETE BLOCK WAS LO
ADED!!".[.0..300:.".":II.255.8:IJ.1.J.:.
.".":.2005...D..VC$">>>.RETURN TO QUIT.<
<<"TC$:.I$.O.N..".WHICH I DO YOU WISH TO
MODIFY. ......";I$:I.E(I$)...X..I$.
".".3173...]..I(I$,1)."*"..61000:.3173.B
.B.."CURRENT C("I")= ....."C(I)" NE
W VALUE= .....";:.C(I).Q.C..I.II.II.
I.[.D..3150...E..".":.2005:." >>>
.OK.? ";...F..310:.IN$."N"..:.3150...G.
."..RETURN TO MENU. N...";IN$.N.H..IN$
."Y".....I..VC$".CURRENT TRACK,SECTOR="T
","S;TC$...J.."NEXT TRACK,SECTOR="NT","N
S.F.L.."...DESTINATION TRACK,SECTOR. "
;T","S.O.M.."..DESTINATION TRACK,SECTOR.
..";T,S...V.."....DESTINATION DRIVE. "
;DR.W.W.."..DESTINATION DRIVE...";DR$:DR
.E(DR$):.DR$.."0".DR$.."1".3190..... 3:
15:.15,DV,15......3,DV,3,"#":.63900.8...
.#3,BN$:BN.F(BN$):."."SD$"....FILLING BU
FFER#"BN.E....I.0.255.Q....15,"B-P",3,I:
.3,G(C(I));:.". ..."I:....P..15,"U2:";
3;DR;T;S...Z..15,"I".DR$:.63900: 3: 15:.
".":..E. .. STORE C(I) IN RAM......"....
..................IJ.0:II.255:.".":HX.0.
.....".";:.2005......".STARTING VALUE OF
I. ....";I1.[....".STARTING MEMORY LO
C'N.($=HEX) $7000"...C.."..STARTING MEM
ORY LOC'N.($=HEX)";M$:.9000...H..K1.I1.2
55:.M.I1.K1,C(K1):....R.M.M.I1.256:.".NE
XT. MEM'Y LOC'N="M;:.9500:."."M$......30
0:.".";:....... WRITE RAM TO DISK.!...."
..................X...."...MEM'Y LOC'N O
F BLOCK.($=HEX) ....";M$:.9000.Z....".
.START WITH I.= ....";I1......"..END W
ITH I.= ....";I2...D..I.I1.I2:C(I).B(M
.I):....N.."....DESTINATION TRACK,SECTOR
. ....";T,S.&.X.."....DESTINATION DRIV
E. ....";DR$:DR.E(DR$):.DR$.".".5080.G
....3,DV,3,"#":.#3,BN$:BN.F(BN$):."."SD$
"....FILLING BUFFER#"BN......I.I1.I2:.".
..."I. ....15,"B-P";3;I:.3,G(C(I));:.
......15,"U2:";3;DR;T;S......15,"I".DR$:
.63900: 3: 15:.".":....P.. BAM...Z.."...
.....53280,F5:.".":X.30:X$."BAM":.54000
.2.... .B(I).(Z.P(I)).P(I).A... 15:.5801
0.[...."....1.:DISPLAY BAM".R...."..2.:C
HANGE BAM"......VC$"....RETURN. TO EXIT"
TC$......310:.".":.IN$.CR$.6095.H....580
20:.IN.6100,6280.R.J..6000...O. 2: 3:.15
,DV,15,"I".DR$:.58010:.63900:....T.. DIS
PLAY BAM."...."............G...."..WHICH
TRACKS":.".............N...."..FIRST,LA
ST TRACK ....";TS,TE......"..RETURN..
TO STOP":.S0$......15,DV,15,"I".DR$:.639
00.E....2,DV,2,"$".DR$:.63900.Y.$.FF.D1.
(TS.1).S3......K.0.FF:.#2,A$:....8..T.TS
.TE:.T.51..#2,A$,A$,A$,A$...B..6400.2.L.
.A$:.A$.."".T.TE.1.L.V..: 2: 15:.6870:.3
10:..].`.. CHANGE BAM.N.J.."............
.T..".MORE CHANGES Y...";I$...~..I$.."
Y"...Y....DT.67..".SORRY..CAN'T CHANGE B
AM FOR THIS DISK.":.310:.......".TRACK
V...";T.. .. 15:.15,DV,15.. .. 2:.2,DV,
2,"#":.63900.4 ...15,"U1:";2;DR;DI;0.H .
..15,"B-P";2;T.4.X ...VC$".HIT .RETURN.
TO QUIT."TC$:.6400:.6580.. D..".........
.CHANGE WHICH SECTOR ..V...";S$:.S$.
"V".6260.W N.S.E(S$):.S.0.S..SC(T).6260.
. X. 2: 15:.SD$..!...6620:.6480:.6580:.:
.MD$".OK?.";:.310:.CL$.)!...IN$."Y"..673
0.8!...MD$CL$SD$.H!...6480:.6340.[!...K.
0.S2:.#2,A$.M!...A$."".A$.CZ$.~!..B(K).F
(A$):...!P.. PRINT TRACK..!Z..".........
....!D..K.1.S1:Z.B(K)..!N..I.0.7.W!X.X..
B(I):.X$(X);:.I..!...K..!..Z.B(K):.I.0.S
C(T).SC(TT).."..X..B(I):.X$(X);:.I:..9"
..".".22)"TRACK."T"..FREE="B(0):..K"...H
(S1$,SC(T)).R"...H(S2$,SC(T)).23)"# SECT
ORS="SC(T).."H..SC(T).21..H(S3$,SC(T).1)
:.6610.."M..H(S3$,SC(T)).."R..S0$:..G"..
. CHANGE SECTOR.."..."..............."..
.S.8.Z.B(1):SS.S:.6670..#...S.16.Z.B(2):
SS.S.8:.6670.'#..Z.B(3):SS.S.16.D#..NZ.(
.Z.P(SS)).(Z..P(SS)).`#..B(0).B(0).(NZ.Z
).(NZ.Z).W#"..S.8.B(1).NZ:.6720..#,..S.1
6.B(2).NZ:.6720..#6.B(3).NZ..#@....#J..1
5,DV,15..#T..MD$VC$".ARE YOU SURE?."TC$;
:.310:.IN$;:.IN$.."Y"....$^.."...CHANGIN
G BAM..";..$H..3,DV,3,"#":.63900..$R..#3
,BN$:BN.F(BN$).Z$...I.0.S2:.15,"B-P";3;I
.T.4:.3,G(B(I));:..R$...15,"U2:";3;DR;DI
;0..$B..15,"I".DR$:.63900: 3: 15:..J$V..
"..........................RETURN. TO CO
NTINUE";:...$...VC$"....RETURN. TO EXIT"
TC$..$...310:...%X.. DISK COMMANDS..%Y..
"..............V%Z..53280,F5:.58010:."."
:X$."DISK":X.30:.54000:."."HD$..%[. 15:D
$(1)."INITIALIZE":D$(2)."VALIDATE":D$(3)
."FORMAT DISK"..%\.D$(4)."CHANGE DISK".L
%].D$(5)."DISPLAY DIRECTORY"..%^.D$(6)."
CHANGE DEVICE#".%&_.D$(7)."CHECK FOR DIS
K ERROR":D$(8)."CHECK FOR BAD BLOCKS".I&
`.D$(9)."BACKUP (BLOCK-BY-BLOCK)"..&B..I
.1.9:.".."I".:"D$(I):.:.S0$:.VC$"..RETUR
N. TO EXIT"TC$..&C..310:.IN$.CR$....&D..
"..".T&E..I.1.IN:."..";:.:."....."D$(IN)
:.T9.1.300:...'G.. IN .7020,7030,7035,70
40,11000,7300,7350,51000,50000..'H..7000
.7'L..15,DV,15,"I".DR$:.63900:..V'V..15,
DV,15,"V".DR$:.63900:...'{.."...NAME FOR
DISK";NM$:."..ID FOR DISK";ID$:."..DRIV
E";DA$.Y'|.CC$."N".DA$.":".NM$.",".ID$:.
"..OPEN 15,"DV",15,"G(34)CC$G(34)..(~.."
..ARE YOU SURE N...";VV$ :. VV$.."Y".
..$(..15,DV,15,CC$:.63900:..U(..DR.E(DR
$):."...DRIVE "1.DR:."........";DR$..(
..MH$."DRIVE ".DR$.". *****************
****."..(..MH$."DRIVE ".DR$.". ********
*************.".H(...261:.8040:...(... T
RACE BLOCKS..(...".............2)..."...
1.:DISPLAY ALL LINKS ON A TRACK.":."..2.
:FOLLOW LINKS....".A)..X.30:X$."TRACE":.
54000:.6900:. IN$.CR$ . ...)..."...TO PR
INTER N...";II$:PD.3:. II$."Y".PD.4..)
A..4,PD:. IN.2 .7112..)B.."..TRACK ...
.";T8: 3: 15:.15,DV,15:.3,DV,3,"#"..*C..
4,".TRACK"T8:.4,"........".2*D..S8.0.31:
.15,"B-R";3;DR;T8;S8:.15,E:.E.7110.M*E..
15,"B-P";3;1:.#3,A$:.4,"SECTOR"S8" LINKS
TO"F(A$.CZ$)..*F..IN$:.IN$.."".S8.32..*
G..:.300:.4: 4:.7100.Q*H.."...STARTING T
RACK,SECTOR. ....";T8,S8: 3: 15..*I..1
5,DV,15:.3,DV,3,"#":.63900..+K.."..RETUR
N. TO QUIT":.4,"("T8","S8")_ FIRST BLOCK
":N9.1.G+P..15,"B-R";3;DR;T8;S8.Y+Z..15,
"B-P";3;0.R+...#3,Z$:.Z$."".Z$.CZ$..+..T
8.F(Z$):.T8.0.7200..+...#3,Z$:.Z$."".Z$.
CZ$..+..S8.F(Z$).R+..T8$.J(D(T8),2):S8$.
J(D(S8),2)..+...4,"("T8$","S8$")";:..(N9
.5).5.N9..4..,..N9.N9.1:.IN$:.IN$."".712
0.%,...:.7210.H, ..4,"_ LAST ..":.4,N9"
BLOCKS.".],*..300:.4: 4:.7100..,..D9.9:D
1$.G(DV.32):D2$.G(DV.64):.15,DV,15:.DV.D
9.D9.8.I,...".........................NE
W. DEVICE # "D9..,..."..............."
;D9..,..XX.12:.7340:.YY.7315..-..XX.50:.
7340:.YY.7315./-..XX.119:.7340:.YY.7315.
;-...7400:..G-...15,"M-W"G(XX)G(00)G(2)G
(D9.32)G(D9.64).|-.. 15:DV.D9:.261:...-.
.YY..1:.15,"M-R"G(XX)G(0):.#15,XX$:.XX$.
.D1$.YY.0..-.....-.. 15:.15,DV,15:.15,E1
$,E2$,E3$,E4$:S9$.",".....X$.E1$.S9$.E2$
.S9$.E3$.S9$.E4$.>....".":X.5:Y$."":.540
20:.A9.1.100:E.E(E1$):.:.E.0...T....A9.1
.10:.59100:..S...."...RETURN. TO CONTINU
E."......"..ANY OTHER KEY TO .QUIT.."...
...310:.IN$.CR$........7900......"...***
.NOT A RECOGNIZABLE DISK.***":."..WANT T
O QUIT?"../...310:.IN$."Y".7900../...../
L.. UNSCRATCH.-/M.."..........W/N..".":X
.25:X$."UNSCRATCH":Y$."":.54020.W/V..".W
E'LL DO THE FOLLOWING:"../W.."..1.:GO TH
RU' DIRECTORY TRACK"DI" UNTIL".P/X.." W
E FIND THE SCRATCHED FILE NAME."../Y..".
.2.:TRACE THE BLOCKS AND COMPARE"..0Z.."
THE BLOCKS OBTAINED WITH THE".?0[.."
DIRECTORY BLOCK COUNT.".M0\.."..3.:LOOK
AT THE BLOCK AVAILABILTY MAP"..0].." TO
SEE IF ALL THE BLOCKS ARE FREE."..0^.."
.>>IF ALL OF THE ABOVE ARE OK"..0_.." Y
OU THEN MODIFY THE DIRECTORY"..0`.." AS
FOLLOWS:":.300.$1T..".MODIFY THE BLOCK
SO THAT THE".71Y..".MAGIC BYTE".D1~.."
WHICH OCCURS JUST .3. PLACES BEFORE"..1.
.." THE NAME IS AS FOLLOWS:"..1..." 12
9=SEQ FILE"..1..." 130=PRG FILE".G1..."
131=USR FILE"..1..." 132=REL FILE"..2
...".EXAMPLE:TO UNSCRATCH A PRG FILE 'AB
Z'".72..."FIND IT'S NAME ON THE DIRECTOR
Y, AND".]2..."SELECT MENU ITEM=MODIFY BL
OCK.".R2..."YOU WILL SEE:"..2D.."... 0.
0. 0"VC$". 0"TC$". 19. 3. 65. 66. 90....
ETC".L2N.." ^ ^ ^ ^ ^ ^"..2X
.." SHOULD BE .TRCK.A B Z"..3..."
A 130 .&SEC.FILENAME(IN ASCII)".%3...300
:.".".S3...".MODIFY THE BYTE WHICH IDENT
IFIES THE ".Z3..."FILE TYPE..TO 130..SO
IT READS:"..3..."... 0. 0. 0"VC$".130"TC
$". 19. 3. 65. 66. 90....ETC"..3..."..4.
:WRITE THE BLOCK BACK TO THE DISK."..4..
."..5.:VALIDATE.................. THE DI
SK.".,4..."..5.:PRAY..":.310.U4H..".WANT
TO TRY Y...";A$:.A$.."Y"...`4R..12000
..4.. 15:.58020:."......BYE...":.HD$".."
:...4@.. INITIALIZE..4A.."............4B
..".":.58020:.53281,F1:.53280,F1:. F3$(1
5),F5$(15)..5C..I.0.15:.F3$(I):F5$(I).F3
$(I):..+5D..".",".",".",".",".",".",".",
".".P5E..".",".",".",".",".",".",".","."
.Q5F.TC$.F3$(F3):.TC$:VC$.F5$(F5)..5G..C
(255),T(120),S(120),SC(77),B(4)..5H..1,1
7,20,24,19,30,17,35,16,0.Z5I..65,17,20,2
4,18,30,17,35,16,0..5J..67,39,28,53,26,6
4,24,77,22,0.:6K.S0$."..................
.....................":S4$.S0$.S0$.~6L.A
$.VC$."..*PONZO**** DISKVIEW ****(".DA$.
")****".TC$:.I.1.C(A$)..6M..J(A$,I,1);:.
T.1.5:.:.:.:.S0$:.CP$."PET".8016.G6N..".
.NOTE........."..6O.."FUNCTION KEYS CHAN
GE COLOURS AT MENU..."..7P.."..DEVICE #
8...";DV.37Q.R$(0).".":R$(1).".":NN.55
341.N7R.HX$."0123456789ABCDEF".Z7T.SD$."
...........":BB$.SD$."..........."..7Y.M
D$."....................":CR$.G(13):CZ$.
G(0)..7Z..59000..7C..".. DRIVE # 0..."
;DR$:DR.E(DR$)..8H..58020: 15:.15,DV,15,
"I".DR$:.63900.'8R.K$." THIS BLOCK IS E
MPTY ".E8|..:.I.0.15:.X$:.:WW.0:A0.1.`8
}..3,DV,3,"$".DR$:.63900.W8~..#3,A$:A.F(
A$.CZ$)..8..DT:.A.DT.8070..8..WW.WW.1:.
WW.3. .I.1.9:.DT:.:.8063..8.. 3:.7400..8
..MH$."DRIVE ".DR$.".!!UNRECOGNIZABLE DI
SK!!.":.8230..9..TT.200:DI.76:.8110."9..
.DT.1.DT.65.KK.143.29...DT.67.KK.5.<9...
8200.O9...A1:.A1.0.8090.X9...B1:.I.A0.A1
:SC(I).B1.1:.:A0.I:.8075..9...DT.1.DT.65
.D1.1:TT.35:S2.3:DI.18.A9...DT.67.D1.257
:TT.77:S2.4:DI.39.U9 .S1.S2.1:S3.S2.1..9
.. 3:.TT.0.8065..:...I.0.7:P(I).2.I:.:.I
.0.3:H(I).16.I:..0:..H$(0)."DECIMAL":H$(
1)."HEX".H:..X$(0)."Q":X$(1)."W".I:L.CL$
."":.I.1.39:CL$.CL$." ":...:V.S1$."^....
^....^....^....^....^....^....".A:..S2$.
". . . . . . ."..:..S3
$."0 5 10 15 20 25 30":...
;. .I.3.KK:.#3,A$:.:MH$."DRIVE ".DR$.".
".O;. .I.1.16:.#3,A$:MH$.MH$.A$:.:.#3,A$
,A$:MH$.MH$.":"..;. .I.1.2:.#3,A$:MH$.MH
$.A$:.:MH$.MH$.":":.#3,A$..;. .I.1.2:.#3
,A$:MH$.MH$.A$:.:MH$.MH$.".".M;! SP$."":
.I.1.40:SP$.SP$." ":...;& .261:.".."HD$:
...;(#. DECIMAL_HEX..<)#.".............<
-#M.E(M$):.M..0...5<2#M$.J(M$,2):M.0:LM.
C(M$).B<<#.CN.1.LM.M<F#MM$.J(M$,CN,1):.9
100:M.M.MM.H(LM.CN):..S<P#...<.#.MM$."0"
.MM.0:...<.#MM.E(MM$):.MM..0....< #MM.F(
MM$).55:..C<.%. HEX_DECIMAL.U<.%."......
.......< %C9.3:M$."$"..=!%SM.M:.CN.C9.0.
.1:CM%.SM.H(CN).9=&%M$.M$.G(CM%.48.7.(CM
%.9)):SM.SM.H(CN).CM%:.:..I=.*. DIRECTOR
Y..=.+.58020:."...TO PRINTER N...";IN$
:PD.3:. IN$."Y". PD.4.O=.+PT..(PD.4):PF$
."":SF$.CR$:PS.0:Q$.G(34):R1$.".":R2$.".
":BT$."":AT$.""..>.+AF$."":C80.0:LF$.G(1
0):S5$.S0$:U9.1:.4,PD:.PT.0.11070.9>.+."
.80 COLUMN DIR'Y Y...";W$:.W$."N".1103
0.W>.+.I.1.18:BT$.BT$." ":.:C80.1:S5$.S4
$:SF$."":AF$."-":.11050..>.+S5$.H(S0$,38
):.".PRINT .RIGHT. HOW MANY SPACES 0..
.";PS..> +.PS..I.1.PS:PF$.PF$." ":.:BT$.
PF$..?*+.".DOES THE PRINTER NEED A LINE
FEED N...";U9$.<?4+.U9$."Y".AT$.AT$.LF
$:.C80.0.SF$.SF$.LF$.Z?>+.".":PT$." ****
***".J(MH$,10,24)." *******":.PT.0.PT$.H
D$..?H+.4,BT$PT$AT$:."HIT A KEY TO STOP.
"VC$:A5.32:A6.127:A7.160..?R+ 3:.3,DV,3,
"$".DR$:J$." ":. PT .R1$."":R2$."".'@\+.
4,BT$R1$" BLKS NAME TYPE (T,S
) START"TC$;AT$.L@F+TY$(0)."DEL":TY$(1).
"SEQ":TY$(2)."PRG":TY$(3)."USR":TY$(4)."
REL".@K+.C80.0..4,BT$;..@P+.4,S5$AT$:.I
.0.253:.#3,A$:...@Z+SI.0:.P.1.8:.#3,A$:A
.F(A$.CZ$).128:TY..A.(A.0.A.5):A3$.TY$(T
Y)..A.+.#3,A$,B$:A.F(A$.CZ$):B.F(B$.CZ$)
:.ST.11300.IA.+A4$."(".I(D(A),2).",".I(D
(B),2).")":A0$."":.I.1.16.~A.+.#3,B$:A0$
.A0$.B$:.:A2$."":.I.1.16:B$.J(A0$,I,1)..
A.+A9.F(B$.CZ$):.A9.A7.B$."":I.16:.11190
.HA.+.A9.A5.(A9.A6.A9.A7).B$."?"..A.+A2$
.A2$.B$:.:.11320:.TY..2.A5$." ".AF$:.
11220.<B.+.2,DV,2,DR$.":".A0$.",".A3$.",
R":.#2,AL$,AH$:X$.AL$:.11440.OBJ+AL$.X$:
X$.AH$:.11440:AH$.X$:A5$.AH$.AL$.AF$: 2.
.BT+.#3,A$,A$,A$,A$,A$,A$,A$,A$,A$.RB.+.
#3,A$,B$:A.F(A$.CZ$):B.F(B$.CZ$):C.A.256
.B:K9.ST:.C.0.P.10..B.+A1$.I(" ".D(C),
3)..B.+.P.8..#3,A$,A$.4C.+. PT . TY.0 .
. PF$A1$J$A2$A3$J$A4$J$A5$SF$:.11290.^C.
,. C . .4,PF$A1$J$A2$A3$J$A4$J$A5$SF$;.S
C.,.A$:.A$.."".P.10..C.,.C80.U9.1.U9:.U9
..4,AT$..C.,.:.P.10.K9.0.11130.AC$, 3:.1
1330:.4,PF$S5$SF$.VC., 4:.58010:.300:...
C8,A2$.R1$.Q$.H(A2$.Q$.SP$,17).R2$:...DB
,. BLOCKS FREE.&DL,.1,DV,0,"$".DR$.":".8
DV,.11380:.4,LF$.`D`,L.X.Y.256:.4,PF$L;"
BLOCKS FREE"AT$.IDJ, 1:...DT,.#1,X$,X$,
X$,X$,X$,X$..D~,.#1,X$:.X$.."".11390..D.
,.#1,X$,X$,X$,Y$.GD.,X.C(X$):.X.X.F(X$).
.D.,Y.C(Y$):.Y.Y.F(Y$)..D.,..)E.,X.F(X$.
CZ$):XH%.X.16:XL.X.16.XH%:X$.J(HX$,XH%.1
,1).J(HX$,XL.1,1)./E.,..GE... UNSCRATCH
ROUTINE._E..."..................JE...580
20..E..."...THE SCRATCHED FILE NAMES WIL
L":.".BE DISPLAYED."..E./.".YOU MAY DECI
DE WHICH FILE YOU":.".WISH TO RECOVER.".
.F./."...RETURN. TO CONTINUE":.310:.".".
.F0/ 3: 15:.15,DV,15.=F:/T.DI:S.1:.3,DV,
3,"#0":.63900.TF?/.15,"B-R";3;DR;T;S.HF@
/.".LOOKING AT:"..FA/."..TRACK ..."T"
SECTOR ..."S..FD/.J.0.255:.15,"B-P";3;
J:.#3,A$.EFN/C(J).F(A$.CZ$):...FX/.D.2.2
55.32:.C(D)..0.C(D.1).0.12200..GB/.SD$CL
$SD$"WANT TO UNSCRATCH .";:.P9.1.200:..I
GL/.A$:.K.D.3.D.18:.G(C(K));:.:.".?":.31
0.\GV/.IN$."Y".12300.}G./.D:T.C(0):S.C(1
):.T.DI.12095..G./.".FINISHED LOOKING.."
:."...RETURN. TO CONTINUE.":.310:...G.0T
0.T:S0.S:T.C(D.1):S.C(D.2):B0.C(D.28).C(
D.29).256:.58010.&H.0."....DIRECTORY BLO
CK COUNT="B0:N9.1:.S0$.`H.0 3: 15:.15,DV
,15:.3,DV,3,"#":.63900:.#3,BN$:BN.F(BN$)
.|H.0T(N9).T:S(N9).S:N9.N9.1..H.0.15,"B-
R";3;DR;T;S..H.0.15,"B-P";3;0..H.0.#3,Z$
:.Z$."".Z$.CZ$..H.0T(N9).F(Z$):.T(N9).0.
12314..H.0.#3,Z$:.Z$."".Z$.CZ$..I.0S(N9)
.F(Z$).$I.0T$.J(D(T),2):S$.J(D(S),2).8I.
0."("T$","S$")";.[I.0T.T(N9):S.S(N9):N9.
N9.1:.12305.II.0N9.N9.1:..I.0.".."N9" B
LOCKS."..I>0.N9..B0.."..**.INCORRECT BLO
CK COUNT.**..":.300:..PIH0.".LOOKS GOOD
SO FAR."..IR0.".SHALL WE PROCEED?":.310:
.IN$.."Y"...'J\0."...WE'LL CHECK THAT TH
E ABOVE BLOCKS".PJF0.".ARE FREE BY LOOKI
NG AT THE BAM..".JP0.".THE TRACK/SECTOR
S FOR THE FILE WILL BE"..JZ0.".DISPLAYED
. IF A BLOCK IS OCCUPIED".SJ.0.".THE UNS
CRATCH WILL NOT WORK!":.300..K.0 15:.15,
DV,15,"I".DR$:.63900:.".":.58020:K1.1. K
.0.2,DV,2,"$".DR$:.63900.:K.0. .B(I).(Z.
P(I)).P(I).VK.0FF.D1.(T(K1).1).S3:PP.0.L
K.0.K2.0.FF:.#2,A$:...K.0T.T(K1):.".":.6
400:.6580..K.0.SD$"CHECK THAT THE FOLLOW
ING ".HK.0.".SECTORS ARE FREE=W"..K.0.K2
.1.N9:.T(K2).T..R$(PP)J(D(S(K2)),2)R$(1.
PP);..L.0PP.1.PP:.:...L.0.".OK?":.310.HL
.0.IN$.."Y"..".SORRY..":.58010:.300: 2:.
.\L.0 2:.K1.N9. 15:..WLJ0K1.K1.1:.T(K1).
0.12600..LT0.T(K1).T.12490..LY0.12422..L
81.".":.58010.ULB1."NOW MODIFY THE .MAGI
C BYTE. ON DIRECTORY"..LL1.".TRACK"T0" S
ECTOR"S0.!MV1.".THEN WRITE THE BLOCK BAC
K TO ("T0","S0")".FM`1.".FINALLY .VALIDA
TE. THE DISK!".QMJ1.300:..GMPC. BACKUP B
Y BLOCK.}MQC.".................MRC.53280
,F5:.".":X.30:X$."BACKUP":Y$."":.54020.P
MSC."..FOR TWO DRIVES ONLY":.300..MUC.".
(HIT RETURN TO ABORT)":FF$."":.54020.4NZ
C."....FROM. DRIVE ...";FD$:FD.E(FD$)
:. FD$." "...MN_C.".DEVICE 8...";DA..N
DC."...TO. DRIVE";TD$:TD.E(TD$):.".DEVIC
E 8...";DB..NIC 3: 5: 14: 15:.15,DA,15
:.15,"I".FD$..NNC.3,DA,3,"#":.63900:.14,
DB,15:P.1:.DB.DA.BB.3:.50040..NSCBB.5:.5
,DB,5,"#".9OXC."..START AT TRACK 1..."
;T8:."..END AT TRACK 35....";T9.ZO}C."
..ERRORS TO PRINTER N...";VV$:VV.0:. V
V$."Y" . VV.1:.4,4..O.C.VV.0.50053..O.C.
".DOES THE PRINTER NEED A LINE FEED N.
..";U9$.VO.C.U9$."Y".FF$.G(10)..O.C."...
GO FOR A COFFEE..":.300..P.C.".":.T.T8.T
9:.S.0.31.(P.C.15,"B-R";3;FD;T;S.;P C.15
,E,E$,E1,E2.TP.C. E.66 . S.31:.50140..P.
C.".TRACK ....."T" SECTOR ....."
S..P.C. E.0 .50110.EP.C.".":.I.1.P:.:.:.
E;E$;E1;E2;":DRIVE ."FD:P.P.1..P.C. VV .
.4,E;E$;E1;E2;":DRIVE ."FD;FF$..P.C.BB.
3.50114.+Q.C.U9.0.255:.15,"B-P",3,U9:.14
,"B-P",5,U9.@Q.C.#3,BY$:.5,BY$:..XQBC.14
,"U2:";BB;TD;T;S.KQCC.14,E,E$,E1,E2..QHC
. E.66 . S.31:.50140..QMC. E.0 .50135.HQ
RC.".":.I.1.P:.:.:.E;E$;E1;E2;":DRIVE ."
TD:P.P.1..QSC. VV . .4,E;E$;E1;E2;":DRIV
E ."FD;FF$..RWC.IN$:.IN$.."".S.100:T.100
.1R.C.:.:.14,"I".TD$:. VV . .4: 4.CR.C 3
: 5: 14: 15..R.C.".
."X$"....FINISHED."..R.
C.A$:.A$."".50170..R.D...R8G. CHECK DISK
BLOCKS.OR9G."...................R:G."."
:X.2:X$."CHECK BAD BLOCKS":Y$."":.54020.
.SBG.".DEVICE 8...";DA:DB.DA.SSLG.".DR
IVE 0...";FD$:TD$.FD$:FD.E(FD$):TD.E(T
D$).}SVG."...WE'LL READ/WRITE TO EVERY B
LOCK"..S`G."..AND INDICATE ANY DISK ERRO
RS. ".YSJG."..SHALL WE CONTINUE Y..."
;Q$:.Q$."Y".50025..STG...T.R."...":.U9.1
.X:.".";:.:L9.C(X$):.L9.4.L9.4.=T.RX$.H(
X$." ",L9):Y$.H("MENU ",L9).RT
.SL9.C(X$):.".";:.U9.1.L9:.".";:.:."....
........";..T.S.U9.1.L9:."...";:.:."....
...."VC$X$;:.U9.1.C(X$)..T.S.".";:.:."..
"Y$TC$:..WT... UPPER/LOWER CASE..T...CP$
."C64"..G(14);:...U...59468,14:...U...CP
$."C64"..G(142);:..*U...59468,12:..FUX.S
D.54272:.I.0.24:.SD.I,0:.:.SD.6,240:.SD.
1,50:.SD.24,15..U..PA.SD.4:O0.33:O1.0:PB
.65535:PC.PB.KU...CP$."PET".PB.59467:PC.
59466:.PB,16:.PC,15:PA.59464:O0.100.XU..
.59100:...V...PB,16:.PC,15:.PA,O0:.P9.1.
10:.:.PA,O1:.PB,0:...VH.. INPUT.=VI.."CU
RRENT C("I")= ....."C(I).HVK..".INP
UT A STRING Y...";A$:.A$."N"....VL..".
ENTER STRING: TERMINATE WITH .RETURN.:."
:BC$."BYTE COUNT ".TVM.BC$."BYTE
COUNT "..WR.IN$."":N.C(IN$)
:.K9.1.23:.CRT.K9.1,F(J(BC$,K9,1)).64:..
8WW.K9.12:N$.J(D(N),2):LN.C(N$):.K8.1.LN
.EWX..CRT.K8.K9,F(J(N$,K8,1)):.:.CRT.K8.
K9,32..W\.."..";:.A$:.A$."".61015..WF.A.
F(A$):.A.17.A.145.A.148.A.19.A.147.A.157
.61015.MWP.." .";:.A.13.61080..WZ..IN$."
".A.20.61015..X...A.20.N.N.1:.". .";:IN$
.H(IN$,N):.61015.@X..." ."A$;:IN$.IN$.A$
:N.C(IN$):.N.255.I.61015.IX...U9.1.N:C(I
.U9.1).F(J(IN$,U9,1)):.:..|X...15,E,E$,E
1,E2..X...E.0....X...:.".**.DISK ERROR.*
*.":.E;E$;E1;E2.EX...A9.1.10:.59100:...X
.."...RETURN. TO CONTINUE."..Y..."..ANY
OTHER KEY TO .QUIT.."..Y...310:.IN$.CR$
...$Y...7900...
> CLICK IMAGE PREVIEW FOR FULL MODAL