00000000: 01 04 2E 04 64 00 99 22 93 12 54 45 58 54 20 45 |....d.."..TEXT E|
00000010: 44 49 54 4F 52 92 20 20 20 20 20 20 20 20 20 4A |DITOR. J|
00000020: 49 4D 20 42 55 54 54 45 52 46 49 45 4C 44 00 4E |IM BUTTERFIELD.N|
00000030: 04 6E 00 85 22 49 4E 50 55 54 20 46 49 4C 45 20 |.n.."INPUT FILE |
00000040: 4E 41 4D 45 20 20 4E 9D 9D 9D 22 3B 4E 24 00 69 |NAME N...";N$.i|
00000050: 04 78 00 8B 4E 24 B3 B1 22 4E 22 A7 4D B2 32 3A |.x..N$.."N".M.2:|
00000060: 9F 31 2C 38 2C 33 2C 4E 24 00 9A 04 82 00 85 22 |.1,8,3,N$......"|
00000070: 4F 55 54 50 55 54 20 46 49 4C 45 20 54 59 50 45 |OUTPUT FILE TYPE|
00000080: 28 44 49 53 4B 20 4F 52 20 50 52 49 4E 54 45 52 |(DISK OR PRINTER|
00000090: 20 20 50 9D 9D 9D 22 3B 54 24 00 AD 04 8C 00 8B | P...";T$......|
000000A0: C6 28 54 24 29 B3 B1 36 38 A7 32 30 30 00 CE 04 |.(T$)..68.200...|
000000B0: 96 00 85 22 4F 55 54 50 55 54 20 46 49 4C 45 20 |..."OUTPUT FILE |
000000C0: 4E 41 4D 45 A0 A0 A0 9D 9D 9D 22 3B 46 24 00 E0 |NAME......";F$..|
000000D0: 04 9B 00 8B 46 24 B2 22 A0 22 A7 46 24 B2 22 22 |....F$.".".F$.""|
000000E0: 00 FF 04 A0 00 9F 32 2C 38 2C 34 2C 22 30 3A 22 |......2,8,4,"0:"|
000000F0: AA 46 24 AA 22 2C 53 2C 57 22 3A 89 32 31 30 00 |.F$.",S,W":.210.|
00000100: 09 05 C8 00 9F 32 2C 34 3A 00 22 05 D2 00 42 24 |.....2,4:."...B$|
00000110: B2 C7 28 33 32 29 AA C7 28 32 30 29 AA C7 28 32 |..(32)..(20)..(2|
00000120: 30 29 00 37 05 DC 00 50 24 B2 C7 28 31 37 35 29 |0).7...P$..(175)|
00000130: AA C7 28 31 35 37 29 00 44 05 E6 00 52 24 B2 C7 |..(157).D...R$..|
00000140: 28 31 33 29 00 51 05 F0 00 53 24 B2 C7 28 33 32 |(13).Q...S$..(32|
00000150: 29 00 66 05 FA 00 4A 24 B2 C7 28 31 36 38 29 AA |).f...J$..(168).|
00000160: C7 28 31 35 37 29 00 74 05 04 01 97 35 39 34 36 |.(157).t....5946|
00000170: 38 2C 31 34 00 83 05 0E 01 44 24 B2 52 24 3A 8D |8,14.....D$.R$:.|
00000180: 38 32 30 00 93 05 18 01 8B 4E 24 B2 22 4E 22 A7 |820......N$."N".|
00000190: 34 38 30 00 B4 05 2C 01 8F 20 2A 2A 54 45 53 54 |480...,.. **TEST|
000001A0: 20 4B 45 59 42 4F 41 52 44 20 46 4F 52 20 4D 4F | KEYBOARD FOR MO|
000001B0: 44 45 2A 2A 00 C1 05 36 01 A1 4D 24 3A 8D 38 36 |DE**...6..M$:.86|
000001C0: 30 00 DB 05 90 01 8F 20 2A 2A 47 45 54 20 49 4E |0...... **GET IN|
000001D0: 50 55 54 20 53 54 55 46 46 2A 2A 00 EC 05 9A 01 |PUT STUFF**.....|
000001E0: A1 23 31 2C 44 24 3A 53 57 B2 53 54 00 0A 06 A4 |.#1,D$:SW.ST....|
000001F0: 01 8B 44 24 B2 52 24 B0 28 44 24 B2 4B 24 20 AF |..D$.R$.(D$.K$ .|
00000200: 20 53 B2 31 29 A7 8D 35 30 30 00 23 06 AE 01 4C | S.1)..500.#...L|
00000210: 24 B2 4C 24 AA 44 24 3A 8B 44 24 B3 B1 53 24 A7 |$.L$.D$:.D$..S$.|
00000220: 53 B2 31 00 36 06 B8 01 99 44 24 3B 3A 8B 4D B2 |S.1.6....D$;:.M.|
00000230: 36 A7 8D 35 30 30 00 60 06 C2 01 8B 44 24 B2 47 |6..500.`....D$.G|
00000240: 24 A7 8B C3 28 4C 24 29 B1 B2 48 A7 8B C9 28 4C |$...(L$)..H...(L|
00000250: 24 2C 48 29 B2 48 24 A7 4B B2 31 3A 8D 35 30 30 |$,H).H$.K.1:.500|
00000260: 00 6E 06 CC 01 8B 53 57 B2 30 A7 33 30 30 00 75 |.n....SW.0.300.u|
00000270: 06 D6 01 A0 31 00 82 06 E0 01 4D B2 30 3A 8D 35 |....1.....M.0:.5|
00000280: 30 30 00 8B 06 EA 01 A0 32 3A 80 00 BB 06 F4 01 |00......2:......|
00000290: 46 B2 30 3A 53 B2 30 3A 8F 20 50 41 55 53 45 20 |F.0:S.0:. PAUSE |
000002A0: 46 4F 52 20 43 48 41 4E 47 45 2F 52 45 54 55 52 |FOR CHANGE/RETUR|
000002B0: 4E 20 4B 45 59 20 45 58 49 54 53 00 C7 06 FE 01 |N KEY EXITS.....|
000002C0: 4C B2 C3 28 4C 24 29 00 D4 06 08 02 8B 4D B2 32 |L..(L$)......M.2|
000002D0: A7 37 30 30 00 ED 06 12 02 8B 28 4D B2 33 20 B0 |.700......(M.3 .|
000002E0: 20 4D B2 37 29 AF 4B B2 30 A7 37 30 30 00 F6 06 | M.7).K.0.700...|
000002F0: 1C 02 99 50 24 3B 00 26 07 26 02 52 B2 52 AA 31 |...P$;.&.&.R.R.1|
00000300: 3A 50 B2 C2 28 31 35 31 29 3A A1 43 24 3A 8B 43 |:P..(151):.C$:.C|
00000310: 24 B3 B1 22 22 A7 52 B2 30 3A 43 B2 C6 28 43 24 |$.."".R.0:C..(C$|
00000320: 29 3A 89 35 38 30 00 40 07 30 02 8B 50 B2 32 35 |):.580.@.0..P.25|
00000330: 35 B0 43 B3 B1 32 30 A7 43 B2 30 3A 89 35 35 30 |5.C..20.C.0:.550|
00000340: 00 4E 07 3A 02 8B 52 B3 32 30 A7 35 35 30 00 72 |.N.:..R.20.550.r|
00000350: 07 44 02 8B 43 B2 32 30 AF 4C B1 30 A7 46 B2 31 |.D..C.20.L.0.F.1|
00000360: 3A 4C 24 B2 C8 28 4C 24 2C 4C AB 31 29 3A 99 42 |:L$..(L$,L.1):.B|
00000370: 24 3B 00 80 07 4E 02 8B 43 B2 31 33 A7 37 30 30 |$;...N..C.13.700|
00000380: 00 98 07 58 02 8B 43 B2 33 34 A7 99 C7 28 33 34 |...X..C.34...(34|
00000390: 29 3B C7 28 32 30 29 3B 00 BA 07 62 02 8B 28 43 |);.(20);...b..(C|
000003A0: AF 31 32 37 29 B1 33 31 A7 46 B2 31 3A 99 43 24 |.127).31.F.1:.C$|
000003B0: 3B 3A 4C 24 B2 4C 24 AA 43 24 00 C3 07 6C 02 89 |;:L$.L$.C$...l..|
000003C0: 35 31 30 00 E4 07 BC 02 8F 20 2A 2A 52 45 54 55 |510...... **RETU|
000003D0: 52 4E 20 2D 20 54 45 53 54 20 46 4F 52 20 45 58 |RN - TEST FOR EX|
000003E0: 49 54 2A 2A 00 F8 07 C6 02 8B 44 24 B3 B1 52 24 |IT**......D$..R$|
000003F0: AF 4D B1 31 A7 38 31 30 00 05 08 D0 02 8B 4C B2 |.M.1.810......L.|
00000400: 30 A7 37 35 30 00 2E 08 DA 02 8B 4B B2 30 AF 4D |0.750......K.0.M|
00000410: B2 33 A7 81 4A B2 31 A4 4C 3A 8B CA 28 4C 24 2C |.3..J.1.L:..(L$,|
00000420: 4A 2C 31 29 B2 53 24 A7 82 4A 3A 4B B2 31 00 53 |J,1).S$..J:K.1.S|
00000430: 08 E4 02 99 22 20 22 3A 98 32 2C 4C 24 3B 52 24 |...." ":.2,L$;R$|
00000440: 3A 4C 24 B2 22 22 3A 8B 4D B3 33 B0 4B B2 31 A7 |:L$."":.M.3.K.1.|
00000450: 35 31 30 00 5D 08 EE 02 44 24 B2 22 22 00 79 08 |510.]...D$."".y.|
00000460: 20 03 8F 20 2A 2A 43 48 45 43 4B 20 46 4F 52 4D | .. **CHECK FORM|
00000470: 41 54 20 4B 45 59 53 2A 2A 00 86 08 2A 03 8B 46 |AT KEYS**...*..F|
00000480: B2 30 A7 39 32 30 00 93 08 34 03 8B 4D B2 30 A7 |.0.920...4..M.0.|
00000490: 39 32 30 00 9C 08 3E 03 99 4A 24 3B 00 AF 08 48 |920...>..J$;...H|
000004A0: 03 A1 4D 24 3A 8B 4D 24 B2 22 22 A7 38 34 30 00 |..M$:.M$."".840.|
000004B0: D0 08 52 03 8B 4D 24 B2 22 49 22 A7 4D B2 31 3A |..R..M$."I".M.1:|
000004C0: 4B 24 B2 22 22 3A 47 24 B2 22 22 3A 89 35 31 30 |K$."":G$."":.510|
000004D0: 00 EB 08 5C 03 8B 4D 24 B2 22 53 22 A7 4D B2 37 |...\..M$."S".M.7|
000004E0: 3A 4B 24 B2 22 22 3A 8D 39 33 30 00 09 09 66 03 |:K$."":.930...f.|
000004F0: 8B 4D 24 B2 22 43 22 A7 4D B2 36 3A 4B 24 B2 22 |.M$."C".M.6:K$."|
00000500: 22 3A 47 24 B2 22 41 41 22 00 27 09 70 03 8B 4D |":G$."AA".'.p..M|
00000510: 24 B2 22 57 22 A7 4D B2 35 3A 4B 24 B2 53 24 3A |$."W".M.5:K$.S$:|
00000520: 47 24 B2 22 41 41 22 00 45 09 7A 03 8B 4D 24 B2 |G$."AA".E.z..M$.|
00000530: 22 4C 22 A7 4D B2 34 3A 4B 24 B2 22 22 3A 47 24 |"L".M.4:K$."":G$|
00000540: B2 22 41 41 22 00 63 09 84 03 8B 4D 24 B2 22 50 |."AA".c....M$."P|
00000550: 22 A7 4D B2 33 3A 4B 24 B2 22 22 3A 47 24 B2 22 |".M.3:K$."":G$."|
00000560: 41 41 22 00 81 09 8E 03 8B 4D 24 B2 22 54 22 A7 |AA"......M$."T".|
00000570: 4D B2 32 3A 4B 24 B2 22 22 3A 47 24 B2 22 41 41 |M.2:K$."":G$."AA|
00000580: 22 00 8B 09 98 03 4B B2 30 3A 8E 00 A8 09 A2 03 |".....K.0:......|
00000590: 99 3A 85 22 53 45 41 52 43 48 20 46 4F 52 A0 A0 |.:."SEARCH FOR..|
000005A0: A0 9D 9D 9D 22 3B 48 24 00 BF 09 A7 03 8B 48 24 |....";H$......H$|
000005B0: B2 22 A0 22 A7 99 22 91 91 22 3A 89 39 33 30 00 |.".".."..":.930.|
000005C0: D8 09 AC 03 48 B2 C3 28 48 24 29 3A 47 24 B2 C9 |....H..(H$):G$..|
000005D0: 28 48 24 2C 31 29 3A 8E 00 00 00 |(H$,1):.... |
....D.."..TEXT EDITOR. JIM BUTTE
RFIELD.N.N.."INPUT FILE NAME N...";N$.I
.X..N$.."N".M.2:.1,8,3,N$......"OUTPUT F
ILE TYPE(DISK OR PRINTER P...";T$......
F(T$)..68.200.N...."OUTPUT FILE NAME .
..";F$......F$." ".F$.""... ..2,8,4,"0:"
.F$.",S,W":.210...H..2,4:.".R.B$.G(32).G
(20).G(20).7...P$.G(175).G(157).D...R$.G
(13).Q...S$.G(32).F...J$.G(168).G(157).T
....59468,14.....D$.R$:.820......N$."N".
480...,.. **TEST KEYBOARD FOR MODE**.A.6
..M$:.860...... **GET INPUT STUFF**.....
.#1,D$:SW.ST......D$.R$.(D$.K$ . S.1)..5
00.#...L$.L$.D$:.D$..S$.S.1.6....D$;:.M.
6..500.`.B..D$.G$..C(L$)..H..I(L$,H).H$.
K.1:.500.N.L..SW.0.300.U.V. 1.....M.0:.5
00..... 2:......F.0:S.0:. PAUSE FOR CHAN
GE/RETURN KEY EXITS.G...L.C(L$).T....M.2
.700......(M.3 . M.7).K.0.700......P$;.&
.&.R.R.1:P.B(151):.C$:.C$.."".R.0:C.F(C$
):.580.@.0..P.255.C..20.C.0:.550.N.:..R.
20.550.R.D..C.20.L.0.F.1:L$.H(L$,L.1):.B
$;...N..C.13.700...X..C.34..G(34);G(20);
...B..(C.127).31.F.1:.C$;:L$.L$.C$.C.L..
510...... **RETURN - TEST FOR EXIT**...F
..D$..R$.M.1.810...P..L.0.750...Z..K.0.M
.3..J.1.L:.J(L$,J,1).S$..J:K.1.S...." ":
.2,L$;R$:L$."":.M.3.K.1.510.]...D$."".Y.
.. **CHECK FORMAT KEYS**...*..F.0.920..
.4..M.0.920...>..J$;...H..M$:.M$."".840.
P.R..M$."I".M.1:K$."":G$."":.510...\..M$
."S".M.7:K$."":.930...F..M$."C".M.6:K$."
":G$."AA".'.P..M$."W".M.5:K$.S$:G$."AA".
E.Z..M$."L".M.4:K$."":G$."AA".C....M$."P
".M.3:K$."":G$."AA"......M$."T".M.2:K$."
":G$."AA".....K.0:.......:."SEARCH FOR
...";H$......H$." ".."..":.930.X...H.C(
H$):G$.I(H$,1):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL