DISKVIEW 2.C
FILE INFORMATION
FILENAME(S): DISKVIEW 2.C
FILE TYPE(S): PRG
FILE SIZE: 10.9K
FIRST SEEN: 2025-12-01 01:48:23
APPEARS ON: 1 disk(s)
FILE HASH
4c4dd55276c6bd3bd00e9b7fbd83ec97876304af999ac138ed4138536399fc34
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS 64 3 | DISKVIEW 2.C | PRG | hedning, Mattias H00r | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 16 04 03 00 8F 20 50 45 54 45 52 20 4A 2E |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 30 04 04 00 8F 20 34 39 20 | PONZO.0.... 49 |
00000020: 4D 41 52 47 41 52 45 54 20 41 56 45 2E 20 53 2E |MARGARET AVE. S.|
00000030: 00 4C 04 05 00 8F 20 57 41 54 45 52 4C 4F 4F 2C |.L.... WATERLOO,|
00000040: 4F 4E 54 2E 20 4E 32 4A 20 32 43 38 00 61 04 06 |ONT. N2J 2C8.a..|
00000050: 00 8F 20 31 2D 35 31 39 2D 35 37 38 2D 31 31 34 |.. 1-519-578-114|
00000060: 37 00 7A 04 07 00 8F 20 52 45 56 49 53 45 44 2D |7.z.... REVISED-|
00000070: 20 53 45 50 20 30 38 2F 38 33 00 8A 04 08 00 8F | SEP 08/83......|
00000080: 20 44 49 53 4B 56 49 45 57 2B 00 9A 04 09 00 8F | DISKVIEW+......|
00000090: 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 D5 04 0A 00 8B |"...............|
000000A0: C2 28 30 29 B2 34 37 A7 97 35 36 2C 37 AC 31 36 |.(0).47..56,7.16|
000000B0: 3A 97 35 35 2C 30 3A 9C 3A 8F 20 53 4F 4D 45 20 |:.55,0:.:. SOME |
000000C0: 52 41 4D 20 46 4F 52 20 53 41 56 49 4E 47 20 42 |RAM FOR SAVING B|
000000D0: 4C 4F 43 4B 53 00 F4 04 0B 00 8B C2 28 30 29 B3 |LOCKS.......(0).|
000000E0: B1 34 37 A7 97 35 33 2C 37 AC 31 36 3A 97 35 32 |.47..53,7.16:.52|
000000F0: 2C 30 3A 9C 00 19 05 0C 00 46 31 B2 30 37 3A 8F |,0:......F1.07:.|
00000100: 20 3C 46 31 3E 20 43 48 41 4E 47 45 53 20 42 41 | <F1> CHANGES BA|
00000110: 43 4B 20 43 4F 4C 4F 55 52 00 3E 05 0D 00 46 33 |CK COLOUR.>...F3|
00000120: B2 30 30 3A 8F 20 3C 46 33 3E 20 43 48 41 4E 47 |.00:. <F3> CHANG|
00000130: 45 53 20 54 45 58 54 20 43 4F 4C 4F 55 52 00 64 |ES TEXT COLOUR.d|
00000140: 05 0E 00 46 35 B2 30 36 3A 8F 20 3C 46 35 3E 20 |...F5.06:. <F5> |
00000150: 43 48 41 4E 47 45 53 20 54 49 54 4C 45 20 43 4F |CHANGES TITLE CO|
00000160: 4C 4F 55 52 00 9C 05 0F 00 43 52 54 B2 31 30 32 |LOUR.....CRT.102|
00000170: 34 3A 43 50 24 B2 22 43 36 34 22 3A 8B 20 C2 28 |4:CP$."C64":. .(|
00000180: 30 29 B3 B1 34 37 20 A7 20 43 52 54 B2 33 32 37 |0)..47 . CRT.327|
00000190: 36 38 3A 43 50 24 B2 22 50 45 54 22 00 AB 05 10 |68:CP$."PET"....|
000001A0: 00 43 52 54 B2 43 52 54 AA 34 35 00 B5 05 14 00 |.CRT.CRT.45.....|
000001B0: 8D 38 30 30 30 00 DA 05 1E 00 4D 24 28 30 29 B2 |.8000.....M$(0).|
000001C0: 22 C2 41 43 4B 55 50 20 28 42 4C 4F 43 4B 20 42 |".ACKUP (BLOCK B|
000001D0: 59 20 42 4C 4F 43 4B 29 20 22 00 FF 05 1F 00 4D |Y BLOCK) ".....M|
000001E0: 24 28 31 29 B2 22 CC 4F 41 44 20 42 4C 4F 43 4B |$(1).".OAD BLOCK|
000001F0: 20 49 4E 54 4F 20 43 4F 4D 50 55 54 45 52 22 00 | INTO COMPUTER".|
00000200: 24 06 20 00 4D 24 28 32 29 B2 22 D3 45 45 20 C1 |$. .M$(2).".EE .|
00000210: D3 C3 C9 C9 20 4F 46 20 41 42 4F 56 45 20 42 4C |.... OF ABOVE BL|
00000220: 4F 43 4B 22 00 43 06 21 00 4D 24 28 33 29 B2 22 |OCK".C.!.M$(3)."|
00000230: CD 4F 44 49 46 59 20 41 42 4F 56 45 20 42 4C 4F |.ODIFY ABOVE BLO|
00000240: 43 4B 22 00 68 06 22 00 4D 24 28 34 29 B2 22 D3 |CK".h.".M$(4).".|
00000250: 54 4F 52 45 20 41 42 4F 56 45 20 42 4C 4F 43 4B |TORE ABOVE BLOCK|
00000260: 20 49 4E 20 D2 C1 CD 22 00 8F 06 23 00 4D 24 28 | IN ..."...#.M$(|
00000270: 35 29 B2 22 D7 52 49 54 45 20 42 4C 4F 43 4B 20 |5).".RITE BLOCK |
00000280: 49 4E 20 D2 C1 CD 20 54 4F 20 44 49 53 4B 22 00 |IN ... TO DISK".|
00000290: B2 06 24 00 4D 24 28 36 29 B2 22 C2 4C 4F 43 4B |..$.M$(6).".LOCK|
000002A0: 20 C1 56 41 49 4C 41 42 49 4C 49 54 59 20 CD 41 | .VAILABILITY .A|
000002B0: 50 22 00 CC 06 25 00 4D 24 28 37 29 B2 22 C4 49 |P"...%.M$(7).".I|
000002C0: 53 4B 20 C3 4F 4D 4D 41 4E 44 53 22 00 E4 06 26 |SK .OMMANDS"...&|
000002D0: 00 4D 24 28 38 29 B2 22 D4 52 41 43 45 20 C2 4C |.M$(8).".RACE .L|
000002E0: 4F 43 4B 53 00 00 07 27 00 4D 24 28 39 29 B2 22 |OCKS...'.M$(9)."|
000002F0: D5 4E 53 43 52 41 54 43 48 20 41 20 C6 49 4C 45 |.NSCRATCH A .ILE|
00000300: 00 0E 07 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 00 1C |...d..********..|
00000310: 07 65 00 8F 2A 20 20 20 20 20 20 2A 00 2A 07 66 |.e..* *.*.f|
00000320: 00 8F 2A 20 4D 45 4E 55 20 2A 00 38 07 67 00 8F |..* MENU *.8.g..|
00000330: 22 20 B8 B8 B8 B8 20 2A 00 46 07 68 00 8F 2A 2A |" .... *.F.h..**|
00000340: 2A 2A 2A 2A 2A 2A 00 63 07 69 00 A0 31 35 3A 9F |******.c.i..15:.|
00000350: 31 35 2C 38 2C 31 35 3A 8D 35 38 30 31 30 3A 99 |15,8,15:.58010:.|
00000360: 22 93 22 00 6F 07 6E 00 99 22 13 22 48 44 24 00 |".".o.n.."."HD$.|
00000370: 8C 07 78 00 81 49 B2 30 A4 39 3A 99 22 11 12 22 |..x..I.0.9:.".."|
00000380: 49 22 92 3A 22 4D 24 28 49 29 3A 82 00 B0 07 82 |I".:"M$(I):.....|
00000390: 00 99 56 43 24 22 11 48 49 54 20 12 D2 C5 D4 D5 |..VC$".HIT .....|
000003A0: D2 CE 92 20 54 4F 20 D1 55 49 54 13 22 54 43 24 |... TO .UIT."TC$|
000003B0: 00 C9 07 8C 00 8D 33 31 30 3A 8B 49 4E 24 B2 C7 |......310:.IN$..|
000003C0: 28 31 33 29 A7 37 39 30 30 00 DA 07 96 00 8B 49 |(13).7900......I|
000003D0: 4E 24 B2 22 85 22 A7 31 31 30 00 EB 07 A0 00 8B |N$.".".110......|
000003E0: 49 4E 24 B2 22 86 22 A7 31 31 30 00 FC 07 AA 00 |IN$.".".110.....|
000003F0: 8B 49 4E 24 B2 22 87 22 A7 31 31 30 00 32 08 B4 |.IN$.".".110.2..|
00000400: 00 99 22 13 11 22 3A 81 49 B2 30 A4 49 4E 3A 99 |.."..":.I.0.IN:.|
00000410: 22 11 11 22 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 |"..";:.:."....."|
00000420: 4D 24 28 49 4E 29 3A 81 54 39 B2 31 A4 33 30 30 |M$(IN):.T9.1.300|
00000430: 3A 82 00 6F 08 C8 00 91 49 4E AA 31 8D 35 30 30 |:..o....IN.1.500|
00000440: 30 30 2C 31 30 30 30 2C 32 30 30 30 2C 33 30 30 |00,1000,2000,300|
00000450: 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 30 30 30 |0,4000,5000,6000|
00000460: 2C 37 30 30 30 2C 37 31 30 30 2C 37 35 30 30 00 |,7000,7100,7500.|
00000470: 78 08 D2 00 89 31 30 35 00 A5 08 FA 00 46 31 B2 |x....105.....F1.|
00000480: AB 28 46 31 AA 31 29 AC 28 46 31 B3 31 35 29 3A |.(F1.1).(F1.15):|
00000490: 97 35 33 32 38 31 2C 46 31 3A 97 35 33 32 38 30 |.53281,F1:.53280|
000004A0: 2C 46 31 3A 8E 00 CE 08 04 01 46 33 B2 AB 28 46 |,F1:......F3..(F|
000004B0: 33 AA 31 29 AC 28 46 33 B3 31 35 29 3A 54 43 24 |3.1).(F3.15):TC$|
000004C0: B2 46 33 24 28 46 33 29 3A 99 54 43 24 3B 00 F8 |.F3$(F3):.TC$;..|
000004D0: 08 05 01 48 44 24 B2 53 30 24 AA C7 28 31 33 29 |...HD$.S0$..(13)|
000004E0: AA 56 43 24 AA 4D 48 24 AA 54 43 24 AA C7 28 31 |.VC$.MH$.TC$..(1|
000004F0: 33 29 AA 53 30 24 3A 8E 00 1B 09 0E 01 46 35 B2 |3).S0$:......F5.|
00000500: AB 28 46 35 AA 31 29 AC 28 46 35 B3 31 35 29 3A |.(F5.1).(F5.15):|
00000510: 56 43 24 B2 46 35 24 28 46 35 29 00 26 09 0F 01 |VC$.F5$(F5).&...|
00000520: 8D 32 36 31 3A 8E 00 31 09 2C 01 8F 20 20 47 45 |.261:..1.,.. GE|
00000530: 54 00 3C 09 2D 01 8F 22 20 B8 B8 B8 00 5B 09 31 |T.<.-.." ....[.1|
00000540: 01 99 56 43 24 22 11 12 D2 C5 D4 D5 D2 CE 92 20 |..VC$"......... |
00000550: 54 4F 20 43 4F 4E 54 22 54 43 24 00 71 09 36 01 |TO CONT"TC$.q.6.|
00000560: A1 49 4E 24 3A 8B 49 4E 24 B3 B1 22 22 A7 33 31 |.IN$:.IN$.."".31|
00000570: 30 00 86 09 40 01 A1 49 4E 24 3A 8B 49 4E 24 B2 |0...@..IN$:.IN$.|
00000580: 22 22 A7 33 32 30 00 98 09 4A 01 8B 49 4E 24 B2 |"".320...J..IN$.|
00000590: 22 85 22 A7 8D 32 35 30 00 AA 09 4B 01 8B 49 4E |"."..250...K..IN|
000005A0: 24 B2 22 86 22 A7 8D 32 36 30 00 BC 09 4C 01 8B |$."."..260...L..|
000005B0: 49 4E 24 B2 22 87 22 A7 8D 32 37 30 00 D3 09 54 |IN$."."..270...T|
000005C0: 01 49 4E B2 C5 28 49 4E 24 29 3A 8D 35 39 31 30 |.IN..(IN$):.5910|
000005D0: 30 3A 8E 00 F2 09 E8 03 8F 20 4C 4F 41 44 20 42 |0:....... LOAD B|
000005E0: 4C 4F 43 4B 20 49 4E 54 4F 20 43 4F 4D 50 55 54 |LOCK INTO COMPUT|
000005F0: 45 52 00 11 0A E9 03 8F 22 B8 B8 B8 B8 B8 B8 B8 |ER......".......|
00000600: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000610: B8 00 47 0A F2 03 A0 33 3A A0 31 35 3A 9F 31 35 |..G....3:.15:.15|
00000620: 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 22 |,8,15:.3,8,3,"#"|
00000630: 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E |:.#3,BN$:BN..(BN|
00000640: 24 29 3A 44 43 B2 33 00 58 0A F7 03 42 4E 24 B2 |$):DC.3.X...BN$.|
00000650: CA 28 42 4E 24 2C 32 29 00 70 0A FC 03 98 31 35 |.(BN$,2).p....15|
00000660: 2C 22 42 2D 50 22 3B 44 43 3B 31 3A 99 22 93 22 |,"B-P";DC;1:."."|
00000670: 00 85 0A 06 04 81 4B B2 30 A4 31 30 3A 98 33 2C |......K.0.10:.3,|
00000680: 4B 24 3B 3A 82 00 9B 0A 10 04 99 22 93 22 AA 53 |K$;:.......".".S|
00000690: 44 24 AA 22 11 11 11 11 11 11 22 00 BC 0A 1A 04 |D$."......".....|
000006A0: 85 22 12 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 |."......,.......|
000006B0: 20 20 20 A6 9D 9D 9D 22 3B 54 2C 53 00 D4 0A 24 | ....";T,S...$|
000006C0: 04 98 31 35 2C 22 42 2D 52 22 3B 44 43 3B 44 52 |..15,"B-R";DC;DR|
000006D0: 3B 54 3B 53 00 E7 0A 2E 04 98 31 35 2C 22 42 2D |;T;S......15,"B-|
000006E0: 50 22 3B 44 43 3B 30 00 01 0B 38 04 A1 23 33 2C |P";DC;0...8..#3,|
000006F0: 5A 24 3A 8B 5A 24 B2 22 22 A7 5A 24 B2 C7 28 30 |Z$:.Z$."".Z$..(0|
00000700: 29 00 16 0B 42 04 43 28 30 29 B2 C6 28 5A 24 29 |)...B.C(0)..(Z$)|
00000710: 3A 8D 31 32 30 30 00 4A 0B 60 04 99 56 43 24 22 |:.1200.J.`..VC$"|
00000720: 13 12 D2 C5 D4 D5 D2 CE 20 54 4F 20 54 45 52 4D |........ TO TERM|
00000730: 49 4E 41 54 45 22 54 43 24 3A 99 C4 28 43 28 30 |INATE"TC$:..(C(0|
00000740: 29 29 C4 28 43 28 31 29 29 3B 00 7B 0B 6A 04 4A |)).(C(1));.{.j.J|
00000750: B2 32 3A 81 49 B2 32 A4 32 35 35 3A 98 31 35 2C |.2:.I.2.255:.15,|
00000760: 22 42 2D 50 22 3B 44 43 3B 49 3A 49 25 B2 49 AD |"B-P";DC;I:I%.I.|
00000770: 33 32 3A 49 25 B2 49 25 AC 33 32 00 95 0B 74 04 |32:I%.I%.32...t.|
00000780: A1 23 33 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 24 |.#3,B$:.B$."".B$|
00000790: B2 C7 28 30 29 00 B0 0B 7E 04 43 28 49 29 B2 C6 |..(0)...~.C(I)..|
000007A0: 28 42 24 29 3A 8B 54 B3 B1 44 49 A7 31 31 36 35 |(B$):.T..DI.1165|
000007B0: 00 C7 0B 88 04 8B 53 B1 30 AF 49 25 B2 49 AB 35 |......S.0.I%.I.5|
000007C0: A7 8D 31 30 30 30 30 00 DC 0B 89 04 8B 53 B1 30 |..10000......S.0|
000007D0: AF 49 25 B2 49 A7 8D 31 31 30 30 30 00 F5 0B 8D |.I%.I..11000....|
000007E0: 04 97 43 52 54 AA 4A 2C 43 28 49 29 3A 97 4E 4E |..CRT.J,C(I):.NN|
000007F0: AA 4A 2C 46 33 00 0B 0C 92 04 A1 41 24 3A 8B 41 |.J,F3......A$:.A|
00000800: 24 B3 B1 22 22 A7 8D 31 31 39 35 00 17 0C 9C 04 |$..""..1195.....|
00000810: 4A B2 4A AA 31 3A 82 00 2E 0C A6 04 A0 33 3A A0 |J.J.1:.......3:.|
00000820: 31 35 3A 99 42 54 24 3A 8D 33 30 30 3A 8E 00 68 |15:.BT$:.300:..h|
00000830: 0C AB 04 99 53 44 24 56 43 24 22 11 11 11 11 12 |....SD$VC$".....|
00000840: C2 CC CF C3 CB 20 C8 C1 D3 20 CE CF D4 20 C2 C5 |..... ... ... ..|
00000850: C5 CE 20 C3 CF CD D0 CC C5 D4 C5 CC D9 20 CC CF |.. .......... ..|
00000860: C1 C4 C5 C4 22 54 43 24 00 A2 0C AC 04 85 22 2E |...."TC$......".|
00000870: 2E 57 41 4E 54 20 54 4F 20 43 4F 4E 54 49 4E 55 |.WANT TO CONTINU|
00000880: 45 20 4C 4F 41 44 49 4E 47 20 20 20 4E 9D 9D 9D |E LOADING N...|
00000890: 22 3B 4E 24 3A 8B 4E 24 B2 22 4E 22 A7 49 B2 32 |";N$:.N$."N".I.2|
000008A0: 35 36 00 D3 0C AD 04 99 53 44 24 22 91 91 20 20 |56......SD$".. |
000008B0: 20 20 20 20 20 20 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 22 00 FC 0C AE 04 99 22 20 20 20 20 20 20 | "......" |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 22 00 02 0D AF | "....|
00000900: 04 8E 00 12 0D B0 04 8F 20 43 28 30 29 2F 43 28 |........ C(0)/C(|
00000910: 31 29 00 22 0D B1 04 8F 22 A3 A3 A3 A3 A3 A3 A3 |1)."....".......|
00000920: A3 A3 00 39 0D BA 04 99 53 44 24 3A 98 31 35 2C |...9....SD$:.15,|
00000930: 22 42 2D 50 22 3B 33 3B 31 00 53 0D C4 04 A1 23 |"B-P";3;1.S....#|
00000940: 33 2C 42 24 3A 8B 42 24 B2 22 22 A7 42 24 B2 C7 |3,B$:.B$."".B$..|
00000950: 28 30 29 00 62 0D CE 04 43 28 31 29 B2 C6 28 42 |(0).b...C(1)..(B|
00000960: 24 29 00 96 0D D8 04 8B 43 28 30 29 B2 30 A7 99 |$)......C(0).0..|
00000970: 53 44 24 3A 99 22 CC 41 53 54 20 D4 52 41 43 4B |SD$:.".AST .RACK|
00000980: 22 3A 99 22 C2 59 54 45 53 20 D5 53 45 44 3D 22 |":.".YTES .SED="|
00000990: 43 28 31 29 3A 8E 00 C6 0D E2 04 99 53 44 24 3A |C(1):.......SD$:|
000009A0: 99 22 CE 45 58 54 20 D4 52 41 43 4B 3D 22 43 28 |.".EXT .RACK="C(|
000009B0: 30 29 3A 99 22 CE 45 58 54 20 D3 45 43 54 4F 52 |0):.".EXT .ECTOR|
000009C0: 3D 22 43 28 31 29 00 DC 0D EC 04 4E 54 B2 43 28 |="C(1).....NT.C(|
000009D0: 30 29 3A 4E 53 B2 43 28 31 29 3A 8E 00 EE 0D D0 |0):NS.C(1):.....|
000009E0: 07 8F 20 50 52 49 4E 54 20 41 53 43 49 49 00 00 |.. PRINT ASCII..|
000009F0: 0E D1 07 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |...."...........|
00000A00: 00 15 0E D2 07 49 4A B2 30 3A 49 49 B2 32 35 35 |.....IJ.0:II.255|
00000A10: 3A 99 22 93 22 00 54 0E D5 07 99 56 43 24 22 13 |:.".".T....VC$".|
00000A20: 12 D2 C5 D4 D5 D2 CE 20 54 4F 20 44 49 53 43 4F |....... TO DISCO|
00000A30: 4E 54 49 4E 55 45 20 50 52 49 4E 54 49 4E 47 2E |NTINUE PRINTING.|
00000A40: 2E 22 54 43 24 3A 99 53 30 24 3A 45 45 24 B2 22 |."TC$:.S0$:EE$."|
00000A50: 92 20 12 22 00 77 0E D6 07 5A 31 B2 33 32 3A 5A |. .".w...Z1.32:Z|
00000A60: 32 B2 32 32 33 3A 5A 33 B2 31 32 37 3A 5A 34 B2 |2.223:Z3.127:Z4.|
00000A70: 31 36 30 3A 50 B2 30 00 A7 0E D7 07 59 30 24 B2 |160:P.0.....Y0$.|
00000A80: 22 12 22 AA 54 43 24 AA 43 4C 24 3A 59 31 24 B2 |".".TC$.CL$:Y1$.|
00000A90: 56 43 24 AA 22 91 12 22 3A 59 32 24 B2 22 92 3A |VC$."..":Y2$.".:|
00000AA0: 2D 3E 22 AA 54 43 24 00 D7 0E DA 07 81 49 B2 30 |->".TC$......I.0|
00000AB0: A4 49 49 A9 38 3A 59 24 B2 59 31 24 AA C9 28 22 |.II.8:Y$.Y1$..("|
00000AC0: 20 20 22 AA C4 28 49 29 2C 33 29 AA 59 32 24 3A | "..(I),3).Y2$:|
00000AD0: 45 30 24 B2 45 45 24 00 00 0F DC 07 99 59 30 24 |E0$.EE$......Y0$|
00000AE0: 3A 99 59 24 3B 3A 81 4A B2 30 A4 37 3A 48 B2 49 |:.Y$;:.J.0.7:H.I|
00000AF0: AA 4A 3A 43 35 B2 43 28 48 29 3A 43 36 B2 43 35 |.J:C5.C(H):C6.C5|
00000B00: 00 27 0F DD 07 8B 28 43 35 B3 5A 31 B0 43 35 B1 |.'....(C5.Z1.C5.|
00000B10: 5A 32 29 B0 28 43 35 B1 5A 33 AF 43 35 B3 5A 34 |Z2).(C5.Z3.C5.Z4|
00000B20: 29 A7 43 36 B2 33 32 00 39 0F DE 07 45 30 24 B2 |).C6.32.9...E0$.|
00000B30: 45 30 24 AA C7 28 43 36 29 00 51 0F DF 07 45 24 |E0$..(C6).Q...E$|
00000B40: B2 C9 28 22 20 20 20 22 AA C4 28 43 35 29 2C 33 |..(" "..(C5),3|
00000B50: 29 00 6E 0F E4 07 99 52 24 28 50 29 45 24 52 24 |).n....R$(P)E$R$|
00000B60: 28 31 AB 50 29 3B 3A 50 B2 31 AB 50 3A 82 00 89 |(1.P);:P.1.P:...|
00000B70: 0F E9 07 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 49 |....A$:.A$.."".I|
00000B80: 49 B2 49 3A 49 B2 32 35 35 00 A8 0F EE 07 99 45 |I.I:I.255......E|
00000B90: 30 24 3A 82 3A 99 43 4C 24 3A 99 43 4C 24 3A 99 |0$:.:.CL$:.CL$:.|
00000BA0: 43 4C 24 3A 99 43 4C 24 00 DD 0F EF 07 99 22 91 |CL$:.CL$......".|
00000BB0: 91 91 91 22 53 30 24 3A 99 56 43 24 22 C3 D5 D2 |..."S0$:.VC$"...|
00000BC0: D2 C5 CE D4 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF |.... .....,.....|
00000BD0: D2 3D 22 54 22 2C 22 3B 53 3B 54 43 24 00 FE 0F |.="T",";S;TC$...|
00000BE0: F3 07 99 22 4E 45 58 54 20 54 52 41 43 4B 2C 53 |..."NEXT TRACK,S|
00000BF0: 45 43 54 4F 52 3D 22 4E 54 22 2C 22 4E 53 00 0D |ECTOR="NT","NS..|
00000C00: 10 F8 07 8B 49 4A B2 30 A7 8D 33 30 30 00 13 10 |....IJ.0..300...|
00000C10: 02 08 8E 00 26 10 B8 0B 8F 20 4D 4F 44 49 46 59 |....&.... MODIFY|
00000C20: 20 42 4C 4F 43 4B 00 39 10 B9 0B 8F 22 B8 B8 B8 | BLOCK.9...."...|
00000C30: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 64 10 F4 0B 99 22 |..........d...."|
00000C40: 93 D4 48 45 20 C1 D3 C3 C9 C9 20 43 4F 44 45 20 |..HE ..... CODE |
00000C50: 46 4F 52 20 45 41 43 48 20 42 4C 4F 43 4B 2D 42 |FOR EACH BLOCK-B|
00000C60: 59 54 45 22 00 93 10 FE 0B 99 22 11 57 49 4C 4C |YTE"......".WILL|
00000C70: 20 42 45 20 44 49 53 50 4C 41 59 45 44 2E 2E 49 | BE DISPLAYED..I|
00000C80: 2E 45 2E 20 43 28 30 29 2E 2E 2E 43 28 32 35 35 |.E. C(0)...C(255|
00000C90: 29 2E 22 00 C3 10 08 0C 99 22 11 D9 4F 55 20 4D |)."......"..OU M|
00000CA0: 41 59 20 52 45 44 45 46 49 4E 45 20 41 4E 59 20 |AY REDEFINE ANY |
00000CB0: 43 28 49 29 2E 20 D4 48 45 20 4D 4F 44 49 46 49 |C(I). .HE MODIFI|
00000CC0: 45 44 22 00 ED 10 12 0C 99 22 11 42 4C 4F 43 4B |ED"......".BLOCK|
00000CD0: 20 57 49 4C 4C 20 42 45 20 57 52 49 54 54 45 4E | WILL BE WRITTEN|
00000CE0: 20 54 4F 20 54 48 45 20 44 49 53 4B 22 00 17 11 | TO THE DISK"...|
00000CF0: 1C 0C 99 22 11 49 4E 54 4F 20 54 48 45 20 D4 52 |...".INTO THE .R|
00000D00: 41 43 4B 2C D3 45 43 54 4F 52 20 59 4F 55 20 53 |ACK,.ECTOR YOU S|
00000D10: 45 4C 45 43 54 2E 22 00 22 11 26 0C 99 22 11 11 |ELECT.".".&.."..|
00000D20: 11 22 00 3E 11 30 0C 8D 33 30 30 3A 99 22 93 22 |.".>.0..300:."."|
00000D30: 3A 49 49 B2 32 35 35 AB 38 3A 49 4A B2 31 00 4D |:II.255.8:IJ.1.M|
00000D40: 11 3A 0C 99 22 13 22 3A 8D 32 30 30 35 00 75 11 |.:..".":.2005.u.|
00000D50: 44 0C 99 56 43 24 22 3E 3E 3E 12 D2 C5 D4 D5 D2 |D..VC$">>>......|
00000D60: CE 20 54 4F 20 51 55 49 54 92 3C 3C 3C 22 54 43 |. TO QUIT.<<<"TC|
00000D70: 24 3A A1 49 24 00 B2 11 4E 0C 85 22 12 D7 C8 C9 |$:.I$...N.."....|
00000D80: C3 C8 20 49 20 C4 CF A0 D9 CF D5 A0 D7 C9 D3 C8 |.. I ...........|
00000D90: A0 D4 CF A0 CD CF C4 C9 C6 D9 92 20 20 20 20 20 |........... |
00000DA0: 9D 9D A6 9D 9D 9D 22 3B 49 24 3A 49 B2 C5 28 49 |......";I$:I..(I|
00000DB0: 24 29 00 C3 11 58 0C 8B 49 24 B2 22 A6 22 A7 33 |$)...X..I$.".".3|
00000DC0: 31 37 33 00 07 12 62 0C 99 22 43 55 52 52 45 4E |173...b.."CURREN|
00000DD0: 54 20 43 28 22 49 22 29 3D 20 20 20 20 20 A0 9D |T C("I")= ..|
00000DE0: 9D 9D 9D 9D 22 43 28 49 29 22 20 4E 45 57 20 56 |...."C(I)" NEW V|
00000DF0: 41 4C 55 45 3D 20 20 20 20 20 9D 9D 9D 9D 9D 22 |ALUE= ....."|
00000E00: 3B 3A 85 43 28 49 29 00 16 12 63 0C 8B 49 B1 49 |;:.C(I)...c..I.I|
00000E10: 49 A7 49 49 B2 49 00 20 12 64 0C 89 33 31 35 30 |I.II.I. .d..3150|
00000E20: 00 46 12 65 0C 99 22 93 22 3A 8D 32 30 30 35 3A |.F.e..".":.2005:|
00000E30: 99 22 20 20 20 20 20 20 20 20 3E 3E 3E 12 4F 4B |." >>>.OK|
00000E40: 92 3F 20 20 22 3B 00 60 12 66 0C 8D 33 31 30 3A |.? ";.`.f..310:|
00000E50: 8B 49 4E 24 B2 22 4E 22 A7 99 3A 89 33 31 35 30 |.IN$."N"..:.3150|
00000E60: 00 84 12 67 0C 85 22 93 12 52 45 54 55 52 4E 20 |...g.."..RETURN |
00000E70: 54 4F 20 4D 45 4E 55 92 20 20 20 4E 9D 9D 9D 22 |TO MENU. N..."|
00000E80: 3B 49 4E 24 00 93 12 68 0C 8B 49 4E 24 B2 22 59 |;IN$...h..IN$."Y|
00000E90: 22 A7 8E 00 BD 12 69 0C 99 56 43 24 22 93 C3 D5 |".....i..VC$"...|
00000EA0: D2 D2 C5 CE D4 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 |..... .....,....|
00000EB0: CF D2 3D 22 54 22 2C 22 53 3B 54 43 24 00 DE 12 |..="T","S;TC$...|
00000EC0: 6A 0C 99 22 4E 45 58 54 20 54 52 41 43 4B 2C 53 |j.."NEXT TRACK,S|
00000ED0: 45 43 54 4F 52 3D 22 4E 54 22 2C 22 4E 53 00 0B |ECTOR="NT","NS..|
00000EE0: 13 6C 0C 99 22 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 |.l.."...........|
00000EF0: C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 |... .....,......|
00000F00: 92 20 20 20 22 3B 54 22 2C 22 53 00 47 13 6D 0C |. ";T","S.G.m.|
00000F10: 85 22 91 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 |."............. |
00000F20: D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 1D 1D 22 |.....,........."|
00000F30: 3B 54 2C 53 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 |;T,S:.(T.1).(T.T|
00000F40: 54 29 A7 33 31 38 30 00 6B 13 76 0C 99 22 11 11 |T).3180.k.v.."..|
00000F50: 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 |............. ..|
00000F60: C9 D6 C5 92 A0 A0 A0 22 3B 44 52 00 AF 13 77 0C |.......";DR...w.|
00000F70: 85 22 91 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 |."............. |
00000F80: C4 D2 C9 D6 C5 92 1D 1D 22 3B 44 52 24 3A 44 52 |........";DR$:DR|
00000F90: B2 C5 28 44 52 24 29 3A 8B 44 52 24 B3 B1 22 30 |..(DR$):.DR$.."0|
00000FA0: 22 AF 44 52 24 B3 B1 22 31 22 A7 33 31 39 30 00 |".DR$.."1".3190.|
00000FB0: C3 13 80 0C A0 33 3A A0 31 35 3A 9F 31 35 2C 38 |.....3:.15:.15,8|
00000FC0: 2C 31 35 00 D9 13 8A 0C 9F 33 2C 38 2C 33 2C 22 |,15......3,8,3,"|
00000FD0: 23 22 3A 8D 36 33 39 30 30 00 0E 14 8F 0C A1 23 |#":.63900......#|
00000FE0: 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 3A |3,BN$:BN..(BN$):|
00000FF0: 99 22 93 22 53 44 24 22 11 11 11 11 46 49 4C 4C |."."SD$"....FILL|
00001000: 49 4E 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E 00 1B |ING ......#"BN..|
00001010: 14 99 0C 81 49 B2 30 A4 32 35 35 00 39 14 9E 0C |....I.0.255.9...|
00001020: 98 31 35 2C 22 42 2D 50 22 2C 33 2C 49 3A 98 33 |.15,"B-P",3,I:.3|
00001030: 2C C7 28 43 28 49 29 29 3B 00 49 14 A8 0C 99 22 |,.(C(I));.I...."|
00001040: 13 20 20 20 9D 9D 9D 22 49 00 4F 14 B2 0C 82 00 |. ..."I.O.....|
00001050: 66 14 D0 0C 98 31 35 2C 22 55 32 3A 22 3B 33 3B |f....15,"U2:";3;|
00001060: 44 52 3B 54 3B 53 00 84 14 DA 0C 98 31 35 2C 22 |DR;T;S......15,"|
00001070: 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 33 |I".DR$:.63900:.3|
00001080: 3A A0 31 35 00 8F 14 E4 0C 99 22 93 22 3A 8E 00 |:.15......".":..|
00001090: A7 14 A0 0F 8F 20 53 54 4F 52 45 20 43 28 49 29 |..... STORE C(I)|
000010A0: 20 49 4E 20 52 41 4D 00 BF 14 A1 0F 8F 22 B8 B8 | IN RAM......"..|
000010B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
000010C0: CF 14 A5 0F 99 22 93 22 3B 3A 8D 32 30 30 30 00 |.....".";:.2000.|
000010D0: F6 14 B4 0F 85 22 12 D3 D4 C1 D2 D4 C9 CE C7 A0 |....."..........|
000010E0: D6 C1 CC D5 C5 A0 CF C6 20 49 92 20 20 20 A6 9D |........ I. ..|
000010F0: 9D 9D 22 3B 49 31 00 23 15 BE 0F 99 22 12 D3 D4 |..";I1.#...."...|
00001100: C1 D2 D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF |................|
00001110: C3 27 CE 92 28 24 3D C8 C5 D8 29 20 20 24 37 30 |.'..($=...) $70|
00001120: 30 30 22 00 53 15 C3 0F 85 22 91 12 D3 D4 C1 D2 |00".S...."......|
00001130: D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF C3 27 |...............'|
00001140: CE 92 28 24 3D C8 C5 D8 29 22 3B 4D 24 3A 8D 39 |..($=...)";M$:.9|
00001150: 30 30 30 00 73 15 C8 0F 81 4B 31 B2 49 31 A4 32 |000.s....K1.I1.2|
00001160: 35 35 3A 97 4D AB 49 31 AA 4B 31 2C 43 28 4B 31 |55:.M.I1.K1,C(K1|
00001170: 29 3A 82 00 A8 15 D2 0F 4D B2 4D AB 49 31 AA 32 |):......M.M.I1.2|
00001180: 35 36 3A 99 22 12 CE C5 D8 D4 92 20 4D 45 4D 27 |56:."...... MEM'|
00001190: 59 20 4C 4F 43 27 4E 3D 22 4D 3B 3A 8D 39 35 30 |Y LOC'N="M;:.950|
000011A0: 30 3A 99 22 12 22 4D 24 00 B1 15 DC 0F 8D 33 30 |0:."."M$......30|
000011B0: 30 00 C1 15 E6 0F 99 22 93 22 3B 3A 8E 20 20 20 |0......".";:. |
000011C0: 20 00 D9 15 88 13 8F 20 57 52 49 54 45 20 52 41 | ...... WRITE RA|
000011D0: 4D 20 54 4F 20 44 49 53 4B 00 F1 15 89 13 8F 22 |M TO DISK......"|
000011E0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
000011F0: B8 00 26 16 9C 13 85 22 12 CD C5 CD 27 D9 20 CC |..&...."....'. .|
00001200: CF C3 27 CE 20 CF C6 20 C2 CC CF C3 CB 92 28 24 |..'. .. ......($|
00001210: 3D C8 C5 D8 29 20 20 20 A6 9D 9D 9D 22 3B 4D 24 |=...) ....";M$|
00001220: 3A 8D 39 30 30 30 00 48 16 A6 13 85 22 11 12 D3 |:.9000.H...."...|
00001230: D4 C1 D2 D4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 |.... .... I.=...|
00001240: A6 9D 9D 9D 22 3B 49 31 00 68 16 B0 13 85 22 11 |....";I1.h....".|
00001250: 12 C5 CE C4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 |.... .... I.=...|
00001260: A6 9D 9D 9D 22 3B 49 32 00 83 16 C4 13 81 49 B2 |....";I2......I.|
00001270: 49 31 A4 49 32 3A 43 28 49 29 B2 C2 28 4D AA 49 |I1.I2:C(I)..(M.I|
00001280: 29 3A 82 00 C6 16 CE 13 85 22 93 11 11 12 C4 C5 |):......."......|
00001290: D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB 2C |......... .....,|
000012A0: D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D 22 3B |....... ....";|
000012B0: 54 2C 53 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 54 |T,S:.(T.1).(T.TT|
000012C0: 29 A7 35 30 37 30 00 07 17 D8 13 85 22 11 11 11 |).5070......"...|
000012D0: 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 |............ ...|
000012E0: D6 C5 92 A0 A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A |..........";DR$:|
000012F0: 44 52 B2 C5 28 44 52 24 29 3A 8B 44 52 24 B2 22 |DR..(DR$):.DR$."|
00001300: A6 22 A7 35 30 38 30 00 47 17 E2 13 9F 33 2C 38 |.".5080.G....3,8|
00001310: 2C 33 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 |,3,"#":.#3,BN$:B|
00001320: 4E B2 C6 28 42 4E 24 29 3A 99 22 93 22 53 44 24 |N..(BN$):."."SD$|
00001330: 22 11 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 C6 |"....FILLING ...|
00001340: C6 C5 D2 23 22 42 4E 00 60 17 EC 13 81 49 B2 49 |...#"BN.`....I.I|
00001350: 31 A4 49 32 3A 99 22 13 20 20 20 9D 9D 9D 22 49 |1.I2:.". ..."I|
00001360: 00 7E 17 F6 13 98 31 35 2C 22 42 2D 50 22 3B 33 |.~....15,"B-P";3|
00001370: 3B 49 3A 98 33 2C C7 28 43 28 49 29 29 3B 00 84 |;I:.3,.(C(I));..|
00001380: 17 0A 14 82 00 9B 17 14 14 98 31 35 2C 22 55 32 |..........15,"U2|
00001390: 3A 22 3B 33 3B 44 52 3B 54 3B 53 00 B9 17 1E 14 |:";3;DR;T;S.....|
000013A0: 98 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 |.15,"I".DR$:.639|
000013B0: 30 30 3A A0 33 3A A0 31 35 00 C4 17 28 14 99 22 |00:.3:.15...(.."|
000013C0: 93 22 3A 8E 00 CE 17 70 17 8F 20 42 41 4D 00 D8 |.":....p.. BAM..|
000013D0: 17 7A 17 8F 22 B8 B8 B8 00 F2 17 84 17 96 20 A5 |.z.."......... .|
000013E0: 42 28 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 |B(I).(Z.P(I)).P(|
000013F0: 49 29 00 01 18 8E 17 A0 31 35 3A 8D 35 38 30 32 |I)......15:.5802|
00001400: 30 00 1B 18 98 17 99 22 93 11 11 12 31 92 3A 44 |0......"....1.:D|
00001410: 49 53 50 4C 41 59 20 42 41 4D 22 00 32 18 A2 17 |ISPLAY BAM".2...|
00001420: 99 22 11 12 32 92 3A 43 48 41 4E 47 45 20 42 41 |."..2.:CHANGE BA|
00001430: 4D 22 00 53 18 AC 17 99 56 43 24 22 11 11 11 12 |M".S....VC$"....|
00001440: 52 45 54 55 52 4E 92 20 54 4F 20 45 58 49 54 22 |RETURN. TO EXIT"|
00001450: 54 43 24 00 71 18 B6 17 8D 33 31 30 3A 99 22 93 |TC$.q....310:.".|
00001460: 22 3A 8B 49 4E 24 B2 C7 28 31 33 29 A7 36 30 39 |":.IN$..(13).609|
00001470: 35 00 83 18 C0 17 91 49 4E 8D 36 31 30 30 2C 36 |5......IN.6100,6|
00001480: 32 38 30 00 8D 18 CA 17 89 36 30 33 30 00 B8 18 |280......6030...|
00001490: CF 17 A0 32 3A A0 33 3A 9F 31 35 2C 38 2C 31 35 |...2:.3:.15,8,15|
000014A0: 2C 22 49 22 AA 44 52 24 3A 8D 35 38 30 31 30 3A |,"I".DR$:.58010:|
000014B0: 8D 36 33 39 30 30 3A 8E 00 CA 18 D4 17 8F 20 44 |.63900:....... D|
000014C0: 49 53 50 4C 41 59 20 42 41 4D 00 DC 18 DE 17 8F |ISPLAY BAM......|
000014D0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 01 19 E8 |"...............|
000014E0: 17 99 22 11 11 57 48 49 43 48 20 54 52 41 43 4B |.."..WHICH TRACK|
000014F0: 53 22 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |S":."...........|
00001500: B8 00 28 19 F2 17 85 22 11 11 46 49 52 53 54 2C |..(...."..FIRST,|
00001510: 4C 41 53 54 20 54 52 41 43 4B 20 20 20 A6 9D 9D |LAST TRACK ...|
00001520: 9D 22 3B 54 53 2C 54 45 00 58 19 FC 17 8B 28 54 |.";TS,TE.X....(T|
00001530: 53 B3 31 29 B0 28 54 53 B1 54 54 29 B0 28 54 45 |S.1).(TS.TT).(TE|
00001540: B3 31 29 B0 28 54 45 B1 54 54 29 B0 28 54 45 B3 |.1).(TE.TT).(TE.|
00001550: 54 53 29 A7 36 31 33 30 00 77 19 06 18 99 22 93 |TS).6130.w....".|
00001560: 12 52 45 54 55 52 4E 92 92 20 54 4F 20 53 54 4F |.RETURN.. TO STO|
00001570: 50 22 3A 99 53 30 24 00 93 19 10 18 9F 31 35 2C |P":.S0$......15,|
00001580: 38 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 |8,15,"I".DR$:.63|
00001590: 39 30 30 00 AD 19 1A 18 9F 32 2C 38 2C 32 2C 22 |900......2,8,2,"|
000015A0: 24 22 AA 44 52 24 3A 8D 36 33 39 30 30 00 C1 19 |$".DR$:.63900...|
000015B0: 24 18 46 46 B2 44 31 AA 28 54 53 AB 31 29 AC 53 |$.FF.D1.(TS.1).S|
000015C0: 33 00 D6 19 2E 18 81 4B B2 30 A4 46 46 3A A1 23 |3......K.0.FF:.#|
000015D0: 32 2C 41 24 3A 82 00 F9 19 38 18 81 54 B2 54 53 |2,A$:....8..T.TS|
000015E0: A4 54 45 3A 8B 54 B2 35 31 A7 A1 23 32 2C 41 24 |.TE:.T.51..#2,A$|
000015F0: 2C 41 24 2C 41 24 2C 41 24 00 03 1A 42 18 8D 36 |,A$,A$,A$...B..6|
00001600: 34 30 30 00 1A 1A 4C 18 A1 41 24 3A 8B 41 24 B3 |400...L..A$:.A$.|
00001610: B1 22 22 A7 54 B2 54 54 AA 31 00 34 1A 56 18 82 |."".T.TT.1.4.V..|
00001620: 3A A0 32 3A A0 31 35 3A 8D 36 38 37 30 3A 8D 33 |:.2:.15:.6870:.3|
00001630: 31 30 3A 8E 00 45 1A 60 18 8F 20 43 48 41 4E 47 |10:..E.`.. CHANG|
00001640: 45 20 42 41 4D 00 56 1A 6A 18 8F 22 A3 A3 A3 A3 |E BAM.V.j.."....|
00001650: A3 A3 A3 A3 A3 A3 00 75 1A 74 18 85 22 93 4D 4F |.......u.t..".MO|
00001660: 52 45 20 43 48 41 4E 47 45 53 20 20 20 59 9D 9D |RE CHANGES Y..|
00001670: 9D 22 3B 49 24 00 84 1A 7E 18 8B 49 24 B3 B1 22 |.";I$...~..I$.."|
00001680: 59 22 A7 8E 00 C1 1A 88 18 8B 44 54 B2 36 37 A7 |Y"........DT.67.|
00001690: 99 22 93 53 4F 52 52 59 2E 2E 43 41 4E 27 54 20 |.".SORRY..CAN'T |
000016A0: 43 48 41 4E 47 45 20 42 41 4D 20 46 4F 52 20 54 |CHANGE BAM FOR T|
000016B0: 48 49 53 20 44 49 53 4B 2E 22 3A 8D 33 31 30 3A |HIS DISK.":.310:|
000016C0: 8E 00 EC 1A 8D 18 85 22 93 54 52 41 43 4B 20 20 |.......".TRACK |
000016D0: 20 D6 9D 9D 9D 22 3B 54 3A 8B 28 54 B3 31 29 B0 | ....";T:.(T.1).|
000016E0: 28 54 B1 54 54 29 A7 4E 36 32 38 30 00 FD 1A 92 |(T.TT).N6280....|
000016F0: 18 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 00 16 1B |..15:.15,8,15...|
00001700: 9C 18 A0 32 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A |...2:.2,8,2,"#":|
00001710: 8D 36 33 39 30 30 00 2E 1B A6 18 98 31 35 2C 22 |.63900......15,"|
00001720: 55 31 3A 22 3B 32 3B 44 52 3B 44 49 3B 30 00 42 |U1:";2;DR;DI;0.B|
00001730: 1B B0 18 98 31 35 2C 22 42 2D 50 22 3B 32 3B 54 |....15,"B-P";2;T|
00001740: AC 34 00 72 1B BA 18 99 56 43 24 22 93 48 49 54 |.4.r....VC$".HIT|
00001750: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 51 55 49 | .RETURN. TO QUI|
00001760: 54 11 22 54 43 24 3A 8D 36 34 30 30 3A 8D 36 35 |T."TC$:.6400:.65|
00001770: 38 30 00 B2 1B C4 18 85 22 13 11 11 11 11 11 11 |80......".......|
00001780: 11 11 11 43 48 41 4E 47 45 20 57 48 49 43 48 20 |...CHANGE WHICH |
00001790: 53 45 43 54 4F 52 20 20 20 20 20 9D 9D D6 9D 9D |SECTOR .....|
000017A0: 9D 22 3B 53 24 3A 8B 53 24 B2 22 D6 22 A7 36 32 |.";S$:.S$.".".62|
000017B0: 36 30 00 D1 1B CE 18 53 B2 C5 28 53 24 29 3A 8B |60.....S..(S$):.|
000017C0: 53 B3 30 B0 53 B1 B2 53 43 28 54 29 A7 36 32 36 |S.0.S..SC(T).626|
000017D0: 30 00 E1 1B D8 18 A0 32 3A A0 31 35 3A 99 53 44 |0......2:.15:.SD|
000017E0: 24 00 10 1C E2 18 8D 36 36 32 30 3A 8D 36 34 38 |$......6620:.648|
000017F0: 30 3A 8D 36 35 38 30 3A 99 3A 99 4D 44 24 22 12 |0:.6580:.:.MD$".|
00001800: 4F 4B 3F 92 22 3B 3A 8D 33 31 30 3A 99 43 4C 24 |OK?.";:.310:.CL$|
00001810: 00 23 1C EC 18 8B 49 4E 24 B2 22 59 22 A7 8D 36 |.#....IN$."Y"..6|
00001820: 37 33 30 00 32 1C F1 18 99 4D 44 24 43 4C 24 53 |730.2....MD$CL$S|
00001830: 44 24 00 42 1C F6 18 8D 36 34 38 30 3A 89 36 33 |D$.B....6480:.63|
00001840: 34 30 00 55 1C 00 19 81 4B B2 30 A4 53 32 3A A1 |40.U....K.0.S2:.|
00001850: 23 32 2C 41 24 00 68 1C 0A 19 8B 41 24 B2 22 22 |#2,A$.h....A$.""|
00001860: A7 41 24 B2 C7 28 30 29 00 77 1C 14 19 42 28 4B |.A$..(0).w...B(K|
00001870: 29 B2 C6 28 41 24 29 00 7D 1C 1E 19 82 00 8F 1C |)..(A$).}.......|
00001880: 50 19 8F 20 50 52 49 4E 54 20 54 52 41 43 4B 00 |P.. PRINT TRACK.|
00001890: A1 1C 5A 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |..Z.."..........|
000018A0: A3 00 B4 1C 64 19 81 4B B2 31 A4 53 31 3A 5A B2 |....d..K.1.S1:Z.|
000018B0: 42 28 4B 29 00 BF 1C 6E 19 81 49 B2 30 A4 37 00 |B(K)...n..I.0.7.|
000018C0: D6 1C 78 19 58 B2 A5 42 28 49 29 3A 99 58 24 28 |..x.X..B(I):.X$(|
000018D0: 58 29 3B 3A 82 49 00 DD 1C 82 19 82 4B 00 FA 1C |X);:.I......K...|
000018E0: 8C 19 5A B2 42 28 4B 29 3A 81 49 B2 30 A4 53 43 |..Z.B(K):.I.0.SC|
000018F0: 28 54 29 AB 53 43 28 54 54 29 00 13 1D 96 19 58 |(T).SC(TT).....X|
00001900: B2 A5 42 28 49 29 3A 99 58 24 28 58 29 3B 3A 82 |..B(I):.X$(X);:.|
00001910: 49 3A 99 00 36 1D A0 19 99 22 91 22 A3 32 32 29 |I:..6....".".22)|
00001920: 22 54 52 41 43 4B 12 22 54 22 92 9D 46 52 45 45 |"TRACK."T"..FREE|
00001930: 3D 22 42 28 30 29 00 3C 1D AA 19 8E 00 4E 1D B4 |="B(0).<.....N..|
00001940: 19 99 C8 28 53 31 24 2C 53 43 28 54 29 29 00 75 |...(S1$,SC(T)).u|
00001950: 1D BE 19 99 C8 28 53 32 24 2C 53 43 28 54 29 29 |.....(S2$,SC(T))|
00001960: A3 32 33 29 22 23 20 53 45 43 54 4F 52 53 3D 22 |.23)"# SECTORS="|
00001970: 53 43 28 54 29 00 99 1D C8 19 8B 53 43 28 54 29 |SC(T)......SC(T)|
00001980: B2 32 31 A7 99 C8 28 53 33 24 2C 53 43 28 54 29 |.21...(S3$,SC(T)|
00001990: AA 31 29 3A 89 36 36 31 30 00 AB 1D CD 19 99 C8 |.1):.6610.......|
000019A0: 28 53 33 24 2C 53 43 28 54 29 29 00 B6 1D D2 19 |(S3$,SC(T)).....|
000019B0: 99 53 30 24 3A 8E 00 CA 1D DC 19 8F 20 43 48 41 |.S0$:....... CHA|
000019C0: 4E 47 45 20 53 45 43 54 4F 52 00 DE 1D E6 19 8F |NGE SECTOR......|
000019D0: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 F9 |"...............|
000019E0: 1D F0 19 8B 53 B3 38 A7 5A B2 42 28 31 29 3A 53 |....S.8.Z.B(1):S|
000019F0: 53 B2 53 3A 89 36 36 37 30 00 17 1E FA 19 8B 53 |S.S:.6670......S|
00001A00: B3 31 36 A7 5A B2 42 28 32 29 3A 53 53 B2 53 AB |.16.Z.B(2):SS.S.|
00001A10: 38 3A 89 36 36 37 30 00 2A 1E 04 1A 5A B2 42 28 |8:.6670.*...Z.B(|
00001A20: 33 29 3A 53 53 B2 53 AB 31 36 00 47 1E 0E 1A 4E |3):SS.S.16.G...N|
00001A30: 5A B2 28 A8 5A AF 50 28 53 53 29 29 B0 28 5A AF |Z.(.Z.P(SS)).(Z.|
00001A40: A8 50 28 53 53 29 29 00 63 1E 18 1A 42 28 30 29 |.P(SS)).c...B(0)|
00001A50: B2 42 28 30 29 AA 28 4E 5A B3 5A 29 AB 28 4E 5A |.B(0).(NZ.Z).(NZ|
00001A60: B1 5A 29 00 7A 1E 22 1A 8B 53 B3 38 A7 42 28 31 |.Z).z."..S.8.B(1|
00001A70: 29 B2 4E 5A 3A 89 36 37 32 30 00 92 1E 2C 1A 8B |).NZ:.6720...,..|
00001A80: 53 B3 31 36 A7 42 28 32 29 B2 4E 5A 3A 89 36 37 |S.16.B(2).NZ:.67|
00001A90: 32 30 00 9E 1E 36 1A 42 28 33 29 B2 4E 5A 00 A4 |20...6.B(3).NZ..|
00001AA0: 1E 40 1A 8E 00 B1 1E 4A 1A 9F 31 35 2C 38 2C 31 |.@.....J..15,8,1|
00001AB0: 35 00 E9 1E 54 1A 99 4D 44 24 56 43 24 22 12 41 |5...T..MD$VC$".A|
00001AC0: 52 45 20 59 4F 55 20 53 55 52 45 3F 92 22 54 43 |RE YOU SURE?."TC|
00001AD0: 24 3B 3A 8D 33 31 30 3A 99 49 4E 24 3B 3A 8B 49 |$;:.310:.IN$;:.I|
00001AE0: 4E 24 B3 B1 22 59 22 A7 8E 00 03 1F 5E 1A 99 22 |N$.."Y".....^.."|
00001AF0: 2E 2E 12 43 48 41 4E 47 49 4E 47 20 42 41 4D 2E |...CHANGING BAM.|
00001B00: 2E 22 3B 00 19 1F 68 1A 9F 33 2C 38 2C 33 2C 22 |.";...h..3,8,3,"|
00001B10: 23 22 3A 8D 36 33 39 30 30 00 2F 1F 72 1A A1 23 |#":.63900./.r..#|
00001B20: 33 2C 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 |3,BN$:BN..(BN$).|
00001B30: 3B 1F 86 1A 81 49 B2 30 A4 53 32 00 5F 1F 90 1A |;....I.0.S2._...|
00001B40: 98 31 35 2C 22 42 2D 50 22 3B 33 3B 49 AA 54 AC |.15,"B-P";3;I.T.|
00001B50: 34 3A 98 33 2C C7 28 42 28 49 29 29 3B 3A 82 00 |4:.3,.(B(I));:..|
00001B60: 77 1F B8 1A 98 31 35 2C 22 55 32 3A 22 3B 33 3B |w....15,"U2:";3;|
00001B70: 44 52 3B 44 49 3B 30 00 95 1F C2 1A 98 31 35 2C |DR;DI;0......15,|
00001B80: 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 |"I".DR$:.63900:.|
00001B90: 33 3A A0 31 35 00 9B 1F CC 1A 8E 00 D3 1F D6 1A |3:.15...........|
00001BA0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001BB0: 11 11 11 11 11 11 11 11 11 11 11 12 52 45 54 55 |............RETU|
00001BC0: 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |RN. TO CONTINUE"|
00001BD0: 3B 3A 8E 00 E7 1F 58 1B 8F 20 44 49 53 4B 20 43 |;:....X.. DISK C|
00001BE0: 4F 4D 4D 41 4E 44 53 00 FB 1F 59 1B 8F 22 B8 B8 |OMMANDS...Y.."..|
00001BF0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 0F 20 5A 1B |............. Z.|
00001C00: 8D 35 38 30 31 30 3A A0 31 35 3A 99 22 93 22 00 |.58010:.15:.".".|
00001C10: 26 20 5B 1B 44 24 28 31 29 B2 22 C9 4E 49 54 49 |& [.D$(1).".NITI|
00001C20: 41 4C 49 5A 45 22 00 3B 20 5C 1B 44 24 28 32 29 |ALIZE".; \.D$(2)|
00001C30: B2 22 D6 41 4C 49 44 41 54 45 22 00 54 20 5D 1B |.".ALIDATE".T ].|
00001C40: 44 24 28 33 29 B2 22 C3 48 41 4E 47 45 20 C4 D2 |D$(3).".HANGE ..|
00001C50: C9 D6 C5 23 00 72 20 5E 1B 44 24 28 34 29 B2 22 |...#.r ^.D$(4)."|
00001C60: C4 49 53 50 4C 41 59 20 C4 49 52 45 43 54 4F 52 |.ISPLAY .IRECTOR|
00001C70: 59 22 00 8F 20 61 1B 81 49 B2 31 A4 34 3A 99 22 |Y".. a..I.1.4:."|
00001C80: 11 12 22 49 22 92 3A 22 44 24 28 49 29 3A 82 00 |.."I".:"D$(I):..|
00001C90: B0 20 62 1B 99 56 43 24 22 11 11 11 12 D2 C5 D4 |. b..VC$".......|
00001CA0: D5 D2 CE 92 20 54 4F 20 45 58 49 54 22 54 43 24 |.... TO EXIT"TC$|
00001CB0: 00 C6 20 63 1B 8D 33 31 30 3A 8B 49 4E 24 B2 C7 |.. c..310:.IN$..|
00001CC0: 28 31 33 29 A7 8E 00 DA 20 64 1B 8B 49 4E B3 31 |(13).... d..IN.1|
00001CD0: B0 49 4E B1 35 A7 37 30 30 30 00 10 21 65 1B 99 |.IN.5.7000..!e..|
00001CE0: 22 13 22 3B 3A 81 49 B2 31 A4 49 4E 3A 99 22 11 |".";:.I.1.IN:.".|
00001CF0: 11 22 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 44 24 |.";:.:."....."D$|
00001D00: 28 49 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A 82 |(IN):.T9.1.300:.|
00001D10: 00 2E 21 67 1B 91 20 49 4E 20 8D 37 30 32 30 2C |..!g.. IN .7020,|
00001D20: 37 30 33 30 2C 37 30 34 30 2C 37 30 35 30 00 38 |7030,7040,7050.8|
00001D30: 21 68 1B 89 37 30 30 30 00 56 21 6C 1B 9F 31 35 |!h..7000.V!l..15|
00001D40: 2C 38 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 |,8,15,"I".DR$:.6|
00001D50: 33 39 30 30 3A 8E 00 74 21 76 1B 9F 31 35 2C 38 |3900:..t!v..15,8|
00001D60: 2C 31 35 2C 22 56 22 AA 44 52 24 3A 8D 36 33 39 |,15,"V".DR$:.639|
00001D70: 30 30 3A 8E 00 9F 21 80 1B 44 52 B2 31 AB 44 52 |00:...!..DR.1.DR|
00001D80: 3A 44 52 24 B2 CA 28 C4 28 44 52 29 2C 32 29 3A |:DR$..(.(DR),2):|
00001D90: 99 22 93 11 44 52 49 56 45 20 23 22 44 52 24 00 |."..DRIVE #"DR$.|
00001DA0: D8 21 81 1B 4D 48 24 B2 22 12 44 52 49 56 45 23 |.!..MH$.".DRIVE#|
00001DB0: 22 AA 44 52 24 AA 22 3A 2A 2A 2A 2A 2A 2A 2A 2A |".DR$.":********|
00001DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DD0: 2A 2A 2A 2A 2A 2A 92 22 00 E1 21 82 1B 8D 32 36 |******."..!...26|
00001DE0: 31 00 ED 21 83 1B 8D 38 30 34 30 3A 8E 00 1A 22 |1..!...8040:..."|
00001DF0: 8A 1B 99 22 93 22 48 44 24 3A 99 22 48 49 54 20 |..."."HD$:."HIT |
00001E00: 41 20 4B 45 59 20 54 4F 20 53 54 4F 50 11 22 56 |A KEY TO STOP."V|
00001E10: 43 24 3A 5A 24 B2 C7 28 30 29 00 4D 22 8C 1B 99 |C$:Z$..(0).M"...|
00001E20: 22 12 C2 CC CB D3 20 20 20 20 20 20 20 CE C1 CD |"..... ...|
00001E30: C5 20 20 20 20 20 20 20 20 20 D4 D9 D0 C5 20 20 |. .... |
00001E40: 20 28 20 D4 2C D3 20 29 20 22 54 43 24 00 68 22 | ( .,. ) "TC$.h"|
00001E50: 8D 1B 99 53 30 24 3A A0 33 3A 9F 33 2C 38 2C 33 |...S0$:.3:.3,8,3|
00001E60: 2C 22 24 22 AA 44 52 24 00 AD 22 8E 1B 54 59 24 |,"$".DR$.."..TY$|
00001E70: 28 30 29 B2 22 C4 C5 CC 22 3A 54 59 24 28 31 29 |(0)."...":TY$(1)|
00001E80: B2 22 D3 C5 D1 22 3A 54 59 24 28 32 29 B2 22 D0 |."...":TY$(2).".|
00001E90: D2 C7 22 3A 54 59 24 28 33 29 B2 22 D5 D3 D2 22 |..":TY$(3)."..."|
00001EA0: 3A 54 59 24 28 34 29 B2 22 D2 C5 CC 22 00 C3 22 |:TY$(4)."...".."|
00001EB0: 90 1B 81 49 B2 30 A4 32 35 33 3A A1 23 33 2C 41 |...I.0.253:.#3,A|
00001EC0: 24 3A 82 00 FC 22 92 1B 81 50 B2 31 A4 38 3A A1 |$:..."...P.1.8:.|
00001ED0: 23 33 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 |#3,A$:A..(A$..(0|
00001EE0: 29 29 AB 31 32 38 3A 41 33 24 B2 54 59 24 28 AB |)).128:A3$.TY$(.|
00001EF0: 41 AC 28 41 B1 30 AF 41 B3 35 29 29 00 26 23 94 |A.(A.0.A.5)).&#.|
00001F00: 1B A1 23 33 2C 41 24 2C 42 24 3A 41 B2 C6 28 41 |..#3,A$,B$:A..(A|
00001F10: 24 AA 5A 24 29 3A 42 B2 C6 28 42 24 AA 5A 24 29 |$.Z$):B..(B$.Z$)|
00001F20: 3A 4B 39 B2 53 54 00 5A 23 95 1B 41 24 B2 C9 28 |:K9.ST.Z#..A$..(|
00001F30: C4 28 41 29 2C 32 29 3A 42 24 B2 C9 28 C4 28 42 |.(A),2):B$..(.(B|
00001F40: 29 2C 32 29 3A 41 34 24 B2 22 28 22 AA 41 24 AA |),2):A4$."(".A$.|
00001F50: 22 2C 22 AA 42 24 AA 22 29 22 00 69 23 96 1B 8B |",".B$.")".i#...|
00001F60: 20 4B 39 20 A7 37 30 37 35 00 9D 23 98 1B 41 32 | K9 .7075..#..A2|
00001F70: 24 B2 22 12 22 3A 81 49 B2 31 A4 31 36 3A A1 23 |$.".":.I.1.16:.#|
00001F80: 33 2C 41 24 3A 41 32 24 B2 41 32 24 AA 41 24 3A |3,A$:A2$.A2$.A$:|
00001F90: 82 3A 41 32 24 B2 41 32 24 AA 22 92 22 00 C0 23 |.:A2$.A2$."."..#|
00001FA0: 9A 1B A1 23 33 2C 41 24 2C 41 24 2C 41 24 2C 41 |...#3,A$,A$,A$,A|
00001FB0: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
00001FC0: 00 FC 23 9C 1B A1 23 33 2C 41 24 2C 42 24 3A 41 |..#...#3,A$,B$:A|
00001FD0: B2 C6 28 41 24 AA C7 28 30 29 29 3A 42 B2 C6 28 |..(A$..(0)):B..(|
00001FE0: 42 24 AA C7 28 30 29 29 3A 43 B2 41 AA 32 35 36 |B$..(0)):C.A.256|
00001FF0: AC 42 3A 8B 43 B2 30 A7 50 B2 31 30 00 14 24 9D |.B:.C.0.P.10..$.|
00002000: 1B 41 31 24 B2 C9 28 22 20 20 20 22 AA C4 28 43 |.A1$..(" "..(C|
00002010: 29 2C 33 29 00 27 24 9E 1B 8B 50 B3 38 A7 A1 23 |),3).'$...P.8..#|
00002020: 33 2C 41 24 2C 41 24 00 4E 24 A0 1B 8B 20 43 20 |3,A$,A$.N$... C |
00002030: A7 20 99 41 31 24 22 20 20 20 22 41 32 24 22 20 |. .A1$" "A2$" |
00002040: 20 20 22 41 33 24 22 20 20 20 22 41 34 24 00 63 | "A3$" "A4$.c|
00002050: 24 A1 1B A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 50 |$...A$:.A$.."".P|
00002060: B2 31 30 00 74 24 A2 1B 82 3A 8B 50 B3 31 30 A7 |.10.t$...:.P.10.|
00002070: 37 30 35 38 00 8F 24 A3 1B A0 33 3A 99 3A 8D 37 |7058..$...3:.:.7|
00002080: 30 38 30 3A 99 53 30 24 3A 8D 33 30 30 3A 8E 00 |080:.S0$:.300:..|
00002090: A1 24 A8 1B 8F 20 42 4C 4F 43 4B 53 20 46 52 45 |.$... BLOCKS FRE|
000020A0: 45 00 B8 24 A9 1B 9F 31 2C 38 2C 30 2C 22 24 22 |E..$...1,8,0,"$"|
000020B0: AA 44 52 24 AA 22 3A 22 00 C2 24 AA 1B 8D 37 30 |.DR$.":"..$...70|
000020C0: 38 35 00 E2 24 AB 1B 4C B2 58 AA 59 AC 32 35 36 |85..$..L.X.Y.256|
000020D0: 3A 99 4C 3B 22 20 C2 CC CF C3 CB D3 20 C6 D2 C5 |:.L;" ...... ...|
000020E0: C5 22 00 EB 24 AC 1B A0 31 3A 8E 00 05 25 AD 1B |."..$...1:...%..|
000020F0: A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C |.#1,X$,X$,X$,X$,|
00002100: 58 24 2C 58 24 00 1D 25 AE 1B A1 23 31 2C 58 24 |X$,X$..%...#1,X$|
00002110: 3A 8B 58 24 B3 B1 22 22 89 37 30 38 36 00 31 25 |:.X$.."".7086.1%|
00002120: AF 1B A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 59 |...#1,X$,X$,X$,Y|
00002130: 24 00 48 25 B0 1B 58 B2 C3 28 58 24 29 3A 8B 58 |$.H%..X..(X$):.X|
00002140: A7 58 B2 C6 28 58 24 29 00 5F 25 B1 1B 59 B2 C3 |.X..(X$)._%..Y..|
00002150: 28 59 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 00 |(Y$):.Y.Y..(Y$).|
00002160: 65 25 B2 1B 8E 00 78 25 BC 1B 8F 20 54 52 41 43 |e%....x%... TRAC|
00002170: 45 20 42 4C 4F 43 4B 53 00 8B 25 BD 1B 8F 22 B8 |E BLOCKS..%...".|
00002180: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B8 25 C1 1B |.............%..|
00002190: 85 22 93 12 53 54 41 52 54 49 4E 47 20 D4 D2 C1 |."..STARTING ...|
000021A0: C3 CB 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D |..,....... ...|
000021B0: 9D 22 3B 54 38 2C 53 38 00 E4 25 C2 1B 8B 28 54 |.";T8,S8..%...(T|
000021C0: 38 B3 31 29 B0 28 54 38 B1 54 54 29 B0 28 53 38 |8.1).(T8.TT).(S8|
000021D0: B3 30 29 B0 28 53 38 B1 53 43 28 54 38 29 29 A7 |.0).(S8.SC(T8)).|
000021E0: 37 31 30 35 00 1C 26 C6 1B A0 33 3A A0 31 35 3A |7105..&...3:.15:|
000021F0: 9F 31 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C |.15,8,15:.3,8,3,|
00002200: 22 23 22 3A 8D 36 33 39 30 30 3A A1 23 33 2C 42 |"#":.63900:.#3,B|
00002210: 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 2D 26 C7 |N$:BN..(BN$).-&.|
00002220: 1B 42 4E 24 B2 CA 28 42 4E 24 2C 32 29 00 54 26 |.BN$..(BN$,2).T&|
00002230: CB 1B 99 3A 99 22 28 22 54 38 22 2C 22 53 38 22 |...:."("T8","S8"|
00002240: 29 5F 20 C6 C9 D2 D3 D4 20 C2 CC CF C3 CB 22 3A |)_ ..... .....":|
00002250: 4E 39 B2 31 00 6D 26 D0 1B 98 31 35 2C 22 42 2D |N9.1.m&...15,"B-|
00002260: 52 22 3B 33 3B 44 52 3B 54 38 3B 53 38 00 7F 26 |R";3;DR;T8;S8..&|
00002270: DA 1B 98 31 35 2C 22 42 2D 50 22 3B 33 3B 30 00 |...15,"B-P";3;0.|
00002280: 99 26 E4 1B A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 |.&...#3,Z$:.Z$."|
00002290: 22 A7 5A 24 B2 C7 28 30 29 00 B1 26 EE 1B 54 38 |".Z$..(0)..&..T8|
000022A0: B2 C6 28 5A 24 29 3A 8B 54 38 B2 30 A7 37 32 30 |..(Z$):.T8.0.720|
000022B0: 30 00 CB 26 F8 1B A1 23 33 2C 5A 24 3A 8B 5A 24 |0..&...#3,Z$:.Z$|
000022C0: B2 22 22 A7 5A 24 B2 C7 28 30 29 00 D8 26 02 1C |."".Z$..(0)..&..|
000022D0: 53 38 B2 C6 28 5A 24 29 00 FA 26 07 1C 54 38 24 |S8..(Z$)..&..T8$|
000022E0: B2 CA 28 C4 28 54 38 29 2C 32 29 3A 53 38 24 B2 |..(.(T8),2):S8$.|
000022F0: CA 28 C4 28 53 38 29 2C 32 29 00 10 27 0C 1C 99 |.(.(S8),2)..'...|
00002300: 22 28 22 54 38 24 22 2C 22 53 38 24 22 29 22 3B |"("T8$","S8$")";|
00002310: 00 22 27 16 1C 4E 39 B2 4E 39 AA 31 3A 89 37 31 |."'..N9.N9.1:.71|
00002320: 32 30 00 38 27 20 1C 99 22 5F 20 CC C1 D3 D4 20 |20.8' .."_ .... |
00002330: C2 CC CF C3 CB 11 11 22 00 51 27 2A 1C 99 4E 39 |.......".Q'*..N9|
00002340: 22 20 42 4C 4F 43 4B 53 11 22 3A 8D 33 30 30 3A |" BLOCKS.":.300:|
00002350: 8E 00 61 27 4C 1D 8F 20 55 4E 53 43 52 41 54 43 |..a'L.. UNSCRATC|
00002360: 48 00 71 27 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 |H.q'M.."........|
00002370: B8 00 91 27 56 1D 99 22 93 D7 45 27 4C 4C 20 44 |...'V.."..E'LL D|
00002380: 4F 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A |O THE FOLLOWING:|
00002390: 22 00 C0 27 57 1D 99 22 11 12 31 92 3A C7 4F 20 |"..'W.."..1.:.O |
000023A0: 54 48 52 55 27 20 44 49 52 45 43 54 4F 52 59 20 |THRU' DIRECTORY |
000023B0: 54 52 41 43 4B 22 44 49 22 20 55 4E 54 49 4C 22 |TRACK"DI" UNTIL"|
000023C0: 00 EA 27 58 1D 99 22 20 20 57 45 20 46 49 4E 44 |..'X.." WE FIND|
000023D0: 20 54 48 45 20 53 43 52 41 54 43 48 45 44 20 46 | THE SCRATCHED F|
000023E0: 49 4C 45 20 4E 41 4D 45 2E 22 00 13 28 59 1D 99 |ILE NAME."..(Y..|
000023F0: 22 11 12 32 92 3A D4 52 41 43 45 20 54 48 45 20 |"..2.:.RACE THE |
00002400: C2 4C 4F 43 4B 53 20 41 4E 44 20 43 4F 4D 50 41 |.LOCKS AND COMPA|
00002410: 52 45 22 00 39 28 5A 1D 99 22 20 20 54 48 45 20 |RE".9(Z.." THE |
00002420: C2 4C 4F 43 4B 53 20 4F 42 54 41 49 4E 45 44 20 |.LOCKS OBTAINED |
00002430: 57 49 54 48 20 54 48 45 22 00 59 28 5B 1D 99 22 |WITH THE".Y([.."|
00002440: 20 20 C4 49 52 45 43 54 4F 52 59 20 C2 4C 4F 43 | .IRECTORY .LOC|
00002450: 4B 20 C3 4F 55 4E 54 2E 22 00 87 28 5C 1D 99 22 |K .OUNT."..(\.."|
00002460: 11 12 33 92 3A CC 4F 4F 4B 20 41 54 20 54 48 45 |..3.:.OOK AT THE|
00002470: 20 C2 4C 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C | .LOCK .VAILABIL|
00002480: 54 59 20 CD 41 50 22 00 B3 28 5D 1D 99 22 20 20 |TY .AP"..(].." |
00002490: 54 4F 20 53 45 45 20 49 46 20 41 4C 4C 20 54 48 |TO SEE IF ALL TH|
000024A0: 45 20 42 4C 4F 43 4B 53 20 41 52 45 20 46 52 45 |E BLOCKS ARE FRE|
000024B0: 45 2E 22 00 D8 28 5E 1D 99 22 11 3E 3E C9 46 20 |E."..(^..".>>.F |
000024C0: 41 4C 4C 20 4F 46 20 54 48 45 20 41 42 4F 56 45 |ALL OF THE ABOVE|
000024D0: 20 41 52 45 20 CF CB 22 00 FF 28 5F 1D 99 22 20 | ARE .."..(_.." |
000024E0: 20 59 4F 55 20 54 48 45 4E 20 CD 4F 44 49 46 59 | YOU THEN .ODIFY|
000024F0: 20 54 48 45 20 C4 49 52 45 43 54 4F 52 59 22 00 | THE .IRECTORY".|
00002500: 19 29 60 1D 99 22 20 20 41 53 20 46 4F 4C 4C 4F |.)`.." AS FOLLO|
00002510: 57 53 3A 22 3A 8D 33 30 30 00 3E 29 74 1D 99 22 |WS:":.300.>)t.."|
00002520: 93 CD 4F 44 49 46 59 20 54 48 45 20 42 4C 4F 43 |..ODIFY THE BLOC|
00002530: 4B 20 53 4F 20 54 48 41 54 20 54 48 45 22 00 51 |K SO THAT THE".Q|
00002540: 29 79 1D 99 22 12 4D 41 47 49 43 20 42 59 54 45 |)y..".MAGIC BYTE|
00002550: 22 00 7E 29 7E 1D 99 22 20 20 57 48 49 43 48 20 |".~)~.." WHICH |
00002560: 4F 43 43 55 52 53 20 4A 55 53 54 20 12 33 92 20 |OCCURS JUST .3. |
00002570: 50 4C 41 43 45 53 20 42 45 46 4F 52 45 22 00 9F |PLACES BEFORE"..|
00002580: 29 88 1D 99 22 20 20 54 48 45 20 4E 41 4D 45 20 |)..." THE NAME |
00002590: 49 53 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 00 |IS AS FOLLOWS:".|
000025A0: B5 29 92 1D 99 22 20 20 31 32 39 3D D3 C5 D1 20 |.)..." 129=... |
000025B0: 46 49 4C 45 22 00 CC 29 93 1D 99 22 20 20 31 33 |FILE"..)..." 13|
000025C0: 30 3D D0 D2 CF C7 20 46 49 4C 45 22 00 E2 29 94 |0=.... FILE"..).|
000025D0: 1D 99 22 20 20 31 33 31 3D D5 D3 D2 20 46 49 4C |.." 131=... FIL|
000025E0: 45 22 00 F8 29 95 1D 99 22 20 20 31 33 32 3D D2 |E"..)..." 132=.|
000025F0: C5 CC 20 46 49 4C 45 22 00 27 2A 9C 1D 99 22 11 |.. FILE".'*...".|
00002600: C5 58 41 4D 50 4C 45 3A 54 4F 20 55 4E 53 43 52 |.XAMPLE:TO UNSCR|
00002610: 41 54 43 48 20 41 20 D0 D2 CF C7 20 46 49 4C 45 |ATCH A .... FILE|
00002620: 20 27 C1 C2 DA 27 22 00 53 2A A6 1D 99 22 46 49 | '...'".S*..."FI|
00002630: 4E 44 20 49 54 27 53 20 4E 41 4D 45 20 4F 4E 20 |ND IT'S NAME ON |
00002640: 54 48 45 20 C4 C9 D2 C5 C3 D4 CF D2 D9 2C 20 41 |THE ........., A|
00002650: 4E 44 22 00 79 2A B0 1D 99 22 53 45 4C 45 43 54 |ND".y*..."SELECT|
00002660: 20 CD C5 CE D5 20 49 54 45 4D 3D CD 4F 44 49 46 | .... ITEM=.ODIF|
00002670: 59 20 C2 4C 4F 43 4B 2E 22 00 8E 2A BA 1D 99 22 |Y .LOCK."..*..."|
00002680: D9 4F 55 20 57 49 4C 4C 20 53 45 45 3A 22 00 C8 |.OU WILL SEE:"..|
00002690: 2A C4 1D 99 22 11 2E 2E 20 30 12 20 30 92 20 30 |*..."... 0. 0. 0|
000026A0: 22 56 43 24 22 12 20 30 22 54 43 24 22 92 20 31 |"VC$". 0"TC$". 1|
000026B0: 39 12 20 33 92 20 36 35 12 20 36 36 92 20 39 30 |9. 3. 65. 66. 90|
000026C0: 2E 2E 2E 2E 45 54 43 22 00 E8 2A CE 1D 99 22 20 |....ETC"..*..." |
000026D0: 20 20 20 20 20 20 20 20 5E 20 20 5E 20 5E 20 20 | ^ ^ ^ |
000026E0: 5E 20 20 5E 20 20 5E 22 00 08 2B D8 1D 99 22 20 |^ ^ ^"..+..." |
000026F0: 53 48 4F 55 4C 44 20 42 45 20 DD D4 52 43 4B DD |SHOULD BE ..RCK.|
00002700: C1 20 20 C2 20 20 DA 22 00 33 2B E2 1D 99 22 20 |. . .".3+..." |
00002710: 20 20 20 20 41 20 31 33 30 20 DD 26 D3 45 43 DD | A 130 .&.EC.|
00002720: C6 49 4C 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 C9 |.ILENAME(IN ....|
00002730: C9 29 22 00 44 2B EC 1D 8D 33 30 30 3A 99 22 91 |.)".D+...300:.".|
00002740: 22 53 30 24 00 72 2B F6 1D 99 22 11 CD 4F 44 49 |"S0$.r+..."..ODI|
00002750: 46 59 20 54 48 45 20 42 59 54 45 20 57 48 49 43 |FY THE BYTE WHIC|
00002760: 48 20 49 44 45 4E 54 49 46 49 45 53 20 54 48 45 |H IDENTIFIES THE|
00002770: 20 22 00 99 2B 00 1E 99 22 46 49 4C 45 20 54 59 | "..+..."FILE TY|
00002780: 50 45 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 49 |PE..TO 130..SO I|
00002790: 54 20 52 45 41 44 53 3A 22 00 D4 2B 05 1E 99 22 |T READS:"..+..."|
000027A0: 11 2E 2E 20 30 12 20 30 92 20 30 22 56 43 24 22 |... 0. 0. 0"VC$"|
000027B0: 12 31 33 30 22 54 43 24 22 92 20 31 39 12 20 33 |.130"TC$". 19. 3|
000027C0: 92 20 36 35 12 20 36 36 92 20 39 30 2E 2E 2E 2E |. 65. 66. 90....|
000027D0: 45 54 43 22 00 02 2C 0A 1E 99 22 11 12 34 92 3A |ETC"..,..."..4.:|
000027E0: D7 52 49 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 |.RITE THE BLOCK |
000027F0: 42 41 43 4B 20 54 4F 20 54 48 45 20 44 49 53 4B |BACK TO THE DISK|
00002800: 2E 22 00 21 2C 14 1E 99 22 11 12 35 92 3A D6 C1 |.".!,..."..5.:..|
00002810: CC C9 C4 C1 D4 C5 20 54 48 45 20 44 49 53 4B 2E |...... THE DISK.|
00002820: 22 00 33 2C 19 1E 99 22 20 20 B8 B8 B8 B8 B8 B8 |".3,..." ......|
00002830: B8 B8 22 00 4A 2C 1E 1E 99 22 12 35 92 3A D0 52 |..".J,...".5.:.R|
00002840: 41 59 2E 2E 22 3A 8D 33 31 30 00 73 2C C8 1E 85 |AY..":.310.s,...|
00002850: 22 11 D7 C1 CE D4 20 D4 CF 20 D4 D2 D9 20 20 20 |"..... .. ... |
00002860: 59 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B3 B1 22 59 |Y...";A$:.A$.."Y|
00002870: 22 A7 8E 00 7E 2C D2 1E 89 31 32 30 30 30 00 A8 |"...~,...12000..|
00002880: 2C DC 1E A0 31 35 3A 8D 35 38 30 32 30 3A 99 22 |,...15:.58020:."|
00002890: 93 11 11 11 11 11 42 59 45 11 11 11 22 3A 99 48 |......BYE...":.H|
000028A0: 44 24 22 11 11 22 3A 80 00 B9 2C 40 1F 8F 20 49 |D$"..":...,@.. I|
000028B0: 4E 49 54 49 41 4C 49 5A 45 00 CA 2C 41 1F 8F 22 |NITIALIZE..,A.."|
000028C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 00 2D 42 1F 99 |............-B..|
000028D0: 22 93 22 3A 8D 35 38 30 32 30 3A 97 35 33 32 38 |".":.58020:.5328|
000028E0: 31 2C 46 31 3A 97 35 33 32 38 30 2C 46 31 3A 86 |1,F1:.53280,F1:.|
000028F0: 20 46 33 24 28 31 35 29 2C 46 35 24 28 31 35 29 | F3$(15),F5$(15)|
00002900: 00 24 2D 43 1F 81 49 B2 30 A4 31 35 3A 87 46 33 |.$-C..I.0.15:.F3|
00002910: 24 28 49 29 3A 46 35 24 28 49 29 B2 46 33 24 28 |$(I):F5$(I).F3$(|
00002920: 49 29 3A 82 00 49 2D 44 1F 83 22 90 22 2C 22 05 |I):..I-D..".",".|
00002930: 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C 22 1E |",".",".",".",".|
00002940: 22 2C 22 1F 22 2C 22 9E 22 00 6E 2D 45 1F 83 22 |",".",".".n-E.."|
00002950: 81 22 2C 22 95 22 2C 22 96 22 2C 22 97 22 2C 22 |.",".",".",".","|
00002960: 98 22 2C 22 99 22 2C 22 9A 22 2C 22 9B 22 00 8F |.",".",".","."..|
00002970: 2D 46 1F 54 43 24 B2 46 33 24 28 46 33 29 3A 99 |-F.TC$.F3$(F3):.|
00002980: 54 43 24 3A 56 43 24 B2 46 35 24 28 46 35 29 00 |TC$:VC$.F5$(F5).|
00002990: B5 2D 47 1F 86 43 28 32 35 35 29 2C 54 28 31 32 |.-G..C(255),T(12|
000029A0: 30 29 2C 53 28 31 32 30 29 2C 53 43 20 50 52 4F |0),S(120),SC PRO|
000029B0: 47 52 41 4D 20 4F 4E 20 44 49 53 4B 20 54 48 41 |GRAM ON DISK THA|
000029C0: 54 20 59 4F 55 20 20 20 3A 00 3C 0C D4 00 8F 12 |T YOU :.<.....|
000029D0: 3A 20 20 20 43 41 52 45 20 54 4F 20 43 48 45 43 |: CARE TO CHEC|
000029E0: 4B 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |K. :|
000029F0: 00 63 0C D5 00 8F 12 3A 20 20 20 20 20 20 20 20 |.c.....: |
00002A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A10: 20 20 20 20 20 20 3A 00 8A 0C D6 00 8F 12 3A 20 | :.......: |
00002A20: 20 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 3A 20 20 | INFORMATION: |
00002A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 B1 | :..|
00002A40: 0C D7 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00002A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002A60: 20 20 20 20 3A 00 D8 0C D8 00 8F 12 3A 20 20 20 | :.......: |
00002A70: 20 20 4C 4F 41 44 20 46 52 4F 4D 3A 20 24 48 48 | LOAD FROM: $HH|
00002A80: 48 48 20 20 44 44 44 44 44 20 20 3A 00 FF 0C D9 |HH DDDDD :....|
00002A90: 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 20 |...: |
00002AA0: 54 4F 3A 20 24 48 48 48 48 20 20 44 44 44 44 44 |TO: $HHHH DDDDD|
00002AB0: 20 20 3A 00 26 0D DA 00 8F 12 3A 20 20 20 20 20 | :.&.....: |
00002AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002AD0: 20 20 20 20 20 20 20 20 20 3A 00 4D 0D DB 00 8F | :.M....|
00002AE0: 12 3A 20 20 20 20 20 4E 55 4D 42 45 52 20 4F 46 |.: NUMBER OF|
00002AF0: 20 42 59 54 45 53 3A 20 44 44 44 44 44 20 20 20 | BYTES: DDDDD |
00002B00: 3A 00 74 0D DC 00 8F 12 3A 20 20 20 20 20 20 20 |:.t.....: |
00002B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B20: 20 20 20 20 20 20 20 3A 00 9B 0D DD 00 8F 12 3A | :.......:|
00002B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 | :.|
00002B50: C2 0D DE 00 8F 12 3A 20 20 20 20 20 20 20 20 20 |......: |
00002B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B70: 20 20 20 20 20 3A 00 00 00 | :... |
....... PETER J. PONZO.0.... 49 MARGARET
AVE. S..L.... WATERLOO,ONT. N2J 2C8.A..
.. 1-519-578-1147.Z.... REVISED- SEP 08/
83...... DISKVIEW+......"..........U....
B(0).47..56,7.16:.55,0:.:. SOME RAM FOR
SAVING BLOCKS......B(0)..47..53,7.16:.52
,0:......F1.07:. <F1> CHANGES BACK COLOU
R.>...F3.00:. <F3> CHANGES TEXT COLOUR.D
...F5.06:. <F5> CHANGES TITLE COLOUR....
.CRT.1024:CP$."C64":. B(0)..47 . CRT.327
68:CP$."PET".....CRT.CRT.45......8000.Z.
..M$(0)."BACKUP (BLOCK BY BLOCK) ".....M
$(1)."LOAD BLOCK INTO COMPUTER".$. .M$(2
)."SEE ASCII OF ABOVE BLOCK".C.!.M$(3)."
MODIFY ABOVE BLOCK".H.".M$(4)."STORE ABO
VE BLOCK IN RAM"...#.M$(5)."WRITE BLOCK
IN RAM TO DISK"...$.M$(6)."BLOCK AVAILAB
ILITY MAP".L.%.M$(7)."DISK COMMANDS"...&
.M$(8)."TRACE BLOCKS...'.M$(9)."UNSCRATC
H A FILE...D..********...E..* *.*.F
..* MENU *.8.G.." .... *.F.H..********.C
.I. 15:.15,8,15:.58010:.".".O.N.."."HD$.
..X..I.0.9:.".."I".:"M$(I):.......VC$".H
IT .RETURN. TO QUIT."TC$.I....310:.IN$.G
(13).7900.Z....IN$.".".110... ..IN$.".".
110......IN$.".".110.2...."..":.I.0.IN:.
"..";:.:."....."M$(IN):.T9.1.300:..O.H..
IN.1.50000,1000,2000,3000,4000,5000,6000
,7000,7100,7500.X.R..105.....F1..(F1.1).
(F1.15):.53281,F1:.53280,F1:..N...F3..(F
3.1).(F3.15):TC$.F3$(F3):.TC$;.....HD$.S
0$.G(13).VC$.MH$.TC$.G(13).S0$:......F5.
.(F5.1).(F5.15):VC$.F5$(F5).&....261:..1
.,.. GET.<.-.." ....[.1..VC$"..RETURN.
TO CONT"TC$.Q.6..IN$:.IN$.."".310...@..I
N$:.IN$."".320...J..IN$."."..250...K..IN
$."."..260...L..IN$."."..270.S.T.IN.E(IN
$):.59100:....... LOAD BLOCK INTO COMPUT
ER......".........................G... 3
: 15:.15,8,15:.3,8,3,"#":.#3,BN$:BN.F(BN
$):DC.3.X...BN$.J(BN$,2).P....15,"B-P";D
C;1:."."......K.0.10:.3,K$;:.......".".S
D$."......"......".TRACK,SECTOR. ...."
;T,S.T.$..15,"B-R";DC;DR;T;S......15,"B-
P";DC;0...8..#3,Z$:.Z$."".Z$.G(0)...B.C(
0).F(Z$):.1200.J.`..VC$"..RETURN TO TERM
INATE"TC$:.D(C(0))D(C(1));.{.J.J.2:.I.2.
255:.15,"B-P";DC;I:I%.I.32:I%.I%.32...T.
.#3,B$:.B$."".B$.G(0)...~.C(I).F(B$):.T.
.DI.1165.G....S.0.I%.I.5..10000......S.0
.I%.I..11000......CRT.J,C(I):.NN.J,F3...
...A$:.A$..""..1195.....J.J.1:...... 3:
15:.BT$:.300:..H....SD$VC$".....BLOCK HA
S NOT BEEN COMPLETELY LOADED"TC$......".
.WANT TO CONTINUE LOADING N...";N$:.N$
."N".I.256.S....SD$"..
"......"
"............ C(0)/C(
1)."...."..........9....SD$:.15,"B-P";3;
1.S.D..#3,B$:.B$."".B$.G(0).B.N.C(1).F(B
$)...X..C(0).0..SD$:."LAST TRACK":."BYTE
S USED="C(1):..F....SD$:."NEXT TRACK="C(
0):."NEXT SECTOR="C(1).....NT.C(0):NS.C(
1):....P.. PRINT ASCII...Q.."...........
...R.IJ.0:II.255:.".".T.U..VC$"..RETURN
TO DISCONTINUE PRINTING.."TC$:.S0$:EE$."
. .".W.V.Z1.32:Z2.223:Z3.127:Z4.160:P.0.
..W.Y0$.".".TC$.CL$:Y1$.VC$."..":Y2$.".:
->".TC$.W.Z..I.0.II.8:Y$.Y1$.I(" ".D(I)
,3).Y2$:E0$.EE$......Y0$:.Y$;:.J.0.7:H.I
.J:C5.C(H):C6.C5.'....(C5.Z1.C5.Z2).(C5.
Z3.C5.Z4).C6.32.9...E0$.E0$.G(C6).Q...E$
.I(" ".D(C5),3).N....R$(P)E$R$(1.P);:P
.1.P:.......A$:.A$.."".II.I:I.255......E
0$:.:.CL$:.CL$:.CL$:.CL$......"...."S0$:
.VC$"CURRENT TRACK,SECTOR="T",";S;TC$...
..."NEXT TRACK,SECTOR="NT","NS......IJ.0
..300.......&.... MODIFY BLOCK.9...."...
..........D....".THE ASCII CODE FOR EACH
BLOCK-BYTE"......".WILL BE DISPLAYED..I
.E. C(0)...C(255).".C....".YOU MAY REDEF
INE ANY C(I). THE MODIFIED"......".BLOCK
WILL BE WRITTEN TO THE DISK"......".INT
O THE TRACK,SECTOR YOU SELECT.".".&.."..
.".>.0..300:.".":II.255.8:IJ.1.M.:..".":
.2005.U.D..VC$">>>.RETURN TO QUIT.<<<"TC
$:.I$...N..".WHICH I DO YOU WISH TO MODI
FY. ......";I$:I.E(I$).C.X..I$.".".3
173...B.."CURRENT C("I")= ....."C(I
)" NEW VALUE= .....";:.C(I)...C..I.I
I.II.I. .D..3150.F.E..".":.2005:."
>>>.OK.? ";.`.F..310:.IN$."N"..:.3150
...G.."..RETURN TO MENU. N...";IN$...H
..IN$."Y".....I..VC$".CURRENT TRACK,SECT
OR="T","S;TC$...J.."NEXT TRACK,SECTOR="N
T","NS...L.."...DESTINATION TRACK,SECTOR
. ";T","S.G.M.."..DESTINATION TRACK,SE
CTOR...";T,S:.(T.1).(T.TT).3180.K.V.."..
..DESTINATION DRIVE. ";DR...W.."..DEST
INATION DRIVE...";DR$:DR.E(DR$):.DR$.."0
".DR$.."1".3190.C... 3: 15:.15,8,15.Y...
.3,8,3,"#":.63900......#3,BN$:BN.F(BN$):
."."SD$"....FILLING BUFFER#"BN......I.0.
255.9....15,"B-P",3,I:.3,G(C(I));.I...."
. ..."I.O.....F.P..15,"U2:";3;DR;T;S..
.Z..15,"I".DR$:.63900: 3: 15......".":..
.. .. STORE C(I) IN RAM......"..........
........O....".";:.2000......".STARTING
VALUE OF I. ....";I1.#....".STARTING M
EMORY LOC'N.($=HEX) $7000".S.C.."..STAR
TING MEMORY LOC'N.($=HEX)";M$:.9000.S.H.
.K1.I1.255:.M.I1.K1,C(K1):....R.M.M.I1.2
56:.".NEXT. MEM'Y LOC'N="M;:.9500:."."M$
......300.A....".";:. .Y.... WRITE RA
M TO DISK......"..................&...."
.MEM'Y LOC'N OF BLOCK.($=HEX) ....";M$
:.9000.H...."..START WITH I.= ....";I1
.H...."..END WITH I.= ....";I2...D..I.
I1.I2:C(I).B(M.I):..F.N.."....DESTINATIO
N TRACK,SECTOR. ....";T,S:.(T.1).(T.TT
).5070...X.."....DESTINATION DRIVE. ..
..";DR$:DR.E(DR$):.DR$.".".5080.G....3,8
,3,"#":.#3,BN$:BN.F(BN$):."."SD$"....FIL
LING BUFFER#"BN.`....I.I1.I2:.". ..."I
.~....15,"B-P";3;I:.3,G(C(I));..........
..15,"U2:";3;DR;T;S......15,"I".DR$:.639
00: 3: 15.D.(..".":..N.P.. BAM.X.Z.."...
...... .B(I).(Z.P(I)).P(I)..... 15:.5802
0......"....1.:DISPLAY BAM".2...."..2.:C
HANGE BAM".S....VC$"....RETURN. TO EXIT"
TC$.Q....310:.".":.IN$.G(13).6095......I
N.6100,6280...J..6030...O. 2: 3:.15,8,15
,"I".DR$:.58010:.63900:..J.T.. DISPLAY B
AM......"................."..WHICH TRACK
S":.".............(...."..FIRST,LAST TRA
CK ....";TS,TE.X....(TS.1).(TS.TT).(TE
.1).(TE.TT).(TE.TS).6130.W...."..RETURN.
. TO STOP":.S0$......15,8,15,"I".DR$:.63
900......2,8,2,"$".DR$:.63900.A.$.FF.D1.
(TS.1).S3.V....K.0.FF:.#2,A$:....8..T.TS
.TE:.T.51..#2,A$,A$,A$,A$...B..6400...L.
.A$:.A$.."".T.TT.1.4.V..: 2: 15:.6870:.3
10:..E.`.. CHANGE BAM.V.J.."...........U
.T..".MORE CHANGES Y...";I$...~..I$.."
Y"...A....DT.67..".SORRY..CAN'T CHANGE B
AM FOR THIS DISK.":.310:.......".TRACK
V...";T:.(T.1).(T.TT).N6280..... 15:.15
,8,15..... 2:.2,8,2,"#":.63900......15,"
U1:";2;DR;DI;0.B....15,"B-P";2;T.4.R....
VC$".HIT .RETURN. TO QUIT."TC$:.6400:.65
80...D.."..........CHANGE WHICH SECTOR
..V...";S$:.S$."V".6260.Q.N.S.E(S$):.
S.0.S..SC(T).6260...X. 2: 15:.SD$......6
620:.6480:.6580:.:.MD$".OK?.";:.310:.CL$
.#....IN$."Y"..6730.2....MD$CL$SD$.B....
6480:.6340.U....K.0.S2:.#2,A$.H....A$.""
.A$.G(0).W...B(K).F(A$).}.......P.. PRIN
T TRACK...Z.."..............D..K.1.S1:Z.
B(K)...N..I.0.7.V.X.X..B(I):.X$(X);:.I..
....K.....Z.B(K):.I.0.SC(T).SC(TT).....X
..B(I):.X$(X);:.I:..6. ..".".22)"TRACK."
T"..FREE="B(0).<.....N....H(S1$,SC(T)).U
....H(S2$,SC(T)).23)"# SECTORS="SC(T)...
H..SC(T).21..H(S3$,SC(T).1):.6610...M..H
(S3$,SC(T))...R..S0$:..J.... CHANGE SECT
OR......"...................S.8.Z.B(1):S
S.S:.6670......S.16.Z.B(2):SS.S.8:.6670.
*...Z.B(3):SS.S.16.G...NZ.(.Z.P(SS)).(Z.
.P(SS)).C...B(0).B(0).(NZ.Z).(NZ.Z).Z.".
.S.8.B(1).NZ:.6720...,..S.16.B(2).NZ:.67
20...6.B(3).NZ...@.....J..15,8,15...T..M
D$VC$".ARE YOU SURE?."TC$;:.310:.IN$;:.I
N$.."Y".....^.."...CHANGING BAM..";...H.
.3,8,3,"#":.63900./.R..#3,BN$:BN.F(BN$).
;....I.0.S2._....15,"B-P";3;I.T.4:.3,G(B
(I));:..W....15,"U2:";3;DR;DI;0...B..15,
"I".DR$:.63900: 3: 15...L...S.V.."......
....................RETURN. TO CONTINUE"
;:....X.. DISK COMMANDS...Y.."..........
..... Z..58010: 15:.".".& [.D$(1)."INITI
ALIZE".; \.D$(2)."VALIDATE".T ].D$(3)."C
HANGE DRIVE#.R ^.D$(4)."DISPLAY DIRECTOR
Y".. A..I.1.4:.".."I".:"D$(I):... B..VC$
"....RETURN. TO EXIT"TC$.F C..310:.IN$.G
(13)...Z D..IN.1.IN.5.7000..!E..".";:.I.
1.IN:."..";:.:."....."D$(IN):.T9.1.300:.
..!G.. IN .7020,7030,7040,7050.8!H..7000
.V!L..15,8,15,"I".DR$:.63900:..T!V..15,8
,15,"V".DR$:.63900:...!..DR.1.DR:DR$.J(D
(DR),2):."..DRIVE #"DR$.X!..MH$.".DRIVE#
".DR$.":******************************."
..!...261..!...8040:..."..."."HD$:."HIT
A KEY TO STOP."VC$:Z$.G(0).M"...".BLKS
NAME TYPE ( T,S ) "TC$.H"
...S0$: 3:.3,8,3,"$".DR$.."..TY$(0)."DEL
":TY$(1)."SEQ":TY$(2)."PRG":TY$(3)."USR"
:TY$(4)."REL".C"...I.0.253:.#3,A$:..."..
.P.1.8:.#3,A$:A.F(A$.G(0)).128:A3$.TY$(.
A.(A.0.A.5)).&#...#3,A$,B$:A.F(A$.Z$):B.
F(B$.Z$):K9.ST.Z#..A$.I(D(A),2):B$.I(D(B
),2):A4$."(".A$.",".B$.")".I#... K9 .707
5..#..A2$.".":.I.1.16:.#3,A$:A2$.A2$.A$:
.:A2$.A2$."."..#...#3,A$,A$,A$,A$,A$,A$,
A$,A$,A$..#...#3,A$,B$:A.F(A$.G(0)):B.F(
B$.G(0)):C.A.256.B:.C.0.P.10..$..A1$.I("
".D(C),3).'$...P.8..#3,A$,A$.N$ .. C
. .A1$" "A2$" "A3$" "A4$.C$...A$:.
A$.."".P.10.T$...:.P.10.7058..$.. 3:.:.7
080:.S0$:.300:...$... BLOCKS FREE..$...1
,8,0,"$".DR$.":".B$...7085..$..L.X.Y.256
:.L;" BLOCKS FREE"..$.. 1:...%...#1,X$,X
$,X$,X$,X$,X$..%...#1,X$:.X$.."".7086.1%
...#1,X$,X$,X$,Y$.H%..X.C(X$):.X.X.F(X$)
._%..Y.C(Y$):.Y.Y.F(Y$).E%....X%... TRAC
E BLOCKS..%..."..............%A.."..STAR
TING TRACK,SECTOR. ....";T8,S8..%B..(T
8.1).(T8.TT).(S8.0).(S8.SC(T8)).7105..&F
. 3: 15:.15,8,15:.3,8,3,"#":.63900:.#3,B
N$:BN.F(BN$).-&G.BN$.J(BN$,2).T&K..:."("
T8","S8")_ FIRST BLOCK":N9.1.M&P..15,"B-
R";3;DR;T8;S8.&Z..15,"B-P";3;0..&...#3,
Z$:.Z$."".Z$.G(0)..&..T8.F(Z$):.T8.0.720
0.K&...#3,Z$:.Z$."".Z$.G(0).X&..S8.F(Z$)
..&..T8$.J(D(T8),2):S8$.J(D(S8),2)..'...
"("T8$","S8$")";."'..N9.N9.1:.7120.8' ..
"_ LAST BLOCK..".Q'*..N9" BLOCKS.":.300:
..A'L.. UNSCRATCH.Q'M.."...........'V.."
.WE'LL DO THE FOLLOWING:"..'W.."..1.:GO
THRU' DIRECTORY TRACK"DI" UNTIL"..'X.."
WE FIND THE SCRATCHED FILE NAME."..(Y..
"..2.:TRACE THE BLOCKS AND COMPARE".9(Z.
." THE BLOCKS OBTAINED WITH THE".Y([.."
DIRECTORY BLOCK COUNT."..(\.."..3.:LOO
K AT THE BLOCK AVAILABILTY MAP"..(].."
TO SEE IF ALL THE BLOCKS ARE FREE.".X(^.
.".>>IF ALL OF THE ABOVE ARE OK"..(_.."
YOU THEN MODIFY THE DIRECTORY"..)`.."
AS FOLLOWS:":.300.>)T..".MODIFY THE BLOC
K SO THAT THE".Q)Y..".MAGIC BYTE".~)~.."
WHICH OCCURS JUST .3. PLACES BEFORE"..
)..." THE NAME IS AS FOLLOWS:"..)..."
129=SEQ FILE".L)..." 130=PROG FILE"..).
.." 131=USR FILE"..)..." 132=REL FILE"
.'*...".EXAMPLE:TO UNSCRATCH A PROG FILE
'ABZ'".S*..."FIND IT'S NAME ON THE DIRE
CTORY, AND".Y*..."SELECT MENU ITEM=MODIF
Y BLOCK."..*..."YOU WILL SEE:".H*D.."...
0. 0. 0"VC$". 0"TC$". 19. 3. 65. 66. 90
....ETC"..*N.." ^ ^ ^ ^ ^ ^"
..+X.." SHOULD BE .TRCK.A B Z".3+..."
A 130 .&SEC.FILENAME(IN ASCII)".D+..
.300:."."S0$.R+...".MODIFY THE BYTE WHIC
H IDENTIFIES THE "..+..."FILE TYPE..TO 1
30..SO IT READS:".T+..."... 0. 0. 0"VC$"
.130"TC$". 19. 3. 65. 66. 90....ETC"..,.
.."..4.:WRITE THE BLOCK BACK TO THE DISK
.".!,..."..5.:VALIDATE THE DISK.".3,..."
........".J,...".5.:PRAY..":.310.S,H..
".WANT TO TRY Y...";A$:.A$.."Y"...~,R.
.12000..,.. 15:.58020:."......BYE...":.H
D$"..":...,@.. INITIALIZE.J,A.."........
....-B..".":.58020:.53281,F1:.53280,F1:.
F3$(15),F5$(15).$-C..I.0.15:.F3$(I):F5$
(I).F3$(I):..I-D..".",".",".",".",".",".
",".",".".N-E..".",".",".",".",".",".","
.","."..-F.TC$.F3$(F3):.TC$:VC$.F5$(F5).
.-G..C(255),T(120),S(120),SC PROGRAM ON
DISK THAT YOU :.<.T...: CARE TO CHEC
K. :.C.U...:
:...V...: INFORMATION:
:...W...:
:.X.X...: LOAD FROM: $HH
HH DDDDD :...Y...: TO: $HHH
H DDDDD :.&.Z...:
:.M.....: NUMBER OF BYTES:
DDDDD :.T.....:
:.......:
:.B.....:
:...
> CLICK IMAGE PREVIEW FOR FULL MODAL