DISK LOG.C

00000000: 01 08 0C 08 64 00 86 54  24 28 34 29 00 33 08 6E  |....d..T$(4).3.n|
00000010: 00 99 22 44 49 53 4B 20  46 49 4C 45 20 4C 4F 47  |.."DISK FILE LOG|
00000020: 20 2D 20 4A 49 4D 20 42  55 54 54 45 52 46 49 45  | - JIM BUTTERFIE|
00000030: 4C 44 22 00 3F 08 82 00  43 24 B2 C7 28 30 29 00  |LD".?...C$..(0).|
00000040: 67 08 8C 00 83 20 31 36  39 2C 30 2C 20 31 36 32  |g.... 169,0, 162|
00000050: 2C 34 2C 20 31 34 39 2C  39 38 2C 20 32 30 32 2C  |,4, 149,98, 202,|
00000060: 20 31 36 2C 32 35 31 00  90 08 91 00 83 20 31 36  | 16,251...... 16|
00000070: 39 2C 31 36 30 2C 20 31  33 33 2C 39 37 2C 20 31  |9,160, 133,97, 1|
00000080: 36 32 2C 32 2C 20 33 32  2C 31 39 38 2C 32 35 35  |62,2, 32,198,255|
00000090: 00 BE 08 96 00 83 20 32  33 30 2C 31 30 31 2C 20  |...... 230,101, |
000000A0: 32 30 38 2C 31 30 2C 20  32 33 30 2C 31 30 30 2C  |208,10, 230,100,|
000000B0: 20 32 30 38 2C 36 2C 20  32 33 30 2C 39 39 00 E7  | 208,6, 230,99..|
000000C0: 08 9B 00 83 20 32 30 38  2C 32 2C 20 32 33 30 2C  |.... 208,2, 230,|
000000D0: 39 38 2C 20 33 32 2C 32  32 38 2C 32 35 35 2C 20  |98, 32,228,255, |
000000E0: 31 36 35 2C 31 34 34 00  09 09 A0 00 83 20 32 34  |165,144...... 24|
000000F0: 30 2C 32 33 35 2C 20 33  32 2C 32 30 34 2C 32 35  |0,235, 32,204,25|
00000100: 35 2C 20 31 39 38 2C 39  37 00 37 09 A5 00 83 20  |5, 198,97.7.... |
00000110: 36 2C 31 30 31 2C 20 33  38 2C 31 30 30 2C 20 33  |6,101, 38,100, 3|
00000120: 38 2C 39 39 2C 20 33 38  2C 39 38 2C 20 31 36 2C  |8,99, 38,98, 16,|
00000130: 32 34 34 2C 20 39 36 00  55 09 AA 00 83 20 31 36  |244, 96.U.... 16|
00000140: 39 2C 30 2C 20 31 33 33  2C 31 33 39 2C 20 31 33  |9,0, 133,139, 13|
00000150: 33 2C 31 34 30 00 73 09  B4 00 83 20 32 33 30 2C  |3,140.s.... 230,|
00000160: 31 33 39 2C 20 32 30 38  2C 32 2C 20 32 33 30 2C  |139, 208,2, 230,|
00000170: 31 34 30 00 A0 09 BE 00  83 20 31 36 32 2C 31 35  |140...... 162,15|
00000180: 2C 20 33 32 2C 32 30 31  2C 32 35 35 2C 20 31 36  |, 32,201,255, 16|
00000190: 39 2C 38 30 2C 20 33 32  2C 32 31 30 2C 32 35 35  |9,80, 32,210,255|
000001A0: 00 CD 09 C8 00 83 20 31  36 39 2C 34 2C 20 33 32  |...... 169,4, 32|
000001B0: 2C 32 31 30 2C 32 35 35  2C 20 31 36 35 2C 31 33  |,210,255, 165,13|
000001C0: 39 2C 20 33 32 2C 32 31  30 2C 32 35 35 00 E7 09  |9, 32,210,255...|
000001D0: CD 00 83 20 31 36 35 2C  31 34 30 2C 20 33 32 2C  |... 165,140, 32,|
000001E0: 32 31 30 2C 32 35 35 00  0B 0A D2 00 83 20 31 36  |210,255...... 16|
000001F0: 39 2C 31 2C 20 33 32 2C  32 31 30 2C 32 35 35 2C  |9,1, 32,210,255,|
00000200: 20 33 32 2C 32 30 34 2C  32 35 35 00 30 0A D7 00  | 32,204,255.0...|
00000210: 83 20 31 36 32 2C 31 35  2C 20 33 32 2C 31 39 38  |. 162,15, 32,198|
00000220: 2C 32 35 35 2C 20 33 32  2C 32 32 38 2C 32 35 35  |,255, 32,228,255|
00000230: 00 5F 0A DC 00 83 20 37  32 2C 20 33 32 2C 32 30  |._.... 72, 32,20|
00000240: 34 2C 32 35 35 2C 20 31  30 34 2C 20 32 30 31 2C  |4,255, 104, 201,|
00000250: 34 38 2C 20 32 34 30 2C  32 30 30 2C 20 39 36 00  |48, 240,200, 96.|
00000260: 7F 0A E6 00 81 4A B2 38  36 30 A4 39 37 37 3A 87  |.....J.860.977:.|
00000270: 58 3A 54 B2 54 AA 58 3A  97 4A 2C 58 3A 82 4A 00  |X:T.T.X:.J,X:.J.|
00000280: 92 0A F0 00 8B 20 54 B3  B1 31 36 33 31 32 20 A7  |..... T..16312 .|
00000290: 20 90 00 B6 0A FA 00 83  20 22 58 58 58 22 2C 22  | ....... "XXX","|
000002A0: 53 45 51 22 2C 22 50 52  47 22 2C 22 55 53 52 22  |SEQ","PRG","USR"|
000002B0: 2C 22 52 45 4C 22 00 CA  0A 04 01 81 4A B2 30 A4  |,"REL"......J.0.|
000002C0: 34 3A 87 54 24 28 4A 29  3A 82 00 DC 0A 0E 01 85  |4:.T$(J):.......|
000002D0: 22 50 52 49 4E 54 45 52  22 3B 5A 24 00 FD 0A 18  |"PRINTER";Z$....|
000002E0: 01 5A B2 33 3A 8B C6 28  5A 24 29 B2 38 39 A7 5A  |.Z.3:..(Z$).89.Z|
000002F0: B2 34 3A 85 22 44 41 54  45 22 3B 44 24 00 0E 0B  |.4:."DATE";D$...|
00000300: 22 01 55 B2 38 3A 8F 20  55 4E 49 54 20 38 00 20  |".U.8:. UNIT 8. |
00000310: 0B 2C 01 44 B2 30 3A 8F  20 44 52 49 56 45 20 30  |.,.D.0:. DRIVE 0|
00000320: 00 40 0B 4A 01 9F 34 2C  5A 3A 9F 31 2C 55 2C 31  |.@.J..4,Z:.1,U,1|
00000330: 35 2C 22 49 22 AA C7 28  44 AA 34 38 29 3A A0 31  |5,"I"..(D.48):.1|
00000340: 00 5B 0B 54 01 47 24 B2  22 20 20 20 20 20 20 20  |.[.T.G$."       |
00000350: 20 20 20 20 20 20 20 20  20 20 22 00 68 0B 5E 01  |          ".h.^.|
00000360: 9F 31 35 2C 55 2C 31 35  00 7F 0B 68 01 9F 31 2C  |.15,U,15...h..1,|
00000370: 55 2C 33 2C 22 24 22 AA  C7 28 44 AA 34 38 29 00  |U,3,"$"..(D.48).|
00000380: 96 0B 72 01 A1 23 31 2C  41 24 3A 41 B2 C6 28 41  |..r..#1,A$:A..(A|
00000390: 24 AA 22 20 22 29 00 B6  0B 7C 01 8B 41 B2 31 B0  |$." ")...|..A.1.|
000003A0: 41 B2 36 35 A7 4C 31 B2  31 34 31 3A 4C 32 B2 38  |A.65.L1.141:L2.8|
000003B0: 39 3A 89 34 31 30 00 D1  0B 86 01 8B 41 B2 36 37  |9:.410......A.67|
000003C0: A7 4C 31 B2 33 3A 4C 32  B2 37 33 35 3A 89 87 8F  |.L1.3:L2.735:...|
000003D0: 9F FF 5F FC FF FF DF 8F  9D FF 98 8A 9A 9A 98 8D  |.._.............|
000003E0: FF FF FF FF FD FF FF 97  8F 98 8C 8C 8C 8F FF FF  |................|
000003F0: 79 7C 9F FF 70 71 9F 8C  32 29 3A 42 30 B2 43 28  |y|..pq..2):B0.C(|
00000400: 44 AA 32 38 29 AA 43 28  44 AA 32 39 29 AC 32 35  |D.28).C(D.29).25|
00000410: 36 3A 8D 35 38 30 31 30  00 E4 38 0D 30 99 22 93  |6:.58010..8.0.".|
00000420: 11 11 12 C4 49 52 45 43  54 4F 52 59 20 C2 4C 4F  |....IRECTORY .LO|
00000430: 43 4B 20 C3 4F 55 4E 54  3D 22 42 30 3A 4E 39 B2  |CK .OUNT="B0:N9.|
00000440: 31 3A 99 53 30 24 00 1C  39 0E 30 A0 33 3A A0 31  |1:.S0$..9.0.3:.1|
00000450: 35 3A 9F 31 35 2C 38 2C  31 35 3A 9F 33 2C 38 2C  |5:.15,8,15:.3,8,|
00000460: 33 2C 22 23 22 3A 8D 36  33 39 30 30 3A A1 23 33  |3,"#":.63900:.#3|
00000470: 2C 42 4E 24 3A 42 4E B2  C6 28 42 4E 24 29 00 38  |,BN$:BN..(BN$).8|
00000480: 39 0F 30 54 28 4E 39 29  B2 54 3A 53 28 4E 39 29  |9.0T(N9).T:S(N9)|
00000490: B2 53 3A 4E 39 B2 4E 39  AA 31 00 4F 39 11 30 98  |.S:N9.N9.1.O9.0.|
000004A0: 31 35 2C 22 42 2D 52 22  3B 33 3B 44 52 3B 54 3B  |15,"B-R";3;DR;T;|
000004B0: 53 00 61 39 12 30 98 31  35 2C 22 42 2D 50 22 3B  |S.a9.0.15,"B-P";|
000004C0: 33 3B 30 00 7B 39 13 30  A1 23 33 2C 5A 24 3A 8B  |3;0.{9.0.#3,Z$:.|
000004D0: 5A 24 B2 22 22 A7 5A 24  B2 C7 28 30 29 00 9A 39  |Z$."".Z$..(0)..9|
000004E0: 14 30 54 28 4E 39 29 B2  C6 28 5A 24 29 3A 8B 54  |.0T(N9)..(Z$):.T|
000004F0: 28 4E 39 29 B2 30 A7 31  32 33 31 34 00 B4 39 15  |(N9).0.12314..9.|
00000500: 30 A1 23 33 2C 5A 24 3A  8B 5A 24 B2 22 22 A7 5A  |0.#3,Z$:.Z$."".Z|
00000510: 24 B2 C7 28 30 29 00 C4  39 16 30 53 28 4E 39 29  |$..(0)..9.0S(N9)|
00000520: B2 C6 28 5A 24 29 00 E2  39 17 30 54 24 B2 CA 28  |..(Z$)..9.0T$..(|
00000530: C4 28 54 29 2C 32 29 3A  53 24 B2 CA 28 C4 28 53  |.(T),2):S$..(.(S|
00000540: 29 2C 32 29 00 F6 39 18  30 99 22 28 22 54 24 22  |),2)..9.0."("T$"|
00000550: 2C 22 53 24 22 29 22 3B  00 19 3A 19 30 54 B2 54  |,"S$")";..:.0T.T|
00000560: 28 4E 39 29 3A 53 B2 53  28 4E 39 29 3A 4E 39 B2  |(N9):S.S(N9):N9.|
00000570: 4E 39 AA 31 3A 89 31 32  33 30 35 00 27 3A 1A 30  |N9.1:.12305.':.0|
00000580: 4E 39 B2 4E 39 AB 31 3A  99 00 3D 3A 1B 30 99 22  |N9.N9.1:..=:.0."|
00000590: 11 12 22 4E 39 22 20 42  4C 4F 43 4B 53 11 22 00  |.."N9" BLOCKS.".|
000005A0: 73 3A 3E 30 8B 4E 39 B3  B1 42 30 A7 99 22 11 11  |s:>0.N9..B0.."..|
000005B0: 2A 2A 12 49 4E 43 4F 52  52 45 43 54 20 42 4C 4F  |**.INCORRECT BLO|
000005C0: 43 4B 20 43 4F 55 4E 54  92 2A 2A 11 11 22 3A 8D  |CK COUNT.**..":.|
000005D0: 33 30 30 3A 8E 00 8E 3A  48 30 99 22 11 CC 4F 4F  |300:...:H0."..OO|
000005E0: 4B 53 20 47 4F 4F 44 20  53 4F 20 46 41 52 2E 22  |KS GOOD SO FAR."|
000005F0: 00 B9 3A 52 30 99 22 11  D3 48 41 4C 4C 20 57 45  |..:R0."..HALL WE|
00000600: 20 50 52 4F 43 45 45 44  3F 22 3A 8D 33 31 30 3A  | PROCEED?":.310:|
00000610: 8B 49 4E 24 B3 B1 22 59  22 A7 8E 00 E5 3A 5C 30  |.IN$.."Y"....:\0|
00000620: 99 22 93 11 11 D7 45 27  4C 4C 20 43 48 45 43 4B  |."....E'LL CHECK|
00000630: 20 54 48 41 54 20 54 48  45 20 41 42 4F 56 45 20  | THAT THE ABOVE |
00000640: 42 4C 4F 43 4B 53 22 00  0E 3B 66 30 99 22 11 41  |BLOCKS"..;f0.".A|
00000650: 52 45 20 C6 D2 C5 C5 20  42 59 20 4C 4F 4F 4B 49  |RE .... BY LOOKI|
00000660: 4E 47 20 41 54 20 54 48  45 20 C2 C1 CD 2E 11 22  |NG AT THE ....."|
00000670: 00 3D 3B 70 30 99 22 11  D4 48 45 20 54 52 41 43  |.=;p0."..HE TRAC|
00000680: 4B 2F 53 45 43 54 4F 52  53 20 46 4F 52 20 54 48  |K/SECTORS FOR TH|
00000690: 45 20 46 49 4C 45 20 57  49 4C 4C 20 42 45 22 00  |E FILE WILL BE".|
000006A0: 67 3B 7A 30 99 22 11 44  49 53 50 4C 41 59 45 44  |g;z0.".DISPLAYED|
000006B0: 2E 20 C9 46 20 41 20 42  4C 4F 43 4B 20 49 53 20  |. .F A BLOCK IS |
000006C0: 4F 43 43 55 50 49 45 44  22 00 91 3B 84 30 99 22  |OCCUPIED"..;.0."|
000006D0: 11 54 48 45 20 D5 CE D3  C3 D2 C1 D4 C3 C8 20 57  |.THE ......... W|
000006E0: 49 4C 4C 20 4E 4F 54 20  57 4F 52 4B 21 22 3A 8D  |ILL NOT WORK!":.|
000006F0: 33 30 30 00 C2 3B 85 30  A0 31 35 3A 9F 31 35 2C  |300..;.0.15:.15,|
00000700: 38 2C 31 35 2C 22 49 22  AA 44 52 24 3A 8D 36 33  |8,15,"I".DR$:.63|
00000710: 39 30 30 3A 99 22 93 22  3A 8D 35 38 30 32 30 3A  |900:.".":.58020:|
00000720: 4B 31 B2 31 00 DC 3B 86  30 9F 32 2C 38 2C 32 2C  |K1.1..;.0.2,8,2,|
00000730: 22 24 22 AA 44 52 24 3A  8D 36 33 39 30 30 00 F6  |"$".DR$:.63900..|
00000740: 3B 87 30 96 20 A5 42 28  49 29 B2 28 5A AF 50 28  |;.0. .B(I).(Z.P(|
00000750: 49 29 29 AD 50 28 49 29  00 12 3C 88 30 46 46 B2  |I)).P(I)..<.0FF.|
00000760: 44 31 AA 28 54 28 4B 31  29 AB 31 29 AC 53 33 3A  |D1.(T(K1).1).S3:|
00000770: 50 50 B2 30 00 28 3C 89  30 81 4B 32 B2 30 A4 46  |PP.0.(<.0.K2.0.F|
00000780: 46 3A A1 23 32 2C 41 24  3A 82 00 45 3C 98 30 54  |F:.#2,A$:..E<.0T|
00000790: B2 54 28 4B 31 29 3A 99  22 93 22 3A 8D 36 34 30  |.T(K1):.".":.640|
000007A0: 30 3A 8D 36 35 38 30 00  69 3C A2 30 99 53 44 24  |0:.6580.i<.0.SD$|
000007B0: 22 43 48 45 43 4B 20 54  48 41 54 20 54 48 45 20  |"CHECK THAT THE |
000007C0: 46 4F 4C 4C 4F 57 49 4E  47 20 22 00 84 3C A7 30  |FOLLOWING "..<.0|
000007D0: 99 22 11 53 45 43 54 4F  52 53 20 41 52 45 20 46  |.".SECTORS ARE F|
000007E0: 52 45 45 3D D7 22 00 B8  3C AC 30 81 4B 32 B2 31  |REE=."..<.0.K2.1|
000007F0: A4 4E 39 3A 8B 54 28 4B  32 29 B2 54 A7 99 52 24  |.N9:.T(K2).T..R$|
00000800: 28 50 50 29 CA 28 C4 28  53 28 4B 32 29 29 2C 32  |(PP).(.(S(K2)),2|
00000810: 29 52 24 28 31 AB 50 50  29 3B 00 C8 3C B1 30 50  |)R$(1.PP);..<.0P|
00000820: 50 B2 31 AB 50 50 3A 82  3A 99 00 D9 3C B6 30 99  |P.1.PP:.:...<.0.|
00000830: 22 11 4F 4B 3F 22 3A 8D  33 31 30 00 04 3D BB 30  |".OK?":.310..=.0|
00000840: 8B 49 4E 24 B3 B1 22 59  22 A7 99 22 93 53 4F 52  |.IN$.."Y"..".SOR|
00000850: 52 59 2E 2E 22 3A 8D 35  38 30 31 30 3A 8D 33 30  |RY..":.58010:.30|
00000860: 30 3A A0 32 3A 8E 00 18  3D C0 30 A0 32 3A 8B 4B  |0:.2:...=.0.2:.K|
00000870: 31 B1 4E 39 A7 A0 31 35  3A 8E 00 33 3D CA 30 4B  |1.N9..15:..3=.0K|
00000880: 31 B2 4B 31 AA 31 3A 8B  54 28 4B 31 29 B2 30 A7  |1.K1.1:.T(K1).0.|
00000890: 31 32 36 30 30 00 46 3D  D4 30 8B 54 28 4B 31 29  |12600.F=.0.T(K1)|
000008A0: B2 54 A7 31 32 34 39 30  00 51 3D D9 30 89 31 32  |.T.12490.Q=.0.12|
000008B0: 34 32 32 00 61 3D 38 31  99 22 93 22 3A 8D 35 38  |422.a=81.".":.58|
000008C0: 30 31 30 00 91 3D 42 31  99 22 CE 4F 57 20 4D 4F  |010..=B1.".OW MO|
000008D0: 44 49 46 59 20 54 48 45  20 12 4D 41 47 49 43 20  |DIFY THE .MAGIC |
000008E0: 42 59 54 45 92 20 4F 4E  20 44 49 52 45 43 54 4F  |BYTE. ON DIRECTO|
000008F0: 52 59 22 00 AC 3D 4C 31  99 22 11 D4 52 41 43 4B  |RY"..=L1."..RACK|
00000900: 22 54 30 22 20 D3 45 43  54 4F 52 22 53 30 00 DD  |"T0" .ECTOR"S0..|
00000910: 3D 56 31 99 22 11 D4 48  45 4E 20 D7 52 49 54 45  |=V1."..HEN .RITE|
00000920: 20 54 48 45 20 42 4C 4F  43 4B 20 42 41 43 4B 20  | THE BLOCK BACK |
00000930: 54 4F 20 28 22 54 30 22  2C 22 53 30 22 29 22 00  |TO ("T0","S0")".|
00000940: 02 3E 60 31 99 22 11 C6  49 4E 41 4C 4C 59 20 12  |.>`1."..INALLY .|
00000950: D6 41 4C 49 44 41 54 45  92 20 54 48 45 20 44 49  |.ALIDATE. THE DI|
00000960: 53 4B 21 22 00 0D 3E 6A  31 8D 33 30 30 3A 8E 00  |SK!"..>j1.300:..|
00000970: 1B 3E C8 32 54 B2 54 31  3A 53 B2 53 31 00 27 3E  |.>.2T.T1:S.S1.'>|
00000980: C9 32 81 4A B2 31 A4 42  30 00 5F 3E CD 32 A0 33  |.2.J.1.B0._>.2.3|
00000990: 3A A0 31 35 3A 9F 31 35  2C 38 2C 31 35 3A 9F 33  |:.15:.15,8,15:.3|
000009A0: 2C 38 2C 33 2C 22 23 22  3A 8D 36 33 39 30 30 3A  |,8,3,"#":.63900:|
000009B0: A1 23 33 2C 42 4E 24 3A  42 4E B2 C6 28 42 4E 24  |.#3,BN$:BN..(BN$|
000009C0: 29 00 70 3E D2 32 42 4E  24 B2 CA 28 42 4E 24 2C  |).p>.2BN$..(BN$,|
000009D0: 32 29 00 95 3E DC 32 99  3A 99 22 28 22 54 22 2C  |2)..>.2.:."("T",|
000009E0: 22 53 22 29 5F 20 C6 C9  D2 D3 D4 20 C2 CC CF C3  |"S")_ ..... ....|
000009F0: CB 22 3A 4E 39 B2 31 00  AC 3E E6 32 98 31 35 2C  |.":N9.1..>.2.15,|
00000A00: 22 42 2D 52 22 3B 33 3B  44 52 3B 54 3B 53 00 BE  |"B-R";3;DR;T;S..|
00000A10: 3E F0 32 98 31 35 2C 22  42 2D 50 22 3B 33 3B 30  |>.2.15,"B-P";3;0|
00000A20: 00 D8 3E FA 32 A1 23 33  2C 5A 24 3A 8B 5A 24 B2  |..>.2.#3,Z$:.Z$.|
00000A30: 22 22 A7 5A 24 B2 C7 28  30 29 00 EE 3E 04 33 54  |"".Z$..(0)..>.3T|
00000A40: B2 C6 28 5A 24 29 3A 8B  54 B2 30 A7 37 32 30 30  |..(Z$):.T.0.7200|
00000A50: 00 08 3F 0E 33 A1 23 33  2C 5A 24 3A 8B 5A 24 B2  |..?.3.#3,Z$:.Z$.|
00000A60: 22 22 A7 5A 24 B2 C7 28  30 29 00 14 3F 18 33 53  |"".Z$..(0)..?.3S|
00000A70: B2 C6 28 5A 24 29 00 32  3F 22 33 54 24 B2 CA 28  |..(Z$).2?"3T$..(|
00000A80: C4 28 54 29 2C 32 29 3A  53 24 B2 CA 28 C4 28 53  |.(T),2):S$..(.(S|
00000A90: 29 2C 32 29 00 46 3F 2C  33 99 22 28 22 54 24 22  |),2).F?,3."("T$"|
00000AA0: 2C 22 53 24 22 29 22 3B  00 4C 3F 36 33 82 00 62  |,"S$")";.L?63..b|
00000AB0: 3F 40 33 99 22 5F 20 CC  C1 D3 D4 20 C2 CC CF C3  |?@3."_ .... ....|
00000AC0: CB 11 11 22 00 79 3F 4A  33 99 4E 39 22 20 42 4C  |...".y?J3.N9" BL|
00000AD0: 4F 43 4B 53 11 22 3A 8D  33 30 30 00 8A 3F F7 33  |OCKS.":.300..?.3|
00000AE0: 42 4E 24 B2 CA 28 42 4E  24 2C 32 29 00 AF 3F F8  |BN$..(BN$,2)..?.|
00000AF0: 33 99 3A 99 22 28 22 54  22 2C 22 53 22 29 5F 20  |3.:."("T","S")_ |
00000B00: C6 C9 D2 D3 D4 20 C2 CC  CF C3 CB 22 3A 4E 39 B2  |..... .....":N9.|
00000B10: 31 00 C5 3F 50 C3 8F 20  42 41 43 4B 55 50 20 42  |1..?P.. BACKUP B|
00000B20: 59 20 42 4C 4F 43 4B 00  DB 3F 51 C3 8F 22 B8 B8  |Y BLOCK..?Q.."..|
00000B30: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 00 FF 3F  |...............?|
00000B40: 5A C3 85 22 93 11 11 11  46 52 4F 4D 20 44 52 49  |Z.."....FROM DRI|
00000B50: 56 45 22 3B 46 44 24 3A  46 44 B2 C5 28 46 44 24  |VE";FD$:FD..(FD$|
00000B60: 29 00 1F 40 64 C3 85 22  11 11 54 4F 20 44 52 49  |)..@d.."..TO DRI|
00000B70: 56 45 22 3B 54 44 24 3A  54 44 B2 C5 28 54 44 24  |VE";TD$:TD..(TD$|
00000B80: 29 00 4B 40 69 C3 A0 33  3A A0 31 35 3A 9F 31 35  |).K@i..3:.15:.15|
00000B90: 2C 38 2C 31 35 3A 98 31  35 2C 22 49 22 AA 46 44  |,8,15:.15,"I".FD|
00000BA0: 24 3A 98 31 35 2C 22 49  22 AA 54 44 24 00 6C 40  |$:.15,"I".TD$.l@|
00000BB0: 6E C3 9F 33 2C 38 2C 33  2C 22 23 22 3A A1 23 33  |n..3,8,3,"#":.#3|
00000BC0: 2C 42 46 24 3A 42 46 B2  C6 28 42 46 24 29 00 77  |,BF$:BF..(BF$).w|
00000BD0: 40 6F C3 8D 36 33 39 30  30 00 B7 40 91 C3 85 22  |@o..63900..@..."|
00000BE0: 11 11 53 54 41 52 54 20  41 54 20 54 52 41 43 4B  |..START AT TRACK|
00000BF0: 20 20 20 31 9D 9D 9D 22  3B 54 38 3A 85 22 11 11  |   1...";T8:."..|
00000C00: 45 4E 44 20 41 54 20 54  52 41 43 4B 20 20 20 33  |END AT TRACK   3|
00000C10: 35 9D 9D 9D 9D 22 3B 54  39 00 C4 40 96 C3 81 54  |5....";T9..@...T|
00000C20: B2 54 38 A4 54 39 00 D6  40 97 C3 8B 20 54 B1 30  |.T8.T9..@... T.0|
00000C30: 20 A7 20 53 39 B2 32 30  00 E9 40 98 C3 8B 20 54  | . S9.20..@... T|
00000C40: B1 31 37 20 A7 20 53 39  B2 31 38 00 FC 40 99 C3  |.17 . S9.18..@..|
00000C50: 8B 20 54 B1 32 34 20 A7  20 53 39 B2 31 37 00 0F  |. T.24 . S9.17..|
00000C60: 41 9A C3 8B 20 54 B1 33  30 20 A7 20 53 39 B2 31  |A... T.30 . S9.1|
00000C70: 36 00 44 41 9B C3 81 53  B2 30 A4 53 39 3A 99 22  |6.DA...S.0.S9:."|
00000C80: 93 54 52 41 43 4B 20 20  20 20 20 9D 9D 9D 9D 9D  |.TRACK     .....|
00000C90: 22 54 22 20 53 45 43 54  4F 52 20 20 20 20 20 9D  |"T" SECTOR     .|
00000CA0: 9D 9D 9D 9D 22 53 00 5B  41 A0 C3 98 31 35 2C 22  |...."S.[A...15,"|
00000CB0: 42 2D 52 22 3B 33 3B 46  44 3B 54 3B 53 00 72 41  |B-R";3;FD;T;S.rA|
00000CC0: AA C3 98 31 35 2C 22 55  32 3A 22 3B 33 3B 54 44  |...15,"U2:";3;TD|
00000CD0: 3B 54 3B 53 00 7D 41 B4  C3 8D 36 33 39 30 30 00  |;T;S.}A...63900.|
00000CE0: 9A 41 BE C3 82 3A 82 3A  98 31 35 2C 22 49 22 AA  |.A...:.:.15,"I".|
00000CF0: 54 44 24 3A A0 33 3A A0  31 35 3A 8E 00 B1 41 90  |TD$:.3:.15:...A.|
00000D00: E2 8F 20 55 50 50 45 52  2F 4C 4F 57 45 52 20 43  |.. UPPER/LOWER C|
00000D10: 41 53 45 00 CA 41 9A E2  8B 43 50 24 B2 22 43 36  |ASE..A...CP$."C6|
00000D20: 34 22 A7 99 C7 28 31 34  29 3B 3A 8E 00 DA 41 9B  |4"...(14);:...A.|
00000D30: E2 97 35 39 34 36 38 2C  31 34 3A 8E 00 F4 41 A4  |..59468,14:...A.|
00000D40: E2 8B 43 50 24 B2 22 43  36 34 22 A7 99 C7 28 31  |..CP$."C64"...(1|
00000D50: 34 32 29 3B 3A 8E 00 04  42 A5 E2 97 35 39 34 36  |42);:...B...5946|
00000D60: 38 2C 31 32 3A 8E 00 40  42 78 E6 53 44 B2 35 34  |8,12:..@Bx.SD.54|
00000D70: 32 37 32 3A 81 49 B2 30  A4 32 34 3A 97 53 44 AA  |272:.I.0.24:.SD.|
00000D80: 49 2C 30 3A 82 3A 97 53  44 AA 36 2C 32 34 30 3A  |I,0:.:.SD.6,240:|
00000D90: 97 53 44 AA 31 2C 35 30  3A 97 53 44 AA 32 34 2C  |.SD.1,50:.SD.24,|
00000DA0: 31 35 00 58 42 82 E6 50  41 B2 53 44 AA 34 3A 4F  |15.XB..PA.SD.4:O|
00000DB0: 30 B2 33 33 3A 4F 31 B2  33 32 00 90 42 8C E6 8B  |0.33:O1.32..B...|
00000DC0: 43 50 24 B2 22 50 45 54  22 A7 97 35 39 34 36 37  |CP$."PET"..59467|
00000DD0: 2C 31 36 3A 97 35 39 34  36 36 2C 31 35 3A 50 41  |,16:.59466,15:PA|
00000DE0: B2 35 39 34 01 08 13 08  64 00 8F 3A 4C 4F 43 4B  |.594....d..:LOCK|
00000DF0: 2F 55 4E 4C 4F 43 4B 00  19 08 6E 00 3A 00 29 08  |/UNLOCK...n.:.).|
00000E00: 22 01 44 49 B2 31 38 3A  41 42 B2 31 39 00 51 08  |".DI.18:AB.19.Q.|
00000E10: 2C 01 99 22 93 22 A3 31  30 29 22 2A 2A 2A 20 12  |,..".".10)"*** .|
00000E20: 4C 4F 43 4B 20 2D 20 55  4E 4C 4F 43 4B 92 20 2A  |LOCK - UNLOCK. *|
00000E30: 2A 2A 11 11 22 00 74 08  36 01 85 22 12 4C 92 4F  |**..".t.6..".L.O|
00000E40: 43 4B 20 4F 52 20 12 55  92 4E 4C 4F 43 4B 20 20  |CK OR .U.NLOCK  |
00000E50: 4C 9D 9D 9D 22 3B 43 24  00 8D 08 40 01 43 24 B2  |L...";C$...@.C$.|
00000E60: C8 28 43 24 2C 31 29 3A  41 4B 24 B2 C7 28 33 34  |.(C$,1):AK$..(34|
00000E70: 29 00 A6 08 4A 01 8B 43  24 B3 B1 22 4C 22 AF 43  |)...J..C$.."L".C|
00000E80: 24 B3 B1 22 55 22 A7 33  30 30 00 BA 08 54 01 99  |$.."U".300...T..|
00000E90: 22 91 22 3B A3 31 36 29  3B 3A 4F 53 B2 30 00 E1  |".";.16);:OS.0..|
00000EA0: 08 5E 01 8B 43 24 B2 22  4C 22 A7 41 43 24 B2 22  |.^..C$."L".AC$."|
00000EB0: 4C 4F 43 4B 22 3A 99 41  43 24 3A 4F 53 B2 36 34  |LOCK":.AC$:OS.64|
00000EC0: 3A 89 33 37 30 00 F7 08  68 01 41 43 24 B2 22 55  |:.370...h.AC$."U|
00000ED0: 4E 4C 4F 43 4B 22 3A 99  41 43 24 00 04 09 72 01  |NLOCK":.AC$...r.|
00000EE0: 4F 31 B2 36 34 AB 4F 53  00 20 09 7C 01 85 22 11  |O1.64.OS. .|..".|
00000EF0: 57 48 49 43 48 20 46 49  4C 45 20 20 2A 9D 9D 9D  |WHICH FILE  *...|
00000F00: 22 3B 46 24 00 38 09 86  01 8B 46 24 B2 22 2A 22  |";F$.8....F$."*"|
00000F10: A7 99 22 91 91 22 3B 3A  89 33 38 30 00 40 09 90  |.."..";:.380.@..|
00000F20: 01 44 B2 30 00 63 09 A4  01 85 22 11 54 59 50 45  |.D.0.c....".TYPE|
00000F30: 20 4F 46 20 46 49 4C 45  20 20 50 52 47 9D 9D 9D  | OF FILE  PRG...|
00000F40: 9D 9D 22 3B 54 59 24 00  A4 09 AE 01 54 59 B2 31  |..";TY$.....TY.1|
00000F50: 32 38 AB 28 54 59 24 B2  22 53 45 51 22 29 AB 32  |28.(TY$."SEQ").2|
00000F60: AC 28 54 59 24 B2 22 50  52 47 22 29 AB 33 AC 28  |.(TY$."PRG").3.(|
00000F70: 54 59 24 B2 22 55 53 52  22 29 AB 34 AC 28 54 59  |TY$."USR").4.(TY|
00000F80: 24 B2 22 52 45 4C 22 29  00 BB 09 C2 01 8B 54 59  |$."REL")......TY|
00000F90: B2 31 32 38 A7 99 22 91  22 3B 3A 89 34 32 30 00  |.128..".";:.420.|
00000FA0: C1 09 CC 01 3A 00 DD 09  EA 01 9F 31 35 2C 38 2C  |....:......15,8,|
00000FB0: 31 35 3A 4E 4C 24 B2 C7  28 30 29 3A 4E 24 B2 46  |15:NL$..(0):N$.F|
00000FC0: 24 00 F3 09 F4 01 9F 32  2C 38 2C 32 2C 22 23 22  |$......2,8,2,"#"|
00000FD0: 3A A1 23 32 2C 41 24 00  18 0A 1C 02 99 22 11 4C  |:.#2,A$......".L|
00000FE0: 4F 4F 4B 20 46 4F 52 20  22 54 59 24 22 20 46 49  |OOK FOR "TY$" FI|
00000FF0: 4C 45 20 22 41 4B 24 46  24 41 4B 24 00 24 0A 30  |LE "AK$F$AK$.$.0|
00001000: 02 81 53 B2 31 A4 41 42  00 3B 0A 58 02 98 31 35  |..S.1.AB.;.X..15|
00001010: 2C 22 55 31 3A 22 3B 32  3B 30 3B 44 49 3B 53 00  |,"U1:";2;0;DI;S.|
00001020: 46 0A 62 02 81 49 B2 30  A4 37 00 60 0A 6C 02 98  |F.b..I.0.7.`.l..|
00001030: 31 35 2C 22 42 2D 50 3A  22 3B 32 3B 28 32 AA 33  |15,"B-P:";2;(2.3|
00001040: 32 AC 49 29 00 6C 0A 76  02 A1 23 32 2C 46 54 24  |2.I).l.v..#2,FT$|
00001050: 00 80 0A 80 02 8B 46 54  24 B2 22 22 A7 46 54 24  |......FT$."".FT$|
00001060: B2 4E 4C 24 00 9D 0A 8A  02 46 54 B2 C6 28 46 54  |.NL$.....FT..(FT|
00001070: 24 29 3A 8B 46 54 B3 B1  54 59 AA 4F 31 A7 37 37  |$):.FT..TY.O1.77|
00001080: 30 00 C6 0A B2 02 48 24  B2 22 A0 A0 A0 A0 A0 A0  |0.....H$."......|
00001090: A0 A0 A0 A0 A0 A0 A0 A0  A0 A0 22 3A 46 24 B2 C8  |..........":F$..|
000010A0: 28 46 24 AA 48 24 2C 31  36 29 00 E0 0A BC 02 98  |(F$.H$,16)......|
000010B0: 31 35 2C 22 42 2D 50 3A  22 3B 32 3B 28 35 AA 33  |15,"B-P:";2;(5.3|
000010C0: 32 AC 49 29 00 EA 0A C6  02 57 24 B2 22 22 00 F6  |2.I).....W$.""..|
000010D0: 0A D0 02 81 51 B2 31 A4  31 36 00 0F 0B DA 02 A1  |....Q.1.16......|
000010E0: 23 32 2C 41 24 3A 8B 41  24 B2 22 22 A7 41 24 B2  |#2,A$:.A$."".A$.|
000010F0: 4E 4C 24 00 1C 0B E4 02  57 24 B2 57 24 AA 41 24  |NL$.....W$.W$.A$|
00001100: 00 23 0B EE 02 82 51 00  32 0B F8 02 8B 46 24 B2  |.#....Q.2....F$.|
00001110: 57 24 A7 38 30 30 00 39  0B 02 03 82 49 00 6C 0B  |W$.800.9....I.l.|
00001120: 0C 03 82 53 3A 99 22 11  11 22 54 59 24 22 20 46  |...S:.".."TY$" F|
00001130: 49 4C 45 20 22 41 4B 24  4E 24 41 4B 24 22 20 12  |ILE "AK$N$AK$" .|
00001140: 4E 4F 54 20 46 4F 55 4E  44 92 22 3A 89 39 34 30  |NOT FOUND.":.940|
00001150: 00 8B 0B 20 03 99 22 11  46 4F 55 4E 44 3A 20 22  |... ..".FOUND: "|
00001160: 41 4B 24 4E 24 41 4B 24  22 20 2C 22 41 43 24 00  |AK$N$AK$" ,"AC$.|
00001170: 99 0B 48 03 49 31 B2 49  3A 53 31 B2 53 00 B2 0B  |..H.I1.I:S1.S...|
00001180: 7A 03 98 31 35 2C 22 42  2D 52 3A 22 3B 32 3B 30  |z..15,"B-R:";2;0|
00001190: 3B 44 49 3B 53 31 00 CD  0B 84 03 98 31 35 2C 22  |;DI;S1......15,"|
000011A0: 42 2D 50 3A 22 3B 32 3B  28 32 AA 33 32 AC 49 31  |B-P:";2;(2.32.I1|
000011B0: 29 00 DE 0B 8E 03 98 32  2C C7 28 54 59 AA 4F 53  |)......2,.(TY.OS|
000011C0: 29 3B 00 F6 0B 98 03 98  31 35 2C 22 55 32 3A 22  |);......15,"U2:"|
000011D0: 3B 32 3B 30 3B 44 49 3B  53 31 00 01 0C AC 03 A0  |;2;0;DI;S1......|
000011E0: 32 3A A0 31 35 00 00 00                           |2:.15...        |

....D..T$(4).3.N.."DISK FILE LOG - JIM B
UTTERFIELD".?...C$.G(0).G.... 169,0, 162
,4, 149,98, 202, 16,251...... 169,160, 1
33,97, 162,2, 32,198,255...... 230,101, 
208,10, 230,100, 208,6, 230,99...... 208
,2, 230,98, 32,228,255, 165,144... .. 24
0,235, 32,204,255, 198,97.7.... 6,101, 3
8,100, 38,99, 38,98, 16,244, 96.U.... 16
9,0, 133,139, 133,140.S.... 230,139, 208
,2, 230,140. .... 162,15, 32,201,255, 16
9,80, 32,210,255.M.H.. 169,4, 32,210,255
, 165,139, 32,210,255...M.. 165,140, 32,
210,255...R.. 169,1, 32,210,255, 32,204,
255.0.W.. 162,15, 32,198,255, 32,228,255
._.... 72, 32,204,255, 104, 201,48, 240,
200, 96.....J.860.977:.X:T.T.X:.J,X:.J.
..... T..16312 . ....... "XXX","SEQ","PR
G","USR","REL".J....J.0.4:.T$(J):.......
"PRINTER";Z$.....Z.3:.F(Z$).89.Z.4:."DAT
E";D$...".U.8:. UNIT 8. .,.D.0:. DRIVE 0
.@.J..4,Z:.1,U,15,"I".G(D.48): 1.[.T.G$.
"                 ".H.^..15,U,15..H..1,
U,3,"$".G(D.48)...R..#1,A$:A.F(A$." ")..
.|..A.1.A.65.L1.141:L2.89:.410.Q....A.67
.L1.3:L2.735:....._.....................
........Y|..PQ..2):B0.C(D.28).C(D.29).25
6:.58010..8.0."....DIRECTORY BLOCK COUNT
="B0:N9.1:.S0$..9.0 3: 15:.15,8,15:.3,8,
3,"#":.63900:.#3,BN$:BN.F(BN$).89.0T(N9)
.T:S(N9).S:N9.N9.1.O9.0.15,"B-R";3;DR;T;
S.A9.0.15,"B-P";3;0.{9.0.#3,Z$:.Z$."".Z$
.G(0)..9.0T(N9).F(Z$):.T(N9).0.12314..9.
0.#3,Z$:.Z$."".Z$.G(0).D9.0S(N9).F(Z$)..
9.0T$.J(D(T),2):S$.J(D(S),2)..9.0."("T$"
,"S$")";..:.0T.T(N9):S.S(N9):N9.N9.1:.12
305.':.0N9.N9.1:..=:.0.".."N9" BLOCKS.".
S:>0.N9..B0.."..**.INCORRECT BLOCK COUNT
.**..":.300:...:H0.".LOOKS GOOD SO FAR."
..:R0.".SHALL WE PROCEED?":.310:.IN$.."Y
"....:\0."...WE'LL CHECK THAT THE ABOVE 
BLOCKS"..;F0.".ARE FREE BY LOOKING AT TH
E BAM..".=;P0.".THE TRACK/SECTORS FOR TH
E FILE WILL BE".G;Z0.".DISPLAYED. IF A B
LOCK IS OCCUPIED"..;.0.".THE UNSCRATCH W
ILL NOT WORK!":.300.B;.0 15:.15,8,15,"I"
.DR$:.63900:.".":.58020:K1.1..;.0.2,8,2,
"$".DR$:.63900..;.0. .B(I).(Z.P(I)).P(I)
..<.0FF.D1.(T(K1).1).S3:PP.0.(<.0.K2.0.F
F:.#2,A$:..E<.0T.T(K1):.".":.6400:.6580.
I<.0.SD$"CHECK THAT THE FOLLOWING "..<.0
.".SECTORS ARE FREE=W"..<.0.K2.1.N9:.T(K
2).T..R$(PP)J(D(S(K2)),2)R$(1.PP);.H<.0P
P.1.PP:.:..Y<.0.".OK?":.310..=.0.IN$.."Y
"..".SORRY..":.58010:.300: 2:...=.0 2:.K
1.N9. 15:..3=J0K1.K1.1:.T(K1).0.12600.F=
T0.T(K1).T.12490.Q=Y0.12422.A=81.".":.58
010..=B1."NOW MODIFY THE .MAGIC BYTE. ON
 DIRECTORY"..=L1.".TRACK"T0" SECTOR"S0..
=V1.".THEN WRITE THE BLOCK BACK TO ("T0"
,"S0")"..>`1.".FINALLY .VALIDATE. THE DI
SK!"..>J1.300:...>H2T.T1:S.S1.'>I2.J.1.B
0._>M2 3: 15:.15,8,15:.3,8,3,"#":.63900:
.#3,BN$:BN.F(BN$).P>R2BN$.J(BN$,2)..>.2.
:."("T","S")_ FIRST BLOCK":N9.1..>.2.15,
"B-R";3;DR;T;S..>.2.15,"B-P";3;0.X>.2.#3
,Z$:.Z$."".Z$.G(0)..>.3T.F(Z$):.T.0.7200
..?.3.#3,Z$:.Z$."".Z$.G(0)..?.3S.F(Z$).2
?"3T$.J(D(T),2):S$.J(D(S),2).F?,3."("T$"
,"S$")";.L?63..B?@3."_ LAST BLOCK..".Y?J
3.N9" BLOCKS.":.300..?.3BN$.J(BN$,2)..?.
3.:."("T","S")_ FIRST BLOCK":N9.1.E?PC. 
BACKUP BY BLOCK..?QC.".................?
ZC."....FROM DRIVE";FD$:FD.E(FD$)..@DC."
..TO DRIVE";TD$:TD.E(TD$).K@IC 3: 15:.15
,8,15:.15,"I".FD$:.15,"I".TD$.L@NC.3,8,3
,"#":.#3,BF$:BF.F(BF$).W@OC.63900..@.C."
..START AT TRACK   1...";T8:."..END AT T
RACK   35....";T9.D@.C.T.T8.T9.V@.C. T.0
 . S9.20..@.C. T.17 . S9.18..@.C. T.24 .
 S9.17..A.C. T.30 . S9.16.DA.C.S.0.S9:."
.TRACK     ....."T" SECTOR     ....."S.[
A C.15,"B-R";3;FD;T;S.RA.C.15,"U2:";3;TD
;T;S.}A.C.63900..A.C.:.:.15,"I".TD$: 3: 
15:...A... UPPER/LOWER CASE.JA...CP$."C6
4"..G(14);:..ZA...59468,14:...A...CP$."C
64"..G(142);:...B...59468,12:..@BX.SD.54
272:.I.0.24:.SD.I,0:.:.SD.6,240:.SD.1,50
:.SD.24,15.XB..PA.SD.4:O0.33:O1.32..B...
CP$."PET"..59467,16:.59466,15:PA.594....
D..:LOCK/UNLOCK...N.:.).".DI.18:AB.19.Q.
,..".".10)"*** .LOCK - UNLOCK. ***..".T.
6..".L.OCK OR .U.NLOCK  L...";C$...@.C$.
H(C$,1):AK$.G(34)...J..C$.."L".C$.."U".3
00...T..".";.16);:OS.0...^..C$."L".AC$."
LOCK":.AC$:OS.64:.370...H.AC$."UNLOCK":.
AC$...R.O1.64.OS. .|..".WHICH FILE  *...
";F$.8....F$."*".."..";:.380.@...D.0.C..
..".TYPE OF FILE  PRG.....";TY$.....TY.1
28.(TY$."SEQ").2.(TY$."PRG").3.(TY$."USR
").4.(TY$."REL")...B..TY.128..".";:.420.
A.L.:......15,8,15:NL$.G(0):N$.F$......2
,8,2,"#":.#2,A$......".LOOK FOR "TY$" FI
LE "AK$F$AK$.$.0..S.1.AB.;.X..15,"U1:";2
;0;DI;S.F.B..I.0.7.`.L..15,"B-P:";2;(2.3
2.I).L.V..#2,FT$......FT$."".FT$.NL$....
.FT.F(FT$):.FT..TY.O1.770.F...H$."      
          ":F$.H(F$.H$,16)......15,"B-P:
";2;(5.32.I)...F.W$.""...P..Q.1.16...Z..
#2,A$:.A$."".A$.NL$.....W$.W$.A$.#....Q.
2....F$.W$.800.9....I.L....S:.".."TY$" F
ILE "AK$N$AK$" .NOT FOUND.":.940... ..".
FOUND: "AK$N$AK$" ,"AC$...H.I1.I:S1.S...
Z..15,"B-R:";2;0;DI;S1.M....15,"B-P:";2;
(2.32.I1)......2,G(TY.OS);......15,"U2:"
;2;0;DI;S1..... 2: 15...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL