DISKVIEW.C

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: EB 21 8A 1B 8B 44 52 B2  30 A7 8E 00 F9 21 8B 1B  |.!...DR.0....!..|
000019F0: 8B 44 52 B2 31 A7 DA 44  31 00 08 22 8C 1B 8D 33  |.DR.1..D1.."...3|
00001A00: 30 30 3A 89 37 30 30 30  00 0E 22 BB 1B 8E 00 21  |00:.7000.."....!|
00001A10: 22 BC 1B 8F 20 54 52 41  43 45 20 42 4C 4F 43 4B  |"... TRACE BLOCK|
00001A20: 53 00 34 22 BD 1B 8F 22  B8 B8 B8 B8 B8 B8 B8 B8  |S.4"..."........|
00001A30: B8 B8 B8 B8 00 5F 22 C1  1B 85 22 93 12 53 54 41  |....._"..."..STA|
00001A40: 52 54 49 4E 47 20 D4 D2  C1 C3 CB 2C D3 C5 C3 D4  |RTING .....,....|
00001A50: CF D2 92 20 20 20 A6 9D  9D 9D 22 3B 54 2C 53 00  |...   ....";T,S.|
00001A60: 86 22 C2 1B 8B 28 54 B3  31 29 B0 28 54 B1 54 54  |."...(T.1).(T.TT|
00001A70: 29 B0 28 53 B3 30 29 B0  28 53 B1 53 43 28 54 29  |).(S.0).(S.SC(T)|
00001A80: 29 A7 37 31 31 30 00 BE  22 C6 1B A0 33 3A A0 31  |).7110.."...3:.1|
00001A90: 35 3A 9F 31 35 2C 38 2C  31 35 3A 9F 33 2C 38 2C  |5:.15,8,15:.3,8,|
00001AA0: 33 2C 22 23 22 3A 8D 36  33 39 30 30 3A A1 23 33  |3,"#":.63900:.#3|
00001AB0: 2C 42 4E 24 3A 42 4E B2  C6 28 42 4E 24 29 00 E7  |,BN$:BN..(BN$)..|
00001AC0: 22 C7 1B 42 4E 24 B2 CA  28 42 4E 24 2C 32 29 3A  |"..BN$..(BN$,2):|
00001AD0: 42 4D B2 42 4E AA 31 37  AA 31 32 AC B5 28 28 42  |BM.BN.17.12..((B|
00001AE0: 4E AA 31 29 AD 34 29 00  0C 23 CB 1B 99 3A 99 22  |N.1).4)..#...:."|
00001AF0: 28 22 54 22 2C 22 53 22  29 5F 20 C6 C9 D2 D3 D4  |("T","S")_ .....|
00001B00: 20 C2 CC CF C3 CB 22 3A  4E 39 B2 31 00 23 23 D0  | .....":N9.1.##.|
00001B10: 1B 98 31 35 2C 22 42 2D  52 22 3B 33 3B 44 52 3B  |..15,"B-R";3;DR;|
00001B20: 54 3B 53 00 35 23 DA 1B  98 31 35 2C 22 42 2D 50  |T;S.5#...15,"B-P|
00001B30: 22 3B 33 3B 30 00 4F 23  E4 1B A1 23 33 2C 5A 24  |";3;0.O#...#3,Z$|
00001B40: 3A 8B 5A 24 B2 22 22 A7  5A 24 B2 C7 28 30 29 00  |:.Z$."".Z$..(0).|
00001B50: 65 23 EE 1B 54 B2 C6 28  5A 24 29 3A 8B 54 B2 30  |e#..T..(Z$):.T.0|
00001B60: A7 37 32 30 30 00 7F 23  F8 1B A1 23 33 2C 5A 24  |.7200..#...#3,Z$|
00001B70: 3A 8B 5A 24 B2 22 22 A7  5A 24 B2 C7 28 30 29 00  |:.Z$."".Z$..(0).|
00001B80: 8B 23 02 1C 53 B2 C6 28  5A 24 29 00 A9 23 07 1C  |.#..S..(Z$)..#..|
00001B90: 54 24 B2 CA 28 C4 28 54  29 2C 32 29 3A 53 24 B2  |T$..(.(T),2):S$.|
00001BA0: CA 28 C4 28 53 29 2C 32  29 00 BD 23 0C 1C 99 22  |.(.(S),2)..#..."|
00001BB0: 28 22 54 24 22 2C 22 53  24 22 29 22 3B 00 CF 23  |("T$","S$")";..#|
00001BC0: 16 1C 4E 39 B2 4E 39 AA  31 3A 89 37 31 32 30 00  |..N9.N9.1:.7120.|
00001BD0: E5 23 20 1C 99 22 5F 20  CC C1 D3 D4 20 C2 CC CF  |.# .."_ .... ...|
00001BE0: C3 CB 11 11 22 00 FE 23  2A 1C 99 4E 39 22 20 42  |...."..#*..N9" B|
00001BF0: 4C 4F 43 4B 53 11 22 3A  8D 33 30 30 3A 8E 00 0E  |LOCKS.":.300:...|
00001C00: 24 4C 1D 8F 20 55 4E 53  43 52 41 54 43 48 00 1E  |$L.. UNSCRATCH..|
00001C10: 24 4D 1D 8F 22 B8 B8 B8  B8 B8 B8 B8 B8 B8 00 3E  |$M.."..........>|
00001C20: 24 56 1D 99 22 93 D7 45  27 4C 4C 20 44 4F 20 54  |$V.."..E'LL DO T|
00001C30: 48 45 20 46 4F 4C 4C 4F  57 49 4E 47 3A 22 00 6D  |HE FOLLOWING:".m|
00001C40: 24 57 1D 99 22 11 12 31  92 3A C7 4F 20 54 48 52  |$W.."..1.:.O THR|
00001C50: 55 27 20 44 49 52 45 43  54 4F 52 59 20 54 52 41  |U' DIRECTORY TRA|
00001C60: 43 4B 22 44 49 22 20 55  4E 54 49 4C 22 00 97 24  |CK"DI" UNTIL"..$|
00001C70: 58 1D 99 22 20 20 57 45  20 46 49 4E 44 20 54 48  |X.."  WE FIND TH|
00001C80: 45 20 53 43 52 41 54 43  48 45 44 20 46 49 4C 45  |E SCRATCHED FILE|
00001C90: 20 4E 41 4D 45 2E 22 00  C0 24 59 1D 99 22 11 12  | NAME."..$Y.."..|
00001CA0: 32 92 3A D4 52 41 43 45  20 54 48 45 20 C2 4C 4F  |2.:.RACE THE .LO|
00001CB0: 43 4B 53 20 41 4E 44 20  43 4F 4D 50 41 52 45 22  |CKS AND COMPARE"|
00001CC0: 00 E6 24 5A 1D 99 22 20  20 54 48 45 20 C2 4C 4F  |..$Z.."  THE .LO|
00001CD0: 43 4B 53 20 4F 42 54 41  49 4E 45 44 20 57 49 54  |CKS OBTAINED WIT|
00001CE0: 48 20 54 48 45 22 00 06  25 5B 1D 99 22 20 20 C4  |H THE"..%[.."  .|
00001CF0: 49 52 45 43 54 4F 52 59  20 C2 4C 4F 43 4B 20 C3  |IRECTORY .LOCK .|
00001D00: 4F 55 4E 54 2E 22 00 34  25 5C 1D 99 22 11 12 33  |OUNT.".4%\.."..3|
00001D10: 92 3A CC 4F 4F 4B 20 41  54 20 54 48 45 20 C2 4C  |.:.OOK AT THE .L|
00001D20: 4F 43 4B 20 C1 56 41 49  4C 41 42 49 4C 54 59 20  |OCK .VAILABILTY |
00001D30: CD 41 50 22 00 60 25 5D  1D 99 22 20 20 54 4F 20  |.AP".`%].."  TO |
00001D40: 53 45 45 20 49 46 20 41  4C 4C 20 54 48 45 20 42  |SEE IF ALL THE B|
00001D50: 4C 4F 43 4B 53 20 41 52  45 20 46 52 45 45 2E 22  |LOCKS ARE FREE."|
00001D60: 00 85 25 5E 1D 99 22 11  3E 3E C9 46 20 41 4C 4C  |..%^..".>>.F ALL|
00001D70: 20 4F 46 20 54 48 45 20  41 42 4F 56 45 20 41 52  | OF THE ABOVE AR|
00001D80: 45 20 CF CB 22 00 AA 25  5F 1D 99 22 20 20 57 45  |E .."..%_.."  WE|
00001D90: 20 4D 41 59 20 CD 4F 44  49 46 59 20 54 48 45 20  | MAY .ODIFY THE |
00001DA0: C4 49 52 45 43 54 4F 52  59 22 00 C4 25 60 1D 99  |.IRECTORY"..%`..|
00001DB0: 22 20 20 41 53 20 46 4F  4C 4C 4F 57 53 3A 22 3A  |"  AS FOLLOWS:":|
00001DC0: 8D 33 30 30 00 E9 25 74  1D 99 22 93 CD 4F 44 49  |.300..%t.."..ODI|
00001DD0: 46 59 20 54 48 45 20 42  4C 4F 43 4B 20 53 4F 20  |FY THE BLOCK SO |
00001DE0: 54 48 41 54 20 54 48 45  22 00 FC 25 79 1D 99 22  |THAT THE"..%y.."|
00001DF0: 12 4D 41 47 49 43 20 42  59 54 45 22 00 29 26 7E  |.MAGIC BYTE".)&~|
00001E00: 1D 99 22 20 20 57 48 49  43 48 20 4F 43 43 55 52  |.."  WHICH OCCUR|
00001E10: 53 20 4A 55 53 54 20 12  33 92 20 50 4C 41 43 45  |S JUST .3. PLACE|
00001E20: 53 20 42 45 46 4F 52 45  22 00 4A 26 88 1D 99 22  |S BEFORE".J&..."|
00001E30: 20 20 54 48 45 20 4E 41  4D 45 20 49 53 20 41 53  |  THE NAME IS AS|
00001E40: 20 46 4F 4C 4C 4F 57 53  3A 22 00 60 26 92 1D 99  | FOLLOWS:".`&...|
00001E50: 22 20 20 31 32 39 3D D3  C5 D1 20 46 49 4C 45 22  |"  129=... FILE"|
00001E60: 00 77 26 93 1D 99 22 20  20 31 33 30 3D D0 D2 CF  |.w&..."  130=...|
00001E70: C7 20 46 49 4C 45 22 00  8D 26 94 1D 99 22 20 20  |. FILE"..&..."  |
00001E80: 31 33 31 3D D5 D3 D2 20  46 49 4C 45 22 00 A3 26  |131=... FILE"..&|
00001E90: 95 1D 99 22 20 20 31 33  32 3D D2 C5 CC 20 46 49  |..."  132=... FI|
00001EA0: 4C 45 22 00 D2 26 9C 1D  99 22 11 C5 58 41 4D 50  |LE"..&..."..XAMP|
00001EB0: 4C 45 3A 54 4F 20 55 4E  53 43 52 41 54 43 48 20  |LE:TO UNSCRATCH |
00001EC0: 41 20 D0 D2 CF C7 20 46  49 4C 45 20 27 C1 C2 DA  |A .... FILE '...|
00001ED0: 27 22 00 FE 26 A6 1D 99  22 46 49 4E 44 20 49 54  |'"..&..."FIND IT|
00001EE0: 27 53 20 4E 41 4D 45 20  4F 4E 20 54 48 45 20 C4  |'S NAME ON THE .|
00001EF0: C9 D2 C5 C3 D4 CF D2 D9  2C 20 41 4E 44 22 00 24  |........, AND".$|
00001F00: 27 B0 1D 99 22 53 45 4C  45 43 54 20 CD C5 CE D5  |'..."SELECT ....|
00001F10: 20 49 54 45 4D 3D CD 4F  44 49 46 59 20 C2 4C 4F  | ITEM=.ODIFY .LO|
00001F20: 43 4B 2E 22 00 39 27 BA  1D 99 22 D9 4F 55 20 57  |CK.".9'...".OU W|
00001F30: 49 4C 4C 20 53 45 45 3A  22 00 69 27 C4 1D 99 22  |ILL SEE:".i'..."|
00001F40: 11 2E 2E 20 30 12 20 30  92 20 30 12 20 30 92 20  |... 0. 0. 0. 0. |
00001F50: 31 39 12 20 33 92 20 36  35 12 20 36 36 92 20 39  |19. 3. 65. 66. 9|
00001F60: 30 2E 2E 2E 2E 45 54 43  22 00 89 27 CE 1D 99 22  |0....ETC"..'..."|
00001F70: 20 20 20 20 20 20 20 20  20 5E 20 20 5E 20 5E 20  |         ^  ^ ^ |
00001F80: 20 5E 20 20 5E 20 20 5E  22 00 A9 27 D8 1D 99 22  | ^  ^  ^"..'..."|
00001F90: 20 53 48 4F 55 4C 44 20  42 45 20 DD D4 52 43 4B  | SHOULD BE ..RCK|
00001FA0: DD C1 20 20 C2 20 20 DA  22 00 D4 27 E2 1D 99 22  |..  .  ."..'..."|
00001FB0: 20 20 20 20 20 41 20 31  33 30 20 DD 26 D3 45 43  |     A 130 .&.EC|
00001FC0: DD C6 49 4C 45 4E 41 4D  45 28 49 4E 20 C1 D3 C3  |..ILENAME(IN ...|
00001FD0: C9 C9 29 22 00 E5 27 EC  1D 8D 33 30 30 3A 99 22  |..)"..'...300:."|
00001FE0: 91 22 53 30 24 00 13 28  F6 1D 99 22 11 CD 4F 44  |."S0$..(..."..OD|
00001FF0: 49 46 59 20 54 48 45 20  42 59 54 45 20 57 48 49  |IFY THE BYTE WHI|
00002000: 43 48 20 49 44 45 4E 54  49 46 49 45 53 20 54 48  |CH IDENTIFIES TH|
00002010: 45 20 22 00 3A 28 00 1E  99 22 46 49 4C 45 20 54  |E ".:(..."FILE T|
00002020: 59 50 45 2E 2E 54 4F 20  31 33 30 2E 2E 53 4F 20  |YPE..TO 130..SO |
00002030: 49 54 20 52 45 41 44 53  3A 22 00 6C 28 05 1E 99  |IT READS:".l(...|
00002040: 22 11 2E 2E 20 30 12 20  30 92 20 30 12 20 31 33  |"... 0. 0. 0. 13|
00002050: 30 92 20 31 39 12 20 33  92 20 36 35 12 20 36 36  |0. 19. 3. 65. 66|
00002060: 92 20 39 30 2E 2E 2E 2E  45 54 43 22 00 9A 28 0A  |. 90....ETC"..(.|
00002070: 1E 99 22 11 12 34 92 3A  D7 52 49 54 45 20 54 48  |.."..4.:.RITE TH|
00002080: 45 20 42 4C 4F 43 4B 20  42 41 43 4B 20 54 4F 20  |E BLOCK BACK TO |
00002090: 54 48 45 20 44 49 53 4B  2E 22 00 C2 28 14 1E 99  |THE DISK."..(...|
000020A0: 22 11 12 35 92 3A D1 55  49 54 20 41 4E 44 20 D6  |"..5.:.UIT AND .|
000020B0: C1 CC C9 C4 C1 D4 C5 20  54 48 45 20 44 49 53 4B  |....... THE DISK|
000020C0: 2E 22 00 DD 28 19 1E 99  22 20 20 20 20 20 20 20  |."..(..."       |
000020D0: 20 20 20 20 B8 B8 B8 B8  B8 B8 B8 B8 22 00 F4 28  |    ........"..(|
000020E0: 1E 1E 99 22 12 35 92 3A  D0 52 41 59 2E 2E 22 3A  |...".5.:.RAY..":|
000020F0: 8D 33 31 30 00 1D 29 C8  1E 85 22 11 D7 C1 CE D4  |.310..)...".....|
00002100: 20 D4 CF 20 D4 D2 D9 20  20 20 59 9D 9D 9D 22 3B  | .. ...   Y...";|
00002110: 41 24 3A 8B 41 24 B3 B1  22 59 22 A7 8E 00 28 29  |A$:.A$.."Y"...()|
00002120: D2 1E 89 31 32 30 30 30  00 3F 29 DC 1E A0 31 35  |...12000.?)...15|
00002130: 3A 99 C7 28 31 34 32 29  3A 99 22 93 22 3A 80 00  |:..(142):.".":..|
00002140: 50 29 40 1F 8F 20 49 4E  49 54 49 41 4C 49 5A 45  |P)@.. INITIALIZE|
00002150: 00 61 29 41 1F 8F 22 B8  B8 B8 B8 B8 B8 B8 B8 B8  |.a)A..".........|
00002160: B8 00 72 29 42 1F 99 C7  28 31 34 32 29 3A 99 22  |..r)B...(142):."|
00002170: 05 22 00 98 29 45 1F 86  43 28 32 35 35 29 2C 54  |."..)E..C(255),T|
00002180: 28 31 32 30 29 2C 53 28  31 32 30 29 2C 53 43 28  |(120),S(120),SC(|
00002190: 37 37 29 2C 42 28 34 29  00 B9 29 46 1F 83 31 2C  |77),B(4)..)F..1,|
000021A0: 31 37 2C 32 30 2C 32 34  2C 31 39 2C 33 30 2C 31  |17,20,24,19,30,1|
000021B0: 37 2C 33 35 2C 31 36 2C  30 00 DB 29 47 1F 83 36  |7,35,16,0..)G..6|
000021C0: 35 2C 31 37 2C 32 30 2C  32 34 2C 31 38 2C 33 30  |5,17,20,24,18,30|
000021D0: 2C 31 37 2C 33 35 2C 31  36 2C 30 00 FD 29 48 1F  |,17,35,16,0..)H.|
000021E0: 83 36 37 2C 33 39 2C 32  38 2C 35 33 2C 32 36 2C  |.67,39,28,53,26,|
000021F0: 36 34 2C 32 34 2C 37 37  2C 32 32 2C 30 00 15 2A  |64,24,77,22,0..*|
00002200: 4A 1F 52 24 28 30 29 B2  22 12 22 3A 52 24 28 31  |J.R$(0).".":R$(1|
00002210: 29 B2 22 92 22 00 2B 2A  54 1F 53 44 24 B2 22 13  |).".".+*T.SD$.".|
00002220: 11 11 11 11 11 11 11 11  11 11 22 00 4A 2A 59 1F  |..........".J*Y.|
00002230: 4D 44 24 B2 22 13 11 11  11 11 11 11 11 11 11 11  |MD$."...........|
00002240: 11 11 11 11 11 11 11 11  92 22 00 6E 2A 63 1F 85  |.........".n*c..|
00002250: 22 93 44 52 49 56 45 92  20 20 20 A6 9D 9D 9D 22  |".DRIVE.   ...."|
00002260: 3B 44 52 24 3A 44 52 B2  C5 28 44 52 24 29 00 8A  |;DR$:DR..(DR$)..|
00002270: 2A 68 1F 9F 31 35 2C 38  2C 31 35 2C 22 49 22 AA  |*h..15,8,15,"I".|
00002280: 44 52 24 3A 8D 36 33 39  30 30 00 AB 2A 72 1F 4B  |DR$:.63900..*r.K|
00002290: 24 B2 22 20 20 D4 C8 C9  D3 A0 C2 CC CF C3 CB A0  |$."  ...........|
000022A0: C9 D3 A0 C5 CD D0 D4 D9  20 20 22 00 C7 2A 7C 1F  |........  "..*|.|
000022B0: 99 22 93 57 41 49 54 2E  2E 2E 22 3A 8C 3A 57 57  |.".WAIT...":.:WW|
000022C0: B2 30 3A 41 30 B2 31 00  E1 2A 7D 1F 9F 33 2C 38  |.0:A0.1..*}..3,8|
000022D0: 2C 33 2C 22 24 22 AA 44  52 24 3A 8D 36 33 39 30  |,3,"$".DR$:.6390|
000022E0: 30 00 F9 2A 7E 1F A1 23  33 2C 41 24 3A 41 B2 C6  |0..*~..#3,A$:A..|
000022F0: 28 41 24 AA C7 28 30 29  29 00 0C 2B 7F 1F 87 44  |(A$..(0))..+...D|
00002300: 54 3A 8B 41 B2 44 54 A7  38 30 37 30 00 32 2B 80  |T:.A.DT.8070.2+.|
00002310: 1F 57 57 B2 57 57 AA 31  3A 8B 57 57 B3 33 A7 20  |.WW.WW.1:.WW.3. |
00002320: 81 49 B2 31 A4 39 3A 87  44 54 3A 82 3A 89 38 30  |.I.1.9:.DT:.:.80|
00002330: 36 33 00 72 2B 81 1F 99  22 93 11 11 2A 2A 2A 12  |63.r+..."...***.|
00002340: 4E 4F 54 20 41 20 52 45  43 4F 47 4E 49 5A 41 42  |NOT A RECOGNIZAB|
00002350: 4C 45 20 44 49 53 4B 92  2A 2A 2A 22 3A A0 33 3A  |LE DISK.***":.3:|
00002360: 99 22 11 11 57 41 4E 54  20 54 4F 20 51 55 49 54  |."..WANT TO QUIT|
00002370: 3F 22 00 89 2B 82 1F 8D  33 31 30 3A 8B 49 4E 24  |?"..+...310:.IN$|
00002380: B2 22 59 22 A7 37 39 30  30 00 93 2B 83 1F 89 38  |."Y".7900..+...8|
00002390: 31 31 30 00 AA 2B 86 1F  8B 44 54 B2 31 B0 44 54  |110..+...DT.1.DT|
000023A0: B2 36 35 A7 4B 4B B2 31  34 33 00 BA 2B 87 1F 8B  |.65.KK.143..+...|
000023B0: 44 54 B2 36 37 A7 4B 4B  B2 35 00 C4 2B 88 1F 8D  |DT.67.KK.5..+...|
000023C0: 38 32 30 30 00 D7 2B 8B  1F 87 41 31 3A 8B 41 31  |8200..+...A1:.A1|
000023D0: B2 30 A7 38 30 39 30 00  00 2C 90 1F 87 42 31 3A  |.0.8090..,...B1:|
000023E0: 81 49 B2 41 30 A4 41 31  3A 53 43 28 49 29 B2 42  |.I.A0.A1:SC(I).B|
000023F0: 31 AA 31 3A 82 3A 41 30  B2 49 3A 89 38 30 37 35  |1.1:.:A0.I:.8075|
00002400: 00 26 2C 9A 1F 8B 44 54  B2 31 B0 44 54 B2 36 35  |.&,...DT.1.DT.65|
00002410: A7 44 31 B2 31 3A 54 54  B2 33 35 3A 53 32 B2 33  |.D1.1:TT.35:S2.3|
00002420: 3A 44 49 B2 31 38 00 49  2C 9F 1F 8B 44 54 B2 36  |:DI.18.I,...DT.6|
00002430: 37 A7 44 31 B2 32 35 37  3A 54 54 B2 37 37 3A 53  |7.D1.257:TT.77:S|
00002440: 32 B2 34 3A 44 49 B2 33  39 00 5D 2C A0 1F 53 31  |2.4:DI.39.],..S1|
00002450: B2 53 32 AB 31 3A 53 33  B2 53 32 AA 31 00 6F 2C  |.S2.1:S3.S2.1.o,|
00002460: A4 1F A0 33 3A 8B 54 54  B2 30 A7 38 30 36 35 00  |...3:.TT.0.8065.|
00002470: 85 2C AE 1F 81 49 B2 30  A4 37 3A 50 28 49 29 B2  |.,...I.0.7:P(I).|
00002480: 32 AE 49 3A 82 00 9D 2C  B8 1F 58 24 28 30 29 B2  |2.I:...,..X$(0).|
00002490: 22 D1 22 3A 58 24 28 31  29 B2 22 D7 22 00 CE 2C  |".":X$(1)."."..,|
000024A0: C2 1F 53 30 24 B2 22 A3  A3 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 22 00 EF  |............."..|
000024D0: 2C CC 1F 43 4C 24 B2 22  22 3A 81 49 B2 31 A4 33  |,..CL$."":.I.1.3|
000024E0: 39 3A 43 4C 24 B2 43 4C  24 AA 22 20 22 3A 82 00  |9:CL$.CL$." ":..|
000024F0: 1D 2D D6 1F 53 31 24 B2  22 5E 2E 2E 2E 2E 5E 2E  |.-..S1$."^....^.|
00002500: 2E 2E 2E 5E 2E 2E 2E 2E  5E 2E 2E 2E 2E 5E 2E 2E  |...^....^....^..|
00002510: 2E 2E 5E 2E 2E 2E 2E 5E  2E 2E 2E 2E 22 00 47 2D  |..^....^....".G-|
00002520: E0 1F 53 32 24 B2 22 DD  20 20 20 20 DD 20 20 20  |..S2$.".    .   |
00002530: 20 DD 20 20 20 20 DD 20  20 20 20 DD 20 20 20 20  | .    .    .    |
00002540: DD 20 20 20 20 DD 22 00  72 2D EA 1F 53 33 24 B2  |.    .".r-..S3$.|
00002550: 22 30 20 20 20 20 35 20  20 20 20 31 30 20 20 20  |"0    5    10   |
00002560: 31 35 20 20 20 32 30 20  20 20 32 35 20 20 20 33  |15   20   25   3|
00002570: 30 22 00 78 2D F4 1F 8E  00 93 2D 08 20 81 49 B2  |0".x-.....-. .I.|
00002580: 33 A4 4B 4B 3A A1 23 33  2C 41 24 3A 82 3A 99 22  |3.KK:.#3,A$:.:."|
00002590: 12 22 3B 00 B8 2D 12 20  81 49 B2 31 A4 32 33 3A  |.";..-. .I.1.23:|
000025A0: A1 23 33 2C 41 24 3A 41  24 B2 41 24 AA C7 28 30  |.#3,A$:A$.A$..(0|
000025B0: 29 3A 99 41 24 3B 3A 82  00 C0 2D 1C 20 99 3A 8E  |):.A$;:...-. .:.|
000025C0: 00 D2 2D 28 23 8F 20 44  45 43 49 4D 41 4C 5F 48  |..-(#. DECIMAL_H|
000025D0: 45 58 00 E4 2D 29 23 8F  22 A3 A3 A3 A3 A3 A3 A3  |EX..-)#.".......|
000025E0: A3 A3 A3 A3 00 F8 2D 2D  23 4D B2 C5 28 4D 24 29  |......--#M..(M$)|
000025F0: 3A 8B 4D B3 B1 30 A7 8E  00 14 2E 32 23 4D 24 B2  |:.M..0.....2#M$.|
00002600: CA 28 4D 24 2C 32 29 3A  4D B2 30 3A 4C 4D B2 C3  |.(M$,2):M.0:LM..|
00002610: 28 4D 24 29 00 21 2E 3C  23 81 43 4E B2 31 A4 4C  |(M$).!.<#.CN.1.L|
00002620: 4D 00 4E 2E 46 23 4D 4D  24 B2 CA 28 4D 24 2C 43  |M.N.F#MM$..(M$,C|
00002630: 4E 2C 31 29 3A 8D 39 31  30 30 3A 4D B2 4D AA 4D  |N,1):.9100:M.M.M|
00002640: 4D AC 31 36 AE 28 4C 4D  AB 43 4E 29 3A 82 00 54  |M.16.(LM.CN):..T|
00002650: 2E 50 23 8E 00 68 2E 8C  23 8B 4D 4D 24 B2 22 30  |.P#..h..#.MM$."0|
00002660: 22 A7 4D 4D B2 30 3A 8E  00 7F 2E 96 23 4D 4D B2  |".MM.0:.....#MM.|
00002670: C5 28 4D 4D 24 29 3A 8B  4D 4D B3 B1 30 A7 8E 00  |.(MM$):.MM..0...|
00002680: 92 2E A0 23 4D 4D B2 C6  28 4D 4D 24 29 AB 35 35  |...#MM..(MM$).55|
00002690: 3A 8E 00 A4 2E 1C 25 8F  20 48 45 58 5F 44 45 43  |:.....%. HEX_DEC|
000026A0: 49 4D 41 4C 00 B6 2E 1D  25 8F 22 A3 A3 A3 A3 A3  |IMAL....%.".....|
000026B0: A3 A3 A3 A3 A3 A3 00 F0  2E 21 25 53 4D B2 4D 3A  |.........!%SM.M:|
000026C0: 4D 24 B2 22 24 22 3A 81  43 4E B2 33 A4 30 A9 AB  |M$."$":.CN.3.0..|
000026D0: 31 3A 43 4D 25 B2 53 4D  AD 28 31 36 AE 43 4E 29  |1:CM%.SM.(16.CN)|
000026E0: 3A 8D 39 36 30 30 3A 4D  24 B2 4D 24 AA 4D 4D 24  |:.9600:M$.M$.MM$|
000026F0: 00 0A 2F 26 25 53 4D B2  53 4D AB 28 31 36 AE 43  |../&%SM.SM.(16.C|
00002700: 4E 29 AC 43 4D 25 3A 82  3A 8E 00 26 2F 80 25 8B  |N).CM%:.:..&/.%.|
00002710: 43 4D 25 B3 31 30 A7 4D  4D 24 B2 C7 28 43 4D 25  |CM%.10.MM$..(CM%|
00002720: AA 34 38 29 3A 8E 00 3A  2F 8A 25 4D 4D 24 B2 C7  |.48):..:/.%MM$..|
00002730: 28 43 4D 25 AA 35 35 29  3A 8E 00 53 2F 10 27 99  |(CM%.55):..S/.'.|
00002740: 53 44 24 22 11 11 11 11  11 11 11 11 11 11 20 20  |SD$"..........  |
00002750: 20 20 22 00 84 2F 1A 27  97 43 52 54 AA 4A 2C 31  |  "../.'.CRT.J,1|
00002760: 36 38 3A 4A B2 4A AA 31  3A 81 4B B2 32 A4 31 A9  |68:J.J.1:.K.2.1.|
00002770: AB 31 3A 53 24 B2 CA 28  C4 28 43 28 49 AB 4B 29  |.1:S$..(.(C(I.K)|
00002780: 29 2C 32 29 00 B3 2F 24  27 81 4C B2 31 A4 C3 28  |),2)../$'.L.1..(|
00002790: 53 24 29 3A 97 43 52 54  AA 4A 2C C5 28 CA 28 53  |S$):.CRT.J,.(.(S|
000027A0: 24 2C 4C 2C 31 29 29 AA  31 37 36 3A 4A B2 4A AA  |$,L,1)).176:J.J.|
000027B0: 31 3A 82 00 D7 2F 2E 27  97 43 52 54 AA 4A 2C 31  |1:.../.'.CRT.J,1|
000027C0: 37 32 3A 4A B2 4A AA 31  3A 82 3A 97 43 52 54 AA  |72:J.J.1:.:.CRT.|
000027D0: 4A AB 31 2C 31 36 39 00  03 30 38 27 99 53 44 24  |J.1,169..08'.SD$|
000027E0: 22 11 11 11 11 11 11 11  11 11 11 4E 4F 54 45 3A  |"..........NOTE:|
000027F0: 12 28 54 52 41 43 4B 2C  53 45 43 54 4F 52 29 20  |.(TRACK,SECTOR) |
00002800: 22 3A 8E 00 09 30 F8 2A  3A 00 41 30 02 2B 97 43  |":...0.*:.A0.+.C|
00002810: 52 54 AA 4A 2C 31 39 30  3A 4A B2 4A AA 31 3A 53  |RT.J,190:J.J.1:S|
00002820: 56 B2 43 28 49 AB 32 29  AA 43 28 49 AB 31 29 AC  |V.C(I.2).C(I.1).|
00002830: 32 35 36 3A 53 24 B2 CA  28 C4 28 53 56 29 2C 32  |256:S$..(.(SV),2|
00002840: 29 00 70 30 0C 2B 81 4C  B2 31 A4 C3 28 53 24 29  |).p0.+.L.1..(S$)|
00002850: 3A 97 43 52 54 AA 4A 2C  C5 28 CA 28 53 24 2C 4C  |:.CRT.J,.(.(S$,L|
00002860: 2C 31 29 29 AA 31 37 36  3A 4A B2 4A AA 31 3A 82  |,1)).176:J.J.1:.|
00002870: 00 87 30 16 2B 4A B2 4A  AA 31 3A 97 43 52 54 AA  |..0.+J.J.1:.CRT.|
00002880: 4A AB 31 2C 31 38 38 00  B4 30 20 2B 99 53 44 24  |J.1,188..0 +.SD$|
00002890: 22 11 11 11 11 11 11 11  11 11 11 11 B8 B8 B8 B8  |"...............|
000028A0: 3A 12 3E 4E 55 4D 42 45  52 20 42 4C 4F 43 4B 53  |:.>NUMBER BLOCKS|
000028B0: 3C 22 3A 8E 00 CC 30 E0  2E 8F 20 55 4E 53 43 52  |<":...0... UNSCR|
000028C0: 41 54 43 48 20 52 4F 55  54 49 4E 45 00 E4 30 E1  |ATCH ROUTINE..0.|
000028D0: 2E 8F 22 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |..".............|
000028E0: B8 B8 B8 B8 00 F0 30 EA  2E 99 C7 28 31 34 32 29  |......0....(142)|
000028F0: 00 18 31 F4 2E 99 22 93  11 11 54 48 45 20 53 43  |..1..."...THE SC|
00002900: 52 41 54 43 48 45 44 20  46 49 4C 45 20 4E 41 4D  |RATCHED FILE NAM|
00002910: 45 53 20 57 49 4C 4C 22  00 2D 31 FE 2E 99 22 42  |ES WILL".-1..."B|
00002920: 45 20 44 49 53 50 4C 41  59 45 44 2E 22 00 53 31  |E DISPLAYED.".S1|
00002930: 08 2F 99 22 11 59 4F 55  20 4D 41 59 20 44 45 43  |./.".YOU MAY DEC|
00002940: 49 44 45 20 57 48 49 43  48 20 46 49 4C 45 20 59  |IDE WHICH FILE Y|
00002950: 4F 55 22 00 6B 31 12 2F  99 22 57 49 53 48 20 54  |OU".k1./."WISH T|
00002960: 4F 20 52 45 43 4F 56 45  52 2E 22 00 8E 31 1C 2F  |O RECOVER."..1./|
00002970: 99 22 11 11 12 52 45 54  55 52 4E 92 20 54 4F 20  |."...RETURN. TO |
00002980: 43 4F 4E 54 49 4E 55 45  22 3A 8D 33 31 30 00 97  |CONTINUE":.310..|
00002990: 31 26 2F 99 22 93 22 00  AB 31 30 2F A0 33 3A A0  |1&/."."..10/.3:.|
000029A0: 31 35 3A 9F 31 35 2C 38  2C 31 35 00 CB 31 3A 2F  |15:.15,8,15..1:/|
000029B0: 54 B2 44 49 3A 53 B2 31  3A 9F 33 2C 38 2C 33 2C  |T.DI:S.1:.3,8,3,|
000029C0: 22 23 30 22 3A 8D 36 33  39 30 30 00 E2 31 3F 2F  |"#0":.63900..1?/|
000029D0: 98 31 35 2C 22 42 2D 52  22 3B 33 3B 44 52 3B 54  |.15,"B-R";3;DR;T|
000029E0: 3B 53 00 F6 31 40 2F 99  22 93 4C 4F 4F 4B 49 4E  |;S..1@/.".LOOKIN|
000029F0: 47 20 41 54 3A 22 00 1C  32 41 2F 99 22 11 11 54  |G AT:"..2A/."..T|
00002A00: 52 41 43 4B 20 20 20 9D  9D 9D 22 54 22 20 53 45  |RACK   ..."T" SE|
00002A10: 43 54 4F 52 20 20 20 9D  9D 9D 22 53 00 46 32 44  |CTOR   ..."S.F2D|
00002A20: 2F 81 4A B2 30 A4 32 35  35 3A 98 31 35 2C 22 4D  |/.J.0.255:.15,"M|
00002A30: 2D 52 22 3B C7 28 4A 29  3B C7 28 31 37 29 3A A1  |-R";.(J);.(17):.|
00002A40: 23 31 35 2C 41 24 00 5C  32 4E 2F 43 28 4A 29 B2  |#15,A$.\2N/C(J).|
00002A50: C6 28 41 24 AA C7 28 30  29 29 3A 82 00 84 32 58  |.(A$..(0)):...2X|
00002A60: 2F 81 44 B2 32 A4 32 35  35 A9 33 32 3A 8B 43 28  |/.D.2.255.32:.C(|
00002A70: 44 29 B3 B1 30 B0 43 28  44 AA 31 29 B2 30 A7 31  |D)..0.C(D.1).0.1|
00002A80: 32 32 30 30 00 B5 32 62  2F 99 53 44 24 43 4C 24  |2200..2b/.SD$CL$|
00002A90: 53 44 24 22 57 41 4E 54  20 54 4F 20 55 4E 53 43  |SD$"WANT TO UNSC|
00002AA0: 52 41 54 43 48 20 12 22  3B 3A 81 50 39 B2 31 A4  |RATCH .";:.P9.1.|
00002AB0: 32 30 30 3A 82 00 E0 32  6C 2F A1 41 24 3A 81 4B  |200:...2l/.A$:.K|
00002AC0: B2 44 AA 33 A4 44 AA 31  38 3A 99 C7 28 43 28 4B  |.D.3.D.18:..(C(K|
00002AD0: 29 29 3B 3A 82 3A 99 22  92 3F 22 3A 8D 33 31 30  |));:.:.".?":.310|
00002AE0: 00 F3 32 76 2F 8B 49 4E  24 B2 22 59 22 A7 31 32  |..2v/.IN$."Y".12|
00002AF0: 33 30 30 00 14 33 A8 2F  82 44 3A 54 B2 43 28 30  |300..3./.D:T.C(0|
00002B00: 29 3A 53 B2 43 28 31 29  3A 8B 54 B2 44 49 A7 31  |):S.C(1):.T.DI.1|
00002B10: 32 30 39 35 00 51 33 B2  2F 99 22 93 46 49 4E 49  |2095.Q3./.".FINI|
00002B20: 53 48 45 44 20 4C 4F 4F  4B 49 4E 47 2E 2E 22 3A  |SHED LOOKING..":|
00002B30: 99 22 11 11 12 52 45 54  55 52 4E 92 20 54 4F 20  |."...RETURN. TO |
00002B40: 43 4F 4E 54 49 4E 55 45  2E 22 3A 8D 33 31 30 3A  |CONTINUE.":.310:|
00002B50: 8E 00 8F 33 0C 30 54 30  B2 54 3A 53 30 B2 53 3A  |...3.0T0.T:S0.S:|
00002B60: 54 B2 43 28 44 AA 31 29  3A 53 B2 43 28 44 AA 32  |T.C(D.1):S.C(D.2|
00002B70: 29 3A 42 30 B2 43 28 44  AA 32 38 29 AA 43 28 44  |):B0.C(D.28).C(D|
00002B80: AA 32 39 29 AC 32 35 36  3A 99 C7 28 31 34 29 00  |.29).256:..(14).|
00002B90: BD 33 0D 30 99 22 93 11  11 12 C4 49 52 45 43 54  |.3.0.".....IRECT|
00002BA0: 4F 52 59 20 C2 4C 4F 43  4B 20 C3 4F 55 4E 54 3D  |ORY .LOCK .OUNT=|
00002BB0: 22 42 30 3A 4E 39 B2 31  3A 99 53 30 24 00 F5 33  |"B0:N9.1:.S0$..3|
00002BC0: 0E 30 A0 33 3A A0 31 35  3A 9F 31 35 2C 38 2C 31  |.0.3:.15:.15,8,1|
00002BD0: 35 3A 9F 33 2C 38 2C 33  2C 22 23 22 3A 8D 36 33  |5:.3,8,3,"#":.63|
00002BE0: 39 30 30 3A A1 23 33 2C  42 4E 24 3A 42 4E B2 C6  |900:.#3,BN$:BN..|
00002BF0: 28 42 4E 24 29 00 11 34  0F 30 54 28 4E 39 29 B2  |(BN$)..4.0T(N9).|
00002C00: 54 3A 53 28 4E 39 29 B2  53 3A 4E 39 B2 4E 39 AA  |T:S(N9).S:N9.N9.|
00002C10: 31 00 28 34 11 30 98 31  35 2C 22 42 2D 52 22 3B  |1.(4.0.15,"B-R";|
00002C20: 33 3B 44 52 3B 54 3B 53  00 3A 34 12 30 98 31 35  |3;DR;T;S.:4.0.15|
00002C30: 2C 22 42 2D 50 22 3B 33  3B 30 00 54 34 13 30 A1  |,"B-P";3;0.T4.0.|
00002C40: 23 33 2C 5A 24 3A 8B 5A  24 B2 22 22 A7 5A 24 B2  |#3,Z$:.Z$."".Z$.|
00002C50: C7 28 30 29 00 73 34 14  30 54 28 4E 39 29 B2 C6  |.(0).s4.0T(N9)..|
00002C60: 28 5A 24 29 3A 8B 54 28  4E 39 29 B2 30 A7 31 32  |(Z$):.T(N9).0.12|
00002C70: 33 31 34 00 8D 34 15 30  A1 23 33 2C 5A 24 3A 8B  |314..4.0.#3,Z$:.|
00002C80: 5A 24 B2 22 22 A7 5A 24  B2 C7 28 30 29 00 9D 34  |Z$."".Z$..(0)..4|
00002C90: 16 30 53 28 4E 39 29 B2  C6 28 5A 24 29 00 BB 34  |.0S(N9)..(Z$)..4|
00002CA0: 17 30 54 24 B2 CA 28 C4  28 54 29 2C 32 29 3A 53  |.0T$..(.(T),2):S|
00002CB0: 24 B2 CA 28 C4 28 53 29  2C 32 29 00 CF 34 18 30  |$..(.(S),2)..4.0|
00002CC0: 99 22 28 22 54 24 22 2C  22 53 24 22 29 22 3B 00  |."("T$","S$")";.|
00002CD0: F2 34 19 30 54 B2 54 28  4E 39 29 3A 53 B2 53 28  |.4.0T.T(N9):S.S(|
00002CE0: 4E 39 29 3A 4E 39 B2 4E  39 AA 31 3A 89 31 32 33  |N9):N9.N9.1:.123|
00002CF0: 30 35 00 00 35 1A 30 4E  39 B2 4E 39 AB 31 3A 99  |05..5.0N9.N9.1:.|
00002D00: 00 16 35 1B 30 99 22 11  12 22 4E 39 22 20 42 4C  |..5.0.".."N9" BL|
00002D10: 4F 43 4B 53 11 22 00 4C  35 3E 30 8B 4E 39 B3 B1  |OCKS.".L5>0.N9..|
00002D20: 42 30 A7 99 22 11 11 2A  2A 12 49 4E 43 4F 52 52  |B0.."..**.INCORR|
00002D30: 45 43 54 20 42 4C 4F 43  4B 20 43 4F 55 4E 54 92  |ECT BLOCK COUNT.|
00002D40: 2A 2A 11 11 22 3A 8D 33  30 30 3A 8E 00 67 35 48  |**..":.300:..g5H|
00002D50: 30 99 22 11 CC 4F 4F 4B  53 20 47 4F 4F 44 20 53  |0."..OOKS GOOD S|
00002D60: 4F 20 46 41 52 2E 22 00  92 35 52 30 99 22 11 D3  |O FAR."..5R0."..|
00002D70: 48 41 4C 4C 20 57 45 20  50 52 4F 43 45 45 44 3F  |HALL WE PROCEED?|
00002D80: 22 3A 8D 33 31 30 3A 8B  49 4E 24 B3 B1 22 59 22  |":.310:.IN$.."Y"|
00002D90: A7 8E 00 BE 35 5C 30 99  22 93 11 11 D7 45 27 4C  |....5\0."....E'L|
00002DA0: 4C 20 43 48 45 43 4B 20  54 48 41 54 20 54 48 45  |L CHECK THAT THE|
00002DB0: 20 41 42 4F 56 45 20 42  4C 4F 43 4B 53 22 00 E7  | ABOVE BLOCKS"..|
00002DC0: 35 66 30 99 22 11 41 52  45 20 C6 D2 C5 C5 20 42  |5f0.".ARE .... B|
00002DD0: 59 20 4C 4F 4F 4B 49 4E  47 20 41 54 20 54 48 45  |Y LOOKING AT THE|
00002DE0: 20 C2 C1 CD 2E 11 22 00  16 36 70 30 99 22 11 D4  | ....."..6p0."..|
00002DF0: 48 45 20 54 52 41 43 4B  2F 53 45 43 54 4F 52 53  |HE TRACK/SECTORS|
00002E00: 20 46 4F 52 20 54 48 45  20 46 49 4C 45 20 57 49  | FOR THE FILE WI|
00002E10: 4C 4C 20 42 45 22 00 40  36 7A 30 99 22 11 44 49  |LL BE".@6z0.".DI|
00002E20: 53 50 4C 41 59 45 44 2E  20 C9 46 20 41 20 42 4C  |SPLAYED. .F A BL|
00002E30: 4F 43 4B 20 49 53 20 4F  43 43 55 50 49 45 44 22  |OCK IS OCCUPIED"|
00002E40: 00 6A 36 84 30 99 22 11  54 48 45 20 D5 CE D3 C3  |.j6.0.".THE ....|
00002E50: D2 C1 D4 C3 C8 20 57 49  4C 4C 20 4E 4F 54 20 57  |..... WILL NOT W|
00002E60: 4F 52 4B 21 22 3A 8D 33  30 30 00 9C 36 85 30 A0  |ORK!":.300..6.0.|
00002E70: 31 35 3A 9F 31 35 2C 38  2C 31 35 2C 22 49 22 AA  |15:.15,8,15,"I".|
00002E80: 44 52 24 3A 8D 36 33 39  30 30 3A 99 22 93 22 3A  |DR$:.63900:.".":|
00002E90: 99 C7 28 31 34 32 29 3A  4B 31 B2 31 00 B6 36 86  |..(142):K1.1..6.|
00002EA0: 30 9F 32 2C 38 2C 32 2C  22 24 22 AA 44 52 24 3A  |0.2,8,2,"$".DR$:|
00002EB0: 8D 36 33 39 30 30 00 D0  36 87 30 96 20 A5 42 28  |.63900..6.0. .B(|
00002EC0: 49 29 B2 28 5A AF 50 28  49 29 29 AD 50 28 49 29  |I).(Z.P(I)).P(I)|
00002ED0: 00 EC 36 88 30 46 46 B2  44 31 AA 28 54 28 4B 31  |..6.0FF.D1.(T(K1|
00002EE0: 29 AB 31 29 AC 53 33 3A  50 50 B2 30 00 02 37 89  |).1).S3:PP.0..7.|
00002EF0: 30 81 4B 32 B2 30 A4 46  46 3A A1 23 32 2C 41 24  |0.K2.0.FF:.#2,A$|
00002F00: 3A 82 00 1F 37 98 30 54  B2 54 28 4B 31 29 3A 99  |:...7.0T.T(K1):.|
00002F10: 22 93 22 3A 8D 36 34 30  30 3A 8D 36 35 38 30 00  |".":.6400:.6580.|
00002F20: 43 37 A2 30 99 53 44 24  22 43 48 45 43 4B 20 54  |C7.0.SD$"CHECK T|
00002F30: 48 41 54 20 54 48 45 20  46 4F 4C 4C 4F 57 49 4E  |HAT THE FOLLOWIN|
00002F40: 47 20 22 00 5E 37 A7 30  99 22 11 53 45 43 54 4F  |G ".^7.0.".SECTO|
00002F50: 52 53 20 41 52 45 20 46  52 45 45 3D D7 22 00 92  |RS ARE FREE=."..|
00002F60: 37 AC 30 81 4B 32 B2 31  A4 4E 39 3A 8B 54 28 4B  |7.0.K2.1.N9:.T(K|
00002F70: 32 29 B2 54 A7 99 52 24  28 50 50 29 CA 28 C4 28  |2).T..R$(PP).(.(|
00002F80: 53 28 4B 32 29 29 2C 32  29 52 24 28 31 AB 50 50  |S(K2)),2)R$(1.PP|
00002F90: 29 3B 00 A2 37 B1 30 50  50 B2 31 AB 50 50 3A 82  |);..7.0PP.1.PP:.|
00002FA0: 3A 99 00 B3 37 B6 30 99  22 11 4F 4B 3F 22 3A 8D  |:...7.0.".OK?":.|
00002FB0: 33 31 30 00 DE 37 BB 30  8B 49 4E 24 B3 B1 22 59  |310..7.0.IN$.."Y|
00002FC0: 22 A7 99 22 93 53 4F 52  52 59 2E 2E 22 3A 99 C7  |"..".SORRY..":..|
00002FD0: 28 31 34 29 3A 8D 33 30  30 3A A0 32 3A 8E 00 F3  |(14):.300:.2:...|
00002FE0: 37 C0 30 A0 32 3A 8B 4B  31 B1 B2 4E 39 A7 A0 31  |7.0.2:.K1..N9..1|
00002FF0: 35 3A 8E 00 0E 38 CA 30  4B 31 B2 4B 31 AA 31 3A  |5:...8.0K1.K1.1:|
00003000: 8B 54 28 4B 31 29 B2 30  A7 31 32 36 30 30 00 21  |.T(K1).0.12600.!|
00003010: 38 D4 30 8B 54 28 4B 31  29 B2 54 A7 31 32 34 39  |8.0.T(K1).T.1249|
00003020: 30 00 2C 38 D9 30 89 31  32 34 32 32 00 3C 38 38  |0.,8.0.12422.<88|
00003030: 31 99 22 93 22 3A 99 C7  28 31 34 29 00 6C 38 42  |1.".":..(14).l8B|
00003040: 31 99 22 CE 4F 57 20 4D  4F 44 49 46 59 20 54 48  |1.".OW MODIFY TH|
00003050: 45 20 12 4D 41 47 49 43  20 42 59 54 45 92 20 4F  |E .MAGIC BYTE. O|
00003060: 4E 20 44 49 52 45 43 54  4F 52 59 22 00 87 38 4C  |N DIRECTORY"..8L|
00003070: 31 99 22 11 D4 52 41 43  4B 22 54 30 22 20 D3 45  |1."..RACK"T0" .E|
00003080: 43 54 4F 52 22 53 30 00  B8 38 56 31 99 22 11 D4  |CTOR"S0..8V1."..|
00003090: 48 45 4E 20 D7 52 49 54  45 20 54 48 45 20 42 4C  |HEN .RITE THE BL|
000030A0: 4F 43 4B 20 42 41 43 4B  20 54 4F 20 28 22 54 30  |OCK BACK TO ("T0|
000030B0: 22 2C 22 53 30 22 29 22  00 DD 38 60 31 99 22 11  |","S0")"..8`1.".|
000030C0: C6 49 4E 41 4C 4C 59 20  12 D6 41 4C 49 44 41 54  |.INALLY ..ALIDAT|
000030D0: 45 92 20 54 48 45 20 44  49 53 4B 21 22 00 E8 38  |E. THE DISK!"..8|
000030E0: 6A 31 8D 33 30 30 3A 8E  00 F6 38 C8 32 54 B2 54  |j1.300:...8.2T.T|
000030F0: 31 3A 53 B2 53 31 00 02  39 C9 32 81 4A B2 31 A4  |1:S.S1..9.2.J.1.|
00003100: 42 30 00 3A 39 CD 32 A0  33 3A A0 31 35 3A 9F 31  |B0.:9.2.3:.15:.1|
00003110: 35 2C 38 2C 31 35 3A 9F  33 2C 38 2C 33 2C 22 23  |5,8,15:.3,8,3,"#|
00003120: 22 3A 8D 36 33 39 30 30  3A A1 23 33 2C 42 4E 24  |":.63900:.#3,BN$|
00003130: 3A 42 4E B2 C6 28 42 4E  24 29 00 63 39 D2 32 42  |:BN..(BN$).c9.2B|
00003140: 4E 24 B2 CA 28 42 4E 24  2C 32 29 3A 42 4D B2 42  |N$..(BN$,2):BM.B|
00003150: 4E AA 31 37 AA 31 32 AC  B5 28 28 42 4E AA 31 29  |N.17.12..((BN.1)|
00003160: AD 34 29 00 88 39 DC 32  99 3A 99 22 28 22 54 22  |.4)..9.2.:."("T"|
00003170: 2C 22 53 22 29 5F 20 C6  C9 D2 D3 D4 20 C2 CC CF  |,"S")_ ..... ...|
00003180: C3 CB 22 3A 4E 39 B2 31  00 9F 39 E6 32 98 31 35  |..":N9.1..9.2.15|
00003190: 2C 22 42 2D 52 22 3B 33  3B 44 52 3B 54 3B 53 00  |,"B-R";3;DR;T;S.|
000031A0: B1 39 F0 32 98 31 35 2C  22 42 2D 50 22 3B 33 3B  |.9.2.15,"B-P";3;|
000031B0: 30 00 CB 39 FA 32 A1 23  33 2C 5A 24 3A 8B 5A 24  |0..9.2.#3,Z$:.Z$|
000031C0: B2 22 22 A7 5A 24 B2 C7  28 30 29 00 E1 39 04 33  |."".Z$..(0)..9.3|
000031D0: 54 B2 C6 28 5A 24 29 3A  8B 54 B2 30 A7 37 32 30  |T..(Z$):.T.0.720|
000031E0: 30 00 FB 39 0E 33 A1 23  33 2C 5A 24 3A 8B 5A 24  |0..9.3.#3,Z$:.Z$|
000031F0: B2 22 22 A7 5A 24 B2 C7  28 30 29 00 07 3A 18 33  |."".Z$..(0)..:.3|
00003200: 53 B2 C6 28 5A 24 29 00  25 3A 22 33 54 24 B2 CA  |S..(Z$).%:"3T$..|
00003210: 28 C4 28 54 29 2C 32 29  3A 53 24 B2 CA 28 C4 28  |(.(T),2):S$..(.(|
00003220: 53 29 2C 32 29 00 39 3A  2C 33 99 22 28 22 54 24  |S),2).9:,3."("T$|
00003230: 22 2C 22 53 24 22 29 22  3B 00 3F 3A 36 33 82 00  |","S$")";.?:63..|
00003240: 55 3A 40 33 99 22 5F 20  CC C1 D3 D4 20 C2 CC CF  |U:@3."_ .... ...|
00003250: C3 CB 11 11 22 00 6C 3A  4A 33 99 4E 39 22 20 42  |....".l:J3.N9" B|
00003260: 4C 4F 43 4B 53 11 22 3A  8D 33 30 30 00 95 3A F7  |LOCKS.":.300..:.|
00003270: 33 42 4E 24 B2 CA 28 42  4E 24 2C 32 29 3A 42 4D  |3BN$..(BN$,2):BM|
00003280: B2 42 4E AA 31 37 AA 31  32 AC B5 28 28 42 4E AA  |.BN.17.12..((BN.|
00003290: 31 29 AD 34 29 00 BA 3A  F8 33 99 3A 99 22 28 22  |1).4)..:.3.:."("|
000032A0: 54 22 2C 22 53 22 29 5F  20 C6 C9 D2 D3 D4 20 C2  |T","S")_ ..... .|
000032B0: CC CF C3 CB 22 3A 4E 39  B2 31 00 CD 3A 9C F9 84  |....":N9.1..:...|
000032C0: 31 35 2C 45 2C 45 24 2C  45 31 2C 45 32 00 F7 3A  |15,E,E$,E1,E2..:|
000032D0: 9D F9 8B 45 B3 B1 30 A7  99 3A 99 22 2A 2A 12 44  |...E..0..:."**.D|
000032E0: 49 53 4B 20 45 52 52 4F  52 92 2A 2A 22 45 2C 45  |ISK ERROR.**"E,E|
000032F0: 24 2C 45 31 2C 45 32 00  FD 3A 9E F9 8E 00 00 00  |$,E1,E2..:......|

....... 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....!..
.DR.1.ZD1.."...300:.7000.."....!"... TRA
CE BLOCKS.4"..."............._"A.."..STA
RTING TRACK,SECTOR.   ....";T,S.."B..(T.
1).(T.TT).(S.0).(S.SC(T)).7110.."F. 3: 1
5:.15,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.
F(BN$).."G.BN$.J(BN$,2):BM.BN.17.12..((B
N.1).4)..#K..:."("T","S")_ FIRST BLOCK":
N9.1.##P..15,"B-R";3;DR;T;S.5#Z..15,"B-P
";3;0.O#...#3,Z$:.Z$."".Z$.G(0).E#..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$")";.O#..N9.N9.1:.7120.
.# .."_ LAST BLOCK.."..#*..N9" BLOCKS.":
.300:...$L.. UNSCRATCH..$M.."..........>
$V..".WE'LL DO THE FOLLOWING:".M$W.."..1
.:GO THRU' DIRECTORY TRACK"DI" UNTIL"..$
X.."  WE FIND THE SCRATCHED FILE NAME.".
.$Y.."..2.:TRACE THE BLOCKS AND COMPARE"
..$Z.."  THE BLOCKS OBTAINED WITH THE"..
%[.."  DIRECTORY BLOCK COUNT.".4%\.."..3
.:LOOK AT THE BLOCK AVAILABILTY MAP".`%]
.."  TO SEE IF ALL THE BLOCKS ARE FREE."
..%^..".>>IF ALL OF THE ABOVE ARE OK"..%
_.."  WE MAY MODIFY THE DIRECTORY".D%`..
"  AS FOLLOWS:":.300..%T..".MODIFY THE B
LOCK SO THAT THE"..%Y..".MAGIC BYTE".)&~
.."  WHICH OCCURS JUST .3. PLACES BEFORE
".J&..."  THE NAME IS AS FOLLOWS:".`&...
"  129=SEQ FILE".W&..."  130=PROG FILE".
.&..."  131=USR FILE"..&..."  132=REL FI
LE".R&...".EXAMPLE:TO UNSCRATCH A PROG F
ILE 'ABZ'"..&..."FIND IT'S NAME ON THE D
IRECTORY, AND".$'..."SELECT MENU ITEM=MO
DIFY BLOCK.".9'..."YOU WILL SEE:".I'D.."
... 0. 0. 0. 0. 19. 3. 65. 66. 90....ETC
"..'N.."         ^  ^ ^  ^  ^  ^"..'X.."
 SHOULD BE .TRCK.A  B  Z".T'..."     A 1
30 .&SEC.FILENAME(IN ASCII)"..'...300:."
."S0$..(...".MODIFY THE BYTE WHICH IDENT
IFIES THE ".:(..."FILE TYPE..TO 130..SO 
IT READS:".L(..."... 0. 0. 0. 130. 19. 3
. 65. 66. 90....ETC"..(..."..4.:WRITE TH
E BLOCK BACK TO THE DISK.".B(..."..5.:QU
IT AND VALIDATE THE DISK."..(..."       
    ........"..(...".5.:PRAY..":.310..)H
..".WANT TO TRY   Y...";A$:.A$.."Y"...()
R..12000.?).. 15:.G(142):.".":..P)@.. IN
ITIALIZE.A)A.."...........R)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..6
5,17,20,24,18,30,17,35,16,0..)H..67,39,2
8,53,26,64,24,77,22,0..*J.R$(0).".":R$(1
).".".+*T.SD$."...........".J*Y.MD$."...
.................".N*C..".DRIVE.   ...."
;DR$:DR.E(DR$)..*H..15,8,15,"I".DR$:.639
00..*R.K$."  THIS BLOCK IS EMPTY  ".G*|.
.".WAIT...":.:WW.0:A0.1..*}..3,8,3,"$".D
R$:.63900..*~..#3,A$:A.F(A$.G(0))..+..D
T:.A.DT.8070.2+..WW.WW.1:.WW.3. .I.1.9:.
DT:.:.8063.R+..."...***.NOT A RECOGNIZAB
LE DISK.***": 3:."..WANT TO QUIT?"..+...
310:.IN$."Y".7900..+...8110..+...DT.1.DT
.65.KK.143..+...DT.67.KK.5.D+...8200.W+.
..A1:.A1.0.8090..,...B1:.I.A0.A1:SC(I).B
1.1:.:A0.I:.8075.&,...DT.1.DT.65.D1.1:TT
.35:S2.3:DI.18.I,...DT.67.D1.257:TT.77:S
2.4:DI.39.], .S1.S2.1:S3.S2.1.O,.. 3:.TT
.0.8065..,...I.0.7:P(I).2.I:...,..X$(0).
"Q":X$(1)."W".N,B.S0$.".................
....................."..,L.CL$."":.I.1.3
9:CL$.CL$." ":...-V.S1$."^....^....^....
^....^....^....^....".G-..S2$.".    .   
 .    .    .    .    .".R-..S3$."0    5 
   10   15   20   25   30".X-.....-. .I.
3.KK:.#3,A$:.:.".";..-. .I.1.23:.#3,A$:A
$.A$.G(0):.A$;:...-. .:..R-(#. DECIMAL_H
EX..-)#.".............--#M.E(M$):.M..0..
...2#M$.J(M$,2):M.0:LM.C(M$).!.<#.CN.1.L
M.N.F#MM$.J(M$,CN,1):.9100:M.M.MM.16.(LM
.CN):..T.P#..H..#.MM$."0".MM.0:....#MM.
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%.55)
:..S/.'.SD$"..........    "../.'.CRT.J,1
68: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:..W/.'.CRT.J,172:J.J.1:.:.CRT.J.1,169.
.08'.SD$"..........NOTE:.(TRACK,SECTOR) 
":...0.*:.A0.+.CRT.J,190:J.J.1:SV.C(I.2)
.C(I.1).256:S$.J(D(SV),2).P0.+.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<":..L0... UNSCRATCH ROU
TINE..0..."...................0...G(142)
..1..."...THE SCRATCHED FILE NAMES WILL"
.-1..."BE DISPLAYED.".S1./.".YOU MAY DEC
IDE WHICH FILE YOU".K1./."WISH TO RECOVE
R."..1./."...RETURN. TO CONTINUE":.310..
1&/."."..10/ 3: 15:.15,8,15.K1:/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.F2D/.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.1
2200..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.Q3./.".FINI
SHED LOOKING..":."...RETURN. TO CONTINUE
.":.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.N9.
1.(4.0.15,"B-R";3;DR;T;S.:4.0.15,"B-P";3
;0.T4.0.#3,Z$:.Z$."".Z$.G(0).S4.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).O4.0."("T$","S$")";..4.0T.T(
N9):S.S(N9):N9.N9.1:.12305..5.0N9.N9.1:.
..5.0.".."N9" BLOCKS.".L5>0.N9..B0.."..*
*.INCORRECT BLOCK COUNT.**..":.300:..G5H
0.".LOOKS GOOD SO FAR."..5R0.".SHALL WE 
PROCEED?":.310:.IN$.."Y"....5\0."...WE'L
L CHECK THAT THE ABOVE BLOCKS"..5F0.".AR
E FREE BY LOOKING AT THE BAM.."..6P0.".T
HE TRACK/SECTORS FOR THE FILE WILL BE".@
6Z0.".DISPLAYED. IF A BLOCK IS OCCUPIED"
.J6.0.".THE UNSCRATCH WILL NOT WORK!":.3
00..6.0 15:.15,8,15,"I".DR$:.63900:.".":
.G(142):K1.1..6.0.2,8,2,"$".DR$:.63900.P
6.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.C7.0.SD$"CHECK T
HAT THE FOLLOWING ".^7.0.".SECTORS ARE F
REE=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:...8J0
K1.K1.1:.T(K1).0.12600.!8T0.T(K1).T.1249
0.,8Y0.12422.<881.".":.G(14).L8B1."NOW M
ODIFY THE .MAGIC BYTE. ON DIRECTORY"..8L
1.".TRACK"T0" SECTOR"S0..8V1.".THEN WRIT
E 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:.1
5,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN
$).C9R2BN$.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.K9.2.#3,Z$:.Z$."".Z$.G(0)..9.3T.F(Z$):
.T.0.7200..9.3.#3,Z$:.Z$."".Z$.G(0)..:.3
S.F(Z$).%:"3T$.J(D(T),2):S$.J(D(S),2).9:
,3."("T$","S$")";.?:63..U:@3."_ LAST BLO
CK..".L:J3.N9" BLOCKS.":.300..:.3BN$.J(B
N$,2):BM.BN.17.12..((BN.1).4)..:.3.:."("
T","S")_ FIRST BLOCK":N9.1.M:...15,E,E$,
E1,E2..:...E..0..:."**.DISK ERROR.**"E,E
$,E1,E2..:......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL