DISKVIEW 3.C
FILE INFORMATION
FILENAME(S): DISKVIEW 3.C
FILE TYPE(S): PRG
FILE SIZE: 22.9K
FIRST SEEN: 2025-10-20 14:30:48
APPEARS ON: 1 disk(s)
FILE HASH
334c7c020a2cdc18458c56a14410a49e34d3a28193bb0d25a5edc15f797431fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | DISKVIEW 3.C | PRG | Treasure Chest - Klaus Der Suhler | 4 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 16 04 03 00 8F 20 50 45 54 45 52 20 4A 2E |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 30 04 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 04 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 04 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 04 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 04 09 00 8F 22 B8 B8 B8 B8 B8 B8 B8 |64......".......|
00000090: B8 00 CC 04 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 04 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 05 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 05 0D 00 |6:. COLOURS.....|
00000110: 3A 00 25 05 0E 00 44 41 24 B2 22 4D 41 52 20 33 |:.%...DA$."MAR 3|
00000120: 31 2F 38 34 22 00 2B 05 0F 00 3A 00 63 05 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 05 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 05 1E 00 3A 00 A2 05 |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 05 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 05 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 06 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 06 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 06 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 06 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 06 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 06 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 06 64 00 8F 20 20 4D 45 4E 55 00 |ILE...d.. MENU.|
000002B0: BB 06 65 00 8F 22 20 B8 B8 B8 B8 00 C9 06 68 00 |..e.." .......h.|
000002C0: 97 35 33 32 38 30 2C 46 31 00 FD 06 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 07 |":X.30:.54000...|
00000300: 6E 00 99 22 13 22 48 44 24 00 26 07 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 07 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: 07 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 07 96 00 8B 49 4E 24 B2 22 |.7900.v....IN$."|
00000370: 85 22 A7 31 31 30 00 87 07 A0 00 8B 49 4E 24 B2 |.".110......IN$.|
00000380: 22 86 22 A7 31 31 30 00 98 07 AA 00 8B 49 4E 24 |".".110......IN$|
00000390: B2 22 87 22 A7 31 31 30 00 CE 07 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: 08 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 08 D2 00 |0,7100,7500.....|
00000410: 89 31 30 34 00 41 08 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 08 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 08 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 08 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 08 0F 01 89 32 36 |.F5$(F5)......26|
000004D0: 31 00 DC 08 2C 01 8F 20 20 47 45 54 00 E7 08 2D |1...,.. GET...-|
000004E0: 01 8F 22 20 B8 B8 B8 00 06 09 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 09 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 09 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 09 4A 01 8B 49 4E 24 B2 22 85 22 A7 8D |0.C.J..IN$."."..|
00000540: 32 35 30 00 55 09 4B 01 8B 49 4E 24 B2 22 86 22 |250.U.K..IN$."."|
00000550: A7 8D 32 36 30 00 67 09 4C 01 8B 49 4E 24 B2 22 |..260.g.L..IN$."|
00000560: 87 22 A7 8D 32 37 30 00 7E 09 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: 09 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 09 |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 09 ED |................|
000005C0: 03 59 39 B2 30 00 FD 09 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 0A |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: 0A 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 0A 06 04 81 4B B2 30 A4 |1:.".".;....K.0.|
00000630: 31 30 3A 98 33 2C 4B 24 3B 3A 82 00 4F 0A 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 0A 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 0A 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 0A 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: 0A 2E 04 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
000006C0: 30 00 DA 0A 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 0A 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 0B 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 0B 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 0B 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 0B 7E |B$."".B$.CZ$.k.~|
00000760: 04 43 28 49 29 B2 C6 28 42 24 29 00 83 0B 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 0B 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 0B 9C 04 4A B2 |.""..1195.....J.|
000007A0: 4A AA 31 3A 82 00 BA 0B 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 0B A7 04 59 |:.BB$:.300.....Y|
000007C0: 39 B2 30 3A 8B 43 28 30 29 B2 30 A7 8E 00 07 0C |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 0C 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 0C 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 0C 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 0C 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 0D 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 0D B0 04 8F | ":.......|
00000910: 20 43 28 30 29 2F 43 28 31 29 00 2A 0D B1 04 8F | C(0)/C(1).*....|
00000920: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 41 0D 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 0D 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 0D CE 04 43 |."".B$.CZ$.i...C|
00000960: 28 31 29 B2 C6 28 42 24 29 00 8A 0D 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 0D 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 0D 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 0D D0 07 8F 20 50 52 49 4E 54 20 41 53 43 |...... PRINT ASC|
000009E0: 49 49 00 F4 0D D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 |II......".......|
000009F0: B8 B8 B8 B8 00 0E 0E 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: 0E 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 0E D4 07 99 22 93 22 3A 8B 20 49 4E 20 |N.V....".":. IN |
00000A50: A7 20 48 58 B2 31 00 99 0E 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 0E 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 0E 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 0F 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 0F 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 0F 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 0F DE 07 45 30 24 B2 45 30 24 AA C7 28 |2.....E0$.E0$..(|
00000B80: 43 36 29 00 BD 0F 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 0F |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 0F 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: 10 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 10 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 10 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 10 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 10 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 10 F8 07 8B 49 4A B2 30 A7 |","NS......IJ.0.|
00000CA0: 8D 33 30 30 00 AA 10 02 08 8E 00 BD 10 B8 0B 8F |.300............|
00000CB0: 20 4D 4F 44 49 46 59 20 42 4C 4F 43 4B 00 D0 10 | MODIFY BLOCK...|
00000CC0: B9 0B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000CD0: 00 FB 10 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 11 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 11 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 11 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 11 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: 11 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 12 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 12 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 12 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 12 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 12 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 12 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 12 3A 0C |.255.8:IJ.1...:.|
00000EC0: 99 22 13 22 3A 8D 32 30 30 35 00 F2 12 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 13 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 13 58 0C 8B 49 24 B2 22 A6 22 89 33 31 37 33 |@.X..I$.".".3173|
00000F40: 00 5E 13 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: 13 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 13 63 0C 8B 49 B1 49 49 A7 49 49 B2 |I)...c..I.II.II.|
00000FB0: 49 00 BB 13 64 0C 89 33 31 35 30 00 E1 13 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 13 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 14 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 14 68 0C 8B 49 4E 24 B2 22 59 22 A7 8E 00 58 |..h..IN$."Y"...X|
00001030: 14 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 14 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 14 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 14 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 14 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 15 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 15 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 15 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 15 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 15 99 0C 81 49 B2 |....#"BN......I.|
000011A0: 30 A4 32 35 35 00 D1 15 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 15 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 16 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 16 |.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 16 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 16 |..............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 16 A5 0F 99 22 93 22 |.":HX.0.g...."."|
00001260: 3B 3A 8D 32 30 30 35 00 8E 16 B4 0F 85 22 12 D3 |;:.2005......"..|
00001270: D4 C1 D2 D4 C9 CE C7 A0 D6 C1 CC D5 C5 A0 CF C6 |................|
00001280: 20 49 92 20 20 20 A6 9D 9D 9D 22 3B 49 31 00 BB | I. ....";I1..|
00001290: 16 BE 0F 99 22 12 D3 D4 C1 D2 D4 C9 CE C7 A0 CD |...."...........|
000012A0: C5 CD CF D2 D9 A0 CC CF C3 27 CE 92 28 24 3D C8 |.........'..($=.|
000012B0: C5 D8 29 20 20 24 37 30 30 30 22 00 EB 16 C3 0F |..) $7000".....|
000012C0: 85 22 91 12 D3 D4 C1 D2 D4 C9 CE C7 A0 CD C5 CD |."..............|
000012D0: CF D2 D9 A0 CC CF C3 27 CE 92 28 24 3D C8 C5 D8 |.......'..($=...|
000012E0: 29 22 3B 4D 24 3A 8D 39 30 30 30 00 0B 17 C8 0F |)";M$:.9000.....|
000012F0: 81 4B 31 B2 49 31 A4 32 35 35 3A 97 4D AB 49 31 |.K1.I1.255:.M.I1|
00001300: AA 4B 31 2C 43 28 4B 31 29 3A 82 00 40 17 D2 0F |.K1,C(K1):..@...|
00001310: 4D B2 4D AB 49 31 AA 32 35 36 3A 99 22 12 CE C5 |M.M.I1.256:."...|
00001320: D8 D4 92 20 4D 45 4D 27 59 20 4C 4F 43 27 4E 3D |... MEM'Y LOC'N=|
00001330: 22 4D 3B 3A 8D 39 35 30 30 3A 99 22 12 22 4D 24 |"M;:.9500:."."M$|
00001340: 00 51 17 DC 0F 8D 33 30 30 3A 99 22 93 22 3B 3A |.Q....300:.".";:|
00001350: 8E 00 69 17 88 13 8F 20 57 52 49 54 45 20 52 41 |..i.... WRITE RA|
00001360: 4D 20 54 4F 20 44 49 53 4B 00 81 17 89 13 8F 22 |M TO DISK......"|
00001370: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00001380: B8 00 B8 17 9C 13 85 22 93 11 12 CD C5 CD 27 D9 |......."......'.|
00001390: 20 CC CF C3 27 CE 20 CF C6 20 C2 CC CF C3 CB 92 | ...'. .. ......|
000013A0: 28 24 3D C8 C5 D8 29 20 20 20 A6 9D 9D 9D 22 3B |($=...) ....";|
000013B0: 4D 24 3A 8D 39 30 30 30 00 DA 17 A6 13 85 22 11 |M$:.9000......".|
000013C0: 12 D3 D4 C1 D2 D4 20 D7 C9 D4 C8 20 49 92 3D A0 |...... .... I.=.|
000013D0: A0 A0 A6 9D 9D 9D 22 3B 49 31 00 FA 17 B0 13 85 |......";I1......|
000013E0: 22 11 12 C5 CE C4 20 D7 C9 D4 C8 20 49 92 3D A0 |"..... .... I.=.|
000013F0: A0 A0 A6 9D 9D 9D 22 3B 49 32 00 15 18 C4 13 81 |......";I2......|
00001400: 49 B2 49 31 A4 49 32 3A 43 28 49 29 B2 C2 28 4D |I.I1.I2:C(I)..(M|
00001410: AA 49 29 3A 82 00 45 18 CE 13 85 22 93 11 11 12 |.I):..E...."....|
00001420: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 |........... ....|
00001430: CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D |.,....... ....|
00001440: 22 3B 54 2C 53 00 86 18 D8 13 85 22 11 11 11 12 |";T,S......"....|
00001450: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 |........... ....|
00001460: C5 92 A0 A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 |.........";DR$:D|
00001470: 52 B2 C5 28 44 52 24 29 3A 8B 44 52 24 B2 22 A6 |R..(DR$):.DR$.".|
00001480: 22 A7 35 30 38 30 00 C7 18 E2 13 9F 33 2C 44 56 |".5080......3,DV|
00001490: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
000014A0: 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 24 |N..(BN$):."."SD$|
000014B0: 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 C6 |"....FILLING ...|
000014C0: C6 C5 D2 23 22 42 4E 00 E0 18 EC 13 81 49 B2 49 |...#"BN......I.I|
000014D0: 31 A4 49 32 3A 99 22 13 20 20 20 9D 9D 9D 22 49 |1.I2:.". ..."I|
000014E0: 00 00 19 F6 13 98 31 35 2C 22 42 2D 50 22 3B 33 |......15,"B-P";3|
000014F0: 3B 49 3A 98 33 2C C7 28 43 28 49 29 29 3B 3A 82 |;I:.3,.(C(I));:.|
00001500: 00 17 19 14 14 98 31 35 2C 22 55 32 3A 22 3B 33 |......15,"U2:";3|
00001510: 3B 44 52 3B 54 3B 53 00 3C 19 1E 14 98 31 35 2C |;DR;T;S.<....15,|
00001520: 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 |"I".DR$:.63900:.|
00001530: 33 3A A0 31 35 3A 99 22 93 22 3A 8E 00 46 19 70 |3:.15:.".":..F.p|
00001540: 17 8F 20 42 41 4D 00 50 19 7A 17 8F 22 B8 B8 B8 |.. BAM.P.z.."...|
00001550: 00 78 19 7F 17 97 35 33 32 38 30 2C 46 35 3A 99 |.x....53280,F5:.|
00001560: 22 93 22 3A 58 B2 33 30 3A 58 24 B2 22 C2 C1 CD |".":X.30:X$."...|
00001570: 22 3A 8D 35 34 30 30 30 00 92 19 84 17 96 20 A5 |":.54000...... .|
00001580: 42 28 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 |B(I).(Z.P(I)).P(|
00001590: 49 29 00 A1 19 8E 17 A0 31 35 3A 8D 35 38 30 31 |I)......15:.5801|
000015A0: 30 00 BB 19 98 17 99 22 13 11 11 12 31 92 3A C4 |0......"....1.:.|
000015B0: 49 53 50 4C 41 59 20 42 41 4D 22 00 D2 19 A2 17 |ISPLAY BAM".....|
000015C0: 99 22 11 12 32 92 3A C3 48 41 4E 47 45 20 42 41 |."..2.:.HANGE BA|
000015D0: 4D 22 00 F3 19 AC 17 99 56 43 24 22 11 11 11 12 |M"......VC$"....|
000015E0: 52 45 54 55 52 4E 92 20 54 4F 20 45 58 49 54 22 |RETURN. TO EXIT"|
000015F0: 54 43 24 00 0F 1A B6 17 8D 33 31 30 3A 99 22 93 |TC$......310:.".|
00001600: 22 3A 8B 49 4E 24 B2 43 52 24 A7 36 30 39 35 00 |":.IN$.CR$.6095.|
00001610: 28 1A C0 17 8D 35 38 30 32 30 3A 91 49 4E 8D 36 |(....58020:.IN.6|
00001620: 31 30 30 2C 36 32 38 30 00 32 1A CA 17 89 36 30 |100,6280.2....60|
00001630: 30 30 00 5E 1A CF 17 A0 32 3A A0 33 3A 9F 31 35 |00.^....2:.3:.15|
00001640: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D |,DV,15,"I".DR$:.|
00001650: 35 38 30 31 30 3A 8D 36 33 39 30 30 3A 8E 00 70 |58010:.63900:..p|
00001660: 1A D4 17 8F 20 44 49 53 50 4C 41 59 20 42 41 4D |.... DISPLAY BAM|
00001670: 00 82 1A DE 17 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |......".........|
00001680: A3 A3 00 A7 1A E8 17 99 22 11 11 57 48 49 43 48 |........"..WHICH|
00001690: 20 54 52 41 43 4B 53 22 3A 99 22 B8 B8 B8 B8 B8 | TRACKS":.".....|
000016A0: B8 B8 B8 B8 B8 B8 B8 00 CE 1A F2 17 85 22 11 11 |............."..|
000016B0: 46 49 52 53 54 2C 4C 41 53 54 20 54 52 41 43 4B |FIRST,LAST TRACK|
000016C0: 20 20 20 A6 9D 9D 9D 22 3B 54 53 2C 54 45 00 ED | ....";TS,TE..|
000016D0: 1A 06 18 99 22 93 12 52 45 54 55 52 4E 92 92 20 |...."..RETURN.. |
000016E0: 54 4F 20 53 54 4F 50 22 3A 99 53 30 24 00 0A 1B |TO STOP":.S0$...|
000016F0: 10 18 9F 31 35 2C 44 56 2C 31 35 2C 22 49 22 AA |...15,DV,15,"I".|
00001700: 44 52 24 3A 8D 36 33 39 30 30 00 25 1B 1A 18 9F |DR$:.63900.%....|
00001710: 32 2C 44 56 2C 32 2C 22 24 22 AA 44 52 24 3A 8D |2,DV,2,"$".DR$:.|
00001720: 36 33 39 30 30 00 39 1B 24 18 46 46 B2 44 31 AA |63900.9.$.FF.D1.|
00001730: 28 54 53 AB 31 29 AC 53 33 00 4E 1B 2E 18 81 4B |(TS.1).S3.N....K|
00001740: B2 30 A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 71 |.0.FF:.#2,A$:..q|
00001750: 1B 38 18 81 54 B2 54 53 A4 54 45 3A 8B 54 B2 35 |.8..T.TS.TE:.T.5|
00001760: 31 A7 A1 23 32 2C 41 24 2C 41 24 2C 41 24 2C 41 |1..#2,A$,A$,A$,A|
00001770: 24 00 7B 1B 42 18 8D 36 34 30 30 00 92 1B 4C 18 |$.{.B..6400...L.|
00001780: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 54 B2 54 45 |.A$:.A$.."".T.TE|
00001790: AA 31 00 AC 1B 56 18 82 3A A0 32 3A A0 31 35 3A |.1...V..:.2:.15:|
000017A0: 8D 36 38 37 30 3A 8D 33 31 30 3A 8E 00 BD 1B 60 |.6870:.310:....`|
000017B0: 18 8F 20 43 48 41 4E 47 45 20 42 41 4D 00 CE 1B |.. CHANGE BAM...|
000017C0: 6A 18 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 ED |j.."............|
000017D0: 1B 74 18 85 22 93 4D 4F 52 45 20 43 48 41 4E 47 |.t..".MORE CHANG|
000017E0: 45 53 20 20 20 59 9D 9D 9D 22 3B 49 24 00 FC 1B |ES Y...";I$...|
000017F0: 7E 18 8B 49 24 B3 B1 22 59 22 A7 8E 00 39 1C 88 |~..I$.."Y"...9..|
00001800: 18 8B 44 54 B2 36 37 A7 99 22 93 53 4F 52 52 59 |..DT.67..".SORRY|
00001810: 2E 2E 43 41 4E 27 54 20 43 48 41 4E 47 45 20 42 |..CAN'T CHANGE B|
00001820: 41 4D 20 46 4F 52 20 54 48 49 53 20 44 49 53 4B |AM FOR THIS DISK|
00001830: 2E 22 3A 8D 33 31 30 3A 8E 00 50 1C 8D 18 85 22 |.":.310:..P...."|
00001840: 93 54 52 41 43 4B 20 20 20 D6 9D 9D 9D 22 3B 54 |.TRACK ....";T|
00001850: 00 62 1C 92 18 A0 31 35 3A 9F 31 35 2C 44 56 2C |.b....15:.15,DV,|
00001860: 31 35 00 7C 1C 9C 18 A0 32 3A 9F 32 2C 44 56 2C |15.|....2:.2,DV,|
00001870: 32 2C 22 23 22 3A 8D 36 33 39 30 30 00 94 1C A6 |2,"#":.63900....|
00001880: 18 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 52 3B |..15,"U1:";2;DR;|
00001890: 44 49 3B 30 00 A8 1C B0 18 98 31 35 2C 22 42 2D |DI;0......15,"B-|
000018A0: 50 22 3B 32 3B 54 AC 34 00 D8 1C BA 18 99 56 43 |P";2;T.4......VC|
000018B0: 24 22 93 48 49 54 20 12 52 45 54 55 52 4E 92 20 |$".HIT .RETURN. |
000018C0: 54 4F 20 51 55 49 54 11 22 54 43 24 3A 8D 36 34 |TO QUIT."TC$:.64|
000018D0: 30 30 3A 8D 36 35 38 30 00 18 1D C4 18 85 22 13 |00:.6580......".|
000018E0: 11 11 11 11 11 11 11 11 11 43 48 41 4E 47 45 20 |.........CHANGE |
000018F0: 57 48 49 43 48 20 53 45 43 54 4F 52 20 20 20 20 |WHICH SECTOR |
00001900: 20 9D 9D D6 9D 9D 9D 22 3B 53 24 3A 8B 53 24 B2 | ......";S$:.S$.|
00001910: 22 D6 22 A7 36 32 36 30 00 37 1D CE 18 53 B2 C5 |".".6260.7...S..|
00001920: 28 53 24 29 3A 8B 53 B3 30 B0 53 B1 B2 53 43 28 |(S$):.S.0.S..SC(|
00001930: 54 29 A7 36 32 36 30 00 47 1D D8 18 A0 32 3A A0 |T).6260.G....2:.|
00001940: 31 35 3A 99 53 44 24 00 76 1D E2 18 8D 36 36 32 |15:.SD$.v....662|
00001950: 30 3A 8D 36 34 38 30 3A 8D 36 35 38 30 3A 99 3A |0:.6480:.6580:.:|
00001960: 99 4D 44 24 22 12 4F 4B 3F 92 22 3B 3A 8D 33 31 |.MD$".OK?.";:.31|
00001970: 30 3A 99 43 4C 24 00 89 1D EC 18 8B 49 4E 24 B2 |0:.CL$......IN$.|
00001980: 22 59 22 A7 8D 36 37 33 30 00 98 1D F1 18 99 4D |"Y"..6730......M|
00001990: 44 24 43 4C 24 53 44 24 00 A8 1D F6 18 8D 36 34 |D$CL$SD$......64|
000019A0: 38 30 3A 89 36 33 34 30 00 BB 1D 00 19 81 4B B2 |80:.6340......K.|
000019B0: 30 A4 53 32 3A A1 23 32 2C 41 24 00 CD 1D 0A 19 |0.S2:.#2,A$.....|
000019C0: 8B 41 24 B2 22 22 A7 41 24 B2 43 5A 24 00 DE 1D |.A$."".A$.CZ$...|
000019D0: 14 19 42 28 4B 29 B2 C6 28 41 24 29 3A 82 00 F0 |..B(K)..(A$):...|
000019E0: 1D 50 19 8F 20 50 52 49 4E 54 20 54 52 41 43 4B |.P.. PRINT TRACK|
000019F0: 00 02 1E 5A 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |...Z..".........|
00001A00: A3 A3 00 15 1E 64 19 81 4B B2 31 A4 53 31 3A 5A |.....d..K.1.S1:Z|
00001A10: B2 42 28 4B 29 00 20 1E 6E 19 81 49 B2 30 A4 37 |.B(K). .n..I.0.7|
00001A20: 00 37 1E 78 19 58 B2 A5 42 28 49 29 3A 99 58 24 |.7.x.X..B(I):.X$|
00001A30: 28 58 29 3B 3A 82 49 00 3E 1E 82 19 82 4B 00 5B |(X);:.I.>....K.[|
00001A40: 1E 8C 19 5A B2 42 28 4B 29 3A 81 49 B2 30 A4 53 |...Z.B(K):.I.0.S|
00001A50: 43 28 54 29 AB 53 43 28 54 54 29 00 74 1E 96 19 |C(T).SC(TT).t...|
00001A60: 58 B2 A5 42 28 49 29 3A 99 58 24 28 58 29 3B 3A |X..B(I):.X$(X);:|
00001A70: 82 49 3A 99 00 99 1E A0 19 99 22 91 22 A3 32 32 |.I:.......".".22|
00001A80: 29 22 54 52 41 43 4B 12 22 54 22 92 9D 46 52 45 |)"TRACK."T"..FRE|
00001A90: 45 3D 22 42 28 30 29 3A 8E 00 AB 1E B4 19 99 C8 |E="B(0):........|
00001AA0: 28 53 31 24 2C 53 43 28 54 29 29 00 D2 1E BE 19 |(S1$,SC(T)).....|
00001AB0: 99 C8 28 53 32 24 2C 53 43 28 54 29 29 A3 32 33 |..(S2$,SC(T)).23|
00001AC0: 29 22 23 20 53 45 43 54 4F 52 53 3D 22 53 43 28 |)"# SECTORS="SC(|
00001AD0: 54 29 00 F6 1E C8 19 8B 53 43 28 54 29 B2 32 31 |T)......SC(T).21|
00001AE0: A7 99 C8 28 53 33 24 2C 53 43 28 54 29 AA 31 29 |...(S3$,SC(T).1)|
00001AF0: 3A 89 36 36 31 30 00 08 1F CD 19 99 C8 28 53 33 |:.6610.......(S3|
00001B00: 24 2C 53 43 28 54 29 29 00 13 1F D2 19 99 53 30 |$,SC(T))......S0|
00001B10: 24 3A 8E 00 27 1F DC 19 8F 20 43 48 41 4E 47 45 |$:..'.... CHANGE|
00001B20: 20 53 45 43 54 4F 52 00 3B 1F E6 19 8F 22 A3 A3 | SECTOR.;...."..|
00001B30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 56 1F F0 19 |............V...|
00001B40: 8B 53 B3 38 A7 5A B2 42 28 31 29 3A 53 53 B2 53 |.S.8.Z.B(1):SS.S|
00001B50: 3A 89 36 36 37 30 00 74 1F FA 19 8B 53 B3 31 36 |:.6670.t....S.16|
00001B60: A7 5A B2 42 28 32 29 3A 53 53 B2 53 AB 38 3A 89 |.Z.B(2):SS.S.8:.|
00001B70: 36 36 37 30 00 87 1F 04 1A 5A B2 42 28 33 29 3A |6670.....Z.B(3):|
00001B80: 53 53 B2 53 AB 31 36 00 A4 1F 0E 1A 4E 5A B2 28 |SS.S.16.....NZ.(|
00001B90: A8 5A AF 50 28 53 53 29 29 B0 28 5A AF A8 50 28 |.Z.P(SS)).(Z..P(|
00001BA0: 53 53 29 29 00 C0 1F 18 1A 42 28 30 29 B2 42 28 |SS)).....B(0).B(|
00001BB0: 30 29 AA 28 4E 5A B3 5A 29 AB 28 4E 5A B1 5A 29 |0).(NZ.Z).(NZ.Z)|
00001BC0: 00 D7 1F 22 1A 8B 53 B3 38 A7 42 28 31 29 B2 4E |..."..S.8.B(1).N|
00001BD0: 5A 3A 89 36 37 32 30 00 EF 1F 2C 1A 8B 53 B3 31 |Z:.6720...,..S.1|
00001BE0: 36 A7 42 28 32 29 B2 4E 5A 3A 89 36 37 32 30 00 |6.B(2).NZ:.6720.|
00001BF0: FB 1F 36 1A 42 28 33 29 B2 4E 5A 00 01 20 40 1A |..6.B(3).NZ.. @.|
00001C00: 8E 00 0F 20 4A 1A 9F 31 35 2C 44 56 2C 31 35 00 |... J..15,DV,15.|
00001C10: 47 20 54 1A 99 4D 44 24 56 43 24 22 12 41 52 45 |G T..MD$VC$".ARE|
00001C20: 20 59 4F 55 20 53 55 52 45 3F 92 22 54 43 24 3B | YOU SURE?."TC$;|
00001C30: 3A 8D 33 31 30 3A 99 49 4E 24 3B 3A 8B 49 4E 24 |:.310:.IN$;:.IN$|
00001C40: B3 B1 22 59 22 A7 8E 00 61 20 5E 1A 99 22 2E 2E |.."Y"...a ^.."..|
00001C50: 12 43 48 41 4E 47 49 4E 47 20 42 41 4D 2E 2E 22 |.CHANGING BAM.."|
00001C60: 3B 00 78 20 68 1A 9F 33 2C 44 56 2C 33 2C 22 23 |;.x h..3,DV,3,"#|
00001C70: 22 3A 8D 36 33 39 30 30 00 8E 20 72 1A A1 23 33 |":.63900.. r..#3|
00001C80: 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 BA |,BN$:BN..(BN$)..|
00001C90: 20 90 1A 81 49 B2 30 A4 53 32 3A 98 31 35 2C 22 | ...I.0.S2:.15,"|
00001CA0: 42 2D 50 22 3B 33 3B 49 AA 54 AC 34 3A 98 33 2C |B-P";3;I.T.4:.3,|
00001CB0: C7 28 42 28 49 29 29 3B 3A 82 00 D2 20 B8 1A 98 |.(B(I));:... ...|
00001CC0: 31 35 2C 22 55 32 3A 22 3B 33 3B 44 52 3B 44 49 |15,"U2:";3;DR;DI|
00001CD0: 3B 30 00 F2 20 C2 1A 98 31 35 2C 22 49 22 AA 44 |;0.. ...15,"I".D|
00001CE0: 52 24 3A 8D 36 33 39 30 30 3A A0 33 3A A0 31 35 |R$:.63900:.3:.15|
00001CF0: 3A 8E 00 2A 21 D6 1A 99 22 13 11 11 11 11 11 11 |:..*!...".......|
00001D00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001D10: 11 11 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F |...RETURN. TO CO|
00001D20: 4E 54 49 4E 55 45 22 3B 3A 8E 00 4B 21 F4 1A 99 |NTINUE";:..K!...|
00001D30: 56 43 24 22 11 11 11 12 D2 C5 D4 D5 D2 CE 92 20 |VC$"........... |
00001D40: 54 4F 20 45 58 49 54 22 54 43 24 00 56 21 FE 1A |TO EXIT"TC$.V!..|
00001D50: 8D 33 31 30 3A 8E 00 6A 21 58 1B 8F 20 44 49 53 |.310:..j!X.. DIS|
00001D60: 4B 20 43 4F 4D 4D 41 4E 44 53 00 7E 21 59 1B 8F |K COMMANDS.~!Y..|
00001D70: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B6 |"...............|
00001D80: 21 5A 1B 97 35 33 32 38 30 2C 46 35 3A 8D 35 38 |!Z..53280,F5:.58|
00001D90: 30 31 30 3A 99 22 93 22 3A 58 24 B2 22 C4 C9 D3 |010:.".":X$."...|
00001DA0: CB 22 3A 58 B2 33 30 3A 8D 35 34 30 30 30 3A 99 |.":X.30:.54000:.|
00001DB0: 22 13 22 48 44 24 00 F6 21 5B 1B A0 31 35 3A 44 |"."HD$..![..15:D|
00001DC0: 24 28 31 29 B2 22 C9 4E 49 54 49 41 4C 49 5A 45 |$(1).".NITIALIZE|
00001DD0: 22 3A 44 24 28 32 29 B2 22 D6 41 4C 49 44 41 54 |":D$(2).".ALIDAT|
00001DE0: 45 22 3A 44 24 28 33 29 B2 22 C6 4F 52 4D 41 54 |E":D$(3).".ORMAT|
00001DF0: 20 C4 49 53 4B 22 00 0E 22 5C 1B 44 24 28 34 29 | .ISK".."\.D$(4)|
00001E00: B2 22 C3 48 41 4E 47 45 20 C4 C9 D3 CB 22 00 2C |.".HANGE ....".,|
00001E10: 22 5D 1B 44 24 28 35 29 B2 22 C4 49 53 50 4C 41 |"].D$(5).".ISPLA|
00001E20: 59 20 C4 49 52 45 43 54 4F 52 59 22 00 47 22 5E |Y .IRECTORY".G"^|
00001E30: 1B 44 24 28 36 29 B2 22 C3 48 41 4E 47 45 20 C4 |.D$(6).".HANGE .|
00001E40: C5 D6 C9 C3 C5 23 22 00 85 22 5F 1B 44 24 28 37 |.....#".."_.D$(7|
00001E50: 29 B2 22 C3 48 45 43 4B 20 46 4F 52 20 C4 C9 D3 |).".HECK FOR ...|
00001E60: CB 20 C5 D2 D2 CF D2 22 3A 44 24 28 38 29 B2 22 |. .....":D$(8)."|
00001E70: C3 48 45 43 4B 20 46 4F 52 20 C2 C1 C4 20 42 4C |.HECK FOR ... BL|
00001E80: 4F 43 4B 53 22 00 A9 22 60 1B 44 24 28 39 29 B2 |OCKS".."`.D$(9).|
00001E90: 22 C2 41 43 4B 55 50 20 28 42 4C 4F 43 4B 2D 42 |".ACKUP (BLOCK-B|
00001EA0: 59 2D 42 4C 4F 43 4B 29 22 00 E6 22 62 1B 81 49 |Y-BLOCK)".."b..I|
00001EB0: B2 31 A4 39 3A 99 22 11 12 22 49 22 92 3A 22 44 |.1.9:.".."I".:"D|
00001EC0: 24 28 49 29 3A 82 3A 99 53 30 24 3A 99 56 43 24 |$(I):.:.S0$:.VC$|
00001ED0: 22 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 45 58 |"......... TO EX|
00001EE0: 49 54 22 54 43 24 00 FA 22 63 1B 8D 33 31 30 3A |IT"TC$.."c..310:|
00001EF0: 8B 49 4E 24 B2 43 52 24 A7 8E 00 04 23 64 1B 99 |.IN$.CR$....#d..|
00001F00: 22 13 11 22 00 34 23 65 1B 81 49 B2 31 A4 49 4E |"..".4#e..I.1.IN|
00001F10: 3A 99 22 11 11 22 3B 3A 82 3A 99 22 1D 1D 1D 1D |:."..";:.:."....|
00001F20: 12 22 44 24 28 49 4E 29 3A 81 54 39 B2 31 A4 33 |."D$(IN):.T9.1.3|
00001F30: 30 30 3A 82 00 6E 23 67 1B 91 20 49 4E 20 8D 37 |00:..n#g.. IN .7|
00001F40: 30 32 30 2C 37 30 33 30 2C 37 30 33 35 2C 37 30 |020,7030,7035,70|
00001F50: 34 30 2C 31 31 30 30 30 2C 37 33 30 30 2C 37 33 |40,11000,7300,73|
00001F60: 35 30 2C 35 31 30 30 30 2C 35 30 30 30 30 00 78 |50,51000,50000.x|
00001F70: 23 68 1B 89 37 30 30 30 00 97 23 6C 1B 9F 31 35 |#h..7000..#l..15|
00001F80: 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D |,DV,15,"I".DR$:.|
00001F90: 36 33 39 30 30 3A 8E 00 B6 23 76 1B 9F 31 35 2C |63900:...#v..15,|
00001FA0: 44 56 2C 31 35 2C 22 56 22 AA 44 52 24 3A 8D 36 |DV,15,"V".DR$:.6|
00001FB0: 33 39 30 30 3A 8E 00 F6 23 7B 1B 85 22 93 11 11 |3900:...#{.."...|
00001FC0: CE C1 CD C5 20 46 4F 52 20 44 49 53 4B 22 3B 4E |.... FOR DISK";N|
00001FD0: 4D 24 3A 85 22 11 11 C9 C4 20 46 4F 52 20 44 49 |M$:.".... FOR DI|
00001FE0: 53 4B 22 3B 49 44 24 3A 85 22 11 11 C4 D2 C9 D6 |SK";ID$:."......|
00001FF0: C5 22 3B 44 41 24 00 39 24 7C 1B 43 43 24 B2 22 |.";DA$.9$|.CC$."|
00002000: 4E 22 AA 44 41 24 AA 22 3A 22 AA 4E 4D 24 AA 22 |N".DA$.":".NM$."|
00002010: 2C 22 AA 49 44 24 3A 99 22 11 11 4F 50 45 4E 20 |,".ID$:."..OPEN |
00002020: 31 35 2C 22 44 56 22 2C 31 35 2C 22 C7 28 33 34 |15,"DV",15,".(34|
00002030: 29 43 43 24 C7 28 33 34 29 00 69 24 7E 1B 85 22 |)CC$.(34).i$~.."|
00002040: 11 11 C1 D2 C5 20 D9 CF D5 20 D3 D5 D2 C5 20 20 |..... ... .... |
00002050: 20 4E 9D 9D 9D 22 3B 56 56 24 20 3A 8B 20 56 56 | N...";VV$ :. VV|
00002060: 24 B3 B1 22 59 22 A7 20 8E 00 84 24 7F 1B 9F 31 |$.."Y". ...$...1|
00002070: 35 2C 44 56 2C 31 35 2C 43 43 24 3A 8D 36 33 39 |5,DV,15,CC$:.639|
00002080: 30 30 3A 8E 00 B5 24 80 1B 44 52 B2 C5 28 44 52 |00:...$..DR..(DR|
00002090: 24 29 3A 99 22 93 11 11 44 52 49 56 45 20 20 20 |$):."...DRIVE |
000020A0: 22 31 AB 44 52 3A 85 22 91 1D 1D 1D 1D 1D 1D 1D |"1.DR:."........|
000020B0: 22 3B 44 52 24 00 E6 24 81 1B 4D 48 24 B2 22 44 |";DR$..$..MH$."D|
000020C0: 52 49 56 45 20 22 AA 44 52 24 AA 22 12 20 20 2A |RIVE ".DR$.". *|
000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020E0: 2A 2A 2A 2A 92 22 00 17 25 82 1B 4D 48 24 B2 22 |****."..%..MH$."|
000020F0: 44 52 49 56 45 20 22 AA 44 52 24 AA 22 12 20 20 |DRIVE ".DR$.". |
00002100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002110: 2A 2A 2A 2A 2A 92 22 00 28 25 83 1B 8D 32 36 31 |*****.".(%...261|
00002120: 3A 8D 38 30 34 30 3A 8E 00 3B 25 BC 1B 8F 20 54 |:.8040:..;%... T|
00002130: 52 41 43 45 20 42 4C 4F 43 4B 53 00 4E 25 BD 1B |RACE BLOCKS.N%..|
00002140: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 92 |."..............|
00002150: 25 BE 1B 99 22 93 11 12 31 92 3A C4 49 53 50 4C |%..."...1.:.ISPL|
00002160: 41 59 20 C1 CC CC 20 4C 49 4E 4B 53 20 4F 4E 20 |AY ... LINKS ON |
00002170: 41 20 54 52 41 43 4B 2E 22 3A 99 22 11 12 32 92 |A TRACK.":."..2.|
00002180: 3A C6 4F 4C 4C 4F 57 20 4C 49 4E 4B 53 2E 11 11 |:.OLLOW LINKS...|
00002190: 11 22 00 C1 25 BF 1B 58 B2 33 30 3A 58 24 B2 22 |."..%..X.30:X$."|
000021A0: D4 D2 C1 C3 C5 22 3A 8D 35 34 30 30 30 3A 8D 36 |.....":.54000:.6|
000021B0: 39 30 30 3A 8B 20 49 4E 24 B2 43 52 24 20 A7 20 |900:. IN$.CR$ . |
000021C0: 8E 00 F5 25 C0 1B 85 22 93 11 11 D4 CF 20 D0 D2 |...%..."..... ..|
000021D0: C9 CE D4 C5 D2 20 20 20 4E 9D 9D 9D 22 3B 49 49 |..... N...";II|
000021E0: 24 3A 50 44 B2 33 3A 8B 20 49 49 24 B2 22 59 22 |$:PD.3:. II$."Y"|
000021F0: A7 50 44 B2 34 00 0C 26 C1 1B 9F 34 2C 50 44 3A |.PD.4..&...4,PD:|
00002200: 8B 20 49 4E B2 32 20 A7 37 31 31 32 00 42 26 C2 |. IN.2 .7112.B&.|
00002210: 1B 85 22 93 11 D4 D2 C1 C3 CB 20 20 20 A6 9D 9D |.."....... ...|
00002220: 9D 22 3B 54 38 3A A0 33 3A A0 31 35 3A 9F 31 35 |.";T8:.3:.15:.15|
00002230: 2C 44 56 2C 31 35 3A 9F 33 2C 44 56 2C 33 2C 22 |,DV,15:.3,DV,3,"|
00002240: 23 22 00 62 26 C3 1B 98 34 2C 22 93 54 52 41 43 |#".b&...4,".TRAC|
00002250: 4B 22 54 38 3A 98 34 2C 22 B8 B8 B8 B8 B8 B8 B8 |K"T8:.4,".......|
00002260: B8 22 00 92 26 C4 1B 81 53 38 B2 30 A4 33 31 3A |."..&...S8.0.31:|
00002270: 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B 54 |.15,"B-R";3;DR;T|
00002280: 38 3B 53 38 3A 84 31 35 2C 45 3A 8B 45 A7 37 31 |8;S8:.15,E:.E.71|
00002290: 31 30 00 CD 26 C5 1B 98 31 35 2C 22 42 2D 50 22 |10..&...15,"B-P"|
000022A0: 3B 33 3B 31 3A A1 23 33 2C 41 24 3A 98 34 2C 22 |;3;1:.#3,A$:.4,"|
000022B0: 53 45 43 54 4F 52 22 53 38 22 20 4C 49 4E 4B 53 |SECTOR"S8" LINKS|
000022C0: 20 54 4F 22 C6 28 41 24 AA 43 5A 24 29 00 E5 26 | TO".(A$.CZ$)..&|
000022D0: C6 1B A1 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 A7 |...IN$:.IN$.."".|
000022E0: 53 38 B2 33 32 00 FC 26 C7 1B 82 3A 8D 33 30 30 |S8.32..&...:.300|
000022F0: 3A 98 34 3A A0 34 3A 89 37 31 30 30 00 31 27 C8 |:.4:.4:.7100.1'.|
00002300: 1B 85 22 93 11 12 53 54 41 52 54 49 4E 47 20 D4 |.."...STARTING .|
00002310: D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 |....,....... .|
00002320: 9D 9D 9D 22 3B 54 38 2C 53 38 3A A0 33 3A A0 31 |...";T8,S8:.3:.1|
00002330: 35 00 52 27 C9 1B 9F 31 35 2C 44 56 2C 31 35 3A |5.R'...15,DV,15:|
00002340: 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D 36 33 39 |.3,DV,3,"#":.639|
00002350: 30 30 00 8E 27 CB 1B 99 22 93 12 D2 C5 D4 D5 D2 |00..'...".......|
00002360: CE 92 20 54 4F 20 51 55 49 54 22 3A 98 34 2C 22 |.. TO QUIT":.4,"|
00002370: 28 22 54 38 22 2C 22 53 38 22 29 5F 20 46 49 52 |("T8","S8")_ FIR|
00002380: 53 54 20 42 4C 4F 43 4B 22 3A 4E 39 B2 31 00 A7 |ST BLOCK":N9.1..|
00002390: 27 D0 1B 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 |'...15,"B-R";3;D|
000023A0: 52 3B 54 38 3B 53 38 00 B9 27 DA 1B 98 31 35 2C |R;T8;S8..'...15,|
000023B0: 22 42 2D 50 22 3B 33 3B 30 00 D2 27 E4 1B A1 23 |"B-P";3;0..'...#|
000023C0: 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 |3,Z$:.Z$."".Z$.C|
000023D0: 5A 24 00 EA 27 EE 1B 54 38 B2 C6 28 5A 24 29 3A |Z$..'..T8..(Z$):|
000023E0: 8B 54 38 B2 30 A7 37 32 30 30 00 03 28 F8 1B A1 |.T8.0.7200..(...|
000023F0: 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 |#3,Z$:.Z$."".Z$.|
00002400: 43 5A 24 00 10 28 02 1C 53 38 B2 C6 28 5A 24 29 |CZ$..(..S8..(Z$)|
00002410: 00 32 28 07 1C 54 38 24 B2 CA 28 C4 28 54 38 29 |.2(..T8$..(.(T8)|
00002420: 2C 32 29 3A 53 38 24 B2 CA 28 C4 28 53 38 29 2C |,2):S8$..(.(S8),|
00002430: 32 29 00 5B 28 0C 1C 98 34 2C 22 28 22 54 38 24 |2).[(...4,"("T8$|
00002440: 22 2C 22 53 38 24 22 29 22 3B 3A 8B B5 28 4E 39 |","S8$")";:..(N9|
00002450: AD 35 29 AC 35 B2 4E 39 A7 98 34 00 79 28 16 1C |.5).5.N9..4.y(..|
00002460: 4E 39 B2 4E 39 AA 31 3A A1 49 4E 24 3A 8B 49 4E |N9.N9.1:.IN$:.IN|
00002470: 24 B2 22 22 89 37 31 32 30 00 85 28 1B 1C 99 3A |$."".7120..(...:|
00002480: 89 37 32 31 30 00 A8 28 20 1C 98 34 2C 22 5F 20 |.7210..( ..4,"_ |
00002490: 4C 41 53 54 20 11 11 22 3A 98 34 2C 4E 39 22 20 |LAST ..":.4,N9" |
000024A0: 42 4C 4F 43 4B 53 11 22 00 BD 28 2A 1C 8D 33 30 |BLOCKS."..(*..30|
000024B0: 30 3A 98 34 3A A0 34 3A 89 37 31 30 30 00 F6 28 |0:.4:.4:.7100..(|
000024C0: 84 1C 44 39 B2 39 3A 44 31 24 B2 C7 28 44 56 AA |..D9.9:D1$..(DV.|
000024D0: 33 32 29 3A 44 32 24 B2 C7 28 44 56 AA 36 34 29 |32):D2$..(DV.64)|
000024E0: 3A 9F 31 35 2C 44 56 2C 31 35 3A 8B 44 56 B2 44 |:.15,DV,15:.DV.D|
000024F0: 39 A7 44 39 B2 38 00 29 29 89 1C 99 22 13 11 11 |9.D9.8.))..."...|
00002500: 11 11 11 11 11 11 11 11 11 15 11 11 11 11 11 11 |................|
00002510: 11 11 11 11 11 12 CE C5 D7 92 20 44 45 56 49 43 |.......... DEVIC|
00002520: 45 20 23 20 20 20 22 44 39 00 43 29 8D 1C 85 22 |E # "D9.C)..."|
00002530: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00002540: 3B 44 39 00 5C 29 8E 1C 58 58 B2 31 32 3A 8D 37 |;D9.\)..XX.12:.7|
00002550: 33 34 30 3A 8B 59 59 A7 37 33 31 35 00 75 2D 8F |340:.YY.7315.u-.|
00002560: 1C 58 58 B2 35 30 3A 8D 37 33 34 30 3A 8B 59 59 |.XX.50:.7340:.YY|
00002570: A7 37 33 31 35 00 8F 29 90 1C 58 58 B2 31 31 39 |.7315..)..XX.119|
00002580: 3A 8D 37 33 34 30 3A 8B 59 59 A7 37 33 31 35 00 |:.7340:.YY.7315.|
00002590: 9B 29 91 1C 8D 37 34 30 30 3A 8E 00 C7 29 93 1C |.)...7400:...)..|
000025A0: 98 31 35 2C 22 4D 2D 57 22 C7 28 58 58 29 C7 28 |.15,"M-W".(XX).(|
000025B0: 30 30 29 C7 28 32 29 C7 28 44 39 AA 33 32 29 C7 |00).(2).(D9.32).|
000025C0: 28 44 39 AA 36 34 29 00 DC 29 98 1C A0 31 35 3A |(D9.64)..)...15:|
000025D0: 44 56 B2 44 39 3A 8D 32 36 31 3A 8E 00 11 2A AC |DV.D9:.261:...*.|
000025E0: 1C 59 59 B2 AB 31 3A 98 31 35 2C 22 4D 2D 52 22 |.YY..1:.15,"M-R"|
000025F0: C7 28 58 58 29 C7 28 30 29 3A A1 23 31 35 2C 58 |.(XX).(0):.#15,X|
00002600: 58 24 3A 8B 58 58 24 B3 B1 44 31 24 A7 59 59 B2 |X$:.XX$..D1$.YY.|
00002610: 30 00 17 2A B1 1C 8E 00 45 2A B6 1C A0 31 35 3A |0..*....E*...15:|
00002620: 9F 31 35 2C 44 56 2C 31 35 3A 84 31 35 2C 45 31 |.15,DV,15:.15,E1|
00002630: 24 2C 45 32 24 2C 45 33 24 2C 45 34 24 3A 53 39 |$,E2$,E3$,E4$:S9|
00002640: 24 B2 22 2C 22 00 68 2A B7 1C 58 24 B2 45 31 24 |$.",".h*..X$.E1$|
00002650: AA 53 39 24 AA 45 32 24 AA 53 39 24 AA 45 33 24 |.S9$.E2$.S9$.E3$|
00002660: AA 53 39 24 AA 45 34 24 00 9E 2A B8 1C 99 22 93 |.S9$.E4$..*...".|
00002670: 22 3A 58 B2 35 3A 59 24 B2 22 22 3A 8D 35 34 30 |":X.5:Y$."":.540|
00002680: 32 30 3A 81 41 39 B2 31 A4 31 30 30 3A 45 B2 C5 |20:.A9.1.100:E..|
00002690: 28 45 31 24 29 3A 82 3A 8B 45 B2 30 A7 8E 00 B4 |(E1$):.:.E.0....|
000026A0: 2A B9 1C 81 41 39 B2 31 A4 31 30 3A 8D 35 39 31 |*...A9.1.10:.591|
000026B0: 30 30 3A 82 00 D3 2A BA 1C 99 22 11 11 12 52 45 |00:...*..."...RE|
000026C0: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
000026D0: 45 2E 22 00 F5 2A BB 1C 99 22 11 11 41 4E 59 20 |E."..*..."..ANY |
000026E0: 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 12 51 55 |OTHER KEY TO .QU|
000026F0: 49 54 92 2E 22 00 09 2B BC 1C 8D 33 31 30 3A 8B |IT.."..+...310:.|
00002700: 49 4E 24 B2 43 52 24 A7 8E 00 13 2B BD 1C 89 37 |IN$.CR$....+...7|
00002710: 39 30 30 00 50 2B E8 1C 99 22 93 11 11 2A 2A 2A |900.P+..."...***|
00002720: 12 4E 4F 54 20 41 20 52 45 43 4F 47 4E 49 5A 41 |.NOT A RECOGNIZA|
00002730: 42 4C 45 20 44 49 53 4B 92 2A 2A 2A 22 3A 99 22 |BLE DISK.***":."|
00002740: 11 11 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 22 |..WANT TO QUIT?"|
00002750: 00 67 2B F2 1C 8D 33 31 30 3A 8B 49 4E 24 B2 22 |.g+...310:.IN$."|
00002760: 59 22 A7 37 39 30 30 00 6D 2B FC 1C 8E 00 7D 2B |Y".7900.m+....}+|
00002770: 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 8D 2B |L.. UNSCRATCH..+|
00002780: 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B7 2B |M.."...........+|
00002790: 4E 1D 99 22 93 22 3A 58 B2 32 35 3A 58 24 B2 22 |N..".":X.25:X$."|
000027A0: D5 CE D3 C3 D2 C1 D4 C3 C8 22 3A 59 24 B2 22 22 |.........":Y$.""|
000027B0: 3A 8D 35 34 30 32 30 00 D7 2B 56 1D 99 22 11 D7 |:.54020..+V.."..|
000027C0: 45 27 4C 4C 20 44 4F 20 54 48 45 20 46 4F 4C 4C |E'LL DO THE FOLL|
000027D0: 4F 57 49 4E 47 3A 22 00 06 2C 57 1D 99 22 11 12 |OWING:"..,W.."..|
000027E0: 31 92 3A C7 4F 20 54 48 52 55 27 20 44 49 52 45 |1.:.O THRU' DIRE|
000027F0: 43 54 4F 52 59 20 54 52 41 43 4B 22 44 49 22 20 |CTORY TRACK"DI" |
00002800: 55 4E 54 49 4C 22 00 30 2C 58 1D 99 22 20 20 57 |UNTIL".0,X.." W|
00002810: 45 20 46 49 4E 44 20 54 48 45 20 53 43 52 41 54 |E FIND THE SCRAT|
00002820: 43 48 45 44 20 46 49 4C 45 20 4E 41 4D 45 2E 22 |CHED FILE NAME."|
00002830: 00 59 2C 59 1D 99 22 11 12 32 92 3A D4 52 41 43 |.Y,Y.."..2.:.RAC|
00002840: 45 20 54 48 45 20 C2 4C 4F 43 4B 53 20 41 4E 44 |E THE .LOCKS AND|
00002850: 20 43 4F 4D 50 41 52 45 22 00 7F 2C 5A 1D 99 22 | COMPARE"..,Z.."|
00002860: 20 20 54 48 45 20 C2 4C 4F 43 4B 53 20 4F 42 54 | THE .LOCKS OBT|
00002870: 41 49 4E 45 44 20 57 49 54 48 20 54 48 45 22 00 |AINED WITH THE".|
00002880: 9F 2C 5B 1D 99 22 20 20 C4 49 52 45 43 54 4F 52 |.,[.." .IRECTOR|
00002890: 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 2E 22 00 |Y .LOCK .OUNT.".|
000028A0: CD 2C 5C 1D 99 22 11 12 33 92 3A CC 4F 4F 4B 20 |.,\.."..3.:.OOK |
000028B0: 41 54 20 54 48 45 20 C2 4C 4F 43 4B 20 C1 56 41 |AT THE .LOCK .VA|
000028C0: 49 4C 41 42 49 4C 54 59 20 CD 41 50 22 00 F9 2C |ILABILTY .AP"..,|
000028D0: 5D 1D 99 22 20 20 54 4F 20 53 45 45 20 49 46 20 |].." TO SEE IF |
000028E0: 41 4C 4C 20 54 48 45 20 42 4C 4F 43 4B 53 20 41 |ALL THE BLOCKS A|
000028F0: 52 45 20 46 52 45 45 2E 22 00 1E 2D 5E 1D 99 22 |RE FREE."..-^.."|
00002900: 11 3E 3E C9 46 20 41 4C 4C 20 4F 46 20 54 48 45 |.>>.F ALL OF THE|
00002910: 20 41 42 4F 56 45 20 41 52 45 20 CF CB 22 00 45 | ABOVE ARE ..".E|
00002920: 2D 5F 1D 99 22 20 20 59 4F 55 20 54 48 45 4E 20 |-_.." YOU THEN |
00002930: CD 4F 44 49 46 59 20 54 48 45 20 C4 49 52 45 43 |.ODIFY THE .IREC|
00002940: 54 4F 52 59 22 00 5F 2D 60 1D 99 22 20 20 41 53 |TORY"._-`.." AS|
00002950: 20 46 4F 4C 4C 4F 57 53 3A 22 3A 8D 33 30 30 00 | FOLLOWS:":.300.|
00002960: 84 2D 74 1D 99 22 93 CD 4F 44 49 46 59 20 54 48 |.-t.."..ODIFY TH|
00002970: 45 20 42 4C 4F 43 4B 20 53 4F 20 54 48 41 54 20 |E BLOCK SO THAT |
00002980: 54 48 45 22 00 97 2D 79 1D 99 22 12 4D 41 47 49 |THE"..-y..".MAGI|
00002990: 43 20 42 59 54 45 22 00 C4 2D 7E 1D 99 22 20 20 |C BYTE"..-~.." |
000029A0: 57 48 49 43 48 20 4F 43 43 55 52 53 20 4A 55 53 |WHICH OCCURS JUS|
000029B0: 54 20 12 33 92 20 50 4C 41 43 45 53 20 42 45 46 |T .3. PLACES BEF|
000029C0: 4F 52 45 22 00 E5 2D 88 1D 99 22 20 20 54 48 45 |ORE"..-..." THE|
000029D0: 20 4E 41 4D 45 20 49 53 20 41 53 20 46 4F 4C 4C | NAME IS AS FOLL|
000029E0: 4F 57 53 3A 22 00 FB 2D 92 1D 99 22 20 20 31 32 |OWS:"..-..." 12|
000029F0: 39 3D D3 C5 D1 20 46 49 4C 45 22 00 11 2E 93 1D |9=... FILE".....|
00002A00: 99 22 20 20 31 33 30 3D D0 D2 C7 20 46 49 4C 45 |." 130=... FILE|
00002A10: 22 00 27 2E 94 1D 99 22 20 20 31 33 31 3D D5 D3 |".'...." 131=..|
00002A20: D2 20 46 49 4C 45 22 00 3D 2E 95 1D 99 22 20 20 |. FILE".=...." |
00002A30: 31 33 32 3D D2 C5 CC 20 46 49 4C 45 22 00 6B 2E |132=... FILE".k.|
00002A40: 9C 1D 99 22 11 C5 58 41 4D 50 4C 45 3A 54 4F 20 |..."..XAMPLE:TO |
00002A50: 55 4E 53 43 52 41 54 43 48 20 41 20 D0 D2 C7 20 |UNSCRATCH A ... |
00002A60: 46 49 4C 45 20 27 C1 C2 DA 27 22 00 97 2E A6 1D |FILE '...'".....|
00002A70: 99 22 46 49 4E 44 20 49 54 27 53 20 4E 41 4D 45 |."FIND IT'S NAME|
00002A80: 20 4F 4E 20 54 48 45 20 C4 C9 D2 C5 C3 D4 CF D2 | ON THE ........|
00002A90: D9 2C 20 41 4E 44 22 00 BD 2E B0 1D 99 22 53 45 |., AND"......"SE|
00002AA0: 4C 45 43 54 20 CD C5 CE D5 20 49 54 45 4D 3D CD |LECT .... ITEM=.|
00002AB0: 4F 44 49 46 59 20 C2 4C 4F 43 4B 2E 22 00 D2 2E |ODIFY .LOCK."...|
00002AC0: BA 1D 99 22 D9 4F 55 20 57 49 4C 4C 20 53 45 45 |...".OU WILL SEE|
00002AD0: 3A 22 00 0C 2F C4 1D 99 22 11 2E 2E 20 30 12 20 |:"../..."... 0. |
00002AE0: 30 92 20 30 22 56 43 24 22 12 20 30 22 54 43 24 |0. 0"VC$". 0"TC$|
00002AF0: 22 92 20 31 39 12 20 33 92 20 36 35 12 20 36 36 |". 19. 3. 65. 66|
00002B00: 92 20 39 30 2E 2E 2E 2E 45 54 43 22 00 2C 2F CE |. 90....ETC".,/.|
00002B10: 1D 99 22 20 20 20 20 20 20 20 20 20 5E 20 20 5E |.." ^ ^|
00002B20: 20 5E 20 20 5E 20 20 5E 20 20 5E 22 00 4C 2F D8 | ^ ^ ^ ^".L/.|
00002B30: 1D 99 22 20 53 48 4F 55 4C 44 20 42 45 20 DD D4 |.." SHOULD BE ..|
00002B40: 52 43 4B DD C1 20 20 C2 20 20 DA 22 00 77 2F E2 |RCK.. . .".w/.|
00002B50: 1D 99 22 20 20 20 20 20 41 20 31 33 30 20 DD 26 |.." A 130 .&|
00002B60: D3 45 43 DD C6 49 4C 45 4E 41 4D 45 28 49 4E 20 |.EC..ILENAME(IN |
00002B70: C1 D3 C3 C9 C9 29 22 00 85 2F EC 1D 8D 33 30 30 |.....)"../...300|
00002B80: 3A 99 22 91 22 00 B3 2F F6 1D 99 22 11 CD 4F 44 |:."."../..."..OD|
00002B90: 49 46 59 20 54 48 45 20 42 59 54 45 20 57 48 49 |IFY THE BYTE WHI|
00002BA0: 43 48 20 49 44 45 4E 54 49 46 49 45 53 20 54 48 |CH IDENTIFIES TH|
00002BB0: 45 20 22 00 DA 2F 00 1E 99 22 46 49 4C 45 20 54 |E "../..."FILE T|
00002BC0: 59 50 45 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 |YPE..TO 130..SO |
00002BD0: 49 54 20 52 45 41 44 53 3A 22 00 15 30 05 1E 99 |IT READS:"..0...|
00002BE0: 22 11 2E 2E 20 30 12 20 30 92 20 30 22 56 43 24 |"... 0. 0. 0"VC$|
00002BF0: 22 12 31 33 30 22 54 43 24 22 92 20 31 39 12 20 |".130"TC$". 19. |
00002C00: 33 92 20 36 35 12 20 36 36 92 20 39 30 2E 2E 2E |3. 65. 66. 90...|
00002C10: 2E 45 54 43 22 00 43 30 0A 1E 99 22 11 12 34 92 |.ETC".C0..."..4.|
00002C20: 3A D7 52 49 54 45 20 54 48 45 20 42 4C 4F 43 4B |:.RITE THE BLOCK|
00002C30: 20 42 41 43 4B 20 54 4F 20 54 48 45 20 44 49 53 | BACK TO THE DIS|
00002C40: 4B 2E 22 00 74 30 14 1E 99 22 11 12 35 92 3A D6 |K.".t0..."..5.:.|
00002C50: C1 CC C9 C4 C1 D4 C5 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00002C60: B8 B8 B8 B8 B8 B8 B8 B8 91 20 54 48 45 20 44 49 |......... THE DI|
00002C70: 53 4B 2E 22 00 8C 30 1E 1E 99 22 11 12 35 92 3A |SK."..0..."..5.:|
00002C80: D0 52 41 59 2E 2E 22 3A 8D 33 31 30 00 B5 30 C8 |.RAY..":.310..0.|
00002C90: 1E 85 22 11 D7 C1 CE D4 20 D4 CF 20 D4 D2 D9 20 |.."..... .. ... |
00002CA0: 20 20 59 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B3 B1 | Y...";A$:.A$..|
00002CB0: 22 59 22 A7 8E 00 C0 30 D2 1E 89 31 32 30 30 30 |"Y"....0...12000|
00002CC0: 00 EA 30 DC 1E A0 31 35 3A 8D 35 38 30 32 30 3A |..0...15:.58020:|
00002CD0: 99 22 93 11 11 11 11 11 42 59 45 11 11 11 22 3A |."......BYE...":|
00002CE0: 99 48 44 24 22 11 11 22 3A 80 00 FB 30 40 1F 8F |.HD$"..":...0@..|
00002CF0: 20 49 4E 49 54 49 41 4C 49 5A 45 00 0C 31 41 1F | INITIALIZE..1A.|
00002D00: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 42 31 42 |."...........B1B|
00002D10: 1F 99 22 93 22 3A 8D 35 38 30 32 30 3A 97 35 33 |..".":.58020:.53|
00002D20: 32 38 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 |281,F1:.53280,F1|
00002D30: 3A 86 20 46 33 24 28 31 35 29 2C 46 35 24 28 31 |:. F3$(15),F5$(1|
00002D40: 35 29 00 66 31 43 1F 81 49 B2 30 A4 31 35 3A 87 |5).f1C..I.0.15:.|
00002D50: 46 33 24 28 49 29 3A 46 35 24 28 49 29 B2 46 33 |F3$(I):F5$(I).F3|
00002D60: 24 28 49 29 3A 82 00 8B 31 44 1F 83 22 90 22 2C |$(I):...1D..".",|
00002D70: 22 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C |".",".",".",".",|
00002D80: 22 1E 22 2C 22 1F 22 2C 22 9E 22 00 B0 31 45 1F |".",".","."..1E.|
00002D90: 83 22 81 22 2C 22 95 22 2C 22 96 22 2C 22 97 22 |.".",".",".","."|
00002DA0: 2C 22 98 22 2C 22 99 22 2C 22 9A 22 2C 22 9B 22 |,".",".",".","."|
00002DB0: 00 D1 31 46 1F 54 43 24 B2 46 33 24 28 46 33 29 |..1F.TC$.F3$(F3)|
00002DC0: 3A 99 54 43 24 3A 56 43 24 B2 46 35 24 28 46 35 |:.TC$:VC$.F5$(F5|
00002DD0: 29 00 F7 31 47 1F 86 43 28 32 35 35 29 2C 54 28 |)..1G..C(255),T(|
00002DE0: 31 32 30 29 2C 53 28 31 32 30 29 2C 53 43 28 37 |120),S(120),SC(7|
00002DF0: 37 29 2C 42 28 34 29 00 18 32 48 1F 83 31 2C 31 |7),B(4)..2H..1,1|
00002E00: 37 2C 32 30 2C 32 34 2C 31 39 2C 33 30 2C 31 37 |7,20,24,19,30,17|
00002E10: 2C 33 35 2C 31 36 2C 30 00 3A 32 49 1F 83 36 35 |,35,16,0.:2I..65|
00002E20: 2C 31 37 2C 32 30 2C 32 34 2C 31 38 2C 33 30 2C |,17,20,24,18,30,|
00002E30: 31 37 2C 33 35 2C 31 36 2C 30 00 5C 32 4A 1F 83 |17,35,16,0.\2J..|
00002E40: 36 37 2C 33 39 2C 32 38 2C 35 33 2C 32 36 2C 36 |67,39,28,53,26,6|
00002E50: 34 2C 32 34 2C 37 37 2C 32 32 2C 30 00 9A 32 4B |4,24,77,22,0..2K|
00002E60: 1F 53 30 24 B2 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.S0$."..........|
00002E70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002E80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 53 |.............":S|
00002E90: 34 24 B2 53 30 24 AA 53 30 24 00 DE 32 4C 1F 41 |4$.S0$.S0$..2L.A|
00002EA0: 24 B2 56 43 24 AA 22 93 12 2A 50 4F 4E 5A 4F 2A |$.VC$."..*PONZO*|
00002EB0: 2A 2A 2A 20 44 49 53 4B 56 49 45 57 20 2A 2A 2A |*** DISKVIEW ***|
00002EC0: 2A 28 22 AA 44 41 24 AA 22 29 2A 2A 2A 2A 22 AA |*(".DA$.")****".|
00002ED0: 54 43 24 3A 81 49 B2 31 A4 C3 28 41 24 29 00 10 |TC$:.I.1..(A$)..|
00002EE0: 33 4D 1F 99 CA 28 41 24 2C 49 2C 31 29 3B 3A 81 |3M...(A$,I,1);:.|
00002EF0: 54 B2 31 A4 35 3A 82 3A 82 3A 99 3A 99 53 30 24 |T.1.5:.:.:.:.S0$|
00002F00: 3A 8B 43 50 24 B2 22 50 45 54 22 89 38 30 31 36 |:.CP$."PET".8016|
00002F10: 00 27 33 4E 1F 99 22 11 11 4E 4F 54 45 11 9D 9D |.'3N.."..NOTE...|
00002F20: 9D 9D B8 B8 B8 B8 22 00 56 33 4F 1F 99 22 46 55 |......".V3O.."FU|
00002F30: 4E 43 54 49 4F 4E 20 4B 45 59 53 20 43 48 41 4E |NCTION KEYS CHAN|
00002F40: 47 45 20 43 4F 4C 4F 55 52 53 20 41 54 20 4D 45 |GE COLOURS AT ME|
00002F50: 4E 55 2E 2E 2E 22 00 72 33 50 1F 85 22 11 11 44 |NU...".r3P.."..D|
00002F60: 45 56 49 43 45 20 23 20 20 20 38 9D 9D 9D 22 3B |EVICE # 8...";|
00002F70: 44 56 00 93 33 51 1F 52 24 28 30 29 B2 22 12 22 |DV..3Q.R$(0)."."|
00002F80: 3A 52 24 28 31 29 B2 22 92 22 3A 4E 4E B2 35 35 |:R$(1).".":NN.55|
00002F90: 33 34 31 00 AE 33 52 1F 48 58 24 B2 22 30 31 32 |341..3R.HX$."012|
00002FA0: 33 34 35 36 37 38 39 41 42 43 44 45 46 22 00 DA |3456789ABCDEF"..|
00002FB0: 33 54 1F 53 44 24 B2 22 13 11 11 11 11 11 11 11 |3T.SD$."........|
00002FC0: 11 11 11 22 3A 42 42 24 B2 53 44 24 AA 22 11 11 |...":BB$.SD$."..|
00002FD0: 11 11 11 11 11 11 11 11 11 22 00 0C 34 59 1F 4D |........."..4Y.M|
00002FE0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
00002FF0: 11 11 11 11 11 11 11 92 22 3A 43 52 24 B2 C7 28 |........":CR$..(|
00003000: 31 33 29 3A 43 5A 24 B2 C7 28 30 29 00 17 34 5A |13):CZ$..(0)..4Z|
00003010: 1F 8D 35 39 30 30 30 00 3E 34 63 1F 85 22 11 11 |..59000.>4c.."..|
00003020: 20 44 52 49 56 45 20 23 20 20 20 30 9D 9D 9D 22 | DRIVE # 0..."|
00003030: 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 00 66 |;DR$:DR..(DR$).f|
00003040: 34 68 1F 8D 35 38 30 32 30 3A A0 31 35 3A 9F 31 |4h..58020:.15:.1|
00003050: 35 2C 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A |5,DV,15,"I".DR$:|
00003060: 8D 36 33 39 30 30 00 87 34 72 1F 4B 24 B2 22 20 |.63900..4r.K$." |
00003070: 20 D4 C8 C9 D3 A0 C2 CC CF C3 CB A0 C9 D3 A0 C5 | ...............|
00003080: CD D0 D4 D9 20 20 22 00 A5 34 7C 1F 8C 3A 81 49 |.... "..4|..:.I|
00003090: B2 30 A4 31 35 3A 87 58 24 3A 82 3A 57 57 B2 30 |.0.15:.X$:.:WW.0|
000030A0: 3A 41 30 B2 31 00 C0 34 7D 1F 9F 33 2C 44 56 2C |:A0.1..4}..3,DV,|
000030B0: 33 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 |3,"$".DR$:.63900|
000030C0: 00 D7 34 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 28 |..4~..#3,A$:A..(|
000030D0: 41 24 AA 43 5A 24 29 00 EA 34 7F 1F 87 44 54 3A |A$.CZ$)..4...DT:|
000030E0: 8B 41 B2 44 54 A7 38 30 37 30 00 10 35 80 1F 57 |.A.DT.8070..5..W|
000030F0: 57 B2 57 57 AA 31 3A 8B 57 57 B3 33 A7 20 81 49 |W.WW.1:.WW.3. .I|
00003100: B2 31 A4 39 3A 87 44 54 3A 82 3A 89 38 30 36 33 |.1.9:.DT:.:.8063|
00003110: 00 1D 35 81 1F A0 33 3A 8D 37 34 30 30 00 54 35 |..5...3:.7400.T5|
00003120: 82 1F 4D 48 24 B2 22 44 52 49 56 45 20 22 AA 44 |..MH$."DRIVE ".D|
00003130: 52 24 AA 22 12 21 21 55 4E 52 45 43 4F 47 4E 49 |R$.".!!UNRECOGNI|
00003140: 5A 41 42 4C 45 20 44 49 53 4B 21 21 92 22 3A 8D |ZABLE DISK!!.":.|
00003150: 38 32 33 30 00 6B 35 83 1F 54 54 B2 32 30 30 3A |8230.k5..TT.200:|
00003160: 44 49 B2 37 36 3A 89 38 31 31 30 00 82 35 86 1F |DI.76:.8110..5..|
00003170: 8B 44 54 B2 31 B0 44 54 B2 36 35 A7 4B 4B B2 31 |.DT.1.DT.65.KK.1|
00003180: 34 33 00 92 35 87 1F 8B 44 54 B2 36 37 A7 4B 4B |43..5...DT.67.KK|
00003190: B2 35 00 9C 35 88 1F 8D 38 32 30 30 00 AF 35 8B |.5..5...8200..5.|
000031A0: 1F 87 41 31 3A 8B 41 31 B2 30 A7 38 30 39 30 00 |..A1:.A1.0.8090.|
000031B0: D8 35 90 1F 87 42 31 3A 81 49 B2 41 30 A4 41 31 |.5...B1:.I.A0.A1|
000031C0: 3A 53 43 28 49 29 B2 42 31 AA 31 3A 82 3A 41 30 |:SC(I).B1.1:.:A0|
000031D0: B2 49 3A 89 38 30 37 35 00 FE 35 9A 1F 8B 44 54 |.I:.8075..5...DT|
000031E0: B2 31 B0 44 54 B2 36 35 A7 44 31 B2 31 3A 54 54 |.1.DT.65.D1.1:TT|
000031F0: B2 33 35 3A 53 32 B2 33 3A 44 49 B2 31 38 00 21 |.35:S2.3:DI.18.!|
00003200: 36 9F 1F 8B 44 54 B2 36 37 A7 44 31 B2 32 35 37 |6...DT.67.D1.257|
00003210: 3A 54 54 B2 37 37 3A 53 32 B2 34 3A 44 49 B2 33 |:TT.77:S2.4:DI.3|
00003220: 39 00 35 36 A0 1F 53 31 B2 53 32 AB 31 3A 53 33 |9.56..S1.S2.1:S3|
00003230: B2 53 32 AA 31 00 47 36 A4 1F A0 33 3A 8B 54 54 |.S2.1.G6...3:.TT|
00003240: B2 30 A7 38 30 36 35 00 70 36 AE 1F 81 49 B2 30 |.0.8065.p6...I.0|
00003250: A4 37 3A 50 28 49 29 B2 32 AE 49 3A 82 3A 81 49 |.7:P(I).2.I:.:.I|
00003260: B2 30 A4 33 3A 48 28 49 29 B2 31 36 AE 49 3A 82 |.0.3:H(I).16.I:.|
00003270: 00 90 36 B3 1F 48 24 28 30 29 B2 22 C4 C5 C3 C9 |..6..H$(0)."....|
00003280: CD C1 CC 22 3A 48 24 28 31 29 B2 22 C8 C5 D8 22 |...":H$(1)."..."|
00003290: 00 A8 36 B8 1F 58 24 28 30 29 B2 22 D1 22 3A 58 |..6..X$(0).".":X|
000032A0: 24 28 31 29 B2 22 D7 22 00 C9 36 CC 1F 43 4C 24 |$(1)."."..6..CL$|
000032B0: B2 22 22 3A 81 49 B2 31 A4 33 39 3A 43 4C 24 B2 |."":.I.1.39:CL$.|
000032C0: 43 4C 24 AA 22 20 22 3A 82 00 F7 36 D6 1F 53 31 |CL$." ":...6..S1|
000032D0: 24 B2 22 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E |$."^....^....^..|
000032E0: 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E 2E 5E 2E 2E 2E |..^....^....^...|
000032F0: 2E 5E 2E 2E 2E 2E 22 00 21 37 E0 1F 53 32 24 B2 |.^....".!7..S2$.|
00003300: 22 DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 |". . . |
00003310: DD 20 20 20 20 DD 20 20 20 20 DD 20 20 20 20 DD |. . . .|
00003320: 22 00 4E 37 EA 1F 53 33 24 B2 22 30 20 20 20 20 |".N7..S3$."0 |
00003330: 35 20 20 20 20 31 30 20 20 20 31 35 20 20 20 32 |5 10 15 2|
00003340: 30 20 20 20 32 35 20 20 20 33 30 22 3A 8E 00 79 |0 25 30":..y|
00003350: 37 08 20 81 49 B2 33 A4 4B 4B 3A A1 23 33 2C 41 |7. .I.3.KK:.#3,A|
00003360: 24 3A 82 3A 4D 48 24 B2 22 44 52 49 56 45 20 22 |$:.:MH$."DRIVE "|
00003370: AA 44 52 24 AA 22 12 20 22 00 AF 37 12 20 81 49 |.DR$.". "..7. .I|
00003380: B2 31 A4 31 36 3A A1 23 33 2C 41 24 3A 4D 48 24 |.1.16:.#3,A$:MH$|
00003390: B2 4D 48 24 AA 41 24 3A 82 3A A1 23 33 2C 41 24 |.MH$.A$:.:.#3,A$|
000033A0: 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 22 3A 22 00 |,A$:MH$.MH$.":".|
000033B0: E1 37 1C 20 81 49 B2 31 A4 32 3A A1 23 33 2C 41 |.7. .I.1.2:.#3,A|
000033C0: 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 3A 82 3A 4D |$:MH$.MH$.A$:.:M|
000033D0: 48 24 B2 4D 48 24 AA 22 3A 22 3A A1 23 33 2C 41 |H$.MH$.":":.#3,A|
000033E0: 24 00 0C 38 1D 20 81 49 B2 31 A4 32 3A A1 23 33 |$..8. .I.1.2:.#3|
000033F0: 2C 41 24 3A 4D 48 24 B2 4D 48 24 AA 41 24 3A 82 |,A$:MH$.MH$.A$:.|
00003400: 3A 4D 48 24 B2 4D 48 24 AA 22 92 22 00 2D 38 21 |:MH$.MH$.".".-8!|
00003410: 20 53 50 24 B2 22 22 3A 81 49 B2 31 A4 34 30 3A | SP$."":.I.1.40:|
00003420: 53 50 24 B2 53 50 24 AA 22 20 22 3A 82 00 41 38 |SP$.SP$." ":..A8|
00003430: 26 20 8D 32 36 31 3A 99 22 11 11 22 48 44 24 3A |& .261:.".."HD$:|
00003440: 8E 00 53 38 28 23 8F 20 44 45 43 49 4D 41 4C 5F |..S8(#. DECIMAL_|
00003450: 48 45 58 00 65 38 29 23 8F 22 A3 A3 A3 A3 A3 A3 |HEX.e8)#."......|
00003460: A3 A3 A3 A3 A3 00 79 38 2D 23 4D B2 C5 28 4D 24 |......y8-#M..(M$|
00003470: 29 3A 8B 4D B3 B1 30 A7 8E 00 95 38 32 23 4D 24 |):.M..0....82#M$|
00003480: B2 CA 28 4D 24 2C 32 29 3A 4D B2 30 3A 4C 4D B2 |..(M$,2):M.0:LM.|
00003490: C3 28 4D 24 29 00 A2 38 3C 23 81 43 4E B2 31 A4 |.(M$)..8<#.CN.1.|
000034A0: 4C 4D 00 CD 38 46 23 4D 4D 24 B2 CA 28 4D 24 2C |LM..8F#MM$..(M$,|
000034B0: 43 4E 2C 31 29 3A 8D 39 31 30 30 3A 4D B2 4D AA |CN,1):.9100:M.M.|
000034C0: 4D 4D AC 48 28 4C 4D AB 43 4E 29 3A 82 00 D3 38 |MM.H(LM.CN):...8|
000034D0: 50 23 8E 00 E7 38 8C 23 8B 4D 4D 24 B2 22 30 22 |P#...8.#.MM$."0"|
000034E0: A7 4D 4D B2 30 3A 8E 00 FE 38 96 23 4D 4D B2 C5 |.MM.0:...8.#MM..|
000034F0: 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 11 |(MM$):.MM..0....|
00003500: 39 A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 3A |9.#MM..(MM$).55:|
00003510: 8E 00 23 39 1C 25 8F 20 48 45 58 5F 44 45 43 49 |..#9.%. HEX_DECI|
00003520: 4D 41 4C 00 35 39 1D 25 8F 22 A3 A3 A3 A3 A3 A3 |MAL.59.%."......|
00003530: A3 A3 A3 A3 A3 00 45 39 20 25 43 39 B2 33 3A 4D |......E9 %C9.3:M|
00003540: 24 B2 22 24 22 00 67 39 21 25 53 4D B2 4D 3A 81 |$."$".g9!%SM.M:.|
00003550: 43 4E B2 43 39 A4 30 A9 AB 31 3A 43 4D 25 B2 53 |CN.C9.0..1:CM%.S|
00003560: 4D AD 48 28 43 4E 29 00 99 39 26 25 4D 24 B2 4D |M.H(CN)..9&%M$.M|
00003570: 24 AA C7 28 43 4D 25 AA 34 38 AB 37 AC 28 43 4D |$..(CM%.48.7.(CM|
00003580: 25 B1 39 29 29 3A 53 4D B2 53 4D AB 48 28 43 4E |%.9)):SM.SM.H(CN|
00003590: 29 AC 43 4D 25 3A 82 3A 8E 00 A9 39 F8 2A 8F 20 |).CM%:.:...9.*. |
000035A0: 44 49 52 45 43 54 4F 52 59 00 E5 39 02 2B 8D 35 |DIRECTORY..9.+.5|
000035B0: 38 30 32 30 3A 85 22 93 11 11 54 4F 20 50 52 49 |8020:."...TO PRI|
000035C0: 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 |NTER N...";IN$|
000035D0: 3A 50 44 B2 33 3A 8B 20 49 4E 24 B2 22 59 22 A7 |:PD.3:. IN$."Y".|
000035E0: 20 50 44 B2 34 00 2F 3A 0C 2B 50 54 B2 AB 28 50 | PD.4./:.+PT..(P|
000035F0: 44 B2 34 29 3A 50 46 24 B2 22 22 3A 53 46 24 B2 |D.4):PF$."":SF$.|
00003600: 43 52 24 3A 50 53 B2 30 3A 51 24 B2 C7 28 33 34 |CR$:PS.0:Q$..(34|
00003610: 29 3A 52 31 24 B2 22 12 22 3A 52 32 24 B2 22 92 |):R1$.".":R2$.".|
00003620: 22 3A 42 54 24 B2 22 22 3A 41 54 24 B2 22 22 00 |":BT$."":AT$."".|
00003630: 69 3A 11 2B 41 46 24 B2 22 22 3A 43 38 30 B2 30 |i:.+AF$."":C80.0|
00003640: 3A 4C 46 24 B2 C7 28 31 30 29 3A 53 35 24 B2 53 |:LF$..(10):S5$.S|
00003650: 30 24 3A 55 39 B2 31 3A 9F 34 2C 50 44 3A 8B 50 |0$:U9.1:.4,PD:.P|
00003660: 54 B2 30 89 31 31 30 37 30 00 99 3A 12 2B 85 22 |T.0.11070..:.+."|
00003670: 11 38 30 20 43 4F 4C 55 4D 4E 20 44 49 52 27 59 |.80 COLUMN DIR'Y|
00003680: 20 20 20 59 9D 9D 9D 22 3B 57 24 3A 8B 57 24 B2 | Y...";W$:.W$.|
00003690: 22 4E 22 89 31 31 30 33 30 00 D7 3A 13 2B 81 49 |"N".11030..:.+.I|
000036A0: B2 31 A4 31 38 3A 42 54 24 B2 42 54 24 AA 22 20 |.1.18:BT$.BT$." |
000036B0: 22 3A 82 3A 43 38 30 B2 31 3A 53 35 24 B2 53 34 |":.:C80.1:S5$.S4|
000036C0: 24 3A 53 46 24 B2 22 22 3A 41 46 24 B2 22 2D 22 |$:SF$."":AF$."-"|
000036D0: 3A 89 31 31 30 35 30 00 15 3B 16 2B 53 35 24 B2 |:.11050..;.+S5$.|
000036E0: C8 28 53 30 24 2C 33 38 29 3A 85 22 11 50 52 49 |.(S0$,38):.".PRI|
000036F0: 4E 54 20 12 52 49 47 48 54 92 20 48 4F 57 20 4D |NT .RIGHT. HOW M|
00003700: 41 4E 59 20 53 50 41 43 45 53 20 20 20 30 9D 9D |ANY SPACES 0..|
00003710: 9D 22 3B 50 53 00 3B 3B 20 2B 8B 50 53 A7 81 49 |.";PS.;; +.PS..I|
00003720: B2 31 A4 50 53 3A 50 46 24 B2 50 46 24 AA 22 20 |.1.PS:PF$.PF$." |
00003730: 22 3A 82 3A 42 54 24 B2 50 46 24 00 70 3B 2A 2B |":.:BT$.PF$.p;*+|
00003740: 85 22 11 44 4F 45 53 20 54 48 45 20 50 52 49 4E |.".DOES THE PRIN|
00003750: 54 45 52 20 4E 45 45 44 20 41 20 4C 49 4E 45 20 |TER NEED A LINE |
00003760: 46 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 39 24 |FEED N...";U9$|
00003770: 00 9C 3B 34 2B 8B 55 39 24 B2 22 59 22 A7 41 54 |..;4+.U9$."Y".AT|
00003780: 24 B2 41 54 24 AA 4C 46 24 3A 8B 43 38 30 B2 30 |$.AT$.LF$:.C80.0|
00003790: A7 53 46 24 B2 53 46 24 AA 4C 46 24 00 DA 3B 3E |.SF$.SF$.LF$..;>|
000037A0: 2B 99 22 93 22 3A 50 54 24 B2 22 20 2A 2A 2A 2A |+.".":PT$." ****|
000037B0: 2A 2A 2A 22 AA CA 28 4D 48 24 2C 31 30 2C 32 34 |***"..(MH$,10,24|
000037C0: 29 AA 22 20 2A 2A 2A 2A 2A 2A 2A 22 3A 8B 50 54 |)." *******":.PT|
000037D0: B2 30 A7 50 54 24 B2 48 44 24 00 18 3C 48 2B 98 |.0.PT$.HD$..<H+.|
000037E0: 34 2C 42 54 24 50 54 24 41 54 24 3A 99 22 48 49 |4,BT$PT$AT$:."HI|
000037F0: 54 20 41 20 4B 45 59 20 54 4F 20 53 54 4F 50 11 |T A KEY TO STOP.|
00003800: 22 56 43 24 3A 41 35 B2 33 32 3A 41 36 B2 31 32 |"VC$:A5.32:A6.12|
00003810: 37 3A 41 37 B2 31 36 30 00 4A 3C 52 2B A0 33 3A |7:A7.160.J<R+.3:|
00003820: 9F 33 2C 44 56 2C 33 2C 22 24 22 AA 44 52 24 3A |.3,DV,3,"$".DR$:|
00003830: 4A 24 B2 22 20 22 3A 8B 20 50 54 20 A7 52 31 24 |J$." ":. PT .R1$|
00003840: B2 22 22 3A 52 32 24 B2 22 22 00 87 3C 5C 2B 98 |."":R2$.""..<\+.|
00003850: 34 2C 42 54 24 52 31 24 22 20 42 4C 4B 53 20 20 |4,BT$R1$" BLKS |
00003860: 20 20 20 20 4E 41 4D 45 20 20 20 20 20 20 20 54 | NAME T|
00003870: 59 50 45 20 28 54 2C 53 29 20 53 54 41 52 54 22 |YPE (T,S) START"|
00003880: 54 43 24 3B 41 54 24 00 CC 3C 66 2B 54 59 24 28 |TC$;AT$..<f+TY$(|
00003890: 30 29 B2 22 44 45 4C 22 3A 54 59 24 28 31 29 B2 |0)."DEL":TY$(1).|
000038A0: 22 53 45 51 22 3A 54 59 24 28 32 29 B2 22 50 52 |"SEQ":TY$(2)."PR|
000038B0: 47 22 3A 54 59 24 28 33 29 B2 22 55 53 52 22 3A |G":TY$(3)."USR":|
000038C0: 54 59 24 28 34 29 B2 22 52 45 4C 22 00 DF 3C 6B |TY$(4)."REL"..<k|
000038D0: 2B 8B 43 38 30 B2 30 A7 98 34 2C 42 54 24 3B 00 |+.C80.0..4,BT$;.|
000038E0: FF 3C 70 2B 98 34 2C 53 35 24 41 54 24 3A 81 49 |.<p+.4,S5$AT$:.I|
000038F0: B2 30 A4 32 35 33 3A A1 23 33 2C 41 24 3A 82 00 |.0.253:.#3,A$:..|
00003900: 42 3D 7A 2B 53 49 B2 30 3A 81 50 B2 31 A4 38 3A |B=z+SI.0:.P.1.8:|
00003910: A1 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA 43 5A |.#3,A$:A..(A$.CZ|
00003920: 24 29 AB 31 32 38 3A 54 59 B2 AB 41 AC 28 41 B1 |$).128:TY..A.(A.|
00003930: 30 AF 41 B3 35 29 3A 41 33 24 B2 54 59 24 28 54 |0.A.5):A3$.TY$(T|
00003940: 59 29 00 72 3D 84 2B A1 23 33 2C 41 24 2C 42 24 |Y).r=.+.#3,A$,B$|
00003950: 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 B2 C6 |:A..(A$.CZ$):B..|
00003960: 28 42 24 AA 43 5A 24 29 3A 8B 53 54 A7 31 31 33 |(B$.CZ$):.ST.113|
00003970: 30 30 00 A9 3D 8E 2B 41 34 24 B2 22 28 22 AA C9 |00..=.+A4$."("..|
00003980: 28 C4 28 41 29 2C 32 29 AA 22 2C 22 AA C9 28 C4 |(.(A),2).","..(.|
00003990: 28 42 29 2C 32 29 AA 22 29 22 3A 41 30 24 B2 22 |(B),2).")":A0$."|
000039A0: 22 3A 81 49 B2 31 A4 31 36 00 DE 3D 98 2B A1 23 |":.I.1.16..=.+.#|
000039B0: 33 2C 42 24 3A 41 30 24 B2 41 30 24 AA 42 24 3A |3,B$:A0$.A0$.B$:|
000039C0: 82 3A 41 32 24 B2 22 22 3A 81 49 B2 31 A4 31 36 |.:A2$."":.I.1.16|
000039D0: 3A 42 24 B2 CA 28 41 30 24 2C 49 2C 31 29 00 08 |:B$..(A0$,I,1)..|
000039E0: 3E A2 2B 41 39 B2 C6 28 42 24 AA 43 5A 24 29 3A |>.+A9..(B$.CZ$):|
000039F0: 8B 41 39 B2 41 37 A7 42 24 B2 22 22 3A 49 B2 31 |.A9.A7.B$."":I.1|
00003A00: 36 3A 89 31 31 31 39 30 00 28 3E AC 2B 8B 41 39 |6:.11190.(>.+.A9|
00003A10: B3 41 35 B0 28 41 39 B1 41 36 AF 41 39 B3 41 37 |.A5.(A9.A6.A9.A7|
00003A20: 29 A7 42 24 B2 22 3F 22 00 5D 3E B6 2B 41 32 24 |).B$."?".]>.+A2$|
00003A30: B2 41 32 24 AA 42 24 3A 82 3A 8D 31 31 33 32 30 |.A2$.B$:.:.11320|
00003A40: 3A 8B 54 59 B3 B1 32 A7 41 35 24 B2 22 20 20 20 |:.TY..2.A5$." |
00003A50: 20 22 AA 41 46 24 3A 89 31 31 32 32 30 00 9C 3E | ".AF$:.11220..>|
00003A60: C0 2B 9F 32 2C 44 56 2C 32 2C 44 52 24 AA 22 3A |.+.2,DV,2,DR$.":|
00003A70: 22 AA 41 30 24 AA 22 2C 22 AA 41 33 24 AA 22 2C |".A0$.",".A3$.",|
00003A80: 52 22 3A A1 23 32 2C 41 4C 24 2C 41 48 24 3A 58 |R":.#2,AL$,AH$:X|
00003A90: 24 B2 41 4C 24 3A 8D 31 31 34 34 30 00 CF 3E CA |$.AL$:.11440..>.|
00003AA0: 2B 41 4C 24 B2 58 24 3A 58 24 B2 41 48 24 3A 8D |+AL$.X$:X$.AH$:.|
00003AB0: 31 31 34 34 30 3A 41 48 24 B2 58 24 3A 41 35 24 |11440:AH$.X$:A5$|
00003AC0: B2 41 48 24 AA 41 4C 24 AA 41 46 24 3A A0 32 00 |.AH$.AL$.AF$:.2.|
00003AD0: F2 3E D4 2B A1 23 33 2C 41 24 2C 41 24 2C 41 24 |.>.+.#3,A$,A$,A$|
00003AE0: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |,A$,A$,A$,A$,A$,|
00003AF0: 41 24 00 32 3F DE 2B A1 23 33 2C 41 24 2C 42 24 |A$.2?.+.#3,A$,B$|
00003B00: 3A 41 B2 C6 28 41 24 AA 43 5A 24 29 3A 42 B2 C6 |:A..(A$.CZ$):B..|
00003B10: 28 42 24 AA 43 5A 24 29 3A 43 B2 41 AA 32 35 36 |(B$.CZ$):C.A.256|
00003B20: AC 42 3A 4B 39 B2 53 54 3A 8B 43 B2 30 A7 50 B2 |.B:K9.ST:.C.0.P.|
00003B30: 31 30 00 4A 3F E8 2B 41 31 24 B2 C9 28 22 20 20 |10.J?.+A1$..(" |
00003B40: 20 22 AA C4 28 43 29 2C 33 29 00 5D 3F F2 2B 8B | "..(C),3).]?.+.|
00003B50: 50 B3 38 A7 A1 23 33 2C 41 24 2C 41 24 00 94 3F |P.8..#3,A$,A$..?|
00003B60: FC 2B 8B 20 50 54 20 AF 20 54 59 B2 30 20 A7 20 |.+. PT . TY.0 . |
00003B70: 99 20 50 46 24 41 31 24 4A 24 41 32 24 41 33 24 |. PF$A1$J$A2$A3$|
00003B80: 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3A 89 31 |J$A4$J$A5$SF$:.1|
00003B90: 31 32 39 30 00 BE 3F 06 2C 8B 20 43 20 A7 20 98 |1290..?.,. C . .|
00003BA0: 34 2C 50 46 24 41 31 24 4A 24 41 32 24 41 33 24 |4,PF$A1$J$A2$A3$|
00003BB0: 4A 24 41 34 24 4A 24 41 35 24 53 46 24 3B 00 D3 |J$A4$J$A5$SF$;..|
00003BC0: 3F 10 2C A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 50 |?.,.A$:.A$.."".P|
00003BD0: B2 31 30 00 EF 3F 15 2C 8B 43 38 30 A7 55 39 B2 |.10..?.,.C80.U9.|
00003BE0: 31 AB 55 39 3A 8B 55 39 A7 98 34 2C 41 54 24 00 |1.U9:.U9..4,AT$.|
00003BF0: 06 40 1A 2C 82 3A 8B 50 B3 31 30 AF 4B 39 B2 30 |.@.,.:.P.10.K9.0|
00003C00: A7 31 31 31 33 30 00 21 40 24 2C A0 33 3A 8D 31 |.11130.!@$,.3:.1|
00003C10: 31 33 33 30 3A 98 34 2C 50 46 24 53 35 24 53 46 |1330:.4,PF$S5$SF|
00003C20: 24 00 36 40 2E 2C A0 34 3A 8D 35 38 30 31 30 3A |$.6@.,.4:.58010:|
00003C30: 8D 33 30 30 3A 8E 00 5C 40 38 2C 41 32 24 B2 52 |.300:..\@8,A2$.R|
00003C40: 31 24 AA 51 24 AA C8 28 41 32 24 AA 51 24 AA 53 |1$.Q$..(A2$.Q$.S|
00003C50: 50 24 2C 31 37 29 AA 52 32 24 3A 8E 00 6E 40 42 |P$,17).R2$:..n@B|
00003C60: 2C 8F 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 86 |,. BLOCKS FREE..|
00003C70: 40 4C 2C 9F 31 2C 44 56 2C 30 2C 22 24 22 AA 44 |@L,.1,DV,0,"$".D|
00003C80: 52 24 AA 22 3A 22 00 98 40 56 2C 8D 31 31 33 38 |R$.":"..@V,.1138|
00003C90: 30 3A 98 34 2C 4C 46 24 00 C0 40 60 2C 4C B2 58 |0:.4,LF$..@`,L.X|
00003CA0: AA 59 AC 32 35 36 3A 98 34 2C 50 46 24 4C 3B 22 |.Y.256:.4,PF$L;"|
00003CB0: 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 41 54 24 | BLOCKS FREE"AT$|
00003CC0: 00 C9 40 6A 2C A0 31 3A 8E 00 E3 40 74 2C A1 23 |..@j,.1:...@t,.#|
00003CD0: 31 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C 58 24 |1,X$,X$,X$,X$,X$|
00003CE0: 2C 58 24 00 FC 40 7E 2C A1 23 31 2C 58 24 3A 8B |,X$..@~,.#1,X$:.|
00003CF0: 58 24 B3 B1 22 22 89 31 31 33 39 30 00 10 41 88 |X$.."".11390..A.|
00003D00: 2C A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 59 24 |,.#1,X$,X$,X$,Y$|
00003D10: 00 27 41 92 2C 58 B2 C3 28 58 24 29 3A 8B 58 A7 |.'A.,X..(X$):.X.|
00003D20: 58 B2 C6 28 58 24 29 00 3E 41 9C 2C 59 B2 C3 28 |X..(X$).>A.,Y..(|
00003D30: 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 00 44 |Y$):.Y.Y..(Y$).D|
00003D40: 41 A6 2C 8E 00 89 41 B0 2C 58 B2 C6 28 58 24 AA |A.,...A.,X..(X$.|
00003D50: 43 5A 24 29 3A 58 48 25 B2 58 AD 31 36 3A 58 4C |CZ$):XH%.X.16:XL|
00003D60: B2 58 AB 31 36 AC 58 48 25 3A 58 24 B2 CA 28 48 |.X.16.XH%:X$..(H|
00003D70: 58 24 2C 58 48 25 AA 31 2C 31 29 AA CA 28 48 58 |X$,XH%.1,1)..(HX|
00003D80: 24 2C 58 4C AA 31 2C 31 29 00 8F 41 BA 2C 8E 00 |$,XL.1,1)..A.,..|
00003D90: A7 41 E0 2E 8F 20 55 4E 53 43 52 41 54 43 48 20 |.A... UNSCRATCH |
00003DA0: 52 4F 55 54 49 4E 45 00 BF 41 E1 2E 8F 22 B8 B8 |ROUTINE..A..."..|
00003DB0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00003DC0: CA 41 EA 2E 8D 35 38 30 32 30 00 04 42 F4 2E 99 |.A...58020..B...|
00003DD0: 22 93 11 11 54 48 45 20 53 43 52 41 54 43 48 45 |"...THE SCRATCHE|
00003DE0: 44 20 46 49 4C 45 20 4E 41 4D 45 53 20 57 49 4C |D FILE NAMES WIL|
00003DF0: 4C 22 3A 99 22 11 42 45 20 44 49 53 50 4C 41 59 |L":.".BE DISPLAY|
00003E00: 45 44 2E 22 00 3F 42 08 2F 99 22 11 59 4F 55 20 |ED.".?B./.".YOU |
00003E10: 4D 41 59 20 44 45 43 49 44 45 20 57 48 49 43 48 |MAY DECIDE WHICH|
00003E20: 20 46 49 4C 45 20 59 4F 55 22 3A 99 22 11 57 49 | FILE YOU":.".WI|
00003E30: 53 48 20 54 4F 20 52 45 43 4F 56 45 52 2E 22 00 |SH TO RECOVER.".|
00003E40: 67 42 1C 2F 99 22 11 11 12 52 45 54 55 52 4E 92 |gB./."...RETURN.|
00003E50: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 33 | TO CONTINUE":.3|
00003E60: 31 30 3A 99 22 93 22 00 7C 42 30 2F A0 33 3A A0 |10:.".".|B0/.3:.|
00003E70: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 9D 42 3A |15:.15,DV,15..B:|
00003E80: 2F 54 B2 44 49 3A 53 B2 31 3A 9F 33 2C 44 56 2C |/T.DI:S.1:.3,DV,|
00003E90: 33 2C 22 23 30 22 3A 8D 36 33 39 30 30 00 B4 42 |3,"#0":.63900..B|
00003EA0: 3F 2F 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 |?/.15,"B-R";3;DR|
00003EB0: 3B 54 3B 53 00 C8 42 40 2F 99 22 93 4C 4F 4F 4B |;T;S..B@/.".LOOK|
00003EC0: 49 4E 47 20 41 54 3A 22 00 EE 42 41 2F 99 22 11 |ING AT:"..BA/.".|
00003ED0: 11 54 52 41 43 4B 20 20 20 9D 9D 9D 22 54 22 20 |.TRACK ..."T" |
00003EE0: 53 45 43 54 4F 52 20 20 20 9D 9D 9D 22 53 00 10 |SECTOR ..."S..|
00003EF0: 43 44 2F 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C |CD/.J.0.255:.15,|
00003F00: 22 42 2D 50 22 3B 33 3B 4A 3A A1 23 33 2C 41 24 |"B-P";3;J:.#3,A$|
00003F10: 00 25 43 4E 2F 43 28 4A 29 B2 C6 28 41 24 AA 43 |.%CN/C(J)..(A$.C|
00003F20: 5A 24 29 3A 82 00 4D 43 58 2F 81 44 B2 32 A4 32 |Z$):..MCX/.D.2.2|
00003F30: 35 35 A9 33 32 3A 8B 43 28 44 29 B3 B1 30 B0 43 |55.32:.C(D)..0.C|
00003F40: 28 44 AA 31 29 B2 30 A7 31 32 32 30 30 00 7E 43 |(D.1).0.12200.~C|
00003F50: 62 2F 99 53 44 24 43 4C 24 53 44 24 22 57 41 4E |b/.SD$CL$SD$"WAN|
00003F60: 54 20 54 4F 20 55 4E 53 43 52 41 54 43 48 20 12 |T TO UNSCRATCH .|
00003F70: 22 3B 3A 81 50 39 B2 31 A4 32 30 30 3A 82 00 A9 |";:.P9.1.200:...|
00003F80: 43 6C 2F A1 41 24 3A 81 4B B2 44 AA 33 A4 44 AA |Cl/.A$:.K.D.3.D.|
00003F90: 31 38 3A 99 C7 28 43 28 4B 29 29 3B 3A 82 3A 99 |18:..(C(K));:.:.|
00003FA0: 22 92 3F 22 3A 8D 33 31 30 00 BC 43 76 2F 8B 49 |".?":.310..Cv/.I|
00003FB0: 4E 24 B2 22 59 22 A7 31 32 33 30 30 00 DD 43 A8 |N$."Y".12300..C.|
00003FC0: 2F 82 44 3A 54 B2 43 28 30 29 3A 53 B2 43 28 31 |/.D:T.C(0):S.C(1|
00003FD0: 29 3A 8B 54 B2 44 49 A7 31 32 30 39 35 00 1A 44 |):.T.DI.12095..D|
00003FE0: B2 2F 99 22 93 46 49 4E 49 53 48 45 44 20 4C 4F |./.".FINISHED LO|
00003FF0: 4F 4B 49 4E 47 2E 2E 22 3A 99 22 11 11 12 52 45 |OKING..":."...RE|
00004000: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00004010: 45 2E 22 3A 8D 33 31 30 3A 8E 00 58 44 0C 30 54 |E.":.310:..XD.0T|
00004020: 30 B2 54 3A 53 30 B2 53 3A 54 B2 43 28 44 AA 31 |0.T:S0.S:T.C(D.1|
00004030: 29 3A 53 B2 43 28 44 AA 32 29 3A 42 30 B2 43 28 |):S.C(D.2):B0.C(|
00004040: 44 AA 32 38 29 AA 43 28 44 AA 32 39 29 AC 32 35 |D.28).C(D.29).25|
00004050: 36 3A 8D 35 38 30 31 30 00 86 44 0D 30 99 22 93 |6:.58010..D.0.".|
00004060: 11 11 12 C4 49 52 45 43 54 4F 52 59 20 C2 4C 4F |....IRECTORY .LO|
00004070: 43 4B 20 C3 4F 55 4E 54 3D 22 42 30 3A 4E 39 B2 |CK .OUNT="B0:N9.|
00004080: 31 3A 99 53 30 24 00 C0 44 0E 30 A0 33 3A A0 31 |1:.S0$..D.0.3:.1|
00004090: 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C 44 |5:.15,DV,15:.3,D|
000040A0: 56 2C 33 2C 22 23 22 3A 8D 36 33 39 30 30 3A A1 |V,3,"#":.63900:.|
000040B0: 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 |#3,BN$:BN..(BN$)|
000040C0: 00 DC 44 0F 30 54 28 4E 39 29 B2 54 3A 53 28 4E |..D.0T(N9).T:S(N|
000040D0: 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 00 F3 44 11 |9).S:N9.N9.1..D.|
000040E0: 30 98 31 35 2C 22 42 2D 52 22 3B 33 3B 44 52 3B |0.15,"B-R";3;DR;|
000040F0: 54 3B 53 00 05 45 12 30 98 31 35 2C 22 42 2D 50 |T;S..E.0.15,"B-P|
00004100: 22 3B 33 3B 30 00 1E 45 13 30 A1 23 33 2C 5A 24 |";3;0..E.0.#3,Z$|
00004110: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 00 3D |:.Z$."".Z$.CZ$.=|
00004120: 45 14 30 54 28 4E 39 29 B2 C6 28 5A 24 29 3A 8B |E.0T(N9)..(Z$):.|
00004130: 54 28 4E 39 29 B2 30 A7 31 32 33 31 34 00 56 45 |T(N9).0.12314.VE|
00004140: 15 30 A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 |.0.#3,Z$:.Z$."".|
00004150: 5A 24 B2 43 5A 24 00 66 45 16 30 53 28 4E 39 29 |Z$.CZ$.fE.0S(N9)|
00004160: B2 C6 28 5A 24 29 00 84 45 17 30 54 24 B2 CA 28 |..(Z$)..E.0T$..(|
00004170: C4 28 54 29 2C 32 29 3A 53 24 B2 CA 28 C4 28 53 |.(T),2):S$..(.(S|
00004180: 29 2C 32 29 00 98 45 18 30 99 22 28 22 54 24 22 |),2)..E.0."("T$"|
00004190: 2C 22 53 24 22 29 22 3B 00 BB 45 19 30 54 B2 54 |,"S$")";..E.0T.T|
000041A0: 28 4E 39 29 3A 53 B2 53 28 4E 39 29 3A 4E 39 B2 |(N9):S.S(N9):N9.|
000041B0: 4E 39 AA 31 3A 89 31 32 33 30 35 00 C9 45 1A 30 |N9.1:.12305..E.0|
000041C0: 4E 39 B2 4E 39 AB 31 3A 99 00 DF 45 1B 30 99 22 |N9.N9.1:...E.0."|
000041D0: 11 12 22 4E 39 22 20 42 4C 4F 43 4B 53 11 22 00 |.."N9" BLOCKS.".|
000041E0: 15 46 3E 30 8B 4E 39 B3 B1 42 30 A7 99 22 11 11 |.F>0.N9..B0.."..|
000041F0: 2A 2A 12 49 4E 43 4F 52 52 45 43 54 20 42 4C 4F |**.INCORRECT BLO|
00004200: 43 4B 20 43 4F 55 4E 54 92 2A 2A 11 11 22 3A 8D |CK COUNT.**..":.|
00004210: 33 30 30 3A 8E 00 30 46 48 30 99 22 11 CC 4F 4F |300:..0FH0."..OO|
00004220: 4B 53 20 47 4F 4F 44 20 53 4F 20 46 41 52 2E 22 |KS GOOD SO FAR."|
00004230: 00 5B 46 52 30 99 22 11 D3 48 41 4C 4C 20 57 45 |.[FR0."..HALL WE|
00004240: 20 50 52 4F 43 45 45 44 3F 22 3A 8D 33 31 30 3A | PROCEED?":.310:|
00004250: 8B 49 4E 24 B3 B1 22 59 22 A7 8E 00 87 46 5C 30 |.IN$.."Y"....F\0|
00004260: 99 22 93 11 11 D7 45 27 4C 4C 20 43 48 45 43 4B |."....E'LL CHECK|
00004270: 20 54 48 41 54 20 54 48 45 20 41 42 4F 56 45 20 | THAT THE ABOVE |
00004280: 42 4C 4F 43 4B 53 22 00 B0 46 66 30 99 22 11 41 |BLOCKS"..Ff0.".A|
00004290: 52 45 20 C6 D2 C5 C5 20 42 59 20 4C 4F 4F 4B 49 |RE .... BY LOOKI|
000042A0: 4E 47 20 41 54 20 54 48 45 20 C2 C1 CD 2E 11 22 |NG AT THE ....."|
000042B0: 00 DF 46 70 30 99 22 11 D4 48 45 20 54 52 41 43 |..Fp0."..HE TRAC|
000042C0: 4B 2F 53 45 43 54 4F 52 53 20 46 4F 52 20 54 48 |K/SECTORS FOR TH|
000042D0: 45 20 46 49 4C 45 20 57 49 4C 4C 20 42 45 22 00 |E FILE WILL BE".|
000042E0: 09 47 7A 30 99 22 11 44 49 53 50 4C 41 59 45 44 |.Gz0.".DISPLAYED|
000042F0: 2E 20 C9 46 20 41 20 42 4C 4F 43 4B 20 49 53 20 |. .F A BLOCK IS |
00004300: 4F 43 43 55 50 49 45 44 22 00 33 47 84 30 99 22 |OCCUPIED".3G.0."|
00004310: 11 54 48 45 20 D5 CE D3 C3 D2 C1 D4 C3 C8 20 57 |.THE ......... W|
00004320: 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 21 22 3A 8D |ILL NOT WORK!":.|
00004330: 33 30 30 00 65 47 85 30 A0 31 35 3A 9F 31 35 2C |300.eG.0.15:.15,|
00004340: 44 56 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 |DV,15,"I".DR$:.6|
00004350: 33 39 30 30 3A 99 22 93 22 3A 8D 35 38 30 32 30 |3900:.".":.58020|
00004360: 3A 4B 31 B2 31 00 80 47 86 30 9F 32 2C 44 56 2C |:K1.1..G.0.2,DV,|
00004370: 32 2C 22 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 |2,"$".DR$:.63900|
00004380: 00 9A 47 87 30 96 20 A5 42 28 49 29 B2 28 5A AF |..G.0. .B(I).(Z.|
00004390: 50 28 49 29 29 AD 50 28 49 29 00 B6 47 88 30 46 |P(I)).P(I)..G.0F|
000043A0: 46 B2 44 31 AA 28 54 28 4B 31 29 AB 31 29 AC 53 |F.D1.(T(K1).1).S|
000043B0: 33 3A 50 50 B2 30 00 CC 47 89 30 81 4B 32 B2 30 |3:PP.0..G.0.K2.0|
000043C0: A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 E9 47 98 |.FF:.#2,A$:...G.|
000043D0: 30 54 B2 54 28 4B 31 29 3A 99 22 93 22 3A 8D 36 |0T.T(K1):.".":.6|
000043E0: 34 30 30 3A 8D 36 35 38 30 00 0D 48 A2 30 99 53 |400:.6580..H.0.S|
000043F0: 44 24 22 43 48 45 43 4B 20 54 48 41 54 20 54 48 |D$"CHECK THAT TH|
00004400: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 22 00 28 48 |E FOLLOWING ".(H|
00004410: A7 30 99 22 11 53 45 43 54 4F 52 53 20 41 52 45 |.0.".SECTORS ARE|
00004420: 20 46 52 45 45 3D D7 22 00 5C 48 AC 30 81 4B 32 | FREE=.".\H.0.K2|
00004430: B2 31 A4 4E 39 3A 8B 54 28 4B 32 29 B2 54 A7 99 |.1.N9:.T(K2).T..|
00004440: 52 24 28 50 50 29 CA 28 C4 28 53 28 4B 32 29 29 |R$(PP).(.(S(K2))|
00004450: 2C 32 29 52 24 28 31 AB 50 50 29 3B 00 6C 48 B1 |,2)R$(1.PP);.lH.|
00004460: 30 50 50 B2 31 AB 50 50 3A 82 3A 99 00 7D 48 B6 |0PP.1.PP:.:..}H.|
00004470: 30 99 22 11 4F 4B 3F 22 3A 8D 33 31 30 00 A8 48 |0.".OK?":.310..H|
00004480: BB 30 8B 49 4E 24 B3 B1 22 59 22 A7 99 22 93 53 |.0.IN$.."Y"..".S|
00004490: 4F 52 52 59 2E 2E 22 3A 8D 35 38 30 31 30 3A 8D |ORRY..":.58010:.|
000044A0: 33 30 30 3A A0 32 3A 8E 00 BC 48 C0 30 A0 32 3A |300:.2:...H.0.2:|
000044B0: 8B 4B 31 B1 4E 39 A7 A0 31 35 3A 8E 00 D7 48 CA |.K1.N9..15:...H.|
000044C0: 30 4B 31 B2 4B 31 AA 31 3A 8B 54 28 4B 31 29 B2 |0K1.K1.1:.T(K1).|
000044D0: 30 A7 31 32 36 30 30 00 EA 48 D4 30 8B 54 28 4B |0.12600..H.0.T(K|
000044E0: 31 29 B2 54 A7 31 32 34 39 30 00 F5 48 D9 30 89 |1).T.12490..H.0.|
000044F0: 31 32 34 32 32 00 05 49 38 31 99 22 93 22 3A 8D |12422..I81.".":.|
00004500: 35 38 30 31 30 00 35 49 42 31 99 22 CE 4F 57 20 |58010.5IB1.".OW |
00004510: 4D 4F 44 49 46 59 20 54 48 45 20 12 4D 41 47 49 |MODIFY THE .MAGI|
00004520: 43 20 42 59 54 45 92 20 4F 4E 20 44 49 52 45 43 |C BYTE. ON DIREC|
00004530: 54 4F 52 59 22 00 50 49 4C 31 99 22 11 D4 52 41 |TORY".PIL1."..RA|
00004540: 43 4B 22 54 30 22 20 D3 45 43 54 4F 52 22 53 30 |CK"T0" .ECTOR"S0|
00004550: 00 81 49 56 31 99 22 11 D4 48 45 4E 20 D7 52 49 |..IV1."..HEN .RI|
00004560: 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 42 41 43 |TE THE BLOCK BAC|
00004570: 4B 20 54 4F 20 28 22 54 30 22 2C 22 53 30 22 29 |K TO ("T0","S0")|
00004580: 22 00 A6 49 60 31 99 22 11 C6 49 4E 41 4C 4C 59 |"..I`1."..INALLY|
00004590: 20 12 D6 41 4C 49 44 41 54 45 92 20 54 48 45 20 | ..ALIDATE. THE |
000045A0: 44 49 53 4B 21 22 00 B1 49 6A 31 8D 33 30 30 3A |DISK!"..Ij1.300:|
000045B0: 8E 00 C7 49 50 C3 8F 20 42 41 43 4B 55 50 20 42 |...IP.. BACKUP B|
000045C0: 59 20 42 4C 4F 43 4B 00 DD 49 51 C3 8F 22 B8 B8 |Y BLOCK..IQ.."..|
000045D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 0E 4A |...............J|
000045E0: 52 C3 97 35 33 32 38 30 2C 46 35 3A 99 22 93 22 |R..53280,F5:."."|
000045F0: 3A 58 B2 33 30 3A 58 24 B2 22 C2 C1 C3 CB D5 D0 |:X.30:X$."......|
00004600: 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 00 30 |":Y$."":.54020.0|
00004610: 4A 53 C3 99 22 11 11 C6 CF D2 20 D4 D7 CF 20 C4 |JS.."..... ... .|
00004620: D2 C9 D6 C5 D3 20 CF CE CC D9 22 3A 8D 33 30 30 |..... ....":.300|
00004630: 00 5C 4A 55 C3 99 22 93 28 48 49 54 20 D2 C5 D4 |.\JU..".(HIT ...|
00004640: D5 D2 CE 20 54 4F 20 41 42 4F 52 54 29 22 3A 46 |... TO ABORT)":F|
00004650: 46 24 B2 22 22 3A 8D 35 34 30 32 30 00 94 4A 5A |F$."":.54020..JZ|
00004660: C3 85 22 11 11 11 12 46 52 4F 4D 92 20 44 52 49 |.."....FROM. DRI|
00004670: 56 45 20 20 20 A0 9D 9D 9D 22 3B 46 44 24 3A 46 |VE ....";FD$:F|
00004680: 44 B2 C5 28 46 44 24 29 3A 8B 20 46 44 24 B2 22 |D..(FD$):. FD$."|
00004690: A0 22 A7 8E 00 AD 4A 5F C3 85 22 11 44 45 56 49 |."....J_..".DEVI|
000046A0: 43 45 20 20 20 38 9D 9D 9D 22 3B 44 41 00 E4 4A |CE 8...";DA..J|
000046B0: 64 C3 85 22 11 11 12 54 4F 92 20 44 52 49 56 45 |d.."...TO. DRIVE|
000046C0: 22 3B 54 44 24 3A 54 44 B2 C5 28 54 44 24 29 3A |";TD$:TD..(TD$):|
000046D0: 85 22 11 44 45 56 49 43 45 20 20 20 38 9D 9D 9D |.".DEVICE 8...|
000046E0: 22 3B 44 42 00 0C 4B 69 C3 A0 33 3A A0 35 3A A0 |";DB..Ki..3:.5:.|
000046F0: 31 34 3A A0 31 35 3A 9F 31 35 2C 44 41 2C 31 35 |14:.15:.15,DA,15|
00004700: 3A 98 31 35 2C 22 49 22 AA 46 44 24 00 44 4B 6E |:.15,"I".FD$.DKn|
00004710: C3 9F 33 2C 44 41 2C 33 2C 22 23 22 3A 8D 36 33 |..3,DA,3,"#":.63|
00004720: 39 30 30 3A 9F 31 34 2C 44 42 2C 31 35 3A 50 B2 |900:.14,DB,15:P.|
00004730: 31 3A 8B 44 42 B2 44 41 A7 42 42 B2 33 3A 89 35 |1:.DB.DA.BB.3:.5|
00004740: 30 30 34 30 00 59 4B 73 C3 42 42 B2 35 3A 9F 35 |0040.YKs.BB.5:.5|
00004750: 2C 44 42 2C 35 2C 22 23 22 00 99 4B 78 C3 85 22 |,DB,5,"#"..Kx.."|
00004760: 11 11 53 54 41 52 54 20 41 54 20 54 52 41 43 4B |..START AT TRACK|
00004770: 20 20 20 31 9D 9D 9D 22 3B 54 38 3A 85 22 11 11 | 1...";T8:."..|
00004780: 45 4E 44 20 41 54 20 54 52 41 43 4B 20 20 20 33 |END AT TRACK 3|
00004790: 35 9D 9D 9D 9D 22 3B 54 39 00 DA 4B 7D C3 85 22 |5....";T9..K}.."|
000047A0: 11 11 45 52 52 4F 52 53 20 54 4F 20 50 52 49 4E |..ERRORS TO PRIN|
000047B0: 54 45 52 20 20 20 4E 9D 9D 9D 22 3B 56 56 24 3A |TER N...";VV$:|
000047C0: 56 56 B2 30 3A 8B 20 56 56 24 B2 22 59 22 20 A7 |VV.0:. VV$."Y" .|
000047D0: 20 56 56 B2 31 3A 9F 34 2C 34 00 EA 4B 82 C3 8B | VV.1:.4,4..K...|
000047E0: 56 56 B2 30 A7 35 30 30 35 33 00 1F 4C 83 C3 85 |VV.0.50053..L...|
000047F0: 22 11 44 4F 45 53 20 54 48 45 20 50 52 49 4E 54 |".DOES THE PRINT|
00004800: 45 52 20 4E 45 45 44 20 41 20 4C 49 4E 45 20 46 |ER NEED A LINE F|
00004810: 45 45 44 20 20 20 4E 9D 9D 9D 22 3B 55 39 24 00 |EED N...";U9$.|
00004820: 36 4C 84 C3 8B 55 39 24 B2 22 59 22 A7 46 46 24 |6L...U9$."Y".FF$|
00004830: B2 C7 28 31 30 29 00 57 4C 85 C3 99 22 93 2E 2E |..(10).WL..."...|
00004840: 47 4F 20 46 4F 52 20 41 20 43 4F 46 46 45 45 2E |GO FOR A COFFEE.|
00004850: 2E 22 3A 8D 33 30 30 00 71 4C 87 C3 99 22 93 22 |.":.300.qL..."."|
00004860: 3A 81 54 B2 54 38 A4 54 39 3A 81 53 B2 30 A4 33 |:.T.T8.T9:.S.0.3|
00004870: 31 00 88 4C 9B C3 98 31 35 2C 22 42 2D 52 22 3B |1..L...15,"B-R";|
00004880: 33 3B 46 44 3B 54 3B 53 00 9B 4C A0 C3 84 31 35 |3;FD;T;S..L...15|
00004890: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 B4 4C A5 C3 |,E,E$,E1,E2..L..|
000048A0: 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 35 |. E.66 . S.31:.5|
000048B0: 30 31 34 30 00 E1 4C AA C3 99 22 13 54 52 41 43 |0140..L...".TRAC|
000048C0: 4B 20 20 20 20 20 9D 9D 9D 9D 9D 22 54 22 20 53 |K ....."T" S|
000048D0: 45 43 54 4F 52 20 20 20 20 20 9D 9D 9D 9D 9D 22 |ECTOR ....."|
000048E0: 53 00 F2 4C AF C3 8B 20 45 B2 30 20 A7 35 30 31 |S..L... E.0 .501|
000048F0: 31 30 00 25 4D B4 C3 99 22 13 22 3A 81 49 B2 31 |10.%M...".":.I.1|
00004900: A4 50 3A 99 3A 82 3A 99 45 3B 45 24 3B 45 31 3B |.P:.:.:.E;E$;E1;|
00004910: 45 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 3A |E2;":DRIVE ."FD:|
00004920: 50 B2 50 AA 31 00 4F 4D B5 C3 8B 20 56 56 20 A7 |P.P.1.OM... VV .|
00004930: 20 98 34 2C 45 3B 45 24 3B 45 31 3B 45 32 3B 22 | .4,E;E$;E1;E2;"|
00004940: 3A 44 52 49 56 45 20 12 22 46 44 3B 46 46 24 00 |:DRIVE ."FD;FF$.|
00004950: 5F 4D BE C3 8B 42 42 B2 33 A7 35 30 31 31 34 00 |_M...BB.3.50114.|
00004960: 8B 4D BF C3 81 55 39 B2 30 A4 32 35 35 3A 98 31 |.M...U9.0.255:.1|
00004970: 35 2C 22 42 2D 50 22 2C 33 2C 55 39 3A 98 31 34 |5,"B-P",3,U9:.14|
00004980: 2C 22 42 2D 50 22 2C 35 2C 55 39 00 A0 4D C0 C3 |,"B-P",5,U9..M..|
00004990: A1 23 33 2C 42 59 24 3A 98 35 2C 42 59 24 3A 82 |.#3,BY$:.5,BY$:.|
000049A0: 00 B8 4D C2 C3 98 31 34 2C 22 55 32 3A 22 3B 42 |..M...14,"U2:";B|
000049B0: 42 3B 54 44 3B 54 3B 53 00 CB 4D C3 C3 84 31 34 |B;TD;T;S..M...14|
000049C0: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 E4 4D C8 C3 |,E,E$,E1,E2..M..|
000049D0: 8B 20 45 B2 36 36 20 A7 20 53 B2 33 31 3A 89 35 |. E.66 . S.31:.5|
000049E0: 30 31 34 30 00 F5 4D CD C3 8B 20 45 B2 30 20 A7 |0140..M... E.0 .|
000049F0: 35 30 31 33 35 00 28 4E D2 C3 99 22 13 22 3A 81 |50135.(N...".":.|
00004A00: 49 B2 31 A4 50 3A 99 3A 82 3A 99 45 3B 45 24 3B |I.1.P:.:.:.E;E$;|
00004A10: 45 31 3B 45 32 3B 22 3A 44 52 49 56 45 20 12 22 |E1;E2;":DRIVE ."|
00004A20: 54 44 3A 50 B2 50 AA 31 00 52 4E D3 C3 8B 20 56 |TD:P.P.1.RN... V|
00004A30: 56 20 A7 20 98 34 2C 45 3B 45 24 3B 45 31 3B 45 |V . .4,E;E$;E1;E|
00004A40: 32 3B 22 3A 44 52 49 56 45 20 12 22 46 44 3B 46 |2;":DRIVE ."FD;F|
00004A50: 46 24 00 70 4E D7 C3 A1 49 4E 24 3A 8B 49 4E 24 |F$.pN...IN$:.IN$|
00004A60: B3 B1 22 22 A7 53 B2 31 30 30 3A 54 B2 31 30 30 |.."".S.100:T.100|
00004A70: 00 91 4E DC C3 82 3A 82 3A 98 31 34 2C 22 49 22 |..N...:.:.14,"I"|
00004A80: AA 54 44 24 3A 8B 20 56 56 20 A7 20 98 34 3A A0 |.TD$:. VV . .4:.|
00004A90: 34 00 A3 4E E6 C3 A0 33 3A A0 35 3A A0 31 34 3A |4..N...3:.5:.14:|
00004AA0: A0 31 35 00 E4 4E F0 C3 99 22 13 20 20 20 20 20 |.15..N...". |
00004AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004AD0: 20 13 22 58 24 22 2E 2E 2E 12 46 49 4E 49 53 48 | ."X$"....FINISH|
00004AE0: 45 44 92 22 00 F9 4E FA C3 A1 41 24 3A 8B 41 24 |ED."..N...A$:.A$|
00004AF0: B2 22 22 89 35 30 31 37 30 00 FF 4E 04 C4 8E 00 |."".50170..N....|
00004B00: 17 4F 38 C7 8F 20 43 48 45 43 4B 20 44 49 53 4B |.O8.. CHECK DISK|
00004B10: 20 42 4C 4F 43 4B 53 00 2F 4F 39 C7 8F 22 B8 B8 | BLOCKS./O9.."..|
00004B20: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00004B30: 5F 4F 3A C7 99 22 93 22 3A 58 B2 32 3A 58 24 B2 |_O:..".":X.2:X$.|
00004B40: 22 C3 C8 C5 C3 CB 20 C2 C1 C4 20 C2 CC CF C3 CB |"..... ... .....|
00004B50: D3 22 3A 59 24 B2 22 22 3A 8D 35 34 30 32 30 00 |.":Y$."":.54020.|
00004B60: 7E 4F 42 C7 85 22 11 44 45 56 49 43 45 20 20 20 |~OB..".DEVICE |
00004B70: 38 9D 9D 9D 22 3B 44 41 3A 44 42 B2 44 41 00 B3 |8...";DA:DB.DA..|
00004B80: 4F 4C C7 85 22 11 44 52 49 56 45 20 20 20 30 9D |OL..".DRIVE 0.|
00004B90: 9D 9D 22 3B 46 44 24 3A 54 44 24 B2 46 44 24 3A |..";FD$:TD$.FD$:|
00004BA0: 46 44 B2 C5 28 46 44 24 29 3A 54 44 B2 C5 28 54 |FD..(FD$):TD..(T|
00004BB0: 44 24 29 00 DD 4F 56 C7 99 22 11 11 12 D7 45 27 |D$)..OV.."....E'|
00004BC0: 4C 4C 20 52 45 41 44 2F 57 52 49 54 45 20 54 4F |LL READ/WRITE TO|
00004BD0: 20 45 56 45 52 59 20 42 4C 4F 43 4B 22 00 06 50 | EVERY BLOCK"..P|
00004BE0: 60 C7 99 22 11 12 41 4E 44 20 49 4E 44 49 43 41 |`.."..AND INDICA|
00004BF0: 54 45 20 41 4E 59 20 44 49 53 4B 20 45 52 52 4F |TE ANY DISK ERRO|
00004C00: 52 53 2E 20 20 22 00 39 50 6A C7 85 22 11 11 D3 |RS. ".9Pj.."...|
00004C10: 48 41 4C 4C 20 57 45 20 43 4F 4E 54 49 4E 55 45 |HALL WE CONTINUE|
00004C20: 20 20 20 59 9D 9D 9D 22 3B 51 24 3A 8B 51 24 B2 | Y...";Q$:.Q$.|
00004C30: 22 59 22 89 35 30 30 32 35 00 3F 50 74 C7 8E 00 |"Y".50025.?Pt...|
00004C40: 6E 50 F0 D2 99 22 13 11 11 22 3A 81 55 39 B2 31 |nP..."...":.U9.1|
00004C50: A4 58 3A 99 22 1D 22 3B 3A 82 3A 4C 39 B2 C3 28 |.X:.".";:.:L9..(|
00004C60: 58 24 29 3A 8B 4C 39 B3 34 A7 4C 39 B2 34 00 9D |X$):.L9.4.L9.4..|
00004C70: 50 FA D2 58 24 B2 C8 28 58 24 AA 22 20 20 20 20 |P..X$..(X$." |
00004C80: 22 2C 4C 39 29 3A 59 24 B2 C8 28 22 4D 45 4E 55 |",L9):Y$..("MENU|
00004C90: 20 20 20 20 20 20 20 20 22 2C 4C 39 29 00 D2 50 | ",L9)..P|
00004CA0: 04 D3 4C 39 B2 C3 28 58 24 29 3A 99 22 B0 22 3B |..L9..(X$):.".";|
00004CB0: 3A 81 55 39 B2 31 A4 4C 39 3A 99 22 C0 22 3B 3A |:.U9.1.L9:.".";:|
00004CC0: 82 3A 99 22 AE 11 9D DD 11 9D DD 11 9D BD 9D 9D |.:."............|
00004CD0: 22 3B 00 07 51 0E D3 81 55 39 B2 31 A4 4C 39 3A |";..Q...U9.1.L9:|
00004CE0: 99 22 C0 9D 9D 22 3B 3A 82 3A 99 22 AD 9D 91 DD |."...";:.:."....|
00004CF0: 9D 91 DD 12 22 56 43 24 58 24 3B 3A 81 55 39 B2 |...."VC$X$;:.U9.|
00004D00: 31 A4 C3 28 58 24 29 00 20 51 18 D3 99 22 9D 22 |1..(X$). Q..."."|
00004D10: 3B 3A 82 3A 99 22 11 12 22 59 24 54 43 24 3A 8E |;:.:.".."Y$TC$:.|
00004D20: 00 37 51 90 E2 8F 20 55 50 50 45 52 2F 4C 4F 57 |.7Q... UPPER/LOW|
00004D30: 45 52 20 43 41 53 45 00 50 51 9A E2 8B 43 50 24 |ER CASE.PQ...CP$|
00004D40: B2 22 43 36 34 22 A7 99 C7 28 31 34 29 3B 3A 8E |."C64"...(14);:.|
00004D50: 00 60 51 9B E2 97 35 39 34 36 38 2C 31 34 3A 8E |.`Q...59468,14:.|
00004D60: 00 7A 51 A4 E2 8B 43 50 24 B2 22 43 36 34 22 A7 |.zQ...CP$."C64".|
00004D70: 99 C7 28 31 34 32 29 3B 3A 8E 00 8A 51 A5 E2 97 |..(142);:...Q...|
00004D80: 35 39 34 36 38 2C 31 32 3A 8E 00 C6 51 78 E6 53 |59468,12:...Qx.S|
00004D90: 44 B2 35 34 32 37 32 3A 81 49 B2 30 A4 32 34 3A |D.54272:.I.0.24:|
00004DA0: 97 53 44 AA 49 2C 30 3A 82 3A 97 53 44 AA 36 2C |.SD.I,0:.:.SD.6,|
00004DB0: 32 34 30 3A 97 53 44 AA 31 2C 35 30 3A 97 53 44 |240:.SD.1,50:.SD|
00004DC0: AA 32 34 2C 31 35 00 EC 51 82 E6 50 41 B2 53 44 |.24,15..Q..PA.SD|
00004DD0: AA 34 3A 4F 30 B2 33 33 3A 4F 31 B2 30 3A 50 42 |.4:O0.33:O1.0:PB|
00004DE0: B2 36 35 35 33 35 3A 50 43 B2 50 42 00 2B 52 8C |.65535:PC.PB.+R.|
00004DF0: E6 8B 43 50 24 B2 22 50 45 54 22 A7 50 42 B2 35 |..CP$."PET".PB.5|
00004E00: 39 34 36 37 3A 50 43 B2 35 39 34 36 36 3A 97 50 |9467:PC.59466:.P|
00004E10: 42 2C 31 36 3A 97 50 43 2C 31 35 3A 50 41 B2 35 |B,16:.PC,15:PA.5|
00004E20: 39 34 36 34 3A 4F 30 B2 31 30 30 00 38 52 DB E6 |9464:O0.100.8R..|
00004E30: 8D 35 39 31 30 30 3A 8E 00 6B 52 DC E6 97 50 42 |.59100:..kR...PB|
00004E40: 2C 31 36 3A 97 50 43 2C 31 35 3A 97 50 41 2C 4F |,16:.PC,15:.PA,O|
00004E50: 30 3A 81 50 39 B2 31 A4 31 30 3A 82 3A 97 50 41 |0:.P9.1.10:.:.PA|
00004E60: 2C 4F 31 3A 97 50 42 2C 30 3A 8E 00 77 52 48 EE |,O1:.PB,0:..wRH.|
00004E70: 8F 20 49 4E 50 55 54 00 9D 52 49 EE 99 22 43 55 |. INPUT..RI.."CU|
00004E80: 52 52 45 4E 54 20 43 28 22 49 22 29 3D 20 20 20 |RRENT C("I")= |
00004E90: 20 20 A0 9D 9D 9D 9D 9D 22 43 28 49 29 00 C8 52 | ......"C(I)..R|
00004EA0: 4B EE 85 22 11 49 4E 50 55 54 20 41 20 53 54 52 |K..".INPUT A STR|
00004EB0: 49 4E 47 20 20 20 59 9D 9D 9D 22 3B 41 24 3A 8B |ING Y...";A$:.|
00004EC0: 41 24 B2 22 4E 22 A7 8E 00 12 53 4C EE 99 22 11 |A$."N"....SL..".|
00004ED0: C5 CE D4 C5 D2 20 D3 D4 D2 C9 CE C7 3A 20 D4 C5 |..... ......: ..|
00004EE0: D2 CD C9 CE C1 D4 C5 20 D7 C9 D4 C8 20 12 D2 C5 |....... .... ...|
00004EF0: D4 D5 D2 CE 92 3A 11 22 3A 42 43 24 B2 22 42 59 |.....:.":BC$."BY|
00004F00: 54 45 A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 A0 |TE.COUNT........|
00004F10: A0 22 00 34 53 4D EE 42 43 24 B2 22 42 59 54 45 |.".4SM.BC$."BYTE|
00004F20: A0 43 4F 55 4E 54 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |.COUNT..........|
00004F30: A0 A0 A0 22 00 6F 53 52 EE 49 4E 24 B2 22 22 3A |...".oSR.IN$."":|
00004F40: 4E B2 C3 28 49 4E 24 29 3A 81 4B 39 B2 31 A4 32 |N..(IN$):.K9.1.2|
00004F50: 33 3A 97 43 52 54 AA 4B 39 AB 31 2C C6 28 CA 28 |3:.CRT.K9.1,.(.(|
00004F60: 42 43 24 2C 4B 39 2C 31 29 29 AB 36 34 3A 82 00 |BC$,K9,1)).64:..|
00004F70: 98 53 57 EE 4B 39 B2 31 32 3A 4E 24 B2 CA 28 C4 |.SW.K9.12:N$..(.|
00004F80: 28 4E 29 2C 32 29 3A 4C 4E B2 C3 28 4E 24 29 3A |(N),2):LN..(N$):|
00004F90: 81 4B 38 B2 31 A4 4C 4E 00 C5 53 58 EE 97 43 52 |.K8.1.LN..SX..CR|
00004FA0: 54 AA 4B 38 AA 4B 39 2C C6 28 CA 28 4E 24 2C 4B |T.K8.K9,.(.(N$,K|
00004FB0: 38 2C 31 29 29 3A 82 3A 97 43 52 54 AB EB 38 AA |8,1)):.:.CRT..8.|
00004FC0: 4B 39 2C FF 32 00 E1 53 5C EE 99 22 AF 9D 22 3B |K9,.2..S\.."..";|
00004FD0: 3A A1 41 24 FF 8B 41 24 B2 22 22 A7 FF 31 30 31 |:.A$..A$.""..101|
00004FE0: 35 00 16 54 66 EE 41 B3 D6 28 41 24 29 3A FF FF |5..Tf.A..(A$):..|
00004FF0: D9 8F 9B DF FF D9 8F 97 87 DF FF FF 8F 97 FF DF |................|
00005000: FF D9 8F FF DF FF D9 8F 97 8B DF FF D9 8F 97 FF |................|
00005010: 0E 4B D4 C0 C5 DD 80 1F DA D1 BE FF FF 26 FF FF |.K...........&..|
00005020: FF E2 4B 2E FF FF FF FF FF FF A7 A5 AE FF 31 BF |..K...........1.|
00005030: E7 B2 4B 61 FF 36 FF FF FF F1 2E FF FF A6 FF D7 |..Ka.6..........|
00005040: FF AF FB 50 07 05 48 4E E8 B4 1B E3 23 0A 74 EB |...P..HN....#.t.|
00005050: 24 EA B3 13 AB FF FF FF F1 AC FF FF FF 23 4E 24 |$............#N$|
00005060: B2 C8 28 49 4E 24 2C 4E 29 3A 89 36 31 30 31 35 |..(IN$,N):.61015|
00005070: 00 A0 54 8E EE 99 22 20 9D 22 41 24 3B 3A 49 4E |..T..." ."A$;:IN|
00005080: 24 B2 49 4E 24 AA 41 24 3A 4E B2 C3 28 49 4E 24 |$.IN$.A$:N..(IN$|
00005090: 29 3A 8B 4E B3 32 35 35 AB 49 A7 36 31 30 31 35 |):.N.255.I.61015|
000050A0: 00 C9 54 98 EE 81 55 39 B2 31 A4 4E 3A 43 28 49 |..T...U9.1.N:C(I|
000050B0: AA 55 39 AB 31 29 B2 C6 28 CA 28 49 4E 24 2C 55 |.U9.1)..(.(IN$,U|
000050C0: 39 2C 31 29 29 3A 82 3A 8E 00 DC 54 9C F9 84 31 |9,1)):.:...T...1|
000050D0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 E7 54 9D |5,E,E$,E1,E2..T.|
000050E0: F9 8B 45 B2 30 A7 8E 00 0F 55 9E F9 99 3A 99 22 |..E.0....U...:."|
000050F0: 11 2A 2A 12 44 49 53 4B 20 45 52 52 4F 52 92 2A |.**.DISK ERROR.*|
00005100: 2A 11 22 3A 99 45 3B 45 24 3B 45 31 3B 45 32 00 |*.":.E;E$;E1;E2.|
00005110: 25 55 9F F9 81 41 39 B2 31 A4 31 30 3A 8D 35 39 |%U...A9.1.10:.59|
00005120: 31 30 30 3A 82 00 44 55 A0 F9 99 22 11 11 12 52 |100:..DU..."...R|
00005130: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00005140: 55 45 2E 22 00 66 55 A1 F9 99 22 11 11 41 4E 59 |UE.".fU..."..ANY|
00005150: 20 4F 54 48 45 52 20 4B 45 59 20 54 44 24 3A 8B | OTHER KEY TD$:.|
00005160: 20 4F 44 24 B3 22 30 22 20 B0 20 4F 44 24 B1 22 | OD$."0" . OD$."|
00005170: 31 22 20 A7 20 35 39 30 00 1C 09 58 02 99 20 4F |1" . 590...X.. O|
00005180: 44 24 00 22 09 62 02 3A 00 34 09 6C 02 8F 20 2A |D$.".b.:.4.l.. *|
00005190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 09 76 02 8F |**********.F.v..|
000051A0: 20 52 45 41 44 59 20 54 4F 20 47 4F 00 58 09 80 | READY TO GO.X..|
000051B0: 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5E |.. ***********.^|
000051C0: 09 8A 02 3A 00 73 09 94 02 99 22 93 53 43 41 4E |...:.s....".SCAN|
000051D0: 4E 49 4E 47 20 46 49 4C 45 00 94 09 9E 02 99 22 |NING FILE......"|
000051E0: 20 20 20 46 4F 52 20 54 41 52 47 45 54 20 4C 49 | FOR TARGET LI|
000051F0: 4E 45 53 2E 2E 2E 2E 2E 11 11 00 A9 09 A8 02 9F |NES.............|
00005200: 20 31 35 2C 38 2C 31 35 3A 8D 20 32 37 32 30 00 | 15,8,15:. 2720.|
00005210: C8 09 B2 02 9F 20 35 2C 38 2C 35 2C 49 44 24 AA |..... 5,8,5,ID$.|
00005220: 22 3A 22 AA 46 49 24 AA 22 2C 50 2C 52 22 00 CE |":".FI$.",P,R"..|
00005230: 09 BC 02 3A 00 F0 09 C6 02 8F 20 2A 2A 2A 2A 2A |...:...... *****|
00005240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005250: 2A 2A 2A 2A 2A 2A 00 12 0A D0 02 8F 20 52 45 41 |******...... REA|
00005260: 44 20 4C 4F 41 44 20 41 44 52 2C 20 4C 49 4E 4B |D LOAD ADR, LINK|
00005270: 20 26 20 4C 49 4E 45 23 00 34 0A DA 02 8F 20 2A | & LINE#.4.... *|
00005280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3A 0A E4 02 3A |**********.:...:|
000052A0: 00 4E 0A EE 02 8D 20 32 37 32 30 20 3A 20 8D 20 |.N.... 2720 : . |
000052B0: 32 36 36 30 00 6B 0A F8 02 8D 20 32 36 36 30 20 |2660.k.... 2660 |
000052C0: 3A 20 8B 20 56 AA 56 31 B2 30 20 A7 20 31 32 32 |: . V.V1.0 . 122|
000052D0: 30 00 86 0A 02 03 8D 20 32 36 36 30 20 3A 20 4C |0...... 2660 : L|
000052E0: 4E B2 56 31 AA 28 32 35 36 AC 56 29 00 8C 0A 0C |N.V1.(256.V)....|
000052F0: 03 3A 00 B1 0A 16 03 8F 20 2A 2A 2A 2A 2A 2A 2A |.:...... *******|
00005300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005310: 2A 2A 2A 2A 2A 2A 2A 00 CF 0A 20 03 8F 20 20 20 |*******... .. |
00005320: 20 20 20 20 20 53 43 41 4E 20 42 41 53 49 43 20 | SCAN BASIC |
00005330: 4C 49 4E 45 53 00 F4 0A 2A 03 8F 20 46 4F 52 20 |LINES...*.. FOR |
00005340: 47 4F 54 4F 2C 20 47 4F 53 55 42 2C 20 26 20 54 |GOTO, GOSUB, & T|
00005350: 48 45 4E 20 54 4F 4B 45 4E 53 00 19 0B 34 03 8F |HEN TOKENS...4..|
00005360: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00005370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00005380: 1F 0B 3E 03 3A 00 2A 0B 48 03 8D 20 32 36 38 30 |..>.:.*.H.. 2680|
00005390: 00 3A 0B 52 03 8B 20 56 B2 30 20 A7 20 37 36 30 |.:.R.. V.0 . 760|
000053A0: 00 54 0B 5C 03 8B 20 56 B2 31 33 37 20 B0 20 56 |.T.\.. V.137 . V|
000053B0: B2 31 34 31 20 A7 20 39 33 30 00 67 0B 66 03 8B |.141 . 930.g.f..|
000053C0: 20 56 B3 B1 31 36 37 20 A7 20 38 34 30 00 6D 0B | V..167 . 840.m.|
000053D0: 70 03 3A 00 84 0B 7A 03 8F 20 2A 2A 2A 2A 2A 2A |p.:...z.. ******|
000053E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 0B 84 03 8F |**********......|
000053F0: 20 47 45 54 20 54 41 52 47 45 54 20 4C 49 4E 45 | GET TARGET LINE|
00005400: 23 00 B2 0B 8E 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |#...... ********|
00005410: 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 0B 98 03 3A 00 C1 |********.....:..|
00005420: 0B A2 03 4C 54 B2 30 00 DB 0B AC 03 8D 20 32 36 |...LT.0...... 26|
00005430: 38 30 20 3A 20 8B 20 56 B2 33 32 20 A7 20 39 34 |80 : . V.32 . 94|
00005440: 30 00 F4 0B B6 03 8B 20 56 B3 34 38 20 B0 20 56 |0...... V.48 . V|
00005450: B1 35 37 20 A7 20 31 30 33 30 00 09 0C C0 03 4C |.57 . 1030.....L|
00005460: 54 B2 28 31 30 AC 4C 54 29 AA C5 28 43 24 29 00 |T.(10.LT)..(C$).|
00005470: 1C 0C CA 03 8D 20 32 36 38 30 20 3A 20 89 20 39 |..... 2680 : . 9|
00005480: 35 30 00 22 0C D4 03 3A 00 3A 0C DE 03 8F 20 2A |50."...:.:.... *|
00005490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000054A0: 00 52 0C E8 03 8F 20 46 4C 41 47 20 54 41 52 47 |.R.... FLAG TARG|
000054B0: 45 54 20 4C 49 4E 45 53 00 6A 0C F2 03 8F 20 2A |ET LINES.j.... *|
000054C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000054D0: 00 70 0C FC 03 3A 00 82 0C 06 04 8B 20 4C 54 B2 |.p...:...... LT.|
000054E0: 30 20 A7 20 31 31 34 30 00 91 0C 10 04 42 59 B2 |0 . 1140.....BY.|
000054F0: B5 28 4C 54 AD 38 29 00 9F 0C 1A 04 5A B2 4C 54 |.(LT.8).....Z.LT|
00005500: AB 38 AC 42 59 00 AC 0C 24 04 41 44 B2 42 59 AA |.8.BY...$.AD.BY.|
00005510: 53 41 00 C2 0C 2E 04 97 20 41 44 2C C2 28 41 44 |SA...... AD,.(AD|
00005520: 29 20 B0 20 54 28 5A 29 00 CC 0C 38 04 99 20 4C |) . T(Z)...8.. L|
00005530: 54 2C 00 D2 0C 42 04 3A 00 F4 0C 4C 04 8F 20 2A |T,...B.:...L.. *|
00005540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 16 0D 56 04 8F |**********...V..|
00005560: 20 43 48 45 43 4B 20 46 4F 52 20 27 4F 4E 2E 2E | CHECK FOR 'ON..|
00005570: 2E 47 4F 54 4F 2F 47 4F 53 55 42 27 00 38 0D 60 |.GOTO/GOSUB'.8.`|
00005580: 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00005590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3E |**************.>|
000055A0: 0D 6A 04 3A 00 4F 0D 74 04 8B 20 56 B2 34 34 20 |.j.:.O.t.. V.44 |
000055B0: A7 20 39 33 30 00 61 0D 7E 04 8B 20 56 B3 B1 33 |. 930.a.~.. V..3|
000055C0: 32 20 A7 20 38 35 30 00 75 0D 88 04 8D 20 32 36 |2 . 850.u.... 26|
000055D0: 38 30 20 3A 20 89 20 31 31 34 30 00 7B 0D 92 04 |80 : . 1140.{...|
000055E0: 3A 00 97 0D 9C 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |:...... ********|
000055F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B3 0D |*************...|
00005600: A6 04 8F 20 47 45 54 20 52 45 41 44 59 20 46 4F |... GET READY FO|
00005610: 52 20 43 4F 4D 50 41 43 54 00 CF 0D B0 04 8F 20 |R COMPACT...... |
00005620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005630: 2A 2A 2A 2A 2A 00 D5 0D BA 04 3A 00 F4 0D C4 04 |*****.....:.....|
00005640: 99 20 22 93 43 4F 4D 50 41 43 54 49 4E 47 20 4C |. ".COMPACTING L|
00005650: 49 4E 45 53 2E 2E 2E 2E 11 11 00 FC 0D CE 04 A0 |INES............|
00005660: 20 35 00 1B 0E D8 04 9F 20 35 2C 38 2C 35 2C 49 | 5...... 5,8,5,I|
00005670: 44 24 AA 22 3A 22 AA 46 49 24 AA 22 2C 50 2C 52 |D$.":".FI$.",P,R|
00005680: 22 00 26 0E E2 04 8D 20 32 37 32 30 00 3D 0E EC |".&.... 2720.=..|
00005690: 04 46 4F 24 B2 C8 28 46 4C 24 2C 31 34 29 AA 22 |.FO$..(FL$,14)."|
000056A0: 2F 43 22 00 4F 0E F6 04 98 31 35 2C 22 53 31 3A |/C".O....15,"S1:|
000056B0: 22 AA 47 EF 24 00 6E 0E 00 05 9F 20 36 2C 38 2C |".G.$.n.... 6,8,|
000056C0: 36 2C 4F 44 24 AA 22 3A 22 AA 4F 46 24 AA 22 2C |6,OD$.":".OF$.",|
000056D0: 50 2C 57 22 00 79 0E 0A 05 8D 20 32 37 32 30 00 |P,W".y.... 2720.|
000056E0: 7F 0E 14 05 3A 00 94 0E 1E 05 8F 20 20 2A 2A 2A |....:...... ***|
000056F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 0E 28 05 8F |**********...(..|
00005700: 20 43 4F 50 59 E1 EC 4F 5B 44 E0 41 44 52 00 BC | COPY..O[D.ADR..|
00005710: 0E 32 05 5F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.2._ ***********|
00005720: 2A 2A 00 C2 0E 3C 05 3A 1A CD 0E FF FF 3B FF 52 |**...<.:.....;.R|
00005730: 36 36 30 00 DB 0E 50 05 98 36 2C C7 28 56 31 29 |660...P..6,.(V1)|
00005740: 3B 1A ED 0E FF FF 23 FF FF B5 FF FF FF FF FF FF |;.....#.........|
00005750: 52 B2 30 00 F3 0E 64 05 3A 00 13 0F 6E 05 8F 20 |R.0...d.:...n.. |
00005760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 0F 78 05 8F 20 |*********.3.x.. |
00005780: 43 4F 50 59 20 4C 49 4E 4B 20 41 4E 44 20 4C 49 |COPY LINK AND LI|
00005790: 4E 45 20 4E 55 4D 42 45 52 00 53 0F 82 05 8F 20 |NE NUMBER.S.... |
000057A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000057B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 0F 8C 05 3A 00 |*********.Y...:.|
000057C0: 72 0F 96 05 8D 20 32 36 36 30 20 3A 20 4B 31 B2 |r.... 2660 : K1.|
000057D0: 56 31 20 3A 4B 32 B2 56 00 8B 0F A0 05 46 B2 30 |V1 :K2.V.....F.0|
000057E0: 20 3A 8B 20 56 AA 56 31 B2 30 20 A7 20 32 35 38 | :. V.V1.0 . 258|
000057F0: 30 00 A5 0F AA 05 8D 20 32 36 36 30 20 3A 20 4C |0...... 2660 : L|
00005800: 31 B2 56 31 20 3A 20 4C 32 B2 56 00 C0 0F B4 05 |1.V1 : L2.V.....|
00005810: 4C 4E B2 4C 31 AA 28 32 35 36 AC 4C 32 29 20 3A |LN.L1.(256.L2) :|
00005820: 20 99 20 4C 4E 2C 00 CB 0F BE 05 8D 20 32 36 38 | . LN,...... 268|
00005830: 30 00 E4 0F C8 05 8B 20 56 B2 33 32 20 B0 20 56 |0...... V.32 . V|
00005840: B2 35 38 20 A7 20 31 34 37 30 00 F5 0F D2 A7 20 |.58 . 1470..... |
00005850: 32 33 36 30 00 F1 16 4C 09 8B 20 56 B2 30 20 A7 |2360...L.. V.0 .|
00005860: 20 32 31 37 30 00 0E 17 56 09 98 36 2C 22 3A 22 | 2170...V..6,":"|
00005870: 3B 20 3A 20 52 B2 52 AA 31 20 3A 20 89 20 31 37 |; : R.R.1 : . 17|
00005880: 30 30 00 14 17 60 09 3A 00 37 17 6A 09 8F 20 2A |00...`.:.7.j.. *|
00005890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000058A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4C 17 74 09 |***********.L.t.|
000058B0: 8F 20 4C 49 4E 45 23 20 4E 45 45 44 45 44 20 2D |. LINE# NEEDED -|
000058C0: 00 6F 17 7E 09 8F 20 57 52 49 54 45 20 4C 49 4E |.o.~.. WRITE LIN|
000058D0: 45 20 45 4E 44 2C 20 4C 49 4E 4B 20 26 20 4C 49 |E END, LINK & LI|
000058E0: 4E 45 23 00 92 17 88 09 8F 20 2A 2A 2A 2A 2A 2A |NE#...... ******|
000058F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00005900: 2A 2A 2A 2A 2A 2A 00 98 17 92 09 3A 00 AF 17 9C |******.....:....|
00005910: 09 98 36 2C C7 28 30 29 3B C7 28 31 29 3B C7 28 |..6,.(0);.(1);.(|
00005920: 31 29 3B 00 C9 17 A6 09 98 36 2C C7 28 4C 31 29 |1);......6,.(L1)|
00005930: 3B C7 28 4C 32 29 3B 20 3A 20 52 B2 34 00 D4 17 |;.(L2); : R.4...|
00005940: B0 09 8D 20 32 36 38 30 00 ED 17 BA 09 8B 20 56 |... 2680...... V|
00005950: B2 33 32 20 B0 20 56 B2 35 38 20 A7 20 32 34 38 |.32 . V.58 . 248|
00005960: 30 00 09 18 C4 09 8B 20 56 B2 30 20 B0 20 56 B2 |0...... V.0 . V.|
00005970: 31 34 33 20 A7 20 98 36 2C 22 3A 22 3B 00 1A 18 |143 . .6,":";...|
00005980: CE 09 46 B2 30 20 3A 20 89 20 31 37 30 30 00 20 |..F.0 : . 1700. |
00005990: 18 D8 09 3A 00 3B 18 E2 09 8F 20 2A 2A 2A 2A 2A |...:.;.... *****|
000059A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000059B0: 52 18 EC 09 8F 20 45 4E 44 20 4F 46 20 43 4F 4D |R.... END OF COM|
000059C0: 50 41 43 54 20 2D 00 6D 18 F6 09 8F 20 57 52 49 |PACT -.m.... WRI|
000059D0: 54 45 20 45 4E 44 20 4F 46 20 50 52 4F 47 52 41 |TE END OF PROGRA|
000059E0: 4D 00 88 18 00 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |M...... ********|
000059F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8E 18 0A |************....|
00005A00: 0A 3A 00 A5 18 14 0A 98 36 2C C7 28 30 29 3B C7 |.:......6,.(0);.|
00005A10: 28 30 29 3B C7 28 30 29 3B 00 B8 18 1E 0A 99 22 |(0);.(0);......"|
00005A20: 93 11 11 11 12 44 4F 4E 45 11 11 22 00 C3 18 28 |.....DONE.."...(|
00005A30: 0A 89 20 32 37 38 30 00 C9 18 32 0A 3A 00 E8 18 |.. 2780...2.:...|
00005A40: 3C 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |<.. ************|
00005A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 19 46 |************...F|
00005A60: 0A 8F 20 2A 2A 2A 2A 2A 20 20 53 55 42 52 4F 55 |.. ***** SUBROU|
00005A70: 54 49 4E 45 53 20 2A 2A 2A 2A 2A 00 26 19 50 0A |TINES *****.&.P.|
00005A80: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00005A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 19 5A 0A 3A |**********.,.Z.:|
00005AA0: 00 3E 19 64 0A 8D 20 32 36 38 30 20 3A 20 56 31 |.>.d.. 2680 : V1|
00005AB0: B2 56 00 44 19 6E 0A 3A 00 58 19 78 0A A1 23 35 |.V.D.n.:.X.x..#5|
00005AC0: 2C 43 24 20 3A 20 8D 20 32 37 32 30 00 6E 19 82 |,C$ : . 2720.n..|
00005AD0: 0A 8B 20 43 24 B2 22 22 20 A7 20 56 B2 30 20 3A |.. C$."" . V.0 :|
00005AE0: 20 8E 00 7E 19 8C 0A 56 B2 C6 28 43 24 29 20 3A | ..~...V..(C$) :|
00005AF0: 20 8E 00 84 19 96 0A 3A 00 99 19 A0 0A 84 31 35 | ......:......15|
00005B00: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 A8 19 |,EN,EM$,ET,ES...|
00005B10: AA 0A 8B 20 45 4E B2 30 20 A7 20 8E 00 AE 19 B4 |... EN.0 . .....|
00005B20: 0A 3A 00 C9 19 BE 0A 99 20 3A 20 99 22 11 11 11 |.:...... : ."...|
00005B30: 12 44 49 53 4B 20 45 52 52 4F 52 11 22 00 DC 19 |.DISK ERROR."...|
00005B40: C8 0A 99 20 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 |... EN;EM$;ET;ES|
00005B50: 00 E2 19 D2 0A 3A 00 F7 19 DC 0A A0 20 35 20 3A |.....:...... 5 :|
00005B60: 20 A0 20 36 20 3A 20 A0 20 31 35 00 0D 1A E6 0A | . 6 : . 15.....|
00005B70: 97 20 53 4B 2C C2 28 53 4B 29 AA 33 32 3A 9C 3A |. SK,.(SK).32:.:|
00005B80: 80 00 00 00 |.... |
....... 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 OF I. ....";I1......".ST
ARTING MEMORY LOC'N.($=HEX) $7000"...C.
."..STARTING MEMORY LOC'N.($=HEX)";M$:.9
000...H..K1.I1.255:.M.I1.K1,C(K1):..@.R.
M.M.I1.256:.".NEXT. MEM'Y LOC'N="M;:.950
0:."."M$.Q....300:.".";:..I.... WRITE RA
M TO DISK......"......................."
...MEM'Y LOC'N OF BLOCK.($=HEX) ....";
M$:.9000.Z...."..START WITH I.= ....";
I1......"..END WITH I.= ....";I2...D..
I.I1.I2:C(I).B(M.I):..E.N.."....DESTINAT
ION TRACK,SECTOR. ....";T,S...X.."....
DESTINATION DRIVE. ....";DR$:DR.E(DR$)
:.DR$.".".5080.G....3,DV,3,"#":.#3,BN$:B
N.F(BN$):."."SD$"....FILLING BUFFER#"BN.
.....I.I1.I2:.". ..."I......15,"B-P";3
;I:.3,G(C(I));:.......15,"U2:";3;DR;T;S.
<....15,"I".DR$:.63900: 3: 15:.".":..F.P
.. BAM.P.Z.."....X...53280,F5:.".":X.30
:X$."BAM":.54000...... .B(I).(Z.P(I)).P(
I)..... 15:.58010......"....1.:DISPLAY B
AM".R...."..2.:CHANGE BAM"......VC$"....
RETURN. TO EXIT"TC$......310:.".":.IN$.C
R$.6095.(....58020:.IN.6100,6280.2.J..60
00.^.O. 2: 3:.15,DV,15,"I".DR$:.58010:.6
3900:..P.T.. DISPLAY BAM......".........
........"..WHICH TRACKS":.".............
N...."..FIRST,LAST TRACK ....";TS,TE..
...."..RETURN.. TO STOP":.S0$......15,DV
,15,"I".DR$:.63900.%....2,DV,2,"$".DR$:.
63900.9.$.FF.D1.(TS.1).S3.N....K.0.FF:.#
2,A$:..Q.8..T.TS.TE:.T.51..#2,A$,A$,A$,A
$.{.B..6400...L..A$:.A$.."".T.TE.1...V..
: 2: 15:.6870:.310:....`.. CHANGE BAM.N.
J..".............T..".MORE CHANGES Y..
.";I$...~..I$.."Y"...9....DT.67..".SORRY
..CAN'T CHANGE BAM FOR THIS DISK.":.310:
..P....".TRACK V...";T.B... 15:.15,DV,
15.|... 2:.2,DV,2,"#":.63900......15,"U1
:";2;DR;DI;0......15,"B-P";2;T.4.X....VC
$".HIT .RETURN. TO QUIT."TC$:.6400:.6580
...D.."..........CHANGE WHICH SECTOR
..V...";S$:.S$."V".6260.7.N.S.E(S$):.S.
0.S..SC(T).6260.G.X. 2: 15:.SD$.V....662
0:.6480:.6580:.:.MD$".OK?.";:.310:.CL$..
....IN$."Y"..6730......MD$CL$SD$......64
80:.6340......K.0.S2:.#2,A$.M....A$."".A
$.CZ$.....B(K).F(A$):....P.. PRINT TRACK
...Z.."..............D..K.1.S1:Z.B(K). .
N..I.0.7.7.X.X..B(I):.X$(X);:.I.>....K.[
...Z.B(K):.I.0.SC(T).SC(TT).T...X..B(I):
.X$(X);:.I:.... ..".".22)"TRACK."T"..FRE
E="B(0):.......H(S1$,SC(T)).R....H(S2$,S
C(T)).23)"# SECTORS="SC(T)...H..SC(T).21
..H(S3$,SC(T).1):.6610...M..H(S3$,SC(T))
...R..S0$:..'.... CHANGE SECTOR.;...."..
............V....S.8.Z.B(1):SS.S:.6670.T
....S.16.Z.B(2):SS.S.8:.6670.....Z.B(3):
SS.S.16.....NZ.(.Z.P(SS)).(Z..P(SS))....
.B(0).B(0).(NZ.Z).(NZ.Z).W."..S.8.B(1).N
Z:.6720...,..S.16.B(2).NZ:.6720...6.B(3)
.NZ.. @.... J..15,DV,15.G T..MD$VC$".ARE
YOU SURE?."TC$;:.310:.IN$;:.IN$.."Y"...
A ^.."...CHANGING BAM..";.X H..3,DV,3,"#
":.63900.. R..#3,BN$:BN.F(BN$).. ...I.0.
S2:.15,"B-P";3;I.T.4:.3,G(B(I));:..R ...
15,"U2:";3;DR;DI;0.. B..15,"I".DR$:.6390
0: 3: 15:..*!V..".......................
...RETURN. TO CONTINUE";:..K!...VC$"....
RETURN. TO EXIT"TC$.V!...310:..J!X.. DIS
K COMMANDS.~!Y.."...............!Z..5328
0,F5:.58010:.".":X$."DISK":X.30:.54000:.
"."HD$..![. 15:D$(1)."INITIALIZE":D$(2).
"VALIDATE":D$(3)."FORMAT DISK".."\.D$(4)
."CHANGE DISK".,"].D$(5)."DISPLAY DIRECT
ORY".G"^.D$(6)."CHANGE DEVICE#".."_.D$(7
)."CHECK FOR DISK ERROR":D$(8)."CHECK FO
R BAD BLOCKS".."`.D$(9)."BACKUP (BLOCK-B
Y-BLOCK)".."B..I.1.9:.".."I".:"D$(I):.:.
S0$:.VC$"..RETURN. TO EXIT"TC$.."C..310:
.IN$.CR$....#D.."..".4#E..I.1.IN:."..";:
.:."....."D$(IN):.T9.1.300:..N#G.. IN .7
020,7030,7035,7040,11000,7300,7350,51000
,50000.X#H..7000..#L..15,DV,15,"I".DR$:.
63900:...#V..15,DV,15,"V".DR$:.63900:...
#{.."...NAME FOR DISK";NM$:."..ID FOR DI
SK";ID$:."..DRIVE";DA$.9$|.CC$."N".DA$."
:".NM$.",".ID$:."..OPEN 15,"DV",15,"G(34
)CC$G(34).I$~.."..ARE YOU SURE N...";V
V$ :. VV$.."Y". ...$..15,DV,15,CC$:.639
00:...$..DR.E(DR$):."...DRIVE "1.DR:."
........";DR$..$..MH$."DRIVE ".DR$.". *
********************."..%..MH$."DRIVE ".
DR$.". *********************.".(%...261
:.8040:..;%... TRACE BLOCKS.N%..."......
........%..."...1.:DISPLAY ALL LINKS ON
A TRACK.":."..2.:FOLLOW LINKS....".A%..X
.30:X$."TRACE":.54000:.6900:. IN$.CR$ .
...%..."...TO PRINTER N...";II$:PD.3:.
II$."Y".PD.4..&A..4,PD:. IN.2 .7112.B&B
.."..TRACK ....";T8: 3: 15:.15,DV,15:.
3,DV,3,"#".B&C..4,".TRACK"T8:.4,".......
."..&D..S8.0.31:.15,"B-R";3;DR;T8;S8:.15
,E:.E.7110.M&E..15,"B-P";3;1:.#3,A$:.4,"
SECTOR"S8" LINKS TO"F(A$.CZ$)..&F..IN$:.
IN$.."".S8.32..&G..:.300:.4: 4:.7100.1'H
.."...STARTING TRACK,SECTOR. ....";T8,
S8: 3: 15.R'I..15,DV,15:.3,DV,3,"#":.639
00..'K.."..RETURN. TO QUIT":.4,"("T8","S
8")_ FIRST BLOCK":N9.1..'P..15,"B-R";3;D
R;T8;S8..'Z..15,"B-P";3;0.R'...#3,Z$:.Z$
."".Z$.CZ$..'..T8.F(Z$):.T8.0.7200..(...
#3,Z$:.Z$."".Z$.CZ$..(..S8.F(Z$).2(..T8$
.J(D(T8),2):S8$.J(D(S8),2).[(...4,"("T8$
","S8$")";:..(N9.5).5.N9..4.Y(..N9.N9.1:
.IN$:.IN$."".7120..(...:.7210..( ..4,"_
LAST ..":.4,N9" BLOCKS."..(*..300:.4: 4:
.7100..(..D9.9:D1$.G(DV.32):D2$.G(DV.64)
:.15,DV,15:.DV.D9.D9.8.))..."...........
..............NEW. DEVICE # "D9.C)..."
...............";D9.\)..XX.12:.7340:.YY.
7315.U-..XX.50:.7340:.YY.7315..)..XX.119
:.7340:.YY.7315..)...7400:..G)...15,"M-W
"G(XX)G(00)G(2)G(D9.32)G(D9.64)..).. 15:
DV.D9:.261:...*..YY..1:.15,"M-R"G(XX)G(0
):.#15,XX$:.XX$..D1$.YY.0..*....E*.. 15:
.15,DV,15:.15,E1$,E2$,E3$,E4$:S9$.",".H*
..X$.E1$.S9$.E2$.S9$.E3$.S9$.E4$..*...".
":X.5:Y$."":.54020:.A9.1.100:E.E(E1$):.:
.E.0....*...A9.1.10:.59100:..S*..."...RE
TURN. TO CONTINUE."..*..."..ANY OTHER KE
Y TO .QUIT.."..+...310:.IN$.CR$....+...7
900.P+..."...***.NOT A RECOGNIZABLE DISK
.***":."..WANT TO QUIT?".G+...310:.IN$."
Y".7900.M+....}+L.. UNSCRATCH..+M.."....
.......+N..".":X.25:X$."UNSCRATCH":Y$.""
:.54020.W+V..".WE'LL DO THE FOLLOWING:".
.,W.."..1.:GO THRU' DIRECTORY TRACK"DI"
UNTIL".0,X.." WE FIND THE SCRATCHED FIL
E NAME.".Y,Y.."..2.:TRACE THE BLOCKS AND
COMPARE".,Z.." THE BLOCKS OBTAINED WI
TH THE"..,[.." DIRECTORY BLOCK COUNT.".
M,\.."..3.:LOOK AT THE BLOCK AVAILABILTY
MAP"..,].." TO SEE IF ALL THE BLOCKS A
RE FREE."..-^..".>>IF ALL OF THE ABOVE A
RE OK".E-_.." YOU THEN MODIFY THE DIREC
TORY"._-`.." AS FOLLOWS:":.300..-T..".M
ODIFY THE BLOCK SO THAT THE"..-Y..".MAGI
C BYTE".D-~.." WHICH OCCURS JUST .3. PL
ACES BEFORE"..-..." THE NAME IS AS FOLL
OWS:"..-..." 129=SEQ FILE"......" 130=
PRG FILE".'...." 131=USR FILE".=...."
132=REL FILE".K....".EXAMPLE:TO UNSCRATC
H A PRG FILE 'ABZ'"......"FIND IT'S NAME
ON THE DIRECTORY, AND"......"SELECT MEN
U ITEM=MODIFY BLOCK.".R...."YOU WILL SEE
:"../D.."... 0. 0. 0"VC$". 0"TC$". 19. 3
. 65. 66. 90....ETC".,/N.." ^ ^
^ ^ ^ ^".L/X.." SHOULD BE .TRCK.A B
Z".W/..." A 130 .&SEC.FILENAME(IN
ASCII)"../...300:."."../...".MODIFY THE
BYTE WHICH IDENTIFIES THE ".Z/..."FILE T
YPE..TO 130..SO IT READS:"..0..."... 0.
0. 0"VC$".130"TC$". 19. 3. 65. 66. 90...
.ETC".C0..."..4.:WRITE THE BLOCK BACK TO
THE DISK.".T0..."..5.:VALIDATE.........
......... THE DISK."..0..."..5.:PRAY..":
.310..0H..".WANT TO TRY Y...";A$:.A$..
"Y"....0R..12000..0.. 15:.58020:."......
BYE...":.HD$"..":...0@.. INITIALIZE..1A.
."...........B1B..".":.58020:.53281,F1:.
53280,F1:. F3$(15),F5$(15).F1C..I.0.15:.
F3$(I):F5$(I).F3$(I):...1D..".",".",".",
".",".",".",".","."..1E..".",".",".","."
,".",".",".",".".Q1F.TC$.F3$(F3):.TC$:VC
$.F5$(F5)..1G..C(255),T(120),S(120),SC(7
7),B(4)..2H..1,17,20,24,19,30,17,35,16,0
.:2I..65,17,20,24,18,30,17,35,16,0.\2J..
67,39,28,53,26,64,24,77,22,0..2K.S0$."..
.....................................":S
4$.S0$.S0$..2L.A$.VC$."..*PONZO**** DISK
VIEW ****(".DA$.")****".TC$:.I.1.C(A$)..
3M..J(A$,I,1);:.T.1.5:.:.:.:.S0$:.CP$."P
ET".8016.'3N.."..NOTE.........".V3O.."FU
NCTION KEYS CHANGE COLOURS AT MENU...".R
3P.."..DEVICE # 8...";DV..3Q.R$(0)."."
:R$(1).".":NN.55341..3R.HX$."0123456789A
BCDEF".Z3T.SD$."...........":BB$.SD$."..
........."..4Y.MD$."....................
":CR$.G(13):CZ$.G(0)..4Z..59000.>4C.."..
DRIVE # 0...";DR$:DR.E(DR$).F4H..5802
0: 15:.15,DV,15,"I".DR$:.63900..4R.K$."
THIS BLOCK IS EMPTY "..4|..:.I.0.15:.X
$:.:WW.0:A0.1..4}..3,DV,3,"$".DR$:.63900
.W4~..#3,A$:A.F(A$.CZ$)..4..DT:.A.DT.80
70..5..WW.WW.1:.WW.3. .I.1.9:.DT:.:.8063
..5.. 3:.7400.T5..MH$."DRIVE ".DR$.".!!U
NRECOGNIZABLE DISK!!.":.8230.K5..TT.200:
DI.76:.8110..5...DT.1.DT.65.KK.143..5...
DT.67.KK.5..5...8200..5...A1:.A1.0.8090.
X5...B1:.I.A0.A1:SC(I).B1.1:.:A0.I:.8075
..5...DT.1.DT.65.D1.1:TT.35:S2.3:DI.18.!
6...DT.67.D1.257:TT.77:S2.4:DI.39.56 .S1
.S2.1:S3.S2.1.G6.. 3:.TT.0.8065.P6...I.0
.7:P(I).2.I:.:.I.0.3:H(I).16.I:...6..H$(
0)."DECIMAL":H$(1)."HEX"..6..X$(0)."Q":X
$(1)."W".I6L.CL$."":.I.1.39:CL$.CL$." ":
...6V.S1$."^....^....^....^....^....^...
.^....".!7..S2$.". . . . .
. .".N7..S3$."0 5 10 15 2
0 25 30":..Y7. .I.3.KK:.#3,A$:.:MH$.
"DRIVE ".DR$.". "..7. .I.1.16:.#3,A$:MH$
.MH$.A$:.:.#3,A$,A$:MH$.MH$.":"..7. .I.1
.2:.#3,A$:MH$.MH$.A$:.:MH$.MH$.":":.#3,A
$..8. .I.1.2:.#3,A$:MH$.MH$.A$:.:MH$.MH$
.".".-8! SP$."":.I.1.40:SP$.SP$." ":..A8
& .261:.".."HD$:..S8(#. DECIMAL_HEX.E8)#
."............Y8-#M.E(M$):.M..0....82#M$
.J(M$,2):M.0:LM.C(M$)..8<#.CN.1.LM.M8F#M
M$.J(M$,CN,1):.9100:M.M.MM.H(LM.CN):..S8
P#...8.#.MM$."0".MM.0:...8.#MM.E(MM$):.M
M..0....9 #MM.F(MM$).55:..#9.%. HEX_DECI
MAL.59.%."............E9 %C9.3:M$."$".G9
!%SM.M:.CN.C9.0..1:CM%.SM.H(CN)..9&%M$.M
$.G(CM%.48.7.(CM%.9)):SM.SM.H(CN).CM%:.:
...9.*. DIRECTORY..9.+.58020:."...TO PRI
NTER N...";IN$:PD.3:. IN$."Y". PD.4./:
.+PT..(PD.4):PF$."":SF$.CR$:PS.0:Q$.G(34
):R1$.".":R2$.".":BT$."":AT$."".I:.+AF$.
"":C80.0:LF$.G(10):S5$.S0$:U9.1:.4,PD:.P
T.0.11070..:.+.".80 COLUMN DIR'Y Y..."
;W$:.W$."N".11030.W:.+.I.1.18:BT$.BT$."
":.:C80.1:S5$.S4$:SF$."":AF$."-":.11050.
.;.+S5$.H(S0$,38):.".PRINT .RIGHT. HOW M
ANY SPACES 0...";PS.;; +.PS..I.1.PS:PF
$.PF$." ":.:BT$.PF$.P;*+.".DOES THE PRIN
TER NEED A LINE FEED N...";U9$..;4+.U9
$."Y".AT$.AT$.LF$:.C80.0.SF$.SF$.LF$.Z;>
+.".":PT$." *******".J(MH$,10,24)." ****
***":.PT.0.PT$.HD$..<H+.4,BT$PT$AT$:."HI
T A KEY TO STOP."VC$:A5.32:A6.127:A7.160
.J<R+ 3:.3,DV,3,"$".DR$:J$." ":. PT .R1$
."":R2$.""..<\+.4,BT$R1$" BLKS NAME
TYPE (T,S) START"TC$;AT$.L<F+TY$(
0)."DEL":TY$(1)."SEQ":TY$(2)."PRG":TY$(3
)."USR":TY$(4)."REL"..<K+.C80.0..4,BT$;.
.<P+.4,S5$AT$:.I.0.253:.#3,A$:..B=Z+SI.0
:.P.1.8:.#3,A$:A.F(A$.CZ$).128:TY..A.(A.
0.A.5):A3$.TY$(TY).R=.+.#3,A$,B$:A.F(A$.
CZ$):B.F(B$.CZ$):.ST.11300..=.+A4$."(".I
(D(A),2).",".I(D(B),2).")":A0$."":.I.1.1
6..=.+.#3,B$:A0$.A0$.B$:.:A2$."":.I.1.16
:B$.J(A0$,I,1)..>.+A9.F(B$.CZ$):.A9.A7.B
$."":I.16:.11190.(>.+.A9.A5.(A9.A6.A9.A7
).B$."?".]>.+A2$.A2$.B$:.:.11320:.TY..2.
A5$." ".AF$:.11220..>.+.2,DV,2,DR$.":
".A0$.",".A3$.",R":.#2,AL$,AH$:X$.AL$:.1
1440.O>J+AL$.X$:X$.AH$:.11440:AH$.X$:A5$
.AH$.AL$.AF$: 2..>T+.#3,A$,A$,A$,A$,A$,A
$,A$,A$,A$.2?.+.#3,A$,B$:A.F(A$.CZ$):B.F
(B$.CZ$):C.A.256.B:K9.ST:.C.0.P.10.J?.+A
1$.I(" ".D(C),3).]?.+.P.8..#3,A$,A$..?
.+. PT . TY.0 . . PF$A1$J$A2$A3$J$A4$J$A
5$SF$:.11290..?.,. C . .4,PF$A1$J$A2$A3$
J$A4$J$A5$SF$;.S?.,.A$:.A$.."".P.10..?.,
.C80.U9.1.U9:.U9..4,AT$..@.,.:.P.10.K9.0
.11130.!@$, 3:.11330:.4,PF$S5$SF$.6@., 4
:.58010:.300:..\@8,A2$.R1$.Q$.H(A2$.Q$.S
P$,17).R2$:..N@B,. BLOCKS FREE..@L,.1,DV
,0,"$".DR$.":"..@V,.11380:.4,LF$..@`,L.X
.Y.256:.4,PF$L;" BLOCKS FREE"AT$.I@J, 1:
...@T,.#1,X$,X$,X$,X$,X$,X$..@~,.#1,X$:.
X$.."".11390..A.,.#1,X$,X$,X$,Y$.'A.,X.C
(X$):.X.X.F(X$).>A.,Y.C(Y$):.Y.Y.F(Y$).D
A.,...A.,X.F(X$.CZ$):XH%.X.16:XL.X.16.XH
%:X$.J(HX$,XH%.1,1).J(HX$,XL.1,1)..A.,..
.A... UNSCRATCH ROUTINE..A..."..........
........JA...58020..B..."...THE SCRATCHE
D FILE NAMES WILL":.".BE DISPLAYED.".?B.
/.".YOU MAY DECIDE WHICH FILE YOU":.".WI
SH TO RECOVER.".GB./."...RETURN. TO CONT
INUE":.310:.".".|B0/ 3: 15:.15,DV,15..B:
/T.DI:S.1:.3,DV,3,"#0":.63900..B?/.15,"B
-R";3;DR;T;S.HB@/.".LOOKING AT:"..BA/.".
.TRACK ..."T" SECTOR ..."S..CD/.J.0.
255:.15,"B-P";3;J:.#3,A$.%CN/C(J).F(A$.C
Z$):..MCX/.D.2.255.32:.C(D)..0.C(D.1).0.
12200.~CB/.SD$CL$SD$"WANT TO UNSCRATCH .
";:.P9.1.200:...CL/.A$:.K.D.3.D.18:.G(C(
K));:.:.".?":.310..CV/.IN$."Y".12300..C.
/.D:T.C(0):S.C(1):.T.DI.12095..D./.".FIN
ISHED LOOKING..":."...RETURN. TO CONTINU
E.":.310:..XD.0T0.T:S0.S:T.C(D.1):S.C(D.
2):B0.C(D.28).C(D.29).256:.58010..D.0.".
...DIRECTORY BLOCK COUNT="B0:N9.1:.S0$..
D.0 3: 15:.15,DV,15:.3,DV,3,"#":.63900:.
#3,BN$:BN.F(BN$)..D.0T(N9).T:S(N9).S:N9.
N9.1..D.0.15,"B-R";3;DR;T;S..E.0.15,"B-P
";3;0..E.0.#3,Z$:.Z$."".Z$.CZ$.=E.0T(N9)
.F(Z$):.T(N9).0.12314.VE.0.#3,Z$:.Z$."".
Z$.CZ$.FE.0S(N9).F(Z$)..E.0T$.J(D(T),2):
S$.J(D(S),2)..E.0."("T$","S$")";..E.0T.T
(N9):S.S(N9):N9.N9.1:.12305.IE.0N9.N9.1:
...E.0.".."N9" BLOCKS."..F>0.N9..B0.."..
**.INCORRECT BLOCK COUNT.**..":.300:..0F
H0.".LOOKS GOOD SO FAR.".[FR0.".SHALL WE
PROCEED?":.310:.IN$.."Y"....F\0."...WE'
LL CHECK THAT THE ABOVE BLOCKS"..FF0.".A
RE FREE BY LOOKING AT THE BAM.."..FP0.".
THE TRACK/SECTORS FOR THE FILE WILL BE".
.GZ0.".DISPLAYED. IF A BLOCK IS OCCUPIED
".3G.0.".THE UNSCRATCH WILL NOT WORK!":.
300.EG.0 15:.15,DV,15,"I".DR$:.63900:.".
":.58020:K1.1..G.0.2,DV,2,"$".DR$:.63900
..G.0. .B(I).(Z.P(I)).P(I)..G.0FF.D1.(T(
K1).1).S3:PP.0.LG.0.K2.0.FF:.#2,A$:...G.
0T.T(K1):.".":.6400:.6580..H.0.SD$"CHECK
THAT THE FOLLOWING ".(H.0.".SECTORS ARE
FREE=W".\H.0.K2.1.N9:.T(K2).T..R$(PP)J(
D(S(K2)),2)R$(1.PP);.LH.0PP.1.PP:.:..}H.
0.".OK?":.310..H.0.IN$.."Y"..".SORRY..":
.58010:.300: 2:...H.0 2:.K1.N9. 15:..WHJ
0K1.K1.1:.T(K1).0.12600..HT0.T(K1).T.124
90..HY0.12422..I81.".":.58010.5IB1."NOW
MODIFY THE .MAGIC BYTE. ON DIRECTORY".PI
L1.".TRACK"T0" SECTOR"S0..IV1.".THEN WRI
TE THE BLOCK BACK TO ("T0","S0")"..I`1."
.FINALLY .VALIDATE. THE DISK!"..IJ1.300:
..GIPC. BACKUP BY BLOCK..IQC."..........
.......JRC.53280,F5:.".":X.30:X$."BACKUP
":Y$."":.54020.0JSC."..FOR TWO DRIVES ON
LY":.300.\JUC.".(HIT RETURN TO ABORT)":F
F$."":.54020..JZC."....FROM. DRIVE ..
.";FD$:FD.E(FD$):. FD$." "....J_C.".DEVI
CE 8...";DA..JDC."...TO. DRIVE";TD$:TD
.E(TD$):.".DEVICE 8...";DB..KIC 3: 5:
14: 15:.15,DA,15:.15,"I".FD$.DKNC.3,DA,3
,"#":.63900:.14,DB,15:P.1:.DB.DA.BB.3:.5
0040.YKSCBB.5:.5,DB,5,"#"..KXC."..START
AT TRACK 1...";T8:."..END AT TRACK 3
5....";T9.ZK}C."..ERRORS TO PRINTER N.
..";VV$:VV.0:. VV$."Y" . VV.1:.4,4..K.C.
VV.0.50053..L.C.".DOES THE PRINTER NEED
A LINE FEED N...";U9$.6L.C.U9$."Y".FF$
.G(10).WL.C."...GO FOR A COFFEE..":.300.
QL.C.".":.T.T8.T9:.S.0.31..L.C.15,"B-R";
3;FD;T;S..L C.15,E,E$,E1,E2..L.C. E.66 .
S.31:.50140..L.C.".TRACK ....."T" S
ECTOR ....."S..L.C. E.0 .50110.%M.C.
".":.I.1.P:.:.:.E;E$;E1;E2;":DRIVE ."FD:
P.P.1.OM.C. VV . .4,E;E$;E1;E2;":DRIVE .
"FD;FF$._M.C.BB.3.50114..M.C.U9.0.255:.1
5,"B-P",3,U9:.14,"B-P",5,U9. M.C.#3,BY$:
.5,BY$:...MBC.14,"U2:";BB;TD;T;S.KMCC.14
,E,E$,E1,E2..MHC. E.66 . S.31:.50140..MM
C. E.0 .50135.(NRC.".":.I.1.P:.:.:.E;E$;
E1;E2;":DRIVE ."TD:P.P.1.RNSC. VV . .4,E
;E$;E1;E2;":DRIVE ."FD;FF$.PNWC.IN$:.IN$
.."".S.100:T.100..N.C.:.:.14,"I".TD$:. V
V . .4: 4..N.C 3: 5: 14: 15..N.C.".
."X$"..
..FINISHED."..N.C.A$:.A$."".50170..N.D..
.O8G. CHECK DISK BLOCKS./O9G."..........
........_O:G.".":X.2:X$."CHECK BAD BLOCK
S":Y$."":.54020.~OBG.".DEVICE 8...";DA
:DB.DA..OLG.".DRIVE 0...";FD$:TD$.FD$:
FD.E(FD$):TD.E(TD$)..OVG."...WE'LL READ/
WRITE TO EVERY BLOCK"..P`G."..AND INDICA
TE ANY DISK ERRORS. ".9PJG."..SHALL WE
CONTINUE Y...";Q$:.Q$."Y".50025.?PTG..
NP.R."...":.U9.1.X:.".";:.:L9.C(X$):.L9.
4.L9.4..P.RX$.H(X$." ",L9):Y$.H("MENU
",L9).RP.SL9.C(X$):.".";:.U9.1.L
9:.".";:.:."............";..Q.S.U9.1.L9:
."...";:.:."........"VC$X$;:.U9.1.C(X$).
Q.S.".";:.:.".."Y$TC$:..7Q... UPPER/LOW
ER CASE.PQ...CP$."C64"..G(14);:..`Q...59
468,14:..ZQ...CP$."C64"..G(142);:...Q...
59468,12:..FQX.SD.54272:.I.0.24:.SD.I,0:
.:.SD.6,240:.SD.1,50:.SD.24,15..Q..PA.SD
.4:O0.33:O1.0:PB.65535:PC.PB.+R...CP$."P
ET".PB.59467:PC.59466:.PB,16:.PC,15:PA.5
9464:O0.100.8R...59100:..KR...PB,16:.PC,
15:.PA,O0:.P9.1.10:.:.PA,O1:.PB,0:..WRH.
. INPUT..RI.."CURRENT C("I")= .....
"C(I).HRK..".INPUT A STRING Y...";A$:.
A$."N"....SL..".ENTER STRING: TERMINATE
WITH .RETURN.:.":BC$."BYTE COUNT
".4SM.BC$."BYTE COUNT ".OSR
.IN$."":N.C(IN$):.K9.1.23:.CRT.K9.1,F(J(
BC$,K9,1)).64:...SW.K9.12:N$.J(D(N),2):L
N.C(N$):.K8.1.LN.ESX..CRT.K8.K9,F(J(N$,K
8,1)):.:.CRT..8.K9,.2..S\.."..";:.A$..A$
.""..1015..TF.A.V(A$):..Y....Y..........
.Y....Y.....Y....KT.E...ZQ...&....K.....
......1...KA.6.........W...P..HN....#.T.
$............#N$.H(IN$,N):.61015. T..."
."A$;:IN$.IN$.A$:N.C(IN$):.N.255.I.61015
.IT...U9.1.N:C(I.U9.1).F(J(IN$,U9,1)):.:
...T...15,E,E$,E1,E2..T...E.0....U...:."
.**.DISK ERROR.**.":.E;E$;E1;E2.%U...A9.
1.10:.59100:..DU .."...RETURN. TO CONTIN
UE.".FU..."..ANY OTHER KEY TD$:. OD$."0"
. OD$."1" . 590...X.. OD$.".B.:.4.L.. *
**********.F.V.. READY TO GO.X.... *****
******.^...:.S....".SCANNING FILE......"
FOR TARGET LINES............. 15,8,15
:. 2720.H.... 5,8,5,ID$.":".FI$.",P,R".N
...:...F.. ***************************..
.P.. READ LOAD ADR, LINK & LINE#.4.Z.. *
**************************.:...:.N.... 2
720 : . 2660.K.... 2660 : . V.V1.0 . 122
0...... 2660 : LN.V1.(256.V).....:......
******************************.O. ..
SCAN BASIC LINES...*.. FOR GOTO, GO
SUB, & THEN TOKENS...4.. ***************
***************...>.:.*.H.. 2680.:.R.. V
.0 . 760.T.\.. V.137 . V.141 . 930.G.F..
V..167 . 840.M.P.:...Z.. **************
**...... GET TARGET LINE#...... ********
********.....:.A...LT.0...... 2680 : . V
.32 . 940...... V.48 . V.57 . 1030.....L
T.(10.LT).E(C$)...J.. 2680 : . 950.".T.:
.:.... *****************.R.... FLAG TARG
ET LINES.J.... *****************.P...:..
.... LT.0 . 1140.....BY..(LT.8).....Z.LT
.8.BY...$.AD.BY.SA.B.... AD,B(AD) . T(Z)
.L.8.. LT,.R.B.:...L.. *****************
**********...V.. CHECK FOR 'ON...GOTO/GO
SUB'.8.`.. ***************************.>
.J.:.O.T.. V.44 . 930.A.~.. V..32 . 850.
U.... 2680 : . 1140.{...:...... ********
*************...... GET READY FOR COMPAC
T.O.... *********************.U...:...D.
. ".COMPACTING LINES.........N. 5...X..
5,8,5,ID$.":".FI$.",P,R".&.... 2720.=..
.FO$.H(FL$,14)."/C".O....15,"S1:".G.$.N.
... 6,8,6,OD$.":".OF$.",P,W".Y.... 2720.
...:...... *************...(.. COPY..O
[D.ADR...2._ *************.B.<.:.M...;.R
660...P..6,G(V1);.....#.........R.0...D.
:...N.. *************************.3.X..
COPY LINK AND LINE NUMBER.S.... ********
*****************.Y...:.R.... 2660 : K1.
V1 :K2.V... .F.0 :. V.V1.0 . 2580......
2660 : L1.V1 : L2.V.....LN.L1.(256.L2) :
. LN,.K.... 2680...H.. V.32 . V.58 . 14
70...R. 2360...L.. V.0 . 2170...V..6,":"
; : R.R.1 : . 1700...`.:.7.J.. *********
*******************.L.T.. LINE# NEEDED -
.O.~.. WRITE LINE END, LINK & LINE#.....
. ****************************.....:....
..6,G(0);G(1);G(1);.I....6,G(L1);G(L2);
: R.4.T.... 2680...... V.32 . V.58 . 248
0...D.. V.0 . V.143 . .6,":";...N.F.0 :
. 1700. .X.:.;.... ********************.
R.... END OF COMPACT -.M.... WRITE END O
F PROGRAM...... ********************....
.:......6,G(0);G(0);G(0);......".....DON
E..".C.(.. 2780.I.2.:...<.. ************
************...F.. ***** SUBROUTINES **
***.&.P.. ************************.,.Z.:
.>.D.. 2680 : V1.V.D.N.:.X.X..#5,C$ : .
2720.N.... C$."" . V.0 : ..~...V.F(C$) :
......:... ..15,EN,EM$,ET,ES...... EN.0
. ......:.I.... : ."....DISK ERROR."...
H.. EN;EM$;ET;ES...R.:..... 5 : 6 :
15...... SK,B(SK).32:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL