TEXT-EDITOR

FILE INFORMATION

FILENAME(S): TEXT-EDITOR

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-12-01 13:57:33

APPEARS ON: 1 disk(s)

FILE HASH

7c493dd106a063716a2303a9f8da48a7d2cb6bf13b7c563d7cff345a13812b55

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
PUBLIC DOMAIN	TEXT-EDITOR	PRG	HOL2001, Misc	19	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1E 08 01 00 8F 20  43 4F 52 52 45 43 54 45  |....... CORRECTE|
00000010: 44 20 46 4F 52 20 36 34  20 42 59 20 42 4B 00 26  |D FOR 64 BY BK.&|
00000020: 08 0A 00 99 22 93 00 4D  08 64 00 99 22 54 45 58  |...."..M.d.."TEX|
00000030: 54 20 45 44 49 54 4F 52  20 20 20 20 20 4A 49 4D  |T EDITOR     JIM|
00000040: 20 42 55 54 54 45 52 46  49 45 4C 44 22 00 7E 08  | BUTTERFIELD".~.|
00000050: 6E 00 86 20 41 24 28 33  29 3A 41 24 28 31 29 B2  |n.. A$(3):A$(1).|
00000060: 22 40 4F 55 54 50 55 54  40 22 3A 41 24 28 32 29  |"@OUTPUT@":A$(2)|
00000070: B2 22 40 4E 4F 20 4F 55  54 50 55 54 40 22 00 A2  |."@NO OUTPUT@"..|
00000080: 08 78 00 99 22 49 4E 50  55 54 20 46 49 4C 45 20  |.x.."INPUT FILE |
00000090: 4E 41 4D 45 22 3A 85 22  20 20 4E 9D 9D 9D 22 3B  |NAME":."  N...";|
000000A0: 4E 24 00 BF 08 82 00 8B  20 4E 24 B3 B1 22 4E 22  |N$...... N$.."N"|
000000B0: A7 20 4D B2 32 3A 9F 31  2C 38 2C 33 2C 4E 24 00  |. M.2:.1,8,3,N$.|
000000C0: F6 08 8C 00 99 22 4F 55  54 50 55 54 20 46 49 4C  |....."OUTPUT FIL|
000000D0: 45 20 54 59 50 45 20 28  44 49 53 4B 20 4F 52 20  |E TYPE (DISK OR |
000000E0: 50 52 49 4E 54 45 52 29  22 3A 85 22 20 20 50 9D  |PRINTER)":."  P.|
000000F0: 9D 9D 22 3B 54 24 00 23  09 96 00 54 B2 C6 28 54  |..";T$.#...T..(T|
00000100: 24 29 3A 8B 20 54 B2 38  30 20 A7 20 9F 20 32 2C  |$):. T.80 . . 2,|
00000110: 34 3A 55 24 B2 C7 28 31  37 29 3A 41 B2 31 3A 89  |4:U$..(17):A.1:.|
00000120: 32 31 30 00 34 09 A0 00  8B 20 54 B2 36 34 20 89  |210.4.... T.64 .|
00000130: 20 32 31 30 00 46 09 AA  00 8B 20 54 B3 B1 36 38  | 210.F.... T..68|
00000140: 20 89 20 31 34 30 00 66  09 B4 00 41 B2 31 3A 99  | . 140.f...A.1:.|
00000150: 22 4F 55 54 50 55 54 20  46 49 4C 45 20 4E 41 4D  |"OUTPUT FILE NAM|
00000160: 45 22 3A 85 46 24 00 81  09 BE 00 9F 20 32 2C 38  |E":.F$...... 2,8|
00000170: 2C 34 2C 22 30 3A 22 AA  46 24 AA 22 2C 53 2C 57  |,4,"0:".F$.",S,W|
00000180: 22 00 9A 09 D2 00 42 24  B2 C7 28 33 32 29 AA C7  |".....B$..(32)..|
00000190: 28 32 30 29 AA C7 28 32  30 29 00 AF 09 DC 00 50  |(20)..(20).....P|
000001A0: 24 B2 C7 28 31 37 35 29  AA C7 28 31 35 37 29 00  |$..(175)..(157).|
000001B0: BC 09 E6 00 52 24 B2 C7  28 31 33 29 00 C9 09 F0  |....R$..(13)....|
000001C0: 00 53 24 B2 C7 28 33 32  29 00 DE 09 FA 00 4A 24  |.S$..(32).....J$|
000001D0: B2 C7 28 31 36 38 29 AA  C7 28 31 35 37 29 00 E9  |..(168)..(157)..|
000001E0: 09 04 01 99 C7 28 31 34  29 00 F8 09 0E 01 44 24  |.....(14).....D$|
000001F0: B2 52 24 3A 8D 38 32 30  00 0A 0A 18 01 8B 20 4E  |.R$:.820...... N|
00000200: 24 B2 22 4E 22 89 20 34  38 30 00 27 0A 2C 01 8F  |$."N". 480.'.,..|
00000210: 20 54 45 53 54 20 4B 45  59 42 4F 41 52 44 20 46  | TEST KEYBOARD F|
00000220: 4F 52 20 4D 4F 44 45 00  35 0A 36 01 A1 20 4D 24  |OR MODE.5.6.. M$|
00000230: 3A 8D 38 38 30 00 4B 0A  90 01 8F 20 47 45 54 20  |:.880.K.... GET |
00000240: 49 4E 50 55 54 20 53 54  55 46 46 00 5C 0A 9A 01  |INPUT STUFF.\...|
00000250: A1 23 31 2C 44 24 3A 53  57 B2 53 54 00 7F 0A A4  |.#1,D$:SW.ST....|
00000260: 01 8B 20 44 24 B2 52 24  20 B0 20 28 44 24 B2 4B  |.. D$.R$ . (D$.K|
00000270: 24 20 AF 20 53 B2 31 29  20 A7 20 8D 35 30 30 00  |$ . S.1) . .500.|
00000280: 9B 0A AE 01 4C 24 B2 4C  24 AA 44 24 3A 8B 20 44  |....L$.L$.D$:. D|
00000290: 24 B3 B1 53 24 20 A7 20  53 B2 31 00 B2 0A B8 01  |$..S$ . S.1.....|
000002A0: 99 20 44 24 3B 3A 8B 20  4D B2 36 20 A7 20 8D 35  |. D$;:. M.6 . .5|
000002B0: 30 30 00 E5 0A C2 01 8B  20 44 24 B2 47 24 20 A7  |00...... D$.G$ .|
000002C0: 20 8B 20 C3 28 4C 24 29  B1 B2 48 20 A7 20 8B 20  | . .(L$)..H . . |
000002D0: C9 28 4C 24 2C 48 29 B2  48 24 20 A7 20 4B B2 31  |.(L$,H).H$ . K.1|
000002E0: 3A 8D 35 30 30 00 F6 0A  CC 01 8B 20 53 57 B2 30  |:.500...... SW.0|
000002F0: 20 89 20 33 30 30 00 FE  0A D6 01 A0 20 31 00 0B  | . 300...... 1..|
00000300: 0B E0 01 4D B2 30 3A 8D  35 30 30 00 14 0B EA 01  |...M.0:.500.....|
00000310: A0 32 3A 80 00 45 0B F4  01 46 B2 30 3A 53 B2 30  |.2:..E...F.0:S.0|
00000320: 3A 8F 20 20 50 41 55 53  45 20 46 4F 52 20 43 48  |:.  PAUSE FOR CH|
00000330: 41 4E 47 45 2F 52 45 54  55 52 4E 20 4B 45 59 20  |ANGE/RETURN KEY |
00000340: 45 58 49 54 53 00 51 0B  FE 01 4C B2 C3 28 4C 24  |EXITS.Q...L..(L$|
00000350: 29 00 60 0B 08 02 8B 20  4D B2 32 20 89 37 30 30  |).`.... M.2 .700|
00000360: 00 7E 0B 12 02 8B 20 28  4D B2 33 20 B0 20 20 4D  |.~.... (M.3 .  M|
00000370: B2 37 29 20 AF 20 4B B2  30 20 89 37 30 30 00 88  |.7) . K.0 .700..|
00000380: 0B 1C 02 99 20 50 24 3B  00 B9 0B 26 02 52 B2 52  |.... P$;...&.R.R|
00000390: AA 31 3A 50 B2 C2 28 31  39 37 29 3A A1 43 24 3A  |.1:P..(197):.C$:|
000003A0: 8B 43 24 B3 B1 22 22 A7  20 52 B2 30 3A 43 B2 C6  |.C$.."". R.0:C..|
000003B0: 28 43 24 29 3A 89 35 38  30 00 D7 0B 30 02 8B 20  |(C$):.580...0.. |
000003C0: 50 B2 36 34 20 B0 20 43  B3 B1 32 30 20 A7 20 43  |P.64 . C..20 . C|
000003D0: B2 30 3A 89 35 35 30 00  E7 0B 3A 02 8B 20 52 B3  |.0:.550...:.. R.|
000003E0: 32 30 20 89 35 35 30 00  10 0C 44 02 8B 20 43 B2  |20 .550...D.. C.|
000003F0: 32 30 20 AF 20 4C B1 30  20 A7 20 46 B2 31 3A 4C  |20 . L.0 . F.1:L|
00000400: 24 B2 C8 28 4C 24 2C 4C  AB 31 29 3A 99 42 24 3B  |$..(L$,L.1):.B$;|
00000410: 00 20 0C 4E 02 8B 20 43  B2 31 33 20 89 37 30 30  |. .N.. C.13 .700|
00000420: 00 3C 0C 58 02 8B 20 43  B2 33 34 20 A7 20 99 20  |.<.X.. C.34 . . |
00000430: C7 28 33 34 29 3B C7 28  32 30 29 3B 00 64 0C 62  |.(34);.(20);.d.b|
00000440: 02 8B 20 28 43 20 AF 20  31 32 37 29 B1 33 31 20  |.. (C . 127).31 |
00000450: A7 20 46 B2 31 3A 99 20  43 24 3B 3A 4C 24 B2 4C  |. F.1:. C$;:L$.L|
00000460: 24 AA 43 24 00 6D 0C 6C  02 89 35 31 30 00 8B 0C  |$.C$.m.l..510...|
00000470: BC 02 8F 20 20 52 45 54  55 52 4E 20 2D 20 54 45  |...  RETURN - TE|
00000480: 53 54 20 46 4F 52 20 45  58 49 54 00 A3 0C C6 02  |ST FOR EXIT.....|
00000490: 8B 20 44 24 B3 B1 52 24  20 AF 20 4D B1 31 20 89  |. D$..R$ . M.1 .|
000004A0: 38 31 30 00 B2 0C D0 02  8B 20 4C B2 30 20 89 37  |810...... L.0 .7|
000004B0: 35 30 00 CA 0C DA 02 8B  20 4B B2 30 20 AF 20 4D  |50...... K.0 . M|
000004C0: B2 33 20 A7 20 8D 20 39  39 30 00 EF 0C E4 02 99  |.3 . . 990......|
000004D0: 22 20 22 3A 8D 39 37 30  3A 4C 24 B2 22 22 3A 8B  |" ":.970:L$."":.|
000004E0: 20 4D B3 33 20 B0 20 4B  B2 31 20 89 35 31 30 00  | M.3 . K.1 .510.|
000004F0: F9 0C EE 02 44 24 B2 22  22 00 11 0D 20 03 8F 20  |....D$.""... .. |
00000500: 43 48 45 43 4B 20 46 4F  52 4D 41 54 20 4B 45 59  |CHECK FORMAT KEY|
00000510: 53 00 20 0D 2A 03 8B 20  46 B2 30 20 89 39 34 30  |S. .*.. F.0 .940|
00000520: 00 2F 0D 34 03 8B 20 4D  B2 30 20 89 39 34 30 00  |./.4.. M.0 .940.|
00000530: 39 0D 3E 03 99 20 4A 24  3B 00 4E 0D 48 03 A1 20  |9.>.. J$;.N.H.. |
00000540: 4D 24 3A 8B 20 4D 24 B2  22 22 89 38 34 30 00 5E  |M$:. M$."".840.^|
00000550: 0D 52 03 8B 20 4D B2 31  20 A7 20 4D B2 32 00 84  |.R.. M.1 . M.2..|
00000560: 0D 5C 03 8B 20 4D 24 B2  22 49 22 20 A7 20 4D B2  |.\.. M$."I" . M.|
00000570: 31 3A 4B 24 B2 22 22 3A  47 24 B2 22 41 41 22 3A  |1:K$."":G$."AA":|
00000580: 89 35 31 30 00 A6 0D 66  03 8B 20 4D 24 B2 22 40  |.510...f.. M$."@|
00000590: 22 20 A7 20 41 B2 33 AB  41 3A 99 41 24 28 41 29  |" . A.3.A:.A$(A)|
000005A0: 3B 3A 89 38 33 30 00 C3  0D 70 03 8B 4D 24 B2 22  |;:.830...p..M$."|
000005B0: 53 22 20 A7 20 4D B2 37  3A 4B 24 B2 22 22 3A 8D  |S" . M.7:K$."":.|
000005C0: 39 35 30 00 E4 0D 7A 03  8B 20 4D 24 B2 22 43 22  |950...z.. M$."C"|
000005D0: 20 A7 20 4D B2 36 3A 4B  24 B2 22 22 3A 47 24 B2  | . M.6:K$."":G$.|
000005E0: 22 41 41 22 00 05 0E 84  03 8B 20 4D 24 B2 22 57  |"AA"...... M$."W|
000005F0: 22 20 A7 20 4D B2 35 3A  4B 24 B2 53 24 3A 47 24  |" . M.5:K$.S$:G$|
00000600: B2 22 41 41 22 00 26 0E  8E 03 8B 20 4D 24 B2 22  |."AA".&.... M$."|
00000610: 4C 22 20 A7 20 4D B2 34  3A 4B 24 B2 22 22 3A 47  |L" . M.4:K$."":G|
00000620: 24 B2 22 41 41 22 00 47  0E 98 03 8B 20 4D 24 B2  |$."AA".G.... M$.|
00000630: 22 50 22 20 A7 20 4D B2  33 3A 4B 24 B2 22 22 3A  |"P" . M.3:K$."":|
00000640: 47 24 B2 22 41 41 22 00  68 0E A2 03 8B 20 4D 24  |G$."AA".h.... M$|
00000650: B2 22 54 22 20 A7 20 4D  B2 32 3A 4B 24 B2 22 22  |."T" . M.2:K$.""|
00000660: 3A 47 24 B2 22 41 41 22  00 72 0E AC 03 4B B2 30  |:G$."AA".r...K.0|
00000670: 3A 8E 00 8A 0E B6 03 99  3A 99 22 53 45 41 52 43  |:.......:."SEARC|
00000680: 48 20 46 4F 52 22 3A 85  48 24 00 A3 0E C0 03 48  |H FOR":.H$.....H|
00000690: B2 C3 28 48 24 29 3A 47  24 B2 C9 28 48 24 2C 31  |..(H$):G$..(H$,1|
000006A0: 29 3A 8E 00 BC 0E CA 03  8B 20 41 B2 31 20 A7 20  |):....... A.1 . |
000006B0: 98 32 2C 55 24 3B 4C 24  3B 52 24 3B 00 C2 0E D4  |.2,U$;L$;R$;....|
000006C0: 03 8E 00 EB 0E DE 03 81  20 4A B2 31 20 A4 20 4C  |........ J.1 . L|
000006D0: 3A 8B 20 CA 28 4C 24 2C  4A 2C 31 29 B2 53 24 20  |:. .(L$,J,1).S$ |
000006E0: A7 20 82 20 4A 3A 89 20  39 39 35 00 F9 0E E0 03  |. . J:. 995.....|
000006F0: 56 B2 31 3A 89 20 39 39  38 00 0D 0F E3 03 8B 20  |V.1:. 998...... |
00000700: 56 B2 31 20 A7 20 4B B2  31 3A 56 B2 30 00 13 0F  |V.1 . K.1:V.0...|
00000710: E6 03 8E 00 00 00 30                              |......0         |

....... CORRECTED FOR 64 BY BK.&...."..M
.D.."TEXT EDITOR     JIM BUTTERFIELD".~.
N.. A$(3):A$(1)."@OUTPUT@":A$(2)."@NO OU
TPUT@"...X.."INPUT FILE NAME":."  N...";
N$...... N$.."N". M.2:.1,8,3,N$......"OU
TPUT FILE TYPE (DISK OR PRINTER)":."  P.
..";T$.#...T.F(T$):. T.80 . . 2,4:U$.G(1
7):A.1:.210.4. .. T.64 . 210.F.... T..68
 . 140.F...A.1:."OUTPUT FILE NAME":.F$..
.... 2,8,4,"0:".F$.",S,W"...R.B$.G(32).G
(20).G(20).....P$.G(175).G(157).....R$.G
(13).I...S$.G(32).....J$.G(168).G(157)..
....G(14).....D$.R$:.820...... N$."N". 4
80.'.,.. TEST KEYBOARD FOR MODE.5.6.. M$
:.880.K.... GET INPUT STUFF.\....#1,D$:S
W.ST..... D$.R$ . (D$.K$ . S.1) . .500.
....L$.L$.D$:. D$..S$ . S.1...... D$;:. 
M.6 . .500...B.. D$.G$ . . C(L$)..H . . 
I(L$,H).H$ . K.1:.500...L.. SW.0 . 300..
.V.  1.....M.0:.500..... 2:..E...F.0:S.0
:.  PAUSE FOR CHANGE/RETURN KEY EXITS.Q.
..L.C(L$).`.... M.2 .700.~.... (M.3 .  M
.7) . K.0 .700...... P$;...&.R.R.1:P.B(1
97):.C$:.C$.."". R.0:C.F(C$):.580.W.0.. 
P.64 . C..20 . C.0:.550...:.. R.20 .550.
..D.. C.20 . L.0 . F.1:L$.H(L$,L.1):.B$;
. .N.. C.13 .700.<.X.. C.34 . . G(34);G(
20);.D.B.. (C . 127).31 . F.1:. C$;:L$.L
$.C$.M.L..510......  RETURN - TEST FOR E
XIT...F.. D$..R$ . M.1 .810...P.. L.0 .7
50.J.Z.. K.0 . M.3 . . 990......" ":.970
:L$."":. M.3 . K.1 .510.....D$.""... .. 
CHECK FORMAT KEYS. .*.. F.0 .940./.4.. M
.0 .940.9.>.. J$;.N.H.. M$:. M$."".840.^
.R.. M.1 . M.2...\.. M$."I" . M.1:K$."":
G$."AA":.510...F.. M$."@" . A.3.A:.A$(A)
;:.830.C.P..M$."S" . M.7:K$."":.950...Z.
. M$."C" . M.6:K$."":G$."AA"...... M$."W
" . M.5:K$.S$:G$."AA".&.... M$."L" . M.4
:K$."":G$."AA".G.... M$."P" . M.3:K$."":
G$."AA".H.... M$."T" . M.2:K$."":G$."AA"
.R...K.0:.......:."SEARCH FOR":.H$.....H
.C(H$):G$.I(H$,1):....J.. A.1 . .2,U$;L$
;R$;.B.T........ J.1 . L:. J(L$,J,1).S$ 
. . J:. 995.....V.1:. 998...... V.1 . K.
1:V.0.........0

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL