DISKVIEW
FILE INFORMATION
FILENAME(S): DISKVIEW
FILE TYPE(S): PRG
FILE SIZE: 20.4K
FIRST SEEN: 2025-12-02 02:07:00
APPEARS ON: 1 disk(s)
FILE HASH
dd1ceedb389619e1ff87e75746c2139f9fb47b0307559b67a11558f9aa481a24
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CHRIS HULP PR 2 | DISKVIEW | PRG | Shocktrooper | 31 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 03 00 8F 20 50 45 54 45 52 20 4A 2E |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 30 08 04 00 8F 20 34 39 20 | PONZO.0.... 49 |
00000020: 4D 41 52 47 41 52 45 54 20 41 56 45 2E 20 53 2E |MARGARET AVE. S.|
00000030: 00 4C 08 05 00 8F 20 57 41 54 45 52 4C 4F 4F 2C |.L.... WATERLOO,|
00000040: 4F 4E 54 2E 20 4E 32 4A 20 32 43 38 00 61 08 06 |ONT. N2J 2C8.a..|
00000050: 00 8F 20 31 2D 35 31 39 2D 35 37 38 2D 31 31 34 |.. 1-519-578-114|
00000060: 37 00 82 08 08 00 8F 20 44 49 53 4B 56 49 45 57 |7...... DISKVIEW|
00000070: 20 2D 20 46 4F 52 20 50 45 54 20 41 4E 44 20 43 | - FOR PET AND C|
00000080: 36 34 00 91 08 09 00 8F 22 B8 B8 B8 B8 B8 B8 B8 |64......".......|
00000090: B8 00 CC 08 0A 00 8B C2 28 30 29 B2 34 37 A7 97 |........(0).47..|
000000A0: 35 36 2C 37 AC 31 36 3A 97 35 35 2C 30 3A 9C 3A |56,7.16:.55,0:.:|
000000B0: 8F 20 53 4F 4D 45 20 52 41 4D 20 46 4F 52 20 53 |. SOME RAM FOR S|
000000C0: 41 56 49 4E 47 20 42 4C 4F 43 4B 53 00 EB 08 0B |AVING BLOCKS....|
000000D0: 00 8B C2 28 30 29 B3 B1 34 37 A7 97 35 33 2C 37 |...(0)..47..53,7|
000000E0: AC 31 36 3A 97 35 32 2C 30 3A 9C 00 0B 09 0C 00 |.16:.52,0:......|
000000F0: 46 31 B2 30 37 3A 46 33 B2 30 30 3A 46 35 B2 30 |F1.07:F3.00:F5.0|
00000100: 36 3A 8F 20 43 4F 4C 4F 55 52 53 00 11 09 0D 00 |6:. COLOURS.....|
00000110: 3A 00 25 09 0E 00 44 41 24 B2 22 4D 41 52 20 33 |:.%...DA$."MAR 3|
00000120: 31 2F 38 34 22 00 2B 09 0F 00 3A 00 63 09 10 00 |1/84".+...:.c...|
00000130: 43 52 54 B2 31 30 32 34 3A 43 50 24 B2 22 43 36 |CRT.1024:CP$."C6|
00000140: 34 22 3A 8B 20 C2 28 30 29 B3 B1 34 37 20 A7 20 |4":. .(0)..47 . |
00000150: 43 52 54 B2 33 32 37 36 38 3A 43 50 24 B2 22 50 |CRT.32768:CP$."P|
00000160: 45 54 22 00 77 09 14 00 42 53 B2 43 52 54 AA 34 |ET".w...BS.CRT.4|
00000170: 35 3A 8D 38 30 30 30 00 7D 09 1E 00 3A 00 A2 09 |5:.8000.}...:...|
00000180: 1F 00 4D 24 28 31 29 B2 22 CC 4F 41 44 20 42 4C |..M$(1).".OAD BL|
00000190: 4F 43 4B 20 49 4E 54 4F 20 43 4F 4D 50 55 54 45 |OCK INTO COMPUTE|
000001A0: 52 22 00 C7 09 20 00 4D 24 28 32 29 B2 22 D3 45 |R"... .M$(2).".E|
000001B0: 45 20 C1 D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 45 |E ..... OF ABOVE|
000001C0: 20 42 4C 4F 43 4B 22 00 E6 09 21 00 4D 24 28 33 | BLOCK"...!.M$(3|
000001D0: 29 B2 22 CD 4F 44 49 46 59 20 41 42 4F 56 45 20 |).".ODIFY ABOVE |
000001E0: 42 4C 4F 43 4B 22 00 0B 0A 22 00 4D 24 28 34 29 |BLOCK"...".M$(4)|
000001F0: B2 22 D3 54 4F 52 45 20 41 42 4F 56 45 20 42 4C |.".TORE ABOVE BL|
00000200: 4F 43 4B 20 49 4E 20 D2 C1 CD 22 00 32 0A 23 00 |OCK IN ...".2.#.|
00000210: 4D 24 28 35 29 B2 22 D7 52 49 54 45 20 42 4C 4F |M$(5).".RITE BLO|
00000220: 43 4B 20 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 53 |CK IN ... TO DIS|
00000230: 4B 22 00 55 0A 24 00 4D 24 28 36 29 B2 22 C2 4C |K".U.$.M$(6).".L|
00000240: 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 49 54 59 |OCK .VAILABILITY|
00000250: 20 CD 41 50 22 00 6F 0A 25 00 4D 24 28 37 29 B2 | .AP".o.%.M$(7).|
00000260: 22 C4 49 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 00 |".ISK .OMMANDS".|
00000270: 87 0A 26 00 4D 24 28 38 29 B2 22 D4 52 41 43 45 |..&.M$(8).".RACE|
00000280: 20 C2 4C 4F 43 4B 53 00 A3 0A 27 00 4D 24 28 39 | .LOCKS...'.M$(9|
00000290: 29 B2 22 D5 4E 53 43 52 41 54 43 48 20 41 20 C6 |).".NSCRATCH A .|
000002A0: 49 4C 45 00 AF 0A 64 00 8F 20 20 4D 45 4E 55 00 |ILE...d.. MENU.|
000002B0: BB 0A 65 00 8F 22 20 B8 B8 B8 B8 00 C9 0A 68 00 |..e.." .......h.|
000002C0: 97 35 33 32 38 30 2C 46 31 00 FD 0A 69 00 A0 31 |.53280,F1...i..1|
000002D0: 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 8D 35 38 30 |5:.15,DV,15:.580|
000002E0: 31 30 3A 99 22 93 22 3A 58 24 B2 22 CD C1 C9 CE |10:.".":X$."....|
000002F0: 22 3A 58 B2 33 30 3A 8D 35 34 30 30 30 00 09 0B |":X.30:.54000...|
00000300: 6E 00 99 22 13 22 48 44 24 00 26 0B 78 00 81 49 |n.."."HD$.&.x..I|
00000310: B2 31 A4 39 3A 99 22 11 12 22 49 22 92 3A 22 4D |.1.9:.".."I".:"M|
00000320: 24 28 49 29 3A 82 00 4E 0B 82 00 99 53 30 24 3A |$(I):..N....S0$:|
00000330: 99 56 43 24 22 48 49 54 20 12 D2 C5 D4 D5 D2 CE |.VC$"HIT .......|
00000340: 92 20 54 4F 20 D1 55 49 54 13 22 54 43 24 00 65 |. TO .UIT."TC$.e|
00000350: 0B 8C 00 8D 33 31 30 3A 8B 49 4E 24 B2 43 52 24 |....310:.IN$.CR$|
00000360: A7 37 39 30 30 00 76 0B 96 00 8B 49 4E 24 B2 22 |.7900.v....IN$."|
00000370: 85 22 A7 31 31 30 00 87 0B A0 00 8B 49 4E 24 B2 |.".110......IN$.|
00000380: 22 86 22 A7 31 31 30 00 98 0B AA 00 8B 49 4E 24 |".".110......IN$|
00000390: B2 22 87 22 A7 31 31 30 00 CE 0B B4 00 99 22 13 |.".".110......".|
000003A0: 11 22 3A 81 49 B2 31 A4 49 4E 3A 99 22 11 11 22 |.":.I.1.IN:.".."|
000003B0: 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 4D 24 28 49 |;:.:."....."M$(I|
000003C0: 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A 82 00 0B |N):.T9.1.300:...|
000003D0: 0C C8 00 91 49 4E AA 31 8D 35 30 30 30 30 2C 31 |....IN.1.50000,1|
000003E0: 30 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 |000,2000,3000,40|
000003F0: 30 30 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 |00,5000,6000,700|
00000400: 30 2C 37 31 30 30 2C 37 35 30 30 00 14 0C D2 00 |0,7100,7500.....|
00000410: 89 31 30 34 00 41 0C FA 00 46 31 B2 AB 28 46 31 |.104.A...F1..(F1|
00000420: AA 31 29 AC 28 46 31 B3 31 35 29 3A 97 35 33 32 |.1).(F1.15):.532|
00000430: 38 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 3A |81,F1:.53280,F1:|
00000440: 8E 00 6A 0C 04 01 46 33 B2 AB 28 46 33 AA 31 29 |..j...F3..(F3.1)|
00000450: AC 28 46 33 B3 31 35 29 3A 54 43 24 B2 46 33 24 |.(F3.15):TC$.F3$|
00000460: 28 46 33 29 3A 99 54 43 24 3B 00 A5 0C 05 01 48 |(F3):.TC$;.....H|
00000470: 44 24 B2 53 30 24 AA 43 52 24 AA 56 43 24 AA 4D |D$.S0$.CR$.VC$.M|
00000480: 48 24 AA 22 44 45 56 49 43 45 20 22 AA CA 28 C4 |H$."DEVICE "..(.|
00000490: 28 44 56 29 2C 32 29 AA 54 43 24 AA 43 52 24 AA |(DV),2).TC$.CR$.|
000004A0: 53 30 24 3A 8E 00 C8 0C 0E 01 46 35 B2 AB 28 46 |S0$:......F5..(F|
000004B0: 35 AA 31 29 AC 28 46 35 B3 31 35 29 3A 56 43 24 |5.1).(F5.15):VC$|
000004C0: B2 46 35 24 28 46 35 29 00 D1 0C 0F 01 89 32 36 |.F5$(F5)......26|
000004D0: 31 00 DC 0C 2C 01 8F 20 20 47 45 54 00 E7 0C 2D |1...,.. GET...-|
000004E0: 01 8F 22 20 B8 B8 B8 00 06 0D 31 01 99 56 43 24 |.." ......1..VC$|
000004F0: 22 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |"......... TO CO|
00000500: 4E 54 22 54 43 24 00 1C 0D 36 01 A1 49 4E 24 3A |NT"TC$...6..IN$:|
00000510: 8B 49 4E 24 B3 B1 22 22 A7 33 31 30 00 31 0D 40 |.IN$.."".310.1.@|
00000520: 01 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 33 32 |..IN$:.IN$."".32|
00000530: 30 00 43 0D 4A 01 8B 49 4E 24 B2 22 85 22 A7 8D |0.C.J..IN$."."..|
00000540: 32 35 30 00 55 0D 4B 01 8B 49 4E 24 B2 22 86 22 |250.U.K..IN$."."|
00000550: A7 8D 32 36 30 00 67 0D 4C 01 8B 49 4E 24 B2 22 |..260.g.L..IN$."|
00000560: 87 22 A7 8D 32 37 30 00 7E 0D 54 01 49 4E B2 C5 |."..270.~.T.IN..|
00000570: 28 49 4E 24 29 3A 8D 35 39 31 30 30 3A 8E 00 9D |(IN$):.59100:...|
00000580: 0D E8 03 8F 20 4C 4F 41 44 20 42 4C 4F 43 4B 20 |.... LOAD BLOCK |
00000590: 49 4E 54 4F 20 43 4F 4D 50 55 54 45 52 00 BC 0D |INTO COMPUTER...|
000005A0: E9 03 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
000005B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 C5 0D ED |................|
000005C0: 03 59 39 B2 30 00 FD 0D F2 03 A0 33 3A A0 31 35 |.Y9.0......3:.15|
000005D0: 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C 44 56 |:.15,DV,15:.3,DV|
000005E0: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
000005F0: 4E B2 C6 28 42 4E 24 29 3A 44 43 B2 33 00 0E 0E |N..(BN$):DC.3...|
00000600: F7 03 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 00 26 |..BN$..(BN$,2).&|
00000610: 0E FC 03 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
00000620: 31 3A 99 22 93 22 00 3B 0E 06 04 81 4B B2 30 A4 |1:.".".;....K.0.|
00000630: 31 30 3A 98 33 2C 4B 24 3B 3A 82 00 4F 0E 10 04 |10:.3,K$;:..O...|
00000640: 99 22 93 11 11 11 11 11 11 11 11 22 53 30 24 00 |."........."S0$.|
00000650: 75 0E 15 04 8B 59 39 A7 99 22 12 D4 D2 C1 C3 CB |u....Y9.."......|
00000660: 2C D3 C5 C3 D4 CF D2 92 20 22 54 22 2C 22 53 3A |,....... "T","S:|
00000670: 89 31 30 36 30 00 96 0E 1A 04 85 22 12 D4 D2 C1 |.1060......"....|
00000680: C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D |..,....... ...|
00000690: 9D 22 3B 54 2C 53 00 AE 0E 24 04 98 31 35 2C 22 |.";T,S...$..15,"|
000006A0: 42 2D 52 22 3B 44 43 3B 44 52 3B 54 3B 53 00 C1 |B-R";DC;DR;T;S..|
000006B0: 0E 2E 04 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
000006C0: 30 00 DA 0E 38 04 A1 23 33 2C 5A 24 3A 8B 5A 24 |0...8..#3,Z$:.Z$|
000006D0: B2 22 22 A7 5A 24 B2 43 5A 24 00 EF 0E 42 04 43 |."".Z$.CZ$...B.C|
000006E0: 28 30 29 B2 C6 28 5A 24 29 3A 8D 31 32 30 30 00 |(0)..(Z$):.1200.|
000006F0: 23 0F 60 04 99 56 43 24 22 13 12 D2 C5 D4 D5 D2 |#.`..VC$".......|
00000700: CE 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 22 54 |. TO TERMINATE"T|
00000710: 43 24 3A 99 C4 28 43 28 30 29 29 C4 28 43 28 31 |C$:..(C(0)).(C(1|
00000720: 29 29 3B 00 43 0F 6A 04 4A B2 32 3A 81 49 B2 32 |));.C.j.J.2:.I.2|
00000730: A4 32 35 35 3A 98 31 35 2C 22 42 2D 50 22 3B 44 |.255:.15,"B-P";D|
00000740: 43 3B 49 00 5C 0F 74 04 A1 23 33 2C 42 24 3A 8B |C;I.\.t..#3,B$:.|
00000750: 42 24 B2 22 22 A7 42 24 B2 43 5A 24 00 6B 0F 7E |B$."".B$.CZ$.k.~|
00000760: 04 43 28 49 29 B2 C6 28 42 24 29 00 83 0F 88 04 |.C(I)..(B$).....|
00000770: 97 42 53 AA 4A 2C 43 28 49 29 3A 97 4E 4E AA 4A |.BS.J,C(I):.NN.J|
00000780: 2C 46 33 00 99 0F 92 04 A1 41 24 3A 8B 41 24 B3 |,F3......A$:.A$.|
00000790: B1 22 22 A7 8D 31 31 39 35 00 A5 0F 9C 04 4A B2 |.""..1195.....J.|
000007A0: 4A AA 31 3A 82 00 BA 0F A6 04 A0 33 3A A0 31 35 |J.1:.......3:.15|
000007B0: 3A 99 42 42 24 3A 8D 33 30 30 00 CD 0F A7 04 59 |:.BB$:.300.....Y|
000007C0: 39 B2 30 3A 8B 43 28 30 29 B2 30 A7 8E 00 07 10 |9.0:.C(0).0.....|
000007D0: A8 04 85 22 93 11 11 11 11 CC 4F 41 44 20 CE C5 |..."......OAD ..|
000007E0: D8 D4 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 20 |.. TRACK/SECTOR |
000007F0: 20 20 4E 9D 9D 9D 22 3B 49 4E 24 3A 8B 49 4E 24 | N...";IN$:.IN$|
00000800: B3 B1 22 59 22 A7 8E 00 24 10 A9 04 54 B2 43 28 |.."Y"...$...T.C(|
00000810: 30 29 3A 53 B2 43 28 31 29 3A 59 39 B2 31 3A 89 |0):S.C(1):Y9.1:.|
00000820: 31 30 31 30 00 66 10 AB 04 99 56 43 24 22 13 11 |1010.f....VC$"..|
00000830: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 C2 CC |................|
00000840: CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 C2 C5 C5 CE |... ... ... ....|
00000850: 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 CC CF C1 C4 | .......... ....|
00000860: C5 C4 22 54 43 24 00 A0 10 AC 04 85 22 2E 2E 57 |.."TC$......"..W|
00000870: 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |ANT TO CONTINUE |
00000880: 4C 4F 41 44 49 4E 47 20 20 20 4E 9D 9D 9D 22 3B |LOADING N...";|
00000890: 4E 24 3A 8B 4E 24 B2 22 4E 22 A7 49 B2 32 35 36 |N$:.N$."N".I.256|
000008A0: 00 DF 10 AD 04 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000008B0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 22 54 43 24 00 | "TC$.|
000008E0: 0A 11 AE 04 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 22 3A 8E 00 1A 11 B0 04 8F | ":.......|
00000910: 20 43 28 30 29 2F 43 28 31 29 00 2A 11 B1 04 8F | C(0)/C(1).*....|
00000920: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 41 11 BA 04 99 |"..........A....|
00000930: 53 44 24 3A 98 31 35 2C 22 42 2D 50 22 3B 33 3B |SD$:.15,"B-P";3;|
00000940: 31 00 5A 11 C4 04 A1 23 33 2C 42 24 3A 8B 42 24 |1.Z....#3,B$:.B$|
00000950: B2 22 22 A7 42 24 B2 43 5A 24 00 69 11 CE 04 43 |."".B$.CZ$.i...C|
00000960: 28 31 29 B2 C6 28 42 24 29 00 8A 11 D8 04 8B 43 |(1)..(B$)......C|
00000970: 28 30 29 B2 30 A7 99 53 44 24 3A 99 22 CC 41 53 |(0).0..SD$:.".AS|
00000980: 54 20 D4 52 41 43 4B 22 3A 8E 00 BA 11 E2 04 99 |T .RACK":.......|
00000990: 53 44 24 3A 99 22 CE 45 58 54 20 D4 52 41 43 4B |SD$:.".EXT .RACK|
000009A0: 3D 22 43 28 30 29 3A 99 22 CE 45 58 54 20 D3 45 |="C(0):.".EXT .E|
000009B0: 43 54 4F 52 3D 22 43 28 31 29 00 D0 11 EC 04 4E |CTOR="C(1).....N|
000009C0: 54 B2 43 28 30 29 3A 4E 53 B2 43 28 31 29 3A 8E |T.C(0):NS.C(1):.|
000009D0: 00 E2 11 D0 07 8F 20 50 52 49 4E 54 20 41 53 43 |...... PRINT ASC|
000009E0: 49 49 00 F4 11 D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 |II......".......|
000009F0: B8 B8 B8 B8 00 0E 12 D2 07 49 4A B2 30 3A 49 49 |.........IJ.0:II|
00000A00: B2 32 35 35 3A 99 22 93 22 3A 48 58 B2 30 00 41 |.255:.".":HX.0.A|
00000A10: 12 D3 07 99 22 93 11 11 12 30 92 3A C4 C5 C3 C9 |...."....0.:....|
00000A20: CD C1 CC 22 3A 99 22 11 11 12 31 92 3A C8 C5 D8 |...":."...1.:...|
00000A30: 22 3A 85 22 11 11 20 20 20 30 9D 9D 9D 22 3B 49 |":.".. 0...";I|
00000A40: 4E 00 56 12 D4 07 99 22 93 22 3A 8B 20 49 4E 20 |N.V....".":. IN |
00000A50: A7 20 48 58 B2 31 00 99 12 D5 07 99 56 43 24 22 |. HX.1......VC$"|
00000A60: 13 12 D2 C5 D4 D5 D2 CE 92 3D 51 55 49 54 3A 12 |.........=QUIT:.|
00000A70: D3 D0 C1 C3 C5 92 3D 50 41 55 53 45 3A 20 20 22 |......=PAUSE: "|
00000A80: 48 24 28 48 58 29 3B 54 43 24 3A 99 53 30 24 3A |H$(HX);TC$:.S0$:|
00000A90: 45 45 24 B2 22 92 20 12 22 00 BC 12 D6 07 5A 31 |EE$.". .".....Z1|
00000AA0: B2 33 32 3A 5A 32 B2 32 32 33 3A 5A 33 B2 31 32 |.32:Z2.223:Z3.12|
00000AB0: 37 3A 5A 34 B2 31 36 30 3A 50 B2 30 00 F1 12 D7 |7:Z4.160:P.0....|
00000AC0: 07 59 30 24 B2 22 12 22 AA 54 43 24 AA 43 4C 24 |.Y0$.".".TC$.CL$|
00000AD0: 3A 59 31 24 B2 56 43 24 AA 22 91 12 22 3A 59 32 |:Y1$.VC$."..":Y2|
00000AE0: 24 B2 22 92 3A 2D 3E 22 AA 54 43 24 3A 43 39 B2 |$.".:->".TC$:C9.|
00000AF0: 31 00 21 13 DA 07 81 49 B2 30 A4 49 49 A9 38 3A |1.!....I.0.II.8:|
00000B00: 59 24 B2 59 31 24 AA C9 28 22 20 20 22 AA C4 28 |Y$.Y1$..(" "..(|
00000B10: 49 29 2C 33 29 AA 59 32 24 3A 45 30 24 B2 45 45 |I),3).Y2$:E0$.EE|
00000B20: 24 00 4A 13 DC 07 99 59 30 24 3A 99 59 24 3B 3A |$.J....Y0$:.Y$;:|
00000B30: 81 4A B2 30 A4 37 3A 48 B2 49 AA 4A 3A 43 35 B2 |.J.0.7:H.I.J:C5.|
00000B40: 43 28 48 29 3A 43 36 B2 43 35 00 71 13 DD 07 8B |C(H):C6.C5.q....|
00000B50: 28 43 35 B3 5A 31 B0 43 35 B1 5A 32 29 B0 28 43 |(C5.Z1.C5.Z2).(C|
00000B60: 35 B1 5A 33 AF 43 35 B3 5A 34 29 A7 43 36 B2 33 |5.Z3.C5.Z4).C6.3|
00000B70: 32 00 83 13 DE 07 45 30 24 B2 45 30 24 AA C7 28 |2.....E0$.E0$..(|
00000B80: 43 36 29 00 BD 13 DF 07 45 24 B2 C9 28 22 20 20 |C6).....E$..(" |
00000B90: 20 22 AA C4 28 43 35 29 2C 33 29 3A 8B 20 48 58 | "..(C5),3):. HX|
00000BA0: 20 A7 20 4D 24 B2 22 22 3A 4D B2 43 35 3A 8D 39 | . M$."":M.C5:.9|
00000BB0: 35 30 35 3A 45 24 B2 22 20 22 AA 4D 24 00 DA 13 |505:E$." ".M$...|
00000BC0: E4 07 99 52 24 28 50 29 45 24 52 24 28 31 AB 50 |...R$(P)E$R$(1.P|
00000BD0: 29 3B 3A 50 B2 31 AB 50 3A 82 00 EE 13 E5 07 A1 |);:P.1.P:.......|
00000BE0: 41 24 3A 8B 41 24 B2 22 22 89 32 30 33 30 00 07 |A$:.A$."".2030..|
00000BF0: 14 E9 07 8B 41 24 B2 C7 28 31 33 29 A7 49 49 B2 |....A$..(13).II.|
00000C00: 49 3A 49 B2 32 35 35 00 20 14 EA 07 8B 41 24 B2 |I:I.255. ....A$.|
00000C10: C7 28 33 32 29 A7 8D 33 31 30 3A 89 32 30 32 31 |.(32)..310:.2021|
00000C20: 00 3F 14 EE 07 99 45 30 24 3A 82 3A 99 43 4C 24 |.?....E0$:.:.CL$|
00000C30: 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 43 4C 24 00 |:.CL$:.CL$:.CL$.|
00000C40: 74 14 EF 07 99 22 91 91 91 91 22 53 30 24 3A 99 |t...."...."S0$:.|
00000C50: 56 43 24 22 C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 |VC$"....... ....|
00000C60: CB 2C D3 C5 C3 D4 CF D2 3D 22 54 22 2C 22 3B 53 |.,......="T",";S|
00000C70: 3B 54 43 24 00 95 14 F3 07 99 22 4E 45 58 54 20 |;TC$......"NEXT |
00000C80: 54 52 41 43 4B 2C 53 45 43 54 4F 52 3D 22 4E 54 |TRACK,SECTOR="NT|
00000C90: 22 2C 22 4E 53 00 A4 14 F8 07 8B 49 4A B2 30 A7 |","NS......IJ.0.|
00000CA0: 8D 33 30 30 00 AA 14 02 08 8E 00 BD 14 B8 0B 8F |.300............|
00000CB0: 20 4D 4F 44 49 46 59 20 42 4C 4F 43 4B 00 D0 14 | MODIFY BLOCK...|
00000CC0: B9 0B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000CD0: 00 FB 14 F4 0B 99 22 93 D4 48 45 20 C1 D3 C3 C9 |......"..HE ....|
00000CE0: C9 20 43 4F 44 45 20 46 4F 52 20 45 41 43 48 20 |. CODE FOR EACH |
00000CF0: 42 4C 4F 43 4B 2D 42 59 54 45 22 00 2A 15 FE 0B |BLOCK-BYTE".*...|
00000D00: 99 22 11 57 49 4C 4C 20 42 45 20 44 49 53 50 4C |.".WILL BE DISPL|
00000D10: 41 59 45 44 2E 2E 49 2E 45 2E 20 43 28 30 29 2E |AYED..I.E. C(0).|
00000D20: 2E 2E 43 28 32 35 35 29 2E 22 00 5A 15 08 0C 99 |..C(255).".Z....|
00000D30: 22 11 D9 4F 55 20 4D 41 59 20 52 45 44 45 46 49 |"..OU MAY REDEFI|
00000D40: 4E 45 20 41 4E 59 20 43 28 49 29 2E 20 D4 48 45 |NE ANY C(I). .HE|
00000D50: 20 4D 4F 44 49 46 49 45 44 22 00 84 15 12 0C 99 | MODIFIED"......|
00000D60: 22 11 42 4C 4F 43 4B 20 57 49 4C 4C 20 42 45 20 |".BLOCK WILL BE |
00000D70: 57 52 49 54 54 45 4E 20 54 4F 20 54 48 45 20 44 |WRITTEN TO THE D|
00000D80: 49 53 4B 22 00 AE 15 1C 0C 99 22 11 49 4E 54 4F |ISK"......".INTO|
00000D90: 20 54 48 45 20 D4 52 41 43 4B 2C D3 45 43 54 4F | THE .RACK,.ECTO|
00000DA0: 52 20 59 4F 55 20 53 45 4C 45 43 54 2E 22 00 DC |R YOU SELECT."..|
00000DB0: 15 1D 0C 99 22 11 D4 4F 20 45 4E 54 45 52 20 41 |...."..O ENTER A|
00000DC0: 20 D3 D4 D2 C9 CE C7 2C 20 53 45 4C 45 43 54 20 | ......, SELECT |
00000DD0: 54 48 45 20 49 20 57 48 49 43 48 22 00 05 16 1E |THE I WHICH"....|
00000DE0: 0C 99 22 11 42 45 47 49 4E 53 20 54 48 45 20 D3 |..".BEGINS THE .|
00000DF0: D4 D2 C9 CE C7 20 41 4E 44 20 57 48 45 4E 20 41 |..... AND WHEN A|
00000E00: 53 4B 45 44 22 00 2A 16 1F 0C 99 22 11 46 4F 52 |SKED".*....".FOR|
00000E10: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 49 2C | THE VALUE OF I,|
00000E20: 20 45 4E 54 45 52 20 49 2A 22 00 57 16 20 0C 99 | ENTER I*".W. ..|
00000E30: 22 11 45 58 41 4D 50 4C 45 3A 20 54 4F 20 4D 4F |".EXAMPLE: TO MO|
00000E40: 44 49 46 59 20 42 59 54 45 53 20 53 54 41 52 54 |DIFY BYTES START|
00000E50: 49 4E 47 20 41 54 22 00 70 16 21 0C 99 22 11 20 |ING AT".p.!..". |
00000E60: 49 3D 31 32 2C 20 45 4E 54 45 52 20 31 32 2A 22 |I=12, ENTER 12*"|
00000E70: 00 9F 16 26 0C 99 22 11 12 C2 C5 20 D3 D5 D2 C5 |...&..".... ....|
00000E80: 20 C1 20 C3 CF CD D0 CC C5 D4 C5 20 C2 CC CF C3 | . ........ ....|
00000E90: CB 20 D7 C1 D3 20 CC CF C1 C4 C5 C4 21 21 22 00 |. ... ......!!".|
00000EA0: BB 16 30 0C 8D 33 30 30 3A 99 22 93 22 3A 49 49 |..0..300:.".":II|
00000EB0: B2 32 35 35 AB 38 3A 49 4A B2 31 00 CA 16 3A 0C |.255.8:IJ.1...:.|
00000EC0: 99 22 13 22 3A 8D 32 30 30 35 00 F2 16 44 0C 99 |.".":.2005...D..|
00000ED0: 56 43 24 22 3E 3E 3E 12 D2 C5 D4 D5 D2 CE 20 54 |VC$">>>....... T|
00000EE0: 4F 20 51 55 49 54 92 3C 3C 3C 22 54 43 24 3A A1 |O QUIT.<<<"TC$:.|
00000EF0: 49 24 00 2F 17 4E 0C 85 22 12 D7 C8 C9 C3 C8 20 |I$./.N.."...... |
00000F00: 49 20 C4 CF A0 D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF |I ..............|
00000F10: A0 CD CF C4 C9 C6 D9 92 20 20 20 20 20 9D 9D A6 |........ ...|
00000F20: 9D 9D 9D 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 |...";I$:I..(I$).|
00000F30: 40 17 58 0C 8B 49 24 B2 22 A6 22 89 33 31 37 33 |@.X..I$.".".3173|
00000F40: 00 5E 17 5D 0C 8B C9 28 49 24 2C 31 29 B2 22 2A |.^.]...(I$,1)."*|
00000F50: 22 A7 8D 36 31 30 30 30 3A 89 33 31 37 33 00 A2 |"..61000:.3173..|
00000F60: 17 62 0C 99 22 43 55 52 52 45 4E 54 20 43 28 22 |.b.."CURRENT C("|
00000F70: 49 22 29 3D 20 20 20 20 20 A0 9D 9D 9D 9D 9D 22 |I")= ......"|
00000F80: 43 28 49 29 22 20 4E 45 57 20 56 41 4C 55 45 3D |C(I)" NEW VALUE=|
00000F90: 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 3A 85 43 28 | .....";:.C(|
00000FA0: 49 29 00 B1 17 63 0C 8B 49 B1 49 49 A7 49 49 B2 |I)...c..I.II.II.|
00000FB0: 49 00 BB 17 64 0C 89 33 31 35 30 00 E1 17 65 0C |I...d..3150...e.|
00000FC0: 99 22 93 22 3A 8D 32 30 30 35 3A 99 22 20 20 20 |.".":.2005:." |
00000FD0: 20 20 20 20 20 3E 3E 3E 12 4F 4B 92 3F 20 20 22 | >>>.OK.? "|
00000FE0: 3B 00 FB 17 66 0C 8D 33 31 30 3A 8B 49 4E 24 B2 |;...f..310:.IN$.|
00000FF0: 22 4E 22 A7 99 3A 89 33 31 35 30 00 1F 18 67 0C |"N"..:.3150...g.|
00001000: 85 22 93 12 52 45 54 55 52 4E 20 54 4F 20 4D 45 |."..RETURN TO ME|
00001010: 4E 55 92 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 00 |NU. N...";IN$.|
00001020: 2E 18 68 0C 8B 49 4E 24 B2 22 59 22 A7 8E 00 58 |..h..IN$."Y"...X|
00001030: 18 69 0C 99 56 43 24 22 93 C3 D5 D2 D2 C5 CE D4 |.i..VC$"........|
00001040: 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 3D 22 54 | .....,......="T|
00001050: 22 2C 22 53 3B 54 43 24 00 79 18 6A 0C 99 22 4E |","S;TC$.y.j.."N|
00001060: 45 58 54 20 54 52 41 43 4B 2C 53 45 43 54 4F 52 |EXT TRACK,SECTOR|
00001070: 3D 22 4E 54 22 2C 22 4E 53 00 A6 18 6C 0C 99 22 |="NT","NS...l.."|
00001080: 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 |.............. .|
00001090: D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 22 |....,....... "|
000010A0: 3B 54 22 2C 22 53 00 CF 18 6D 0C 85 22 91 12 C4 |;T","S...m.."...|
000010B0: C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB |.......... .....|
000010C0: 2C D3 C5 C3 D4 CF D2 92 1D 1D 22 3B 54 2C 53 00 |,.........";T,S.|
000010D0: F3 18 76 0C 99 22 11 11 11 12 C4 C5 D3 D4 C9 CE |..v.."..........|
000010E0: C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 A0 22 |..... ........."|
000010F0: 3B 44 52 00 37 19 77 0C 85 22 91 12 C4 C5 D3 D4 |;DR.7.w.."......|
00001100: C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 1D 1D |....... ........|
00001110: 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 3A |";DR$:DR..(DR$):|
00001120: 8B 44 52 24 B3 B1 22 30 22 AF 44 52 24 B3 B1 22 |.DR$.."0".DR$.."|
00001130: 31 22 A7 33 31 39 30 00 4C 19 80 0C A0 33 3A A0 |1".3190.L....3:.|
00001140: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 63 19 8A |15:.15,DV,15.c..|
00001150: 0C 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D 36 33 |..3,DV,3,"#":.63|
00001160: 39 30 30 00 98 19 8F 0C A1 23 33 2C 42 4E 24 3A |900......#3,BN$:|
00001170: 42 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 |BN..(BN$):."."SD|
00001180: 24 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 |$"....FILLING ..|
00001190: C6 C6 C5 D2 23 22 42 4E 00 A5 19 99 0C 81 49 B2 |....#"BN......I.|
000011A0: 30 A4 32 35 35 00 D1 19 9E 0C 98 31 35 2C 22 42 |0.255......15,"B|
000011B0: 2D 50 22 2C 33 2C 49 3A 98 33 2C C7 28 43 28 49 |-P",3,I:.3,.(C(I|
000011C0: 29 29 3B 3A 99 22 13 20 20 20 9D 9D 9D 22 49 3A |));:.". ..."I:|
000011D0: 82 00 E8 19 D0 0C 98 31 35 2C 22 55 32 3A 22 3B |.......15,"U2:";|
000011E0: 33 3B 44 52 3B 54 3B 53 00 0D 1A DA 0C 98 31 35 |3;DR;T;S......15|
000011F0: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A |,"I".DR$:.63900:|
00001200: A0 33 3A A0 31 35 3A 99 22 93 22 3A 8E 00 25 1A |.3:.15:.".":..%.|
00001210: A0 0F 8F 20 53 54 4F 52 45 20 43 28 49 29 20 49 |... STORE C(I) I|
00001220: 4E 20 52 41 4D 00 3D 1A A1 0F 8F 22 B8 B8 B8 B8 |N RAM.=...."....|
00001230: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 57 1A |..............W.|
00001240: A2 0F 49 4A B2 30 3A 49 49 B2 32 35 35 3A 99 22 |..IJ.0:II.255:."|
00001250: 93 22 3A 48 58 B2 30 00 67 1A A5 0F 99 22 93 22 |.":HX.0.g...."."|
00001260: 3B 3A 8D 32 30 30 35 00 A6 1A B4 0F 85 22 12 D3 |;:.2005......"..|
00001270: D4 C1 D2 D4 C9 CE C7 A0 D6 C1 CC D5 C5 A0 49 4E |..............IN|
00001280: 20 C2 4C 4F 43 4B 92 20 20 20 A6 9D 9D 9D 22 3B | .LOCK. ....";|
00001290: 49 31 3A 8B 49 31 B1 32 35 35 A7 99 22 91 22 3B |I1:.I1.255..".";|
000012A0: 3A 89 34 30 32 30 00 D3 1A BE 0F 99 22 12 D3 D4 |:.4020......"...|
000012B0: C1 D2 D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF |................|
000012C0: C3 27 CE 92 28 24 3D C8 C5 D8 29 20 20 24 37 30 |.'..($=...) $70|
000012D0: 30 30 22 00 03 1B C3 0F 85 22 91 12 D3 D4 C1 D2 |00"......"......|
000012E0: D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF C3 27 |...............'|
000012F0: CE 92 28 24 3D C8 C5 D8 29 22 3B 4D 24 3A 8D 39 |..($=...)";M$:.9|
00001300: 30 30 30 00 23 1B C8 0F 81 4B 31 B2 49 31 A4 32 |000.#....K1.I1.2|
00001310: 35 35 3A 97 4D AB 49 31 AA 4B 31 2C 43 28 4B 31 |55:.M.I1.K1,C(K1|
00001320: 29 3A 82 00 58 1B D2 0F 4D B2 4D AB 49 31 AA 32 |):..X...M.M.I1.2|
00001330: 35 36 3A 99 22 12 CE C5 D8 D4 92 20 4D 45 4D 27 |56:."...... MEM'|
00001340: 59 20 4C 4F 43 27 4E 3D 22 4D 3B 3A 8D 39 35 30 |Y LOC'N="M;:.950|
00001350: 30 3A 99 22 12 22 4D 24 00 69 1B DC 0F 8D 33 30 |0:."."M$.i....30|
00001360: 30 3A 99 22 93 22 3B 3A 8E 00 81 1B 88 13 8F 20 |0:.".";:....... |
00001370: 57 52 49 54 45 20 52 41 4D 20 54 4F 20 44 49 53 |WRITE RAM TO DIS|
00001380: 4B 00 99 1B 89 13 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 |K......"........|
00001390: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 D0 1B 9C 13 85 22 |..............."|
000013A0: 93 11 12 CD C5 CD 27 D9 20 CC CF C3 27 CE 20 CF |......'. ...'. .|
000013B0: C6 20 C2 CC CF C3 CB 92 28 24 3D C8 C5 D8 29 20 |. ......($=...) |
000013C0: 20 20 A6 9D 9D 9D 22 3B 4D 24 3A 8D 39 30 30 30 | ....";M$:.9000|
000013D0: 00 F2 1B A6 13 85 22 11 12 D3 D4 C1 D2 D4 20 D7 |......"....... .|
000013E0: C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D 9D 9D 22 3B |... I.=.......";|
000013F0: 49 31 00 12 1C B0 13 85 22 11 12 C5 CE C4 20 D7 |I1......"..... .|
00001400: C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D 9D 9D 22 3B |... I.=.......";|
00001410: 49 32 00 2D 1C C4 13 81 49 B2 49 31 A4 49 32 3A |I2.-....I.I1.I2:|
00001420: 43 28 49 29 B2 C2 28 4D AA 49 29 3A 82 00 5D 1C |C(I)..(M.I):..].|
00001430: CE 13 85 22 93 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 |..."............|
00001440: C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 |... .....,......|
00001450: 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 9E 1C |. ....";T,S...|
00001460: D8 13 85 22 11 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 |..."............|
00001470: C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 A0 A6 9D 9D |... ............|
00001480: 9D 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 |.";DR$:DR..(DR$)|
00001490: 3A 8B 44 52 24 B2 22 A6 22 A7 35 30 38 30 00 DF |:.DR$.".".5080..|
000014A0: 1C E2 13 9F 33 2C 44 56 2C 33 2C 22 23 22 3A A1 |....3,DV,3,"#":.|
000014B0: 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 |#3,BN$:BN..(BN$)|
000014C0: 3A 99 22 93 22 53 44 24 22 11 11 11 11 46 49 4C |:."."SD$"....FIL|
000014D0: 4C 49 4E 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E 00 |LING ......#"BN.|
000014E0: F8 1C EC 13 81 49 B2 49 31 A4 49 32 3A 99 22 13 |.....I.I1.I2:.".|
000014F0: 20 20 20 9D 9D 9D 22 49 00 18 1D F6 13 98 31 35 | ..."I......15|
00001500: 2C 22 42 2D 50 22 3B 33 3B 49 3A 98 33 2C C7 28 |,"B-P";3;I:.3,.(|
00001510: 43 28 49 29 29 3B 3A 82 00 2F 1D 14 14 98 31 35 |C(I));:../....15|
00001520: 2C 22 55 32 3A 22 3B 33 3B 44 52 3B 54 3B 53 00 |,"U2:";3;DR;T;S.|
00001530: 54 1D 1E 14 98 31 35 2C 22 49 22 AA 44 52 24 3A |T....15,"I".DR$:|
00001540: 8D 36 33 39 30 30 3A A0 33 3A A0 31 35 3A 99 22 |.63900:.3:.15:."|
00001550: 93 22 3A 8E 00 5E 1D 70 17 8F 20 42 41 4D 00 68 |.":..^.p.. BAM.h|
00001560: 1D 7A 17 8F 22 B8 B8 B8 00 90 1D 7F 17 97 35 33 |.z..".........53|
00001570: 32 38 30 2C 46 35 3A 99 22 93 22 3A 58 B2 33 30 |280,F5:.".":X.30|
00001580: 3A 58 24 B2 22 C2 C1 CD 22 3A 8D 35 34 30 30 30 |:X$."...":.54000|
00001590: 00 AA 1D 84 17 96 20 A5 42 28 49 29 B2 28 5A AF |...... .B(I).(Z.|
000015A0: 50 28 49 29 29 AD 50 28 49 29 00 B9 1D 8E 17 A0 |P(I)).P(I)......|
000015B0: 31 35 3A 8D 35 38 30 31 30 00 D3 1D 98 17 99 22 |15:.58010......"|
000015C0: 13 11 11 12 31 92 3A C4 49 53 50 4C 41 59 20 42 |....1.:.ISPLAY B|
000015D0: 41 4D 22 00 EA 1D A2 17 99 22 11 12 32 92 3A C3 |AM"......"..2.:.|
000015E0: 48 41 4E 47 45 20 42 41 4D 22 00 0B 1E AC 17 99 |HANGE BAM"......|
000015F0: 56 43 24 22 11 11 11 12 52 45 54 55 52 4E 92 20 |VC$"....RETURN. |
00001600: 54 4F 20 45 58 49 54 22 54 43 24 00 27 1E B6 17 |TO EXIT"TC$.'...|
00001610: 8D 33 31 30 3A 99 22 93 22 3A 8B 49 4E 24 B2 43 |.310:.".":.IN$.C|
00001620: 52 24 A7 36 30 39 35 00 40 1E C0 17 8D 35 38 30 |R$.6095.@....580|
00001630: 32 30 3A 91 49 4E 8D 36 31 30 30 2C 36 32 38 30 |20:.IN.6100,6280|
00001640: 00 4A 1E CA 17 89 36 30 30 30 00 76 1E CF 17 A0 |.J....6000.v....|
00001650: 32 3A A0 33 3A 9F 31 35 2C 44 56 2C 31 35 2C 22 |2:.3:.15,DV,15,"|
00001660: 49 22 AA 44 52 24 3A 8D 35 38 30 31 30 3A 8D 36 |I".DR$:.58010:.6|
00001670: 33 39 30 30 3A 8E 00 88 1E D4 17 8F 20 44 49 53 |3900:....... DIS|
00001680: 50 4C 41 59 20 42 41 4D 00 9A 1E DE 17 8F 22 A3 |PLAY BAM......".|
00001690: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 BF 1E E8 17 99 |................|
000016A0: 22 11 11 57 48 49 43 48 20 54 52 41 43 4B 53 22 |"..WHICH TRACKS"|
000016B0: 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |:.".............|
000016C0: E6 1E F2 17 85 22 11 11 46 49 52 53 54 2C 4C 41 |....."..FIRST,LA|
000016D0: 53 54 20 54 52 41 43 4B 20 20 20 A6 9D 9D 9D 22 |ST TRACK ...."|
000016E0: 3B 54 53 2C 54 45 00 05 1F 06 18 99 22 93 12 52 |;TS,TE......"..R|
000016F0: 45 54 55 52 4E 92 92 20 54 4F 20 53 54 4F 50 22 |ETURN.. TO STOP"|
00001700: 3A 99 53 30 24 00 22 1F 10 18 9F 31 35 2C 44 56 |:.S0$."....15,DV|
00001710: 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 |,15,"I".DR$:.639|
00001720: 30 30 00 3D 1F 1A 18 9F 32 2C 44 56 2C 32 2C 22 |00.=....2,DV,2,"|
00001730: 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 00 51 1F |$".DR$:.63900.Q.|
00001740: 24 18 46 46 B2 44 31 AA 28 54 53 AB 31 29 AC 53 |$.FF.D1.(TS.1).S|
00001750: 33 00 66 1F 2E 18 81 4B B2 30 A4 46 46 3A A1 23 |3.f....K.0.FF:.#|
00001760: 32 2C 41 24 3A 82 00 89 1F 38 18 81 54 B2 54 53 |2,A$:....8..T.TS|
00001770: A4 54 45 3A 8B 54 B2 35 31 A7 A1 23 32 2C 41 24 |.TE:.T.51..#2,A$|
00001780: 2C 41 24 2C 41 24 2C 41 24 00 93 1F 42 18 8D 36 |,A$,A$,A$...B..6|
00001790: 34 30 30 00 AA 1F 4C 18 A1 41 24 3A 8B 41 24 B3 |400...L..A$:.A$.|
000017A0: B1 22 22 A7 54 B2 54 45 AA 31 00 C4 1F 56 18 82 |."".T.TE.1...V..|
000017B0: 3A A0 32 3A A0 31 35 3A 8D 36 38 37 30 3A 8D 33 |:.2:.15:.6870:.3|
000017C0: 31 30 3A 8E 00 D5 1F 60 18 8F 20 43 48 41 4E 47 |10:....`.. CHANG|
000017D0: 45 20 42 41 4D 00 E6 1F 6A 18 8F 22 A3 A3 A3 A3 |E BAM...j.."....|
000017E0: A3 A3 A3 A3 A3 A3 00 05 20 74 18 85 22 93 4D 4F |........ t..".MO|
000017F0: 52 45 20 43 48 41 4E 47 45 53 20 20 20 59 9D 9D |RE CHANGES Y..|
00001800: 9D 22 3B 49 24 00 14 20 7E 18 8B 49 24 B3 B1 22 |.";I$.. ~..I$.."|
00001810: 59 22 A7 8E 00 51 20 88 18 8B 44 54 B2 36 37 A7 |Y"...Q ...DT.67.|
00001820: 99 22 93 53 4F 52 52 59 2E 2E 43 41 4E 27 54 20 |.".SORRY..CAN'T |
00001830: 43 48 41 4E 47 45 20 42 41 4D 20 46 4F 52 20 54 |CHANGE BAM FOR T|
00001840: 48 49 53 20 44 49 53 4B 2E 22 3A 8D 33 31 30 3A |HIS DISK.":.310:|
00001850: 8E 00 68 20 8D 18 85 22 93 54 52 41 43 4B 20 20 |..h ...".TRACK |
00001860: 20 D6 9D 9D 9D 22 3B 54 00 7A 20 92 18 A0 31 35 | ....";T.z ...15|
00001870: 3A 9F 31 35 2C 44 56 2C 31 35 00 94 20 9C 18 A0 |:.15,DV,15.. ...|
00001880: 32 3A 9F 32 2C 44 56 2C 32 2C 22 23 22 3A 8D 36 |2:.2,DV,2,"#":.6|
00001890: 33 39 30 30 00 AC 20 A6 18 98 31 35 2C 22 55 31 |3900.. ...15,"U1|
000018A0: 3A 22 3B 32 3B 44 52 3B 44 49 3B 30 00 C0 20 B0 |:";2;DR;DI;0.. .|
000018B0: 18 98 31 35 2C 22 42 2D 50 22 3B 32 3B 54 AC 34 |..15,"B-P";2;T.4|
000018C0: 00 F0 20 BA 18 99 56 43 24 22 93 48 49 54 20 12 |.. ...VC$".HIT .|
000018D0: 52 45 54 55 52 4E 92 20 54 4F 20 51 55 49 54 11 |RETURN. TO QUIT.|
000018E0: 22 54 43 24 3A 8D 36 34 30 30 3A 8D 36 35 38 30 |"TC$:.6400:.6580|
000018F0: 00 30 21 C4 18 85 22 13 11 11 11 11 11 11 11 11 |.0!...".........|
00001900: 11 43 48 41 4E 47 45 20 57 48 49 43 48 20 53 45 |.CHANGE WHICH SE|
00001910: 43 54 4F 52 20 20 20 20 20 9D 9D D6 9D 9D 9D 22 |CTOR ......"|
00001920: 3B 53 24 3A 8B 53 24 B2 22 D6 22 A7 36 32 36 30 |;S$:.S$.".".6260|
00001930: 00 4F 21 CE 18 53 B2 C5 28 53 24 29 3A 8B 53 B3 |.O!..S..(S$):.S.|
00001940: 30 B0 53 B1 B2 53 43 28 54 29 A7 36 32 36 30 00 |0.S..SC(T).6260.|
00001950: 5F 21 D8 18 A0 32 3A A0 31 35 3A 99 53 44 24 00 |_!...2:.15:.SD$.|
00001960: 8E 21 E2 18 8D 36 36 32 30 3A 8D 36 34 38 30 3A |.!...6620:.6480:|
00001970: 8D 36 35 38 30 3A 99 3A 99 4D 44 24 22 12 4F 4B |.6580:.:.MD$".OK|
00001980: 3F 92 22 3B 3A 8D 33 31 30 3A 99 43 4C 24 00 A1 |?.";:.310:.CL$..|
00001990: 21 EC 18 8B 49 4E 24 B2 22 59 22 A7 8D 36 37 33 |!...IN$."Y"..673|
000019A0: 30 00 B0 21 F1 18 99 4D 44 24 43 4C 24 53 44 24 |0..!...MD$CL$SD$|
000019B0: 00 C0 21 F6 18 8D 36 34 38 30 3A 89 36 33 34 30 |..!...6480:.6340|
000019C0: 00 D3 21 00 19 81 4B B2 30 A4 53 32 3A A1 23 32 |..!...K.0.S2:.#2|
000019D0: 2C 41 24 00 E5 21 0A 19 8B 41 24 B2 22 22 A7 41 |,A$..!...A$."".A|
000019E0: 24 B2 43 5A 24 00 F6 21 14 19 42 28 4B 29 B2 C6 |$.CZ$..!..B(K)..|
000019F0: 28 41 24 29 3A 82 00 08 22 50 19 8F 20 50 52 49 |(A$):..."P.. PRI|
00001A00: 4E 54 20 54 52 41 43 4B 00 1A 22 5A 19 8F 22 A3 |NT TRACK.."Z..".|
00001A10: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 2D 22 64 19 81 |...........-"d..|
00001A20: 4B B2 31 A4 53 31 3A 5A B2 42 28 4B 29 00 38 22 |K.1.S1:Z.B(K).8"|
00001A30: 6E 19 81 49 B2 30 A4 37 00 4F 22 78 19 58 B2 A5 |n..I.0.7.O"x.X..|
00001A40: 42 28 49 29 3A 99 58 24 28 58 29 3B 3A 82 49 00 |B(I):.X$(X);:.I.|
00001A50: 56 22 82 19 82 4B 00 73 22 8C 19 5A B2 42 28 4B |V"...K.s"..Z.B(K|
00001A60: 29 3A 81 49 B2 30 A4 53 43 28 54 29 AB 53 43 28 |):.I.0.SC(T).SC(|
00001A70: 54 54 29 00 8C 22 96 19 58 B2 A5 42 28 49 29 3A |TT).."..X..B(I):|
00001A80: 99 58 24 28 58 29 3B 3A 82 49 3A 99 00 B1 22 A0 |.X$(X);:.I:...".|
00001A90: 19 99 22 91 22 A6 32 32 29 22 54 52 41 43 4B 12 |..".".22)"TRACK.|
00001AA0: 22 54 22 92 9D 46 52 45 45 3D 22 42 28 30 29 3A |"T"..FREE="B(0):|
00001AB0: 8E 00 C3 22 B4 19 99 C8 28 53 31 24 2C 53 43 28 |..."....(S1$,SC(|
00001AC0: 54 29 29 00 EF 22 BE 19 99 C8 28 53 32 24 2C 53 |T)).."....(S2$,S|
00001AD0: 43 28 54 29 29 3A 99 22 91 22 A6 32 33 29 22 23 |C(T)):.".".23)"#|
00001AE0: 20 53 45 43 54 4F 52 53 3D 22 53 43 28 54 29 00 | SECTORS="SC(T).|
00001AF0: 13 23 C8 19 8B 53 43 28 54 29 B2 32 31 A7 99 C8 |.#...SC(T).21...|
00001B00: 28 53 33 24 2C 53 43 28 54 29 AA 31 29 3A 89 36 |(S3$,SC(T).1):.6|
00001B10: 36 31 30 00 25 23 CD 19 99 C8 28 53 33 24 2C 53 |610.%#....(S3$,S|
00001B20: 43 28 54 29 29 00 30 23 D2 19 99 53 30 24 3A 8E |C(T)).0#...S0$:.|
00001B30: 00 44 23 DC 19 8F 20 43 48 41 4E 47 45 20 53 45 |.D#... CHANGE SE|
00001B40: 43 54 4F 52 00 58 23 E6 19 8F 22 A3 A3 A3 A3 A3 |CTOR.X#...".....|
00001B50: A3 A3 A3 A3 A3 A3 A3 A3 00 73 23 F0 19 8B 53 B3 |.........s#...S.|
00001B60: 38 A7 5A B2 42 28 31 29 3A 53 53 B2 53 3A 89 36 |8.Z.B(1):SS.S:.6|
00001B70: 36 37 30 00 91 23 FA 19 8B 53 B3 31 36 A7 5A B2 |670..#...S.16.Z.|
00001B80: 42 28 32 29 3A 53 53 B2 53 AB 38 3A 89 36 36 37 |B(2):SS.S.8:.667|
00001B90: 30 00 A4 23 04 1A 5A B2 42 28 33 29 3A 53 53 B2 |0..#..Z.B(3):SS.|
00001BA0: 53 AB 31 36 00 C1 23 0E 1A 4E 5A B2 28 A8 5A AF |S.16..#..NZ.(.Z.|
00001BB0: 50 28 53 53 29 29 B0 28 5A AF A8 50 28 53 53 29 |P(SS)).(Z..P(SS)|
00001BC0: 29 00 DD 23 18 1A 42 28 30 29 B2 42 28 30 29 AA |)..#..B(0).B(0).|
00001BD0: 28 4E 5A B3 5A 29 AB 28 4E 5A B1 5A 29 00 F4 23 |(NZ.Z).(NZ.Z)..#|
00001BE0: 22 1A 8B 53 B3 38 A7 42 28 31 29 B2 4E 5A 3A 89 |"..S.8.B(1).NZ:.|
00001BF0: 36 37 32 30 00 0C 24 2C 1A 8B 53 B3 31 36 A7 42 |6720..$,..S.16.B|
00001C00: 28 32 29 B2 4E 5A 3A 89 36 37 32 30 00 18 24 36 |(2).NZ:.6720..$6|
00001C10: 1A 42 28 33 29 B2 4E 5A 00 1E 24 40 1A 8E 00 2C |.B(3).NZ..$@...,|
00001C20: 24 4A 1A 9F 31 35 2C 44 56 2C 31 35 00 64 24 54 |$J..15,DV,15.d$T|
00001C30: 1A 99 4D 44 24 56 43 24 22 12 41 52 45 20 59 4F |..MD$VC$".ARE YO|
00001C40: 55 20 53 55 52 45 3F 92 22 54 43 24 3B 3A 8D 33 |U SURE?."TC$;:.3|
00001C50: 31 30 3A 99 49 4E 24 3B 3A 8B 49 4E 24 B3 B1 22 |10:.IN$;:.IN$.."|
00001C60: 59 22 A7 8E 00 7E 24 5E 1A 99 22 2E 2E 12 43 48 |Y"...~$^.."...CH|
00001C70: 41 4E 47 49 4E 47 20 42 41 4D 2E 2E 22 3B 00 95 |ANGING BAM..";..|
00001C80: 24 68 1A 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D |$h..3,DV,3,"#":.|
00001C90: 36 33 39 30 30 00 AB 24 72 1A A1 23 33 2C 42 4E |63900..$r..#3,BN|
00001CA0: 24 3A 42 4E B2 C6 28 42 4E 24 29 00 D7 24 90 1A |$:BN..(BN$)..$..|
00001CB0: 81 49 B2 30 A4 53 32 3A 98 31 35 2C 22 42 2D 50 |.I.0.S2:.15,"B-P|
00001CC0: 22 3B 33 3B 49 AA 54 AC 34 3A 98 33 2C C7 28 42 |";3;I.T.4:.3,.(B|
00001CD0: 28 49 29 29 3B 3A 82 00 EF 24 B8 1A 98 31 35 2C |(I));:...$...15,|
00001CE0: 22 55 32 3A 22 3B 33 3B 44 52 3B 44 49 3B 30 00 |"U2:";3;DR;DI;0.|
00001CF0: 0F 25 C2 1A 98 31 35 2C 22 49 22 AA 44 52 24 3A |.%...15,"I".DR$:|
00001D00: 8D 36 33 39 30 30 3A A0 33 3A A0 31 35 3A 8E 00 |.63900:.3:.15:..|
00001D10: 47 25 D6 1A 99 22 13 11 11 11 11 11 11 11 11 11 |G%..."..........|
00001D20: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 12 |................|
00001D30: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
00001D40: 4E 55 45 22 3B 3A 8E 00 68 25 F4 1A 99 56 43 24 |NUE";:..h%...VC$|
00001D50: 22 11 11 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |"........... TO |
00001D60: 45 58 49 54 22 54 43 24 00 73 25 FE 1A 8D 33 31 |EXIT"TC$.s%...31|
00001D70: 30 3A 8E 00 87 25 58 1B 8F 20 44 49 53 4B 20 43 |0:...%X.. DISK C|
00001D80: 4F 4D 4D 41 4E 44 53 00 9B 25 59 1B 8F 22 B8 B8 |OMMANDS..%Y.."..|
00001D90: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 D3 25 5A 1B |.............%Z.|
00001DA0: 97 35 33 32 38 30 2C 46 35 3A 8D 35 38 30 31 30 |.53280,F5:.58010|
00001DB0: 3A 99 22 93 22 3A 58 24 B2 22 C4 C9 D3 CB 22 3A |:.".":X$."....":|
00001DC0: 58 B2 33 30 3A 8D 35 34 30 30 30 3A 99 22 13 22 |X.30:.54000:."."|
00001DD0: 48 44 24 00 13 26 5B 1B A0 31 35 3A 44 24 28 31 |HD$..&[..15:D$(1|
00001DE0: 29 B2 22 C9 4E 49 54 49 41 4C 49 5A 45 22 3A 44 |).".NITIALIZE":D|
00001DF0: 24 28 32 29 B2 22 D6 41 4C 49 44 41 54 45 22 3A |$(2).".ALIDATE":|
00001E00: 44 24 28 33 29 B2 22 C6 4F 52 4D 41 54 20 C4 49 |D$(3).".ORMAT .I|
00001E10: 53 4B 22 00 2B 26 5C 1B 44 24 28 34 29 B2 22 C3 |SK".+&\.D$(4).".|
00001E20: 48 41 4E 47 45 20 C4 C9 D3 CB 22 00 49 26 5D 1B |HANGE ....".I&].|
00001E30: 44 24 28 35 29 B2 22 C4 49 53 50 4C 41 59 20 C4 |D$(5).".ISPLAY .|
00001E40: 49 52 45 43 54 4F 52 59 22 00 64 26 5E 1B 44 24 |IRECTORY".d&^.D$|
00001E50: 28 36 29 B2 22 C3 48 41 4E 47 45 20 C4 C5 D6 C9 |(6).".HANGE ....|
00001E60: C3 C5 23 22 00 A2 26 5F 1B 44 24 28 37 29 B2 22 |..#"..&_.D$(7)."|
00001E70: C3 48 45 43 4B 20 46 4F 52 20 C4 C9 D3 CB 20 C5 |.HECK FOR .... .|
00001E80: D2 D2 CF D2 22 3A 44 24 28 38 29 B2 22 C3 48 45 |....":D$(8).".HE|
00001E90: 43 4B 20 46 4F 52 20 C2 C1 C4 20 42 4C 4F 43 4B |CK FOR ... BLOCK|
00001EA0: 53 22 00 C6 26 60 1B 44 24 28 39 29 B2 22 C2 41 |S"..&`.D$(9).".A|
00001EB0: 43 4B 55 50 20 28 42 4C 4F 43 4B 2D 42 59 2D 42 |CKUP (BLOCK-BY-B|
00001EC0: 4C 4F 43 4B 29 22 00 03 27 62 1B 81 49 B2 31 A4 |LOCK)"..'b..I.1.|
00001ED0: 39 3A 99 22 11 12 22 49 22 92 3A 22 44 24 28 49 |9:.".."I".:"D$(I|
00001EE0: 29 3A 82 3A 99 53 30 24 3A 99 56 43 24 22 11 12 |):.:.S0$:.VC$"..|
00001EF0: D2 C5 D4 D5 D2 CE 92 20 54 4F 20 45 58 49 54 22 |....... TO EXIT"|
00001F00: 54 43 24 00 17 27 63 1B 8D 33 31 30 3A 8B 49 4E |TC$..'c..310:.IN|
00001F10: 24 B2 43 52 24 A7 8E 00 21 27 64 1B 99 22 13 11 |$.CR$...!'d.."..|
00001F20: 22 00 51 27 65 1B 81 49 B2 31 A4 49 4E 3A 99 22 |".Q'e..I.1.IN:."|
00001F30: 11 11 22 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 44 |..";:.:."....."D|
00001F40: 24 28 49 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A |$(IN):.T9.1.300:|
00001F50: 82 00 8B 27 67 1B 91 20 49 4E 20 8D 37 30 32 30 |...'g.. IN .7020|
00001F60: 2C 37 30 33 30 2C 37 30 33 35 2C 37 30 34 30 2C |,7030,7035,7040,|
00001F70: 31 31 30 30 30 2C 37 33 30 30 2C 37 33 35 30 2C |11000,7300,7350,|
00001F80: 35 31 30 30 30 2C 35 30 30 30 30 00 95 27 68 1B |51000,50000..'h.|
00001F90: 89 37 30 30 30 00 B4 27 6C 1B 9F 31 35 2C 44 56 |.7000..'l..15,DV|
00001FA0: 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 |,15,"I".DR$:.639|
00001FB0: 30 30 3A 8E 00 D3 27 76 1B 9F 31 35 2C 44 56 2C |00:...'v..15,DV,|
00001FC0: 31 35 2C 22 56 22 AA 44 52 24 3A 8D 36 33 39 30 |15,"V".DR$:.6390|
00001FD0: 30 3A 8E 00 13 28 7B 1B 85 22 93 11 11 CE C1 CD |0:...({.."......|
00001FE0: C5 20 46 4F 52 20 44 49 53 4B 22 3B 4E 4D 24 3A |. FOR DISK";NM$:|
00001FF0: 85 22 11 11 C9 C4 20 46 4F 52 20 44 49 53 4B 22 |.".... FOR DISK"|
00002000: 3B 49 44 24 3A 85 22 11 11 C4 D2 C9 D6 C5 22 3B |;ID$:.".......";|
00002010: 44 41 24 00 56 28 7C 1B 43 43 24 B2 22 4E 22 AA |DA$.V(|.CC$."N".|
00002020: 44 41 24 AA 22 3A 22 AA 4E 4D 24 AA 22 2C 22 AA |DA$.":".NM$.",".|
00002030: 49 44 24 3A 99 22 11 11 4F 50 45 4E 20 31 35 2C |ID$:."..OPEN 15,|
00002040: 22 44 56 22 2C 31 35 2C 22 C7 28 33 34 29 43 43 |"DV",15,".(34)CC|
00002050: 24 C7 28 33 34 29 00 86 28 7E 1B 85 22 11 11 C1 |$.(34)..(~.."...|
00002060: D2 C5 20 D9 CF D5 20 D3 D5 D2 C5 20 20 20 4E 9D |.. ... .... N.|
00002070: 9D 9D 22 3B 56 56 24 20 3A 8B 20 56 56 24 B3 B1 |..";VV$ :. VV$..|
00002080: 22 59 22 A7 20 8E 00 A1 28 7F 1B 9F 31 35 2C 44 |"Y". ...(...15,D|
00002090: 56 2C 31 35 2C 43 43 24 3A 8D 36 33 39 30 30 3A |V,15,CC$:.63900:|
000020A0: 8E 00 D2 28 80 1B 44 52 B2 C5 28 44 52 24 29 3A |...(..DR..(DR$):|
000020B0: 99 22 93 11 11 44 52 49 56 45 20 20 20 22 31 AB |."...DRIVE "1.|
000020C0: 44 52 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B 44 |DR:."........";D|
000020D0: 52 24 00 03 29 81 1B 4D 48 24 B2 22 44 52 49 56 |R$..)..MH$."DRIV|
000020E0: 45 20 22 AA 44 52 24 AA 22 12 20 20 2A 2A 2A 2A |E ".DR$.". ****|
000020F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002100: 2A 92 22 00 34 29 82 1B 4D 48 24 B2 22 44 52 49 |*.".4)..MH$."DRI|
00002110: 56 45 20 22 AA 44 52 24 AA 22 12 20 20 2A 2A 2A |VE ".DR$.". ***|
00002120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002130: 2A 2A 92 22 00 45 29 83 1B 8D 32 36 31 3A 8D 38 |**.".E)...261:.8|
00002140: 30 34 30 3A 8E 00 58 29 BC 1B 8F 20 54 52 41 43 |040:..X)... TRAC|
00002150: 45 20 42 4C 4F 43 4B 53 00 6B 29 BD 1B 8F 22 B8 |E BLOCKS.k)...".|
00002160: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 AF 29 BE 1B |.............)..|
00002170: 99 22 93 11 12 31 92 3A C4 49 53 50 4C 41 59 20 |."...1.:.ISPLAY |
00002180: C1 CC CC 20 4C 49 4E 4B 53 20 4F 4E 20 41 20 54 |... LINKS ON A T|
00002190: 52 41 43 4B 2E 22 3A 99 22 11 12 32 92 3A C6 4F |RACK.":."..2.:.O|
000021A0: 4C 4C 4F 57 20 4C 49 4E 4B 53 2E 11 11 11 22 00 |LLOW LINKS....".|
000021B0: DE 29 BF 1B 58 B2 33 30 3A 58 24 B2 22 D4 D2 C1 |.)..X.30:X$."...|
000021C0: C3 C5 22 3A 8D 35 34 30 30 30 3A 8D 36 39 30 30 |..":.54000:.6900|
000021D0: 3A 8B 20 49 4E 24 B2 43 52 24 20 A7 20 8E 00 12 |:. IN$.CR$ . ...|
000021E0: 2A C0 1B 85 22 93 11 11 D4 CF 20 D0 D2 C9 CE D4 |*..."..... .....|
000021F0: C5 D2 20 20 20 4E 9D 9D 9D 22 3B 49 49 24 3A 50 |.. N...";II$:P|
00002200: 44 B2 33 3A 8B 20 49 49 24 B2 22 59 22 A7 50 44 |D.3:. II$."Y".PD|
00002210: B2 34 00 29 2A C1 1B 9F 34 2C 50 44 3A 8B 20 49 |.4.)*...4,PD:. I|
00002220: 4E B2 32 20 A7 37 31 31 32 00 5F 2A C2 1B 85 22 |N.2 .7112._*..."|
00002230: 93 11 D4 D2 C1 C3 CB 20 20 20 A6 9D 9D 9D 22 3B |....... ....";|
00002240: 54 38 3A A0 33 3A A0 31 35 3A 9F 31 35 2C 44 56 |T8:.3:.15:.15,DV|
00002250: 2C 31 35 3A 9F 33 2C 44 56 2C 33 2C 22 23 22 00 |,15:.3,DV,3,"#".|
00002260: 7F 2A C3 1B 98 34 2C 22 93 54 52 41 43 4B 22 54 |.*...4,".TRACK"T|
00002270: 38 3A 98 34 2C 22 B8 B8 B8 B8 B8 B8 B8 B8 22 00 |8:.4,"........".|
00002280: AF 2A C4 1B 81 53 38 B2 30 A4 33 31 3A 98 31 35 |.*...S8.0.31:.15|
00002290: 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 38 3B 53 |,"B-R";3;DR;T8;S|
000022A0: 38 3A 84 31 35 2C 45 3A 8B 45 A7 37 31 31 30 00 |8:.15,E:.E.7110.|
000022B0: EA 2A C5 1B 98 31 35 2C 22 42 2D 50 22 3B 33 3B |.*...15,"B-P";3;|
000022C0: 31 3A A1 23 33 2C 41 24 3A 98 34 2C 22 53 45 43 |1:.#3,A$:.4,"SEC|
000022D0: 54 4F 52 22 53 38 22 20 4C 49 4E 4B 53 20 54 4F |TOR"S8" LINKS TO|
000022E0: 22 C6 28 41 24 AA 43 5A 24 29 00 02 2B C6 1B A1 |".(A$.CZ$)..+...|
000022F0: 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 A7 53 38 B2 |IN$:.IN$.."".S8.|
00002300: 33 32 00 19 2B C7 1B 82 3A 8D 33 30 30 3A 98 34 |32..+...:.300:.4|
00002310: 3A A0 34 3A 89 37 31 30 30 00 4E 2B C8 1B 85 22 |:.4:.7100.N+..."|
00002320: 93 11 12 53 54 41 52 54 49 4E 47 20 D4 D2 C1 C3 |...STARTING ....|
00002330: CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D |.,....... ....|
00002340: 22 3B 54 38 2C 53 38 3A A0 33 3A A0 31 35 00 6F |";T8,S8:.3:.15.o|
00002350: 2B C9 1B 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C |+...15,DV,15:.3,|
00002360: 44 56 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 00 |DV,3,"#":.63900.|
00002370: AB 2B CB 1B 99 22 93 12 D2 C5 D4 D5 D2 CE 92 20 |.+..."......... |
00002380: 54 4F 20 51 55 49 54 22 3A 98 34 2C 22 28 22 54 |TO QUIT":.4,"("T|
00002390: 38 22 2C 22 53 38 22 29 5F 20 46 49 52 53 54 20 |8","S8")_ FIRST |
000023A0: 42 4C 4F 43 4B 22 3A 4E 39 B2 31 00 C4 2B D0 1B |BLOCK":N9.1..+..|
000023B0: 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 |.15,"B-R";3;DR;T|
000023C0: 38 3B 53 38 00 D6 2B DA 1B 98 31 35 2C 22 42 2D |8;S8..+...15,"B-|
000023D0: 50 22 3B 33 3B 30 00 EF 2B E4 1B A1 23 33 2C 5A |P";3;0..+...#3,Z|
000023E0: 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 00 |$:.Z$."".Z$.CZ$.|
000023F0: 07 2C EE 1B 54 38 B2 C6 28 5A 24 29 3A 8B 54 38 |.,..T8..(Z$):.T8|
00002400: B2 30 A7 37 32 30 30 00 20 2C F8 1B A1 23 33 2C |.0.7200. ,...#3,|
00002410: 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 |Z$:.Z$."".Z$.CZ$|
00002420: 00 2D 2C 02 1C 53 38 B2 C6 28 5A 24 29 00 4F 2C |.-,..S8..(Z$).O,|
00002430: 07 1C 54 38 24 B2 CA 28 C4 28 54 38 29 2C 32 29 |..T8$..(.(T8),2)|
00002440: 3A 53 38 24 B2 CA 28 C4 28 53 38 29 2C 32 29 00 |:S8$..(.(S8),2).|
00002450: 78 2C 0C 1C 98 34 2C 22 28 22 54 38 24 22 2C 22 |x,...4,"("T8$","|
00002460: 53 38 24 22 29 22 3B 3A 8B B5 28 4E 39 AD 35 29 |S8$")";:..(N9.5)|
00002470: AC 35 B2 4E 39 A7 98 34 00 96 2C 16 1C 4E 39 B2 |.5.N9..4..,..N9.|
00002480: 4E 39 AA 31 3A A1 49 4E 24 3A 8B 49 4E 24 B2 22 |N9.1:.IN$:.IN$."|
00002490: 22 89 37 31 32 30 00 A2 2C 1B 1C 99 3A 89 37 32 |".7120..,...:.72|
000024A0: 31 30 00 C5 2C 20 1C 98 34 2C 22 5F 20 4C 41 53 |10.., ..4,"_ LAS|
000024B0: 54 20 11 11 22 3A 98 34 2C 4E 39 22 20 42 4C 4F |T ..":.4,N9" BLO|
000024C0: 43 4B 53 11 22 00 DA 2C 2A 1C 8D 33 30 30 3A 98 |CKS."..,*..300:.|
000024D0: 34 3A A0 34 3A 89 37 31 30 30 00 13 2D 84 1C 44 |4:.4:.7100..-..D|
000024E0: 39 B2 39 3A 44 31 24 B2 C7 28 44 56 AA 33 32 29 |9.9:D1$..(DV.32)|
000024F0: 3A 44 32 24 B2 C7 28 44 56 AA 36 34 29 3A 9F 31 |:D2$..(DV.64):.1|
00002500: 35 2C 44 56 2C 31 35 3A 8B 44 56 B2 44 39 A7 44 |5,DV,15:.DV.D9.D|
00002510: 39 B2 38 00 46 2D 89 1C 99 22 13 11 11 11 11 11 |9.8.F-..."......|
00002520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002530: 11 11 12 CE C5 D7 92 20 44 45 56 49 43 45 20 23 |....... DEVICE #|
00002540: 20 20 20 22 44 39 00 60 2D 8D 1C 85 22 91 1D 1D | "D9.`-..."...|
00002550: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 44 39 |............";D9|
00002560: 00 79 2D 8E 1C 58 58 B2 31 32 3A 8D 37 33 34 30 |.y-..XX.12:.7340|
00002570: 3A 8B 59 59 A7 37 33 31 35 00 92 2D 8F 1C 58 58 |:.YY.7315..-..XX|
00002580: B2 35 30 3A 8D 37 33 34 30 3A 8B 59 59 A7 37 33 |.50:.7340:.YY.73|
00002590: 31 35 00 AC 2D 90 1C 58 58 B2 31 31 39 3A 8D 37 |15..-..XX.119:.7|
000025A0: 33 34 30 3A 8B 59 59 A7 37 33 31 35 00 B8 2D 91 |340:.YY.7315..-.|
000025B0: 1C 8D 37 34 30 30 3A 8E 00 E4 2D 93 1C 98 31 35 |..7400:...-...15|
000025C0: 2C 22 4D 2D 57 22 C7 28 58 58 29 C7 28 30 30 29 |,"M-W".(XX).(00)|
000025D0: C7 28 32 29 C7 28 44 39 AA 33 32 29 C7 28 44 39 |.(2).(D9.32).(D9|
000025E0: AA 36 34 29 00 F9 2D 98 1C A0 31 35 3A 44 56 B2 |.64)..-...15:DV.|
000025F0: 44 39 3A 8D 32 36 31 3A 8E 00 2E 2E AC 1C 59 59 |D9:.261:......YY|
00002600: B2 AB 31 3A 98 31 35 2C 22 4D 2D 52 22 C7 28 58 |..1:.15,"M-R".(X|
00002610: 58 29 C7 28 30 29 3A A1 23 31 35 2C 58 58 24 3A |X).(0):.#15,XX$:|
00002620: 8B 58 58 24 B3 B1 44 31 24 A7 59 59 B2 30 00 34 |.XX$..D1$.YY.0.4|
00002630: 2E B1 1C 8E 00 62 2E B6 1C A0 31 35 3A 9F 31 35 |.....b....15:.15|
00002640: 2C 44 56 2C 31 35 3A 84 31 35 2C 45 31 24 2C 45 |,DV,15:.15,E1$,E|
00002650: 32 24 2C 45 33 24 2C 45 34 24 3A 53 39 24 B2 22 |2$,E3$,E4$:S9$."|
00002660: 2C 22 00 85 2E B7 1C 58 24 B2 45 31 24 AA 53 39 |,".....X$.E1$.S9|
00002670: 24 AA 45 32 24 AA 53 39 24 AA 45 33 24 AA 53 39 |$.E2$.S9$.E3$.S9|
00002680: 24 AA 45 34 24 00 BB 2E B8 1C 99 22 93 22 3A 58 |$.E4$......".":X|
00002690: B2 35 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 3A |.5:Y$."":.54020:|
000026A0: 81 41 39 B2 31 A4 31 30 30 3A 45 B2 C5 28 45 31 |.A9.1.100:E..(E1|
000026B0: 24 29 3A 82 3A 8B 45 B2 30 A7 8E 00 D1 2E B9 1C |$):.:.E.0.......|
000026C0: 81 41 39 B2 31 A4 31 30 3A 8D 35 39 31 30 30 3A |.A9.1.10:.59100:|
000026D0: 82 00 F0 2E BA 1C 99 22 11 11 12 52 45 54 55 52 |......."...RETUR|
000026E0: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |N. TO CONTINUE."|
000026F0: 00 12 2F BB 1C 99 22 11 11 41 4E 59 20 4F 54 48 |../..."..ANY OTH|
00002700: 45 52 20 4B 45 59 20 54 4F 20 12 51 55 49 54 92 |ER KEY TO .QUIT.|
00002710: 2E 22 00 26 2F BC 1C 8D 33 31 30 3A 8B 49 4E 24 |.".&/...310:.IN$|
00002720: B2 43 52 24 A7 8E 00 30 2F BD 1C 89 37 39 30 30 |.CR$...0/...7900|
00002730: 00 6D 2F E8 1C 99 22 93 11 11 2A 2A 2A 12 4E 4F |.m/..."...***.NO|
00002740: 54 20 41 20 52 45 43 4F 47 4E 49 5A 41 42 4C 45 |T A RECOGNIZABLE|
00002750: 20 44 49 53 4B 92 2A 2A 2A 22 3A 99 22 11 11 57 | DISK.***":."..W|
00002760: 41 4E 54 20 54 4F 20 51 55 49 54 3F 22 00 84 2F |ANT TO QUIT?"../|
00002770: F2 1C 8D 33 31 30 3A 8B 49 4E 24 B2 22 59 22 A7 |...310:.IN$."Y".|
00002780: 37 39 30 30 00 8A 2F FC 1C 8E 00 9A 2F 4C 1D 8F |7900../...../L..|
00002790: 20 55 4E 53 43 52 41 54 43 48 00 AA 2F 4D 1D 8F | UNSCRATCH../M..|
000027A0: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 D4 2F 4E 1D 99 |".........../N..|
000027B0: 22 93 22 3A 58 B2 32 35 3A 58 24 B2 22 D5 CE D3 |".":X.25:X$."...|
000027C0: C3 D2 C1 D4 C3 C8 22 3A 59 24 B2 22 22 3A 8D 35 |......":Y$."":.5|
000027D0: 34 30 32 30 00 F4 2F 56 1D 99 22 11 D7 45 27 4C |4020../V.."..E'L|
000027E0: 4C 20 44 4F 20 54 48 45 20 46 4F 4C 4C 4F 57 49 |L DO THE FOLLOWI|
000027F0: 4E 47 3A 22 00 23 30 57 1D 99 22 11 12 31 92 3A |NG:".#0W.."..1.:|
00002800: C7 4F 20 54 48 52 55 27 20 44 49 52 45 43 54 4F |.O THRU' DIRECTO|
00002810: 52 59 20 54 52 41 43 4B 22 44 49 22 20 55 4E 54 |RY TRACK"DI" UNT|
00002820: 49 4C 22 00 4D 30 58 1D 99 22 20 20 57 45 20 46 |IL".M0X.." WE F|
00002830: 49 4E 44 20 54 48 45 20 53 43 52 41 54 43 48 45 |IND THE SCRATCHE|
00002840: 44 20 46 49 4C 45 20 4E 41 4D 45 2E 22 00 76 30 |D FILE NAME.".v0|
00002850: 59 1D 99 22 11 12 32 92 3A D4 52 41 43 45 20 54 |Y.."..2.:.RACE T|
00002860: 48 45 20 C2 4C 4F 43 4B 53 20 41 4E 44 20 43 4F |HE .LOCKS AND CO|
00002870: 4D 50 41 52 45 22 00 9C 30 5A 1D 99 22 20 20 54 |MPARE"..0Z.." T|
00002880: 48 45 20 C2 4C 4F 43 4B 53 20 4F 42 54 41 49 4E |HE .LOCKS OBTAIN|
00002890: 45 44 20 57 49 54 48 20 54 48 45 22 00 BC 30 5B |ED WITH THE"..0[|
000028A0: 1D 99 22 20 20 C4 49 52 45 43 54 4F 52 59 20 C2 |.." .IRECTORY .|
000028B0: 4C 4F 43 4B 20 C3 4F 55 4E 54 2E 22 00 EA 30 5C |LOCK .OUNT."..0\|
000028C0: 1D 99 22 11 12 33 92 3A CC 4F 4F 4B 20 41 54 20 |.."..3.:.OOK AT |
000028D0: 54 48 45 20 C2 4C 4F 43 4B 20 C1 56 41 49 4C 41 |THE .LOCK .VAILA|
000028E0: 42 49 4C 54 59 20 CD 41 50 22 00 16 31 5D 1D 99 |BILTY .AP"..1]..|
000028F0: 22 20 20 54 4F 20 53 45 45 20 49 46 20 41 4C 4C |" TO SEE IF ALL|
00002900: 20 54 48 45 20 42 4C 4F 43 4B 53 20 41 52 45 20 | THE BLOCKS ARE |
00002910: 46 52 45 45 2E 22 00 3B 31 5E 1D 99 22 11 3E 3E |FREE.".;1^..".>>|
00002920: C9 46 20 41 4C 4C 20 4F 46 20 54 48 45 20 41 42 |.F ALL OF THE AB|
00002930: 4F 56 45 20 41 52 45 20 CF CB 22 00 62 31 5F 1D |OVE ARE ..".b1_.|
00002940: 99 22 20 20 59 4F 55 20 54 48 45 4E 20 CD 4F 44 |." YOU THEN .OD|
00002950: 49 46 59 20 54 48 45 20 C4 49 52 45 43 54 4F 52 |IFY THE .IRECTOR|
00002960: 59 22 00 7C 31 60 1D 99 22 20 20 41 53 20 46 4F |Y".|1`.." AS FO|
00002970: 4C 4C 4F 57 53 3A 22 3A 8D 33 30 30 00 A1 31 74 |LLOWS:":.300..1t|
00002980: 1D 99 22 93 CD 4F 44 49 46 59 20 54 48 45 20 42 |.."..ODIFY THE B|
00002990: 4C 4F 43 4B 20 53 4F 20 54 48 41 54 20 54 48 45 |LOCK SO THAT THE|
000029A0: 22 00 B4 31 79 1D 99 22 12 4D 41 47 49 43 20 42 |"..1y..".MAGIC B|
000029B0: 59 54 45 22 00 E1 31 7E 1D 99 22 20 20 57 48 49 |YTE"..1~.." WHI|
000029C0: 43 48 20 4F 43 43 55 52 53 20 4A 55 53 54 20 12 |CH OCCURS JUST .|
000029D0: 33 92 20 50 4C 41 43 45 53 20 42 45 46 4F 52 45 |3. PLACES BEFORE|
000029E0: 22 00 02 32 88 1D 99 22 20 20 54 48 45 20 4E 41 |"..2..." THE NA|
000029F0: 4D 45 20 49 53 20 41 53 20 46 4F 4C 4C 4F 57 53 |ME IS AS FOLLOWS|
00002A00: 3A 22 00 18 32 92 1D 99 22 20 20 31 32 39 3D D3 |:"..2..." 129=.|
00002A10: C5 D1 20 46 49 4C 45 22 00 2E 32 93 1D 99 22 20 |.. FILE"..2..." |
00002A20: 20 31 33 30 3D D0 D2 C7 20 46 49 4C 45 22 00 44 | 130=... FILE".D|
00002A30: 32 94 1D 99 22 20 20 31 33 31 3D D5 D3 D2 20 46 |2..." 131=... F|
00002A40: 49 4C 45 22 00 5A 32 95 1D 99 22 20 20 31 33 32 |ILE".Z2..." 132|
00002A50: 3D D2 C5 CC 20 46 49 4C 45 22 00 88 32 9C 1D 99 |=... FILE"..2...|
00002A60: 22 11 C5 58 41 4D 50 4C 45 3A 54 4F 20 55 4E 53 |"..XAMPLE:TO UNS|
00002A70: 43 52 41 54 43 48 20 41 20 D0 D2 C7 20 46 49 4C |CRATCH A ... FIL|
00002A80: 45 20 27 C1 C2 DA 27 22 00 B4 32 A6 1D 99 22 46 |E '...'"..2..."F|
00002A90: 49 4E 44 20 49 54 27 53 20 4E 41 4D 45 20 4F 4E |IND IT'S NAME ON|
00002AA0: 20 54 48 45 20 C4 C9 D2 C5 C3 D4 CF D2 D9 2C 20 | THE ........., |
00002AB0: 41 4E 44 22 00 DA 32 B0 1D 99 22 53 45 4C 45 43 |AND"..2..."SELEC|
00002AC0: 54 20 CD C5 CE D5 20 49 54 45 4D 3D CD 4F 44 49 |T .... ITEM=.ODI|
00002AD0: 46 59 20 C2 4C 4F 43 4B 2E 22 00 EF 32 BA 1D 99 |FY .LOCK."..2...|
00002AE0: 22 D9 4F 55 20 57 49 4C 4C 20 53 45 45 3A 22 00 |".OU WILL SEE:".|
00002AF0: 29 33 C4 1D 99 22 11 2E 2E 20 30 12 20 30 92 20 |)3..."... 0. 0. |
00002B00: 30 22 56 43 24 22 12 20 30 22 54 43 24 22 92 20 |0"VC$". 0"TC$". |
00002B10: 31 39 12 20 33 92 20 36 35 12 20 36 36 92 20 39 |19. 3. 65. 66. 9|
00002B20: 30 2E 2E 2E 2E 45 54 43 22 00 49 33 CE 1D 99 22 |0....ETC".I3..."|
00002B30: 20 20 20 20 20 20 20 20 20 5E 20 20 5E 20 5E 20 | ^ ^ ^ |
00002B40: 20 5E 20 20 5E 20 20 5E 22 00 69 33 D8 1D 99 22 | ^ ^ ^".i3..."|
00002B50: 20 53 48 4F 55 4C 44 20 42 45 20 DD D4 52 43 4B | SHOULD BE ..RCK|
00002B60: DD C1 20 20 C2 20 20 DA 22 00 94 33 E2 1D 99 22 |.. . ."..3..."|
00002B70: 20 20 20 20 20 41 20 31 33 30 20 DD 26 D3 45 43 | A 130 .&.EC|
00002B80: DD C6 49 4C 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 |..ILENAME(IN ...|
00002B90: C9 C9 29 22 00 A2 33 EC 1D 8D 33 30 30 3A 99 22 |..)"..3...300:."|
00002BA0: 91 22 00 D0 33 F6 1D 99 22 11 CD 4F 44 49 46 59 |."..3..."..ODIFY|
00002BB0: 20 54 48 45 20 42 59 54 45 20 57 48 49 43 48 20 | THE BYTE WHICH |
00002BC0: 49 44 45 4E 54 49 46 49 45 53 20 54 48 45 20 22 |IDENTIFIES THE "|
00002BD0: 00 F7 33 00 1E 99 22 46 49 4C 45 20 54 59 50 45 |..3..."FILE TYPE|
00002BE0: 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 49 54 20 |..TO 130..SO IT |
00002BF0: 52 45 41 44 53 3A 22 00 32 34 05 1E 99 22 11 2E |READS:".24..."..|
00002C00: 2E 20 30 12 20 30 92 20 30 22 56 43 24 22 12 31 |. 0. 0. 0"VC$".1|
00002C10: 33 30 22 54 43 24 22 92 20 31 39 12 20 33 92 20 |30"TC$". 19. 3. |
00002C20: 36 35 12 20 36 36 92 20 39 30 2E 2E 2E 2E 45 54 |65. 66. 90....ET|
00002C30: 43 22 00 60 34 0A 1E 99 22 11 12 34 92 3A D7 52 |C".`4..."..4.:.R|
00002C40: 49 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 42 41 |ITE THE BLOCK BA|
00002C50: 43 4B 20 54 4F 20 54 48 45 20 44 49 53 4B 2E 22 |CK TO THE DISK."|
00002C60: 00 91 34 14 1E 99 22 11 12 35 92 3A D6 C1 CC C9 |..4..."..5.:....|
00002C70: C4 C1 D4 C5 11 9D 9D 9D 9D 9D 9D 9D 9D B8 B8 B8 |................|
00002C80: B8 B8 B8 B8 B8 91 20 54 48 45 20 44 49 53 4B 2E |...... THE DISK.|
00002C90: 22 00 A9 34 1E 1E 99 22 11 12 35 92 3A D0 52 41 |"..4..."..5.:.RA|
00002CA0: 59 2E 2E 22 3A 8D 33 31 30 00 D2 34 C8 1E 85 22 |Y..":.310..4..."|
00002CB0: 11 D7 C1 CE D4 20 D4 CF 20 D4 D2 D9 20 20 20 59 |..... .. ... Y|
00002CC0: 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B3 B1 22 59 22 |...";A$:.A$.."Y"|
00002CD0: A7 8E 00 DD 34 D2 1E 89 31 32 30 30 30 00 0C 35 |....4...12000..5|
00002CE0: DC 1E A0 31 35 3A 8D 35 38 30 32 30 3A 99 22 93 |...15:.58020:.".|
00002CF0: 11 11 11 11 11 42 59 45 11 11 11 22 3A 99 48 44 |.....BYE...":.HD|
00002D00: 24 22 11 11 22 3A 9E 36 34 37 33 38 00 1D 35 40 |$"..":.64738..5@|
00002D10: 1F 8F 20 49 4E 49 54 49 41 4C 49 5A 45 00 2E 35 |.. INITIALIZE..5|
00002D20: 41 1F 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 64 |A.."...........d|
00002D30: 35 42 1F 99 22 93 22 3A 8D 35 38 30 32 30 3A 97 |5B..".":.58020:.|
00002D40: 35 33 32 38 31 2C 46 31 3A 97 35 33 32 38 30 2C |53281,F1:.53280,|
00002D50: 46 31 3A 86 20 46 33 24 28 31 35 29 2C 46 35 24 |F1:. F3$(15),F5$|
00002D60: 28 31 35 29 00 88 35 43 1F 81 49 B2 30 A4 31 35 |(15)..5C..I.0.15|
00002D70: 3A 87 46 33 24 28 49 29 3A 46 35 24 28 49 29 B2 |:.F3$(I):F5$(I).|
00002D80: 46 33 24 28 49 29 3A 82 00 AD 35 44 1F 83 22 90 |F3$(I):...5D..".|
00002D90: 22 2C 22 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C |",".",".",".",".|
00002DA0: 22 2C 22 1E 22 2C 22 1F 22 2C 22 9E 22 00 D2 35 |",".",".","."..5|
00002DB0: 45 1F 83 22 81 22 2C 22 95 22 2C 22 96 22 2C 22 |E..".",".",".","|
00002DC0: 97 22 2C 22 98 22 2C 22 99 22 2C 22 9A 22 2C 22 |.",".",".",".","|
00002DD0: 9B 22 00 F3 35 46 1F 54 43 24 B2 46 33 24 28 46 |."..5F.TC$.F3$(F|
00002DE0: 33 29 3A 99 54 43 24 3A 56 43 24 B2 46 35 24 28 |3):.TC$:VC$.F5$(|
00002DF0: 46 35 29 00 19 36 47 1F 86 43 28 32 35 35 29 2C |F5)..6G..C(255),|
00002E00: 54 28 31 32 30 29 2C 53 28 31 32 30 29 2C 53 43 |T(120),S(120),SC|
00002E10: 28 37 37 29 2C 42 28 34 29 00 3A 36 48 1F 83 31 |(77),B(4).:6H..1|
00002E20: 2C 31 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 2C |,17,20,24,19,30,|
00002E30: 31 37 2C 33 35 2C 31 36 2C 30 00 5C 36 49 1F 83 |17,35,16,0.\6I..|
00002E40: 36 35 2C 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 |65,17,20,24,18,3|
00002E50: 30 2C 31 37 2C 33 35 2C 31 36 2C 30 00 7E 36 4A |0,17,35,16,0.~6J|
00002E60: 1F 83 36 37 2C 33 39 2C 32 38 2C 35 33 2C 32 36 |..67,39,28,53,26|
00002E70: 2C 36 34 2C 32 34 2C 37 37 2C 32 32 2C 30 00 BC |,64,24,77,22,0..|
00002E80: 36 4B 1F 53 30 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 |6K.S0$."........|
00002E90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002EA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."|
00002EB0: 3A 53 34 24 B2 53 30 24 AA 53 30 24 00 00 37 4C |:S4$.S0$.S0$..7L|
00002EC0: 1F 41 24 B2 56 43 24 AA 22 93 12 2A 50 4F 4E 5A |.A$.VC$."..*PONZ|
00002ED0: 4F 2A 2A 2A 2A 20 44 49 53 4B 56 49 45 57 20 2A |O**** DISKVIEW *|
00002EE0: 2A 2A 2A 28 22 AA 44 41 24 AA 22 29 2A 2A 2A 2A |***(".DA$.")****|
00002EF0: 22 AA 54 43 24 3A 81 49 B2 31 A4 C3 28 41 24 29 |".TC$:.I.1..(A$)|
00002F00: 00 32 37 4D 1F 99 CA 28 41 24 2C 49 2C 31 29 3B |.27M...(A$,I,1);|
00002F10: 3A 81 54 B2 31 A4 35 3A 82 3A 82 3A 99 3A 99 53 |:.T.1.5:.:.:.:.S|
00002F20: 30 24 3A 8B 43 50 24 B2 22 50 45 54 22 89 38 30 |0$:.CP$."PET".80|
00002F30: 31 36 00 49 37 4E 1F 99 22 11 11 4E 4F 54 45 11 |16.I7N.."..NOTE.|
00002F40: 9D 9D 9D 9D B8 B8 B8 B8 22 00 78 37 4F 1F 99 22 |........".x7O.."|
00002F50: 46 55 4E 43 54 49 4F 4E 20 4B 45 59 53 20 43 48 |FUNCTION KEYS CH|
00002F60: 41 4E 47 45 20 43 4F 4C 4F 55 52 53 20 41 54 20 |ANGE COLOURS AT |
00002F70: 4D 45 4E 55 2E 2E 2E 22 00 94 37 50 1F 85 22 11 |MENU..."..7P..".|
00002F80: 11 44 45 56 49 43 45 20 23 20 20 20 38 9D 9D 9D |.DEVICE # 8...|
00002F90: 22 3B 44 56 00 B5 37 51 1F 52 24 28 30 29 B2 22 |";DV..7Q.R$(0)."|
00002FA0: 12 22 3A 52 24 28 31 29 B2 22 92 22 3A 4E 4E B2 |.":R$(1).".":NN.|
00002FB0: 35 35 33 34 31 00 D0 37 52 1F 48 58 24 B2 22 30 |55341..7R.HX$."0|
00002FC0: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"|
00002FD0: 00 FC 37 54 1F 53 44 24 B2 22 13 11 11 11 11 11 |..7T.SD$."......|
00002FE0: 11 11 11 11 11 22 3A 42 42 24 B2 53 44 24 AA 22 |.....":BB$.SD$."|
00002FF0: 11 11 11 11 11 11 11 11 11 11 11 22 00 2E 38 59 |..........."..8Y|
00003000: 1F 4D 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 |.MD$."..........|
00003010: 11 11 11 11 11 11 11 11 11 92 22 3A 43 52 24 B2 |..........":CR$.|
00003020: C7 28 31 33 29 3A 43 5A 24 B2 C7 28 30 29 00 39 |.(13):CZ$..(0).9|
00003030: 38 5A 1F 8D 35 39 30 30 30 00 60 38 63 1F 85 22 |8Z..59000.`8c.."|
00003040: 11 11 20 44 52 49 56 45 20 23 20 20 20 30 9D 9D |.. DRIVE # 0..|
00003050: 9D 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 |.";DR$:DR..(DR$)|
00003060: 00 88 38 68 1F 8D 35 38 30 32 30 3A A0 31 35 3A |..8h..58020:.15:|
00003070: 9F 31 35 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 |.15,DV,15,"I".DR|
00003080: 24 3A 8D 36 33 39 30 30 00 A9 38 72 1F 4B 24 B2 |$:.63900..8r.K$.|
00003090: 22 20 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 C9 D3 |" .............|
000030A0: A0 C5 CD D0 D4 D9 20 20 22 00 C7 38 7C 1F 8C 3A |...... "..8|..:|
000030B0: 81 49 B2 30 A4 31 35 3A 87 58 24 3A 82 3A 57 57 |.I.0.15:.X$:.:WW|
000030C0: B2 30 3A 41 30 B2 31 00 E2 38 7D 1F 9F 33 2C 44 |.0:A0.1..8}..3,D|
000030D0: 56 2C 33 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 |V,3,"$".DR$:.639|
000030E0: 30 30 00 F9 38 7E 1F A1 23 33 2C 41 24 3A 41 B2 |00..8~..#3,A$:A.|
000030F0: C6 28 41 24 AA 43 5A 24 29 00 0C 39 7F 1F 87 44 |.(A$.CZ$)..9...D|
00003100: 54 3A 8B 41 B2 44 54 A7 38 30 37 30 00 32 39 80 |T:.A.DT.8070.29.|
00003110: 1F 57 57 B2 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 |.WW.WW.1:.WW.3. |
00003120: 81 49 B2 31 A4 39 3A 87 44 54 3A 82 3A 89 38 30 |.I.1.9:.DT:.:.80|
00003130: 36 33 00 3F 39 81 1F A0 33 3A 8D 37 34 30 30 00 |63.?9...3:.7400.|
00003140: 76 39 82 1F 4D 48 24 B2 22 44 52 49 56 45 20 22 |v9..MH$."DRIVE "|
00003150: AA 44 52 24 AA 22 12 21 21 55 4E 52 45 43 4F 47 |.DR$.".!!UNRECOG|
00003160: 4E 49 5A 41 42 4C 45 20 44 49 53 4B 21 21 92 22 |NIZABLE DISK!!."|
00003170: 3A 8D 38 32 33 30 00 8D 39 83 1F 54 54 B2 32 30 |:.8230..9..TT.20|
00003180: 30 3A 44 49 B2 37 36 3A 89 38 31 31 30 00 A4 39 |0:DI.76:.8110..9|
00003190: 86 1F 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 4B 4B |...DT.1.DT.65.KK|
000031A0: B2 31 34 33 00 B4 39 87 1F 8B 44 54 B2 36 37 A7 |.143..9...DT.67.|
000031B0: 4B 4B B2 35 00 BE 39 88 1F 8D 38 32 30 30 00 D1 |KK.5..9...8200..|
000031C0: 39 8B 1F 87 41 31 3A 8B 41 31 B2 30 A7 38 30 39 |9...A1:.A1.0.809|
000031D0: 30 00 FA 39 90 1F 87 42 31 3A 81 49 B2 41 30 A4 |0..9...B1:.I.A0.|
000031E0: 41 31 3A 53 43 28 49 29 B2 42 31 AA 31 3A 82 3A |A1:SC(I).B1.1:.:|
000031F0: 41 30 B2 49 3A 89 38 30 37 35 00 20 3A 9A 1F 8B |A0.I:.8075. :...|
00003200: 44 54 B2 31 B0 44 54 B2 36 35 A7 44 31 B2 31 3A |DT.1.DT.65.D1.1:|
00003210: 54 54 B2 33 35 3A 53 32 B2 33 3A 44 49 B2 31 38 |TT.35:S2.3:DI.18|
00003220: 00 43 3A 9F 1F 8B 44 54 B2 36 37 A7 44 31 B2 32 |.C:...DT.67.D1.2|
00003230: 35 37 3A 54 54 B2 37 37 3A 53 32 B2 34 3A 44 49 |57:TT.77:S2.4:DI|
00003240: B2 33 39 00 57 3A A0 1F 53 31 B2 53 32 AB 31 3A |.39.W:..S1.S2.1:|
00003250: 53 33 B2 53 32 AA 31 00 69 3A A4 1F A0 33 3A 8B |S3.S2.1.i:...3:.|
00003260: 54 54 B2 30 A7 38 30 36 35 00 92 3A AE 1F 81 49 |TT.0.8065..:...I|
00003270: B2 30 A4 37 3A 50 28 49 29 B2 32 AE 49 3A 82 3A |.0.7:P(I).2.I:.:|
00003280: 81 49 B2 30 A4 33 3A 48 28 49 29 B2 31 36 AE 49 |.I.0.3:H(I).16.I|
00003290: 3A 82 00 B2 3A B3 1F 48 24 28 30 29 B2 22 C4 C5 |:...:..H$(0)."..|
000032A0: C3 C9 CD C1 CC 22 3A 48 24 28 31 29 B2 22 C8 C5 |.....":H$(1)."..|
000032B0: D8 22 00 CA 3A B8 1F 58 24 28 30 29 B2 22 D1 22 |."..:..X$(0)."."|
000032C0: 3A 58 24 28 31 29 B2 22 D7 22 00 EB 3A CC 1F 43 |:X$(1)."."..:..C|
000032D0: 4C 24 B2 22 22 3A 81 49 B2 31 A4 33 39 3A 43 4C |L$."":.I.1.39:CL|
000032E0: 24 B2 43 4C 24 AA 22 20 22 3A 82 00 19 3B D6 1F |$.CL$." ":...;..|
000032F0: 53 31 24 B2 22 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E |S1$."^....^....^|
00003300: 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E |....^....^....^.|
00003310: 2E 2E 2E 5E 2E 2E 2E 2E 22 00 43 3B E0 1F 53 32 |...^....".C;..S2|
00003320: 24 B2 22 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 |$.". . . |
00003330: 20 20 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 | . . . |
00003340: 20 DD 22 00 70 3B EA 1F 53 33 24 B2 22 30 20 20 | .".p;..S3$."0 |
00003350: 20 20 35 20 20 20 20 31 30 20 20 20 31 35 20 20 | 5 10 15 |
00003360: 20 32 30 20 20 20 32 35 20 20 20 33 30 22 3A 8E | 20 25 30":.|
00003370: 00 9B 3B 08 20 81 49 B2 33 A4 4B 4B 3A A1 23 33 |..;. .I.3.KK:.#3|
00003380: 2C 41 24 3A 82 3A 4D 48 24 B2 22 44 52 49 56 45 |,A$:.:MH$."DRIVE|
00003390: 20 22 AA 44 52 24 AA 22 12 20 22 00 D1 3B 12 20 | ".DR$.". "..;. |
000033A0: 81 49 B2 31 A4 31 36 3A A1 23 33 2C 41 24 3A 4D |.I.1.16:.#3,A$:M|
000033B0: 48 24 B2 4D 48 24 AA 41 24 3A 82 3A A1 23 33 2C |H$.MH$.A$:.:.#3,|
000033C0: 41 24 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 22 3A |A$,A$:MH$.MH$.":|
000033D0: 22 00 03 3C 1C 20 81 49 B2 31 A4 32 3A A1 23 33 |"..<. .I.1.2:.#3|
000033E0: 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 3A 82 |,A$:MH$.MH$.A$:.|
000033F0: 3A 4D 48 24 B2 4D 48 24 AA 22 3A 22 3A A1 23 33 |:MH$.MH$.":":.#3|
00003400: 2C 41 24 00 2E 3C 1D 20 81 49 B2 31 A4 32 3A A1 |,A$..<. .I.1.2:.|
00003410: 23 33 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 |#3,A$:MH$.MH$.A$|
00003420: 3A 82 3A 4D 48 24 B2 4D 48 24 AA 22 92 22 00 4F |:.:MH$.MH$.".".O|
00003430: 3C 21 20 53 50 24 B2 22 22 3A 81 49 B2 31 A4 34 |<! SP$."":.I.1.4|
00003440: 30 3A 53 50 24 B2 53 50 24 AA 22 20 22 3A 82 00 |0:SP$.SP$." ":..|
00003450: 63 3C 26 20 8D 32 36 31 3A 99 22 11 11 22 48 44 |c<& .261:.".."HD|
00003460: 24 3A 8E 00 75 3C 28 23 8F 20 44 45 43 49 4D 41 |$:..u<(#. DECIMA|
00003470: 4C 5F 48 45 58 00 87 3C 29 23 8F 22 A3 A3 A3 A3 |L_HEX..<)#."....|
00003480: A3 A3 A3 A3 A3 A3 A3 00 9B 3C 2D 23 4D B2 C5 28 |.........<-#M..(|
00003490: 4D 24 29 3A 8B 4D B3 B1 30 A7 8E 00 B7 3C 32 23 |M$):.M..0....<2#|
000034A0: 4D 24 B2 CA 28 4D 24 2C 32 29 3A 4D B2 30 3A 4C |M$..(M$,2):M.0:L|
000034B0: 4D B2 C3 28 4D 24 29 00 C4 3C 3C 23 81 43 4E B2 |M..(M$)..<<#.CN.|
000034C0: 31 A4 4C 4D 00 EF 3C 46 23 4D 4D 24 B2 CA 28 4D |1.LM..<F#MM$..(M|
000034D0: 24 2C 43 4E 2C 31 29 3A 8D 39 31 30 30 3A 4D B2 |$,CN,1):.9100:M.|
000034E0: 4D AA 4D 4D AC 48 28 4C 4D AB 43 4E 29 3A 82 00 |M.MM.H(LM.CN):..|
000034F0: F5 3C 50 23 8E 00 09 3D 8C 23 8B 4D 4D 24 B2 22 |.<P#...=.#.MM$."|
00003500: 30 22 A7 4D 4D B2 30 3A 8E 00 20 3D 96 23 4D 4D |0".MM.0:.. =.#MM|
00003510: B2 C5 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E |..(MM$):.MM..0..|
00003520: 00 33 3D A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 |.3=.#MM..(MM$).5|
00003530: 35 3A 8E 00 45 3D 1C 25 8F 20 48 45 58 5F 44 45 |5:..E=.%. HEX_DE|
00003540: 43 49 4D 41 4C 00 57 3D 1D 25 8F 22 A3 A3 A3 A3 |CIMAL.W=.%."....|
00003550: A3 A3 A3 A3 A3 A3 A3 00 67 3D 20 25 43 39 B2 33 |........g= %C9.3|
00003560: 3A 4D 24 B2 22 24 22 00 89 3D 21 25 53 4D B2 4D |:M$."$"..=!%SM.M|
00003570: 3A 81 43 4E B2 43 39 A4 30 A9 AB 31 3A 43 4D 25 |:.CN.C9.0..1:CM%|
00003580: B2 53 4D AD 48 28 43 4E 29 00 BB 3D 26 25 4D 24 |.SM.H(CN)..=&%M$|
00003590: B2 4D 24 AA C7 28 43 4D 25 AA 34 38 AB 37 AC 28 |.M$..(CM%.48.7.(|
000035A0: 43 4D 25 B1 39 29 29 3A 53 4D B2 53 4D AB 48 28 |CM%.9)):SM.SM.H(|
000035B0: 43 4E 29 AC 43 4D 25 3A 82 3A 8E 00 CB 3D F8 2A |CN).CM%:.:...=.*|
000035C0: 8F 20 44 49 52 45 43 54 4F 52 59 00 07 3E 02 2B |. DIRECTORY..>.+|
000035D0: 8D 35 38 30 32 30 3A 85 22 93 11 11 54 4F 20 50 |.58020:."...TO P|
000035E0: 52 49 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 49 |RINTER N...";I|
000035F0: 4E 24 3A 50 44 B2 33 3A 8B 20 49 4E 24 B2 22 59 |N$:PD.3:. IN$."Y|
00003600: 22 A7 20 50 44 B2 34 00 51 3E 0C 2B 50 54 B2 AB |". PD.4.Q>.+PT..|
00003610: 28 50 44 B2 34 29 3A 50 46 24 B2 22 22 3A 53 46 |(PD.4):PF$."":SF|
00003620: 24 B2 43 52 24 3A 50 53 B2 30 3A 51 24 B2 C7 28 |$.CR$:PS.0:Q$..(|
00003630: 33 34 29 3A 52 31 24 B2 22 12 22 3A 52 32 24 B2 |34):R1$.".":R2$.|
00003640: 22 92 22 3A 42 54 24 B2 22 22 3A 41 54 24 B2 22 |".":BT$."":AT$."|
00003650: 22 00 8B 3E 11 2B 41 46 24 B2 22 22 3A 43 38 30 |"..>.+AF$."":C80|
00003660: B2 30 3A 4C 46 24 B2 C7 28 31 30 29 3A 53 35 24 |.0:LF$..(10):S5$|
00003670: B2 53 30 24 3A 55 39 B2 31 3A 9F 34 2C 50 44 3A |.S0$:U9.1:.4,PD:|
00003680: 8B 50 54 B2 30 89 31 31 30 37 30 00 BB 3E 12 2B |.PT.0.11070..>.+|
00003690: 85 22 11 38 30 20 43 4F 4C 55 4D 4E 20 44 49 52 |.".80 COLUMN DIR|
000036A0: 27 59 20 20 20 59 9D 9D 9D 22 3B 57 24 3A 8B 57 |'Y Y...";W$:.W|
000036B0: 24 B2 22 4E 22 89 31 31 30 33 30 00 F9 3E 13 2B |$."N".11030..>.+|
000036C0: 81 49 B2 31 A4 31 38 3A 42 54 24 B2 42 54 24 AA |.I.1.18:BT$.BT$.|
000036D0: 22 20 22 3A 82 3A 43 38 30 B2 31 3A 53 35 24 B2 |" ":.:C80.1:S5$.|
000036E0: 53 34 24 3A 53 46 24 B2 22 22 3A 41 46 24 B2 22 |S4$:SF$."":AF$."|
000036F0: 2D 22 3A 89 31 31 30 35 30 00 37 3F 16 2B 53 35 |-":.11050.7?.+S5|
00003700: 24 B2 C8 28 53 30 24 2C 33 38 29 3A 85 22 11 50 |$..(S0$,38):.".P|
00003710: 52 49 4E 54 20 12 52 49 47 48 54 92 20 48 4F 57 |RINT .RIGHT. HOW|
00003720: 20 4D 41 4E 59 20 53 50 41 43 45 53 20 20 20 30 | MANY SPACES 0|
00003730: 9D 9D 9D 22 3B 50 53 00 5D 3F 20 2B 8B 50 53 A7 |...";PS.]? +.PS.|
00003740: 81 49 B2 31 A4 50 53 3A 50 46 24 B2 50 46 24 AA |.I.1.PS:PF$.PF$.|
00003750: 22 20 22 3A 82 3A 42 54 24 B2 50 46 24 00 92 3F |" ":.:BT$.PF$..?|
00003760: 2A 2B 85 22 11 44 4F 45 53 20 54 48 45 20 50 52 |*+.".DOES THE PR|
00003770: 49 4E 54 45 52 20 4E 45 45 44 20 41 20 4C 49 4E |INTER NEED A LIN|
00003780: 45 20 46 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 |E FEED N...";U|
00003790: 39 24 00 BE 3F 34 2B 8B 55 39 24 B2 22 59 22 A7 |9$..?4+.U9$."Y".|
000037A0: 41 54 24 B2 41 54 24 AA 4C 46 24 3A 8B 43 38 30 |AT$.AT$.LF$:.C80|
000037B0: B2 30 A7 53 46 24 B2 53 46 24 AA 4C 46 24 00 FC |.0.SF$.SF$.LF$..|
000037C0: 3F 3E 2B 99 22 93 22 3A 50 54 24 B2 22 20 2A 2A |?>+.".":PT$." **|
000037D0: 2A 2A 2A 2A 2A 22 AA CA 28 4D 48 24 2C 31 30 2C |*****"..(MH$,10,|
000037E0: 32 34 29 AA 22 20 2A 2A 2A 2A 2A 2A 2A 22 3A 8B |24)." *******":.|
000037F0: 50 54 B2 30 A7 50 54 24 B2 48 44 24 00 3A 40 48 |PT.0.PT$.HD$.:@H|
00003800: 2B 98 34 2C 42 54 24 50 54 24 41 54 24 3A 99 22 |+.4,BT$PT$AT$:."|
00003810: 48 49 54 20 41 20 4B 45 59 20 54 4F 20 53 54 4F |HIT A KEY TO STO|
00003820: 50 11 22 56 43 24 3A 41 35 B2 33 32 3A 41 36 B2 |P."VC$:A5.32:A6.|
00003830: 31 32 37 3A 41 37 B2 31 36 30 00 6C 40 52 2B A0 |127:A7.160.l@R+.|
00003840: 33 3A 9F 33 2C 44 56 2C 33 2C 22 24 22 AA 44 52 |3:.3,DV,3,"$".DR|
00003850: 24 3A 4A 24 B2 22 20 22 3A 8B 20 50 54 20 A7 52 |$:J$." ":. PT .R|
00003860: 31 24 B2 22 22 3A 52 32 24 B2 22 22 00 A9 40 5C |1$."":R2$.""..@\|
00003870: 2B 98 34 2C 42 54 24 52 31 24 22 20 42 4C 4B 53 |+.4,BT$R1$" BLKS|
00003880: 20 20 20 20 20 20 4E 41 4D 45 20 20 20 20 20 20 | NAME |
00003890: 20 54 59 50 45 20 28 54 2C 53 29 20 53 54 41 52 | TYPE (T,S) STAR|
000038A0: 54 22 54 43 24 3B 41 54 24 00 EE 40 66 2B 54 59 |T"TC$;AT$..@f+TY|
000038B0: 24 28 30 29 B2 22 44 45 4C 22 3A 54 59 24 28 31 |$(0)."DEL":TY$(1|
000038C0: 29 B2 22 53 45 51 22 3A 54 59 24 28 32 29 B2 22 |)."SEQ":TY$(2)."|
000038D0: 50 52 47 22 3A 54 59 24 28 33 29 B2 22 55 53 52 |PRG":TY$(3)."USR|
000038E0: 22 3A 54 59 24 28 34 29 B2 22 52 45 4C 22 00 01 |":TY$(4)."REL"..|
000038F0: 41 6B 2B 8B 43 38 30 B2 30 A7 98 34 2C 42 54 24 |Ak+.C80.0..4,BT$|
00003900: 3B 00 21 41 70 2B 98 34 2C 53 35 24 41 54 24 3A |;.!Ap+.4,S5$AT$:|
00003910: 81 49 B2 30 A4 32 35 33 3A A1 23 33 2C 41 24 3A |.I.0.253:.#3,A$:|
00003920: 82 00 64 41 7A 2B 53 49 B2 30 3A 81 50 B2 31 A4 |..dAz+SI.0:.P.1.|
00003930: 38 3A A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA |8:.#3,A$:A..(A$.|
00003940: 43 5A 24 29 AB 31 32 38 3A 54 59 B2 AB 41 AC 28 |CZ$).128:TY..A.(|
00003950: 41 B1 30 AF 41 B3 35 29 3A 41 33 24 B2 54 59 24 |A.0.A.5):A3$.TY$|
00003960: 28 54 59 29 00 94 41 84 2B A1 23 33 2C 41 24 2C |(TY)..A.+.#3,A$,|
00003970: 42 24 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 |B$:A..(A$.CZ$):B|
00003980: B2 C6 28 42 24 AA 43 5A 24 29 3A 8B 53 54 A7 31 |..(B$.CZ$):.ST.1|
00003990: 31 33 30 30 00 CB 41 8E 2B 41 34 24 B2 22 28 22 |1300..A.+A4$."("|
000039A0: AA C9 28 C4 28 41 29 2C 32 29 AA 22 2C 22 AA C9 |..(.(A),2).","..|
000039B0: 28 C4 28 42 29 2C 32 29 AA 22 29 22 3A 41 30 24 |(.(B),2).")":A0$|
000039C0: B2 22 22 3A 81 49 B2 31 A4 31 36 00 00 42 98 2B |."":.I.1.16..B.+|
000039D0: A1 23 33 2C 42 24 3A 41 30 24 B2 41 30 24 AA 42 |.#3,B$:A0$.A0$.B|
000039E0: 24 3A 82 3A 41 32 24 B2 22 22 3A 81 49 B2 31 A4 |$:.:A2$."":.I.1.|
000039F0: 31 36 3A 42 24 B2 CA 28 41 30 24 2C 49 2C 31 29 |16:B$..(A0$,I,1)|
00003A00: 00 2A 42 A2 2B 41 39 B2 C6 28 42 24 AA 43 5A 24 |.*B.+A9..(B$.CZ$|
00003A10: 29 3A 8B 41 39 B2 41 37 A7 42 24 B2 22 22 3A 49 |):.A9.A7.B$."":I|
00003A20: B2 31 36 3A 89 31 31 31 39 30 00 4A 42 AC 2B 8B |.16:.11190.JB.+.|
00003A30: 41 39 B3 41 35 B0 28 41 39 B1 41 36 AF 41 39 B3 |A9.A5.(A9.A6.A9.|
00003A40: 41 37 29 A7 42 24 B2 22 3F 22 00 7F 42 B6 2B 41 |A7).B$."?"..B.+A|
00003A50: 32 24 B2 41 32 24 AA 42 24 3A 82 3A 8D 31 31 33 |2$.A2$.B$:.:.113|
00003A60: 32 30 3A 8B 54 59 B3 B1 32 A7 41 35 24 B2 22 20 |20:.TY..2.A5$." |
00003A70: 20 20 20 22 AA 41 46 24 3A 89 31 31 32 32 30 00 | ".AF$:.11220.|
00003A80: BE 42 C0 2B 9F 32 2C 44 56 2C 32 2C 44 52 24 AA |.B.+.2,DV,2,DR$.|
00003A90: 22 3A 22 AA 41 30 24 AA 22 2C 22 AA 41 33 24 AA |":".A0$.",".A3$.|
00003AA0: 22 2C 52 22 3A A1 23 32 2C 41 4C 24 2C 41 48 24 |",R":.#2,AL$,AH$|
00003AB0: 3A 58 24 B2 41 4C 24 3A 8D 31 31 34 34 30 00 F1 |:X$.AL$:.11440..|
00003AC0: 42 CA 2B 41 4C 24 B2 58 24 3A 58 24 B2 41 48 24 |B.+AL$.X$:X$.AH$|
00003AD0: 3A 8D 31 31 34 34 30 3A 41 48 24 B2 58 24 3A 41 |:.11440:AH$.X$:A|
00003AE0: 35 24 B2 41 48 24 AA 41 4C 24 AA 41 46 24 3A A0 |5$.AH$.AL$.AF$:.|
00003AF0: 32 00 14 43 D4 2B A1 23 33 2C 41 24 2C 41 24 2C |2..C.+.#3,A$,A$,|
00003B00: 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 |A$,A$,A$,A$,A$,A|
00003B10: 24 2C 41 24 00 54 43 DE 2B A1 23 33 2C 41 24 2C |$,A$.TC.+.#3,A$,|
00003B20: 42 24 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 |B$:A..(A$.CZ$):B|
00003B30: B2 C6 28 42 24 AA 43 5A 24 29 3A 43 B2 41 AA 32 |..(B$.CZ$):C.A.2|
00003B40: 35 36 AC 42 3A 4B 39 B2 53 54 3A 8B 43 B2 30 A7 |56.B:K9.ST:.C.0.|
00003B50: 50 B2 31 30 00 6C 43 E8 2B 41 31 24 B2 C9 28 22 |P.10.lC.+A1$..("|
00003B60: 20 20 20 22 AA C4 28 43 29 2C 33 29 00 7F 43 F2 | "..(C),3)..C.|
00003B70: 2B 8B 50 B3 38 A7 A1 23 33 2C 41 24 2C 41 24 00 |+.P.8..#3,A$,A$.|
00003B80: B6 43 FC 2B 8B 20 50 54 20 AF 20 54 59 B2 30 20 |.C.+. PT . TY.0 |
00003B90: A7 20 99 20 50 46 24 41 31 24 4A 24 41 32 24 41 |. . PF$A1$J$A2$A|
00003BA0: 33 24 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3A |3$J$A4$J$A5$SF$:|
00003BB0: 89 31 31 32 39 30 00 E0 43 06 2C 8B 20 43 20 A7 |.11290..C.,. C .|
00003BC0: 20 98 34 2C 50 46 24 41 31 24 4A 24 41 32 24 41 | .4,PF$A1$J$A2$A|
00003BD0: 33 24 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3B |3$J$A4$J$A5$SF$;|
00003BE0: 00 F5 43 10 2C A1 41 24 3A 8B 41 24 B3 B1 22 22 |..C.,.A$:.A$..""|
00003BF0: A7 50 B2 31 30 00 11 44 15 2C 8B 43 38 30 A7 55 |.P.10..D.,.C80.U|
00003C00: 39 B2 31 AB 55 39 3A 8B 55 39 A7 98 34 2C 41 54 |9.1.U9:.U9..4,AT|
00003C10: 24 00 28 44 1A 2C 82 3A 8B 50 B3 31 30 AF 4B 39 |$.(D.,.:.P.10.K9|
00003C20: B2 30 A7 31 31 31 33 30 00 43 44 24 2C A0 33 3A |.0.11130.CD$,.3:|
00003C30: 8D 31 31 33 33 30 3A 98 34 2C 50 46 24 53 35 24 |.11330:.4,PF$S5$|
00003C40: 53 46 24 00 58 44 2E 2C A0 34 3A 8D 35 38 30 31 |SF$.XD.,.4:.5801|
00003C50: 30 3A 8D 33 30 30 3A 8E 00 7E 44 38 2C 41 32 24 |0:.300:..~D8,A2$|
00003C60: B2 52 31 24 AA 51 24 AA C8 28 41 32 24 AA 51 24 |.R1$.Q$..(A2$.Q$|
00003C70: AA 53 50 24 2C 31 37 29 AA 52 32 24 3A 8E 00 90 |.SP$,17).R2$:...|
00003C80: 44 42 2C 8F 20 42 4C 4F 43 4B 53 20 46 52 45 45 |DB,. BLOCKS FREE|
00003C90: 00 A8 44 4C 2C 9F 31 2C 44 56 2C 30 2C 22 24 22 |..DL,.1,DV,0,"$"|
00003CA0: AA 44 52 24 AA 22 3A 22 00 BA 44 56 2C 8D 31 31 |.DR$.":"..DV,.11|
00003CB0: 33 38 30 3A 98 34 2C 4C 46 24 00 E2 44 60 2C 4C |380:.4,LF$..D`,L|
00003CC0: B2 58 AA 59 AC 32 35 36 3A 98 34 2C 50 46 24 4C |.X.Y.256:.4,PF$L|
00003CD0: 3B 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 41 |;" BLOCKS FREE"A|
00003CE0: 54 24 00 EB 44 6A 2C A0 31 3A 8E 00 05 45 74 2C |T$..Dj,.1:...Et,|
00003CF0: A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C |.#1,X$,X$,X$,X$,|
00003D00: 58 24 2C 58 24 00 1E 45 7E 2C A1 23 31 2C 58 24 |X$,X$..E~,.#1,X$|
00003D10: 3A 8B 58 24 B3 B1 22 22 89 31 31 33 39 30 00 32 |:.X$.."".11390.2|
00003D20: 45 88 2C A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C |E.,.#1,X$,X$,X$,|
00003D30: 59 24 00 49 45 92 2C 58 B2 C3 28 58 24 29 3A 8B |Y$.IE.,X..(X$):.|
00003D40: 58 A7 58 B2 C6 28 58 24 29 00 60 45 9C 2C 59 B2 |X.X..(X$).`E.,Y.|
00003D50: C3 28 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 |.(Y$):.Y.Y..(Y$)|
00003D60: 00 66 45 A6 2C 8E 00 AB 45 B0 2C 58 B2 C6 28 58 |.fE.,...E.,X..(X|
00003D70: 24 AA 43 5A 24 29 3A 58 48 25 B2 58 AD 31 36 3A |$.CZ$):XH%.X.16:|
00003D80: 58 4C B2 58 AB 31 36 AC 58 48 25 3A 58 24 B2 CA |XL.X.16.XH%:X$..|
00003D90: 28 48 58 24 2C 58 48 25 AA 31 2C 31 29 AA CA 28 |(HX$,XH%.1,1)..(|
00003DA0: 48 58 24 2C 58 4C AA 31 2C 31 29 00 B1 45 BA 2C |HX$,XL.1,1)..E.,|
00003DB0: 8E 00 C9 45 E0 2E 8F 20 55 4E 53 43 52 41 54 43 |...E... UNSCRATC|
00003DC0: 48 20 52 4F 55 54 49 4E 45 00 E1 45 E1 2E 8F 22 |H ROUTINE..E..."|
00003DD0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00003DE0: B8 00 EC 45 EA 2E 8D 35 38 30 32 30 00 26 46 F4 |...E...58020.&F.|
00003DF0: 2E 99 22 93 11 11 54 48 45 20 53 43 52 41 54 43 |.."...THE SCRATC|
00003E00: 48 45 44 20 46 49 4C 45 20 4E 41 4D 45 53 20 57 |HED FILE NAMES W|
00003E10: 49 4C 4C 22 3A 99 22 11 42 45 20 44 49 53 50 4C |ILL":.".BE DISPL|
00003E20: 41 59 45 44 2E 22 00 61 46 08 2F 99 22 11 59 4F |AYED.".aF./.".YO|
00003E30: 55 20 4D 41 59 20 44 45 43 49 44 45 20 57 48 49 |U MAY DECIDE WHI|
00003E40: 43 48 20 46 49 4C 45 20 59 4F 55 22 3A 99 22 11 |CH FILE YOU":.".|
00003E50: 57 49 53 48 20 54 4F 20 52 45 43 4F 56 45 52 2E |WISH TO RECOVER.|
00003E60: 22 00 89 46 1C 2F 99 22 11 11 12 52 45 54 55 52 |"..F./."...RETUR|
00003E70: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A |N. TO CONTINUE":|
00003E80: 8D 33 31 30 3A 99 22 93 22 00 9E 46 30 2F A0 33 |.310:."."..F0/.3|
00003E90: 3A A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 BE |:.15:.15,DV,15..|
00003EA0: 46 3A 2F 54 B2 44 49 3A 53 B2 31 3A 9F 33 2C 44 |F:/T.DI:S.1:.3,D|
00003EB0: 56 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 00 D5 |V,3,"#":.63900..|
00003EC0: 46 3F 2F 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 |F?/.15,"B-R";3;D|
00003ED0: 52 3B 54 3B 53 00 E9 46 40 2F 99 22 93 4C 4F 4F |R;T;S..F@/.".LOO|
00003EE0: 4B 49 4E 47 20 41 54 3A 22 00 0F 47 41 2F 99 22 |KING AT:"..GA/."|
00003EF0: 11 11 54 52 41 43 4B 20 20 20 9D 9D 9D 22 54 22 |..TRACK ..."T"|
00003F00: 20 53 45 43 54 4F 52 20 20 20 9D 9D 9D 22 53 00 | SECTOR ..."S.|
00003F10: 31 47 44 2F 81 4A B2 30 A4 32 35 35 3A 98 31 35 |1GD/.J.0.255:.15|
00003F20: 2C 22 42 2D 50 22 3B 33 3B 4A 3A A1 23 33 2C 41 |,"B-P";3;J:.#3,A|
00003F30: 24 00 46 47 4E 2F 43 28 4A 29 B2 C6 28 41 24 AA |$.FGN/C(J)..(A$.|
00003F40: 43 5A 24 29 3A 82 00 6E 47 58 2F 81 44 B2 32 A4 |CZ$):..nGX/.D.2.|
00003F50: 32 35 35 A9 33 32 3A 8B 43 28 44 29 B3 B1 30 B0 |255.32:.C(D)..0.|
00003F60: 43 28 44 AA 31 29 B2 30 A7 31 32 32 30 30 00 9F |C(D.1).0.12200..|
00003F70: 47 62 2F 99 53 44 24 43 4C 24 53 44 24 22 57 41 |Gb/.SD$CL$SD$"WA|
00003F80: 4E 54 20 54 4F 20 55 4E 53 43 52 41 54 43 48 20 |NT TO UNSCRATCH |
00003F90: 12 22 3B 3A 81 50 39 B2 31 A4 32 30 30 3A 82 00 |.";:.P9.1.200:..|
00003FA0: CA 47 6C 2F A1 41 24 3A 81 4B B2 44 AA 33 A4 44 |.Gl/.A$:.K.D.3.D|
00003FB0: AA 31 38 3A 99 C7 28 43 28 4B 29 29 3B 3A 82 3A |.18:..(C(K));:.:|
00003FC0: 99 22 92 3F 22 3A 8D 33 31 30 00 DD 47 76 2F 8B |.".?":.310..Gv/.|
00003FD0: 49 4E 24 B2 22 59 22 A7 31 32 33 30 30 00 FE 47 |IN$."Y".12300..G|
00003FE0: A8 2F 82 44 3A 54 B2 43 28 30 29 3A 53 B2 43 28 |./.D:T.C(0):S.C(|
00003FF0: 31 29 3A 8B 54 B2 44 49 A7 31 32 30 39 35 00 3B |1):.T.DI.12095.;|
00004000: 48 B2 2F 99 22 93 46 49 4E 49 53 48 45 44 20 4C |H./.".FINISHED L|
00004010: 4F 4F 4B 49 4E 47 2E 2E 22 3A 99 22 11 11 12 52 |OOKING..":."...R|
00004020: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00004030: 55 45 2E 22 3A 8D 33 31 30 3A 8E 00 79 48 0C 30 |UE.":.310:..yH.0|
00004040: 54 30 B2 54 3A 53 30 B2 53 3A 54 B2 43 28 44 AA |T0.T:S0.S:T.C(D.|
00004050: 31 29 3A 53 B2 43 28 44 AA 32 29 3A 42 30 B2 43 |1):S.C(D.2):B0.C|
00004060: 28 44 AA 32 38 29 AA 43 28 44 AA 32 39 29 AC 32 |(D.28).C(D.29).2|
00004070: 35 36 3A 8D 35 38 30 31 30 00 A7 48 0D 30 99 22 |56:.58010..H.0."|
00004080: 93 11 11 12 C4 49 52 45 43 54 4F 52 59 20 C2 4C |.....IRECTORY .L|
00004090: 4F 43 4B 20 C3 4F 55 4E 54 3D 22 42 30 3A 4E 39 |OCK .OUNT="B0:N9|
000040A0: B2 31 3A 99 53 30 24 00 E1 48 0E 30 A0 33 3A A0 |.1:.S0$..H.0.3:.|
000040B0: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C |15:.15,DV,15:.3,|
000040C0: 44 56 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 3A |DV,3,"#":.63900:|
000040D0: A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 |.#3,BN$:BN..(BN$|
000040E0: 29 00 FD 48 0F 30 54 28 4E 39 29 B2 54 3A 53 28 |)..H.0T(N9).T:S(|
000040F0: 4E 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 00 14 49 |N9).S:N9.N9.1..I|
00004100: 11 30 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 |.0.15,"B-R";3;DR|
00004110: 3B 54 3B 53 00 26 49 12 30 98 31 35 2C 22 42 2D |;T;S.&I.0.15,"B-|
00004120: 50 22 3B 33 3B 30 00 3F 49 13 30 A1 23 33 2C 5A |P";3;0.?I.0.#3,Z|
00004130: 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 00 |$:.Z$."".Z$.CZ$.|
00004140: 5E 49 14 30 54 28 4E 39 29 B2 C6 28 5A 24 29 3A |^I.0T(N9)..(Z$):|
00004150: 8B 54 28 4E 39 29 B2 30 A7 31 32 33 31 34 00 77 |.T(N9).0.12314.w|
00004160: 49 15 30 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 |I.0.#3,Z$:.Z$.""|
00004170: A7 5A 24 B2 43 5A 24 00 87 49 16 30 53 28 4E 39 |.Z$.CZ$..I.0S(N9|
00004180: 29 B2 C6 28 5A 24 29 00 A5 49 17 30 54 24 B2 CA |)..(Z$)..I.0T$..|
00004190: 28 C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 |(.(T),2):S$..(.(|
000041A0: 53 29 2C 32 29 00 B9 49 18 30 99 22 28 22 54 24 |S),2)..I.0."("T$|
000041B0: 22 2C 22 53 24 22 29 22 3B 00 DC 49 19 30 54 B2 |","S$")";..I.0T.|
000041C0: 54 28 4E 39 29 3A 53 B2 53 28 4E 39 29 3A 4E 39 |T(N9):S.S(N9):N9|
000041D0: B2 4E 39 AA 31 3A 89 31 32 33 30 35 00 EA 49 1A |.N9.1:.12305..I.|
000041E0: 30 4E 39 B2 4E 39 AB 31 3A 99 00 00 4A 1B 30 99 |0N9.N9.1:...J.0.|
000041F0: 22 11 12 22 4E 39 22 20 42 4C 4F 43 4B 53 11 22 |".."N9" BLOCKS."|
00004200: 00 36 4A 3E 30 8B 4E 39 B3 B1 42 30 A7 99 22 11 |.6J>0.N9..B0..".|
00004210: 11 2A 2A 12 49 4E 43 4F 52 52 45 43 54 20 42 4C |.**.INCORRECT BL|
00004220: 4F 43 4B 20 43 4F 55 4E 54 92 2A 2A 11 11 22 3A |OCK COUNT.**..":|
00004230: 8D 33 30 30 3A 8E 00 51 4A 48 30 99 22 11 CC 4F |.300:..QJH0."..O|
00004240: 4F 4B 53 20 47 4F 4F 44 20 53 4F 20 46 41 52 2E |OKS GOOD SO FAR.|
00004250: 22 00 7C 4A 52 30 99 22 11 D3 48 41 4C 4C 20 57 |".|JR0."..HALL W|
00004260: 45 20 50 52 4F 43 45 45 44 3F 22 3A 8D 33 31 30 |E PROCEED?":.310|
00004270: 3A 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 A8 4A 5C |:.IN$.."Y"....J\|
00004280: 30 99 22 93 11 11 D7 45 27 4C 4C 20 43 48 45 43 |0."....E'LL CHEC|
00004290: 4B 20 54 48 41 54 20 54 48 45 20 41 42 4F 56 45 |K THAT THE ABOVE|
000042A0: 20 42 4C 4F 43 4B 53 22 00 D1 4A 66 30 99 22 11 | BLOCKS"..Jf0.".|
000042B0: 41 52 45 20 C6 D2 C5 C5 20 42 59 20 4C 4F 4F 4B |ARE .... BY LOOK|
000042C0: 49 4E 47 20 41 54 20 54 48 45 20 C2 C1 CD 2E 11 |ING AT THE .....|
000042D0: 22 00 00 4B 70 30 99 22 11 D4 48 45 20 54 52 41 |"..Kp0."..HE TRA|
000042E0: 43 4B 2F 53 45 43 54 4F 52 53 20 46 4F 52 20 54 |CK/SECTORS FOR T|
000042F0: 48 45 20 46 49 4C 45 20 57 49 4C 4C 20 42 45 22 |HE FILE WILL BE"|
00004300: 00 2A 4B 7A 30 99 22 11 44 49 53 50 4C 41 59 45 |.*Kz0.".DISPLAYE|
00004310: 44 2E 20 C9 46 20 41 20 42 4C 4F 43 4B 20 49 53 |D. .F A BLOCK IS|
00004320: 20 4F 43 43 55 50 49 45 44 22 00 54 4B 84 30 99 | OCCUPIED".TK.0.|
00004330: 22 11 54 48 45 20 D5 CE D3 C3 D2 C1 D4 C3 C8 20 |".THE ......... |
00004340: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 21 22 3A |WILL NOT WORK!":|
00004350: 8D 33 30 30 00 86 4B 85 30 A0 31 35 3A 9F 31 35 |.300..K.0.15:.15|
00004360: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D |,DV,15,"I".DR$:.|
00004370: 36 33 39 30 30 3A 99 22 93 22 3A 8D 35 38 30 32 |63900:.".":.5802|
00004380: 30 3A 4B 31 B2 31 00 A1 4B 86 30 9F 32 2C 44 56 |0:K1.1..K.0.2,DV|
00004390: 2C 32 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 |,2,"$".DR$:.6390|
000043A0: 30 00 BB 4B 87 30 96 20 A5 42 28 49 29 B2 28 5A |0..K.0. .B(I).(Z|
000043B0: AF 50 28 49 29 29 AD 50 28 49 29 00 D7 4B 88 30 |.P(I)).P(I)..K.0|
000043C0: 46 46 B2 44 31 AA 28 54 28 4B 31 29 AB 31 29 AC |FF.D1.(T(K1).1).|
000043D0: 53 33 3A 50 50 B2 30 00 ED 4B 89 30 81 4B 32 B2 |S3:PP.0..K.0.K2.|
000043E0: 30 A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 0A 4C |0.FF:.#2,A$:...L|
000043F0: 98 30 54 B2 54 28 4B 31 29 3A 99 22 93 22 3A 8D |.0T.T(K1):.".":.|
00004400: 36 34 30 30 3A 8D 36 35 38 30 00 2E 4C A2 30 99 |6400:.6580..L.0.|
00004410: 53 44 24 22 43 48 45 43 4B 20 54 48 41 54 20 54 |SD$"CHECK THAT T|
00004420: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 22 00 49 |HE FOLLOWING ".I|
00004430: 4C A7 30 99 22 11 53 45 43 54 4F 52 53 20 41 52 |L.0.".SECTORS AR|
00004440: 45 20 46 52 45 45 3D D7 22 00 7D 4C AC 30 81 4B |E FREE=.".}L.0.K|
00004450: 32 B2 31 A4 4E 39 3A 8B 54 28 4B 32 29 B2 54 A7 |2.1.N9:.T(K2).T.|
00004460: 99 52 24 28 50 50 29 CA 28 C4 28 53 28 4B 32 29 |.R$(PP).(.(S(K2)|
00004470: 29 2C 32 29 52 24 28 31 AB 50 50 29 3B 00 8D 4C |),2)R$(1.PP);..L|
00004480: B1 30 50 50 B2 31 AB 50 50 3A 82 3A 99 00 9E 4C |.0PP.1.PP:.:...L|
00004490: B6 30 99 22 11 4F 4B 3F 22 3A 8D 33 31 30 00 C9 |.0.".OK?":.310..|
000044A0: 4C BB 30 8B 49 4E 24 B3 B1 22 59 22 A7 99 22 93 |L.0.IN$.."Y"..".|
000044B0: 53 4F 52 52 59 2E 2E 22 3A 8D 35 38 30 31 30 3A |SORRY..":.58010:|
000044C0: 8D 33 30 30 3A A0 32 3A 8E 00 DD 4C C0 30 A0 32 |.300:.2:...L.0.2|
000044D0: 3A 8B 4B 31 B1 4E 39 A7 A0 31 35 3A 8E 00 F8 4C |:.K1.N9..15:...L|
000044E0: CA 30 4B 31 B2 4B 31 AA 31 3A 8B 54 28 4B 31 29 |.0K1.K1.1:.T(K1)|
000044F0: B2 30 A7 31 32 36 30 30 00 0B 4D D4 30 8B 54 28 |.0.12600..M.0.T(|
00004500: 4B 31 29 B2 54 A7 31 32 34 39 30 00 16 4D D9 30 |K1).T.12490..M.0|
00004510: 89 31 32 34 32 32 00 26 4D 38 31 99 22 93 22 3A |.12422.&M81.".":|
00004520: 8D 35 38 30 31 30 00 56 4D 42 31 99 22 CE 4F 57 |.58010.VMB1.".OW|
00004530: 20 4D 4F 44 49 46 59 20 54 48 45 20 12 4D 41 47 | MODIFY THE .MAG|
00004540: 49 43 20 42 59 54 45 92 20 4F 4E 20 44 49 52 45 |IC BYTE. ON DIRE|
00004550: 43 54 4F 52 59 22 00 71 4D 4C 31 99 22 11 D4 52 |CTORY".qML1."..R|
00004560: 41 43 4B 22 54 30 22 20 D3 45 43 54 4F 52 22 53 |ACK"T0" .ECTOR"S|
00004570: 30 00 A2 4D 56 31 99 22 11 D4 48 45 4E 20 D7 52 |0..MV1."..HEN .R|
00004580: 49 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 42 41 |ITE THE BLOCK BA|
00004590: 43 4B 20 54 4F 20 28 22 54 30 22 2C 22 53 30 22 |CK TO ("T0","S0"|
000045A0: 29 22 00 C7 4D 60 31 99 22 11 C6 49 4E 41 4C 4C |)"..M`1."..INALL|
000045B0: 59 20 12 D6 41 4C 49 44 41 54 45 92 20 54 48 45 |Y ..ALIDATE. THE|
000045C0: 20 44 49 53 4B 21 22 00 D2 4D 6A 31 8D 33 30 30 | DISK!"..Mj1.300|
000045D0: 3A 8E 00 E8 4D 50 C3 8F 20 42 41 43 4B 55 50 20 |:...MP.. BACKUP |
000045E0: 42 59 20 42 4C 4F 43 4B 00 FE 4D 51 C3 8F 22 B8 |BY BLOCK..MQ..".|
000045F0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 2F |.............../|
00004600: 4E 52 C3 97 35 33 32 38 30 2C 46 35 3A 99 22 93 |NR..53280,F5:.".|
00004610: 22 3A 58 B2 33 30 3A 58 24 B2 22 C2 C1 C3 CB D5 |":X.30:X$.".....|
00004620: D0 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 00 |.":Y$."":.54020.|
00004630: 51 4E 53 C3 99 22 11 11 C6 CF D2 20 D4 D7 CF 20 |QNS.."..... ... |
00004640: C4 D2 C9 D6 C5 D3 20 CF CE CC D9 22 3A 8D 33 30 |...... ....":.30|
00004650: 30 00 7D 4E 55 C3 99 22 93 28 48 49 54 20 D2 C5 |0.}NU..".(HIT ..|
00004660: D4 D5 D2 CE 20 54 4F 20 41 42 4F 52 54 29 22 3A |.... TO ABORT)":|
00004670: 46 46 24 B2 22 22 3A 8D 35 34 30 32 30 00 B5 4E |FF$."":.54020..N|
00004680: 5A C3 85 22 11 11 11 12 46 52 4F 4D 92 20 44 52 |Z.."....FROM. DR|
00004690: 49 56 45 20 20 20 A0 9D 9D 9D 22 3B 46 44 24 3A |IVE ....";FD$:|
000046A0: 46 44 B2 C5 28 46 44 24 29 3A 8B 20 46 44 24 B2 |FD..(FD$):. FD$.|
000046B0: 22 A0 22 A7 8E 00 CE 4E 5F C3 85 22 11 44 45 56 |"."....N_..".DEV|
000046C0: 49 43 45 20 20 20 38 9D 9D 9D 22 3B 44 41 00 05 |ICE 8...";DA..|
000046D0: 4F 64 C3 85 22 11 11 12 54 4F 92 20 44 52 49 56 |Od.."...TO. DRIV|
000046E0: 45 22 3B 54 44 24 3A 54 44 B2 C5 28 54 44 24 29 |E";TD$:TD..(TD$)|
000046F0: 3A 85 22 11 44 45 56 49 43 45 20 20 20 38 9D 9D |:.".DEVICE 8..|
00004700: 9D 22 3B 44 42 00 2D 4F 69 C3 A0 33 3A A0 35 3A |.";DB.-Oi..3:.5:|
00004710: A0 31 34 3A A0 31 35 3A 9F 31 35 2C 44 41 2C 31 |.14:.15:.15,DA,1|
00004720: 35 3A 98 31 35 2C 22 49 22 AA 46 44 24 00 65 4F |5:.15,"I".FD$.eO|
00004730: 6E C3 9F 33 2C 44 41 2C 33 2C 22 23 22 3A 8D 36 |n..3,DA,3,"#":.6|
00004740: 33 39 30 30 3A 9F 31 34 2C 44 42 2C 31 35 3A 50 |3900:.14,DB,15:P|
00004750: B2 31 3A 8B 44 42 B2 44 41 A7 42 42 B2 33 3A 89 |.1:.DB.DA.BB.3:.|
00004760: 35 30 30 34 30 00 7A 4F 73 C3 42 42 B2 35 3A 9F |50040.zOs.BB.5:.|
00004770: 35 2C 44 42 2C 35 2C 22 23 22 00 BA 4F 78 C3 85 |5,DB,5,"#"..Ox..|
00004780: 22 11 11 53 54 41 52 54 20 41 54 20 54 52 41 43 |"..START AT TRAC|
00004790: 4B 20 20 20 31 9D 9D 9D 22 3B 54 38 3A 85 22 11 |K 1...";T8:.".|
000047A0: 11 45 4E 44 20 41 54 20 54 52 41 43 4B 20 20 20 |.END AT TRACK |
000047B0: 33 35 9D 9D 9D 9D 22 3B 54 39 00 FB 4F 7D C3 85 |35....";T9..O}..|
000047C0: 22 11 11 45 52 52 4F 52 53 20 54 4F 20 50 52 49 |"..ERRORS TO PRI|
000047D0: 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 56 56 24 |NTER N...";VV$|
000047E0: 3A 56 56 B2 30 3A 8B 20 56 56 24 B2 22 59 22 20 |:VV.0:. VV$."Y" |
000047F0: A7 20 56 56 B2 31 3A 9F 34 2C 34 00 0B 50 82 C3 |. VV.1:.4,4..P..|
00004800: 8B 56 56 B2 30 A7 35 30 30 35 33 00 40 50 83 C3 |.VV.0.50053.@P..|
00004810: 85 22 11 44 4F 45 53 20 54 48 45 20 50 52 49 4E |.".DOES THE PRIN|
00004820: 54 45 52 20 4E 45 45 44 20 41 20 4C 49 4E 45 20 |TER NEED A LINE |
00004830: 46 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 39 24 |FEED N...";U9$|
00004840: 00 57 50 84 C3 8B 55 39 24 B2 22 59 22 A7 46 46 |.WP...U9$."Y".FF|
00004850: 24 B2 C7 28 31 30 29 00 78 50 85 C3 99 22 93 2E |$..(10).xP..."..|
00004860: 2E 47 4F 20 46 4F 52 20 41 20 43 4F 46 46 45 45 |.GO FOR A COFFEE|
00004870: 2E 2E 22 3A 8D 33 30 30 00 92 50 87 C3 99 22 93 |..":.300..P...".|
00004880: 22 3A 81 54 B2 54 38 A4 54 39 3A 81 53 B2 30 A4 |":.T.T8.T9:.S.0.|
00004890: 33 31 00 A9 50 9B C3 98 31 35 2C 22 42 2D 52 22 |31..P...15,"B-R"|
000048A0: 3B 33 3B 46 44 3B 54 3B 53 00 BC 50 A0 C3 84 31 |;3;FD;T;S..P...1|
000048B0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 D5 50 A5 |5,E,E$,E1,E2..P.|
000048C0: C3 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 |.. E.66 . S.31:.|
000048D0: 35 30 31 34 30 00 02 51 AA C3 99 22 13 54 52 41 |50140..Q...".TRA|
000048E0: 43 4B 20 20 20 20 20 9D 9D 9D 9D 9D 22 54 22 20 |CK ....."T" |
000048F0: 53 45 43 54 4F 52 20 20 20 20 20 9D 9D 9D 9D 9D |SECTOR .....|
00004900: 22 53 00 13 51 AF C3 8B 20 45 B2 30 20 A7 35 30 |"S..Q... E.0 .50|
00004910: 31 31 30 00 46 51 B4 C3 99 22 13 22 3A 81 49 B2 |110.FQ...".":.I.|
00004920: 31 A4 50 3A 99 3A 82 3A 99 45 3B 45 24 3B 45 31 |1.P:.:.:.E;E$;E1|
00004930: 3B 45 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 |;E2;":DRIVE ."FD|
00004940: 3A 50 B2 50 AA 31 00 70 51 B5 C3 8B 20 56 56 20 |:P.P.1.pQ... VV |
00004950: A7 20 98 34 2C 45 3B 45 24 3B 45 31 3B 45 32 3B |. .4,E;E$;E1;E2;|
00004960: 22 3A 44 52 49 56 45 20 12 22 46 44 3B 46 46 24 |":DRIVE ."FD;FF$|
00004970: 00 80 51 BE C3 8B 42 42 B2 33 A7 35 30 31 31 34 |..Q...BB.3.50114|
00004980: 00 AC 51 BF C3 81 55 39 B2 30 A4 32 35 35 3A 98 |..Q...U9.0.255:.|
00004990: 31 35 2C 22 42 2D 50 22 2C 33 2C 55 39 3A 98 31 |15,"B-P",3,U9:.1|
000049A0: 34 2C 22 42 2D 50 22 2C 35 2C 55 39 00 C1 51 C0 |4,"B-P",5,U9..Q.|
000049B0: C3 A1 23 33 2C 42 59 24 3A 98 35 2C 42 59 24 3A |..#3,BY$:.5,BY$:|
000049C0: 82 00 D9 51 C2 C3 98 31 34 2C 22 55 32 3A 22 3B |...Q...14,"U2:";|
000049D0: 42 42 3B 54 44 3B 54 3B 53 00 EC 51 C3 C3 84 31 |BB;TD;T;S..Q...1|
000049E0: 34 2C 45 2C 45 24 2C 45 31 2C 45 32 00 05 52 C8 |4,E,E$,E1,E2..R.|
000049F0: C3 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 |.. E.66 . S.31:.|
00004A00: 35 30 31 34 30 00 16 52 CD C3 8B 20 45 B2 30 20 |50140..R... E.0 |
00004A10: A7 35 30 31 33 35 00 49 52 D2 C3 99 22 13 22 3A |.50135.IR...".":|
00004A20: 81 49 B2 31 A4 50 3A 99 3A 82 3A 99 45 3B 45 24 |.I.1.P:.:.:.E;E$|
00004A30: 3B 45 31 3B 45 32 3B 22 3A 44 52 49 56 45 20 12 |;E1;E2;":DRIVE .|
00004A40: 22 54 44 3A 50 B2 50 AA 31 00 73 52 D3 C3 8B 20 |"TD:P.P.1.sR... |
00004A50: 56 56 20 A7 20 98 34 2C 45 3B 45 24 3B 45 31 3B |VV . .4,E;E$;E1;|
00004A60: 45 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 3B |E2;":DRIVE ."FD;|
00004A70: 46 46 24 00 91 52 D7 C3 A1 49 4E 24 3A 8B 49 4E |FF$..R...IN$:.IN|
00004A80: 24 B3 B1 22 22 A7 53 B2 31 30 30 3A 54 B2 31 30 |$.."".S.100:T.10|
00004A90: 30 00 B2 52 DC C3 82 3A 82 3A 98 31 34 2C 22 49 |0..R...:.:.14,"I|
00004AA0: 22 AA 54 44 24 3A 8B 20 56 56 20 A7 20 98 34 3A |".TD$:. VV . .4:|
00004AB0: A0 34 00 C4 52 E6 C3 A0 33 3A A0 35 3A A0 31 34 |.4..R...3:.5:.14|
00004AC0: 3A A0 31 35 00 05 53 F0 C3 99 22 13 20 20 20 20 |:.15..S...". |
00004AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AF0: 20 20 13 22 58 24 22 2E 2E 2E 12 46 49 4E 49 53 | ."X$"....FINIS|
00004B00: 48 45 44 92 22 00 1A 53 FA C3 A1 41 24 3A 8B 41 |HED."..S...A$:.A|
00004B10: 24 B2 22 22 89 35 30 31 37 30 00 20 53 04 C4 8E |$."".50170. S...|
00004B20: 00 38 53 38 C7 8F 20 43 48 45 43 4B 20 44 49 53 |.8S8.. CHECK DIS|
00004B30: 4B 20 42 4C 4F 43 4B 53 00 50 53 39 C7 8F 22 B8 |K BLOCKS.PS9..".|
00004B40: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00004B50: 00 80 53 3A C7 99 22 93 22 3A 58 B2 32 3A 58 24 |..S:..".":X.2:X$|
00004B60: B2 22 C3 C8 C5 C3 CB 20 C2 C1 C4 20 C2 CC CF C3 |."..... ... ....|
00004B70: CB D3 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 |..":Y$."":.54020|
00004B80: 00 9F 53 42 C7 85 22 11 44 45 56 49 43 45 20 20 |..SB..".DEVICE |
00004B90: 20 38 9D 9D 9D 22 3B 44 41 3A 44 42 B2 44 41 00 | 8...";DA:DB.DA.|
00004BA0: D4 53 4C C7 85 22 11 44 52 49 56 45 20 20 20 30 |.SL..".DRIVE 0|
00004BB0: 9D 9D 9D 22 3B 46 44 24 3A 54 44 24 B2 46 44 24 |...";FD$:TD$.FD$|
00004BC0: 3A 46 44 B2 C5 28 46 44 24 29 3A 54 44 B2 C5 28 |:FD..(FD$):TD..(|
00004BD0: 54 44 24 29 00 FE 53 56 C7 99 22 11 11 12 D7 45 |TD$)..SV.."....E|
00004BE0: 27 4C 4C 20 52 45 41 44 2F 57 52 49 54 45 20 54 |'LL READ/WRITE T|
00004BF0: 4F 20 45 56 45 52 59 20 42 4C 4F 43 4B 22 00 27 |O EVERY BLOCK".'|
00004C00: 54 60 C7 99 22 11 12 41 4E 44 20 49 4E 44 49 43 |T`.."..AND INDIC|
00004C10: 41 54 45 20 41 4E 59 20 44 49 53 4B 20 45 52 52 |ATE ANY DISK ERR|
00004C20: 4F 52 53 2E 20 20 22 00 5A 54 6A C7 85 22 11 11 |ORS. ".ZTj.."..|
00004C30: D3 48 41 4C 4C 20 57 45 20 43 4F 4E 54 49 4E 55 |.HALL WE CONTINU|
00004C40: 45 20 20 20 59 9D 9D 9D 22 3B 51 24 3A 8B 51 24 |E Y...";Q$:.Q$|
00004C50: B2 22 59 22 89 35 30 30 32 35 00 60 54 74 C7 8E |."Y".50025.`Tt..|
00004C60: 00 8F 54 F0 D2 99 22 13 11 11 22 3A 81 55 39 B2 |..T..."...":.U9.|
00004C70: 31 A4 58 3A 99 22 1D 22 3B 3A 82 3A 4C 39 B2 C3 |1.X:.".";:.:L9..|
00004C80: 28 58 24 29 3A 8B 4C 39 B3 34 A7 4C 39 B2 34 00 |(X$):.L9.4.L9.4.|
00004C90: BE 54 FA D2 58 24 B2 C8 28 58 24 AA 22 20 20 20 |.T..X$..(X$." |
00004CA0: 20 22 2C 4C 39 29 3A 59 24 B2 C8 28 22 4D 45 4E | ",L9):Y$..("MEN|
00004CB0: 55 20 20 20 20 20 20 20 20 22 2C 4C 39 29 00 F3 |U ",L9)..|
00004CC0: 54 04 D3 4C 39 B2 C3 28 58 24 29 3A 99 22 B0 22 |T..L9..(X$):."."|
00004CD0: 3B 3A 81 55 39 B2 31 A4 4C 39 3A 99 22 C0 22 3B |;:.U9.1.L9:.".";|
00004CE0: 3A 82 3A 99 22 AE 11 9D DD 11 9D DD 11 9D BD 9D |:.:."...........|
00004CF0: 9D 22 3B 00 28 55 0E D3 81 55 39 B2 31 A4 4C 39 |.";.(U...U9.1.L9|
00004D00: 3A 99 22 C0 9D 9D 22 3B 3A 82 3A 99 22 AD 9D 91 |:."...";:.:."...|
00004D10: DD 9D 91 DD 12 22 56 43 24 58 24 3B 3A 81 55 39 |....."VC$X$;:.U9|
00004D20: B2 31 A4 C3 28 58 24 29 00 41 55 18 D3 99 22 9D |.1..(X$).AU...".|
00004D30: 22 3B 3A 82 3A 99 22 11 12 22 59 24 54 43 24 3A |";:.:.".."Y$TC$:|
00004D40: 8E 00 58 55 90 E2 8F 20 55 50 50 45 52 2F 4C 4F |..XU... UPPER/LO|
00004D50: 57 45 52 20 43 41 53 45 00 71 55 9A E2 8B 43 50 |WER CASE.qU...CP|
00004D60: 24 B2 22 43 36 34 22 A7 99 C7 28 31 34 29 3B 3A |$."C64"...(14);:|
00004D70: 8E 00 81 55 9B E2 97 35 39 34 36 38 2C 31 34 3A |...U...59468,14:|
00004D80: 8E 00 9B 55 A4 E2 8B 43 50 24 B2 22 43 36 34 22 |...U...CP$."C64"|
00004D90: A7 99 C7 28 31 34 32 29 3B 3A 8E 00 AB 55 A5 E2 |...(142);:...U..|
00004DA0: 97 35 39 34 36 38 2C 31 32 3A 8E 00 E7 55 78 E6 |.59468,12:...Ux.|
00004DB0: 53 44 B2 35 34 32 37 32 3A 81 49 B2 30 A4 32 34 |SD.54272:.I.0.24|
00004DC0: 3A 97 53 44 AA 49 2C 30 3A 82 3A 97 53 44 AA 36 |:.SD.I,0:.:.SD.6|
00004DD0: 2C 32 34 30 3A 97 53 44 AA 31 2C 35 30 3A 97 53 |,240:.SD.1,50:.S|
00004DE0: 44 AA 32 34 2C 31 35 00 0D 56 82 E6 50 41 B2 53 |D.24,15..V..PA.S|
00004DF0: 44 AA 34 3A 4F 30 B2 33 33 3A 4F 31 B2 30 3A 50 |D.4:O0.33:O1.0:P|
00004E00: 42 B2 36 35 35 33 35 3A 50 43 B2 50 42 00 4C 56 |B.65535:PC.PB.LV|
00004E10: 8C E6 8B 43 50 24 B2 22 50 45 54 22 A7 50 42 B2 |...CP$."PET".PB.|
00004E20: 35 39 34 36 37 3A 50 43 B2 35 39 34 36 36 3A 97 |59467:PC.59466:.|
00004E30: 50 42 2C 31 36 3A 97 50 43 2C 31 35 3A 50 41 B2 |PB,16:.PC,15:PA.|
00004E40: 35 39 34 36 34 3A 4F 30 B2 31 30 30 00 59 56 DB |59464:O0.100.YV.|
00004E50: E6 8D 35 39 31 30 30 3A 8E 00 8C 56 DC E6 97 50 |..59100:...V...P|
00004E60: 42 2C 31 36 3A 97 50 43 2C 31 35 3A 97 50 41 2C |B,16:.PC,15:.PA,|
00004E70: 4F 30 3A 81 50 39 B2 31 A4 31 30 3A 82 3A 97 50 |O0:.P9.1.10:.:.P|
00004E80: 41 2C 4F 31 3A 97 50 42 2C 30 3A 8E 00 98 56 48 |A,O1:.PB,0:...VH|
00004E90: EE 8F 20 49 4E 50 55 54 00 BE 56 49 EE 99 22 43 |.. INPUT..VI.."C|
00004EA0: 55 52 52 45 4E 54 20 43 28 22 49 22 29 3D 20 20 |URRENT C("I")= |
00004EB0: 20 20 20 A0 9D 9D 9D 9D 9D 22 43 28 49 29 00 E9 | ......"C(I)..|
00004EC0: 56 4B EE 85 22 11 49 4E 50 55 54 20 41 20 53 54 |VK..".INPUT A ST|
00004ED0: 52 49 4E 47 20 20 20 59 9D 9D 9D 22 3B 41 24 3A |RING Y...";A$:|
00004EE0: 8B 41 24 B2 22 4E 22 A7 8E 00 33 57 4C EE 99 22 |.A$."N"...3WL.."|
00004EF0: 11 C5 CE D4 C5 D2 20 D3 D4 D2 C9 CE C7 3A 20 D4 |...... ......: .|
00004F00: C5 D2 CD C9 CE C1 D4 C5 20 D7 C9 D4 C8 20 12 D2 |........ .... ..|
00004F10: C5 D4 D5 D2 CE 92 3A 11 22 3A 42 43 24 B2 22 42 |......:.":BC$."B|
00004F20: 59 54 45 A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 |YTE.COUNT.......|
00004F30: A0 A0 22 00 55 57 4D EE 42 43 24 B2 22 42 59 54 |..".UWM.BC$."BYT|
00004F40: 45 A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 A0 A0 |E.COUNT.........|
00004F50: A0 A0 A0 A0 22 00 90 57 52 EE 49 4E 24 B2 22 22 |...."..WR.IN$.""|
00004F60: 3A 4E B2 C3 28 49 4E 24 29 3A 81 4B 39 B2 31 A4 |:N..(IN$):.K9.1.|
00004F70: 32 33 3A 97 43 52 54 AA 4B 39 AB 31 2C C6 28 CA |23:.CRT.K9.1,.(.|
00004F80: 28 42 43 24 2C 4B 39 2C 31 29 29 AB 36 34 3A 82 |(BC$,K9,1)).64:.|
00004F90: 00 B9 57 57 EE 4B 39 B2 31 32 3A 4E 24 B2 CA 28 |..WW.K9.12:N$..(|
00004FA0: C4 28 4E 29 2C 32 29 3A 4C 4E B2 C3 28 4E 24 29 |.(N),2):LN..(N$)|
00004FB0: 3A 81 4B 38 B2 31 A4 4C 4E 00 E6 57 58 EE 97 43 |:.K8.1.LN..WX..C|
00004FC0: 52 54 AA 4B 38 AA 4B 39 2C C6 28 CA 28 4E 24 2C |RT.K8.K9,.(.(N$,|
00004FD0: 4B 38 2C 31 29 29 3A 82 3A 97 43 52 54 AA 4B 38 |K8,1)):.:.CRT.K8|
00004FE0: AA 4B 39 2C 33 32 00 02 58 5C EE 99 22 AF 9D 22 |.K9,32..X\..".."|
00004FF0: 3B 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 36 31 30 |;:.A$:.A$."".610|
00005000: 31 35 00 37 58 66 EE 41 B2 C6 28 41 24 29 3A 8B |15.7Xf.A..(A$):.|
00005010: 41 B2 31 37 B0 41 B2 31 34 35 B0 41 B2 31 34 38 |A.17.A.145.A.148|
00005020: B0 41 B2 31 39 B0 41 B2 31 34 37 B0 41 B2 31 35 |.A.19.A.147.A.15|
00005030: 37 A7 36 31 30 31 35 00 4E 58 70 EE 99 22 20 9D |7.61015.NXp.." .|
00005040: 22 3B 3A 8B 41 B2 31 33 A7 36 31 30 38 30 00 65 |";:.A.13.61080.e|
00005050: 58 7A EE 8B 49 4E 24 B2 22 22 AF 41 B2 32 30 A7 |Xz..IN$."".A.20.|
00005060: 36 31 30 31 35 00 91 58 84 EE 8B 41 B2 32 30 A7 |61015..X...A.20.|
00005070: 4E B2 4E AB 31 3A 99 22 9D 20 9D 22 3B 3A 49 4E |N.N.1:.". .";:IN|
00005080: 24 B2 C8 28 49 4E 24 2C 4E 29 3A 89 36 31 30 31 |$..(IN$,N):.6101|
00005090: 35 00 C1 58 8E EE 99 22 20 9D 22 41 24 3B 3A 49 |5..X..." ."A$;:I|
000050A0: 4E 24 B2 49 4E 24 AA 41 24 3A 4E B2 C3 28 49 4E |N$.IN$.A$:N..(IN|
000050B0: 24 29 3A 8B 4E B3 32 35 35 AB 49 A7 36 31 30 31 |$):.N.255.I.6101|
000050C0: 35 00 EA 58 98 EE 81 55 39 B2 31 A4 4E 3A 43 28 |5..X...U9.1.N:C(|
000050D0: 49 AA 55 39 AB 31 29 B2 C6 28 CA 28 49 4E 24 2C |I.U9.1)..(.(IN$,|
000050E0: 55 39 2C 31 29 29 3A 82 3A 8E 00 FD 58 9C F9 84 |U9,1)):.:...X...|
000050F0: 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 08 59 |15,E,E$,E1,E2..Y|
00005100: 9D F9 8B 45 B2 30 A7 8E 00 30 59 9E F9 99 3A 99 |...E.0...0Y...:.|
00005110: 22 11 2A 2A 12 44 49 53 4B 20 45 52 52 4F 52 92 |".**.DISK ERROR.|
00005120: 2A 2A 11 22 3A 99 45 3B 45 24 3B 45 31 3B 45 32 |**.":.E;E$;E1;E2|
00005130: 00 46 59 9F F9 81 41 39 B2 31 A4 31 30 3A 8D 35 |.FY...A9.1.10:.5|
00005140: 39 31 30 30 3A 82 00 65 59 A0 F9 99 22 11 11 12 |9100:..eY..."...|
00005150: 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 |RETURN. TO CONTI|
00005160: 4E 55 45 2E 22 00 87 59 A1 F9 99 22 11 11 41 4E |NUE."..Y..."..AN|
00005170: 59 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 12 |Y OTHER KEY TO .|
00005180: 51 55 49 54 92 2E 22 00 9B 59 A2 F9 8D 33 31 30 |QUIT.."..Y...310|
00005190: 3A 8B 49 4E 24 B2 43 52 24 A7 8E 00 A5 59 A3 F9 |:.IN$.CR$....Y..|
000051A0: 89 37 39 30 30 00 00 00 24 20 FF |.7900...$ . |
....... PETER J. PONZO.0.... 49 MARGARET
AVE. S..L.... WATERLOO,ONT. N2J 2C8.A..
.. 1-519-578-1147...... DISKVIEW - FOR P
ET AND C64......".........L....B(0).47..
56,7.16:.55,0:.:. SOME RAM FOR SAVING BL
OCKS......B(0)..47..53,7.16:.52,0:......
F1.07:F3.00:F5.06:. COLOURS.....:.%...DA
$."MAR 31/84".+...:.C...CRT.1024:CP$."C6
4":. B(0)..47 . CRT.32768:CP$."PET".W...
BS.CRT.45:.8000.}...:.....M$(1)."LOAD BL
OCK INTO COMPUTER".G. .M$(2)."SEE ASCII
OF ABOVE BLOCK"...!.M$(3)."MODIFY ABOVE
BLOCK"...".M$(4)."STORE ABOVE BLOCK IN R
AM".2.#.M$(5)."WRITE BLOCK IN RAM TO DIS
K".U.$.M$(6)."BLOCK AVAILABILITY MAP".O.
%.M$(7)."DISK COMMANDS"...&.M$(8)."TRACE
BLOCKS...'.M$(9)."UNSCRATCH A FILE...D.
. MENU...E.." .....I.H..53280,F1...I. 1
5:.15,DV,15:.58010:.".":X$."MAIN":X.30:.
54000...N.."."HD$.&.X..I.1.9:.".."I".:"M
$(I):..N....S0$:.VC$"HIT .RETURN. TO QUI
T."TC$.E....310:.IN$.CR$.7900.V....IN$."
.".110... ..IN$.".".110......IN$.".".110
.N...."..":.I.1.IN:."..";:.:."....."M$(I
N):.T9.1.300:....H..IN.1.50000,1000,2000
,3000,4000,5000,6000,7000,7100,7500...R.
.104.A...F1..(F1.1).(F1.15):.53281,F1:.5
3280,F1:..J...F3..(F3.1).(F3.15):TC$.F3$
(F3):.TC$;.....HD$.S0$.CR$.VC$.MH$."DEVI
CE ".J(D(DV),2).TC$.CR$.S0$:..H...F5..(F
5.1).(F5.15):VC$.F5$(F5).Q....261...,..
GET...-.." ......1..VC$"..RETURN. TO CO
NT"TC$...6..IN$:.IN$.."".310.1.@..IN$:.I
N$."".320.C.J..IN$."."..250.U.K..IN$."."
..260.G.L..IN$."."..270.~.T.IN.E(IN$):.5
9100:....... LOAD BLOCK INTO COMPUTER...
...".........................E...Y9.0...
.. 3: 15:.15,DV,15:.3,DV,3,"#":.#3,BN$:B
N.F(BN$):DC.3.....BN$.J(BN$,2).&....15,"
B-P";DC;1:.".".;....K.0.10:.3,K$;:..O...
."........."S0$.U....Y9..".TRACK,SECTOR.
"T","S:.1060......".TRACK,SECTOR. ...
.";T,S...$..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.#.`..VC$"..RETURN TO TER
MINATE"TC$:.D(C(0))D(C(1));.C.J.J.2:.I.2
.255:.15,"B-P";DC;I.\.T..#3,B$:.B$."".B$
.CZ$.K.~.C(I).F(B$)......BS.J,C(I):.NN.J
,F3......A$:.A$..""..1195.....J.J.1:....
.. 3: 15:.BB$:.300.M...Y9.0:.C(0).0.....
...".....LOAD NEXT TRACK/SECTOR N...";
IN$:.IN$.."Y"...$...T.C(0):S.C(1):Y9.1:.
1010.F....VC$"................BLOCK HAS
NOT BEEN COMPLETELY LOADED"TC$. ...."..W
ANT TO CONTINUE LOADING N...";N$:.N$."
N".I.256......"...............
"TC$......"
":.......
C(0)/C(1).*...."..........A....SD$:.15,
"B-P";3;1.Z.D..#3,B$:.B$."".B$.CZ$.I.N.C
(1).F(B$)...X..C(0).0..SD$:."LAST TRACK"
:.......SD$:."NEXT TRACK="C(0):."NEXT SE
CTOR="C(1).P...NT.C(0):NS.C(1):....P.. P
RINT ASCII...Q.."..............R.IJ.0:II
.255:.".":HX.0.A.S.."....0.:DECIMAL":.".
..1.:HEX":.".. 0...";IN.V.T..".":. IN
. HX.1...U..VC$"..RETURN.=QUIT:.SPACE.=P
AUSE: "H$(HX);TC$:.S0$:EE$.". ."...V.Z1
.32:Z2.223:Z3.127:Z4.160:P.0...W.Y0$."."
.TC$.CL$:Y1$.VC$."..":Y2$.".:->".TC$:C9.
1.!.Z..I.0.II.8:Y$.Y1$.I(" ".D(I),3).Y2
$:E0$.EE$.J....Y0$:.Y$;:.J.0.7:H.I.J:C5.
C(H):C6.C5.Q....(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)..310:.2021.?....E0$:.:.CL$
:.CL$:.CL$:.CL$.T...."...."S0$:.VC$"CURR
ENT TRACK,SECTOR="T",";S;TC$......"NEXT
TRACK,SECTOR="NT","NS......IJ.0..300....
........ MODIFY BLOCK.P...."............
......".THE ASCII CODE FOR EACH BLOCK-BY
TE".*....".WILL BE DISPLAYED..I.E. C(0).
..C(255).".Z....".YOU MAY REDEFINE ANY C
(I). THE MODIFIED"......".BLOCK WILL BE
WRITTEN TO THE DISK"......".INTO THE TRA
CK,SECTOR YOU SELECT."......".TO ENTER A
STRING, SELECT THE I WHICH"......".BEGI
NS THE STRING AND WHEN ASKED".*....".FOR
THE VALUE OF I, ENTER I*".W. ..".EXAMPL
E: TO MODIFY BYTES STARTING AT".P.!..".
I=12, ENTER 12*"...&.."..BE SURE A COMPL
ETE BLOCK WAS LOADED!!"...0..300:.".":II
.255.8:IJ.1.J.:..".":.2005...D..VC$">>>.
RETURN TO QUIT.<<<"TC$:.I$./.N..".WHICH
I DO YOU WISH TO MODIFY. ......";I$:
I.E(I$).@.X..I$.".".3173.^.]..I(I$,1)."*
"..61000:.3173...B.."CURRENT C("I")=
....."C(I)" NEW VALUE= .....";:.C(
I)...C..I.II.II.I...D..3150...E..".":.20
05:." >>>.OK.? ";...F..310:.IN$.
"N"..:.3150...G.."..RETURN TO MENU. N.
..";IN$...H..IN$."Y"...X.I..VC$".CURRENT
TRACK,SECTOR="T","S;TC$.Y.J.."NEXT TRAC
K,SECTOR="NT","NS...L.."...DESTINATION T
RACK,SECTOR. ";T","S.O.M.."..DESTINATI
ON TRACK,SECTOR...";T,S...V.."....DESTIN
ATION DRIVE. ";DR.7.W.."..DESTINATION
DRIVE...";DR$:DR.E(DR$):.DR$.."0".DR$.."
1".3190.L... 3: 15:.15,DV,15.C....3,DV,3
,"#":.63900......#3,BN$:BN.F(BN$):."."SD
$"....FILLING BUFFER#"BN......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:.".":..%. .. STORE C(I) I
N RAM.=...."..................W...IJ.0:I
I.255:.".":HX.0.G....".";:.2005......".S
TARTING VALUE IN BLOCK. ....";I1:.I1.2
55..".";:.4020.S....".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):..X.R.M.M.I1.256:.".NE
XT. MEM'Y LOC'N="M;:.9500:."."M$.I....30
0:.".";:....... WRITE RAM TO DISK......"
..................P...."...MEM'Y LOC'N O
F BLOCK.($=HEX) ....";M$:.9000......".
.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..
....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.T....15,"I".DR$:
.63900: 3: 15:.".":..^.P.. BAM.H.Z.."...
.....53280,F5:.".":X.30:X$."BAM":.54000
...... .B(I).(Z.P(I)).P(I)..... 15:.5801
0.S...."....1.:DISPLAY BAM"......"..2.:C
HANGE BAM"......VC$"....RETURN. TO EXIT"
TC$.'....310:.".":.IN$.CR$.6095.@....580
20:.IN.6100,6280.J.J..6000.V.O. 2: 3:.15
,DV,15,"I".DR$:.58010:.63900:....T.. DIS
PLAY BAM......"................."..WHICH
TRACKS":.".................."..FIRST,LA
ST TRACK ....";TS,TE......"..RETURN..
TO STOP":.S0$."....15,DV,15,"I".DR$:.639
00.=....2,DV,2,"$".DR$:.63900.Q.$.FF.D1.
(TS.1).S3.F....K.0.FF:.#2,A$:....8..T.TS
.TE:.T.51..#2,A$,A$,A$,A$...B..6400...L.
.A$:.A$.."".T.TE.1.D.V..: 2: 15:.6870:.3
10:..U.`.. CHANGE BAM...J.."............
T..".MORE CHANGES Y...";I$.. ~..I$.."
Y"...Q ...DT.67..".SORRY..CAN'T CHANGE B
AM FOR THIS DISK.":.310:..H ...".TRACK
V...";T.Z .. 15:.15,DV,15.. .. 2:.2,DV,
2,"#":.63900.. ...15,"U1:";2;DR;DI;0.. .
..15,"B-P";2;T.4.. ...VC$".HIT .RETURN.
TO QUIT."TC$:.6400:.6580.0!D..".........
.CHANGE WHICH SECTOR ..V...";S$:.S$.
"V".6260.O!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..!...MD$CL$SD$..!...6480:.6340.S!...K.
0.S2:.#2,A$..!...A$."".A$.CZ$..!..B(K).F
(A$):..."P.. PRINT TRACK.."Z..".........
...-"D..K.1.S1:Z.B(K).8"N..I.0.7.O"X.X..
B(I):.X$(X);:.I.V"...K.S"..Z.B(K):.I.0.S
C(T).SC(TT).."..X..B(I):.X$(X);:.I:..."
..".".22)"TRACK."T"..FREE="B(0):..C"...H
(S1$,SC(T)).."...H(S2$,SC(T)):.".".23)"#
SECTORS="SC(T)..#H..SC(T).21..H(S3$,SC(
T).1):.6610.%#M..H(S3$,SC(T)).0#R..S0$:.
.D#... CHANGE SECTOR.X#...".............
.S#...S.8.Z.B(1):SS.S:.6670..#...S.16.Z.
B(2):SS.S.8:.6670..#..Z.B(3):SS.S.16.A#.
.NZ.(.Z.P(SS)).(Z..P(SS))..#..B(0).B(0).
(NZ.Z).(NZ.Z)..#"..S.8.B(1).NZ:.6720..$,
..S.16.B(2).NZ:.6720..$6.B(3).NZ..$@...,
$J..15,DV,15.D$T..MD$VC$".ARE YOU SURE?.
"TC$;:.310:.IN$;:.IN$.."Y"...~$^.."...CH
ANGING BAM..";..$H..3,DV,3,"#":.63900..$
R..#3,BN$:BN.F(BN$).W$...I.0.S2:.15,"B-P
";3;I.T.4:.3,G(B(I));:...$...15,"U2:";3;
DR;DI;0..%B..15,"I".DR$:.63900: 3: 15:..
G%V.."..........................RETURN.
TO CONTINUE";:..H%...VC$"....RETURN. TO
EXIT"TC$.S%...310:...%X.. DISK COMMANDS.
.%Y.."..............S%Z..53280,F5:.58010
:.".":X$."DISK":X.30:.54000:."."HD$..&[.
15:D$(1)."INITIALIZE":D$(2)."VALIDATE":
D$(3)."FORMAT DISK".+&\.D$(4)."CHANGE DI
SK".I&].D$(5)."DISPLAY DIRECTORY".D&^.D$
(6)."CHANGE DEVICE#"..&_.D$(7)."CHECK FO
R DISK ERROR":D$(8)."CHECK FOR BAD BLOCK
S".F&`.D$(9)."BACKUP (BLOCK-BY-BLOCK)"..
'B..I.1.9:.".."I".:"D$(I):.:.S0$:.VC$"..
RETURN. TO EXIT"TC$..'C..310:.IN$.CR$...
!'D.."..".Q'E..I.1.IN:."..";:.:."....."D
$(IN):.T9.1.300:...'G.. IN .7020,7030,70
35,7040,11000,7300,7350,51000,50000..'H.
.7000..'L..15,DV,15,"I".DR$:.63900:..S'V
..15,DV,15,"V".DR$:.63900:...({.."...NAM
E FOR DISK";NM$:."..ID FOR DISK";ID$:.".
.DRIVE";DA$.V(|.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:..R(..DR
.E(DR$):."...DRIVE "1.DR:."........";D
R$..)..MH$."DRIVE ".DR$.". ************
*********.".4)..MH$."DRIVE ".DR$.". ***
******************.".E)...261:.8040:..X)
... TRACE BLOCKS.K)..."..............)..
."...1.:DISPLAY ALL LINKS ON A TRACK.":.
"..2.:FOLLOW LINKS...."..)..X.30:X$."TRA
CE":.54000:.6900:. IN$.CR$ . ...*..."...
TO PRINTER 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,"........"..*D..S8.
0.31:.15,"B-R";3;DR;T8;S8:.15,E:.E.7110.
.*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.N+H.."...START
ING TRACK,SECTOR. ....";T8,S8: 3: 15.O
+I..15,DV,15:.3,DV,3,"#":.63900..+K.."..
RETURN. TO QUIT":.4,"("T8","S8")_ FIRST
BLOCK":N9.1.D+P..15,"B-R";3;DR;T8;S8.V+Z
..15,"B-P";3;0..+...#3,Z$:.Z$."".Z$.CZ$.
.,..T8.F(Z$):.T8.0.7200. ,...#3,Z$:.Z$."
".Z$.CZ$.-,..S8.F(Z$).O,..T8$.J(D(T8),2)
:S8$.J(D(S8),2).X,...4,"("T8$","S8$")";:
..(N9.5).5.N9..4..,..N9.N9.1:.IN$:.IN$."
".7120..,...:.7210.E, ..4,"_ LAST ..":.4
,N9" BLOCKS.".Z,*..300:.4: 4:.7100..-..D
9.9:D1$.G(DV.32):D2$.G(DV.64):.15,DV,15:
.DV.D9.D9.8.F-..."......................
...NEW. DEVICE # "D9.`-..."...........
....";D9.Y-..XX.12:.7340:.YY.7315..-..XX
.50:.7340:.YY.7315..-..XX.119:.7340:.YY.
7315..-...7400:...-...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.4.....B... 15:.15,DV,15:.
15,E1$,E2$,E3$,E4$:S9$.",".....X$.E1$.S9
$.E2$.S9$.E3$.S9$.E4$......".":X.5:Y$.""
:.54020:.A9.1.100:E.E(E1$):.:.E.0...Q...
.A9.1.10:.59100:......."...RETURN. TO CO
NTINUE."../..."..ANY OTHER KEY TO .QUIT.
.".&/...310:.IN$.CR$...0/...7900.M/...".
..***.NOT A RECOGNIZABLE DISK.***":."..W
ANT TO QUIT?"../...310:.IN$."Y".7900../.
..../L.. UNSCRATCH../M.."..........T/N..
".":X.25:X$."UNSCRATCH":Y$."":.54020../V
..".WE'LL DO THE FOLLOWING:".#0W.."..1.:
GO THRU' DIRECTORY TRACK"DI" UNTIL".M0X.
." WE FIND THE SCRATCHED FILE NAME.".V0
Y.."..2.:TRACE THE BLOCKS AND COMPARE"..
0Z.." THE BLOCKS OBTAINED WITH THE"..0[
.." DIRECTORY BLOCK COUNT."..0\.."..3.:
LOOK AT THE BLOCK AVAILABILTY MAP"..1]..
" TO SEE IF ALL THE BLOCKS ARE FREE.".;
1^..".>>IF ALL OF THE ABOVE ARE OK".B1_.
." YOU THEN MODIFY THE DIRECTORY".|1`..
" AS FOLLOWS:":.300..1T..".MODIFY THE B
LOCK SO THAT THE"..1Y..".MAGIC BYTE"..1~
.." WHICH OCCURS JUST .3. PLACES BEFORE
"..2..." THE NAME IS AS FOLLOWS:"..2...
" 129=SEQ FILE"..2..." 130=PRG FILE".D
2..." 131=USR FILE".Z2..." 132=REL FIL
E"..2...".EXAMPLE:TO UNSCRATCH A PRG FIL
E 'ABZ'"..2..."FIND IT'S NAME ON THE DIR
ECTORY, AND".Z2..."SELECT MENU ITEM=MODI
FY BLOCK."..2..."YOU WILL SEE:".)3D.."..
. 0. 0. 0"VC$". 0"TC$". 19. 3. 65. 66. 9
0....ETC".I3N.." ^ ^ ^ ^ ^ ^
".I3X.." SHOULD BE .TRCK.A B Z"..3..."
A 130 .&SEC.FILENAME(IN ASCII)"..3.
..300:.".".P3...".MODIFY THE BYTE WHICH
IDENTIFIES THE "..3..."FILE TYPE..TO 130
..SO IT READS:".24..."... 0. 0. 0"VC$".1
30"TC$". 19. 3. 65. 66. 90....ETC".`4...
"..4.:WRITE THE BLOCK BACK TO THE DISK."
..4..."..5.:VALIDATE.................. T
HE DISK."..4..."..5.:PRAY..":.310.R4H.."
.WANT TO TRY Y...";A$:.A$.."Y"....4R..
12000..5.. 15:.58020:."......BYE...":.HD
$"..":.64738..5@.. INITIALIZE..5A.."....
.......D5B..".":.58020:.53281,F1:.53280,
F1:. F3$(15),F5$(15)..5C..I.0.15:.F3$(I)
:F5$(I).F3$(I):...5D..".",".",".",".",".
",".",".",".".R5E..".",".",".",".",".","
.",".","."..5F.TC$.F3$(F3):.TC$:VC$.F5$(
F5)..6G..C(255),T(120),S(120),SC(77),B(4
).:6H..1,17,20,24,19,30,17,35,16,0.\6I..
65,17,20,24,18,30,17,35,16,0.~6J..67,39,
28,53,26,64,24,77,22,0..6K.S0$."........
...............................":S4$.S0$
.S0$..7L.A$.VC$."..*PONZO**** DISKVIEW *
***(".DA$.")****".TC$:.I.1.C(A$).27M..J(
A$,I,1);:.T.1.5:.:.:.:.S0$:.CP$."PET".80
16.I7N.."..NOTE.........".X7O.."FUNCTION
KEYS CHANGE COLOURS AT MENU..."..7P..".
.DEVICE # 8...";DV..7Q.R$(0).".":R$(1)
.".":NN.55341.P7R.HX$."0123456789ABCDEF"
..7T.SD$."...........":BB$.SD$."........
..."..8Y.MD$."....................":CR$.
G(13):CZ$.G(0).98Z..59000.`8C..".. DRIVE
# 0...";DR$:DR.E(DR$)..8H..58020: 15:
.15,DV,15,"I".DR$:.63900..8R.K$." THIS
BLOCK IS EMPTY ".G8|..:.I.0.15:.X$:.:WW
.0:A0.1..8}..3,DV,3,"$".DR$:.63900..8~..
#3,A$:A.F(A$.CZ$)..9..DT:.A.DT.8070.29.
.WW.WW.1:.WW.3. .I.1.9:.DT:.:.8063.?9..
3:.7400.V9..MH$."DRIVE ".DR$.".!!UNRECOG
NIZABLE DISK!!.":.8230..9..TT.200:DI.76:
.8110..9...DT.1.DT.65.KK.143..9...DT.67.
KK.5..9...8200.Q9...A1:.A1.0.8090..9...B
1:.I.A0.A1:SC(I).B1.1:.:A0.I:.8075. :...
DT.1.DT.65.D1.1:TT.35:S2.3:DI.18.C:...DT
.67.D1.257:TT.77:S2.4:DI.39.W: .S1.S2.1:
S3.S2.1.I:.. 3:.TT.0.8065..:...I.0.7:P(I
).2.I:.:.I.0.3:H(I).16.I:...:..H$(0)."DE
CIMAL":H$(1)."HEX".J:..X$(0)."Q":X$(1)."
W"..:L.CL$."":.I.1.39:CL$.CL$." ":...;V.
S1$."^....^....^....^....^....^....^....
".C;..S2$.". . . . . .
.".P;..S3$."0 5 10 15 20 25
30":...;. .I.3.KK:.#3,A$:.:MH$."DRIVE
".DR$.". ".Q;. .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$.".".O
<! SP$."":.I.1.40:SP$.SP$." ":..C<& .261
:.".."HD$:..U<(#. DECIMAL_HEX..<)#."....
.........<-#M.E(M$):.M..0....<2#M$.J(M$,
2):M.0:LM.C(M$).D<<#.CN.1.LM..<F#MM$.J(M
$,CN,1):.9100:M.M.MM.H(LM.CN):...<P#...=
.#.MM$."0".MM.0:.. =.#MM.E(MM$):.MM..0..
.3= #MM.F(MM$).55:..E=.%. HEX_DECIMAL.W=
.%."............G= %C9.3:M$."$"..=!%SM.M
:.CN.C9.0..1:CM%.SM.H(CN)..=&%M$.M$.G(CM
%.48.7.(CM%.9)):SM.SM.H(CN).CM%:.:..K=.*
. DIRECTORY..>.+.58020:."...TO PRINTER
N...";IN$:PD.3:. IN$."Y". PD.4.Q>.+PT..
(PD.4):PF$."":SF$.CR$:PS.0:Q$.G(34):R1$.
".":R2$.".":BT$."":AT$.""..>.+AF$."":C80
.0:LF$.G(10):S5$.S0$:U9.1:.4,PD:.PT.0.11
070..>.+.".80 COLUMN DIR'Y Y...";W$:.W
$."N".11030..>.+.I.1.18:BT$.BT$." ":.:C8
0.1:S5$.S4$:SF$."":AF$."-":.11050.7?.+S5
$.H(S0$,38):.".PRINT .RIGHT. HOW MANY SP
ACES 0...";PS.]? +.PS..I.1.PS:PF$.PF$.
" ":.:BT$.PF$..?*+.".DOES THE PRINTER NE
ED A LINE FEED N...";U9$..?4+.U9$."Y".
AT$.AT$.LF$:.C80.0.SF$.SF$.LF$..?>+.".":
PT$." *******".J(MH$,10,24)." *******":.
PT.0.PT$.HD$.:@H+.4,BT$PT$AT$:."HIT A KE
Y TO STOP."VC$:A5.32:A6.127:A7.160.L@R+
3:.3,DV,3,"$".DR$:J$." ":. PT .R1$."":R2
$.""..@\+.4,BT$R1$" BLKS NAME
TYPE (T,S) START"TC$;AT$..@F+TY$(0)."DE
L":TY$(1)."SEQ":TY$(2)."PRG":TY$(3)."USR
":TY$(4)."REL"..AK+.C80.0..4,BT$;.!AP+.4
,S5$AT$:.I.0.253:.#3,A$:..DAZ+SI.0:.P.1.
8:.#3,A$:A.F(A$.CZ$).128:TY..A.(A.0.A.5)
:A3$.TY$(TY)..A.+.#3,A$,B$:A.F(A$.CZ$):B
.F(B$.CZ$):.ST.11300.KA.+A4$."(".I(D(A),
2).",".I(D(B),2).")":A0$."":.I.1.16..B.+
.#3,B$:A0$.A0$.B$:.:A2$."":.I.1.16:B$.J(
A0$,I,1).*B.+A9.F(B$.CZ$):.A9.A7.B$."":I
.16:.11190.JB.+.A9.A5.(A9.A6.A9.A7).B$."
?".B.+A2$.A2$.B$:.:.11320:.TY..2.A5$."
".AF$:.11220..B.+.2,DV,2,DR$.":".A0$.
",".A3$.",R":.#2,AL$,AH$:X$.AL$:.11440..
BJ+AL$.X$:X$.AH$:.11440:AH$.X$:A5$.AH$.A
L$.AF$: 2..CT+.#3,A$,A$,A$,A$,A$,A$,A$,A
$,A$.TC.+.#3,A$,B$:A.F(A$.CZ$):B.F(B$.CZ
$):C.A.256.B:K9.ST:.C.0.P.10.LC.+A1$.I("
".D(C),3).C.+.P.8..#3,A$,A$..C.+. 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$;..C.,.A$:.A$.."".P.10..D.,.C80.U
9.1.U9:.U9..4,AT$.(D.,.:.P.10.K9.0.11130
.CD$, 3:.11330:.4,PF$S5$SF$.XD., 4:.5801
0:.300:..~D8,A2$.R1$.Q$.H(A2$.Q$.SP$,17)
.R2$:...DB,. BLOCKS FREE..DL,.1,DV,0,"$"
.DR$.":"..DV,.11380:.4,LF$..D`,L.X.Y.256
:.4,PF$L;" BLOCKS FREE"AT$..DJ, 1:...ET,
.#1,X$,X$,X$,X$,X$,X$..E~,.#1,X$:.X$..""
.11390.2E.,.#1,X$,X$,X$,Y$.IE.,X.C(X$):.
X.X.F(X$).`E.,Y.C(Y$):.Y.Y.F(Y$).FE.,...
E.,X.F(X$.CZ$):XH%.X.16:XL.X.16.XH%:X$.J
(HX$,XH%.1,1).J(HX$,XL.1,1)..E.,..IE...
UNSCRATCH ROUTINE..E..."................
...E...58020.&F..."...THE SCRATCHED FILE
NAMES WILL":.".BE DISPLAYED.".AF./.".YO
U MAY DECIDE 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,"#":.63900.UF?/.15,"B-R";3;D
R;T;S..F@/.".LOOKING AT:"..GA/."..TRACK
..."T" SECTOR ..."S.1GD/.J.0.255:.15
,"B-P";3;J:.#3,A$.FGN/C(J).F(A$.CZ$):..N
GX/.D.2.255.32:.C(D)..0.C(D.1).0.12200..
GB/.SD$CL$SD$"WANT TO UNSCRATCH .";:.P9.
1.200:..JGL/.A$:.K.D.3.D.18:.G(C(K));:.:
.".?":.310..GV/.IN$."Y".12300..G./.D:T.C
(0):S.C(1):.T.DI.12095.;H./.".FINISHED L
OOKING..":."...RETURN. TO CONTINUE.":.31
0:..YH.0T0.T:S0.S:T.C(D.1):S.C(D.2):B0.C
(D.28).C(D.29).256:.58010..H.0."....DIRE
CTORY BLOCK 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..I
.0.15,"B-R";3;DR;T;S.&I.0.15,"B-P";3;0.?
I.0.#3,Z$:.Z$."".Z$.CZ$.^I.0T(N9).F(Z$):
.T(N9).0.12314.WI.0.#3,Z$:.Z$."".Z$.CZ$.
.I.0S(N9).F(Z$)..I.0T$.J(D(T),2):S$.J(D(
S),2)..I.0."("T$","S$")";..I.0T.T(N9):S.
S(N9):N9.N9.1:.12305..I.0N9.N9.1:...J.0.
".."N9" BLOCKS.".6J>0.N9..B0.."..**.INCO
RRECT BLOCK COUNT.**..":.300:..QJH0.".LO
OKS GOOD SO FAR.".|JR0.".SHALL WE PROCEE
D?":.310:.IN$.."Y"....J\0."...WE'LL CHEC
K THAT THE ABOVE BLOCKS".QJF0.".ARE FREE
BY LOOKING AT THE BAM.."..KP0.".THE TRA
CK/SECTORS FOR THE FILE WILL BE".*KZ0.".
DISPLAYED. IF A BLOCK IS OCCUPIED".TK.0.
".THE UNSCRATCH WILL NOT WORK!":.300..K.
0 15:.15,DV,15,"I".DR$:.63900:.".":.5802
0:K1.1..K.0.2,DV,2,"$".DR$:.63900..K.0.
.B(I).(Z.P(I)).P(I).WK.0FF.D1.(T(K1).1).
S3:PP.0..K.0.K2.0.FF:.#2,A$:...L.0T.T(K1
):.".":.6400:.6580..L.0.SD$"CHECK THAT T
HE FOLLOWING ".IL.0.".SECTORS ARE FREE=W
".}L.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.IL.0.IN$.."Y"..".SORRY..":.58010:
.300: 2:...L.0 2:.K1.N9. 15:...LJ0K1.K1.
1:.T(K1).0.12600..MT0.T(K1).T.12490..MY0
.12422.&M81.".":.58010.VMB1."NOW MODIFY
THE .MAGIC BYTE. ON DIRECTORY".QML1.".TR
ACK"T0" SECTOR"S0..MV1.".THEN WRITE THE
BLOCK BACK TO ("T0","S0")".GM`1.".FINALL
Y .VALIDATE. THE DISK!".RMJ1.300:...MPC.
BACKUP BY BLOCK..MQC."................/
NRC.53280,F5:.".":X.30:X$."BACKUP":Y$.""
:.54020.QNSC."..FOR TWO DRIVES ONLY":.30
0.}NUC.".(HIT RETURN TO ABORT)":FF$."":.
54020..NZC."....FROM. DRIVE ...";FD$:
FD.E(FD$):. FD$." "...NN_C.".DEVICE 8.
..";DA..ODC."...TO. DRIVE";TD$:TD.E(TD$)
:.".DEVICE 8...";DB.-OIC 3: 5: 14: 15:
.15,DA,15:.15,"I".FD$.EONC.3,DA,3,"#":.6
3900:.14,DB,15:P.1:.DB.DA.BB.3:.50040.ZO
SCBB.5:.5,DB,5,"#"..OXC."..START AT TRAC
K 1...";T8:."..END AT TRACK 35....";
T9..O}C."..ERRORS TO PRINTER N...";VV$
:VV.0:. VV$."Y" . VV.1:.4,4..P.C.VV.0.50
053.@P.C.".DOES THE PRINTER NEED A LINE
FEED N...";U9$.WP.C.U9$."Y".FF$.G(10).
XP.C."...GO FOR A COFFEE..":.300..P.C.".
":.T.T8.T9:.S.0.31..P.C.15,"B-R";3;FD;T;
S..P C.15,E,E$,E1,E2.UP.C. E.66 . S.31:.
50140..Q.C.".TRACK ....."T" SECTOR
....."S..Q.C. E.0 .50110.FQ.C.".":.I.
1.P:.:.:.E;E$;E1;E2;":DRIVE ."FD:P.P.1.P
Q.C. VV . .4,E;E$;E1;E2;":DRIVE ."FD;FF$
..Q.C.BB.3.50114..Q.C.U9.0.255:.15,"B-P"
,3,U9:.14,"B-P",5,U9.AQ.C.#3,BY$:.5,BY$:
..YQBC.14,"U2:";BB;TD;T;S..QCC.14,E,E$,E
1,E2..RHC. E.66 . S.31:.50140..RMC. E.0
.50135.IRRC.".":.I.1.P:.:.:.E;E$;E1;E2;"
:DRIVE ."TD:P.P.1.SRSC. VV . .4,E;E$;E1;
E2;":DRIVE ."FD;FF$..RWC.IN$:.IN$.."".S.
100:T.100..R.C.:.:.14,"I".TD$:. VV . .4:
4.DR.C 3: 5: 14: 15..S.C.".
."X$"....FINIS
HED."..S.C.A$:.A$."".50170. S.D..8S8G. C
HECK DISK BLOCKS.PS9G.".................
..S:G.".":X.2:X$."CHECK BAD BLOCKS":Y$."
":.54020..SBG.".DEVICE 8...";DA:DB.DA.
TSLG.".DRIVE 0...";FD$:TD$.FD$:FD.E(FD
$):TD.E(TD$)..SVG."...WE'LL READ/WRITE T
O EVERY BLOCK".'T`G."..AND INDICATE ANY
DISK ERRORS. ".ZTJG."..SHALL WE CONTINU
E Y...";Q$:.Q$."Y".50025.`TTG...T.R.".
..":.U9.1.X:.".";:.:L9.C(X$):.L9.4.L9.4.
.T.RX$.H(X$." ",L9):Y$.H("MENU
",L9)..T.SL9.C(X$):.".";:.U9.1.L9:.".";
:.:."............";.(U.S.U9.1.L9:."...";
:.:."........"VC$X$;:.U9.1.C(X$).AU.S.".
";:.:.".."Y$TC$:..XU... UPPER/LOWER CASE
.QU...CP$."C64"..G(14);:...U...59468,14:
...U...CP$."C64"..G(142);:...U...59468,1
2:...UX.SD.54272:.I.0.24:.SD.I,0:.:.SD.6
,240:.SD.1,50:.SD.24,15..V..PA.SD.4:O0.3
3:O1.0:PB.65535:PC.PB.LV...CP$."PET".PB.
59467:PC.59466:.PB,16:.PC,15:PA.59464:O0
.100.YV...59100:...V...PB,16:.PC,15:.PA,
O0:.P9.1.10:.:.PA,O1:.PB,0:...VH.. INPUT
..VI.."CURRENT C("I")= ....."C(I)..
VK..".INPUT A STRING Y...";A$:.A$."N".
..3WL..".ENTER STRING: TERMINATE WITH .R
ETURN.:.":BC$."BYTE COUNT ".UWM.
BC$."BYTE COUNT "..WR.IN$.""
:N.C(IN$):.K9.1.23:.CRT.K9.1,F(J(BC$,K9,
1)).64:...WW.K9.12:N$.J(D(N),2):LN.C(N$)
:.K8.1.LN..WX..CRT.K8.K9,F(J(N$,K8,1)):.
:.CRT.K8.K9,32..X\.."..";:.A$:.A$."".610
15.7XF.A.F(A$):.A.17.A.145.A.148.A.19.A.
147.A.157.61015.NXP.." .";:.A.13.61080.E
XZ..IN$."".A.20.61015..X...A.20.N.N.1:."
. .";:IN$.H(IN$,N):.61015.AX..." ."A$;:I
N$.IN$.A$:N.C(IN$):.N.255.I.61015..X...U
9.1.N:C(I.U9.1).F(J(IN$,U9,1)):.:...X...
15,E,E$,E1,E2..Y...E.0...0Y...:.".**.DIS
K ERROR.**.":.E;E$;E1;E2.FY...A9.1.10:.5
9100:..EY .."...RETURN. TO CONTINUE."..Y
..."..ANY OTHER KEY TO .QUIT.."..Y...310
:.IN$.CR$....Y...7900...$ .
> CLICK IMAGE PREVIEW FOR FULL MODAL