DISKVIEW 3.C
FILE INFORMATION
FILENAME(S): DISKVIEW 3.C
FILE TYPE(S): PRG
FILE SIZE: 13.9K
FIRST SEEN: 2025-12-01 13:57:34
APPEARS ON: 1 disk(s)
FILE HASH
f0889e755cc2177dc816a45bcf7b2d59f576ed6749f60c1a56d2010f716acb89
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD S 08803 9377 | DISKVIEW 3.C | PRG | HOL2001, Misc | 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|
....... 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
> CLICK IMAGE PREVIEW FOR FULL MODAL