� >!RUNIMAGE
	 � 12
 ș&06,4,0
 � � :�:�"ERR AT LINE ";�:�
(
 �init
2 �drawscreen
<
 �main
F �
P :
Z ��check
d dup%=0
n^ � load%=0 � �warn("USER ERROR","File not loaded","Load file before continuing"):�answr2:�
xE � count=0 � �warn("USER ERROR","No words to check",""):�answr2:�
�J �warn("  Scanning","Checking for duplicate words","     PLEASE WAIT")
� � loop1=1 � count
� � loop2=loop1+1 � count
�J � word$(loop1)=word$(loop2) � dup%=0 � �closewindow(302,440,"WINDOW")
�� � word$(loop1)=word$(loop2) � Ȕ word$(loop2),word$(count):count-=1:l$="Duplicate of "+word$(loop2):�warn("  Scanning",l$,"Found and deleted"):�answr2:dup%+=1
� �
� �
�. � dup%=0 � �closewindow(302,440,"WINDOW")
җ � dup%>1 � l$=�(dup%)+" duplicate words found":�warn("    Check ",l$,"and deleted"):�answr2 � �warn("    Check ","No duplicates found",""):�answr2
� �
� :
� ��delete(j%)
�K � count<1 � �warn("USER ERROR","THERE ARE NO WORDS LEFT",""):�answr2:�

! de$="Delete "+word$(j%)+" ?"

 d1$=word$(j%)

( �warn("Delete Word",de$,""):�answr1

" ȗ ȓ 96,216,1119,100

, � l1%=2 � Z%=0:C%=0 :�

61 Ȕ word$(j%),word$(lct):word$(lct)="":lct-=1

@ �24,82;310;940;806;:�:�26

JE �display(j%):�warn("Delete Word",d1$,"Has been deleted"):�answr2

T ȗ ȓ 96,216,1119,100

^* �status(file$(sel),"unsaved"):save%=1

h count=lct

r �

| :

� ��edittitle

� �0,0:ȓ Ȑ 0,330,900,500

�= �10:�128:�19,9);"ENTER FILE DESCRIPTION (20 CHARS MAX)"

� �helptext(42):� 128:� 10

� �0,10:ȓ 300,592,350,64

� ȗ �:�

�# oldfile$=file$(sel):oldsel=sel

�* �19,12);">";:file$(sel)=�input(20):�

� newname$=file$(sel)

�2 � file$(sel)=""� file$(sel)=oldfile$:oldsel=0

� �0,0:ȓ Ȑ 0,330,900,500

�5 � file$(sel)<>"" :�status(file$(sel),"Modified")

� ȗ �:save%=1
 �
 :
 ��editword(j%)
& t$=�15," ")
0 oldword$=word$(j%)
: �helptext(43):�:ȗ �
D � 4+128:� 3
N �28,14);t$
X% �28,14);"> ";:word$(j%)=�in(12)
b � 128:�10:ȗ �:�
lI � word$(j%)="" � word$(j%)=oldword$:�28,14);t$:�28,14);word$(j%):�
v( �scan:�status("","Unsaved"):save%=1
�r � �(word$(j%))<4 �warn("INPUT ERROR","Word is too short","Must be 4 letters plus"):�answr2:word$(j%)=oldword$
�# �28,14);t$:�28,14);word$(j%)
� �:ȗ �
� �
� :
� ݤreadvarval(v$)
� � vloc,buffer,val,n
� � vloc 100 ,buffer 100
�
 $vloc=v$
�2 ș"OS_ReadVarVal",vloc,buffer,100,val,3 � ,,n
� ?(buffer+n)=13
�
 =$buffer
� :
 ��plinth(x,y,sprite$)
% ș&2E,290,sp,"bdout",x-10,y-4,&8
$ ș&2E,290,sp,sprite$,x+8,y+8,&8
  �
* :
4 ��init
>" � sp &12000:!sp=&12000 :� 72K
H sp!4=0:sp!8=16:sp!12=16
R- edit$=�readvarval("Gloop$Dir")+".editor"
\- dict$=�readvarval("Gloop$Dir")+".DICTS."
f@ resource$=�readvarval("Gloop$Dir")+"."+"resources"+".setup"
p � icon$(10)
z$ � file$(9),recs%(9),word$(2000)
� � buff% &100,b2% &100
�: help%=0:m$="helpoff":oldflag=0:menu=1:save%=0:load%=0
�; q%=0:black%=11:white%=10:oldsel=0:count=0:gen%=0:l1%=0
� pd$=�9," ")
� sp$=edit$+".sprites"
� ș &2E,266,sp,sp$
� *KEY 12 ****|M
� � 11,192,0,0
� � 10,255,255,255
� � 9,221,221,221
� � 7,144,0,0 :� DARK BORDER
�  � 8,255,0,0 :� LIGHT BORDER
�! � 12,153,153,153:� DARK GREY
 �readinsetup
 �
 :
$ ��b(y,U$)
.  ș &2E,290,sp,U$,970,y-4,&8
8 �
B :
L ��drawscreen
V	 � yl
`# ș&2E,290,sp,"title",100,900,0
j �loop=4 � 1 �-1
t yl=750-(loop*100)
~  �plinth(980,yl,icon$(loop))
� �
� �plinth(980,220,m$)
� �
� :
� ��secondmenu
� �loop=4 � 1 �-1
�  yl=750-(loop*100):tl=4+loop
� �plinth(980,yl,icon$(tl))
� �
� �plinth(980,220,m$)
� �
� :
 ��main

! �status("No file loaded","")
 �help_toggle
 ȗ �:�"POINTER":�
( �
2 � ȗ X,Y,Z:� Z=0
< �
F ȗ X%,Y%,Z%
P Ȏ Z% �
Z � 0 :Ȏ � �
d3 � �inbox(980,646,1208,84)� menu=1:�helptext(1)
n3 � �inbox(980,544,1208,84)� menu=1:�helptext(2)
x3 � �inbox(980,446,1208,84)� menu=1:�helptext(3)
�3 � �inbox(980,344,1208,84)� menu=1:�helptext(4)
�3 � �inbox(980,214,1208,84)� menu=1:�helptext(5)
�3 � �inbox(980,646,1208,84)� menu=2:�helptext(6)
�3 � �inbox(980,544,1208,84)� menu=2:�helptext(7)
�3 � �inbox(980,446,1208,84)� menu=2:�helptext(8)
�3 � �inbox(980,344,1208,84)� menu=2:�helptext(9)
�3 � �inbox(980,214,1208,84)� menu=2:�helptext(5)
�, � �inbox(42,920,1208,100):�helptext(77)
�* � �inbox(42,858,662,40):�helptext(78)
�, � �inbox(920,858,1218,40):�helptext(79)
�  �helptext(99)
� �
� �
 � Z%>0 � q%=6
 � q%<>6 � �decode
 � q%=6
" �
, :
6
 ��decode
@ Ȏ Z% �
J � 4 :Ȏ � �
TA � �inbox(980,646,1208,84)� menu=1:�b(650,"BDIN"):�sel_l_s(1)
^A � �inbox(980,544,1208,84)� menu=1:�b(550,"BDIN"):�sel_l_s(2)
h9 � �inbox(980,446,1208,84)� menu=1:menu=2:�secondmenu
r, � �inbox(980,344,1208,84)� menu=1:�quit
|+ � �inbox(980,214,1208,84):�help_toggle
�+ � �inbox(980,646,1208,84)� menu=2:�add
�- � �inbox(980,544,1208,84)� menu=2:�amend
�- � �inbox(980,446,1208,84)� menu=2:�check
�9 � �inbox(980,344,1208,84)� menu=2:menu=1:�drawscreen
�+ � �inbox(980,214,1208,84):�help_toggle
� �
� �
� �
� :
� ݤinbox(x,y,x1,y1)
�$ = X%>x � X%<x1 � Y%>y � Y%<y+y1
� :
� ��quit
J � save%>0 � �warn("WARNING","File not saved","Exit editor ?"):�answr1
" � l1%=1 � l1%=0 � q%=6 � q%=0
 � q%=0 � �
&/ run$=�readvarval("Gloop$Dir")+".!RUNIMAGE"
0 �"RUN "+run$
: �
D :
N ��readinsetup
X F%=� resource$
b � d=1 � 9
l �#F%,icon$(d)
v �
� � e=1 � 8
� �#F%,file$(e),recs%(e)
� �
�
 � #F%
� �
� :
� ��help_toggle
� Ȏ help% �
�1 � 0 :help%=1:m$="helpon":�plinth(980,220,m$)
�2 � 1 :help%=0:m$="helpoff":�plinth(980,220,m$)
� �
�* � help%=0 :�28,5,30,74,26:� 128:�:�26
� oldflag=0
 �
 :
 ��grid
  � 0+128
*
 �0,10
4 � X=272 � 780 � 64
> ȓ 300,X,600,64
H �
R � 7
\ � T=1 � 8
f �20,(2*T)+6);file$(T)
p �
z �
� :
� ��highlight(g)
� �helptext(10):�26
� � g=0 �
� � g=oldhigh �
�R �0,10:ȓ 300,722-(oldhigh*64),600,64:� 7:�20,(2*oldhigh+8));file$(oldhigh+1)
�? �0,8:ȓ 300,722-(g*64),600,64:�10:�20,(2*g)+8);file$(g+1)
� oldhigh=g
� �
� :
� ��sel_l_s(type)
� � oldv,Z%
�[ � save%>0 � type=1:�warn("ATTENTION","Unsaved dictionary","Proceed with load"):�answr1
	4 � l1%=2 �b(650,"bdout"):�b(550,"bdout"):l1%=0:�
	 oldhigh=1:�highlight(3)
	
 �grid
	$ ȗ � 730,574
	. ȗ ȓ 300,272,600,450
	8 � ȗ X,Y,Z%:� Z%=0
	B �
	L ȗ X%,Y%,Z%
	V Ȏ Z% �
	` � 0,1,4 :Ȏ � �
	j1 � �inbox(300,722,900,64):�highlight(0):sel=1
	t1 � �inbox(300,656,900,64):�highlight(1):sel=2
	~1 � �inbox(300,592,900,64):�highlight(2):sel=3
	�1 � �inbox(300,524,900,64):�highlight(3):sel=4
	�1 � �inbox(300,464,900,64):�highlight(4):sel=5
	�1 � �inbox(300,400,900,64):�highlight(5):sel=6
	�1 � �inbox(300,338,900,64):�highlight(6):sel=7
	�1 � �inbox(300,272,900,64):�highlight(7):sel=8
	� �
	� �
	� Ȏ Z% �
	� � 1 :�reset(sel)
	� � 4 :Ȏ � �
	�, � type=1 � recs%(sel)=0 :�generate(sel)
	�( � type=1 � recs%(sel)>0 :�load(sel)
 � type=2 :�save(sel)

 �
 �
 � Z%>0
(! �b(650,"bdout"):�clear(type)
2 �
< :
F ��clear(j)
P �0,0:ȓ Ȑ 300,272,600,530
Z ȗ ȓ 0,0,1279,1123
d � j=0 �
n. � j=1 � �b(650,"bdout") � �b(550,"bdout")
x �
� :
� ��reset(sel)
� v$=�(63+sel):C%=0
� newname$="User_"+v$
� � black%+128
�C �warn("RESET DICTIONARY","Do you want to reset :-",file$(sel))
�  �28,16);"YES";�43,16);"NO"
�& ȓ 434,468,80,58:ȓ 662,468,80,58
� � ȗ X,Y,Z%:� Z%=0
� �
� ȗ X%,Y%,Z%
� Ȏ Z% �
� � 0,4 :Ȏ � �
0 � �inbox(434,468,514,58):�helptext(21):C%=1
0 � �inbox(662,468,742,58):�helptext(22):C%=2
1 � �inbox(302,440,900,280):�helptext(20):C%=0
" �
, �
6 � Z%=4 � C%>0
@, � C%=2 �closewindow(302,440,"WINDOW"):�
J# �closewindow(302,440,"WINDOW")
T& file$(sel)=newname$:recs%(sel)=0:
^ �writesetup
h temp$=dict$+newname$
r N%=� (temp$)
| �#N%,word$(0)
�	 �#N%
� �
� �
� �
� �
� :
� ��writesetup
� F%=� resource$
� � d=1 � 9
� �#F%,icon$(d)
� �
� � e=1 � 8
� �#F%,file$(e),recs%(e)
 �
	 �#F%
 �
& :
0 ݤinput(maxlen%)
:0 ș"OS_ReadLine",buff%,maxlen%,32,122 � len%
D =$buff%
N :
X
 ݤin(R%)
b) ș"OS_ReadLine",b2%,R%,32,122 � len%
l
 =$b2%
v :
�' ��popwindow(qa%,qb%,qc%,qd%,temp$)
� �26
�5 �qa%,qb%:�qc%,qd%:ș"OS_SpriteOp",270,sp,temp$,1
�! �24,qa%+4;qb%+4;qc%-4;qd%-4;
�" �0,black%+128:�:� white% �&3F
� �26
�S �0,white% � &3F:ȓqa%+4,qb%+4,qc%-qa%-8,qd%-qb%-8:�24,qa%+4;qb%+4;qc%-4;qd%-4;
�& ȗ ȓ qa%,qb%,(qc%-qa%),(qd%-qb%)
� �0,128
� �
� :
�! ��closewindow(qa%,qb%,temp$)
� �26

) ș"OS_SpriteOp",290,sp,temp$,qa%,qb%

! ș"OS_SpriteOp",281,sp,temp$

 �24,0;0;1279;1123;

  ȗ ȓ 0,0,1279,1123

* �

4 :

> ��generate(sel)

HB �warn("NEW DICTIONARY","Create a new dictionary?",""):�answr1

R � l1%=2:l1%=0 :�

\ word$(0)=�$:count=0

f �clear(0)

p> � 10:�128:�19,9);"ENTER FILE DESCRIPTION (20 CHARS MAX)"

z �helptext(26):� 128:� 10

� �0,10:ȓ 300,592,350,64:

� ȗ �:�

�( �19,12);">";:file$(sel)=�input(20)

� �helptext(27):� 128:�10

� �

�
 count+=1

� �print

� �20,20);�13," ")

�( �19,20);"> ";:word$(count)=�in(12)

�
 �scan

�k � �(word$(count))<4 �warn("INPUT ERROR","Word is too short","Must be 4 letters plus"):�answr2:count-=1

� �helptext(27):� 128:� 10

� � word$(count)="****"
# word$(count)=�12," "):count-=1
) gen%=1:oldsel=sel:load%=1:�save(sel)
 ȗ �:�
$ �
. :
8 ��print
B+ � count >3 �19,14);word$(count-3);pd$
L+ � count >2 �19,16);word$(count-2);pd$
V+ � count >1 �19,18);word$(count-1);pd$
` �42,20);"Word No. ";count
j �
t :
~ ��scan
�	 � m$
� � word$(count)="****":�
� l=0:fail%=0
� t%=�(word$(count))
� � l+=1
�] � �(�word$(count),l,1))<65 fail%=1:m$=�word$(count),l,1):m1$="'"+m$+"'"+"not acceptable"
� � l=t% � fail%=1
�H � fail%=1 �warn("INPUT ERROR",m1$,"Re-enter word"):�answr2:count-=1
�" � fail%=1 ȗ �:�:� 128:� 10:�
� l=0
� � l+=1
�] � �(�word$(count),l,1))>90 fail%=1:m$=�word$(count),l,1):m1$="'"+m$+"'"+"not acceptable"
 � l=t% � fail%=1

H � fail%=1 �warn("INPUT ERROR",m1$,"Re-enter word"):�answr2:count-=1
 ȗ �:�:� 128:� 10
 �
( :
2 ��load(sel)
<) load$=file$(sel):recload%=recs%(sel)
F count=recs%(sel)
P v$=�(63+sel)
Z name$=dict$+"User_"+v$
d D%=�(name$)
n � loop=0 � count
x �#D%,word$(loop)
� �
�	 �#D%
� load%=1
� �status(load$,"Unchanged")
� �
� :
�
 ��add
�^ � load%<1 � �warn("USER ERROR","FILE NOT LOADED","Load file before continuing"):�answr2:�
� �0,10:ȓ 300,592,600,64
� ȗ �:�
� � 128:�10
� �19,12);" ";file$(sel)
� �helptext(28)
 � 128:�10
 �

 count+=1
" �print
, �20,20);�13," ")
6( �19,20);"> ";:word$(count)=�in(12)
@
 �scan
Ji � �(word$(count))<4 �warn("INPUT ERROR","Word is too short","Minimum is 4 letters"):�answr2:count-=1
T �helptext(28):� 128:�10
^ � word$(count)="****"
h
 count-=1
r" save%=1:�status("","Unsaved")
| �clear(0)
� ȗ �:�
� �
� :
� ��warn(c$,d$,e$)
� � b%,tc,td,te
�
 b%=21
�1 lenc=(�(c$)�2):lend=(�(d$)�2):lene=(�(e$)�2)
�8 tc=b%+(16-lenc)-1:td=b%+(16-lend):te=b%+(16-lene)-1
�) �popwindow(302,440,898,720,"WINDOW")
�# � 302,652,898,652:� black%+128
�( �tc,10);c$:�td,12);d$:�te,14);e$
� �
� :

 ��answr1

 l1%=0
  �28,16);"YES";�43,16);"NO"
&& ȓ 434,468,80,58:ȓ 662,468,80,58
0 � ȗ X,Y,Z%:� Z%=0
: �
D ȗ X%,Y%,Z%
N Ȏ Z% �
X � 0,4 :Ȏ � �
b1 � �inbox(434,468,514,58):�helptext(39):l1%=1
l1 � �inbox(662,468,742,58):�helptext(40):l1%=2
v2 � �inbox(302,440,900,280):�helptext(41):l1%=0
� �
� �
� � Z%=4 � l1%>0
�# �closewindow(302,440,"WINDOW")
� �
� :
�
 ��answr2
� ȗ �:�
�	 C%=0
� �32,16);"CONTINUE"
� ȓ 494,468,164,58
� � ȗ X,Y,Z%:� Z%=0
� �
 ȗ X%,Y%,Z%
 Ȏ Z% �
 � 0,4 :Ȏ � �
 0 � �inbox(494,468,758,58):�helptext(30):C%=1
*1 � �inbox(302,440,900,280):�helptext(29):C%=0
4 �
> �
H � Z%=4 � C%>0
R# �closewindow(302,440,"WINDOW")
\ �
f :
p ��helptext(s)
z � help%=0 �
� � s=oldflag � �
� � 4+128:� 3
� �28,5,30,74,26:�
� �26,0);"INTERACTIVE HELP"
� oldflag=s
� Ȏ s �
�� � 1 :title$="LOAD":text1$="Load a blank file to create a new dictionary or":text2$="make amendments to an existing dictionary."
�I � 2 :title$="SAVE":text1$="Save an edited/new dictionary.":text2$=""
�E � 3 :title$="EDIT":text1$="Move to the edit sub menu.":text2$=""
�w � 4 :title$="QUIT":text1$="Quit the editor and return to !Gloop.":text2$="All files must be saved before exiting."
�| � 5 :title$="HELP":text1$="Toggle Interactive help on/off.":text2$="Keep Help on until you are happy using the Editor."
�c � 6 :title$="ADD":text1$="Add words to the dictionary.":text2$="Remember the maximum is 2000."
�� � 7 :title$="AMEND":text1$="Use this function to amend a misspelt word. Use the Browse":text2$="function until the word to be amended is found."
k � 8 :title$="CHECK":text1$="Check a dictionary for and":text2$="automatically remove duplicate words."
C � 9 :title$="QUIT":text1$="Return to the main menu.":text2$=""
� � 10:title$="FILE GRID":text1$="Select to choose a dictionary. Menu abandon load/save.":text2$="Adjust to reset (delete) dictionary."
$x � 20:title$="RESET":text1$="Erase the dictionary. Reset default name.":text2$="WARNING !! THIS CANNOT BE REVERSED."
.[ � 21:title$="RESET":text1$="YES - wipe dictionary and restore default name.":text2$=""
8E � 22:title$="RESET":text1$="NO - keep the dictionary.":text2$=""
BK � 23:title$="Create":text1$="YES - Create a new Dictionary.":text2$=""
LQ � 24:title$="Create":text1$="No - A new Dictionary is not wanted.":text2$=""
Vi � 25:title$="Create":text1$="Create a new Dictionary of your own.":text2$="A maximum of 2000 words."
`� � 26:title$="Create":text1$="Enter a file description. (Not file name)":text2$="This is displayed in Gloops load dictionary window."
jt � 27:title$="Create":text1$="Enter your word. (max 12 characters). Press <RETURN>":text2$="Press <f12> to end."
tp � 28:title$="ADD":text1$="Enter your word. (max 12 characters). Press<RETURN>":text2$="Press <f12> to end."
~t � 29:title$="CONTINUE":text1$="Error box. Explains the error you":text2$="have made. Click button to continue."
�E � 30:title$="CONTINUE":text1$="Click here to proceed.":text2$=""
�� � 31:title$="MOVE":text1$="One word at a time through the dictionry.":text2$="You scroll round when the last word is reached."
�� � 32:title$="MOVE":text1$="Back through the dictionary, by one word.":text2$="You scroll round when the first word is reached."
�� � 33:title$="JUMP":text1$="Click <select> to step Five words forward.":text2$="Click <Adjust> to scroll forwards (increments of 5)."
�� � 34:title$="JUMP":text1$="Click <select> to step Five words backwards.":text2$="Click <Adjust> to scroll backwards (decrements of 5)."
� � 35:title$="DELETE":text1$="The highlighted word. Delete works by swapping":text2$="with last word and reducing counter."
�s � 36:title$="EDIT":text1$="You can edit the highlighted word.":text2$="<RETURN> on its own restores the word."
�b � 37:title$="MENU":text1$="Return to main menu.":text2$="Remember to save your amendments !!"
�j � 38:title$="TITLE":text1$="Edit the descriptive title.":text2$="Remember to save your amendments !!"
�F � 39:title$="CONFIRM":text1$="Yes proceed with action.":text2$=""
�> � 40:title$="CONFIRM":text1$="No abort action.":text2$=""
�y � 41:title$="CONFIRM":text1$="Do you want to proceed with the action selected ?":text2$="This will be irreversible."
j � 42:title$="EDIT":text1$="Enter new title description.":text2$="Press <RETURN> to retain old title."

 � 43:title$="EDIT":text1$="Enter your word. (max 12 characters). Press<RETURN>":text2$="Press <RETURN> to retain old word"
� � 77:title$="WELCOME":text1$="Use this editor to create your own dictionaries.":text2$="� J H PEACHEY 1993         ENJOY !!!!"
V � 78:title$="STATUS":text1$="Reminds you which file is loaded.(If any)":text2$=""
(R � 79:title$="STATUS":text1$="Shows whether a file has been edited.":text2$=""
2' � 99:title$="":text1$="":text2$=""
< �
F: �1,2);title$;�10,2);":";�11,2);text1$:�11,3);text2$
P �26
Z �
d :
n ��save(sel)
xL � count<1 � �warn("USER ERROR","THERE IS NO DATA TO SAVE",""):�answr2:�
�# � gen%>0 � newname$=file$(sel)
�) � oldsel=0 � gen%=0 � newname$=load$
�i � oldsel>0 � sel<>oldsel � file$(oldsel)=oldfile$:file$(sel)=newname$:oldsel=0 � file$(sel)=newname$
� recs%(sel)=count
� �writesetup
� v$=�(63+sel)
� name$=dict$+"User_"+v$
� D%=�(name$)
� � loop=0 � count
� �#D%,word$(loop)
� �
�	 �#D%
�( save%=0:�status(file$(sel),"Saved")
 gen%=0
 �
 :
" ��status(X$,Y$)
, � X$="" � X$=oldx$
6 � 128:� 3
@ �0,4);�79," ")
J9 �6,4);"File loaded is : ";X$:�58,4);"STATUS : ";Y$
T	 � 10
^
 oldx$=X$
h �
r :
| ��amend
�R � count=0 � �warn("USER ERROR","File empty","Use add to add words"):�answr2:�
�" leave%=0:� h%,k%:h%=76:k%=224
�" lct=count:� lct<7 j%=1 � j%=4
�^ � load%=0 � �warn("USER ERROR","File not loaded","Load file before continuing"):�answr2:�
�& ș&2E,290,sp,"toolbar",100,220,&8
�, ȗ ȓ 96,216,820,100:� ȗ X,Y,Z%:� Z%=0
� �display(j%)
� �
� ȗ X%,Y%,Z%
� Ȏ Z% �
� � 0,4 :Ȏ � �
�/ � �inbox(108,k%,148,h%):�helptext(32):C%=1
�/ � �inbox(166,k%,204,h%):�helptext(31):C%=2
/ � �inbox(224,k%,272,h%):�helptext(34):C%=3
/ � �inbox(292,k%,338,h%):�helptext(33):C%=4
/ � �inbox(356,k%,506,h%):�helptext(35):C%=5
&/ � �inbox(528,k%,630,h%):�helptext(36):C%=6
0/ � �inbox(650,k%,754,h%):�helptext(37):C%=7
:/ � �inbox(772,k%,900,h%):�helptext(38):C%=8
D  �helptext(99)
N �
X � 1 :Ȏ � �
b0 � �inbox(224,k%,272,h%):�helptext(34):C%=12
l0 � �inbox(292,k%,338,h%):�helptext(33):C%=13
v �
� �
� Ȏ Z% �
� � 1 :Ȏ � �
�< � C%=12:j%-=5:� j%<1 j%=lct:�display(j%) � �display(j%)
�< � C%=13:j%+=5:� j%>lct j%=1:�display(j%) � �display(j%)
� �
� � 4:Ȏ � �
�; � C%=1:j%-=1:� j%<1 j%=lct:�display(j%) � �display(j%)
�; � C%=2:j%+=1:� j%>lct j%=1:�display(j%) � �display(j%)
�; � C%=3:j%-=5:� j%<1 j%=lct:�display(j%) � �display(j%)
�; � C%=4:j%+=5:� j%>lct j%=1:�display(j%) � �display(j%)
� � C%=5:�delete(j%)
� � C%=6:�editword(j%)
 � C%=7:leave%=1
# � C%=8:�edittitle:�display(j%)
 �
  �
* � leave%=1
4 count=lct
> �24,82;196;940;806;:�:�26
H ȗ ȓ0,0,1279,1023
R �
\ :
f ��display(j%)
p � 128:� 7
z  � lct<7 �smalldisplay(j%):�
�� � j%-3>0 � �14,8);"Word No. ";j%-3;" ":�28,8);word$(j%-3);pd$ � �14,8);"Word No. ";((lct-3)+j%);" ":�28,8);word$((lct-3)+j%);pd$
�� � j%-2>0 � �14,10);"Word No. ";j%-2;" ":�28,10);word$(j%-2);pd$ � �14,10);"Word No. ";((lct-2)+j%);" ":�28,10)word$((lct-2)+j%);pd$
�� � j%-1>0 � �14,12);"Word No. ";j%-1;" ":�28,12);word$(j%-1);pd$ � �14,12);"Word No. ";((lct-1)+j%);" ":�28,12);word$((lct-1)+j%);pd$
�@ � 10:�14,14);"Word No. ";j%;" ":�28,14);word$(j%);pd$:� 7
�� � j%+1<=lct � �14,16);"Word No. ";j%+1;" ":�28,16);word$(j%+1);pd$ � �14,16);"Word No. ";((j%-lct)+1);" ":�28,16);word$((j%-lct)+1);pd$
�� � j%+2<=lct � �14,18);"Word No. ";j%+2;" ":�28,18);word$(j%+2);pd$ � �14,18);"Word No. ";((j%-lct)+2);" ":�28,18);word$((j%-lct)+2);pd$
�� � j%+3<=lct � �14,20);"Word No. ";j%+3;" ":�28,20);word$(j%+3);pd$ � �14,20);"Word No. ";((j%-lct)+3);" ":�28,20);word$((j%-lct)+3);pd$
� � C%<5 � �:ȗ X,Y,r%:�r%=0
� � C%>10 �I=�(5)
� �
� :
� ��smalldisplay(j%)
� � lct=0 � count=0 � �
@ � 10:�14,14);"Word No. ";j%;" ":�28,14);word$(j%);pd$:� 7
 � lct=1 � �
� � j%+1<=lct � �14,16);"Word No. ";j%+1;" ":�28,16);word$(j%+1);pd$ � �14,16);"Word No. ";((j%-lct)+1);" ":�28,16);word$((j%-lct)+1);pd$
$  � lct=2:�:ȗ X,Y,r%:�r%=0:�
.� � j%+2<=lct � �14,18);"Word No. ";j%+2;" ":�28,18);word$(j%+2);pd$ � �14,18);"Word No. ";((j%-lct)+2);" ":�28,18);word$((j%-lct)+2);pd$
8  � lct=3:�:ȗ X,Y,r%:�r%=0:�
B� � j%+3<=lct � �14,20);"Word No. ";j%+3;" ":�28,20);word$(j%+3);pd$ � �14,20);"Word No. ";((j%-lct)+3);" ":�28,20);word$((j%-lct)+3);pd$
L" � lct<5 � �:ȗ X,Y,r%:�r%=0:�
V� � j%-1>0 � �14,12);"Word No. ";j%-1;" ":�28,12);word$(j%-1);pd$ � �14,12);"Word No. ";((lct-1)+j%);" ":�28,12);word$((lct-1)+j%);pd$
`" � lct<6 � �:ȗ X,Y,r%:�r%=0:�
j� � j%-2>0 � �14,10);"Word No. ";j%-2;" ":�28,10);word$(j%-2);pd$ � �14,10);"Word No. ";((lct-2)+j%);" ":�28,10)word$((lct-2)+j%);pd$
t" � lct<7 � �:ȗ X,Y,r%:�r%=0:�
~� � j%-3>0 � �14,8);"Word No. ";j%-3;" ":�28,8);word$(j%-3);pd$ � �14,8);"Word No. ";((lct-3)+j%);" ":�28,8);word$((lct-3)+j%);pd$
� � C%<5 � �:ȗ X,Y,r%:�r%=0
� � C%>10 �I=�(5)
� �
�

00000000  0d 00 0a 11 20 f4 20 3e  21 52 55 4e 49 4d 41 47  |.... . >!RUNIMAG|
00000010  45 0d 00 14 09 20 eb 20  31 32 0d 00 15 0e 20 c8  |E.... . 12.... .|
00000020  99 26 30 36 2c 34 2c 30  0d 00 1e 1f 20 ee 20 85  |.&06,4,0.... . .|
00000030  20 3a f6 3a f1 22 45 52  52 20 41 54 20 4c 49 4e  | :.:."ERR AT LIN|
00000040  45 20 22 3b 9e 3a e0 0d  00 28 0a 20 f2 69 6e 69  |E ";.:...(. .ini|
00000050  74 0d 00 32 10 20 f2 64  72 61 77 73 63 72 65 65  |t..2. .drawscree|
00000060  6e 0d 00 3c 0a 20 f2 6d  61 69 6e 0d 00 46 06 20  |n..<. .main..F. |
00000070  e0 0d 00 50 06 20 3a 0d  00 5a 0c 20 dd f2 63 68  |...P. :..Z. ..ch|
00000080  65 63 6b 0d 00 64 0b 20  64 75 70 25 3d 30 0d 00  |eck..d. dup%=0..|
00000090  6e 5e 20 e7 20 6c 6f 61  64 25 3d 30 20 8c 20 f2  |n^ . load%=0 . .|
000000a0  77 61 72 6e 28 22 55 53  45 52 20 45 52 52 4f 52  |warn("USER ERROR|
000000b0  22 2c 22 46 69 6c 65 20  6e 6f 74 20 6c 6f 61 64  |","File not load|
000000c0  65 64 22 2c 22 4c 6f 61  64 20 66 69 6c 65 20 62  |ed","Load file b|
000000d0  65 66 6f 72 65 20 63 6f  6e 74 69 6e 75 69 6e 67  |efore continuing|
000000e0  22 29 3a f2 61 6e 73 77  72 32 3a e1 0d 00 78 45  |"):.answr2:...xE|
000000f0  20 e7 20 63 6f 75 6e 74  3d 30 20 8c 20 f2 77 61  | . count=0 . .wa|
00000100  72 6e 28 22 55 53 45 52  20 45 52 52 4f 52 22 2c  |rn("USER ERROR",|
00000110  22 4e 6f 20 77 6f 72 64  73 20 74 6f 20 63 68 65  |"No words to che|
00000120  63 6b 22 2c 22 22 29 3a  f2 61 6e 73 77 72 32 3a  |ck",""):.answr2:|
00000130  e1 0d 00 82 4a 20 f2 77  61 72 6e 28 22 20 20 53  |....J .warn("  S|
00000140  63 61 6e 6e 69 6e 67 22  2c 22 43 68 65 63 6b 69  |canning","Checki|
00000150  6e 67 20 66 6f 72 20 64  75 70 6c 69 63 61 74 65  |ng for duplicate|
00000160  20 77 6f 72 64 73 22 2c  22 20 20 20 20 20 50 4c  | words","     PL|
00000170  45 41 53 45 20 57 41 49  54 22 29 0d 00 8c 16 20  |EASE WAIT").... |
00000180  e3 20 6c 6f 6f 70 31 3d  31 20 b8 20 63 6f 75 6e  |. loop1=1 . coun|
00000190  74 0d 00 96 1c 20 e3 20  6c 6f 6f 70 32 3d 6c 6f  |t.... . loop2=lo|
000001a0  6f 70 31 2b 31 20 b8 20  63 6f 75 6e 74 0d 00 a0  |op1+1 . count...|
000001b0  4a 20 e7 20 77 6f 72 64  24 28 6c 6f 6f 70 31 29  |J . word$(loop1)|
000001c0  3d 77 6f 72 64 24 28 6c  6f 6f 70 32 29 20 80 20  |=word$(loop2) . |
000001d0  64 75 70 25 3d 30 20 8c  20 f2 63 6c 6f 73 65 77  |dup%=0 . .closew|
000001e0  69 6e 64 6f 77 28 33 30  32 2c 34 34 30 2c 22 57  |indow(302,440,"W|
000001f0  49 4e 44 4f 57 22 29 0d  00 aa a3 20 e7 20 77 6f  |INDOW").... . wo|
00000200  72 64 24 28 6c 6f 6f 70  31 29 3d 77 6f 72 64 24  |rd$(loop1)=word$|
00000210  28 6c 6f 6f 70 32 29 20  8c 20 c8 94 20 77 6f 72  |(loop2) . .. wor|
00000220  64 24 28 6c 6f 6f 70 32  29 2c 77 6f 72 64 24 28  |d$(loop2),word$(|
00000230  63 6f 75 6e 74 29 3a 63  6f 75 6e 74 2d 3d 31 3a  |count):count-=1:|
00000240  6c 24 3d 22 44 75 70 6c  69 63 61 74 65 20 6f 66  |l$="Duplicate of|
00000250  20 22 2b 77 6f 72 64 24  28 6c 6f 6f 70 32 29 3a  | "+word$(loop2):|
00000260  f2 77 61 72 6e 28 22 20  20 53 63 61 6e 6e 69 6e  |.warn("  Scannin|
00000270  67 22 2c 6c 24 2c 22 46  6f 75 6e 64 20 61 6e 64  |g",l$,"Found and|
00000280  20 64 65 6c 65 74 65 64  22 29 3a f2 61 6e 73 77  | deleted"):.answ|
00000290  72 32 3a 64 75 70 25 2b  3d 31 0d 00 b4 06 20 ed  |r2:dup%+=1.... .|
000002a0  0d 00 be 06 20 ed 0d 00  c8 2e 20 e7 20 64 75 70  |.... ..... . dup|
000002b0  25 3d 30 20 8c 20 f2 63  6c 6f 73 65 77 69 6e 64  |%=0 . .closewind|
000002c0  6f 77 28 33 30 32 2c 34  34 30 2c 22 57 49 4e 44  |ow(302,440,"WIND|
000002d0  4f 57 22 29 0d 00 d2 97  20 e7 20 64 75 70 25 3e  |OW").... . dup%>|
000002e0  31 20 8c 20 6c 24 3d c3  28 64 75 70 25 29 2b 22  |1 . l$=.(dup%)+"|
000002f0  20 64 75 70 6c 69 63 61  74 65 20 77 6f 72 64 73  | duplicate words|
00000300  20 66 6f 75 6e 64 22 3a  f2 77 61 72 6e 28 22 20  | found":.warn(" |
00000310  20 20 20 43 68 65 63 6b  20 22 2c 6c 24 2c 22 61  |   Check ",l$,"a|
00000320  6e 64 20 64 65 6c 65 74  65 64 22 29 3a f2 61 6e  |nd deleted"):.an|
00000330  73 77 72 32 20 8b 20 f2  77 61 72 6e 28 22 20 20  |swr2 . .warn("  |
00000340  20 20 43 68 65 63 6b 20  22 2c 22 4e 6f 20 64 75  |  Check ","No du|
00000350  70 6c 69 63 61 74 65 73  20 66 6f 75 6e 64 22 2c  |plicates found",|
00000360  22 22 29 3a f2 61 6e 73  77 72 32 0d 00 dc 06 20  |""):.answr2.... |
00000370  e1 0d 00 e6 06 20 3a 0d  00 f0 11 20 dd f2 64 65  |..... :.... ..de|
00000380  6c 65 74 65 28 6a 25 29  0d 00 fa 4b 20 e7 20 63  |lete(j%)...K . c|
00000390  6f 75 6e 74 3c 31 20 8c  20 f2 77 61 72 6e 28 22  |ount<1 . .warn("|
000003a0  55 53 45 52 20 45 52 52  4f 52 22 2c 22 54 48 45  |USER ERROR","THE|
000003b0  52 45 20 41 52 45 20 4e  4f 20 57 4f 52 44 53 20  |RE ARE NO WORDS |
000003c0  4c 45 46 54 22 2c 22 22  29 3a f2 61 6e 73 77 72  |LEFT",""):.answr|
000003d0  32 3a e1 0d 01 04 21 20  64 65 24 3d 22 44 65 6c  |2:....! de$="Del|
000003e0  65 74 65 20 22 2b 77 6f  72 64 24 28 6a 25 29 2b  |ete "+word$(j%)+|
000003f0  22 20 3f 22 0d 01 0e 12  20 64 31 24 3d 77 6f 72  |" ?".... d1$=wor|
00000400  64 24 28 6a 25 29 0d 01  18 28 20 f2 77 61 72 6e  |d$(j%)...( .warn|
00000410  28 22 44 65 6c 65 74 65  20 57 6f 72 64 22 2c 64  |("Delete Word",d|
00000420  65 24 2c 22 22 29 3a f2  61 6e 73 77 72 31 0d 01  |e$,""):.answr1..|
00000430  22 1a 20 c8 97 20 c8 93  20 39 36 2c 32 31 36 2c  |". .. .. 96,216,|
00000440  31 31 31 39 2c 31 30 30  0d 01 2c 1b 20 e7 20 6c  |1119,100..,. . l|
00000450  31 25 3d 32 20 8c 20 5a  25 3d 30 3a 43 25 3d 30  |1%=2 . Z%=0:C%=0|
00000460  20 3a e1 0d 01 36 31 20  c8 94 20 77 6f 72 64 24  | :...61 .. word$|
00000470  28 6a 25 29 2c 77 6f 72  64 24 28 6c 63 74 29 3a  |(j%),word$(lct):|
00000480  77 6f 72 64 24 28 6c 63  74 29 3d 22 22 3a 6c 63  |word$(lct)="":lc|
00000490  74 2d 3d 31 0d 01 40 1e  20 ef 32 34 2c 38 32 3b  |t-=1..@. .24,82;|
000004a0  33 31 30 3b 39 34 30 3b  38 30 36 3b 3a da 3a ef  |310;940;806;:.:.|
000004b0  32 36 0d 01 4a 45 20 f2  64 69 73 70 6c 61 79 28  |26..JE .display(|
000004c0  6a 25 29 3a f2 77 61 72  6e 28 22 44 65 6c 65 74  |j%):.warn("Delet|
000004d0  65 20 57 6f 72 64 22 2c  64 31 24 2c 22 48 61 73  |e Word",d1$,"Has|
000004e0  20 62 65 65 6e 20 64 65  6c 65 74 65 64 22 29 3a  | been deleted"):|
000004f0  f2 61 6e 73 77 72 32 0d  01 54 1a 20 c8 97 20 c8  |.answr2..T. .. .|
00000500  93 20 39 36 2c 32 31 36  2c 31 31 31 39 2c 31 30  |. 96,216,1119,10|
00000510  30 0d 01 5e 2a 20 f2 73  74 61 74 75 73 28 66 69  |0..^* .status(fi|
00000520  6c 65 24 28 73 65 6c 29  2c 22 75 6e 73 61 76 65  |le$(sel),"unsave|
00000530  64 22 29 3a 73 61 76 65  25 3d 31 0d 01 68 0e 20  |d"):save%=1..h. |
00000540  63 6f 75 6e 74 3d 6c 63  74 0d 01 72 06 20 e1 0d  |count=lct..r. ..|
00000550  01 7c 06 20 3a 0d 01 86  10 20 dd f2 65 64 69 74  |.|. :.... ..edit|
00000560  74 69 74 6c 65 0d 01 90  1d 20 e6 30 2c 30 3a c8  |title.... .0,0:.|
00000570  93 20 c8 90 20 30 2c 33  33 30 2c 39 30 30 2c 35  |. .. 0,330,900,5|
00000580  30 30 0d 01 9a 3d 20 fb  31 30 3a fb 31 32 38 3a  |00...= .10:.128:|
00000590  f1 8a 31 39 2c 39 29 3b  22 45 4e 54 45 52 20 46  |..19,9);"ENTER F|
000005a0  49 4c 45 20 44 45 53 43  52 49 50 54 49 4f 4e 20  |ILE DESCRIPTION |
000005b0  28 32 30 20 43 48 41 52  53 20 4d 41 58 29 22 0d  |(20 CHARS MAX)".|
000005c0  01 a4 1d 20 f2 68 65 6c  70 74 65 78 74 28 34 32  |... .helptext(42|
000005d0  29 3a fb 20 31 32 38 3a  fb 20 31 30 0d 01 ae 1c  |):. 128:. 10....|
000005e0  20 e6 30 2c 31 30 3a c8  93 20 33 30 30 2c 35 39  | .0,10:.. 300,59|
000005f0  32 2c 33 35 30 2c 36 34  0d 01 b8 0b 20 c8 97 20  |2,350,64.... .. |
00000600  87 3a ee 0d 01 c2 23 20  6f 6c 64 66 69 6c 65 24  |.:....# oldfile$|
00000610  3d 66 69 6c 65 24 28 73  65 6c 29 3a 6f 6c 64 73  |=file$(sel):olds|
00000620  65 6c 3d 73 65 6c 0d 01  cc 2a 20 f1 8a 31 39 2c  |el=sel...* ..19,|
00000630  31 32 29 3b 22 3e 22 3b  3a 66 69 6c 65 24 28 73  |12);">";:file$(s|
00000640  65 6c 29 3d a4 69 6e 70  75 74 28 32 30 29 3a 87  |el)=.input(20):.|
00000650  0d 01 d6 18 20 6e 65 77  6e 61 6d 65 24 3d 66 69  |.... newname$=fi|
00000660  6c 65 24 28 73 65 6c 29  0d 01 e0 32 20 e7 20 66  |le$(sel)...2 . f|
00000670  69 6c 65 24 28 73 65 6c  29 3d 22 22 8c 20 66 69  |ile$(sel)="". fi|
00000680  6c 65 24 28 73 65 6c 29  3d 6f 6c 64 66 69 6c 65  |le$(sel)=oldfile|
00000690  24 3a 6f 6c 64 73 65 6c  3d 30 0d 01 ea 1d 20 e6  |$:oldsel=0.... .|
000006a0  30 2c 30 3a c8 93 20 c8  90 20 30 2c 33 33 30 2c  |0,0:.. .. 0,330,|
000006b0  39 30 30 2c 35 30 30 0d  01 f4 35 20 e7 20 66 69  |900,500...5 . fi|
000006c0  6c 65 24 28 73 65 6c 29  3c 3e 22 22 20 3a f2 73  |le$(sel)<>"" :.s|
000006d0  74 61 74 75 73 28 66 69  6c 65 24 28 73 65 6c 29  |tatus(file$(sel)|
000006e0  2c 22 4d 6f 64 69 66 69  65 64 22 29 0d 01 fe 11  |,"Modified")....|
000006f0  20 c8 97 20 ee 3a 73 61  76 65 25 3d 31 0d 02 08  | .. .:save%=1...|
00000700  06 20 e1 0d 02 12 06 20  3a 0d 02 1c 13 20 dd f2  |. ..... :.... ..|
00000710  65 64 69 74 77 6f 72 64  28 6a 25 29 0d 02 26 10  |editword(j%)..&.|
00000720  20 74 24 3d c4 31 35 2c  22 20 22 29 0d 02 30 17  | t$=.15," ")..0.|
00000730  20 6f 6c 64 77 6f 72 64  24 3d 77 6f 72 64 24 28  | oldword$=word$(|
00000740  6a 25 29 0d 02 3a 19 20  f2 68 65 6c 70 74 65 78  |j%)..:. .helptex|
00000750  74 28 34 33 29 3a ee 3a  c8 97 20 87 0d 02 44 10  |t(43):.:.. ...D.|
00000760  20 fb 20 34 2b 31 32 38  3a fb 20 33 0d 02 4e 10  | . 4+128:. 3..N.|
00000770  20 f1 8a 32 38 2c 31 34  29 3b 74 24 0d 02 58 25  | ..28,14);t$..X%|
00000780  20 f1 8a 32 38 2c 31 34  29 3b 22 3e 20 22 3b 3a  | ..28,14);"> ";:|
00000790  77 6f 72 64 24 28 6a 25  29 3d a4 69 6e 28 31 32  |word$(j%)=.in(12|
000007a0  29 0d 02 62 15 20 fb 20  31 32 38 3a fb 31 30 3a  |)..b. . 128:.10:|
000007b0  c8 97 20 ee 3a 87 0d 02  6c 49 20 e7 20 77 6f 72  |.. .:...lI . wor|
000007c0  64 24 28 6a 25 29 3d 22  22 20 8c 20 77 6f 72 64  |d$(j%)="" . word|
000007d0  24 28 6a 25 29 3d 6f 6c  64 77 6f 72 64 24 3a f1  |$(j%)=oldword$:.|
000007e0  8a 32 38 2c 31 34 29 3b  74 24 3a f1 8a 32 38 2c  |.28,14);t$:..28,|
000007f0  31 34 29 3b 77 6f 72 64  24 28 6a 25 29 3a e1 0d  |14);word$(j%):..|
00000800  02 76 28 20 f2 73 63 61  6e 3a f2 73 74 61 74 75  |.v( .scan:.statu|
00000810  73 28 22 22 2c 22 55 6e  73 61 76 65 64 22 29 3a  |s("","Unsaved"):|
00000820  73 61 76 65 25 3d 31 0d  02 80 72 20 e7 20 a9 28  |save%=1...r . .(|
00000830  77 6f 72 64 24 28 6a 25  29 29 3c 34 20 f2 77 61  |word$(j%))<4 .wa|
00000840  72 6e 28 22 49 4e 50 55  54 20 45 52 52 4f 52 22  |rn("INPUT ERROR"|
00000850  2c 22 57 6f 72 64 20 69  73 20 74 6f 6f 20 73 68  |,"Word is too sh|
00000860  6f 72 74 22 2c 22 4d 75  73 74 20 62 65 20 34 20  |ort","Must be 4 |
00000870  6c 65 74 74 65 72 73 20  70 6c 75 73 22 29 3a f2  |letters plus"):.|
00000880  61 6e 73 77 72 32 3a 77  6f 72 64 24 28 6a 25 29  |answr2:word$(j%)|
00000890  3d 6f 6c 64 77 6f 72 64  24 0d 02 8a 23 20 f1 8a  |=oldword$...# ..|
000008a0  32 38 2c 31 34 29 3b 74  24 3a f1 8a 32 38 2c 31  |28,14);t$:..28,1|
000008b0  34 29 3b 77 6f 72 64 24  28 6a 25 29 0d 02 94 0b  |4);word$(j%)....|
000008c0  20 87 3a c8 97 20 ee 0d  02 9e 06 20 e1 0d 02 a8  | .:.. ..... ....|
000008d0  06 20 3a 0d 02 b2 15 20  dd a4 72 65 61 64 76 61  |. :.... ..readva|
000008e0  72 76 61 6c 28 76 24 29  0d 02 bc 18 20 ea 20 76  |rval(v$).... . v|
000008f0  6c 6f 63 2c 62 75 66 66  65 72 2c 76 61 6c 2c 6e  |loc,buffer,val,n|
00000900  0d 02 c6 1b 20 de 20 76  6c 6f 63 20 31 30 30 20  |.... . vloc 100 |
00000910  2c 62 75 66 66 65 72 20  31 30 30 0d 02 d0 0d 20  |,buffer 100.... |
00000920  24 76 6c 6f 63 3d 76 24  0d 02 da 32 20 c8 99 22  |$vloc=v$...2 .."|
00000930  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 76  |OS_ReadVarVal",v|
00000940  6c 6f 63 2c 62 75 66 66  65 72 2c 31 30 30 2c 76  |loc,buffer,100,v|
00000950  61 6c 2c 33 20 b8 20 2c  2c 6e 0d 02 e4 13 20 3f  |al,3 . ,,n.... ?|
00000960  28 62 75 66 66 65 72 2b  6e 29 3d 31 33 0d 02 ee  |(buffer+n)=13...|
00000970  0d 20 3d 24 62 75 66 66  65 72 0d 02 f8 06 20 3a  |. =$buffer.... :|
00000980  0d 03 02 1a 20 dd f2 70  6c 69 6e 74 68 28 78 2c  |.... ..plinth(x,|
00000990  79 2c 73 70 72 69 74 65  24 29 0d 03 0c 25 20 c8  |y,sprite$)...% .|
000009a0  99 26 32 45 2c 32 39 30  2c 73 70 2c 22 62 64 6f  |.&2E,290,sp,"bdo|
000009b0  75 74 22 2c 78 2d 31 30  2c 79 2d 34 2c 26 38 0d  |ut",x-10,y-4,&8.|
000009c0  03 16 24 20 c8 99 26 32  45 2c 32 39 30 2c 73 70  |..$ ..&2E,290,sp|
000009d0  2c 73 70 72 69 74 65 24  2c 78 2b 38 2c 79 2b 38  |,sprite$,x+8,y+8|
000009e0  2c 26 38 0d 03 20 06 20  e1 0d 03 2a 06 20 3a 0d  |,&8.. . ...*. :.|
000009f0  03 34 0b 20 dd f2 69 6e  69 74 0d 03 3e 22 20 de  |.4. ..init..>" .|
00000a00  20 73 70 20 26 31 32 30  30 30 3a 21 73 70 3d 26  | sp &12000:!sp=&|
00000a10  31 32 30 30 30 20 3a f4  20 37 32 4b 0d 03 48 1c  |12000 :. 72K..H.|
00000a20  20 73 70 21 34 3d 30 3a  73 70 21 38 3d 31 36 3a  | sp!4=0:sp!8=16:|
00000a30  73 70 21 31 32 3d 31 36  0d 03 52 2d 20 65 64 69  |sp!12=16..R- edi|
00000a40  74 24 3d a4 72 65 61 64  76 61 72 76 61 6c 28 22  |t$=.readvarval("|
00000a50  47 6c 6f 6f 70 24 44 69  72 22 29 2b 22 2e 65 64  |Gloop$Dir")+".ed|
00000a60  69 74 6f 72 22 0d 03 5c  2d 20 64 69 63 74 24 3d  |itor"..\- dict$=|
00000a70  a4 72 65 61 64 76 61 72  76 61 6c 28 22 47 6c 6f  |.readvarval("Glo|
00000a80  6f 70 24 44 69 72 22 29  2b 22 2e 44 49 43 54 53  |op$Dir")+".DICTS|
00000a90  2e 22 0d 03 66 40 20 72  65 73 6f 75 72 63 65 24  |."..f@ resource$|
00000aa0  3d a4 72 65 61 64 76 61  72 76 61 6c 28 22 47 6c  |=.readvarval("Gl|
00000ab0  6f 6f 70 24 44 69 72 22  29 2b 22 2e 22 2b 22 72  |oop$Dir")+"."+"r|
00000ac0  65 73 6f 75 72 63 65 73  22 2b 22 2e 73 65 74 75  |esources"+".setu|
00000ad0  70 22 0d 03 70 10 20 de  20 69 63 6f 6e 24 28 31  |p"..p. . icon$(1|
00000ae0  30 29 0d 03 7a 24 20 de  20 66 69 6c 65 24 28 39  |0)..z$ . file$(9|
00000af0  29 2c 72 65 63 73 25 28  39 29 2c 77 6f 72 64 24  |),recs%(9),word$|
00000b00  28 32 30 30 30 29 0d 03  84 1a 20 de 20 62 75 66  |(2000).... . buf|
00000b10  66 25 20 26 31 30 30 2c  62 32 25 20 26 31 30 30  |f% &100,b2% &100|
00000b20  0d 03 8e 3a 20 68 65 6c  70 25 3d 30 3a 6d 24 3d  |...: help%=0:m$=|
00000b30  22 68 65 6c 70 6f 66 66  22 3a 6f 6c 64 66 6c 61  |"helpoff":oldfla|
00000b40  67 3d 30 3a 6d 65 6e 75  3d 31 3a 73 61 76 65 25  |g=0:menu=1:save%|
00000b50  3d 30 3a 6c 6f 61 64 25  3d 30 0d 03 98 3b 20 71  |=0:load%=0...; q|
00000b60  25 3d 30 3a 62 6c 61 63  6b 25 3d 31 31 3a 77 68  |%=0:black%=11:wh|
00000b70  69 74 65 25 3d 31 30 3a  6f 6c 64 73 65 6c 3d 30  |ite%=10:oldsel=0|
00000b80  3a 63 6f 75 6e 74 3d 30  3a 67 65 6e 25 3d 30 3a  |:count=0:gen%=0:|
00000b90  6c 31 25 3d 30 0d 03 a2  10 20 70 64 24 3d c4 39  |l1%=0.... pd$=.9|
00000ba0  2c 22 20 22 29 0d 03 ac  19 20 73 70 24 3d 65 64  |," ").... sp$=ed|
00000bb0  69 74 24 2b 22 2e 73 70  72 69 74 65 73 22 0d 03  |it$+".sprites"..|
00000bc0  b6 16 20 c8 99 20 26 32  45 2c 32 36 36 2c 73 70  |.. .. &2E,266,sp|
00000bd0  2c 73 70 24 0d 03 c0 13  20 2a 4b 45 59 20 31 32  |,sp$.... *KEY 12|
00000be0  20 2a 2a 2a 2a 7c 4d 0d  03 ca 11 20 fb 20 31 31  | ****|M.... . 11|
00000bf0  2c 31 39 32 2c 30 2c 30  0d 03 d4 15 20 fb 20 31  |,192,0,0.... . 1|
00000c00  30 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 03 de  |0,255,255,255...|
00000c10  14 20 fb 20 39 2c 32 32  31 2c 32 32 31 2c 32 32  |. . 9,221,221,22|
00000c20  31 0d 03 e8 1f 20 fb 20  37 2c 31 34 34 2c 30 2c  |1.... . 7,144,0,|
00000c30  30 20 3a f4 20 44 41 52  4b 20 42 4f 52 44 45 52  |0 :. DARK BORDER|
00000c40  0d 03 f2 20 20 fb 20 38  2c 32 35 35 2c 30 2c 30  |...  . 8,255,0,0|
00000c50  20 3a f4 20 4c 49 47 48  54 20 42 4f 52 44 45 52  | :. LIGHT BORDER|
00000c60  0d 03 fc 21 20 fb 20 31  32 2c 31 35 33 2c 31 35  |...! . 12,153,15|
00000c70  33 2c 31 35 33 3a f4 20  44 41 52 4b 20 47 52 45  |3,153:. DARK GRE|
00000c80  59 0d 04 06 11 20 f2 72  65 61 64 69 6e 73 65 74  |Y.... .readinset|
00000c90  75 70 0d 04 10 06 20 e1  0d 04 1a 06 20 3a 0d 04  |up.... ..... :..|
00000ca0  24 0e 20 dd f2 62 28 79  2c 55 24 29 0d 04 2e 20  |$. ..b(y,U$)... |
00000cb0  20 c8 99 20 26 32 45 2c  32 39 30 2c 73 70 2c 55  | .. &2E,290,sp,U|
00000cc0  24 2c 39 37 30 2c 79 2d  34 2c 26 38 0d 04 38 06  |$,970,y-4,&8..8.|
00000cd0  20 e1 0d 04 42 06 20 3a  0d 04 4c 11 20 dd f2 64  | ...B. :..L. ..d|
00000ce0  72 61 77 73 63 72 65 65  6e 0d 04 56 09 20 ea 20  |rawscreen..V. . |
00000cf0  79 6c 0d 04 60 23 20 c8  99 26 32 45 2c 32 39 30  |yl..`# ..&2E,290|
00000d00  2c 73 70 2c 22 74 69 74  6c 65 22 2c 31 30 30 2c  |,sp,"title",100,|
00000d10  39 30 30 2c 30 0d 04 6a  14 20 e3 6c 6f 6f 70 3d  |900,0..j. .loop=|
00000d20  34 20 b8 20 31 20 88 2d  31 0d 04 74 16 20 79 6c  |4 . 1 .-1..t. yl|
00000d30  3d 37 35 30 2d 28 6c 6f  6f 70 2a 31 30 30 29 0d  |=750-(loop*100).|
00000d40  04 7e 20 20 f2 70 6c 69  6e 74 68 28 39 38 30 2c  |.~  .plinth(980,|
00000d50  79 6c 2c 69 63 6f 6e 24  28 6c 6f 6f 70 29 29 0d  |yl,icon$(loop)).|
00000d60  04 88 06 20 ed 0d 04 92  18 20 f2 70 6c 69 6e 74  |... ..... .plint|
00000d70  68 28 39 38 30 2c 32 32  30 2c 6d 24 29 0d 04 9c  |h(980,220,m$)...|
00000d80  06 20 e1 0d 04 a6 06 20  3a 0d 04 b0 11 20 dd f2  |. ..... :.... ..|
00000d90  73 65 63 6f 6e 64 6d 65  6e 75 0d 04 ba 14 20 e3  |secondmenu.... .|
00000da0  6c 6f 6f 70 3d 34 20 b8  20 31 20 88 2d 31 0d 04  |loop=4 . 1 .-1..|
00000db0  c4 20 20 79 6c 3d 37 35  30 2d 28 6c 6f 6f 70 2a  |.  yl=750-(loop*|
00000dc0  31 30 30 29 3a 74 6c 3d  34 2b 6c 6f 6f 70 0d 04  |100):tl=4+loop..|
00000dd0  ce 1e 20 f2 70 6c 69 6e  74 68 28 39 38 30 2c 79  |.. .plinth(980,y|
00000de0  6c 2c 69 63 6f 6e 24 28  74 6c 29 29 0d 04 d8 06  |l,icon$(tl))....|
00000df0  20 ed 0d 04 e2 18 20 f2  70 6c 69 6e 74 68 28 39  | ..... .plinth(9|
00000e00  38 30 2c 32 32 30 2c 6d  24 29 0d 04 ec 06 20 e1  |80,220,m$).... .|
00000e10  0d 04 f6 06 20 3a 0d 05  00 0b 20 dd f2 6d 61 69  |.... :.... ..mai|
00000e20  6e 0d 05 0a 21 20 f2 73  74 61 74 75 73 28 22 4e  |n...! .status("N|
00000e30  6f 20 66 69 6c 65 20 6c  6f 61 64 65 64 22 2c 22  |o file loaded","|
00000e40  22 29 0d 05 14 11 20 f2  68 65 6c 70 5f 74 6f 67  |").... .help_tog|
00000e50  67 6c 65 0d 05 1e 16 20  c8 97 20 ee 3a ff 22 50  |gle.... .. .:."P|
00000e60  4f 49 4e 54 45 52 22 3a  87 0d 05 28 06 20 f5 0d  |OINTER":...(. ..|
00000e70  05 32 15 20 f5 20 c8 97  20 58 2c 59 2c 5a 3a fd  |.2. . .. X,Y,Z:.|
00000e80  20 5a 3d 30 0d 05 3c 06  20 f5 0d 05 46 10 20 c8  | Z=0..<. ...F. .|
00000e90  97 20 58 25 2c 59 25 2c  5a 25 0d 05 50 0c 20 c8  |. X%,Y%,Z%..P. .|
00000ea0  8e 20 5a 25 20 ca 0d 05  5a 10 20 c9 20 30 20 3a  |. Z% ...Z. . 0 :|
00000eb0  c8 8e 20 b9 20 ca 0d 05  64 33 20 c9 20 a4 69 6e  |.. . ...d3 . .in|
00000ec0  62 6f 78 28 39 38 30 2c  36 34 36 2c 31 32 30 38  |box(980,646,1208|
00000ed0  2c 38 34 29 80 20 6d 65  6e 75 3d 31 3a f2 68 65  |,84). menu=1:.he|
00000ee0  6c 70 74 65 78 74 28 31  29 0d 05 6e 33 20 c9 20  |lptext(1)..n3 . |
00000ef0  a4 69 6e 62 6f 78 28 39  38 30 2c 35 34 34 2c 31  |.inbox(980,544,1|
00000f00  32 30 38 2c 38 34 29 80  20 6d 65 6e 75 3d 31 3a  |208,84). menu=1:|
00000f10  f2 68 65 6c 70 74 65 78  74 28 32 29 0d 05 78 33  |.helptext(2)..x3|
00000f20  20 c9 20 a4 69 6e 62 6f  78 28 39 38 30 2c 34 34  | . .inbox(980,44|
00000f30  36 2c 31 32 30 38 2c 38  34 29 80 20 6d 65 6e 75  |6,1208,84). menu|
00000f40  3d 31 3a f2 68 65 6c 70  74 65 78 74 28 33 29 0d  |=1:.helptext(3).|
00000f50  05 82 33 20 c9 20 a4 69  6e 62 6f 78 28 39 38 30  |..3 . .inbox(980|
00000f60  2c 33 34 34 2c 31 32 30  38 2c 38 34 29 80 20 6d  |,344,1208,84). m|
00000f70  65 6e 75 3d 31 3a f2 68  65 6c 70 74 65 78 74 28  |enu=1:.helptext(|
00000f80  34 29 0d 05 8c 33 20 c9  20 a4 69 6e 62 6f 78 28  |4)...3 . .inbox(|
00000f90  39 38 30 2c 32 31 34 2c  31 32 30 38 2c 38 34 29  |980,214,1208,84)|
00000fa0  80 20 6d 65 6e 75 3d 31  3a f2 68 65 6c 70 74 65  |. menu=1:.helpte|
00000fb0  78 74 28 35 29 0d 05 96  33 20 c9 20 a4 69 6e 62  |xt(5)...3 . .inb|
00000fc0  6f 78 28 39 38 30 2c 36  34 36 2c 31 32 30 38 2c  |ox(980,646,1208,|
00000fd0  38 34 29 80 20 6d 65 6e  75 3d 32 3a f2 68 65 6c  |84). menu=2:.hel|
00000fe0  70 74 65 78 74 28 36 29  0d 05 a0 33 20 c9 20 a4  |ptext(6)...3 . .|
00000ff0  69 6e 62 6f 78 28 39 38  30 2c 35 34 34 2c 31 32  |inbox(980,544,12|
00001000  30 38 2c 38 34 29 80 20  6d 65 6e 75 3d 32 3a f2  |08,84). menu=2:.|
00001010  68 65 6c 70 74 65 78 74  28 37 29 0d 05 aa 33 20  |helptext(7)...3 |
00001020  c9 20 a4 69 6e 62 6f 78  28 39 38 30 2c 34 34 36  |. .inbox(980,446|
00001030  2c 31 32 30 38 2c 38 34  29 80 20 6d 65 6e 75 3d  |,1208,84). menu=|
00001040  32 3a f2 68 65 6c 70 74  65 78 74 28 38 29 0d 05  |2:.helptext(8)..|
00001050  b4 33 20 c9 20 a4 69 6e  62 6f 78 28 39 38 30 2c  |.3 . .inbox(980,|
00001060  33 34 34 2c 31 32 30 38  2c 38 34 29 80 20 6d 65  |344,1208,84). me|
00001070  6e 75 3d 32 3a f2 68 65  6c 70 74 65 78 74 28 39  |nu=2:.helptext(9|
00001080  29 0d 05 be 33 20 c9 20  a4 69 6e 62 6f 78 28 39  |)...3 . .inbox(9|
00001090  38 30 2c 32 31 34 2c 31  32 30 38 2c 38 34 29 80  |80,214,1208,84).|
000010a0  20 6d 65 6e 75 3d 32 3a  f2 68 65 6c 70 74 65 78  | menu=2:.helptex|
000010b0  74 28 35 29 0d 05 c8 2c  20 c9 20 a4 69 6e 62 6f  |t(5)..., . .inbo|
000010c0  78 28 34 32 2c 39 32 30  2c 31 32 30 38 2c 31 30  |x(42,920,1208,10|
000010d0  30 29 3a f2 68 65 6c 70  74 65 78 74 28 37 37 29  |0):.helptext(77)|
000010e0  0d 05 d2 2a 20 c9 20 a4  69 6e 62 6f 78 28 34 32  |...* . .inbox(42|
000010f0  2c 38 35 38 2c 36 36 32  2c 34 30 29 3a f2 68 65  |,858,662,40):.he|
00001100  6c 70 74 65 78 74 28 37  38 29 0d 05 dc 2c 20 c9  |lptext(78)..., .|
00001110  20 a4 69 6e 62 6f 78 28  39 32 30 2c 38 35 38 2c  | .inbox(920,858,|
00001120  31 32 31 38 2c 34 30 29  3a f2 68 65 6c 70 74 65  |1218,40):.helpte|
00001130  78 74 28 37 39 29 0d 05  e6 14 20 7f 20 f2 68 65  |xt(79).... . .he|
00001140  6c 70 74 65 78 74 28 39  39 29 0d 05 f0 06 20 cb  |lptext(99).... .|
00001150  0d 05 fa 06 20 cb 0d 06  04 12 20 fd 20 5a 25 3e  |.... ..... . Z%>|
00001160  30 20 84 20 71 25 3d 36  0d 06 0e 16 20 e7 20 71  |0 . q%=6.... . q|
00001170  25 3c 3e 36 20 8c 20 f2  64 65 63 6f 64 65 0d 06  |%<>6 . .decode..|
00001180  18 0b 20 fd 20 71 25 3d  36 0d 06 22 06 20 e1 0d  |.. . q%=6..". ..|
00001190  06 2c 06 20 3a 0d 06 36  0d 20 dd f2 64 65 63 6f  |.,. :..6. ..deco|
000011a0  64 65 0d 06 40 0c 20 c8  8e 20 5a 25 20 ca 0d 06  |de..@. .. Z% ...|
000011b0  4a 10 20 c9 20 34 20 3a  c8 8e 20 b9 20 ca 0d 06  |J. . 4 :.. . ...|
000011c0  54 41 20 c9 20 a4 69 6e  62 6f 78 28 39 38 30 2c  |TA . .inbox(980,|
000011d0  36 34 36 2c 31 32 30 38  2c 38 34 29 80 20 6d 65  |646,1208,84). me|
000011e0  6e 75 3d 31 3a f2 62 28  36 35 30 2c 22 42 44 49  |nu=1:.b(650,"BDI|
000011f0  4e 22 29 3a f2 73 65 6c  5f 6c 5f 73 28 31 29 0d  |N"):.sel_l_s(1).|
00001200  06 5e 41 20 c9 20 a4 69  6e 62 6f 78 28 39 38 30  |.^A . .inbox(980|
00001210  2c 35 34 34 2c 31 32 30  38 2c 38 34 29 80 20 6d  |,544,1208,84). m|
00001220  65 6e 75 3d 31 3a f2 62  28 35 35 30 2c 22 42 44  |enu=1:.b(550,"BD|
00001230  49 4e 22 29 3a f2 73 65  6c 5f 6c 5f 73 28 32 29  |IN"):.sel_l_s(2)|
00001240  0d 06 68 39 20 c9 20 a4  69 6e 62 6f 78 28 39 38  |..h9 . .inbox(98|
00001250  30 2c 34 34 36 2c 31 32  30 38 2c 38 34 29 80 20  |0,446,1208,84). |
00001260  6d 65 6e 75 3d 31 3a 6d  65 6e 75 3d 32 3a f2 73  |menu=1:menu=2:.s|
00001270  65 63 6f 6e 64 6d 65 6e  75 0d 06 72 2c 20 c9 20  |econdmenu..r, . |
00001280  a4 69 6e 62 6f 78 28 39  38 30 2c 33 34 34 2c 31  |.inbox(980,344,1|
00001290  32 30 38 2c 38 34 29 80  20 6d 65 6e 75 3d 31 3a  |208,84). menu=1:|
000012a0  f2 71 75 69 74 0d 06 7c  2b 20 c9 20 a4 69 6e 62  |.quit..|+ . .inb|
000012b0  6f 78 28 39 38 30 2c 32  31 34 2c 31 32 30 38 2c  |ox(980,214,1208,|
000012c0  38 34 29 3a f2 68 65 6c  70 5f 74 6f 67 67 6c 65  |84):.help_toggle|
000012d0  0d 06 86 2b 20 c9 20 a4  69 6e 62 6f 78 28 39 38  |...+ . .inbox(98|
000012e0  30 2c 36 34 36 2c 31 32  30 38 2c 38 34 29 80 20  |0,646,1208,84). |
000012f0  6d 65 6e 75 3d 32 3a f2  61 64 64 0d 06 90 2d 20  |menu=2:.add...- |
00001300  c9 20 a4 69 6e 62 6f 78  28 39 38 30 2c 35 34 34  |. .inbox(980,544|
00001310  2c 31 32 30 38 2c 38 34  29 80 20 6d 65 6e 75 3d  |,1208,84). menu=|
00001320  32 3a f2 61 6d 65 6e 64  0d 06 9a 2d 20 c9 20 a4  |2:.amend...- . .|
00001330  69 6e 62 6f 78 28 39 38  30 2c 34 34 36 2c 31 32  |inbox(980,446,12|
00001340  30 38 2c 38 34 29 80 20  6d 65 6e 75 3d 32 3a f2  |08,84). menu=2:.|
00001350  63 68 65 63 6b 0d 06 a4  39 20 c9 20 a4 69 6e 62  |check...9 . .inb|
00001360  6f 78 28 39 38 30 2c 33  34 34 2c 31 32 30 38 2c  |ox(980,344,1208,|
00001370  38 34 29 80 20 6d 65 6e  75 3d 32 3a 6d 65 6e 75  |84). menu=2:menu|
00001380  3d 31 3a f2 64 72 61 77  73 63 72 65 65 6e 0d 06  |=1:.drawscreen..|
00001390  ae 2b 20 c9 20 a4 69 6e  62 6f 78 28 39 38 30 2c  |.+ . .inbox(980,|
000013a0  32 31 34 2c 31 32 30 38  2c 38 34 29 3a f2 68 65  |214,1208,84):.he|
000013b0  6c 70 5f 74 6f 67 67 6c  65 0d 06 b8 06 20 cb 0d  |lp_toggle.... ..|
000013c0  06 c2 06 20 cb 0d 06 cc  06 20 e1 0d 06 d6 06 20  |... ..... ..... |
000013d0  3a 0d 06 e0 17 20 dd a4  69 6e 62 6f 78 28 78 2c  |:.... ..inbox(x,|
000013e0  79 2c 78 31 2c 79 31 29  0d 06 ea 24 20 3d 20 58  |y,x1,y1)...$ = X|
000013f0  25 3e 78 20 80 20 58 25  3c 78 31 20 80 20 59 25  |%>x . X%<x1 . Y%|
00001400  3e 79 20 80 20 59 25 3c  79 2b 79 31 0d 06 f4 06  |>y . Y%<y+y1....|
00001410  20 3a 0d 06 fe 0b 20 dd  f2 71 75 69 74 0d 07 08  | :.... ..quit...|
00001420  4a 20 e7 20 73 61 76 65  25 3e 30 20 8c 20 f2 77  |J . save%>0 . .w|
00001430  61 72 6e 28 22 57 41 52  4e 49 4e 47 22 2c 22 46  |arn("WARNING","F|
00001440  69 6c 65 20 6e 6f 74 20  73 61 76 65 64 22 2c 22  |ile not saved","|
00001450  45 78 69 74 20 65 64 69  74 6f 72 20 3f 22 29 3a  |Exit editor ?"):|
00001460  f2 61 6e 73 77 72 31 0d  07 12 22 20 e7 20 6c 31  |.answr1..." . l1|
00001470  25 3d 31 20 84 20 6c 31  25 3d 30 20 8c 20 71 25  |%=1 . l1%=0 . q%|
00001480  3d 36 20 8b 20 71 25 3d  30 0d 07 1c 0f 20 e7 20  |=6 . q%=0.... . |
00001490  71 25 3d 30 20 8c 20 e1  0d 07 26 2f 20 72 75 6e  |q%=0 . ...&/ run|
000014a0  24 3d a4 72 65 61 64 76  61 72 76 61 6c 28 22 47  |$=.readvarval("G|
000014b0  6c 6f 6f 70 24 44 69 72  22 29 2b 22 2e 21 52 55  |loop$Dir")+".!RU|
000014c0  4e 49 4d 41 47 45 22 0d  07 30 11 20 ff 22 52 55  |NIMAGE"..0. ."RU|
000014d0  4e 20 22 2b 72 75 6e 24  0d 07 3a 06 20 e1 0d 07  |N "+run$..:. ...|
000014e0  44 06 20 3a 0d 07 4e 12  20 dd f2 72 65 61 64 69  |D. :..N. ..readi|
000014f0  6e 73 65 74 75 70 0d 07  58 13 20 46 25 3d 8e 20  |nsetup..X. F%=. |
00001500  72 65 73 6f 75 72 63 65  24 0d 07 62 0e 20 e3 20  |resource$..b. . |
00001510  64 3d 31 20 b8 20 39 0d  07 6c 12 20 e8 23 46 25  |d=1 . 9..l. .#F%|
00001520  2c 69 63 6f 6e 24 28 64  29 0d 07 76 06 20 ed 0d  |,icon$(d)..v. ..|
00001530  07 80 0e 20 e3 20 65 3d  31 20 b8 20 38 0d 07 8a  |... . e=1 . 8...|
00001540  1b 20 e8 23 46 25 2c 66  69 6c 65 24 28 65 29 2c  |. .#F%,file$(e),|
00001550  72 65 63 73 25 28 65 29  0d 07 94 06 20 ed 0d 07  |recs%(e).... ...|
00001560  9e 0a 20 d9 20 23 46 25  0d 07 a8 06 20 e1 0d 07  |.. . #F%.... ...|
00001570  b2 06 20 3a 0d 07 bc 12  20 dd f2 68 65 6c 70 5f  |.. :.... ..help_|
00001580  74 6f 67 67 6c 65 0d 07  c6 0f 20 c8 8e 20 68 65  |toggle.... .. he|
00001590  6c 70 25 20 ca 0d 07 d0  31 20 c9 20 30 20 3a 68  |lp% ....1 . 0 :h|
000015a0  65 6c 70 25 3d 31 3a 6d  24 3d 22 68 65 6c 70 6f  |elp%=1:m$="helpo|
000015b0  6e 22 3a f2 70 6c 69 6e  74 68 28 39 38 30 2c 32  |n":.plinth(980,2|
000015c0  32 30 2c 6d 24 29 0d 07  da 32 20 c9 20 31 20 3a  |20,m$)...2 . 1 :|
000015d0  68 65 6c 70 25 3d 30 3a  6d 24 3d 22 68 65 6c 70  |help%=0:m$="help|
000015e0  6f 66 66 22 3a f2 70 6c  69 6e 74 68 28 39 38 30  |off":.plinth(980|
000015f0  2c 32 32 30 2c 6d 24 29  0d 07 e4 06 20 cb 0d 07  |,220,m$).... ...|
00001600  ee 2a 20 e7 20 68 65 6c  70 25 3d 30 20 3a ef 32  |.* . help%=0 :.2|
00001610  38 2c 35 2c 33 30 2c 37  34 2c 32 36 3a fb 20 31  |8,5,30,74,26:. 1|
00001620  32 38 3a db 3a ef 32 36  0d 07 f8 0e 20 6f 6c 64  |28:.:.26.... old|
00001630  66 6c 61 67 3d 30 0d 08  02 06 20 e1 0d 08 0c 06  |flag=0.... .....|
00001640  20 3a 0d 08 16 0b 20 dd  f2 67 72 69 64 0d 08 20  | :.... ..grid.. |
00001650  0c 20 fb 20 30 2b 31 32  38 0d 08 2a 0a 20 e6 30  |. . 0+128..*. .0|
00001660  2c 31 30 0d 08 34 17 20  e3 20 58 3d 32 37 32 20  |,10..4. . X=272 |
00001670  b8 20 37 38 30 20 88 20  36 34 0d 08 3e 14 20 c8  |. 780 . 64..>. .|
00001680  93 20 33 30 30 2c 58 2c  36 30 30 2c 36 34 0d 08  |. 300,X,600,64..|
00001690  48 06 20 ed 0d 08 52 08  20 fb 20 37 0d 08 5c 0e  |H. ...R. . 7..\.|
000016a0  20 e3 20 54 3d 31 20 b8  20 38 0d 08 66 1b 20 f1  | . T=1 . 8..f. .|
000016b0  8a 32 30 2c 28 32 2a 54  29 2b 36 29 3b 66 69 6c  |.20,(2*T)+6);fil|
000016c0  65 24 28 54 29 0d 08 70  06 20 ed 0d 08 7a 06 20  |e$(T)..p. ...z. |
000016d0  e1 0d 08 84 06 20 3a 0d  08 8e 13 20 dd f2 68 69  |..... :.... ..hi|
000016e0  67 68 6c 69 67 68 74 28  67 29 0d 08 98 16 20 f2  |ghlight(g).... .|
000016f0  68 65 6c 70 74 65 78 74  28 31 30 29 3a ef 32 36  |helptext(10):.26|
00001700  0d 08 a2 0c 20 e7 20 67  3d 30 20 e1 0d 08 ac 12  |.... . g=0 .....|
00001710  20 e7 20 67 3d 6f 6c 64  68 69 67 68 20 e1 0d 08  | . g=oldhigh ...|
00001720  b6 52 20 e6 30 2c 31 30  3a c8 93 20 33 30 30 2c  |.R .0,10:.. 300,|
00001730  37 32 32 2d 28 6f 6c 64  68 69 67 68 2a 36 34 29  |722-(oldhigh*64)|
00001740  2c 36 30 30 2c 36 34 3a  fb 20 37 3a f1 8a 32 30  |,600,64:. 7:..20|
00001750  2c 28 32 2a 6f 6c 64 68  69 67 68 2b 38 29 29 3b  |,(2*oldhigh+8));|
00001760  66 69 6c 65 24 28 6f 6c  64 68 69 67 68 2b 31 29  |file$(oldhigh+1)|
00001770  0d 08 c0 3f 20 e6 30 2c  38 3a c8 93 20 33 30 30  |...? .0,8:.. 300|
00001780  2c 37 32 32 2d 28 67 2a  36 34 29 2c 36 30 30 2c  |,722-(g*64),600,|
00001790  36 34 3a fb 31 30 3a f1  8a 32 30 2c 28 32 2a 67  |64:.10:..20,(2*g|
000017a0  29 2b 38 29 3b 66 69 6c  65 24 28 67 2b 31 29 0d  |)+8);file$(g+1).|
000017b0  08 ca 0e 20 6f 6c 64 68  69 67 68 3d 67 0d 08 d4  |... oldhigh=g...|
000017c0  06 20 e1 0d 08 de 06 20  3a 0d 08 e8 14 20 dd f2  |. ..... :.... ..|
000017d0  73 65 6c 5f 6c 5f 73 28  74 79 70 65 29 0d 08 f2  |sel_l_s(type)...|
000017e0  0e 20 ea 20 6f 6c 64 76  2c 5a 25 0d 08 fc 5b 20  |. . oldv,Z%...[ |
000017f0  e7 20 73 61 76 65 25 3e  30 20 80 20 74 79 70 65  |. save%>0 . type|
00001800  3d 31 3a f2 77 61 72 6e  28 22 41 54 54 45 4e 54  |=1:.warn("ATTENT|
00001810  49 4f 4e 22 2c 22 55 6e  73 61 76 65 64 20 64 69  |ION","Unsaved di|
00001820  63 74 69 6f 6e 61 72 79  22 2c 22 50 72 6f 63 65  |ctionary","Proce|
00001830  65 64 20 77 69 74 68 20  6c 6f 61 64 22 29 3a f2  |ed with load"):.|
00001840  61 6e 73 77 72 31 0d 09  06 34 20 e7 20 6c 31 25  |answr1...4 . l1%|
00001850  3d 32 20 f2 62 28 36 35  30 2c 22 62 64 6f 75 74  |=2 .b(650,"bdout|
00001860  22 29 3a f2 62 28 35 35  30 2c 22 62 64 6f 75 74  |"):.b(550,"bdout|
00001870  22 29 3a 6c 31 25 3d 30  3a e1 0d 09 10 1c 20 6f  |"):l1%=0:..... o|
00001880  6c 64 68 69 67 68 3d 31  3a f2 68 69 67 68 6c 69  |ldhigh=1:.highli|
00001890  67 68 74 28 33 29 0d 09  1a 0a 20 f2 67 72 69 64  |ght(3).... .grid|
000018a0  0d 09 24 11 20 c8 97 20  b8 20 37 33 30 2c 35 37  |..$. .. . 730,57|
000018b0  34 0d 09 2e 1a 20 c8 97  20 c8 93 20 33 30 30 2c  |4.... .. .. 300,|
000018c0  32 37 32 2c 36 30 30 2c  34 35 30 0d 09 38 17 20  |272,600,450..8. |
000018d0  f5 20 c8 97 20 58 2c 59  2c 5a 25 3a fd 20 5a 25  |. .. X,Y,Z%:. Z%|
000018e0  3d 30 0d 09 42 06 20 f5  0d 09 4c 10 20 c8 97 20  |=0..B. ...L. .. |
000018f0  58 25 2c 59 25 2c 5a 25  0d 09 56 0c 20 c8 8e 20  |X%,Y%,Z%..V. .. |
00001900  5a 25 20 ca 0d 09 60 14  20 c9 20 30 2c 31 2c 34  |Z% ...`. . 0,1,4|
00001910  20 3a c8 8e 20 b9 20 ca  0d 09 6a 31 20 c9 20 a4  | :.. . ...j1 . .|
00001920  69 6e 62 6f 78 28 33 30  30 2c 37 32 32 2c 39 30  |inbox(300,722,90|
00001930  30 2c 36 34 29 3a f2 68  69 67 68 6c 69 67 68 74  |0,64):.highlight|
00001940  28 30 29 3a 73 65 6c 3d  31 0d 09 74 31 20 c9 20  |(0):sel=1..t1 . |
00001950  a4 69 6e 62 6f 78 28 33  30 30 2c 36 35 36 2c 39  |.inbox(300,656,9|
00001960  30 30 2c 36 34 29 3a f2  68 69 67 68 6c 69 67 68  |00,64):.highligh|
00001970  74 28 31 29 3a 73 65 6c  3d 32 0d 09 7e 31 20 c9  |t(1):sel=2..~1 .|
00001980  20 a4 69 6e 62 6f 78 28  33 30 30 2c 35 39 32 2c  | .inbox(300,592,|
00001990  39 30 30 2c 36 34 29 3a  f2 68 69 67 68 6c 69 67  |900,64):.highlig|
000019a0  68 74 28 32 29 3a 73 65  6c 3d 33 0d 09 88 31 20  |ht(2):sel=3...1 |
000019b0  c9 20 a4 69 6e 62 6f 78  28 33 30 30 2c 35 32 34  |. .inbox(300,524|
000019c0  2c 39 30 30 2c 36 34 29  3a f2 68 69 67 68 6c 69  |,900,64):.highli|
000019d0  67 68 74 28 33 29 3a 73  65 6c 3d 34 0d 09 92 31  |ght(3):sel=4...1|
000019e0  20 c9 20 a4 69 6e 62 6f  78 28 33 30 30 2c 34 36  | . .inbox(300,46|
000019f0  34 2c 39 30 30 2c 36 34  29 3a f2 68 69 67 68 6c  |4,900,64):.highl|
00001a00  69 67 68 74 28 34 29 3a  73 65 6c 3d 35 0d 09 9c  |ight(4):sel=5...|
00001a10  31 20 c9 20 a4 69 6e 62  6f 78 28 33 30 30 2c 34  |1 . .inbox(300,4|
00001a20  30 30 2c 39 30 30 2c 36  34 29 3a f2 68 69 67 68  |00,900,64):.high|
00001a30  6c 69 67 68 74 28 35 29  3a 73 65 6c 3d 36 0d 09  |light(5):sel=6..|
00001a40  a6 31 20 c9 20 a4 69 6e  62 6f 78 28 33 30 30 2c  |.1 . .inbox(300,|
00001a50  33 33 38 2c 39 30 30 2c  36 34 29 3a f2 68 69 67  |338,900,64):.hig|
00001a60  68 6c 69 67 68 74 28 36  29 3a 73 65 6c 3d 37 0d  |hlight(6):sel=7.|
00001a70  09 b0 31 20 c9 20 a4 69  6e 62 6f 78 28 33 30 30  |..1 . .inbox(300|
00001a80  2c 32 37 32 2c 39 30 30  2c 36 34 29 3a f2 68 69  |,272,900,64):.hi|
00001a90  67 68 6c 69 67 68 74 28  37 29 3a 73 65 6c 3d 38  |ghlight(7):sel=8|
00001aa0  0d 09 ba 06 20 cb 0d 09  c4 06 20 cb 0d 09 ce 0c  |.... ..... .....|
00001ab0  20 c8 8e 20 5a 25 20 ca  0d 09 d8 15 20 c9 20 31  | .. Z% ..... . 1|
00001ac0  20 3a f2 72 65 73 65 74  28 73 65 6c 29 0d 09 e2  | :.reset(sel)...|
00001ad0  10 20 c9 20 34 20 3a c8  8e 20 b9 20 ca 0d 09 ec  |. . 4 :.. . ....|
00001ae0  2c 20 c9 20 74 79 70 65  3d 31 20 80 20 72 65 63  |, . type=1 . rec|
00001af0  73 25 28 73 65 6c 29 3d  30 20 3a f2 67 65 6e 65  |s%(sel)=0 :.gene|
00001b00  72 61 74 65 28 73 65 6c  29 0d 09 f6 28 20 c9 20  |rate(sel)...( . |
00001b10  74 79 70 65 3d 31 20 80  20 72 65 63 73 25 28 73  |type=1 . recs%(s|
00001b20  65 6c 29 3e 30 20 3a f2  6c 6f 61 64 28 73 65 6c  |el)>0 :.load(sel|
00001b30  29 0d 0a 00 19 20 c9 20  74 79 70 65 3d 32 20 3a  |).... . type=2 :|
00001b40  f2 73 61 76 65 28 73 65  6c 29 0d 0a 0a 06 20 cb  |.save(sel).... .|
00001b50  0d 0a 14 06 20 cb 0d 0a  1e 0b 20 fd 20 5a 25 3e  |.... ..... . Z%>|
00001b60  30 0d 0a 28 21 20 f2 62  28 36 35 30 2c 22 62 64  |0..(! .b(650,"bd|
00001b70  6f 75 74 22 29 3a f2 63  6c 65 61 72 28 74 79 70  |out"):.clear(typ|
00001b80  65 29 0d 0a 32 06 20 e1  0d 0a 3c 06 20 3a 0d 0a  |e)..2. ...<. :..|
00001b90  46 0f 20 dd f2 63 6c 65  61 72 28 6a 29 0d 0a 50  |F. ..clear(j)..P|
00001ba0  1f 20 e6 30 2c 30 3a c8  93 20 c8 90 20 33 30 30  |. .0,0:.. .. 300|
00001bb0  2c 32 37 32 2c 36 30 30  2c 35 33 30 0d 0a 5a 18  |,272,600,530..Z.|
00001bc0  20 c8 97 20 c8 93 20 30  2c 30 2c 31 32 37 39 2c  | .. .. 0,0,1279,|
00001bd0  31 31 32 33 0d 0a 64 0c  20 e7 20 6a 3d 30 20 e1  |1123..d. . j=0 .|
00001be0  0d 0a 6e 2e 20 e7 20 6a  3d 31 20 8c 20 f2 62 28  |..n. . j=1 . .b(|
00001bf0  36 35 30 2c 22 62 64 6f  75 74 22 29 20 8b 20 f2  |650,"bdout") . .|
00001c00  62 28 35 35 30 2c 22 62  64 6f 75 74 22 29 0d 0a  |b(550,"bdout")..|
00001c10  78 06 20 e1 0d 0a 82 06  20 3a 0d 0a 8c 11 20 dd  |x. ..... :.... .|
00001c20  f2 72 65 73 65 74 28 73  65 6c 29 0d 0a 96 16 20  |.reset(sel).... |
00001c30  76 24 3d bd 28 36 33 2b  73 65 6c 29 3a 43 25 3d  |v$=.(63+sel):C%=|
00001c40  30 0d 0a a0 18 20 6e 65  77 6e 61 6d 65 24 3d 22  |0.... newname$="|
00001c50  55 73 65 72 5f 22 2b 76  24 0d 0a aa 11 20 fb 20  |User_"+v$.... . |
00001c60  62 6c 61 63 6b 25 2b 31  32 38 0d 0a b4 43 20 f2  |black%+128...C .|
00001c70  77 61 72 6e 28 22 52 45  53 45 54 20 44 49 43 54  |warn("RESET DICT|
00001c80  49 4f 4e 41 52 59 22 2c  22 44 6f 20 79 6f 75 20  |IONARY","Do you |
00001c90  77 61 6e 74 20 74 6f 20  72 65 73 65 74 20 3a 2d  |want to reset :-|
00001ca0  22 2c 66 69 6c 65 24 28  73 65 6c 29 29 0d 0a be  |",file$(sel))...|
00001cb0  20 20 f1 8a 32 38 2c 31  36 29 3b 22 59 45 53 22  |  ..28,16);"YES"|
00001cc0  3b 8a 34 33 2c 31 36 29  3b 22 4e 4f 22 0d 0a c8  |;.43,16);"NO"...|
00001cd0  26 20 c8 93 20 34 33 34  2c 34 36 38 2c 38 30 2c  |& .. 434,468,80,|
00001ce0  35 38 3a c8 93 20 36 36  32 2c 34 36 38 2c 38 30  |58:.. 662,468,80|
00001cf0  2c 35 38 0d 0a d2 17 20  f5 20 c8 97 20 58 2c 59  |,58.... . .. X,Y|
00001d00  2c 5a 25 3a fd 20 5a 25  3d 30 0d 0a dc 06 20 f5  |,Z%:. Z%=0.... .|
00001d10  0d 0a e6 10 20 c8 97 20  58 25 2c 59 25 2c 5a 25  |.... .. X%,Y%,Z%|
00001d20  0d 0a f0 0c 20 c8 8e 20  5a 25 20 ca 0d 0a fa 12  |.... .. Z% .....|
00001d30  20 c9 20 30 2c 34 20 3a  c8 8e 20 b9 20 ca 0d 0b  | . 0,4 :.. . ...|
00001d40  04 30 20 c9 20 a4 69 6e  62 6f 78 28 34 33 34 2c  |.0 . .inbox(434,|
00001d50  34 36 38 2c 35 31 34 2c  35 38 29 3a f2 68 65 6c  |468,514,58):.hel|
00001d60  70 74 65 78 74 28 32 31  29 3a 43 25 3d 31 0d 0b  |ptext(21):C%=1..|
00001d70  0e 30 20 c9 20 a4 69 6e  62 6f 78 28 36 36 32 2c  |.0 . .inbox(662,|
00001d80  34 36 38 2c 37 34 32 2c  35 38 29 3a f2 68 65 6c  |468,742,58):.hel|
00001d90  70 74 65 78 74 28 32 32  29 3a 43 25 3d 32 0d 0b  |ptext(22):C%=2..|
00001da0  18 31 20 c9 20 a4 69 6e  62 6f 78 28 33 30 32 2c  |.1 . .inbox(302,|
00001db0  34 34 30 2c 39 30 30 2c  32 38 30 29 3a f2 68 65  |440,900,280):.he|
00001dc0  6c 70 74 65 78 74 28 32  30 29 3a 43 25 3d 30 0d  |lptext(20):C%=0.|
00001dd0  0b 22 06 20 cb 0d 0b 2c  06 20 cb 0d 0b 36 12 20  |.". ...,. ...6. |
00001de0  fd 20 5a 25 3d 34 20 80  20 43 25 3e 30 0d 0b 40  |. Z%=4 . C%>0..@|
00001df0  2c 20 e7 20 43 25 3d 32  20 f2 63 6c 6f 73 65 77  |, . C%=2 .closew|
00001e00  69 6e 64 6f 77 28 33 30  32 2c 34 34 30 2c 22 57  |indow(302,440,"W|
00001e10  49 4e 44 4f 57 22 29 3a  e1 0d 0b 4a 23 20 f2 63  |INDOW"):...J# .c|
00001e20  6c 6f 73 65 77 69 6e 64  6f 77 28 33 30 32 2c 34  |losewindow(302,4|
00001e30  34 30 2c 22 57 49 4e 44  4f 57 22 29 0d 0b 54 26  |40,"WINDOW")..T&|
00001e40  20 66 69 6c 65 24 28 73  65 6c 29 3d 6e 65 77 6e  | file$(sel)=newn|
00001e50  61 6d 65 24 3a 72 65 63  73 25 28 73 65 6c 29 3d  |ame$:recs%(sel)=|
00001e60  30 3a 0d 0b 5e 10 20 f2  77 72 69 74 65 73 65 74  |0:..^. .writeset|
00001e70  75 70 0d 0b 68 19 20 74  65 6d 70 24 3d 64 69 63  |up..h. temp$=dic|
00001e80  74 24 2b 6e 65 77 6e 61  6d 65 24 0d 0b 72 11 20  |t$+newname$..r. |
00001e90  4e 25 3d ae 20 28 74 65  6d 70 24 29 0d 0b 7c 12  |N%=. (temp$)..|.|
00001ea0  20 f1 23 4e 25 2c 77 6f  72 64 24 28 30 29 0d 0b  | .#N%,word$(0)..|
00001eb0  86 09 20 d9 23 4e 25 0d  0b 90 06 20 cc 0d 0b 9a  |.. .#N%.... ....|
00001ec0  06 20 e1 0d 0b a4 06 20  cd 0d 0b ae 06 20 e1 0d  |. ..... ..... ..|
00001ed0  0b b8 06 20 3a 0d 0b c2  11 20 dd f2 77 72 69 74  |... :.... ..writ|
00001ee0  65 73 65 74 75 70 0d 0b  cc 13 20 46 25 3d ad 20  |esetup.... F%=. |
00001ef0  72 65 73 6f 75 72 63 65  24 0d 0b d6 0e 20 e3 20  |resource$.... . |
00001f00  64 3d 31 20 b8 20 39 0d  0b e0 12 20 f1 23 46 25  |d=1 . 9.... .#F%|
00001f10  2c 69 63 6f 6e 24 28 64  29 0d 0b ea 06 20 ed 0d  |,icon$(d).... ..|
00001f20  0b f4 0e 20 e3 20 65 3d  31 20 b8 20 38 0d 0b fe  |... . e=1 . 8...|
00001f30  1b 20 f1 23 46 25 2c 66  69 6c 65 24 28 65 29 2c  |. .#F%,file$(e),|
00001f40  72 65 63 73 25 28 65 29  0d 0c 08 06 20 ed 0d 0c  |recs%(e).... ...|
00001f50  12 09 20 d9 23 46 25 0d  0c 1c 06 20 e1 0d 0c 26  |.. .#F%.... ...&|
00001f60  06 20 3a 0d 0c 30 15 20  dd a4 69 6e 70 75 74 28  |. :..0. ..input(|
00001f70  6d 61 78 6c 65 6e 25 29  0d 0c 3a 30 20 c8 99 22  |maxlen%)..:0 .."|
00001f80  4f 53 5f 52 65 61 64 4c  69 6e 65 22 2c 62 75 66  |OS_ReadLine",buf|
00001f90  66 25 2c 6d 61 78 6c 65  6e 25 2c 33 32 2c 31 32  |f%,maxlen%,32,12|
00001fa0  32 20 b8 20 6c 65 6e 25  0d 0c 44 0c 20 3d 24 62  |2 . len%..D. =$b|
00001fb0  75 66 66 25 0d 0c 4e 06  20 3a 0d 0c 58 0d 20 dd  |uff%..N. :..X. .|
00001fc0  a4 69 6e 28 52 25 29 0d  0c 62 29 20 c8 99 22 4f  |.in(R%)..b) .."O|
00001fd0  53 5f 52 65 61 64 4c 69  6e 65 22 2c 62 32 25 2c  |S_ReadLine",b2%,|
00001fe0  52 25 2c 33 32 2c 31 32  32 20 b8 20 6c 65 6e 25  |R%,32,122 . len%|
00001ff0  0d 0c 6c 0a 20 3d 24 62  32 25 0d 0c 76 06 20 3a  |..l. =$b2%..v. :|
00002000  0d 0c 80 27 20 dd f2 70  6f 70 77 69 6e 64 6f 77  |...' ..popwindow|
00002010  28 71 61 25 2c 71 62 25  2c 71 63 25 2c 71 64 25  |(qa%,qb%,qc%,qd%|
00002020  2c 74 65 6d 70 24 29 0d  0c 8a 08 20 ef 32 36 0d  |,temp$).... .26.|
00002030  0c 94 35 20 ec 71 61 25  2c 71 62 25 3a ec 71 63  |..5 .qa%,qb%:.qc|
00002040  25 2c 71 64 25 3a c8 99  22 4f 53 5f 53 70 72 69  |%,qd%:.."OS_Spri|
00002050  74 65 4f 70 22 2c 32 37  30 2c 73 70 2c 74 65 6d  |teOp",270,sp,tem|
00002060  70 24 2c 31 0d 0c 9e 21  20 ef 32 34 2c 71 61 25  |p$,1...! .24,qa%|
00002070  2b 34 3b 71 62 25 2b 34  3b 71 63 25 2d 34 3b 71  |+4;qb%+4;qc%-4;q|
00002080  64 25 2d 34 3b 0d 0c a8  22 20 e6 30 2c 62 6c 61  |d%-4;..." .0,bla|
00002090  63 6b 25 2b 31 32 38 3a  da 3a fb 20 77 68 69 74  |ck%+128:.:. whit|
000020a0  65 25 20 80 26 33 46 0d  0c b2 08 20 ef 32 36 0d  |e% .&3F.... .26.|
000020b0  0c bc 53 20 e6 30 2c 77  68 69 74 65 25 20 80 20  |..S .0,white% . |
000020c0  26 33 46 3a c8 93 71 61  25 2b 34 2c 71 62 25 2b  |&3F:..qa%+4,qb%+|
000020d0  34 2c 71 63 25 2d 71 61  25 2d 38 2c 71 64 25 2d  |4,qc%-qa%-8,qd%-|
000020e0  71 62 25 2d 38 3a ef 32  34 2c 71 61 25 2b 34 3b  |qb%-8:.24,qa%+4;|
000020f0  71 62 25 2b 34 3b 71 63  25 2d 34 3b 71 64 25 2d  |qb%+4;qc%-4;qd%-|
00002100  34 3b 0d 0c c6 26 20 c8  97 20 c8 93 20 71 61 25  |4;...& .. .. qa%|
00002110  2c 71 62 25 2c 28 71 63  25 2d 71 61 25 29 2c 28  |,qb%,(qc%-qa%),(|
00002120  71 64 25 2d 71 62 25 29  0d 0c d0 0b 20 e6 30 2c  |qd%-qb%).... .0,|
00002130  31 32 38 0d 0c da 06 20  e1 0d 0c e4 06 20 3a 0d  |128.... ..... :.|
00002140  0c ee 21 20 dd f2 63 6c  6f 73 65 77 69 6e 64 6f  |..! ..closewindo|
00002150  77 28 71 61 25 2c 71 62  25 2c 74 65 6d 70 24 29  |w(qa%,qb%,temp$)|
00002160  0d 0c f8 08 20 ef 32 36  0d 0d 02 29 20 c8 99 22  |.... .26...) .."|
00002170  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 39 30  |OS_SpriteOp",290|
00002180  2c 73 70 2c 74 65 6d 70  24 2c 71 61 25 2c 71 62  |,sp,temp$,qa%,qb|
00002190  25 0d 0d 0c 21 20 c8 99  22 4f 53 5f 53 70 72 69  |%...! .."OS_Spri|
000021a0  74 65 4f 70 22 2c 32 38  31 2c 73 70 2c 74 65 6d  |teOp",281,sp,tem|
000021b0  70 24 0d 0d 16 17 20 ef  32 34 2c 30 3b 30 3b 31  |p$.... .24,0;0;1|
000021c0  32 37 39 3b 31 31 32 33  3b 0d 0d 20 18 20 c8 97  |279;1123;.. . ..|
000021d0  20 c8 93 20 30 2c 30 2c  31 32 37 39 2c 31 31 32  | .. 0,0,1279,112|
000021e0  33 0d 0d 2a 06 20 e1 0d  0d 34 06 20 3a 0d 0d 3e  |3..*. ...4. :..>|
000021f0  14 20 dd f2 67 65 6e 65  72 61 74 65 28 73 65 6c  |. ..generate(sel|
00002200  29 0d 0d 48 42 20 f2 77  61 72 6e 28 22 4e 45 57  |)..HB .warn("NEW|
00002210  20 44 49 43 54 49 4f 4e  41 52 59 22 2c 22 43 72  | DICTIONARY","Cr|
00002220  65 61 74 65 20 61 20 6e  65 77 20 64 69 63 74 69  |eate a new dicti|
00002230  6f 6e 61 72 79 3f 22 2c  22 22 29 3a f2 61 6e 73  |onary?",""):.ans|
00002240  77 72 31 0d 0d 52 15 20  e7 20 6c 31 25 3d 32 3a  |wr1..R. . l1%=2:|
00002250  6c 31 25 3d 30 20 3a e1  0d 0d 5c 18 20 77 6f 72  |l1%=0 :...\. wor|
00002260  64 24 28 30 29 3d 91 24  3a 63 6f 75 6e 74 3d 30  |d$(0)=.$:count=0|
00002270  0d 0d 66 0e 20 f2 63 6c  65 61 72 28 30 29 0d 0d  |..f. .clear(0)..|
00002280  70 3e 20 fb 20 31 30 3a  fb 31 32 38 3a f1 8a 31  |p> . 10:.128:..1|
00002290  39 2c 39 29 3b 22 45 4e  54 45 52 20 46 49 4c 45  |9,9);"ENTER FILE|
000022a0  20 44 45 53 43 52 49 50  54 49 4f 4e 20 28 32 30  | DESCRIPTION (20|
000022b0  20 43 48 41 52 53 20 4d  41 58 29 22 0d 0d 7a 1d  | CHARS MAX)"..z.|
000022c0  20 f2 68 65 6c 70 74 65  78 74 28 32 36 29 3a fb  | .helptext(26):.|
000022d0  20 31 32 38 3a fb 20 31  30 0d 0d 84 1d 20 e6 30  | 128:. 10.... .0|
000022e0  2c 31 30 3a c8 93 20 33  30 30 2c 35 39 32 2c 33  |,10:.. 300,592,3|
000022f0  35 30 2c 36 34 3a 0d 0d  8e 0b 20 c8 97 20 87 3a  |50,64:.... .. .:|
00002300  ee 0d 0d 98 28 20 f1 8a  31 39 2c 31 32 29 3b 22  |....( ..19,12);"|
00002310  3e 22 3b 3a 66 69 6c 65  24 28 73 65 6c 29 3d a4  |>";:file$(sel)=.|
00002320  69 6e 70 75 74 28 32 30  29 0d 0d a2 1c 20 f2 68  |input(20).... .h|
00002330  65 6c 70 74 65 78 74 28  32 37 29 3a fb 20 31 32  |elptext(27):. 12|
00002340  38 3a fb 31 30 0d 0d ac  06 20 f5 0d 0d b6 0d 20  |8:.10.... ..... |
00002350  63 6f 75 6e 74 2b 3d 31  0d 0d c0 0b 20 f2 70 72  |count+=1.... .pr|
00002360  69 6e 74 0d 0d ca 16 20  f1 8a 32 30 2c 32 30 29  |int.... ..20,20)|
00002370  3b c4 31 33 2c 22 20 22  29 0d 0d d4 28 20 f1 8a  |;.13," ")...( ..|
00002380  31 39 2c 32 30 29 3b 22  3e 20 22 3b 3a 77 6f 72  |19,20);"> ";:wor|
00002390  64 24 28 63 6f 75 6e 74  29 3d a4 69 6e 28 31 32  |d$(count)=.in(12|
000023a0  29 0d 0d de 0a 20 f2 73  63 61 6e 0d 0d e8 6b 20  |).... .scan...k |
000023b0  e7 20 a9 28 77 6f 72 64  24 28 63 6f 75 6e 74 29  |. .(word$(count)|
000023c0  29 3c 34 20 f2 77 61 72  6e 28 22 49 4e 50 55 54  |)<4 .warn("INPUT|
000023d0  20 45 52 52 4f 52 22 2c  22 57 6f 72 64 20 69 73  | ERROR","Word is|
000023e0  20 74 6f 6f 20 73 68 6f  72 74 22 2c 22 4d 75 73  | too short","Mus|
000023f0  74 20 62 65 20 34 20 6c  65 74 74 65 72 73 20 70  |t be 4 letters p|
00002400  6c 75 73 22 29 3a f2 61  6e 73 77 72 32 3a 63 6f  |lus"):.answr2:co|
00002410  75 6e 74 2d 3d 31 0d 0d  f2 1d 20 f2 68 65 6c 70  |unt-=1.... .help|
00002420  74 65 78 74 28 32 37 29  3a fb 20 31 32 38 3a fb  |text(27):. 128:.|
00002430  20 31 30 0d 0d fc 1a 20  fd 20 77 6f 72 64 24 28  | 10.... . word$(|
00002440  63 6f 75 6e 74 29 3d 22  2a 2a 2a 2a 22 0d 0e 06  |count)="****"...|
00002450  23 20 77 6f 72 64 24 28  63 6f 75 6e 74 29 3d c4  |# word$(count)=.|
00002460  31 32 2c 22 20 22 29 3a  63 6f 75 6e 74 2d 3d 31  |12," "):count-=1|
00002470  0d 0e 10 29 20 67 65 6e  25 3d 31 3a 6f 6c 64 73  |...) gen%=1:olds|
00002480  65 6c 3d 73 65 6c 3a 6c  6f 61 64 25 3d 31 3a f2  |el=sel:load%=1:.|
00002490  73 61 76 65 28 73 65 6c  29 0d 0e 1a 0b 20 c8 97  |save(sel).... ..|
000024a0  20 ee 3a 87 0d 0e 24 06  20 e1 0d 0e 2e 06 20 3a  | .:...$. ..... :|
000024b0  0d 0e 38 0c 20 dd f2 70  72 69 6e 74 0d 0e 42 2b  |..8. ..print..B+|
000024c0  20 e7 20 63 6f 75 6e 74  20 3e 33 20 f1 8a 31 39  | . count >3 ..19|
000024d0  2c 31 34 29 3b 77 6f 72  64 24 28 63 6f 75 6e 74  |,14);word$(count|
000024e0  2d 33 29 3b 70 64 24 0d  0e 4c 2b 20 e7 20 63 6f  |-3);pd$..L+ . co|
000024f0  75 6e 74 20 3e 32 20 f1  8a 31 39 2c 31 36 29 3b  |unt >2 ..19,16);|
00002500  77 6f 72 64 24 28 63 6f  75 6e 74 2d 32 29 3b 70  |word$(count-2);p|
00002510  64 24 0d 0e 56 2b 20 e7  20 63 6f 75 6e 74 20 3e  |d$..V+ . count >|
00002520  31 20 f1 8a 31 39 2c 31  38 29 3b 77 6f 72 64 24  |1 ..19,18);word$|
00002530  28 63 6f 75 6e 74 2d 31  29 3b 70 64 24 0d 0e 60  |(count-1);pd$..`|
00002540  1f 20 f1 8a 34 32 2c 32  30 29 3b 22 57 6f 72 64  |. ..42,20);"Word|
00002550  20 4e 6f 2e 20 22 3b 63  6f 75 6e 74 0d 0e 6a 06  | No. ";count..j.|
00002560  20 e1 0d 0e 74 06 20 3a  0d 0e 7e 0b 20 dd f2 73  | ...t. :..~. ..s|
00002570  63 61 6e 0d 0e 88 09 20  ea 20 6d 24 0d 0e 92 1c  |can.... . m$....|
00002580  20 e7 20 77 6f 72 64 24  28 63 6f 75 6e 74 29 3d  | . word$(count)=|
00002590  22 2a 2a 2a 2a 22 3a e1  0d 0e 9c 10 20 6c 3d 30  |"****":..... l=0|
000025a0  3a 66 61 69 6c 25 3d 30  0d 0e a6 17 20 74 25 3d  |:fail%=0.... t%=|
000025b0  a9 28 77 6f 72 64 24 28  63 6f 75 6e 74 29 29 0d  |.(word$(count)).|
000025c0  0e b0 0b 20 f5 20 6c 2b  3d 31 0d 0e ba 5d 20 e7  |... . l+=1...] .|
000025d0  20 97 28 c1 77 6f 72 64  24 28 63 6f 75 6e 74 29  | .(.word$(count)|
000025e0  2c 6c 2c 31 29 29 3c 36  35 20 66 61 69 6c 25 3d  |,l,1))<65 fail%=|
000025f0  31 3a 6d 24 3d c1 77 6f  72 64 24 28 63 6f 75 6e  |1:m$=.word$(coun|
00002600  74 29 2c 6c 2c 31 29 3a  6d 31 24 3d 22 27 22 2b  |t),l,1):m1$="'"+|
00002610  6d 24 2b 22 27 22 2b 22  6e 6f 74 20 61 63 63 65  |m$+"'"+"not acce|
00002620  70 74 61 62 6c 65 22 0d  0e c4 15 20 fd 20 6c 3d  |ptable".... . l=|
00002630  74 25 20 84 20 66 61 69  6c 25 3d 31 0d 0e ce 48  |t% . fail%=1...H|
00002640  20 e7 20 66 61 69 6c 25  3d 31 20 f2 77 61 72 6e  | . fail%=1 .warn|
00002650  28 22 49 4e 50 55 54 20  45 52 52 4f 52 22 2c 6d  |("INPUT ERROR",m|
00002660  31 24 2c 22 52 65 2d 65  6e 74 65 72 20 77 6f 72  |1$,"Re-enter wor|
00002670  64 22 29 3a f2 61 6e 73  77 72 32 3a 63 6f 75 6e  |d"):.answr2:coun|
00002680  74 2d 3d 31 0d 0e d8 22  20 e7 20 66 61 69 6c 25  |t-=1..." . fail%|
00002690  3d 31 20 c8 97 20 87 3a  ee 3a fb 20 31 32 38 3a  |=1 .. .:.:. 128:|
000026a0  fb 20 31 30 3a e1 0d 0e  e2 08 20 6c 3d 30 0d 0e  |. 10:..... l=0..|
000026b0  ec 0b 20 f5 20 6c 2b 3d  31 0d 0e f6 5d 20 e7 20  |.. . l+=1...] . |
000026c0  97 28 c1 77 6f 72 64 24  28 63 6f 75 6e 74 29 2c  |.(.word$(count),|
000026d0  6c 2c 31 29 29 3e 39 30  20 66 61 69 6c 25 3d 31  |l,1))>90 fail%=1|
000026e0  3a 6d 24 3d c1 77 6f 72  64 24 28 63 6f 75 6e 74  |:m$=.word$(count|
000026f0  29 2c 6c 2c 31 29 3a 6d  31 24 3d 22 27 22 2b 6d  |),l,1):m1$="'"+m|
00002700  24 2b 22 27 22 2b 22 6e  6f 74 20 61 63 63 65 70  |$+"'"+"not accep|
00002710  74 61 62 6c 65 22 0d 0f  00 15 20 fd 20 6c 3d 74  |table".... . l=t|
00002720  25 20 84 20 66 61 69 6c  25 3d 31 0d 0f 0a 48 20  |% . fail%=1...H |
00002730  e7 20 66 61 69 6c 25 3d  31 20 f2 77 61 72 6e 28  |. fail%=1 .warn(|
00002740  22 49 4e 50 55 54 20 45  52 52 4f 52 22 2c 6d 31  |"INPUT ERROR",m1|
00002750  24 2c 22 52 65 2d 65 6e  74 65 72 20 77 6f 72 64  |$,"Re-enter word|
00002760  22 29 3a f2 61 6e 73 77  72 32 3a 63 6f 75 6e 74  |"):.answr2:count|
00002770  2d 3d 31 0d 0f 14 16 20  c8 97 20 87 3a ee 3a fb  |-=1.... .. .:.:.|
00002780  20 31 32 38 3a fb 20 31  30 0d 0f 1e 06 20 e1 0d  | 128:. 10.... ..|
00002790  0f 28 06 20 3a 0d 0f 32  10 20 dd f2 6c 6f 61 64  |.(. :..2. ..load|
000027a0  28 73 65 6c 29 0d 0f 3c  29 20 6c 6f 61 64 24 3d  |(sel)..<) load$=|
000027b0  66 69 6c 65 24 28 73 65  6c 29 3a 72 65 63 6c 6f  |file$(sel):reclo|
000027c0  61 64 25 3d 72 65 63 73  25 28 73 65 6c 29 0d 0f  |ad%=recs%(sel)..|
000027d0  46 15 20 63 6f 75 6e 74  3d 72 65 63 73 25 28 73  |F. count=recs%(s|
000027e0  65 6c 29 0d 0f 50 11 20  76 24 3d bd 28 36 33 2b  |el)..P. v$=.(63+|
000027f0  73 65 6c 29 0d 0f 5a 1b  20 6e 61 6d 65 24 3d 64  |sel)..Z. name$=d|
00002800  69 63 74 24 2b 22 55 73  65 72 5f 22 2b 76 24 0d  |ict$+"User_"+v$.|
00002810  0f 64 10 20 44 25 3d 8e  28 6e 61 6d 65 24 29 0d  |.d. D%=.(name$).|
00002820  0f 6e 15 20 e3 20 6c 6f  6f 70 3d 30 20 b8 20 63  |.n. . loop=0 . c|
00002830  6f 75 6e 74 0d 0f 78 15  20 e8 23 44 25 2c 77 6f  |ount..x. .#D%,wo|
00002840  72 64 24 28 6c 6f 6f 70  29 0d 0f 82 06 20 ed 0d  |rd$(loop).... ..|
00002850  0f 8c 09 20 d9 23 44 25  0d 0f 96 0c 20 6c 6f 61  |... .#D%.... loa|
00002860  64 25 3d 31 0d 0f a0 1f  20 f2 73 74 61 74 75 73  |d%=1.... .status|
00002870  28 6c 6f 61 64 24 2c 22  55 6e 63 68 61 6e 67 65  |(load$,"Unchange|
00002880  64 22 29 0d 0f aa 06 20  e1 0d 0f b4 06 20 3a 0d  |d").... ..... :.|
00002890  0f be 0a 20 dd f2 61 64  64 0d 0f c8 5e 20 e7 20  |... ..add...^ . |
000028a0  6c 6f 61 64 25 3c 31 20  8c 20 f2 77 61 72 6e 28  |load%<1 . .warn(|
000028b0  22 55 53 45 52 20 45 52  52 4f 52 22 2c 22 46 49  |"USER ERROR","FI|
000028c0  4c 45 20 4e 4f 54 20 4c  4f 41 44 45 44 22 2c 22  |LE NOT LOADED","|
000028d0  4c 6f 61 64 20 66 69 6c  65 20 62 65 66 6f 72 65  |Load file before|
000028e0  20 63 6f 6e 74 69 6e 75  69 6e 67 22 29 3a f2 61  | continuing"):.a|
000028f0  6e 73 77 72 32 3a e1 0d  0f d2 1c 20 e6 30 2c 31  |nswr2:..... .0,1|
00002900  30 3a c8 93 20 33 30 30  2c 35 39 32 2c 36 30 30  |0:.. 300,592,600|
00002910  2c 36 34 0d 0f dc 0b 20  c8 97 20 87 3a ee 0d 0f  |,64.... .. .:...|
00002920  e6 0e 20 fb 20 31 32 38  3a fb 31 30 0d 0f f0 1c  |.. . 128:.10....|
00002930  20 f1 8a 31 39 2c 31 32  29 3b 22 20 22 3b 66 69  | ..19,12);" ";fi|
00002940  6c 65 24 28 73 65 6c 29  0d 0f fa 12 20 f2 68 65  |le$(sel).... .he|
00002950  6c 70 74 65 78 74 28 32  38 29 0d 10 04 0e 20 fb  |lptext(28).... .|
00002960  20 31 32 38 3a fb 31 30  0d 10 0e 06 20 f5 0d 10  | 128:.10.... ...|
00002970  18 0d 20 63 6f 75 6e 74  2b 3d 31 0d 10 22 0b 20  |.. count+=1..". |
00002980  f2 70 72 69 6e 74 0d 10  2c 16 20 f1 8a 32 30 2c  |.print..,. ..20,|
00002990  32 30 29 3b c4 31 33 2c  22 20 22 29 0d 10 36 28  |20);.13," ")..6(|
000029a0  20 f1 8a 31 39 2c 32 30  29 3b 22 3e 20 22 3b 3a  | ..19,20);"> ";:|
000029b0  77 6f 72 64 24 28 63 6f  75 6e 74 29 3d a4 69 6e  |word$(count)=.in|
000029c0  28 31 32 29 0d 10 40 0a  20 f2 73 63 61 6e 0d 10  |(12)..@. .scan..|
000029d0  4a 69 20 e7 20 a9 28 77  6f 72 64 24 28 63 6f 75  |Ji . .(word$(cou|
000029e0  6e 74 29 29 3c 34 20 f2  77 61 72 6e 28 22 49 4e  |nt))<4 .warn("IN|
000029f0  50 55 54 20 45 52 52 4f  52 22 2c 22 57 6f 72 64  |PUT ERROR","Word|
00002a00  20 69 73 20 74 6f 6f 20  73 68 6f 72 74 22 2c 22  | is too short","|
00002a10  4d 69 6e 69 6d 75 6d 20  69 73 20 34 20 6c 65 74  |Minimum is 4 let|
00002a20  74 65 72 73 22 29 3a f2  61 6e 73 77 72 32 3a 63  |ters"):.answr2:c|
00002a30  6f 75 6e 74 2d 3d 31 0d  10 54 1c 20 f2 68 65 6c  |ount-=1..T. .hel|
00002a40  70 74 65 78 74 28 32 38  29 3a fb 20 31 32 38 3a  |ptext(28):. 128:|
00002a50  fb 31 30 0d 10 5e 1a 20  fd 20 77 6f 72 64 24 28  |.10..^. . word$(|
00002a60  63 6f 75 6e 74 29 3d 22  2a 2a 2a 2a 22 0d 10 68  |count)="****"..h|
00002a70  0d 20 63 6f 75 6e 74 2d  3d 31 0d 10 72 22 20 73  |. count-=1..r" s|
00002a80  61 76 65 25 3d 31 3a f2  73 74 61 74 75 73 28 22  |ave%=1:.status("|
00002a90  22 2c 22 55 6e 73 61 76  65 64 22 29 0d 10 7c 0e  |","Unsaved")..|.|
00002aa0  20 f2 63 6c 65 61 72 28  30 29 0d 10 86 0b 20 c8  | .clear(0).... .|
00002ab0  97 20 ee 3a 87 0d 10 90  06 20 e1 0d 10 9a 06 20  |. .:..... ..... |
00002ac0  3a 0d 10 a4 15 20 dd f2  77 61 72 6e 28 63 24 2c  |:.... ..warn(c$,|
00002ad0  64 24 2c 65 24 29 0d 10  ae 12 20 ea 20 62 25 2c  |d$,e$).... . b%,|
00002ae0  74 63 2c 74 64 2c 74 65  0d 10 b8 0a 20 62 25 3d  |tc,td,te.... b%=|
00002af0  32 31 0d 10 c2 31 20 6c  65 6e 63 3d 28 a9 28 63  |21...1 lenc=(.(c|
00002b00  24 29 81 32 29 3a 6c 65  6e 64 3d 28 a9 28 64 24  |$).2):lend=(.(d$|
00002b10  29 81 32 29 3a 6c 65 6e  65 3d 28 a9 28 65 24 29  |).2):lene=(.(e$)|
00002b20  81 32 29 0d 10 cc 38 20  74 63 3d 62 25 2b 28 31  |.2)...8 tc=b%+(1|
00002b30  36 2d 6c 65 6e 63 29 2d  31 3a 74 64 3d 62 25 2b  |6-lenc)-1:td=b%+|
00002b40  28 31 36 2d 6c 65 6e 64  29 3a 74 65 3d 62 25 2b  |(16-lend):te=b%+|
00002b50  28 31 36 2d 6c 65 6e 65  29 2d 31 0d 10 d6 29 20  |(16-lene)-1...) |
00002b60  f2 70 6f 70 77 69 6e 64  6f 77 28 33 30 32 2c 34  |.popwindow(302,4|
00002b70  34 30 2c 38 39 38 2c 37  32 30 2c 22 57 49 4e 44  |40,898,720,"WIND|
00002b80  4f 57 22 29 0d 10 e0 23  20 86 20 33 30 32 2c 36  |OW")...# . 302,6|
00002b90  35 32 2c 38 39 38 2c 36  35 32 3a fb 20 62 6c 61  |52,898,652:. bla|
00002ba0  63 6b 25 2b 31 32 38 0d  10 ea 28 20 f1 8a 74 63  |ck%+128...( ..tc|
00002bb0  2c 31 30 29 3b 63 24 3a  f1 8a 74 64 2c 31 32 29  |,10);c$:..td,12)|
00002bc0  3b 64 24 3a f1 8a 74 65  2c 31 34 29 3b 65 24 0d  |;d$:..te,14);e$.|
00002bd0  10 f4 06 20 e1 0d 10 fe  06 20 3a 0d 11 08 0d 20  |... ..... :.... |
00002be0  dd f2 61 6e 73 77 72 31  0d 11 12 0a 20 6c 31 25  |..answr1.... l1%|
00002bf0  3d 30 0d 11 1c 20 20 f1  8a 32 38 2c 31 36 29 3b  |=0...  ..28,16);|
00002c00  22 59 45 53 22 3b 8a 34  33 2c 31 36 29 3b 22 4e  |"YES";.43,16);"N|
00002c10  4f 22 0d 11 26 26 20 c8  93 20 34 33 34 2c 34 36  |O"..&& .. 434,46|
00002c20  38 2c 38 30 2c 35 38 3a  c8 93 20 36 36 32 2c 34  |8,80,58:.. 662,4|
00002c30  36 38 2c 38 30 2c 35 38  0d 11 30 17 20 f5 20 c8  |68,80,58..0. . .|
00002c40  97 20 58 2c 59 2c 5a 25  3a fd 20 5a 25 3d 30 0d  |. X,Y,Z%:. Z%=0.|
00002c50  11 3a 06 20 f5 0d 11 44  10 20 c8 97 20 58 25 2c  |.:. ...D. .. X%,|
00002c60  59 25 2c 5a 25 0d 11 4e  0c 20 c8 8e 20 5a 25 20  |Y%,Z%..N. .. Z% |
00002c70  ca 0d 11 58 12 20 c9 20  30 2c 34 20 3a c8 8e 20  |...X. . 0,4 :.. |
00002c80  b9 20 ca 0d 11 62 31 20  c9 20 a4 69 6e 62 6f 78  |. ...b1 . .inbox|
00002c90  28 34 33 34 2c 34 36 38  2c 35 31 34 2c 35 38 29  |(434,468,514,58)|
00002ca0  3a f2 68 65 6c 70 74 65  78 74 28 33 39 29 3a 6c  |:.helptext(39):l|
00002cb0  31 25 3d 31 0d 11 6c 31  20 c9 20 a4 69 6e 62 6f  |1%=1..l1 . .inbo|
00002cc0  78 28 36 36 32 2c 34 36  38 2c 37 34 32 2c 35 38  |x(662,468,742,58|
00002cd0  29 3a f2 68 65 6c 70 74  65 78 74 28 34 30 29 3a  |):.helptext(40):|
00002ce0  6c 31 25 3d 32 0d 11 76  32 20 c9 20 a4 69 6e 62  |l1%=2..v2 . .inb|
00002cf0  6f 78 28 33 30 32 2c 34  34 30 2c 39 30 30 2c 32  |ox(302,440,900,2|
00002d00  38 30 29 3a f2 68 65 6c  70 74 65 78 74 28 34 31  |80):.helptext(41|
00002d10  29 3a 6c 31 25 3d 30 0d  11 80 06 20 cb 0d 11 8a  |):l1%=0.... ....|
00002d20  06 20 cb 0d 11 94 13 20  fd 20 5a 25 3d 34 20 80  |. ..... . Z%=4 .|
00002d30  20 6c 31 25 3e 30 0d 11  9e 23 20 f2 63 6c 6f 73  | l1%>0...# .clos|
00002d40  65 77 69 6e 64 6f 77 28  33 30 32 2c 34 34 30 2c  |ewindow(302,440,|
00002d50  22 57 49 4e 44 4f 57 22  29 0d 11 a8 06 20 e1 0d  |"WINDOW").... ..|
00002d60  11 b2 06 20 3a 0d 11 bc  0d 20 dd f2 61 6e 73 77  |... :.... ..answ|
00002d70  72 32 0d 11 c6 0b 20 c8  97 20 ee 3a 87 0d 11 d0  |r2.... .. .:....|
00002d80  09 20 43 25 3d 30 0d 11  da 18 20 f1 8a 33 32 2c  |. C%=0.... ..32,|
00002d90  31 36 29 3b 22 43 4f 4e  54 49 4e 55 45 22 0d 11  |16);"CONTINUE"..|
00002da0  e4 16 20 c8 93 20 34 39  34 2c 34 36 38 2c 31 36  |.. .. 494,468,16|
00002db0  34 2c 35 38 0d 11 ee 17  20 f5 20 c8 97 20 58 2c  |4,58.... . .. X,|
00002dc0  59 2c 5a 25 3a fd 20 5a  25 3d 30 0d 11 f8 06 20  |Y,Z%:. Z%=0.... |
00002dd0  f5 0d 12 02 10 20 c8 97  20 58 25 2c 59 25 2c 5a  |..... .. X%,Y%,Z|
00002de0  25 0d 12 0c 0c 20 c8 8e  20 5a 25 20 ca 0d 12 16  |%.... .. Z% ....|
00002df0  12 20 c9 20 30 2c 34 20  3a c8 8e 20 b9 20 ca 0d  |. . 0,4 :.. . ..|
00002e00  12 20 30 20 c9 20 a4 69  6e 62 6f 78 28 34 39 34  |. 0 . .inbox(494|
00002e10  2c 34 36 38 2c 37 35 38  2c 35 38 29 3a f2 68 65  |,468,758,58):.he|
00002e20  6c 70 74 65 78 74 28 33  30 29 3a 43 25 3d 31 0d  |lptext(30):C%=1.|
00002e30  12 2a 31 20 c9 20 a4 69  6e 62 6f 78 28 33 30 32  |.*1 . .inbox(302|
00002e40  2c 34 34 30 2c 39 30 30  2c 32 38 30 29 3a f2 68  |,440,900,280):.h|
00002e50  65 6c 70 74 65 78 74 28  32 39 29 3a 43 25 3d 30  |elptext(29):C%=0|
00002e60  0d 12 34 06 20 cb 0d 12  3e 06 20 cb 0d 12 48 12  |..4. ...>. ...H.|
00002e70  20 fd 20 5a 25 3d 34 20  80 20 43 25 3e 30 0d 12  | . Z%=4 . C%>0..|
00002e80  52 23 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |R# .closewindow(|
00002e90  33 30 32 2c 34 34 30 2c  22 57 49 4e 44 4f 57 22  |302,440,"WINDOW"|
00002ea0  29 0d 12 5c 06 20 e1 0d  12 66 06 20 3a 0d 12 70  |)..\. ...f. :..p|
00002eb0  12 20 dd f2 68 65 6c 70  74 65 78 74 28 73 29 0d  |. ..helptext(s).|
00002ec0  12 7a 10 20 e7 20 68 65  6c 70 25 3d 30 20 e1 0d  |.z. . help%=0 ..|
00002ed0  12 84 14 20 e7 20 73 3d  6f 6c 64 66 6c 61 67 20  |... . s=oldflag |
00002ee0  8c 20 e1 0d 12 8e 10 20  fb 20 34 2b 31 32 38 3a  |. ..... . 4+128:|
00002ef0  fb 20 33 0d 12 98 15 20  ef 32 38 2c 35 2c 33 30  |. 3.... .28,5,30|
00002f00  2c 37 34 2c 32 36 3a db  0d 12 a2 1f 20 f1 8a 32  |,74,26:..... ..2|
00002f10  36 2c 30 29 3b 22 49 4e  54 45 52 41 43 54 49 56  |6,0);"INTERACTIV|
00002f20  45 20 48 45 4c 50 22 0d  12 ac 0e 20 6f 6c 64 66  |E HELP".... oldf|
00002f30  6c 61 67 3d 73 0d 12 b6  0b 20 c8 8e 20 73 20 ca  |lag=s.... .. s .|
00002f40  0d 12 c0 84 20 c9 20 31  20 3a 74 69 74 6c 65 24  |.... . 1 :title$|
00002f50  3d 22 4c 4f 41 44 22 3a  74 65 78 74 31 24 3d 22  |="LOAD":text1$="|
00002f60  4c 6f 61 64 20 61 20 62  6c 61 6e 6b 20 66 69 6c  |Load a blank fil|
00002f70  65 20 74 6f 20 63 72 65  61 74 65 20 61 20 6e 65  |e to create a ne|
00002f80  77 20 64 69 63 74 69 6f  6e 61 72 79 20 6f 72 22  |w dictionary or"|
00002f90  3a 74 65 78 74 32 24 3d  22 6d 61 6b 65 20 61 6d  |:text2$="make am|
00002fa0  65 6e 64 6d 65 6e 74 73  20 74 6f 20 61 6e 20 65  |endments to an e|
00002fb0  78 69 73 74 69 6e 67 20  64 69 63 74 69 6f 6e 61  |xisting dictiona|
00002fc0  72 79 2e 22 0d 12 ca 49  20 c9 20 32 20 3a 74 69  |ry."...I . 2 :ti|
00002fd0  74 6c 65 24 3d 22 53 41  56 45 22 3a 74 65 78 74  |tle$="SAVE":text|
00002fe0  31 24 3d 22 53 61 76 65  20 61 6e 20 65 64 69 74  |1$="Save an edit|
00002ff0  65 64 2f 6e 65 77 20 64  69 63 74 69 6f 6e 61 72  |ed/new dictionar|
00003000  79 2e 22 3a 74 65 78 74  32 24 3d 22 22 0d 12 d4  |y.":text2$=""...|
00003010  45 20 c9 20 33 20 3a 74  69 74 6c 65 24 3d 22 45  |E . 3 :title$="E|
00003020  44 49 54 22 3a 74 65 78  74 31 24 3d 22 4d 6f 76  |DIT":text1$="Mov|
00003030  65 20 74 6f 20 74 68 65  20 65 64 69 74 20 73 75  |e to the edit su|
00003040  62 20 6d 65 6e 75 2e 22  3a 74 65 78 74 32 24 3d  |b menu.":text2$=|
00003050  22 22 0d 12 de 77 20 c9  20 34 20 3a 74 69 74 6c  |""...w . 4 :titl|
00003060  65 24 3d 22 51 55 49 54  22 3a 74 65 78 74 31 24  |e$="QUIT":text1$|
00003070  3d 22 51 75 69 74 20 74  68 65 20 65 64 69 74 6f  |="Quit the edito|
00003080  72 20 61 6e 64 20 72 65  74 75 72 6e 20 74 6f 20  |r and return to |
00003090  21 47 6c 6f 6f 70 2e 22  3a 74 65 78 74 32 24 3d  |!Gloop.":text2$=|
000030a0  22 41 6c 6c 20 66 69 6c  65 73 20 6d 75 73 74 20  |"All files must |
000030b0  62 65 20 73 61 76 65 64  20 62 65 66 6f 72 65 20  |be saved before |
000030c0  65 78 69 74 69 6e 67 2e  22 0d 12 e8 7c 20 c9 20  |exiting."...| . |
000030d0  35 20 3a 74 69 74 6c 65  24 3d 22 48 45 4c 50 22  |5 :title$="HELP"|
000030e0  3a 74 65 78 74 31 24 3d  22 54 6f 67 67 6c 65 20  |:text1$="Toggle |
000030f0  49 6e 74 65 72 61 63 74  69 76 65 20 68 65 6c 70  |Interactive help|
00003100  20 6f 6e 2f 6f 66 66 2e  22 3a 74 65 78 74 32 24  | on/off.":text2$|
00003110  3d 22 4b 65 65 70 20 48  65 6c 70 20 6f 6e 20 75  |="Keep Help on u|
00003120  6e 74 69 6c 20 79 6f 75  20 61 72 65 20 68 61 70  |ntil you are hap|
00003130  70 79 20 75 73 69 6e 67  20 74 68 65 20 45 64 69  |py using the Edi|
00003140  74 6f 72 2e 22 0d 12 f2  63 20 c9 20 36 20 3a 74  |tor."...c . 6 :t|
00003150  69 74 6c 65 24 3d 22 41  44 44 22 3a 74 65 78 74  |itle$="ADD":text|
00003160  31 24 3d 22 41 64 64 20  77 6f 72 64 73 20 74 6f  |1$="Add words to|
00003170  20 74 68 65 20 64 69 63  74 69 6f 6e 61 72 79 2e  | the dictionary.|
00003180  22 3a 74 65 78 74 32 24  3d 22 52 65 6d 65 6d 62  |":text2$="Rememb|
00003190  65 72 20 74 68 65 20 6d  61 78 69 6d 75 6d 20 69  |er the maximum i|
000031a0  73 20 32 30 30 30 2e 22  0d 12 fc 95 20 c9 20 37  |s 2000.".... . 7|
000031b0  20 3a 74 69 74 6c 65 24  3d 22 41 4d 45 4e 44 22  | :title$="AMEND"|
000031c0  3a 74 65 78 74 31 24 3d  22 55 73 65 20 74 68 69  |:text1$="Use thi|
000031d0  73 20 66 75 6e 63 74 69  6f 6e 20 74 6f 20 61 6d  |s function to am|
000031e0  65 6e 64 20 61 20 6d 69  73 73 70 65 6c 74 20 77  |end a misspelt w|
000031f0  6f 72 64 2e 20 55 73 65  20 74 68 65 20 42 72 6f  |ord. Use the Bro|
00003200  77 73 65 22 3a 74 65 78  74 32 24 3d 22 66 75 6e  |wse":text2$="fun|
00003210  63 74 69 6f 6e 20 75 6e  74 69 6c 20 74 68 65 20  |ction until the |
00003220  77 6f 72 64 20 74 6f 20  62 65 20 61 6d 65 6e 64  |word to be amend|
00003230  65 64 20 69 73 20 66 6f  75 6e 64 2e 22 0d 13 06  |ed is found."...|
00003240  6b 20 c9 20 38 20 3a 74  69 74 6c 65 24 3d 22 43  |k . 8 :title$="C|
00003250  48 45 43 4b 22 3a 74 65  78 74 31 24 3d 22 43 68  |HECK":text1$="Ch|
00003260  65 63 6b 20 61 20 64 69  63 74 69 6f 6e 61 72 79  |eck a dictionary|
00003270  20 66 6f 72 20 61 6e 64  22 3a 74 65 78 74 32 24  | for and":text2$|
00003280  3d 22 61 75 74 6f 6d 61  74 69 63 61 6c 6c 79 20  |="automatically |
00003290  72 65 6d 6f 76 65 20 64  75 70 6c 69 63 61 74 65  |remove duplicate|
000032a0  20 77 6f 72 64 73 2e 22  0d 13 10 43 20 c9 20 39  | words."...C . 9|
000032b0  20 3a 74 69 74 6c 65 24  3d 22 51 55 49 54 22 3a  | :title$="QUIT":|
000032c0  74 65 78 74 31 24 3d 22  52 65 74 75 72 6e 20 74  |text1$="Return t|
000032d0  6f 20 74 68 65 20 6d 61  69 6e 20 6d 65 6e 75 2e  |o the main menu.|
000032e0  22 3a 74 65 78 74 32 24  3d 22 22 0d 13 1a 8a 20  |":text2$="".... |
000032f0  c9 20 31 30 3a 74 69 74  6c 65 24 3d 22 46 49 4c  |. 10:title$="FIL|
00003300  45 20 47 52 49 44 22 3a  74 65 78 74 31 24 3d 22  |E GRID":text1$="|
00003310  53 65 6c 65 63 74 20 74  6f 20 63 68 6f 6f 73 65  |Select to choose|
00003320  20 61 20 64 69 63 74 69  6f 6e 61 72 79 2e 20 4d  | a dictionary. M|
00003330  65 6e 75 20 61 62 61 6e  64 6f 6e 20 6c 6f 61 64  |enu abandon load|
00003340  2f 73 61 76 65 2e 22 3a  74 65 78 74 32 24 3d 22  |/save.":text2$="|
00003350  41 64 6a 75 73 74 20 74  6f 20 72 65 73 65 74 20  |Adjust to reset |
00003360  28 64 65 6c 65 74 65 29  20 64 69 63 74 69 6f 6e  |(delete) diction|
00003370  61 72 79 2e 22 0d 13 24  78 20 c9 20 32 30 3a 74  |ary."..$x . 20:t|
00003380  69 74 6c 65 24 3d 22 52  45 53 45 54 22 3a 74 65  |itle$="RESET":te|
00003390  78 74 31 24 3d 22 45 72  61 73 65 20 74 68 65 20  |xt1$="Erase the |
000033a0  64 69 63 74 69 6f 6e 61  72 79 2e 20 52 65 73 65  |dictionary. Rese|
000033b0  74 20 64 65 66 61 75 6c  74 20 6e 61 6d 65 2e 22  |t default name."|
000033c0  3a 74 65 78 74 32 24 3d  22 57 41 52 4e 49 4e 47  |:text2$="WARNING|
000033d0  20 21 21 20 54 48 49 53  20 43 41 4e 4e 4f 54 20  | !! THIS CANNOT |
000033e0  42 45 20 52 45 56 45 52  53 45 44 2e 22 0d 13 2e  |BE REVERSED."...|
000033f0  5b 20 c9 20 32 31 3a 74  69 74 6c 65 24 3d 22 52  |[ . 21:title$="R|
00003400  45 53 45 54 22 3a 74 65  78 74 31 24 3d 22 59 45  |ESET":text1$="YE|
00003410  53 20 2d 20 77 69 70 65  20 64 69 63 74 69 6f 6e  |S - wipe diction|
00003420  61 72 79 20 61 6e 64 20  72 65 73 74 6f 72 65 20  |ary and restore |
00003430  64 65 66 61 75 6c 74 20  6e 61 6d 65 2e 22 3a 74  |default name.":t|
00003440  65 78 74 32 24 3d 22 22  0d 13 38 45 20 c9 20 32  |ext2$=""..8E . 2|
00003450  32 3a 74 69 74 6c 65 24  3d 22 52 45 53 45 54 22  |2:title$="RESET"|
00003460  3a 74 65 78 74 31 24 3d  22 4e 4f 20 2d 20 6b 65  |:text1$="NO - ke|
00003470  65 70 20 74 68 65 20 64  69 63 74 69 6f 6e 61 72  |ep the dictionar|
00003480  79 2e 22 3a 74 65 78 74  32 24 3d 22 22 0d 13 42  |y.":text2$=""..B|
00003490  4b 20 c9 20 32 33 3a 74  69 74 6c 65 24 3d 22 43  |K . 23:title$="C|
000034a0  72 65 61 74 65 22 3a 74  65 78 74 31 24 3d 22 59  |reate":text1$="Y|
000034b0  45 53 20 2d 20 43 72 65  61 74 65 20 61 20 6e 65  |ES - Create a ne|
000034c0  77 20 44 69 63 74 69 6f  6e 61 72 79 2e 22 3a 74  |w Dictionary.":t|
000034d0  65 78 74 32 24 3d 22 22  0d 13 4c 51 20 c9 20 32  |ext2$=""..LQ . 2|
000034e0  34 3a 74 69 74 6c 65 24  3d 22 43 72 65 61 74 65  |4:title$="Create|
000034f0  22 3a 74 65 78 74 31 24  3d 22 4e 6f 20 2d 20 41  |":text1$="No - A|
00003500  20 6e 65 77 20 44 69 63  74 69 6f 6e 61 72 79 20  | new Dictionary |
00003510  69 73 20 6e 6f 74 20 77  61 6e 74 65 64 2e 22 3a  |is not wanted.":|
00003520  74 65 78 74 32 24 3d 22  22 0d 13 56 69 20 c9 20  |text2$=""..Vi . |
00003530  32 35 3a 74 69 74 6c 65  24 3d 22 43 72 65 61 74  |25:title$="Creat|
00003540  65 22 3a 74 65 78 74 31  24 3d 22 43 72 65 61 74  |e":text1$="Creat|
00003550  65 20 61 20 6e 65 77 20  44 69 63 74 69 6f 6e 61  |e a new Dictiona|
00003560  72 79 20 6f 66 20 79 6f  75 72 20 6f 77 6e 2e 22  |ry of your own."|
00003570  3a 74 65 78 74 32 24 3d  22 41 20 6d 61 78 69 6d  |:text2$="A maxim|
00003580  75 6d 20 6f 66 20 32 30  30 30 20 77 6f 72 64 73  |um of 2000 words|
00003590  2e 22 0d 13 60 89 20 c9  20 32 36 3a 74 69 74 6c  |."..`. . 26:titl|
000035a0  65 24 3d 22 43 72 65 61  74 65 22 3a 74 65 78 74  |e$="Create":text|
000035b0  31 24 3d 22 45 6e 74 65  72 20 61 20 66 69 6c 65  |1$="Enter a file|
000035c0  20 64 65 73 63 72 69 70  74 69 6f 6e 2e 20 28 4e  | description. (N|
000035d0  6f 74 20 66 69 6c 65 20  6e 61 6d 65 29 22 3a 74  |ot file name)":t|
000035e0  65 78 74 32 24 3d 22 54  68 69 73 20 69 73 20 64  |ext2$="This is d|
000035f0  69 73 70 6c 61 79 65 64  20 69 6e 20 47 6c 6f 6f  |isplayed in Gloo|
00003600  70 73 20 6c 6f 61 64 20  64 69 63 74 69 6f 6e 61  |ps load dictiona|
00003610  72 79 20 77 69 6e 64 6f  77 2e 22 0d 13 6a 74 20  |ry window."..jt |
00003620  c9 20 32 37 3a 74 69 74  6c 65 24 3d 22 43 72 65  |. 27:title$="Cre|
00003630  61 74 65 22 3a 74 65 78  74 31 24 3d 22 45 6e 74  |ate":text1$="Ent|
00003640  65 72 20 79 6f 75 72 20  77 6f 72 64 2e 20 28 6d  |er your word. (m|
00003650  61 78 20 31 32 20 63 68  61 72 61 63 74 65 72 73  |ax 12 characters|
00003660  29 2e 20 50 72 65 73 73  20 3c 52 45 54 55 52 4e  |). Press <RETURN|
00003670  3e 22 3a 74 65 78 74 32  24 3d 22 50 72 65 73 73  |>":text2$="Press|
00003680  20 3c 66 31 32 3e 20 74  6f 20 65 6e 64 2e 22 0d  | <f12> to end.".|
00003690  13 74 70 20 c9 20 32 38  3a 74 69 74 6c 65 24 3d  |.tp . 28:title$=|
000036a0  22 41 44 44 22 3a 74 65  78 74 31 24 3d 22 45 6e  |"ADD":text1$="En|
000036b0  74 65 72 20 79 6f 75 72  20 77 6f 72 64 2e 20 28  |ter your word. (|
000036c0  6d 61 78 20 31 32 20 63  68 61 72 61 63 74 65 72  |max 12 character|
000036d0  73 29 2e 20 50 72 65 73  73 3c 52 45 54 55 52 4e  |s). Press<RETURN|
000036e0  3e 22 3a 74 65 78 74 32  24 3d 22 50 72 65 73 73  |>":text2$="Press|
000036f0  20 3c 66 31 32 3e 20 74  6f 20 65 6e 64 2e 22 0d  | <f12> to end.".|
00003700  13 7e 74 20 c9 20 32 39  3a 74 69 74 6c 65 24 3d  |.~t . 29:title$=|
00003710  22 43 4f 4e 54 49 4e 55  45 22 3a 74 65 78 74 31  |"CONTINUE":text1|
00003720  24 3d 22 45 72 72 6f 72  20 62 6f 78 2e 20 45 78  |$="Error box. Ex|
00003730  70 6c 61 69 6e 73 20 74  68 65 20 65 72 72 6f 72  |plains the error|
00003740  20 79 6f 75 22 3a 74 65  78 74 32 24 3d 22 68 61  | you":text2$="ha|
00003750  76 65 20 6d 61 64 65 2e  20 43 6c 69 63 6b 20 62  |ve made. Click b|
00003760  75 74 74 6f 6e 20 74 6f  20 63 6f 6e 74 69 6e 75  |utton to continu|
00003770  65 2e 22 0d 13 88 45 20  c9 20 33 30 3a 74 69 74  |e."...E . 30:tit|
00003780  6c 65 24 3d 22 43 4f 4e  54 49 4e 55 45 22 3a 74  |le$="CONTINUE":t|
00003790  65 78 74 31 24 3d 22 43  6c 69 63 6b 20 68 65 72  |ext1$="Click her|
000037a0  65 20 74 6f 20 70 72 6f  63 65 65 64 2e 22 3a 74  |e to proceed.":t|
000037b0  65 78 74 32 24 3d 22 22  0d 13 92 83 20 c9 20 33  |ext2$="".... . 3|
000037c0  31 3a 74 69 74 6c 65 24  3d 22 4d 4f 56 45 22 3a  |1:title$="MOVE":|
000037d0  74 65 78 74 31 24 3d 22  4f 6e 65 20 77 6f 72 64  |text1$="One word|
000037e0  20 61 74 20 61 20 74 69  6d 65 20 74 68 72 6f 75  | at a time throu|
000037f0  67 68 20 74 68 65 20 64  69 63 74 69 6f 6e 72 79  |gh the dictionry|
00003800  2e 22 3a 74 65 78 74 32  24 3d 22 59 6f 75 20 73  |.":text2$="You s|
00003810  63 72 6f 6c 6c 20 72 6f  75 6e 64 20 77 68 65 6e  |croll round when|
00003820  20 74 68 65 20 6c 61 73  74 20 77 6f 72 64 20 69  | the last word i|
00003830  73 20 72 65 61 63 68 65  64 2e 22 0d 13 9c 84 20  |s reached.".... |
00003840  c9 20 33 32 3a 74 69 74  6c 65 24 3d 22 4d 4f 56  |. 32:title$="MOV|
00003850  45 22 3a 74 65 78 74 31  24 3d 22 42 61 63 6b 20  |E":text1$="Back |
00003860  74 68 72 6f 75 67 68 20  74 68 65 20 64 69 63 74  |through the dict|
00003870  69 6f 6e 61 72 79 2c 20  62 79 20 6f 6e 65 20 77  |ionary, by one w|
00003880  6f 72 64 2e 22 3a 74 65  78 74 32 24 3d 22 59 6f  |ord.":text2$="Yo|
00003890  75 20 73 63 72 6f 6c 6c  20 72 6f 75 6e 64 20 77  |u scroll round w|
000038a0  68 65 6e 20 74 68 65 20  66 69 72 73 74 20 77 6f  |hen the first wo|
000038b0  72 64 20 69 73 20 72 65  61 63 68 65 64 2e 22 0d  |rd is reached.".|
000038c0  13 a6 89 20 c9 20 33 33  3a 74 69 74 6c 65 24 3d  |... . 33:title$=|
000038d0  22 4a 55 4d 50 22 3a 74  65 78 74 31 24 3d 22 43  |"JUMP":text1$="C|
000038e0  6c 69 63 6b 20 3c 73 65  6c 65 63 74 3e 20 74 6f  |lick <select> to|
000038f0  20 73 74 65 70 20 46 69  76 65 20 77 6f 72 64 73  | step Five words|
00003900  20 66 6f 72 77 61 72 64  2e 22 3a 74 65 78 74 32  | forward.":text2|
00003910  24 3d 22 43 6c 69 63 6b  20 3c 41 64 6a 75 73 74  |$="Click <Adjust|
00003920  3e 20 74 6f 20 73 63 72  6f 6c 6c 20 66 6f 72 77  |> to scroll forw|
00003930  61 72 64 73 20 28 69 6e  63 72 65 6d 65 6e 74 73  |ards (increments|
00003940  20 6f 66 20 35 29 2e 22  0d 13 b0 8c 20 c9 20 33  | of 5).".... . 3|
00003950  34 3a 74 69 74 6c 65 24  3d 22 4a 55 4d 50 22 3a  |4:title$="JUMP":|
00003960  74 65 78 74 31 24 3d 22  43 6c 69 63 6b 20 3c 73  |text1$="Click <s|
00003970  65 6c 65 63 74 3e 20 74  6f 20 73 74 65 70 20 46  |elect> to step F|
00003980  69 76 65 20 77 6f 72 64  73 20 62 61 63 6b 77 61  |ive words backwa|
00003990  72 64 73 2e 22 3a 74 65  78 74 32 24 3d 22 43 6c  |rds.":text2$="Cl|
000039a0  69 63 6b 20 3c 41 64 6a  75 73 74 3e 20 74 6f 20  |ick <Adjust> to |
000039b0  73 63 72 6f 6c 6c 20 62  61 63 6b 77 61 72 64 73  |scroll backwards|
000039c0  20 28 64 65 63 72 65 6d  65 6e 74 73 20 6f 66 20  | (decrements of |
000039d0  35 29 2e 22 0d 13 ba 7f  20 c9 20 33 35 3a 74 69  |5).".... . 35:ti|
000039e0  74 6c 65 24 3d 22 44 45  4c 45 54 45 22 3a 74 65  |tle$="DELETE":te|
000039f0  78 74 31 24 3d 22 54 68  65 20 68 69 67 68 6c 69  |xt1$="The highli|
00003a00  67 68 74 65 64 20 77 6f  72 64 2e 20 44 65 6c 65  |ghted word. Dele|
00003a10  74 65 20 77 6f 72 6b 73  20 62 79 20 73 77 61 70  |te works by swap|
00003a20  70 69 6e 67 22 3a 74 65  78 74 32 24 3d 22 77 69  |ping":text2$="wi|
00003a30  74 68 20 6c 61 73 74 20  77 6f 72 64 20 61 6e 64  |th last word and|
00003a40  20 72 65 64 75 63 69 6e  67 20 63 6f 75 6e 74 65  | reducing counte|
00003a50  72 2e 22 0d 13 c4 73 20  c9 20 33 36 3a 74 69 74  |r."...s . 36:tit|
00003a60  6c 65 24 3d 22 45 44 49  54 22 3a 74 65 78 74 31  |le$="EDIT":text1|
00003a70  24 3d 22 59 6f 75 20 63  61 6e 20 65 64 69 74 20  |$="You can edit |
00003a80  74 68 65 20 68 69 67 68  6c 69 67 68 74 65 64 20  |the highlighted |
00003a90  77 6f 72 64 2e 22 3a 74  65 78 74 32 24 3d 22 3c  |word.":text2$="<|
00003aa0  52 45 54 55 52 4e 3e 20  6f 6e 20 69 74 73 20 6f  |RETURN> on its o|
00003ab0  77 6e 20 72 65 73 74 6f  72 65 73 20 74 68 65 20  |wn restores the |
00003ac0  77 6f 72 64 2e 22 0d 13  ce 62 20 c9 20 33 37 3a  |word."...b . 37:|
00003ad0  74 69 74 6c 65 24 3d 22  4d 45 4e 55 22 3a 74 65  |title$="MENU":te|
00003ae0  78 74 31 24 3d 22 52 65  74 75 72 6e 20 74 6f 20  |xt1$="Return to |
00003af0  6d 61 69 6e 20 6d 65 6e  75 2e 22 3a 74 65 78 74  |main menu.":text|
00003b00  32 24 3d 22 52 65 6d 65  6d 62 65 72 20 74 6f 20  |2$="Remember to |
00003b10  73 61 76 65 20 79 6f 75  72 20 61 6d 65 6e 64 6d  |save your amendm|
00003b20  65 6e 74 73 20 21 21 22  0d 13 d8 6a 20 c9 20 33  |ents !!"...j . 3|
00003b30  38 3a 74 69 74 6c 65 24  3d 22 54 49 54 4c 45 22  |8:title$="TITLE"|
00003b40  3a 74 65 78 74 31 24 3d  22 45 64 69 74 20 74 68  |:text1$="Edit th|
00003b50  65 20 64 65 73 63 72 69  70 74 69 76 65 20 74 69  |e descriptive ti|
00003b60  74 6c 65 2e 22 3a 74 65  78 74 32 24 3d 22 52 65  |tle.":text2$="Re|
00003b70  6d 65 6d 62 65 72 20 74  6f 20 73 61 76 65 20 79  |member to save y|
00003b80  6f 75 72 20 61 6d 65 6e  64 6d 65 6e 74 73 20 21  |our amendments !|
00003b90  21 22 0d 13 e2 46 20 c9  20 33 39 3a 74 69 74 6c  |!"...F . 39:titl|
00003ba0  65 24 3d 22 43 4f 4e 46  49 52 4d 22 3a 74 65 78  |e$="CONFIRM":tex|
00003bb0  74 31 24 3d 22 59 65 73  20 70 72 6f 63 65 65 64  |t1$="Yes proceed|
00003bc0  20 77 69 74 68 20 61 63  74 69 6f 6e 2e 22 3a 74  | with action.":t|
00003bd0  65 78 74 32 24 3d 22 22  0d 13 ec 3e 20 c9 20 34  |ext2$=""...> . 4|
00003be0  30 3a 74 69 74 6c 65 24  3d 22 43 4f 4e 46 49 52  |0:title$="CONFIR|
00003bf0  4d 22 3a 74 65 78 74 31  24 3d 22 4e 6f 20 61 62  |M":text1$="No ab|
00003c00  6f 72 74 20 61 63 74 69  6f 6e 2e 22 3a 74 65 78  |ort action.":tex|
00003c10  74 32 24 3d 22 22 0d 13  f6 79 20 c9 20 34 31 3a  |t2$=""...y . 41:|
00003c20  74 69 74 6c 65 24 3d 22  43 4f 4e 46 49 52 4d 22  |title$="CONFIRM"|
00003c30  3a 74 65 78 74 31 24 3d  22 44 6f 20 79 6f 75 20  |:text1$="Do you |
00003c40  77 61 6e 74 20 74 6f 20  70 72 6f 63 65 65 64 20  |want to proceed |
00003c50  77 69 74 68 20 74 68 65  20 61 63 74 69 6f 6e 20  |with the action |
00003c60  73 65 6c 65 63 74 65 64  20 3f 22 3a 74 65 78 74  |selected ?":text|
00003c70  32 24 3d 22 54 68 69 73  20 77 69 6c 6c 20 62 65  |2$="This will be|
00003c80  20 69 72 72 65 76 65 72  73 69 62 6c 65 2e 22 0d  | irreversible.".|
00003c90  14 00 6a 20 c9 20 34 32  3a 74 69 74 6c 65 24 3d  |..j . 42:title$=|
00003ca0  22 45 44 49 54 22 3a 74  65 78 74 31 24 3d 22 45  |"EDIT":text1$="E|
00003cb0  6e 74 65 72 20 6e 65 77  20 74 69 74 6c 65 20 64  |nter new title d|
00003cc0  65 73 63 72 69 70 74 69  6f 6e 2e 22 3a 74 65 78  |escription.":tex|
00003cd0  74 32 24 3d 22 50 72 65  73 73 20 3c 52 45 54 55  |t2$="Press <RETU|
00003ce0  52 4e 3e 20 74 6f 20 72  65 74 61 69 6e 20 6f 6c  |RN> to retain ol|
00003cf0  64 20 74 69 74 6c 65 2e  22 0d 14 0a 7f 20 c9 20  |d title.".... . |
00003d00  34 33 3a 74 69 74 6c 65  24 3d 22 45 44 49 54 22  |43:title$="EDIT"|
00003d10  3a 74 65 78 74 31 24 3d  22 45 6e 74 65 72 20 79  |:text1$="Enter y|
00003d20  6f 75 72 20 77 6f 72 64  2e 20 28 6d 61 78 20 31  |our word. (max 1|
00003d30  32 20 63 68 61 72 61 63  74 65 72 73 29 2e 20 50  |2 characters). P|
00003d40  72 65 73 73 3c 52 45 54  55 52 4e 3e 22 3a 74 65  |ress<RETURN>":te|
00003d50  78 74 32 24 3d 22 50 72  65 73 73 20 3c 52 45 54  |xt2$="Press <RET|
00003d60  55 52 4e 3e 20 74 6f 20  72 65 74 61 69 6e 20 6f  |URN> to retain o|
00003d70  6c 64 20 77 6f 72 64 22  0d 14 14 83 20 c9 20 37  |ld word".... . 7|
00003d80  37 3a 74 69 74 6c 65 24  3d 22 57 45 4c 43 4f 4d  |7:title$="WELCOM|
00003d90  45 22 3a 74 65 78 74 31  24 3d 22 55 73 65 20 74  |E":text1$="Use t|
00003da0  68 69 73 20 65 64 69 74  6f 72 20 74 6f 20 63 72  |his editor to cr|
00003db0  65 61 74 65 20 79 6f 75  72 20 6f 77 6e 20 64 69  |eate your own di|
00003dc0  63 74 69 6f 6e 61 72 69  65 73 2e 22 3a 74 65 78  |ctionaries.":tex|
00003dd0  74 32 24 3d 22 a9 20 4a  20 48 20 50 45 41 43 48  |t2$=". J H PEACH|
00003de0  45 59 20 31 39 39 33 20  20 20 20 20 20 20 20 20  |EY 1993         |
00003df0  45 4e 4a 4f 59 20 21 21  21 21 22 0d 14 1e 56 20  |ENJOY !!!!"...V |
00003e00  c9 20 37 38 3a 74 69 74  6c 65 24 3d 22 53 54 41  |. 78:title$="STA|
00003e10  54 55 53 22 3a 74 65 78  74 31 24 3d 22 52 65 6d  |TUS":text1$="Rem|
00003e20  69 6e 64 73 20 79 6f 75  20 77 68 69 63 68 20 66  |inds you which f|
00003e30  69 6c 65 20 69 73 20 6c  6f 61 64 65 64 2e 28 49  |ile is loaded.(I|
00003e40  66 20 61 6e 79 29 22 3a  74 65 78 74 32 24 3d 22  |f any)":text2$="|
00003e50  22 0d 14 28 52 20 c9 20  37 39 3a 74 69 74 6c 65  |"..(R . 79:title|
00003e60  24 3d 22 53 54 41 54 55  53 22 3a 74 65 78 74 31  |$="STATUS":text1|
00003e70  24 3d 22 53 68 6f 77 73  20 77 68 65 74 68 65 72  |$="Shows whether|
00003e80  20 61 20 66 69 6c 65 20  68 61 73 20 62 65 65 6e  | a file has been|
00003e90  20 65 64 69 74 65 64 2e  22 3a 74 65 78 74 32 24  | edited.":text2$|
00003ea0  3d 22 22 0d 14 32 27 20  c9 20 39 39 3a 74 69 74  |=""..2' . 99:tit|
00003eb0  6c 65 24 3d 22 22 3a 74  65 78 74 31 24 3d 22 22  |le$="":text1$=""|
00003ec0  3a 74 65 78 74 32 24 3d  22 22 0d 14 3c 06 20 cb  |:text2$=""..<. .|
00003ed0  0d 14 46 3a 20 f1 8a 31  2c 32 29 3b 74 69 74 6c  |..F: ..1,2);titl|
00003ee0  65 24 3b 8a 31 30 2c 32  29 3b 22 3a 22 3b 8a 31  |e$;.10,2);":";.1|
00003ef0  31 2c 32 29 3b 74 65 78  74 31 24 3a f1 8a 31 31  |1,2);text1$:..11|
00003f00  2c 33 29 3b 74 65 78 74  32 24 0d 14 50 08 20 ef  |,3);text2$..P. .|
00003f10  32 36 0d 14 5a 06 20 e1  0d 14 64 06 20 3a 0d 14  |26..Z. ...d. :..|
00003f20  6e 10 20 dd f2 73 61 76  65 28 73 65 6c 29 0d 14  |n. ..save(sel)..|
00003f30  78 4c 20 e7 20 63 6f 75  6e 74 3c 31 20 8c 20 f2  |xL . count<1 . .|
00003f40  77 61 72 6e 28 22 55 53  45 52 20 45 52 52 4f 52  |warn("USER ERROR|
00003f50  22 2c 22 54 48 45 52 45  20 49 53 20 4e 4f 20 44  |","THERE IS NO D|
00003f60  41 54 41 20 54 4f 20 53  41 56 45 22 2c 22 22 29  |ATA TO SAVE","")|
00003f70  3a f2 61 6e 73 77 72 32  3a e1 0d 14 82 23 20 e7  |:.answr2:....# .|
00003f80  20 67 65 6e 25 3e 30 20  8c 20 6e 65 77 6e 61 6d  | gen%>0 . newnam|
00003f90  65 24 3d 66 69 6c 65 24  28 73 65 6c 29 0d 14 8c  |e$=file$(sel)...|
00003fa0  29 20 e7 20 6f 6c 64 73  65 6c 3d 30 20 80 20 67  |) . oldsel=0 . g|
00003fb0  65 6e 25 3d 30 20 8c 20  6e 65 77 6e 61 6d 65 24  |en%=0 . newname$|
00003fc0  3d 6c 6f 61 64 24 0d 14  96 69 20 e7 20 6f 6c 64  |=load$...i . old|
00003fd0  73 65 6c 3e 30 20 80 20  73 65 6c 3c 3e 6f 6c 64  |sel>0 . sel<>old|
00003fe0  73 65 6c 20 8c 20 66 69  6c 65 24 28 6f 6c 64 73  |sel . file$(olds|
00003ff0  65 6c 29 3d 6f 6c 64 66  69 6c 65 24 3a 66 69 6c  |el)=oldfile$:fil|
00004000  65 24 28 73 65 6c 29 3d  6e 65 77 6e 61 6d 65 24  |e$(sel)=newname$|
00004010  3a 6f 6c 64 73 65 6c 3d  30 20 8b 20 66 69 6c 65  |:oldsel=0 . file|
00004020  24 28 73 65 6c 29 3d 6e  65 77 6e 61 6d 65 24 0d  |$(sel)=newname$.|
00004030  14 a0 15 20 72 65 63 73  25 28 73 65 6c 29 3d 63  |... recs%(sel)=c|
00004040  6f 75 6e 74 0d 14 aa 10  20 f2 77 72 69 74 65 73  |ount.... .writes|
00004050  65 74 75 70 0d 14 b4 11  20 76 24 3d bd 28 36 33  |etup.... v$=.(63|
00004060  2b 73 65 6c 29 0d 14 be  1b 20 6e 61 6d 65 24 3d  |+sel).... name$=|
00004070  64 69 63 74 24 2b 22 55  73 65 72 5f 22 2b 76 24  |dict$+"User_"+v$|
00004080  0d 14 c8 10 20 44 25 3d  ae 28 6e 61 6d 65 24 29  |.... D%=.(name$)|
00004090  0d 14 d2 15 20 e3 20 6c  6f 6f 70 3d 30 20 b8 20  |.... . loop=0 . |
000040a0  63 6f 75 6e 74 0d 14 dc  15 20 f1 23 44 25 2c 77  |count.... .#D%,w|
000040b0  6f 72 64 24 28 6c 6f 6f  70 29 0d 14 e6 06 20 ed  |ord$(loop).... .|
000040c0  0d 14 f0 09 20 d9 23 44  25 0d 14 fa 28 20 73 61  |.... .#D%...( sa|
000040d0  76 65 25 3d 30 3a f2 73  74 61 74 75 73 28 66 69  |ve%=0:.status(fi|
000040e0  6c 65 24 28 73 65 6c 29  2c 22 53 61 76 65 64 22  |le$(sel),"Saved"|
000040f0  29 0d 15 04 0b 20 67 65  6e 25 3d 30 0d 15 0e 06  |).... gen%=0....|
00004100  20 e1 0d 15 18 06 20 3a  0d 15 22 14 20 dd f2 73  | ..... :..". ..s|
00004110  74 61 74 75 73 28 58 24  2c 59 24 29 0d 15 2c 17  |tatus(X$,Y$)..,.|
00004120  20 e7 20 58 24 3d 22 22  20 8c 20 58 24 3d 6f 6c  | . X$="" . X$=ol|
00004130  64 78 24 0d 15 36 0e 20  fb 20 31 32 38 3a fb 20  |dx$..6. . 128:. |
00004140  33 0d 15 40 14 20 f1 8a  30 2c 34 29 3b c4 37 39  |3..@. ..0,4);.79|
00004150  2c 22 20 22 29 0d 15 4a  39 20 f1 8a 36 2c 34 29  |," ")..J9 ..6,4)|
00004160  3b 22 46 69 6c 65 20 6c  6f 61 64 65 64 20 69 73  |;"File loaded is|
00004170  20 3a 20 22 3b 58 24 3a  f1 8a 35 38 2c 34 29 3b  | : ";X$:..58,4);|
00004180  22 53 54 41 54 55 53 20  3a 20 22 3b 59 24 0d 15  |"STATUS : ";Y$..|
00004190  54 09 20 fb 20 31 30 0d  15 5e 0d 20 6f 6c 64 78  |T. . 10..^. oldx|
000041a0  24 3d 58 24 0d 15 68 06  20 e1 0d 15 72 06 20 3a  |$=X$..h. ...r. :|
000041b0  0d 15 7c 0c 20 dd f2 61  6d 65 6e 64 0d 15 86 52  |..|. ..amend...R|
000041c0  20 e7 20 63 6f 75 6e 74  3d 30 20 8c 20 f2 77 61  | . count=0 . .wa|
000041d0  72 6e 28 22 55 53 45 52  20 45 52 52 4f 52 22 2c  |rn("USER ERROR",|
000041e0  22 46 69 6c 65 20 65 6d  70 74 79 22 2c 22 55 73  |"File empty","Us|
000041f0  65 20 61 64 64 20 74 6f  20 61 64 64 20 77 6f 72  |e add to add wor|
00004200  64 73 22 29 3a f2 61 6e  73 77 72 32 3a e1 0d 15  |ds"):.answr2:...|
00004210  90 22 20 6c 65 61 76 65  25 3d 30 3a ea 20 68 25  |." leave%=0:. h%|
00004220  2c 6b 25 3a 68 25 3d 37  36 3a 6b 25 3d 32 32 34  |,k%:h%=76:k%=224|
00004230  0d 15 9a 22 20 6c 63 74  3d 63 6f 75 6e 74 3a e7  |..." lct=count:.|
00004240  20 6c 63 74 3c 37 20 6a  25 3d 31 20 8b 20 6a 25  | lct<7 j%=1 . j%|
00004250  3d 34 0d 15 a4 5e 20 e7  20 6c 6f 61 64 25 3d 30  |=4...^ . load%=0|
00004260  20 8c 20 f2 77 61 72 6e  28 22 55 53 45 52 20 45  | . .warn("USER E|
00004270  52 52 4f 52 22 2c 22 46  69 6c 65 20 6e 6f 74 20  |RROR","File not |
00004280  6c 6f 61 64 65 64 22 2c  22 4c 6f 61 64 20 66 69  |loaded","Load fi|
00004290  6c 65 20 62 65 66 6f 72  65 20 63 6f 6e 74 69 6e  |le before contin|
000042a0  75 69 6e 67 22 29 3a f2  61 6e 73 77 72 32 3a e1  |uing"):.answr2:.|
000042b0  0d 15 ae 26 20 c8 99 26  32 45 2c 32 39 30 2c 73  |...& ..&2E,290,s|
000042c0  70 2c 22 74 6f 6f 6c 62  61 72 22 2c 31 30 30 2c  |p,"toolbar",100,|
000042d0  32 32 30 2c 26 38 0d 15  b8 2c 20 c8 97 20 c8 93  |220,&8..., .. ..|
000042e0  20 39 36 2c 32 31 36 2c  38 32 30 2c 31 30 30 3a  | 96,216,820,100:|
000042f0  f5 20 c8 97 20 58 2c 59  2c 5a 25 3a fd 20 5a 25  |. .. X,Y,Z%:. Z%|
00004300  3d 30 0d 15 c2 11 20 f2  64 69 73 70 6c 61 79 28  |=0.... .display(|
00004310  6a 25 29 0d 15 cc 06 20  f5 0d 15 d6 10 20 c8 97  |j%).... ..... ..|
00004320  20 58 25 2c 59 25 2c 5a  25 0d 15 e0 0c 20 c8 8e  | X%,Y%,Z%.... ..|
00004330  20 5a 25 20 ca 0d 15 ea  12 20 c9 20 30 2c 34 20  | Z% ..... . 0,4 |
00004340  3a c8 8e 20 b9 20 ca 0d  15 f4 2f 20 c9 20 a4 69  |:.. . ..../ . .i|
00004350  6e 62 6f 78 28 31 30 38  2c 6b 25 2c 31 34 38 2c  |nbox(108,k%,148,|
00004360  68 25 29 3a f2 68 65 6c  70 74 65 78 74 28 33 32  |h%):.helptext(32|
00004370  29 3a 43 25 3d 31 0d 15  fe 2f 20 c9 20 a4 69 6e  |):C%=1.../ . .in|
00004380  62 6f 78 28 31 36 36 2c  6b 25 2c 32 30 34 2c 68  |box(166,k%,204,h|
00004390  25 29 3a f2 68 65 6c 70  74 65 78 74 28 33 31 29  |%):.helptext(31)|
000043a0  3a 43 25 3d 32 0d 16 08  2f 20 c9 20 a4 69 6e 62  |:C%=2.../ . .inb|
000043b0  6f 78 28 32 32 34 2c 6b  25 2c 32 37 32 2c 68 25  |ox(224,k%,272,h%|
000043c0  29 3a f2 68 65 6c 70 74  65 78 74 28 33 34 29 3a  |):.helptext(34):|
000043d0  43 25 3d 33 0d 16 12 2f  20 c9 20 a4 69 6e 62 6f  |C%=3.../ . .inbo|
000043e0  78 28 32 39 32 2c 6b 25  2c 33 33 38 2c 68 25 29  |x(292,k%,338,h%)|
000043f0  3a f2 68 65 6c 70 74 65  78 74 28 33 33 29 3a 43  |:.helptext(33):C|
00004400  25 3d 34 0d 16 1c 2f 20  c9 20 a4 69 6e 62 6f 78  |%=4.../ . .inbox|
00004410  28 33 35 36 2c 6b 25 2c  35 30 36 2c 68 25 29 3a  |(356,k%,506,h%):|
00004420  f2 68 65 6c 70 74 65 78  74 28 33 35 29 3a 43 25  |.helptext(35):C%|
00004430  3d 35 0d 16 26 2f 20 c9  20 a4 69 6e 62 6f 78 28  |=5..&/ . .inbox(|
00004440  35 32 38 2c 6b 25 2c 36  33 30 2c 68 25 29 3a f2  |528,k%,630,h%):.|
00004450  68 65 6c 70 74 65 78 74  28 33 36 29 3a 43 25 3d  |helptext(36):C%=|
00004460  36 0d 16 30 2f 20 c9 20  a4 69 6e 62 6f 78 28 36  |6..0/ . .inbox(6|
00004470  35 30 2c 6b 25 2c 37 35  34 2c 68 25 29 3a f2 68  |50,k%,754,h%):.h|
00004480  65 6c 70 74 65 78 74 28  33 37 29 3a 43 25 3d 37  |elptext(37):C%=7|
00004490  0d 16 3a 2f 20 c9 20 a4  69 6e 62 6f 78 28 37 37  |..:/ . .inbox(77|
000044a0  32 2c 6b 25 2c 39 30 30  2c 68 25 29 3a f2 68 65  |2,k%,900,h%):.he|
000044b0  6c 70 74 65 78 74 28 33  38 29 3a 43 25 3d 38 0d  |lptext(38):C%=8.|
000044c0  16 44 14 20 7f 20 f2 68  65 6c 70 74 65 78 74 28  |.D. . .helptext(|
000044d0  39 39 29 0d 16 4e 06 20  cb 0d 16 58 10 20 c9 20  |99)..N. ...X. . |
000044e0  31 20 3a c8 8e 20 b9 20  ca 0d 16 62 30 20 c9 20  |1 :.. . ...b0 . |
000044f0  a4 69 6e 62 6f 78 28 32  32 34 2c 6b 25 2c 32 37  |.inbox(224,k%,27|
00004500  32 2c 68 25 29 3a f2 68  65 6c 70 74 65 78 74 28  |2,h%):.helptext(|
00004510  33 34 29 3a 43 25 3d 31  32 0d 16 6c 30 20 c9 20  |34):C%=12..l0 . |
00004520  a4 69 6e 62 6f 78 28 32  39 32 2c 6b 25 2c 33 33  |.inbox(292,k%,33|
00004530  38 2c 68 25 29 3a f2 68  65 6c 70 74 65 78 74 28  |8,h%):.helptext(|
00004540  33 33 29 3a 43 25 3d 31  33 0d 16 76 06 20 cb 0d  |33):C%=13..v. ..|
00004550  16 80 06 20 cb 0d 16 8a  0c 20 c8 8e 20 5a 25 20  |... ..... .. Z% |
00004560  ca 0d 16 94 10 20 c9 20  31 20 3a c8 8e 20 b9 20  |..... . 1 :.. . |
00004570  ca 0d 16 9e 3c 20 c9 20  43 25 3d 31 32 3a 6a 25  |....< . C%=12:j%|
00004580  2d 3d 35 3a e7 20 6a 25  3c 31 20 6a 25 3d 6c 63  |-=5:. j%<1 j%=lc|
00004590  74 3a f2 64 69 73 70 6c  61 79 28 6a 25 29 20 8b  |t:.display(j%) .|
000045a0  20 f2 64 69 73 70 6c 61  79 28 6a 25 29 0d 16 a8  | .display(j%)...|
000045b0  3c 20 c9 20 43 25 3d 31  33 3a 6a 25 2b 3d 35 3a  |< . C%=13:j%+=5:|
000045c0  e7 20 6a 25 3e 6c 63 74  20 6a 25 3d 31 3a f2 64  |. j%>lct j%=1:.d|
000045d0  69 73 70 6c 61 79 28 6a  25 29 20 8b 20 f2 64 69  |isplay(j%) . .di|
000045e0  73 70 6c 61 79 28 6a 25  29 0d 16 b2 06 20 cb 0d  |splay(j%).... ..|
000045f0  16 bc 0f 20 c9 20 34 3a  c8 8e 20 b9 20 ca 0d 16  |... . 4:.. . ...|
00004600  c6 3b 20 c9 20 43 25 3d  31 3a 6a 25 2d 3d 31 3a  |.; . C%=1:j%-=1:|
00004610  e7 20 6a 25 3c 31 20 6a  25 3d 6c 63 74 3a f2 64  |. j%<1 j%=lct:.d|
00004620  69 73 70 6c 61 79 28 6a  25 29 20 8b 20 f2 64 69  |isplay(j%) . .di|
00004630  73 70 6c 61 79 28 6a 25  29 0d 16 d0 3b 20 c9 20  |splay(j%)...; . |
00004640  43 25 3d 32 3a 6a 25 2b  3d 31 3a e7 20 6a 25 3e  |C%=2:j%+=1:. j%>|
00004650  6c 63 74 20 6a 25 3d 31  3a f2 64 69 73 70 6c 61  |lct j%=1:.displa|
00004660  79 28 6a 25 29 20 8b 20  f2 64 69 73 70 6c 61 79  |y(j%) . .display|
00004670  28 6a 25 29 0d 16 da 3b  20 c9 20 43 25 3d 33 3a  |(j%)...; . C%=3:|
00004680  6a 25 2d 3d 35 3a e7 20  6a 25 3c 31 20 6a 25 3d  |j%-=5:. j%<1 j%=|
00004690  6c 63 74 3a f2 64 69 73  70 6c 61 79 28 6a 25 29  |lct:.display(j%)|
000046a0  20 8b 20 f2 64 69 73 70  6c 61 79 28 6a 25 29 0d  | . .display(j%).|
000046b0  16 e4 3b 20 c9 20 43 25  3d 34 3a 6a 25 2b 3d 35  |..; . C%=4:j%+=5|
000046c0  3a e7 20 6a 25 3e 6c 63  74 20 6a 25 3d 31 3a f2  |:. j%>lct j%=1:.|
000046d0  64 69 73 70 6c 61 79 28  6a 25 29 20 8b 20 f2 64  |display(j%) . .d|
000046e0  69 73 70 6c 61 79 28 6a  25 29 0d 16 ee 17 20 c9  |isplay(j%).... .|
000046f0  20 43 25 3d 35 3a f2 64  65 6c 65 74 65 28 6a 25  | C%=5:.delete(j%|
00004700  29 0d 16 f8 19 20 c9 20  43 25 3d 36 3a f2 65 64  |).... . C%=6:.ed|
00004710  69 74 77 6f 72 64 28 6a  25 29 0d 17 02 14 20 c9  |itword(j%).... .|
00004720  20 43 25 3d 37 3a 6c 65  61 76 65 25 3d 31 0d 17  | C%=7:leave%=1..|
00004730  0c 23 20 c9 20 43 25 3d  38 3a f2 65 64 69 74 74  |.# . C%=8:.editt|
00004740  69 74 6c 65 3a f2 64 69  73 70 6c 61 79 28 6a 25  |itle:.display(j%|
00004750  29 0d 17 16 06 20 cb 0d  17 20 06 20 cb 0d 17 2a  |).... ... . ...*|
00004760  0f 20 fd 20 6c 65 61 76  65 25 3d 31 0d 17 34 0e  |. . leave%=1..4.|
00004770  20 63 6f 75 6e 74 3d 6c  63 74 0d 17 3e 1e 20 ef  | count=lct..>. .|
00004780  32 34 2c 38 32 3b 31 39  36 3b 39 34 30 3b 38 30  |24,82;196;940;80|
00004790  36 3b 3a da 3a ef 32 36  0d 17 48 17 20 c8 97 20  |6;:.:.26..H. .. |
000047a0  c8 93 30 2c 30 2c 31 32  37 39 2c 31 30 32 33 0d  |..0,0,1279,1023.|
000047b0  17 52 06 20 e1 0d 17 5c  06 20 3a 0d 17 66 12 20  |.R. ...\. :..f. |
000047c0  dd f2 64 69 73 70 6c 61  79 28 6a 25 29 0d 17 70  |..display(j%)..p|
000047d0  0e 20 fb 20 31 32 38 3a  fb 20 37 0d 17 7a 20 20  |. . 128:. 7..z  |
000047e0  e7 20 6c 63 74 3c 37 20  f2 73 6d 61 6c 6c 64 69  |. lct<7 .smalldi|
000047f0  73 70 6c 61 79 28 6a 25  29 3a e1 0d 17 84 89 20  |splay(j%):..... |
00004800  e7 20 6a 25 2d 33 3e 30  20 8c 20 f1 8a 31 34 2c  |. j%-3>0 . ..14,|
00004810  38 29 3b 22 57 6f 72 64  20 4e 6f 2e 20 22 3b 6a  |8);"Word No. ";j|
00004820  25 2d 33 3b 22 20 22 3a  f1 8a 32 38 2c 38 29 3b  |%-3;" ":..28,8);|
00004830  77 6f 72 64 24 28 6a 25  2d 33 29 3b 70 64 24 20  |word$(j%-3);pd$ |
00004840  8b 20 f1 8a 31 34 2c 38  29 3b 22 57 6f 72 64 20  |. ..14,8);"Word |
00004850  4e 6f 2e 20 22 3b 28 28  6c 63 74 2d 33 29 2b 6a  |No. ";((lct-3)+j|
00004860  25 29 3b 22 20 22 3a f1  8a 32 38 2c 38 29 3b 77  |%);" ":..28,8);w|
00004870  6f 72 64 24 28 28 6c 63  74 2d 33 29 2b 6a 25 29  |ord$((lct-3)+j%)|
00004880  3b 70 64 24 0d 17 8e 8c  20 e7 20 6a 25 2d 32 3e  |;pd$.... . j%-2>|
00004890  30 20 8c 20 f1 8a 31 34  2c 31 30 29 3b 22 57 6f  |0 . ..14,10);"Wo|
000048a0  72 64 20 4e 6f 2e 20 22  3b 6a 25 2d 32 3b 22 20  |rd No. ";j%-2;" |
000048b0  22 3a f1 8a 32 38 2c 31  30 29 3b 77 6f 72 64 24  |":..28,10);word$|
000048c0  28 6a 25 2d 32 29 3b 70  64 24 20 8b 20 f1 8a 31  |(j%-2);pd$ . ..1|
000048d0  34 2c 31 30 29 3b 22 57  6f 72 64 20 4e 6f 2e 20  |4,10);"Word No. |
000048e0  22 3b 28 28 6c 63 74 2d  32 29 2b 6a 25 29 3b 22  |";((lct-2)+j%);"|
000048f0  20 22 3a f1 8a 32 38 2c  31 30 29 77 6f 72 64 24  | ":..28,10)word$|
00004900  28 28 6c 63 74 2d 32 29  2b 6a 25 29 3b 70 64 24  |((lct-2)+j%);pd$|
00004910  0d 17 98 8d 20 e7 20 6a  25 2d 31 3e 30 20 8c 20  |.... . j%-1>0 . |
00004920  f1 8a 31 34 2c 31 32 29  3b 22 57 6f 72 64 20 4e  |..14,12);"Word N|
00004930  6f 2e 20 22 3b 6a 25 2d  31 3b 22 20 22 3a f1 8a  |o. ";j%-1;" ":..|
00004940  32 38 2c 31 32 29 3b 77  6f 72 64 24 28 6a 25 2d  |28,12);word$(j%-|
00004950  31 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 31 32  |1);pd$ . ..14,12|
00004960  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004970  6c 63 74 2d 31 29 2b 6a  25 29 3b 22 20 22 3a f1  |lct-1)+j%);" ":.|
00004980  8a 32 38 2c 31 32 29 3b  77 6f 72 64 24 28 28 6c  |.28,12);word$((l|
00004990  63 74 2d 31 29 2b 6a 25  29 3b 70 64 24 0d 17 a2  |ct-1)+j%);pd$...|
000049a0  40 20 fb 20 31 30 3a f1  8a 31 34 2c 31 34 29 3b  |@ . 10:..14,14);|
000049b0  22 57 6f 72 64 20 4e 6f  2e 20 22 3b 6a 25 3b 22  |"Word No. ";j%;"|
000049c0  20 22 3a f1 8a 32 38 2c  31 34 29 3b 77 6f 72 64  | ":..28,14);word|
000049d0  24 28 6a 25 29 3b 70 64  24 3a fb 20 37 0d 17 ac  |$(j%);pd$:. 7...|
000049e0  90 20 e7 20 6a 25 2b 31  3c 3d 6c 63 74 20 8c 20  |. . j%+1<=lct . |
000049f0  f1 8a 31 34 2c 31 36 29  3b 22 57 6f 72 64 20 4e  |..14,16);"Word N|
00004a00  6f 2e 20 22 3b 6a 25 2b  31 3b 22 20 22 3a f1 8a  |o. ";j%+1;" ":..|
00004a10  32 38 2c 31 36 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,16);word$(j%+|
00004a20  31 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 31 36  |1);pd$ . ..14,16|
00004a30  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004a40  6a 25 2d 6c 63 74 29 2b  31 29 3b 22 20 22 3a f1  |j%-lct)+1);" ":.|
00004a50  8a 32 38 2c 31 36 29 3b  77 6f 72 64 24 28 28 6a  |.28,16);word$((j|
00004a60  25 2d 6c 63 74 29 2b 31  29 3b 70 64 24 0d 17 b6  |%-lct)+1);pd$...|
00004a70  90 20 e7 20 6a 25 2b 32  3c 3d 6c 63 74 20 8c 20  |. . j%+2<=lct . |
00004a80  f1 8a 31 34 2c 31 38 29  3b 22 57 6f 72 64 20 4e  |..14,18);"Word N|
00004a90  6f 2e 20 22 3b 6a 25 2b  32 3b 22 20 22 3a f1 8a  |o. ";j%+2;" ":..|
00004aa0  32 38 2c 31 38 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,18);word$(j%+|
00004ab0  32 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 31 38  |2);pd$ . ..14,18|
00004ac0  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004ad0  6a 25 2d 6c 63 74 29 2b  32 29 3b 22 20 22 3a f1  |j%-lct)+2);" ":.|
00004ae0  8a 32 38 2c 31 38 29 3b  77 6f 72 64 24 28 28 6a  |.28,18);word$((j|
00004af0  25 2d 6c 63 74 29 2b 32  29 3b 70 64 24 0d 17 c0  |%-lct)+2);pd$...|
00004b00  90 20 e7 20 6a 25 2b 33  3c 3d 6c 63 74 20 8c 20  |. . j%+3<=lct . |
00004b10  f1 8a 31 34 2c 32 30 29  3b 22 57 6f 72 64 20 4e  |..14,20);"Word N|
00004b20  6f 2e 20 22 3b 6a 25 2b  33 3b 22 20 22 3a f1 8a  |o. ";j%+3;" ":..|
00004b30  32 38 2c 32 30 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,20);word$(j%+|
00004b40  33 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 32 30  |3);pd$ . ..14,20|
00004b50  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004b60  6a 25 2d 6c 63 74 29 2b  33 29 3b 22 20 22 3a f1  |j%-lct)+3);" ":.|
00004b70  8a 32 38 2c 32 30 29 3b  77 6f 72 64 24 28 28 6a  |.28,20);word$((j|
00004b80  25 2d 6c 63 74 29 2b 33  29 3b 70 64 24 0d 17 ca  |%-lct)+3);pd$...|
00004b90  1f 20 e7 20 43 25 3c 35  20 8c 20 f5 3a c8 97 20  |. . C%<5 . .:.. |
00004ba0  58 2c 59 2c 72 25 3a fd  72 25 3d 30 0d 17 d4 14  |X,Y,r%:.r%=0....|
00004bb0  20 e7 20 43 25 3e 31 30  20 8c 49 3d a6 28 35 29  | . C%>10 .I=.(5)|
00004bc0  0d 17 de 06 20 e1 0d 17  e8 06 20 3a 0d 17 f2 17  |.... ..... :....|
00004bd0  20 dd f2 73 6d 61 6c 6c  64 69 73 70 6c 61 79 28  | ..smalldisplay(|
00004be0  6a 25 29 0d 17 fc 1a 20  e7 20 6c 63 74 3d 30 20  |j%).... . lct=0 |
00004bf0  84 20 63 6f 75 6e 74 3d  30 20 8c 20 e1 0d 18 06  |. count=0 . ....|
00004c00  40 20 fb 20 31 30 3a f1  8a 31 34 2c 31 34 29 3b  |@ . 10:..14,14);|
00004c10  22 57 6f 72 64 20 4e 6f  2e 20 22 3b 6a 25 3b 22  |"Word No. ";j%;"|
00004c20  20 22 3a f1 8a 32 38 2c  31 34 29 3b 77 6f 72 64  | ":..28,14);word|
00004c30  24 28 6a 25 29 3b 70 64  24 3a fb 20 37 0d 18 10  |$(j%);pd$:. 7...|
00004c40  10 20 e7 20 6c 63 74 3d  31 20 8c 20 e1 0d 18 1a  |. . lct=1 . ....|
00004c50  90 20 e7 20 6a 25 2b 31  3c 3d 6c 63 74 20 8c 20  |. . j%+1<=lct . |
00004c60  f1 8a 31 34 2c 31 36 29  3b 22 57 6f 72 64 20 4e  |..14,16);"Word N|
00004c70  6f 2e 20 22 3b 6a 25 2b  31 3b 22 20 22 3a f1 8a  |o. ";j%+1;" ":..|
00004c80  32 38 2c 31 36 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,16);word$(j%+|
00004c90  31 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 31 36  |1);pd$ . ..14,16|
00004ca0  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004cb0  6a 25 2d 6c 63 74 29 2b  31 29 3b 22 20 22 3a f1  |j%-lct)+1);" ":.|
00004cc0  8a 32 38 2c 31 36 29 3b  77 6f 72 64 24 28 28 6a  |.28,16);word$((j|
00004cd0  25 2d 6c 63 74 29 2b 31  29 3b 70 64 24 0d 18 24  |%-lct)+1);pd$..$|
00004ce0  20 20 e7 20 6c 63 74 3d  32 3a f5 3a c8 97 20 58  |  . lct=2:.:.. X|
00004cf0  2c 59 2c 72 25 3a fd 72  25 3d 30 3a e1 0d 18 2e  |,Y,r%:.r%=0:....|
00004d00  90 20 e7 20 6a 25 2b 32  3c 3d 6c 63 74 20 8c 20  |. . j%+2<=lct . |
00004d10  f1 8a 31 34 2c 31 38 29  3b 22 57 6f 72 64 20 4e  |..14,18);"Word N|
00004d20  6f 2e 20 22 3b 6a 25 2b  32 3b 22 20 22 3a f1 8a  |o. ";j%+2;" ":..|
00004d30  32 38 2c 31 38 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,18);word$(j%+|
00004d40  32 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 31 38  |2);pd$ . ..14,18|
00004d50  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004d60  6a 25 2d 6c 63 74 29 2b  32 29 3b 22 20 22 3a f1  |j%-lct)+2);" ":.|
00004d70  8a 32 38 2c 31 38 29 3b  77 6f 72 64 24 28 28 6a  |.28,18);word$((j|
00004d80  25 2d 6c 63 74 29 2b 32  29 3b 70 64 24 0d 18 38  |%-lct)+2);pd$..8|
00004d90  20 20 e7 20 6c 63 74 3d  33 3a f5 3a c8 97 20 58  |  . lct=3:.:.. X|
00004da0  2c 59 2c 72 25 3a fd 72  25 3d 30 3a e1 0d 18 42  |,Y,r%:.r%=0:...B|
00004db0  90 20 e7 20 6a 25 2b 33  3c 3d 6c 63 74 20 8c 20  |. . j%+3<=lct . |
00004dc0  f1 8a 31 34 2c 32 30 29  3b 22 57 6f 72 64 20 4e  |..14,20);"Word N|
00004dd0  6f 2e 20 22 3b 6a 25 2b  33 3b 22 20 22 3a f1 8a  |o. ";j%+3;" ":..|
00004de0  32 38 2c 32 30 29 3b 77  6f 72 64 24 28 6a 25 2b  |28,20);word$(j%+|
00004df0  33 29 3b 70 64 24 20 8b  20 f1 8a 31 34 2c 32 30  |3);pd$ . ..14,20|
00004e00  29 3b 22 57 6f 72 64 20  4e 6f 2e 20 22 3b 28 28  |);"Word No. ";((|
00004e10  6a 25 2d 6c 63 74 29 2b  33 29 3b 22 20 22 3a f1  |j%-lct)+3);" ":.|
00004e20  8a 32 38 2c 32 30 29 3b  77 6f 72 64 24 28 28 6a  |.28,20);word$((j|
00004e30  25 2d 6c 63 74 29 2b 33  29 3b 70 64 24 0d 18 4c  |%-lct)+3);pd$..L|
00004e40  22 20 e7 20 6c 63 74 3c  35 20 8c 20 f5 3a c8 97  |" . lct<5 . .:..|
00004e50  20 58 2c 59 2c 72 25 3a  fd 72 25 3d 30 3a e1 0d  | X,Y,r%:.r%=0:..|
00004e60  18 56 8d 20 e7 20 6a 25  2d 31 3e 30 20 8c 20 f1  |.V. . j%-1>0 . .|
00004e70  8a 31 34 2c 31 32 29 3b  22 57 6f 72 64 20 4e 6f  |.14,12);"Word No|
00004e80  2e 20 22 3b 6a 25 2d 31  3b 22 20 22 3a f1 8a 32  |. ";j%-1;" ":..2|
00004e90  38 2c 31 32 29 3b 77 6f  72 64 24 28 6a 25 2d 31  |8,12);word$(j%-1|
00004ea0  29 3b 70 64 24 20 8b 20  f1 8a 31 34 2c 31 32 29  |);pd$ . ..14,12)|
00004eb0  3b 22 57 6f 72 64 20 4e  6f 2e 20 22 3b 28 28 6c  |;"Word No. ";((l|
00004ec0  63 74 2d 31 29 2b 6a 25  29 3b 22 20 22 3a f1 8a  |ct-1)+j%);" ":..|
00004ed0  32 38 2c 31 32 29 3b 77  6f 72 64 24 28 28 6c 63  |28,12);word$((lc|
00004ee0  74 2d 31 29 2b 6a 25 29  3b 70 64 24 0d 18 60 22  |t-1)+j%);pd$..`"|
00004ef0  20 e7 20 6c 63 74 3c 36  20 8c 20 f5 3a c8 97 20  | . lct<6 . .:.. |
00004f00  58 2c 59 2c 72 25 3a fd  72 25 3d 30 3a e1 0d 18  |X,Y,r%:.r%=0:...|
00004f10  6a 8c 20 e7 20 6a 25 2d  32 3e 30 20 8c 20 f1 8a  |j. . j%-2>0 . ..|
00004f20  31 34 2c 31 30 29 3b 22  57 6f 72 64 20 4e 6f 2e  |14,10);"Word No.|
00004f30  20 22 3b 6a 25 2d 32 3b  22 20 22 3a f1 8a 32 38  | ";j%-2;" ":..28|
00004f40  2c 31 30 29 3b 77 6f 72  64 24 28 6a 25 2d 32 29  |,10);word$(j%-2)|
00004f50  3b 70 64 24 20 8b 20 f1  8a 31 34 2c 31 30 29 3b  |;pd$ . ..14,10);|
00004f60  22 57 6f 72 64 20 4e 6f  2e 20 22 3b 28 28 6c 63  |"Word No. ";((lc|
00004f70  74 2d 32 29 2b 6a 25 29  3b 22 20 22 3a f1 8a 32  |t-2)+j%);" ":..2|
00004f80  38 2c 31 30 29 77 6f 72  64 24 28 28 6c 63 74 2d  |8,10)word$((lct-|
00004f90  32 29 2b 6a 25 29 3b 70  64 24 0d 18 74 22 20 e7  |2)+j%);pd$..t" .|
00004fa0  20 6c 63 74 3c 37 20 8c  20 f5 3a c8 97 20 58 2c  | lct<7 . .:.. X,|
00004fb0  59 2c 72 25 3a fd 72 25  3d 30 3a e1 0d 18 7e 89  |Y,r%:.r%=0:...~.|
00004fc0  20 e7 20 6a 25 2d 33 3e  30 20 8c 20 f1 8a 31 34  | . j%-3>0 . ..14|
00004fd0  2c 38 29 3b 22 57 6f 72  64 20 4e 6f 2e 20 22 3b  |,8);"Word No. ";|
00004fe0  6a 25 2d 33 3b 22 20 22  3a f1 8a 32 38 2c 38 29  |j%-3;" ":..28,8)|
00004ff0  3b 77 6f 72 64 24 28 6a  25 2d 33 29 3b 70 64 24  |;word$(j%-3);pd$|
00005000  20 8b 20 f1 8a 31 34 2c  38 29 3b 22 57 6f 72 64  | . ..14,8);"Word|
00005010  20 4e 6f 2e 20 22 3b 28  28 6c 63 74 2d 33 29 2b  | No. ";((lct-3)+|
00005020  6a 25 29 3b 22 20 22 3a  f1 8a 32 38 2c 38 29 3b  |j%);" ":..28,8);|
00005030  77 6f 72 64 24 28 28 6c  63 74 2d 33 29 2b 6a 25  |word$((lct-3)+j%|
00005040  29 3b 70 64 24 0d 18 88  1f 20 e7 20 43 25 3c 35  |);pd$.... . C%<5|
00005050  20 8c 20 f5 3a c8 97 20  58 2c 59 2c 72 25 3a fd  | . .:.. X,Y,r%:.|
00005060  72 25 3d 30 0d 18 92 14  20 e7 20 43 25 3e 31 30  |r%=0.... . C%>10|
00005070  20 8c 49 3d a6 28 35 29  0d 18 9c 06 20 e1 0d ff  | .I=.(5).... ...|
00005080