DISK EDITOR II

00000000: 01 08 1B 08 01 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 00 35 08 02 00  |***********.5...|
00000020: 8F 20 2A 20 20 20 20 45  44 49 54 4F 52 20 36 34  |. *    EDITOR 64|
00000030: 20 20 20 20 2A 00 4F 08  03 00 8F 20 2A 20 20 20  |    *.O.... *   |
00000040: 20 20 20 20 20 42 59 20  20 20 20 20 20 20 2A 00  |     BY       *.|
00000050: 69 08 04 00 8F 20 2A 20  20 43 48 52 49 53 20 4C  |i.... *  CHRIS L|
00000060: 41 4D 50 54 4F 4E 20 20  2A 00 83 08 05 00 8F 20  |AMPTON  *...... |
00000070: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000080: 2A 2A 2A 00 89 08 06 00  8F 00 B1 08 07 00 8F 20  |***............ |
00000090: 52 55 4E 20 4D 41 47 41  5A 49 4E 45 2C 20 41 50  |RUN MAGAZINE, AP|
000000A0: 52 49 4C 20 31 39 38 34  2C 20 50 41 47 45 20 37  |RIL 1984, PAGE 7|
000000B0: 30 00 B7 08 08 00 8F 00  DC 08 0A 00 8F 20 31 53  |0............ 1S|
000000C0: 54 20 42 59 54 45 20 50  52 45 43 45 45 44 49 4E  |T BYTE PRECEEDIN|
000000D0: 47 20 46 49 4C 45 20 4E  41 4D 45 3A 00 F4 08 0B  |G FILE NAME:....|
000000E0: 00 8F 20 20 20 20 20 24  30 30 20 2D 20 44 45 4C  |..     $00 - DEL|
000000F0: 45 54 45 44 00 0F 09 0C  00 8F 20 20 20 20 20 24  |ETED......     $|
00000100: 38 31 20 2D 20 53 45 51  55 45 4E 54 49 41 4C 00  |81 - SEQUENTIAL.|
00000110: 27 09 0D 00 8F 20 20 20  20 20 24 38 32 20 2D 20  |'....     $82 - |
00000120: 50 52 4F 47 52 41 4D 00  3C 09 0E 00 8F 20 20 20  |PROGRAM.<....   |
00000130: 20 20 24 38 33 20 2D 20  55 53 45 52 00 55 09 0F  |  $83 - USER.U..|
00000140: 00 8F 20 20 20 20 20 24  38 34 20 2D 20 52 45 4C  |..     $84 - REL|
00000150: 41 54 49 56 45 00 5B 09  10 00 8F 00 74 09 12 00  |ATIVE.[.....t...|
00000160: 86 20 53 25 28 33 35 29  2C 42 24 28 31 29 3A 89  |. S%(35),B$(1):.|
00000170: 20 38 30 30 00 85 09 13  00 99 C7 28 31 34 37 29  | 800.......(147)|
00000180: 3A 8D 36 38 30 00 9D 09  14 00 9F 31 35 2C 38 2C  |:.680......15,8,|
00000190: 31 35 3A 9F 35 2C 38 2C  35 2C 22 23 22 00 D7 09  |15:.5,8,5,"#"...|
000001A0: 1E 00 99 C7 28 31 34 37  29 3B 3A 4E B2 31 31 3A  |....(147);:N.11:|
000001B0: 43 48 B2 31 37 3A 8D 37  30 30 3A 4E B2 33 3A 43  |CH.17:.700:N.3:C|
000001C0: 48 B2 32 39 3A 8D 37 30  30 3A 99 22 54 52 41 43  |H.29:.700:."TRAC|
000001D0: 4B 22 3B 3A 85 54 24 00  07 0A 23 00 4E B2 33 3A  |K";:.T$...#.N.3:|
000001E0: 43 48 B2 32 39 3A 8D 37  30 30 3A 99 22 53 45 43  |CH.29:.700:."SEC|
000001F0: 54 4F 52 22 3B 3A 85 53  24 3A 58 B2 30 3A 54 46  |TOR";:.S$:X.0:TF|
00000200: B2 30 3A 53 46 B2 30 00  2E 0A 28 00 8B C8 28 54  |.0:SF.0...(...(T|
00000210: 24 2C 31 29 B2 22 24 22  A7 48 58 24 B2 54 24 3A  |$,1)."$".HX$.T$:|
00000220: 8D 34 38 30 3A 54 B2 44  43 3A 54 46 B2 31 00 55  |.480:T.DC:TF.1.U|
00000230: 0A 32 00 8B C8 28 53 24  2C 31 29 B2 22 24 22 A7  |.2...(S$,1)."$".|
00000240: 48 58 24 B2 53 24 3A 8D  34 38 30 3A 53 B2 44 43  |HX$.S$:.480:S.DC|
00000250: 3A 53 46 B2 31 00 67 0A  3C 00 8B 53 46 B2 30 A7  |:SF.1.g.<..SF.0.|
00000260: 53 B2 C5 28 53 24 29 00  79 0A 46 00 8B 54 46 B2  |S..(S$).y.F..TF.|
00000270: 30 A7 54 B2 C5 28 54 24  29 00 8A 0A 50 00 8B 54  |0.T..(T$)...P..T|
00000280: B3 31 B0 54 B1 33 35 A7  33 30 00 9E 0A 5A 00 8B  |.1.T.35.30...Z..|
00000290: 53 B3 30 B0 53 B1 53 25  28 54 29 A7 33 30 00 A7  |S.0.S.S%(T).30..|
000002A0: 0A 64 00 8D 33 35 30 00  E2 0A 65 00 99 3A 99 22  |.d..350...e..:."|
000002B0: 12 22 C7 28 39 34 29 22  92 20 2D 20 4E 45 57 20  |.".(94)". - NEW |
000002C0: 54 52 4B 2C 53 45 43 20  20 20 20 20 12 46 31 92  |TRK,SEC     .F1.|
000002D0: 20 2D 20 54 45 52 4D 49  4E 41 54 45 20 45 44 49  | - TERMINATE EDI|
000002E0: 54 22 00 12 0B 66 00 99  22 20 12 52 45 54 55 52  |T"...f.." .RETUR|
000002F0: 4E 92 20 2D 20 45 4E 54  45 52 20 43 48 41 4E 47  |N. - ENTER CHANG|
00000300: 45 53 20 4F 52 20 4E 45  58 54 20 53 43 52 45 45  |ES OR NEXT SCREE|
00000310: 4E 22 00 44 0B 6E 00 99  C7 28 31 39 29 3B 3A 4E  |N".D.n...(19);:N|
00000320: B2 35 3A 43 48 B2 31 37  3A 8D 37 30 30 3A 4E B2  |.5:CH.17:.700:N.|
00000330: 36 3A 43 48 B2 32 39 3A  8D 37 30 30 3A 43 B2 30  |6:CH.29:.700:C.0|
00000340: 3A 4C B2 30 00 6C 0B 78  00 99 C7 28 31 38 29 C7  |:L.0.l.x...(18).|
00000350: 28 33 32 29 C7 28 33 32  29 C7 28 31 34 36 29 C7  |(32).(32).(146).|
00000360: 28 31 35 37 29 C7 28 31  35 37 29 3B 00 93 0B 7D  |(157).(157);...}|
00000370: 00 44 43 B2 C6 28 CA 28  42 24 28 58 29 2C 4C AC  |.DC..(.(B$(X),L.|
00000380: 38 AA 43 AA 32 2C 31 29  AA C7 28 30 29 29 3A 8D  |8.C.2,1)..(0)):.|
00000390: 34 35 30 00 A6 0B 82 00  A1 4B 24 3A 8B 4B 24 B2  |450......K$:.K$.|
000003A0: 22 22 A7 31 33 30 00 B8  0B 8C 00 8B 4B 24 B2 C7  |"".130......K$..|
000003B0: 28 32 39 29 A7 32 33 30  00 CA 0B 96 00 8B 4B 24  |(29).230......K$|
000003C0: B2 C7 28 31 37 29 A7 32  36 30 00 DD 0B A0 00 8B  |..(17).260......|
000003D0: 4B 24 B2 C7 28 31 34 35  29 A7 32 39 30 00 F0 0B  |K$..(145).290...|
000003E0: AA 00 8B 4B 24 B2 C7 28  31 35 37 29 A7 33 32 30  |...K$..(157).320|
000003F0: 00 02 0C B4 00 8B 4B 24  B2 C7 28 31 33 29 A7 35  |......K$..(13).5|
00000400: 39 30 00 2F 0C BE 00 8B  28 4B 24 B2 B1 22 30 22  |90./....(K$.."0"|
00000410: AF 4B 24 B2 B3 22 39 22  29 B0 28 4B 24 B2 B1 22  |.K$.."9").(K$.."|
00000420: 41 22 AF 4B 24 B2 B3 22  46 22 29 A7 35 33 30 00  |A".K$.."F").530.|
00000430: 40 0C C8 00 8B 4B 24 B2  C7 28 39 34 29 A7 33 30  |@....K$..(94).30|
00000440: 00 5D 0C D2 00 8B 4B 24  B2 C7 28 31 33 33 29 A7  |.]....K$..(133).|
00000450: 20 A0 31 35 3A A0 35 3A  89 20 38 30 30 00 66 0C  | .15:.5:. 800.f.|
00000460: DC 00 89 31 33 30 00 84  0C E6 00 99 48 58 24 C7  |...130......HX$.|
00000470: 28 32 39 29 3B 3A 43 B2  43 AA 31 3A 8B 43 B3 38  |(29);:C.C.1:.C.8|
00000480: A7 31 32 30 00 AC 0C F0  00 4E B2 31 36 3A 43 48  |.120.....N.16:CH|
00000490: B2 32 39 3A 8D 37 30 30  3A 4C B2 4C AA 31 3A 43  |.29:.700:L.L.1:C|
000004A0: B2 30 3A 8B 4C B3 31 36  A7 31 32 30 00 B5 0C FA  |.0:.L.16.120....|
000004B0: 00 89 31 31 30 00 E0 0C  04 01 99 48 58 24 C7 28  |..110......HX$.(|
000004C0: 31 35 37 29 C7 28 31 35  37 29 C7 28 31 37 29 3B  |157).(157).(17);|
000004D0: 3A 4C B2 4C AA 31 3A 8B  4C B3 31 36 A7 31 32 30  |:L.L.1:.L.16.120|
000004E0: 00 0A 0D 0E 01 99 C7 28  31 39 29 3B 3A 4E B2 35  |.......(19);:N.5|
000004F0: 3A 43 48 B2 31 37 3A 8D  37 30 30 3A 4E B2 36 3A  |:CH.17:.700:N.6:|
00000500: 43 48 B2 32 39 3A 8D 37  30 30 00 26 0D 13 01 8B  |CH.29:.700.&....|
00000510: 43 B1 30 A7 81 4A B2 31  A4 43 AC 33 3A 99 C7 28  |C.0..J.1.C.3:..(|
00000520: 32 39 29 3B 3A 82 00 33  0D 18 01 4C B2 30 3A 89  |29);:..3...L.0:.|
00000530: 31 32 30 00 5F 0D 22 01  99 48 58 24 C7 28 31 35  |120._."..HX$.(15|
00000540: 37 29 C7 28 31 35 37 29  C7 28 31 34 35 29 3B 3A  |7).(157).(145);:|
00000550: 4C B2 4C AB 31 3A 8B 4C  B2 B1 30 A7 31 32 30 00  |L.L.1:.L..0.120.|
00000560: 8A 0D 2C 01 99 C7 28 31  39 29 3B 3A 4E B2 32 30  |..,...(19);:N.20|
00000570: 3A 43 48 B2 31 37 3A 8D  37 30 30 3A 4E B2 36 3A  |:CH.17:.700:N.6:|
00000580: 43 48 B2 32 39 3A 8D 37  30 30 00 A6 0D 31 01 8B  |CH.29:.700...1..|
00000590: 43 B1 30 A7 81 4A B2 31  A4 43 AC 33 3A 99 C7 28  |C.0..J.1.C.3:..(|
000005A0: 32 39 29 3B 3A 82 00 B4  0D 36 01 4C B2 31 35 3A  |29);:....6.L.15:|
000005B0: 89 31 32 30 00 DE 0D 40  01 99 48 58 24 3B 3A 4E  |.120...@..HX$;:N|
000005C0: B2 35 3A 43 48 B2 31 35  37 3A 8D 37 30 30 3A 43  |.5:CH.157:.700:C|
000005D0: B2 43 AB 31 3A 8B 43 B2  B1 30 A7 31 32 30 00 07  |.C.1:.C..0.120..|
000005E0: 0E 4A 01 43 B2 37 3A 4C  B2 4C AB 31 3A 4E B2 31  |.J.C.7:L.L.1:N.1|
000005F0: 36 3A 43 48 B2 31 35 37  3A 8D 37 30 30 3A 8B 4C  |6:CH.157:.700:.L|
00000600: B2 B1 30 A7 31 32 30 00  3D 0E 54 01 4C B2 31 35  |..0.120.=.T.L.15|
00000610: 3A 99 C7 28 31 39 29 3B  3A 4E B2 32 30 3A 43 48  |:..(19);:N.20:CH|
00000620: B2 31 37 3A 8D 37 30 30  3A 4E B2 32 37 3A 43 48  |.17:.700:N.27:CH|
00000630: B2 32 39 3A 8D 37 30 30  3A 89 31 32 30 00 76 0E  |.29:.700:.120.v.|
00000640: 5E 01 99 C7 28 31 34 37  29 C7 28 31 37 29 22 52  |^...(147).(17)"R|
00000650: 45 41 44 49 4E 47 20 54  52 41 43 4B 22 54 22 20  |EADING TRACK"T" |
00000660: 53 45 43 54 4F 52 22 53  22 20 50 41 52 54 22 58  |SECTOR"S" PART"X|
00000670: AA 31 3A 4E B2 33 00 85  0E 63 01 43 48 B2 31 37  |.1:N.3...c.CH.17|
00000680: 3A 8D 37 30 30 00 A3 0E  68 01 42 24 28 58 29 B2  |:.700...h.B$(X).|
00000690: 22 22 3A 98 31 35 2C 22  55 31 3A 22 35 3B 30 3B  |"":.15,"U1:"5;0;|
000006A0: 54 3B 53 00 B5 0E 6D 01  98 31 35 2C 22 42 2D 50  |T;S...m..15,"B-P|
000006B0: 3A 22 35 2C 30 00 D5 0E  72 01 8B 58 B2 31 A7 81  |:"5,0...r..X.1..|
000006C0: 49 B2 31 A4 31 32 38 3A  A1 23 35 2C 41 24 3A 82  |I.1.128:.#5,A$:.|
000006D0: 3A 89 33 38 30 00 E2 0E  77 01 42 24 28 31 29 B2  |:.380...w.B$(1).|
000006E0: 22 22 00 15 0F 7C 01 81  4A B2 30 A4 31 35 3A 44  |""...|..J.0.15:D|
000006F0: 43 B2 4A AC 38 AA 31 32  38 AC 58 3A 8D 34 35 30  |C.J.8.128.X:.450|
00000700: 3A 99 22 30 30 22 48 58  24 22 20 20 22 3B 3A 81  |:."00"HX$"  ";:.|
00000710: 4B B2 30 A4 37 00 40 0F  86 01 A1 23 35 2C 41 24  |K.0.7.@....#5,A$|
00000720: 3A 41 24 B2 C7 28 C6 28  41 24 AA C7 28 30 29 29  |:A$..(.(A$..(0))|
00000730: 29 3A 42 24 28 58 29 B2  42 24 28 58 29 AA 41 24  |):B$(X).B$(X).A$|
00000740: 00 6A 0F 90 01 44 43 B2  C6 28 41 24 29 3A 8D 34  |.j...DC..(A$):.4|
00000750: 35 30 3A 99 48 58 24 22  20 22 3B 3A 82 3A 99 22  |50:.HX$" ";:.:."|
00000760: 20 22 3B 3A 81 4B B2 30  A4 37 00 8C 0F 9A 01 44  | ";:.K.0.7.....D|
00000770: 43 B2 C6 28 CA 28 42 24  28 58 29 2C 4A AC 38 AA  |C..(.(B$(X),J.8.|
00000780: 4B AA 31 2C 31 29 AA C7  28 30 29 29 00 B4 0F A4  |K.1,1)..(0))....|
00000790: 01 8B 28 44 43 B1 33 32  AF 44 43 B3 31 32 38 29  |..(DC.32.DC.128)|
000007A0: B0 44 43 B1 31 35 39 A7  99 C7 28 44 43 29 3B 3A  |.DC.159...(DC);:|
000007B0: 89 34 34 30 00 BE 0F AE  01 99 22 2E 22 3B 00 DE  |.440......".";..|
000007C0: 0F B8 01 82 3A 99 3A 82  3A 42 24 28 58 29 B2 22  |....:.:.:B$(X)."|
000007D0: 20 22 AA 42 24 28 58 29  AA 22 20 22 3A 8E 00 FA  | ".B$(X)." ":...|
000007E0: 0F C2 01 44 31 B2 B5 28  44 43 AD 31 36 29 3A 44  |...D1..(DC.16):D|
000007F0: 32 B2 44 43 AB 44 31 AC  31 36 00 28 10 CC 01 48  |2.DC.D1.16.(...H|
00000800: 58 24 B2 C7 28 44 31 AA  34 38 AB 37 AC 28 44 31  |X$..(D1.48.7.(D1|
00000810: B1 39 29 29 AA C7 28 44  32 AA 34 38 AB 37 AC 28  |.9))..(D2.48.7.(|
00000820: 44 32 B1 39 29 29 3A 8E  00 53 10 D6 01 48 58 24  |D2.9)):..S...HX$|
00000830: B2 C9 28 48 58 24 2C C3  28 48 58 24 29 AB 31 29  |..(HX$,.(HX$).1)|
00000840: 3A 8B C3 28 48 58 24 29  B2 30 A7 48 58 24 B2 22  |:..(HX$).0.HX$."|
00000850: 30 30 22 00 6D 10 E0 01  8B C3 28 48 58 24 29 B2  |00".m.....(HX$).|
00000860: 31 A7 48 58 24 B2 22 30  22 AA 48 58 24 00 88 10  |1.HX$."0".HX$...|
00000870: EA 01 8B C3 28 48 58 24  29 B1 32 A7 48 58 24 B2  |....(HX$).2.HX$.|
00000880: C9 28 48 58 24 2C 32 29  00 A1 10 F4 01 81 49 B2  |.(HX$,2)......I.|
00000890: 31 A4 32 3A 41 24 B2 CA  28 48 58 24 2C 49 2C 31  |1.2:A$..(HX$,I,1|
000008A0: 29 00 CB 10 F9 01 8B 41  24 B3 22 30 22 B0 28 41  |)......A$."0".(A|
000008B0: 24 B1 22 39 22 AF 41 24  B3 22 41 22 29 B0 41 24  |$."9".A$."A").A$|
000008C0: B1 22 46 22 A7 44 43 B2  30 3A 8E 00 E7 10 FE 01  |."F".DC.0:......|
000008D0: 4B 24 B2 C8 28 48 58 24  2C 31 29 3A 4A 24 B2 C9  |K$..(HX$,1):J$..|
000008E0: 28 48 58 24 2C 31 29 00  27 11 08 02 44 31 B2 C6  |(HX$,1).'...D1..|
000008F0: 28 4B 24 29 AB 34 38 3A  44 32 B2 C6 28 4A 24 29  |(K$).48:D2..(J$)|
00000900: AB 34 38 3A 44 43 B2 28  44 31 AA 37 AC 28 44 31  |.48:DC.(D1.7.(D1|
00000910: B1 39 29 29 AC 31 36 AA  28 44 32 AA 37 AC 28 44  |.9)).16.(D2.7.(D|
00000920: 32 B1 39 29 29 3A 8E 00  33 11 12 02 99 4B 24 22  |2.9)):..3....K$"|
00000930: 9D 22 3B 00 46 11 1C 02  A1 4A 24 3A 8B 4A 24 B2  |.";.F....J$:.J$.|
00000940: 22 22 A7 35 34 30 00 6D  11 26 02 8B 4A 24 B3 22  |"".540.m.&..J$."|
00000950: 30 22 B0 28 4A 24 B1 22  39 22 AF 4A 24 B3 22 41  |0".(J$."9".J$."A|
00000960: 22 29 B0 4A 24 B1 22 46  22 A7 35 34 30 00 80 11  |").J$."F".540...|
00000970: 30 02 48 58 24 B2 4B 24  AA 4A 24 3A 8D 35 32 30  |0.HX$.K$.J$:.520|
00000980: 00 BD 11 3A 02 42 24 28  58 29 B2 C8 28 42 24 28  |...:.B$(X)..(B$(|
00000990: 58 29 2C 4C AC 38 AA 43  AA 31 29 AA C7 28 44 43  |X),L.8.C.1)..(DC|
000009A0: 29 AA C9 28 42 24 28 58  29 2C C3 28 42 24 28 58  |)..(B$(X),.(B$(X|
000009B0: 29 29 AB 28 4C AC 38 AA  43 AA 32 29 29 00 C6 11  |)).(L.8.C.2))...|
000009C0: 44 02 89 32 33 30 00 E6  11 4E 02 42 24 28 58 29  |D..230...N.B$(X)|
000009D0: B2 CA 28 42 24 28 58 29  2C 32 2C C3 28 42 24 28  |..(B$(X),2,.(B$(|
000009E0: 58 29 29 AB 32 29 00 F8  11 58 02 98 31 35 2C 22  |X)).2)...X..15,"|
000009F0: 42 2D 50 3A 22 35 2C 30  00 0C 12 62 02 98 35 2C  |B-P:"5,0...b..5,|
00000A00: 42 24 28 30 29 3B 42 24  28 31 29 3B 00 21 12 6C  |B$(0);B$(1);.!.l|
00000A10: 02 98 31 35 2C 22 55 32  3A 22 35 3B 30 3B 54 3B  |..15,"U2:"5;0;T;|
00000A20: 53 00 33 12 76 02 8B 58  B2 30 A7 58 B2 31 3A 89  |S.3.v..X.0.X.1:.|
00000A30: 31 30 30 00 45 12 80 02  58 B2 30 3A 8D 36 35 30  |100.E...X.0:.650|
00000A40: 3A 89 31 30 30 00 5B 12  8A 02 53 B2 53 AA 31 3A  |:.100.[...S.S.1:|
00000A50: 8B 53 B3 B2 53 25 28 54  29 A7 8E 00 71 12 94 02  |.S..S%(T)...q...|
00000A60: 53 B2 30 3A 54 B2 54 AA  31 3A 8B 54 B3 33 36 A7  |S.0:T.T.1:.T.36.|
00000A70: 8E 00 7B 12 9E 02 54 B2  31 3A 8E 00 A6 12 A8 02  |..{...T.1:......|
00000A80: 81 49 B2 31 A4 31 37 3A  53 25 28 49 29 B2 32 30  |.I.1.17:S%(I).20|
00000A90: 3A 82 3A 81 49 B2 31 38  A4 32 34 3A 53 25 28 49  |:.:.I.18.24:S%(I|
00000AA0: 29 B2 31 38 3A 82 00 D4  12 B2 02 81 49 B2 32 35  |).18:.......I.25|
00000AB0: A4 33 30 3A 53 25 28 49  29 B2 31 37 3A 82 3A 81  |.30:S%(I).17:.:.|
00000AC0: 49 B2 33 31 A4 33 35 3A  53 25 28 49 29 B2 31 36  |I.31.35:S%(I).16|
00000AD0: 3A 82 3A 8E 00 EC 12 BC  02 81 49 49 B2 31 A4 4E  |:.:.......II.1.N|
00000AE0: 3A 99 C7 28 43 48 29 3B  3A 82 3A 8E 00 08 13 20  |:..(CH);:.:.... |
00000AF0: 03 97 35 33 32 38 30 2C  31 31 3A 97 35 33 32 38  |..53280,11:.5328|
00000B00: 31 2C 30 3A 99 22 9E 22  00 3F 13 25 03 99 22 93  |1,0:.".".?.%..".|
00000B10: 11 11 11 22 A6 31 34 29  22 12 20 44 49 53 4B 20  |...".14)". DISK |
00000B20: 45 44 49 54 4F 52 20 92  22 3A 99 22 11 11 11 11  |EDITOR .":."....|
00000B30: 20 20 20 20 20 1C 4F 50  54 49 4F 4E 53 3A 22 00  |     .OPTIONS:".|
00000B40: 6D 13 2A 03 99 22 9F 11  22 A6 38 29 22 12 31 92  |m.*.."..".8)".1.|
00000B50: 2E 20 45 44 49 54 2F 56  49 45 57 20 54 52 41 43  |. EDIT/VIEW TRAC|
00000B60: 4B 20 41 4E 44 20 53 45  43 54 4F 52 22 00 8E 13  |K AND SECTOR"...|
00000B70: 2F 03 99 20 A6 38 29 22  12 32 92 2E 20 43 48 41  |/.. .8)".2.. CHA|
00000B80: 4E 47 45 20 44 49 53 4B  20 4E 41 4D 45 22 00 CA  |NGE DISK NAME"..|
00000B90: 13 34 03 99 20 A6 38 29  22 12 33 92 2E 20 43 48  |.4.. .8)".3.. CH|
00000BA0: 41 4E 47 45 20 44 49 53  4B 20 49 44 22 3A 99 20  |ANGE DISK ID":. |
00000BB0: A6 38 29 22 12 34 92 2E  20 55 4E 53 43 52 41 54  |.8)".4.. UNSCRAT|
00000BC0: 43 48 20 41 20 46 49 4C  45 22 00 EB 13 48 03 99  |CH A FILE"...H..|
00000BD0: 20 A6 38 29 22 12 58 92  2E 20 45 58 49 54 20 44  | .8)".X.. EXIT D|
00000BE0: 49 53 4B 20 45 44 49 54  4F 52 22 00 10 14 4D 03  |ISK EDITOR"...M.|
00000BF0: 99 22 11 22 A6 31 32 29  22 9E 4D 41 4B 45 20 53  |.".".12)".MAKE S|
00000C00: 45 4C 45 43 54 49 4F 4E  98 20 12 20 92 9D 22 3B  |ELECTION. . ..";|
00000C10: 00 27 14 52 03 A1 20 53  24 3A 8B 20 53 24 B2 22  |.'.R.. S$:. S$."|
00000C20: 22 20 A7 20 38 35 30 00  3E 14 5C 03 8B 20 53 24  |" . 850.>.\.. S$|
00000C30: B2 22 58 22 20 A7 20 99  22 98 93 22 3A 80 00 5A  |."X" . ."..":..Z|
00000C40: 14 66 03 8B 20 53 24 B3  22 31 22 20 B0 20 53 24  |.f.. S$."1" . S$|
00000C50: B1 22 34 22 20 A7 20 38  35 30 00 79 14 70 03 99  |."4" . 850.y.p..|
00000C60: 20 53 24 3A 81 20 49 B2  31 A4 31 30 30 30 3A 82  | S$:. I.1.1000:.|
00000C70: 3A 53 31 B2 C5 28 53 24  29 00 96 14 7A 03 91 20  |:S1..(S$)...z.. |
00000C80: 53 31 20 89 20 31 39 2C  31 30 30 30 2C 32 30 30  |S1 . 19,1000,200|
00000C90: 30 2C 33 30 30 30 00 B0  14 E7 03 80 3A 20 8F 20  |0,3000......: . |
00000CA0: 43 48 41 4E 47 45 20 44  49 53 4B 20 4E 41 4D 45  |CHANGE DISK NAME|
00000CB0: 00 CA 14 E8 03 85 22 93  4E 45 57 20 44 49 53 4B  |......".NEW DISK|
00000CC0: 20 4E 41 4D 45 22 3B 44  4E 24 00 08 15 F2 03 8B  | NAME";DN$......|
00000CD0: 20 C3 28 44 4E 24 29 B3  31 36 20 A7 20 44 4E 24  | .(DN$).16 . DN$|
00000CE0: B2 44 4E 24 AA C7 28 31  36 30 29 3A 89 20 31 30  |.DN$..(160):. 10|
00000CF0: 31 30 3A 8F 20 53 54 52  45 54 43 48 20 54 4F 20  |10:. STRETCH TO |
00000D00: 31 36 20 43 48 41 52 53  00 49 15 FC 03 8B 20 C3  |16 CHARS.I.... .|
00000D10: 28 44 4E 24 29 B1 31 36  20 A7 20 44 4E 24 B2 C8  |(DN$).16 . DN$..|
00000D20: 28 44 4E 24 2C 31 36 29  3A 20 8F 20 53 48 4F 52  |(DN$,16): . SHOR|
00000D30: 54 45 4E 20 4E 41 4D 45  20 54 4F 20 31 36 20 43  |TEN NAME TO 16 C|
00000D40: 48 41 52 41 43 54 45 52  53 00 79 15 06 04 9F 20  |HARACTERS.y.... |
00000D50: 31 35 2C 38 2C 31 35 2C  22 49 22 3A 20 8F 20 4F  |15,8,15,"I": . O|
00000D60: 50 45 4E 20 44 49 53 4B  20 43 4F 4D 4D 20 41 4E  |PEN DISK COMM AN|
00000D70: 44 20 43 48 41 4E 4E 45  4C 00 A7 15 10 04 9F 20  |D CHANNEL...... |
00000D80: 38 2C 38 2C 38 2C 22 23  22 3A 20 8F 20 4F 50 45  |8,8,8,"#": . OPE|
00000D90: 4E 20 44 49 52 45 43 54  20 41 43 43 45 53 53 20  |N DIRECT ACCESS |
00000DA0: 43 48 41 4E 4E 45 4C 00  EE 15 1A 04 98 31 35 2C  |CHANNEL......15,|
00000DB0: 22 55 31 3A 22 38 3B 30  3B 31 38 3B 30 3A 20 8F  |"U1:"8;0;18;0: .|
00000DC0: 20 52 45 41 44 20 54 52  41 43 4B 20 31 38 2C 20  | READ TRACK 18, |
00000DD0: 53 45 43 54 4F 52 20 30  20 49 4E 54 4F 20 43 48  |SECTOR 0 INTO CH|
00000DE0: 41 4E 4E 45 4C 20 38 20  42 55 46 46 45 52 00 34  |ANNEL 8 BUFFER.4|
00000DF0: 16 24 04 98 31 35 2C 22  42 2D 50 3A 22 38 3B 31  |.$..15,"B-P:"8;1|
00000E00: 34 34 3A 20 8F 20 4D 4F  56 45 20 42 55 46 46 45  |44: . MOVE BUFFE|
00000E10: 52 2D 50 4F 49 4E 54 45  52 20 54 4F 20 46 49 52  |R-POINTER TO FIR|
00000E20: 53 54 20 42 59 54 45 20  4F 46 20 44 49 53 4B 20  |ST BYTE OF DISK |
00000E30: 4E 41 4D 45 00 78 16 2E  04 98 38 2C 44 4E 24 3B  |NAME.x....8,DN$;|
00000E40: 3A 20 8F 20 50 55 54 20  4E 45 57 20 4E 41 4D 45  |: . PUT NEW NAME|
00000E50: 20 49 4E 20 43 48 41 4E  4E 45 4C 20 38 20 42 55  | IN CHANNEL 8 BU|
00000E60: 46 46 45 52 2C 20 52 45  50 4C 41 43 49 4E 47 20  |FFER, REPLACING |
00000E70: 4F 4C 44 20 4E 41 4D 45  00 B0 16 38 04 98 31 35  |OLD NAME...8..15|
00000E80: 2C 22 55 32 3A 22 38 3B  30 3B 31 38 3B 30 3A 20  |,"U2:"8;0;18;0: |
00000E90: 8F 20 57 52 49 54 45 20  42 55 46 46 45 52 20 57  |. WRITE BUFFER W|
00000EA0: 49 54 48 20 4E 41 4D 45  20 43 48 41 4E 47 45 44  |ITH NAME CHANGED|
00000EB0: 00 E5 16 3D 04 98 31 35  2C 22 49 22 3A 20 8F 20  |...=..15,"I": . |
00000EC0: 49 4E 49 54 49 41 4C 49  5A 45 20 54 48 45 20 44  |INITIALIZE THE D|
00000ED0: 49 53 4B 20 57 49 54 48  20 54 48 45 20 4E 45 57  |ISK WITH THE NEW|
00000EE0: 20 4E 41 4D 45 00 0C 17  42 04 A0 20 38 3A 20 8F  | NAME...B.. 8: .|
00000EF0: 20 43 4C 4F 53 45 20 44  49 52 45 43 54 20 41 43  | CLOSE DIRECT AC|
00000F00: 43 45 53 53 20 43 48 41  4E 4E 45 4C 00 2E 17 4C  |CESS CHANNEL...L|
00000F10: 04 A0 20 31 35 3A 20 8F  20 43 4C 4F 53 45 20 43  |.. 15: . CLOSE C|
00000F20: 4F 4D 4D 41 4E 44 20 43  48 41 4E 4E 45 4C 00 56  |OMMAND CHANNEL.V|
00000F30: 17 56 04 89 20 38 30 30  3A 20 8F 20 47 4F 54 4F  |.V.. 800: . GOTO|
00000F40: 20 4D 41 49 4E 20 53 45  4C 45 43 54 49 4F 4E 20  | MAIN SELECTION |
00000F50: 53 43 52 45 45 4E 00 6E  17 CF 07 80 3A 20 8F 20  |SCREEN.n....: . |
00000F60: 43 48 41 4E 47 45 20 44  49 53 4B 20 49 44 00 86  |CHANGE DISK ID..|
00000F70: 17 D0 07 85 22 93 4E 45  57 20 44 49 53 4B 20 49  |....".NEW DISK I|
00000F80: 44 22 3B 49 44 24 00 BA  17 DA 07 8B 20 C3 28 49  |D";ID$...... .(I|
00000F90: 44 24 29 B3 B1 32 20 A7  20 32 30 30 30 3A 20 8F  |D$)..2 . 2000: .|
00000FA0: 20 52 45 4A 45 43 54 20  49 4D 50 52 4F 50 45 52  | REJECT IMPROPER|
00000FB0: 20 4C 45 4E 47 54 48 20  49 44 00 E9 17 E4 07 9F  | LENGTH ID......|
00000FC0: 20 31 35 2C 38 2C 31 35  2C 22 49 22 3A 20 8F 20  | 15,8,15,"I": . |
00000FD0: 4F 50 45 4E 20 44 49 53  4B 20 43 4F 4D 4D 41 4E  |OPEN DISK COMMAN|
00000FE0: 44 20 43 48 41 4E 4E 45  4C 00 17 18 EE 07 9F 20  |D CHANNEL...... |
00000FF0: 38 2C 38 2C 38 2C 22 23  22 3A 20 8F 20 4F 50 45  |8,8,8,"#": . OPE|
00001000: 4E 20 44 49 52 45 43 54  20 41 43 43 45 53 53 20  |N DIRECT ACCESS |
00001010: 43 48 41 4E 4E 45 4C 00  5E 18 F8 07 98 31 35 2C  |CHANNEL.^....15,|
00001020: 22 55 31 3A 22 38 3B 30  3B 31 38 3B 30 3A 20 8F  |"U1:"8;0;18;0: .|
00001030: 20 52 45 41 44 20 54 52  41 43 4B 20 31 38 2C 20  | READ TRACK 18, |
00001040: 53 45 43 54 4F 52 20 30  20 49 4E 54 4F 20 43 48  |SECTOR 0 INTO CH|
00001050: 41 4E 4E 45 4C 20 38 20  42 55 46 46 45 52 00 A2  |ANNEL 8 BUFFER..|
00001060: 18 02 08 98 31 35 2C 22  42 2D 50 3A 22 38 3B 31  |....15,"B-P:"8;1|
00001070: 36 32 3A 20 8F 20 4D 4F  56 45 20 42 55 46 46 45  |62: . MOVE BUFFE|
00001080: 52 2D 50 4F 49 4E 54 45  52 20 54 4F 20 46 49 52  |R-POINTER TO FIR|
00001090: 53 54 20 42 59 54 45 20  4F 46 20 44 49 53 4B 20  |ST BYTE OF DISK |
000010A0: 49 44 00 E2 18 0C 08 98  38 2C 49 44 24 3B 3A 20  |ID......8,ID$;: |
000010B0: 8F 20 50 55 54 20 4E 45  57 20 49 44 20 49 4E 20  |. PUT NEW ID IN |
000010C0: 43 48 41 4E 4E 45 4C 20  38 20 42 55 46 46 45 52  |CHANNEL 8 BUFFER|
000010D0: 2C 20 52 45 50 4C 41 43  49 4E 47 20 4F 4C 44 20  |, REPLACING OLD |
000010E0: 49 44 00 10 19 16 08 98  31 35 2C 22 55 32 3A 22  |ID......15,"U2:"|
000010F0: 38 3B 30 3B 31 38 3B 30  3A 20 8F 20 53 54 4F 52  |8;0;18;0: . STOR|
00001100: 45 20 42 55 46 46 45 52  20 54 4F 20 44 49 53 4B  |E BUFFER TO DISK|
00001110: 00 3B 19 1B 08 98 31 35  2C 22 49 22 3A 20 8F 20  |.;....15,"I": . |
00001120: 49 4E 49 54 49 41 4C 49  5A 45 20 44 49 53 4B 20  |INITIALIZE DISK |
00001130: 57 49 54 48 20 4E 45 57  20 49 44 00 62 19 20 08  |WITH NEW ID.b. .|
00001140: A0 20 38 3A 20 8F 20 43  4C 4F 53 45 20 44 49 52  |. 8: . CLOSE DIR|
00001150: 45 43 54 20 41 43 43 45  53 53 20 43 48 41 4E 4E  |ECT ACCESS CHANN|
00001160: 45 4C 00 84 19 2A 08 A0  20 31 35 3A 20 8F 20 43  |EL...*.. 15: . C|
00001170: 4C 4F 53 45 20 43 4F 4D  4D 41 4E 44 20 43 48 41  |LOSE COMMAND CHA|
00001180: 4E 4E 45 4C 00 AC 19 34  08 89 20 38 30 30 3A 20  |NNEL...4.. 800: |
00001190: 8F 20 47 4F 54 4F 20 4D  41 49 4E 20 53 45 4C 45  |. GOTO MAIN SELE|
000011A0: 43 54 49 4F 4E 20 53 43  52 45 45 4E 00 C5 19 B7  |CTION SCREEN....|
000011B0: 0B 80 3A 20 8F 20 55 4E  53 43 52 41 54 43 48 20  |..: . UNSCRATCH |
000011C0: 46 49 4C 45 53 00 F9 19  B8 0B 85 22 93 57 48 49  |FILES......".WHI|
000011D0: 43 48 20 53 45 43 54 4F  52 22 3B 53 24 3A 53 B2  |CH SECTOR";S$:S.|
000011E0: C5 28 53 24 29 3A 8B 20  53 B3 30 20 B0 20 53 B1  |.(S$):. S.0 . S.|
000011F0: 31 39 20 A7 20 33 30 30  30 00 29 1A C2 0B 99 22  |19 . 3000.)...."|
00001200: 11 11 57 48 41 54 20 49  53 20 54 48 45 20 46 49  |..WHAT IS THE FI|
00001210: 52 53 54 20 42 59 54 45  20 4F 46 20 54 48 45 20  |RST BYTE OF THE |
00001220: 46 49 4C 45 20 59 4F 55  22 00 44 1A C3 0B 99 22  |FILE YOU".D...."|
00001230: 57 49 53 48 20 54 4F 20  55 4E 53 43 52 41 54 43  |WISH TO UNSCRATC|
00001240: 48 20 3F 22 00 73 1A C4  0B 99 22 4F 50 54 49 4F  |H ?".s...."OPTIO|
00001250: 4E 53 20 41 52 45 3A 20  32 2C 33 34 2C 36 36 2C  |NS ARE: 2,34,66,|
00001260: 39 38 2C 31 33 30 2C 31  36 32 2C 31 39 34 2C 32  |98,130,162,194,2|
00001270: 32 36 22 00 AE 1A CC 0B  85 20 42 50 24 3A 42 50  |26"...... BP$:BP|
00001280: B2 C5 28 42 50 24 29 3A  8F 20 49 4E 50 55 54 20  |..(BP$):. INPUT |
00001290: 46 49 4C 45 20 54 41 52  47 45 54 20 42 59 54 45  |FILE TARGET BYTE|
000012A0: 20 46 4F 52 20 55 4E 53  43 52 41 54 43 48 00 F8  | FOR UNSCRATCH..|
000012B0: 1A D6 0B 42 53 B2 28 42  50 B2 32 29 AA 28 42 50  |...BS.(BP.2).(BP|
000012C0: B2 33 34 29 AA 28 42 50  B2 36 36 29 AA 28 42 50  |.34).(BP.66).(BP|
000012D0: B2 39 38 29 AA 28 42 50  B2 31 33 30 29 AA 28 42  |.98).(BP.130).(B|
000012E0: 50 B2 31 36 32 29 AA 28  42 50 B2 31 39 34 29 AA  |P.162).(BP.194).|
000012F0: 28 42 50 B2 32 32 36 29  00 23 1B DB 0B 8B 20 42  |(BP.226).#.... B|
00001300: 53 B3 B1 AB 31 20 A7 20  33 30 31 32 3A 8F 20 52  |S...1 . 3012:. R|
00001310: 45 4A 45 43 54 20 49 4E  56 41 4C 49 44 20 49 4E  |EJECT INVALID IN|
00001320: 50 55 54 00 3E 1B E0 0B  99 22 11 11 53 45 4C 45  |PUT.>...."..SELE|
00001330: 43 54 20 46 49 4C 45 20  54 59 50 45 3A 22 00 56  |CT FILE TYPE:".V|
00001340: 1B EA 0B 99 22 11 20 20  31 2E 20 53 45 51 55 45  |....".  1. SEQUE|
00001350: 4E 54 49 41 4C 22 00 6A  1B F4 0B 99 22 20 20 32  |NTIAL".j...."  2|
00001360: 2E 20 50 52 4F 47 52 41  4D 22 00 7B 1B FE 0B 99  |. PROGRAM".{....|
00001370: 22 20 20 33 2E 20 55 53  45 52 22 00 90 1B 08 0C  |"  3. USER".....|
00001380: 99 22 20 20 34 2E 20 52  45 4C 41 54 49 56 45 22  |."  4. RELATIVE"|
00001390: 00 A8 1B 1C 0C A1 20 41  24 3A 8B 20 41 24 B2 22  |...... A$:. A$."|
000013A0: 22 20 A7 20 33 31 30 30  00 DF 1B 26 0C 41 B2 C5  |" . 3100...&.A..|
000013B0: 28 41 24 29 3A 8B 20 41  B3 31 20 B0 20 41 B1 34  |(A$):. A.1 . A.4|
000013C0: 20 A7 20 33 31 30 30 3A  8F 20 52 45 4A 45 43 54  | . 3100:. REJECT|
000013D0: 20 49 4E 56 41 4C 49 44  20 43 48 4F 49 43 45 00  | INVALID CHOICE.|
000013E0: 14 1C 30 0C 42 B2 41 AA  31 32 38 3A 8F 20 53 45  |..0.B.A.128:. SE|
000013F0: 54 20 49 4E 50 55 54 20  42 59 54 45 20 54 4F 20  |T INPUT BYTE TO |
00001400: 4D 41 54 43 48 20 44 4F  53 20 46 49 4C 45 20 43  |MATCH DOS FILE C|
00001410: 4F 44 45 53 00 45 1C 3A  0C 9F 20 31 35 2C 38 2C  |ODES.E.:.. 15,8,|
00001420: 31 35 2C 22 49 22 3A 8F  20 4F 50 45 4E 20 43 4F  |15,"I":. OPEN CO|
00001430: 4D 4D 41 4E 44 20 43 48  41 4E 4E 45 4C 20 54 4F  |MMAND CHANNEL TO|
00001440: 20 44 49 53 4B 00 7A 1C  44 0C 9F 20 38 2C 38 2C  | DISK.z.D.. 8,8,|
00001450: 38 2C 22 23 22 3A 8F 20  4F 50 45 4E 20 44 49 52  |8,"#":. OPEN DIR|
00001460: 45 43 54 20 41 43 43 45  53 53 20 43 48 41 4E 4E  |ECT ACCESS CHANN|
00001470: 45 4C 20 54 4F 20 44 49  53 4B 00 C0 1C 4E 0C 98  |EL TO DISK...N..|
00001480: 31 35 2C 22 55 31 3A 22  38 3B 30 3B 31 38 3B 53  |15,"U1:"8;0;18;S|
00001490: 3A 8F 20 4C 4F 41 44 20  53 45 43 54 4F 52 20 43  |:. LOAD SECTOR C|
000014A0: 4F 4E 54 41 49 4E 49 4E  47 20 46 49 4C 45 20 54  |ONTAINING FILE T|
000014B0: 4F 20 42 45 20 55 4E 53  43 52 41 54 43 48 45 44  |O BE UNSCRATCHED|
000014C0: 00 FA 1C 58 0C 98 31 35  2C 22 42 2D 50 3A 22 38  |...X..15,"B-P:"8|
000014D0: 3B 42 50 3A 8F 20 53 45  54 20 42 55 46 46 45 52  |;BP:. SET BUFFER|
000014E0: 20 50 4F 49 4E 54 45 52  20 54 4F 20 54 41 52 47  | POINTER TO TARG|
000014F0: 45 54 20 41 44 44 52 45  53 53 00 35 1D 62 0C 98  |ET ADDRESS.5.b..|
00001500: 38 2C C7 28 42 29 3B 3A  8F 20 43 48 41 4E 47 45  |8,.(B);:. CHANGE|
00001510: 20 54 41 52 47 45 54 20  46 49 4C 45 20 43 4F 44  | TARGET FILE COD|
00001520: 45 20 49 4E 20 43 48 41  4E 4E 45 4C 20 38 20 42  |E IN CHANNEL 8 B|
00001530: 55 46 46 45 52 00 76 1D  6C 0C 98 31 35 2C 22 55  |UFFER.v.l..15,"U|
00001540: 32 3A 22 38 3B 30 3B 31  38 3B 53 3A 8F 20 52 45  |2:"8;0;18;S:. RE|
00001550: 54 55 52 4E 20 43 48 41  4E 47 45 44 20 43 4F 4E  |TURN CHANGED CON|
00001560: 54 45 4E 54 53 20 54 4F  20 54 41 52 47 45 54 20  |TENTS TO TARGET |
00001570: 53 45 43 54 4F 52 00 82  1D 71 0C 98 31 35 2C 22  |SECTOR...q..15,"|
00001580: 49 22 00 A8 1D 76 0C A0  20 38 3A 8F 20 43 4C 4F  |I"...v.. 8:. CLO|
00001590: 53 45 20 44 49 52 45 43  54 20 41 43 43 45 53 53  |SE DIRECT ACCESS|
000015A0: 20 43 48 41 4E 4E 45 4C  00 CA 1D 80 0C A0 20 31  | CHANNEL...... 1|
000015B0: 35 3A 20 8F 20 43 4C 4F  53 45 20 43 4F 4D 4D 41  |5: . CLOSE COMMA|
000015C0: 4E 44 20 43 48 41 4E 4E  45 4C 00 F1 1D 8A 0C 89  |ND CHANNEL......|
000015D0: 20 38 30 30 3A 8F 20 47  4F 54 4F 20 4D 41 49 4E  | 800:. GOTO MAIN|
000015E0: 20 53 45 4C 45 43 54 49  4F 4E 20 53 43 52 45 45  | SELECTION SCREE|
000015F0: 4E 00 00 00                                       |N...            |

....... *******************.5.... *    E
DITOR 64    *.O.... *        BY       *.
I.... *  CHRIS LAMPTON  *...... ********
***********............ RUN MAGAZINE, AP
RIL 1984, PAGE 70............ 1ST BYTE P
RECEEDING FILE NAME:......     $00 - DEL
ETED......     $81 - SEQUENTIAL.'....   
  $82 - PROGRAM.<....     $83 - USER.U..
..     $84 - RELATIVE.[.....T.... S%(35)
,B$(1):. 800......G(147):.680......15,8,
15:.5,8,5,"#".W....G(147);:N.11:CH.17:.7
00:N.3:CH.29:.700:."TRACK";:.T$...#.N.3:
CH.29:.700:."SECTOR";:.S$:X.0:TF.0:SF.0.
..(..H(T$,1)."$".HX$.T$:.480:T.DC:TF.1.U
.2..H(S$,1)."$".HX$.S$:.480:S.DC:SF.1.G.
<..SF.0.S.E(S$).Y.F..TF.0.T.E(T$)...P..T
.1.T.35.30...Z..S.0.S.S%(T).30...D..350.
..E..:."."G(94)". - NEW TRK,SEC     .F1.
 - TERMINATE EDIT"...F.." .RETURN. - ENT
ER CHANGES OR NEXT SCREEN".D.N..G(19);:N
.5:CH.17:.700:N.6:CH.29:.700:C.0:L.0.L.X
..G(18)G(32)G(32)G(146)G(157)G(157);...}
.DC.F(J(B$(X),L.8.C.2,1).G(0)):.450.....
.K$:.K$."".130......K$.G(29).230.J....K$
.G(17).260... ..K$.G(145).290......K$.G(
157).320......K$.G(13).590./....(K$.."0"
.K$.."9").(K$.."A".K$.."F").530.@.H..K$.
G(94).30.].R..K$.G(133).  15: 5:. 800.F.
...130......HX$G(29);:C.C.1:.C.8.120....
.N.16:CH.29:.700:L.L.1:C.0:.L.16.120....
..110......HX$G(157)G(157)G(17);:L.L.1:.
L.16.120......G(19);:N.5:CH.17:.700:N.6:
CH.29:.700.&....C.0..J.1.C.3:.G(29);:..3
...L.0:.120._."..HX$G(157)G(157)G(145);:
L.L.1:.L..0.120...,..G(19);:N.20:CH.17:.
700:N.6:CH.29:.700...1..C.0..J.1.C.3:.G(
29);:....6.L.15:.120...@..HX$;:N.5:CH.15
7:.700:C.C.1:.C..0.120...J.C.7:L.L.1:N.1
6:CH.157:.700:.L..0.120.=.T.L.15:.G(19);
:N.20:CH.17:.700:N.27:CH.29:.700:.120.V.
^..G(147)G(17)"READING TRACK"T" SECTOR"S
" PART"X.1:N.3...C.CH.17:.700...H.B$(X).
"":.15,"U1:"5;0;T;S...M..15,"B-P:"5,0.U.
R..X.1..I.1.128:.#5,A$:.:.380...W.B$(1).
""...|..J.0.15:DC.J.8.128.X:.450:."00"HX
$"  ";:.K.0.7.@....#5,A$:A$.G(F(A$.G(0))
):B$(X).B$(X).A$.J...DC.F(A$):.450:.HX$"
 ";:.:." ";:.K.0.7.....DC.F(J(B$(X),J.8.
