DISKVIEW.64

00000000: 01 08 16 08 05 00 8F 20  50 45 54 45 52 20 4A 2E  |....... PETER J.|
00000010: 20 50 4F 4E 5A 4F 00 5A  08 06 00 8F 20 34 39 20  | PONZO.Z.... 49 |
00000020: 4D 41 52 47 41 52 45 54  20 41 56 45 2E 20 53 2E  |MARGARET AVE. S.|
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 38  |               8|
00000040: 20 52 45 4D 20 57 41 54  45 52 4C 4F 4F 2C 4F 4E  | REM WATERLOO,ON|
00000050: 54 2E 20 4E 32 4A 20 32  43 38 00 6A 08 07 00 8F  |T. N2J 2C8.j....|
00000060: 20 4A 55 4E 20 31 39 2F  38 32 00 86 08 0A 00 97  | JUN 19/82......|
00000070: 35 33 32 38 31 2C 36 3A  97 35 33 32 38 30 2C 36  |53281,6:.53280,6|
00000080: 3A 8D 38 30 30 30 00 94  08 64 00 8F 2A 2A 2A 2A  |:.8000...d..****|
00000090: 2A 2A 2A 2A 00 A2 08 65  00 8F 2A 20 20 20 20 20  |****...e..*     |
000000A0: 20 2A 00 B0 08 66 00 8F  2A 20 4D 45 4E 55 20 2A  | *...f..* MENU *|
000000B0: 00 BE 08 67 00 8F 22 20  B8 B8 B8 B8 20 2A 00 CC  |...g.." .... *..|
000000C0: 08 68 00 8F 2A 2A 2A 2A  2A 2A 2A 2A 00 E4 08 69  |.h..********...i|
000000D0: 00 A0 31 35 3A 9F 31 35  2C 38 2C 31 35 3A 99 C7  |..15:.15,8,15:..|
000000E0: 28 31 34 29 00 F0 08 6E  00 99 22 93 22 53 30 24  |(14)...n.."."S0$|
000000F0: 00 13 09 73 00 99 22 11  12 31 92 3A CC 4F 41 44  |...s.."..1.:.OAD|
00000100: 20 42 4C 4F 43 4B 20 49  4E 54 4F 20 42 55 46 46  | BLOCK INTO BUFF|
00000110: 45 52 22 00 38 09 78 00  99 22 11 12 32 92 3A D3  |ER".8.x.."..2.:.|
00000120: 45 45 20 C1 D3 C3 C9 C9  20 4F 46 20 41 42 4F 56  |EE ..... OF ABOV|
00000130: 45 20 42 4C 4F 43 4B 22  00 57 09 82 00 99 22 11  |E BLOCK".W....".|
00000140: 12 33 92 3A CD 4F 44 49  46 59 20 41 42 4F 56 45  |.3.:.ODIFY ABOVE|
00000150: 20 42 4C 4F 43 4B 22 00  7C 09 8C 00 99 22 11 12  | BLOCK".|...."..|
00000160: 34 92 3A D3 54 4F 52 45  20 41 42 4F 56 45 20 42  |4.:.TORE ABOVE B|
00000170: 4C 4F 43 4B 20 49 4E 20  D2 C1 CD 22 00 A3 09 96  |LOCK IN ..."....|
00000180: 00 99 22 11 12 35 92 3A  D7 52 49 54 45 20 42 4C  |.."..5.:.RITE BL|
00000190: 4F 43 4B 20 49 4E 20 D2  C1 CD 20 54 4F 20 44 49  |OCK IN ... TO DI|
000001A0: 53 4B 22 00 C6 09 A0 00  99 22 11 12 36 92 3A C2  |SK"......"..6.:.|
000001B0: 4C 4F 43 4B 20 C1 56 41  49 4C 41 42 49 4C 49 54  |LOCK .VAILABILIT|
000001C0: 59 20 CD 41 50 22 00 E0  09 AA 00 99 22 11 12 37  |Y .AP"......"..7|
000001D0: 92 3A C4 49 53 4B 20 C3  4F 4D 4D 41 4E 44 53 22  |.:.ISK .OMMANDS"|
000001E0: 00 F8 09 B4 00 99 22 11  12 38 92 3A D4 52 41 43  |......"..8.:.RAC|
000001F0: 45 20 C2 4C 4F 43 4B 53  00 14 0A B9 00 99 22 11  |E .LOCKS......".|
00000200: 12 39 92 3A D5 4E 53 43  52 41 54 43 48 20 41 20  |.9.:.NSCRATCH A |
00000210: C6 49 4C 45 00 2D 0A BA  00 99 22 11 12 D2 C5 D4  |.ILE.-....".....|
00000220: D5 D2 CE 92 20 54 4F 20  D1 55 49 54 22 00 41 0A  |.... TO .UIT".A.|
00000230: C6 00 8D 33 31 30 3A 8B  49 4E B2 30 A7 37 39 30  |...310:.IN.0.790|
00000240: 30 00 76 0A C7 00 91 49  4E 8D 31 30 30 30 2C 32  |0.v....IN.1000,2|
00000250: 30 30 30 2C 33 30 30 30  2C 34 30 30 30 2C 35 30  |000,3000,4000,50|
00000260: 30 30 2C 36 30 30 30 2C  37 30 30 30 2C 37 31 30  |00,6000,7000,710|
00000270: 30 2C 37 35 30 30 00 7F  0A C8 00 89 31 30 35 00  |0,7500......105.|
00000280: 8A 0A 2C 01 8F 20 20 47  45 54 00 95 0A 2D 01 8F  |..,..  GET...-..|
00000290: 22 20 B8 B8 B8 00 AE 0A  31 01 99 22 11 12 D2 C5  |" ......1.."....|
000002A0: D4 D5 D2 CE 92 20 54 4F  20 43 4F 4E 54 22 00 C4  |..... TO CONT"..|
000002B0: 0A 36 01 A1 49 4E 24 3A  8B 49 4E 24 B3 B1 22 22  |.6..IN$:.IN$..""|
000002C0: A7 33 31 30 00 D9 0A 40  01 A1 49 4E 24 3A 8B 49  |.310...@..IN$:.I|
000002D0: 4E 24 B2 22 22 A7 33 32  30 00 E9 0A 4A 01 49 4E  |N$."".320...J.IN|
000002E0: B2 C5 28 49 4E 24 29 3A  8E 00 06 0B E8 03 8F 20  |..(IN$):....... |
000002F0: 4C 4F 41 44 20 42 4C 4F  43 4B 20 49 4E 54 4F 20  |LOAD BLOCK INTO |
00000300: 42 55 46 46 45 52 00 23  0B E9 03 8F 22 B8 B8 B8  |BUFFER.#...."...|
00000310: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
00000320: B8 B8 B8 00 54 0B F2 03  A0 33 3A A0 31 35 3A 9F  |....T....3:.15:.|
00000330: 31 35 2C 38 2C 31 35 3A  9F 33 2C 38 2C 33 2C 22  |15,8,15:.3,8,3,"|
00000340: 23 22 3A A1 23 33 2C 42  4E 24 3A 42 4E B2 C6 28  |#":.#3,BN$:BN..(|
00000350: 42 4E 24 29 00 7D 0B F7  03 42 4E 24 B2 CA 28 42  |BN$).}...BN$..(B|
00000360: 4E 24 2C 32 29 3A 42 4D  B2 42 4E AA 31 37 AA 31  |N$,2):BM.BN.17.1|
00000370: 32 AC B5 28 28 42 4E AA  31 29 AD 34 29 00 94 0B  |2..((BN.1).4)...|
00000380: FC 03 98 31 35 2C 22 42  2D 50 22 3B 33 3B 31 3A  |...15,"B-P";3;1:|
00000390: 99 22 93 22 00 A9 0B 06  04 81 4B B2 30 A4 31 30  |."."......K.0.10|
000003A0: 3A 98 33 2C 4B 24 3B 3A  82 00 BF 0B 10 04 99 22  |:.3,K$;:......."|
000003B0: 93 22 AA 53 44 24 AA 22  11 11 11 11 11 11 22 00  |.".SD$."......".|
000003C0: E0 0B 1A 04 85 22 12 D4  D2 C1 C3 CB 2C D3 C5 C3  |....."......,...|
000003D0: D4 CF D2 92 20 20 20 A6  9D 9D 9D 22 3B 54 2C 53  |....   ....";T,S|
000003E0: 00 F7 0B 24 04 98 31 35  2C 22 42 2D 52 22 3B 33  |...$..15,"B-R";3|
000003F0: 3B 44 52 3B 54 3B 53 00  09 0C 2E 04 98 31 35 2C  |;DR;T;S......15,|
00000400: 22 42 2D 50 22 3B 33 3B  30 00 23 0C 38 04 A1 23  |"B-P";3;0.#.8..#|
00000410: 33 2C 5A 24 3A 8B 5A 24  B2 22 22 A7 5A 24 B2 C7  |3,Z$:.Z$."".Z$..|
00000420: 28 30 29 00 38 0C 42 04  43 28 30 29 B2 C6 28 5A  |(0).8.B.C(0)..(Z|
00000430: 24 29 3A 8D 31 32 30 30  00 70 0C 60 04 99 22 13  |$):.1200.p.`..".|
00000440: 12 D2 C5 D4 D5 D2 CE 20  54 4F 20 54 45 52 4D 49  |....... TO TERMI|
00000450: 4E 41 54 45 22 3A 43 52  54 B2 30 31 30 36 39 3A  |NATE":CRT.01069:|
00000460: 99 C4 28 43 28 30 29 29  C4 28 43 28 31 29 29 3B  |..(C(0)).(C(1));|
00000470: 00 9E 0C 6A 04 4A B2 32  3A 81 49 B2 32 A4 32 35  |...j.J.2:.I.2.25|
00000480: 35 3A 98 31 35 2C 22 4D  2D 52 22 3B C7 28 49 29  |5:.15,"M-R";.(I)|
00000490: 3B C7 28 42 4D 29 3A 49  25 B2 49 AD 33 32 00 B9  |;.(BM):I%.I.32..|
000004A0: 0C 74 04 A1 23 31 35 2C  42 24 3A 8B 42 24 B2 22  |.t..#15,B$:.B$."|
000004B0: 22 A7 42 24 B2 C7 28 30  29 00 D4 0C 7E 04 43 28  |".B$..(0)...~.C(|
000004C0: 49 29 B2 C6 28 42 24 29  3A 8B 54 B3 B1 44 49 A7  |I)..(B$):.T..DI.|
000004D0: 31 31 36 35 00 EE 0C 88  04 8B 53 B1 30 AF 49 25  |1165......S.0.I%|
000004E0: AC 33 32 B2 49 AB 35 A7  8D 31 30 30 30 30 00 06  |.32.I.5..10000..|
000004F0: 0D 89 04 8B 53 B1 30 AF  49 25 AC 33 32 B2 49 A7  |....S.0.I%.32.I.|
00000500: 8D 31 31 30 30 30 00 16  0D 8D 04 97 43 52 54 AA  |.11000......CRT.|
00000510: 4A 2C 43 28 49 29 00 2C  0D 92 04 A1 41 24 3A 8B  |J,C(I).,....A$:.|
00000520: 41 24 B3 B1 22 22 A7 8D  31 31 39 35 00 38 0D 9C  |A$..""..1195.8..|
00000530: 04 4A B2 4A AA 31 3A 82  00 53 0D A6 04 A0 33 3A  |.J.J.1:..S....3:|
00000540: A0 31 35 3A 99 53 44 24  22 91 91 22 3A 8D 33 30  |.15:.SD$"..":.30|
00000550: 30 3A 8E 00 87 0D AB 04  99 53 44 24 22 11 11 11  |0:.......SD$"...|
00000560: 11 12 C2 CC CF C3 CB 20  C8 C1 D3 20 CE CF D4 20  |....... ... ... |
00000570: C2 C5 C5 CE 20 C3 CF CD  D0 CC C5 D4 C5 CC D9 20  |.... .......... |
00000580: CC CF C1 C4 C5 C4 22 00  C1 0D AC 04 85 22 2E 2E  |......"......"..|
00000590: 57 41 4E 54 20 54 4F 20  43 4F 4E 54 49 4E 55 45  |WANT TO CONTINUE|
000005A0: 20 4C 4F 41 44 49 4E 47  20 20 20 4E 9D 9D 9D 22  | LOADING   N..."|
000005B0: 3B 4E 24 3A 8B 4E 24 B2  22 4E 22 A7 49 B2 32 35  |;N$:.N$."N".I.25|
000005C0: 36 00 F2 0D AD 04 99 53  44 24 22 91 91 20 20 20  |6......SD$"..   |
000005D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000005F0: 20 22 00 1B 0E AE 04 99  22 20 20 20 20 20 20 20  | "......"       |
00000600: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000610: 20 20 20 20 20 20 20 20  20 20 22 00 21 0E AF 04  |          ".!...|
00000620: 8E 00 31 0E B0 04 8F 20  43 28 30 29 2F 43 28 31  |..1.... C(0)/C(1|
00000630: 29 00 41 0E B1 04 8F 22  A3 A3 A3 A3 A3 A3 A3 A3  |).A...."........|
00000640: A3 00 58 0E BA 04 99 53  44 24 3A 98 31 35 2C 22  |..X....SD$:.15,"|
00000650: 42 2D 50 22 3B 33 3B 31  00 72 0E C4 04 A1 23 33  |B-P";3;1.r....#3|
00000660: 2C 42 24 3A 8B 42 24 B2  22 22 A7 42 24 B2 C7 28  |,B$:.B$."".B$..(|
00000670: 30 29 00 81 0E CE 04 43  28 31 29 B2 C6 28 42 24  |0).....C(1)..(B$|
00000680: 29 00 B5 0E D8 04 8B 43  28 30 29 B2 30 A7 99 53  |)......C(0).0..S|
00000690: 44 24 3A 99 22 CC 41 53  54 20 D4 52 41 43 4B 22  |D$:.".AST .RACK"|
000006A0: 3A 99 22 C2 59 54 45 53  20 D5 53 45 44 3D 22 43  |:.".YTES .SED="C|
000006B0: 28 31 29 3A 8E 00 E5 0E  E2 04 99 53 44 24 3A 99  |(1):.......SD$:.|
000006C0: 22 CE 45 58 54 20 D4 52  41 43 4B 3D 22 43 28 30  |".EXT .RACK="C(0|
000006D0: 29 3A 99 22 CE 45 58 54  20 D3 45 43 54 4F 52 3D  |):.".EXT .ECTOR=|
000006E0: 22 43 28 31 29 00 FB 0E  EC 04 4E 54 B2 43 28 30  |"C(1).....NT.C(0|
000006F0: 29 3A 4E 53 B2 43 28 31  29 3A 8E 00 0D 0F D0 07  |):NS.C(1):......|
00000700: 8F 20 50 52 49 4E 54 20  41 53 43 49 49 00 1F 0F  |. PRINT ASCII...|
00000710: D1 07 8F 22 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 00  |..."............|
00000720: 36 0F D2 07 49 4A B2 30  3A 49 49 B2 32 35 35 AB  |6...IJ.0:II.255.|
00000730: 38 3A 99 22 93 22 00 75  0F D5 07 99 22 13 12 D2  |8:.".".u...."...|
00000740: C5 D4 D5 D2 CE 20 54 4F  20 44 49 53 43 4F 4E 54  |..... TO DISCONT|
00000750: 49 4E 55 45 20 50 52 49  4E 54 49 4E 47 2E 2E 22  |INUE PRINTING.."|
00000760: 3A 99 53 30 24 3A 41 42  B2 33 31 3A 45 45 24 B2  |:.S0$:AB.31:EE$.|
00000770: 22 92 20 12 22 00 A7 0F  DA 07 81 49 B2 30 A4 49  |". ."......I.0.I|
00000780: 49 A9 38 3A 59 24 B2 C4  28 49 29 3A 59 24 B2 22  |I.8:Y$..(I):Y$."|
00000790: 91 22 AA C9 28 22 20 20  22 AA 59 24 2C 33 29 3A  |."..("  ".Y$,3):|
000007A0: 45 30 24 B2 45 45 24 00  D5 0F DC 07 99 22 12 22  |E0$.EE$......"."|
000007B0: 43 4C 24 3A 99 22 12 22  59 24 22 92 2D 3E 22 3B  |CL$:."."Y$".->";|
000007C0: 3A 81 4A B2 30 A4 37 3A  48 B2 49 AA 4A 3A 43 35  |:.J.0.7:H.I.J:C5|
000007D0: B2 43 28 48 29 00 F4 0F  DD 07 8B 43 35 B1 41 42  |.C(H)......C5.AB|
000007E0: A7 45 30 24 B2 45 30 24  AA C7 28 43 35 29 3A 89  |.E0$.E0$..(C5):.|
000007F0: 32 30 31 35 00 04 10 DE  07 45 30 24 B2 45 30 24  |2015.....E0$.E0$|
00000800: AA 22 20 22 00 21 10 DF  07 45 24 B2 C9 28 22 20  |." ".!...E$..(" |
00000810: 20 20 22 AA CA 28 C4 28  43 35 29 2C 32 29 2C 33  |  "..(.(C5),2),3|
00000820: 29 00 3E 10 E4 07 99 52  24 28 50 29 45 24 52 24  |).>....R$(P)E$R$|
00000830: 28 31 AB 50 29 3B 3A 50  B2 31 AB 50 3A 82 00 59  |(1.P);:P.1.P:..Y|
00000840: 10 E9 07 A1 41 24 3A 8B  41 24 B3 B1 22 22 A7 49  |....A$:.A$.."".I|
00000850: 49 B2 49 3A 49 B2 32 35  35 00 78 10 EE 07 99 45  |I.I:I.255.x....E|
00000860: 30 24 3A 82 3A 99 43 4C  24 3A 99 43 4C 24 3A 99  |0$:.:.CL$:.CL$:.|
00000870: 43 4C 24 3A 99 43 4C 24  00 9E 10 EF 07 99 22 91  |CL$:.CL$......".|
00000880: 91 91 91 C3 D5 D2 D2 C5  CE D4 20 D4 D2 C1 C3 CB  |.......... .....|
00000890: 2C D3 C5 C3 D4 CF D2 3D  22 54 22 2C 22 53 00 BF  |,......="T","S..|
000008A0: 10 F3 07 99 22 4E 45 58  54 20 54 52 41 43 4B 2C  |...."NEXT TRACK,|
000008B0: 53 45 43 54 4F 52 3D 22  4E 54 22 2C 22 4E 53 00  |SECTOR="NT","NS.|
000008C0: CE 10 F8 07 8B 49 4A B2  30 A7 8D 33 30 30 00 D4  |.....IJ.0..300..|
000008D0: 10 02 08 8E 00 E7 10 B8  0B 8F 20 4D 4F 44 49 46  |.......... MODIF|
000008E0: 59 20 42 4C 4F 43 4B 00  FA 10 B9 0B 8F 22 B8 B8  |Y BLOCK......"..|
000008F0: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 00 25 11 F4 0B 99  |...........%....|
00000900: 22 93 D4 48 45 20 C1 D3  C3 C9 C9 20 43 4F 44 45  |"..HE ..... CODE|
00000910: 20 46 4F 52 20 45 41 43  48 20 42 4C 4F 43 4B 2D  | FOR EACH BLOCK-|
00000920: 42 59 54 45 22 00 54 11  FE 0B 99 22 11 57 49 4C  |BYTE".T....".WIL|
00000930: 4C 20 42 45 20 44 49 53  50 4C 41 59 45 44 2E 2E  |L BE DISPLAYED..|
00000940: 49 2E 45 2E 20 43 28 30  29 2E 2E 2E 43 28 32 35  |I.E. C(0)...C(25|
00000950: 35 29 2E 22 00 84 11 08  0C 99 22 11 D9 4F 55 20  |5)."......"..OU |
00000960: 4D 41 59 20 52 45 44 45  46 49 4E 45 20 41 4E 59  |MAY REDEFINE ANY|
00000970: 20 43 28 49 29 2E 20 D4  48 45 20 4D 4F 44 49 46  | C(I). .HE MODIF|
00000980: 49 45 44 22 00 AE 11 12  0C 99 22 11 42 4C 4F 43  |IED"......".BLOC|
00000990: 4B 20 57 49 4C 4C 20 42  45 20 57 52 49 54 54 45  |K WILL BE WRITTE|
000009A0: 4E 20 54 4F 20 54 48 45  20 44 49 53 4B 22 00 D8  |N TO THE DISK"..|
000009B0: 11 1C 0C 99 22 11 49 4E  54 4F 20 54 48 45 20 D4  |....".INTO THE .|
000009C0: 52 41 43 4B 2C D3 45 43  54 4F 52 20 59 4F 55 20  |RACK,.ECTOR YOU |
000009D0: 53 45 4C 45 43 54 2E 22  00 E3 11 26 0C 99 22 11  |SELECT."...&..".|
000009E0: 11 11 22 00 FF 11 30 0C  8D 33 30 30 3A 99 22 93  |.."...0..300:.".|
000009F0: 22 3A 49 49 B2 32 35 35  AB 38 3A 49 4A B2 31 00  |":II.255.8:IJ.1.|
00000A00: 0E 12 3A 0C 99 22 13 22  3A 8D 32 30 30 35 00 30  |..:..".":.2005.0|
00000A10: 12 44 0C 99 22 3E 3E 3E  12 D2 C5 D4 D5 D2 CE 20  |.D..">>>....... |
00000A20: 54 4F 20 51 55 49 54 92  3C 3C 3C 22 3A A1 49 24  |TO QUIT.<<<":.I$|
00000A30: 00 6D 12 4E 0C 85 22 12  D7 C8 C9 C3 C8 20 49 20  |.m.N.."...... I |
00000A40: C4 CF A0 D9 CF D5 A0 D7  C9 D3 C8 A0 D4 CF A0 CD  |................|
00000A50: CF C4 C9 C6 D9 92 20 20  20 20 20 9D 9D A6 9D 9D  |......     .....|
00000A60: 9D 22 3B 49 24 3A 49 B2  C5 28 49 24 29 00 7E 12  |.";I$:I..(I$).~.|
00000A70: 58 0C 8B 49 24 B2 22 A6  22 A7 33 31 37 33 00 C2  |X..I$.".".3173..|
00000A80: 12 62 0C 99 22 43 55 52  52 45 4E 54 20 43 28 22  |.b.."CURRENT C("|
00000A90: 49 22 29 3D 20 20 20 20  20 A0 9D 9D 9D 9D 9D 22  |I")=     ......"|
00000AA0: 43 28 49 29 22 20 4E 45  57 20 56 41 4C 55 45 3D  |C(I)" NEW VALUE=|
00000AB0: 20 20 20 20 20 9D 9D 9D  9D 9D 22 3B 3A 85 43 28  |     .....";:.C(|
00000AC0: 49 29 00 D1 12 63 0C 8B  49 B1 49 49 A7 49 49 B2  |I)...c..I.II.II.|
00000AD0: 49 00 DB 12 64 0C 89 33  31 35 30 00 08 13 65 0C  |I...d..3150...e.|
00000AE0: 99 22 93 22 3A 8D 32 30  30 35 3A 99 22 20 20 20  |.".":.2005:."   |
00000AF0: 20 20 20 20 20 3E 3E 3E  12 4F 4B 92 3F 20 20 22  |     >>>.OK.?  "|
00000B00: 3B 3A 97 32 30 34 2C 30  00 29 13 66 0C 8D 33 31  |;:.204,0.).f..31|
00000B10: 30 3A 97 32 30 34 2C 31  3A 8B 49 4E 24 B2 22 4E  |0:.204,1:.IN$."N|
00000B20: 22 A7 99 3A 89 33 31 35  30 00 4D 13 67 0C 85 22  |"..:.3150.M.g.."|
00000B30: 93 12 52 45 54 55 52 4E  20 54 4F 20 4D 45 4E 55  |..RETURN TO MENU|
00000B40: 92 20 20 20 4E 9D 9D 9D  22 3B 49 4E 24 00 5C 13  |.   N...";IN$.\.|
00000B50: 68 0C 8B 49 4E 24 B2 22  59 22 A7 8E 00 7F 13 69  |h..IN$."Y".....i|
00000B60: 0C 99 22 93 C3 D5 D2 D2  C5 CE D4 20 D4 D2 C1 C3  |.."........ ....|
00000B70: CB 2C D3 C5 C3 D4 CF D2  3D 22 54 22 2C 22 53 00  |.,......="T","S.|
00000B80: A0 13 6A 0C 99 22 4E 45  58 54 20 54 52 41 43 4B  |..j.."NEXT TRACK|
00000B90: 2C 53 45 43 54 4F 52 3D  22 4E 54 22 2C 22 4E 53  |,SECTOR="NT","NS|
00000BA0: 00 E2 13 6C 0C 85 22 11  11 12 C4 C5 D3 D4 C9 CE  |...l..".........|
00000BB0: C1 D4 C9 CF CE 20 D4 D2  C1 C3 CB 2C D3 C5 C3 D4  |..... .....,....|
00000BC0: CF D2 92 20 20 20 A6 9D  9D 9D 22 3B 54 2C 53 3A  |...   ....";T,S:|
00000BD0: 8B 28 54 B3 31 29 B0 28  54 B1 54 54 29 A7 33 31  |.(T.1).(T.TT).31|
00000BE0: 38 30 00 23 14 76 0C 85  22 11 11 11 12 C4 C5 D3  |80.#.v..".......|
00000BF0: D4 C9 CE C1 D4 C9 CF CE  20 C4 D2 C9 D6 C5 92 A0  |........ .......|
00000C00: A0 A0 A6 9D 9D 9D 22 3B  44 52 24 3A 44 52 B2 C5  |......";DR$:DR..|
00000C10: 28 44 52 24 29 3A 8B 44  52 24 B2 22 A6 22 A7 33  |(DR$):.DR$.".".3|
00000C20: 31 39 30 00 37 14 80 0C  A0 33 3A A0 31 35 3A 9F  |190.7....3:.15:.|
00000C30: 31 35 2C 38 2C 31 35 00  4D 14 8A 0C 9F 33 2C 38  |15,8,15.M....3,8|
00000C40: 2C 33 2C 22 23 22 3A 8D  36 33 39 30 30 00 80 14  |,3,"#":.63900...|
00000C50: 8F 0C A1 23 33 2C 42 4E  24 3A 42 4E B2 C6 28 42  |...#3,BN$:BN..(B|
00000C60: 4E 24 29 3A 99 22 93 22  53 44 24 22 11 11 11 11  |N$):."."SD$"....|
00000C70: 55 53 49 4E 47 20 C2 D5  C6 C6 C5 D2 23 22 42 4E  |USING ......#"BN|
00000C80: 00 9C 14 94 0C 42 4D B2  42 4E AA 31 37 AA 31 32  |.....BM.BN.17.12|
00000C90: AC B5 28 28 42 4E AA 31  29 AD 34 29 00 A9 14 99  |..((BN.1).4)....|
00000CA0: 0C 81 49 B2 30 A4 32 35  35 00 CF 14 9E 0C 98 31  |..I.0.255......1|
00000CB0: 35 2C 22 4D 2D 57 22 3B  C7 28 49 29 3B C7 28 42  |5,"M-W";.(I);.(B|
00000CC0: 4D 29 3B C7 28 31 29 3B  C7 28 43 28 49 29 29 00  |M);.(1);.(C(I)).|
00000CD0: DF 14 A8 0C 99 22 13 20  20 20 9D 9D 9D 22 49 00  |.....".   ..."I.|
00000CE0: E5 14 B2 0C 82 00 FC 14  D0 0C 98 31 35 2C 22 55  |...........15,"U|
00000CF0: 32 3A 22 3B 33 3B 44 52  3B 54 3B 53 00 1A 15 DA  |2:";3;DR;T;S....|
00000D00: 0C 98 31 35 2C 22 49 22  AA 44 52 24 3A 8D 36 33  |..15,"I".DR$:.63|
00000D10: 39 30 30 3A A0 33 3A A0  31 35 00 25 15 E4 0C 99  |900:.3:.15.%....|
00000D20: 22 93 22 3A 8E 00 3D 15  A0 0F 8F 20 53 54 4F 52  |".":..=.... STOR|
00000D30: 45 20 43 28 49 29 20 49  4E 20 52 41 4D 00 55 15  |E C(I) IN RAM.U.|
00000D40: A1 0F 8F 22 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |..."............|
00000D50: B8 B8 B8 B8 B8 00 65 15  A5 0F 99 22 93 22 3B 3A  |......e....".";:|
00000D60: 8D 32 30 30 30 00 8C 15  B4 0F 85 22 12 D3 D4 C1  |.2000......"....|
00000D70: D2 D4 C9 CE C7 A0 D6 C1  CC D5 C5 A0 CF C6 20 49  |.............. I|
00000D80: 92 20 20 20 A6 9D 9D 9D  22 3B 49 31 00 C2 15 BE  |.   ....";I1....|
00000D90: 0F 85 22 12 D3 D4 C1 D2  D4 C9 CE C7 A0 CD C5 CD  |..".............|
00000DA0: CF D2 D9 A0 CC CF C3 A7  CE 92 28 24 3D C8 C5 D8  |..........($=...|
00000DB0: 29 20 20 20 A6 9D 9D 9D  22 3B 4D 24 3A 8D 39 30  |)   ....";M$:.90|
00000DC0: 30 30 00 E2 15 C8 0F 81  4B 31 B2 49 31 A4 32 35  |00......K1.I1.25|
00000DD0: 35 3A 97 4D AB 49 31 AA  4B 31 2C 43 28 4B 31 29  |5:.M.I1.K1,C(K1)|
00000DE0: 3A 82 00 17 16 D2 0F 4D  B2 4D AB 49 31 AA 32 35  |:......M.M.I1.25|
00000DF0: 36 3A 99 22 12 CE C5 D8  D4 92 20 4D 45 4D 27 59  |6:."...... MEM'Y|
00000E00: 20 4C 4F 43 27 4E 3D 22  4D 3B 3A 8D 39 35 30 30  | LOC'N="M;:.9500|
00000E10: 3A 99 22 12 22 4D 24 00  20 16 DC 0F 8D 33 30 30  |:."."M$. ....300|
00000E20: 00 30 16 E6 0F 99 22 93  22 3B 3A 8E 20 20 20 20  |.0....".";:.    |
00000E30: 00 48 16 88 13 8F 20 57  52 49 54 45 20 52 41 4D  |.H.... WRITE RAM|
00000E40: 20 54 4F 20 44 49 53 4B  00 60 16 89 13 8F 22 B8  | TO DISK.`....".|
00000E50: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
00000E60: 00 95 16 9C 13 85 22 12  CD C5 CD 27 D9 20 CC CF  |......"....'. ..|
00000E70: C3 27 CE 20 CF C6 20 C2  CC CF C3 CB 92 28 24 3D  |.'. .. ......($=|
00000E80: C8 C5 D8 29 20 20 20 A6  9D 9D 9D 22 3B 4D 24 3A  |...)   ....";M$:|
00000E90: 8D 39 30 30 30 00 B7 16  A6 13 85 22 11 12 D3 D4  |.9000......"....|
00000EA0: C1 D2 D4 20 D7 C9 D4 C8  20 49 92 3D A0 A0 A0 A6  |... .... I.=....|
00000EB0: 9D 9D 9D 22 3B 49 31 00  D7 16 B0 13 85 22 11 12  |...";I1......"..|
00000EC0: C5 CE C4 20 D7 C9 D4 C8  20 49 92 3D A0 A0 A0 A6  |... .... I.=....|
00000ED0: 9D 9D 9D 22 3B 49 32 00  F2 16 C4 13 81 49 B2 49  |...";I2......I.I|
00000EE0: 31 A4 49 32 3A 43 28 49  29 B2 C2 28 4D AA 49 29  |1.I2:C(I)..(M.I)|
00000EF0: 3A 82 00 35 17 CE 13 85  22 93 11 11 12 C4 C5 D3  |:..5....".......|
00000F00: D4 C9 CE C1 D4 C9 CF CE  20 D4 D2 C1 C3 CB 2C D3  |........ .....,.|
00000F10: C5 C3 D4 CF D2 92 20 20  20 A6 9D 9D 9D 22 3B 54  |......   ....";T|
00000F20: 2C 53 3A 8B 28 54 B3 31  29 B0 28 54 B1 54 54 29  |,S:.(T.1).(T.TT)|
00000F30: A7 35 30 37 30 00 76 17  D8 13 85 22 11 11 11 12  |.5070.v...."....|
00000F40: C4 C5 D3 D4 C9 CE C1 D4  C9 CF CE 20 C4 D2 C9 D6  |........... ....|
00000F50: C5 92 A0 A0 A0 A6 9D 9D  9D 22 3B 44 52 24 3A 44  |.........";DR$:D|
00000F60: 52 B2 C5 28 44 52 24 29  3A 8B 44 52 24 B2 22 A6  |R..(DR$):.DR$.".|
00000F70: 22 A7 35 30 38 30 00 B4  17 E2 13 9F 33 2C 38 2C  |".5080......3,8,|
00000F80: 33 2C 22 23 22 3A A1 23  33 2C 42 4E 24 3A 42 4E  |3,"#":.#3,BN$:BN|
00000F90: B2 C6 28 42 4E 24 29 3A  99 22 93 22 53 44 24 22  |..(BN$):."."SD$"|
00000FA0: 11 11 11 11 55 53 49 4E  47 20 C2 D5 C6 C6 C5 D2  |....USING ......|
00000FB0: 23 22 42 4E 00 D0 17 E7  13 42 4D B2 42 4E AA 31  |#"BN.....BM.BN.1|
00000FC0: 37 AA 31 32 AC B5 28 28  42 4E AA 31 29 AD 34 29  |7.12..((BN.1).4)|
00000FD0: 00 E9 17 EC 13 81 49 B2  49 31 A4 49 32 3A 99 22  |......I.I1.I2:."|
00000FE0: 13 20 20 20 9D 9D 9D 22  49 00 0F 18 F6 13 98 31  |.   ..."I......1|
00000FF0: 35 2C 22 4D 2D 57 22 3B  C7 28 49 29 3B C7 28 42  |5,"M-W";.(I);.(B|
00001000: 4D 29 3B C7 28 31 29 3B  C7 28 43 28 49 29 29 00  |M);.(1);.(C(I)).|
00001010: 15 18 0A 14 82 00 2C 18  14 14 98 31 35 2C 22 55  |......,....15,"U|
00001020: 32 3A 22 3B 33 3B 44 52  3B 54 3B 53 00 4A 18 1E  |2:";3;DR;T;S.J..|
00001030: 14 98 31 35 2C 22 49 22  AA 44 52 24 3A 8D 36 33  |..15,"I".DR$:.63|
00001040: 39 30 30 3A A0 33 3A A0  31 35 00 55 18 28 14 99  |900:.3:.15.U.(..|
00001050: 22 93 22 3A 8E 00 5F 18  70 17 8F 20 42 41 4D 00  |".":.._.p.. BAM.|
00001060: 69 18 7A 17 8F 22 B8 B8  B8 00 83 18 84 17 96 20  |i.z.."......... |
00001070: A5 42 28 49 29 B2 28 5A  AF 50 28 49 29 29 AD 50  |.B(I).(Z.P(I)).P|
00001080: 28 49 29 00 93 18 8E 17  A0 31 35 3A 99 C7 28 31  |(I)......15:..(1|
00001090: 34 32 29 00 AD 18 98 17  99 22 93 11 11 12 31 92  |42)......"....1.|
000010A0: 3A 44 49 53 50 4C 41 59  20 42 41 4D 22 00 C4 18  |:DISPLAY BAM"...|
000010B0: A2 17 99 22 11 12 32 92  3A 43 48 41 4E 47 45 20  |..."..2.:CHANGE |
000010C0: 42 41 4D 22 00 E4 18 AC  17 99 22 11 12 33 92 3A  |BAM"......"..3.:|
000010D0: 52 45 54 55 52 4E 20 54  4F 20 4D 41 49 4E 20 4D  |RETURN TO MAIN M|
000010E0: 45 4E 55 22 00 FD 18 B6  17 8D 33 31 30 3A 99 22  |ENU"......310:."|
000010F0: 93 22 3A 8B 49 4E B2 33  A7 36 30 39 35 00 0F 19  |.":.IN.3.6095...|
00001100: C0 17 91 49 4E 8D 36 31  30 30 2C 36 32 38 30 00  |...IN.6100,6280.|
00001110: 19 19 CA 17 89 36 30 33  30 00 44 19 CF 17 A0 32  |.....6030.D....2|
00001120: 3A A0 33 3A 9F 31 35 2C  38 2C 31 35 2C 22 49 22  |:.3:.15,8,15,"I"|
00001130: AA 44 52 24 3A 99 C7 28  31 34 29 3A 8D 36 33 39  |.DR$:..(14):.639|
00001140: 30 30 3A 8E 00 56 19 D4  17 8F 20 44 49 53 50 4C  |00:..V.... DISPL|
00001150: 41 59 20 42 41 4D 00 68  19 DE 17 8F 22 A3 A3 A3  |AY BAM.h...."...|
00001160: A3 A3 A3 A3 A3 A3 A3 A3  00 8D 19 E8 17 99 22 11  |..............".|
00001170: 11 57 48 49 43 48 20 54  52 41 43 4B 53 22 3A 99  |.WHICH TRACKS":.|
00001180: 22 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 00 B4 19  |"...............|
00001190: F2 17 85 22 11 11 46 49  52 53 54 2C 4C 41 53 54  |..."..FIRST,LAST|
000011A0: 20 54 52 41 43 4B 20 20  20 A6 9D 9D 9D 22 3B 54  | TRACK   ....";T|
000011B0: 53 2C 54 45 00 E4 19 FC  17 8B 28 54 53 B3 31 29  |S,TE......(TS.1)|
000011C0: B0 28 54 53 B1 54 54 29  B0 28 54 45 B3 31 29 B0  |.(TS.TT).(TE.1).|
000011D0: 28 54 45 B1 54 54 29 B0  28 54 45 B3 54 53 29 A7  |(TE.TT).(TE.TS).|
000011E0: 36 31 33 30 00 03 1A 06  18 99 22 93 12 52 45 54  |6130......"..RET|
000011F0: 55 52 4E 92 92 20 54 4F  20 53 54 4F 50 22 3A 99  |URN.. TO STOP":.|
00001200: 53 30 24 00 1F 1A 10 18  9F 31 35 2C 38 2C 31 35  |S0$......15,8,15|
00001210: 2C 22 49 22 AA 44 52 24  3A 8D 36 33 39 30 30 00  |,"I".DR$:.63900.|
00001220: 39 1A 1A 18 9F 32 2C 38  2C 32 2C 22 24 22 AA 44  |9....2,8,2,"$".D|
00001230: 52 24 3A 8D 36 33 39 30  30 00 4D 1A 24 18 46 46  |R$:.63900.M.$.FF|
00001240: B2 44 31 AA 28 54 53 AB  31 29 AC 53 33 00 62 1A  |.D1.(TS.1).S3.b.|
00001250: 2E 18 81 4B B2 30 A4 46  46 3A A1 23 32 2C 41 24  |...K.0.FF:.#2,A$|
00001260: 3A 82 00 85 1A 38 18 81  54 B2 54 53 A4 54 45 3A  |:....8..T.TS.TE:|
00001270: 8B 54 B2 35 31 A7 A1 23  32 2C 41 24 2C 41 24 2C  |.T.51..#2,A$,A$,|
00001280: 41 24 2C 41 24 00 8F 1A  42 18 8D 36 34 30 30 00  |A$,A$...B..6400.|
00001290: A6 1A 4C 18 A1 41 24 3A  8B 41 24 B3 B1 22 22 A7  |..L..A$:.A$.."".|
000012A0: 54 B2 54 54 AA 31 00 C0  1A 56 18 82 3A A0 32 3A  |T.TT.1...V..:.2:|
000012B0: A0 31 35 3A 8D 36 38 37  30 3A 8D 33 31 30 3A 8E  |.15:.6870:.310:.|
000012C0: 00 D1 1A 60 18 8F 20 43  48 41 4E 47 45 20 42 41  |...`.. CHANGE BA|
000012D0: 4D 00 E2 1A 6A 18 8F 22  A3 A3 A3 A3 A3 A3 A3 A3  |M...j.."........|
000012E0: A3 A3 00 01 1B 74 18 85  22 93 4D 4F 52 45 20 43  |.....t..".MORE C|
000012F0: 48 41 4E 47 45 53 20 20  20 59 9D 9D 9D 22 3B 49  |HANGES   Y...";I|
00001300: 24 00 10 1B 7E 18 8B 49  24 B3 B1 22 59 22 A7 8E  |$...~..I$.."Y"..|
00001310: 00 4D 1B 88 18 8B 44 54  B2 36 37 A7 99 22 93 53  |.M....DT.67..".S|
00001320: 4F 52 52 59 2E 2E 43 41  4E 27 54 20 43 48 41 4E  |ORRY..CAN'T CHAN|
00001330: 47 45 20 42 41 4D 20 46  4F 52 20 54 48 49 53 20  |GE BAM FOR THIS |
00001340: 44 49 53 4B 2E 22 3A 8D  33 31 30 3A 8E 00 78 1B  |DISK.":.310:..x.|
00001350: 8D 18 85 22 93 54 52 41  43 4B 20 20 20 D6 9D 9D  |...".TRACK   ...|
00001360: 9D 22 3B 54 3A 8B 28 54  B3 31 29 B0 28 54 B1 54  |.";T:.(T.1).(T.T|
00001370: 54 29 A7 4E 36 32 38 30  00 89 1B 92 18 A0 31 35  |T).N6280......15|
00001380: 3A 9F 31 35 2C 38 2C 31  35 00 A2 1B 9C 18 A0 32  |:.15,8,15......2|
00001390: 3A 9F 32 2C 38 2C 32 2C  22 23 22 3A 8D 36 33 39  |:.2,8,2,"#":.639|
000013A0: 30 30 00 BA 1B A6 18 98  31 35 2C 22 55 31 3A 22  |00......15,"U1:"|
000013B0: 3B 32 3B 44 52 3B 44 49  3B 30 00 CE 1B B0 18 98  |;2;DR;DI;0......|
000013C0: 31 35 2C 22 42 2D 50 22  3B 32 3B 54 AC 34 00 02  |15,"B-P";2;T.4..|
000013D0: 1C BA 18 99 22 93 12 45  4E 54 45 52 20 4E 45 47  |...."..ENTER NEG|
000013E0: 41 54 49 56 45 20 53 45  43 54 4F 52 20 54 4F 20  |ATIVE SECTOR TO |
000013F0: 51 55 49 54 11 22 3A 8D  36 34 30 30 3A 8D 36 35  |QUIT.":.6400:.65|
00001400: 38 30 00 34 1C C4 18 85  22 13 11 11 11 11 11 11  |80.4....".......|
00001410: 11 11 11 43 48 41 4E 47  45 20 57 48 49 43 48 20  |...CHANGE WHICH |
00001420: 53 45 43 54 4F 52 20 20  20 20 20 9D 9D D6 9D 9D  |SECTOR     .....|
00001430: 9D 22 3B 53 00 4B 1C CE  18 8B 53 B3 30 B0 53 B1  |.";S.K....S.0.S.|
00001440: B2 53 43 28 54 29 A7 36  32 36 30 00 5B 1C D8 18  |.SC(T).6260.[...|
00001450: A0 32 3A A0 31 35 3A 99  53 44 24 00 8A 1C E2 18  |.2:.15:.SD$.....|
00001460: 8D 36 36 32 30 3A 8D 36  34 38 30 3A 8D 36 35 38  |.6620:.6480:.658|
00001470: 30 3A 99 3A 99 4D 44 24  22 12 4F 4B 3F 92 22 3B  |0:.:.MD$".OK?.";|
00001480: 3A 8D 33 31 30 3A 99 43  4C 24 00 9D 1C EC 18 8B  |:.310:.CL$......|
00001490: 49 4E 24 B2 22 59 22 A7  8D 36 37 33 30 00 AC 1C  |IN$."Y"..6730...|
000014A0: F1 18 99 4D 44 24 43 4C  24 53 44 24 00 BC 1C F6  |...MD$CL$SD$....|
000014B0: 18 8D 36 34 38 30 3A 89  36 33 34 30 00 CF 1C 00  |..6480:.6340....|
000014C0: 19 81 4B B2 30 A4 53 32  3A A1 23 32 2C 41 24 00  |..K.0.S2:.#2,A$.|
000014D0: E2 1C 0A 19 8B 41 24 B2  22 22 A7 41 24 B2 C7 28  |.....A$."".A$..(|
000014E0: 30 29 00 F1 1C 14 19 42  28 4B 29 B2 C6 28 41 24  |0).....B(K)..(A$|
000014F0: 29 00 F7 1C 1E 19 82 00  09 1D 50 19 8F 20 50 52  |).........P.. PR|
00001500: 49 4E 54 20 54 52 41 43  4B 00 1B 1D 5A 19 8F 22  |INT TRACK...Z.."|
00001510: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 00 2E 1D 64 19  |..............d.|
00001520: 81 4B B2 31 A4 53 31 3A  5A B2 42 28 4B 29 00 39  |.K.1.S1:Z.B(K).9|
00001530: 1D 6E 19 81 49 B2 30 A4  37 00 50 1D 78 19 58 B2  |.n..I.0.7.P.x.X.|
00001540: A5 42 28 49 29 3A 99 58  24 28 58 29 3B 3A 82 49  |.B(I):.X$(X);:.I|
00001550: 00 57 1D 82 19 82 4B 00  74 1D 8C 19 5A B2 42 28  |.W....K.t...Z.B(|
00001560: 4B 29 3A 81 49 B2 30 A4  53 43 28 54 29 AB 53 43  |K):.I.0.SC(T).SC|
00001570: 28 54 54 29 00 8D 1D 96  19 58 B2 A5 42 28 49 29  |(TT).....X..B(I)|
00001580: 3A 99 58 24 28 58 29 3B  3A 82 49 3A 99 00 B0 1D  |:.X$(X);:.I:....|
00001590: A0 19 99 22 91 22 A3 32  32 29 22 54 52 41 43 4B  |...".".22)"TRACK|
000015A0: 12 22 54 22 92 9D 46 52  45 45 3D 22 42 28 30 29  |."T"..FREE="B(0)|
000015B0: 00 B6 1D AA 19 8E 00 C8  1D B4 19 99 C8 28 53 31  |.............(S1|
000015C0: 24 2C 53 43 28 54 29 29  00 EF 1D BE 19 99 C8 28  |$,SC(T)).......(|
000015D0: 53 32 24 2C 53 43 28 54  29 29 A3 32 33 29 22 23  |S2$,SC(T)).23)"#|
000015E0: 20 53 45 43 54 4F 52 53  3D 22 53 43 28 54 29 00  | SECTORS="SC(T).|
000015F0: 13 1E C8 19 8B 53 43 28  54 29 B2 32 31 A7 99 C8  |.....SC(T).21...|
00001600: 28 53 33 24 2C 53 43 28  54 29 AA 31 29 3A 89 36  |(S3$,SC(T).1):.6|
00001610: 36 31 30 00 25 1E CD 19  99 C8 28 53 33 24 2C 53  |610.%.....(S3$,S|
00001620: 43 28 54 29 29 00 30 1E  D2 19 99 53 30 24 3A 8E  |C(T)).0....S0$:.|
00001630: 00 44 1E DC 19 8F 20 43  48 41 4E 47 45 20 53 45  |.D.... CHANGE SE|
00001640: 43 54 4F 52 00 58 1E E6  19 8F 22 A3 A3 A3 A3 A3  |CTOR.X....".....|
00001650: A3 A3 A3 A3 A3 A3 A3 A3  00 73 1E F0 19 8B 53 B3  |.........s....S.|
00001660: 38 A7 5A B2 42 28 31 29  3A 53 53 B2 53 3A 89 36  |8.Z.B(1):SS.S:.6|
00001670: 36 37 30 00 91 1E FA 19  8B 53 B3 31 36 A7 5A B2  |670......S.16.Z.|
00001680: 42 28 32 29 3A 53 53 B2  53 AB 38 3A 89 36 36 37  |B(2):SS.S.8:.667|
00001690: 30 00 A4 1E 04 1A 5A B2  42 28 33 29 3A 53 53 B2  |0.....Z.B(3):SS.|
000016A0: 53 AB 31 36 00 C1 1E 0E  1A 4E 5A B2 28 A8 5A AF  |S.16.....NZ.(.Z.|
000016B0: 50 28 53 53 29 29 B0 28  5A AF A8 50 28 53 53 29  |P(SS)).(Z..P(SS)|
000016C0: 29 00 DD 1E 18 1A 42 28  30 29 B2 42 28 30 29 AA  |).....B(0).B(0).|
000016D0: 28 4E 5A B3 5A 29 AB 28  4E 5A B1 5A 29 00 F4 1E  |(NZ.Z).(NZ.Z)...|
000016E0: 22 1A 8B 53 B3 38 A7 42  28 31 29 B2 4E 5A 3A 89  |"..S.8.B(1).NZ:.|
000016F0: 36 37 32 30 00 0C 1F 2C  1A 8B 53 B3 31 36 A7 42  |6720...,..S.16.B|
00001700: 28 32 29 B2 4E 5A 3A 89  36 37 32 30 00 18 1F 36  |(2).NZ:.6720...6|
00001710: 1A 42 28 33 29 B2 4E 5A  00 1E 1F 40 1A 8E 00 2B  |.B(3).NZ...@...+|
00001720: 1F 4A 1A 9F 31 35 2C 38  2C 31 35 00 5D 1F 54 1A  |.J..15,8,15.].T.|
00001730: 99 4D 44 24 22 12 41 52  45 20 59 4F 55 20 53 55  |.MD$".ARE YOU SU|
00001740: 52 45 3F 92 22 3B 3A 8D  33 31 30 3A 99 49 4E 24  |RE?.";:.310:.IN$|
00001750: 3B 3A 8B 49 4E 24 B3 B1  22 59 22 A7 8E 00 77 1F  |;:.IN$.."Y"...w.|
00001760: 5E 1A 99 22 2E 2E 12 43  48 41 4E 47 49 4E 47 20  |^.."...CHANGING |
00001770: 42 41 4D 2E 2E 22 3B 00  8D 1F 68 1A 9F 33 2C 38  |BAM..";...h..3,8|
00001780: 2C 33 2C 22 23 22 3A 8D  36 33 39 30 30 00 A3 1F  |,3,"#":.63900...|
00001790: 72 1A A1 23 33 2C 42 4E  24 3A 42 4E B2 C6 28 42  |r..#3,BN$:BN..(B|
000017A0: 4E 24 29 00 BF 1F 7C 1A  42 4D B2 42 4E AA 31 37  |N$)...|.BM.BN.17|
000017B0: AA 31 32 AC B5 28 28 42  4E AA 31 29 AD 34 29 00  |.12..((BN.1).4).|
000017C0: CB 1F 86 1A 81 49 B2 30  A4 53 32 00 F7 1F 90 1A  |.....I.0.S2.....|
000017D0: 98 31 35 2C 22 4D 2D 57  22 3B C7 28 49 AA 54 AC  |.15,"M-W";.(I.T.|
000017E0: 34 29 3B C7 28 42 4D 29  3B C7 28 31 29 3B C7 28  |4);.(BM);.(1);.(|
000017F0: 42 28 49 29 29 3A 82 00  0F 20 B8 1A 98 31 35 2C  |B(I)):... ...15,|
00001800: 22 55 32 3A 22 3B 33 3B  44 52 3B 44 49 3B 30 00  |"U2:";3;DR;DI;0.|
00001810: 2D 20 C2 1A 98 31 35 2C  22 49 22 AA 44 52 24 3A  |- ...15,"I".DR$:|
00001820: 8D 36 33 39 30 30 3A A0  33 3A A0 31 35 00 33 20  |.63900:.3:.15.3 |
00001830: CC 1A 8E 00 6B 20 D6 1A  99 22 13 11 11 11 11 11  |....k ..."......|
00001840: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00001850: 11 11 11 12 52 45 54 55  52 4E 92 20 54 4F 20 43  |....RETURN. TO C|
00001860: 4F 4E 54 49 4E 55 45 22  3B 3A 8E 00 7F 20 58 1B  |ONTINUE";:... X.|
00001870: 8F 20 44 49 53 4B 20 43  4F 4D 4D 41 4E 44 53 00  |. DISK COMMANDS.|
00001880: 93 20 59 1B 8F 22 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |. Y.."..........|
00001890: B8 B8 B8 00 9E 20 5A 1B  99 C7 28 31 34 29 00 B6  |..... Z...(14)..|
000018A0: 20 5D 1B 99 22 93 11 12  31 92 3A C9 4E 49 54 49  | ].."...1.:.NITI|
000018B0: 41 4C 49 5A 45 22 00 CB  20 5E 1B 99 22 11 12 32  |ALIZE".. ^.."..2|
000018C0: 92 3A D6 41 4C 49 44 41  54 45 22 00 E4 20 5F 1B  |.:.ALIDATE".. _.|
000018D0: 99 22 11 12 33 92 3A C3  48 41 4E 47 45 20 C4 D2  |."..3.:.HANGE ..|
000018E0: C9 D6 C5 23 00 02 21 60  1B 99 22 11 12 34 92 3A  |...#..!`.."..4.:|
000018F0: C4 49 53 50 4C 41 59 20  C4 49 52 45 43 54 4F 52  |.ISPLAY .IRECTOR|
00001900: 59 22 00 1F 21 61 1B 99  22 11 11 11 12 39 92 3A  |Y"..!a.."....9.:|
00001910: D2 C5 D4 D5 D2 CE 20 54  4F 20 4D 45 4E 55 22 00  |...... TO MENU".|
00001920: 38 21 62 1B 8D 33 31 30  3A 8B 49 4E B3 31 B0 49  |8!b..310:.IN.1.I|
00001930: 4E B1 39 A7 37 30 30 30  00 68 21 67 1B 99 22 93  |N.9.7000.h!g..".|
00001940: 4F 4B 2E 2E 22 3A 91 20  49 4E 20 89 37 30 32 30  |OK..":. IN .7020|
00001950: 2C 37 30 33 30 2C 37 30  34 30 2C 37 30 35 30 2C  |,7030,7040,7050,|
00001960: 2C 2C 2C 2C 37 30 39 39  00 8E 21 6C 1B A0 31 35  |,,,,7099..!l..15|
00001970: 3A 9F 31 35 2C 38 2C 31  35 2C 22 49 22 AA 44 52  |:.15,8,15,"I".DR|
00001980: 24 3A 8D 36 33 39 30 30  3A 89 37 30 30 30 00 B4  |$:.63900:.7000..|
00001990: 21 76 1B A0 31 35 3A 9F  31 35 2C 38 2C 31 35 2C  |!v..15:.15,8,15,|
000019A0: 22 56 22 AA 44 52 24 3A  8D 36 33 39 30 30 3A 89  |"V".DR$:.63900:.|
000019B0: 37 30 30 30 00 DF 21 80  1B 85 22 11 11 11 44 52  |7000..!..."...DR|
000019C0: 49 56 45 20 20 20 A6 9D  9D 9D 22 3B 44 52 24 3A  |IVE   ....";DR$:|
000019D0: 44 52 B2 C5 28 44 52 24  29 3A 89 37 30 30 30 00  |DR..(DR$):.7000.|
000019E0: ED 21 8A 1B 8B 44 52 B2  30 A7 DA 44 30 00 FB 21  |.!...DR.0..D0..!|
000019F0: 8B 1B 8B 44 52 B2 31 A7  DA 44 31 00 0A 22 8C 1B  |...DR.1..D1.."..|
00001A00: 8D 33 30 30 3A 89 37 30  30 30 00 10 22 BB 1B 8E  |.300:.7000.."...|
00001A10: 00 23 22 BC 1B 8F 20 54  52 41 43 45 20 42 4C 4F  |.#"... TRACE BLO|
00001A20: 43 4B 53 00 36 22 BD 1B  8F 22 B8 B8 B8 B8 B8 B8  |CKS.6"..."......|
00001A30: B8 B8 B8 B8 B8 B8 00 61  22 C1 1B 85 22 93 12 53  |.......a"..."..S|
00001A40: 54 41 52 54 49 4E 47 20  D4 D2 C1 C3 CB 2C D3 C5  |TARTING .....,..|
00001A50: C3 D4 CF D2 92 20 20 20  A6 9D 9D 9D 22 3B 54 2C  |.....   ....";T,|
00001A60: 53 00 88 22 C2 1B 8B 28  54 B3 31 29 B0 28 54 B1  |S.."...(T.1).(T.|
00001A70: 54 54 29 B0 28 53 B3 30  29 B0 28 53 B1 53 43 28  |TT).(S.0).(S.SC(|
00001A80: 54 29 29 A7 37 31 31 30  00 C0 22 C6 1B A0 33 3A  |T)).7110.."...3:|
00001A90: A0 31 35 3A 9F 31 35 2C  38 2C 31 35 3A 9F 33 2C  |.15:.15,8,15:.3,|
00001AA0: 38 2C 33 2C 22 23 22 3A  8D 36 33 39 30 30 3A A1  |8,3,"#":.63900:.|
00001AB0: 23 33 2C 42 4E 24 3A 42  4E B2 C6 28 42 4E 24 29  |#3,BN$:BN..(BN$)|
00001AC0: 00 E9 22 C7 1B 42 4E 24  B2 CA 28 42 4E 24 2C 32  |.."..BN$..(BN$,2|
00001AD0: 29 3A 42 4D B2 42 4E AA  31 37 AA 31 32 AC B5 28  |):BM.BN.17.12..(|
00001AE0: 28 42 4E AA 31 29 AD 34  29 00 0E 23 CB 1B 99 3A  |(BN.1).4)..#...:|
00001AF0: 99 22 28 22 54 22 2C 22  53 22 29 5F 20 C6 C9 D2  |."("T","S")_ ...|
00001B00: D3 D4 20 C2 CC CF C3 CB  22 3A 4E 39 B2 31 00 25  |.. .....":N9.1.%|
00001B10: 23 D0 1B 98 31 35 2C 22  42 2D 52 22 3B 33 3B 44  |#...15,"B-R";3;D|
00001B20: 52 3B 54 3B 53 00 37 23  DA 1B 98 31 35 2C 22 42  |R;T;S.7#...15,"B|
00001B30: 2D 50 22 3B 33 3B 30 00  51 23 E4 1B A1 23 33 2C  |-P";3;0.Q#...#3,|
00001B40: 5A 24 3A 8B 5A 24 B2 22  22 A7 5A 24 B2 C7 28 30  |Z$:.Z$."".Z$..(0|
00001B50: 29 00 67 23 EE 1B 54 B2  C6 28 5A 24 29 3A 8B 54  |).g#..T..(Z$):.T|
00001B60: B2 30 A7 37 32 30 30 00  81 23 F8 1B A1 23 33 2C  |.0.7200..#...#3,|
00001B70: 5A 24 3A 8B 5A 24 B2 22  22 A7 5A 24 B2 C7 28 30  |Z$:.Z$."".Z$..(0|
00001B80: 29 00 8D 23 02 1C 53 B2  C6 28 5A 24 29 00 AB 23  |)..#..S..(Z$)..#|
00001B90: 07 1C 54 24 B2 CA 28 C4  28 54 29 2C 32 29 3A 53  |..T$..(.(T),2):S|
00001BA0: 24 B2 CA 28 C4 28 53 29  2C 32 29 00 BF 23 0C 1C  |$..(.(S),2)..#..|
00001BB0: 99 22 28 22 54 24 22 2C  22 53 24 22 29 22 3B 00  |."("T$","S$")";.|
00001BC0: D1 23 16 1C 4E 39 B2 4E  39 AA 31 3A 89 37 31 32  |.#..N9.N9.1:.712|
00001BD0: 30 00 E7 23 20 1C 99 22  5F 20 CC C1 D3 D4 20 C2  |0..# .."_ .... .|
00001BE0: CC CF C3 CB 11 11 22 00  00 24 2A 1C 99 4E 39 22  |......"..$*..N9"|
00001BF0: 20 42 4C 4F 43 4B 53 11  22 3A 8D 33 30 30 3A 8E  | BLOCKS.":.300:.|
00001C00: 00 10 24 4C 1D 8F 20 55  4E 53 43 52 41 54 43 48  |..$L.. UNSCRATCH|
00001C10: 00 20 24 4D 1D 8F 22 B8  B8 B8 B8 B8 B8 B8 B8 B8  |. $M..".........|
00001C20: 00 40 24 56 1D 99 22 93  D7 45 27 4C 4C 20 44 4F  |.@$V.."..E'LL DO|
00001C30: 20 54 48 45 20 46 4F 4C  4C 4F 57 49 4E 47 3A 22  | THE FOLLOWING:"|
00001C40: 00 6F 24 57 1D 99 22 11  12 31 92 3A C7 4F 20 54  |.o$W.."..1.:.O T|
00001C50: 48 52 55 27 20 44 49 52  45 43 54 4F 52 59 20 54  |HRU' DIRECTORY T|
00001C60: 52 41 43 4B 22 44 49 22  20 55 4E 54 49 4C 22 00  |RACK"DI" UNTIL".|
00001C70: 99 24 58 1D 99 22 20 20  57 45 20 46 49 4E 44 20  |.$X.."  WE FIND |
00001C80: 54 48 45 20 53 43 52 41  54 43 48 45 44 20 46 49  |THE SCRATCHED FI|
00001C90: 4C 45 20 4E 41 4D 45 2E  22 00 C2 24 59 1D 99 22  |LE NAME."..$Y.."|
00001CA0: 11 12 32 92 3A D4 52 41  43 45 20 54 48 45 20 C2  |..2.:.RACE THE .|
00001CB0: 4C 4F 43 4B 53 20 41 4E  44 20 43 4F 4D 50 41 52  |LOCKS AND COMPAR|
00001CC0: 45 22 00 E8 24 5A 1D 99  22 20 20 54 48 45 20 C2  |E"..$Z.."  THE .|
00001CD0: 4C 4F 43 4B 53 20 4F 42  54 41 49 4E 45 44 20 57  |LOCKS OBTAINED W|
00001CE0: 49 54 48 20 54 48 45 22  00 08 25 5B 1D 99 22 20  |ITH THE"..%[.." |
00001CF0: 20 C4 49 52 45 43 54 4F  52 59 20 C2 4C 4F 43 4B  | .IRECTORY .LOCK|
00001D00: 20 C3 4F 55 4E 54 2E 22  00 36 25 5C 1D 99 22 11  | .OUNT.".6%\..".|
00001D10: 12 33 92 3A CC 4F 4F 4B  20 41 54 20 54 48 45 20  |.3.:.OOK AT THE |
00001D20: C2 4C 4F 43 4B 20 C1 56  41 49 4C 41 42 49 4C 54  |.LOCK .VAILABILT|
00001D30: 59 20 CD 41 50 22 00 62  25 5D 1D 99 22 20 20 54  |Y .AP".b%].."  T|
00001D40: 4F 20 53 45 45 20 49 46  20 41 4C 4C 20 54 48 45  |O SEE IF ALL THE|
00001D50: 20 42 4C 4F 43 4B 53 20  41 52 45 20 46 52 45 45  | BLOCKS ARE FREE|
00001D60: 2E 22 00 87 25 5E 1D 99  22 11 3E 3E C9 46 20 41  |."..%^..".>>.F A|
00001D70: 4C 4C 20 4F 46 20 54 48  45 20 41 42 4F 56 45 20  |LL OF THE ABOVE |
00001D80: 41 52 45 20 CF CB 22 00  AC 25 5F 1D 99 22 20 20  |ARE .."..%_.."  |
00001D90: 57 45 20 4D 41 59 20 CD  4F 44 49 46 59 20 54 48  |WE MAY .ODIFY TH|
00001DA0: 45 20 C4 49 52 45 43 54  4F 52 59 22 00 C6 25 60  |E .IRECTORY"..%`|
00001DB0: 1D 99 22 20 20 41 53 20  46 4F 4C 4C 4F 57 53 3A  |.."  AS FOLLOWS:|
00001DC0: 22 3A 8D 33 30 30 00 EB  25 74 1D 99 22 93 CD 4F  |":.300..%t.."..O|
00001DD0: 44 49 46 59 20 54 48 45  20 42 4C 4F 43 4B 20 53  |DIFY THE BLOCK S|
00001DE0: 4F 20 54 48 41 54 20 54  48 45 22 00 FE 25 79 1D  |O THAT THE"..%y.|
00001DF0: 99 22 12 4D 41 47 49 43  20 42 59 54 45 22 00 2B  |.".MAGIC BYTE".+|
00001E00: 26 7E 1D 99 22 20 20 57  48 49 43 48 20 4F 43 43  |&~.."  WHICH OCC|
00001E10: 55 52 53 20 4A 55 53 54  20 12 33 92 20 50 4C 41  |URS JUST .3. PLA|
00001E20: 43 45 53 20 42 45 46 4F  52 45 22 00 4C 26 88 1D  |CES BEFORE".L&..|
00001E30: 99 22 20 20 54 48 45 20  4E 41 4D 45 20 49 53 20  |."  THE NAME IS |
00001E40: 41 53 20 46 4F 4C 4C 4F  57 53 3A 22 00 62 26 92  |AS FOLLOWS:".b&.|
00001E50: 1D 99 22 20 20 31 32 39  3D D3 C5 D1 20 46 49 4C  |.."  129=... FIL|
00001E60: 45 22 00 79 26 93 1D 99  22 20 20 31 33 30 3D D0  |E".y&..."  130=.|
00001E70: D2 CF C7 20 46 49 4C 45  22 00 8F 26 94 1D 99 22  |... FILE"..&..."|
00001E80: 20 20 31 33 31 3D D5 D3  D2 20 46 49 4C 45 22 00  |  131=... FILE".|
00001E90: A5 26 95 1D 99 22 20 20  31 33 32 3D D2 C5 CC 20  |.&..."  132=... |
00001EA0: 46 49 4C 45 22 00 D4 26  9C 1D 99 22 11 C5 58 41  |FILE"..&..."..XA|
00001EB0: 4D 50 4C 45 3A 54 4F 20  55 4E 53 43 52 41 54 43  |MPLE:TO UNSCRATC|
00001EC0: 48 20 41 20 D0 D2 CF C7  20 46 49 4C 45 20 27 C1  |H A .... FILE '.|
00001ED0: C2 DA 27 22 00 00 27 A6  1D 99 22 46 49 4E 44 20  |..'"..'..."FIND |
00001EE0: 49 54 27 53 20 4E 41 4D  45 20 4F 4E 20 54 48 45  |IT'S NAME ON THE|
00001EF0: 20 C4 C9 D2 C5 C3 D4 CF  D2 D9 2C 20 41 4E 44 22  | ........., AND"|
00001F00: 00 26 27 B0 1D 99 22 53  45 4C 45 43 54 20 CD C5  |.&'..."SELECT ..|
00001F10: CE D5 20 49 54 45 4D 3D  CD 4F 44 49 46 59 20 C2  |.. ITEM=.ODIFY .|
00001F20: 4C 4F 43 4B 2E 22 00 3B  27 BA 1D 99 22 D9 4F 55  |LOCK.".;'...".OU|
00001F30: 20 57 49 4C 4C 20 53 45  45 3A 22 00 6B 27 C4 1D  | WILL SEE:".k'..|
00001F40: 99 22 11 2E 2E 20 30 12  20 30 92 20 30 12 20 30  |."... 0. 0. 0. 0|
00001F50: 92 20 31 39 12 20 33 92  20 36 35 12 20 36 36 92  |. 19. 3. 65. 66.|
00001F60: 20 39 30 2E 2E 2E 2E 45  54 43 22 00 8B 27 CE 1D  | 90....ETC"..'..|
00001F70: 99 22 20 20 20 20 20 20  20 20 20 5E 20 20 5E 20  |."         ^  ^ |
00001F80: 5E 20 20 5E 20 20 5E 20  20 5E 22 00 AB 27 D8 1D  |^  ^  ^  ^"..'..|
00001F90: 99 22 20 53 48 4F 55 4C  44 20 42 45 20 DD D4 52  |." SHOULD BE ..R|
00001FA0: 43 4B DD C1 20 20 C2 20  20 DA 22 00 D6 27 E2 1D  |CK..  .  ."..'..|
00001FB0: 99 22 20 20 20 20 20 41  20 31 33 30 20 DD 26 D3  |."     A 130 .&.|
00001FC0: 45 43 DD C6 49 4C 45 4E  41 4D 45 28 49 4E 20 C1  |EC..ILENAME(IN .|
00001FD0: D3 C3 C9 C9 29 22 00 E7  27 EC 1D 8D 33 30 30 3A  |....)"..'...300:|
00001FE0: 99 22 91 22 53 30 24 00  15 28 F6 1D 99 22 11 CD  |."."S0$..(..."..|
00001FF0: 4F 44 49 46 59 20 54 48  45 20 42 59 54 45 20 57  |ODIFY THE BYTE W|
00002000: 48 49 43 48 20 49 44 45  4E 54 49 46 49 45 53 20  |HICH IDENTIFIES |
00002010: 54 48 45 20 22 00 3C 28  00 1E 99 22 46 49 4C 45  |THE ".<(..."FILE|
00002020: 20 54 59 50 45 2E 2E 54  4F 20 31 33 30 2E 2E 53  | TYPE..TO 130..S|
00002030: 4F 20 49 54 20 52 45 41  44 53 3A 22 00 6E 28 05  |O IT READS:".n(.|
00002040: 1E 99 22 11 2E 2E 20 30  12 20 30 92 20 30 12 20  |.."... 0. 0. 0. |
00002050: 31 33 30 92 20 31 39 12  20 33 92 20 36 35 12 20  |130. 19. 3. 65. |
00002060: 36 36 92 20 39 30 2E 2E  2E 2E 45 54 43 22 00 9C  |66. 90....ETC"..|
00002070: 28 0A 1E 99 22 11 12 34  92 3A D7 52 49 54 45 20  |(..."..4.:.RITE |
00002080: 54 48 45 20 42 4C 4F 43  4B 20 42 41 43 4B 20 54  |THE BLOCK BACK T|
00002090: 4F 20 54 48 45 20 44 49  53 4B 2E 22 00 C4 28 14  |O THE DISK."..(.|
000020A0: 1E 99 22 11 12 35 92 3A  D1 55 49 54 20 41 4E 44  |.."..5.:.UIT AND|
000020B0: 20 D6 C1 CC C9 C4 C1 D4  C5 20 54 48 45 20 44 49  | ........ THE DI|
000020C0: 53 4B 2E 22 00 DF 28 19  1E 99 22 20 20 20 20 20  |SK."..(..."     |
000020D0: 20 20 20 20 20 20 B8 B8  B8 B8 B8 B8 B8 B8 22 00  |      ........".|
000020E0: F6 28 1E 1E 99 22 12 35  92 3A D0 52 41 59 2E 2E  |.(...".5.:.RAY..|
000020F0: 22 3A 8D 33 31 30 00 1F  29 C8 1E 85 22 11 D7 C1  |":.310..)..."...|
00002100: CE D4 20 D4 CF 20 D4 D2  D9 20 20 20 59 9D 9D 9D  |.. .. ...   Y...|
00002110: 22 3B 41 24 3A 8B 41 24  B3 B1 22 59 22 A7 8E 00  |";A$:.A$.."Y"...|
00002120: 2A 29 D2 1E 89 31 32 30  30 30 00 41 29 DC 1E A0  |*)...12000.A)...|
00002130: 31 35 3A 99 C7 28 31 34  32 29 3A 99 22 93 22 3A  |15:..(142):.".":|
00002140: 80 00 52 29 40 1F 8F 20  49 4E 49 54 49 41 4C 49  |..R)@.. INITIALI|
00002150: 5A 45 00 63 29 41 1F 8F  22 B8 B8 B8 B8 B8 B8 B8  |ZE.c)A..".......|
00002160: B8 B8 B8 00 74 29 42 1F  99 C7 28 31 34 32 29 3A  |....t)B...(142):|
00002170: 99 22 05 22 00 9A 29 45  1F 86 43 28 32 35 35 29  |."."..)E..C(255)|
00002180: 2C 54 28 31 32 30 29 2C  53 28 31 32 30 29 2C 53  |,T(120),S(120),S|
00002190: 43 28 37 37 29 2C 42 28  34 29 00 BB 29 46 1F 83  |C(77),B(4)..)F..|
000021A0: 31 2C 31 37 2C 32 30 2C  32 34 2C 31 39 2C 33 30  |1,17,20,24,19,30|
000021B0: 2C 31 37 2C 33 35 2C 31  36 2C 30 00 DD 29 47 1F  |,17,35,16,0..)G.|
000021C0: 83 36 35 2C 31 37 2C 32  30 2C 32 34 2C 31 38 2C  |.65,17,20,24,18,|
000021D0: 33 30 2C 31 37 2C 33 35  2C 31 36 2C 30 00 FF 29  |30,17,35,16,0..)|
000021E0: 48 1F 83 36 37 2C 33 39  2C 32 38 2C 35 33 2C 32  |H..67,39,28,53,2|
000021F0: 36 2C 36 34 2C 32 34 2C  37 37 2C 32 32 2C 30 00  |6,64,24,77,22,0.|
00002200: 17 2A 4A 1F 52 24 28 30  29 B2 22 12 22 3A 52 24  |.*J.R$(0).".":R$|
00002210: 28 31 29 B2 22 92 22 00  2D 2A 54 1F 53 44 24 B2  |(1).".".-*T.SD$.|
00002220: 22 13 11 11 11 11 11 11  11 11 11 11 22 00 4C 2A  |"...........".L*|
00002230: 59 1F 4D 44 24 B2 22 13  11 11 11 11 11 11 11 11  |Y.MD$.".........|
00002240: 11 11 11 11 11 11 11 11  11 11 92 22 00 70 2A 63  |...........".p*c|
00002250: 1F 85 22 93 44 52 49 56  45 92 20 20 20 A6 9D 9D  |..".DRIVE.   ...|
00002260: 9D 22 3B 44 52 24 3A 44  52 B2 C5 28 44 52 24 29  |.";DR$:DR..(DR$)|
00002270: 00 8C 2A 68 1F 9F 31 35  2C 38 2C 31 35 2C 22 49  |..*h..15,8,15,"I|
00002280: 22 AA 44 52 24 3A 8D 36  33 39 30 30 00 AD 2A 72  |".DR$:.63900..*r|
00002290: 1F 4B 24 B2 22 20 20 D4  C8 C9 D3 A0 C2 CC CF C3  |.K$."  .........|
000022A0: CB A0 C9 D3 A0 C5 CD D0  D4 D9 20 20 22 00 C9 2A  |..........  "..*|
000022B0: 7C 1F 99 22 93 57 41 49  54 2E 2E 2E 22 3A 8C 3A  ||..".WAIT...":.:|
000022C0: 57 57 B2 30 3A 41 30 B2  31 00 E3 2A 7D 1F 9F 33  |WW.0:A0.1..*}..3|
000022D0: 2C 38 2C 33 2C 22 24 22  AA 44 52 24 3A 8D 36 33  |,8,3,"$".DR$:.63|
000022E0: 39 30 30 00 FB 2A 7E 1F  A1 23 33 2C 41 24 3A 41  |900..*~..#3,A$:A|
000022F0: B2 C6 28 41 24 AA C7 28  30 29 29 00 0E 2B 7F 1F  |..(A$..(0))..+..|
00002300: 87 44 54 3A 8B 41 B2 44  54 A7 38 30 37 30 00 34  |.DT:.A.DT.8070.4|
00002310: 2B 80 1F 57 57 B2 57 57  AA 31 3A 8B 57 57 B3 33  |+..WW.WW.1:.WW.3|
00002320: A7 20 81 49 B2 31 A4 39  3A 87 44 54 3A 82 3A 89  |. .I.1.9:.DT:.:.|
00002330: 38 30 36 33 00 74 2B 81  1F 99 22 93 11 11 2A 2A  |8063.t+..."...**|
00002340: 2A 12 4E 4F 54 20 41 20  52 45 43 4F 47 4E 49 5A  |*.NOT A RECOGNIZ|
00002350: 41 42 4C 45 20 44 49 53  4B 92 2A 2A 2A 22 3A A0  |ABLE DISK.***":.|
00002360: 33 3A 99 22 11 11 57 41  4E 54 20 54 4F 20 51 55  |3:."..WANT TO QU|
00002370: 49 54 3F 22 00 8B 2B 82  1F 8D 33 31 30 3A 8B 49  |IT?"..+...310:.I|
00002380: 4E 24 B2 22 59 22 A7 37  39 30 30 00 95 2B 83 1F  |N$."Y".7900..+..|
00002390: 89 38 31 31 30 00 AC 2B  86 1F 8B 44 54 B2 31 B0  |.8110..+...DT.1.|
000023A0: 44 54 B2 36 35 A7 4B 4B  B2 31 34 33 00 BC 2B 87  |DT.65.KK.143..+.|
000023B0: 1F 8B 44 54 B2 36 37 A7  4B 4B B2 35 00 C6 2B 88  |..DT.67.KK.5..+.|
000023C0: 1F 8D 38 32 30 30 00 D9  2B 8B 1F 87 41 31 3A 8B  |..8200..+...A1:.|
000023D0: 41 31 B2 30 A7 38 30 39  30 00 02 2C 90 1F 87 42  |A1.0.8090..,...B|
000023E0: 31 3A 81 49 B2 41 30 A4  41 31 3A 53 43 28 49 29  |1:.I.A0.A1:SC(I)|
000023F0: B2 42 31 AA 31 3A 82 3A  41 30 B2 49 3A 89 38 30  |.B1.1:.:A0.I:.80|
00002400: 37 35 00 28 2C 9A 1F 8B  44 54 B2 31 B0 44 54 B2  |75.(,...DT.1.DT.|
00002410: 36 35 A7 44 31 B2 31 3A  54 54 B2 33 35 3A 53 32  |65.D1.1:TT.35:S2|
00002420: B2 33 3A 44 49 B2 31 38  00 4B 2C 9F 1F 8B 44 54  |.3:DI.18.K,...DT|
00002430: B2 36 37 A7 44 31 B2 32  35 37 3A 54 54 B2 37 37  |.67.D1.257:TT.77|
00002440: 3A 53 32 B2 34 3A 44 49  B2 33 39 00 5F 2C A0 1F  |:S2.4:DI.39._,..|
00002450: 53 31 B2 53 32 AB 31 3A  53 33 B2 53 32 AA 31 00  |S1.S2.1:S3.S2.1.|
00002460: 71 2C A4 1F A0 33 3A 8B  54 54 B2 30 A7 38 30 36  |q,...3:.TT.0.806|
00002470: 35 00 87 2C AE 1F 81 49  B2 30 A4 37 3A 50 28 49  |5..,...I.0.7:P(I|
00002480: 29 B2 32 AE 49 3A 82 00  9F 2C B8 1F 58 24 28 30  |).2.I:...,..X$(0|
00002490: 29 B2 22 D1 22 3A 58 24  28 31 29 B2 22 D7 22 00  |).".":X$(1).".".|
000024A0: D0 2C C2 1F 53 30 24 B2  22 A3 A3 A3 A3 A3 A3 A3  |.,..S0$.".......|
000024B0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000024C0: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 22  |..............."|
000024D0: 00 F1 2C CC 1F 43 4C 24  B2 22 22 3A 81 49 B2 31  |..,..CL$."":.I.1|
000024E0: A4 33 39 3A 43 4C 24 B2  43 4C 24 AA 22 20 22 3A  |.39:CL$.CL$." ":|
000024F0: 82 00 1F 2D D6 1F 53 31  24 B2 22 5E 2E 2E 2E 2E  |...-..S1$."^....|
00002500: 5E 2E 2E 2E 2E 5E 2E 2E  2E 2E 5E 2E 2E 2E 2E 5E  |^....^....^....^|
00002510: 2E 2E 2E 2E 5E 2E 2E 2E  2E 5E 2E 2E 2E 2E 22 00  |....^....^....".|
00002520: 49 2D E0 1F 53 32 24 B2  22 DD 20 20 20 20 DD 20  |I-..S2$.".    . |
00002530: 20 20 20 DD 20 20 20 20  DD 20 20 20 20 DD 20 20  |   .    .    .  |
00002540: 20 20 DD 20 20 20 20 DD  22 00 74 2D EA 1F 53 33  |  .    .".t-..S3|
00002550: 24 B2 22 30 20 20 20 20  35 20 20 20 20 31 30 20  |$."0    5    10 |
00002560: 20 20 31 35 20 20 20 32  30 20 20 20 32 35 20 20  |  15   20   25  |
00002570: 20 33 30 22 00 7A 2D F4  1F 8E 00 95 2D 08 20 81  | 30".z-.....-. .|
00002580: 49 B2 33 A4 4B 4B 3A A1  23 33 2C 41 24 3A 82 3A  |I.3.KK:.#3,A$:.:|
00002590: 99 22 12 22 3B 00 BA 2D  12 20 81 49 B2 31 A4 32  |.".";..-. .I.1.2|
000025A0: 33 3A A1 23 33 2C 41 24  3A 41 24 B2 41 24 AA C7  |3:.#3,A$:A$.A$..|
000025B0: 28 30 29 3A 99 41 24 3B  3A 82 00 C2 2D 1C 20 99  |(0):.A$;:...-. .|
000025C0: 3A 8E 00 D4 2D 28 23 8F  20 44 45 43 49 4D 41 4C  |:...-(#. DECIMAL|
000025D0: 5F 48 45 58 00 E6 2D 29  23 8F 22 A3 A3 A3 A3 A3  |_HEX..-)#.".....|
000025E0: A3 A3 A3 A3 A3 A3 00 FA  2D 2D 23 4D B2 C5 28 4D  |........--#M..(M|
000025F0: 24 29 3A 8B 4D B3 B1 30  A7 8E 00 16 2E 32 23 4D  |$):.M..0.....2#M|
00002600: 24 B2 CA 28 4D 24 2C 32  29 3A 4D B2 30 3A 4C 4D  |$..(M$,2):M.0:LM|
00002610: B2 C3 28 4D 24 29 00 23  2E 3C 23 81 43 4E B2 31  |..(M$).#.<#.CN.1|
00002620: A4 4C 4D 00 50 2E 46 23  4D 4D 24 B2 CA 28 4D 24  |.LM.P.F#MM$..(M$|
00002630: 2C 43 4E 2C 31 29 3A 8D  39 31 30 30 3A 4D B2 4D  |,CN,1):.9100:M.M|
00002640: AA 4D 4D AC 31 36 AE 28  4C 4D AB 43 4E 29 3A 82  |.MM.16.(LM.CN):.|
00002650: 00 56 2E 50 23 8E 00 6A  2E 8C 23 8B 4D 4D 24 B2  |.V.P#..j..#.MM$.|
00002660: 22 30 22 A7 4D 4D B2 30  3A 8E 00 81 2E 96 23 4D  |"0".MM.0:.....#M|
00002670: 4D B2 C5 28 4D 4D 24 29  3A 8B 4D 4D B3 B1 30 A7  |M..(MM$):.MM..0.|
00002680: 8E 00 94 2E A0 23 4D 4D  B2 C6 28 4D 4D 24 29 AB  |.....#MM..(MM$).|
00002690: 35 35 3A 8E 00 A6 2E 1C  25 8F 20 48 45 58 5F 44  |55:.....%. HEX_D|
000026A0: 45 43 49 4D 41 4C 00 B8  2E 1D 25 8F 22 A3 A3 A3  |ECIMAL....%."...|
000026B0: A3 A3 A3 A3 A3 A3 A3 A3  00 F2 2E 21 25 53 4D B2  |...........!%SM.|
000026C0: 4D 3A 4D 24 B2 22 24 22  3A 81 43 4E B2 33 A4 30  |M:M$."$":.CN.3.0|
000026D0: A9 AB 31 3A 43 4D 25 B2  53 4D AD 28 31 36 AE 43  |..1:CM%.SM.(16.C|
000026E0: 4E 29 3A 8D 39 36 30 30  3A 4D 24 B2 4D 24 AA 4D  |N):.9600:M$.M$.M|
000026F0: 4D 24 00 0C 2F 26 25 53  4D B2 53 4D AB 28 31 36  |M$../&%SM.SM.(16|
00002700: AE 43 4E 29 AC 43 4D 25  3A 82 3A 8E 00 28 2F 80  |.CN).CM%:.:..(/.|
00002710: 25 8B 43 4D 25 B3 31 30  A7 4D 4D 24 B2 C7 28 43  |%.CM%.10.MM$..(C|
00002720: 4D 25 AA 34 38 29 3A 8E  00 3C 2F 8A 25 4D 4D 24  |M%.48):..</.%MM$|
00002730: B2 C7 28 43 4D 25 AA 35  35 29 3A 8E 00 55 2F 10  |..(CM%.55):..U/.|
00002740: 27 99 53 44 24 22 11 11  11 11 11 11 11 11 11 11  |'.SD$"..........|
00002750: 20 20 20 20 22 00 86 2F  1A 27 97 43 52 54 AA 4A  |    "../.'.CRT.J|
00002760: 2C 31 36 38 3A 4A B2 4A  AA 31 3A 81 4B B2 32 A4  |,168:J.J.1:.K.2.|
00002770: 31 A9 AB 31 3A 53 24 B2  CA 28 C4 28 43 28 49 AB  |1..1:S$..(.(C(I.|
00002780: 4B 29 29 2C 32 29 00 B5  2F 24 27 81 4C B2 31 A4  |K)),2)../$'.L.1.|
00002790: C3 28 53 24 29 3A 97 43  52 54 AA 4A 2C C5 28 CA  |.(S$):.CRT.J,.(.|
000027A0: 28 53 24 2C 4C 2C 31 29  29 AA 31 37 36 3A 4A B2  |(S$,L,1)).176:J.|
000027B0: 4A AA 31 3A 82 00 D9 2F  2E 27 97 43 52 54 AA 4A  |J.1:.../.'.CRT.J|
000027C0: 2C 31 37 32 3A 4A B2 4A  AA 31 3A 82 3A 97 43 52  |,172:J.J.1:.:.CR|
000027D0: 54 AA 4A AB 31 2C 31 36  39 00 05 30 38 27 99 53  |T.J.1,169..08'.S|
000027E0: 44 24 22 11 11 11 11 11  11 11 11 11 11 4E 4F 54  |D$"..........NOT|
000027F0: 45 3A 12 28 54 52 41 43  4B 2C 53 45 43 54 4F 52  |E:.(TRACK,SECTOR|
00002800: 29 20 22 3A 8E 00 0B 30  F8 2A 3A 00 43 30 02 2B  |) ":...0.*:.C0.+|
00002810: 97 43 52 54 AA 4A 2C 31  39 30 3A 4A B2 4A AA 31  |.CRT.J,190:J.J.1|
00002820: 3A 53 56 B2 43 28 49 AB  32 29 AA 43 28 49 AB 31  |:SV.C(I.2).C(I.1|
00002830: 29 AC 32 35 36 3A 53 24  B2 CA 28 C4 28 53 56 29  |).256:S$..(.(SV)|
00002840: 2C 32 29 00 72 30 0C 2B  81 4C B2 31 A4 C3 28 53  |,2).r0.+.L.1..(S|
00002850: 24 29 3A 97 43 52 54 AA  4A 2C C5 28 CA 28 53 24  |$):.CRT.J,.(.(S$|
00002860: 2C 4C 2C 31 29 29 AA 31  37 36 3A 4A B2 4A AA 31  |,L,1)).176:J.J.1|
00002870: 3A 82 00 89 30 16 2B 4A  B2 4A AA 31 3A 97 43 52  |:...0.+J.J.1:.CR|
00002880: 54 AA 4A AB 31 2C 31 38  38 00 B6 30 20 2B 99 53  |T.J.1,188..0 +.S|
00002890: 44 24 22 11 11 11 11 11  11 11 11 11 11 11 B8 B8  |D$".............|
000028A0: B8 B8 3A 12 3E 4E 55 4D  42 45 52 20 42 4C 4F 43  |..:.>NUMBER BLOC|
000028B0: 4B 53 3C 22 3A 8E 00 CE  30 E0 2E 8F 20 55 4E 53  |KS<":...0... UNS|
000028C0: 43 52 41 54 43 48 20 52  4F 55 54 49 4E 45 00 E6  |CRATCH ROUTINE..|
000028D0: 30 E1 2E 8F 22 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |0..."...........|
000028E0: B8 B8 B8 B8 B8 B8 00 F2  30 EA 2E 99 C7 28 31 34  |........0....(14|
000028F0: 32 29 00 1A 31 F4 2E 99  22 93 11 11 54 48 45 20  |2)..1..."...THE |
00002900: 53 43 52 41 54 43 48 45  44 20 46 49 4C 45 20 4E  |SCRATCHED FILE N|
00002910: 41 4D 45 53 20 57 49 4C  4C 22 00 2F 31 FE 2E 99  |AMES WILL"./1...|
00002920: 22 42 45 20 44 49 53 50  4C 41 59 45 44 2E 22 00  |"BE DISPLAYED.".|
00002930: 55 31 08 2F 99 22 11 59  4F 55 20 4D 41 59 20 44  |U1./.".YOU MAY D|
00002940: 45 43 49 44 45 20 57 48  49 43 48 20 46 49 4C 45  |ECIDE WHICH FILE|
00002950: 20 59 4F 55 22 00 6D 31  12 2F 99 22 57 49 53 48  | YOU".m1./."WISH|
00002960: 20 54 4F 20 52 45 43 4F  56 45 52 2E 22 00 90 31  | TO RECOVER."..1|
00002970: 1C 2F 99 22 11 11 12 52  45 54 55 52 4E 92 20 54  |./."...RETURN. T|
00002980: 4F 20 43 4F 4E 54 49 4E  55 45 22 3A 8D 33 31 30  |O CONTINUE":.310|
00002990: 00 99 31 26 2F 99 22 93  22 00 AD 31 30 2F A0 33  |..1&/."."..10/.3|
000029A0: 3A A0 31 35 3A 9F 31 35  2C 38 2C 31 35 00 CD 31  |:.15:.15,8,15..1|
000029B0: 3A 2F 54 B2 44 49 3A 53  B2 31 3A 9F 33 2C 38 2C  |:/T.DI:S.1:.3,8,|
000029C0: 33 2C 22 23 30 22 3A 8D  36 33 39 30 30 00 E4 31  |3,"#0":.63900..1|
000029D0: 3F 2F 98 31 35 2C 22 42  2D 52 22 3B 33 3B 44 52  |?/.15,"B-R";3;DR|
000029E0: 3B 54 3B 53 00 F8 31 40  2F 99 22 93 4C 4F 4F 4B  |;T;S..1@/.".LOOK|
000029F0: 49 4E 47 20 41 54 3A 22  00 1E 32 41 2F 99 22 11  |ING AT:"..2A/.".|
00002A00: 11 54 52 41 43 4B 20 20  20 9D 9D 9D 22 54 22 20  |.TRACK   ..."T" |
00002A10: 53 45 43 54 4F 52 20 20  20 9D 9D 9D 22 53 00 48  |SECTOR   ..."S.H|
00002A20: 32 44 2F 81 4A B2 30 A4  32 35 35 3A 98 31 35 2C  |2D/.J.0.255:.15,|
00002A30: 22 4D 2D 52 22 3B C7 28  4A 29 3B C7 28 31 37 29  |"M-R";.(J);.(17)|
00002A40: 3A A1 23 31 35 2C 41 24  00 5E 32 4E 2F 43 28 4A  |:.#15,A$.^2N/C(J|
00002A50: 29 B2 C6 28 41 24 AA C7  28 30 29 29 3A 82 00 86  |)..(A$..(0)):...|
00002A60: 32 58 2F 81 44 B2 32 A4  32 35 35 A9 33 32 3A 8B  |2X/.D.2.255.32:.|
00002A70: 43 28 44 29 B3 B1 30 B0  43 28 44 AA 31 29 B2 30  |C(D)..0.C(D.1).0|
00002A80: A7 31 32 32 30 30 00 B7  32 62 2F 99 53 44 24 43  |.12200..2b/.SD$C|
00002A90: 4C 24 53 44 24 22 57 41  4E 54 20 54 4F 20 55 4E  |L$SD$"WANT TO UN|
00002AA0: 53 43 52 41 54 43 48 20  12 22 3B 3A 81 50 39 B2  |SCRATCH .";:.P9.|
00002AB0: 31 A4 32 30 30 3A 82 00  E2 32 6C 2F A1 41 24 3A  |1.200:...2l/.A$:|
00002AC0: 81 4B B2 44 AA 33 A4 44  AA 31 38 3A 99 C7 28 43  |.K.D.3.D.18:..(C|
00002AD0: 28 4B 29 29 3B 3A 82 3A  99 22 92 3F 22 3A 8D 33  |(K));:.:.".?":.3|
00002AE0: 31 30 00 F5 32 76 2F 8B  49 4E 24 B2 22 59 22 A7  |10..2v/.IN$."Y".|
00002AF0: 31 32 33 30 30 00 16 33  A8 2F 82 44 3A 54 B2 43  |12300..3./.D:T.C|
00002B00: 28 30 29 3A 53 B2 43 28  31 29 3A 8B 54 B2 44 49  |(0):S.C(1):.T.DI|
00002B10: A7 31 32 30 39 35 00 53  33 B2 2F 99 22 93 46 49  |.12095.S3./.".FI|
00002B20: 4E 49 53 48 45 44 20 4C  4F 4F 4B 49 4E 47 2E 2E  |NISHED LOOKING..|
00002B30: 22 3A 99 22 11 11 12 52  45 54 55 52 4E 92 20 54  |":."...RETURN. T|
00002B40: 4F 20 43 4F 4E 54 49 4E  55 45 2E 22 3A 8D 33 31  |O CONTINUE.":.31|
00002B50: 30 3A 8E 00 91 33 0C 30  54 30 B2 54 3A 53 30 B2  |0:...3.0T0.T:S0.|
00002B60: 53 3A 54 B2 43 28 44 AA  31 29 3A 53 B2 43 28 44  |S:T.C(D.1):S.C(D|
00002B70: AA 32 29 3A 42 30 B2 43  28 44 AA 32 38 29 AA 43  |.2):B0.C(D.28).C|
00002B80: 28 44 AA 32 39 29 AC 32  35 36 3A 99 C7 28 31 34  |(D.29).256:..(14|
00002B90: 29 00 BF 33 0D 30 99 22  93 11 11 12 C4 49 52 45  |)..3.0.".....IRE|
00002BA0: 43 54 4F 52 59 20 C2 4C  4F 43 4B 20 C3 4F 55 4E  |CTORY .LOCK .OUN|
00002BB0: 54 3D 22 42 30 3A 4E 39  B2 31 3A 99 53 30 24 00  |T="B0:N9.1:.S0$.|
00002BC0: F7 33 0E 30 A0 33 3A A0  31 35 3A 9F 31 35 2C 38  |.3.0.3:.15:.15,8|
00002BD0: 2C 31 35 3A 9F 33 2C 38  2C 33 2C 22 23 22 3A 8D  |,15:.3,8,3,"#":.|
00002BE0: 36 33 39 30 30 3A A1 23  33 2C 42 4E 24 3A 42 4E  |63900:.#3,BN$:BN|
00002BF0: B2 C6 28 42 4E 24 29 00  13 34 0F 30 54 28 4E 39  |..(BN$)..4.0T(N9|
00002C00: 29 B2 54 3A 53 28 4E 39  29 B2 53 3A 4E 39 B2 4E  |).T:S(N9).S:N9.N|
00002C10: 39 AA 31 00 2A 34 11 30  98 31 35 2C 22 42 2D 52  |9.1.*4.0.15,"B-R|
00002C20: 22 3B 33 3B 44 52 3B 54  3B 53 00 3C 34 12 30 98  |";3;DR;T;S.<4.0.|
00002C30: 31 35 2C 22 42 2D 50 22  3B 33 3B 30 00 56 34 13  |15,"B-P";3;0.V4.|
00002C40: 30 A1 23 33 2C 5A 24 3A  8B 5A 24 B2 22 22 A7 5A  |0.#3,Z$:.Z$."".Z|
00002C50: 24 B2 C7 28 30 29 00 75  34 14 30 54 28 4E 39 29  |$..(0).u4.0T(N9)|
00002C60: B2 C6 28 5A 24 29 3A 8B  54 28 4E 39 29 B2 30 A7  |..(Z$):.T(N9).0.|
00002C70: 31 32 33 31 34 00 8F 34  15 30 A1 23 33 2C 5A 24  |12314..4.0.#3,Z$|
00002C80: 3A 8B 5A 24 B2 22 22 A7  5A 24 B2 C7 28 30 29 00  |:.Z$."".Z$..(0).|
00002C90: 9F 34 16 30 53 28 4E 39  29 B2 C6 28 5A 24 29 00  |.4.0S(N9)..(Z$).|
00002CA0: BD 34 17 30 54 24 B2 CA  28 C4 28 54 29 2C 32 29  |.4.0T$..(.(T),2)|
00002CB0: 3A 53 24 B2 CA 28 C4 28  53 29 2C 32 29 00 D1 34  |:S$..(.(S),2)..4|
00002CC0: 18 30 99 22 28 22 54 24  22 2C 22 53 24 22 29 22  |.0."("T$","S$")"|
00002CD0: 3B 00 F4 34 19 30 54 B2  54 28 4E 39 29 3A 53 B2  |;..4.0T.T(N9):S.|
00002CE0: 53 28 4E 39 29 3A 4E 39  B2 4E 39 AA 31 3A 89 31  |S(N9):N9.N9.1:.1|
00002CF0: 32 33 30 35 00 02 35 1A  30 4E 39 B2 4E 39 AB 31  |2305..5.0N9.N9.1|
00002D00: 3A 99 00 18 35 1B 30 99  22 11 12 22 4E 39 22 20  |:...5.0.".."N9" |
00002D10: 42 4C 4F 43 4B 53 11 22  00 4E 35 3E 30 8B 4E 39  |BLOCKS.".N5>0.N9|
00002D20: B3 B1 42 30 A7 99 22 11  11 2A 2A 12 49 4E 43 4F  |..B0.."..**.INCO|
00002D30: 52 52 45 43 54 20 42 4C  4F 43 4B 20 43 4F 55 4E  |RRECT BLOCK COUN|
00002D40: 54 92 2A 2A 11 11 22 3A  8D 33 30 30 3A 8E 00 69  |T.**..":.300:..i|
00002D50: 35 48 30 99 22 11 CC 4F  4F 4B 53 20 47 4F 4F 44  |5H0."..OOKS GOOD|
00002D60: 20 53 4F 20 46 41 52 2E  22 00 94 35 52 30 99 22  | SO FAR."..5R0."|
00002D70: 11 D3 48 41 4C 4C 20 57  45 20 50 52 4F 43 45 45  |..HALL WE PROCEE|
00002D80: 44 3F 22 3A 8D 33 31 30  3A 8B 49 4E 24 B3 B1 22  |D?":.310:.IN$.."|
00002D90: 59 22 A7 8E 00 C0 35 5C  30 99 22 93 11 11 D7 45  |Y"....5\0."....E|
00002DA0: 27 4C 4C 20 43 48 45 43  4B 20 54 48 41 54 20 54  |'LL CHECK THAT T|
00002DB0: 48 45 20 41 42 4F 56 45  20 42 4C 4F 43 4B 53 22  |HE ABOVE BLOCKS"|
00002DC0: 00 E9 35 66 30 99 22 11  41 52 45 20 C6 D2 C5 C5  |..5f0.".ARE ....|
00002DD0: 20 42 59 20 4C 4F 4F 4B  49 4E 47 20 41 54 20 54  | BY LOOKING AT T|
00002DE0: 48 45 20 C2 C1 CD 2E 11  22 00 18 36 70 30 99 22  |HE ....."..6p0."|
00002DF0: 11 D4 48 45 20 54 52 41  43 4B 2F 53 45 43 54 4F  |..HE TRACK/SECTO|
00002E00: 52 53 20 46 4F 52 20 54  48 45 20 46 49 4C 45 20  |RS FOR THE FILE |
00002E10: 57 49 4C 4C 20 42 45 22  00 42 36 7A 30 99 22 11  |WILL BE".B6z0.".|
00002E20: 44 49 53 50 4C 41 59 45  44 2E 20 C9 46 20 41 20  |DISPLAYED. .F A |
00002E30: 42 4C 4F 43 4B 20 49 53  20 4F 43 43 55 50 49 45  |BLOCK IS OCCUPIE|
00002E40: 44 22 00 6C 36 84 30 99  22 11 54 48 45 20 D5 CE  |D".l6.0.".THE ..|
00002E50: D3 C3 D2 C1 D4 C3 C8 20  57 49 4C 4C 20 4E 4F 54  |....... WILL NOT|
00002E60: 20 57 4F 52 4B 21 22 3A  8D 33 30 30 00 9E 36 85  | WORK!":.300..6.|
00002E70: 30 A0 31 35 3A 9F 31 35  2C 38 2C 31 35 2C 22 49  |0.15:.15,8,15,"I|
00002E80: 22 AA 44 52 24 3A 8D 36  33 39 30 30 3A 99 22 93  |".DR$:.63900:.".|
00002E90: 22 3A 99 C7 28 31 34 32  29 3A 4B 31 B2 31 00 B8  |":..(142):K1.1..|
00002EA0: 36 86 30 9F 32 2C 38 2C  32 2C 22 24 22 AA 44 52  |6.0.2,8,2,"$".DR|
00002EB0: 24 3A 8D 36 33 39 30 30  00 D2 36 87 30 96 20 A5  |$:.63900..6.0. .|
00002EC0: 42 28 49 29 B2 28 5A AF  50 28 49 29 29 AD 50 28  |B(I).(Z.P(I)).P(|
00002ED0: 49 29 00 EE 36 88 30 46  46 B2 44 31 AA 28 54 28  |I)..6.0FF.D1.(T(|
00002EE0: 4B 31 29 AB 31 29 AC 53  33 3A 50 50 B2 30 00 04  |K1).1).S3:PP.0..|
00002EF0: 37 89 30 81 4B 32 B2 30  A4 46 46 3A A1 23 32 2C  |7.0.K2.0.FF:.#2,|
00002F00: 41 24 3A 82 00 21 37 98  30 54 B2 54 28 4B 31 29  |A$:..!7.0T.T(K1)|
00002F10: 3A 99 22 93 22 3A 8D 36  34 30 30 3A 8D 36 35 38  |:.".":.6400:.658|
00002F20: 30 00 45 37 A2 30 99 53  44 24 22 43 48 45 43 4B  |0.E7.0.SD$"CHECK|
00002F30: 20 54 48 41 54 20 54 48  45 20 46 4F 4C 4C 4F 57  | THAT THE FOLLOW|
00002F40: 49 4E 47 20 22 00 60 37  A7 30 99 22 11 53 45 43  |ING ".`7.0.".SEC|
00002F50: 54 4F 52 53 20 41 52 45  20 46 52 45 45 3D D7 22  |TORS ARE FREE=."|
00002F60: 00 94 37 AC 30 81 4B 32  B2 31 A4 4E 39 3A 8B 54  |..7.0.K2.1.N9:.T|
00002F70: 28 4B 32 29 B2 54 A7 99  52 24 28 50 50 29 CA 28  |(K2).T..R$(PP).(|
00002F80: C4 28 53 28 4B 32 29 29  2C 32 29 52 24 28 31 AB  |.(S(K2)),2)R$(1.|
00002F90: 50 50 29 3B 00 A4 37 B1  30 50 50 B2 31 AB 50 50  |PP);..7.0PP.1.PP|
00002FA0: 3A 82 3A 99 00 B5 37 B6  30 99 22 11 4F 4B 3F 22  |:.:...7.0.".OK?"|
00002FB0: 3A 8D 33 31 30 00 E0 37  BB 30 8B 49 4E 24 B3 B1  |:.310..7.0.IN$..|
00002FC0: 22 59 22 A7 99 22 93 53  4F 52 52 59 2E 2E 22 3A  |"Y"..".SORRY..":|
00002FD0: 99 C7 28 31 34 29 3A 8D  33 30 30 3A A0 32 3A 8E  |..(14):.300:.2:.|
00002FE0: 00 F5 37 C0 30 A0 32 3A  8B 4B 31 B1 B2 4E 39 A7  |..7.0.2:.K1..N9.|
00002FF0: A0 31 35 3A 8E 00 10 38  CA 30 4B 31 B2 4B 31 AA  |.15:...8.0K1.K1.|
00003000: 31 3A 8B 54 28 4B 31 29  B2 30 A7 31 32 36 30 30  |1:.T(K1).0.12600|
00003010: 00 23 38 D4 30 8B 54 28  4B 31 29 B2 54 A7 31 32  |.#8.0.T(K1).T.12|
00003020: 34 39 30 00 2E 38 D9 30  89 31 32 34 32 32 00 3E  |490..8.0.12422.>|
00003030: 38 38 31 99 22 93 22 3A  99 C7 28 31 34 29 00 6E  |881.".":..(14).n|
00003040: 38 42 31 99 22 CE 4F 57  20 4D 4F 44 49 46 59 20  |8B1.".OW MODIFY |
00003050: 54 48 45 20 12 4D 41 47  49 43 20 42 59 54 45 92  |THE .MAGIC BYTE.|
00003060: 20 4F 4E 20 44 49 52 45  43 54 4F 52 59 22 00 89  | ON DIRECTORY"..|
00003070: 38 4C 31 99 22 11 D4 52  41 43 4B 22 54 30 22 20  |8L1."..RACK"T0" |
00003080: D3 45 43 54 4F 52 22 53  30 00 BA 38 56 31 99 22  |.ECTOR"S0..8V1."|
00003090: 11 D4 48 45 4E 20 D7 52  49 54 45 20 54 48 45 20  |..HEN .RITE THE |
000030A0: 42 4C 4F 43 4B 20 42 41  43 4B 20 54 4F 20 28 22  |BLOCK BACK TO ("|
000030B0: 54 30 22 2C 22 53 30 22  29 22 00 DF 38 60 31 99  |T0","S0")"..8`1.|
000030C0: 22 11 C6 49 4E 41 4C 4C  59 20 12 D6 41 4C 49 44  |"..INALLY ..ALID|
000030D0: 41 54 45 92 20 54 48 45  20 44 49 53 4B 21 22 00  |ATE. THE DISK!".|
000030E0: EA 38 6A 31 8D 33 30 30  3A 8E 00 F8 38 C8 32 54  |.8j1.300:...8.2T|
000030F0: B2 54 31 3A 53 B2 53 31  00 04 39 C9 32 81 4A B2  |.T1:S.S1..9.2.J.|
00003100: 31 A4 42 30 00 3C 39 CD  32 A0 33 3A A0 31 35 3A  |1.B0.<9.2.3:.15:|
00003110: 9F 31 35 2C 38 2C 31 35  3A 9F 33 2C 38 2C 33 2C  |.15,8,15:.3,8,3,|
00003120: 22 23 22 3A 8D 36 33 39  30 30 3A A1 23 33 2C 42  |"#":.63900:.#3,B|
00003130: 4E 24 3A 42 4E B2 C6 28  42 4E 24 29 00 65 39 D2  |N$:BN..(BN$).e9.|
00003140: 32 42 4E 24 B2 CA 28 42  4E 24 2C 32 29 3A 42 4D  |2BN$..(BN$,2):BM|
00003150: B2 42 4E AA 31 37 AA 31  32 AC B5 28 28 42 4E AA  |.BN.17.12..((BN.|
00003160: 31 29 AD 34 29 00 8A 39  DC 32 99 3A 99 22 28 22  |1).4)..9.2.:."("|
00003170: 54 22 2C 22 53 22 29 5F  20 C6 C9 D2 D3 D4 20 C2  |T","S")_ ..... .|
00003180: CC CF C3 CB 22 3A 4E 39  B2 31 00 A1 39 E6 32 98  |....":N9.1..9.2.|
00003190: 31 35 2C 22 42 2D 52 22  3B 33 3B 44 52 3B 54 3B  |15,"B-R";3;DR;T;|
000031A0: 53 00 B3 39 F0 32 98 31  35 2C 22 42 2D 50 22 3B  |S..9.2.15,"B-P";|
000031B0: 33 3B 30 00 CD 39 FA 32  A1 23 33 2C 5A 24 3A 8B  |3;0..9.2.#3,Z$:.|
000031C0: 5A 24 B2 22 22 A7 5A 24  B2 C7 28 30 29 00 E3 39  |Z$."".Z$..(0)..9|
000031D0: 04 33 54 B2 C6 28 5A 24  29 3A 8B 54 B2 30 A7 37  |.3T..(Z$):.T.0.7|
000031E0: 32 30 30 00 FD 39 0E 33  A1 23 33 2C 5A 24 3A 8B  |200..9.3.#3,Z$:.|
000031F0: 5A 24 B2 22 22 A7 5A 24  B2 C7 28 30 29 00 09 3A  |Z$."".Z$..(0)..:|
00003200: 18 33 53 B2 C6 28 5A 24  29 00 27 3A 22 33 54 24  |.3S..(Z$).':"3T$|
00003210: B2 CA 28 C4 28 54 29 2C  32 29 3A 53 24 B2 CA 28  |..(.(T),2):S$..(|
00003220: C4 28 53 29 2C 32 29 00  3B 3A 2C 33 99 22 28 22  |.(S),2).;:,3."("|
00003230: 54 24 22 2C 22 53 24 22  29 22 3B 00 41 3A 36 33  |T$","S$")";.A:63|
00003240: 82 00 57 3A 40 33 99 22  5F 20 CC C1 D3 D4 20 C2  |..W:@3."_ .... .|
00003250: CC CF C3 CB 11 11 22 00  6E 3A 4A 33 99 4E 39 22  |......".n:J3.N9"|
00003260: 20 42 4C 4F 43 4B 53 11  22 3A 8D 33 30 30 00 97  | BLOCKS.":.300..|
00003270: 3A F7 33 42 4E 24 B2 CA  28 42 4E 24 2C 32 29 3A  |:.3BN$..(BN$,2):|
00003280: 42 4D B2 42 4E AA 31 37  AA 31 32 AC B5 28 28 42  |BM.BN.17.12..((B|
00003290: 4E AA 31 29 AD 34 29 00  BC 3A F8 33 99 3A 99 22  |N.1).4)..:.3.:."|
000032A0: 28 22 54 22 2C 22 53 22  29 5F 20 C6 C9 D2 D3 D4  |("T","S")_ .....|
000032B0: 20 C2 CC CF C3 CB 22 3A  4E 39 B2 31 00 CF 3A 9C  | .....":N9.1..:.|
000032C0: F9 84 31 35 2C 45 2C 45  24 2C 45 31 2C 45 32 00  |..15,E,E$,E1,E2.|
000032D0: F9 3A 9D F9 8B 45 B3 B1  30 A7 99 3A 99 22 2A 2A  |.:...E..0..:."**|
000032E0: 12 44 49 53 4B 20 45 52  52 4F 52 92 2A 2A 22 45  |.DISK ERROR.**"E|
000032F0: 2C 45 24 2C 45 31 2C 45  32 00 FF 3A 9E F9 8E 00  |,E$,E1,E2..:....|
00003300: 00 00 30 9A 32 02 00 00  F7                       |..0.2....       |

....... PETER J. PONZO.Z.... 49 MARGARET
 AVE. S.               8 REM WATERLOO,ON
T. N2J 2C8.J.... JUN 19/82......53281,6:
.53280,6:.8000...D..********...E..*     
 *...F..* MENU *...G.." .... *.L.H..****
****...I. 15:.15,8,15:.G(14)...N.."."S0$
...S.."..1.:LOAD BLOCK INTO BUFFER".8.X.
."..2.:SEE ASCII OF ABOVE BLOCK".W....".
.3.:MODIFY ABOVE BLOCK".|...."..4.:STORE
 ABOVE BLOCK IN RAM"......"..5.:WRITE BL
OCK IN RAM TO DISK".F. .."..6.:BLOCK AVA
ILABILITY MAP"......"..7.:DISK COMMANDS"
......"..8.:TRACE BLOCKS......"..9.:UNSC
RATCH A FILE.-...."..RETURN. TO QUIT".A.
F..310:.IN.0.7900.V.G..IN.1000,2000,3000
,4000,5000,6000,7000,7100,7500..H..105.
..,..  GET...-.." ......1.."..RETURN. TO
 CONT".D.6..IN$:.IN$.."".310.Y.@..IN$:.I
N$."".320...J.IN.E(IN$):....... LOAD BLO
CK INTO BUFFER.#...."...................
....T... 3: 15:.15,8,15:.3,8,3,"#":.#3,B
N$:BN.F(BN$).}...BN$.J(BN$,2):BM.BN.17.1
2..((BN.1).4)......15,"B-P";3;1:."."....
..K.0.10:.3,K$;:.......".".SD$."......".
.....".TRACK,SECTOR.   ....";T,S...$..15
,"B-R";3;DR;T;S......15,"B-P";3;0.#.8..#
3,Z$:.Z$."".Z$.G(0).8.B.C(0).F(Z$):.1200
.P.`.."..RETURN TO TERMINATE":CRT.01069:
.D(C(0))D(C(1));...J.J.2:.I.2.255:.15,"M
-R";G(I);G(BM):I%.I.32...T..#15,B$:.B$."
".B$.G(0).T.~.C(I).F(B$):.T..DI.1165....
..S.0.I%.32.I.5..10000......S.0.I%.32.I.
.11000......CRT.J,C(I).,....A$:.A$..""..
1195.8...J.J.1:..S... 3: 15:.SD$"..":.30
0:.......SD$".....BLOCK HAS NOT BEEN COM
PLETELY LOADED".A...."..WANT TO CONTINUE
 LOADING   N...";N$:.N$."N".I.256......S
D$"..                                   
 "......"                               
  ".!.....1.... C(0)/C(1).A...."........
..X....SD$:.15,"B-P";3;1.R.D..#3,B$:.B$.
"".B$.G(0)...N.C(1).F(B$)...X..C(0).0..S
D$:."LAST TRACK":."BYTES USED="C(1):....
...SD$:."NEXT TRACK="C(0):."NEXT SECTOR=
"C(1).....NT.C(0):NS.C(1):....P.. PRINT 
ASCII...Q.."............6.R.IJ.0:II.255.
8:.".".U.U.."..RETURN TO DISCONTINUE PRI
NTING..":.S0$:AB.31:EE$.". ."...Z..I.0.I
I.8:Y$.D(I):Y$.".".I("  ".Y$,3):E0$.EE$.
U...."."CL$:."."Y$".->";:.J.0.7:H.I.J:C5
.C(H)......C5.AB.E0$.E0$.G(C5):.2015....
.E0$.E0$." ".!...E$.I("   ".J(D(C5),2),3
).>....R$(P)E$R$(1.P);:P.1.P:..Y....A$:.
A$.."".II.I:I.255.X....E0$:.:.CL$:.CL$:.
CL$:.CL$......"....CURRENT TRACK,SECTOR=
"T","S......"NEXT TRACK,SECTOR="NT","NS.
N....IJ.0..300.T.......... MODIFY BLOCK.
.....".............%....".THE ASCII CODE
 FOR EACH BLOCK-BYTE".T....".WILL BE DIS
PLAYED..I.E. C(0)...C(255)."......".YOU 
MAY REDEFINE ANY C(I). THE MODIFIED"....
..".BLOCK WILL BE WRITTEN TO THE DISK".X
....".INTO THE TRACK,SECTOR YOU SELECT."
...&.."..."...0..300:.".":II.255.8:IJ.1.
..:..".":.2005.0.D..">>>.RETURN TO QUIT.
<<<":.I$.M.N..".WHICH I DO YOU WISH TO M
ODIFY.     ......";I$:I.E(I$).~.X..I$.".
".3173.B.B.."CURRENT C("I")=      ....."
C(I)" NEW VALUE=     .....";:.C(I).Q.C..
I.II.II.I...D..3150...E..".":.2005:."   
     >>>.OK.?  ";:.204,0.).F..310:.204,1
:.IN$."N"..:.3150.M.G.."..RETURN TO MENU
.   N...";IN$.\.H..IN$."Y"....I..".CURR
ENT TRACK,SECTOR="T","S. .J.."NEXT TRACK
,SECTOR="NT","NS...L.."...DESTINATION TR
ACK,SECTOR.   ....";T,S:.(T.1).(T.TT).31
80.#.V.."....DESTINATION DRIVE.   ....";
DR$:DR.E(DR$):.DR$.".".3190.7... 3: 15:.
15,8,15.M....3,8,3,"#":.63900......#3,BN
$:BN.F(BN$):."."SD$"....USING BUFFER#"BN
.....BM.BN.17.12..((BN.1).4)......I.0.25
5.O....15,"M-W";G(I);G(BM);G(1);G(C(I)).
.....".   ..."I.........P..15,"U2:";3;DR
;T;S...Z..15,"I".DR$:.63900: 3: 15.%....
".":..=. .. STORE C(I) IN RAM.U...."....
..............E....".";:.2000......".STA
RTING VALUE OF I.   ....";I1.B....".STAR
TING MEMORY LOC.N.($=HEX)   ....";M$:.90
00...H..K1.I1.255:.M.I1.K1,C(K1):....R.M
.M.I1.256:.".NEXT. MEM'Y LOC'N="M;:.9500
:."."M$. ....300.0....".";:.    .H.... W
RITE RAM TO DISK.`....".................
......".MEM'Y LOC'N OF BLOCK.($=HEX)   .
...";M$:.9000......"..START WITH I.=   .
...";I1.W...."..END WITH I.=   ....";I2.
..D..I.I1.I2:C(I).B(M.I):..5.N.."....DES
TINATION TRACK,SECTOR.   ....";T,S:.(T.1
).(T.TT).5070.V.X.."....DESTINATION DRIV
E.   ....";DR$:DR.E(DR$):.DR$.".".5080..
....3,8,3,"#":.#3,BN$:BN.F(BN$):."."SD$"
....USING BUFFER#"BN.P...BM.BN.17.12..((
BN.1).4)......I.I1.I2:.".   ..."I......1
5,"M-W";G(I);G(BM);G(1);G(C(I)).......,.
...15,"U2:";3;DR;T;S.J....15,"I".DR$:.63
900: 3: 15.U.(..".":.._.P.. BAM.I.Z.."..
....... .B(I).(Z.P(I)).P(I)..... 15:.G(1
42)......"....1.:DISPLAY BAM".D...."..2.
:CHANGE BAM"......"..3.:RETURN TO MAIN M
ENU"......310:.".":.IN.3.6095......IN.61
00,6280...J..6030.D.O. 2: 3:.15,8,15,"I"
.DR$:.G(14):.63900:..V.T.. DISPLAY BAM.H
...."................."..WHICH TRACKS":.
".................."..FIRST,LAST TRACK  
 ....";TS,TE......(TS.1).(TS.TT).(TE.1).
(TE.TT).(TE.TS).6130......"..RETURN.. TO
 STOP":.S0$......15,8,15,"I".DR$:.63900.
9....2,8,2,"$".DR$:.63900.M.$.FF.D1.(TS.
1).S3.B....K.0.FF:.#2,A$:....8..T.TS.TE:
.T.51..#2,A$,A$,A$,A$...B..6400...L..A$:
.A$.."".T.TT.1...V..: 2: 15:.6870:.310:.
.Q.`.. CHANGE BAM...J..".............T..
".MORE CHANGES   Y...";I$...~..I$.."Y"..
.M....DT.67..".SORRY..CAN'T CHANGE BAM F
OR THIS DISK.":.310:..X....".TRACK   V..
.";T:.(T.1).(T.TT).N6280..... 15:.15,8,1
5..... 2:.2,8,2,"#":.63900......15,"U1:"
;2;DR;DI;0.N....15,"B-P";2;T.4......"..E
NTER NEGATIVE SECTOR TO QUIT.":.6400:.65
80.4.D.."..........CHANGE WHICH SECTOR  
   ..V...";S.K.N..S.0.S..SC(T).6260.[.X.
 2: 15:.SD$......6620:.6480:.6580:.:.MD$
".OK?.";:.310:.CL$......IN$."Y"..6730...
...MD$CL$SD$......6480:.6340.O....K.0.S2
:.#2,A$......A$."".A$.G(0).....B(K).F(A$
).........P.. PRINT TRACK...Z.."........
......D..K.1.S1:Z.B(K).9.N..I.0.7.P.X.X.
.B(I):.X$(X);:.I.W....K.T...Z.B(K):.I.0.
SC(T).SC(TT).....X..B(I):.X$(X);:.I:....
 ..".".22)"TRACK."T"..FREE="B(0).......H
....H(S1$,SC(T))......H(S2$,SC(T)).23)"#
 SECTORS="SC(T)...H..SC(T).21..H(S3$,SC(
T).1):.6610.%.M..H(S3$,SC(T)).0.R..S0$:.
.D.... CHANGE SECTOR.X....".............
.S....S.8.Z.B(1):SS.S:.6670......S.16.Z.
B(2):SS.S.8:.6670.....Z.B(3):SS.S.16.A..
.NZ.(.Z.P(SS)).(Z..P(SS)).....B(0).B(0).
(NZ.Z).(NZ.Z)..."..S.8.B(1).NZ:.6720...,
..S.16.B(2).NZ:.6720...6.B(3).NZ...@...+
.J..15,8,15.].T..MD$".ARE YOU SURE?.";:.
310:.IN$;:.IN$.."Y"...W.^.."...CHANGING 
BAM..";...H..3,8,3,"#":.63900...R..#3,BN
$:BN.F(BN$)...|.BM.BN.17.12..((BN.1).4).
K....I.0.S2......15,"M-W";G(I.T.4);G(BM)
;G(1);G(B(I)):... ...15,"U2:";3;DR;DI;0.
- B..15,"I".DR$:.63900: 3: 15.3 L...K V.
."..........................RETURN. TO C
ONTINUE";:.. X.. DISK COMMANDS.. Y.."..
............. Z..G(14).. ].."...1.:INITI
ALIZE".K ^.."..2.:VALIDATE".. _.."..3.:C
HANGE DRIVE#..!`.."..4.:DISPLAY DIRECTOR
Y"..!A.."....9.:RETURN TO MENU".8!B..310
:.IN.1.IN.9.7000.H!G..".OK..":. IN .7020
,7030,7040,7050,,,,,7099..!L. 15:.15,8,1
5,"I".DR$:.63900:.7000..!V. 15:.15,8,15,
"V".DR$:.63900:.7000..!..."...DRIVE   ..
..";DR$:DR.E(DR$):.7000..!...DR.0.ZD0..!
...DR.1.ZD1.."...300:.7000.."....#"... T
RACE BLOCKS.6"...".............A"A.."..S
TARTING TRACK,SECTOR.   ....";T,S.."B..(
T.1).(T.TT).(S.0).(S.SC(T)).7110.."F. 3:
 15:.15,8,15:.3,8,3,"#":.63900:.#3,BN$:B
N.F(BN$).."G.BN$.J(BN$,2):BM.BN.17.12..(
(BN.1).4)..#K..:."("T","S")_ FIRST BLOCK
":N9.1.%#P..15,"B-R";3;DR;T;S.7#Z..15,"B
-P";3;0.Q#...#3,Z$:.Z$."".Z$.G(0).G#..T.
F(Z$):.T.0.7200..#...#3,Z$:.Z$."".Z$.G(0
)..#..S.F(Z$)..#..T$.J(D(T),2):S$.J(D(S)
,2)..#..."("T$","S$")";.Q#..N9.N9.1:.712
0..# .."_ LAST BLOCK.."..$*..N9" BLOCKS.
":.300:...$L.. UNSCRATCH. $M..".........
.@$V..".WE'LL DO THE FOLLOWING:".O$W..".
.1.:GO THRU' DIRECTORY TRACK"DI" UNTIL".
.$X.."  WE FIND THE SCRATCHED FILE NAME.
".B$Y.."..2.:TRACE THE BLOCKS AND COMPAR
E"..$Z.."  THE BLOCKS OBTAINED WITH THE"
..%[.."  DIRECTORY BLOCK COUNT.".6%\..".
.3.:LOOK AT THE BLOCK AVAILABILTY MAP".B
%].."  TO SEE IF ALL THE BLOCKS ARE FREE
."..%^..".>>IF ALL OF THE ABOVE ARE OK".
.%_.."  WE MAY MODIFY THE DIRECTORY".F%`
.."  AS FOLLOWS:":.300..%T..".MODIFY THE
 BLOCK SO THAT THE"..%Y..".MAGIC BYTE".+
&~.."  WHICH OCCURS JUST .3. PLACES BEFO
RE".L&..."  THE NAME IS AS FOLLOWS:".B&.
.."  129=SEQ FILE".Y&..."  130=PROG FILE
"..&..."  131=USR FILE"..&..."  132=REL 
FILE".T&...".EXAMPLE:TO UNSCRATCH A PROG
 FILE 'ABZ'"..'..."FIND IT'S NAME ON THE
 DIRECTORY, AND".&'..."SELECT MENU ITEM=
MODIFY BLOCK.".;'..."YOU WILL SEE:".K'D.
."... 0. 0. 0. 0. 19. 3. 65. 66. 90....E
TC"..'N.."         ^  ^ ^  ^  ^  ^"..'X.
." SHOULD BE .TRCK.A  B  Z".V'..."     A
 130 .&SEC.FILENAME(IN ASCII)"..'...300:
."."S0$..(...".MODIFY THE BYTE WHICH IDE
NTIFIES THE ".<(..."FILE TYPE..TO 130..S
O IT READS:".N(..."... 0. 0. 0. 130. 19.
 3. 65. 66. 90....ETC"..(..."..4.:WRITE 
THE BLOCK BACK TO THE DISK.".D(..."..5.:
QUIT AND VALIDATE THE DISK."..(..."     
      ........"..(...".5.:PRAY..":.310..
)H..".WANT TO TRY   Y...";A$:.A$.."Y"...
*)R..12000.A).. 15:.G(142):.".":..R)@.. 
INITIALIZE.C)A.."...........T)B..G(142):
."."..)E..C(255),T(120),S(120),SC(77),B(
4)..)F..1,17,20,24,19,30,17,35,16,0..)G.
.65,17,20,24,18,30,17,35,16,0..)H..67,39
,28,53,26,64,24,77,22,0..*J.R$(0).".":R$
(1).".".-*T.SD$."...........".L*Y.MD$.".
...................".P*C..".DRIVE.   ...
.";DR$:DR.E(DR$)..*H..15,8,15,"I".DR$:.6
3900..*R.K$."  THIS BLOCK IS EMPTY  ".I*
|..".WAIT...":.:WW.0:A0.1..*}..3,8,3,"$"
.DR$:.63900..*~..#3,A$:A.F(A$.G(0))..+.
.DT:.A.DT.8070.4+..WW.WW.1:.WW.3. .I.1.9
:.DT:.:.8063.T+..."...***.NOT A RECOGNIZ
ABLE DISK.***": 3:."..WANT TO QUIT?"..+.
..310:.IN$."Y".7900..+...8110..+...DT.1.
DT.65.KK.143..+...DT.67.KK.5.F+...8200.Y
+...A1:.A1.0.8090..,...B1:.I.A0.A1:SC(I)
.B1.1:.:A0.I:.8075.(,...DT.1.DT.65.D1.1:
TT.35:S2.3:DI.18.K,...DT.67.D1.257:TT.77
:S2.4:DI.39._, .S1.S2.1:S3.S2.1.Q,.. 3:.
TT.0.8065..,...I.0.7:P(I).2.I:...,..X$(0
)."Q":X$(1)."W".P,B.S0$."...............
......................."..,L.CL$."":.I.1
.39:CL$.CL$." ":...-V.S1$."^....^....^..
..^....^....^....^....".I-..S2$.".    . 
   .    .    .    .    .".T-..S3$."0    
5    10   15   20   25   30".Z-.....-. .
I.3.KK:.#3,A$:.:.".";..-. .I.1.23:.#3,A$
:A$.A$.G(0):.A$;:..B-. .:..T-(#. DECIMAL
_HEX..-)#.".............--#M.E(M$):.M..0
.....2#M$.J(M$,2):M.0:LM.C(M$).#.<#.CN.1
.LM.P.F#MM$.J(M$,CN,1):.9100:M.M.MM.16.(
LM.CN):..V.P#..J..#.MM$."0".MM.0:.....#M
M.E(MM$):.MM..0..... #MM.F(MM$).55:.....
%. HEX_DECIMAL....%."..............!%SM.
M:M$."$":.CN.3.0..1:CM%.SM.(16.CN):.9600
:M$.M$.MM$../&%SM.SM.(16.CN).CM%:.:..(/.
%.CM%.10.MM$.G(CM%.48):..</.%MM$.G(CM%.5
5):..U/.'.SD$"..........    "../.'.CRT.J
,168:J.J.1:.K.2.1..1:S$.J(D(C(I.K)),2)..
/$'.L.1.C(S$):.CRT.J,E(J(S$,L,1)).176:J.
J.1:..Y/.'.CRT.J,172:J.J.1:.:.CRT.J.1,16
9..08'.SD$"..........NOTE:.(TRACK,SECTOR
) ":...0.*:.C0.+.CRT.J,190:J.J.1:SV.C(I.
2).C(I.1).256:S$.J(D(SV),2).R0.+.L.1.C(S
$):.CRT.J,E(J(S$,L,1)).176:J.J.1:...0.+J
.J.1:.CRT.J.1,188..0 +.SD$".............
..:.>NUMBER BLOCKS<":..N0... UNSCRATCH R
OUTINE..0..."...................0...G(14
2)..1..."...THE SCRATCHED FILE NAMES WIL
L"./1..."BE DISPLAYED.".U1./.".YOU MAY D
ECIDE WHICH FILE YOU".M1./."WISH TO RECO
VER."..1./."...RETURN. TO CONTINUE":.310
..1&/."."..10/ 3: 15:.15,8,15.M1:/T.DI:S
.1:.3,8,3,"#0":.63900..1?/.15,"B-R";3;DR
;T;S..1@/.".LOOKING AT:"..2A/."..TRACK  
 ..."T" SECTOR   ..."S.H2D/.J.0.255:.15,
"M-R";G(J);G(17):.#15,A$.^2N/C(J).F(A$.G
(0)):...2X/.D.2.255.32:.C(D)..0.C(D.1).0
.12200..2B/.SD$CL$SD$"WANT TO UNSCRATCH 
.";:.P9.1.200:...2L/.A$:.K.D.3.D.18:.G(C
(K));:.:.".?":.310..2V/.IN$."Y".12300..3
./.D:T.C(0):S.C(1):.T.DI.12095.S3./.".FI
NISHED LOOKING..":."...RETURN. TO CONTIN
UE.":.310:...3.0T0.T:S0.S:T.C(D.1):S.C(D
.2):B0.C(D.28).C(D.29).256:.G(14)..3.0."
....DIRECTORY BLOCK COUNT="B0:N9.1:.S0$.
.3.0 3: 15:.15,8,15:.3,8,3,"#":.63900:.#
3,BN$:BN.F(BN$)..4.0T(N9).T:S(N9).S:N9.N
9.1.*4.0.15,"B-R";3;DR;T;S.<4.0.15,"B-P"
;3;0.V4.0.#3,Z$:.Z$."".Z$.G(0).U4.0T(N9)
.F(Z$):.T(N9).0.12314..4.0.#3,Z$:.Z$."".
Z$.G(0)..4.0S(N9).F(Z$)..4.0T$.J(D(T),2)
:S$.J(D(S),2).Q4.0."("T$","S$")";..4.0T.
T(N9):S.S(N9):N9.N9.1:.12305..5.0N9.N9.1
:...5.0.".."N9" BLOCKS.".N5>0.N9..B0..".
.**.INCORRECT BLOCK COUNT.**..":.300:..I
5H0.".LOOKS GOOD SO FAR."..5R0.".SHALL W
E PROCEED?":.310:.IN$.."Y"....5\0."...WE
'LL CHECK THAT THE ABOVE BLOCKS"..5F0.".
ARE FREE BY LOOKING AT THE BAM.."..6P0."
.THE TRACK/SECTORS FOR THE FILE WILL BE"
.B6Z0.".DISPLAYED. IF A BLOCK IS OCCUPIE
D".L6.0.".THE UNSCRATCH WILL NOT WORK!":
.300..6.0 15:.15,8,15,"I".DR$:.63900:.".
":.G(142):K1.1..6.0.2,8,2,"$".DR$:.63900
.R6.0. .B(I).(Z.P(I)).P(I)..6.0FF.D1.(T(
K1).1).S3:PP.0..7.0.K2.0.FF:.#2,A$:..!7.
0T.T(K1):.".":.6400:.6580.E7.0.SD$"CHECK
 THAT THE FOLLOWING ".`7.0.".SECTORS ARE
 FREE=W"..7.0.K2.1.N9:.T(K2).T..R$(PP)J(
D(S(K2)),2)R$(1.PP);..7.0PP.1.PP:.:...7.
0.".OK?":.310..7.0.IN$.."Y"..".SORRY..":
.G(14):.300: 2:...7.0 2:.K1..N9. 15:...8
J0K1.K1.1:.T(K1).0.12600.#8T0.T(K1).T.12
490..8Y0.12422.>881.".":.G(14).N8B1."NOW
 MODIFY THE .MAGIC BYTE. ON DIRECTORY"..
8L1.".TRACK"T0" SECTOR"S0..8V1.".THEN WR
ITE THE BLOCK BACK TO ("T0","S0")"..8`1.
".FINALLY .VALIDATE. THE DISK!"..8J1.300
:...8H2T.T1:S.S1..9I2.J.1.B0.<9M2 3: 15:
.15,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(
BN$).E9R2BN$.J(BN$,2):BM.BN.17.12..((BN.
1).4)..9.2.:."("T","S")_ FIRST BLOCK":N9
.1..9.2.15,"B-R";3;DR;T;S..9.2.15,"B-P";
3;0.M9.2.#3,Z$:.Z$."".Z$.G(0)..9.3T.F(Z$
):.T.0.7200..9.3.#3,Z$:.Z$."".Z$.G(0)..:
.3S.F(Z$).':"3T$.J(D(T),2):S$.J(D(S),2).
;:,3."("T$","S$")";.A:63..W:@3."_ LAST B
LOCK..".N:J3.N9" BLOCKS.":.300..:.3BN$.J
(BN$,2):BM.BN.17.12..((BN.1).4)..:.3.:."
("T","S")_ FIRST BLOCK":N9.1.O:...15,E,E
$,E1,E2..:...E..0..:."**.DISK ERROR.**"E
,E$,E1,E2..:......0.2....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL