DISK-VIEW
FILE INFORMATION
FILENAME(S): DISK-VIEW
FILE TYPE(S): PRG
FILE SIZE: 20.4K
FIRST SEEN: 2025-11-30 01:07:54
APPEARS ON: 2 disk(s)
FILE HASH
e903274def7372f00581245d775988a65e0f59a67e55a8293754fc229cc307c6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | DISK-VIEW | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 1 | DOWNLOAD FILE |
| D IVERSE | DISK-VIEW | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 03 00 8F 20 50 45 54 45 52 20 4A 2E |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 30 08 04 00 8F 20 34 39 20 | PONZO.0.... 49 |
00000020: 4D 41 52 47 41 52 45 54 20 41 56 45 2E 20 53 2E |MARGARET AVE. S.|
00000030: 00 4C 08 05 00 8F 20 57 41 54 45 52 4C 4F 4F 2C |.L.... WATERLOO,|
00000040: 4F 4E 54 2E 20 4E 32 4A 20 32 43 38 00 61 08 06 |ONT. N2J 2C8.a..|
00000050: 00 8F 20 31 2D 35 31 39 2D 35 37 38 2D 31 31 34 |.. 1-519-578-114|
00000060: 37 00 82 08 08 00 8F 20 44 49 53 4B 56 49 45 57 |7...... DISKVIEW|
00000070: 20 2D 20 46 4F 52 20 50 45 54 20 41 4E 44 20 43 | - FOR PET AND C|
00000080: 36 34 00 91 08 09 00 8F 22 B8 B8 B8 B8 B8 B8 B8 |64......".......|
00000090: B8 00 CC 08 0A 00 8B C2 28 30 29 B2 34 37 A7 97 |........(0).47..|
000000A0: 35 36 2C 37 AC 31 36 3A 97 35 35 2C 30 3A 9C 3A |56,7.16:.55,0:.:|
000000B0: 8F 20 53 4F 4D 45 20 52 41 4D 20 46 4F 52 20 53 |. SOME RAM FOR S|
000000C0: 41 56 49 4E 47 20 42 4C 4F 43 4B 53 00 EB 08 0B |AVING BLOCKS....|
000000D0: 00 8B C2 28 30 29 B3 B1 34 37 A7 97 35 33 2C 37 |...(0)..47..53,7|
000000E0: AC 31 36 3A 97 35 32 2C 30 3A 9C 00 0B 09 0C 00 |.16:.52,0:......|
000000F0: 46 31 B2 30 37 3A 46 33 B2 30 30 3A 46 35 B2 30 |F1.07:F3.00:F5.0|
00000100: 36 3A 8F 20 43 4F 4C 4F 55 52 53 00 11 09 0D 00 |6:. COLOURS.....|
00000110: 3A 00 25 09 0E 00 44 41 24 B2 22 4D 41 52 20 33 |:.%...DA$."MAR 3|
00000120: 31 2F 38 34 22 00 2B 09 0F 00 3A 00 63 09 10 00 |1/84".+...:.c...|
00000130: 43 52 54 B2 31 30 32 34 3A 43 50 24 B2 22 43 36 |CRT.1024:CP$."C6|
00000140: 34 22 3A 8B 20 C2 28 30 29 B3 B1 34 37 20 A7 20 |4":. .(0)..47 . |
00000150: 43 52 54 B2 33 32 37 36 38 3A 43 50 24 B2 22 50 |CRT.32768:CP$."P|
00000160: 45 54 22 00 77 09 14 00 42 53 B2 43 52 54 AA 34 |ET".w...BS.CRT.4|
00000170: 35 3A 8D 38 30 30 30 00 7D 09 1E 00 3A 00 A2 09 |5:.8000.}...:...|
00000180: 1F 00 4D 24 28 31 29 B2 22 CC 4F 41 44 20 42 4C |..M$(1).".OAD BL|
00000190: 4F 43 4B 20 49 4E 54 4F 20 43 4F 4D 50 55 54 45 |OCK INTO COMPUTE|
000001A0: 52 22 00 C7 09 20 00 4D 24 28 32 29 B2 22 D3 45 |R"... .M$(2).".E|
000001B0: 45 20 C1 D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 45 |E ..... OF ABOVE|
000001C0: 20 42 4C 4F 43 4B 22 00 E6 09 21 00 4D 24 28 33 | BLOCK"...!.M$(3|
000001D0: 29 B2 22 CD 4F 44 49 46 59 20 41 42 4F 56 45 20 |).".ODIFY ABOVE |
000001E0: 42 4C 4F 43 4B 22 00 0B 0A 22 00 4D 24 28 34 29 |BLOCK"...".M$(4)|
000001F0: B2 22 D3 54 4F 52 45 20 41 42 4F 56 45 20 42 4C |.".TORE ABOVE BL|
00000200: 4F 43 4B 20 49 4E 20 D2 C1 CD 22 00 32 0A 23 00 |OCK IN ...".2.#.|
00000210: 4D 24 28 35 29 B2 22 D7 52 49 54 45 20 42 4C 4F |M$(5).".RITE BLO|
00000220: 43 4B 20 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 53 |CK IN ... TO DIS|
00000230: 4B 22 00 55 0A 24 00 4D 24 28 36 29 B2 22 C2 4C |K".U.$.M$(6).".L|
00000240: 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 49 54 59 |OCK .VAILABILITY|
00000250: 20 CD 41 50 22 00 6F 0A 25 00 4D 24 28 37 29 B2 | .AP".o.%.M$(7).|
00000260: 22 C4 49 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 00 |".ISK .OMMANDS".|
00000270: 87 0A 26 00 4D 24 28 38 29 B2 22 D4 52 41 43 45 |..&.M$(8).".RACE|
00000280: 20 C2 4C 4F 43 4B 53 00 A3 0A 27 00 4D 24 28 39 | .LOCKS...'.M$(9|
00000290: 29 B2 22 D5 4E 53 43 52 41 54 43 48 20 41 20 C6 |).".NSCRATCH A .|
000002A0: 49 4C 45 00 AF 0A 64 00 8F 20 20 4D 45 4E 55 00 |ILE...d.. MENU.|
000002B0: BB 0A 65 00 8F 22 20 B8 B8 B8 B8 00 C9 0A 68 00 |..e.." .......h.|
000002C0: 97 35 33 32 38 30 2C 46 31 00 FD 0A 69 00 A0 31 |.53280,F1...i..1|
000002D0: 35 3A 9F 31 35 2C 44 56 2C 31 35 3A 8D 35 38 30 |5:.15,DV,15:.580|
000002E0: 31 30 3A 99 22 93 22 3A 58 24 B2 22 CD C1 C9 CE |10:.".":X$."....|
000002F0: 22 3A 58 B2 33 30 3A 8D 35 34 30 30 30 00 09 0B |":X.30:.54000...|
00000300: 6E 00 99 22 13 22 48 44 24 00 26 0B 78 00 81 49 |n.."."HD$.&.x..I|
00000310: B2 31 A4 39 3A 99 22 11 12 22 49 22 92 3A 22 4D |.1.9:.".."I".:"M|
00000320: 24 28 49 29 3A 82 00 4E 0B 82 00 99 53 30 24 3A |$(I):..N....S0$:|
00000330: 99 56 43 24 22 48 49 54 20 12 D2 C5 D4 D5 D2 CE |.VC$"HIT .......|
00000340: 92 20 54 4F 20 D1 55 49 54 13 22 54 43 24 00 65 |. TO .UIT."TC$.e|
00000350: 0B 8C 00 8D 33 31 30 3A 8B 49 4E 24 B2 43 52 24 |....310:.IN$.CR$|
00000360: A7 37 39 30 30 00 76 0B 96 00 8B 49 4E 24 B2 22 |.7900.v....IN$."|
00000370: 85 22 A7 31 31 30 00 87 0B A0 00 8B 49 4E 24 B2 |.".110......IN$.|
00000380: 22 86 22 A7 31 31 30 00 98 0B AA 00 8B 49 4E 24 |".".110......IN$|
00000390: B2 22 87 22 A7 31 31 30 00 CE 0B B4 00 99 22 13 |.".".110......".|
000003A0: 11 22 3A 81 49 B2 31 A4 49 4E 3A 99 22 11 11 22 |.":.I.1.IN:.".."|
000003B0: 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 4D 24 28 49 |;:.:."....."M$(I|
000003C0: 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A 82 00 0B |N):.T9.1.300:...|
000003D0: 0C C8 00 91 49 4E AA 31 8D 35 30 30 30 30 2C 31 |....IN.1.50000,1|
000003E0: 30 30 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 |000,2000,3000,40|
000003F0: 30 30 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 |00,5000,6000,700|
00000400: 30 2C 37 31 30 30 2C 37 35 30 30 00 14 0C D2 00 |0,7100,7500.....|
00000410: 89 31 30 34 00 41 0C FA 00 46 31 B2 AB 28 46 31 |.104.A...F1..(F1|
00000420: AA 31 29 AC 28 46 31 B3 31 35 29 3A 97 35 33 32 |.1).(F1.15):.532|
00000430: 38 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 3A |81,F1:.53280,F1:|
00000440: 8E 00 6A 0C 04 01 46 33 B2 AB 28 46 33 AA 31 29 |..j...F3..(F3.1)|
00000450: AC 28 46 33 B3 31 35 29 3A 54 43 24 B2 46 33 24 |.(F3.15):TC$.F3$|
00000460: 28 46 33 29 3A 99 54 43 24 3B 00 A5 0C 05 01 48 |(F3):.TC$;.....H|
00000470: 44 24 B2 53 30 24 AA 43 52 24 AA 56 43 24 AA 4D |D$.S0$.CR$.VC$.M|
00000480: 48 24 AA 22 44 45 56 49 43 45 20 22 AA CA 28 C4 |H$."DEVICE "..(.|
00000490: 28 44 56 29 2C 32 29 AA 54 43 24 AA 43 52 24 AA |(DV),2).TC$.CR$.|
000004A0: 53 30 24 3A 8E 00 C8 0C 0E 01 46 35 B2 AB 28 46 |S0$:......F5..(F|
000004B0: 35 AA 31 29 AC 28 46 35 B3 31 35 29 3A 56 43 24 |5.1).(F5.15):VC$|
000004C0: B2 46 35 24 28 46 35 29 00 D1 0C 0F 01 89 32 36 |.F5$(F5)......26|
000004D0: 31 00 DC 0C 2C 01 8F 20 20 47 45 54 00 E7 0C 2D |1...,.. GET...-|
000004E0: 01 8F 22 20 B8 B8 B8 00 06 0D 31 01 99 56 43 24 |.." ......1..VC$|
000004F0: 22 11 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |"......... TO CO|
00000500: 4E 54 22 54 43 24 00 1C 0D 36 01 A1 49 4E 24 3A |NT"TC$...6..IN$:|
00000510: 8B 49 4E 24 B3 B1 22 22 A7 33 31 30 00 31 0D 40 |.IN$.."".310.1.@|
00000520: 01 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 A7 33 32 |..IN$:.IN$."".32|
00000530: 30 00 43 0D 4A 01 8B 49 4E 24 B2 22 85 22 A7 8D |0.C.J..IN$."."..|
00000540: 32 35 30 00 55 0D 4B 01 8B 49 4E 24 B2 22 86 22 |250.U.K..IN$."."|
00000550: A7 8D 32 36 30 00 67 0D 4C 01 8B 49 4E 24 B2 22 |..260.g.L..IN$."|
00000560: 87 22 A7 8D 32 37 30 00 7E 0D 54 01 49 4E B2 C5 |."..270.~.T.IN..|
00000570: 28 49 4E 24 29 3A 8D 35 39 31 30 30 3A 8E 00 9D |(IN$):.59100:...|
00000580: 0D E8 03 8F 20 4C 4F 41 44 20 42 4C 4F 43 4B 20 |.... LOAD BLOCK |
00000590: 49 4E 54 4F 20 43 4F 4D 50 55 54 45 52 00 BC 0D |INTO COMPUTER...|
000005A0: E9 03 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
000005B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 C5 0D ED |................|
000005C0: 03 59 39 B2 30 00 FD 0D F2 03 A0 33 3A A0 31 35 |.Y9.0......3:.15|
000005D0: 3A 9F 31 35 2C 44 56 2C 31 35 3A 9F 33 2C 44 56 |:.15,DV,15:.3,DV|
000005E0: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
000005F0: 4E B2 C6 28 42 4E 24 29 3A 44 43 B2 33 00 0E 0E |N..(BN$):DC.3...|
00000600: F7 03 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 00 26 |..BN$..(BN$,2).&|
00000610: 0E FC 03 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
00000620: 31 3A 99 22 93 22 00 3B 0E 06 04 81 4B B2 30 A4 |1:.".".;....K.0.|
00000630: 31 30 3A 98 33 2C 4B 24 3B 3A 82 00 4F 0E 10 04 |10:.3,K$;:..O...|
00000640: 99 22 93 11 11 11 11 11 11 11 11 22 53 30 24 00 |."........."S0$.|
00000650: 75 0E 15 04 8B 59 39 A7 99 22 12 D4 D2 C1 C3 CB |u....Y9.."......|
00000660: 2C D3 C5 C3 D4 CF D2 92 20 22 54 22 2C 22 53 3A |,....... "T","S:|
00000670: 89 31 30 36 30 00 96 0E 1A 04 85 22 12 D4 D2 C1 |.1060......"....|
00000680: C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D |..,....... ...|
00000690: 9D 22 3B 54 2C 53 00 AE 0E 24 04 98 31 35 2C 22 |.";T,S...$..15,"|
000006A0: 42 2D 52 22 3B 44 43 3B 44 52 3B 54 3B 53 00 C1 |B-R";DC;DR;T;S..|
000006B0: 0E 2E 04 98 31 35 2C 22 42 2D 50 22 3B 44 43 3B |....15,"B-P";DC;|
000006C0: 30 00 DA 0E 38 04 A1 23 33 2C 5A 24 3A 8B 5A 24 |0...8..#3,Z$:.Z$|
000006D0: B2 22 22 A7 5A 24 B2 43 5A 24 00 EF 0E 42 04 43 |."".Z$.CZ$...B.C|
000006E0: 28 30 29 B2 C6 28 5A 24 29 3A 8D 31 32 30 30 00 |(0)..(Z$):.1200.|
000006F0: 23 0F 60 04 99 56 43 24 22 13 12 D2 C5 D4 D5 D2 |#.`..VC$".......|
00000700: CE 20 54 4F 20 54 45 52 4D 49 4E 41 54 45 22 54 |. TO TERMINATE"T|
00000710: 43 24 3A 99 C4 28 43 28 30 29 29 C4 28 43 28 31 |C$:..(C(0)).(C(1|
00000720: 29 29 3B 00 43 0F 6A 04 4A B2 32 3A 81 49 B2 32 |));.C.j.J.2:.I.2|
00000730: A4 32 35 35 3A 98 31 35 2C 22 42 2D 50 22 3B 44 |.255:.15,"B-P";D|
00000740: 43 3B 49 00 5C 0F 74 04 A1 23 33 2C 42 24 3A 8B |C;I.\.t..#3,B$:.|
00000750: 42 24 B2 22 22 A7 42 24 B2 43 5A 24 00 6B 0F 7E |B$."".B$.CZ$.k.~|
00000760: 04 43 28 49 29 B2 C6 28 42 24 29 00 83 0F 88 04 |.C(I)..(B$).....|
00000770: 97 42 53 AA 4A 2C 43 28 49 29 3A 97 4E 4E AA 4A |.BS.J,C(I):.NN.J|
00000780: 2C 46 33 00 99 0F 92 04 A1 41 24 3A 8B 41 24 B3 |,F3......A$:.A$.|
00000790: B1 22 22 A7 8D 31 31 39 35 00 A5 0F 9C 04 4A B2 |.""..1195.....J.|
000007A0: 4A AA 31 3A 82 00 BA 0F A6 04 A0 33 3A A0 31 35 |J.1:.......3:.15|
000007B0: 3A 99 42 42 24 3A 8D 33 30 30 00 CD 0F A7 04 59 |:.BB$:.300.....Y|
000007C0: 39 B2 30 3A 8B 43 28 30 29 B2 30 A7 8E 00 07 10 |9.0:.C(0).0.....|
000007D0: A8 04 85 22 93 11 11 11 11 CC 4F 41 44 20 CE C5 |..."......OAD ..|
000007E0: D8 D4 20 54 52 41 43 4B 2F 53 45 43 54 4F 52 20 |.. TRACK/SECTOR |
000007F0: 20 20 4E 9D 9D 9D 22 3B 49 4E 24 3A 8B 49 4E 24 | N...";IN$:.IN$|
00000800: B3 B1 22 59 22 A7 8E 00 24 10 A9 04 54 B2 43 28 |.."Y"...$...T.C(|
00000810: 30 29 3A 53 B2 43 28 31 29 3A 59 39 B2 31 3A 89 |0):S.C(1):Y9.1:.|
00000820: 31 30 31 30 00 66 10 AB 04 99 56 43 24 22 13 11 |1010.f....VC$"..|
00000830: 11 11 11 11 11 11 11 11 11 11 11 11 11 12 C2 CC |................|
00000840: CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 C2 C5 C5 CE |... ... ... ....|
00000850: 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 CC CF C1 C4 | .......... ....|
00000860: C5 C4 22 54 43 24 00 A0 10 AC 04 85 22 2E 2E 57 |.."TC$......"..W|
00000870: 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |ANT TO CONTINUE |
00000880: 4C 4F 41 44 49 4E 47 20 20 20 4E 9D 9D 9D 22 3B |LOADING N...";|
00000890: 4E 24 3A 8B 4E 24 B2 22 4E 22 A7 49 B2 32 35 36 |N$:.N$."N".I.256|
000008A0: 00 DF 10 AD 04 99 22 13 11 11 11 11 11 11 11 11 |......".........|
000008B0: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 22 54 43 24 00 | "TC$.|
000008E0: 0A 11 AE 04 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 22 3A 8E 00 1A 11 B0 04 8F | ":.......|
00000910: 20 43 28 30 29 2F 43 28 31 29 00 2A 11 B1 04 8F | C(0)/C(1).*....|
00000920: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 41 11 BA 04 99 |"..........A....|
00000930: 53 44 24 3A 98 31 35 2C 22 42 2D 50 22 3B 33 3B |SD$:.15,"B-P";3;|
00000940: 31 00 5A 11 C4 04 A1 23 33 2C 42 24 3A 8B 42 24 |1.Z....#3,B$:.B$|
00000950: B2 22 22 A7 42 24 B2 43 5A 24 00 69 11 CE 04 43 |."".B$.CZ$.i...C|
00000960: 28 31 29 B2 C6 28 42 24 29 00 8A 11 D8 04 8B 43 |(1)..(B$)......C|
00000970: 28 30 29 B2 30 A7 99 53 44 24 3A 99 22 CC 41 53 |(0).0..SD$:.".AS|
00000980: 54 20 D4 52 41 43 4B 22 3A 8E 00 BA 11 E2 04 99 |T .RACK":.......|
00000990: 53 44 24 3A 99 22 CE 45 58 54 20 D4 52 41 43 4B |SD$:.".EXT .RACK|
000009A0: 3D 22 43 28 30 29 3A 99 22 CE 45 58 54 20 D3 45 |="C(0):.".EXT .E|
000009B0: 43 54 4F 52 3D 22 43 28 31 29 00 D0 11 EC 04 4E |CTOR="C(1).....N|
000009C0: 54 B2 43 28 30 29 3A 4E 53 B2 43 28 31 29 3A 8E |T.C(0):NS.C(1):.|
000009D0: 00 E2 11 D0 07 8F 20 50 52 49 4E 54 20 41 53 43 |...... PRINT ASC|
000009E0: 49 49 00 F4 11 D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 |II......".......|
000009F0: B8 B8 B8 B8 00 0E 12 D2 07 49 4A B2 30 3A 49 49 |.........IJ.0:II|
00000A00: B2 32 35 35 3A 99 22 93 22 3A 48 58 B2 30 00 41 |.255:.".":HX.0.A|
00000A10: 12 D3 07 99 22 93 11 11 12 30 92 3A C4 C5 C3 C9 |...."....0.:....|
00000A20: CD C1 CC 22 3A 99 22 11 11 12 31 92 3A C8 C5 D8 |...":."...1.:...|
00000A30: 22 3A 85 22 11 11 20 20 20 30 9D 9D 9D 22 3B 49 |":.".. 0...";I|
00000A40: 4E 00 56 12 D4 07 99 22 93 22 3A 8B 20 49 4E 20 |N.V....".":. IN |
00000A50: A7 20 48 58 B2 31 00 99 12 D5 07 99 56 43 24 22 |. HX.1......VC$"|
00000A60: 13 12 D2 C5 D4 D5 D2 CE 92 3D 51 55 49 54 3A 12 |.........=QUIT:.|
00000A70: D3 D0 C1 C3 C5 92 3D 50 41 55 53 45 3A 20 20 22 |......=PAUSE: "|
00000A80: 48 24 28 48 58 29 3B 54 43 24 3A 99 53 30 24 3A |H$(HX);TC$:.S0$:|
00000A90: 45 45 24 B2 22 92 20 12 22 00 BC 12 D6 07 5A 31 |EE$.". .".....Z1|
00000AA0: B2 33 32 3A 5A 32 B2 32 32 33 3A 5A 33 B2 31 32 |.32:Z2.223:Z3.12|
00000AB0: 37 3A 5A 34 B2 31 36 30 3A 50 B2 30 00 F1 12 D7 |7:Z4.160:P.0....|
00000AC0: 07 59 30 24 B2 22 12 22 AA 54 43 24 AA 43 4C 24 |.Y0$.".".TC$.CL$|
00000AD0: 3A 59 31 24 B2 56 43 24 AA 22 91 12 22 3A 59 32 |:Y1$.VC$."..":Y2|
00000AE0: 24 B2 22 92 3A 2D 3E 22 AA 54 43 24 3A 43 39 B2 |$.".:->".TC$:C9.|
00000AF0: 31 00 21 13 DA 07 81 49 B2 30 A4 49 49 A9 38 3A |1.!....I.0.II.8:|
00000B00: 59 24 B2 59 31 24 AA C9 28 22 20 20 22 AA C4 28 |Y$.Y1$..(" "..(|
00000B10: 49 29 2C 33 29 AA 59 32 24 3A 45 30 24 B2 45 45 |I),3).Y2$:E0$.EE|
00000B20: 24 00 4A 13 DC 07 99 59 30 24 3A 99 59 24 3B 3A |$.J....Y0$:.Y$;:|
00000B30: 81 4A B2 30 A4 37 3A 48 B2 49 AA 4A 3A 43 35 B2 |.J.0.7:H.I.J:C5.|
00000B40: 43 28 48 29 3A 43 36 B2 43 35 00 71 13 DD 07 8B |C(H):C6.C5.q....|
00000B50: 28 43 35 B3 5A 31 B0 43 35 B1 5A 32 29 B0 28 43 |(C5.Z1.C5.Z2).(C|
00000B60: 35 B1 5A 33 AF 43 35 B3 5A 34 29 A7 43 36 B2 33 |5.Z3.C5.Z4).C6.3|
00000B70: 32 00 83 13 DE 07 45 30 24 B2 45 30 24 AA C7 28 |2.....E0$.E0$..(|
00000B80: 43 36 29 00 BD 13 DF 07 45 24 B2 C9 28 22 20 20 |C6).....E$..(" |
00000B90: 20 22 AA C4 28 43 35 29 2C 33 29 3A 8B 20 48 58 | "..(C5),3):. HX|
00000BA0: 20 A7 20 4D 24 B2 22 22 3A 4D B2 43 35 3A 8D 39 | . M$."":M.C5:.9|
00000BB0: 35 30 35 3A 45 24 B2 22 20 22 AA 4D 24 00 DA 13 |505:E$." ".M$...|
00000BC0: E4 07 99 52 24 28 50 29 45 24 52 24 28 31 AB 50 |...R$(P)E$R$(1.P|
00000BD0: 29 3B 3A 50 B2 31 AB 50 3A 82 00 EE 13 E5 07 A1 |);:P.1.P:.......|
00000BE0: 41 24 3A 8B 41 24 B2 22 22 89 32 30 33 30 00 07 |A$:.A$."".2030..|
00000BF0: 14 E9 07 8B 41 24 B2 C7 28 31 33 29 A7 49 49 B2 |....A$..(13).II.|
00000C00: 49 3A 49 B2 32 35 35 00 20 14 EA 07 8B 41 24 B2 |I:I.255. ....A$.|
00000C10: C7 28 33 32 29 A7 8D 33 31 30 3A 89 32 30 32 31 |.(32)..310:.2021|
00000C20: 00 3F 14 EE 07 99 45 30 24 3A 82 3A 99 43 4C 24 |.?....E0$:.:.CL$|
00000C30: 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 43 4C 24 00 |:.CL$:.CL$:.CL$.|
00000C40: 74 14 EF 07 99 22 91 91 91 91 22 53 30 24 3A 99 |t...."...."S0$:.|
00000C50: 56 43 24 22 C3 D5 D2 D2 C5 CE D4 20 D4 D2 C1 C3 |VC$"....... ....|
00000C60: CB 2C D3 C5 C3 D4 CF D2 3D 22 54 22 2C 22 3B 53 |.,......="T",";S|
00000C70: 3B 54 43 24 00 95 14 F3 07 99 22 4E 45 58 54 20 |;TC$......"NEXT |
00000C80: 54 52 41 43 4B 2C 53 45 43 54 4F 52 3D 22 4E 54 |TRACK,SECTOR="NT|
00000C90: 22 2C 22 4E 53 00 A4 14 F8 07 8B 49 4A B2 30 A7 |","NS......IJ.0.|
00000CA0: 8D 33 30 30 00 AA 14 02 08 8E 00 BD 14 B8 0B 8F |.300............|
00000CB0: 20 4D 4F 44 49 46 59 20 42 4C 4F 43 4B 00 D0 14 | MODIFY BLOCK...|
00000CC0: B9 0B 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |..."............|
00000CD0: 00 FB 14 F4 0B 99 22 93 D4 48 45 20 C1 D3 C3 C9 |......"..HE ....|
00000CE0: C9 20 43 4F 44 45 20 46 4F 52 20 45 41 43 48 20 |. CODE FOR EACH |
00000CF0: 42 4C 4F 43 4B 2D 42 59 54 45 22 00 2A 15 FE 0B |BLOCK-BYTE".*...|
00000D00: 99 22 11 57 49 4C 4C 20 42 45 20 44 49 53 50 4C |.".WILL BE DISPL|
00000D10: 41 59 45 44 2E 2E 49 2E 45 2E 20 43 28 30 29 2E |AYED..I.E. C(0).|
00000D20: 2E 2E 43 28 32 35 35 29 2E 22 00 5A 15 08 0C 99 |..C(255).".Z....|
00000D30: 22 11 D9 4F 55 20 4D 41 59 20 52 45 44 45 46 49 |"..OU MAY REDEFI|
00000D40: 4E 45 20 41 4E 59 20 43 28 49 29 2E 20 D4 48 45 |NE ANY C(I). .HE|
00000D50: 20 4D 4F 44 49 46 49 45 44 22 00 84 15 12 0C 99 | MODIFIED"......|
00000D60: 22 11 42 4C 4F 43 4B 20 57 49 4C 4C 20 42 45 20 |".BLOCK WILL BE |
00000D70: 57 52 49 54 54 45 4E 20 54 4F 20 54 48 45 20 44 |WRITTEN TO THE D|
00000D80: 49 53 4B 22 00 AE 15 1C 0C 99 22 11 49 4E 54 4F |ISK"......".INTO|
00000D90: 20 54 48 45 20 D4 52 41 43 4B 2C D3 45 43 54 4F | THE .RACK,.ECTO|
00000DA0: 52 20 59 4F 55 20 53 45 4C 45 43 54 2E 22 00 DC |R YOU SELECT."..|
00000DB0: 15 1D 0C 99 22 11 D4 4F 20 45 4E 54 45 52 20 41 |...."..O ENTER A|
00000DC0: 20 D3 D4 D2 C9 CE C7 2C 20 53 45 4C 45 43 54 20 | ......, SELECT |
00000DD0: 54 48 45 20 49 20 57 48 49 43 48 22 00 05 16 1E |THE I WHICH"....|
00000DE0: 0C 99 22 11 42 45 47 49 4E 53 20 54 48 45 20 D3 |..".BEGINS THE .|
00000DF0: D4 D2 C9 CE C7 20 41 4E 44 20 57 48 45 4E 20 41 |..... AND WHEN A|
00000E00: 53 4B 45 44 22 00 2A 16 1F 0C 99 22 11 46 4F 52 |SKED".*....".FOR|
00000E10: 20 54 48 45 20 56 41 4C 55 45 20 4F 46 20 49 2C | THE VALUE OF I,|
00000E20: 20 45 4E 54 45 52 20 49 2A 22 00 57 16 20 0C 99 | ENTER I*".W. ..|
00000E30: 22 11 45 58 41 4D 50 4C 45 3A 20 54 4F 20 4D 4F |".EXAMPLE: TO MO|
00000E40: 44 49 46 59 20 42 59 54 45 53 20 53 54 41 52 54 |DIFY BYTES START|
00000E50: 49 4E 47 20 41 54 22 00 70 16 21 0C 99 22 11 20 |ING AT".p.!..". |
00000E60: 49 3D 31 32 2C 20 45 4E 54 45 52 20 31 32 2A 22 |I=12, ENTER 12*"|
00000E70: 00 9F 16 26 0C 99 22 11 12 C2 C5 20 D3 D5 D2 C5 |...&..".... ....|
00000E80: 20 C1 20 C3 CF CD D0 CC C5 D4 C5 20 C2 CC CF C3 | . ........ ....|
00000E90: CB 20 D7 C1 D3 20 CC CF C1 C4 C5 C4 21 21 22 00 |. ... ......!!".|
00000EA0: BB 16 30 0C 8D 33 30 30 3A 99 22 93 22 3A 49 49 |..0..300:.".":II|
00000EB0: B2 32 35 35 AB 38 3A 49 4A B2 31 00 CA 16 3A 0C |.255.8:IJ.1...:.|
00000EC0: 99 22 13 22 3A 8D 32 30 30 35 00 F2 16 44 0C 99 |.".":.2005...D..|
00000ED0: 56 43 24 22 3E 3E 3E 12 D2 C5 D4 D5 D2 CE 20 54 |VC$">>>....... T|
00000EE0: 4F 20 51 55 49 54 92 3C 3C 3C 22 54 43 24 3A A1 |O QUIT.<<<"TC$:.|
00000EF0: 49 24 00 2F 17 4E 0C 85 22 12 D7 C8 C9 C3 C8 20 |I$./.N.."...... |
00000F00: 49 20 C4 CF A0 D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF |I ..............|
00000F10: A0 CD CF C4 C9 C6 D9 92 20 20 20 20 20 9D 9D A6 |........ ...|
00000F20: 9D 9D 9D 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 |...";I$:I..(I$).|
00000F30: 40 17 58 0C 8B 49 24 B2 22 A6 22 89 33 31 37 33 |@.X..I$.".".3173|
00000F40: 00 5E 17 5D 0C 8B C9 28 49 24 2C 31 29 B2 22 2A |.^.]...(I$,1)."*|
00000F50: 22 A7 8D 36 31 30 30 30 3A 89 33 31 37 33 00 A2 |"..61000:.3173..|
00000F60: 17 62 0C 99 22 43 55 52 52 45 4E 54 20 43 28 22 |.b.."CURRENT C("|
00000F70: 49 22 29 3D 20 20 20 20 20 A0 9D 9D 9D 9D 9D 22 |I")= ......"|
00000F80: 43 28 49 29 22 20 4E 45 57 20 56 41 4C 55 45 3D |C(I)" NEW VALUE=|
00000F90: 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 3A 85 43 28 | .....";:.C(|
00000FA0: 49 29 00 B1 17 63 0C 8B 49 B1 49 49 A7 49 49 B2 |I)...c..I.II.II.|
00000FB0: 49 00 BB 17 64 0C 89 33 31 35 30 00 E1 17 65 0C |I...d..3150...e.|
00000FC0: 99 22 93 22 3A 8D 32 30 30 35 3A 99 22 20 20 20 |.".":.2005:." |
00000FD0: 20 20 20 20 20 3E 3E 3E 12 4F 4B 92 3F 20 20 22 | >>>.OK.? "|
00000FE0: 3B 00 FB 17 66 0C 8D 33 31 30 3A 8B 49 4E 24 B2 |;...f..310:.IN$.|
00000FF0: 22 4E 22 A7 99 3A 89 33 31 35 30 00 1F 18 67 0C |"N"..:.3150...g.|
00001000: 85 22 93 12 52 45 54 55 52 4E 20 54 4F 20 4D 45 |."..RETURN TO ME|
00001010: 4E 55 92 20 20 20 4E 9D 9D 9D 22 3B 49 4E 24 00 |NU. N...";IN$.|
00001020: 2E 18 68 0C 8B 49 4E 24 B2 22 59 22 A7 8E 00 58 |..h..IN$."Y"...X|
00001030: 18 69 0C 99 56 43 24 22 93 C3 D5 D2 D2 C5 CE D4 |.i..VC$"........|
00001040: 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 3D 22 54 | .....,......="T|
00001050: 22 2C 22 53 3B 54 43 24 00 79 18 6A 0C 99 22 4E |","S;TC$.y.j.."N|
00001060: 45 58 54 20 54 52 41 43 4B 2C 53 45 43 54 4F 52 |EXT TRACK,SECTOR|
00001070: 3D 22 4E 54 22 2C 22 4E 53 00 A6 18 6C 0C 99 22 |="NT","NS...l.."|
00001080: 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 |.............. .|
00001090: D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 22 |....,....... "|
000010A0: 3B 54 22 2C 22 53 00 CF 18 6D 0C 85 22 91 12 C4 |;T","S...m.."...|
000010B0: C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB |.......... .....|
000010C0: 2C D3 C5 C3 D4 CF D2 92 1D 1D 22 3B 54 2C 53 00 |,.........";T,S.|
000010D0: F3 18 76 0C 99 22 11 11 11 12 C4 C5 D3 D4 C9 CE |..v.."..........|
000010E0: C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 A0 A0 A0 22 |..... ........."|
000010F0: 3B 44 52 00 37 19 77 0C 85 22 91 12 C4 C5 D3 D4 |;DR.7.w.."......|
00001100: C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 92 1D 1D |....... ........|
00001110: 22 3B 44 52 24 3A 44 52 B2 C5 28 44 52 24 29 3A |";DR$:DR..(DR$):|
00001120: 8B 44 52 24 B3 B1 22 30 22 AF 44 52 24 B3 B1 22 |.DR$.."0".DR$.."|
00001130: 31 22 A7 33 31 39 30 00 4C 19 80 0C A0 33 3A A0 |1".3190.L....3:.|
00001140: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 63 19 8A |15:.15,DV,15.c..|
00001150: 0C 9F 33 2C 44 56 2C 33 2C 22 23 22 3A 8D 36 33 |..3,DV,3,"#":.63|
00001160: 39 30 30 00 98 19 8F 0C A1 23 33 2C 42 4E 24 3A |900......#3,BN$:|
00001170: 42 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 |BN..(BN$):."."SD|
00001180: 24 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 |$"....FILLING ..|
00001190: C6 C6 C5 D2 23 22 42 4E 00 A5 19 99 0C 81 49 B2 |....#"BN......I.|
000011A0: 30 A4 32 35 35 00 D1 19 9E 0C 98 31 35 2C 22 42 |0.255......15,"B|
000011B0: 2D 50 22 2C 33 2C 49 3A 98 33 2C C7 28 43 28 49 |-P",3,I:.3,.(C(I|
000011C0: 29 29 3B 3A 99 22 13 20 20 20 9D 9D 9D 22 49 3A |));:.". ..."I:|
000011D0: 82 00 E8 19 D0 0C 98 31 35 2C 22 55 32 3A 22 3B |.......15,"U2:";|
000011E0: 33 3B 44 52 3B 54 3B 53 00 0D 1A DA 0C 98 31 35 |3;DR;T;S......15|
000011F0: 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A |,"I".DR$:.63900:|
00001200: A0 33 3A A0 31 35 3A 99 22 93 22 3A 8E 00 25 1A |.3:.15:.".":..%.|
00001210: A0 0F 8F 20 53 54 4F 52 45 20 43 28 49 29 20 49 |... STORE C(I) I|
00001220: 4E 20 52 41 4D 00 3D 1A A1 0F 8F 22 B8 B8 B8 B8 |N RAM.=...."....|
00001230: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 57 1A |..............W.|
00001240: A2 0F 49 4A B2 30 3A 49 49 B2 32 35 35 3A 99 22 |..IJ.0:II.255:."|
00001250: 93 22 3A 48 58 B2 30 00 67 1A A5 0F 99 22 93 22 |.":HX.0.g...."."|
00001260: 3B 3A 8D 32 30 30 35 00 8E 1A 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: 1A 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 1A 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 1B 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 1B 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 1B DC 0F 8D 33 30 30 3A 99 22 93 22 3B 3A |.Q....300:.".";:|
00001350: 8E 00 69 1B 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 1B 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 1B 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 1B 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 1B 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 1C 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 1C 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 1C 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 1C 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 1C 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 1D 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 1D 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 1D 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 1D 70 |3:.15:.".":..F.p|
00001540: 17 8F 20 42 41 4D 00 50 1D 7A 17 8F 22 B8 B8 B8 |.. BAM.P.z.."...|
00001550: 00 78 1D 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 1D 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 1D 8E 17 A0 31 35 3A 8D 35 38 30 31 |I)......15:.5801|
000015A0: 30 00 BB 1D 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 1D 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 1D 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 1E 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 1E 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 1E CA 17 89 36 30 |100,6280.2....60|
00001630: 30 30 00 5E 1E 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: 1E D4 17 8F 20 44 49 53 50 4C 41 59 20 42 41 4D |.... DISPLAY BAM|
00001670: 00 82 1E DE 17 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |......".........|
00001680: A3 A3 00 A7 1E 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 1E 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: 1E 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 1F |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 1F 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 1F 24 18 46 46 B2 44 31 AA |63900.9.$.FF.D1.|
00001730: 28 54 53 AB 31 29 AC 53 33 00 4E 1F 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: 1F 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 1F 42 18 8D 36 34 30 30 00 92 1F 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 1F 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 1F 60 |.6870:.310:....`|
000017B0: 18 8F 20 43 48 41 4E 47 45 20 42 41 4D 00 CE 1F |.. CHANGE BAM...|
000017C0: 6A 18 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 ED |j.."............|
000017D0: 1F 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 1F |ES Y...";I$...|
000017F0: 7E 18 8B 49 24 B3 B1 22 59 22 A7 8E 00 39 20 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 20 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 20 92 18 A0 31 35 3A 9F 31 35 2C 44 56 2C |.b ...15:.15,DV,|
00001860: 31 35 00 7C 20 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 20 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 20 B0 18 98 31 35 2C 22 42 2D |DI;0.. ...15,"B-|
000018A0: 50 22 3B 32 3B 54 AC 34 00 D8 20 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 21 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 21 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 21 D8 18 A0 32 3A A0 |T).6260.G!...2:.|
00001940: 31 35 3A 99 53 44 24 00 76 21 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 21 EC 18 8B 49 4E 24 B2 |0:.CL$..!...IN$.|
00001980: 22 59 22 A7 8D 36 37 33 30 00 98 21 F1 18 99 4D |"Y"..6730..!...M|
00001990: 44 24 43 4C 24 53 44 24 00 A8 21 F6 18 8D 36 34 |D$CL$SD$..!...64|
000019A0: 38 30 3A 89 36 33 34 30 00 BB 21 00 19 81 4B B2 |80:.6340..!...K.|
000019B0: 30 A4 53 32 3A A1 23 32 2C 41 24 00 CD 21 0A 19 |0.S2:.#2,A$..!..|
000019C0: 8B 41 24 B2 22 22 A7 41 24 B2 43 5A 24 00 DE 21 |.A$."".A$.CZ$..!|
000019D0: 14 19 42 28 4B 29 B2 C6 28 41 24 29 3A 82 00 F0 |..B(K)..(A$):...|
000019E0: 21 50 19 8F 20 50 52 49 4E 54 20 54 52 41 43 4B |!P.. PRINT TRACK|
000019F0: 00 02 22 5A 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.."Z..".........|
00001A00: A3 A3 00 15 22 64 19 81 4B B2 31 A4 53 31 3A 5A |...."d..K.1.S1:Z|
00001A10: B2 42 28 4B 29 00 20 22 6E 19 81 49 B2 30 A4 37 |.B(K). "n..I.0.7|
00001A20: 00 37 22 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 22 82 19 82 4B 00 5B |(X);:.I.>"...K.[|
00001A40: 22 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 22 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 22 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 22 B4 19 99 C8 |E="B(0):..."....|
00001AA0: 28 53 31 24 2C 53 43 28 54 29 29 00 D2 22 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 22 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 23 CD 19 99 C8 28 53 33 |:.6610..#....(S3|
00001B00: 24 2C 53 43 28 54 29 29 00 13 23 D2 19 99 53 30 |$,SC(T))..#...S0|
00001B10: 24 3A 8E 00 27 23 DC 19 8F 20 43 48 41 4E 47 45 |$:..'#... CHANGE|
00001B20: 20 53 45 43 54 4F 52 00 3B 23 E6 19 8F 22 A3 A3 | SECTOR.;#..."..|
00001B30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 56 23 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 23 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 23 04 1A 5A B2 42 28 33 29 3A |6670..#..Z.B(3):|
00001B80: 53 53 B2 53 AB 31 36 00 A4 23 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 23 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 23 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 23 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 23 36 1A 42 28 33 29 B2 4E 5A 00 01 24 40 1A |.#6.B(3).NZ..$@.|
00001C00: 8E 00 0F 24 4A 1A 9F 31 35 2C 44 56 2C 31 35 00 |...$J..15,DV,15.|
00001C10: 47 24 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 24 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 24 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 24 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: 24 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 24 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 24 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 25 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 25 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 25 FE 1A |TO EXIT"TC$.V%..|
00001D50: 8D 33 31 30 3A 8E 00 6A 25 58 1B 8F 20 44 49 53 |.310:..j%X.. DIS|
00001D60: 4B 20 43 4F 4D 4D 41 4E 44 53 00 7E 25 59 1B 8F |K COMMANDS.~%Y..|
00001D70: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B6 |"...............|
00001D80: 25 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 25 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 26 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: 26 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 26 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 26 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 26 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 26 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 26 63 1B 8D 33 31 30 3A |IT"TC$..&c..310:|
00001EF0: 8B 49 4E 24 B2 43 52 24 A7 8E 00 04 27 64 1B 99 |.IN$.CR$....'d..|
00001F00: 22 13 11 22 00 34 27 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 27 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: 27 68 1B 89 37 30 30 30 00 97 27 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 27 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 27 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 28 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 28 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 28 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 28 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 28 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 29 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 29 83 1B 8D 32 36 31 |*****.".()...261|
00002120: 3A 8D 38 30 34 30 3A 8E 00 3B 29 BC 1B 8F 20 54 |:.8040:..;)... T|
00002130: 52 41 43 45 20 42 4C 4F 43 4B 53 00 4E 29 BD 1B |RACE BLOCKS.N)..|
00002140: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 92 |."..............|
00002150: 29 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 29 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 29 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 2A 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 2A 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 2A 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 2A 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 2A 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 2A | 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 2A 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 2B 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 2B 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 2B 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: 2B 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 2B DA 1B 98 31 35 2C |R;T8;S8..+...15,|
000023B0: 22 42 2D 50 22 3B 33 3B 30 00 D2 2B 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 2B 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 2C 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 2C 02 1C 53 38 B2 C6 28 5A 24 29 |CZ$..,..S8..(Z$)|
00002410: 00 32 2C 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 2C 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 2C 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 2C 1B 1C 99 3A |$."".7120..,...:|
00002480: 89 37 32 31 30 00 A8 2C 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 2C 2A 1C 8D 33 30 |BLOCKS."..,*..30|
000024B0: 30 3A 98 34 3A A0 34 3A 89 37 31 30 30 00 F6 2C |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 2D 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 2D 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 2D 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 2D 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 2D 91 1C 8D 37 34 30 30 3A 8E 00 C7 2D 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 2D 98 1C A0 31 35 3A |(D9.64)..-...15:|
000025D0: 44 56 B2 44 39 3A 8D 32 36 31 3A 8E 00 11 2E 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 2E B1 1C 8E 00 45 2E 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 2E 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 2E 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: 2E 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 2E 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 2E 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 2F BC 1C 8D 33 31 30 3A 8B |IT.."../...310:.|
00002700: 49 4E 24 B2 43 52 24 A7 8E 00 13 2F BD 1C 89 37 |IN$.CR$..../...7|
00002710: 39 30 30 00 50 2F 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 2F 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 2F FC 1C 8E 00 7D 2F |Y".7900.m/....}/|
00002770: 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 8D 2F |L.. UNSCRATCH../|
00002780: 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B7 2F |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 2F 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 30 57 1D 99 22 11 12 |OWING:"..0W.."..|
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 30 58 1D 99 22 20 20 57 |UNTIL".00X.." 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 30 59 1D 99 22 11 12 32 92 3A D4 52 41 43 |.Y0Y.."..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 30 5A 1D 99 22 | COMPARE"..0Z.."|
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 30 5B 1D 99 22 20 20 C4 49 52 45 43 54 4F 52 |.0[.." .IRECTOR|
00002890: 59 20 C2 4C 4F 43 4B 20 C3 4F 55 4E 54 2E 22 00 |Y .LOCK .OUNT.".|
000028A0: CD 30 5C 1D 99 22 11 12 33 92 3A CC 4F 4F 4B 20 |.0\.."..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 30 |ILABILTY .AP"..0|
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 31 5E 1D 99 22 |RE FREE."..1^.."|
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: 31 5F 1D 99 22 20 20 59 4F 55 20 54 48 45 4E 20 |1_.." 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 31 60 1D 99 22 20 20 41 53 |TORY"._1`.." AS|
00002950: 20 46 4F 4C 4C 4F 57 53 3A 22 3A 8D 33 30 30 00 | FOLLOWS:":.300.|
00002960: 84 31 74 1D 99 22 93 CD 4F 44 49 46 59 20 54 48 |.1t.."..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 31 79 1D 99 22 12 4D 41 47 49 |THE"..1y..".MAGI|
00002990: 43 20 42 59 54 45 22 00 C4 31 7E 1D 99 22 20 20 |C BYTE"..1~.." |
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 31 88 1D 99 22 20 20 54 48 45 |ORE"..1..." 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 31 92 1D 99 22 20 20 31 32 |OWS:"..1..." 12|
000029F0: 39 3D D3 C5 D1 20 46 49 4C 45 22 00 11 32 93 1D |9=... FILE"..2..|
00002A00: 99 22 20 20 31 33 30 3D D0 D2 C7 20 46 49 4C 45 |." 130=... FILE|
00002A10: 22 00 27 32 94 1D 99 22 20 20 31 33 31 3D D5 D3 |".'2..." 131=..|
00002A20: D2 20 46 49 4C 45 22 00 3D 32 95 1D 99 22 20 20 |. FILE".=2..." |
00002A30: 31 33 32 3D D2 C5 CC 20 46 49 4C 45 22 00 6B 32 |132=... FILE".k2|
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 32 A6 1D |FILE '...'"..2..|
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 32 B0 1D 99 22 53 45 |., AND"..2..."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 32 |ODIFY .LOCK."..2|
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 33 C4 1D 99 22 11 2E 2E 20 30 12 20 |:"..3..."... 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 33 CE |. 90....ETC".,3.|
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 33 D8 | ^ ^ ^ ^".L3.|
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 33 E2 |RCK.. . .".w3.|
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 33 EC 1D 8D 33 30 30 |.....)"..3...300|
00002B80: 3A 99 22 91 22 00 B3 33 F6 1D 99 22 11 CD 4F 44 |:."."..3..."..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 33 00 1E 99 22 46 49 4C 45 20 54 |E "..3..."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 34 05 1E 99 |IT READS:"..4...|
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 34 0A 1E 99 22 11 12 34 92 |.ETC".C4..."..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 34 14 1E 99 22 11 12 35 92 3A D6 |K.".t4..."..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 34 1E 1E 99 22 11 12 35 92 3A |SK."..4..."..5.:|
00002C80: D0 52 41 59 2E 2E 22 3A 8D 33 31 30 00 B5 34 C8 |.RAY..":.310..4.|
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 34 D2 1E 89 31 32 30 30 30 |"Y"....4...12000|
00002CC0: 00 EA 34 DC 1E A0 31 35 3A 8D 35 38 30 32 30 3A |..4...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 34 40 1F 8F |.HD$"..":...4@..|
00002CF0: 20 49 4E 49 54 49 41 4C 49 5A 45 00 0C 35 41 1F | INITIALIZE..5A.|
00002D00: 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 42 35 42 |."...........B5B|
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 35 43 1F 81 49 B2 30 A4 31 35 3A 87 |5).f5C..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 35 44 1F 83 22 90 22 2C |$(I):...5D..".",|
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 35 45 1F |".",".","."..5E.|
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 35 46 1F 54 43 24 B2 46 33 24 28 46 33 29 |..5F.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 35 47 1F 86 43 28 32 35 35 29 2C 54 28 |)..5G..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 36 48 1F 83 31 2C 31 |7),B(4)..6H..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 36 49 1F 83 36 35 |,35,16,0.:6I..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 36 4A 1F 83 |17,35,16,0.\6J..|
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 36 4B |4,24,77,22,0..6K|
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 36 4C 1F 41 |4$.S0$.S0$..6L.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: 37 4D 1F 99 CA 28 41 24 2C 49 2C 31 29 3B 3A 81 |7M...(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 37 4E 1F 99 22 11 11 4E 4F 54 45 11 9D 9D |.'7N.."..NOTE...|
00002F20: 9D 9D B8 B8 B8 B8 22 00 56 37 4F 1F 99 22 46 55 |......".V7O.."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 37 50 1F 85 22 11 11 44 |NU...".r7P.."..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 37 51 1F 52 24 28 30 29 B2 22 12 22 |DV..7Q.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 37 52 1F 48 58 24 B2 22 30 31 32 |341..7R.HX$."012|
00002FA0: 33 34 35 36 37 38 39 41 42 43 44 45 46 22 00 DA |3456789ABCDEF"..|
00002FB0: 37 54 1F 53 44 24 B2 22 13 11 11 11 11 11 11 11 |7T.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 38 59 1F 4D |........."..8Y.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 38 5A |13):CZ$..(0)..8Z|
00003010: 1F 8D 35 39 30 30 30 00 3E 38 63 1F 85 22 11 11 |..59000.>8c.."..|
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: 38 68 1F 8D 35 38 30 32 30 3A A0 31 35 3A 9F 31 |8h..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 38 72 1F 4B 24 B2 22 20 |.63900..8r.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 38 7C 1F 8C 3A 81 49 |.... "..8|..:.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 38 7D 1F 9F 33 2C 44 56 2C |:A0.1..8}..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 38 7E 1F A1 23 33 2C 41 24 3A 41 B2 C6 28 |..8~..#3,A$:A..(|
000030D0: 41 24 AA 43 5A 24 29 00 EA 38 7F 1F 87 44 54 3A |A$.CZ$)..8...DT:|
000030E0: 8B 41 B2 44 54 A7 38 30 37 30 00 10 39 80 1F 57 |.A.DT.8070..9..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 39 81 1F A0 33 3A 8D 37 34 30 30 00 54 39 |..9...3:.7400.T9|
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 39 83 1F 54 54 B2 32 30 30 3A |8230.k9..TT.200:|
00003160: 44 49 B2 37 36 3A 89 38 31 31 30 00 82 39 86 1F |DI.76:.8110..9..|
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 39 87 1F 8B 44 54 B2 36 37 A7 4B 4B |43..9...DT.67.KK|
00003190: B2 35 00 9C 39 88 1F 8D 38 32 30 30 00 AF 39 8B |.5..9...8200..9.|
000031A0: 1F 87 41 31 3A 8B 41 31 B2 30 A7 38 30 39 30 00 |..A1:.A1.0.8090.|
000031B0: D8 39 90 1F 87 42 31 3A 81 49 B2 41 30 A4 41 31 |.9...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 39 9A 1F 8B 44 54 |.I:.8075..9...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: 3A 9F 1F 8B 44 54 B2 36 37 A7 44 31 B2 32 35 37 |:...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 3A A0 1F 53 31 B2 53 32 AB 31 3A 53 33 |9.5:..S1.S2.1:S3|
00003230: B2 53 32 AA 31 00 47 3A A4 1F A0 33 3A 8B 54 54 |.S2.1.G:...3:.TT|
00003240: B2 30 A7 38 30 36 35 00 70 3A AE 1F 81 49 B2 30 |.0.8065.p:...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 3A B3 1F 48 24 28 30 29 B2 22 C4 C5 C3 C9 |..:..H$(0)."....|
00003280: CD C1 CC 22 3A 48 24 28 31 29 B2 22 C8 C5 D8 22 |...":H$(1)."..."|
00003290: 00 A8 3A B8 1F 58 24 28 30 29 B2 22 D1 22 3A 58 |..:..X$(0).".":X|
000032A0: 24 28 31 29 B2 22 D7 22 00 C9 3A CC 1F 43 4C 24 |$(1)."."..:..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 3A D6 1F 53 31 |CL$." ":...:..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 3B E0 1F 53 32 24 B2 |.^....".!;..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 3B EA 1F 53 33 24 B2 22 30 20 20 20 20 |".N;..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: 3B 08 20 81 49 B2 33 A4 4B 4B 3A A1 23 33 2C 41 |;. .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 3B 12 20 81 49 |.DR$.". "..;. .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 3B 1C 20 81 49 B2 31 A4 32 3A A1 23 33 2C 41 |.;. .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 3C 1D 20 81 49 B2 31 A4 32 3A A1 23 33 |$..<. .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 3C 21 |:MH$.MH$.".".-<!|
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 3C |SP$.SP$." ":..A<|
00003430: 26 20 8D 32 36 31 3A 99 22 11 11 22 48 44 24 3A |& .261:.".."HD$:|
00003440: 8E 00 53 3C 28 23 8F 20 44 45 43 49 4D 41 4C 5F |..S<(#. DECIMAL_|
00003450: 48 45 58 00 65 3C 29 23 8F 22 A3 A3 A3 A3 A3 A3 |HEX.e<)#."......|
00003460: A3 A3 A3 A3 A3 00 79 3C 2D 23 4D B2 C5 28 4D 24 |......y<-#M..(M$|
00003470: 29 3A 8B 4D B3 B1 30 A7 8E 00 95 3C 32 23 4D 24 |):.M..0....<2#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 3C 3C 23 81 43 4E B2 31 A4 |.(M$)..<<#.CN.1.|
000034A0: 4C 4D 00 CD 3C 46 23 4D 4D 24 B2 CA 28 4D 24 2C |LM..<F#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 3C |MM.H(LM.CN):...<|
000034D0: 50 23 8E 00 E7 3C 8C 23 8B 4D 4D 24 B2 22 30 22 |P#...<.#.MM$."0"|
000034E0: A7 4D 4D B2 30 3A 8E 00 FE 3C 96 23 4D 4D B2 C5 |.MM.0:...<.#MM..|
000034F0: 28 4D 4D 24 29 3A 8B 4D 4D B3 B1 30 A7 8E 00 11 |(MM$):.MM..0....|
00003500: 3D A0 23 4D 4D B2 C6 28 4D 4D 24 29 AB 35 35 3A |=.#MM..(MM$).55:|
00003510: 8E 00 23 3D 1C 25 8F 20 48 45 58 5F 44 45 43 49 |..#=.%. HEX_DECI|
00003520: 4D 41 4C 00 35 3D 1D 25 8F 22 A3 A3 A3 A3 A3 A3 |MAL.5=.%."......|
00003530: A3 A3 A3 A3 A3 00 45 3D 20 25 43 39 B2 33 3A 4D |......E= %C9.3:M|
00003540: 24 B2 22 24 22 00 67 3D 21 25 53 4D B2 4D 3A 81 |$."$".g=!%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 3D 26 25 4D 24 B2 4D |M.H(CN)..=&%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 3D F8 2A 8F 20 |).CM%:.:...=.*. |
000035A0: 44 49 52 45 43 54 4F 52 59 00 E5 3D 02 2B 8D 35 |DIRECTORY..=.+.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 3E 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 3E 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 3E 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 3E 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 3F 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 3F 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 3F 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 3F 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 3F 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 40 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 40 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 40 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 40 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 40 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 40 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 41 7A 2B 53 49 B2 30 3A 81 50 B2 31 A4 38 3A |BAz+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 41 84 2B A1 23 33 2C 41 24 2C 42 24 |Y).rA.+.#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 41 8E 2B 41 34 24 B2 22 28 22 AA C9 |00..A.+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 41 98 2B A1 23 |":.I.1.16..A.+.#|
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: 42 A2 2B 41 39 B2 C6 28 42 24 AA 43 5A 24 29 3A |B.+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 42 AC 2B 8B 41 39 |6:.11190.(B.+.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 42 B6 2B 41 32 24 |).B$."?".]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 42 | ".AF$:.11220..B|
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 42 CA |$.AL$:.11440..B.|
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 42 D4 2B A1 23 33 2C 41 24 2C 41 24 2C 41 24 |.B.+.#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 43 DE 2B A1 23 33 2C 41 24 2C 42 24 |A$.2C.+.#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 43 E8 2B 41 31 24 B2 C9 28 22 20 20 |10.JC.+A1$..(" |
00003B40: 20 22 AA C4 28 43 29 2C 33 29 00 5D 43 F2 2B 8B | "..(C),3).]C.+.|
00003B50: 50 B3 38 A7 A1 23 33 2C 41 24 2C 41 24 00 94 43 |P.8..#3,A$,A$..C|
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 43 06 2C 8B 20 43 20 A7 20 98 |1290..C.,. 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: 43 10 2C A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 50 |C.,.A$:.A$.."".P|
00003BD0: B2 31 30 00 EF 43 15 2C 8B 43 38 30 A7 55 39 B2 |.10..C.,.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 44 1A 2C 82 3A 8B 50 B3 31 30 AF 4B 39 B2 30 |.D.,.:.P.10.K9.0|
00003C00: A7 31 31 31 33 30 00 21 44 24 2C A0 33 3A 8D 31 |.11130.!D$,.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 44 2E 2C A0 34 3A 8D 35 38 30 31 30 3A |$.6D.,.4:.58010:|
00003C30: 8D 33 30 30 3A 8E 00 5C 44 38 2C 41 32 24 B2 52 |.300:..\D8,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 44 42 |P$,17).R2$:..nDB|
00003C60: 2C 8F 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 86 |,. BLOCKS FREE..|
00003C70: 44 4C 2C 9F 31 2C 44 56 2C 30 2C 22 24 22 AA 44 |DL,.1,DV,0,"$".D|
00003C80: 52 24 AA 22 3A 22 00 98 44 56 2C 8D 31 31 33 38 |R$.":"..DV,.1138|
00003C90: 30 3A 98 34 2C 4C 46 24 00 C0 44 60 2C 4C B2 58 |0:.4,LF$..D`,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 44 6A 2C A0 31 3A 8E 00 E3 44 74 2C A1 23 |..Dj,.1:...Dt,.#|
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 44 7E 2C A1 23 31 2C 58 24 3A 8B |,X$..D~,.#1,X$:.|
00003CF0: 58 24 B3 B1 22 22 89 31 31 33 39 30 00 10 45 88 |X$.."".11390..E.|
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 45 92 2C 58 B2 C3 28 58 24 29 3A 8B 58 A7 |.'E.,X..(X$):.X.|
00003D20: 58 B2 C6 28 58 24 29 00 3E 45 9C 2C 59 B2 C3 28 |X..(X$).>E.,Y..(|
00003D30: 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 00 44 |Y$):.Y.Y..(Y$).D|
00003D40: 45 A6 2C 8E 00 89 45 B0 2C 58 B2 C6 28 58 24 AA |E.,...E.,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 45 BA 2C 8E 00 |$,XL.1,1)..E.,..|
00003D90: A7 45 E0 2E 8F 20 55 4E 53 43 52 41 54 43 48 20 |.E... UNSCRATCH |
00003DA0: 52 4F 55 54 49 4E 45 00 BF 45 E1 2E 8F 22 B8 B8 |ROUTINE..E..."..|
00003DB0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00003DC0: CA 45 EA 2E 8D 35 38 30 32 30 00 04 46 F4 2E 99 |.E...58020..F...|
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 46 08 2F 99 22 11 59 4F 55 20 |ED.".?F./.".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 46 1C 2F 99 22 11 11 12 52 45 54 55 52 4E 92 |gF./."...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 46 30 2F A0 33 3A A0 |10:.".".|F0/.3:.|
00003E70: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 00 9D 46 3A |15:.15,DV,15..F:|
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 46 |3,"#0":.63900..F|
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 46 40 2F 99 22 93 4C 4F 4F 4B |;T;S..F@/.".LOOK|
00003EC0: 49 4E 47 20 41 54 3A 22 00 EE 46 41 2F 99 22 11 |ING AT:"..FA/.".|
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: 47 44 2F 81 4A B2 30 A4 32 35 35 3A 98 31 35 2C |GD/.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 47 4E 2F 43 28 4A 29 B2 C6 28 41 24 AA 43 |.%GN/C(J)..(A$.C|
00003F20: 5A 24 29 3A 82 00 4D 47 58 2F 81 44 B2 32 A4 32 |Z$):..MGX/.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 47 |(D.1).0.12200.~G|
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: 47 6C 2F A1 41 24 3A 81 4B B2 44 AA 33 A4 44 AA |Gl/.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 47 76 2F 8B 49 |".?":.310..Gv/.I|
00003FB0: 4E 24 B2 22 59 22 A7 31 32 33 30 30 00 DD 47 A8 |N$."Y".12300..G.|
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 48 |):.T.DI.12095..H|
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 48 0C 30 54 |E.":.310:..XH.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 48 0D 30 99 22 93 |6:.58010..H.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 48 0E 30 A0 33 3A A0 31 |1:.S0$..H.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 48 0F 30 54 28 4E 39 29 B2 54 3A 53 28 4E |..H.0T(N9).T:S(N|
000040D0: 39 29 B2 53 3A 4E 39 B2 4E 39 AA 31 00 F3 48 11 |9).S:N9.N9.1..H.|
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 49 12 30 98 31 35 2C 22 42 2D 50 |T;S..I.0.15,"B-P|
00004100: 22 3B 33 3B 30 00 1E 49 13 30 A1 23 33 2C 5A 24 |";3;0..I.0.#3,Z$|
00004110: 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 43 5A 24 00 3D |:.Z$."".Z$.CZ$.=|
00004120: 49 14 30 54 28 4E 39 29 B2 C6 28 5A 24 29 3A 8B |I.0T(N9)..(Z$):.|
00004130: 54 28 4E 39 29 B2 30 A7 31 32 33 31 34 00 56 49 |T(N9).0.12314.VI|
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 49 16 30 53 28 4E 39 29 |Z$.CZ$.fI.0S(N9)|
00004160: B2 C6 28 5A 24 29 00 84 49 17 30 54 24 B2 CA 28 |..(Z$)..I.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 49 18 30 99 22 28 22 54 24 22 |),2)..I.0."("T$"|
00004190: 2C 22 53 24 22 29 22 3B 00 BB 49 19 30 54 B2 54 |,"S$")";..I.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 49 1A 30 |N9.1:.12305..I.0|
000041C0: 4E 39 B2 4E 39 AB 31 3A 99 00 DF 49 1B 30 99 22 |N9.N9.1:...I.0."|
000041D0: 11 12 22 4E 39 22 20 42 4C 4F 43 4B 53 11 22 00 |.."N9" BLOCKS.".|
000041E0: 15 4A 3E 30 8B 4E 39 B3 B1 42 30 A7 99 22 11 11 |.J>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 4A 48 30 99 22 11 CC 4F 4F |300:..0JH0."..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 4A 52 30 99 22 11 D3 48 41 4C 4C 20 57 45 |.[JR0."..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 4A 5C 30 |.IN$.."Y"....J\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 4A 66 30 99 22 11 41 |BLOCKS"..Jf0.".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 4A 70 30 99 22 11 D4 48 45 20 54 52 41 43 |..Jp0."..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 4B 7A 30 99 22 11 44 49 53 50 4C 41 59 45 44 |.Kz0.".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 4B 84 30 99 22 |OCCUPIED".3K.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 4B 85 30 A0 31 35 3A 9F 31 35 2C |300.eK.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 4B 86 30 9F 32 2C 44 56 2C |:K1.1..K.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 4B 87 30 96 20 A5 42 28 49 29 B2 28 5A AF |..K.0. .B(I).(Z.|
00004390: 50 28 49 29 29 AD 50 28 49 29 00 B6 4B 88 30 46 |P(I)).P(I)..K.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 4B 89 30 81 4B 32 B2 30 |3:PP.0..K.0.K2.0|
000043C0: A4 46 46 3A A1 23 32 2C 41 24 3A 82 00 E9 4B 98 |.FF:.#2,A$:...K.|
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 4C A2 30 99 53 |400:.6580..L.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 4C |E FOLLOWING ".(L|
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 4C AC 30 81 4B 32 | FREE=.".\L.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 4C B1 |,2)R$(1.PP);.lL.|
00004460: 30 50 50 B2 31 AB 50 50 3A 82 3A 99 00 7D 4C B6 |0PP.1.PP:.:..}L.|
00004470: 30 99 22 11 4F 4B 3F 22 3A 8D 33 31 30 00 A8 4C |0.".OK?":.310..L|
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 4C C0 30 A0 32 3A |300:.2:...L.0.2:|
000044B0: 8B 4B 31 B1 4E 39 A7 A0 31 35 3A 8E 00 D7 4C CA |.K1.N9..15:...L.|
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 4C D4 30 8B 54 28 4B |0.12600..L.0.T(K|
000044E0: 31 29 B2 54 A7 31 32 34 39 30 00 F5 4C D9 30 89 |1).T.12490..L.0.|
000044F0: 31 32 34 32 32 00 05 4D 38 31 99 22 93 22 3A 8D |12422..M81.".":.|
00004500: 35 38 30 31 30 00 35 4D 42 31 99 22 CE 4F 57 20 |58010.5MB1.".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 4D 4C 31 99 22 11 D4 52 41 |TORY".PML1."..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 4D 56 31 99 22 11 D4 48 45 4E 20 D7 52 49 |..MV1."..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 4D 60 31 99 22 11 C6 49 4E 41 4C 4C 59 |"..M`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 4D 6A 31 8D 33 30 30 3A |DISK!"..Mj1.300:|
000045B0: 8E 00 C7 4D 50 C3 8F 20 42 41 43 4B 55 50 20 42 |...MP.. BACKUP B|
000045C0: 59 20 42 4C 4F 43 4B 00 DD 4D 51 C3 8F 22 B8 B8 |Y BLOCK..MQ.."..|
000045D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 0E 4E |...............N|
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: 4E 53 C3 99 22 11 11 C6 CF D2 20 D4 D7 CF 20 C4 |NS.."..... ... .|
00004620: D2 C9 D6 C5 D3 20 CF CE CC D9 22 3A 8D 33 30 30 |..... ....":.300|
00004630: 00 5C 4E 55 C3 99 22 93 28 48 49 54 20 D2 C5 D4 |.\NU..".(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 4E 5A |F$."":.54020..NZ|
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 4E 5F C3 85 22 11 44 45 56 49 |."....N_..".DEVI|
000046A0: 43 45 20 20 20 38 9D 9D 9D 22 3B 44 41 00 E4 4E |CE 8...";DA..N|
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 4F 69 C3 A0 33 3A A0 35 3A A0 |";DB..Oi..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 4F 6E |:.15,"I".FD$.DOn|
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 4F 73 C3 42 42 B2 35 3A 9F 35 |0040.YOs.BB.5:.5|
00004750: 2C 44 42 2C 35 2C 22 23 22 00 99 4F 78 C3 85 22 |,DB,5,"#"..Ox.."|
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 4F 7D C3 85 22 |5....";T9..O}.."|
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 4F 82 C3 8B | VV.1:.4,4..O...|
000047E0: 56 56 B2 30 A7 35 30 30 35 33 00 1F 50 83 C3 85 |VV.0.50053..P...|
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 50 84 C3 8B 55 39 24 B2 22 59 22 A7 46 46 24 |6P...U9$."Y".FF$|
00004830: B2 C7 28 31 30 29 00 57 50 85 C3 99 22 93 2E 2E |..(10).WP..."...|
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 50 87 C3 99 22 93 22 |.":.300.qP..."."|
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 50 9B C3 98 31 35 2C 22 42 2D 52 22 3B |1..P...15,"B-R";|
00004880: 33 3B 46 44 3B 54 3B 53 00 9B 50 A0 C3 84 31 35 |3;FD;T;S..P...15|
00004890: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 B4 50 A5 C3 |,E,E$,E1,E2..P..|
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 50 AA C3 99 22 13 54 52 41 43 |0140..P...".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 50 AF C3 8B 20 45 B2 30 20 A7 35 30 31 |S..P... E.0 .501|
000048F0: 31 30 00 25 51 B4 C3 99 22 13 22 3A 81 49 B2 31 |10.%Q...".":.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 51 B5 C3 8B 20 56 56 20 A7 |P.P.1.OQ... 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 51 BE C3 8B 42 42 B2 33 A7 35 30 31 31 34 00 |_Q...BB.3.50114.|
00004960: 8B 51 BF C3 81 55 39 B2 30 A4 32 35 35 3A 98 31 |.Q...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 51 C0 C3 |,"B-P",5,U9..Q..|
00004990: A1 23 33 2C 42 59 24 3A 98 35 2C 42 59 24 3A 82 |.#3,BY$:.5,BY$:.|
000049A0: 00 B8 51 C2 C3 98 31 34 2C 22 55 32 3A 22 3B 42 |..Q...14,"U2:";B|
000049B0: 42 3B 54 44 3B 54 3B 53 00 CB 51 C3 C3 84 31 34 |B;TD;T;S..Q...14|
000049C0: 2C 45 2C 45 24 2C 45 31 2C 45 32 00 E4 51 C8 C3 |,E,E$,E1,E2..Q..|
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 51 CD C3 8B 20 45 B2 30 20 A7 |0140..Q... E.0 .|
000049F0: 35 30 31 33 35 00 28 52 D2 C3 99 22 13 22 3A 81 |50135.(R...".":.|
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 52 D3 C3 8B 20 56 |TD:P.P.1.RR... 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 52 D7 C3 A1 49 4E 24 3A 8B 49 4E 24 |F$.pR...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 52 DC C3 82 3A 82 3A 98 31 34 2C 22 49 22 |..R...:.:.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 52 E6 C3 A0 33 3A A0 35 3A A0 31 34 3A |4..R...3:.5:.14:|
00004AA0: A0 31 35 00 E4 52 F0 C3 99 22 13 20 20 20 20 20 |.15..R...". |
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 52 FA C3 A1 41 24 3A 8B 41 24 |ED."..R...A$:.A$|
00004AF0: B2 22 22 89 35 30 31 37 30 00 FF 52 04 C4 8E 00 |."".50170..R....|
00004B00: 17 53 38 C7 8F 20 43 48 45 43 4B 20 44 49 53 4B |.S8.. CHECK DISK|
00004B10: 20 42 4C 4F 43 4B 53 00 2F 53 39 C7 8F 22 B8 B8 | BLOCKS./S9.."..|
00004B20: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00004B30: 5F 53 3A C7 99 22 93 22 3A 58 B2 32 3A 58 24 B2 |_S:..".":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 53 42 C7 85 22 11 44 45 56 49 43 45 20 20 20 |~SB..".DEVICE |
00004B70: 38 9D 9D 9D 22 3B 44 41 3A 44 42 B2 44 41 00 B3 |8...";DA:DB.DA..|
00004B80: 53 4C C7 85 22 11 44 52 49 56 45 20 20 20 30 9D |SL..".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 53 56 C7 99 22 11 11 12 D7 45 27 |D$)..SV.."....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 54 | EVERY BLOCK"..T|
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 54 6A C7 85 22 11 11 D3 |RS. ".9Tj.."...|
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 54 74 C7 8E 00 |"Y".50025.?Tt...|
00004C40: 6E 54 F0 D2 99 22 13 11 11 22 3A 81 55 39 B2 31 |nT..."...":.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: 54 FA D2 58 24 B2 C8 28 58 24 AA 22 20 20 20 20 |T..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 54 | ",L9)..T|
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 55 0E D3 81 55 39 B2 31 A4 4C 39 3A |";..U...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 55 18 D3 99 22 9D 22 |1..(X$). U..."."|
00004D10: 3B 3A 82 3A 99 22 11 12 22 59 24 54 43 24 3A 8E |;:.:.".."Y$TC$:.|
00004D20: 00 37 55 90 E2 8F 20 55 50 50 45 52 2F 4C 4F 57 |.7U... UPPER/LOW|
00004D30: 45 52 20 43 41 53 45 00 50 55 9A E2 8B 43 50 24 |ER CASE.PU...CP$|
00004D40: B2 22 43 36 34 22 A7 99 C7 28 31 34 29 3B 3A 8E |."C64"...(14);:.|
00004D50: 00 60 55 9B E2 97 35 39 34 36 38 2C 31 34 3A 8E |.`U...59468,14:.|
00004D60: 00 7A 55 A4 E2 8B 43 50 24 B2 22 43 36 34 22 A7 |.zU...CP$."C64".|
00004D70: 99 C7 28 31 34 32 29 3B 3A 8E 00 8A 55 A5 E2 97 |..(142);:...U...|
00004D80: 35 39 34 36 38 2C 31 32 3A 8E 00 C6 55 78 E6 53 |59468,12:...Ux.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 55 82 E6 50 41 B2 53 44 |.24,15..U..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 56 8C |.65535:PC.PB.+V.|
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 56 DB E6 |9464:O0.100.8V..|
00004E30: 8D 35 39 31 30 30 3A 8E 00 6B 56 DC E6 97 50 42 |.59100:..kV...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 56 48 EE |,O1:.PB,0:..wVH.|
00004E70: 8F 20 49 4E 50 55 54 00 9D 56 49 EE 99 22 43 55 |. INPUT..VI.."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 56 | ......"C(I)..V|
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 57 4C EE 99 22 11 |A$."N"....WL..".|
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 57 4D EE 42 43 24 B2 22 42 59 54 45 |.".4WM.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 57 52 EE 49 4E 24 B2 22 22 3A |...".oWR.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 57 57 EE 4B 39 B2 31 32 3A 4E 24 B2 CA 28 C4 |.WW.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 57 58 EE 97 43 52 |.K8.1.LN..WX..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 AA 4B 38 AA |8,1)):.:.CRT.K8.|
00004FC0: 4B 39 2C 33 32 00 E1 57 5C EE 99 22 AF 9D 22 3B |K9,32..W\.."..";|
00004FD0: 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 36 31 30 31 |:.A$:.A$."".6101|
00004FE0: 35 00 16 58 66 EE 41 B2 C6 28 41 24 29 3A 8B 41 |5..Xf.A..(A$):.A|
00004FF0: B2 31 37 B0 41 B2 31 34 35 B0 41 B2 31 34 38 B0 |.17.A.145.A.148.|
00005000: 41 B2 31 39 B0 41 B2 31 34 37 B0 41 B2 31 35 37 |A.19.A.147.A.157|
00005010: A7 36 31 30 31 35 00 2D 58 70 EE 99 22 20 9D 22 |.61015.-Xp.." ."|
00005020: 3B 3A 8B 41 B2 31 33 A7 36 31 30 38 30 00 44 58 |;:.A.13.61080.DX|
00005030: 7A EE 8B 49 4E 24 B2 22 22 AF 41 B2 32 30 A7 36 |z..IN$."".A.20.6|
00005040: 31 30 31 35 00 70 58 84 EE 8B 41 B2 32 30 A7 4E |1015.pX...A.20.N|
00005050: B2 4E AB 31 3A 99 22 9D 20 9D 22 3B 3A 49 4E 24 |.N.1:.". .";:IN$|
00005060: B2 C8 28 49 4E 24 2C 4E 29 3A 89 36 31 30 31 35 |..(IN$,N):.61015|
00005070: 00 A0 58 8E EE 99 22 20 9D 22 41 24 3B 3A 49 4E |..X..." ."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 58 98 EE 81 55 39 B2 31 A4 4E 3A 43 28 49 |..X...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 58 9C F9 84 31 |9,1)):.:...X...1|
000050D0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 00 E7 58 9D |5,E,E$,E1,E2..X.|
000050E0: F9 8B 45 B2 30 A7 8E 00 0F 59 9E F9 99 3A 99 22 |..E.0....Y...:."|
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 59 9F F9 81 41 39 B2 31 A4 31 30 3A 8D 35 39 |%Y...A9.1.10:.59|
00005120: 31 30 30 3A 82 00 44 59 A0 F9 99 22 11 11 12 52 |100:..DY..."...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 59 A1 F9 99 22 11 11 41 4E 59 |UE.".fY..."..ANY|
00005150: 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 12 51 | OTHER KEY TO .Q|
00005160: 55 49 54 92 2E 22 00 7A 59 A2 F9 8D 33 31 30 3A |UIT..".zY...310:|
00005170: 8B 49 4E 24 B2 43 52 24 A7 8E 00 84 59 A3 F9 89 |.IN$.CR$....Y...|
00005180: 37 39 30 30 00 00 00 |7900... |
....... PETER J. PONZO.0.... 49 MARGARET
AVE. S..L.... WATERLOO,ONT. N2J 2C8.A..
.. 1-519-578-1147...... DISKVIEW - FOR P
ET AND C64......".........L....B(0).47..
56,7.16:.55,0:.:. SOME RAM FOR SAVING BL
OCKS......B(0)..47..53,7.16:.52,0:......
F1.07:F3.00:F5.06:. COLOURS.....:.%...DA
$."MAR 31/84".+...:.C...CRT.1024:CP$."C6
4":. B(0)..47 . CRT.32768:CP$."PET".W...
BS.CRT.45:.8000.}...:.....M$(1)."LOAD BL
OCK INTO COMPUTER".G. .M$(2)."SEE ASCII
OF ABOVE BLOCK"...!.M$(3)."MODIFY ABOVE
BLOCK"...".M$(4)."STORE ABOVE BLOCK IN R
AM".2.#.M$(5)."WRITE BLOCK IN RAM TO DIS
K".U.$.M$(6)."BLOCK AVAILABILITY MAP".O.
%.M$(7)."DISK COMMANDS"...&.M$(8)."TRACE
BLOCKS...'.M$(9)."UNSCRATCH A FILE...D.
. MENU...E.." .....I.H..53280,F1...I. 1
5:.15,DV,15:.58010:.".":X$."MAIN":X.30:.
54000...N.."."HD$.&.X..I.1.9:.".."I".:"M
$(I):..N....S0$:.VC$"HIT .RETURN. TO QUI
T."TC$.E....310:.IN$.CR$.7900.V....IN$."
.".110... ..IN$.".".110......IN$.".".110
.N...."..":.I.1.IN:."..";:.:."....."M$(I
N):.T9.1.300:....H..IN.1.50000,1000,2000
,3000,4000,5000,6000,7000,7100,7500...R.
.104.A...F1..(F1.1).(F1.15):.53281,F1:.5
3280,F1:..J...F3..(F3.1).(F3.15):TC$.F3$
(F3):.TC$;.....HD$.S0$.CR$.VC$.MH$."DEVI
CE ".J(D(DV),2).TC$.CR$.S0$:..H...F5..(F
5.1).(F5.15):VC$.F5$(F5).Q....261...,..
GET...-.." ......1..VC$"..RETURN. TO CO
NT"TC$...6..IN$:.IN$.."".310.1.@..IN$:.I
N$."".320.C.J..IN$."."..250.U.K..IN$."."
..260.G.L..IN$."."..270.~.T.IN.E(IN$):.5
9100:....... LOAD BLOCK INTO COMPUTER...
...".........................E...Y9.0...
.. 3: 15:.15,DV,15:.3,DV,3,"#":.#3,BN$:B
N.F(BN$):DC.3.....BN$.J(BN$,2).&....15,"
B-P";DC;1:.".".;....K.0.10:.3,K$;:..O...
."........."S0$.U....Y9..".TRACK,SECTOR.
"T","S:.1060......".TRACK,SECTOR. ...
.";T,S...$..15,"B-R";DC;DR;T;S.A....15,"
B-P";DC;0.Z.8..#3,Z$:.Z$."".Z$.CZ$...B.C
(0).F(Z$):.1200.#.`..VC$"..RETURN TO TER
MINATE"TC$:.D(C(0))D(C(1));.C.J.J.2:.I.2
.255:.15,"B-P";DC;I.\.T..#3,B$:.B$."".B$
.CZ$.K.~.C(I).F(B$)......BS.J,C(I):.NN.J
,F3......A$:.A$..""..1195.....J.J.1:....
.. 3: 15:.BB$:.300.M...Y9.0:.C(0).0.....
...".....LOAD NEXT TRACK/SECTOR N...";
IN$:.IN$.."Y"...$...T.C(0):S.C(1):Y9.1:.
1010.F....VC$"................BLOCK HAS
NOT BEEN COMPLETELY LOADED"TC$. ...."..W
ANT TO CONTINUE LOADING N...";N$:.N$."
N".I.256......"...............
"TC$......"
":.......
C(0)/C(1).*...."..........A....SD$:.15,
"B-P";3;1.Z.D..#3,B$:.B$."".B$.CZ$.I.N.C
(1).F(B$)...X..C(0).0..SD$:."LAST TRACK"
:.......SD$:."NEXT TRACK="C(0):."NEXT SE
CTOR="C(1).P...NT.C(0):NS.C(1):....P.. P
RINT ASCII...Q.."..............R.IJ.0:II
.255:.".":HX.0.A.S.."....0.:DECIMAL":.".
..1.:HEX":.".. 0...";IN.V.T..".":. IN
. HX.1...U..VC$"..RETURN.=QUIT:.SPACE.=P
AUSE: "H$(HX);TC$:.S0$:EE$.". ."...V.Z1
.32:Z2.223:Z3.127:Z4.160:P.0...W.Y0$."."
.TC$.CL$:Y1$.VC$."..":Y2$.".:->".TC$:C9.
1.!.Z..I.0.II.8:Y$.Y1$.I(" ".D(I),3).Y2
$:E0$.EE$.J....Y0$:.Y$;:.J.0.7:H.I.J:C5.
C(H):C6.C5.Q....(C5.Z1.C5.Z2).(C5.Z3.C5.
Z4).C6.32.....E0$.E0$.G(C6).....E$.I("
".D(C5),3):. HX . M$."":M.C5:.9505:E$."
".M$.Z....R$(P)E$R$(1.P);:P.1.P:.......
A$:.A$."".2030......A$.G(13).II.I:I.255.
....A$.G(32)..310:.2021.?....E0$:.:.CL$
:.CL$:.CL$:.CL$.T...."...."S0$:.VC$"CURR
ENT TRACK,SECTOR="T",";S;TC$......"NEXT
TRACK,SECTOR="NT","NS......IJ.0..300....
........ MODIFY BLOCK.P...."............
......".THE ASCII CODE FOR EACH BLOCK-BY
TE".*....".WILL BE DISPLAYED..I.E. C(0).
..C(255).".Z....".YOU MAY REDEFINE ANY C
(I). THE MODIFIED"......".BLOCK WILL BE
WRITTEN TO THE DISK"......".INTO THE TRA
CK,SECTOR YOU SELECT."......".TO ENTER A
STRING, SELECT THE I WHICH"......".BEGI
NS THE STRING AND WHEN ASKED".*....".FOR
THE VALUE OF I, ENTER I*".W. ..".EXAMPL
E: TO MODIFY BYTES STARTING AT".P.!..".
I=12, ENTER 12*"...&.."..BE SURE A COMPL
ETE BLOCK WAS LOADED!!"...0..300:.".":II
.255.8:IJ.1.J.:..".":.2005...D..VC$">>>.
RETURN TO QUIT.<<<"TC$:.I$./.N..".WHICH
I DO YOU WISH TO MODIFY. ......";I$:
I.E(I$).@.X..I$.".".3173.^.]..I(I$,1)."*
"..61000:.3173...B.."CURRENT C("I")=
....."C(I)" NEW VALUE= .....";:.C(
I)...C..I.II.II.I...D..3150...E..".":.20
05:." >>>.OK.? ";...F..310:.IN$.
"N"..:.3150...G.."..RETURN TO MENU. N.
..";IN$...H..IN$."Y"...X.I..VC$".CURRENT
TRACK,SECTOR="T","S;TC$.Y.J.."NEXT TRAC
K,SECTOR="NT","NS...L.."...DESTINATION T
RACK,SECTOR. ";T","S.O.M.."..DESTINATI
ON TRACK,SECTOR...";T,S...V.."....DESTIN
ATION DRIVE. ";DR.7.W.."..DESTINATION
DRIVE...";DR$:DR.E(DR$):.DR$.."0".DR$.."
1".3190.L... 3: 15:.15,DV,15.C....3,DV,3
,"#":.63900......#3,BN$:BN.F(BN$):."."SD
$"....FILLING BUFFER#"BN......I.0.255.Q.
...15,"B-P",3,I:.3,G(C(I));:.". ..."I:
....P..15,"U2:";3;DR;T;S...Z..15,"I".DR$
:.63900: 3: 15:.".":..%. .. STORE C(I) I
N RAM.=...."..................W...IJ.0:I
I.255:.".":HX.0.G....".";:.2005......".S
TARTING VALUE 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:".
.0W.."..1.:GO THRU' DIRECTORY TRACK"DI"
UNTIL".00X.." WE FIND THE SCRATCHED FIL
E NAME.".Y0Y.."..2.:TRACE THE BLOCKS AND
COMPARE".0Z.." THE BLOCKS OBTAINED WI
TH THE"..0[.." DIRECTORY BLOCK COUNT.".
M0\.."..3.:LOOK AT THE BLOCK AVAILABILTY
MAP"..0].." TO SEE IF ALL THE BLOCKS A
RE FREE."..1^..".>>IF ALL OF THE ABOVE A
RE OK".E1_.." YOU THEN MODIFY THE DIREC
TORY"._1`.." AS FOLLOWS:":.300..1T..".M
ODIFY THE BLOCK SO THAT THE"..1Y..".MAGI
C BYTE".D1~.." WHICH OCCURS JUST .3. PL
ACES BEFORE"..1..." THE NAME IS AS FOLL
OWS:"..1..." 129=SEQ FILE"..2..." 130=
PRG FILE".'2..." 131=USR FILE".=2..."
132=REL FILE".K2...".EXAMPLE:TO UNSCRATC
H A PRG FILE 'ABZ'"..2..."FIND IT'S NAME
ON THE DIRECTORY, AND"..2..."SELECT MEN
U ITEM=MODIFY BLOCK.".R2..."YOU WILL SEE
:"..3D.."... 0. 0. 0"VC$". 0"TC$". 19. 3
. 65. 66. 90....ETC".,3N.." ^ ^
^ ^ ^ ^".L3X.." SHOULD BE .TRCK.A B
Z".W3..." A 130 .&SEC.FILENAME(IN
ASCII)"..3...300:."."..3...".MODIFY THE
BYTE WHICH IDENTIFIES THE ".Z3..."FILE T
YPE..TO 130..SO IT READS:"..4..."... 0.
0. 0"VC$".130"TC$". 19. 3. 65. 66. 90...
.ETC".C4..."..4.:WRITE THE BLOCK BACK TO
THE DISK.".T4..."..5.:VALIDATE.........
......... THE DISK."..4..."..5.:PRAY..":
.310..4H..".WANT TO TRY Y...";A$:.A$..
"Y"....4R..12000..4.. 15:.58020:."......
BYE...":.HD$"..":...4@.. INITIALIZE..5A.
."...........B5B..".":.58020:.53281,F1:.
53280,F1:. F3$(15),F5$(15).F5C..I.0.15:.
F3$(I):F5$(I).F3$(I):...5D..".",".",".",
".",".",".",".","."..5E..".",".",".","."
,".",".",".",".".Q5F.TC$.F3$(F3):.TC$:VC
$.F5$(F5)..5G..C(255),T(120),S(120),SC(7
7),B(4)..6H..1,17,20,24,19,30,17,35,16,0
.:6I..65,17,20,24,18,30,17,35,16,0.\6J..
67,39,28,53,26,64,24,77,22,0..6K.S0$."..
.....................................":S
4$.S0$.S0$..6L.A$.VC$."..*PONZO**** DISK
VIEW ****(".DA$.")****".TC$:.I.1.C(A$)..
7M..J(A$,I,1);:.T.1.5:.:.:.:.S0$:.CP$."P
ET".8016.'7N.."..NOTE.........".V7O.."FU
NCTION KEYS CHANGE COLOURS AT MENU...".R
7P.."..DEVICE # 8...";DV..7Q.R$(0)."."
:R$(1).".":NN.55341..7R.HX$."0123456789A
BCDEF".Z7T.SD$."...........":BB$.SD$."..
........."..8Y.MD$."....................
":CR$.G(13):CZ$.G(0)..8Z..59000.>8C.."..
DRIVE # 0...";DR$:DR.E(DR$).F8H..5802
0: 15:.15,DV,15,"I".DR$:.63900..8R.K$."
THIS BLOCK IS EMPTY "..8|..:.I.0.15:.X
$:.:WW.0:A0.1..8}..3,DV,3,"$".DR$:.63900
.W8~..#3,A$:A.F(A$.CZ$)..8..DT:.A.DT.80
70..9..WW.WW.1:.WW.3. .I.1.9:.DT:.:.8063
..9.. 3:.7400.T9..MH$."DRIVE ".DR$.".!!U
NRECOGNIZABLE DISK!!.":.8230.K9..TT.200:
DI.76:.8110..9...DT.1.DT.65.KK.143..9...
DT.67.KK.5..9...8200..9...A1:.A1.0.8090.
X9...B1:.I.A0.A1:SC(I).B1.1:.:A0.I:.8075
..9...DT.1.DT.65.D1.1:TT.35:S2.3:DI.18.!
:...DT.67.D1.257:TT.77:S2.4:DI.39.5: .S1
.S2.1:S3.S2.1.G:.. 3:.TT.0.8065.P:...I.0
.7:P(I).2.I:.:.I.0.3:H(I).16.I:...:..H$(
0)."DECIMAL":H$(1)."HEX"..:..X$(0)."Q":X
$(1)."W".I:L.CL$."":.I.1.39:CL$.CL$." ":
...:V.S1$."^....^....^....^....^....^...
.^....".!;..S2$.". . . . .
. .".N;..S3$."0 5 10 15 2
0 25 30":..Y;. .I.3.KK:.#3,A$:.:MH$.
"DRIVE ".DR$.". "..;. .I.1.16:.#3,A$:MH$
.MH$.A$:.:.#3,A$,A$:MH$.MH$.":"..;. .I.1
.2:.#3,A$:MH$.MH$.A$:.:MH$.MH$.":":.#3,A
$..<. .I.1.2:.#3,A$:MH$.MH$.A$:.:MH$.MH$
.".".-<! SP$."":.I.1.40:SP$.SP$." ":..A<
& .261:.".."HD$:..S<(#. DECIMAL_HEX.E<)#
."............Y<-#M.E(M$):.M..0....<2#M$
.J(M$,2):M.0:LM.C(M$)..<<#.CN.1.LM.M<F#M
M$.J(M$,CN,1):.9100:M.M.MM.H(LM.CN):..S<
P#...<.#.MM$."0".MM.0:...<.#MM.E(MM$):.M
M..0....= #MM.F(MM$).55:..#=.%. HEX_DECI
MAL.5=.%."............E= %C9.3:M$."$".G=
!%SM.M:.CN.C9.0..1:CM%.SM.H(CN)..=&%M$.M
$.G(CM%.48.7.(CM%.9)):SM.SM.H(CN).CM%:.:
...=.*. DIRECTORY..=.+.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$:..BAZ+SI.0
:.P.1.8:.#3,A$:A.F(A$.CZ$).128:TY..A.(A.
0.A.5):A3$.TY$(TY).RA.+.#3,A$,B$:A.F(A$.
CZ$):B.F(B$.CZ$):.ST.11300..A.+A4$."(".I
(D(A),2).",".I(D(B),2).")":A0$."":.I.1.1
6..A.+.#3,B$:A0$.A0$.B$:.:A2$."":.I.1.16
:B$.J(A0$,I,1)..B.+A9.F(B$.CZ$):.A9.A7.B
$."":I.16:.11190.(B.+.A9.A5.(A9.A6.A9.A7
).B$."?".]B.+A2$.A2$.B$:.:.11320:.TY..2.
A5$." ".AF$:.11220..B.+.2,DV,2,DR$.":
".A0$.",".A3$.",R":.#2,AL$,AH$:X$.AL$:.1
1440.OBJ+AL$.X$:X$.AH$:.11440:AH$.X$:A5$
.AH$.AL$.AF$: 2..BT+.#3,A$,A$,A$,A$,A$,A
$,A$,A$,A$.2C.+.#3,A$,B$:A.F(A$.CZ$):B.F
(B$.CZ$):C.A.256.B:K9.ST:.C.0.P.10.JC.+A
1$.I(" ".D(C),3).]C.+.P.8..#3,A$,A$..C
.+. PT . TY.0 . . PF$A1$J$A2$A3$J$A4$J$A
5$SF$:.11290..C.,. C . .4,PF$A1$J$A2$A3$
J$A4$J$A5$SF$;.SC.,.A$:.A$.."".P.10..C.,
.C80.U9.1.U9:.U9..4,AT$..D.,.:.P.10.K9.0
.11130.!D$, 3:.11330:.4,PF$S5$SF$.6D., 4
:.58010:.300:..\D8,A2$.R1$.Q$.H(A2$.Q$.S
P$,17).R2$:..NDB,. BLOCKS FREE..DL,.1,DV
,0,"$".DR$.":"..DV,.11380:.4,LF$..D`,L.X
.Y.256:.4,PF$L;" BLOCKS FREE"AT$.IDJ, 1:
...DT,.#1,X$,X$,X$,X$,X$,X$..D~,.#1,X$:.
X$.."".11390..E.,.#1,X$,X$,X$,Y$.'E.,X.C
(X$):.X.X.F(X$).>E.,Y.C(Y$):.Y.Y.F(Y$).D
E.,...E.,X.F(X$.CZ$):XH%.X.16:XL.X.16.XH
%:X$.J(HX$,XH%.1,1).J(HX$,XL.1,1)..E.,..
.E... UNSCRATCH ROUTINE..E..."..........
........JE...58020..F..."...THE SCRATCHE
D FILE NAMES WILL":.".BE DISPLAYED.".?F.
/.".YOU MAY DECIDE WHICH FILE YOU":.".WI
SH TO RECOVER.".GF./."...RETURN. TO CONT
INUE":.310:.".".|F0/ 3: 15:.15,DV,15..F:
/T.DI:S.1:.3,DV,3,"#0":.63900..F?/.15,"B
-R";3;DR;T;S.HF@/.".LOOKING AT:"..FA/.".
.TRACK ..."T" SECTOR ..."S..GD/.J.0.
255:.15,"B-P";3;J:.#3,A$.%GN/C(J).F(A$.C
Z$):..MGX/.D.2.255.32:.C(D)..0.C(D.1).0.
12200.~GB/.SD$CL$SD$"WANT TO UNSCRATCH .
";:.P9.1.200:...GL/.A$:.K.D.3.D.18:.G(C(
K));:.:.".?":.310..GV/.IN$."Y".12300..G.
/.D:T.C(0):S.C(1):.T.DI.12095..H./.".FIN
ISHED LOOKING..":."...RETURN. TO CONTINU
E.":.310:..XH.0T0.T:S0.S:T.C(D.1):S.C(D.
2):B0.C(D.28).C(D.29).256:.58010..H.0.".
...DIRECTORY BLOCK COUNT="B0:N9.1:.S0$..
H.0 3: 15:.15,DV,15:.3,DV,3,"#":.63900:.
#3,BN$:BN.F(BN$)..H.0T(N9).T:S(N9).S:N9.
N9.1..H.0.15,"B-R";3;DR;T;S..I.0.15,"B-P
";3;0..I.0.#3,Z$:.Z$."".Z$.CZ$.=I.0T(N9)
.F(Z$):.T(N9).0.12314.VI.0.#3,Z$:.Z$."".
Z$.CZ$.FI.0S(N9).F(Z$)..I.0T$.J(D(T),2):
S$.J(D(S),2)..I.0."("T$","S$")";..I.0T.T
(N9):S.S(N9):N9.N9.1:.12305.II.0N9.N9.1:
...I.0.".."N9" BLOCKS."..J>0.N9..B0.."..
**.INCORRECT BLOCK COUNT.**..":.300:..0J
H0.".LOOKS GOOD SO FAR.".[JR0.".SHALL WE
PROCEED?":.310:.IN$.."Y"....J\0."...WE'
LL CHECK THAT THE ABOVE BLOCKS"..JF0.".A
RE FREE BY LOOKING AT THE BAM.."..JP0.".
THE TRACK/SECTORS FOR THE FILE WILL BE".
.KZ0.".DISPLAYED. IF A BLOCK IS OCCUPIED
".3K.0.".THE UNSCRATCH WILL NOT WORK!":.
300.EK.0 15:.15,DV,15,"I".DR$:.63900:.".
":.58020:K1.1..K.0.2,DV,2,"$".DR$:.63900
..K.0. .B(I).(Z.P(I)).P(I)..K.0FF.D1.(T(
K1).1).S3:PP.0.LK.0.K2.0.FF:.#2,A$:...K.
0T.T(K1):.".":.6400:.6580..L.0.SD$"CHECK
THAT THE FOLLOWING ".(L.0.".SECTORS ARE
FREE=W".\L.0.K2.1.N9:.T(K2).T..R$(PP)J(
D(S(K2)),2)R$(1.PP);.LL.0PP.1.PP:.:..}L.
0.".OK?":.310..L.0.IN$.."Y"..".SORRY..":
.58010:.300: 2:...L.0 2:.K1.N9. 15:..WLJ
0K1.K1.1:.T(K1).0.12600..LT0.T(K1).T.124
90..LY0.12422..M81.".":.58010.5MB1."NOW
MODIFY THE .MAGIC BYTE. ON DIRECTORY".PM
L1.".TRACK"T0" SECTOR"S0..MV1.".THEN WRI
TE THE BLOCK BACK TO ("T0","S0")"..M`1."
.FINALLY .VALIDATE. THE DISK!"..MJ1.300:
..GMPC. BACKUP BY BLOCK..MQC."..........
.......NRC.53280,F5:.".":X.30:X$."BACKUP
":Y$."":.54020.0NSC."..FOR TWO DRIVES ON
LY":.300.\NUC.".(HIT RETURN TO ABORT)":F
F$."":.54020..NZC."....FROM. DRIVE ..
.";FD$:FD.E(FD$):. FD$." "....N_C.".DEVI
CE 8...";DA..NDC."...TO. DRIVE";TD$:TD
.E(TD$):.".DEVICE 8...";DB..OIC 3: 5:
14: 15:.15,DA,15:.15,"I".FD$.DONC.3,DA,3
,"#":.63900:.14,DB,15:P.1:.DB.DA.BB.3:.5
0040.YOSCBB.5:.5,DB,5,"#"..OXC."..START
AT TRACK 1...";T8:."..END AT TRACK 3
5....";T9.ZO}C."..ERRORS TO PRINTER N.
..";VV$:VV.0:. VV$."Y" . VV.1:.4,4..O.C.
VV.0.50053..P.C.".DOES THE PRINTER NEED
A LINE FEED N...";U9$.6P.C.U9$."Y".FF$
.G(10).WP.C."...GO FOR A COFFEE..":.300.
QP.C.".":.T.T8.T9:.S.0.31..P.C.15,"B-R";
3;FD;T;S..P C.15,E,E$,E1,E2..P.C. E.66 .
S.31:.50140..P.C.".TRACK ....."T" S
ECTOR ....."S..P.C. E.0 .50110.%Q.C.
".":.I.1.P:.:.:.E;E$;E1;E2;":DRIVE ."FD:
P.P.1.OQ.C. VV . .4,E;E$;E1;E2;":DRIVE .
"FD;FF$._Q.C.BB.3.50114..Q.C.U9.0.255:.1
5,"B-P",3,U9:.14,"B-P",5,U9. Q.C.#3,BY$:
.5,BY$:...QBC.14,"U2:";BB;TD;T;S.KQCC.14
,E,E$,E1,E2..QHC. E.66 . S.31:.50140..QM
C. E.0 .50135.(RRC.".":.I.1.P:.:.:.E;E$;
E1;E2;":DRIVE ."TD:P.P.1.RRSC. VV . .4,E
;E$;E1;E2;":DRIVE ."FD;FF$.PRWC.IN$:.IN$
.."".S.100:T.100..R.C.:.:.14,"I".TD$:. V
V . .4: 4..R.C 3: 5: 14: 15..R.C.".
."X$"..
..FINISHED."..R.C.A$:.A$."".50170..R.D..
.S8G. CHECK DISK BLOCKS./S9G."..........
........_S:G.".":X.2:X$."CHECK BAD BLOCK
S":Y$."":.54020.~SBG.".DEVICE 8...";DA
:DB.DA..SLG.".DRIVE 0...";FD$:TD$.FD$:
FD.E(FD$):TD.E(TD$)..SVG."...WE'LL READ/
WRITE TO EVERY BLOCK"..T`G."..AND INDICA
TE ANY DISK ERRORS. ".9TJG."..SHALL WE
CONTINUE Y...";Q$:.Q$."Y".50025.?TTG..
NT.R."...":.U9.1.X:.".";:.:L9.C(X$):.L9.
4.L9.4..T.RX$.H(X$." ",L9):Y$.H("MENU
",L9).RT.SL9.C(X$):.".";:.U9.1.L
9:.".";:.:."............";..U.S.U9.1.L9:
."...";:.:."........"VC$X$;:.U9.1.C(X$).
U.S.".";:.:.".."Y$TC$:..7U... UPPER/LOW
ER CASE.PU...CP$."C64"..G(14);:..`U...59
468,14:..ZU...CP$."C64"..G(142);:...U...
59468,12:..FUX.SD.54272:.I.0.24:.SD.I,0:
.:.SD.6,240:.SD.1,50:.SD.24,15..U..PA.SD
.4:O0.33:O1.0:PB.65535:PC.PB.+V...CP$."P
ET".PB.59467:PC.59466:.PB,16:.PC,15:PA.5
9464:O0.100.8V...59100:..KV...PB,16:.PC,
15:.PA,O0:.P9.1.10:.:.PA,O1:.PB,0:..WVH.
. INPUT..VI.."CURRENT C("I")= .....
"C(I).HVK..".INPUT A STRING Y...";A$:.
A$."N"....WL..".ENTER STRING: TERMINATE
WITH .RETURN.:.":BC$."BYTE COUNT
".4WM.BC$."BYTE COUNT ".OWR
.IN$."":N.C(IN$):.K9.1.23:.CRT.K9.1,F(J(
BC$,K9,1)).64:...WW.K9.12:N$.J(D(N),2):L
N.C(N$):.K8.1.LN.EWX..CRT.K8.K9,F(J(N$,K
8,1)):.:.CRT.K8.K9,32..W\.."..";:.A$:.A$
."".61015..XF.A.F(A$):.A.17.A.145.A.148.
A.19.A.147.A.157.61015.-XP.." .";:.A.13.
61080.DXZ..IN$."".A.20.61015.PX...A.20.N
.N.1:.". .";:IN$.H(IN$,N):.61015. X..."
."A$;:IN$.IN$.A$:N.C(IN$):.N.255.I.61015
.IX...U9.1.N:C(I.U9.1).F(J(IN$,U9,1)):.:
...X...15,E,E$,E1,E2..X...E.0....Y...:."
.**.DISK ERROR.**.":.E;E$;E1;E2.%Y...A9.
1.10:.59100:..DY .."...RETURN. TO CONTIN
UE.".FY..."..ANY OTHER KEY TO .QUIT..".Z
Y...310:.IN$.CR$....Y...7900...
> CLICK IMAGE PREVIEW FOR FULL MODAL