K.1,1).G(0))......(DC.32.DC.128).DC.159.
.G(DC);:.440......".";......:.:.:B$(X)."
 ".B$(X)." ":....B.D1..(DC.16):D2.DC.D1.
16.(.L.HX$.G(D1.48.7.(D1.9)).G(D2.48.7.(
D2.9)):..S.V.HX$.I(HX$,C(HX$).1):.C(HX$)
.0.HX$."00".M....C(HX$).1.HX$."0".HX$...
...C(HX$).2.HX$.I(HX$,2)......I.1.2:A$.J
(HX$,I,1).K....A$."0".(A$."9".A$."A").A$
."F".DC.0:......K$.H(HX$,1):J$.I(HX$,1).
'...D1.F(K$).48:D2.F(J$).48:DC.(D1.7.(D1
.9)).16.(D2.7.(D2.9)):..3....K$".";.F...
.J$:.J$."".540.M.&..J$."0".(J$."9".J$."A
").J$."F".540...0.HX$.K$.J$:.520...:.B$(
X).H(B$(X),L.8.C.1).G(DC).I(B$(X),C(B$(X
)).(L.8.C.2)).F.D..230...N.B$(X).J(B$(X)
,2,C(B$(X)).2)...X..15,"B-P:"5,0...B..5,
B$(0);B$(1);.!.L..15,"U2:"5;0;T;S.3.V..X
.0.X.1:.100.E...X.0:.650:.100.[...S.S.1:
.S..S%(T)...Q...S.0:T.T.1:.T.36...{...T.
1:.......I.1.17:S%(I).20:.:.I.18.24:S%(I
).18:..T....I.25.30:S%(I).17:.:.I.31.35:
S%(I).16:.:.......II.1.N:.G(CH);:.:.... 
..53280,11:.53281,0:.".".?.%.."....".14)
". DISK EDITOR .":."....     .OPTIONS:".
M.*.."..".8)".1.. EDIT/VIEW TRACK AND SE
CTOR".../.. .8)".2.. CHANGE DISK NAME".J
.4.. .8)".3.. CHANGE DISK ID":. .8)".4..
 UNSCRATCH A FILE"...H.. .8)".X.. EXIT D
ISK EDITOR"...M..".".12)".MAKE SELECTION
. . ..";.'.R.. S$:. S$."" . 850.>.\.. S$
."X" . ."..":..Z.F.. S$."1" . S$."4" . 8
50.Y.P.. S$:. I.1.1000:.:S1.E(S$)...Z.. 
S1 . 19,1000,2000,3000......: . CHANGE D
ISK NAME.J....".NEW DISK NAME";DN$......
 C(DN$).16 . DN$.DN$.G(160):. 1010:. STR
ETCH TO 16 CHARS.I.... C(DN$).16 . DN$.H
(DN$,16): . SHORTEN NAME TO 16 CHARACTER
S.Y.... 15,8,15,"I": . OPEN DISK COMM AN
D CHANNEL...... 8,8,8,"#": . OPEN DIRECT
 ACCESS CHANNEL......15,"U1:"8;0;18;0: .
 READ TRACK 18, SECTOR 0 INTO CHANNEL 8 
BUFFER.4.$..15,"B-P:"8;144: . MOVE BUFFE
R-POINTER TO FIRST BYTE OF DISK NAME.X..
..8,DN$;: . PUT NEW NAME IN CHANNEL 8 BU
FFER, REPLACING OLD NAME...8..15,"U2:"8;
0;18;0: . WRITE BUFFER WITH NAME CHANGED
...=..15,"I": . INITIALIZE THE DISK WITH
 THE NEW NAME...B.  8: . CLOSE DIRECT AC
CESS CHANNEL...L.  15: . CLOSE COMMAND C
HANNEL.V.V.. 800: . GOTO MAIN SELECTION 
SCREEN.N.O..: . CHANGE DISK ID...P..".NE
W DISK ID";ID$...Z.. C(ID$)..2 . 2000: .
 REJECT IMPROPER LENGTH ID...... 15,8,15
,"I": . OPEN DISK COMMAND CHANNEL...... 
8,8,8,"#": . OPEN DIRECT ACCESS CHANNEL.
^....15,"U1:"8;0;18;0: . READ TRACK 18, 
SECTOR 0 INTO CHANNEL 8 BUFFER......15,"
B-P:"8;162: . MOVE BUFFER-POINTER TO FIR
ST BYTE OF DISK ID......8,ID$;: . PUT NE
W ID IN CHANNEL 8 BUFFER, REPLACING OLD 
ID......15,"U2:"8;0;18;0: . STORE BUFFER
 TO DISK.;....15,"I": . INITIALIZE DISK 
WITH NEW ID.B. .  8: . CLOSE DIRECT ACCE
SS CHANNEL...*.  15: . CLOSE COMMAND CHA
NNEL...4.. 800: . GOTO MAIN SELECTION SC
REEN.E....: . UNSCRATCH FILES......".WHI
CH SECTOR";S$:S.E(S$):. S.0 . S.19 . 300
0.).B.."..WHAT IS THE FIRST BYTE OF THE 
FILE YOU".D.C.."WISH TO UNSCRATCH ?".S.D
.."OPTIONS ARE: 2,34,66,98,130,162,194,2
26"...L.. BP$:BP.E(BP$):. INPUT FILE TAR
GET BYTE FOR UNSCRATCH...V.BS.(BP.2).(BP
.34).(BP.66).(BP.98).(BP.130).(BP.162).(
BP.194).(BP.226).#.... BS...1 . 3012:. R
EJECT INVALID INPUT.>...."..SELECT FILE 
TYPE:".V....".  1. SEQUENTIAL".J...."  2
. PROGRAM".{...."  3. USER"......"  4. R
ELATIVE"...... A$:. A$."" . 3100...&.A.E
(A$):. A.1 . A.4 . 3100:. REJECT INVALID
 CHOICE...0.B.A.128:. SET INPUT BYTE TO 
MATCH DOS FILE CODES.E.:.. 15,8,15,"I":.
 OPEN COMMAND CHANNEL TO DISK.Z.D.. 8,8,
8,"#":. OPEN DIRECT ACCESS CHANNEL TO DI
SK...N..15,"U1:"8;0;18;S:. LOAD SECTOR C
ONTAINING FILE TO BE UNSCRATCHED...X..15
,"B-P:"8;BP:. SET BUFFER POINTER TO TARG
ET ADDRESS.5.B..8,G(B);:. CHANGE TARGET 
FILE CODE IN CHANNEL 8 BUFFER.V.L..15,"U
2:"8;0;18;S:. RETURN CHANGED CONTENTS TO
 TARGET SECTOR...Q..15,"I"...V.  8:. CLO
SE DIRECT ACCESS CHANNEL.J...  15: . CLO
SE COMMAND CHANNEL...... 800:. GOTO MAIN
 SELECTION SCREEN...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL