� Watcher Spelling Checker
5� Watcher Support and Subroutines program - WASSP
"� (C) Code Allan Kelly 26/5/87
( 
)� data% 32
-version$="V 1.02"
2diction$="C.DICTION"
<nw$="C.NEWORDS"
Fosbyte=&FFF4:osword=&FFF1
Poswrch=&FFEE:osnewl=&FFE7
Zosasci=&FFE3:osrdch=&FFE0
dosfile=&FFDD:osargs=&FFDA
nosbget=&FFD7:osbput=&FFD4
xosfind=&FFCE:oscli=&FFF7
�mem_start=&6900
�ass_start=&2000
�� pass=4 � 6 � 2
�P%=ass_start
�O%=mem_start
�[
�OPT pass
�.display STX&74
�
STY&75
�.display2 LDY#0
�.dback LDA(&74),Y
�CMP#&FF
�BEQ dfor

JSR oswrch

INY


JMP dback

"
.dfor RTS

,".hex_out \ A,Y,X output as hex

6PHA

@	LSR A

J	LSR A

T	LSR A

^	LSR A

hJSR add_out

rPLA

|�#&F

�JSR add_out

�TYA

�	LSR A

�	LSR A

�	LSR A

�	LSR A

�JSR add_out

�TYA

��#&F

�JSR add_out

�TXA

�	LSR A

�	LSR A
	LSR A
	LSR A
JSR add_out
&TXA
0�#&F
:JSR add_out
DRTS
N 
X.add_out CLC
bADC#&30
lCMP#&3A
v
BCC adofo
�CLC
�	ADC#7
�.adofo JSR oswrch
�RTS
� 
�".bottem_window LDA window_flag
�
BEQ bwfo1
�RTS
�.bwfo1 LDY#0
�.bwba1 LDA text_window,Y
�JSR oswrch
�INY
�	CPY#5

BNE bwba1
	LDA#1
STA window_flag
 
LDA#31
*JSR oswrch
4LDA bw_x
>JSR oswrch
HLDA bw_y
RJSR oswrch
\RTS
f#.bw_x BRK \ Bottem window cords
p
.bw_y BRK
z.window_flag BRK
�.top_window LDA window_flag
�
BNE twfo1
�RTS
�.twfo1 LDA#&86
�JSR osbyte
�STX bw_x
�STY bw_y
�	LDY#0
�.twba1 LDA message_window,Y
�JSR oswrch
�INY
�	CPY#5
�
BNE twba1
	LDA#0
STA window_flag
RTS
$ 
.3.tell_user STX&74 \ Print message in top window
8
STY&75
BLDA window_flag
LPHA
VJSR top_window
`	LDX#0
j	LDY#6
tJSR tab
~JSR display2
�PLA
�
BEQ tufo1
�JSR bottem_window
�.tufo1 RTS
� 
�.tab LDA#31
�JSR oswrch
�TXA
�JSR oswrch
�TYA
�JSR oswrch
�RTS
 

.clear_user JSR top_window
	LDX#0
	LDY#5
(JSR tab
2(LDY#2*40 \ Area of user message zone
<
LDA#32
F.cuba JSR oswrch
PDEY
ZBNE cuba
dJSR bottem_window
nRTS
x.title_screen EQUB 22
�EQUB 7 \ Mode
�EQUB31:EQUB10:EQUB0
�EQUS"Watcher "+version$
�EQUW&A0D
�EQUS"File:"
�EQUW&A0D
�EQUS"Printer: OFF"
�EQUB31:EQUB13:EQUB2
�EQUS"Spool: OFF"
�EQUW&A0D
�EQUS"Bytes checked:"
�EQUB31:EQUB21:EQUB3
�EQUS"Bytes left:"
EQUW&A0D
EQUS"Beep: ON"
EQUB31:EQUB12:EQUB4
"EQUS"Save new word: SEL"
,EQUB31:EQUB32:EQUB4
6EQUS"TEST"
@EQUW&A0D
JEQUB&0A
T6.press EQUS"Press Function Key or RETURN to start"
^EQUB&FF
h+.text_window EQUB28:EQUW&1700:EQUW&0827
r..message_window EQUB28:EQUW&0700:EQUW&0027
|.sign_off EQUW&D0A
�
EQUD&0A0A
�#EQUS"All Text Checked":EQUW&D0A
�2EQUS"Use SORT to Merge Newords and Dictionary"
�EQUB&FF
�.menu_mess EQUW&D0A
�%EQUS"S - Sort and Merge":EQUW&D0A
� EQUS"M - Main menu":EQUW&D0A
�#EQUS"Q - Quit":EQUW&D0A:EQUB&FF
�0.word EQUS"ABCDEFGHIJKLMNOPQRSTUVWXYZ123456"
�.word_length BRK
�5.pr_on EQUB31:EQUB9:EQUB2:EQUS"ON ":EQUB2:EQUB&FF
�6.pr_off EQUB31:EQUB9:EQUB2:EQUS"OFF":EQUB3:EQUB&FF
�9.pr_select EQUB31:EQUB9:EQUB2:EQUS"SEL":EQUB2:EQUB&FF
,.saig_mess EQUS"Save or ignore?":EQUB&FF
1.beep_on EQUB31:EQUB6:EQUB4:EQUS"ON ":EQUB&FF
2.beep_off EQUB31:EQUB6:EQUB4:EQUS"OFF":EQUB&FF
&5.save_none EQUB31:EQUB27:EQUB4:EQUS"NONE":EQUB&FF
04.save_all EQUB31:EQUB27:EQUB4:EQUS"ALL ":EQUB&FF
:4.save_sel EQUB31:EQUB27:EQUB4:EQUS"SEL ":EQUB&FF
D6.test_on EQUB31:EQUB32:EQUB4:EQUS"TEST   ":EQUB&FF
N7.test_off EQUB31:EQUB32:EQUB4:EQUS"NO TEST":EQUB&FF
b 
�.no_such_file BRK
�EQUB&FF
�EQUS"File not found"
�EQUW&D0A
�BRK
 
.dic_file EQUS diction$

EQUB&D
 .nw_file EQUS nw$
*
EQUB&D
4 
>.text_handle BRK
H.dic_handle BRK
R.nw_handle BRK
T.printer_flag BRK
V.spool_flag BRK
X.spool_handle BRK
\ 
f.output_character CMP#32
pBCC opfor3
zCMP#126
�BCS opfor3
�TAX
�STY opy
�LDA printer_flag
�	CMP#1
�BNE opfor1
�	LDA#1
�JSR oswrch
�TXA
�JSR oswrch
�.opfor1 LDA spool_flag
�	CMP#1
�BNE opfor2
	LDY spool_handle
	TXA
	JSR osbput
	$>.opfor2 TXA \ Window system shoud allow for text x,y cords
	.JSR osasci
	8LDY opy
	B.opfor3 RTS
	L.opy BRK
	Q.sa BRK
	VD.diction_check LDA word \ Search for Word First find search area
	`SEC
	j
SBC#65
	t
STA sa
	~CLC
	�
ADC sa
	�
ADC sa
	�TAY
	�.LDA diction_look_up,Y \ Set first and last
	�
STA first
	�INY
	�LDA diction_look_up,Y
	�STA first+1
	�INY
	�LDA diction_look_up,Y
	�STA first+2
	�INY
LDA diction_look_up,Y

STA last
INY
LDA diction_look_up,Y
(STA last+1
2INY
<LDA diction_look_up,Y
FSTA last+2
P\ Search for word
Z 
d#.continue_search JSR find_midle
nLDA midle+2
xLDY midle+1
�
LDX midle
�JSR last_word
�JSR read_word
�JSR compare
�CMP#&FF
�
BEQ match
�	CMP#0
�
BNE ssfo1
�
LDA midle
�STA last
�LDA midle+1
�STA last+1
�LDA midle+2
STA last+2

JMP ssfo3
 
".ssfo1 CMP#1
,
BNE ssfo3
6
LDA midle
@
STA first
JLDA midle+1
TSTA first+1
^LDA midle+2
hSTA first+2
r 
|.ssfo3 LDA last+2
�CMP first+2
�BCC no_match
�LDA last+1
�CMP first+1
�BCC no_match
�LDA last
�SEC
�
SBC first
�	CMP#2
�BCS continue_search
�.no_match CLC
�RTS
� 
.match SEC
RTS
 
&3.find_midle \ Find midle of current search area
0!LDA last \ Add first and last
:CLC
D
ADC first
N
STA midle
XLDA last+1
bADC first+1
lSTA midle+1
vLDA last+2
�ADC first+2
�STA midle+2
� 
�LSR midle+2
�ROR midle+1
�
ROR midle
�RTS
�.first EQUD 0
�.last EQUD 0
�.midle EQUD 0
� 
�2.last_word \ Get word that starts before midle
�
STA&78


STY&77


STX&76

	LDA#0

 
STA&79

*LDA#1 \ Write �

4LDY dic_handle

>LDX#&76

HJSR osargs

R.lwba LDA#0 \ Read �

\LDX#&76

fJSR osargs

p 

z
LDA&76

�SEC

�	SBC#2

�
STA&76

�
LDA&77

�	SBC#0

�
STA&77

�
LDA&78

�	SBC#0

�
STA&78

� 

�LDA#1 \ Write �

�JSR osargs

� 
JSR osbget
CMP#128
BCC lwba
$ 
.LDA#0 \ Read �
8LDX#&76
BJSR osargs
L
LDA&78
V
LDY&77
`
LDX&76
jRTS
t 
~6.read_word STA&78 \ Read in next word and store it
�
STY&77
�
STX&76
�	LDA#0
�
STA&79
�LDA#0 \ Store current �
�LDY dic_handle
�LDX#&70
�JSR osargs
� 
�LDA#1 \ Write new �
�LDX#&76
�JSR osargs
 

"LDX#0 \ Storage offset pointer
.rwba JSR osbget
STA rword,X
(INX
2CMP#128
<BCC rwba
FSTX rword_length
PDEX
Z	�#127
dSTA rword,X
nINX
x
LDA#&D
�STA rword,X
�LDA#1 \ Write old �
�LDX#&70
�JSR osargs
�RTS
� 
�-.compare LDA rword_length \ Compare words
�CMP word_length
�
BNE fnfo1
� 
�	LDY#0
�.fnba1 LDA rword,Y
�CMP word,Y

BNE fnfo2
INY
CPY word_length
"
BNE fnba1
,LDA#&FF
6RTS
@ 
J.fnfo1 LDY#0
T.fnba2 LDA rword,Y
^CMP word,Y
h
BNE fnfo2
rINY
|CPY rword_length
�
BPL fnfo2
�CPY word_length
�
BPL fnfo2
�
JMP fnba2
� 
�.fnfo2 LDA word,Y
�CMP rword,Y
�
BCC fnfo3
�	LDA#1
�RTS
� 
�.fnfo3 LDA#0
�RTS
 
1.rword EQUS"ABCDEFGHIJKLMNOPQRSTUVWXYZ123456"
.rword_length EQUB0
&%.diction_look_up OPT �space(90,0)
#(]
#2�
'*SPOOL L.Wexec
'�"AUTO21000"
'$�"display=&";~display
'.�"hex_out=&";~hex_out
'8%�"bottem_window=&";~bottem_window
'B�"top_window=&";~top_window
'L�"tell_user=";tell_user
'V�"tab=";tab
'`�"clear_user=";clear_user
'j!�"title_screen=";title_screen
't�"text_window=";text_window
'~%�"message_window=";message_window
'��"sign_off=";sign_off
'��"menu_mess=";menu_mess
'��"word=";word
'��"word_length=";word_length
'��"rword=";rword
'�!�"rword_length=";rword_length
'��"pr_on=";pr_on
'��"pr_off=";pr_off
'��"pr_select=";pr_select
'��"saig_mess=";saig_mess
'��"beep_on=";beep_on
'��"beep_off=";beep_off
(�"save_none=";save_none
(
�"save_all=";save_all
(�"save_sel=";save_sel
(�"test_on=";test_on
((�"test_off=";test_off
(2!�"no_such_file=";no_such_file
(<�"dic_file=";dic_file
(F�"nw_file=";nw_file
(P�"text_handle=";text_handle
(Z�"dic_handle=";dic_handle
(d�"nw_handle=";nw_handle
(n)�"output_character=";output_character
(x!�"printer_flag=";printer_flag
(��"spool_flag=";spool_flag
(�!�"spool_handle=";spool_handle
(�#�"diction_check=";diction_check
(�
�"sa=";sa
(��"mem_start=";O%
(��"ass_start=";P%
(�'�"diction_look_up=";diction_look_up
(��"press=";press
.|
*SPOOL
.��"Saving data"
.�2� �os_save("L.Wdata",&2000,&2000,mem_start,O%)
.��
J8 
Lݤspace(x,y)
L� m=O% � x+O%:?m=y:�
LP%=P%+x
LO%=O%+x
L
:=pass
N ,ݤos_save(file$,load%,exec%,start%,end%)
N*A%=0
N4X%=data% � 256
N>Y%=data% � 256
NH!data%=data%+18
NR!(data%+2)=load%
N\!(data%+6)=exec%
Nf!(data%+10)=start%
Np!(data%+14)=end%
Nz$(data%+18)=file$
N�:=�&FFDD �&3
�

00000000  0d 00 0a 1e f4 20 57 61  74 63 68 65 72 20 53 70  |..... Watcher Sp|
00000010  65 6c 6c 69 6e 67 20 43  68 65 63 6b 65 72 0d 00  |elling Checker..|
00000020  14 35 f4 20 57 61 74 63  68 65 72 20 53 75 70 70  |.5. Watcher Supp|
00000030  6f 72 74 20 61 6e 64 20  53 75 62 72 6f 75 74 69  |ort and Subrouti|
00000040  6e 65 73 20 70 72 6f 67  72 61 6d 20 2d 20 57 41  |nes program - WA|
00000050  53 53 50 0d 00 1e 22 f4  20 28 43 29 20 43 6f 64  |SSP...". (C) Cod|
00000060  65 20 41 6c 6c 61 6e 20  4b 65 6c 6c 79 20 32 36  |e Allan Kelly 26|
00000070  2f 35 2f 38 37 0d 00 28  05 20 0d 00 29 0e de 20  |/5/87..(. ..).. |
00000080  64 61 74 61 25 20 33 32  0d 00 2d 15 76 65 72 73  |data% 32..-.vers|
00000090  69 6f 6e 24 3d 22 56 20  31 2e 30 32 22 0d 00 32  |ion$="V 1.02"..2|
000000a0  18 64 69 63 74 69 6f 6e  24 3d 22 43 2e 44 49 43  |.diction$="C.DIC|
000000b0  54 49 4f 4e 22 0d 00 3c  13 6e 77 24 3d 22 43 2e  |TION"..<.nw$="C.|
000000c0  4e 45 57 4f 52 44 53 22  0d 00 46 1d 6f 73 62 79  |NEWORDS"..F.osby|
000000d0  74 65 3d 26 46 46 46 34  3a 6f 73 77 6f 72 64 3d  |te=&FFF4:osword=|
000000e0  26 46 46 46 31 0d 00 50  1d 6f 73 77 72 63 68 3d  |&FFF1..P.oswrch=|
000000f0  26 46 46 45 45 3a 6f 73  6e 65 77 6c 3d 26 46 46  |&FFEE:osnewl=&FF|
00000100  45 37 0d 00 5a 1d 6f 73  61 73 63 69 3d 26 46 46  |E7..Z.osasci=&FF|
00000110  45 33 3a 6f 73 72 64 63  68 3d 26 46 46 45 30 0d  |E3:osrdch=&FFE0.|
00000120  00 64 1d 6f 73 66 69 6c  65 3d 26 46 46 44 44 3a  |.d.osfile=&FFDD:|
00000130  6f 73 61 72 67 73 3d 26  46 46 44 41 0d 00 6e 1d  |osargs=&FFDA..n.|
00000140  6f 73 62 67 65 74 3d 26  46 46 44 37 3a 6f 73 62  |osbget=&FFD7:osb|
00000150  70 75 74 3d 26 46 46 44  34 0d 00 78 1c 6f 73 66  |put=&FFD4..x.osf|
00000160  69 6e 64 3d 26 46 46 43  45 3a 6f 73 63 6c 69 3d  |ind=&FFCE:oscli=|
00000170  26 46 46 46 37 0d 00 82  13 6d 65 6d 5f 73 74 61  |&FFF7....mem_sta|
00000180  72 74 3d 26 36 39 30 30  0d 00 8c 13 61 73 73 5f  |rt=&6900....ass_|
00000190  73 74 61 72 74 3d 26 32  30 30 30 0d 00 96 14 e3  |start=&2000.....|
000001a0  20 70 61 73 73 3d 34 20  b8 20 36 20 88 20 32 0d  | pass=4 . 6 . 2.|
000001b0  00 a0 10 50 25 3d 61 73  73 5f 73 74 61 72 74 0d  |...P%=ass_start.|
000001c0  00 aa 10 4f 25 3d 6d 65  6d 5f 73 74 61 72 74 0d  |...O%=mem_start.|
000001d0  00 b4 05 5b 0d 00 be 0c  4f 50 54 20 70 61 73 73  |...[....OPT pass|
000001e0  0d 00 c8 13 2e 64 69 73  70 6c 61 79 20 53 54 58  |.....display STX|
000001f0  26 37 34 0d 00 d2 0a 53  54 59 26 37 35 0d 00 dc  |&74....STY&75...|
00000200  13 2e 64 69 73 70 6c 61  79 32 20 4c 44 59 23 30  |..display2 LDY#0|
00000210  0d 00 e6 15 2e 64 62 61  63 6b 20 4c 44 41 28 26  |.....dback LDA(&|
00000220  37 34 29 2c 59 0d 00 f0  0b 43 4d 50 23 26 46 46  |74),Y....CMP#&FF|
00000230  0d 00 fa 0c 42 45 51 20  64 66 6f 72 0d 01 04 0e  |....BEQ dfor....|
00000240  4a 53 52 20 6f 73 77 72  63 68 0d 01 0e 07 49 4e  |JSR oswrch....IN|
00000250  59 0d 01 18 0d 4a 4d 50  20 64 62 61 63 6b 0d 01  |Y....JMP dback..|
00000260  22 0d 2e 64 66 6f 72 20  52 54 53 0d 01 2c 22 2e  |"..dfor RTS..,".|
00000270  68 65 78 5f 6f 75 74 20  5c 20 41 2c 59 2c 58 20  |hex_out \ A,Y,X |
00000280  6f 75 74 70 75 74 20 61  73 20 68 65 78 0d 01 36  |output as hex..6|
00000290  07 50 48 41 0d 01 40 09  4c 53 52 20 41 0d 01 4a  |.PHA..@.LSR A..J|
000002a0  09 4c 53 52 20 41 0d 01  54 09 4c 53 52 20 41 0d  |.LSR A..T.LSR A.|
000002b0  01 5e 09 4c 53 52 20 41  0d 01 68 0f 4a 53 52 20  |.^.LSR A..h.JSR |
000002c0  61 64 64 5f 6f 75 74 0d  01 72 07 50 4c 41 0d 01  |add_out..r.PLA..|
000002d0  7c 08 80 23 26 46 0d 01  86 0f 4a 53 52 20 61 64  ||..#&F....JSR ad|
000002e0  64 5f 6f 75 74 0d 01 90  07 54 59 41 0d 01 9a 09  |d_out....TYA....|
000002f0  4c 53 52 20 41 0d 01 a4  09 4c 53 52 20 41 0d 01  |LSR A....LSR A..|
00000300  ae 09 4c 53 52 20 41 0d  01 b8 09 4c 53 52 20 41  |..LSR A....LSR A|
00000310  0d 01 c2 0f 4a 53 52 20  61 64 64 5f 6f 75 74 0d  |....JSR add_out.|
00000320  01 cc 07 54 59 41 0d 01  d6 08 80 23 26 46 0d 01  |...TYA.....#&F..|
00000330  e0 0f 4a 53 52 20 61 64  64 5f 6f 75 74 0d 01 ea  |..JSR add_out...|
00000340  07 54 58 41 0d 01 f4 09  4c 53 52 20 41 0d 01 fe  |.TXA....LSR A...|
00000350  09 4c 53 52 20 41 0d 02  08 09 4c 53 52 20 41 0d  |.LSR A....LSR A.|
00000360  02 12 09 4c 53 52 20 41  0d 02 1c 0f 4a 53 52 20  |...LSR A....JSR |
00000370  61 64 64 5f 6f 75 74 0d  02 26 07 54 58 41 0d 02  |add_out..&.TXA..|
00000380  30 08 80 23 26 46 0d 02  3a 0f 4a 53 52 20 61 64  |0..#&F..:.JSR ad|
00000390  64 5f 6f 75 74 0d 02 44  07 52 54 53 0d 02 4e 05  |d_out..D.RTS..N.|
000003a0  20 0d 02 58 10 2e 61 64  64 5f 6f 75 74 20 43 4c  | ..X..add_out CL|
000003b0  43 0d 02 62 0b 41 44 43  23 26 33 30 0d 02 6c 0b  |C..b.ADC#&30..l.|
000003c0  43 4d 50 23 26 33 41 0d  02 76 0d 42 43 43 20 61  |CMP#&3A..v.BCC a|
000003d0  64 6f 66 6f 0d 02 80 07  43 4c 43 0d 02 8a 09 41  |dofo....CLC....A|
000003e0  44 43 23 37 0d 02 94 15  2e 61 64 6f 66 6f 20 4a  |DC#7.....adofo J|
000003f0  53 52 20 6f 73 77 72 63  68 0d 02 9e 07 52 54 53  |SR oswrch....RTS|
00000400  0d 02 a8 05 20 0d 02 b2  22 2e 62 6f 74 74 65 6d  |.... ...".bottem|
00000410  5f 77 69 6e 64 6f 77 20  4c 44 41 20 77 69 6e 64  |_window LDA wind|
00000420  6f 77 5f 66 6c 61 67 0d  02 bc 0d 42 45 51 20 62  |ow_flag....BEQ b|
00000430  77 66 6f 31 0d 02 c6 07  52 54 53 0d 02 d0 10 2e  |wfo1....RTS.....|
00000440  62 77 66 6f 31 20 4c 44  59 23 30 0d 02 da 1c 2e  |bwfo1 LDY#0.....|
00000450  62 77 62 61 31 20 4c 44  41 20 74 65 78 74 5f 77  |bwba1 LDA text_w|
00000460  69 6e 64 6f 77 2c 59 0d  02 e4 0e 4a 53 52 20 6f  |indow,Y....JSR o|
00000470  73 77 72 63 68 0d 02 ee  07 49 4e 59 0d 02 f8 09  |swrch....INY....|
00000480  43 50 59 23 35 0d 03 02  0d 42 4e 45 20 62 77 62  |CPY#5....BNE bwb|
00000490  61 31 0d 03 0c 09 4c 44  41 23 31 0d 03 16 13 53  |a1....LDA#1....S|
000004a0  54 41 20 77 69 6e 64 6f  77 5f 66 6c 61 67 0d 03  |TA window_flag..|
000004b0  20 0a 4c 44 41 23 33 31  0d 03 2a 0e 4a 53 52 20  | .LDA#31..*.JSR |
000004c0  6f 73 77 72 63 68 0d 03  34 0c 4c 44 41 20 62 77  |oswrch..4.LDA bw|
000004d0  5f 78 0d 03 3e 0e 4a 53  52 20 6f 73 77 72 63 68  |_x..>.JSR oswrch|
000004e0  0d 03 48 0c 4c 44 41 20  62 77 5f 79 0d 03 52 0e  |..H.LDA bw_y..R.|
000004f0  4a 53 52 20 6f 73 77 72  63 68 0d 03 5c 07 52 54  |JSR oswrch..\.RT|
00000500  53 0d 03 66 23 2e 62 77  5f 78 20 42 52 4b 20 5c  |S..f#.bw_x BRK \|
00000510  20 42 6f 74 74 65 6d 20  77 69 6e 64 6f 77 20 63  | Bottem window c|
00000520  6f 72 64 73 0d 03 70 0d  2e 62 77 5f 79 20 42 52  |ords..p..bw_y BR|
00000530  4b 0d 03 7a 14 2e 77 69  6e 64 6f 77 5f 66 6c 61  |K..z..window_fla|
00000540  67 20 42 52 4b 0d 03 84  1f 2e 74 6f 70 5f 77 69  |g BRK.....top_wi|
00000550  6e 64 6f 77 20 4c 44 41  20 77 69 6e 64 6f 77 5f  |ndow LDA window_|
00000560  66 6c 61 67 0d 03 8e 0d  42 4e 45 20 74 77 66 6f  |flag....BNE twfo|
00000570  31 0d 03 98 07 52 54 53  0d 03 a2 12 2e 74 77 66  |1....RTS.....twf|
00000580  6f 31 20 4c 44 41 23 26  38 36 0d 03 ac 0e 4a 53  |o1 LDA#&86....JS|
00000590  52 20 6f 73 62 79 74 65  0d 03 b6 0c 53 54 58 20  |R osbyte....STX |
000005a0  62 77 5f 78 0d 03 c0 0c  53 54 59 20 62 77 5f 79  |bw_x....STY bw_y|
000005b0  0d 03 ca 09 4c 44 59 23  30 0d 03 d4 1f 2e 74 77  |....LDY#0.....tw|
000005c0  62 61 31 20 4c 44 41 20  6d 65 73 73 61 67 65 5f  |ba1 LDA message_|
000005d0  77 69 6e 64 6f 77 2c 59  0d 03 de 0e 4a 53 52 20  |window,Y....JSR |
000005e0  6f 73 77 72 63 68 0d 03  e8 07 49 4e 59 0d 03 f2  |oswrch....INY...|
000005f0  09 43 50 59 23 35 0d 03  fc 0d 42 4e 45 20 74 77  |.CPY#5....BNE tw|
00000600  62 61 31 0d 04 06 09 4c  44 41 23 30 0d 04 10 13  |ba1....LDA#0....|
00000610  53 54 41 20 77 69 6e 64  6f 77 5f 66 6c 61 67 0d  |STA window_flag.|
00000620  04 1a 07 52 54 53 0d 04  24 05 20 0d 04 2e 33 2e  |...RTS..$. ...3.|
00000630  74 65 6c 6c 5f 75 73 65  72 20 53 54 58 26 37 34  |tell_user STX&74|
00000640  20 5c 20 50 72 69 6e 74  20 6d 65 73 73 61 67 65  | \ Print message|
00000650  20 69 6e 20 74 6f 70 20  77 69 6e 64 6f 77 0d 04  | in top window..|
00000660  38 0a 53 54 59 26 37 35  0d 04 42 13 4c 44 41 20  |8.STY&75..B.LDA |
00000670  77 69 6e 64 6f 77 5f 66  6c 61 67 0d 04 4c 07 50  |window_flag..L.P|
00000680  48 41 0d 04 56 12 4a 53  52 20 74 6f 70 5f 77 69  |HA..V.JSR top_wi|
00000690  6e 64 6f 77 0d 04 60 09  4c 44 58 23 30 0d 04 6a  |ndow..`.LDX#0..j|
000006a0  09 4c 44 59 23 36 0d 04  74 0b 4a 53 52 20 74 61  |.LDY#6..t.JSR ta|
000006b0  62 0d 04 7e 10 4a 53 52  20 64 69 73 70 6c 61 79  |b..~.JSR display|
000006c0  32 0d 04 88 07 50 4c 41  0d 04 92 0d 42 45 51 20  |2....PLA....BEQ |
000006d0  74 75 66 6f 31 0d 04 9c  15 4a 53 52 20 62 6f 74  |tufo1....JSR bot|
000006e0  74 65 6d 5f 77 69 6e 64  6f 77 0d 04 a6 0e 2e 74  |tem_window.....t|
000006f0  75 66 6f 31 20 52 54 53  0d 04 b0 05 20 0d 04 ba  |ufo1 RTS.... ...|
00000700  0f 2e 74 61 62 20 4c 44  41 23 33 31 0d 04 c4 0e  |..tab LDA#31....|
00000710  4a 53 52 20 6f 73 77 72  63 68 0d 04 ce 07 54 58  |JSR oswrch....TX|
00000720  41 0d 04 d8 0e 4a 53 52  20 6f 73 77 72 63 68 0d  |A....JSR oswrch.|
00000730  04 e2 07 54 59 41 0d 04  ec 0e 4a 53 52 20 6f 73  |...TYA....JSR os|
00000740  77 72 63 68 0d 04 f6 07  52 54 53 0d 05 00 05 20  |wrch....RTS.... |
00000750  0d 05 0a 1e 2e 63 6c 65  61 72 5f 75 73 65 72 20  |.....clear_user |
00000760  4a 53 52 20 74 6f 70 5f  77 69 6e 64 6f 77 0d 05  |JSR top_window..|
00000770  14 09 4c 44 58 23 30 0d  05 1e 09 4c 44 59 23 35  |..LDX#0....LDY#5|
00000780  0d 05 28 0b 4a 53 52 20  74 61 62 0d 05 32 28 4c  |..(.JSR tab..2(L|
00000790  44 59 23 32 2a 34 30 20  5c 20 41 72 65 61 20 6f  |DY#2*40 \ Area o|
000007a0  66 20 75 73 65 72 20 6d  65 73 73 61 67 65 20 7a  |f user message z|
000007b0  6f 6e 65 0d 05 3c 0a 4c  44 41 23 33 32 0d 05 46  |one..<.LDA#32..F|
000007c0  14 2e 63 75 62 61 20 4a  53 52 20 6f 73 77 72 63  |..cuba JSR oswrc|
000007d0  68 0d 05 50 07 44 45 59  0d 05 5a 0c 42 4e 45 20  |h..P.DEY..Z.BNE |
000007e0  63 75 62 61 0d 05 64 15  4a 53 52 20 62 6f 74 74  |cuba..d.JSR bott|
000007f0  65 6d 5f 77 69 6e 64 6f  77 0d 05 6e 07 52 54 53  |em_window..n.RTS|
00000800  0d 05 78 19 2e 74 69 74  6c 65 5f 73 63 72 65 65  |..x..title_scree|
00000810  6e 20 45 51 55 42 20 32  32 0d 05 82 11 45 51 55  |n EQUB 22....EQU|
00000820  42 20 37 20 5c 20 4d 6f  64 65 0d 05 8c 17 45 51  |B 7 \ Mode....EQ|
00000830  55 42 33 31 3a 45 51 55  42 31 30 3a 45 51 55 42  |UB31:EQUB10:EQUB|
00000840  30 0d 05 96 1b 45 51 55  53 22 57 61 74 63 68 65  |0....EQUS"Watche|
00000850  72 20 22 2b 76 65 72 73  69 6f 6e 24 0d 05 a0 0c  |r "+version$....|
00000860  45 51 55 57 26 41 30 44  0d 05 aa 0f 45 51 55 53  |EQUW&A0D....EQUS|
00000870  22 46 69 6c 65 3a 22 0d  05 b4 0c 45 51 55 57 26  |"File:"....EQUW&|
00000880  41 30 44 0d 05 be 16 45  51 55 53 22 50 72 69 6e  |A0D....EQUS"Prin|
00000890  74 65 72 3a 20 4f 46 46  22 0d 05 c8 17 45 51 55  |ter: OFF"....EQU|
000008a0  42 33 31 3a 45 51 55 42  31 33 3a 45 51 55 42 32  |B31:EQUB13:EQUB2|
000008b0  0d 05 d2 14 45 51 55 53  22 53 70 6f 6f 6c 3a 20  |....EQUS"Spool: |
000008c0  4f 46 46 22 0d 05 dc 0c  45 51 55 57 26 41 30 44  |OFF"....EQUW&A0D|
000008d0  0d 05 e6 18 45 51 55 53  22 42 79 74 65 73 20 63  |....EQUS"Bytes c|
000008e0  68 65 63 6b 65 64 3a 22  0d 05 f0 17 45 51 55 42  |hecked:"....EQUB|
000008f0  33 31 3a 45 51 55 42 32  31 3a 45 51 55 42 33 0d  |31:EQUB21:EQUB3.|
00000900  05 fa 15 45 51 55 53 22  42 79 74 65 73 20 6c 65  |...EQUS"Bytes le|
00000910  66 74 3a 22 0d 06 04 0c  45 51 55 57 26 41 30 44  |ft:"....EQUW&A0D|
00000920  0d 06 0e 12 45 51 55 53  22 42 65 65 70 3a 20 4f  |....EQUS"Beep: O|
00000930  4e 22 0d 06 18 17 45 51  55 42 33 31 3a 45 51 55  |N"....EQUB31:EQU|
00000940  42 31 32 3a 45 51 55 42  34 0d 06 22 1c 45 51 55  |B12:EQUB4..".EQU|
00000950  53 22 53 61 76 65 20 6e  65 77 20 77 6f 72 64 3a  |S"Save new word:|
00000960  20 53 45 4c 22 0d 06 2c  17 45 51 55 42 33 31 3a  | SEL"..,.EQUB31:|
00000970  45 51 55 42 33 32 3a 45  51 55 42 34 0d 06 36 0e  |EQUB32:EQUB4..6.|
00000980  45 51 55 53 22 54 45 53  54 22 0d 06 40 0c 45 51  |EQUS"TEST"..@.EQ|
00000990  55 57 26 41 30 44 0d 06  4a 0b 45 51 55 42 26 30  |UW&A0D..J.EQUB&0|
000009a0  41 0d 06 54 36 2e 70 72  65 73 73 20 45 51 55 53  |A..T6.press EQUS|
000009b0  22 50 72 65 73 73 20 46  75 6e 63 74 69 6f 6e 20  |"Press Function |
000009c0  4b 65 79 20 6f 72 20 52  45 54 55 52 4e 20 74 6f  |Key or RETURN to|
000009d0  20 73 74 61 72 74 22 0d  06 5e 0b 45 51 55 42 26  | start"..^.EQUB&|
000009e0  46 46 0d 06 68 2b 2e 74  65 78 74 5f 77 69 6e 64  |FF..h+.text_wind|
000009f0  6f 77 20 45 51 55 42 32  38 3a 45 51 55 57 26 31  |ow EQUB28:EQUW&1|
00000a00  37 30 30 3a 45 51 55 57  26 30 38 32 37 0d 06 72  |700:EQUW&0827..r|
00000a10  2e 2e 6d 65 73 73 61 67  65 5f 77 69 6e 64 6f 77  |..message_window|
00000a20  20 45 51 55 42 32 38 3a  45 51 55 57 26 30 37 30  | EQUB28:EQUW&070|
00000a30  30 3a 45 51 55 57 26 30  30 32 37 0d 06 7c 16 2e  |0:EQUW&0027..|..|
00000a40  73 69 67 6e 5f 6f 66 66  20 45 51 55 57 26 44 30  |sign_off EQUW&D0|
00000a50  41 0d 06 86 0d 45 51 55  44 26 30 41 30 41 0d 06  |A....EQUD&0A0A..|
00000a60  90 23 45 51 55 53 22 41  6c 6c 20 54 65 78 74 20  |.#EQUS"All Text |
00000a70  43 68 65 63 6b 65 64 22  3a 45 51 55 57 26 44 30  |Checked":EQUW&D0|
00000a80  41 0d 06 9a 32 45 51 55  53 22 55 73 65 20 53 4f  |A...2EQUS"Use SO|
00000a90  52 54 20 74 6f 20 4d 65  72 67 65 20 4e 65 77 6f  |RT to Merge Newo|
00000aa0  72 64 73 20 61 6e 64 20  44 69 63 74 69 6f 6e 61  |rds and Dictiona|
00000ab0  72 79 22 0d 06 a4 0b 45  51 55 42 26 46 46 0d 06  |ry"....EQUB&FF..|
00000ac0  ae 17 2e 6d 65 6e 75 5f  6d 65 73 73 20 45 51 55  |...menu_mess EQU|
00000ad0  57 26 44 30 41 0d 06 b8  25 45 51 55 53 22 53 20  |W&D0A...%EQUS"S |
00000ae0  2d 20 53 6f 72 74 20 61  6e 64 20 4d 65 72 67 65  |- Sort and Merge|
00000af0  22 3a 45 51 55 57 26 44  30 41 0d 06 c2 20 45 51  |":EQUW&D0A... EQ|
00000b00  55 53 22 4d 20 2d 20 4d  61 69 6e 20 6d 65 6e 75  |US"M - Main menu|
00000b10  22 3a 45 51 55 57 26 44  30 41 0d 06 cc 23 45 51  |":EQUW&D0A...#EQ|
00000b20  55 53 22 51 20 2d 20 51  75 69 74 22 3a 45 51 55  |US"Q - Quit":EQU|
00000b30  57 26 44 30 41 3a 45 51  55 42 26 46 46 0d 06 d6  |W&D0A:EQUB&FF...|
00000b40  30 2e 77 6f 72 64 20 45  51 55 53 22 41 42 43 44  |0.word EQUS"ABCD|
00000b50  45 46 47 48 49 4a 4b 4c  4d 4e 4f 50 51 52 53 54  |EFGHIJKLMNOPQRST|
00000b60  55 56 57 58 59 5a 31 32  33 34 35 36 22 0d 06 e0  |UVWXYZ123456"...|
00000b70  14 2e 77 6f 72 64 5f 6c  65 6e 67 74 68 20 42 52  |..word_length BR|
00000b80  4b 0d 06 ea 35 2e 70 72  5f 6f 6e 20 45 51 55 42  |K...5.pr_on EQUB|
00000b90  33 31 3a 45 51 55 42 39  3a 45 51 55 42 32 3a 45  |31:EQUB9:EQUB2:E|
00000ba0  51 55 53 22 4f 4e 20 22  3a 45 51 55 42 32 3a 45  |QUS"ON ":EQUB2:E|
00000bb0  51 55 42 26 46 46 0d 06  f4 36 2e 70 72 5f 6f 66  |QUB&FF...6.pr_of|
00000bc0  66 20 45 51 55 42 33 31  3a 45 51 55 42 39 3a 45  |f EQUB31:EQUB9:E|
00000bd0  51 55 42 32 3a 45 51 55  53 22 4f 46 46 22 3a 45  |QUB2:EQUS"OFF":E|
00000be0  51 55 42 33 3a 45 51 55  42 26 46 46 0d 06 fe 39  |QUB3:EQUB&FF...9|
00000bf0  2e 70 72 5f 73 65 6c 65  63 74 20 45 51 55 42 33  |.pr_select EQUB3|
00000c00  31 3a 45 51 55 42 39 3a  45 51 55 42 32 3a 45 51  |1:EQUB9:EQUB2:EQ|
00000c10  55 53 22 53 45 4c 22 3a  45 51 55 42 32 3a 45 51  |US"SEL":EQUB2:EQ|
00000c20  55 42 26 46 46 0d 07 08  2c 2e 73 61 69 67 5f 6d  |UB&FF...,.saig_m|
00000c30  65 73 73 20 45 51 55 53  22 53 61 76 65 20 6f 72  |ess EQUS"Save or|
00000c40  20 69 67 6e 6f 72 65 3f  22 3a 45 51 55 42 26 46  | ignore?":EQUB&F|
00000c50  46 0d 07 12 31 2e 62 65  65 70 5f 6f 6e 20 45 51  |F...1.beep_on EQ|
00000c60  55 42 33 31 3a 45 51 55  42 36 3a 45 51 55 42 34  |UB31:EQUB6:EQUB4|
00000c70  3a 45 51 55 53 22 4f 4e  20 22 3a 45 51 55 42 26  |:EQUS"ON ":EQUB&|
00000c80  46 46 0d 07 1c 32 2e 62  65 65 70 5f 6f 66 66 20  |FF...2.beep_off |
00000c90  45 51 55 42 33 31 3a 45  51 55 42 36 3a 45 51 55  |EQUB31:EQUB6:EQU|
00000ca0  42 34 3a 45 51 55 53 22  4f 46 46 22 3a 45 51 55  |B4:EQUS"OFF":EQU|
00000cb0  42 26 46 46 0d 07 26 35  2e 73 61 76 65 5f 6e 6f  |B&FF..&5.save_no|
00000cc0  6e 65 20 45 51 55 42 33  31 3a 45 51 55 42 32 37  |ne EQUB31:EQUB27|
00000cd0  3a 45 51 55 42 34 3a 45  51 55 53 22 4e 4f 4e 45  |:EQUB4:EQUS"NONE|
00000ce0  22 3a 45 51 55 42 26 46  46 0d 07 30 34 2e 73 61  |":EQUB&FF..04.sa|
00000cf0  76 65 5f 61 6c 6c 20 45  51 55 42 33 31 3a 45 51  |ve_all EQUB31:EQ|
00000d00  55 42 32 37 3a 45 51 55  42 34 3a 45 51 55 53 22  |UB27:EQUB4:EQUS"|
00000d10  41 4c 4c 20 22 3a 45 51  55 42 26 46 46 0d 07 3a  |ALL ":EQUB&FF..:|
00000d20  34 2e 73 61 76 65 5f 73  65 6c 20 45 51 55 42 33  |4.save_sel EQUB3|
00000d30  31 3a 45 51 55 42 32 37  3a 45 51 55 42 34 3a 45  |1:EQUB27:EQUB4:E|
00000d40  51 55 53 22 53 45 4c 20  22 3a 45 51 55 42 26 46  |QUS"SEL ":EQUB&F|
00000d50  46 0d 07 44 36 2e 74 65  73 74 5f 6f 6e 20 45 51  |F..D6.test_on EQ|
00000d60  55 42 33 31 3a 45 51 55  42 33 32 3a 45 51 55 42  |UB31:EQUB32:EQUB|
00000d70  34 3a 45 51 55 53 22 54  45 53 54 20 20 20 22 3a  |4:EQUS"TEST   ":|
00000d80  45 51 55 42 26 46 46 0d  07 4e 37 2e 74 65 73 74  |EQUB&FF..N7.test|
00000d90  5f 6f 66 66 20 45 51 55  42 33 31 3a 45 51 55 42  |_off EQUB31:EQUB|
00000da0  33 32 3a 45 51 55 42 34  3a 45 51 55 53 22 4e 4f  |32:EQUB4:EQUS"NO|
00000db0  20 54 45 53 54 22 3a 45  51 55 42 26 46 46 0d 07  | TEST":EQUB&FF..|
00000dc0  62 05 20 0d 07 d0 15 2e  6e 6f 5f 73 75 63 68 5f  |b. .....no_such_|
00000dd0  66 69 6c 65 20 42 52 4b  0d 07 da 0b 45 51 55 42  |file BRK....EQUB|
00000de0  26 46 46 0d 07 e4 18 45  51 55 53 22 46 69 6c 65  |&FF....EQUS"File|
00000df0  20 6e 6f 74 20 66 6f 75  6e 64 22 0d 07 ee 0c 45  | not found"....E|
00000e00  51 55 57 26 44 30 41 0d  07 f8 07 42 52 4b 0d 08  |QUW&D0A....BRK..|
00000e10  02 05 20 0d 08 0c 1b 2e  64 69 63 5f 66 69 6c 65  |.. .....dic_file|
00000e20  20 45 51 55 53 20 64 69  63 74 69 6f 6e 24 0d 08  | EQUS diction$..|
00000e30  16 0a 45 51 55 42 26 44  0d 08 20 15 2e 6e 77 5f  |..EQUB&D.. ..nw_|
00000e40  66 69 6c 65 20 45 51 55  53 20 6e 77 24 0d 08 2a  |file EQUS nw$..*|
00000e50  0a 45 51 55 42 26 44 0d  08 34 05 20 0d 08 3e 14  |.EQUB&D..4. ..>.|
00000e60  2e 74 65 78 74 5f 68 61  6e 64 6c 65 20 42 52 4b  |.text_handle BRK|
00000e70  0d 08 48 13 2e 64 69 63  5f 68 61 6e 64 6c 65 20  |..H..dic_handle |
00000e80  42 52 4b 0d 08 52 12 2e  6e 77 5f 68 61 6e 64 6c  |BRK..R..nw_handl|
00000e90  65 20 42 52 4b 0d 08 54  15 2e 70 72 69 6e 74 65  |e BRK..T..printe|
00000ea0  72 5f 66 6c 61 67 20 42  52 4b 0d 08 56 13 2e 73  |r_flag BRK..V..s|
00000eb0  70 6f 6f 6c 5f 66 6c 61  67 20 42 52 4b 0d 08 58  |pool_flag BRK..X|
00000ec0  15 2e 73 70 6f 6f 6c 5f  68 61 6e 64 6c 65 20 42  |..spool_handle B|
00000ed0  52 4b 0d 08 5c 05 20 0d  08 66 1c 2e 6f 75 74 70  |RK..\. ..f..outp|
00000ee0  75 74 5f 63 68 61 72 61  63 74 65 72 20 43 4d 50  |ut_character CMP|
00000ef0  23 33 32 0d 08 70 0e 42  43 43 20 6f 70 66 6f 72  |#32..p.BCC opfor|
00000f00  33 0d 08 7a 0b 43 4d 50  23 31 32 36 0d 08 84 0e  |3..z.CMP#126....|
00000f10  42 43 53 20 6f 70 66 6f  72 33 0d 08 8e 07 54 41  |BCS opfor3....TA|
00000f20  58 0d 08 98 0b 53 54 59  20 6f 70 79 0d 08 a2 14  |X....STY opy....|
00000f30  4c 44 41 20 70 72 69 6e  74 65 72 5f 66 6c 61 67  |LDA printer_flag|
00000f40  0d 08 ac 09 43 4d 50 23  31 0d 08 b6 0e 42 4e 45  |....CMP#1....BNE|
00000f50  20 6f 70 66 6f 72 31 0d  08 c0 09 4c 44 41 23 31  | opfor1....LDA#1|
00000f60  0d 08 ca 0e 4a 53 52 20  6f 73 77 72 63 68 0d 08  |....JSR oswrch..|
00000f70  d4 07 54 58 41 0d 08 de  0e 4a 53 52 20 6f 73 77  |..TXA....JSR osw|
00000f80  72 63 68 0d 08 e8 1a 2e  6f 70 66 6f 72 31 20 4c  |rch.....opfor1 L|
00000f90  44 41 20 73 70 6f 6f 6c  5f 66 6c 61 67 0d 08 f2  |DA spool_flag...|
00000fa0  09 43 4d 50 23 31 0d 08  fc 0e 42 4e 45 20 6f 70  |.CMP#1....BNE op|
00000fb0  66 6f 72 32 0d 09 06 14  4c 44 59 20 73 70 6f 6f  |for2....LDY spoo|
00000fc0  6c 5f 68 61 6e 64 6c 65  0d 09 10 07 54 58 41 0d  |l_handle....TXA.|
00000fd0  09 1a 0e 4a 53 52 20 6f  73 62 70 75 74 0d 09 24  |...JSR osbput..$|
00000fe0  3e 2e 6f 70 66 6f 72 32  20 54 58 41 20 5c 20 57  |>.opfor2 TXA \ W|
00000ff0  69 6e 64 6f 77 20 73 79  73 74 65 6d 20 73 68 6f  |indow system sho|
00001000  75 64 20 61 6c 6c 6f 77  20 66 6f 72 20 74 65 78  |ud allow for tex|
00001010  74 20 78 2c 79 20 63 6f  72 64 73 0d 09 2e 0e 4a  |t x,y cords....J|
00001020  53 52 20 6f 73 61 73 63  69 0d 09 38 0b 4c 44 59  |SR osasci..8.LDY|
00001030  20 6f 70 79 0d 09 42 0f  2e 6f 70 66 6f 72 33 20  | opy..B..opfor3 |
00001040  52 54 53 0d 09 4c 0c 2e  6f 70 79 20 42 52 4b 0d  |RTS..L..opy BRK.|
00001050  09 51 0b 2e 73 61 20 42  52 4b 0d 09 56 44 2e 64  |.Q..sa BRK..VD.d|
00001060  69 63 74 69 6f 6e 5f 63  68 65 63 6b 20 4c 44 41  |iction_check LDA|
00001070  20 77 6f 72 64 20 5c 20  53 65 61 72 63 68 20 66  | word \ Search f|
00001080  6f 72 20 57 6f 72 64 20  46 69 72 73 74 20 66 69  |or Word First fi|
00001090  6e 64 20 73 65 61 72 63  68 20 61 72 65 61 0d 09  |nd search area..|
000010a0  60 07 53 45 43 0d 09 6a  0a 53 42 43 23 36 35 0d  |`.SEC..j.SBC#65.|
000010b0  09 74 0a 53 54 41 20 73  61 0d 09 7e 07 43 4c 43  |.t.STA sa..~.CLC|
000010c0  0d 09 88 0a 41 44 43 20  73 61 0d 09 92 0a 41 44  |....ADC sa....AD|
000010d0  43 20 73 61 0d 09 9c 07  54 41 59 0d 09 a6 2e 4c  |C sa....TAY....L|
000010e0  44 41 20 64 69 63 74 69  6f 6e 5f 6c 6f 6f 6b 5f  |DA diction_look_|
000010f0  75 70 2c 59 20 5c 20 53  65 74 20 66 69 72 73 74  |up,Y \ Set first|
00001100  20 61 6e 64 20 6c 61 73  74 0d 09 b0 0d 53 54 41  | and last....STA|
00001110  20 66 69 72 73 74 0d 09  ba 07 49 4e 59 0d 09 c4  | first....INY...|
00001120  19 4c 44 41 20 64 69 63  74 69 6f 6e 5f 6c 6f 6f  |.LDA diction_loo|
00001130  6b 5f 75 70 2c 59 0d 09  ce 0f 53 54 41 20 66 69  |k_up,Y....STA fi|
00001140  72 73 74 2b 31 0d 09 d8  07 49 4e 59 0d 09 e2 19  |rst+1....INY....|
00001150  4c 44 41 20 64 69 63 74  69 6f 6e 5f 6c 6f 6f 6b  |LDA diction_look|
00001160  5f 75 70 2c 59 0d 09 ec  0f 53 54 41 20 66 69 72  |_up,Y....STA fir|
00001170  73 74 2b 32 0d 09 f6 07  49 4e 59 0d 0a 00 19 4c  |st+2....INY....L|
00001180  44 41 20 64 69 63 74 69  6f 6e 5f 6c 6f 6f 6b 5f  |DA diction_look_|
00001190  75 70 2c 59 0d 0a 0a 0c  53 54 41 20 6c 61 73 74  |up,Y....STA last|
000011a0  0d 0a 14 07 49 4e 59 0d  0a 1e 19 4c 44 41 20 64  |....INY....LDA d|
000011b0  69 63 74 69 6f 6e 5f 6c  6f 6f 6b 5f 75 70 2c 59  |iction_look_up,Y|
000011c0  0d 0a 28 0e 53 54 41 20  6c 61 73 74 2b 31 0d 0a  |..(.STA last+1..|
000011d0  32 07 49 4e 59 0d 0a 3c  19 4c 44 41 20 64 69 63  |2.INY..<.LDA dic|
000011e0  74 69 6f 6e 5f 6c 6f 6f  6b 5f 75 70 2c 59 0d 0a  |tion_look_up,Y..|
000011f0  46 0e 53 54 41 20 6c 61  73 74 2b 32 0d 0a 50 15  |F.STA last+2..P.|
00001200  5c 20 53 65 61 72 63 68  20 66 6f 72 20 77 6f 72  |\ Search for wor|
00001210  64 0d 0a 5a 05 20 0d 0a  64 23 2e 63 6f 6e 74 69  |d..Z. ..d#.conti|
00001220  6e 75 65 5f 73 65 61 72  63 68 20 4a 53 52 20 66  |nue_search JSR f|
00001230  69 6e 64 5f 6d 69 64 6c  65 0d 0a 6e 0f 4c 44 41  |ind_midle..n.LDA|
00001240  20 6d 69 64 6c 65 2b 32  0d 0a 78 0f 4c 44 59 20  | midle+2..x.LDY |
00001250  6d 69 64 6c 65 2b 31 0d  0a 82 0d 4c 44 58 20 6d  |midle+1....LDX m|
00001260  69 64 6c 65 0d 0a 8c 11  4a 53 52 20 6c 61 73 74  |idle....JSR last|
00001270  5f 77 6f 72 64 0d 0a 96  11 4a 53 52 20 72 65 61  |_word....JSR rea|
00001280  64 5f 77 6f 72 64 0d 0a  a0 0f 4a 53 52 20 63 6f  |d_word....JSR co|
00001290  6d 70 61 72 65 0d 0a aa  0b 43 4d 50 23 26 46 46  |mpare....CMP#&FF|
000012a0  0d 0a b4 0d 42 45 51 20  6d 61 74 63 68 0d 0a be  |....BEQ match...|
000012b0  09 43 4d 50 23 30 0d 0a  c8 0d 42 4e 45 20 73 73  |.CMP#0....BNE ss|
000012c0  66 6f 31 0d 0a d2 0d 4c  44 41 20 6d 69 64 6c 65  |fo1....LDA midle|
000012d0  0d 0a dc 0c 53 54 41 20  6c 61 73 74 0d 0a e6 0f  |....STA last....|
000012e0  4c 44 41 20 6d 69 64 6c  65 2b 31 0d 0a f0 0e 53  |LDA midle+1....S|
000012f0  54 41 20 6c 61 73 74 2b  31 0d 0a fa 0f 4c 44 41  |TA last+1....LDA|
00001300  20 6d 69 64 6c 65 2b 32  0d 0b 04 0e 53 54 41 20  | midle+2....STA |
00001310  6c 61 73 74 2b 32 0d 0b  0e 0d 4a 4d 50 20 73 73  |last+2....JMP ss|
00001320  66 6f 33 0d 0b 18 05 20  0d 0b 22 10 2e 73 73 66  |fo3.... .."..ssf|
00001330  6f 31 20 43 4d 50 23 31  0d 0b 2c 0d 42 4e 45 20  |o1 CMP#1..,.BNE |
00001340  73 73 66 6f 33 0d 0b 36  0d 4c 44 41 20 6d 69 64  |ssfo3..6.LDA mid|
00001350  6c 65 0d 0b 40 0d 53 54  41 20 66 69 72 73 74 0d  |le..@.STA first.|
00001360  0b 4a 0f 4c 44 41 20 6d  69 64 6c 65 2b 31 0d 0b  |.J.LDA midle+1..|
00001370  54 0f 53 54 41 20 66 69  72 73 74 2b 31 0d 0b 5e  |T.STA first+1..^|
00001380  0f 4c 44 41 20 6d 69 64  6c 65 2b 32 0d 0b 68 0f  |.LDA midle+2..h.|
00001390  53 54 41 20 66 69 72 73  74 2b 32 0d 0b 72 05 20  |STA first+2..r. |
000013a0  0d 0b 7c 15 2e 73 73 66  6f 33 20 4c 44 41 20 6c  |..|..ssfo3 LDA l|
000013b0  61 73 74 2b 32 0d 0b 86  0f 43 4d 50 20 66 69 72  |ast+2....CMP fir|
000013c0  73 74 2b 32 0d 0b 90 10  42 43 43 20 6e 6f 5f 6d  |st+2....BCC no_m|
000013d0  61 74 63 68 0d 0b 9a 0e  4c 44 41 20 6c 61 73 74  |atch....LDA last|
000013e0  2b 31 0d 0b a4 0f 43 4d  50 20 66 69 72 73 74 2b  |+1....CMP first+|
000013f0  31 0d 0b ae 10 42 43 43  20 6e 6f 5f 6d 61 74 63  |1....BCC no_matc|
00001400  68 0d 0b b8 0c 4c 44 41  20 6c 61 73 74 0d 0b c2  |h....LDA last...|
00001410  07 53 45 43 0d 0b cc 0d  53 42 43 20 66 69 72 73  |.SEC....SBC firs|
00001420  74 0d 0b d6 09 43 4d 50  23 32 0d 0b e0 17 42 43  |t....CMP#2....BC|
00001430  53 20 63 6f 6e 74 69 6e  75 65 5f 73 65 61 72 63  |S continue_searc|
00001440  68 0d 0b ea 11 2e 6e 6f  5f 6d 61 74 63 68 20 43  |h.....no_match C|
00001450  4c 43 0d 0b f4 07 52 54  53 0d 0b fe 05 20 0d 0c  |LC....RTS.... ..|
00001460  08 0e 2e 6d 61 74 63 68  20 53 45 43 0d 0c 12 07  |...match SEC....|
00001470  52 54 53 0d 0c 1c 05 20  0d 0c 26 33 2e 66 69 6e  |RTS.... ..&3.fin|
00001480  64 5f 6d 69 64 6c 65 20  5c 20 46 69 6e 64 20 6d  |d_midle \ Find m|
00001490  69 64 6c 65 20 6f 66 20  63 75 72 72 65 6e 74 20  |idle of current |
000014a0  73 65 61 72 63 68 20 61  72 65 61 0d 0c 30 21 4c  |search area..0!L|
000014b0  44 41 20 6c 61 73 74 20  5c 20 41 64 64 20 66 69  |DA last \ Add fi|
000014c0  72 73 74 20 61 6e 64 20  6c 61 73 74 0d 0c 3a 07  |rst and last..:.|
000014d0  43 4c 43 0d 0c 44 0d 41  44 43 20 66 69 72 73 74  |CLC..D.ADC first|
000014e0  0d 0c 4e 0d 53 54 41 20  6d 69 64 6c 65 0d 0c 58  |..N.STA midle..X|
000014f0  0e 4c 44 41 20 6c 61 73  74 2b 31 0d 0c 62 0f 41  |.LDA last+1..b.A|
00001500  44 43 20 66 69 72 73 74  2b 31 0d 0c 6c 0f 53 54  |DC first+1..l.ST|
00001510  41 20 6d 69 64 6c 65 2b  31 0d 0c 76 0e 4c 44 41  |A midle+1..v.LDA|
00001520  20 6c 61 73 74 2b 32 0d  0c 80 0f 41 44 43 20 66  | last+2....ADC f|
00001530  69 72 73 74 2b 32 0d 0c  8a 0f 53 54 41 20 6d 69  |irst+2....STA mi|
00001540  64 6c 65 2b 32 0d 0c 94  05 20 0d 0c 9e 0f 4c 53  |dle+2.... ....LS|
00001550  52 20 6d 69 64 6c 65 2b  32 0d 0c a8 0f 52 4f 52  |R midle+2....ROR|
00001560  20 6d 69 64 6c 65 2b 31  0d 0c b2 0d 52 4f 52 20  | midle+1....ROR |
00001570  6d 69 64 6c 65 0d 0c bc  07 52 54 53 0d 0c c6 11  |midle....RTS....|
00001580  2e 66 69 72 73 74 20 45  51 55 44 20 30 0d 0c d0  |.first EQUD 0...|
00001590  10 2e 6c 61 73 74 20 45  51 55 44 20 30 0d 0c da  |..last EQUD 0...|
000015a0  11 2e 6d 69 64 6c 65 20  45 51 55 44 20 30 0d 0c  |..midle EQUD 0..|
000015b0  e4 05 20 0d 0c ee 32 2e  6c 61 73 74 5f 77 6f 72  |.. ...2.last_wor|
000015c0  64 20 5c 20 47 65 74 20  77 6f 72 64 20 74 68 61  |d \ Get word tha|
000015d0  74 20 73 74 61 72 74 73  20 62 65 66 6f 72 65 20  |t starts before |
000015e0  6d 69 64 6c 65 0d 0c f8  0a 53 54 41 26 37 38 0d  |midle....STA&78.|
000015f0  0d 02 0a 53 54 59 26 37  37 0d 0d 0c 0a 53 54 58  |...STY&77....STX|
00001600  26 37 36 0d 0d 16 09 4c  44 41 23 30 0d 0d 20 0a  |&76....LDA#0.. .|
00001610  53 54 41 26 37 39 0d 0d  2a 13 4c 44 41 23 31 20  |STA&79..*.LDA#1 |
00001620  5c 20 57 72 69 74 65 20  8f 0d 0d 34 12 4c 44 59  |\ Write ...4.LDY|
00001630  20 64 69 63 5f 68 61 6e  64 6c 65 0d 0d 3e 0b 4c  | dic_handle..>.L|
00001640  44 58 23 26 37 36 0d 0d  48 0e 4a 53 52 20 6f 73  |DX#&76..H.JSR os|
00001650  61 72 67 73 0d 0d 52 18  2e 6c 77 62 61 20 4c 44  |args..R..lwba LD|
00001660  41 23 30 20 5c 20 52 65  61 64 20 8f 0d 0d 5c 0b  |A#0 \ Read ...\.|
00001670  4c 44 58 23 26 37 36 0d  0d 66 0e 4a 53 52 20 6f  |LDX#&76..f.JSR o|
00001680  73 61 72 67 73 0d 0d 70  05 20 0d 0d 7a 0a 4c 44  |sargs..p. ..z.LD|
00001690  41 26 37 36 0d 0d 84 07  53 45 43 0d 0d 8e 09 53  |A&76....SEC....S|
000016a0  42 43 23 32 0d 0d 98 0a  53 54 41 26 37 36 0d 0d  |BC#2....STA&76..|
000016b0  a2 0a 4c 44 41 26 37 37  0d 0d ac 09 53 42 43 23  |..LDA&77....SBC#|
000016c0  30 0d 0d b6 0a 53 54 41  26 37 37 0d 0d c0 0a 4c  |0....STA&77....L|
000016d0  44 41 26 37 38 0d 0d ca  09 53 42 43 23 30 0d 0d  |DA&78....SBC#0..|
000016e0  d4 0a 53 54 41 26 37 38  0d 0d de 05 20 0d 0d e8  |..STA&78.... ...|
000016f0  13 4c 44 41 23 31 20 5c  20 57 72 69 74 65 20 8f  |.LDA#1 \ Write .|
00001700  0d 0d f2 0e 4a 53 52 20  6f 73 61 72 67 73 0d 0d  |....JSR osargs..|
00001710  fc 05 20 0d 0e 06 0e 4a  53 52 20 6f 73 62 67 65  |.. ....JSR osbge|
00001720  74 0d 0e 10 0b 43 4d 50  23 31 32 38 0d 0e 1a 0c  |t....CMP#128....|
00001730  42 43 43 20 6c 77 62 61  0d 0e 24 05 20 0d 0e 2e  |BCC lwba..$. ...|
00001740  12 4c 44 41 23 30 20 5c  20 52 65 61 64 20 8f 0d  |.LDA#0 \ Read ..|
00001750  0e 38 0b 4c 44 58 23 26  37 36 0d 0e 42 0e 4a 53  |.8.LDX#&76..B.JS|
00001760  52 20 6f 73 61 72 67 73  0d 0e 4c 0a 4c 44 41 26  |R osargs..L.LDA&|
00001770  37 38 0d 0e 56 0a 4c 44  59 26 37 37 0d 0e 60 0a  |78..V.LDY&77..`.|
00001780  4c 44 58 26 37 36 0d 0e  6a 07 52 54 53 0d 0e 74  |LDX&76..j.RTS..t|
00001790  05 20 0d 0e 7e 36 2e 72  65 61 64 5f 77 6f 72 64  |. ..~6.read_word|
000017a0  20 53 54 41 26 37 38 20  5c 20 52 65 61 64 20 69  | STA&78 \ Read i|
000017b0  6e 20 6e 65 78 74 20 77  6f 72 64 20 61 6e 64 20  |n next word and |
000017c0  73 74 6f 72 65 20 69 74  0d 0e 88 0a 53 54 59 26  |store it....STY&|
000017d0  37 37 0d 0e 92 0a 53 54  58 26 37 36 0d 0e 9c 09  |77....STX&76....|
000017e0  4c 44 41 23 30 0d 0e a6  0a 53 54 41 26 37 39 0d  |LDA#0....STA&79.|
000017f0  0e b0 1b 4c 44 41 23 30  20 5c 20 53 74 6f 72 65  |...LDA#0 \ Store|
00001800  20 63 75 72 72 65 6e 74  20 8f 0d 0e ba 12 4c 44  | current .....LD|
00001810  59 20 64 69 63 5f 68 61  6e 64 6c 65 0d 0e c4 0b  |Y dic_handle....|
00001820  4c 44 58 23 26 37 30 0d  0e ce 0e 4a 53 52 20 6f  |LDX#&70....JSR o|
00001830  73 61 72 67 73 0d 0e d8  05 20 0d 0e e2 17 4c 44  |sargs.... ....LD|
00001840  41 23 31 20 5c 20 57 72  69 74 65 20 6e 65 77 20  |A#1 \ Write new |
00001850  8f 0d 0e ec 0b 4c 44 58  23 26 37 36 0d 0e f6 0e  |.....LDX#&76....|
00001860  4a 53 52 20 6f 73 61 72  67 73 0d 0f 00 05 20 0d  |JSR osargs.... .|
00001870  0f 0a 22 4c 44 58 23 30  20 5c 20 53 74 6f 72 61  |.."LDX#0 \ Stora|
00001880  67 65 20 6f 66 66 73 65  74 20 70 6f 69 6e 74 65  |ge offset pointe|
00001890  72 0d 0f 14 14 2e 72 77  62 61 20 4a 53 52 20 6f  |r.....rwba JSR o|
000018a0  73 62 67 65 74 0d 0f 1e  0f 53 54 41 20 72 77 6f  |sbget....STA rwo|
000018b0  72 64 2c 58 0d 0f 28 07  49 4e 58 0d 0f 32 0b 43  |rd,X..(.INX..2.C|
000018c0  4d 50 23 31 32 38 0d 0f  3c 0c 42 43 43 20 72 77  |MP#128..<.BCC rw|
000018d0  62 61 0d 0f 46 14 53 54  58 20 72 77 6f 72 64 5f  |ba..F.STX rword_|
000018e0  6c 65 6e 67 74 68 0d 0f  50 07 44 45 58 0d 0f 5a  |length..P.DEX..Z|
000018f0  09 80 23 31 32 37 0d 0f  64 0f 53 54 41 20 72 77  |..#127..d.STA rw|
00001900  6f 72 64 2c 58 0d 0f 6e  07 49 4e 58 0d 0f 78 0a  |ord,X..n.INX..x.|
00001910  4c 44 41 23 26 44 0d 0f  82 0f 53 54 41 20 72 77  |LDA#&D....STA rw|
00001920  6f 72 64 2c 58 0d 0f 8c  17 4c 44 41 23 31 20 5c  |ord,X....LDA#1 \|
00001930  20 57 72 69 74 65 20 6f  6c 64 20 8f 0d 0f 96 0b  | Write old .....|
00001940  4c 44 58 23 26 37 30 0d  0f a0 0e 4a 53 52 20 6f  |LDX#&70....JSR o|
00001950  73 61 72 67 73 0d 0f aa  07 52 54 53 0d 0f b4 05  |sargs....RTS....|
00001960  20 0d 0f be 2d 2e 63 6f  6d 70 61 72 65 20 4c 44  | ...-.compare LD|
00001970  41 20 72 77 6f 72 64 5f  6c 65 6e 67 74 68 20 5c  |A rword_length \|
00001980  20 43 6f 6d 70 61 72 65  20 77 6f 72 64 73 0d 0f  | Compare words..|
00001990  c8 13 43 4d 50 20 77 6f  72 64 5f 6c 65 6e 67 74  |..CMP word_lengt|
000019a0  68 0d 0f d2 0d 42 4e 45  20 66 6e 66 6f 31 0d 0f  |h....BNE fnfo1..|
000019b0  dc 05 20 0d 0f e6 09 4c  44 59 23 30 0d 0f f0 16  |.. ....LDY#0....|
000019c0  2e 66 6e 62 61 31 20 4c  44 41 20 72 77 6f 72 64  |.fnba1 LDA rword|
000019d0  2c 59 0d 0f fa 0e 43 4d  50 20 77 6f 72 64 2c 59  |,Y....CMP word,Y|
000019e0  0d 10 04 0d 42 4e 45 20  66 6e 66 6f 32 0d 10 0e  |....BNE fnfo2...|
000019f0  07 49 4e 59 0d 10 18 13  43 50 59 20 77 6f 72 64  |.INY....CPY word|
00001a00  5f 6c 65 6e 67 74 68 0d  10 22 0d 42 4e 45 20 66  |_length..".BNE f|
00001a10  6e 62 61 31 0d 10 2c 0b  4c 44 41 23 26 46 46 0d  |nba1..,.LDA#&FF.|
00001a20  10 36 07 52 54 53 0d 10  40 05 20 0d 10 4a 10 2e  |.6.RTS..@. ..J..|
00001a30  66 6e 66 6f 31 20 4c 44  59 23 30 0d 10 54 16 2e  |fnfo1 LDY#0..T..|
00001a40  66 6e 62 61 32 20 4c 44  41 20 72 77 6f 72 64 2c  |fnba2 LDA rword,|
00001a50  59 0d 10 5e 0e 43 4d 50  20 77 6f 72 64 2c 59 0d  |Y..^.CMP word,Y.|
00001a60  10 68 0d 42 4e 45 20 66  6e 66 6f 32 0d 10 72 07  |.h.BNE fnfo2..r.|
00001a70  49 4e 59 0d 10 7c 14 43  50 59 20 72 77 6f 72 64  |INY..|.CPY rword|
00001a80  5f 6c 65 6e 67 74 68 0d  10 86 0d 42 50 4c 20 66  |_length....BPL f|
00001a90  6e 66 6f 32 0d 10 90 13  43 50 59 20 77 6f 72 64  |nfo2....CPY word|
00001aa0  5f 6c 65 6e 67 74 68 0d  10 9a 0d 42 50 4c 20 66  |_length....BPL f|
00001ab0  6e 66 6f 32 0d 10 a4 0d  4a 4d 50 20 66 6e 62 61  |nfo2....JMP fnba|
00001ac0  32 0d 10 ae 05 20 0d 10  b8 15 2e 66 6e 66 6f 32  |2.... .....fnfo2|
00001ad0  20 4c 44 41 20 77 6f 72  64 2c 59 0d 10 c2 0f 43  | LDA word,Y....C|
00001ae0  4d 50 20 72 77 6f 72 64  2c 59 0d 10 cc 0d 42 43  |MP rword,Y....BC|
00001af0  43 20 66 6e 66 6f 33 0d  10 d6 09 4c 44 41 23 31  |C fnfo3....LDA#1|
00001b00  0d 10 e0 07 52 54 53 0d  10 ea 05 20 0d 10 f4 10  |....RTS.... ....|
00001b10  2e 66 6e 66 6f 33 20 4c  44 41 23 30 0d 10 fe 07  |.fnfo3 LDA#0....|
00001b20  52 54 53 0d 11 08 05 20  0d 11 12 31 2e 72 77 6f  |RTS.... ...1.rwo|
00001b30  72 64 20 45 51 55 53 22  41 42 43 44 45 46 47 48  |rd EQUS"ABCDEFGH|
00001b40  49 4a 4b 4c 4d 4e 4f 50  51 52 53 54 55 56 57 58  |IJKLMNOPQRSTUVWX|
00001b50  59 5a 31 32 33 34 35 36  22 0d 11 1c 17 2e 72 77  |YZ123456".....rw|
00001b60  6f 72 64 5f 6c 65 6e 67  74 68 20 45 51 55 42 30  |ord_length EQUB0|
00001b70  0d 11 26 25 2e 64 69 63  74 69 6f 6e 5f 6c 6f 6f  |..&%.diction_loo|
00001b80  6b 5f 75 70 20 4f 50 54  20 a4 73 70 61 63 65 28  |k_up OPT .space(|
00001b90  39 30 2c 30 29 0d 23 28  05 5d 0d 23 32 05 ed 0d  |90,0).#(.].#2...|
00001ba0  27 10 12 2a 53 50 4f 4f  4c 20 4c 2e 57 65 78 65  |'..*SPOOL L.Wexe|
00001bb0  63 0d 27 1a 10 f1 22 41  55 54 4f 32 31 30 30 30  |c.'..."AUTO21000|
00001bc0  22 0d 27 24 19 f1 22 64  69 73 70 6c 61 79 3d 26  |".'$.."display=&|
00001bd0  22 3b 7e 64 69 73 70 6c  61 79 0d 27 2e 19 f1 22  |";~display.'..."|
00001be0  68 65 78 5f 6f 75 74 3d  26 22 3b 7e 68 65 78 5f  |hex_out=&";~hex_|
00001bf0  6f 75 74 0d 27 38 25 f1  22 62 6f 74 74 65 6d 5f  |out.'8%."bottem_|
00001c00  77 69 6e 64 6f 77 3d 26  22 3b 7e 62 6f 74 74 65  |window=&";~botte|
00001c10  6d 5f 77 69 6e 64 6f 77  0d 27 42 1f f1 22 74 6f  |m_window.'B.."to|
00001c20  70 5f 77 69 6e 64 6f 77  3d 26 22 3b 7e 74 6f 70  |p_window=&";~top|
00001c30  5f 77 69 6e 64 6f 77 0d  27 4c 1b f1 22 74 65 6c  |_window.'L.."tel|
00001c40  6c 5f 75 73 65 72 3d 22  3b 74 65 6c 6c 5f 75 73  |l_user=";tell_us|
00001c50  65 72 0d 27 56 0f f1 22  74 61 62 3d 22 3b 74 61  |er.'V.."tab=";ta|
00001c60  62 0d 27 60 1d f1 22 63  6c 65 61 72 5f 75 73 65  |b.'`.."clear_use|
00001c70  72 3d 22 3b 63 6c 65 61  72 5f 75 73 65 72 0d 27  |r=";clear_user.'|
00001c80  6a 21 f1 22 74 69 74 6c  65 5f 73 63 72 65 65 6e  |j!."title_screen|
00001c90  3d 22 3b 74 69 74 6c 65  5f 73 63 72 65 65 6e 0d  |=";title_screen.|
00001ca0  27 74 1f f1 22 74 65 78  74 5f 77 69 6e 64 6f 77  |'t.."text_window|
00001cb0  3d 22 3b 74 65 78 74 5f  77 69 6e 64 6f 77 0d 27  |=";text_window.'|
00001cc0  7e 25 f1 22 6d 65 73 73  61 67 65 5f 77 69 6e 64  |~%."message_wind|
00001cd0  6f 77 3d 22 3b 6d 65 73  73 61 67 65 5f 77 69 6e  |ow=";message_win|
00001ce0  64 6f 77 0d 27 88 19 f1  22 73 69 67 6e 5f 6f 66  |dow.'..."sign_of|
00001cf0  66 3d 22 3b 73 69 67 6e  5f 6f 66 66 0d 27 92 1b  |f=";sign_off.'..|
00001d00  f1 22 6d 65 6e 75 5f 6d  65 73 73 3d 22 3b 6d 65  |."menu_mess=";me|
00001d10  6e 75 5f 6d 65 73 73 0d  27 9c 11 f1 22 77 6f 72  |nu_mess.'..."wor|
00001d20  64 3d 22 3b 77 6f 72 64  0d 27 a6 1f f1 22 77 6f  |d=";word.'..."wo|
00001d30  72 64 5f 6c 65 6e 67 74  68 3d 22 3b 77 6f 72 64  |rd_length=";word|
00001d40  5f 6c 65 6e 67 74 68 0d  27 b0 13 f1 22 72 77 6f  |_length.'..."rwo|
00001d50  72 64 3d 22 3b 72 77 6f  72 64 0d 27 ba 21 f1 22  |rd=";rword.'.!."|
00001d60  72 77 6f 72 64 5f 6c 65  6e 67 74 68 3d 22 3b 72  |rword_length=";r|
00001d70  77 6f 72 64 5f 6c 65 6e  67 74 68 0d 27 c4 13 f1  |word_length.'...|
00001d80  22 70 72 5f 6f 6e 3d 22  3b 70 72 5f 6f 6e 0d 27  |"pr_on=";pr_on.'|
00001d90  ce 15 f1 22 70 72 5f 6f  66 66 3d 22 3b 70 72 5f  |..."pr_off=";pr_|
00001da0  6f 66 66 0d 27 d8 1b f1  22 70 72 5f 73 65 6c 65  |off.'..."pr_sele|
00001db0  63 74 3d 22 3b 70 72 5f  73 65 6c 65 63 74 0d 27  |ct=";pr_select.'|
00001dc0  e2 1b f1 22 73 61 69 67  5f 6d 65 73 73 3d 22 3b  |..."saig_mess=";|
00001dd0  73 61 69 67 5f 6d 65 73  73 0d 27 ec 17 f1 22 62  |saig_mess.'..."b|
00001de0  65 65 70 5f 6f 6e 3d 22  3b 62 65 65 70 5f 6f 6e  |eep_on=";beep_on|
00001df0  0d 27 f6 19 f1 22 62 65  65 70 5f 6f 66 66 3d 22  |.'..."beep_off="|
00001e00  3b 62 65 65 70 5f 6f 66  66 0d 28 00 1b f1 22 73  |;beep_off.(..."s|
00001e10  61 76 65 5f 6e 6f 6e 65  3d 22 3b 73 61 76 65 5f  |ave_none=";save_|
00001e20  6e 6f 6e 65 0d 28 0a 19  f1 22 73 61 76 65 5f 61  |none.(..."save_a|
00001e30  6c 6c 3d 22 3b 73 61 76  65 5f 61 6c 6c 0d 28 14  |ll=";save_all.(.|
00001e40  19 f1 22 73 61 76 65 5f  73 65 6c 3d 22 3b 73 61  |.."save_sel=";sa|
00001e50  76 65 5f 73 65 6c 0d 28  1e 17 f1 22 74 65 73 74  |ve_sel.(..."test|
00001e60  5f 6f 6e 3d 22 3b 74 65  73 74 5f 6f 6e 0d 28 28  |_on=";test_on.((|
00001e70  19 f1 22 74 65 73 74 5f  6f 66 66 3d 22 3b 74 65  |.."test_off=";te|
00001e80  73 74 5f 6f 66 66 0d 28  32 21 f1 22 6e 6f 5f 73  |st_off.(2!."no_s|
00001e90  75 63 68 5f 66 69 6c 65  3d 22 3b 6e 6f 5f 73 75  |uch_file=";no_su|
00001ea0  63 68 5f 66 69 6c 65 0d  28 3c 19 f1 22 64 69 63  |ch_file.(<.."dic|
00001eb0  5f 66 69 6c 65 3d 22 3b  64 69 63 5f 66 69 6c 65  |_file=";dic_file|
00001ec0  0d 28 46 17 f1 22 6e 77  5f 66 69 6c 65 3d 22 3b  |.(F.."nw_file=";|
00001ed0  6e 77 5f 66 69 6c 65 0d  28 50 1f f1 22 74 65 78  |nw_file.(P.."tex|
00001ee0  74 5f 68 61 6e 64 6c 65  3d 22 3b 74 65 78 74 5f  |t_handle=";text_|
00001ef0  68 61 6e 64 6c 65 0d 28  5a 1d f1 22 64 69 63 5f  |handle.(Z.."dic_|
00001f00  68 61 6e 64 6c 65 3d 22  3b 64 69 63 5f 68 61 6e  |handle=";dic_han|
00001f10  64 6c 65 0d 28 64 1b f1  22 6e 77 5f 68 61 6e 64  |dle.(d.."nw_hand|
00001f20  6c 65 3d 22 3b 6e 77 5f  68 61 6e 64 6c 65 0d 28  |le=";nw_handle.(|
00001f30  6e 29 f1 22 6f 75 74 70  75 74 5f 63 68 61 72 61  |n)."output_chara|
00001f40  63 74 65 72 3d 22 3b 6f  75 74 70 75 74 5f 63 68  |cter=";output_ch|
00001f50  61 72 61 63 74 65 72 0d  28 78 21 f1 22 70 72 69  |aracter.(x!."pri|
00001f60  6e 74 65 72 5f 66 6c 61  67 3d 22 3b 70 72 69 6e  |nter_flag=";prin|
00001f70  74 65 72 5f 66 6c 61 67  0d 28 82 1d f1 22 73 70  |ter_flag.(..."sp|
00001f80  6f 6f 6c 5f 66 6c 61 67  3d 22 3b 73 70 6f 6f 6c  |ool_flag=";spool|
00001f90  5f 66 6c 61 67 0d 28 8c  21 f1 22 73 70 6f 6f 6c  |_flag.(.!."spool|
00001fa0  5f 68 61 6e 64 6c 65 3d  22 3b 73 70 6f 6f 6c 5f  |_handle=";spool_|
00001fb0  68 61 6e 64 6c 65 0d 28  96 23 f1 22 64 69 63 74  |handle.(.#."dict|
00001fc0  69 6f 6e 5f 63 68 65 63  6b 3d 22 3b 64 69 63 74  |ion_check=";dict|
00001fd0  69 6f 6e 5f 63 68 65 63  6b 0d 28 a0 0d f1 22 73  |ion_check.(..."s|
00001fe0  61 3d 22 3b 73 61 0d 28  aa 14 f1 22 6d 65 6d 5f  |a=";sa.(..."mem_|
00001ff0  73 74 61 72 74 3d 22 3b  4f 25 0d 28 b4 14 f1 22  |start=";O%.(..."|
00002000  61 73 73 5f 73 74 61 72  74 3d 22 3b 50 25 0d 28  |ass_start=";P%.(|
00002010  be 27 f1 22 64 69 63 74  69 6f 6e 5f 6c 6f 6f 6b  |.'."diction_look|
00002020  5f 75 70 3d 22 3b 64 69  63 74 69 6f 6e 5f 6c 6f  |_up=";diction_lo|
00002030  6f 6b 5f 75 70 0d 28 c8  13 f1 22 70 72 65 73 73  |ok_up.(..."press|
00002040  3d 22 3b 70 72 65 73 73  0d 2e 7c 0a 2a 53 50 4f  |=";press..|.*SPO|
00002050  4f 4c 0d 2e e0 12 f1 22  53 61 76 69 6e 67 20 64  |OL....."Saving d|
00002060  61 74 61 22 0d 2e ea 32  e7 20 a4 6f 73 5f 73 61  |ata"...2. .os_sa|
00002070  76 65 28 22 4c 2e 57 64  61 74 61 22 2c 26 32 30  |ve("L.Wdata",&20|
00002080  30 30 2c 26 32 30 30 30  2c 6d 65 6d 5f 73 74 61  |00,&2000,mem_sta|
00002090  72 74 2c 4f 25 29 0d 2e  fe 05 e0 0d 4a 38 05 20  |rt,O%)......J8. |
000020a0  0d 4c 04 10 dd a4 73 70  61 63 65 28 78 2c 79 29  |.L....space(x,y)|
000020b0  0d 4c 0e 18 e3 20 6d 3d  4f 25 20 b8 20 78 2b 4f  |.L... m=O% . x+O|
000020c0  25 3a 3f 6d 3d 79 3a ed  0d 4c 13 0b 50 25 3d 50  |%:?m=y:..L..P%=P|
000020d0  25 2b 78 0d 4c 14 0b 4f  25 3d 4f 25 2b 78 0d 4c  |%+x.L..O%=O%+x.L|
000020e0  18 0a 3a 3d 70 61 73 73  0d 4e 20 2c dd a4 6f 73  |..:=pass.N ,..os|
000020f0  5f 73 61 76 65 28 66 69  6c 65 24 2c 6c 6f 61 64  |_save(file$,load|
00002100  25 2c 65 78 65 63 25 2c  73 74 61 72 74 25 2c 65  |%,exec%,start%,e|
00002110  6e 64 25 29 0d 4e 2a 08  41 25 3d 30 0d 4e 34 12  |nd%).N*.A%=0.N4.|
00002120  58 25 3d 64 61 74 61 25  20 83 20 32 35 36 0d 4e  |X%=data% . 256.N|
00002130  3e 12 59 25 3d 64 61 74  61 25 20 81 20 32 35 36  |>.Y%=data% . 256|
00002140  0d 4e 48 13 21 64 61 74  61 25 3d 64 61 74 61 25  |.NH.!data%=data%|
00002150  2b 31 38 0d 4e 52 14 21  28 64 61 74 61 25 2b 32  |+18.NR.!(data%+2|
00002160  29 3d 6c 6f 61 64 25 0d  4e 5c 14 21 28 64 61 74  |)=load%.N\.!(dat|
00002170  61 25 2b 36 29 3d 65 78  65 63 25 0d 4e 66 16 21  |a%+6)=exec%.Nf.!|
00002180  28 64 61 74 61 25 2b 31  30 29 3d 73 74 61 72 74  |(data%+10)=start|
00002190  25 0d 4e 70 14 21 28 64  61 74 61 25 2b 31 34 29  |%.Np.!(data%+14)|
000021a0  3d 65 6e 64 25 0d 4e 7a  15 24 28 64 61 74 61 25  |=end%.Nz.$(data%|
000021b0  2b 31 38 29 3d 66 69 6c  65 24 0d 4e 84 10 3a 3d  |+18)=file$.N..:=|
000021c0  ba 26 46 46 44 44 20 80  26 33 0d ff              |.&FFDD .&3..|
000021cc