ݤmainW_:=�window("Main")
<ݤdummy_:=�
Zݤm_:Ȏ$mn%�
d$�"Dfg":�Return_%=0�tMIx("Dfg",0)
x�Return_%=1�tMIx("Dfg",1)
��Return_%=2�tMIx("Dfg",2)
�4�"A":�ovrM("non"):�gWx("Words")�closeW(Words_%)
�$�gWx("Phrases")�closeW(Phras_%)
��M_$="English"=�English_
��M_$="Maths"=�Maths_
��M_$="Science"=�Science_
��M_$="Tech"=�Technology_
��M_$="Hist"=�History_
��M_$="Geog"=�Geography_
��M_$="Music"=�Music_
��M_$="PE"=�PE_

�M_$="Art"=�Art_

�M_$="RE"=�RE_

�M_$="PS"=�PS_

"

,��"Date":�getdate:d1_$=�d1:�pMI("Date",0,d1_$):�getdate:d2_$=�d2:�pMI("Date",1,d2_$):�getdate:d3_$=�d3:�pMI("Date",2,d3_$):�user_$<>""�pMI("Date",3,user_$)��pMI("Date",3,"No user choice entered")

^�Date1_�tMIx("Date",0)

h�Date2_�tMIx("Date",1)

r�Date3_�tMIx("Date",2)

|�Date4_�tMIx("Date",3)

�

��"Edditor":�editor

�U�"PhEditor":笤gWx("Words")���gWx("Phrases")�M_$<>"RE"�M_$<>"PS"�ovrM("NonExist")

�#�gWx("Words")�ovrM("WoEditor")

��:=�

�ݤsm_:Ȏ$mn%�

�h�"RE":�pMI("RE",0,RE1_$):�pMI("RE",1,RE2_$):�pMI("RE",2,RE3_$):�pMI("RE",3,RE4_$):�pMI("RE",4,RE5_$)
0h�"PS":�pMI("PS",0,PS1_$):�pMI("PS",1,PS2_$):�pMI("PS",2,PS3_$):�pMI("PS",3,PS4_$):�pMI("PS",4,PS5_$)
l�:=�
�
ݤsma_:=�
�ݤw_:Ȏ$wn%�
�
�+�"Subjects":Subjects_%=�fWS("Subjects")
��"EngM":EngM_%=�fWS("EngM")
��"ScM":ScM_%=�fWS("ScM")
��"TecM":TecM_%=�fWS("TecM")
��"HsM":HsM_%=�fWS("HsM")
�"GeoM":GeoM_%=�fWS("GeoM")
�"ArtM":ArtM_%=�fWS("ArtM")
�"MuM":MuM_%=�fWS("MuM")
 �"PeM":PeM_%=�fWS("PeM")
*�"MaM":MaM_%=�fWS("MaM")
4b�"ReM":ReM_%=�fWS("ReM"):$!RE1_%=RE1_$:$!RE2_%=RE2_$:$!RE3_%=RE3_$:$!RE4_%=RE4_$:$!RE5_%=RE5_$
Hb�"PsM":PsM_%=�fWS("PsM"):$!PS1_%=PS1_$:$!PS2_%=PS2_$:$!PS3_%=PS3_$:$!PS4_%=PS4_$:$!PS5_%=PS5_$
zT�"Main":Main_%=�fWS("Main"):�Sex_$="F"�$!he_%="she":$!him_%="her":$!his_%="hers"
�6�Sex_$="M"�$!he_%="he":$!him_%="him":$!his_%="his"
��CAPS_=��sI(Main_%,"CAPS")
�<$!ShortName_%=ShortName_$:$!Level_%=�(Level_):�writedate
�4�"A":A_%=�fWS("A"):�gWx("Editor")�closeW(Edd_%)
�"�gWx("Words")�closeW(Words_%)
�$�gWx("Phrases")�closeW(Phras_%)
�#�gWx("Peditor")�closeW(Pedd_%)
�#�gWx("Weditor")�closeW(Wedd_%)
���pWT(N%,TitleA_$):found_%=�:line_%=�($!Level_%):search_$="Level "+�(line_%):�y_%=1�maxlines_%:�z_%=1��(line_$(y_%)):sa_$=�line_$(y_%),z_%,7):�sa_$=search_$ line_%=y_%-1:found_%=�
.�found_%=�line_%=0
8�:�:�updateA
LE�"Phrases":Phras_%=�fWS("Phrases"):�Phrases_%=1 phr_$="Phrases 1"
`"�Phrases_%=2 phr_$="Phrases 2"
j+�pWT(N%,phr_$):pline_%=0:�UpdatePhrases
~>�"Words":Words_%=�fWS("Words"):�Wordsy_%=1 wor_$="Words 1"
��Wordsy_%=2 wor_$="Words 2"
�)�pWT(N%,wor_$):wline_%=0:�UpdateWords
�S�"Name":Name_%=�fWS("Name"):$!NameIn_%=ShortName_$:�Sex_$="M"�sI(Name_%,"Male")
�"�Sex_$="F"�sI(Name_%,"Female")
�E�"Editor":Edd_%=�fWS("Editor"):$!Editor_%=get_$:read_$=$!Editor_%
�J�"Peditor":Pedd_%=�fWS("Peditor"):$!Peditor_%=get_$:read_$=$!Peditor_%
�J�"Weditor":Wedd_%=�fWS("Weditor"):$!Weditor_%=get_$:read_$=$!Weditor_%

5�"MenuEdit":MenuEdit_%=�fWS("MenuEdit"):�RE_�upRE

�PS_�upPS
(K�"Choices":Choices_%=�fWS("Choices"):�message_%�sI(Choices_%,"Message")
< �open_%�sI(Choices_%,"Open")
F�:=�
d���UpdatePhrases:$!Ph1_%=phrase_$(pline_%+1):�rI(Phras_%,"Ph1"):$!Ph2_%=phrase_$(pline_%+2):�rI(Phras_%,"Ph2"):$!Ph3_%=phrase_$(pline_%+3):�rI(Phras_%,"Ph3"):$!Ph4_%=phrase_$(pline_%+4):�rI(Phras_%,"Ph4")
�4$!Ph5_%=phrase_$(pline_%+5):�rI(Phras_%,"Ph5"):�
����UpdateWords:$!Wo1_%=word_$(wline_%+1):�rI(Words_%,"Wo1"):$!Wo2_%=word_$(wline_%+2):�rI(Words_%,"Wo2"):$!Wo3_%=word_$(wline_%+3):�rI(Words_%,"Wo3"):$!Wo4_%=word_$(wline_%+4):�rI(Words_%,"Wo4")
�2$!Wo5_%=word_$(wline_%+5):�rI(Words_%,"Wo5"):�
"ݤb_:=�
Jݤe_:=�
hݤpK_:=�
�ݤh_:Ȏ$wn%�
�F�"Main":="This is the main window of the 'New_Appln' application."
�U�:�!h%=-2�="This is the 'New_Appln' icon.|MClick SELECT to open the main window."
�=""
�ݤrM_:=�
�ݤrB_:=�
�ݤpB_:=�
b�ݤi_(A$,B%):�A%,C$:Return_%=0:M_$="":send_%=�:Sex_$="M":temp_$="":queer_$="Click on !RepData to let Report Writer know where to find the Statements.":message_%=�:open_%=�:open$="<rh_>.Menus.PS":x_=�open$
���#x_,PS1_$,PS2_$,PS3_$,PS4_$,PS5_$:�#x_:open$="<rh_>.Menus.R":x_=�open$:�#x_,Return_%:�#x_:open$="<rh_>.Menus.RE":x_=�open$:�#x_,RE1_$,RE2_$,RE3_$,RE4_$,RE5_$:�#x_:open$="<rh_>.Menus.M":x_=�open$:�#x_,message_%,open_%:�#x_
���Pnt%&256,Fpoll%256:�buf_% 256:window_%=0:line_%=0:Date1_=�:Date2_=�:Date3_=�:Date4_=�:user_$="":�Month_$(12,1):�+1:�month_=1�12:�Month_$(month_,0),Month_$(month_,1):�
�� Jan,January,Feb,February,Mar,March,Apr,April,May,May,Jun,June,Jul,July,Aug,August,Sep,September,Oct,October,Nov,November,Dec,December
�<�Day_$(7,1):�+1:�day_=1�7:�Day_$(day_,0),Day_$(day_,1):�
	Z� Mon,Monday,Tue,Tuesday,Wed,Wednesday,Thu,Thursday,Fri,Friday,Sat,Saturday,Sun,Sunday
	�maxy_%=80:maxylines_%=160:maxuser_%=maxy_%:maxlines_%=maxylines_%:maxphrases_%=maxy_%:maxwords_%=maxy_%:TitleA_$="":�line_$(maxlines_%),lline_$(maxlines_%),phrase_$(maxphrases_%),word_$(maxwords_%),wird_$(100):mask%=&1832
	tkCAPS_=�:caps_=�:ShortName_$="Peter":Level_=1:Edd_%=0:Main_%=0:A_%=0:Phras_%=0:Words_%=0:�iRes(A$,B%):=�
	�1��shut:�sut:�gWx("Peditor")��gWx("Weditor")�
<"�gWx("Words")�closeW(Words_%)
F$�gWx("Phrases")�closeW(Phras_%)
P�
d2ݤa1_:dunk_=1:tt_$=$!a1_%:�shut:�send(tt_$):=�
n2ݤa2_:dunk_=2:tt_$=$!a2_%:�shut:�send(tt_$):=�
x2ݤa3_:dunk_=3:tt_$=$!a3_%:�shut:�send(tt_$):=�
�2ݤa4_:dunk_=4:tt_$=$!a4_%:�shut:�send(tt_$):=�
�2ݤa5_:dunk_=5:tt_$=$!a5_%:�shut:�send(tt_$):=�
�/ݤPh1_:dunk_=1:pp_$=$!Ph1_%:�psend(pp_$):=�
�/ݤPh2_:dunk_=2:pp_$=$!Ph2_%:�psend(pp_$):=�
�/ݤPh3_:dunk_=3:pp_$=$!Ph3_%:�psend(pp_$):=�
�/ݤPh4_:dunk_=4:pp_$=$!Ph4_%:�psend(pp_$):=�
�/ݤPh5_:dunk_=5:pp_$=$!Ph5_%:�psend(pp_$):=�
�/ݤWo1_:dunk_=1:dd_$=$!Wo1_%:�wsend(dd_$):=�
�/ݤWo2_:dunk_=2:dd_$=$!Wo2_%:�wsend(dd_$):=�
�/ݤWo3_:dunk_=3:dd_$=$!Wo3_%:�wsend(dd_$):=�
�/ݤWo4_:dunk_=4:dd_$=$!Wo4_%:�wsend(dd_$):=�
/ݤWo5_:dunk_=5:dd_$=$!Wo5_%:�wsend(dd_$):=�
ݤcannot_:�mouse=1�=�
"�ssend("cannot yet"):=�
,ݤcan_:�mouse=1�=�
6�ssend("can"):=�
@ݤand_:�mouse=1�=�
J�ssend("and"):=�
Tݤbut_:�mouse=1�=�
^�ssend("but"):=�
hݤor_:�mouse=1�=�
r�ssend("or"):=�
|ݤable_:�mouse=1�=�
��ssend("is able to"):=�
�ݤnotable_:�mouse=1�=�
�#�ssend("is not yet able to"):=�
�ݤstop_:�mouse=1�=�
�-�ssend("."):CAPS_=�:�sI(Main_%,"CAPS"):=�
�ݤcom_:�mouse=1�=�
��ssend(","):=�
�ݤs_:�mouse=1�=�
��ssend("s"):=�
�ݤap_:�mouse=1�=�
��ssend("'s"):=�
�ݤhis_:�mouse=1�=�
�0�Sex_$="M"�ssend("his"):=���ssend("hers"):=�
ݤhim_:�mouse=1�=�
/�Sex_$="M"�ssend("him"):=���ssend("her"):=�
ݤhe_:�mouse=1�=�
&.�Sex_$="M"�ssend("he"):=���ssend("she"):=�
0;ݤCAPS_:�CAPS_=��CAPS_=�:caps_=�:�usI(Main_%,"CAPS"):=�
D2�CAPS_=��CAPS_=�:caps_=�:�sI(Main_%,"CAPS"):=�
N
X0ݤShortName_:�mouse=4�ssend(ShortName_$):=�
l]�window_%=0�ș262355,,buf_%:window_%=!buf_%:icon_%=buf_%!4:posx_%=buf_%!8:posy_%=buf_%!12
v!�mouse=1�z_%=�window("Name")
�=�
���ssend(ss_$):�CAPS_=��
�,caps_=�:�(�ss_$,1))>96��(�ss_$,1))<123�
�2z_=�(�ss_$,1)):z_=z_-32:z_$=�(z_):�ss_$,1)=z_$
�!�:CAPS_=�:�usI(Main_%,"CAPS")
�H�:temp_$=ss_$:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1

window_%=0:�cof_(ss_$):�

*ݤNameIn_:�getname:=�

>X��getname:ShortName_$=$!NameIn_%:$!ShortName_%=ShortName_$:�rI(Main_%,"ShortName"):�

R)ݤNameOK_:�getname:�closeW(Name_%):=�

f/ݤFemale_:�Sex_$="F"�sI(Name_%,"Female"):=�

zA�Sex_$="M" Sex_$="F":�sI(Name_%,"Female"):�usI(Name_%,"Male")

�e$!he_%="she":$!him_%="her":$!his_%="hers":�rI(Main_%,"he"):�rI(Main_%,"him"):�rI(Main_%,"his"):=�

�+ݤMale_:�Sex_$="M"�sI(Name_%,"Male"):=�

�A�Sex_$="F" Sex_$="M":�sI(Name_%,"Male"):�usI(Name_%,"Female")

�c$!he_%="he":$!him_%="him":$!his_%="his":�rI(Main_%,"he"):�rI(Main_%,"him"):�rI(Main_%,"his"):=�

�\��loadphrases(p_$):�:��:�=204�V_$=�alert(queer_$,"","OK","","",0):data_=�:�data_=�:�

�P�ph_%=1�maxphrases_%:phrase_$(ph_%)="":�:data_=�:�p_$="1" pp_$="i"�pp_$="ii"
popen$="<Data$Dir>.xii."+pp_$:ph_%=�open$:�ph_%=0�#ph_%:data_=�:V_$=�alert(queer_$,"","OK","","",0):data_=�:�
.?p_%=0:�:�getPH:p_%=p_%+1:phrase_$(p_%)=a_$:��#ph_%:�#ph_%:�
BZ��loadwords(p_$):�:��:�=204�V_$=�alert(queer_$,"","OK","","",0):data_=�:�data_=�:�
LL�ph_%=1�maxwords_%:word_$(ph_%)="":�:data_=�:�p_$="1" pp_$="i"�pp_$="ii"
`�open$="<Data$Dir>.xiii."+pp_$:ph_%=�open$:�ph_%=0�#ph_%:data_=�:queer_$="Click on !RepData to let Report Writer know where to find the Statements.":V_$=�alert(queer_$,"","OK","","",0):data_=�:�
~=p_%=0:�:�getPH:p_%=p_%+1:word_$(p_%)=a_$:��#ph_%:�#ph_%:�
�8ݤPhrases_:�sut:�gWx("Subjects")�closeW(Subjects_%)
� �gWx("Name")�closeW(Name_%)
�"�gWx("Words")�closeW(Words_%)
�!�gWx("Editor")�closeW(Edd_%)
�#�gWx("Peditor")�closeW(Pedd_%)
�#�gWx("Weditor")�closeW(Wedd_%)
��mouse=4�
�APhrases_%=1:�loadphrases("1"):�data_=��=�window("Phrases")�=�
�:�mouse=1�
APhrases_%=2:�loadphrases("2"):�data_=��=�window("Phrases")�=�
(�:=�
<6ݤWords_:�sut:�gWx("Subjects")�closeW(Subjects_%)
Z �gWx("Name")�closeW(Name_%)
d$�gWx("Phrases")�closeW(Phras_%)
n!�gWx("Editor")�closeW(Edd_%)
x#�gWx("Peditor")�closeW(Pedd_%)
�#�gWx("Weditor")�closeW(Wedd_%)
��mouse=4�
�<Wordsy_%=1:�loadwords("1"):�data_=��=�window("Words")�=�
��:�mouse=1�
�<Wordsy_%=2:�loadwords("2"):�data_=��=�window("Words")�=�
��:=�
���checksex:�Sex_$="M"�
�rh_%=0:i_%=0:�:�getword_:i_%=i_%+1:wird_$(i_%)=z_$:�h_%>�(get_$):�Tt_=1�i_%:�wird_$(Tt_)="he" wird_$(Tt_)="she"
'�wird_$(Tt_)="He" wird_$(Tt_)="She"
"9�wird_$(Tt_)="his"�wird_$(Tt_)="him"wird_$(Tt_)="her"
,(�wird_$(Tt_)="His" wird_$(Tt_)="Her"
60�wird_$(Tt_)="himself" wird_$(Tt_)="herself"
@G�:get_$="":�g_%=1�i_%:get_$=get_$+wird_$(g_%)+" ":�:get_$=�get_$):�
hB��getword_:z_$="":�:h_%=h_%+1:�get_$,h_%,1)=" "�h_%>�(get_$)�
|;z_$=z_$+�get_$,h_%,1):��get_$,h_%,1)=" "�h_%>�(get_$):�
�]��cut:tro_%=0:se_%=�(get_$):�as_%=1��(get_$):�get_$,as_%,1)="]" tro_%=as_%:as_%=�(get_$)
�4�:�tro_%<>0 get_$=�get_$,tro_%+2,se_%-tro_%+2):�
���TitleA_$,4)="User"�
�&�(�get_$,1))>64��(�get_$,1))<123�
�:�M_$="RE"�M_$="PS"�
3�(�get_$,2,1))>91 get_$=�get_$,7,�(get_$)-6):�
&6�get_$,1,6)="      " get_$=�get_$,7,�(get_$)-6):�
04�get_$,1,4)="    " get_$=�get_$,5,�(get_$)-4):�
:3�get_$,1,3)="   " get_$=�get_$,4,�(get_$)-3):�
l�
�H��send(get_$):�:��:�=363�:�V_$=�alert(�$,�(�),"OK","","",0):�
�$�mouse=4�get_$="inserted line"�
�Fst_%=0:�rr_%=1��(get_$):�get_$,rr_%,13)="no NC example" st_%=rr_%
��:�st_%<>0�
��get_$,1)="*"��mouse=4��
�7�get_$=""�M_$<>"RE"�M_$<>"PS"��TitleA_$,4)<>"User"�
<�get_$,1)="*"�M_$<>"RE"�M_$<>"PS"��TitleA_$,4)<>"User"�
2�(�get_$,2,1))=143 get_$=�get_$,4,�(get_$)-3)
�mouse=4�cut
4:�mouse=1�M_$<>"RE"�M_$<>"PS"��TitleA_$,4)<>"User"�cut
>%�gWx("Peditor")��gWx("Weditor")�
H�gWx("Editor")��mouse=4�
Ri�gWx("Name")V_$=�alert("Finish working with the 'Name' screen and close it down.","","OK","","",0):�
\�checksex:�CAPS_=��
p.caps_=�:�(�get_$,1))>96��(�get_$,1))<123�
�4z_=�(�get_$,1)):z_=z_-32:z_$=�(z_):�get_$,1)=z_$
�!�:CAPS_=�:�usI(Main_%,"CAPS")
��:�mouse=1�
�&�caps_=�CAPS_=�:�sI(Main_%,"CAPS")
�]�window_%=0�ș262355,,buf_%:window_%=!buf_%:icon_%=buf_%!4:posx_%=buf_%!8:posy_%=buf_%!12
�e_%=�window("Editor"):�
I�:temp_$=get_$:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
$window_%=0:�cof_(get_$):�
LI��psend(get_$):�:��:�=363�:�V_$=�alert(�$,�(�),"OK","","",0):�
`�gWx("Peditor")��mouse=4��
ji�gWx("Name")V_$=�alert("Finish working with the 'Name' screen and close it down.","","OK","","",0):�
��checksex:�CAPS_=��
�.caps_=�:�(�get_$,1))>96��(�get_$,1))<123�
�4z_=�(�get_$,1)):z_=z_-32:z_$=�(z_):�get_$,1)=z_$
�!�:CAPS_=�:�usI(Main_%,"CAPS")

�:�mouse=1�
&�caps_=�CAPS_=�:�sI(Main_%,"CAPS")
2]�window_%=0�ș262355,,buf_%:window_%=!buf_%:icon_%=buf_%!4:posx_%=buf_%!8:posy_%=buf_%!12
FE_%=�window("Peditor"):�
Z<�:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
n*window_%=0:temp_$=get_$:�cof_(get_$):�
�I��wsend(get_$):�:��:�=363�:�V_$=�alert(�$,�(�),"OK","","",0):�
��gWx("Weditor")��mouse=4��
�i�gWx("Name")V_$=�alert("Finish working with the 'Name' screen and close it down.","","OK","","",0):�
�checksex:�CAPS_=��
.caps_=�:�(�get_$,1))>96��(�get_$,1))<123�
,4z_=�(�get_$,1)):z_=z_-32:z_$=�(z_):�get_$,1)=z_$
@!�:CAPS_=�:�usI(Main_%,"CAPS")
T�:�mouse=1�
h&�caps_=�CAPS_=�:�sI(Main_%,"CAPS")
|]�window_%=0�ș262355,,buf_%:window_%=!buf_%:icon_%=buf_%!4:posx_%=buf_%!8:posy_%=buf_%!12
�E_%=�window("Weditor"):�
�I�:temp_$=get_$:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
�window_%=0:�cof_(get_$):�
�/��pull_:�Lo_%=3 l_%=l_%+1:line_$(l_%)=a_$:�
�+�a_$,1)="*"l_%=l_%+1:line_$(l_%)=a_$:�
T�Lo_%=1��a_$,1)<>"*"��(�a_$,2,1))<91��(�a_$,2,1))>63 l_%=l_%+1:line_$(l_%)=a_$:�
S�Lo_%=1��a_$,1)<>"*"��a_$,1,4)="    "��a_$,5,1)<>" "l_%=l_%+1:line_$(l_%)=a_$:�
&U�Lo_%=2��a_$,1)<>"*"��(�a_$,4,1))>96��(�a_$,4,1))<123 l_%=l_%+1:line_$(l_%)=a_$:�
:F�Lo_%=2��a_$,1)<>"*"��a_$,1,6)="      "l_%=l_%+1:line_$(l_%)=a_$:�
D�
XX��load(load_$):�:��:�=204�V_$=�alert(queer_$,"","OK","","",0):data_=�:�data_=�:�
b)data_=�:�gWx("Editor")�closeW(Edd_%)
v��max_%=1�maxlines_%:line_$(max_%)="":�:Oopen$="<Data$Dir>."+load_$:x_=�Oopen$:�x_=0�#x_:V_$=�alert(queer_$,"","OK","","",0):data_=�:�
�)l_%=0:�:�getline_:�pull_:��#x_:�#x_:�
�ݤSendEd_:�mouse=4�=�
��$!Editor_%=""�=�
��$!Editor_%,1)="*"�=�
�.get_$=$!Editor_%:�get_$="inserted line"�=�
�Itro_%=0:�as_%=1��(get_$):�get_$,as_%,1)="]" tro_%=as_%:as_%=�(get_$)
6�:�tro_%<>0 get_$=�get_$,tro_%+2,�(get_$)-tro_%+2)
 _temp_$=get_$:send_%=�:�closeW(Edd_%):�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
R6window_%=0:�cof_(get_$):�gWx("Words")�oW(Words_%)
z �gWx("Phrases")�oW(Phras_%)
�isend_%=�:CAPS_=�:�usI(Main_%,"CAPS"):caps_=�:ș&400C7,mask%,Fpoll%�BB_%:�open_% z_%=�window("Editor")
�=�
�ݤPSendEd_:�mouse=4�=�
��$!Peditor_%=""�=�
�rget_$=$!Peditor_%:temp_$=get_$:send_%=�:�closeW(Pedd_%):�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
�6window_%=0:�cof_(get_$):�gWx("Words")�oW(Words_%)
$ �gWx("Phrases")�oW(Phras_%)
.jsend_%=�:CAPS_=�:�usI(Main_%,"CAPS"):caps_=�:ș&400C7,mask%,Fpoll%�BB_%:�open_% z_%=�window("Peditor")
V=�
jݤWSendEd_:�mouse=4�=�
t�$!Weditor_%=""�=�
~rget_$=$!Weditor_%:temp_$=get_$:send_%=�:�closeW(Wedd_%):�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
�6window_%=0:�cof_(get_$):�gWx("Words")�oW(Words_%)
� �gWx("Phrases")�oW(Phras_%)
�jsend_%=�:CAPS_=�:�usI(Main_%,"CAPS"):caps_=�:ș&400C7,mask%,Fpoll%�BB_%:�open_% z_%=�window("Weditor")
=�
���updateA:$!a1_%=line_$(line_%+1):�rI(A_%,"a1"):$!a2_%=line_$(line_%+2):�rI(A_%,"a2"):$!a3_%=line_$(line_%+3):�rI(A_%,"a3"):$!a4_%=line_$(line_%+4):�rI(A_%,"a4"):$!a5_%=line_$(line_%+5):�rI(A_%,"a5")
P$�gWx("EngM")z_%=�window("EngM")
Z"�gWx("MaM")z_%=�window("MaM")
d"�gWx("ScM")z_%=�window("ScM")
n$�gWx("TecM")z_%=�window("TecM")
x"�gWx("HsM")z_%=�window("HsM")
�$�gWx("GeoM")z_%=�window("GeoM")
�$�gWx("ArtM")z_%=�window("ArtM")
�"�gWx("MuM")z_%=�window("MuM")
�"�gWx("PeM")z_%=�window("PeM")
�"�gWx("ReM")z_%=�window("ReM")
�"�gWx("PsM")z_%=�window("PsM")
��
�'ݤUp_:�gWx("Phrases")�phrasesUp:=�
��gWx("Words")�WordsUp:=�
��M_$="RE"�REUp:=�
�M_$="PS"�PSUp:=�
�line_%+6>maxylines_%�=�
 ��TitleA_$,4)="User"�PSUp:=�
"笤gWx("A")�=�
,�mouse=1�
6Q�yy_%=line_%+2�maxlines_%:�line_$(yy_%),1)="*" line_%=yy_%-1:yy_%=maxlines_%
J�:�updateA:=�
^�:�line_$(line_%+6)=""�=�
rline_%=line_%+1:�updateA:=�
�(��phrasesUp:�phrase_$(pline_%+5)=""�
�&pline_%=pline_%+1:�UpdatePhrases:�
�"��REUp:�line_%+6>maxylines_%��
��line_$(line_%+5)=""�
�line_%=line_%+1:�updateA:�
�3��PSUp:�line_%+6>maxylines_%�ENDPROCE B F F G F
��line_$(line_%+5)=""�
line_%=line_%+1:�updateA:�
$��WordsUp:�word_$(wline_%+5)=""�
0$wline_%=wline_%+1:�UpdateWords:�
D+ݤDown_:�gWx("Phrases")�phrasesDown:=�
X�gWx("Words")�WordsDown:=�
b笤gWx("A")�=�
l�mouse=1�
�@�yy_%=line_%�1�-1:�line_$(yy_%),1)="*" line_%=yy_%-1:yy_%=1
��:�updateA:=�
��:�line_%=0�=�
�line_%=line_%-1:�updateA:=�
���phrasesDown:�pline_%=0�
�&pline_%=pline_%-1:�UpdatePhrases:�
��WordsDown:�wline_%=0�
 $wline_%=wline_%-1:�UpdateWords:�
4"ݤLevel_:�mouse=4�Level_=5�=�
H�mouse=1�Level_=1�=�
RH�mouse=4�Level_=Level_+1:$!Level_%=�(Level_):�rI(Main_%,"Level"):=�
\H�mouse=1�Level_=Level_-1:$!Level_%=�(Level_):�rI(Main_%,"Level"):=�
f=�
z:ݤsaveRE_:alt_=�:del_=�:re_=�:ps_=�:us_=�:�saveREPS:=�
�:ݤsavePS_:alt_=�:del_=�:ps_=�:re_=�:us_=�:�saveREPS:=�
�9ݤUsave_:alt_=�:del_=�:ps_=�:re_=�:us_=�:�saveREPS:=�
���mess:�re_ o_$="RE"
��ps_ o_$="PS"
��us_ o_$="User"
��alt_ oo_$="altered"
��del_ oo_$="deleted"
�]send_$=o_$+" statement "+oo_$+" and saved.":�message_% V_$=�alert(send_$,"","OK","","",0)
�
;ݤdeleteRE_:del_=�:alt_=�:re_=�:ps_=�:us_=�:�delREPS:=�
.;ݤdeletePS_:del_=�:alt_=�:ps_=�:re_=�:us_=�:�delREPS:=�
B:ݤUdelete_:del_=�:alt_=�:ps_=�:re_=�:us_=�:�delREPS:=�
VݤEditor_:=�
`ݤPeditor_:=�
j ݤWeditor_:=�:�V%:V%=�:ȎR%�
� �CloseW%:�W%=Edd_%�send_%=��
�3ZZ_%=�window("Main"):�gWx("Words")�oW(Words_%)
� �gWx("Phrases")�oW(Phras_%)
��
��
�NݤDate1_:�tMIx("Date",0):Date1_=�:Date2_=�:Date3_=�:Date4_=�:�writedate:=�
NݤDate2_:�tMIx("Date",1):Date2_=�:Date1_=�:Date3_=�:Date4_=�:�writedate:=�

NݤDate3_:�tMIx("Date",2):Date3_=�:Date2_=�:Date1_=�:Date4_=�:�writedate:=�
#ݤDate4_:�user_$=""�Date4_=�:=�
E�tMIx("Date",3):Date4_=�:Date2_=�:Date1_=�:Date3_=�:�writedate:=�
2�ݤUser_:u_$=�input("Enter date",user_$,"Ok",35," ",0):�u_$="b"�u_$="B" user_$="":Date4_=�:�utMI("Date",3):Date1_=�:�tMIx("Date",0):�writedate:=�
FK�u_$<>"" user_$=u_$:Date4_=�:Date1_=�:Date2_=�:Date3_=�:�tMIx("Date",3)
P�writedate:=�
dݤDate_:�mouse=1�=�
n�getdate:�Date1_�ssend(�d1)
��Date2_�ssend(�d2)
��Date3_�ssend(�d3)
��Date4_�ssend(�d4)
�=�
�:ݤd1:�day_=1�7:�day_$=Day_$(day_,0)day_$=Day_$(day_,1)
�F�:�month_=1�12:�month_$=Month_$(month_,0)month_$=Month_$(month_,1)
�C�:time_$=day_$+", "+date_$+ext_$+" "+month_$+" "+year_$:=time_$
Iݤd2:�month_=1�12:�month_$=Month_$(month_,0)month_$=Month_$(month_,1)
8�:time_$=date_$+ext_$+" "+month_$+" "+year_$:=time_$
@;ݤd3:�month_=1�12:�month_$=Month_$(month_,0)mon_=month_
T2�:time_$=date_$+"/"+�(mon_)+"/"+year_$:=time_$
|#ݤd4:=user_$:�rI(Main_%,"Date")
�0��writedate:�user_$<>""�pMI("Date",3,user_$)
�R�getdate:�Date4_=��$!Date_%=date_$+" "+month_$+" "+year_$:�rI(Main_%,"Date"):�
�;�user_$<>""�Date4_�$!Date_%="User":�rI(Main_%,"Date"):�
�8$!Date_%=��$,5,6)+" "+��$,14,2):�rI(Main_%,"Date"):�
�BݤLeft_:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
�!window_%=0:�"fx 138,0,127":=�
 ݤReturn_:�"fx 138,0,13":=�
 CݤRight_:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
 & window_%=0:�"fx 138,0,32":=�
 0AݤDFG_:�window_%<>0�ș262354,window_%,icon_%,posx_%,posy_%,-1
 :Uwindow_%=0:�Return_%=0ș&400C7,mask%,Fpoll%�BB_%:�"fx 138,0,10":�"fx 138,0,13":=�
 NJ�Return_%=1ș&400C7,mask%,Fpoll%�BB_%:�"fx 138,0,13":�"fx 138,0,10":=�
 X;�Return_%=2ș&400C7,mask%,Fpoll%�BB_%:�"fx 138,0,13":=�
 b
 ����getdate:time_$=�$:day_$=�time_$,1,3):date_$=�time_$,5,2):month_$=�time_$,8,3):year_$=�time_$,12,4):�date_$)="0" date_$=�date_$)
 Ƴ�date_$="1" ext_$="st"��date_$="2" ext_$="nd"��date_$="3" ext_$="rd"��date_$="21" ext_$="st"��date_$="22" ext_$="nd"��date_$="23" ext_$="rd"��date_$="31" ext_$="st"�ext_$="th"
 ��
 �4ݤREedit_:RE_=�:PS_=�:�gWx("ReM")�closeW(ReM_%)
 �=�window("MenuEdit")
!4ݤPSedit_:PS_=�:RE_=�:�gWx("PsM")�closeW(PsM_%)
! =�window("MenuEdit")
!4j��upRE:$!MenuTitle_%="RE":$!Men1_%=RE1_$:$!Men2_%=RE2_$:$!Men3_%=RE3_$:$!Men4_%=RE4_$:$!Men5_%=RE5_$:�
!�j��upPS:$!MenuTitle_%="PS":$!Men1_%=PS1_$:$!Men2_%=PS2_$:$!Men3_%=PS3_$:$!Men4_%=PS4_$:$!Men5_%=PS5_$:�
!�.ݤMen1_:�RE_ RE1_$=$!Men1_%�PS1_$=$!Men1_%
!�=�
".ݤMen2_:�RE_ RE2_$=$!Men2_%�PS2_$=$!Men2_%
"=�
"$.ݤMen3_:�RE_ RE3_$=$!Men3_%�PS3_$=$!Men3_%
"8=�
"B.ݤMen4_:�RE_ RE4_$=$!Men4_%�PS4_$=$!Men4_%
"V=�
"`.ݤMen5_:�RE_ RE5_$=$!Men5_%�PS5_$=$!Men5_%
"t=�
"�:ݤMenSave_:�:��data_=�:�usI(MenuEdit_%,"MenSave"):=�
"�	�RE_�
"��RE1_$=$!Men1_%:RE2_$=$!Men2_%:RE3_$=$!Men3_%:RE4_$=$!Men4_%:RE5_$=$!Men5_%:open$="<rh_>.Menus.RE":x_=�open$:�#x_,RE1_$,RE2_$,RE3_$,RE4_$,RE5_$:�#x_:V_$=�alert("RE menu saved","","OK","","",0):�usI(MenuEdit_%,"MenSave"):=�
"��:�PS_�
#
�PS1_$=$!Men1_%:PS2_$=$!Men2_%:PS3_$=$!Men3_%:PS4_$=$!Men4_%:PS5_$=$!Men5_%:open$="<rh_>.Menus.PS":x_=�open$:�#x_,PS1_$,PS2_$,PS3_$,PS4_$,PS5_$:�#x_:V_$=�alert("PS menu saved","","OK","","",0):�usI(MenuEdit_%,"MenSave"):=�
#<�
#P\ݤMenOK_:�RE_ RE1_$=$!Men1_%:RE2_$=$!Men2_%:RE3_$=$!Men3_%:RE4_$=$!Men4_%:RE5_$=$!Men5_%
#dS�PS_ PS1_$=$!Men1_%:PS2_$=$!Men2_%:PS3_$=$!Men3_%:PS4_$=$!Men4_%:PS5_$=$!Men5_%
#n�closeW(MenuEdit_%):=�
#�'ݤNowt_:�sut:�gWx("A")�closeW(A_%)
#�"�gWx("Words")�closeW(Words_%)
#�$�gWx("Phrases")�closeW(Phras_%)
#�F=�window("Subjects"):V_$=�alert("Click 'Menu'","","OK","","",0):=�
#�6ݤOpen_:�open_%�open_%=�:�usI(Choices_%,"Open"):=�
$/�open_%=��open_%=�:�sI(Choices_%,"Open"):=�
$
$"BݤMessage_:�message_%�message_%=�:�usI(Choices_%,"Message"):=�
$68�message_%=��message_%=�:�sI(Choices_%,"Message"):=�
$@
$J'��editor:�M_$="RE"�ovrM("REedit"):�
$^�M_$="PS"�ovrM("PSedit"):�
$h'��TitleA_$,4)="User"�ovrM("User"):�
$r�
$�RݤSaveCh_:�:��V_$=�alert(�$,"","OK","","",0):�usI(Choices_%,"SaveCh")::=�
$��open$="<rh_>.Menus.M":x_=�open$:�#x_,message_%,open_%:�#x_:V_$=�alert("Choices saved","","OK","","",0):�usI(Choices_%,"SaveCh"):=�
$�%ݤChoiceOK_:�closeW(Choices_%):=�
$�+ݤReturn0_:Return_%=0:�tMIx("Dfg",0):=�
$�+ݤReturn1_:Return_%=1:�tMIx("Dfg",1):=�
%+ݤReturn2_:Return_%=2:�tMIx("Dfg",2):=�
%ݤSaveReturn_:�:��::=�
%:kopen$="<rh_>.Menus.R":x_=�open$:�#x_,Return_%:�#x_:V_$=�alert("Return choice saved","","OK","","",0):=�
%bRݤAdduser_:get_$=$!Editor_%:ll_%=0:�TitleA_$,11)="English AT1"�exload("i.iu")
%v0�TitleA_$,11)="English AT2"�exload("i.iiu")
%�1�TitleA_$,11)="English AT3"�exload("i.iiiu")
%�1�TitleA_$,12)="English AT4:"�exload("i.ivu")
%�/�TitleA_$,11)="English AT5"�exload("i.vu")
%�1�TitleA_$,12)="English AT4/"�exload("i.viu")
%�4�TitleA_$,15)="Mathematics AT1"�exload("ii.iu")
%�5�TitleA_$,15)="Mathematics AT2"�exload("ii.iiu")
%�6�TitleA_$,15)="Mathematics AT3"�exload("ii.iiiu")
%�5�TitleA_$,15)="Mathematics AT4"�exload("ii.ivu")
%�4�TitleA_$,15)="Mathematics AT5"�exload("ii.vu")
%�1�TitleA_$,11)="Science AT1"�exload("iii.iu")
%�2�TitleA_$,11)="Science AT2"�exload("iii.iiu")
&3�TitleA_$,11)="Science AT3"�exload("iii.iiiu")
&2�TitleA_$,11)="Science AT4"�exload("iii.ivu")
&3�TitleA_$,14)="Technology AT1"�exload("iv.iu")
&*4�TitleA_$,14)="Technology AT2"�exload("iv.iiu")
&45�TitleA_$,14)="Technology AT3"�exload("iv.iiiu")
&>4�TitleA_$,14)="Technology AT4"�exload("iv.ivu")
&H3�TitleA_$,14)="Technology AT5"�exload("iv.vu")
&R/�TitleA_$,11)="History AT1"�exload("v.iu")
&f0�TitleA_$,11)="History AT2"�exload("v.iiu")
&p1�TitleA_$,11)="History AT3"�exload("v.iiiu")
&z2�TitleA_$,13)="Geography AT1"�exload("vi.iu")
&�3�TitleA_$,13)="Geography AT2"�exload("vi.iiu")
&�4�TitleA_$,13)="Geography AT3"�exload("vi.iiiu")
&�3�TitleA_$,13)="Geography AT4"�exload("vi.ivu")
&�2�TitleA_$,13)="Geography AT5"�exload("vi.vu")
&�I�TitleA_$="Music AT1: Performing and Composing KS1"�exload("viii.iu")
&�Q�TitleA_$="Music AT1: Performing and Composing KS1 Support"�exload("viii.iu")
&�V�TitleA_$="Music AT1: Performing and Composing KS1 AT & Support"�exload("viii.iu")
&�J�TitleA_$="Music AT1: Performing and Composing KS2"�exload("viii.iiu")
&�R�TitleA_$="Music AT1: Performing and Composing KS2 Support"�exload("viii.iiu")
&�W�TitleA_$="Music AT1: Performing and Composing KS2 AT & Support"�exload("viii.iiu")
&�K�TitleA_$="Music AT2: Listening and Appraising KS1"�exload("viii.iiiu")
'S�TitleA_$="Music AT2: Listening and Appraising KS1 Support"�exload("viii.iiiu")
'X�TitleA_$="Music AT2: Listening and Appraising KS1 AT & Support"�exload("viii.iiiu")
'J�TitleA_$="Music AT2: Listening and Appraising KS2"�exload("viii.ivu")
'$R�TitleA_$="Music AT2: Listening and Appraising KS2 Support"�exload("viii.ivu")
'.W�TitleA_$="Music AT2: Listening and Appraising KS2 AT & Support"�exload("viii.ivu")
'8L�TitleA_$="PE End of Key Stage Statements: Key Stage 1"�exload("vii.iu")
'LT�TitleA_$="PE End of Key Stage Statements: Key Stage 1 Support"�exload("vii.iu")
'VY�TitleA_$="PE End of Key Stage Statements: Key Stage 1 AT & Support"�exload("vii.iu")
'`M�TitleA_$="PE End of Key Stage Statements: Key Stage 2"�exload("vii.iiu")
'jU�TitleA_$="PE End of Key Stage Statements: Key Stage 2 Support"�exload("vii.iiu")
'tZ�TitleA_$="PE End of Key Stage Statements: Key Stage 2 AT & Support"�exload("vii.iiu")
'~Q�TitleA_$="PE Programmes of Study (activity specific) KS1"�exload("vii.iiiu")
'�Y�TitleA_$="PE Programmes of Study (activity specific) KS1 Support"�exload("vii.iiiu")
'�P�TitleA_$="PE Programmes of Study (activity specific) KS2"�exload("vii.ivu")
'�X�TitleA_$="PE Programmes of Study (activity specific) KS2 Support"�exload("vii.ivu")
'�E�TitleA_$="Art AT1: Investigating and Making KS1"�exload("ix.iu")
'�M�TitleA_$="Art AT1: Investigating and Making KS1 Support"�exload("ix.iu")
'�R�TitleA_$="Art AT1: Investigating and Making KS1 AT & Support"�exload("ix.iu")
'�F�TitleA_$="Art AT1: Investigating and Making KS2"�exload("ix.iiu")
'�N�TitleA_$="Art AT1: Investigating and Making KS2 Support"�exload("ix.iiu")
'�S�TitleA_$="Art AT1: Investigating and Making KS2 AT & Support"�exload("ix.iiu")
'�J�TitleA_$="Art AT2: Knowledge and Understanding KS1"�exload("ix.iiiu")
(
R�TitleA_$="Art AT2: Knowledge and Understanding KS1 Support"�exload("ix.iiiu")
(W�TitleA_$="Art AT2: Knowledge and Understanding KS1 AT & Support"�exload("ix.iiiu")
(I�TitleA_$="Art AT2: Knowledge and Understanding KS2"�exload("ix.ivu")
(2Q�TitleA_$="Art AT2: Knowledge and Understanding KS2 Support"�exload("ix.ivu")
(<V�TitleA_$="Art AT2: Knowledge and Understanding KS2 AT & Support"�exload("ix.ivu")
(FNgoty_%=0:�fi_%=1�ll_%:�lline_$(fi_%)="inserted line" goty_%=fi_%:fi_%=ll_%
(d�:�goty_%<>0�
(x?lline_$(goty_%)=get_$:�exsave:�gWx("Editor")�closeW(Edd_%)
(�=�
(��:�ll_%=maxlines_%-1�
(�NV_$=�alert("User bank full","","OK","","",0):�gWx("Editor")�closeW(Edd_%)
(�=�
(��:�ll_%=0�=�
(�I�lline_$(ll_%)="" lline_$(ll_%)=get_$�ll_%=ll_%+1:lline_$(ll_%)=get_$
(�)�exsave:�gWx("Editor")�closeW(Edd_%)
)=�
)"z��exload(lload_$):�:��:�=204�V_$=�alert(queer_$,"","OK","","",0):data_=�:�V_$=�alert(�$,"","OK","","",0):data_=�:�
),�data_=�:�max_%=1�maxlines_%:lline_$(max_%)="":�:Ooopen$="<Data$Dir>."+lload_$:xx_=�Ooopen$:�xx_=0�#xx_:V_$=�alert(queer_$,"","OK","","",0):data_=�:�
)JEll_%=0:�:�getlline_:ll_%=ll_%+1:lline_$(ll_%)=aa_$:��#xx_:�#xx_:�
)^$ݤEnglish_:�sub:=�window("EngM")
)hݤScience_:=�
)rݤTechnology_:=�
)|ݤHistory_:=�
)�ݤGeography_:=�
)�
ݤArt_:=�
)�ݤMusic_:=�
)�ݤPE_:=�
)�ݤMaths_:=�
)�ݤRE_:=�
)�ݤPS_:=�
)�.��sub:�gWx("Subjects")�closeW(Subjects_%)
)��
)�EݤInsert_:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Edd_%):=�
*S�l_%=maxylines_% V_$=�alert("User bank full","","OK","","",0):�closeW(Edd_%):=�
*h�l_%=1�line_$(1)=""�V_$=�alert("No statements to insert between.","","OK","","",0):�closeW(Edd_%):=�
*[�l_%=0�V_$=�alert("No statements to insert between.","","OK","","",0):�closeW(Edd_%):=�
*&Q�l_%=maxuser_% V_$=�alert("User bank full","","OK","","",0):�closeW(Edd_%):=�
*0Ogota_%=0:�goo_%=1�l_%:�line_$(goo_%)="inserted line" gota_%=goo_%:goo_%=l_%
*Db�:�gota_%<>0�V_$=�alert("One inserted line already exists.","","OK","","",0):�closeW(Edd_%):=�
*Xyins_%=dunk_+line_%:�line_$(ins_%)=""�V_$=�alert("No statements to insert between.","","OK","","",0):�closeW(Edd_%):=�
*l�f_=�"<Data$Dir>.iiiii":�#f_,0:�#f_:�("*DEL. "+"<Data$Dir>.iiiii"):�mo_%=l_%�ins_%�-1:line_$(mo_%+1)=line_$(mo_%):�:l_%=l_%+1:line_$(ins_%)="inserted line":�oot:�updateA:=�
*�ݤREins_:=�Insert_
*�ݤPSins_:=�Insert_
*�
ݤnon_:=�
*�=��getPH:a_$="":�:a_%=�#ph_%:a_%=a_%�ten_%:�a_%=10��#ph_%�
*�a_$=a_$+�(a_%):�a_%=10:�
+<��getline_:a_$="":�:a_%=�#x_:a_%=a_%�ten_%:�a_%=10��#x_�
+a_$=a_$+�(a_%):�a_%=10:�
+d��saveREPS:x_$=$!Editor_%:�x_$=""V_$=�alert("Nothing to save.","","OK","","",0):�closeW(Edd_%):�
+ :�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Edd_%):�
+**ll_%=dunk_+line_%:�ll_%>l_%�ll_%=l_%+1
+4�M_$="RE"�ll_%=maxlines_%�
+>u$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!h%,0):V_$=�alert("Statement bank full.","","OK","","",0):�closeW(Edd_%):�
+R �:�M_$="PS"�ll_%=maxlines_%�
+\u$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!h%,0):V_$=�alert("Statement bank full.","","OK","","",0):�closeW(Edd_%):�
+z*�:��TitleA_$,4)="User"�ll_%=maxuser_%�
+�y$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!h%,0):V_$=�alert("User Statement bank full","","OK","","",0):�closeW(Edd_%):�
+�*�:�t_%=1�l_%:�tt_$=line_$(t_%)ll_%=t_%
+�*�:line_$(ll_%)=x_$:�ll_%>l_%�l_%=l_%+1
+�?x_=�Oopen$:�#x_:�x_=0:V_$=�alert(queer_$,"","OK","","",0):�
+��x_=�Oopen$:�r_%=1�l_%:�rr_%=1��(line_$(r_%)):a_$=�line_$(r_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�open_%$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!h%,0)��closeW(Edd_%)
+��updateA:�mess:�
+�i��delREPS:del_$=$!Editor_%:�del_$=""V_$=�alert("Nothing to delete.","","OK","","",0):�closeW(Edd_%):�
+�:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Edd_%):�
+�hf_=�"<Data$Dir>.iiiii":�#f_,0:�#f_:�("*DEL. "+"<Data$Dir>.iiiii"):del_%=dunk_+line_%:�del_%>l_%��7:�
+�)�t_%=1�l_%:�tt_$=line_$(t_%)del_%=t_%
,�:�del_%=l_%�
,cline_$(del_%)="":l_%=l_%-1:�updateA:x_=�Oopen$:�#x_:�x_=0:V_$=�alert(queer_$,"","OK","","",0):�
,x_=�Oopen$:�l_%=0�
,$�#x_,ten_%
,.n�:�r_%=1�l_%:�rr_%=1��(line_$(r_%)):a_$=�line_$(r_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�
,8\�:�#x_:�mess:�open_%$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!(Edd_%+12),0)��closeW(Edd_%)
,B�
,L��:�aa_%=del_%�l_%-1:line_$(aa_%)=line_$(aa_%+1):�:line_$(l_%)="":l_%=l_%-1:�updateA:x_=�Oopen$:�#x_:�x_=0:V_$=�alert(queer_$,"","OK","","",0):�
,V�x_=�Oopen$:�r_%=1�l_%:�rr_%=1��(line_$(r_%)):a_$=�line_$(r_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�mess:�open_%$!Editor_%="":�rI(Edd_%,"Editor"):�sCI(!(Edd_%+12),0)��closeW(Edd_%)
,`�
,tHݤPhDelete_:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Pedd_%):=�
,~ldel_$=$!Peditor_%:�del_$=""�get_$="" V_$=�alert("Nothing to delete.","","OK","","",0):�closeW(Pedd_%):=�
,�8del_%=dunk_+pline_%:�del_%>p_%��7:�closeW(Pedd_%):=�
,�nf_=�"<Data$Dir>.iiiii":�#f_,0:�#f_:�("*DEL. "+"<Data$Dir>.iiiii"):�t_%=1�p_%:�del_$=phrase_$(t_%)del_%=t_%
,��:�del_%=p_%�
,�Aphrase_$(del_%)="":p_%=p_%-1:�UpdatePhrases:x_=�open$:�p_%=0�
,��#x_,ten_%
,�r�:�j_%=1�p_%:�rr_%=1��(phrase_$(j_%)):a_$=�phrase_$(j_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�
-[�:�#x_:�open_%$!Peditor_%="":�rI(Pedd_%,"Peditor"):�sCI(!(Pedd_%+12),0)��closeW(Pedd_%)
-D�message_%V_$=�alert("Phrase deleted and saved","","OK","","",0)
-(=�
-2��:�aa_%=del_%�p_%-1:phrase_$(aa_%)=phrase_$(aa_%+1):�:phrase_$(p_%)="":p_%=p_%-1:�UpdatePhrases:x_=�open$:�j_%=1�p_%:�rr_%=1��(phrase_$(j_%)):a_$=�phrase_$(j_%),rr_%,1):a_%=�(a_$)�ten_%
-<v�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�open_%$!Peditor_%="":�rI(Pedd_%,"Peditor"):�sCI(!(Pedd_%+12),0)��closeW(Pedd_%)
-FD�message_%V_$=�alert("Phrase deleted and saved","","OK","","",0)
-P=�
-dHݤWoDelete_:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Pedd_%):=�
-nbdel_$=$!Weditor_%:�del_$=""V_$=�alert("Nothing to delete.","","OK","","",0):�closeW(Wedd_%):=�
-xjf_=�"<Data$Dir>.iiiii":�#f_,0:�#f_:�("*DEL. "+"<Data$Dir>.iiiii"):del_%=dunk_+wline_%:�del_%>p_%��7:=�
-�*�t_%=1�p_%:�del_$=word_$(t_%)del_%=t_%
-��:�del_%=p_%�
-�=word_$(del_%)="":p_%=p_%-1:�UpdateWords:x_=�open$:�p_%=0�
-��#x_,ten_%
-�n�:�j_%=1�p_%:�rr_%=1��(word_$(j_%)):a_$=�word_$(j_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�
-�[�:�#x_:�open_%$!Weditor_%="":�rI(Wedd_%,"Weditor"):�sCI(!(Wedd_%+12),0)��closeW(Wedd_%)
.B�message_%V_$=�alert("Word deleted and saved","","OK","","",0)
."=�
.,��:�aa_%=del_%�p_%-1:word_$(aa_%)=word_$(aa_%+1):�:word_$(p_%)="":p_%=p_%-1:�UpdateWords:x_=�open$:�j_%=1�p_%:�rr_%=1��(word_$(j_%)):a_$=�word_$(j_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_
.6T�open_%$!Weditor_%="":�rI(Wedd_%,"Weditor"):�sCI(!(Wedd_%+12),0)��closeW(Wedd_%)
.@B�message_%V_$=�alert("Word deleted and saved","","OK","","",0)
.J=�
.TJݤSavePhrase_:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Pedd_%):=�
.^]x_$=$!Peditor_%:�x_$=""�V_$=�alert("Nothing to save.","","OK","","",0):�closeW(Pedd_%):=�
.h*pr_%=dunk_+pline_%:�pr_%>p_%pr_%=p_%+1
.r�pr_%=maxphrases_%�
.|w$!Peditor_%="":�rI(Pedd_%,"Peditor"):V_$=�alert("Phrase bank full","","OK","","",0):�gWx("Peditor")�closeW(Pedd_%)
.�=�
.�9�:save_$=get_$:�t_%=1�p_%:�pp_$=phrase_$(t_%)pr_%=t_%
.�,�:phrase_$(pr_%)=x_$:�pr_%>p_%�p_%=p_%+1
.��x_=�open$:�j_%=1�p_%:�rr_%=1��(phrase_$(j_%)):a_$=�phrase_$(j_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�open_%$!Peditor_%="":�rI(Pedd_%,"Peditor"):�sCI(!(Pedd_%+12),0)��closeW(Pedd_%)
.�C�message_%V_$=�alert("Phrase edited and saved","","OK","","",0)
.��UpdatePhrases:=�
.�HݤSaveWord_:�:��:V_$=�alert(�$,"","OK","","",0):�closeW(Wedd_%):=�
.�]x_$=$!Weditor_%:�x_$=""�V_$=�alert("Nothing to save.","","OK","","",0):�closeW(Wedd_%):=�
.�*pr_%=dunk_+wline_%:�pr_%>p_%pr_%=p_%+1
.��pr_%=maxwords_%�
.�u$!Weditor_%="":�rI(Wedd_%,"Weditor"):V_$=�alert("Word bank full","","OK","","",0):�gWx("Weditor")�closeW(Wedd_%)
.�=�
/*�:�t_%=1�p_%:�dd_$=word_$(t_%)pr_%=t_%
/*�:word_$(pr_%)=x_$:�pr_%>p_%�p_%=p_%+1
/�x_=�open$:�j_%=1�p_%:�rr_%=1��(word_$(j_%)):a_$=�word_$(j_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�open_%$!Weditor_%="":�rI(Wedd_%,"Weditor"):�sCI(!(Wedd_%+12),0)��closeW(Wedd_%)
/&A�message_%V_$=�alert("Word edited and saved","","OK","","",0)
/0�UpdateWords:=�
/D���i_:x_=�"<ReportSys$Path>Resources.Sprites":�#x_,code_$,A$:�#x_:X$="":�r=1��(code_$):X$=X$+�((�(�code_$,r,1)))�140):�:code_$=X$:Z$="":�r=1��(A$):Z$=Z$+�((�(�A$,r,1)))�ten_%):�:A$=Z$:Register_$=A$
/X)Info$(1)=code_$:Info$(2)=Register_$:�
/bD��getlline_:aa_$="":�:aa_%=�#xx_:aa_%=aa_%�ten_%:�aa_%=10��#xx_�
/l aa_$=aa_$+�(aa_%):�aa_%=10:�
/vL��exsave:xx_=�Ooopen$:�#xx_:�xx_=0:V_$=�alert(queer_$,"","OK","","",0):�
/��xx_=�Ooopen$:�r_%=1�ll_%:�rr_%=1��(lline_$(r_%)):aa_$=�lline_$(r_%),rr_%,1):aa_%=�(aa_$)�ten_%:�#xx_,aa_%:�:�#xx_,(10�ten_%):�:�#xx_:�
/����oot:x_=�Oopen$:�r_%=1�l_%:�rr_%=1��(line_$(r_%)):a_$=�line_$(r_%),rr_%,1):a_%=�(a_$)�ten_%:�#x_,a_%:�:�#x_,(10�ten_%):�:�#x_:�closeW(Edd_%):�
/�2��cof_(cof_$):ș6,152,0�;flag_%:�(flag_%�2)=0�
/�Sș&400C7,mask%,Fpoll%�BB_%:�TT_=1��(cof_$):�TT_�20=0�ș&400C7,mask%,Fpoll%�BB_%
/�Lș6,138,0,�(�cof_$,TT_,1)):�:ș&400C7,mask%,Fpoll%�BB_%:�"fx 138,0,32":�
�

00000000  0d 00 14 1d dd a4 6d 61  69 6e 57 5f 3a 3d a4 77  |......mainW_:=.w|
00000010  69 6e 64 6f 77 28 22 4d  61 69 6e 22 29 0d 00 3c  |indow("Main")..<|
00000020  0f dd a4 64 75 6d 6d 79  5f 3a 3d b9 0d 00 5a 10  |...dummy_:=...Z.|
00000030  dd a4 6d 5f 3a c8 8e 24  6d 6e 25 ca 0d 00 64 24  |..m_:..$mn%...d$|
00000040  c9 22 44 66 67 22 3a e7  52 65 74 75 72 6e 5f 25  |."Dfg":.Return_%|
00000050  3d 30 f2 74 4d 49 78 28  22 44 66 67 22 2c 30 29  |=0.tMIx("Dfg",0)|
00000060  0d 00 78 1d e7 52 65 74  75 72 6e 5f 25 3d 31 f2  |..x..Return_%=1.|
00000070  74 4d 49 78 28 22 44 66  67 22 2c 31 29 0d 00 82  |tMIx("Dfg",1)...|
00000080  1d e7 52 65 74 75 72 6e  5f 25 3d 32 f2 74 4d 49  |..Return_%=2.tMI|
00000090  78 28 22 44 66 67 22 2c  32 29 0d 00 8c 34 c9 22  |x("Dfg",2)...4."|
000000a0  41 22 3a f2 6f 76 72 4d  28 22 6e 6f 6e 22 29 3a  |A":.ovrM("non"):|
000000b0  e7 a4 67 57 78 28 22 57  6f 72 64 73 22 29 f2 63  |..gWx("Words").c|
000000c0  6c 6f 73 65 57 28 57 6f  72 64 73 5f 25 29 0d 00  |loseW(Words_%)..|
000000d0  aa 24 e7 a4 67 57 78 28  22 50 68 72 61 73 65 73  |.$..gWx("Phrases|
000000e0  22 29 f2 63 6c 6f 73 65  57 28 50 68 72 61 73 5f  |").closeW(Phras_|
000000f0  25 29 0d 00 b4 1c e7 4d  5f 24 3d 22 45 6e 67 6c  |%).....M_$="Engl|
00000100  69 73 68 22 3d a4 45 6e  67 6c 69 73 68 5f 0d 00  |ish"=.English_..|
00000110  be 18 e7 4d 5f 24 3d 22  4d 61 74 68 73 22 3d a4  |...M_$="Maths"=.|
00000120  4d 61 74 68 73 5f 0d 00  c8 1c e7 4d 5f 24 3d 22  |Maths_.....M_$="|
00000130  53 63 69 65 6e 63 65 22  3d a4 53 63 69 65 6e 63  |Science"=.Scienc|
00000140  65 5f 0d 00 d2 1c e7 4d  5f 24 3d 22 54 65 63 68  |e_.....M_$="Tech|
00000150  22 3d a4 54 65 63 68 6e  6f 6c 6f 67 79 5f 0d 00  |"=.Technology_..|
00000160  dc 19 e7 4d 5f 24 3d 22  48 69 73 74 22 3d a4 48  |...M_$="Hist"=.H|
00000170  69 73 74 6f 72 79 5f 0d  00 e6 1b e7 4d 5f 24 3d  |istory_.....M_$=|
00000180  22 47 65 6f 67 22 3d a4  47 65 6f 67 72 61 70 68  |"Geog"=.Geograph|
00000190  79 5f 0d 00 f0 18 e7 4d  5f 24 3d 22 4d 75 73 69  |y_.....M_$="Musi|
000001a0  63 22 3d a4 4d 75 73 69  63 5f 0d 00 fa 12 e7 4d  |c"=.Music_.....M|
000001b0  5f 24 3d 22 50 45 22 3d  a4 50 45 5f 0d 01 04 14  |_$="PE"=.PE_....|
000001c0  e7 4d 5f 24 3d 22 41 72  74 22 3d a4 41 72 74 5f  |.M_$="Art"=.Art_|
000001d0  0d 01 0e 12 e7 4d 5f 24  3d 22 52 45 22 3d a4 52  |.....M_$="RE"=.R|
000001e0  45 5f 0d 01 18 12 e7 4d  5f 24 3d 22 50 53 22 3d  |E_.....M_$="PS"=|
000001f0  a4 50 53 5f 0d 01 22 04  0d 01 2c c6 c9 22 44 61  |.PS_.."...,.."Da|
00000200  74 65 22 3a f2 67 65 74  64 61 74 65 3a 64 31 5f  |te":.getdate:d1_|
00000210  24 3d a4 64 31 3a f2 70  4d 49 28 22 44 61 74 65  |$=.d1:.pMI("Date|
00000220  22 2c 30 2c 64 31 5f 24  29 3a f2 67 65 74 64 61  |",0,d1_$):.getda|
00000230  74 65 3a 64 32 5f 24 3d  a4 64 32 3a f2 70 4d 49  |te:d2_$=.d2:.pMI|
00000240  28 22 44 61 74 65 22 2c  31 2c 64 32 5f 24 29 3a  |("Date",1,d2_$):|
00000250  f2 67 65 74 64 61 74 65  3a 64 33 5f 24 3d a4 64  |.getdate:d3_$=.d|
00000260  33 3a f2 70 4d 49 28 22  44 61 74 65 22 2c 32 2c  |3:.pMI("Date",2,|
00000270  64 33 5f 24 29 3a e7 75  73 65 72 5f 24 3c 3e 22  |d3_$):.user_$<>"|
00000280  22 f2 70 4d 49 28 22 44  61 74 65 22 2c 33 2c 75  |".pMI("Date",3,u|
00000290  73 65 72 5f 24 29 8b f2  70 4d 49 28 22 44 61 74  |ser_$)..pMI("Dat|
000002a0  65 22 2c 33 2c 22 4e 6f  20 75 73 65 72 20 63 68  |e",3,"No user ch|
000002b0  6f 69 63 65 20 65 6e 74  65 72 65 64 22 29 0d 01  |oice entered")..|
000002c0  5e 1a e7 44 61 74 65 31  5f f2 74 4d 49 78 28 22  |^..Date1_.tMIx("|
000002d0  44 61 74 65 22 2c 30 29  0d 01 68 1a e7 44 61 74  |Date",0)..h..Dat|
000002e0  65 32 5f f2 74 4d 49 78  28 22 44 61 74 65 22 2c  |e2_.tMIx("Date",|
000002f0  31 29 0d 01 72 1a e7 44  61 74 65 33 5f f2 74 4d  |1)..r..Date3_.tM|
00000300  49 78 28 22 44 61 74 65  22 2c 32 29 0d 01 7c 1a  |Ix("Date",2)..|.|
00000310  e7 44 61 74 65 34 5f f2  74 4d 49 78 28 22 44 61  |.Date4_.tMIx("Da|
00000320  74 65 22 2c 33 29 0d 01  86 04 0d 01 90 16 c9 22  |te",3)........."|
00000330  45 64 64 69 74 6f 72 22  3a f2 65 64 69 74 6f 72  |Edditor":.editor|
00000340  0d 01 ae 55 c9 22 50 68  45 64 69 74 6f 72 22 3a  |...U."PhEditor":|
00000350  e7 ac a4 67 57 78 28 22  57 6f 72 64 73 22 29 80  |...gWx("Words").|
00000360  ac a4 67 57 78 28 22 50  68 72 61 73 65 73 22 29  |..gWx("Phrases")|
00000370  80 4d 5f 24 3c 3e 22 52  45 22 80 4d 5f 24 3c 3e  |.M_$<>"RE".M_$<>|
00000380  22 50 53 22 f2 6f 76 72  4d 28 22 4e 6f 6e 45 78  |"PS".ovrM("NonEx|
00000390  69 73 74 22 29 0d 01 c2  23 e7 a4 67 57 78 28 22  |ist")...#..gWx("|
000003a0  57 6f 72 64 73 22 29 f2  6f 76 72 4d 28 22 57 6f  |Words").ovrM("Wo|
000003b0  45 64 69 74 6f 72 22 29  0d 01 cc 08 cb 3a 3d b9  |Editor").....:=.|
000003c0  0d 01 e0 11 dd a4 73 6d  5f 3a c8 8e 24 6d 6e 25  |......sm_:..$mn%|
000003d0  ca 0d 01 f4 68 c9 22 52  45 22 3a f2 70 4d 49 28  |....h."RE":.pMI(|
000003e0  22 52 45 22 2c 30 2c 52  45 31 5f 24 29 3a f2 70  |"RE",0,RE1_$):.p|
000003f0  4d 49 28 22 52 45 22 2c  31 2c 52 45 32 5f 24 29  |MI("RE",1,RE2_$)|
00000400  3a f2 70 4d 49 28 22 52  45 22 2c 32 2c 52 45 33  |:.pMI("RE",2,RE3|
00000410  5f 24 29 3a f2 70 4d 49  28 22 52 45 22 2c 33 2c  |_$):.pMI("RE",3,|
00000420  52 45 34 5f 24 29 3a f2  70 4d 49 28 22 52 45 22  |RE4_$):.pMI("RE"|
00000430  2c 34 2c 52 45 35 5f 24  29 0d 02 30 68 c9 22 50  |,4,RE5_$)..0h."P|
00000440  53 22 3a f2 70 4d 49 28  22 50 53 22 2c 30 2c 50  |S":.pMI("PS",0,P|
00000450  53 31 5f 24 29 3a f2 70  4d 49 28 22 50 53 22 2c  |S1_$):.pMI("PS",|
00000460  31 2c 50 53 32 5f 24 29  3a f2 70 4d 49 28 22 50  |1,PS2_$):.pMI("P|
00000470  53 22 2c 32 2c 50 53 33  5f 24 29 3a f2 70 4d 49  |S",2,PS3_$):.pMI|
00000480  28 22 50 53 22 2c 33 2c  50 53 34 5f 24 29 3a f2  |("PS",3,PS4_$):.|
00000490  70 4d 49 28 22 50 53 22  2c 34 2c 50 53 35 5f 24  |pMI("PS",4,PS5_$|
000004a0  29 0d 02 6c 08 cb 3a 3d  b9 0d 02 8a 0d dd a4 73  |)..l..:=.......s|
000004b0  6d 61 5f 3a 3d a3 0d 02  a8 10 dd a4 77 5f 3a c8  |ma_:=.......w_:.|
000004c0  8e 24 77 6e 25 ca 0d 02  bc 04 0d 02 c6 2b c9 22  |.$wn%........+."|
000004d0  53 75 62 6a 65 63 74 73  22 3a 53 75 62 6a 65 63  |Subjects":Subjec|
000004e0  74 73 5f 25 3d a4 66 57  53 28 22 53 75 62 6a 65  |ts_%=.fWS("Subje|
000004f0  63 74 73 22 29 0d 02 da  1f c9 22 45 6e 67 4d 22  |cts")....."EngM"|
00000500  3a 45 6e 67 4d 5f 25 3d  a4 66 57 53 28 22 45 6e  |:EngM_%=.fWS("En|
00000510  67 4d 22 29 0d 02 e4 1c  c9 22 53 63 4d 22 3a 53  |gM")....."ScM":S|
00000520  63 4d 5f 25 3d a4 66 57  53 28 22 53 63 4d 22 29  |cM_%=.fWS("ScM")|
00000530  0d 02 ee 1f c9 22 54 65  63 4d 22 3a 54 65 63 4d  |....."TecM":TecM|
00000540  5f 25 3d a4 66 57 53 28  22 54 65 63 4d 22 29 0d  |_%=.fWS("TecM").|
00000550  02 f8 1c c9 22 48 73 4d  22 3a 48 73 4d 5f 25 3d  |...."HsM":HsM_%=|
00000560  a4 66 57 53 28 22 48 73  4d 22 29 0d 03 02 1f c9  |.fWS("HsM").....|
00000570  22 47 65 6f 4d 22 3a 47  65 6f 4d 5f 25 3d a4 66  |"GeoM":GeoM_%=.f|
00000580  57 53 28 22 47 65 6f 4d  22 29 0d 03 0c 1f c9 22  |WS("GeoM")....."|
00000590  41 72 74 4d 22 3a 41 72  74 4d 5f 25 3d a4 66 57  |ArtM":ArtM_%=.fW|
000005a0  53 28 22 41 72 74 4d 22  29 0d 03 16 1c c9 22 4d  |S("ArtM")....."M|
000005b0  75 4d 22 3a 4d 75 4d 5f  25 3d a4 66 57 53 28 22  |uM":MuM_%=.fWS("|
000005c0  4d 75 4d 22 29 0d 03 20  1c c9 22 50 65 4d 22 3a  |MuM").. .."PeM":|
000005d0  50 65 4d 5f 25 3d a4 66  57 53 28 22 50 65 4d 22  |PeM_%=.fWS("PeM"|
000005e0  29 0d 03 2a 1c c9 22 4d  61 4d 22 3a 4d 61 4d 5f  |)..*.."MaM":MaM_|
000005f0  25 3d a4 66 57 53 28 22  4d 61 4d 22 29 0d 03 34  |%=.fWS("MaM")..4|
00000600  62 c9 22 52 65 4d 22 3a  52 65 4d 5f 25 3d a4 66  |b."ReM":ReM_%=.f|
00000610  57 53 28 22 52 65 4d 22  29 3a 24 21 52 45 31 5f  |WS("ReM"):$!RE1_|
00000620  25 3d 52 45 31 5f 24 3a  24 21 52 45 32 5f 25 3d  |%=RE1_$:$!RE2_%=|
00000630  52 45 32 5f 24 3a 24 21  52 45 33 5f 25 3d 52 45  |RE2_$:$!RE3_%=RE|
00000640  33 5f 24 3a 24 21 52 45  34 5f 25 3d 52 45 34 5f  |3_$:$!RE4_%=RE4_|
00000650  24 3a 24 21 52 45 35 5f  25 3d 52 45 35 5f 24 0d  |$:$!RE5_%=RE5_$.|
00000660  03 48 62 c9 22 50 73 4d  22 3a 50 73 4d 5f 25 3d  |.Hb."PsM":PsM_%=|
00000670  a4 66 57 53 28 22 50 73  4d 22 29 3a 24 21 50 53  |.fWS("PsM"):$!PS|
00000680  31 5f 25 3d 50 53 31 5f  24 3a 24 21 50 53 32 5f  |1_%=PS1_$:$!PS2_|
00000690  25 3d 50 53 32 5f 24 3a  24 21 50 53 33 5f 25 3d  |%=PS2_$:$!PS3_%=|
000006a0  50 53 33 5f 24 3a 24 21  50 53 34 5f 25 3d 50 53  |PS3_$:$!PS4_%=PS|
000006b0  34 5f 24 3a 24 21 50 53  35 5f 25 3d 50 53 35 5f  |4_$:$!PS5_%=PS5_|
000006c0  24 0d 03 7a 54 c9 22 4d  61 69 6e 22 3a 4d 61 69  |$..zT."Main":Mai|
000006d0  6e 5f 25 3d a4 66 57 53  28 22 4d 61 69 6e 22 29  |n_%=.fWS("Main")|
000006e0  3a e7 53 65 78 5f 24 3d  22 46 22 8c 24 21 68 65  |:.Sex_$="F".$!he|
000006f0  5f 25 3d 22 73 68 65 22  3a 24 21 68 69 6d 5f 25  |_%="she":$!him_%|
00000700  3d 22 68 65 72 22 3a 24  21 68 69 73 5f 25 3d 22  |="her":$!his_%="|
00000710  68 65 72 73 22 0d 03 8e  36 e7 53 65 78 5f 24 3d  |hers"...6.Sex_$=|
00000720  22 4d 22 8c 24 21 68 65  5f 25 3d 22 68 65 22 3a  |"M".$!he_%="he":|
00000730  24 21 68 69 6d 5f 25 3d  22 68 69 6d 22 3a 24 21  |$!him_%="him":$!|
00000740  68 69 73 5f 25 3d 22 68  69 73 22 0d 03 98 1e e7  |his_%="his".....|
00000750  43 41 50 53 5f 3d b9 f2  73 49 28 4d 61 69 6e 5f  |CAPS_=..sI(Main_|
00000760  25 2c 22 43 41 50 53 22  29 0d 03 a2 3c 24 21 53  |%,"CAPS")...<$!S|
00000770  68 6f 72 74 4e 61 6d 65  5f 25 3d 53 68 6f 72 74  |hortName_%=Short|
00000780  4e 61 6d 65 5f 24 3a 24  21 4c 65 76 65 6c 5f 25  |Name_$:$!Level_%|
00000790  3d c3 28 4c 65 76 65 6c  5f 29 3a f2 77 72 69 74  |=.(Level_):.writ|
000007a0  65 64 61 74 65 0d 03 c0  34 c9 22 41 22 3a 41 5f  |edate...4."A":A_|
000007b0  25 3d a4 66 57 53 28 22  41 22 29 3a e7 a4 67 57  |%=.fWS("A"):..gW|
000007c0  78 28 22 45 64 69 74 6f  72 22 29 f2 63 6c 6f 73  |x("Editor").clos|
000007d0  65 57 28 45 64 64 5f 25  29 0d 03 d4 22 e7 a4 67  |eW(Edd_%)..."..g|
000007e0  57 78 28 22 57 6f 72 64  73 22 29 f2 63 6c 6f 73  |Wx("Words").clos|
000007f0  65 57 28 57 6f 72 64 73  5f 25 29 0d 03 de 24 e7  |eW(Words_%)...$.|
00000800  a4 67 57 78 28 22 50 68  72 61 73 65 73 22 29 f2  |.gWx("Phrases").|
00000810  63 6c 6f 73 65 57 28 50  68 72 61 73 5f 25 29 0d  |closeW(Phras_%).|
00000820  03 e8 23 e7 a4 67 57 78  28 22 50 65 64 69 74 6f  |..#..gWx("Pedito|
00000830  72 22 29 f2 63 6c 6f 73  65 57 28 50 65 64 64 5f  |r").closeW(Pedd_|
00000840  25 29 0d 03 f2 23 e7 a4  67 57 78 28 22 57 65 64  |%)...#..gWx("Wed|
00000850  69 74 6f 72 22 29 f2 63  6c 6f 73 65 57 28 57 65  |itor").closeW(We|
00000860  64 64 5f 25 29 0d 03 fc  b6 f2 70 57 54 28 4e 25  |dd_%).....pWT(N%|
00000870  2c 54 69 74 6c 65 41 5f  24 29 3a 66 6f 75 6e 64  |,TitleA_$):found|
00000880  5f 25 3d a3 3a 6c 69 6e  65 5f 25 3d bb 28 24 21  |_%=.:line_%=.($!|
00000890  4c 65 76 65 6c 5f 25 29  3a 73 65 61 72 63 68 5f  |Level_%):search_|
000008a0  24 3d 22 4c 65 76 65 6c  20 22 2b c3 28 6c 69 6e  |$="Level "+.(lin|
000008b0  65 5f 25 29 3a e3 79 5f  25 3d 31 b8 6d 61 78 6c  |e_%):.y_%=1.maxl|
000008c0  69 6e 65 73 5f 25 3a e3  7a 5f 25 3d 31 b8 a9 28  |ines_%:.z_%=1..(|
000008d0  6c 69 6e 65 5f 24 28 79  5f 25 29 29 3a 73 61 5f  |line_$(y_%)):sa_|
000008e0  24 3d c1 6c 69 6e 65 5f  24 28 79 5f 25 29 2c 7a  |$=.line_$(y_%),z|
000008f0  5f 25 2c 37 29 3a e7 73  61 5f 24 3d 73 65 61 72  |_%,7):.sa_$=sear|
00000900  63 68 5f 24 20 6c 69 6e  65 5f 25 3d 79 5f 25 2d  |ch_$ line_%=y_%-|
00000910  31 3a 66 6f 75 6e 64 5f  25 3d b9 0d 04 2e 16 e7  |1:found_%=......|
00000920  66 6f 75 6e 64 5f 25 3d  a3 6c 69 6e 65 5f 25 3d  |found_%=.line_%=|
00000930  30 0d 04 38 10 ed 3a ed  3a f2 75 70 64 61 74 65  |0..8..:.:.update|
00000940  41 0d 04 4c 45 c9 22 50  68 72 61 73 65 73 22 3a  |A..LE."Phrases":|
00000950  50 68 72 61 73 5f 25 3d  a4 66 57 53 28 22 50 68  |Phras_%=.fWS("Ph|
00000960  72 61 73 65 73 22 29 3a  e7 50 68 72 61 73 65 73  |rases"):.Phrases|
00000970  5f 25 3d 31 20 70 68 72  5f 24 3d 22 50 68 72 61  |_%=1 phr_$="Phra|
00000980  73 65 73 20 31 22 0d 04  60 22 e7 50 68 72 61 73  |ses 1"..`".Phras|
00000990  65 73 5f 25 3d 32 20 70  68 72 5f 24 3d 22 50 68  |es_%=2 phr_$="Ph|
000009a0  72 61 73 65 73 20 32 22  0d 04 6a 2b f2 70 57 54  |rases 2"..j+.pWT|
000009b0  28 4e 25 2c 70 68 72 5f  24 29 3a 70 6c 69 6e 65  |(N%,phr_$):pline|
000009c0  5f 25 3d 30 3a f2 55 70  64 61 74 65 50 68 72 61  |_%=0:.UpdatePhra|
000009d0  73 65 73 0d 04 7e 3e c9  22 57 6f 72 64 73 22 3a  |ses..~>."Words":|
000009e0  57 6f 72 64 73 5f 25 3d  a4 66 57 53 28 22 57 6f  |Words_%=.fWS("Wo|
000009f0  72 64 73 22 29 3a e7 57  6f 72 64 73 79 5f 25 3d  |rds"):.Wordsy_%=|
00000a00  31 20 77 6f 72 5f 24 3d  22 57 6f 72 64 73 20 31  |1 wor_$="Words 1|
00000a10  22 0d 04 92 1f e7 57 6f  72 64 73 79 5f 25 3d 32  |".....Wordsy_%=2|
00000a20  20 77 6f 72 5f 24 3d 22  57 6f 72 64 73 20 32 22  | wor_$="Words 2"|
00000a30  0d 04 9c 29 f2 70 57 54  28 4e 25 2c 77 6f 72 5f  |...).pWT(N%,wor_|
00000a40  24 29 3a 77 6c 69 6e 65  5f 25 3d 30 3a f2 55 70  |$):wline_%=0:.Up|
00000a50  64 61 74 65 57 6f 72 64  73 0d 04 a6 53 c9 22 4e  |dateWords...S."N|
00000a60  61 6d 65 22 3a 4e 61 6d  65 5f 25 3d a4 66 57 53  |ame":Name_%=.fWS|
00000a70  28 22 4e 61 6d 65 22 29  3a 24 21 4e 61 6d 65 49  |("Name"):$!NameI|
00000a80  6e 5f 25 3d 53 68 6f 72  74 4e 61 6d 65 5f 24 3a  |n_%=ShortName_$:|
00000a90  e7 53 65 78 5f 24 3d 22  4d 22 f2 73 49 28 4e 61  |.Sex_$="M".sI(Na|
00000aa0  6d 65 5f 25 2c 22 4d 61  6c 65 22 29 0d 04 c4 22  |me_%,"Male")..."|
00000ab0  e7 53 65 78 5f 24 3d 22  46 22 f2 73 49 28 4e 61  |.Sex_$="F".sI(Na|
00000ac0  6d 65 5f 25 2c 22 46 65  6d 61 6c 65 22 29 0d 04  |me_%,"Female")..|
00000ad0  ce 45 c9 22 45 64 69 74  6f 72 22 3a 45 64 64 5f  |.E."Editor":Edd_|
00000ae0  25 3d a4 66 57 53 28 22  45 64 69 74 6f 72 22 29  |%=.fWS("Editor")|
00000af0  3a 24 21 45 64 69 74 6f  72 5f 25 3d 67 65 74 5f  |:$!Editor_%=get_|
00000b00  24 3a 72 65 61 64 5f 24  3d 24 21 45 64 69 74 6f  |$:read_$=$!Edito|
00000b10  72 5f 25 0d 04 e2 4a c9  22 50 65 64 69 74 6f 72  |r_%...J."Peditor|
00000b20  22 3a 50 65 64 64 5f 25  3d a4 66 57 53 28 22 50  |":Pedd_%=.fWS("P|
00000b30  65 64 69 74 6f 72 22 29  3a 24 21 50 65 64 69 74  |editor"):$!Pedit|
00000b40  6f 72 5f 25 3d 67 65 74  5f 24 3a 72 65 61 64 5f  |or_%=get_$:read_|
00000b50  24 3d 24 21 50 65 64 69  74 6f 72 5f 25 0d 04 f6  |$=$!Peditor_%...|
00000b60  4a c9 22 57 65 64 69 74  6f 72 22 3a 57 65 64 64  |J."Weditor":Wedd|
00000b70  5f 25 3d a4 66 57 53 28  22 57 65 64 69 74 6f 72  |_%=.fWS("Weditor|
00000b80  22 29 3a 24 21 57 65 64  69 74 6f 72 5f 25 3d 67  |"):$!Weditor_%=g|
00000b90  65 74 5f 24 3a 72 65 61  64 5f 24 3d 24 21 57 65  |et_$:read_$=$!We|
00000ba0  64 69 74 6f 72 5f 25 0d  05 0a 35 c9 22 4d 65 6e  |ditor_%...5."Men|
00000bb0  75 45 64 69 74 22 3a 4d  65 6e 75 45 64 69 74 5f  |uEdit":MenuEdit_|
00000bc0  25 3d a4 66 57 53 28 22  4d 65 6e 75 45 64 69 74  |%=.fWS("MenuEdit|
00000bd0  22 29 3a e7 52 45 5f f2  75 70 52 45 0d 05 1e 0d  |"):.RE_.upRE....|
00000be0  e7 50 53 5f f2 75 70 50  53 0d 05 28 4b c9 22 43  |.PS_.upPS..(K."C|
00000bf0  68 6f 69 63 65 73 22 3a  43 68 6f 69 63 65 73 5f  |hoices":Choices_|
00000c00  25 3d a4 66 57 53 28 22  43 68 6f 69 63 65 73 22  |%=.fWS("Choices"|
00000c10  29 3a e7 6d 65 73 73 61  67 65 5f 25 f2 73 49 28  |):.message_%.sI(|
00000c20  43 68 6f 69 63 65 73 5f  25 2c 22 4d 65 73 73 61  |Choices_%,"Messa|
00000c30  67 65 22 29 0d 05 3c 20  e7 6f 70 65 6e 5f 25 f2  |ge")..< .open_%.|
00000c40  73 49 28 43 68 6f 69 63  65 73 5f 25 2c 22 4f 70  |sI(Choices_%,"Op|
00000c50  65 6e 22 29 0d 05 46 08  cb 3a 3d b9 0d 05 64 cf  |en")..F..:=...d.|
00000c60  dd f2 55 70 64 61 74 65  50 68 72 61 73 65 73 3a  |..UpdatePhrases:|
00000c70  24 21 50 68 31 5f 25 3d  70 68 72 61 73 65 5f 24  |$!Ph1_%=phrase_$|
00000c80  28 70 6c 69 6e 65 5f 25  2b 31 29 3a f2 72 49 28  |(pline_%+1):.rI(|
00000c90  50 68 72 61 73 5f 25 2c  22 50 68 31 22 29 3a 24  |Phras_%,"Ph1"):$|
00000ca0  21 50 68 32 5f 25 3d 70  68 72 61 73 65 5f 24 28  |!Ph2_%=phrase_$(|
00000cb0  70 6c 69 6e 65 5f 25 2b  32 29 3a f2 72 49 28 50  |pline_%+2):.rI(P|
00000cc0  68 72 61 73 5f 25 2c 22  50 68 32 22 29 3a 24 21  |hras_%,"Ph2"):$!|
00000cd0  50 68 33 5f 25 3d 70 68  72 61 73 65 5f 24 28 70  |Ph3_%=phrase_$(p|
00000ce0  6c 69 6e 65 5f 25 2b 33  29 3a f2 72 49 28 50 68  |line_%+3):.rI(Ph|
00000cf0  72 61 73 5f 25 2c 22 50  68 33 22 29 3a 24 21 50  |ras_%,"Ph3"):$!P|
00000d00  68 34 5f 25 3d 70 68 72  61 73 65 5f 24 28 70 6c  |h4_%=phrase_$(pl|
00000d10  69 6e 65 5f 25 2b 34 29  3a f2 72 49 28 50 68 72  |ine_%+4):.rI(Phr|
00000d20  61 73 5f 25 2c 22 50 68  34 22 29 0d 05 96 34 24  |as_%,"Ph4")...4$|
00000d30  21 50 68 35 5f 25 3d 70  68 72 61 73 65 5f 24 28  |!Ph5_%=phrase_$(|
00000d40  70 6c 69 6e 65 5f 25 2b  35 29 3a f2 72 49 28 50  |pline_%+5):.rI(P|
00000d50  68 72 61 73 5f 25 2c 22  50 68 35 22 29 3a e1 0d  |hras_%,"Ph5"):..|
00000d60  05 b4 c5 dd f2 55 70 64  61 74 65 57 6f 72 64 73  |.....UpdateWords|
00000d70  3a 24 21 57 6f 31 5f 25  3d 77 6f 72 64 5f 24 28  |:$!Wo1_%=word_$(|
00000d80  77 6c 69 6e 65 5f 25 2b  31 29 3a f2 72 49 28 57  |wline_%+1):.rI(W|
00000d90  6f 72 64 73 5f 25 2c 22  57 6f 31 22 29 3a 24 21  |ords_%,"Wo1"):$!|
00000da0  57 6f 32 5f 25 3d 77 6f  72 64 5f 24 28 77 6c 69  |Wo2_%=word_$(wli|
00000db0  6e 65 5f 25 2b 32 29 3a  f2 72 49 28 57 6f 72 64  |ne_%+2):.rI(Word|
00000dc0  73 5f 25 2c 22 57 6f 32  22 29 3a 24 21 57 6f 33  |s_%,"Wo2"):$!Wo3|
00000dd0  5f 25 3d 77 6f 72 64 5f  24 28 77 6c 69 6e 65 5f  |_%=word_$(wline_|
00000de0  25 2b 33 29 3a f2 72 49  28 57 6f 72 64 73 5f 25  |%+3):.rI(Words_%|
00000df0  2c 22 57 6f 33 22 29 3a  24 21 57 6f 34 5f 25 3d  |,"Wo3"):$!Wo4_%=|
00000e00  77 6f 72 64 5f 24 28 77  6c 69 6e 65 5f 25 2b 34  |word_$(wline_%+4|
00000e10  29 3a f2 72 49 28 57 6f  72 64 73 5f 25 2c 22 57  |):.rI(Words_%,"W|
00000e20  6f 34 22 29 0d 05 e6 32  24 21 57 6f 35 5f 25 3d  |o4")...2$!Wo5_%=|
00000e30  77 6f 72 64 5f 24 28 77  6c 69 6e 65 5f 25 2b 35  |word_$(wline_%+5|
00000e40  29 3a f2 72 49 28 57 6f  72 64 73 5f 25 2c 22 57  |):.rI(Words_%,"W|
00000e50  6f 35 22 29 3a e1 0d 06  22 0b dd a4 62 5f 3a 3d  |o5"):..."...b_:=|
00000e60  b9 0d 06 4a 0b dd a4 65  5f 3a 3d b9 0d 06 68 0c  |...J...e_:=...h.|
00000e70  dd a4 70 4b 5f 3a 3d a3  0d 06 86 10 dd a4 68 5f  |..pK_:=.......h_|
00000e80  3a c8 8e 24 77 6e 25 ca  0d 06 90 46 c9 22 4d 61  |:..$wn%....F."Ma|
00000e90  69 6e 22 3a 3d 22 54 68  69 73 20 69 73 20 74 68  |in":="This is th|
00000ea0  65 20 6d 61 69 6e 20 77  69 6e 64 6f 77 20 6f 66  |e main window of|
00000eb0  20 74 68 65 20 27 4e 65  77 5f 41 70 70 6c 6e 27  | the 'New_Appln'|
00000ec0  20 61 70 70 6c 69 63 61  74 69 6f 6e 2e 22 0d 06  | application."..|
00000ed0  9a 55 cb 3a e7 21 68 25  3d 2d 32 8c 3d 22 54 68  |.U.:.!h%=-2.="Th|
00000ee0  69 73 20 69 73 20 74 68  65 20 27 4e 65 77 5f 41  |is is the 'New_A|
00000ef0  70 70 6c 6e 27 20 69 63  6f 6e 2e 7c 4d 43 6c 69  |ppln' icon.|MCli|
00000f00  63 6b 20 53 45 4c 45 43  54 20 74 6f 20 6f 70 65  |ck SELECT to ope|
00000f10  6e 20 74 68 65 20 6d 61  69 6e 20 77 69 6e 64 6f  |n the main windo|
00000f20  77 2e 22 0d 06 ae 07 3d  22 22 0d 06 c2 0c dd a4  |w."....=""......|
00000f30  72 4d 5f 3a 3d b9 0d 06  d6 0c dd a4 72 42 5f 3a  |rM_:=.......rB_:|
00000f40  3d b9 0d 06 f4 0c dd a4  70 42 5f 3a 3d b9 0d 07  |=.......pB_:=...|
00000f50  62 cf dd a4 69 5f 28 41  24 2c 42 25 29 3a ea 41  |b...i_(A$,B%):.A|
00000f60  25 2c 43 24 3a 52 65 74  75 72 6e 5f 25 3d 30 3a  |%,C$:Return_%=0:|
00000f70  4d 5f 24 3d 22 22 3a 73  65 6e 64 5f 25 3d a3 3a  |M_$="":send_%=.:|
00000f80  53 65 78 5f 24 3d 22 4d  22 3a 74 65 6d 70 5f 24  |Sex_$="M":temp_$|
00000f90  3d 22 22 3a 71 75 65 65  72 5f 24 3d 22 43 6c 69  |="":queer_$="Cli|
00000fa0  63 6b 20 6f 6e 20 21 52  65 70 44 61 74 61 20 74  |ck on !RepData t|
00000fb0  6f 20 6c 65 74 20 52 65  70 6f 72 74 20 57 72 69  |o let Report Wri|
00000fc0  74 65 72 20 6b 6e 6f 77  20 77 68 65 72 65 20 74  |ter know where t|
00000fd0  6f 20 66 69 6e 64 20 74  68 65 20 53 74 61 74 65  |o find the State|
00000fe0  6d 65 6e 74 73 2e 22 3a  6d 65 73 73 61 67 65 5f  |ments.":message_|
00000ff0  25 3d b9 3a 6f 70 65 6e  5f 25 3d b9 3a 6f 70 65  |%=.:open_%=.:ope|
00001000  6e 24 3d 22 3c 72 68 5f  3e 2e 4d 65 6e 75 73 2e  |n$="<rh_>.Menus.|
00001010  50 53 22 3a 78 5f 3d 8e  6f 70 65 6e 24 0d 07 f8  |PS":x_=.open$...|
00001020  e2 e8 23 78 5f 2c 50 53  31 5f 24 2c 50 53 32 5f  |..#x_,PS1_$,PS2_|
00001030  24 2c 50 53 33 5f 24 2c  50 53 34 5f 24 2c 50 53  |$,PS3_$,PS4_$,PS|
00001040  35 5f 24 3a d9 23 78 5f  3a 6f 70 65 6e 24 3d 22  |5_$:.#x_:open$="|
00001050  3c 72 68 5f 3e 2e 4d 65  6e 75 73 2e 52 22 3a 78  |<rh_>.Menus.R":x|
00001060  5f 3d 8e 6f 70 65 6e 24  3a e8 23 78 5f 2c 52 65  |_=.open$:.#x_,Re|
00001070  74 75 72 6e 5f 25 3a d9  23 78 5f 3a 6f 70 65 6e  |turn_%:.#x_:open|
00001080  24 3d 22 3c 72 68 5f 3e  2e 4d 65 6e 75 73 2e 52  |$="<rh_>.Menus.R|
00001090  45 22 3a 78 5f 3d 8e 6f  70 65 6e 24 3a e8 23 78  |E":x_=.open$:.#x|
000010a0  5f 2c 52 45 31 5f 24 2c  52 45 32 5f 24 2c 52 45  |_,RE1_$,RE2_$,RE|
000010b0  33 5f 24 2c 52 45 34 5f  24 2c 52 45 35 5f 24 3a  |3_$,RE4_$,RE5_$:|
000010c0  d9 23 78 5f 3a 6f 70 65  6e 24 3d 22 3c 72 68 5f  |.#x_:open$="<rh_|
000010d0  3e 2e 4d 65 6e 75 73 2e  4d 22 3a 78 5f 3d 8e 6f  |>.Menus.M":x_=.o|
000010e0  70 65 6e 24 3a e8 23 78  5f 2c 6d 65 73 73 61 67  |pen$:.#x_,messag|
000010f0  65 5f 25 2c 6f 70 65 6e  5f 25 3a d9 23 78 5f 0d  |e_%,open_%:.#x_.|
00001100  08 98 ab de 50 6e 74 25  26 32 35 36 2c 46 70 6f  |....Pnt%&256,Fpo|
00001110  6c 6c 25 32 35 36 3a de  62 75 66 5f 25 20 32 35  |ll%256:.buf_% 25|
00001120  36 3a 77 69 6e 64 6f 77  5f 25 3d 30 3a 6c 69 6e  |6:window_%=0:lin|
00001130  65 5f 25 3d 30 3a 44 61  74 65 31 5f 3d b9 3a 44  |e_%=0:Date1_=.:D|
00001140  61 74 65 32 5f 3d a3 3a  44 61 74 65 33 5f 3d a3  |ate2_=.:Date3_=.|
00001150  3a 44 61 74 65 34 5f 3d  a3 3a 75 73 65 72 5f 24  |:Date4_=.:user_$|
00001160  3d 22 22 3a de 4d 6f 6e  74 68 5f 24 28 31 32 2c  |="":.Month_$(12,|
00001170  31 29 3a f7 2b 31 3a e3  6d 6f 6e 74 68 5f 3d 31  |1):.+1:.month_=1|
00001180  b8 31 32 3a f3 4d 6f 6e  74 68 5f 24 28 6d 6f 6e  |.12:.Month_$(mon|
00001190  74 68 5f 2c 30 29 2c 4d  6f 6e 74 68 5f 24 28 6d  |th_,0),Month_$(m|
000011a0  6f 6e 74 68 5f 2c 31 29  3a ed 0d 08 e8 8b dc 20  |onth_,1):...... |
000011b0  4a 61 6e 2c 4a 61 6e 75  61 72 79 2c 46 65 62 2c  |Jan,January,Feb,|
000011c0  46 65 62 72 75 61 72 79  2c 4d 61 72 2c 4d 61 72  |February,Mar,Mar|
000011d0  63 68 2c 41 70 72 2c 41  70 72 69 6c 2c 4d 61 79  |ch,Apr,April,May|
000011e0  2c 4d 61 79 2c 4a 75 6e  2c 4a 75 6e 65 2c 4a 75  |,May,Jun,June,Ju|
000011f0  6c 2c 4a 75 6c 79 2c 41  75 67 2c 41 75 67 75 73  |l,July,Aug,Augus|
00001200  74 2c 53 65 70 2c 53 65  70 74 65 6d 62 65 72 2c  |t,Sep,September,|
00001210  4f 63 74 2c 4f 63 74 6f  62 65 72 2c 4e 6f 76 2c  |Oct,October,Nov,|
00001220  4e 6f 76 65 6d 62 65 72  2c 44 65 63 2c 44 65 63  |November,Dec,Dec|
00001230  65 6d 62 65 72 0d 08 f2  3c de 44 61 79 5f 24 28  |ember...<.Day_$(|
00001240  37 2c 31 29 3a f7 2b 31  3a e3 64 61 79 5f 3d 31  |7,1):.+1:.day_=1|
00001250  b8 37 3a f3 44 61 79 5f  24 28 64 61 79 5f 2c 30  |.7:.Day_$(day_,0|
00001260  29 2c 44 61 79 5f 24 28  64 61 79 5f 2c 31 29 3a  |),Day_$(day_,1):|
00001270  ed 0d 09 10 5a dc 20 4d  6f 6e 2c 4d 6f 6e 64 61  |....Z. Mon,Monda|
00001280  79 2c 54 75 65 2c 54 75  65 73 64 61 79 2c 57 65  |y,Tue,Tuesday,We|
00001290  64 2c 57 65 64 6e 65 73  64 61 79 2c 54 68 75 2c  |d,Wednesday,Thu,|
000012a0  54 68 75 72 73 64 61 79  2c 46 72 69 2c 46 72 69  |Thursday,Fri,Fri|
000012b0  64 61 79 2c 53 61 74 2c  53 61 74 75 72 64 61 79  |day,Sat,Saturday|
000012c0  2c 53 75 6e 2c 53 75 6e  64 61 79 0d 09 1a e1 6d  |,Sun,Sunday....m|
000012d0  61 78 79 5f 25 3d 38 30  3a 6d 61 78 79 6c 69 6e  |axy_%=80:maxylin|
000012e0  65 73 5f 25 3d 31 36 30  3a 6d 61 78 75 73 65 72  |es_%=160:maxuser|
000012f0  5f 25 3d 6d 61 78 79 5f  25 3a 6d 61 78 6c 69 6e  |_%=maxy_%:maxlin|
00001300  65 73 5f 25 3d 6d 61 78  79 6c 69 6e 65 73 5f 25  |es_%=maxylines_%|
00001310  3a 6d 61 78 70 68 72 61  73 65 73 5f 25 3d 6d 61  |:maxphrases_%=ma|
00001320  78 79 5f 25 3a 6d 61 78  77 6f 72 64 73 5f 25 3d  |xy_%:maxwords_%=|
00001330  6d 61 78 79 5f 25 3a 54  69 74 6c 65 41 5f 24 3d  |maxy_%:TitleA_$=|
00001340  22 22 3a de 6c 69 6e 65  5f 24 28 6d 61 78 6c 69  |"":.line_$(maxli|
00001350  6e 65 73 5f 25 29 2c 6c  6c 69 6e 65 5f 24 28 6d  |nes_%),lline_$(m|
00001360  61 78 6c 69 6e 65 73 5f  25 29 2c 70 68 72 61 73  |axlines_%),phras|
00001370  65 5f 24 28 6d 61 78 70  68 72 61 73 65 73 5f 25  |e_$(maxphrases_%|
00001380  29 2c 77 6f 72 64 5f 24  28 6d 61 78 77 6f 72 64  |),word_$(maxword|
00001390  73 5f 25 29 2c 77 69 72  64 5f 24 28 31 30 30 29  |s_%),wird_$(100)|
000013a0  3a 6d 61 73 6b 25 3d 26  31 38 33 32 0d 09 74 6b  |:mask%=&1832..tk|
000013b0  43 41 50 53 5f 3d a3 3a  63 61 70 73 5f 3d a3 3a  |CAPS_=.:caps_=.:|
000013c0  53 68 6f 72 74 4e 61 6d  65 5f 24 3d 22 50 65 74  |ShortName_$="Pet|
000013d0  65 72 22 3a 4c 65 76 65  6c 5f 3d 31 3a 45 64 64  |er":Level_=1:Edd|
000013e0  5f 25 3d 30 3a 4d 61 69  6e 5f 25 3d 30 3a 41 5f  |_%=0:Main_%=0:A_|
000013f0  25 3d 30 3a 50 68 72 61  73 5f 25 3d 30 3a 57 6f  |%=0:Phras_%=0:Wo|
00001400  72 64 73 5f 25 3d 30 3a  f2 69 52 65 73 28 41 24  |rds_%=0:.iRes(A$|
00001410  2c 42 25 29 3a 3d b9 0d  09 ec 31 dd f2 73 68 75  |,B%):=....1..shu|
00001420  74 3a f2 73 75 74 3a e7  a4 67 57 78 28 22 50 65  |t:.sut:..gWx("Pe|
00001430  64 69 74 6f 72 22 29 84  a4 67 57 78 28 22 57 65  |ditor")..gWx("We|
00001440  64 69 74 6f 72 22 29 e1  0d 0a 3c 22 e7 a4 67 57  |ditor")...<"..gW|
00001450  78 28 22 57 6f 72 64 73  22 29 f2 63 6c 6f 73 65  |x("Words").close|
00001460  57 28 57 6f 72 64 73 5f  25 29 0d 0a 46 24 e7 a4  |W(Words_%)..F$..|
00001470  67 57 78 28 22 50 68 72  61 73 65 73 22 29 f2 63  |gWx("Phrases").c|
00001480  6c 6f 73 65 57 28 50 68  72 61 73 5f 25 29 0d 0a  |loseW(Phras_%)..|
00001490  50 05 e1 0d 0a 64 32 dd  a4 61 31 5f 3a 64 75 6e  |P....d2..a1_:dun|
000014a0  6b 5f 3d 31 3a 74 74 5f  24 3d 24 21 61 31 5f 25  |k_=1:tt_$=$!a1_%|
000014b0  3a f2 73 68 75 74 3a f2  73 65 6e 64 28 74 74 5f  |:.shut:.send(tt_|
000014c0  24 29 3a 3d b9 0d 0a 6e  32 dd a4 61 32 5f 3a 64  |$):=...n2..a2_:d|
000014d0  75 6e 6b 5f 3d 32 3a 74  74 5f 24 3d 24 21 61 32  |unk_=2:tt_$=$!a2|
000014e0  5f 25 3a f2 73 68 75 74  3a f2 73 65 6e 64 28 74  |_%:.shut:.send(t|
000014f0  74 5f 24 29 3a 3d b9 0d  0a 78 32 dd a4 61 33 5f  |t_$):=...x2..a3_|
00001500  3a 64 75 6e 6b 5f 3d 33  3a 74 74 5f 24 3d 24 21  |:dunk_=3:tt_$=$!|
00001510  61 33 5f 25 3a f2 73 68  75 74 3a f2 73 65 6e 64  |a3_%:.shut:.send|
00001520  28 74 74 5f 24 29 3a 3d  b9 0d 0a 82 32 dd a4 61  |(tt_$):=....2..a|
00001530  34 5f 3a 64 75 6e 6b 5f  3d 34 3a 74 74 5f 24 3d  |4_:dunk_=4:tt_$=|
00001540  24 21 61 34 5f 25 3a f2  73 68 75 74 3a f2 73 65  |$!a4_%:.shut:.se|
00001550  6e 64 28 74 74 5f 24 29  3a 3d b9 0d 0a 8c 32 dd  |nd(tt_$):=....2.|
00001560  a4 61 35 5f 3a 64 75 6e  6b 5f 3d 35 3a 74 74 5f  |.a5_:dunk_=5:tt_|
00001570  24 3d 24 21 61 35 5f 25  3a f2 73 68 75 74 3a f2  |$=$!a5_%:.shut:.|
00001580  73 65 6e 64 28 74 74 5f  24 29 3a 3d b9 0d 0a a0  |send(tt_$):=....|
00001590  2f dd a4 50 68 31 5f 3a  64 75 6e 6b 5f 3d 31 3a  |/..Ph1_:dunk_=1:|
000015a0  70 70 5f 24 3d 24 21 50  68 31 5f 25 3a f2 70 73  |pp_$=$!Ph1_%:.ps|
000015b0  65 6e 64 28 70 70 5f 24  29 3a 3d b9 0d 0a aa 2f  |end(pp_$):=..../|
000015c0  dd a4 50 68 32 5f 3a 64  75 6e 6b 5f 3d 32 3a 70  |..Ph2_:dunk_=2:p|
000015d0  70 5f 24 3d 24 21 50 68  32 5f 25 3a f2 70 73 65  |p_$=$!Ph2_%:.pse|
000015e0  6e 64 28 70 70 5f 24 29  3a 3d b9 0d 0a b4 2f dd  |nd(pp_$):=..../.|
000015f0  a4 50 68 33 5f 3a 64 75  6e 6b 5f 3d 33 3a 70 70  |.Ph3_:dunk_=3:pp|
00001600  5f 24 3d 24 21 50 68 33  5f 25 3a f2 70 73 65 6e  |_$=$!Ph3_%:.psen|
00001610  64 28 70 70 5f 24 29 3a  3d b9 0d 0a be 2f dd a4  |d(pp_$):=..../..|
00001620  50 68 34 5f 3a 64 75 6e  6b 5f 3d 34 3a 70 70 5f  |Ph4_:dunk_=4:pp_|
00001630  24 3d 24 21 50 68 34 5f  25 3a f2 70 73 65 6e 64  |$=$!Ph4_%:.psend|
00001640  28 70 70 5f 24 29 3a 3d  b9 0d 0a c8 2f dd a4 50  |(pp_$):=..../..P|
00001650  68 35 5f 3a 64 75 6e 6b  5f 3d 35 3a 70 70 5f 24  |h5_:dunk_=5:pp_$|
00001660  3d 24 21 50 68 35 5f 25  3a f2 70 73 65 6e 64 28  |=$!Ph5_%:.psend(|
00001670  70 70 5f 24 29 3a 3d b9  0d 0a dc 2f dd a4 57 6f  |pp_$):=..../..Wo|
00001680  31 5f 3a 64 75 6e 6b 5f  3d 31 3a 64 64 5f 24 3d  |1_:dunk_=1:dd_$=|
00001690  24 21 57 6f 31 5f 25 3a  f2 77 73 65 6e 64 28 64  |$!Wo1_%:.wsend(d|
000016a0  64 5f 24 29 3a 3d b9 0d  0a e6 2f dd a4 57 6f 32  |d_$):=..../..Wo2|
000016b0  5f 3a 64 75 6e 6b 5f 3d  32 3a 64 64 5f 24 3d 24  |_:dunk_=2:dd_$=$|
000016c0  21 57 6f 32 5f 25 3a f2  77 73 65 6e 64 28 64 64  |!Wo2_%:.wsend(dd|
000016d0  5f 24 29 3a 3d b9 0d 0a  f0 2f dd a4 57 6f 33 5f  |_$):=..../..Wo3_|
000016e0  3a 64 75 6e 6b 5f 3d 33  3a 64 64 5f 24 3d 24 21  |:dunk_=3:dd_$=$!|
000016f0  57 6f 33 5f 25 3a f2 77  73 65 6e 64 28 64 64 5f  |Wo3_%:.wsend(dd_|
00001700  24 29 3a 3d b9 0d 0a fa  2f dd a4 57 6f 34 5f 3a  |$):=..../..Wo4_:|
00001710  64 75 6e 6b 5f 3d 34 3a  64 64 5f 24 3d 24 21 57  |dunk_=4:dd_$=$!W|
00001720  6f 34 5f 25 3a f2 77 73  65 6e 64 28 64 64 5f 24  |o4_%:.wsend(dd_$|
00001730  29 3a 3d b9 0d 0b 04 2f  dd a4 57 6f 35 5f 3a 64  |):=..../..Wo5_:d|
00001740  75 6e 6b 5f 3d 35 3a 64  64 5f 24 3d 24 21 57 6f  |unk_=5:dd_$=$!Wo|
00001750  35 5f 25 3a f2 77 73 65  6e 64 28 64 64 5f 24 29  |5_%:.wsend(dd_$)|
00001760  3a 3d b9 0d 0b 18 1a dd  a4 63 61 6e 6e 6f 74 5f  |:=.......cannot_|
00001770  3a e7 a4 6d 6f 75 73 65  3d 31 8c 3d a3 0d 0b 22  |:..mouse=1.=..."|
00001780  1b f2 73 73 65 6e 64 28  22 63 61 6e 6e 6f 74 20  |..ssend("cannot |
00001790  79 65 74 22 29 3a 3d b9  0d 0b 2c 17 dd a4 63 61  |yet"):=...,...ca|
000017a0  6e 5f 3a e7 a4 6d 6f 75  73 65 3d 31 8c 3d a3 0d  |n_:..mouse=1.=..|
000017b0  0b 36 14 f2 73 73 65 6e  64 28 22 63 61 6e 22 29  |.6..ssend("can")|
000017c0  3a 3d b9 0d 0b 40 17 dd  a4 61 6e 64 5f 3a e7 a4  |:=...@...and_:..|
000017d0  6d 6f 75 73 65 3d 31 8c  3d a3 0d 0b 4a 14 f2 73  |mouse=1.=...J..s|
000017e0  73 65 6e 64 28 22 61 6e  64 22 29 3a 3d b9 0d 0b  |send("and"):=...|
000017f0  54 17 dd a4 62 75 74 5f  3a e7 a4 6d 6f 75 73 65  |T...but_:..mouse|
00001800  3d 31 8c 3d a3 0d 0b 5e  14 f2 73 73 65 6e 64 28  |=1.=...^..ssend(|
00001810  22 62 75 74 22 29 3a 3d  b9 0d 0b 68 16 dd a4 6f  |"but"):=...h...o|
00001820  72 5f 3a e7 a4 6d 6f 75  73 65 3d 31 8c 3d a3 0d  |r_:..mouse=1.=..|
00001830  0b 72 13 f2 73 73 65 6e  64 28 22 6f 72 22 29 3a  |.r..ssend("or"):|
00001840  3d b9 0d 0b 7c 18 dd a4  61 62 6c 65 5f 3a e7 a4  |=...|...able_:..|
00001850  6d 6f 75 73 65 3d 31 8c  3d a3 0d 0b 86 1b f2 73  |mouse=1.=......s|
00001860  73 65 6e 64 28 22 69 73  20 61 62 6c 65 20 74 6f  |send("is able to|
00001870  22 29 3a 3d b9 0d 0b 90  1b dd a4 6e 6f 74 61 62  |"):=.......notab|
00001880  6c 65 5f 3a e7 a4 6d 6f  75 73 65 3d 31 8c 3d a3  |le_:..mouse=1.=.|
00001890  0d 0b 9a 23 f2 73 73 65  6e 64 28 22 69 73 20 6e  |...#.ssend("is n|
000018a0  6f 74 20 79 65 74 20 61  62 6c 65 20 74 6f 22 29  |ot yet able to")|
000018b0  3a 3d b9 0d 0b a4 18 dd  a4 73 74 6f 70 5f 3a e7  |:=.......stop_:.|
000018c0  a4 6d 6f 75 73 65 3d 31  8c 3d a3 0d 0b ae 2d f2  |.mouse=1.=....-.|
000018d0  73 73 65 6e 64 28 22 2e  22 29 3a 43 41 50 53 5f  |ssend("."):CAPS_|
000018e0  3d b9 3a f2 73 49 28 4d  61 69 6e 5f 25 2c 22 43  |=.:.sI(Main_%,"C|
000018f0  41 50 53 22 29 3a 3d b9  0d 0b b8 17 dd a4 63 6f  |APS"):=.......co|
00001900  6d 5f 3a e7 a4 6d 6f 75  73 65 3d 31 8c 3d a3 0d  |m_:..mouse=1.=..|
00001910  0b c2 12 f2 73 73 65 6e  64 28 22 2c 22 29 3a 3d  |....ssend(","):=|
00001920  b9 0d 0b cc 15 dd a4 73  5f 3a e7 a4 6d 6f 75 73  |.......s_:..mous|
00001930  65 3d 31 8c 3d a3 0d 0b  d6 12 f2 73 73 65 6e 64  |e=1.=......ssend|
00001940  28 22 73 22 29 3a 3d b9  0d 0b e0 16 dd a4 61 70  |("s"):=.......ap|
00001950  5f 3a e7 a4 6d 6f 75 73  65 3d 31 8c 3d a3 0d 0b  |_:..mouse=1.=...|
00001960  ea 13 f2 73 73 65 6e 64  28 22 27 73 22 29 3a 3d  |...ssend("'s"):=|
00001970  b9 0d 0b f4 17 dd a4 68  69 73 5f 3a e7 a4 6d 6f  |.......his_:..mo|
00001980  75 73 65 3d 31 8c 3d a3  0d 0b fe 30 e7 53 65 78  |use=1.=....0.Sex|
00001990  5f 24 3d 22 4d 22 f2 73  73 65 6e 64 28 22 68 69  |_$="M".ssend("hi|
000019a0  73 22 29 3a 3d b9 8b f2  73 73 65 6e 64 28 22 68  |s"):=...ssend("h|
000019b0  65 72 73 22 29 3a 3d b9  0d 0c 08 17 dd a4 68 69  |ers"):=.......hi|
000019c0  6d 5f 3a e7 a4 6d 6f 75  73 65 3d 31 8c 3d a3 0d  |m_:..mouse=1.=..|
000019d0  0c 12 2f e7 53 65 78 5f  24 3d 22 4d 22 f2 73 73  |../.Sex_$="M".ss|
000019e0  65 6e 64 28 22 68 69 6d  22 29 3a 3d b9 8b f2 73  |end("him"):=...s|
000019f0  73 65 6e 64 28 22 68 65  72 22 29 3a 3d b9 0d 0c  |send("her"):=...|
00001a00  1c 16 dd a4 68 65 5f 3a  e7 a4 6d 6f 75 73 65 3d  |....he_:..mouse=|
00001a10  31 8c 3d a3 0d 0c 26 2e  e7 53 65 78 5f 24 3d 22  |1.=...&..Sex_$="|
00001a20  4d 22 f2 73 73 65 6e 64  28 22 68 65 22 29 3a 3d  |M".ssend("he"):=|
00001a30  b9 8b f2 73 73 65 6e 64  28 22 73 68 65 22 29 3a  |...ssend("she"):|
00001a40  3d b9 0d 0c 30 3b dd a4  43 41 50 53 5f 3a e7 43  |=...0;..CAPS_:.C|
00001a50  41 50 53 5f 3d b9 8c 43  41 50 53 5f 3d a3 3a 63  |APS_=..CAPS_=.:c|
00001a60  61 70 73 5f 3d a3 3a f2  75 73 49 28 4d 61 69 6e  |aps_=.:.usI(Main|
00001a70  5f 25 2c 22 43 41 50 53  22 29 3a 3d b9 0d 0c 44  |_%,"CAPS"):=...D|
00001a80  32 e7 43 41 50 53 5f 3d  a3 8c 43 41 50 53 5f 3d  |2.CAPS_=..CAPS_=|
00001a90  b9 3a 63 61 70 73 5f 3d  b9 3a f2 73 49 28 4d 61  |.:caps_=.:.sI(Ma|
00001aa0  69 6e 5f 25 2c 22 43 41  50 53 22 29 3a 3d b9 0d  |in_%,"CAPS"):=..|
00001ab0  0c 4e 04 0d 0c 58 30 dd  a4 53 68 6f 72 74 4e 61  |.N...X0..ShortNa|
00001ac0  6d 65 5f 3a e7 a4 6d 6f  75 73 65 3d 34 f2 73 73  |me_:..mouse=4.ss|
00001ad0  65 6e 64 28 53 68 6f 72  74 4e 61 6d 65 5f 24 29  |end(ShortName_$)|
00001ae0  3a 3d b9 0d 0c 6c 5d e7  77 69 6e 64 6f 77 5f 25  |:=...l].window_%|
00001af0  3d 30 8c c8 99 32 36 32  33 35 35 2c 2c 62 75 66  |=0...262355,,buf|
00001b00  5f 25 3a 77 69 6e 64 6f  77 5f 25 3d 21 62 75 66  |_%:window_%=!buf|
00001b10  5f 25 3a 69 63 6f 6e 5f  25 3d 62 75 66 5f 25 21  |_%:icon_%=buf_%!|
00001b20  34 3a 70 6f 73 78 5f 25  3d 62 75 66 5f 25 21 38  |4:posx_%=buf_%!8|
00001b30  3a 70 6f 73 79 5f 25 3d  62 75 66 5f 25 21 31 32  |:posy_%=buf_%!12|
00001b40  0d 0c 76 21 e7 a4 6d 6f  75 73 65 3d 31 8c 7a 5f  |..v!..mouse=1.z_|
00001b50  25 3d a4 77 69 6e 64 6f  77 28 22 4e 61 6d 65 22  |%=.window("Name"|
00001b60  29 0d 0c 80 06 3d b9 0d  0c 94 1b dd f2 73 73 65  |)....=.......sse|
00001b70  6e 64 28 73 73 5f 24 29  3a e7 43 41 50 53 5f 3d  |nd(ss_$):.CAPS_=|
00001b80  b9 8c 0d 0c a8 2c 63 61  70 73 5f 3d b9 3a e7 97  |.....,caps_=.:..|
00001b90  28 c0 73 73 5f 24 2c 31  29 29 3e 39 36 80 97 28  |(.ss_$,1))>96..(|
00001ba0  c0 73 73 5f 24 2c 31 29  29 3c 31 32 33 8c 0d 0c  |.ss_$,1))<123...|
00001bb0  bc 32 7a 5f 3d 97 28 c0  73 73 5f 24 2c 31 29 29  |.2z_=.(.ss_$,1))|
00001bc0  3a 7a 5f 3d 7a 5f 2d 33  32 3a 7a 5f 24 3d bd 28  |:z_=z_-32:z_$=.(|
00001bd0  7a 5f 29 3a c0 73 73 5f  24 2c 31 29 3d 7a 5f 24  |z_):.ss_$,1)=z_$|
00001be0  0d 0c d0 21 cd 3a 43 41  50 53 5f 3d a3 3a f2 75  |...!.:CAPS_=.:.u|
00001bf0  73 49 28 4d 61 69 6e 5f  25 2c 22 43 41 50 53 22  |sI(Main_%,"CAPS"|
00001c00  29 0d 0c e4 48 cd 3a 74  65 6d 70 5f 24 3d 73 73  |)...H.:temp_$=ss|
00001c10  5f 24 3a e7 77 69 6e 64  6f 77 5f 25 3c 3e 30 8c  |_$:.window_%<>0.|
00001c20  c8 99 32 36 32 33 35 34  2c 77 69 6e 64 6f 77 5f  |..262354,window_|
00001c30  25 2c 69 63 6f 6e 5f 25  2c 70 6f 73 78 5f 25 2c  |%,icon_%,posx_%,|
00001c40  70 6f 73 79 5f 25 2c 2d  31 0d 0d 02 1c 77 69 6e  |posy_%,-1....win|
00001c50  64 6f 77 5f 25 3d 30 3a  f2 63 6f 66 5f 28 73 73  |dow_%=0:.cof_(ss|
00001c60  5f 24 29 3a e1 0d 0d 2a  19 dd a4 4e 61 6d 65 49  |_$):...*...NameI|
00001c70  6e 5f 3a f2 67 65 74 6e  61 6d 65 3a 3d b9 0d 0d  |n_:.getname:=...|
00001c80  3e 58 dd f2 67 65 74 6e  61 6d 65 3a 53 68 6f 72  |>X..getname:Shor|
00001c90  74 4e 61 6d 65 5f 24 3d  24 21 4e 61 6d 65 49 6e  |tName_$=$!NameIn|
00001ca0  5f 25 3a 24 21 53 68 6f  72 74 4e 61 6d 65 5f 25  |_%:$!ShortName_%|
00001cb0  3d 53 68 6f 72 74 4e 61  6d 65 5f 24 3a f2 72 49  |=ShortName_$:.rI|
00001cc0  28 4d 61 69 6e 5f 25 2c  22 53 68 6f 72 74 4e 61  |(Main_%,"ShortNa|
00001cd0  6d 65 22 29 3a e1 0d 0d  52 29 dd a4 4e 61 6d 65  |me"):...R)..Name|
00001ce0  4f 4b 5f 3a f2 67 65 74  6e 61 6d 65 3a f2 63 6c  |OK_:.getname:.cl|
00001cf0  6f 73 65 57 28 4e 61 6d  65 5f 25 29 3a 3d b9 0d  |oseW(Name_%):=..|
00001d00  0d 66 2f dd a4 46 65 6d  61 6c 65 5f 3a e7 53 65  |.f/..Female_:.Se|
00001d10  78 5f 24 3d 22 46 22 f2  73 49 28 4e 61 6d 65 5f  |x_$="F".sI(Name_|
00001d20  25 2c 22 46 65 6d 61 6c  65 22 29 3a 3d b9 0d 0d  |%,"Female"):=...|
00001d30  7a 41 e7 53 65 78 5f 24  3d 22 4d 22 20 53 65 78  |zA.Sex_$="M" Sex|
00001d40  5f 24 3d 22 46 22 3a f2  73 49 28 4e 61 6d 65 5f  |_$="F":.sI(Name_|
00001d50  25 2c 22 46 65 6d 61 6c  65 22 29 3a f2 75 73 49  |%,"Female"):.usI|
00001d60  28 4e 61 6d 65 5f 25 2c  22 4d 61 6c 65 22 29 0d  |(Name_%,"Male").|
00001d70  0d 84 65 24 21 68 65 5f  25 3d 22 73 68 65 22 3a  |..e$!he_%="she":|
00001d80  24 21 68 69 6d 5f 25 3d  22 68 65 72 22 3a 24 21  |$!him_%="her":$!|
00001d90  68 69 73 5f 25 3d 22 68  65 72 73 22 3a f2 72 49  |his_%="hers":.rI|
00001da0  28 4d 61 69 6e 5f 25 2c  22 68 65 22 29 3a f2 72  |(Main_%,"he"):.r|
00001db0  49 28 4d 61 69 6e 5f 25  2c 22 68 69 6d 22 29 3a  |I(Main_%,"him"):|
00001dc0  f2 72 49 28 4d 61 69 6e  5f 25 2c 22 68 69 73 22  |.rI(Main_%,"his"|
00001dd0  29 3a 3d b9 0d 0d ac 2b  dd a4 4d 61 6c 65 5f 3a  |):=....+..Male_:|
00001de0  e7 53 65 78 5f 24 3d 22  4d 22 f2 73 49 28 4e 61  |.Sex_$="M".sI(Na|
00001df0  6d 65 5f 25 2c 22 4d 61  6c 65 22 29 3a 3d b9 0d  |me_%,"Male"):=..|
00001e00  0d c0 41 e7 53 65 78 5f  24 3d 22 46 22 20 53 65  |..A.Sex_$="F" Se|
00001e10  78 5f 24 3d 22 4d 22 3a  f2 73 49 28 4e 61 6d 65  |x_$="M":.sI(Name|
00001e20  5f 25 2c 22 4d 61 6c 65  22 29 3a f2 75 73 49 28  |_%,"Male"):.usI(|
00001e30  4e 61 6d 65 5f 25 2c 22  46 65 6d 61 6c 65 22 29  |Name_%,"Female")|
00001e40  0d 0d ca 63 24 21 68 65  5f 25 3d 22 68 65 22 3a  |...c$!he_%="he":|
00001e50  24 21 68 69 6d 5f 25 3d  22 68 69 6d 22 3a 24 21  |$!him_%="him":$!|
00001e60  68 69 73 5f 25 3d 22 68  69 73 22 3a f2 72 49 28  |his_%="his":.rI(|
00001e70  4d 61 69 6e 5f 25 2c 22  68 65 22 29 3a f2 72 49  |Main_%,"he"):.rI|
00001e80  28 4d 61 69 6e 5f 25 2c  22 68 69 6d 22 29 3a f2  |(Main_%,"him"):.|
00001e90  72 49 28 4d 61 69 6e 5f  25 2c 22 68 69 73 22 29  |rI(Main_%,"his")|
00001ea0  3a 3d b9 0d 0d f2 5c dd  f2 6c 6f 61 64 70 68 72  |:=....\..loadphr|
00001eb0  61 73 65 73 28 70 5f 24  29 3a ea 85 3a ee 85 ea  |ases(p_$):..:...|
00001ec0  3a e7 9f 3d 32 30 34 8c  56 5f 24 3d a4 61 6c 65  |:..=204.V_$=.ale|
00001ed0  72 74 28 71 75 65 65 72  5f 24 2c 22 22 2c 22 4f  |rt(queer_$,"","O|
00001ee0  4b 22 2c 22 22 2c 22 22  2c 30 29 3a 64 61 74 61  |K","","",0):data|
00001ef0  5f 3d a3 3a e1 8b 64 61  74 61 5f 3d a3 3a e1 0d  |_=.:..data_=.:..|
00001f00  0d fc 50 e3 70 68 5f 25  3d 31 b8 6d 61 78 70 68  |..P.ph_%=1.maxph|
00001f10  72 61 73 65 73 5f 25 3a  70 68 72 61 73 65 5f 24  |rases_%:phrase_$|
00001f20  28 70 68 5f 25 29 3d 22  22 3a ed 3a 64 61 74 61  |(ph_%)="":.:data|
00001f30  5f 3d b9 3a e7 70 5f 24  3d 22 31 22 20 70 70 5f  |_=.:.p_$="1" pp_|
00001f40  24 3d 22 69 22 8b 70 70  5f 24 3d 22 69 69 22 0d  |$="i".pp_$="ii".|
00001f50  0e 10 70 6f 70 65 6e 24  3d 22 3c 44 61 74 61 24  |..popen$="<Data$|
00001f60  44 69 72 3e 2e 78 69 69  2e 22 2b 70 70 5f 24 3a  |Dir>.xii."+pp_$:|
00001f70  70 68 5f 25 3d 8e 6f 70  65 6e 24 3a e7 70 68 5f  |ph_%=.open$:.ph_|
00001f80  25 3d 30 d9 23 70 68 5f  25 3a 64 61 74 61 5f 3d  |%=0.#ph_%:data_=|
00001f90  a3 3a 56 5f 24 3d a4 61  6c 65 72 74 28 71 75 65  |.:V_$=.alert(que|
00001fa0  65 72 5f 24 2c 22 22 2c  22 4f 4b 22 2c 22 22 2c  |er_$,"","OK","",|
00001fb0  22 22 2c 30 29 3a 64 61  74 61 5f 3d a3 3a e1 0d  |"",0):data_=.:..|
00001fc0  0e 2e 3f 70 5f 25 3d 30  3a f5 3a f2 67 65 74 50  |..?p_%=0:.:.getP|
00001fd0  48 3a 70 5f 25 3d 70 5f  25 2b 31 3a 70 68 72 61  |H:p_%=p_%+1:phra|
00001fe0  73 65 5f 24 28 70 5f 25  29 3d 61 5f 24 3a fd c5  |se_$(p_%)=a_$:..|
00001ff0  23 70 68 5f 25 3a d9 23  70 68 5f 25 3a e1 0d 0e  |#ph_%:.#ph_%:...|
00002000  42 5a dd f2 6c 6f 61 64  77 6f 72 64 73 28 70 5f  |BZ..loadwords(p_|
00002010  24 29 3a ea 85 3a ee 85  ea 3a e7 9f 3d 32 30 34  |$):..:...:..=204|
00002020  8c 56 5f 24 3d a4 61 6c  65 72 74 28 71 75 65 65  |.V_$=.alert(quee|
00002030  72 5f 24 2c 22 22 2c 22  4f 4b 22 2c 22 22 2c 22  |r_$,"","OK","","|
00002040  22 2c 30 29 3a 64 61 74  61 5f 3d a3 3a e1 8b 64  |",0):data_=.:..d|
00002050  61 74 61 5f 3d a3 3a e1  0d 0e 4c 4c e3 70 68 5f  |ata_=.:...LL.ph_|
00002060  25 3d 31 b8 6d 61 78 77  6f 72 64 73 5f 25 3a 77  |%=1.maxwords_%:w|
00002070  6f 72 64 5f 24 28 70 68  5f 25 29 3d 22 22 3a ed  |ord_$(ph_%)="":.|
00002080  3a 64 61 74 61 5f 3d b9  3a e7 70 5f 24 3d 22 31  |:data_=.:.p_$="1|
00002090  22 20 70 70 5f 24 3d 22  69 22 8b 70 70 5f 24 3d  |" pp_$="i".pp_$=|
000020a0  22 69 69 22 0d 0e 60 c5  6f 70 65 6e 24 3d 22 3c  |"ii"..`.open$="<|
000020b0  44 61 74 61 24 44 69 72  3e 2e 78 69 69 69 2e 22  |Data$Dir>.xiii."|
000020c0  2b 70 70 5f 24 3a 70 68  5f 25 3d 8e 6f 70 65 6e  |+pp_$:ph_%=.open|
000020d0  24 3a e7 70 68 5f 25 3d  30 d9 23 70 68 5f 25 3a  |$:.ph_%=0.#ph_%:|
000020e0  64 61 74 61 5f 3d a3 3a  71 75 65 65 72 5f 24 3d  |data_=.:queer_$=|
000020f0  22 43 6c 69 63 6b 20 6f  6e 20 21 52 65 70 44 61  |"Click on !RepDa|
00002100  74 61 20 74 6f 20 6c 65  74 20 52 65 70 6f 72 74  |ta to let Report|
00002110  20 57 72 69 74 65 72 20  6b 6e 6f 77 20 77 68 65  | Writer know whe|
00002120  72 65 20 74 6f 20 66 69  6e 64 20 74 68 65 20 53  |re to find the S|
00002130  74 61 74 65 6d 65 6e 74  73 2e 22 3a 56 5f 24 3d  |tatements.":V_$=|
00002140  a4 61 6c 65 72 74 28 71  75 65 65 72 5f 24 2c 22  |.alert(queer_$,"|
00002150  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 2c 30 29 3a  |","OK","","",0):|
00002160  64 61 74 61 5f 3d a3 3a  e1 0d 0e 7e 3d 70 5f 25  |data_=.:...~=p_%|
00002170  3d 30 3a f5 3a f2 67 65  74 50 48 3a 70 5f 25 3d  |=0:.:.getPH:p_%=|
00002180  70 5f 25 2b 31 3a 77 6f  72 64 5f 24 28 70 5f 25  |p_%+1:word_$(p_%|
00002190  29 3d 61 5f 24 3a fd c5  23 70 68 5f 25 3a d9 23  |)=a_$:..#ph_%:.#|
000021a0  70 68 5f 25 3a e1 0d 0e  92 38 dd a4 50 68 72 61  |ph_%:....8..Phra|
000021b0  73 65 73 5f 3a f2 73 75  74 3a e7 a4 67 57 78 28  |ses_:.sut:..gWx(|
000021c0  22 53 75 62 6a 65 63 74  73 22 29 f2 63 6c 6f 73  |"Subjects").clos|
000021d0  65 57 28 53 75 62 6a 65  63 74 73 5f 25 29 0d 0e  |eW(Subjects_%)..|
000021e0  b0 20 e7 a4 67 57 78 28  22 4e 61 6d 65 22 29 f2  |. ..gWx("Name").|
000021f0  63 6c 6f 73 65 57 28 4e  61 6d 65 5f 25 29 0d 0e  |closeW(Name_%)..|
00002200  ba 22 e7 a4 67 57 78 28  22 57 6f 72 64 73 22 29  |."..gWx("Words")|
00002210  f2 63 6c 6f 73 65 57 28  57 6f 72 64 73 5f 25 29  |.closeW(Words_%)|
00002220  0d 0e c4 21 e7 a4 67 57  78 28 22 45 64 69 74 6f  |...!..gWx("Edito|
00002230  72 22 29 f2 63 6c 6f 73  65 57 28 45 64 64 5f 25  |r").closeW(Edd_%|
00002240  29 0d 0e ce 23 e7 a4 67  57 78 28 22 50 65 64 69  |)...#..gWx("Pedi|
00002250  74 6f 72 22 29 f2 63 6c  6f 73 65 57 28 50 65 64  |tor").closeW(Ped|
00002260  64 5f 25 29 0d 0e d8 23  e7 a4 67 57 78 28 22 57  |d_%)...#..gWx("W|
00002270  65 64 69 74 6f 72 22 29  f2 63 6c 6f 73 65 57 28  |editor").closeW(|
00002280  57 65 64 64 5f 25 29 0d  0e e2 0e e7 a4 6d 6f 75  |Wedd_%)......mou|
00002290  73 65 3d 34 8c 0d 0e ec  41 50 68 72 61 73 65 73  |se=4....APhrases|
000022a0  5f 25 3d 31 3a f2 6c 6f  61 64 70 68 72 61 73 65  |_%=1:.loadphrase|
000022b0  73 28 22 31 22 29 3a e7  64 61 74 61 5f 3d b9 8c  |s("1"):.data_=..|
000022c0  3d a4 77 69 6e 64 6f 77  28 22 50 68 72 61 73 65  |=.window("Phrase|
000022d0  73 22 29 8b 3d a3 0d 0f  00 10 cd 3a e7 a4 6d 6f  |s").=......:..mo|
000022e0  75 73 65 3d 31 8c 0d 0f  14 41 50 68 72 61 73 65  |use=1....APhrase|
000022f0  73 5f 25 3d 32 3a f2 6c  6f 61 64 70 68 72 61 73  |s_%=2:.loadphras|
00002300  65 73 28 22 32 22 29 3a  e7 64 61 74 61 5f 3d b9  |es("2"):.data_=.|
00002310  8c 3d a4 77 69 6e 64 6f  77 28 22 50 68 72 61 73  |.=.window("Phras|
00002320  65 73 22 29 8b 3d a3 0d  0f 28 08 cd 3a 3d b9 0d  |es").=...(..:=..|
00002330  0f 3c 36 dd a4 57 6f 72  64 73 5f 3a f2 73 75 74  |.<6..Words_:.sut|
00002340  3a e7 a4 67 57 78 28 22  53 75 62 6a 65 63 74 73  |:..gWx("Subjects|
00002350  22 29 f2 63 6c 6f 73 65  57 28 53 75 62 6a 65 63  |").closeW(Subjec|
00002360  74 73 5f 25 29 0d 0f 5a  20 e7 a4 67 57 78 28 22  |ts_%)..Z ..gWx("|
00002370  4e 61 6d 65 22 29 f2 63  6c 6f 73 65 57 28 4e 61  |Name").closeW(Na|
00002380  6d 65 5f 25 29 0d 0f 64  24 e7 a4 67 57 78 28 22  |me_%)..d$..gWx("|
00002390  50 68 72 61 73 65 73 22  29 f2 63 6c 6f 73 65 57  |Phrases").closeW|
000023a0  28 50 68 72 61 73 5f 25  29 0d 0f 6e 21 e7 a4 67  |(Phras_%)..n!..g|
000023b0  57 78 28 22 45 64 69 74  6f 72 22 29 f2 63 6c 6f  |Wx("Editor").clo|
000023c0  73 65 57 28 45 64 64 5f  25 29 0d 0f 78 23 e7 a4  |seW(Edd_%)..x#..|
000023d0  67 57 78 28 22 50 65 64  69 74 6f 72 22 29 f2 63  |gWx("Peditor").c|
000023e0  6c 6f 73 65 57 28 50 65  64 64 5f 25 29 0d 0f 82  |loseW(Pedd_%)...|
000023f0  23 e7 a4 67 57 78 28 22  57 65 64 69 74 6f 72 22  |#..gWx("Weditor"|
00002400  29 f2 63 6c 6f 73 65 57  28 57 65 64 64 5f 25 29  |).closeW(Wedd_%)|
00002410  0d 0f 8c 0e e7 a4 6d 6f  75 73 65 3d 34 8c 0d 0f  |......mouse=4...|
00002420  96 3c 57 6f 72 64 73 79  5f 25 3d 31 3a f2 6c 6f  |.<Wordsy_%=1:.lo|
00002430  61 64 77 6f 72 64 73 28  22 31 22 29 3a e7 64 61  |adwords("1"):.da|
00002440  74 61 5f 3d b9 8c 3d a4  77 69 6e 64 6f 77 28 22  |ta_=..=.window("|
00002450  57 6f 72 64 73 22 29 8b  3d a3 0d 0f aa 10 cd 3a  |Words").=......:|
00002460  e7 a4 6d 6f 75 73 65 3d  31 8c 0d 0f be 3c 57 6f  |..mouse=1....<Wo|
00002470  72 64 73 79 5f 25 3d 32  3a f2 6c 6f 61 64 77 6f  |rdsy_%=2:.loadwo|
00002480  72 64 73 28 22 32 22 29  3a e7 64 61 74 61 5f 3d  |rds("2"):.data_=|
00002490  b9 8c 3d a4 77 69 6e 64  6f 77 28 22 57 6f 72 64  |..=.window("Word|
000024a0  73 22 29 8b 3d a3 0d 0f  d2 08 cd 3a 3d b9 0d 0f  |s").=......:=...|
000024b0  e6 1a dd f2 63 68 65 63  6b 73 65 78 3a e7 53 65  |....checksex:.Se|
000024c0  78 5f 24 3d 22 4d 22 e1  0d 0f f0 72 68 5f 25 3d  |x_$="M"....rh_%=|
000024d0  30 3a 69 5f 25 3d 30 3a  f5 3a f2 67 65 74 77 6f  |0:i_%=0:.:.getwo|
000024e0  72 64 5f 3a 69 5f 25 3d  69 5f 25 2b 31 3a 77 69  |rd_:i_%=i_%+1:wi|
000024f0  72 64 5f 24 28 69 5f 25  29 3d 7a 5f 24 3a fd 68  |rd_$(i_%)=z_$:.h|
00002500  5f 25 3e a9 28 67 65 74  5f 24 29 3a e3 54 74 5f  |_%>.(get_$):.Tt_|
00002510  3d 31 b8 69 5f 25 3a e7  77 69 72 64 5f 24 28 54  |=1.i_%:.wird_$(T|
00002520  74 5f 29 3d 22 68 65 22  20 77 69 72 64 5f 24 28  |t_)="he" wird_$(|
00002530  54 74 5f 29 3d 22 73 68  65 22 0d 10 18 27 e7 77  |Tt_)="she"...'.w|
00002540  69 72 64 5f 24 28 54 74  5f 29 3d 22 48 65 22 20  |ird_$(Tt_)="He" |
00002550  77 69 72 64 5f 24 28 54  74 5f 29 3d 22 53 68 65  |wird_$(Tt_)="She|
00002560  22 0d 10 22 39 e7 77 69  72 64 5f 24 28 54 74 5f  |".."9.wird_$(Tt_|
00002570  29 3d 22 68 69 73 22 84  77 69 72 64 5f 24 28 54  |)="his".wird_$(T|
00002580  74 5f 29 3d 22 68 69 6d  22 77 69 72 64 5f 24 28  |t_)="him"wird_$(|
00002590  54 74 5f 29 3d 22 68 65  72 22 0d 10 2c 28 e7 77  |Tt_)="her"..,(.w|
000025a0  69 72 64 5f 24 28 54 74  5f 29 3d 22 48 69 73 22  |ird_$(Tt_)="His"|
000025b0  20 77 69 72 64 5f 24 28  54 74 5f 29 3d 22 48 65  | wird_$(Tt_)="He|
000025c0  72 22 0d 10 36 30 e7 77  69 72 64 5f 24 28 54 74  |r"..60.wird_$(Tt|
000025d0  5f 29 3d 22 68 69 6d 73  65 6c 66 22 20 77 69 72  |_)="himself" wir|
000025e0  64 5f 24 28 54 74 5f 29  3d 22 68 65 72 73 65 6c  |d_$(Tt_)="hersel|
000025f0  66 22 0d 10 40 47 ed 3a  67 65 74 5f 24 3d 22 22  |f"..@G.:get_$=""|
00002600  3a e3 67 5f 25 3d 31 b8  69 5f 25 3a 67 65 74 5f  |:.g_%=1.i_%:get_|
00002610  24 3d 67 65 74 5f 24 2b  77 69 72 64 5f 24 28 67  |$=get_$+wird_$(g|
00002620  5f 25 29 2b 22 20 22 3a  ed 3a 67 65 74 5f 24 3d  |_%)+" ":.:get_$=|
00002630  c0 67 65 74 5f 24 29 3a  e1 0d 10 68 42 dd f2 67  |.get_$):...hB..g|
00002640  65 74 77 6f 72 64 5f 3a  7a 5f 24 3d 22 22 3a f5  |etword_:z_$="":.|
00002650  3a 68 5f 25 3d 68 5f 25  2b 31 3a e7 c1 67 65 74  |:h_%=h_%+1:..get|
00002660  5f 24 2c 68 5f 25 2c 31  29 3d 22 20 22 84 68 5f  |_$,h_%,1)=" ".h_|
00002670  25 3e a9 28 67 65 74 5f  24 29 e1 0d 10 7c 3b 7a  |%>.(get_$)...|;z|
00002680  5f 24 3d 7a 5f 24 2b c1  67 65 74 5f 24 2c 68 5f  |_$=z_$+.get_$,h_|
00002690  25 2c 31 29 3a fd c1 67  65 74 5f 24 2c 68 5f 25  |%,1):..get_$,h_%|
000026a0  2c 31 29 3d 22 20 22 84  68 5f 25 3e a9 28 67 65  |,1)=" ".h_%>.(ge|
000026b0  74 5f 24 29 3a e1 0d 10  9a 5d dd f2 63 75 74 3a  |t_$):....]..cut:|
000026c0  74 72 6f 5f 25 3d 30 3a  73 65 5f 25 3d a9 28 67  |tro_%=0:se_%=.(g|
000026d0  65 74 5f 24 29 3a e3 61  73 5f 25 3d 31 b8 a9 28  |et_$):.as_%=1..(|
000026e0  67 65 74 5f 24 29 3a e7  c1 67 65 74 5f 24 2c 61  |get_$):..get_$,a|
000026f0  73 5f 25 2c 31 29 3d 22  5d 22 20 74 72 6f 5f 25  |s_%,1)="]" tro_%|
00002700  3d 61 73 5f 25 3a 61 73  5f 25 3d a9 28 67 65 74  |=as_%:as_%=.(get|
00002710  5f 24 29 0d 10 d6 34 ed  3a e7 74 72 6f 5f 25 3c  |_$)...4.:.tro_%<|
00002720  3e 30 20 67 65 74 5f 24  3d c1 67 65 74 5f 24 2c  |>0 get_$=.get_$,|
00002730  74 72 6f 5f 25 2b 32 2c  73 65 5f 25 2d 74 72 6f  |tro_%+2,se_%-tro|
00002740  5f 25 2b 32 29 3a e1 0d  10 f4 19 e7 c2 54 69 74  |_%+2):.......Tit|
00002750  6c 65 41 5f 24 2c 34 29  3d 22 55 73 65 72 22 8c  |leA_$,4)="User".|
00002760  0d 10 fe 26 e7 97 28 c0  67 65 74 5f 24 2c 31 29  |...&..(.get_$,1)|
00002770  29 3e 36 34 80 97 28 c0  67 65 74 5f 24 2c 31 29  |)>64..(.get_$,1)|
00002780  29 3c 31 32 33 e1 0d 11  08 19 cd 3a e7 4d 5f 24  |)<123......:.M_$|
00002790  3d 22 52 45 22 84 4d 5f  24 3d 22 50 53 22 e1 0d  |="RE".M_$="PS"..|
000027a0  11 1c 33 e7 97 28 c1 67  65 74 5f 24 2c 32 2c 31  |..3..(.get_$,2,1|
000027b0  29 29 3e 39 31 20 67 65  74 5f 24 3d c1 67 65 74  |))>91 get_$=.get|
000027c0  5f 24 2c 37 2c a9 28 67  65 74 5f 24 29 2d 36 29  |_$,7,.(get_$)-6)|
000027d0  3a e1 0d 11 26 36 e7 c1  67 65 74 5f 24 2c 31 2c  |:...&6..get_$,1,|
000027e0  36 29 3d 22 20 20 20 20  20 20 22 20 67 65 74 5f  |6)="      " get_|
000027f0  24 3d c1 67 65 74 5f 24  2c 37 2c a9 28 67 65 74  |$=.get_$,7,.(get|
00002800  5f 24 29 2d 36 29 3a e1  0d 11 30 34 e7 c1 67 65  |_$)-6):...04..ge|
00002810  74 5f 24 2c 31 2c 34 29  3d 22 20 20 20 20 22 20  |t_$,1,4)="    " |
00002820  67 65 74 5f 24 3d c1 67  65 74 5f 24 2c 35 2c a9  |get_$=.get_$,5,.|
00002830  28 67 65 74 5f 24 29 2d  34 29 3a e1 0d 11 3a 33  |(get_$)-4):...:3|
00002840  e7 c1 67 65 74 5f 24 2c  31 2c 33 29 3d 22 20 20  |..get_$,1,3)="  |
00002850  20 22 20 67 65 74 5f 24  3d c1 67 65 74 5f 24 2c  | " get_$=.get_$,|
00002860  34 2c a9 28 67 65 74 5f  24 29 2d 33 29 3a e1 0d  |4,.(get_$)-3):..|
00002870  11 6c 05 e1 0d 11 9e 48  dd f2 73 65 6e 64 28 67  |.l.....H..send(g|
00002880  65 74 5f 24 29 3a ea 85  3a ee 85 ea 3a e7 9f 3d  |et_$):..:...:..=|
00002890  33 36 33 8c ee 85 87 3a  e1 8b 56 5f 24 3d a4 61  |363....:..V_$=.a|
000028a0  6c 65 72 74 28 f6 24 2c  c3 28 9f 29 2c 22 4f 4b  |lert(.$,.(.),"OK|
000028b0  22 2c 22 22 2c 22 22 2c  30 29 3a fa 0d 11 b2 24  |","","",0):....$|
000028c0  e7 a4 6d 6f 75 73 65 3d  34 80 67 65 74 5f 24 3d  |..mouse=4.get_$=|
000028d0  22 69 6e 73 65 72 74 65  64 20 6c 69 6e 65 22 e1  |"inserted line".|
000028e0  0d 11 bc 46 73 74 5f 25  3d 30 3a e3 72 72 5f 25  |...Fst_%=0:.rr_%|
000028f0  3d 31 b8 a9 28 67 65 74  5f 24 29 3a e7 c1 67 65  |=1..(get_$):..ge|
00002900  74 5f 24 2c 72 72 5f 25  2c 31 33 29 3d 22 6e 6f  |t_$,rr_%,13)="no|
00002910  20 4e 43 20 65 78 61 6d  70 6c 65 22 20 73 74 5f  | NC example" st_|
00002920  25 3d 72 72 5f 25 0d 11  da 0f ed 3a e7 73 74 5f  |%=rr_%.....:.st_|
00002930  25 3c 3e 30 e1 0d 11 ee  1d e7 c0 67 65 74 5f 24  |%<>0.......get_$|
00002940  2c 31 29 3d 22 2a 22 80  a4 6d 6f 75 73 65 3d 34  |,1)="*"..mouse=4|
00002950  8c e1 0d 11 f8 37 e7 67  65 74 5f 24 3d 22 22 80  |.....7.get_$="".|
00002960  4d 5f 24 3c 3e 22 52 45  22 80 4d 5f 24 3c 3e 22  |M_$<>"RE".M_$<>"|
00002970  50 53 22 80 c2 54 69 74  6c 65 41 5f 24 2c 34 29  |PS"..TitleA_$,4)|
00002980  3c 3e 22 55 73 65 72 22  e1 0d 12 02 3c e7 c0 67  |<>"User"....<..g|
00002990  65 74 5f 24 2c 31 29 3d  22 2a 22 80 4d 5f 24 3c  |et_$,1)="*".M_$<|
000029a0  3e 22 52 45 22 80 4d 5f  24 3c 3e 22 50 53 22 80  |>"RE".M_$<>"PS".|
000029b0  c2 54 69 74 6c 65 41 5f  24 2c 34 29 3c 3e 22 55  |.TitleA_$,4)<>"U|
000029c0  73 65 72 22 e1 0d 12 0c  32 e7 97 28 c1 67 65 74  |ser"....2..(.get|
000029d0  5f 24 2c 32 2c 31 29 29  3d 31 34 33 20 67 65 74  |_$,2,1))=143 get|
000029e0  5f 24 3d c1 67 65 74 5f  24 2c 34 2c a9 28 67 65  |_$=.get_$,4,.(ge|
000029f0  74 5f 24 29 2d 33 29 0d  12 16 11 e7 a4 6d 6f 75  |t_$)-3)......mou|
00002a00  73 65 3d 34 f2 63 75 74  0d 12 34 3a e7 a4 6d 6f  |se=4.cut..4:..mo|
00002a10  75 73 65 3d 31 80 4d 5f  24 3c 3e 22 52 45 22 80  |use=1.M_$<>"RE".|
00002a20  4d 5f 24 3c 3e 22 50 53  22 80 c2 54 69 74 6c 65  |M_$<>"PS"..Title|
00002a30  41 5f 24 2c 34 29 3c 3e  22 55 73 65 72 22 f2 63  |A_$,4)<>"User".c|
00002a40  75 74 0d 12 3e 25 e7 a4  67 57 78 28 22 50 65 64  |ut..>%..gWx("Ped|
00002a50  69 74 6f 72 22 29 84 a4  67 57 78 28 22 57 65 64  |itor")..gWx("Wed|
00002a60  69 74 6f 72 22 29 e1 0d  12 48 1d e7 a4 67 57 78  |itor")...H...gWx|
00002a70  28 22 45 64 69 74 6f 72  22 29 80 a4 6d 6f 75 73  |("Editor")..mous|
00002a80  65 3d 34 e1 0d 12 52 69  e7 a4 67 57 78 28 22 4e  |e=4...Ri..gWx("N|
00002a90  61 6d 65 22 29 56 5f 24  3d a4 61 6c 65 72 74 28  |ame")V_$=.alert(|
00002aa0  22 46 69 6e 69 73 68 20  77 6f 72 6b 69 6e 67 20  |"Finish working |
00002ab0  77 69 74 68 20 74 68 65  20 27 4e 61 6d 65 27 20  |with the 'Name' |
00002ac0  73 63 72 65 65 6e 20 61  6e 64 20 63 6c 6f 73 65  |screen and close|
00002ad0  20 69 74 20 64 6f 77 6e  2e 22 2c 22 22 2c 22 4f  | it down.","","O|
00002ae0  4b 22 2c 22 22 2c 22 22  2c 30 29 3a e1 0d 12 5c  |K","","",0):...\|
00002af0  17 f2 63 68 65 63 6b 73  65 78 3a e7 43 41 50 53  |..checksex:.CAPS|
00002b00  5f 3d b9 8c 0d 12 70 2e  63 61 70 73 5f 3d b9 3a  |_=....p.caps_=.:|
00002b10  e7 97 28 c0 67 65 74 5f  24 2c 31 29 29 3e 39 36  |..(.get_$,1))>96|
00002b20  80 97 28 c0 67 65 74 5f  24 2c 31 29 29 3c 31 32  |..(.get_$,1))<12|
00002b30  33 8c 0d 12 84 34 7a 5f  3d 97 28 c0 67 65 74 5f  |3....4z_=.(.get_|
00002b40  24 2c 31 29 29 3a 7a 5f  3d 7a 5f 2d 33 32 3a 7a  |$,1)):z_=z_-32:z|
00002b50  5f 24 3d bd 28 7a 5f 29  3a c0 67 65 74 5f 24 2c  |_$=.(z_):.get_$,|
00002b60  31 29 3d 7a 5f 24 0d 12  98 21 cd 3a 43 41 50 53  |1)=z_$...!.:CAPS|
00002b70  5f 3d a3 3a f2 75 73 49  28 4d 61 69 6e 5f 25 2c  |_=.:.usI(Main_%,|
00002b80  22 43 41 50 53 22 29 0d  12 ac 10 cd 3a e7 a4 6d  |"CAPS").....:..m|
00002b90  6f 75 73 65 3d 31 8c 0d  12 c0 26 e7 63 61 70 73  |ouse=1....&.caps|
00002ba0  5f 3d b9 43 41 50 53 5f  3d b9 3a f2 73 49 28 4d  |_=.CAPS_=.:.sI(M|
00002bb0  61 69 6e 5f 25 2c 22 43  41 50 53 22 29 0d 12 de  |ain_%,"CAPS")...|
00002bc0  5d e7 77 69 6e 64 6f 77  5f 25 3d 30 8c c8 99 32  |].window_%=0...2|
00002bd0  36 32 33 35 35 2c 2c 62  75 66 5f 25 3a 77 69 6e  |62355,,buf_%:win|
00002be0  64 6f 77 5f 25 3d 21 62  75 66 5f 25 3a 69 63 6f  |dow_%=!buf_%:ico|
00002bf0  6e 5f 25 3d 62 75 66 5f  25 21 34 3a 70 6f 73 78  |n_%=buf_%!4:posx|
00002c00  5f 25 3d 62 75 66 5f 25  21 38 3a 70 6f 73 79 5f  |_%=buf_%!8:posy_|
00002c10  25 3d 62 75 66 5f 25 21  31 32 0d 12 f2 1b 65 5f  |%=buf_%!12....e_|
00002c20  25 3d a4 77 69 6e 64 6f  77 28 22 45 64 69 74 6f  |%=.window("Edito|
00002c30  72 22 29 3a e1 0d 13 06  49 cd 3a 74 65 6d 70 5f  |r"):....I.:temp_|
00002c40  24 3d 67 65 74 5f 24 3a  e7 77 69 6e 64 6f 77 5f  |$=get_$:.window_|
00002c50  25 3c 3e 30 8c c8 99 32  36 32 33 35 34 2c 77 69  |%<>0...262354,wi|
00002c60  6e 64 6f 77 5f 25 2c 69  63 6f 6e 5f 25 2c 70 6f  |ndow_%,icon_%,po|
00002c70  73 78 5f 25 2c 70 6f 73  79 5f 25 2c 2d 31 0d 13  |sx_%,posy_%,-1..|
00002c80  24 1d 77 69 6e 64 6f 77  5f 25 3d 30 3a f2 63 6f  |$.window_%=0:.co|
00002c90  66 5f 28 67 65 74 5f 24  29 3a e1 0d 13 4c 49 dd  |f_(get_$):...LI.|
00002ca0  f2 70 73 65 6e 64 28 67  65 74 5f 24 29 3a ea 85  |.psend(get_$):..|
00002cb0  3a ee 85 ea 3a e7 9f 3d  33 36 33 8c ee 85 87 3a  |:...:..=363....:|
00002cc0  e1 8b 56 5f 24 3d a4 61  6c 65 72 74 28 f6 24 2c  |..V_$=.alert(.$,|
00002cd0  c3 28 9f 29 2c 22 4f 4b  22 2c 22 22 2c 22 22 2c  |.(.),"OK","","",|
00002ce0  30 29 3a fa 0d 13 60 1f  e7 a4 67 57 78 28 22 50  |0):...`...gWx("P|
00002cf0  65 64 69 74 6f 72 22 29  80 a4 6d 6f 75 73 65 3d  |editor")..mouse=|
00002d00  34 8c e1 0d 13 6a 69 e7  a4 67 57 78 28 22 4e 61  |4....ji..gWx("Na|
00002d10  6d 65 22 29 56 5f 24 3d  a4 61 6c 65 72 74 28 22  |me")V_$=.alert("|
00002d20  46 69 6e 69 73 68 20 77  6f 72 6b 69 6e 67 20 77  |Finish working w|
00002d30  69 74 68 20 74 68 65 20  27 4e 61 6d 65 27 20 73  |ith the 'Name' s|
00002d40  63 72 65 65 6e 20 61 6e  64 20 63 6c 6f 73 65 20  |creen and close |
00002d50  69 74 20 64 6f 77 6e 2e  22 2c 22 22 2c 22 4f 4b  |it down.","","OK|
00002d60  22 2c 22 22 2c 22 22 2c  30 29 3a e1 0d 13 ba 17  |","","",0):.....|
00002d70  f2 63 68 65 63 6b 73 65  78 3a e7 43 41 50 53 5f  |.checksex:.CAPS_|
00002d80  3d b9 8c 0d 13 ce 2e 63  61 70 73 5f 3d b9 3a e7  |=......caps_=.:.|
00002d90  97 28 c0 67 65 74 5f 24  2c 31 29 29 3e 39 36 80  |.(.get_$,1))>96.|
00002da0  97 28 c0 67 65 74 5f 24  2c 31 29 29 3c 31 32 33  |.(.get_$,1))<123|
00002db0  8c 0d 13 e2 34 7a 5f 3d  97 28 c0 67 65 74 5f 24  |....4z_=.(.get_$|
00002dc0  2c 31 29 29 3a 7a 5f 3d  7a 5f 2d 33 32 3a 7a 5f  |,1)):z_=z_-32:z_|
00002dd0  24 3d bd 28 7a 5f 29 3a  c0 67 65 74 5f 24 2c 31  |$=.(z_):.get_$,1|
00002de0  29 3d 7a 5f 24 0d 13 f6  21 cd 3a 43 41 50 53 5f  |)=z_$...!.:CAPS_|
00002df0  3d a3 3a f2 75 73 49 28  4d 61 69 6e 5f 25 2c 22  |=.:.usI(Main_%,"|
00002e00  43 41 50 53 22 29 0d 14  0a 10 cd 3a e7 a4 6d 6f  |CAPS").....:..mo|
00002e10  75 73 65 3d 31 8c 0d 14  1e 26 e7 63 61 70 73 5f  |use=1....&.caps_|
00002e20  3d b9 43 41 50 53 5f 3d  b9 3a f2 73 49 28 4d 61  |=.CAPS_=.:.sI(Ma|
00002e30  69 6e 5f 25 2c 22 43 41  50 53 22 29 0d 14 32 5d  |in_%,"CAPS")..2]|
00002e40  e7 77 69 6e 64 6f 77 5f  25 3d 30 8c c8 99 32 36  |.window_%=0...26|
00002e50  32 33 35 35 2c 2c 62 75  66 5f 25 3a 77 69 6e 64  |2355,,buf_%:wind|
00002e60  6f 77 5f 25 3d 21 62 75  66 5f 25 3a 69 63 6f 6e  |ow_%=!buf_%:icon|
00002e70  5f 25 3d 62 75 66 5f 25  21 34 3a 70 6f 73 78 5f  |_%=buf_%!4:posx_|
00002e80  25 3d 62 75 66 5f 25 21  38 3a 70 6f 73 79 5f 25  |%=buf_%!8:posy_%|
00002e90  3d 62 75 66 5f 25 21 31  32 0d 14 46 1c 45 5f 25  |=buf_%!12..F.E_%|
00002ea0  3d a4 77 69 6e 64 6f 77  28 22 50 65 64 69 74 6f  |=.window("Pedito|
00002eb0  72 22 29 3a e1 0d 14 5a  3c cd 3a e7 77 69 6e 64  |r"):...Z<.:.wind|
00002ec0  6f 77 5f 25 3c 3e 30 8c  c8 99 32 36 32 33 35 34  |ow_%<>0...262354|
00002ed0  2c 77 69 6e 64 6f 77 5f  25 2c 69 63 6f 6e 5f 25  |,window_%,icon_%|
00002ee0  2c 70 6f 73 78 5f 25 2c  70 6f 73 79 5f 25 2c 2d  |,posx_%,posy_%,-|
00002ef0  31 0d 14 6e 2a 77 69 6e  64 6f 77 5f 25 3d 30 3a  |1..n*window_%=0:|
00002f00  74 65 6d 70 5f 24 3d 67  65 74 5f 24 3a f2 63 6f  |temp_$=get_$:.co|
00002f10  66 5f 28 67 65 74 5f 24  29 3a e1 0d 14 a0 49 dd  |f_(get_$):....I.|
00002f20  f2 77 73 65 6e 64 28 67  65 74 5f 24 29 3a ea 85  |.wsend(get_$):..|
00002f30  3a ee 85 ea 3a e7 9f 3d  33 36 33 8c ee 85 87 3a  |:...:..=363....:|
00002f40  e1 8b 56 5f 24 3d a4 61  6c 65 72 74 28 f6 24 2c  |..V_$=.alert(.$,|
00002f50  c3 28 9f 29 2c 22 4f 4b  22 2c 22 22 2c 22 22 2c  |.(.),"OK","","",|
00002f60  30 29 3a fa 0d 14 aa 1f  e7 a4 67 57 78 28 22 57  |0):.......gWx("W|
00002f70  65 64 69 74 6f 72 22 29  80 a4 6d 6f 75 73 65 3d  |editor")..mouse=|
00002f80  34 8c e1 0d 14 b4 69 e7  a4 67 57 78 28 22 4e 61  |4.....i..gWx("Na|
00002f90  6d 65 22 29 56 5f 24 3d  a4 61 6c 65 72 74 28 22  |me")V_$=.alert("|
00002fa0  46 69 6e 69 73 68 20 77  6f 72 6b 69 6e 67 20 77  |Finish working w|
00002fb0  69 74 68 20 74 68 65 20  27 4e 61 6d 65 27 20 73  |ith the 'Name' s|
00002fc0  63 72 65 65 6e 20 61 6e  64 20 63 6c 6f 73 65 20  |creen and close |
00002fd0  69 74 20 64 6f 77 6e 2e  22 2c 22 22 2c 22 4f 4b  |it down.","","OK|
00002fe0  22 2c 22 22 2c 22 22 2c  30 29 3a e1 0d 15 04 17  |","","",0):.....|
00002ff0  f2 63 68 65 63 6b 73 65  78 3a e7 43 41 50 53 5f  |.checksex:.CAPS_|
00003000  3d b9 8c 0d 15 18 2e 63  61 70 73 5f 3d b9 3a e7  |=......caps_=.:.|
00003010  97 28 c0 67 65 74 5f 24  2c 31 29 29 3e 39 36 80  |.(.get_$,1))>96.|
00003020  97 28 c0 67 65 74 5f 24  2c 31 29 29 3c 31 32 33  |.(.get_$,1))<123|
00003030  8c 0d 15 2c 34 7a 5f 3d  97 28 c0 67 65 74 5f 24  |...,4z_=.(.get_$|
00003040  2c 31 29 29 3a 7a 5f 3d  7a 5f 2d 33 32 3a 7a 5f  |,1)):z_=z_-32:z_|
00003050  24 3d bd 28 7a 5f 29 3a  c0 67 65 74 5f 24 2c 31  |$=.(z_):.get_$,1|
00003060  29 3d 7a 5f 24 0d 15 40  21 cd 3a 43 41 50 53 5f  |)=z_$..@!.:CAPS_|
00003070  3d a3 3a f2 75 73 49 28  4d 61 69 6e 5f 25 2c 22  |=.:.usI(Main_%,"|
00003080  43 41 50 53 22 29 0d 15  54 10 cd 3a e7 a4 6d 6f  |CAPS")..T..:..mo|
00003090  75 73 65 3d 31 8c 0d 15  68 26 e7 63 61 70 73 5f  |use=1...h&.caps_|
000030a0  3d b9 43 41 50 53 5f 3d  b9 3a f2 73 49 28 4d 61  |=.CAPS_=.:.sI(Ma|
000030b0  69 6e 5f 25 2c 22 43 41  50 53 22 29 0d 15 7c 5d  |in_%,"CAPS")..|]|
000030c0  e7 77 69 6e 64 6f 77 5f  25 3d 30 8c c8 99 32 36  |.window_%=0...26|
000030d0  32 33 35 35 2c 2c 62 75  66 5f 25 3a 77 69 6e 64  |2355,,buf_%:wind|
000030e0  6f 77 5f 25 3d 21 62 75  66 5f 25 3a 69 63 6f 6e  |ow_%=!buf_%:icon|
000030f0  5f 25 3d 62 75 66 5f 25  21 34 3a 70 6f 73 78 5f  |_%=buf_%!4:posx_|
00003100  25 3d 62 75 66 5f 25 21  38 3a 70 6f 73 79 5f 25  |%=buf_%!8:posy_%|
00003110  3d 62 75 66 5f 25 21 31  32 0d 15 90 1c 45 5f 25  |=buf_%!12....E_%|
00003120  3d a4 77 69 6e 64 6f 77  28 22 57 65 64 69 74 6f  |=.window("Wedito|
00003130  72 22 29 3a e1 0d 15 a4  49 cd 3a 74 65 6d 70 5f  |r"):....I.:temp_|
00003140  24 3d 67 65 74 5f 24 3a  e7 77 69 6e 64 6f 77 5f  |$=get_$:.window_|
00003150  25 3c 3e 30 8c c8 99 32  36 32 33 35 34 2c 77 69  |%<>0...262354,wi|
00003160  6e 64 6f 77 5f 25 2c 69  63 6f 6e 5f 25 2c 70 6f  |ndow_%,icon_%,po|
00003170  73 78 5f 25 2c 70 6f 73  79 5f 25 2c 2d 31 0d 15  |sx_%,posy_%,-1..|
00003180  c2 1d 77 69 6e 64 6f 77  5f 25 3d 30 3a f2 63 6f  |..window_%=0:.co|
00003190  66 5f 28 67 65 74 5f 24  29 3a e1 0d 15 ea 2f dd  |f_(get_$):..../.|
000031a0  f2 70 75 6c 6c 5f 3a e7  4c 6f 5f 25 3d 33 20 6c  |.pull_:.Lo_%=3 l|
000031b0  5f 25 3d 6c 5f 25 2b 31  3a 6c 69 6e 65 5f 24 28  |_%=l_%+1:line_$(|
000031c0  6c 5f 25 29 3d 61 5f 24  3a e1 0d 15 fe 2b e7 c0  |l_%)=a_$:....+..|
000031d0  61 5f 24 2c 31 29 3d 22  2a 22 6c 5f 25 3d 6c 5f  |a_$,1)="*"l_%=l_|
000031e0  25 2b 31 3a 6c 69 6e 65  5f 24 28 6c 5f 25 29 3d  |%+1:line_$(l_%)=|
000031f0  61 5f 24 3a e1 0d 16 12  54 e7 4c 6f 5f 25 3d 31  |a_$:....T.Lo_%=1|
00003200  80 c0 61 5f 24 2c 31 29  3c 3e 22 2a 22 80 97 28  |..a_$,1)<>"*"..(|
00003210  c1 61 5f 24 2c 32 2c 31  29 29 3c 39 31 80 97 28  |.a_$,2,1))<91..(|
00003220  c1 61 5f 24 2c 32 2c 31  29 29 3e 36 33 20 6c 5f  |.a_$,2,1))>63 l_|
00003230  25 3d 6c 5f 25 2b 31 3a  6c 69 6e 65 5f 24 28 6c  |%=l_%+1:line_$(l|
00003240  5f 25 29 3d 61 5f 24 3a  e1 0d 16 1c 53 e7 4c 6f  |_%)=a_$:....S.Lo|
00003250  5f 25 3d 31 80 c0 61 5f  24 2c 31 29 3c 3e 22 2a  |_%=1..a_$,1)<>"*|
00003260  22 80 c1 61 5f 24 2c 31  2c 34 29 3d 22 20 20 20  |"..a_$,1,4)="   |
00003270  20 22 80 c1 61 5f 24 2c  35 2c 31 29 3c 3e 22 20  | "..a_$,5,1)<>" |
00003280  22 6c 5f 25 3d 6c 5f 25  2b 31 3a 6c 69 6e 65 5f  |"l_%=l_%+1:line_|
00003290  24 28 6c 5f 25 29 3d 61  5f 24 3a e1 0d 16 26 55  |$(l_%)=a_$:...&U|
000032a0  e7 4c 6f 5f 25 3d 32 80  c0 61 5f 24 2c 31 29 3c  |.Lo_%=2..a_$,1)<|
000032b0  3e 22 2a 22 80 97 28 c1  61 5f 24 2c 34 2c 31 29  |>"*"..(.a_$,4,1)|
000032c0  29 3e 39 36 80 97 28 c1  61 5f 24 2c 34 2c 31 29  |)>96..(.a_$,4,1)|
000032d0  29 3c 31 32 33 20 6c 5f  25 3d 6c 5f 25 2b 31 3a  |)<123 l_%=l_%+1:|
000032e0  6c 69 6e 65 5f 24 28 6c  5f 25 29 3d 61 5f 24 3a  |line_$(l_%)=a_$:|
000032f0  e1 0d 16 3a 46 e7 4c 6f  5f 25 3d 32 80 c0 61 5f  |...:F.Lo_%=2..a_|
00003300  24 2c 31 29 3c 3e 22 2a  22 80 c1 61 5f 24 2c 31  |$,1)<>"*"..a_$,1|
00003310  2c 36 29 3d 22 20 20 20  20 20 20 22 6c 5f 25 3d  |,6)="      "l_%=|
00003320  6c 5f 25 2b 31 3a 6c 69  6e 65 5f 24 28 6c 5f 25  |l_%+1:line_$(l_%|
00003330  29 3d 61 5f 24 3a e1 0d  16 44 05 e1 0d 16 58 58  |)=a_$:...D....XX|
00003340  dd f2 6c 6f 61 64 28 6c  6f 61 64 5f 24 29 3a ea  |..load(load_$):.|
00003350  85 3a ee 85 ea 3a e7 9f  3d 32 30 34 8c 56 5f 24  |.:...:..=204.V_$|
00003360  3d a4 61 6c 65 72 74 28  71 75 65 65 72 5f 24 2c  |=.alert(queer_$,|
00003370  22 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 2c 30 29  |"","OK","","",0)|
00003380  3a 64 61 74 61 5f 3d a3  3a e1 8b 64 61 74 61 5f  |:data_=.:..data_|
00003390  3d a3 3a e1 0d 16 62 29  64 61 74 61 5f 3d b9 3a  |=.:...b)data_=.:|
000033a0  e7 a4 67 57 78 28 22 45  64 69 74 6f 72 22 29 f2  |..gWx("Editor").|
000033b0  63 6c 6f 73 65 57 28 45  64 64 5f 25 29 0d 16 76  |closeW(Edd_%)..v|
000033c0  89 e3 6d 61 78 5f 25 3d  31 b8 6d 61 78 6c 69 6e  |..max_%=1.maxlin|
000033d0  65 73 5f 25 3a 6c 69 6e  65 5f 24 28 6d 61 78 5f  |es_%:line_$(max_|
000033e0  25 29 3d 22 22 3a ed 3a  4f 6f 70 65 6e 24 3d 22  |%)="":.:Oopen$="|
000033f0  3c 44 61 74 61 24 44 69  72 3e 2e 22 2b 6c 6f 61  |<Data$Dir>."+loa|
00003400  64 5f 24 3a 78 5f 3d 8e  4f 6f 70 65 6e 24 3a e7  |d_$:x_=.Oopen$:.|
00003410  78 5f 3d 30 d9 23 78 5f  3a 56 5f 24 3d a4 61 6c  |x_=0.#x_:V_$=.al|
00003420  65 72 74 28 71 75 65 65  72 5f 24 2c 22 22 2c 22  |ert(queer_$,"","|
00003430  4f 4b 22 2c 22 22 2c 22  22 2c 30 29 3a 64 61 74  |OK","","",0):dat|
00003440  61 5f 3d a3 3a e1 0d 16  8a 29 6c 5f 25 3d 30 3a  |a_=.:....)l_%=0:|
00003450  f5 3a f2 67 65 74 6c 69  6e 65 5f 3a f2 70 75 6c  |.:.getline_:.pul|
00003460  6c 5f 3a fd c5 23 78 5f  3a d9 23 78 5f 3a e1 0d  |l_:..#x_:.#x_:..|
00003470  16 b2 1a dd a4 53 65 6e  64 45 64 5f 3a e7 a4 6d  |.....SendEd_:..m|
00003480  6f 75 73 65 3d 34 8c 3d  a3 0d 16 c6 15 e7 24 21  |ouse=4.=......$!|
00003490  45 64 69 74 6f 72 5f 25  3d 22 22 8c 3d a3 0d 16  |Editor_%="".=...|
000034a0  d0 1a e7 c0 24 21 45 64  69 74 6f 72 5f 25 2c 31  |....$!Editor_%,1|
000034b0  29 3d 22 2a 22 8c 3d a3  0d 16 da 2e 67 65 74 5f  |)="*".=.....get_|
000034c0  24 3d 24 21 45 64 69 74  6f 72 5f 25 3a e7 67 65  |$=$!Editor_%:.ge|
000034d0  74 5f 24 3d 22 69 6e 73  65 72 74 65 64 20 6c 69  |t_$="inserted li|
000034e0  6e 65 22 8c 3d a3 0d 16  ee 49 74 72 6f 5f 25 3d  |ne".=....Itro_%=|
000034f0  30 3a e3 61 73 5f 25 3d  31 b8 a9 28 67 65 74 5f  |0:.as_%=1..(get_|
00003500  24 29 3a e7 c1 67 65 74  5f 24 2c 61 73 5f 25 2c  |$):..get_$,as_%,|
00003510  31 29 3d 22 5d 22 20 74  72 6f 5f 25 3d 61 73 5f  |1)="]" tro_%=as_|
00003520  25 3a 61 73 5f 25 3d a9  28 67 65 74 5f 24 29 0d  |%:as_%=.(get_$).|
00003530  17 0c 36 ed 3a e7 74 72  6f 5f 25 3c 3e 30 20 67  |..6.:.tro_%<>0 g|
00003540  65 74 5f 24 3d c1 67 65  74 5f 24 2c 74 72 6f 5f  |et_$=.get_$,tro_|
00003550  25 2b 32 2c a9 28 67 65  74 5f 24 29 2d 74 72 6f  |%+2,.(get_$)-tro|
00003560  5f 25 2b 32 29 0d 17 20  5f 74 65 6d 70 5f 24 3d  |_%+2).. _temp_$=|
00003570  67 65 74 5f 24 3a 73 65  6e 64 5f 25 3d b9 3a f2  |get_$:send_%=.:.|
00003580  63 6c 6f 73 65 57 28 45  64 64 5f 25 29 3a e7 77  |closeW(Edd_%):.w|
00003590  69 6e 64 6f 77 5f 25 3c  3e 30 8c c8 99 32 36 32  |indow_%<>0...262|
000035a0  33 35 34 2c 77 69 6e 64  6f 77 5f 25 2c 69 63 6f  |354,window_%,ico|
000035b0  6e 5f 25 2c 70 6f 73 78  5f 25 2c 70 6f 73 79 5f  |n_%,posx_%,posy_|
000035c0  25 2c 2d 31 0d 17 52 36  77 69 6e 64 6f 77 5f 25  |%,-1..R6window_%|
000035d0  3d 30 3a f2 63 6f 66 5f  28 67 65 74 5f 24 29 3a  |=0:.cof_(get_$):|
000035e0  e7 a4 67 57 78 28 22 57  6f 72 64 73 22 29 f2 6f  |..gWx("Words").o|
000035f0  57 28 57 6f 72 64 73 5f  25 29 0d 17 7a 20 e7 a4  |W(Words_%)..z ..|
00003600  67 57 78 28 22 50 68 72  61 73 65 73 22 29 f2 6f  |gWx("Phrases").o|
00003610  57 28 50 68 72 61 73 5f  25 29 0d 17 84 69 73 65  |W(Phras_%)...ise|
00003620  6e 64 5f 25 3d a3 3a 43  41 50 53 5f 3d a3 3a f2  |nd_%=.:CAPS_=.:.|
00003630  75 73 49 28 4d 61 69 6e  5f 25 2c 22 43 41 50 53  |usI(Main_%,"CAPS|
00003640  22 29 3a 63 61 70 73 5f  3d a3 3a c8 99 26 34 30  |"):caps_=.:..&40|
00003650  30 43 37 2c 6d 61 73 6b  25 2c 46 70 6f 6c 6c 25  |0C7,mask%,Fpoll%|
00003660  b8 42 42 5f 25 3a e7 6f  70 65 6e 5f 25 20 7a 5f  |.BB_%:.open_% z_|
00003670  25 3d a4 77 69 6e 64 6f  77 28 22 45 64 69 74 6f  |%=.window("Edito|
00003680  72 22 29 0d 17 ac 06 3d  b9 0d 17 c0 1b dd a4 50  |r")....=.......P|
00003690  53 65 6e 64 45 64 5f 3a  e7 a4 6d 6f 75 73 65 3d  |SendEd_:..mouse=|
000036a0  34 8c 3d a3 0d 17 ca 16  e7 24 21 50 65 64 69 74  |4.=......$!Pedit|
000036b0  6f 72 5f 25 3d 22 22 8c  3d a3 0d 17 d4 72 67 65  |or_%="".=....rge|
000036c0  74 5f 24 3d 24 21 50 65  64 69 74 6f 72 5f 25 3a  |t_$=$!Peditor_%:|
000036d0  74 65 6d 70 5f 24 3d 67  65 74 5f 24 3a 73 65 6e  |temp_$=get_$:sen|
000036e0  64 5f 25 3d b9 3a f2 63  6c 6f 73 65 57 28 50 65  |d_%=.:.closeW(Pe|
000036f0  64 64 5f 25 29 3a e7 77  69 6e 64 6f 77 5f 25 3c  |dd_%):.window_%<|
00003700  3e 30 8c c8 99 32 36 32  33 35 34 2c 77 69 6e 64  |>0...262354,wind|
00003710  6f 77 5f 25 2c 69 63 6f  6e 5f 25 2c 70 6f 73 78  |ow_%,icon_%,posx|
00003720  5f 25 2c 70 6f 73 79 5f  25 2c 2d 31 0d 17 fc 36  |_%,posy_%,-1...6|
00003730  77 69 6e 64 6f 77 5f 25  3d 30 3a f2 63 6f 66 5f  |window_%=0:.cof_|
00003740  28 67 65 74 5f 24 29 3a  e7 a4 67 57 78 28 22 57  |(get_$):..gWx("W|
00003750  6f 72 64 73 22 29 f2 6f  57 28 57 6f 72 64 73 5f  |ords").oW(Words_|
00003760  25 29 0d 18 24 20 e7 a4  67 57 78 28 22 50 68 72  |%)..$ ..gWx("Phr|
00003770  61 73 65 73 22 29 f2 6f  57 28 50 68 72 61 73 5f  |ases").oW(Phras_|
00003780  25 29 0d 18 2e 6a 73 65  6e 64 5f 25 3d a3 3a 43  |%)...jsend_%=.:C|
00003790  41 50 53 5f 3d a3 3a f2  75 73 49 28 4d 61 69 6e  |APS_=.:.usI(Main|
000037a0  5f 25 2c 22 43 41 50 53  22 29 3a 63 61 70 73 5f  |_%,"CAPS"):caps_|
000037b0  3d a3 3a c8 99 26 34 30  30 43 37 2c 6d 61 73 6b  |=.:..&400C7,mask|
000037c0  25 2c 46 70 6f 6c 6c 25  b8 42 42 5f 25 3a e7 6f  |%,Fpoll%.BB_%:.o|
000037d0  70 65 6e 5f 25 20 7a 5f  25 3d a4 77 69 6e 64 6f  |pen_% z_%=.windo|
000037e0  77 28 22 50 65 64 69 74  6f 72 22 29 0d 18 56 06  |w("Peditor")..V.|
000037f0  3d b9 0d 18 6a 1b dd a4  57 53 65 6e 64 45 64 5f  |=...j...WSendEd_|
00003800  3a e7 a4 6d 6f 75 73 65  3d 34 8c 3d a3 0d 18 74  |:..mouse=4.=...t|
00003810  16 e7 24 21 57 65 64 69  74 6f 72 5f 25 3d 22 22  |..$!Weditor_%=""|
00003820  8c 3d a3 0d 18 7e 72 67  65 74 5f 24 3d 24 21 57  |.=...~rget_$=$!W|
00003830  65 64 69 74 6f 72 5f 25  3a 74 65 6d 70 5f 24 3d  |editor_%:temp_$=|
00003840  67 65 74 5f 24 3a 73 65  6e 64 5f 25 3d b9 3a f2  |get_$:send_%=.:.|
00003850  63 6c 6f 73 65 57 28 57  65 64 64 5f 25 29 3a e7  |closeW(Wedd_%):.|
00003860  77 69 6e 64 6f 77 5f 25  3c 3e 30 8c c8 99 32 36  |window_%<>0...26|
00003870  32 33 35 34 2c 77 69 6e  64 6f 77 5f 25 2c 69 63  |2354,window_%,ic|
00003880  6f 6e 5f 25 2c 70 6f 73  78 5f 25 2c 70 6f 73 79  |on_%,posx_%,posy|
00003890  5f 25 2c 2d 31 0d 18 a6  36 77 69 6e 64 6f 77 5f  |_%,-1...6window_|
000038a0  25 3d 30 3a f2 63 6f 66  5f 28 67 65 74 5f 24 29  |%=0:.cof_(get_$)|
000038b0  3a e7 a4 67 57 78 28 22  57 6f 72 64 73 22 29 f2  |:..gWx("Words").|
000038c0  6f 57 28 57 6f 72 64 73  5f 25 29 0d 18 ce 20 e7  |oW(Words_%)... .|
000038d0  a4 67 57 78 28 22 50 68  72 61 73 65 73 22 29 f2  |.gWx("Phrases").|
000038e0  6f 57 28 50 68 72 61 73  5f 25 29 0d 18 d8 6a 73  |oW(Phras_%)...js|
000038f0  65 6e 64 5f 25 3d a3 3a  43 41 50 53 5f 3d a3 3a  |end_%=.:CAPS_=.:|
00003900  f2 75 73 49 28 4d 61 69  6e 5f 25 2c 22 43 41 50  |.usI(Main_%,"CAP|
00003910  53 22 29 3a 63 61 70 73  5f 3d a3 3a c8 99 26 34  |S"):caps_=.:..&4|
00003920  30 30 43 37 2c 6d 61 73  6b 25 2c 46 70 6f 6c 6c  |00C7,mask%,Fpoll|
00003930  25 b8 42 42 5f 25 3a e7  6f 70 65 6e 5f 25 20 7a  |%.BB_%:.open_% z|
00003940  5f 25 3d a4 77 69 6e 64  6f 77 28 22 57 65 64 69  |_%=.window("Wedi|
00003950  74 6f 72 22 29 0d 19 00  06 3d b9 0d 19 14 cb dd  |tor")....=......|
00003960  f2 75 70 64 61 74 65 41  3a 24 21 61 31 5f 25 3d  |.updateA:$!a1_%=|
00003970  6c 69 6e 65 5f 24 28 6c  69 6e 65 5f 25 2b 31 29  |line_$(line_%+1)|
00003980  3a f2 72 49 28 41 5f 25  2c 22 61 31 22 29 3a 24  |:.rI(A_%,"a1"):$|
00003990  21 61 32 5f 25 3d 6c 69  6e 65 5f 24 28 6c 69 6e  |!a2_%=line_$(lin|
000039a0  65 5f 25 2b 32 29 3a f2  72 49 28 41 5f 25 2c 22  |e_%+2):.rI(A_%,"|
000039b0  61 32 22 29 3a 24 21 61  33 5f 25 3d 6c 69 6e 65  |a2"):$!a3_%=line|
000039c0  5f 24 28 6c 69 6e 65 5f  25 2b 33 29 3a f2 72 49  |_$(line_%+3):.rI|
000039d0  28 41 5f 25 2c 22 61 33  22 29 3a 24 21 61 34 5f  |(A_%,"a3"):$!a4_|
000039e0  25 3d 6c 69 6e 65 5f 24  28 6c 69 6e 65 5f 25 2b  |%=line_$(line_%+|
000039f0  34 29 3a f2 72 49 28 41  5f 25 2c 22 61 34 22 29  |4):.rI(A_%,"a4")|
00003a00  3a 24 21 61 35 5f 25 3d  6c 69 6e 65 5f 24 28 6c  |:$!a5_%=line_$(l|
00003a10  69 6e 65 5f 25 2b 35 29  3a f2 72 49 28 41 5f 25  |ine_%+5):.rI(A_%|
00003a20  2c 22 61 35 22 29 0d 19  50 24 e7 a4 67 57 78 28  |,"a5")..P$..gWx(|
00003a30  22 45 6e 67 4d 22 29 7a  5f 25 3d a4 77 69 6e 64  |"EngM")z_%=.wind|
00003a40  6f 77 28 22 45 6e 67 4d  22 29 0d 19 5a 22 e7 a4  |ow("EngM")..Z"..|
00003a50  67 57 78 28 22 4d 61 4d  22 29 7a 5f 25 3d a4 77  |gWx("MaM")z_%=.w|
00003a60  69 6e 64 6f 77 28 22 4d  61 4d 22 29 0d 19 64 22  |indow("MaM")..d"|
00003a70  e7 a4 67 57 78 28 22 53  63 4d 22 29 7a 5f 25 3d  |..gWx("ScM")z_%=|
00003a80  a4 77 69 6e 64 6f 77 28  22 53 63 4d 22 29 0d 19  |.window("ScM")..|
00003a90  6e 24 e7 a4 67 57 78 28  22 54 65 63 4d 22 29 7a  |n$..gWx("TecM")z|
00003aa0  5f 25 3d a4 77 69 6e 64  6f 77 28 22 54 65 63 4d  |_%=.window("TecM|
00003ab0  22 29 0d 19 78 22 e7 a4  67 57 78 28 22 48 73 4d  |")..x"..gWx("HsM|
00003ac0  22 29 7a 5f 25 3d a4 77  69 6e 64 6f 77 28 22 48  |")z_%=.window("H|
00003ad0  73 4d 22 29 0d 19 82 24  e7 a4 67 57 78 28 22 47  |sM")...$..gWx("G|
00003ae0  65 6f 4d 22 29 7a 5f 25  3d a4 77 69 6e 64 6f 77  |eoM")z_%=.window|
00003af0  28 22 47 65 6f 4d 22 29  0d 19 8c 24 e7 a4 67 57  |("GeoM")...$..gW|
00003b00  78 28 22 41 72 74 4d 22  29 7a 5f 25 3d a4 77 69  |x("ArtM")z_%=.wi|
00003b10  6e 64 6f 77 28 22 41 72  74 4d 22 29 0d 19 96 22  |ndow("ArtM")..."|
00003b20  e7 a4 67 57 78 28 22 4d  75 4d 22 29 7a 5f 25 3d  |..gWx("MuM")z_%=|
00003b30  a4 77 69 6e 64 6f 77 28  22 4d 75 4d 22 29 0d 19  |.window("MuM")..|
00003b40  a0 22 e7 a4 67 57 78 28  22 50 65 4d 22 29 7a 5f  |."..gWx("PeM")z_|
00003b50  25 3d a4 77 69 6e 64 6f  77 28 22 50 65 4d 22 29  |%=.window("PeM")|
00003b60  0d 19 aa 22 e7 a4 67 57  78 28 22 52 65 4d 22 29  |..."..gWx("ReM")|
00003b70  7a 5f 25 3d a4 77 69 6e  64 6f 77 28 22 52 65 4d  |z_%=.window("ReM|
00003b80  22 29 0d 19 b4 22 e7 a4  67 57 78 28 22 50 73 4d  |")..."..gWx("PsM|
00003b90  22 29 7a 5f 25 3d a4 77  69 6e 64 6f 77 28 22 50  |")z_%=.window("P|
00003ba0  73 4d 22 29 0d 19 be 05  e1 0d 19 d2 27 dd a4 55  |sM")........'..U|
00003bb0  70 5f 3a e7 a4 67 57 78  28 22 50 68 72 61 73 65  |p_:..gWx("Phrase|
00003bc0  73 22 29 f2 70 68 72 61  73 65 73 55 70 3a 3d b9  |s").phrasesUp:=.|
00003bd0  0d 19 f0 1d e7 a4 67 57  78 28 22 57 6f 72 64 73  |......gWx("Words|
00003be0  22 29 f2 57 6f 72 64 73  55 70 3a 3d b9 0d 19 fa  |").WordsUp:=....|
00003bf0  15 e7 4d 5f 24 3d 22 52  45 22 f2 52 45 55 70 3a  |..M_$="RE".REUp:|
00003c00  3d b9 0d 1a 04 15 e7 4d  5f 24 3d 22 50 53 22 f2  |=......M_$="PS".|
00003c10  50 53 55 70 3a 3d b9 0d  1a 0e 1c e7 6c 69 6e 65  |PSUp:=......line|
00003c20  5f 25 2b 36 3e 6d 61 78  79 6c 69 6e 65 73 5f 25  |_%+6>maxylines_%|
00003c30  8c 3d a3 0d 1a 18 20 e7  c2 54 69 74 6c 65 41 5f  |.=.... ..TitleA_|
00003c40  24 2c 34 29 3d 22 55 73  65 72 22 f2 50 53 55 70  |$,4)="User".PSUp|
00003c50  3a 3d b9 0d 1a 22 12 e7  ac a4 67 57 78 28 22 41  |:=..."....gWx("A|
00003c60  22 29 8c 3d a3 0d 1a 2c  0e e7 a4 6d 6f 75 73 65  |").=...,...mouse|
00003c70  3d 31 8c 0d 1a 36 51 e3  79 79 5f 25 3d 6c 69 6e  |=1...6Q.yy_%=lin|
00003c80  65 5f 25 2b 32 b8 6d 61  78 6c 69 6e 65 73 5f 25  |e_%+2.maxlines_%|
00003c90  3a e7 c0 6c 69 6e 65 5f  24 28 79 79 5f 25 29 2c  |:..line_$(yy_%),|
00003ca0  31 29 3d 22 2a 22 20 6c  69 6e 65 5f 25 3d 79 79  |1)="*" line_%=yy|
00003cb0  5f 25 2d 31 3a 79 79 5f  25 3d 6d 61 78 6c 69 6e  |_%-1:yy_%=maxlin|
00003cc0  65 73 5f 25 0d 1a 4a 11  ed 3a f2 75 70 64 61 74  |es_%..J..:.updat|
00003cd0  65 41 3a 3d b9 0d 1a 5e  1d cd 3a e7 6c 69 6e 65  |eA:=...^..:.line|
00003ce0  5f 24 28 6c 69 6e 65 5f  25 2b 36 29 3d 22 22 8c  |_$(line_%+6)="".|
00003cf0  3d a3 0d 1a 72 1f 6c 69  6e 65 5f 25 3d 6c 69 6e  |=...r.line_%=lin|
00003d00  65 5f 25 2b 31 3a f2 75  70 64 61 74 65 41 3a 3d  |e_%+1:.updateA:=|
00003d10  b9 0d 1a 90 28 dd f2 70  68 72 61 73 65 73 55 70  |....(..phrasesUp|
00003d20  3a e7 70 68 72 61 73 65  5f 24 28 70 6c 69 6e 65  |:.phrase_$(pline|
00003d30  5f 25 2b 35 29 3d 22 22  e1 0d 1a a4 26 70 6c 69  |_%+5)=""....&pli|
00003d40  6e 65 5f 25 3d 70 6c 69  6e 65 5f 25 2b 31 3a f2  |ne_%=pline_%+1:.|
00003d50  55 70 64 61 74 65 50 68  72 61 73 65 73 3a e1 0d  |UpdatePhrases:..|
00003d60  1a b8 22 dd f2 52 45 55  70 3a e7 6c 69 6e 65 5f  |.."..REUp:.line_|
00003d70  25 2b 36 3e 6d 61 78 79  6c 69 6e 65 73 5f 25 8c  |%+6>maxylines_%.|
00003d80  e1 0d 1a cc 19 e7 6c 69  6e 65 5f 24 28 6c 69 6e  |......line_$(lin|
00003d90  65 5f 25 2b 35 29 3d 22  22 e1 0d 1a d6 1e 6c 69  |e_%+5)="".....li|
00003da0  6e 65 5f 25 3d 6c 69 6e  65 5f 25 2b 31 3a f2 75  |ne_%=line_%+1:.u|
00003db0  70 64 61 74 65 41 3a e1  0d 1a ea 33 dd f2 50 53  |pdateA:....3..PS|
00003dc0  55 70 3a e7 6c 69 6e 65  5f 25 2b 36 3e 6d 61 78  |Up:.line_%+6>max|
00003dd0  79 6c 69 6e 65 73 5f 25  8c 45 4e 44 50 52 4f 43  |ylines_%.ENDPROC|
00003de0  45 20 42 20 46 20 46 20  47 20 46 0d 1a fe 19 e7  |E B F F G F.....|
00003df0  6c 69 6e 65 5f 24 28 6c  69 6e 65 5f 25 2b 35 29  |line_$(line_%+5)|
00003e00  3d 22 22 e1 0d 1b 08 1e  6c 69 6e 65 5f 25 3d 6c  |="".....line_%=l|
00003e10  69 6e 65 5f 25 2b 31 3a  f2 75 70 64 61 74 65 41  |ine_%+1:.updateA|
00003e20  3a e1 0d 1b 1c 24 dd f2  57 6f 72 64 73 55 70 3a  |:....$..WordsUp:|
00003e30  e7 77 6f 72 64 5f 24 28  77 6c 69 6e 65 5f 25 2b  |.word_$(wline_%+|
00003e40  35 29 3d 22 22 e1 0d 1b  30 24 77 6c 69 6e 65 5f  |5)=""...0$wline_|
00003e50  25 3d 77 6c 69 6e 65 5f  25 2b 31 3a f2 55 70 64  |%=wline_%+1:.Upd|
00003e60  61 74 65 57 6f 72 64 73  3a e1 0d 1b 44 2b dd a4  |ateWords:...D+..|
00003e70  44 6f 77 6e 5f 3a e7 a4  67 57 78 28 22 50 68 72  |Down_:..gWx("Phr|
00003e80  61 73 65 73 22 29 f2 70  68 72 61 73 65 73 44 6f  |ases").phrasesDo|
00003e90  77 6e 3a 3d b9 0d 1b 58  1f e7 a4 67 57 78 28 22  |wn:=...X...gWx("|
00003ea0  57 6f 72 64 73 22 29 f2  57 6f 72 64 73 44 6f 77  |Words").WordsDow|
00003eb0  6e 3a 3d b9 0d 1b 62 12  e7 ac a4 67 57 78 28 22  |n:=...b....gWx("|
00003ec0  41 22 29 8c 3d a3 0d 1b  6c 0e e7 a4 6d 6f 75 73  |A").=...l...mous|
00003ed0  65 3d 31 8c 0d 1b 80 40  e3 79 79 5f 25 3d 6c 69  |e=1....@.yy_%=li|
00003ee0  6e 65 5f 25 b8 31 88 2d  31 3a e7 c0 6c 69 6e 65  |ne_%.1.-1:..line|
00003ef0  5f 24 28 79 79 5f 25 29  2c 31 29 3d 22 2a 22 20  |_$(yy_%),1)="*" |
00003f00  6c 69 6e 65 5f 25 3d 79  79 5f 25 2d 31 3a 79 79  |line_%=yy_%-1:yy|
00003f10  5f 25 3d 31 0d 1b 94 11  ed 3a f2 75 70 64 61 74  |_%=1.....:.updat|
00003f20  65 41 3a 3d b9 0d 1b a8  12 cd 3a e7 6c 69 6e 65  |eA:=......:.line|
00003f30  5f 25 3d 30 8c 3d a3 0d  1b d0 1f 6c 69 6e 65 5f  |_%=0.=.....line_|
00003f40  25 3d 6c 69 6e 65 5f 25  2d 31 3a f2 75 70 64 61  |%=line_%-1:.upda|
00003f50  74 65 41 3a 3d b9 0d 1b  e4 1d dd f2 70 68 72 61  |teA:=.......phra|
00003f60  73 65 73 44 6f 77 6e 3a  e7 70 6c 69 6e 65 5f 25  |sesDown:.pline_%|
00003f70  3d 30 e1 0d 1b f8 26 70  6c 69 6e 65 5f 25 3d 70  |=0....&pline_%=p|
00003f80  6c 69 6e 65 5f 25 2d 31  3a f2 55 70 64 61 74 65  |line_%-1:.Update|
00003f90  50 68 72 61 73 65 73 3a  e1 0d 1c 0c 1b dd f2 57  |Phrases:.......W|
00003fa0  6f 72 64 73 44 6f 77 6e  3a e7 77 6c 69 6e 65 5f  |ordsDown:.wline_|
00003fb0  25 3d 30 e1 0d 1c 20 24  77 6c 69 6e 65 5f 25 3d  |%=0... $wline_%=|
00003fc0  77 6c 69 6e 65 5f 25 2d  31 3a f2 55 70 64 61 74  |wline_%-1:.Updat|
00003fd0  65 57 6f 72 64 73 3a e1  0d 1c 34 22 dd a4 4c 65  |eWords:...4"..Le|
00003fe0  76 65 6c 5f 3a e7 a4 6d  6f 75 73 65 3d 34 80 4c  |vel_:..mouse=4.L|
00003ff0  65 76 65 6c 5f 3d 35 8c  3d a3 0d 1c 48 19 e7 a4  |evel_=5.=...H...|
00004000  6d 6f 75 73 65 3d 31 80  4c 65 76 65 6c 5f 3d 31  |mouse=1.Level_=1|
00004010  8c 3d a3 0d 1c 52 48 e7  a4 6d 6f 75 73 65 3d 34  |.=...RH..mouse=4|
00004020  8c 4c 65 76 65 6c 5f 3d  4c 65 76 65 6c 5f 2b 31  |.Level_=Level_+1|
00004030  3a 24 21 4c 65 76 65 6c  5f 25 3d c3 28 4c 65 76  |:$!Level_%=.(Lev|
00004040  65 6c 5f 29 3a f2 72 49  28 4d 61 69 6e 5f 25 2c  |el_):.rI(Main_%,|
00004050  22 4c 65 76 65 6c 22 29  3a 3d b9 0d 1c 5c 48 e7  |"Level"):=...\H.|
00004060  a4 6d 6f 75 73 65 3d 31  8c 4c 65 76 65 6c 5f 3d  |.mouse=1.Level_=|
00004070  4c 65 76 65 6c 5f 2d 31  3a 24 21 4c 65 76 65 6c  |Level_-1:$!Level|
00004080  5f 25 3d c3 28 4c 65 76  65 6c 5f 29 3a f2 72 49  |_%=.(Level_):.rI|
00004090  28 4d 61 69 6e 5f 25 2c  22 4c 65 76 65 6c 22 29  |(Main_%,"Level")|
000040a0  3a 3d b9 0d 1c 66 06 3d  a3 0d 1c 7a 3a dd a4 73  |:=...f.=...z:..s|
000040b0  61 76 65 52 45 5f 3a 61  6c 74 5f 3d b9 3a 64 65  |aveRE_:alt_=.:de|
000040c0  6c 5f 3d a3 3a 72 65 5f  3d b9 3a 70 73 5f 3d a3  |l_=.:re_=.:ps_=.|
000040d0  3a 75 73 5f 3d a3 3a f2  73 61 76 65 52 45 50 53  |:us_=.:.saveREPS|
000040e0  3a 3d b9 0d 1c 8e 3a dd  a4 73 61 76 65 50 53 5f  |:=....:..savePS_|
000040f0  3a 61 6c 74 5f 3d b9 3a  64 65 6c 5f 3d a3 3a 70  |:alt_=.:del_=.:p|
00004100  73 5f 3d b9 3a 72 65 5f  3d a3 3a 75 73 5f 3d a3  |s_=.:re_=.:us_=.|
00004110  3a f2 73 61 76 65 52 45  50 53 3a 3d b9 0d 1c a2  |:.saveREPS:=....|
00004120  39 dd a4 55 73 61 76 65  5f 3a 61 6c 74 5f 3d b9  |9..Usave_:alt_=.|
00004130  3a 64 65 6c 5f 3d a3 3a  70 73 5f 3d a3 3a 72 65  |:del_=.:ps_=.:re|
00004140  5f 3d a3 3a 75 73 5f 3d  b9 3a f2 73 61 76 65 52  |_=.:us_=.:.saveR|
00004150  45 50 53 3a 3d b9 0d 1c  b6 18 dd f2 6d 65 73 73  |EPS:=.......mess|
00004160  3a e7 72 65 5f 20 6f 5f  24 3d 22 52 45 22 0d 1c  |:.re_ o_$="RE"..|
00004170  ca 11 e7 70 73 5f 20 6f  5f 24 3d 22 50 53 22 0d  |...ps_ o_$="PS".|
00004180  1c d4 13 e7 75 73 5f 20  6f 5f 24 3d 22 55 73 65  |....us_ o_$="Use|
00004190  72 22 0d 1c de 18 e7 61  6c 74 5f 20 6f 6f 5f 24  |r".....alt_ oo_$|
000041a0  3d 22 61 6c 74 65 72 65  64 22 0d 1c e8 18 e7 64  |="altered".....d|
000041b0  65 6c 5f 20 6f 6f 5f 24  3d 22 64 65 6c 65 74 65  |el_ oo_$="delete|
000041c0  64 22 0d 1c f2 5d 73 65  6e 64 5f 24 3d 6f 5f 24  |d"...]send_$=o_$|
000041d0  2b 22 20 73 74 61 74 65  6d 65 6e 74 20 22 2b 6f  |+" statement "+o|
000041e0  6f 5f 24 2b 22 20 61 6e  64 20 73 61 76 65 64 2e  |o_$+" and saved.|
000041f0  22 3a e7 6d 65 73 73 61  67 65 5f 25 20 56 5f 24  |":.message_% V_$|
00004200  3d a4 61 6c 65 72 74 28  73 65 6e 64 5f 24 2c 22  |=.alert(send_$,"|
00004210  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 2c 30 29 0d  |","OK","","",0).|
00004220  1d 06 05 e1 0d 1d 1a 3b  dd a4 64 65 6c 65 74 65  |.......;..delete|
00004230  52 45 5f 3a 64 65 6c 5f  3d b9 3a 61 6c 74 5f 3d  |RE_:del_=.:alt_=|
00004240  a3 3a 72 65 5f 3d b9 3a  70 73 5f 3d a3 3a 75 73  |.:re_=.:ps_=.:us|
00004250  5f 3d a3 3a f2 64 65 6c  52 45 50 53 3a 3d b9 0d  |_=.:.delREPS:=..|
00004260  1d 2e 3b dd a4 64 65 6c  65 74 65 50 53 5f 3a 64  |..;..deletePS_:d|
00004270  65 6c 5f 3d b9 3a 61 6c  74 5f 3d a3 3a 70 73 5f  |el_=.:alt_=.:ps_|
00004280  3d b9 3a 72 65 5f 3d a3  3a 75 73 5f 3d a3 3a f2  |=.:re_=.:us_=.:.|
00004290  64 65 6c 52 45 50 53 3a  3d b9 0d 1d 42 3a dd a4  |delREPS:=...B:..|
000042a0  55 64 65 6c 65 74 65 5f  3a 64 65 6c 5f 3d b9 3a  |Udelete_:del_=.:|
000042b0  61 6c 74 5f 3d a3 3a 70  73 5f 3d a3 3a 72 65 5f  |alt_=.:ps_=.:re_|
000042c0  3d a3 3a 75 73 5f 3d b9  3a f2 64 65 6c 52 45 50  |=.:us_=.:.delREP|
000042d0  53 3a 3d b9 0d 1d 56 10  dd a4 45 64 69 74 6f 72  |S:=...V...Editor|
000042e0  5f 3a 3d b9 0d 1d 60 11  dd a4 50 65 64 69 74 6f  |_:=...`...Pedito|
000042f0  72 5f 3a 3d b9 0d 1d 6a  20 dd a4 57 65 64 69 74  |r_:=...j ..Wedit|
00004300  6f 72 5f 3a 3d b9 3a ea  56 25 3a 56 25 3d b9 3a  |or_:=.:.V%:V%=.:|
00004310  c8 8e 52 25 ca 0d 1d a6  20 c9 43 6c 6f 73 65 57  |..R%.... .CloseW|
00004320  25 3a e7 57 25 3d 45 64  64 5f 25 80 73 65 6e 64  |%:.W%=Edd_%.send|
00004330  5f 25 3d a3 8c 0d 1d ba  33 5a 5a 5f 25 3d a4 77  |_%=.....3ZZ_%=.w|
00004340  69 6e 64 6f 77 28 22 4d  61 69 6e 22 29 3a e7 a4  |indow("Main"):..|
00004350  67 57 78 28 22 57 6f 72  64 73 22 29 f2 6f 57 28  |gWx("Words").oW(|
00004360  57 6f 72 64 73 5f 25 29  0d 1d ce 20 e7 a4 67 57  |Words_%)... ..gW|
00004370  78 28 22 50 68 72 61 73  65 73 22 29 f2 6f 57 28  |x("Phrases").oW(|
00004380  50 68 72 61 73 5f 25 29  0d 1d d8 05 cd 0d 1d e2  |Phras_%)........|
00004390  05 cb 0d 1d f6 4e dd a4  44 61 74 65 31 5f 3a f2  |.....N..Date1_:.|
000043a0  74 4d 49 78 28 22 44 61  74 65 22 2c 30 29 3a 44  |tMIx("Date",0):D|
000043b0  61 74 65 31 5f 3d b9 3a  44 61 74 65 32 5f 3d a3  |ate1_=.:Date2_=.|
000043c0  3a 44 61 74 65 33 5f 3d  a3 3a 44 61 74 65 34 5f  |:Date3_=.:Date4_|
000043d0  3d a3 3a f2 77 72 69 74  65 64 61 74 65 3a 3d b9  |=.:.writedate:=.|
000043e0  0d 1e 00 4e dd a4 44 61  74 65 32 5f 3a f2 74 4d  |...N..Date2_:.tM|
000043f0  49 78 28 22 44 61 74 65  22 2c 31 29 3a 44 61 74  |Ix("Date",1):Dat|
00004400  65 32 5f 3d b9 3a 44 61  74 65 31 5f 3d a3 3a 44  |e2_=.:Date1_=.:D|
00004410  61 74 65 33 5f 3d a3 3a  44 61 74 65 34 5f 3d a3  |ate3_=.:Date4_=.|
00004420  3a f2 77 72 69 74 65 64  61 74 65 3a 3d b9 0d 1e  |:.writedate:=...|
00004430  0a 4e dd a4 44 61 74 65  33 5f 3a f2 74 4d 49 78  |.N..Date3_:.tMIx|
00004440  28 22 44 61 74 65 22 2c  32 29 3a 44 61 74 65 33  |("Date",2):Date3|
00004450  5f 3d b9 3a 44 61 74 65  32 5f 3d a3 3a 44 61 74  |_=.:Date2_=.:Dat|
00004460  65 31 5f 3d a3 3a 44 61  74 65 34 5f 3d a3 3a f2  |e1_=.:Date4_=.:.|
00004470  77 72 69 74 65 64 61 74  65 3a 3d b9 0d 1e 14 23  |writedate:=....#|
00004480  dd a4 44 61 74 65 34 5f  3a e7 75 73 65 72 5f 24  |..Date4_:.user_$|
00004490  3d 22 22 8c 44 61 74 65  34 5f 3d a3 3a 3d a3 0d  |="".Date4_=.:=..|
000044a0  1e 1e 45 f2 74 4d 49 78  28 22 44 61 74 65 22 2c  |..E.tMIx("Date",|
000044b0  33 29 3a 44 61 74 65 34  5f 3d b9 3a 44 61 74 65  |3):Date4_=.:Date|
000044c0  32 5f 3d a3 3a 44 61 74  65 31 5f 3d a3 3a 44 61  |2_=.:Date1_=.:Da|
000044d0  74 65 33 5f 3d a3 3a f2  77 72 69 74 65 64 61 74  |te3_=.:.writedat|
000044e0  65 3a 3d b9 0d 1e 32 94  dd a4 55 73 65 72 5f 3a  |e:=...2...User_:|
000044f0  75 5f 24 3d a4 69 6e 70  75 74 28 22 45 6e 74 65  |u_$=.input("Ente|
00004500  72 20 64 61 74 65 22 2c  75 73 65 72 5f 24 2c 22  |r date",user_$,"|
00004510  4f 6b 22 2c 33 35 2c 22  20 22 2c 30 29 3a e7 75  |Ok",35," ",0):.u|
00004520  5f 24 3d 22 62 22 84 75  5f 24 3d 22 42 22 20 75  |_$="b".u_$="B" u|
00004530  73 65 72 5f 24 3d 22 22  3a 44 61 74 65 34 5f 3d  |ser_$="":Date4_=|
00004540  a3 3a f2 75 74 4d 49 28  22 44 61 74 65 22 2c 33  |.:.utMI("Date",3|
00004550  29 3a 44 61 74 65 31 5f  3d b9 3a f2 74 4d 49 78  |):Date1_=.:.tMIx|
00004560  28 22 44 61 74 65 22 2c  30 29 3a f2 77 72 69 74  |("Date",0):.writ|
00004570  65 64 61 74 65 3a 3d b9  0d 1e 46 4b e7 75 5f 24  |edate:=...FK.u_$|
00004580  3c 3e 22 22 20 75 73 65  72 5f 24 3d 75 5f 24 3a  |<>"" user_$=u_$:|
00004590  44 61 74 65 34 5f 3d b9  3a 44 61 74 65 31 5f 3d  |Date4_=.:Date1_=|
000045a0  a3 3a 44 61 74 65 32 5f  3d a3 3a 44 61 74 65 33  |.:Date2_=.:Date3|
000045b0  5f 3d a3 3a f2 74 4d 49  78 28 22 44 61 74 65 22  |_=.:.tMIx("Date"|
000045c0  2c 33 29 0d 1e 50 11 f2  77 72 69 74 65 64 61 74  |,3)..P..writedat|
000045d0  65 3a 3d b9 0d 1e 64 18  dd a4 44 61 74 65 5f 3a  |e:=...d...Date_:|
000045e0  e7 a4 6d 6f 75 73 65 3d  31 8c 3d a3 0d 1e 6e 1f  |..mouse=1.=...n.|
000045f0  f2 67 65 74 64 61 74 65  3a e7 44 61 74 65 31 5f  |.getdate:.Date1_|
00004600  f2 73 73 65 6e 64 28 a4  64 31 29 0d 1e 82 16 e7  |.ssend(.d1).....|
00004610  44 61 74 65 32 5f f2 73  73 65 6e 64 28 a4 64 32  |Date2_.ssend(.d2|
00004620  29 0d 1e 8c 16 e7 44 61  74 65 33 5f f2 73 73 65  |).....Date3_.sse|
00004630  6e 64 28 a4 64 33 29 0d  1e 96 16 e7 44 61 74 65  |nd(.d3).....Date|
00004640  34 5f f2 73 73 65 6e 64  28 a4 64 34 29 0d 1e a0  |4_.ssend(.d4)...|
00004650  06 3d b9 0d 1e b4 3a dd  a4 64 31 3a e3 64 61 79  |.=....:..d1:.day|
00004660  5f 3d 31 b8 37 3a e7 64  61 79 5f 24 3d 44 61 79  |_=1.7:.day_$=Day|
00004670  5f 24 28 64 61 79 5f 2c  30 29 64 61 79 5f 24 3d  |_$(day_,0)day_$=|
00004680  44 61 79 5f 24 28 64 61  79 5f 2c 31 29 0d 1e c8  |Day_$(day_,1)...|
00004690  46 ed 3a e3 6d 6f 6e 74  68 5f 3d 31 b8 31 32 3a  |F.:.month_=1.12:|
000046a0  e7 6d 6f 6e 74 68 5f 24  3d 4d 6f 6e 74 68 5f 24  |.month_$=Month_$|
000046b0  28 6d 6f 6e 74 68 5f 2c  30 29 6d 6f 6e 74 68 5f  |(month_,0)month_|
000046c0  24 3d 4d 6f 6e 74 68 5f  24 28 6d 6f 6e 74 68 5f  |$=Month_$(month_|
000046d0  2c 31 29 0d 1e dc 43 ed  3a 74 69 6d 65 5f 24 3d  |,1)...C.:time_$=|
000046e0  64 61 79 5f 24 2b 22 2c  20 22 2b 64 61 74 65 5f  |day_$+", "+date_|
000046f0  24 2b 65 78 74 5f 24 2b  22 20 22 2b 6d 6f 6e 74  |$+ext_$+" "+mont|
00004700  68 5f 24 2b 22 20 22 2b  79 65 61 72 5f 24 3a 3d  |h_$+" "+year_$:=|
00004710  74 69 6d 65 5f 24 0d 1f  04 49 dd a4 64 32 3a e3  |time_$...I..d2:.|
00004720  6d 6f 6e 74 68 5f 3d 31  b8 31 32 3a e7 6d 6f 6e  |month_=1.12:.mon|
00004730  74 68 5f 24 3d 4d 6f 6e  74 68 5f 24 28 6d 6f 6e  |th_$=Month_$(mon|
00004740  74 68 5f 2c 30 29 6d 6f  6e 74 68 5f 24 3d 4d 6f  |th_,0)month_$=Mo|
00004750  6e 74 68 5f 24 28 6d 6f  6e 74 68 5f 2c 31 29 0d  |nth_$(month_,1).|
00004760  1f 18 38 ed 3a 74 69 6d  65 5f 24 3d 64 61 74 65  |..8.:time_$=date|
00004770  5f 24 2b 65 78 74 5f 24  2b 22 20 22 2b 6d 6f 6e  |_$+ext_$+" "+mon|
00004780  74 68 5f 24 2b 22 20 22  2b 79 65 61 72 5f 24 3a  |th_$+" "+year_$:|
00004790  3d 74 69 6d 65 5f 24 0d  1f 40 3b dd a4 64 33 3a  |=time_$..@;..d3:|
000047a0  e3 6d 6f 6e 74 68 5f 3d  31 b8 31 32 3a e7 6d 6f  |.month_=1.12:.mo|
000047b0  6e 74 68 5f 24 3d 4d 6f  6e 74 68 5f 24 28 6d 6f  |nth_$=Month_$(mo|
000047c0  6e 74 68 5f 2c 30 29 6d  6f 6e 5f 3d 6d 6f 6e 74  |nth_,0)mon_=mont|
000047d0  68 5f 0d 1f 54 32 ed 3a  74 69 6d 65 5f 24 3d 64  |h_..T2.:time_$=d|
000047e0  61 74 65 5f 24 2b 22 2f  22 2b c3 28 6d 6f 6e 5f  |ate_$+"/"+.(mon_|
000047f0  29 2b 22 2f 22 2b 79 65  61 72 5f 24 3a 3d 74 69  |)+"/"+year_$:=ti|
00004800  6d 65 5f 24 0d 1f 7c 23  dd a4 64 34 3a 3d 75 73  |me_$..|#..d4:=us|
00004810  65 72 5f 24 3a f2 72 49  28 4d 61 69 6e 5f 25 2c  |er_$:.rI(Main_%,|
00004820  22 44 61 74 65 22 29 0d  1f ae 30 dd f2 77 72 69  |"Date")...0..wri|
00004830  74 65 64 61 74 65 3a e7  75 73 65 72 5f 24 3c 3e  |tedate:.user_$<>|
00004840  22 22 f2 70 4d 49 28 22  44 61 74 65 22 2c 33 2c  |"".pMI("Date",3,|
00004850  75 73 65 72 5f 24 29 0d  1f c2 52 f2 67 65 74 64  |user_$)...R.getd|
00004860  61 74 65 3a e7 44 61 74  65 34 5f 3d a3 8c 24 21  |ate:.Date4_=..$!|
00004870  44 61 74 65 5f 25 3d 64  61 74 65 5f 24 2b 22 20  |Date_%=date_$+" |
00004880  22 2b 6d 6f 6e 74 68 5f  24 2b 22 20 22 2b 79 65  |"+month_$+" "+ye|
00004890  61 72 5f 24 3a f2 72 49  28 4d 61 69 6e 5f 25 2c  |ar_$:.rI(Main_%,|
000048a0  22 44 61 74 65 22 29 3a  e1 0d 1f d6 3b e7 75 73  |"Date"):....;.us|
000048b0  65 72 5f 24 3c 3e 22 22  80 44 61 74 65 34 5f 8c  |er_$<>"".Date4_.|
000048c0  24 21 44 61 74 65 5f 25  3d 22 55 73 65 72 22 3a  |$!Date_%="User":|
000048d0  f2 72 49 28 4d 61 69 6e  5f 25 2c 22 44 61 74 65  |.rI(Main_%,"Date|
000048e0  22 29 3a e1 0d 1f e0 38  24 21 44 61 74 65 5f 25  |"):....8$!Date_%|
000048f0  3d c1 91 24 2c 35 2c 36  29 2b 22 20 22 2b c1 91  |=..$,5,6)+" "+..|
00004900  24 2c 31 34 2c 32 29 3a  f2 72 49 28 4d 61 69 6e  |$,14,2):.rI(Main|
00004910  5f 25 2c 22 44 61 74 65  22 29 3a e1 0d 1f f4 42  |_%,"Date"):....B|
00004920  dd a4 4c 65 66 74 5f 3a  e7 77 69 6e 64 6f 77 5f  |..Left_:.window_|
00004930  25 3c 3e 30 8c c8 99 32  36 32 33 35 34 2c 77 69  |%<>0...262354,wi|
00004940  6e 64 6f 77 5f 25 2c 69  63 6f 6e 5f 25 2c 70 6f  |ndow_%,icon_%,po|
00004950  73 78 5f 25 2c 70 6f 73  79 5f 25 2c 2d 31 0d 1f  |sx_%,posy_%,-1..|
00004960  fe 21 77 69 6e 64 6f 77  5f 25 3d 30 3a ff 22 66  |.!window_%=0:."f|
00004970  78 20 31 33 38 2c 30 2c  31 32 37 22 3a 3d b9 0d  |x 138,0,127":=..|
00004980  20 08 1f dd a4 52 65 74  75 72 6e 5f 3a ff 22 66  | ....Return_:."f|
00004990  78 20 31 33 38 2c 30 2c  31 33 22 3a 3d b9 0d 20  |x 138,0,13":=.. |
000049a0  1c 43 dd a4 52 69 67 68  74 5f 3a e7 77 69 6e 64  |.C..Right_:.wind|
000049b0  6f 77 5f 25 3c 3e 30 8c  c8 99 32 36 32 33 35 34  |ow_%<>0...262354|
000049c0  2c 77 69 6e 64 6f 77 5f  25 2c 69 63 6f 6e 5f 25  |,window_%,icon_%|
000049d0  2c 70 6f 73 78 5f 25 2c  70 6f 73 79 5f 25 2c 2d  |,posx_%,posy_%,-|
000049e0  31 0d 20 26 20 77 69 6e  64 6f 77 5f 25 3d 30 3a  |1. & window_%=0:|
000049f0  ff 22 66 78 20 31 33 38  2c 30 2c 33 32 22 3a 3d  |."fx 138,0,32":=|
00004a00  b9 0d 20 30 41 dd a4 44  46 47 5f 3a e7 77 69 6e  |.. 0A..DFG_:.win|
00004a10  64 6f 77 5f 25 3c 3e 30  8c c8 99 32 36 32 33 35  |dow_%<>0...26235|
00004a20  34 2c 77 69 6e 64 6f 77  5f 25 2c 69 63 6f 6e 5f  |4,window_%,icon_|
00004a30  25 2c 70 6f 73 78 5f 25  2c 70 6f 73 79 5f 25 2c  |%,posx_%,posy_%,|
00004a40  2d 31 0d 20 3a 55 77 69  6e 64 6f 77 5f 25 3d 30  |-1. :Uwindow_%=0|
00004a50  3a e7 52 65 74 75 72 6e  5f 25 3d 30 c8 99 26 34  |:.Return_%=0..&4|
00004a60  30 30 43 37 2c 6d 61 73  6b 25 2c 46 70 6f 6c 6c  |00C7,mask%,Fpoll|
00004a70  25 b8 42 42 5f 25 3a ff  22 66 78 20 31 33 38 2c  |%.BB_%:."fx 138,|
00004a80  30 2c 31 30 22 3a ff 22  66 78 20 31 33 38 2c 30  |0,10":."fx 138,0|
00004a90  2c 31 33 22 3a 3d b9 0d  20 4e 4a e7 52 65 74 75  |,13":=.. NJ.Retu|
00004aa0  72 6e 5f 25 3d 31 c8 99  26 34 30 30 43 37 2c 6d  |rn_%=1..&400C7,m|
00004ab0  61 73 6b 25 2c 46 70 6f  6c 6c 25 b8 42 42 5f 25  |ask%,Fpoll%.BB_%|
00004ac0  3a ff 22 66 78 20 31 33  38 2c 30 2c 31 33 22 3a  |:."fx 138,0,13":|
00004ad0  ff 22 66 78 20 31 33 38  2c 30 2c 31 30 22 3a 3d  |."fx 138,0,10":=|
00004ae0  b9 0d 20 58 3b e7 52 65  74 75 72 6e 5f 25 3d 32  |.. X;.Return_%=2|
00004af0  c8 99 26 34 30 30 43 37  2c 6d 61 73 6b 25 2c 46  |..&400C7,mask%,F|
00004b00  70 6f 6c 6c 25 b8 42 42  5f 25 3a ff 22 66 78 20  |poll%.BB_%:."fx |
00004b10  31 33 38 2c 30 2c 31 33  22 3a 3d b9 0d 20 62 04  |138,0,13":=.. b.|
00004b20  0d 20 a8 86 dd f2 67 65  74 64 61 74 65 3a 74 69  |. ....getdate:ti|
00004b30  6d 65 5f 24 3d 91 24 3a  64 61 79 5f 24 3d c1 74  |me_$=.$:day_$=.t|
00004b40  69 6d 65 5f 24 2c 31 2c  33 29 3a 64 61 74 65 5f  |ime_$,1,3):date_|
00004b50  24 3d c1 74 69 6d 65 5f  24 2c 35 2c 32 29 3a 6d  |$=.time_$,5,2):m|
00004b60  6f 6e 74 68 5f 24 3d c1  74 69 6d 65 5f 24 2c 38  |onth_$=.time_$,8|
00004b70  2c 33 29 3a 79 65 61 72  5f 24 3d c1 74 69 6d 65  |,3):year_$=.time|
00004b80  5f 24 2c 31 32 2c 34 29  3a e7 c0 64 61 74 65 5f  |_$,12,4):..date_|
00004b90  24 29 3d 22 30 22 20 64  61 74 65 5f 24 3d c2 64  |$)="0" date_$=.d|
00004ba0  61 74 65 5f 24 29 0d 20  c6 b3 e7 64 61 74 65 5f  |ate_$). ...date_|
00004bb0  24 3d 22 31 22 20 65 78  74 5f 24 3d 22 73 74 22  |$="1" ext_$="st"|
00004bc0  8b e7 64 61 74 65 5f 24  3d 22 32 22 20 65 78 74  |..date_$="2" ext|
00004bd0  5f 24 3d 22 6e 64 22 8b  e7 64 61 74 65 5f 24 3d  |_$="nd"..date_$=|
00004be0  22 33 22 20 65 78 74 5f  24 3d 22 72 64 22 8b e7  |"3" ext_$="rd"..|
00004bf0  64 61 74 65 5f 24 3d 22  32 31 22 20 65 78 74 5f  |date_$="21" ext_|
00004c00  24 3d 22 73 74 22 8b e7  64 61 74 65 5f 24 3d 22  |$="st"..date_$="|
00004c10  32 32 22 20 65 78 74 5f  24 3d 22 6e 64 22 8b e7  |22" ext_$="nd"..|
00004c20  64 61 74 65 5f 24 3d 22  32 33 22 20 65 78 74 5f  |date_$="23" ext_|
00004c30  24 3d 22 72 64 22 8b e7  64 61 74 65 5f 24 3d 22  |$="rd"..date_$="|
00004c40  33 31 22 20 65 78 74 5f  24 3d 22 73 74 22 8b 65  |31" ext_$="st".e|
00004c50  78 74 5f 24 3d 22 74 68  22 0d 20 d0 05 e1 0d 20  |xt_$="th". .... |
00004c60  e4 34 dd a4 52 45 65 64  69 74 5f 3a 52 45 5f 3d  |.4..REedit_:RE_=|
00004c70  b9 3a 50 53 5f 3d a3 3a  e7 a4 67 57 78 28 22 52  |.:PS_=.:..gWx("R|
00004c80  65 4d 22 29 f2 63 6c 6f  73 65 57 28 52 65 4d 5f  |eM").closeW(ReM_|
00004c90  25 29 0d 20 f8 18 3d a4  77 69 6e 64 6f 77 28 22  |%). ..=.window("|
00004ca0  4d 65 6e 75 45 64 69 74  22 29 0d 21 0c 34 dd a4  |MenuEdit").!.4..|
00004cb0  50 53 65 64 69 74 5f 3a  50 53 5f 3d b9 3a 52 45  |PSedit_:PS_=.:RE|
00004cc0  5f 3d a3 3a e7 a4 67 57  78 28 22 50 73 4d 22 29  |_=.:..gWx("PsM")|
00004cd0  f2 63 6c 6f 73 65 57 28  50 73 4d 5f 25 29 0d 21  |.closeW(PsM_%).!|
00004ce0  20 18 3d a4 77 69 6e 64  6f 77 28 22 4d 65 6e 75  | .=.window("Menu|
00004cf0  45 64 69 74 22 29 0d 21  34 6a dd f2 75 70 52 45  |Edit").!4j..upRE|
00004d00  3a 24 21 4d 65 6e 75 54  69 74 6c 65 5f 25 3d 22  |:$!MenuTitle_%="|
00004d10  52 45 22 3a 24 21 4d 65  6e 31 5f 25 3d 52 45 31  |RE":$!Men1_%=RE1|
00004d20  5f 24 3a 24 21 4d 65 6e  32 5f 25 3d 52 45 32 5f  |_$:$!Men2_%=RE2_|
00004d30  24 3a 24 21 4d 65 6e 33  5f 25 3d 52 45 33 5f 24  |$:$!Men3_%=RE3_$|
00004d40  3a 24 21 4d 65 6e 34 5f  25 3d 52 45 34 5f 24 3a  |:$!Men4_%=RE4_$:|
00004d50  24 21 4d 65 6e 35 5f 25  3d 52 45 35 5f 24 3a e1  |$!Men5_%=RE5_$:.|
00004d60  0d 21 8e 6a dd f2 75 70  50 53 3a 24 21 4d 65 6e  |.!.j..upPS:$!Men|
00004d70  75 54 69 74 6c 65 5f 25  3d 22 50 53 22 3a 24 21  |uTitle_%="PS":$!|
00004d80  4d 65 6e 31 5f 25 3d 50  53 31 5f 24 3a 24 21 4d  |Men1_%=PS1_$:$!M|
00004d90  65 6e 32 5f 25 3d 50 53  32 5f 24 3a 24 21 4d 65  |en2_%=PS2_$:$!Me|
00004da0  6e 33 5f 25 3d 50 53 33  5f 24 3a 24 21 4d 65 6e  |n3_%=PS3_$:$!Men|
00004db0  34 5f 25 3d 50 53 34 5f  24 3a 24 21 4d 65 6e 35  |4_%=PS4_$:$!Men5|
00004dc0  5f 25 3d 50 53 35 5f 24  3a e1 0d 21 e8 2e dd a4  |_%=PS5_$:..!....|
00004dd0  4d 65 6e 31 5f 3a e7 52  45 5f 20 52 45 31 5f 24  |Men1_:.RE_ RE1_$|
00004de0  3d 24 21 4d 65 6e 31 5f  25 8b 50 53 31 5f 24 3d  |=$!Men1_%.PS1_$=|
00004df0  24 21 4d 65 6e 31 5f 25  0d 21 fc 06 3d b9 0d 22  |$!Men1_%.!..=.."|
00004e00  06 2e dd a4 4d 65 6e 32  5f 3a e7 52 45 5f 20 52  |....Men2_:.RE_ R|
00004e10  45 32 5f 24 3d 24 21 4d  65 6e 32 5f 25 8b 50 53  |E2_$=$!Men2_%.PS|
00004e20  32 5f 24 3d 24 21 4d 65  6e 32 5f 25 0d 22 1a 06  |2_$=$!Men2_%."..|
00004e30  3d b9 0d 22 24 2e dd a4  4d 65 6e 33 5f 3a e7 52  |=.."$...Men3_:.R|
00004e40  45 5f 20 52 45 33 5f 24  3d 24 21 4d 65 6e 33 5f  |E_ RE3_$=$!Men3_|
00004e50  25 8b 50 53 33 5f 24 3d  24 21 4d 65 6e 33 5f 25  |%.PS3_$=$!Men3_%|
00004e60  0d 22 38 06 3d b9 0d 22  42 2e dd a4 4d 65 6e 34  |."8.=.."B...Men4|
00004e70  5f 3a e7 52 45 5f 20 52  45 34 5f 24 3d 24 21 4d  |_:.RE_ RE4_$=$!M|
00004e80  65 6e 34 5f 25 8b 50 53  34 5f 24 3d 24 21 4d 65  |en4_%.PS4_$=$!Me|
00004e90  6e 34 5f 25 0d 22 56 06  3d b9 0d 22 60 2e dd a4  |n4_%."V.=.."`...|
00004ea0  4d 65 6e 35 5f 3a e7 52  45 5f 20 52 45 35 5f 24  |Men5_:.RE_ RE5_$|
00004eb0  3d 24 21 4d 65 6e 35 5f  25 8b 50 53 35 5f 24 3d  |=$!Men5_%.PS5_$=|
00004ec0  24 21 4d 65 6e 35 5f 25  0d 22 74 06 3d b9 0d 22  |$!Men5_%."t.=.."|
00004ed0  88 3a dd a4 4d 65 6e 53  61 76 65 5f 3a ea 85 3a  |.:..MenSave_:..:|
00004ee0  ee 85 ea 64 61 74 61 5f  3d a3 3a f2 75 73 49 28  |...data_=.:.usI(|
00004ef0  4d 65 6e 75 45 64 69 74  5f 25 2c 22 4d 65 6e 53  |MenuEdit_%,"MenS|
00004f00  61 76 65 22 29 3a 3d a3  0d 22 a6 09 e7 52 45 5f  |ave"):=.."...RE_|
00004f10  8c 0d 22 ba e1 52 45 31  5f 24 3d 24 21 4d 65 6e  |.."..RE1_$=$!Men|
00004f20  31 5f 25 3a 52 45 32 5f  24 3d 24 21 4d 65 6e 32  |1_%:RE2_$=$!Men2|
00004f30  5f 25 3a 52 45 33 5f 24  3d 24 21 4d 65 6e 33 5f  |_%:RE3_$=$!Men3_|
00004f40  25 3a 52 45 34 5f 24 3d  24 21 4d 65 6e 34 5f 25  |%:RE4_$=$!Men4_%|
00004f50  3a 52 45 35 5f 24 3d 24  21 4d 65 6e 35 5f 25 3a  |:RE5_$=$!Men5_%:|
00004f60  6f 70 65 6e 24 3d 22 3c  72 68 5f 3e 2e 4d 65 6e  |open$="<rh_>.Men|
00004f70  75 73 2e 52 45 22 3a 78  5f 3d ae 6f 70 65 6e 24  |us.RE":x_=.open$|
00004f80  3a f1 23 78 5f 2c 52 45  31 5f 24 2c 52 45 32 5f  |:.#x_,RE1_$,RE2_|
00004f90  24 2c 52 45 33 5f 24 2c  52 45 34 5f 24 2c 52 45  |$,RE3_$,RE4_$,RE|
00004fa0  35 5f 24 3a d9 23 78 5f  3a 56 5f 24 3d a4 61 6c  |5_$:.#x_:V_$=.al|
00004fb0  65 72 74 28 22 52 45 20  6d 65 6e 75 20 73 61 76  |ert("RE menu sav|
00004fc0  65 64 22 2c 22 22 2c 22  4f 4b 22 2c 22 22 2c 22  |ed","","OK","","|
00004fd0  22 2c 30 29 3a f2 75 73  49 28 4d 65 6e 75 45 64  |",0):.usI(MenuEd|
00004fe0  69 74 5f 25 2c 22 4d 65  6e 53 61 76 65 22 29 3a  |it_%,"MenSave"):|
00004ff0  3d b9 0d 22 f6 0b cd 3a  e7 50 53 5f 8c 0d 23 0a  |=.."...:.PS_..#.|
00005000  e1 50 53 31 5f 24 3d 24  21 4d 65 6e 31 5f 25 3a  |.PS1_$=$!Men1_%:|
00005010  50 53 32 5f 24 3d 24 21  4d 65 6e 32 5f 25 3a 50  |PS2_$=$!Men2_%:P|
00005020  53 33 5f 24 3d 24 21 4d  65 6e 33 5f 25 3a 50 53  |S3_$=$!Men3_%:PS|
00005030  34 5f 24 3d 24 21 4d 65  6e 34 5f 25 3a 50 53 35  |4_$=$!Men4_%:PS5|
00005040  5f 24 3d 24 21 4d 65 6e  35 5f 25 3a 6f 70 65 6e  |_$=$!Men5_%:open|
00005050  24 3d 22 3c 72 68 5f 3e  2e 4d 65 6e 75 73 2e 50  |$="<rh_>.Menus.P|
00005060  53 22 3a 78 5f 3d ae 6f  70 65 6e 24 3a f1 23 78  |S":x_=.open$:.#x|
00005070  5f 2c 50 53 31 5f 24 2c  50 53 32 5f 24 2c 50 53  |_,PS1_$,PS2_$,PS|
00005080  33 5f 24 2c 50 53 34 5f  24 2c 50 53 35 5f 24 3a  |3_$,PS4_$,PS5_$:|
00005090  d9 23 78 5f 3a 56 5f 24  3d a4 61 6c 65 72 74 28  |.#x_:V_$=.alert(|
000050a0  22 50 53 20 6d 65 6e 75  20 73 61 76 65 64 22 2c  |"PS menu saved",|
000050b0  22 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 2c 30 29  |"","OK","","",0)|
000050c0  3a f2 75 73 49 28 4d 65  6e 75 45 64 69 74 5f 25  |:.usI(MenuEdit_%|
000050d0  2c 22 4d 65 6e 53 61 76  65 22 29 3a 3d b9 0d 23  |,"MenSave"):=..#|
000050e0  3c 05 cd 0d 23 50 5c dd  a4 4d 65 6e 4f 4b 5f 3a  |<...#P\..MenOK_:|
000050f0  e7 52 45 5f 20 52 45 31  5f 24 3d 24 21 4d 65 6e  |.RE_ RE1_$=$!Men|
00005100  31 5f 25 3a 52 45 32 5f  24 3d 24 21 4d 65 6e 32  |1_%:RE2_$=$!Men2|
00005110  5f 25 3a 52 45 33 5f 24  3d 24 21 4d 65 6e 33 5f  |_%:RE3_$=$!Men3_|
00005120  25 3a 52 45 34 5f 24 3d  24 21 4d 65 6e 34 5f 25  |%:RE4_$=$!Men4_%|
00005130  3a 52 45 35 5f 24 3d 24  21 4d 65 6e 35 5f 25 0d  |:RE5_$=$!Men5_%.|
00005140  23 64 53 e7 50 53 5f 20  50 53 31 5f 24 3d 24 21  |#dS.PS_ PS1_$=$!|
00005150  4d 65 6e 31 5f 25 3a 50  53 32 5f 24 3d 24 21 4d  |Men1_%:PS2_$=$!M|
00005160  65 6e 32 5f 25 3a 50 53  33 5f 24 3d 24 21 4d 65  |en2_%:PS3_$=$!Me|
00005170  6e 33 5f 25 3a 50 53 34  5f 24 3d 24 21 4d 65 6e  |n3_%:PS4_$=$!Men|
00005180  34 5f 25 3a 50 53 35 5f  24 3d 24 21 4d 65 6e 35  |4_%:PS5_$=$!Men5|
00005190  5f 25 0d 23 6e 1a f2 63  6c 6f 73 65 57 28 4d 65  |_%.#n..closeW(Me|
000051a0  6e 75 45 64 69 74 5f 25  29 3a 3d b9 0d 23 82 27  |nuEdit_%):=..#.'|
000051b0  dd a4 4e 6f 77 74 5f 3a  f2 73 75 74 3a e7 a4 67  |..Nowt_:.sut:..g|
000051c0  57 78 28 22 41 22 29 f2  63 6c 6f 73 65 57 28 41  |Wx("A").closeW(A|
000051d0  5f 25 29 0d 23 96 22 e7  a4 67 57 78 28 22 57 6f  |_%).#."..gWx("Wo|
000051e0  72 64 73 22 29 f2 63 6c  6f 73 65 57 28 57 6f 72  |rds").closeW(Wor|
000051f0  64 73 5f 25 29 0d 23 a0  24 e7 a4 67 57 78 28 22  |ds_%).#.$..gWx("|
00005200  50 68 72 61 73 65 73 22  29 f2 63 6c 6f 73 65 57  |Phrases").closeW|
00005210  28 50 68 72 61 73 5f 25  29 0d 23 aa 46 3d a4 77  |(Phras_%).#.F=.w|
00005220  69 6e 64 6f 77 28 22 53  75 62 6a 65 63 74 73 22  |indow("Subjects"|
00005230  29 3a 56 5f 24 3d a4 61  6c 65 72 74 28 22 43 6c  |):V_$=.alert("Cl|
00005240  69 63 6b 20 27 4d 65 6e  75 27 22 2c 22 22 2c 22  |ick 'Menu'","","|
00005250  4f 4b 22 2c 22 22 2c 22  22 2c 30 29 3a 3d a3 0d  |OK","","",0):=..|
00005260  23 fa 36 dd a4 4f 70 65  6e 5f 3a e7 6f 70 65 6e  |#.6..Open_:.open|
00005270  5f 25 8c 6f 70 65 6e 5f  25 3d a3 3a f2 75 73 49  |_%.open_%=.:.usI|
00005280  28 43 68 6f 69 63 65 73  5f 25 2c 22 4f 70 65 6e  |(Choices_%,"Open|
00005290  22 29 3a 3d b9 0d 24 0e  2f e7 6f 70 65 6e 5f 25  |"):=..$./.open_%|
000052a0  3d a3 8c 6f 70 65 6e 5f  25 3d b9 3a f2 73 49 28  |=..open_%=.:.sI(|
000052b0  43 68 6f 69 63 65 73 5f  25 2c 22 4f 70 65 6e 22  |Choices_%,"Open"|
000052c0  29 3a 3d b9 0d 24 18 04  0d 24 22 42 dd a4 4d 65  |):=..$...$"B..Me|
000052d0  73 73 61 67 65 5f 3a e7  6d 65 73 73 61 67 65 5f  |ssage_:.message_|
000052e0  25 8c 6d 65 73 73 61 67  65 5f 25 3d a3 3a f2 75  |%.message_%=.:.u|
000052f0  73 49 28 43 68 6f 69 63  65 73 5f 25 2c 22 4d 65  |sI(Choices_%,"Me|
00005300  73 73 61 67 65 22 29 3a  3d b9 0d 24 36 38 e7 6d  |ssage"):=..$68.m|
00005310  65 73 73 61 67 65 5f 25  3d a3 8c 6d 65 73 73 61  |essage_%=..messa|
00005320  67 65 5f 25 3d b9 3a f2  73 49 28 43 68 6f 69 63  |ge_%=.:.sI(Choic|
00005330  65 73 5f 25 2c 22 4d 65  73 73 61 67 65 22 29 3a  |es_%,"Message"):|
00005340  3d b9 0d 24 40 04 0d 24  4a 27 dd f2 65 64 69 74  |=..$@..$J'..edit|
00005350  6f 72 3a e7 4d 5f 24 3d  22 52 45 22 f2 6f 76 72  |or:.M_$="RE".ovr|
00005360  4d 28 22 52 45 65 64 69  74 22 29 3a e1 0d 24 5e  |M("REedit"):..$^|
00005370  1e e7 4d 5f 24 3d 22 50  53 22 f2 6f 76 72 4d 28  |..M_$="PS".ovrM(|
00005380  22 50 53 65 64 69 74 22  29 3a e1 0d 24 68 27 e7  |"PSedit"):..$h'.|
00005390  c2 54 69 74 6c 65 41 5f  24 2c 34 29 3d 22 55 73  |.TitleA_$,4)="Us|
000053a0  65 72 22 f2 6f 76 72 4d  28 22 55 73 65 72 22 29  |er".ovrM("User")|
000053b0  3a e1 0d 24 72 05 e1 0d  24 9a 52 dd a4 53 61 76  |:..$r...$.R..Sav|
000053c0  65 43 68 5f 3a ea 85 3a  ee 85 ea 56 5f 24 3d a4  |eCh_:..:...V_$=.|
000053d0  61 6c 65 72 74 28 f6 24  2c 22 22 2c 22 4f 4b 22  |alert(.$,"","OK"|
000053e0  2c 22 22 2c 22 22 2c 30  29 3a f2 75 73 49 28 43  |,"","",0):.usI(C|
000053f0  68 6f 69 63 65 73 5f 25  2c 22 53 61 76 65 43 68  |hoices_%,"SaveCh|
00005400  22 29 3a ee 85 87 3a 3d  a3 0d 24 ae 86 6f 70 65  |"):...:=..$..ope|
00005410  6e 24 3d 22 3c 72 68 5f  3e 2e 4d 65 6e 75 73 2e  |n$="<rh_>.Menus.|
00005420  4d 22 3a 78 5f 3d ae 6f  70 65 6e 24 3a f1 23 78  |M":x_=.open$:.#x|
00005430  5f 2c 6d 65 73 73 61 67  65 5f 25 2c 6f 70 65 6e  |_,message_%,open|
00005440  5f 25 3a d9 23 78 5f 3a  56 5f 24 3d a4 61 6c 65  |_%:.#x_:V_$=.ale|
00005450  72 74 28 22 43 68 6f 69  63 65 73 20 73 61 76 65  |rt("Choices save|
00005460  64 22 2c 22 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |d","","OK","",""|
00005470  2c 30 29 3a f2 75 73 49  28 43 68 6f 69 63 65 73  |,0):.usI(Choices|
00005480  5f 25 2c 22 53 61 76 65  43 68 22 29 3a 3d b9 0d  |_%,"SaveCh"):=..|
00005490  24 e0 25 dd a4 43 68 6f  69 63 65 4f 4b 5f 3a f2  |$.%..ChoiceOK_:.|
000054a0  63 6c 6f 73 65 57 28 43  68 6f 69 63 65 73 5f 25  |closeW(Choices_%|
000054b0  29 3a 3d b9 0d 24 f4 2b  dd a4 52 65 74 75 72 6e  |):=..$.+..Return|
000054c0  30 5f 3a 52 65 74 75 72  6e 5f 25 3d 30 3a f2 74  |0_:Return_%=0:.t|
000054d0  4d 49 78 28 22 44 66 67  22 2c 30 29 3a 3d b9 0d  |MIx("Dfg",0):=..|
000054e0  24 fe 2b dd a4 52 65 74  75 72 6e 31 5f 3a 52 65  |$.+..Return1_:Re|
000054f0  74 75 72 6e 5f 25 3d 31  3a f2 74 4d 49 78 28 22  |turn_%=1:.tMIx("|
00005500  44 66 67 22 2c 31 29 3a  3d b9 0d 25 08 2b dd a4  |Dfg",1):=..%.+..|
00005510  52 65 74 75 72 6e 32 5f  3a 52 65 74 75 72 6e 5f  |Return2_:Return_|
00005520  25 3d 32 3a f2 74 4d 49  78 28 22 44 66 67 22 2c  |%=2:.tMIx("Dfg",|
00005530  32 29 3a 3d b9 0d 25 1c  1f dd a4 53 61 76 65 52  |2):=..%....SaveR|
00005540  65 74 75 72 6e 5f 3a ea  85 3a ee 85 ea 3a ee 85  |eturn_:..:...:..|
00005550  87 3a 3d a3 0d 25 3a 6b  6f 70 65 6e 24 3d 22 3c  |.:=..%:kopen$="<|
00005560  72 68 5f 3e 2e 4d 65 6e  75 73 2e 52 22 3a 78 5f  |rh_>.Menus.R":x_|
00005570  3d ae 6f 70 65 6e 24 3a  f1 23 78 5f 2c 52 65 74  |=.open$:.#x_,Ret|
00005580  75 72 6e 5f 25 3a d9 23  78 5f 3a 56 5f 24 3d a4  |urn_%:.#x_:V_$=.|
00005590  61 6c 65 72 74 28 22 52  65 74 75 72 6e 20 63 68  |alert("Return ch|
000055a0  6f 69 63 65 20 73 61 76  65 64 22 2c 22 22 2c 22  |oice saved","","|
000055b0  4f 4b 22 2c 22 22 2c 22  22 2c 30 29 3a 3d b9 0d  |OK","","",0):=..|
000055c0  25 62 52 dd a4 41 64 64  75 73 65 72 5f 3a 67 65  |%bR..Adduser_:ge|
000055d0  74 5f 24 3d 24 21 45 64  69 74 6f 72 5f 25 3a 6c  |t_$=$!Editor_%:l|
000055e0  6c 5f 25 3d 30 3a e7 c0  54 69 74 6c 65 41 5f 24  |l_%=0:..TitleA_$|
000055f0  2c 31 31 29 3d 22 45 6e  67 6c 69 73 68 20 41 54  |,11)="English AT|
00005600  31 22 f2 65 78 6c 6f 61  64 28 22 69 2e 69 75 22  |1".exload("i.iu"|
00005610  29 0d 25 76 30 e7 c0 54  69 74 6c 65 41 5f 24 2c  |).%v0..TitleA_$,|
00005620  31 31 29 3d 22 45 6e 67  6c 69 73 68 20 41 54 32  |11)="English AT2|
00005630  22 f2 65 78 6c 6f 61 64  28 22 69 2e 69 69 75 22  |".exload("i.iiu"|
00005640  29 0d 25 80 31 e7 c0 54  69 74 6c 65 41 5f 24 2c  |).%.1..TitleA_$,|
00005650  31 31 29 3d 22 45 6e 67  6c 69 73 68 20 41 54 33  |11)="English AT3|
00005660  22 f2 65 78 6c 6f 61 64  28 22 69 2e 69 69 69 75  |".exload("i.iiiu|
00005670  22 29 0d 25 8a 31 e7 c0  54 69 74 6c 65 41 5f 24  |").%.1..TitleA_$|
00005680  2c 31 32 29 3d 22 45 6e  67 6c 69 73 68 20 41 54  |,12)="English AT|
00005690  34 3a 22 f2 65 78 6c 6f  61 64 28 22 69 2e 69 76  |4:".exload("i.iv|
000056a0  75 22 29 0d 25 94 2f e7  c0 54 69 74 6c 65 41 5f  |u").%./..TitleA_|
000056b0  24 2c 31 31 29 3d 22 45  6e 67 6c 69 73 68 20 41  |$,11)="English A|
000056c0  54 35 22 f2 65 78 6c 6f  61 64 28 22 69 2e 76 75  |T5".exload("i.vu|
000056d0  22 29 0d 25 9e 31 e7 c0  54 69 74 6c 65 41 5f 24  |").%.1..TitleA_$|
000056e0  2c 31 32 29 3d 22 45 6e  67 6c 69 73 68 20 41 54  |,12)="English AT|
000056f0  34 2f 22 f2 65 78 6c 6f  61 64 28 22 69 2e 76 69  |4/".exload("i.vi|
00005700  75 22 29 0d 25 a8 34 e7  c0 54 69 74 6c 65 41 5f  |u").%.4..TitleA_|
00005710  24 2c 31 35 29 3d 22 4d  61 74 68 65 6d 61 74 69  |$,15)="Mathemati|
00005720  63 73 20 41 54 31 22 f2  65 78 6c 6f 61 64 28 22  |cs AT1".exload("|
00005730  69 69 2e 69 75 22 29 0d  25 bc 35 e7 c0 54 69 74  |ii.iu").%.5..Tit|
00005740  6c 65 41 5f 24 2c 31 35  29 3d 22 4d 61 74 68 65  |leA_$,15)="Mathe|
00005750  6d 61 74 69 63 73 20 41  54 32 22 f2 65 78 6c 6f  |matics AT2".exlo|
00005760  61 64 28 22 69 69 2e 69  69 75 22 29 0d 25 c6 36  |ad("ii.iiu").%.6|
00005770  e7 c0 54 69 74 6c 65 41  5f 24 2c 31 35 29 3d 22  |..TitleA_$,15)="|
00005780  4d 61 74 68 65 6d 61 74  69 63 73 20 41 54 33 22  |Mathematics AT3"|
00005790  f2 65 78 6c 6f 61 64 28  22 69 69 2e 69 69 69 75  |.exload("ii.iiiu|
000057a0  22 29 0d 25 d0 35 e7 c0  54 69 74 6c 65 41 5f 24  |").%.5..TitleA_$|
000057b0  2c 31 35 29 3d 22 4d 61  74 68 65 6d 61 74 69 63  |,15)="Mathematic|
000057c0  73 20 41 54 34 22 f2 65  78 6c 6f 61 64 28 22 69  |s AT4".exload("i|
000057d0  69 2e 69 76 75 22 29 0d  25 da 34 e7 c0 54 69 74  |i.ivu").%.4..Tit|
000057e0  6c 65 41 5f 24 2c 31 35  29 3d 22 4d 61 74 68 65  |leA_$,15)="Mathe|
000057f0  6d 61 74 69 63 73 20 41  54 35 22 f2 65 78 6c 6f  |matics AT5".exlo|
00005800  61 64 28 22 69 69 2e 76  75 22 29 0d 25 e4 31 e7  |ad("ii.vu").%.1.|
00005810  c0 54 69 74 6c 65 41 5f  24 2c 31 31 29 3d 22 53  |.TitleA_$,11)="S|
00005820  63 69 65 6e 63 65 20 41  54 31 22 f2 65 78 6c 6f  |cience AT1".exlo|
00005830  61 64 28 22 69 69 69 2e  69 75 22 29 0d 25 f8 32  |ad("iii.iu").%.2|
00005840  e7 c0 54 69 74 6c 65 41  5f 24 2c 31 31 29 3d 22  |..TitleA_$,11)="|
00005850  53 63 69 65 6e 63 65 20  41 54 32 22 f2 65 78 6c  |Science AT2".exl|
00005860  6f 61 64 28 22 69 69 69  2e 69 69 75 22 29 0d 26  |oad("iii.iiu").&|
00005870  02 33 e7 c0 54 69 74 6c  65 41 5f 24 2c 31 31 29  |.3..TitleA_$,11)|
00005880  3d 22 53 63 69 65 6e 63  65 20 41 54 33 22 f2 65  |="Science AT3".e|
00005890  78 6c 6f 61 64 28 22 69  69 69 2e 69 69 69 75 22  |xload("iii.iiiu"|
000058a0  29 0d 26 0c 32 e7 c0 54  69 74 6c 65 41 5f 24 2c  |).&.2..TitleA_$,|
000058b0  31 31 29 3d 22 53 63 69  65 6e 63 65 20 41 54 34  |11)="Science AT4|
000058c0  22 f2 65 78 6c 6f 61 64  28 22 69 69 69 2e 69 76  |".exload("iii.iv|
000058d0  75 22 29 0d 26 16 33 e7  c0 54 69 74 6c 65 41 5f  |u").&.3..TitleA_|
000058e0  24 2c 31 34 29 3d 22 54  65 63 68 6e 6f 6c 6f 67  |$,14)="Technolog|
000058f0  79 20 41 54 31 22 f2 65  78 6c 6f 61 64 28 22 69  |y AT1".exload("i|
00005900  76 2e 69 75 22 29 0d 26  2a 34 e7 c0 54 69 74 6c  |v.iu").&*4..Titl|
00005910  65 41 5f 24 2c 31 34 29  3d 22 54 65 63 68 6e 6f  |eA_$,14)="Techno|
00005920  6c 6f 67 79 20 41 54 32  22 f2 65 78 6c 6f 61 64  |logy AT2".exload|
00005930  28 22 69 76 2e 69 69 75  22 29 0d 26 34 35 e7 c0  |("iv.iiu").&45..|
00005940  54 69 74 6c 65 41 5f 24  2c 31 34 29 3d 22 54 65  |TitleA_$,14)="Te|
00005950  63 68 6e 6f 6c 6f 67 79  20 41 54 33 22 f2 65 78  |chnology AT3".ex|
00005960  6c 6f 61 64 28 22 69 76  2e 69 69 69 75 22 29 0d  |load("iv.iiiu").|
00005970  26 3e 34 e7 c0 54 69 74  6c 65 41 5f 24 2c 31 34  |&>4..TitleA_$,14|
00005980  29 3d 22 54 65 63 68 6e  6f 6c 6f 67 79 20 41 54  |)="Technology AT|
00005990  34 22 f2 65 78 6c 6f 61  64 28 22 69 76 2e 69 76  |4".exload("iv.iv|
000059a0  75 22 29 0d 26 48 33 e7  c0 54 69 74 6c 65 41 5f  |u").&H3..TitleA_|
000059b0  24 2c 31 34 29 3d 22 54  65 63 68 6e 6f 6c 6f 67  |$,14)="Technolog|
000059c0  79 20 41 54 35 22 f2 65  78 6c 6f 61 64 28 22 69  |y AT5".exload("i|
000059d0  76 2e 76 75 22 29 0d 26  52 2f e7 c0 54 69 74 6c  |v.vu").&R/..Titl|
000059e0  65 41 5f 24 2c 31 31 29  3d 22 48 69 73 74 6f 72  |eA_$,11)="Histor|
000059f0  79 20 41 54 31 22 f2 65  78 6c 6f 61 64 28 22 76  |y AT1".exload("v|
00005a00  2e 69 75 22 29 0d 26 66  30 e7 c0 54 69 74 6c 65  |.iu").&f0..Title|
00005a10  41 5f 24 2c 31 31 29 3d  22 48 69 73 74 6f 72 79  |A_$,11)="History|
00005a20  20 41 54 32 22 f2 65 78  6c 6f 61 64 28 22 76 2e  | AT2".exload("v.|
00005a30  69 69 75 22 29 0d 26 70  31 e7 c0 54 69 74 6c 65  |iiu").&p1..Title|
00005a40  41 5f 24 2c 31 31 29 3d  22 48 69 73 74 6f 72 79  |A_$,11)="History|
00005a50  20 41 54 33 22 f2 65 78  6c 6f 61 64 28 22 76 2e  | AT3".exload("v.|
00005a60  69 69 69 75 22 29 0d 26  7a 32 e7 c0 54 69 74 6c  |iiiu").&z2..Titl|
00005a70  65 41 5f 24 2c 31 33 29  3d 22 47 65 6f 67 72 61  |eA_$,13)="Geogra|
00005a80  70 68 79 20 41 54 31 22  f2 65 78 6c 6f 61 64 28  |phy AT1".exload(|
00005a90  22 76 69 2e 69 75 22 29  0d 26 8e 33 e7 c0 54 69  |"vi.iu").&.3..Ti|
00005aa0  74 6c 65 41 5f 24 2c 31  33 29 3d 22 47 65 6f 67  |tleA_$,13)="Geog|
00005ab0  72 61 70 68 79 20 41 54  32 22 f2 65 78 6c 6f 61  |raphy AT2".exloa|
00005ac0  64 28 22 76 69 2e 69 69  75 22 29 0d 26 98 34 e7  |d("vi.iiu").&.4.|
00005ad0  c0 54 69 74 6c 65 41 5f  24 2c 31 33 29 3d 22 47  |.TitleA_$,13)="G|
00005ae0  65 6f 67 72 61 70 68 79  20 41 54 33 22 f2 65 78  |eography AT3".ex|
00005af0  6c 6f 61 64 28 22 76 69  2e 69 69 69 75 22 29 0d  |load("vi.iiiu").|
00005b00  26 a2 33 e7 c0 54 69 74  6c 65 41 5f 24 2c 31 33  |&.3..TitleA_$,13|
00005b10  29 3d 22 47 65 6f 67 72  61 70 68 79 20 41 54 34  |)="Geography AT4|
00005b20  22 f2 65 78 6c 6f 61 64  28 22 76 69 2e 69 76 75  |".exload("vi.ivu|
00005b30  22 29 0d 26 ac 32 e7 c0  54 69 74 6c 65 41 5f 24  |").&.2..TitleA_$|
00005b40  2c 31 33 29 3d 22 47 65  6f 67 72 61 70 68 79 20  |,13)="Geography |
00005b50  41 54 35 22 f2 65 78 6c  6f 61 64 28 22 76 69 2e  |AT5".exload("vi.|
00005b60  76 75 22 29 0d 26 b6 49  e7 54 69 74 6c 65 41 5f  |vu").&.I.TitleA_|
00005b70  24 3d 22 4d 75 73 69 63  20 41 54 31 3a 20 50 65  |$="Music AT1: Pe|
00005b80  72 66 6f 72 6d 69 6e 67  20 61 6e 64 20 43 6f 6d  |rforming and Com|
00005b90  70 6f 73 69 6e 67 20 4b  53 31 22 f2 65 78 6c 6f  |posing KS1".exlo|
00005ba0  61 64 28 22 76 69 69 69  2e 69 75 22 29 0d 26 ca  |ad("viii.iu").&.|
00005bb0  51 e7 54 69 74 6c 65 41  5f 24 3d 22 4d 75 73 69  |Q.TitleA_$="Musi|
00005bc0  63 20 41 54 31 3a 20 50  65 72 66 6f 72 6d 69 6e  |c AT1: Performin|
00005bd0  67 20 61 6e 64 20 43 6f  6d 70 6f 73 69 6e 67 20  |g and Composing |
00005be0  4b 53 31 20 53 75 70 70  6f 72 74 22 f2 65 78 6c  |KS1 Support".exl|
00005bf0  6f 61 64 28 22 76 69 69  69 2e 69 75 22 29 0d 26  |oad("viii.iu").&|
00005c00  d4 56 e7 54 69 74 6c 65  41 5f 24 3d 22 4d 75 73  |.V.TitleA_$="Mus|
00005c10  69 63 20 41 54 31 3a 20  50 65 72 66 6f 72 6d 69  |ic AT1: Performi|
00005c20  6e 67 20 61 6e 64 20 43  6f 6d 70 6f 73 69 6e 67  |ng and Composing|
00005c30  20 4b 53 31 20 41 54 20  26 20 53 75 70 70 6f 72  | KS1 AT & Suppor|
00005c40  74 22 f2 65 78 6c 6f 61  64 28 22 76 69 69 69 2e  |t".exload("viii.|
00005c50  69 75 22 29 0d 26 de 4a  e7 54 69 74 6c 65 41 5f  |iu").&.J.TitleA_|
00005c60  24 3d 22 4d 75 73 69 63  20 41 54 31 3a 20 50 65  |$="Music AT1: Pe|
00005c70  72 66 6f 72 6d 69 6e 67  20 61 6e 64 20 43 6f 6d  |rforming and Com|
00005c80  70 6f 73 69 6e 67 20 4b  53 32 22 f2 65 78 6c 6f  |posing KS2".exlo|
00005c90  61 64 28 22 76 69 69 69  2e 69 69 75 22 29 0d 26  |ad("viii.iiu").&|
00005ca0  e8 52 e7 54 69 74 6c 65  41 5f 24 3d 22 4d 75 73  |.R.TitleA_$="Mus|
00005cb0  69 63 20 41 54 31 3a 20  50 65 72 66 6f 72 6d 69  |ic AT1: Performi|
00005cc0  6e 67 20 61 6e 64 20 43  6f 6d 70 6f 73 69 6e 67  |ng and Composing|
00005cd0  20 4b 53 32 20 53 75 70  70 6f 72 74 22 f2 65 78  | KS2 Support".ex|
00005ce0  6c 6f 61 64 28 22 76 69  69 69 2e 69 69 75 22 29  |load("viii.iiu")|
00005cf0  0d 26 f2 57 e7 54 69 74  6c 65 41 5f 24 3d 22 4d  |.&.W.TitleA_$="M|
00005d00  75 73 69 63 20 41 54 31  3a 20 50 65 72 66 6f 72  |usic AT1: Perfor|
00005d10  6d 69 6e 67 20 61 6e 64  20 43 6f 6d 70 6f 73 69  |ming and Composi|
00005d20  6e 67 20 4b 53 32 20 41  54 20 26 20 53 75 70 70  |ng KS2 AT & Supp|
00005d30  6f 72 74 22 f2 65 78 6c  6f 61 64 28 22 76 69 69  |ort".exload("vii|
00005d40  69 2e 69 69 75 22 29 0d  26 fc 4b e7 54 69 74 6c  |i.iiu").&.K.Titl|
00005d50  65 41 5f 24 3d 22 4d 75  73 69 63 20 41 54 32 3a  |eA_$="Music AT2:|
00005d60  20 4c 69 73 74 65 6e 69  6e 67 20 61 6e 64 20 41  | Listening and A|
00005d70  70 70 72 61 69 73 69 6e  67 20 4b 53 31 22 f2 65  |ppraising KS1".e|
00005d80  78 6c 6f 61 64 28 22 76  69 69 69 2e 69 69 69 75  |xload("viii.iiiu|
00005d90  22 29 0d 27 06 53 e7 54  69 74 6c 65 41 5f 24 3d  |").'.S.TitleA_$=|
00005da0  22 4d 75 73 69 63 20 41  54 32 3a 20 4c 69 73 74  |"Music AT2: List|
00005db0  65 6e 69 6e 67 20 61 6e  64 20 41 70 70 72 61 69  |ening and Apprai|
00005dc0  73 69 6e 67 20 4b 53 31  20 53 75 70 70 6f 72 74  |sing KS1 Support|
00005dd0  22 f2 65 78 6c 6f 61 64  28 22 76 69 69 69 2e 69  |".exload("viii.i|
00005de0  69 69 75 22 29 0d 27 10  58 e7 54 69 74 6c 65 41  |iiu").'.X.TitleA|
00005df0  5f 24 3d 22 4d 75 73 69  63 20 41 54 32 3a 20 4c  |_$="Music AT2: L|
00005e00  69 73 74 65 6e 69 6e 67  20 61 6e 64 20 41 70 70  |istening and App|
00005e10  72 61 69 73 69 6e 67 20  4b 53 31 20 41 54 20 26  |raising KS1 AT &|
00005e20  20 53 75 70 70 6f 72 74  22 f2 65 78 6c 6f 61 64  | Support".exload|
00005e30  28 22 76 69 69 69 2e 69  69 69 75 22 29 0d 27 1a  |("viii.iiiu").'.|
00005e40  4a e7 54 69 74 6c 65 41  5f 24 3d 22 4d 75 73 69  |J.TitleA_$="Musi|
00005e50  63 20 41 54 32 3a 20 4c  69 73 74 65 6e 69 6e 67  |c AT2: Listening|
00005e60  20 61 6e 64 20 41 70 70  72 61 69 73 69 6e 67 20  | and Appraising |
00005e70  4b 53 32 22 f2 65 78 6c  6f 61 64 28 22 76 69 69  |KS2".exload("vii|
00005e80  69 2e 69 76 75 22 29 0d  27 24 52 e7 54 69 74 6c  |i.ivu").'$R.Titl|
00005e90  65 41 5f 24 3d 22 4d 75  73 69 63 20 41 54 32 3a  |eA_$="Music AT2:|
00005ea0  20 4c 69 73 74 65 6e 69  6e 67 20 61 6e 64 20 41  | Listening and A|
00005eb0  70 70 72 61 69 73 69 6e  67 20 4b 53 32 20 53 75  |ppraising KS2 Su|
00005ec0  70 70 6f 72 74 22 f2 65  78 6c 6f 61 64 28 22 76  |pport".exload("v|
00005ed0  69 69 69 2e 69 76 75 22  29 0d 27 2e 57 e7 54 69  |iii.ivu").'.W.Ti|
00005ee0  74 6c 65 41 5f 24 3d 22  4d 75 73 69 63 20 41 54  |tleA_$="Music AT|
00005ef0  32 3a 20 4c 69 73 74 65  6e 69 6e 67 20 61 6e 64  |2: Listening and|
00005f00  20 41 70 70 72 61 69 73  69 6e 67 20 4b 53 32 20  | Appraising KS2 |
00005f10  41 54 20 26 20 53 75 70  70 6f 72 74 22 f2 65 78  |AT & Support".ex|
00005f20  6c 6f 61 64 28 22 76 69  69 69 2e 69 76 75 22 29  |load("viii.ivu")|
00005f30  0d 27 38 4c e7 54 69 74  6c 65 41 5f 24 3d 22 50  |.'8L.TitleA_$="P|
00005f40  45 20 45 6e 64 20 6f 66  20 4b 65 79 20 53 74 61  |E End of Key Sta|
00005f50  67 65 20 53 74 61 74 65  6d 65 6e 74 73 3a 20 4b  |ge Statements: K|
00005f60  65 79 20 53 74 61 67 65  20 31 22 f2 65 78 6c 6f  |ey Stage 1".exlo|
00005f70  61 64 28 22 76 69 69 2e  69 75 22 29 0d 27 4c 54  |ad("vii.iu").'LT|
00005f80  e7 54 69 74 6c 65 41 5f  24 3d 22 50 45 20 45 6e  |.TitleA_$="PE En|
00005f90  64 20 6f 66 20 4b 65 79  20 53 74 61 67 65 20 53  |d of Key Stage S|
00005fa0  74 61 74 65 6d 65 6e 74  73 3a 20 4b 65 79 20 53  |tatements: Key S|
00005fb0  74 61 67 65 20 31 20 53  75 70 70 6f 72 74 22 f2  |tage 1 Support".|
00005fc0  65 78 6c 6f 61 64 28 22  76 69 69 2e 69 75 22 29  |exload("vii.iu")|
00005fd0  0d 27 56 59 e7 54 69 74  6c 65 41 5f 24 3d 22 50  |.'VY.TitleA_$="P|
00005fe0  45 20 45 6e 64 20 6f 66  20 4b 65 79 20 53 74 61  |E End of Key Sta|
00005ff0  67 65 20 53 74 61 74 65  6d 65 6e 74 73 3a 20 4b  |ge Statements: K|
00006000  65 79 20 53 74 61 67 65  20 31 20 41 54 20 26 20  |ey Stage 1 AT & |
00006010  53 75 70 70 6f 72 74 22  f2 65 78 6c 6f 61 64 28  |Support".exload(|
00006020  22 76 69 69 2e 69 75 22  29 0d 27 60 4d e7 54 69  |"vii.iu").'`M.Ti|
00006030  74 6c 65 41 5f 24 3d 22  50 45 20 45 6e 64 20 6f  |tleA_$="PE End o|
00006040  66 20 4b 65 79 20 53 74  61 67 65 20 53 74 61 74  |f Key Stage Stat|
00006050  65 6d 65 6e 74 73 3a 20  4b 65 79 20 53 74 61 67  |ements: Key Stag|
00006060  65 20 32 22 f2 65 78 6c  6f 61 64 28 22 76 69 69  |e 2".exload("vii|
00006070  2e 69 69 75 22 29 0d 27  6a 55 e7 54 69 74 6c 65  |.iiu").'jU.Title|
00006080  41 5f 24 3d 22 50 45 20  45 6e 64 20 6f 66 20 4b  |A_$="PE End of K|
00006090  65 79 20 53 74 61 67 65  20 53 74 61 74 65 6d 65  |ey Stage Stateme|
000060a0  6e 74 73 3a 20 4b 65 79  20 53 74 61 67 65 20 32  |nts: Key Stage 2|
000060b0  20 53 75 70 70 6f 72 74  22 f2 65 78 6c 6f 61 64  | Support".exload|
000060c0  28 22 76 69 69 2e 69 69  75 22 29 0d 27 74 5a e7  |("vii.iiu").'tZ.|
000060d0  54 69 74 6c 65 41 5f 24  3d 22 50 45 20 45 6e 64  |TitleA_$="PE End|
000060e0  20 6f 66 20 4b 65 79 20  53 74 61 67 65 20 53 74  | of Key Stage St|
000060f0  61 74 65 6d 65 6e 74 73  3a 20 4b 65 79 20 53 74  |atements: Key St|
00006100  61 67 65 20 32 20 41 54  20 26 20 53 75 70 70 6f  |age 2 AT & Suppo|
00006110  72 74 22 f2 65 78 6c 6f  61 64 28 22 76 69 69 2e  |rt".exload("vii.|
00006120  69 69 75 22 29 0d 27 7e  51 e7 54 69 74 6c 65 41  |iiu").'~Q.TitleA|
00006130  5f 24 3d 22 50 45 20 50  72 6f 67 72 61 6d 6d 65  |_$="PE Programme|
00006140  73 20 6f 66 20 53 74 75  64 79 20 28 61 63 74 69  |s of Study (acti|
00006150  76 69 74 79 20 73 70 65  63 69 66 69 63 29 20 4b  |vity specific) K|
00006160  53 31 22 f2 65 78 6c 6f  61 64 28 22 76 69 69 2e  |S1".exload("vii.|
00006170  69 69 69 75 22 29 0d 27  88 59 e7 54 69 74 6c 65  |iiiu").'.Y.Title|
00006180  41 5f 24 3d 22 50 45 20  50 72 6f 67 72 61 6d 6d  |A_$="PE Programm|
00006190  65 73 20 6f 66 20 53 74  75 64 79 20 28 61 63 74  |es of Study (act|
000061a0  69 76 69 74 79 20 73 70  65 63 69 66 69 63 29 20  |ivity specific) |
000061b0  4b 53 31 20 53 75 70 70  6f 72 74 22 f2 65 78 6c  |KS1 Support".exl|
000061c0  6f 61 64 28 22 76 69 69  2e 69 69 69 75 22 29 0d  |oad("vii.iiiu").|
000061d0  27 92 50 e7 54 69 74 6c  65 41 5f 24 3d 22 50 45  |'.P.TitleA_$="PE|
000061e0  20 50 72 6f 67 72 61 6d  6d 65 73 20 6f 66 20 53  | Programmes of S|
000061f0  74 75 64 79 20 28 61 63  74 69 76 69 74 79 20 73  |tudy (activity s|
00006200  70 65 63 69 66 69 63 29  20 4b 53 32 22 f2 65 78  |pecific) KS2".ex|
00006210  6c 6f 61 64 28 22 76 69  69 2e 69 76 75 22 29 0d  |load("vii.ivu").|
00006220  27 9c 58 e7 54 69 74 6c  65 41 5f 24 3d 22 50 45  |'.X.TitleA_$="PE|
00006230  20 50 72 6f 67 72 61 6d  6d 65 73 20 6f 66 20 53  | Programmes of S|
00006240  74 75 64 79 20 28 61 63  74 69 76 69 74 79 20 73  |tudy (activity s|
00006250  70 65 63 69 66 69 63 29  20 4b 53 32 20 53 75 70  |pecific) KS2 Sup|
00006260  70 6f 72 74 22 f2 65 78  6c 6f 61 64 28 22 76 69  |port".exload("vi|
00006270  69 2e 69 76 75 22 29 0d  27 a6 45 e7 54 69 74 6c  |i.ivu").'.E.Titl|
00006280  65 41 5f 24 3d 22 41 72  74 20 41 54 31 3a 20 49  |eA_$="Art AT1: I|
00006290  6e 76 65 73 74 69 67 61  74 69 6e 67 20 61 6e 64  |nvestigating and|
000062a0  20 4d 61 6b 69 6e 67 20  4b 53 31 22 f2 65 78 6c  | Making KS1".exl|
000062b0  6f 61 64 28 22 69 78 2e  69 75 22 29 0d 27 ba 4d  |oad("ix.iu").'.M|
000062c0  e7 54 69 74 6c 65 41 5f  24 3d 22 41 72 74 20 41  |.TitleA_$="Art A|
000062d0  54 31 3a 20 49 6e 76 65  73 74 69 67 61 74 69 6e  |T1: Investigatin|
000062e0  67 20 61 6e 64 20 4d 61  6b 69 6e 67 20 4b 53 31  |g and Making KS1|
000062f0  20 53 75 70 70 6f 72 74  22 f2 65 78 6c 6f 61 64  | Support".exload|
00006300  28 22 69 78 2e 69 75 22  29 0d 27 c4 52 e7 54 69  |("ix.iu").'.R.Ti|
00006310  74 6c 65 41 5f 24 3d 22  41 72 74 20 41 54 31 3a  |tleA_$="Art AT1:|
00006320  20 49 6e 76 65 73 74 69  67 61 74 69 6e 67 20 61  | Investigating a|
00006330  6e 64 20 4d 61 6b 69 6e  67 20 4b 53 31 20 41 54  |nd Making KS1 AT|
00006340  20 26 20 53 75 70 70 6f  72 74 22 f2 65 78 6c 6f  | & Support".exlo|
00006350  61 64 28 22 69 78 2e 69  75 22 29 0d 27 ce 46 e7  |ad("ix.iu").'.F.|
00006360  54 69 74 6c 65 41 5f 24  3d 22 41 72 74 20 41 54  |TitleA_$="Art AT|
00006370  31 3a 20 49 6e 76 65 73  74 69 67 61 74 69 6e 67  |1: Investigating|
00006380  20 61 6e 64 20 4d 61 6b  69 6e 67 20 4b 53 32 22  | and Making KS2"|
00006390  f2 65 78 6c 6f 61 64 28  22 69 78 2e 69 69 75 22  |.exload("ix.iiu"|
000063a0  29 0d 27 e2 4e e7 54 69  74 6c 65 41 5f 24 3d 22  |).'.N.TitleA_$="|
000063b0  41 72 74 20 41 54 31 3a  20 49 6e 76 65 73 74 69  |Art AT1: Investi|
000063c0  67 61 74 69 6e 67 20 61  6e 64 20 4d 61 6b 69 6e  |gating and Makin|
000063d0  67 20 4b 53 32 20 53 75  70 70 6f 72 74 22 f2 65  |g KS2 Support".e|
000063e0  78 6c 6f 61 64 28 22 69  78 2e 69 69 75 22 29 0d  |xload("ix.iiu").|
000063f0  27 ec 53 e7 54 69 74 6c  65 41 5f 24 3d 22 41 72  |'.S.TitleA_$="Ar|
00006400  74 20 41 54 31 3a 20 49  6e 76 65 73 74 69 67 61  |t AT1: Investiga|
00006410  74 69 6e 67 20 61 6e 64  20 4d 61 6b 69 6e 67 20  |ting and Making |
00006420  4b 53 32 20 41 54 20 26  20 53 75 70 70 6f 72 74  |KS2 AT & Support|
00006430  22 f2 65 78 6c 6f 61 64  28 22 69 78 2e 69 69 75  |".exload("ix.iiu|
00006440  22 29 0d 27 f6 4a e7 54  69 74 6c 65 41 5f 24 3d  |").'.J.TitleA_$=|
00006450  22 41 72 74 20 41 54 32  3a 20 4b 6e 6f 77 6c 65  |"Art AT2: Knowle|
00006460  64 67 65 20 61 6e 64 20  55 6e 64 65 72 73 74 61  |dge and Understa|
00006470  6e 64 69 6e 67 20 4b 53  31 22 f2 65 78 6c 6f 61  |nding KS1".exloa|
00006480  64 28 22 69 78 2e 69 69  69 75 22 29 0d 28 0a 52  |d("ix.iiiu").(.R|
00006490  e7 54 69 74 6c 65 41 5f  24 3d 22 41 72 74 20 41  |.TitleA_$="Art A|
000064a0  54 32 3a 20 4b 6e 6f 77  6c 65 64 67 65 20 61 6e  |T2: Knowledge an|
000064b0  64 20 55 6e 64 65 72 73  74 61 6e 64 69 6e 67 20  |d Understanding |
000064c0  4b 53 31 20 53 75 70 70  6f 72 74 22 f2 65 78 6c  |KS1 Support".exl|
000064d0  6f 61 64 28 22 69 78 2e  69 69 69 75 22 29 0d 28  |oad("ix.iiiu").(|
000064e0  14 57 e7 54 69 74 6c 65  41 5f 24 3d 22 41 72 74  |.W.TitleA_$="Art|
000064f0  20 41 54 32 3a 20 4b 6e  6f 77 6c 65 64 67 65 20  | AT2: Knowledge |
00006500  61 6e 64 20 55 6e 64 65  72 73 74 61 6e 64 69 6e  |and Understandin|
00006510  67 20 4b 53 31 20 41 54  20 26 20 53 75 70 70 6f  |g KS1 AT & Suppo|
00006520  72 74 22 f2 65 78 6c 6f  61 64 28 22 69 78 2e 69  |rt".exload("ix.i|
00006530  69 69 75 22 29 0d 28 1e  49 e7 54 69 74 6c 65 41  |iiu").(.I.TitleA|
00006540  5f 24 3d 22 41 72 74 20  41 54 32 3a 20 4b 6e 6f  |_$="Art AT2: Kno|
00006550  77 6c 65 64 67 65 20 61  6e 64 20 55 6e 64 65 72  |wledge and Under|
00006560  73 74 61 6e 64 69 6e 67  20 4b 53 32 22 f2 65 78  |standing KS2".ex|
00006570  6c 6f 61 64 28 22 69 78  2e 69 76 75 22 29 0d 28  |load("ix.ivu").(|
00006580  32 51 e7 54 69 74 6c 65  41 5f 24 3d 22 41 72 74  |2Q.TitleA_$="Art|
00006590  20 41 54 32 3a 20 4b 6e  6f 77 6c 65 64 67 65 20  | AT2: Knowledge |
000065a0  61 6e 64 20 55 6e 64 65  72 73 74 61 6e 64 69 6e  |and Understandin|
000065b0  67 20 4b 53 32 20 53 75  70 70 6f 72 74 22 f2 65  |g KS2 Support".e|
000065c0  78 6c 6f 61 64 28 22 69  78 2e 69 76 75 22 29 0d  |xload("ix.ivu").|
000065d0  28 3c 56 e7 54 69 74 6c  65 41 5f 24 3d 22 41 72  |(<V.TitleA_$="Ar|
000065e0  74 20 41 54 32 3a 20 4b  6e 6f 77 6c 65 64 67 65  |t AT2: Knowledge|
000065f0  20 61 6e 64 20 55 6e 64  65 72 73 74 61 6e 64 69  | and Understandi|
00006600  6e 67 20 4b 53 32 20 41  54 20 26 20 53 75 70 70  |ng KS2 AT & Supp|
00006610  6f 72 74 22 f2 65 78 6c  6f 61 64 28 22 69 78 2e  |ort".exload("ix.|
00006620  69 76 75 22 29 0d 28 46  4e 67 6f 74 79 5f 25 3d  |ivu").(FNgoty_%=|
00006630  30 3a e3 66 69 5f 25 3d  31 b8 6c 6c 5f 25 3a e7  |0:.fi_%=1.ll_%:.|
00006640  6c 6c 69 6e 65 5f 24 28  66 69 5f 25 29 3d 22 69  |lline_$(fi_%)="i|
00006650  6e 73 65 72 74 65 64 20  6c 69 6e 65 22 20 67 6f  |nserted line" go|
00006660  74 79 5f 25 3d 66 69 5f  25 3a 66 69 5f 25 3d 6c  |ty_%=fi_%:fi_%=l|
00006670  6c 5f 25 0d 28 64 11 ed  3a e7 67 6f 74 79 5f 25  |l_%.(d..:.goty_%|
00006680  3c 3e 30 8c 0d 28 78 3f  6c 6c 69 6e 65 5f 24 28  |<>0..(x?lline_$(|
00006690  67 6f 74 79 5f 25 29 3d  67 65 74 5f 24 3a f2 65  |goty_%)=get_$:.e|
000066a0  78 73 61 76 65 3a e7 a4  67 57 78 28 22 45 64 69  |xsave:..gWx("Edi|
000066b0  74 6f 72 22 29 f2 63 6c  6f 73 65 57 28 45 64 64  |tor").closeW(Edd|
000066c0  5f 25 29 0d 28 96 06 3d  b9 0d 28 a0 19 cd 3a e7  |_%).(..=..(...:.|
000066d0  6c 6c 5f 25 3d 6d 61 78  6c 69 6e 65 73 5f 25 2d  |ll_%=maxlines_%-|
000066e0  31 8c 0d 28 be 4e 56 5f  24 3d a4 61 6c 65 72 74  |1..(.NV_$=.alert|
000066f0  28 22 55 73 65 72 20 62  61 6e 6b 20 66 75 6c 6c  |("User bank full|
00006700  22 2c 22 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 2c  |","","OK","","",|
00006710  30 29 3a e7 a4 67 57 78  28 22 45 64 69 74 6f 72  |0):..gWx("Editor|
00006720  22 29 f2 63 6c 6f 73 65  57 28 45 64 64 5f 25 29  |").closeW(Edd_%)|
00006730  0d 28 d2 06 3d b9 0d 28  dc 10 cd 3a e7 6c 6c 5f  |.(..=..(...:.ll_|
00006740  25 3d 30 8c 3d a3 0d 28  f0 49 e7 6c 6c 69 6e 65  |%=0.=..(.I.lline|
00006750  5f 24 28 6c 6c 5f 25 29  3d 22 22 20 6c 6c 69 6e  |_$(ll_%)="" llin|
00006760  65 5f 24 28 6c 6c 5f 25  29 3d 67 65 74 5f 24 8b  |e_$(ll_%)=get_$.|
00006770  6c 6c 5f 25 3d 6c 6c 5f  25 2b 31 3a 6c 6c 69 6e  |ll_%=ll_%+1:llin|
00006780  65 5f 24 28 6c 6c 5f 25  29 3d 67 65 74 5f 24 0d  |e_$(ll_%)=get_$.|
00006790  28 fa 29 f2 65 78 73 61  76 65 3a e7 a4 67 57 78  |(.).exsave:..gWx|
000067a0  28 22 45 64 69 74 6f 72  22 29 f2 63 6c 6f 73 65  |("Editor").close|
000067b0  57 28 45 64 64 5f 25 29  0d 29 0e 06 3d b9 0d 29  |W(Edd_%).)..=..)|
000067c0  22 7a dd f2 65 78 6c 6f  61 64 28 6c 6c 6f 61 64  |"z..exload(lload|
000067d0  5f 24 29 3a ea 85 3a ee  85 ea 3a e7 9f 3d 32 30  |_$):..:...:..=20|
000067e0  34 8c 56 5f 24 3d a4 61  6c 65 72 74 28 71 75 65  |4.V_$=.alert(que|
000067f0  65 72 5f 24 2c 22 22 2c  22 4f 4b 22 2c 22 22 2c  |er_$,"","OK","",|
00006800  22 22 2c 30 29 3a 64 61  74 61 5f 3d a3 3a e1 8b  |"",0):data_=.:..|
00006810  56 5f 24 3d a4 61 6c 65  72 74 28 f6 24 2c 22 22  |V_$=.alert(.$,""|
00006820  2c 22 4f 4b 22 2c 22 22  2c 22 22 2c 30 29 3a 64  |,"OK","","",0):d|
00006830  61 74 61 5f 3d a3 3a e1  0d 29 2c 98 64 61 74 61  |ata_=.:..),.data|
00006840  5f 3d b9 3a e3 6d 61 78  5f 25 3d 31 b8 6d 61 78  |_=.:.max_%=1.max|
00006850  6c 69 6e 65 73 5f 25 3a  6c 6c 69 6e 65 5f 24 28  |lines_%:lline_$(|
00006860  6d 61 78 5f 25 29 3d 22  22 3a ed 3a 4f 6f 6f 70  |max_%)="":.:Ooop|
00006870  65 6e 24 3d 22 3c 44 61  74 61 24 44 69 72 3e 2e  |en$="<Data$Dir>.|
00006880  22 2b 6c 6c 6f 61 64 5f  24 3a 78 78 5f 3d 8e 4f  |"+lload_$:xx_=.O|
00006890  6f 6f 70 65 6e 24 3a e7  78 78 5f 3d 30 d9 23 78  |oopen$:.xx_=0.#x|
000068a0  78 5f 3a 56 5f 24 3d a4  61 6c 65 72 74 28 71 75  |x_:V_$=.alert(qu|
000068b0  65 65 72 5f 24 2c 22 22  2c 22 4f 4b 22 2c 22 22  |eer_$,"","OK",""|
000068c0  2c 22 22 2c 30 29 3a 64  61 74 61 5f 3d a3 3a e1  |,"",0):data_=.:.|
000068d0  0d 29 4a 45 6c 6c 5f 25  3d 30 3a f5 3a f2 67 65  |.)JEll_%=0:.:.ge|
000068e0  74 6c 6c 69 6e 65 5f 3a  6c 6c 5f 25 3d 6c 6c 5f  |tlline_:ll_%=ll_|
000068f0  25 2b 31 3a 6c 6c 69 6e  65 5f 24 28 6c 6c 5f 25  |%+1:lline_$(ll_%|
00006900  29 3d 61 61 5f 24 3a fd  c5 23 78 78 5f 3a d9 23  |)=aa_$:..#xx_:.#|
00006910  78 78 5f 3a e1 0d 29 5e  24 dd a4 45 6e 67 6c 69  |xx_:..)^$..Engli|
00006920  73 68 5f 3a f2 73 75 62  3a 3d a4 77 69 6e 64 6f  |sh_:.sub:=.windo|
00006930  77 28 22 45 6e 67 4d 22  29 0d 29 68 11 dd a4 53  |w("EngM").)h...S|
00006940  63 69 65 6e 63 65 5f 3a  3d a3 0d 29 72 14 dd a4  |cience_:=..)r...|
00006950  54 65 63 68 6e 6f 6c 6f  67 79 5f 3a 3d a3 0d 29  |Technology_:=..)|
00006960  7c 11 dd a4 48 69 73 74  6f 72 79 5f 3a 3d a3 0d  ||...History_:=..|
00006970  29 86 13 dd a4 47 65 6f  67 72 61 70 68 79 5f 3a  |)....Geography_:|
00006980  3d a3 0d 29 90 0d dd a4  41 72 74 5f 3a 3d a3 0d  |=..)....Art_:=..|
00006990  29 9a 0f dd a4 4d 75 73  69 63 5f 3a 3d a3 0d 29  |)....Music_:=..)|
000069a0  a4 0c dd a4 50 45 5f 3a  3d a3 0d 29 ae 0f dd a4  |....PE_:=..)....|
000069b0  4d 61 74 68 73 5f 3a 3d  a3 0d 29 b8 0c dd a4 52  |Maths_:=..)....R|
000069c0  45 5f 3a 3d a3 0d 29 c2  0c dd a4 50 53 5f 3a 3d  |E_:=..)....PS_:=|
000069d0  a3 0d 29 d6 2e dd f2 73  75 62 3a e7 a4 67 57 78  |..)....sub:..gWx|
000069e0  28 22 53 75 62 6a 65 63  74 73 22 29 f2 63 6c 6f  |("Subjects").clo|
000069f0  73 65 57 28 53 75 62 6a  65 63 74 73 5f 25 29 0d  |seW(Subjects_%).|
00006a00  29 e0 05 e1 0d 29 fe 45  dd a4 49 6e 73 65 72 74  |)....).E..Insert|
00006a10  5f 3a ea 85 3a ee 85 ea  3a 56 5f 24 3d a4 61 6c  |_:..:...:V_$=.al|
00006a20  65 72 74 28 f6 24 2c 22  22 2c 22 4f 4b 22 2c 22  |ert(.$,"","OK","|
00006a30  22 2c 22 22 2c 30 29 3a  f2 63 6c 6f 73 65 57 28  |","",0):.closeW(|
00006a40  45 64 64 5f 25 29 3a 3d  a3 0d 2a 08 53 e7 6c 5f  |Edd_%):=..*.S.l_|
00006a50  25 3d 6d 61 78 79 6c 69  6e 65 73 5f 25 20 56 5f  |%=maxylines_% V_|
00006a60  24 3d a4 61 6c 65 72 74  28 22 55 73 65 72 20 62  |$=.alert("User b|
00006a70  61 6e 6b 20 66 75 6c 6c  22 2c 22 22 2c 22 4f 4b  |ank full","","OK|
00006a80  22 2c 22 22 2c 22 22 2c  30 29 3a f2 63 6c 6f 73  |","","",0):.clos|
00006a90  65 57 28 45 64 64 5f 25  29 3a 3d a3 0d 2a 12 68  |eW(Edd_%):=..*.h|
00006aa0  e7 6c 5f 25 3d 31 80 6c  69 6e 65 5f 24 28 31 29  |.l_%=1.line_$(1)|
00006ab0  3d 22 22 8c 56 5f 24 3d  a4 61 6c 65 72 74 28 22  |="".V_$=.alert("|
00006ac0  4e 6f 20 73 74 61 74 65  6d 65 6e 74 73 20 74 6f  |No statements to|
00006ad0  20 69 6e 73 65 72 74 20  62 65 74 77 65 65 6e 2e  | insert between.|
00006ae0  22 2c 22 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 2c  |","","OK","","",|
00006af0  30 29 3a f2 63 6c 6f 73  65 57 28 45 64 64 5f 25  |0):.closeW(Edd_%|
00006b00  29 3a 3d a3 0d 2a 1c 5b  e7 6c 5f 25 3d 30 8c 56  |):=..*.[.l_%=0.V|
00006b10  5f 24 3d a4 61 6c 65 72  74 28 22 4e 6f 20 73 74  |_$=.alert("No st|
00006b20  61 74 65 6d 65 6e 74 73  20 74 6f 20 69 6e 73 65  |atements to inse|
00006b30  72 74 20 62 65 74 77 65  65 6e 2e 22 2c 22 22 2c  |rt between.","",|
00006b40  22 4f 4b 22 2c 22 22 2c  22 22 2c 30 29 3a f2 63  |"OK","","",0):.c|
00006b50  6c 6f 73 65 57 28 45 64  64 5f 25 29 3a 3d a3 0d  |loseW(Edd_%):=..|
00006b60  2a 26 51 e7 6c 5f 25 3d  6d 61 78 75 73 65 72 5f  |*&Q.l_%=maxuser_|
00006b70  25 20 56 5f 24 3d a4 61  6c 65 72 74 28 22 55 73  |% V_$=.alert("Us|
00006b80  65 72 20 62 61 6e 6b 20  66 75 6c 6c 22 2c 22 22  |er bank full",""|
00006b90  2c 22 4f 4b 22 2c 22 22  2c 22 22 2c 30 29 3a f2  |,"OK","","",0):.|
00006ba0  63 6c 6f 73 65 57 28 45  64 64 5f 25 29 3a 3d a3  |closeW(Edd_%):=.|
00006bb0  0d 2a 30 4f 67 6f 74 61  5f 25 3d 30 3a e3 67 6f  |.*0Ogota_%=0:.go|
00006bc0  6f 5f 25 3d 31 b8 6c 5f  25 3a e7 6c 69 6e 65 5f  |o_%=1.l_%:.line_|
00006bd0  24 28 67 6f 6f 5f 25 29  3d 22 69 6e 73 65 72 74  |$(goo_%)="insert|
00006be0  65 64 20 6c 69 6e 65 22  20 67 6f 74 61 5f 25 3d  |ed line" gota_%=|
00006bf0  67 6f 6f 5f 25 3a 67 6f  6f 5f 25 3d 6c 5f 25 0d  |goo_%:goo_%=l_%.|
00006c00  2a 44 62 ed 3a e7 67 6f  74 61 5f 25 3c 3e 30 8c  |*Db.:.gota_%<>0.|
00006c10  56 5f 24 3d a4 61 6c 65  72 74 28 22 4f 6e 65 20  |V_$=.alert("One |
00006c20  69 6e 73 65 72 74 65 64  20 6c 69 6e 65 20 61 6c  |inserted line al|
00006c30  72 65 61 64 79 20 65 78  69 73 74 73 2e 22 2c 22  |ready exists.","|
00006c40  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 2c 30 29 3a  |","OK","","",0):|
00006c50  f2 63 6c 6f 73 65 57 28  45 64 64 5f 25 29 3a 3d  |.closeW(Edd_%):=|
00006c60  a3 0d 2a 58 79 69 6e 73  5f 25 3d 64 75 6e 6b 5f  |..*Xyins_%=dunk_|
00006c70  2b 6c 69 6e 65 5f 25 3a  e7 6c 69 6e 65 5f 24 28  |+line_%:.line_$(|
00006c80  69 6e 73 5f 25 29 3d 22  22 8c 56 5f 24 3d a4 61  |ins_%)="".V_$=.a|
00006c90  6c 65 72 74 28 22 4e 6f  20 73 74 61 74 65 6d 65  |lert("No stateme|
00006ca0  6e 74 73 20 74 6f 20 69  6e 73 65 72 74 20 62 65  |nts to insert be|
00006cb0  74 77 65 65 6e 2e 22 2c  22 22 2c 22 4f 4b 22 2c  |tween.","","OK",|
00006cc0  22 22 2c 22 22 2c 30 29  3a f2 63 6c 6f 73 65 57  |"","",0):.closeW|
00006cd0  28 45 64 64 5f 25 29 3a  3d a3 0d 2a 6c af 66 5f  |(Edd_%):=..*l.f_|
00006ce0  3d ae 22 3c 44 61 74 61  24 44 69 72 3e 2e 69 69  |=."<Data$Dir>.ii|
00006cf0  69 69 69 22 3a d5 23 66  5f 2c 30 3a d9 23 66 5f  |iii":.#f_,0:.#f_|
00006d00  3a ff 28 22 2a 44 45 4c  2e 20 22 2b 22 3c 44 61  |:.("*DEL. "+"<Da|
00006d10  74 61 24 44 69 72 3e 2e  69 69 69 69 69 22 29 3a  |ta$Dir>.iiiii"):|
00006d20  e3 6d 6f 5f 25 3d 6c 5f  25 b8 69 6e 73 5f 25 88  |.mo_%=l_%.ins_%.|
00006d30  2d 31 3a 6c 69 6e 65 5f  24 28 6d 6f 5f 25 2b 31  |-1:line_$(mo_%+1|
00006d40  29 3d 6c 69 6e 65 5f 24  28 6d 6f 5f 25 29 3a ed  |)=line_$(mo_%):.|
00006d50  3a 6c 5f 25 3d 6c 5f 25  2b 31 3a 6c 69 6e 65 5f  |:l_%=l_%+1:line_|
00006d60  24 28 69 6e 73 5f 25 29  3d 22 69 6e 73 65 72 74  |$(ins_%)="insert|
00006d70  65 64 20 6c 69 6e 65 22  3a f2 6f 6f 74 3a f2 75  |ed line":.oot:.u|
00006d80  70 64 61 74 65 41 3a 3d  b9 0d 2a d0 16 dd a4 52  |pdateA:=..*....R|
00006d90  45 69 6e 73 5f 3a 3d a4  49 6e 73 65 72 74 5f 0d  |Eins_:=.Insert_.|
00006da0  2a da 16 dd a4 50 53 69  6e 73 5f 3a 3d a4 49 6e  |*....PSins_:=.In|
00006db0  73 65 72 74 5f 0d 2a e4  0d dd a4 6e 6f 6e 5f 3a  |sert_.*....non_:|
00006dc0  3d a3 0d 2a ee 3d dd f2  67 65 74 50 48 3a 61 5f  |=..*.=..getPH:a_|
00006dd0  24 3d 22 22 3a f5 3a 61  5f 25 3d 9a 23 70 68 5f  |$="":.:a_%=.#ph_|
00006de0  25 3a 61 5f 25 3d 61 5f  25 82 74 65 6e 5f 25 3a  |%:a_%=a_%.ten_%:|
00006df0  e7 61 5f 25 3d 31 30 84  c5 23 70 68 5f 25 e1 0d  |.a_%=10..#ph_%..|
00006e00  2a f8 1c 61 5f 24 3d 61  5f 24 2b bd 28 61 5f 25  |*..a_$=a_$+.(a_%|
00006e10  29 3a fd 61 5f 25 3d 31  30 3a e1 0d 2b 02 3c dd  |):.a_%=10:..+.<.|
00006e20  f2 67 65 74 6c 69 6e 65  5f 3a 61 5f 24 3d 22 22  |.getline_:a_$=""|
00006e30  3a f5 3a 61 5f 25 3d 9a  23 78 5f 3a 61 5f 25 3d  |:.:a_%=.#x_:a_%=|
00006e40  61 5f 25 82 74 65 6e 5f  25 3a e7 61 5f 25 3d 31  |a_%.ten_%:.a_%=1|
00006e50  30 84 c5 23 78 5f e1 0d  2b 0c 1c 61 5f 24 3d 61  |0..#x_..+..a_$=a|
00006e60  5f 24 2b bd 28 61 5f 25  29 3a fd 61 5f 25 3d 31  |_$+.(a_%):.a_%=1|
00006e70  30 3a e1 0d 2b 16 64 dd  f2 73 61 76 65 52 45 50  |0:..+.d..saveREP|
00006e80  53 3a 78 5f 24 3d 24 21  45 64 69 74 6f 72 5f 25  |S:x_$=$!Editor_%|
00006e90  3a e7 78 5f 24 3d 22 22  56 5f 24 3d a4 61 6c 65  |:.x_$=""V_$=.ale|
00006ea0  72 74 28 22 4e 6f 74 68  69 6e 67 20 74 6f 20 73  |rt("Nothing to s|
00006eb0  61 76 65 2e 22 2c 22 22  2c 22 4f 4b 22 2c 22 22  |ave.","","OK",""|
00006ec0  2c 22 22 2c 30 29 3a f2  63 6c 6f 73 65 57 28 45  |,"",0):.closeW(E|
00006ed0  64 64 5f 25 29 3a e1 0d  2b 20 3a ea 85 3a ee 85  |dd_%):..+ :..:..|
00006ee0  ea 3a 56 5f 24 3d a4 61  6c 65 72 74 28 f6 24 2c  |.:V_$=.alert(.$,|
00006ef0  22 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 2c 30 29  |"","OK","","",0)|
00006f00  3a f2 63 6c 6f 73 65 57  28 45 64 64 5f 25 29 3a  |:.closeW(Edd_%):|
00006f10  e1 0d 2b 2a 2a 6c 6c 5f  25 3d 64 75 6e 6b 5f 2b  |..+**ll_%=dunk_+|
00006f20  6c 69 6e 65 5f 25 3a e7  6c 6c 5f 25 3e 6c 5f 25  |line_%:.ll_%>l_%|
00006f30  8c 6c 6c 5f 25 3d 6c 5f  25 2b 31 0d 2b 34 1e e7  |.ll_%=l_%+1.+4..|
00006f40  4d 5f 24 3d 22 52 45 22  80 6c 6c 5f 25 3d 6d 61  |M_$="RE".ll_%=ma|
00006f50  78 6c 69 6e 65 73 5f 25  8c 0d 2b 3e 75 24 21 45  |xlines_%..+>u$!E|
00006f60  64 69 74 6f 72 5f 25 3d  22 22 3a f2 72 49 28 45  |ditor_%="":.rI(E|
00006f70  64 64 5f 25 2c 22 45 64  69 74 6f 72 22 29 3a f2  |dd_%,"Editor"):.|
00006f80  73 43 49 28 21 68 25 2c  30 29 3a 56 5f 24 3d a4  |sCI(!h%,0):V_$=.|
00006f90  61 6c 65 72 74 28 22 53  74 61 74 65 6d 65 6e 74  |alert("Statement|
00006fa0  20 62 61 6e 6b 20 66 75  6c 6c 2e 22 2c 22 22 2c  | bank full.","",|
00006fb0  22 4f 4b 22 2c 22 22 2c  22 22 2c 30 29 3a f2 63  |"OK","","",0):.c|
00006fc0  6c 6f 73 65 57 28 45 64  64 5f 25 29 3a e1 0d 2b  |loseW(Edd_%):..+|
00006fd0  52 20 cd 3a e7 4d 5f 24  3d 22 50 53 22 80 6c 6c  |R .:.M_$="PS".ll|
00006fe0  5f 25 3d 6d 61 78 6c 69  6e 65 73 5f 25 8c 0d 2b  |_%=maxlines_%..+|
00006ff0  5c 75 24 21 45 64 69 74  6f 72 5f 25 3d 22 22 3a  |\u$!Editor_%="":|
00007000  f2 72 49 28 45 64 64 5f  25 2c 22 45 64 69 74 6f  |.rI(Edd_%,"Edito|
00007010  72 22 29 3a f2 73 43 49  28 21 68 25 2c 30 29 3a  |r"):.sCI(!h%,0):|
00007020  56 5f 24 3d a4 61 6c 65  72 74 28 22 53 74 61 74  |V_$=.alert("Stat|
00007030  65 6d 65 6e 74 20 62 61  6e 6b 20 66 75 6c 6c 2e  |ement bank full.|
00007040  22 2c 22 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 2c  |","","OK","","",|
00007050  30 29 3a f2 63 6c 6f 73  65 57 28 45 64 64 5f 25  |0):.closeW(Edd_%|
00007060  29 3a e1 0d 2b 7a 2a cd  3a e7 c2 54 69 74 6c 65  |):..+z*.:..Title|
00007070  41 5f 24 2c 34 29 3d 22  55 73 65 72 22 80 6c 6c  |A_$,4)="User".ll|
00007080  5f 25 3d 6d 61 78 75 73  65 72 5f 25 8c 0d 2b 84  |_%=maxuser_%..+.|
00007090  79 24 21 45 64 69 74 6f  72 5f 25 3d 22 22 3a f2  |y$!Editor_%="":.|
000070a0  72 49 28 45 64 64 5f 25  2c 22 45 64 69 74 6f 72  |rI(Edd_%,"Editor|
000070b0  22 29 3a f2 73 43 49 28  21 68 25 2c 30 29 3a 56  |"):.sCI(!h%,0):V|
000070c0  5f 24 3d a4 61 6c 65 72  74 28 22 55 73 65 72 20  |_$=.alert("User |
000070d0  53 74 61 74 65 6d 65 6e  74 20 62 61 6e 6b 20 66  |Statement bank f|
000070e0  75 6c 6c 22 2c 22 22 2c  22 4f 4b 22 2c 22 22 2c  |ull","","OK","",|
000070f0  22 22 2c 30 29 3a f2 63  6c 6f 73 65 57 28 45 64  |"",0):.closeW(Ed|
00007100  64 5f 25 29 3a e1 0d 2b  98 2a cd 3a e3 74 5f 25  |d_%):..+.*.:.t_%|
00007110  3d 31 b8 6c 5f 25 3a e7  74 74 5f 24 3d 6c 69 6e  |=1.l_%:.tt_$=lin|
00007120  65 5f 24 28 74 5f 25 29  6c 6c 5f 25 3d 74 5f 25  |e_$(t_%)ll_%=t_%|
00007130  0d 2b a2 2a ed 3a 6c 69  6e 65 5f 24 28 6c 6c 5f  |.+.*.:line_$(ll_|
00007140  25 29 3d 78 5f 24 3a e7  6c 6c 5f 25 3e 6c 5f 25  |%)=x_$:.ll_%>l_%|
00007150  8c 6c 5f 25 3d 6c 5f 25  2b 31 0d 2b ac 3f 78 5f  |.l_%=l_%+1.+.?x_|
00007160  3d 8e 4f 6f 70 65 6e 24  3a d9 23 78 5f 3a e7 78  |=.Oopen$:.#x_:.x|
00007170  5f 3d 30 3a 56 5f 24 3d  a4 61 6c 65 72 74 28 71  |_=0:V_$=.alert(q|
00007180  75 65 65 72 5f 24 2c 22  22 2c 22 4f 4b 22 2c 22  |ueer_$,"","OK","|
00007190  22 2c 22 22 2c 30 29 3a  e1 0d 2b b6 c0 78 5f 3d  |","",0):..+..x_=|
000071a0  ae 4f 6f 70 65 6e 24 3a  e3 72 5f 25 3d 31 b8 6c  |.Oopen$:.r_%=1.l|
000071b0  5f 25 3a e3 72 72 5f 25  3d 31 b8 a9 28 6c 69 6e  |_%:.rr_%=1..(lin|
000071c0  65 5f 24 28 72 5f 25 29  29 3a 61 5f 24 3d c1 6c  |e_$(r_%)):a_$=.l|
000071d0  69 6e 65 5f 24 28 72 5f  25 29 2c 72 72 5f 25 2c  |ine_$(r_%),rr_%,|
000071e0  31 29 3a 61 5f 25 3d 97  28 61 5f 24 29 82 74 65  |1):a_%=.(a_$).te|
000071f0  6e 5f 25 3a d5 23 78 5f  2c 61 5f 25 3a ed 3a d5  |n_%:.#x_,a_%:.:.|
00007200  23 78 5f 2c 28 31 30 82  74 65 6e 5f 25 29 3a ed  |#x_,(10.ten_%):.|
00007210  3a d9 23 78 5f 3a e7 6f  70 65 6e 5f 25 24 21 45  |:.#x_:.open_%$!E|
00007220  64 69 74 6f 72 5f 25 3d  22 22 3a f2 72 49 28 45  |ditor_%="":.rI(E|
00007230  64 64 5f 25 2c 22 45 64  69 74 6f 72 22 29 3a f2  |dd_%,"Editor"):.|
00007240  73 43 49 28 21 68 25 2c  30 29 8b f2 63 6c 6f 73  |sCI(!h%,0)..clos|
00007250  65 57 28 45 64 64 5f 25  29 0d 2b c0 14 f2 75 70  |eW(Edd_%).+...up|
00007260  64 61 74 65 41 3a f2 6d  65 73 73 3a e1 0d 2b d4  |dateA:.mess:..+.|
00007270  69 dd f2 64 65 6c 52 45  50 53 3a 64 65 6c 5f 24  |i..delREPS:del_$|
00007280  3d 24 21 45 64 69 74 6f  72 5f 25 3a e7 64 65 6c  |=$!Editor_%:.del|
00007290  5f 24 3d 22 22 56 5f 24  3d a4 61 6c 65 72 74 28  |_$=""V_$=.alert(|
000072a0  22 4e 6f 74 68 69 6e 67  20 74 6f 20 64 65 6c 65  |"Nothing to dele|
000072b0  74 65 2e 22 2c 22 22 2c  22 4f 4b 22 2c 22 22 2c  |te.","","OK","",|
000072c0  22 22 2c 30 29 3a f2 63  6c 6f 73 65 57 28 45 64  |"",0):.closeW(Ed|
000072d0  64 5f 25 29 3a e1 0d 2b  de 3a ea 85 3a ee 85 ea  |d_%):..+.:..:...|
000072e0  3a 56 5f 24 3d a4 61 6c  65 72 74 28 f6 24 2c 22  |:V_$=.alert(.$,"|
000072f0  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 2c 30 29 3a  |","OK","","",0):|
00007300  f2 63 6c 6f 73 65 57 28  45 64 64 5f 25 29 3a e1  |.closeW(Edd_%):.|
00007310  0d 2b e8 68 66 5f 3d ae  22 3c 44 61 74 61 24 44  |.+.hf_=."<Data$D|
00007320  69 72 3e 2e 69 69 69 69  69 22 3a d5 23 66 5f 2c  |ir>.iiiii":.#f_,|
00007330  30 3a d9 23 66 5f 3a ff  28 22 2a 44 45 4c 2e 20  |0:.#f_:.("*DEL. |
00007340  22 2b 22 3c 44 61 74 61  24 44 69 72 3e 2e 69 69  |"+"<Data$Dir>.ii|
00007350  69 69 69 22 29 3a 64 65  6c 5f 25 3d 64 75 6e 6b  |iii"):del_%=dunk|
00007360  5f 2b 6c 69 6e 65 5f 25  3a e7 64 65 6c 5f 25 3e  |_+line_%:.del_%>|
00007370  6c 5f 25 8c ef 37 3a e1  0d 2b fc 29 e3 74 5f 25  |l_%..7:..+.).t_%|
00007380  3d 31 b8 6c 5f 25 3a e7  74 74 5f 24 3d 6c 69 6e  |=1.l_%:.tt_$=lin|
00007390  65 5f 24 28 74 5f 25 29  64 65 6c 5f 25 3d 74 5f  |e_$(t_%)del_%=t_|
000073a0  25 0d 2c 06 11 ed 3a e7  64 65 6c 5f 25 3d 6c 5f  |%.,...:.del_%=l_|
000073b0  25 8c 0d 2c 10 63 6c 69  6e 65 5f 24 28 64 65 6c  |%..,.cline_$(del|
000073c0  5f 25 29 3d 22 22 3a 6c  5f 25 3d 6c 5f 25 2d 31  |_%)="":l_%=l_%-1|
000073d0  3a f2 75 70 64 61 74 65  41 3a 78 5f 3d 8e 4f 6f  |:.updateA:x_=.Oo|
000073e0  70 65 6e 24 3a d9 23 78  5f 3a e7 78 5f 3d 30 3a  |pen$:.#x_:.x_=0:|
000073f0  56 5f 24 3d a4 61 6c 65  72 74 28 71 75 65 65 72  |V_$=.alert(queer|
00007400  5f 24 2c 22 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |_$,"","OK","",""|
00007410  2c 30 29 3a e1 0d 2c 1a  16 78 5f 3d ae 4f 6f 70  |,0):..,..x_=.Oop|
00007420  65 6e 24 3a e7 6c 5f 25  3d 30 8c 0d 2c 24 0e d5  |en$:.l_%=0..,$..|
00007430  23 78 5f 2c 74 65 6e 5f  25 0d 2c 2e 6e cc 3a e3  |#x_,ten_%.,.n.:.|
00007440  72 5f 25 3d 31 b8 6c 5f  25 3a e3 72 72 5f 25 3d  |r_%=1.l_%:.rr_%=|
00007450  31 b8 a9 28 6c 69 6e 65  5f 24 28 72 5f 25 29 29  |1..(line_$(r_%))|
00007460  3a 61 5f 24 3d c1 6c 69  6e 65 5f 24 28 72 5f 25  |:a_$=.line_$(r_%|
00007470  29 2c 72 72 5f 25 2c 31  29 3a 61 5f 25 3d 97 28  |),rr_%,1):a_%=.(|
00007480  61 5f 24 29 82 74 65 6e  5f 25 3a d5 23 78 5f 2c  |a_$).ten_%:.#x_,|
00007490  61 5f 25 3a ed 3a d5 23  78 5f 2c 28 31 30 82 74  |a_%:.:.#x_,(10.t|
000074a0  65 6e 5f 25 29 3a ed 0d  2c 38 5c cd 3a d9 23 78  |en_%):..,8\.:.#x|
000074b0  5f 3a f2 6d 65 73 73 3a  e7 6f 70 65 6e 5f 25 24  |_:.mess:.open_%$|
000074c0  21 45 64 69 74 6f 72 5f  25 3d 22 22 3a f2 72 49  |!Editor_%="":.rI|
000074d0  28 45 64 64 5f 25 2c 22  45 64 69 74 6f 72 22 29  |(Edd_%,"Editor")|
000074e0  3a f2 73 43 49 28 21 28  45 64 64 5f 25 2b 31 32  |:.sCI(!(Edd_%+12|
000074f0  29 2c 30 29 8b f2 63 6c  6f 73 65 57 28 45 64 64  |),0)..closeW(Edd|
00007500  5f 25 29 0d 2c 42 05 e1  0d 2c 4c 93 cd 3a e3 61  |_%).,B...,L..:.a|
00007510  61 5f 25 3d 64 65 6c 5f  25 b8 6c 5f 25 2d 31 3a  |a_%=del_%.l_%-1:|
00007520  6c 69 6e 65 5f 24 28 61  61 5f 25 29 3d 6c 69 6e  |line_$(aa_%)=lin|
00007530  65 5f 24 28 61 61 5f 25  2b 31 29 3a ed 3a 6c 69  |e_$(aa_%+1):.:li|
00007540  6e 65 5f 24 28 6c 5f 25  29 3d 22 22 3a 6c 5f 25  |ne_$(l_%)="":l_%|
00007550  3d 6c 5f 25 2d 31 3a f2  75 70 64 61 74 65 41 3a  |=l_%-1:.updateA:|
00007560  78 5f 3d 8e 4f 6f 70 65  6e 24 3a d9 23 78 5f 3a  |x_=.Oopen$:.#x_:|
00007570  e7 78 5f 3d 30 3a 56 5f  24 3d a4 61 6c 65 72 74  |.x_=0:V_$=.alert|
00007580  28 71 75 65 65 72 5f 24  2c 22 22 2c 22 4f 4b 22  |(queer_$,"","OK"|
00007590  2c 22 22 2c 22 22 2c 30  29 3a e1 0d 2c 56 ce 78  |,"","",0):..,V.x|
000075a0  5f 3d ae 4f 6f 70 65 6e  24 3a e3 72 5f 25 3d 31  |_=.Oopen$:.r_%=1|
000075b0  b8 6c 5f 25 3a e3 72 72  5f 25 3d 31 b8 a9 28 6c  |.l_%:.rr_%=1..(l|
000075c0  69 6e 65 5f 24 28 72 5f  25 29 29 3a 61 5f 24 3d  |ine_$(r_%)):a_$=|
000075d0  c1 6c 69 6e 65 5f 24 28  72 5f 25 29 2c 72 72 5f  |.line_$(r_%),rr_|
000075e0  25 2c 31 29 3a 61 5f 25  3d 97 28 61 5f 24 29 82  |%,1):a_%=.(a_$).|
000075f0  74 65 6e 5f 25 3a d5 23  78 5f 2c 61 5f 25 3a ed  |ten_%:.#x_,a_%:.|
00007600  3a d5 23 78 5f 2c 28 31  30 82 74 65 6e 5f 25 29  |:.#x_,(10.ten_%)|
00007610  3a ed 3a d9 23 78 5f 3a  f2 6d 65 73 73 3a e7 6f  |:.:.#x_:.mess:.o|
00007620  70 65 6e 5f 25 24 21 45  64 69 74 6f 72 5f 25 3d  |pen_%$!Editor_%=|
00007630  22 22 3a f2 72 49 28 45  64 64 5f 25 2c 22 45 64  |"":.rI(Edd_%,"Ed|
00007640  69 74 6f 72 22 29 3a f2  73 43 49 28 21 28 45 64  |itor"):.sCI(!(Ed|
00007650  64 5f 25 2b 31 32 29 2c  30 29 8b f2 63 6c 6f 73  |d_%+12),0)..clos|
00007660  65 57 28 45 64 64 5f 25  29 0d 2c 60 05 e1 0d 2c  |eW(Edd_%).,`...,|
00007670  74 48 dd a4 50 68 44 65  6c 65 74 65 5f 3a ea 85  |tH..PhDelete_:..|
00007680  3a ee 85 ea 3a 56 5f 24  3d a4 61 6c 65 72 74 28  |:...:V_$=.alert(|
00007690  f6 24 2c 22 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |.$,"","OK","",""|
000076a0  2c 30 29 3a f2 63 6c 6f  73 65 57 28 50 65 64 64  |,0):.closeW(Pedd|
000076b0  5f 25 29 3a 3d a3 0d 2c  7e 6c 64 65 6c 5f 24 3d  |_%):=..,~ldel_$=|
000076c0  24 21 50 65 64 69 74 6f  72 5f 25 3a e7 64 65 6c  |$!Peditor_%:.del|
000076d0  5f 24 3d 22 22 80 67 65  74 5f 24 3d 22 22 20 56  |_$="".get_$="" V|
000076e0  5f 24 3d a4 61 6c 65 72  74 28 22 4e 6f 74 68 69  |_$=.alert("Nothi|
000076f0  6e 67 20 74 6f 20 64 65  6c 65 74 65 2e 22 2c 22  |ng to delete.","|
00007700  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 2c 30 29 3a  |","OK","","",0):|
00007710  f2 63 6c 6f 73 65 57 28  50 65 64 64 5f 25 29 3a  |.closeW(Pedd_%):|
00007720  3d a3 0d 2c 88 38 64 65  6c 5f 25 3d 64 75 6e 6b  |=..,.8del_%=dunk|
00007730  5f 2b 70 6c 69 6e 65 5f  25 3a e7 64 65 6c 5f 25  |_+pline_%:.del_%|
00007740  3e 70 5f 25 8c ef 37 3a  f2 63 6c 6f 73 65 57 28  |>p_%..7:.closeW(|
00007750  50 65 64 64 5f 25 29 3a  3d a3 0d 2c 92 6e 66 5f  |Pedd_%):=..,.nf_|
00007760  3d ae 22 3c 44 61 74 61  24 44 69 72 3e 2e 69 69  |=."<Data$Dir>.ii|
00007770  69 69 69 22 3a d5 23 66  5f 2c 30 3a d9 23 66 5f  |iii":.#f_,0:.#f_|
00007780  3a ff 28 22 2a 44 45 4c  2e 20 22 2b 22 3c 44 61  |:.("*DEL. "+"<Da|
00007790  74 61 24 44 69 72 3e 2e  69 69 69 69 69 22 29 3a  |ta$Dir>.iiiii"):|
000077a0  e3 74 5f 25 3d 31 b8 70  5f 25 3a e7 64 65 6c 5f  |.t_%=1.p_%:.del_|
000077b0  24 3d 70 68 72 61 73 65  5f 24 28 74 5f 25 29 64  |$=phrase_$(t_%)d|
000077c0  65 6c 5f 25 3d 74 5f 25  0d 2c a6 11 ed 3a e7 64  |el_%=t_%.,...:.d|
000077d0  65 6c 5f 25 3d 70 5f 25  8c 0d 2c ba 41 70 68 72  |el_%=p_%..,.Aphr|
000077e0  61 73 65 5f 24 28 64 65  6c 5f 25 29 3d 22 22 3a  |ase_$(del_%)="":|
000077f0  70 5f 25 3d 70 5f 25 2d  31 3a f2 55 70 64 61 74  |p_%=p_%-1:.Updat|
00007800  65 50 68 72 61 73 65 73  3a 78 5f 3d ae 6f 70 65  |ePhrases:x_=.ope|
00007810  6e 24 3a e7 70 5f 25 3d  30 8c 0d 2c d8 0e d5 23  |n$:.p_%=0..,...#|
00007820  78 5f 2c 74 65 6e 5f 25  0d 2c e2 72 cc 3a e3 6a  |x_,ten_%.,.r.:.j|
00007830  5f 25 3d 31 b8 70 5f 25  3a e3 72 72 5f 25 3d 31  |_%=1.p_%:.rr_%=1|
00007840  b8 a9 28 70 68 72 61 73  65 5f 24 28 6a 5f 25 29  |..(phrase_$(j_%)|
00007850  29 3a 61 5f 24 3d c1 70  68 72 61 73 65 5f 24 28  |):a_$=.phrase_$(|
00007860  6a 5f 25 29 2c 72 72 5f  25 2c 31 29 3a 61 5f 25  |j_%),rr_%,1):a_%|
00007870  3d 97 28 61 5f 24 29 82  74 65 6e 5f 25 3a d5 23  |=.(a_$).ten_%:.#|
00007880  78 5f 2c 61 5f 25 3a ed  3a d5 23 78 5f 2c 28 31  |x_,a_%:.:.#x_,(1|
00007890  30 82 74 65 6e 5f 25 29  3a ed 0d 2d 00 5b cd 3a  |0.ten_%):..-.[.:|
000078a0  d9 23 78 5f 3a e7 6f 70  65 6e 5f 25 24 21 50 65  |.#x_:.open_%$!Pe|
000078b0  64 69 74 6f 72 5f 25 3d  22 22 3a f2 72 49 28 50  |ditor_%="":.rI(P|
000078c0  65 64 64 5f 25 2c 22 50  65 64 69 74 6f 72 22 29  |edd_%,"Peditor")|
000078d0  3a f2 73 43 49 28 21 28  50 65 64 64 5f 25 2b 31  |:.sCI(!(Pedd_%+1|
000078e0  32 29 2c 30 29 8b f2 63  6c 6f 73 65 57 28 50 65  |2),0)..closeW(Pe|
000078f0  64 64 5f 25 29 0d 2d 1e  44 e7 6d 65 73 73 61 67  |dd_%).-.D.messag|
00007900  65 5f 25 56 5f 24 3d a4  61 6c 65 72 74 28 22 50  |e_%V_$=.alert("P|
00007910  68 72 61 73 65 20 64 65  6c 65 74 65 64 20 61 6e  |hrase deleted an|
00007920  64 20 73 61 76 65 64 22  2c 22 22 2c 22 4f 4b 22  |d saved","","OK"|
00007930  2c 22 22 2c 22 22 2c 30  29 0d 2d 28 06 3d b9 0d  |,"","",0).-(.=..|
00007940  2d 32 bd cd 3a e3 61 61  5f 25 3d 64 65 6c 5f 25  |-2..:.aa_%=del_%|
00007950  b8 70 5f 25 2d 31 3a 70  68 72 61 73 65 5f 24 28  |.p_%-1:phrase_$(|
00007960  61 61 5f 25 29 3d 70 68  72 61 73 65 5f 24 28 61  |aa_%)=phrase_$(a|
00007970  61 5f 25 2b 31 29 3a ed  3a 70 68 72 61 73 65 5f  |a_%+1):.:phrase_|
00007980  24 28 70 5f 25 29 3d 22  22 3a 70 5f 25 3d 70 5f  |$(p_%)="":p_%=p_|
00007990  25 2d 31 3a f2 55 70 64  61 74 65 50 68 72 61 73  |%-1:.UpdatePhras|
000079a0  65 73 3a 78 5f 3d ae 6f  70 65 6e 24 3a e3 6a 5f  |es:x_=.open$:.j_|
000079b0  25 3d 31 b8 70 5f 25 3a  e3 72 72 5f 25 3d 31 b8  |%=1.p_%:.rr_%=1.|
000079c0  a9 28 70 68 72 61 73 65  5f 24 28 6a 5f 25 29 29  |.(phrase_$(j_%))|
000079d0  3a 61 5f 24 3d c1 70 68  72 61 73 65 5f 24 28 6a  |:a_$=.phrase_$(j|
000079e0  5f 25 29 2c 72 72 5f 25  2c 31 29 3a 61 5f 25 3d  |_%),rr_%,1):a_%=|
000079f0  97 28 61 5f 24 29 82 74  65 6e 5f 25 0d 2d 3c 76  |.(a_$).ten_%.-<v|
00007a00  d5 23 78 5f 2c 61 5f 25  3a ed 3a d5 23 78 5f 2c  |.#x_,a_%:.:.#x_,|
00007a10  28 31 30 82 74 65 6e 5f  25 29 3a ed 3a d9 23 78  |(10.ten_%):.:.#x|
00007a20  5f 3a e7 6f 70 65 6e 5f  25 24 21 50 65 64 69 74  |_:.open_%$!Pedit|
00007a30  6f 72 5f 25 3d 22 22 3a  f2 72 49 28 50 65 64 64  |or_%="":.rI(Pedd|
00007a40  5f 25 2c 22 50 65 64 69  74 6f 72 22 29 3a f2 73  |_%,"Peditor"):.s|
00007a50  43 49 28 21 28 50 65 64  64 5f 25 2b 31 32 29 2c  |CI(!(Pedd_%+12),|
00007a60  30 29 8b f2 63 6c 6f 73  65 57 28 50 65 64 64 5f  |0)..closeW(Pedd_|
00007a70  25 29 0d 2d 46 44 e7 6d  65 73 73 61 67 65 5f 25  |%).-FD.message_%|
00007a80  56 5f 24 3d a4 61 6c 65  72 74 28 22 50 68 72 61  |V_$=.alert("Phra|
00007a90  73 65 20 64 65 6c 65 74  65 64 20 61 6e 64 20 73  |se deleted and s|
00007aa0  61 76 65 64 22 2c 22 22  2c 22 4f 4b 22 2c 22 22  |aved","","OK",""|
00007ab0  2c 22 22 2c 30 29 0d 2d  50 06 3d b9 0d 2d 64 48  |,"",0).-P.=..-dH|
00007ac0  dd a4 57 6f 44 65 6c 65  74 65 5f 3a ea 85 3a ee  |..WoDelete_:..:.|
00007ad0  85 ea 3a 56 5f 24 3d a4  61 6c 65 72 74 28 f6 24  |..:V_$=.alert(.$|
00007ae0  2c 22 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 2c 30  |,"","OK","","",0|
00007af0  29 3a f2 63 6c 6f 73 65  57 28 50 65 64 64 5f 25  |):.closeW(Pedd_%|
00007b00  29 3a 3d a3 0d 2d 6e 62  64 65 6c 5f 24 3d 24 21  |):=..-nbdel_$=$!|
00007b10  57 65 64 69 74 6f 72 5f  25 3a e7 64 65 6c 5f 24  |Weditor_%:.del_$|
00007b20  3d 22 22 56 5f 24 3d a4  61 6c 65 72 74 28 22 4e  |=""V_$=.alert("N|
00007b30  6f 74 68 69 6e 67 20 74  6f 20 64 65 6c 65 74 65  |othing to delete|
00007b40  2e 22 2c 22 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |.","","OK","",""|
00007b50  2c 30 29 3a f2 63 6c 6f  73 65 57 28 57 65 64 64  |,0):.closeW(Wedd|
00007b60  5f 25 29 3a 3d a3 0d 2d  78 6a 66 5f 3d ae 22 3c  |_%):=..-xjf_=."<|
00007b70  44 61 74 61 24 44 69 72  3e 2e 69 69 69 69 69 22  |Data$Dir>.iiiii"|
00007b80  3a d5 23 66 5f 2c 30 3a  d9 23 66 5f 3a ff 28 22  |:.#f_,0:.#f_:.("|
00007b90  2a 44 45 4c 2e 20 22 2b  22 3c 44 61 74 61 24 44  |*DEL. "+"<Data$D|
00007ba0  69 72 3e 2e 69 69 69 69  69 22 29 3a 64 65 6c 5f  |ir>.iiiii"):del_|
00007bb0  25 3d 64 75 6e 6b 5f 2b  77 6c 69 6e 65 5f 25 3a  |%=dunk_+wline_%:|
00007bc0  e7 64 65 6c 5f 25 3e 70  5f 25 8c ef 37 3a 3d a3  |.del_%>p_%..7:=.|
00007bd0  0d 2d 8c 2a e3 74 5f 25  3d 31 b8 70 5f 25 3a e7  |.-.*.t_%=1.p_%:.|
00007be0  64 65 6c 5f 24 3d 77 6f  72 64 5f 24 28 74 5f 25  |del_$=word_$(t_%|
00007bf0  29 64 65 6c 5f 25 3d 74  5f 25 0d 2d 96 11 ed 3a  |)del_%=t_%.-...:|
00007c00  e7 64 65 6c 5f 25 3d 70  5f 25 8c 0d 2d aa 3d 77  |.del_%=p_%..-.=w|
00007c10  6f 72 64 5f 24 28 64 65  6c 5f 25 29 3d 22 22 3a  |ord_$(del_%)="":|
00007c20  70 5f 25 3d 70 5f 25 2d  31 3a f2 55 70 64 61 74  |p_%=p_%-1:.Updat|
00007c30  65 57 6f 72 64 73 3a 78  5f 3d ae 6f 70 65 6e 24  |eWords:x_=.open$|
00007c40  3a e7 70 5f 25 3d 30 8c  0d 2d c8 0e d5 23 78 5f  |:.p_%=0..-...#x_|
00007c50  2c 74 65 6e 5f 25 0d 2d  d2 6e cc 3a e3 6a 5f 25  |,ten_%.-.n.:.j_%|
00007c60  3d 31 b8 70 5f 25 3a e3  72 72 5f 25 3d 31 b8 a9  |=1.p_%:.rr_%=1..|
00007c70  28 77 6f 72 64 5f 24 28  6a 5f 25 29 29 3a 61 5f  |(word_$(j_%)):a_|
00007c80  24 3d c1 77 6f 72 64 5f  24 28 6a 5f 25 29 2c 72  |$=.word_$(j_%),r|
00007c90  72 5f 25 2c 31 29 3a 61  5f 25 3d 97 28 61 5f 24  |r_%,1):a_%=.(a_$|
00007ca0  29 82 74 65 6e 5f 25 3a  d5 23 78 5f 2c 61 5f 25  |).ten_%:.#x_,a_%|
00007cb0  3a ed 3a d5 23 78 5f 2c  28 31 30 82 74 65 6e 5f  |:.:.#x_,(10.ten_|
00007cc0  25 29 3a ed 0d 2d fa 5b  cd 3a d9 23 78 5f 3a e7  |%):..-.[.:.#x_:.|
00007cd0  6f 70 65 6e 5f 25 24 21  57 65 64 69 74 6f 72 5f  |open_%$!Weditor_|
00007ce0  25 3d 22 22 3a f2 72 49  28 57 65 64 64 5f 25 2c  |%="":.rI(Wedd_%,|
00007cf0  22 57 65 64 69 74 6f 72  22 29 3a f2 73 43 49 28  |"Weditor"):.sCI(|
00007d00  21 28 57 65 64 64 5f 25  2b 31 32 29 2c 30 29 8b  |!(Wedd_%+12),0).|
00007d10  f2 63 6c 6f 73 65 57 28  57 65 64 64 5f 25 29 0d  |.closeW(Wedd_%).|
00007d20  2e 18 42 e7 6d 65 73 73  61 67 65 5f 25 56 5f 24  |..B.message_%V_$|
00007d30  3d a4 61 6c 65 72 74 28  22 57 6f 72 64 20 64 65  |=.alert("Word de|
00007d40  6c 65 74 65 64 20 61 6e  64 20 73 61 76 65 64 22  |leted and saved"|
00007d50  2c 22 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 2c 30  |,"","OK","","",0|
00007d60  29 0d 2e 22 06 3d b9 0d  2e 2c d3 cd 3a e3 61 61  |)..".=...,..:.aa|
00007d70  5f 25 3d 64 65 6c 5f 25  b8 70 5f 25 2d 31 3a 77  |_%=del_%.p_%-1:w|
00007d80  6f 72 64 5f 24 28 61 61  5f 25 29 3d 77 6f 72 64  |ord_$(aa_%)=word|
00007d90  5f 24 28 61 61 5f 25 2b  31 29 3a ed 3a 77 6f 72  |_$(aa_%+1):.:wor|
00007da0  64 5f 24 28 70 5f 25 29  3d 22 22 3a 70 5f 25 3d  |d_$(p_%)="":p_%=|
00007db0  70 5f 25 2d 31 3a f2 55  70 64 61 74 65 57 6f 72  |p_%-1:.UpdateWor|
00007dc0  64 73 3a 78 5f 3d ae 6f  70 65 6e 24 3a e3 6a 5f  |ds:x_=.open$:.j_|
00007dd0  25 3d 31 b8 70 5f 25 3a  e3 72 72 5f 25 3d 31 b8  |%=1.p_%:.rr_%=1.|
00007de0  a9 28 77 6f 72 64 5f 24  28 6a 5f 25 29 29 3a 61  |.(word_$(j_%)):a|
00007df0  5f 24 3d c1 77 6f 72 64  5f 24 28 6a 5f 25 29 2c  |_$=.word_$(j_%),|
00007e00  72 72 5f 25 2c 31 29 3a  61 5f 25 3d 97 28 61 5f  |rr_%,1):a_%=.(a_|
00007e10  24 29 82 74 65 6e 5f 25  3a d5 23 78 5f 2c 61 5f  |$).ten_%:.#x_,a_|
00007e20  25 3a ed 3a d5 23 78 5f  2c 28 31 30 82 74 65 6e  |%:.:.#x_,(10.ten|
00007e30  5f 25 29 3a ed 3a d9 23  78 5f 0d 2e 36 54 e7 6f  |_%):.:.#x_..6T.o|
00007e40  70 65 6e 5f 25 24 21 57  65 64 69 74 6f 72 5f 25  |pen_%$!Weditor_%|
00007e50  3d 22 22 3a f2 72 49 28  57 65 64 64 5f 25 2c 22  |="":.rI(Wedd_%,"|
00007e60  57 65 64 69 74 6f 72 22  29 3a f2 73 43 49 28 21  |Weditor"):.sCI(!|
00007e70  28 57 65 64 64 5f 25 2b  31 32 29 2c 30 29 8b f2  |(Wedd_%+12),0)..|
00007e80  63 6c 6f 73 65 57 28 57  65 64 64 5f 25 29 0d 2e  |closeW(Wedd_%)..|
00007e90  40 42 e7 6d 65 73 73 61  67 65 5f 25 56 5f 24 3d  |@B.message_%V_$=|
00007ea0  a4 61 6c 65 72 74 28 22  57 6f 72 64 20 64 65 6c  |.alert("Word del|
00007eb0  65 74 65 64 20 61 6e 64  20 73 61 76 65 64 22 2c  |eted and saved",|
00007ec0  22 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 2c 30 29  |"","OK","","",0)|
00007ed0  0d 2e 4a 06 3d b9 0d 2e  54 4a dd a4 53 61 76 65  |..J.=...TJ..Save|
00007ee0  50 68 72 61 73 65 5f 3a  ea 85 3a ee 85 ea 3a 56  |Phrase_:..:...:V|
00007ef0  5f 24 3d a4 61 6c 65 72  74 28 f6 24 2c 22 22 2c  |_$=.alert(.$,"",|
00007f00  22 4f 4b 22 2c 22 22 2c  22 22 2c 30 29 3a f2 63  |"OK","","",0):.c|
00007f10  6c 6f 73 65 57 28 50 65  64 64 5f 25 29 3a 3d a3  |loseW(Pedd_%):=.|
00007f20  0d 2e 5e 5d 78 5f 24 3d  24 21 50 65 64 69 74 6f  |..^]x_$=$!Pedito|
00007f30  72 5f 25 3a e7 78 5f 24  3d 22 22 8c 56 5f 24 3d  |r_%:.x_$="".V_$=|
00007f40  a4 61 6c 65 72 74 28 22  4e 6f 74 68 69 6e 67 20  |.alert("Nothing |
00007f50  74 6f 20 73 61 76 65 2e  22 2c 22 22 2c 22 4f 4b  |to save.","","OK|
00007f60  22 2c 22 22 2c 22 22 2c  30 29 3a f2 63 6c 6f 73  |","","",0):.clos|
00007f70  65 57 28 50 65 64 64 5f  25 29 3a 3d a3 0d 2e 68  |eW(Pedd_%):=...h|
00007f80  2a 70 72 5f 25 3d 64 75  6e 6b 5f 2b 70 6c 69 6e  |*pr_%=dunk_+plin|
00007f90  65 5f 25 3a e7 70 72 5f  25 3e 70 5f 25 70 72 5f  |e_%:.pr_%>p_%pr_|
00007fa0  25 3d 70 5f 25 2b 31 0d  2e 72 17 e7 70 72 5f 25  |%=p_%+1..r..pr_%|
00007fb0  3d 6d 61 78 70 68 72 61  73 65 73 5f 25 8c 0d 2e  |=maxphrases_%...|
00007fc0  7c 77 24 21 50 65 64 69  74 6f 72 5f 25 3d 22 22  ||w$!Peditor_%=""|
00007fd0  3a f2 72 49 28 50 65 64  64 5f 25 2c 22 50 65 64  |:.rI(Pedd_%,"Ped|
00007fe0  69 74 6f 72 22 29 3a 56  5f 24 3d a4 61 6c 65 72  |itor"):V_$=.aler|
00007ff0  74 28 22 50 68 72 61 73  65 20 62 61 6e 6b 20 66  |t("Phrase bank f|
00008000  75 6c 6c 22 2c 22 22 2c  22 4f 4b 22 2c 22 22 2c  |ull","","OK","",|
00008010  22 22 2c 30 29 3a e7 a4  67 57 78 28 22 50 65 64  |"",0):..gWx("Ped|
00008020  69 74 6f 72 22 29 f2 63  6c 6f 73 65 57 28 50 65  |itor").closeW(Pe|
00008030  64 64 5f 25 29 0d 2e 86  06 3d a3 0d 2e 90 39 cd  |dd_%)....=....9.|
00008040  3a 73 61 76 65 5f 24 3d  67 65 74 5f 24 3a e3 74  |:save_$=get_$:.t|
00008050  5f 25 3d 31 b8 70 5f 25  3a e7 70 70 5f 24 3d 70  |_%=1.p_%:.pp_$=p|
00008060  68 72 61 73 65 5f 24 28  74 5f 25 29 70 72 5f 25  |hrase_$(t_%)pr_%|
00008070  3d 74 5f 25 0d 2e 9a 2c  ed 3a 70 68 72 61 73 65  |=t_%...,.:phrase|
00008080  5f 24 28 70 72 5f 25 29  3d 78 5f 24 3a e7 70 72  |_$(pr_%)=x_$:.pr|
00008090  5f 25 3e 70 5f 25 8c 70  5f 25 3d 70 5f 25 2b 31  |_%>p_%.p_%=p_%+1|
000080a0  0d 2e a4 d0 78 5f 3d ae  6f 70 65 6e 24 3a e3 6a  |....x_=.open$:.j|
000080b0  5f 25 3d 31 b8 70 5f 25  3a e3 72 72 5f 25 3d 31  |_%=1.p_%:.rr_%=1|
000080c0  b8 a9 28 70 68 72 61 73  65 5f 24 28 6a 5f 25 29  |..(phrase_$(j_%)|
000080d0  29 3a 61 5f 24 3d c1 70  68 72 61 73 65 5f 24 28  |):a_$=.phrase_$(|
000080e0  6a 5f 25 29 2c 72 72 5f  25 2c 31 29 3a 61 5f 25  |j_%),rr_%,1):a_%|
000080f0  3d 97 28 61 5f 24 29 82  74 65 6e 5f 25 3a d5 23  |=.(a_$).ten_%:.#|
00008100  78 5f 2c 61 5f 25 3a ed  3a d5 23 78 5f 2c 28 31  |x_,a_%:.:.#x_,(1|
00008110  30 82 74 65 6e 5f 25 29  3a ed 3a d9 23 78 5f 3a  |0.ten_%):.:.#x_:|
00008120  e7 6f 70 65 6e 5f 25 24  21 50 65 64 69 74 6f 72  |.open_%$!Peditor|
00008130  5f 25 3d 22 22 3a f2 72  49 28 50 65 64 64 5f 25  |_%="":.rI(Pedd_%|
00008140  2c 22 50 65 64 69 74 6f  72 22 29 3a f2 73 43 49  |,"Peditor"):.sCI|
00008150  28 21 28 50 65 64 64 5f  25 2b 31 32 29 2c 30 29  |(!(Pedd_%+12),0)|
00008160  8b f2 63 6c 6f 73 65 57  28 50 65 64 64 5f 25 29  |..closeW(Pedd_%)|
00008170  0d 2e ae 43 e7 6d 65 73  73 61 67 65 5f 25 56 5f  |...C.message_%V_|
00008180  24 3d a4 61 6c 65 72 74  28 22 50 68 72 61 73 65  |$=.alert("Phrase|
00008190  20 65 64 69 74 65 64 20  61 6e 64 20 73 61 76 65  | edited and save|
000081a0  64 22 2c 22 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |d","","OK","",""|
000081b0  2c 30 29 0d 2e b8 15 f2  55 70 64 61 74 65 50 68  |,0).....UpdatePh|
000081c0  72 61 73 65 73 3a 3d b9  0d 2e cc 48 dd a4 53 61  |rases:=....H..Sa|
000081d0  76 65 57 6f 72 64 5f 3a  ea 85 3a ee 85 ea 3a 56  |veWord_:..:...:V|
000081e0  5f 24 3d a4 61 6c 65 72  74 28 f6 24 2c 22 22 2c  |_$=.alert(.$,"",|
000081f0  22 4f 4b 22 2c 22 22 2c  22 22 2c 30 29 3a f2 63  |"OK","","",0):.c|
00008200  6c 6f 73 65 57 28 57 65  64 64 5f 25 29 3a 3d a3  |loseW(Wedd_%):=.|
00008210  0d 2e d6 5d 78 5f 24 3d  24 21 57 65 64 69 74 6f  |...]x_$=$!Wedito|
00008220  72 5f 25 3a e7 78 5f 24  3d 22 22 8c 56 5f 24 3d  |r_%:.x_$="".V_$=|
00008230  a4 61 6c 65 72 74 28 22  4e 6f 74 68 69 6e 67 20  |.alert("Nothing |
00008240  74 6f 20 73 61 76 65 2e  22 2c 22 22 2c 22 4f 4b  |to save.","","OK|
00008250  22 2c 22 22 2c 22 22 2c  30 29 3a f2 63 6c 6f 73  |","","",0):.clos|
00008260  65 57 28 57 65 64 64 5f  25 29 3a 3d a3 0d 2e e0  |eW(Wedd_%):=....|
00008270  2a 70 72 5f 25 3d 64 75  6e 6b 5f 2b 77 6c 69 6e  |*pr_%=dunk_+wlin|
00008280  65 5f 25 3a e7 70 72 5f  25 3e 70 5f 25 70 72 5f  |e_%:.pr_%>p_%pr_|
00008290  25 3d 70 5f 25 2b 31 0d  2e ea 15 e7 70 72 5f 25  |%=p_%+1.....pr_%|
000082a0  3d 6d 61 78 77 6f 72 64  73 5f 25 8c 0d 2e f4 75  |=maxwords_%....u|
000082b0  24 21 57 65 64 69 74 6f  72 5f 25 3d 22 22 3a f2  |$!Weditor_%="":.|
000082c0  72 49 28 57 65 64 64 5f  25 2c 22 57 65 64 69 74  |rI(Wedd_%,"Wedit|
000082d0  6f 72 22 29 3a 56 5f 24  3d a4 61 6c 65 72 74 28  |or"):V_$=.alert(|
000082e0  22 57 6f 72 64 20 62 61  6e 6b 20 66 75 6c 6c 22  |"Word bank full"|
000082f0  2c 22 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 2c 30  |,"","OK","","",0|
00008300  29 3a e7 a4 67 57 78 28  22 57 65 64 69 74 6f 72  |):..gWx("Weditor|
00008310  22 29 f2 63 6c 6f 73 65  57 28 57 65 64 64 5f 25  |").closeW(Wedd_%|
00008320  29 0d 2e fe 06 3d a3 0d  2f 08 2a cd 3a e3 74 5f  |)....=../.*.:.t_|
00008330  25 3d 31 b8 70 5f 25 3a  e7 64 64 5f 24 3d 77 6f  |%=1.p_%:.dd_$=wo|
00008340  72 64 5f 24 28 74 5f 25  29 70 72 5f 25 3d 74 5f  |rd_$(t_%)pr_%=t_|
00008350  25 0d 2f 12 2a ed 3a 77  6f 72 64 5f 24 28 70 72  |%./.*.:word_$(pr|
00008360  5f 25 29 3d 78 5f 24 3a  e7 70 72 5f 25 3e 70 5f  |_%)=x_$:.pr_%>p_|
00008370  25 8c 70 5f 25 3d 70 5f  25 2b 31 0d 2f 1c cc 78  |%.p_%=p_%+1./..x|
00008380  5f 3d ae 6f 70 65 6e 24  3a e3 6a 5f 25 3d 31 b8  |_=.open$:.j_%=1.|
00008390  70 5f 25 3a e3 72 72 5f  25 3d 31 b8 a9 28 77 6f  |p_%:.rr_%=1..(wo|
000083a0  72 64 5f 24 28 6a 5f 25  29 29 3a 61 5f 24 3d c1  |rd_$(j_%)):a_$=.|
000083b0  77 6f 72 64 5f 24 28 6a  5f 25 29 2c 72 72 5f 25  |word_$(j_%),rr_%|
000083c0  2c 31 29 3a 61 5f 25 3d  97 28 61 5f 24 29 82 74  |,1):a_%=.(a_$).t|
000083d0  65 6e 5f 25 3a d5 23 78  5f 2c 61 5f 25 3a ed 3a  |en_%:.#x_,a_%:.:|
000083e0  d5 23 78 5f 2c 28 31 30  82 74 65 6e 5f 25 29 3a  |.#x_,(10.ten_%):|
000083f0  ed 3a d9 23 78 5f 3a e7  6f 70 65 6e 5f 25 24 21  |.:.#x_:.open_%$!|
00008400  57 65 64 69 74 6f 72 5f  25 3d 22 22 3a f2 72 49  |Weditor_%="":.rI|
00008410  28 57 65 64 64 5f 25 2c  22 57 65 64 69 74 6f 72  |(Wedd_%,"Weditor|
00008420  22 29 3a f2 73 43 49 28  21 28 57 65 64 64 5f 25  |"):.sCI(!(Wedd_%|
00008430  2b 31 32 29 2c 30 29 8b  f2 63 6c 6f 73 65 57 28  |+12),0)..closeW(|
00008440  57 65 64 64 5f 25 29 0d  2f 26 41 e7 6d 65 73 73  |Wedd_%)./&A.mess|
00008450  61 67 65 5f 25 56 5f 24  3d a4 61 6c 65 72 74 28  |age_%V_$=.alert(|
00008460  22 57 6f 72 64 20 65 64  69 74 65 64 20 61 6e 64  |"Word edited and|
00008470  20 73 61 76 65 64 22 2c  22 22 2c 22 4f 4b 22 2c  | saved","","OK",|
00008480  22 22 2c 22 22 2c 30 29  0d 2f 30 13 f2 55 70 64  |"","",0)./0..Upd|
00008490  61 74 65 57 6f 72 64 73  3a 3d b9 0d 2f 44 c8 dd  |ateWords:=../D..|
000084a0  f2 69 5f 3a 78 5f 3d 8e  22 3c 52 65 70 6f 72 74  |.i_:x_=."<Report|
000084b0  53 79 73 24 50 61 74 68  3e 52 65 73 6f 75 72 63  |Sys$Path>Resourc|
000084c0  65 73 2e 53 70 72 69 74  65 73 22 3a e8 23 78 5f  |es.Sprites":.#x_|
000084d0  2c 63 6f 64 65 5f 24 2c  41 24 3a d9 23 78 5f 3a  |,code_$,A$:.#x_:|
000084e0  58 24 3d 22 22 3a e3 72  3d 31 b8 a9 28 63 6f 64  |X$="":.r=1..(cod|
000084f0  65 5f 24 29 3a 58 24 3d  58 24 2b bd 28 28 97 28  |e_$):X$=X$+.((.(|
00008500  c1 63 6f 64 65 5f 24 2c  72 2c 31 29 29 29 82 31  |.code_$,r,1))).1|
00008510  34 30 29 3a ed 3a 63 6f  64 65 5f 24 3d 58 24 3a  |40):.:code_$=X$:|
00008520  5a 24 3d 22 22 3a e3 72  3d 31 b8 a9 28 41 24 29  |Z$="":.r=1..(A$)|
00008530  3a 5a 24 3d 5a 24 2b bd  28 28 97 28 c1 41 24 2c  |:Z$=Z$+.((.(.A$,|
00008540  72 2c 31 29 29 29 82 74  65 6e 5f 25 29 3a ed 3a  |r,1))).ten_%):.:|
00008550  41 24 3d 5a 24 3a 52 65  67 69 73 74 65 72 5f 24  |A$=Z$:Register_$|
00008560  3d 41 24 0d 2f 58 29 49  6e 66 6f 24 28 31 29 3d  |=A$./X)Info$(1)=|
00008570  63 6f 64 65 5f 24 3a 49  6e 66 6f 24 28 32 29 3d  |code_$:Info$(2)=|
00008580  52 65 67 69 73 74 65 72  5f 24 3a e1 0d 2f 62 44  |Register_$:../bD|
00008590  dd f2 67 65 74 6c 6c 69  6e 65 5f 3a 61 61 5f 24  |..getlline_:aa_$|
000085a0  3d 22 22 3a f5 3a 61 61  5f 25 3d 9a 23 78 78 5f  |="":.:aa_%=.#xx_|
000085b0  3a 61 61 5f 25 3d 61 61  5f 25 82 74 65 6e 5f 25  |:aa_%=aa_%.ten_%|
000085c0  3a e7 61 61 5f 25 3d 31  30 84 c5 23 78 78 5f e1  |:.aa_%=10..#xx_.|
000085d0  0d 2f 6c 20 61 61 5f 24  3d 61 61 5f 24 2b bd 28  |./l aa_$=aa_$+.(|
000085e0  61 61 5f 25 29 3a fd 61  61 5f 25 3d 31 30 3a e1  |aa_%):.aa_%=10:.|
000085f0  0d 2f 76 4c dd f2 65 78  73 61 76 65 3a 78 78 5f  |./vL..exsave:xx_|
00008600  3d 8e 4f 6f 6f 70 65 6e  24 3a d9 23 78 78 5f 3a  |=.Ooopen$:.#xx_:|
00008610  e7 78 78 5f 3d 30 3a 56  5f 24 3d a4 61 6c 65 72  |.xx_=0:V_$=.aler|
00008620  74 28 71 75 65 65 72 5f  24 2c 22 22 2c 22 4f 4b  |t(queer_$,"","OK|
00008630  22 2c 22 22 2c 22 22 2c  30 29 3a e1 0d 2f 80 8a  |","","",0):../..|
00008640  78 78 5f 3d ae 4f 6f 6f  70 65 6e 24 3a e3 72 5f  |xx_=.Ooopen$:.r_|
00008650  25 3d 31 b8 6c 6c 5f 25  3a e3 72 72 5f 25 3d 31  |%=1.ll_%:.rr_%=1|
00008660  b8 a9 28 6c 6c 69 6e 65  5f 24 28 72 5f 25 29 29  |..(lline_$(r_%))|
00008670  3a 61 61 5f 24 3d c1 6c  6c 69 6e 65 5f 24 28 72  |:aa_$=.lline_$(r|
00008680  5f 25 29 2c 72 72 5f 25  2c 31 29 3a 61 61 5f 25  |_%),rr_%,1):aa_%|
00008690  3d 97 28 61 61 5f 24 29  82 74 65 6e 5f 25 3a d5  |=.(aa_$).ten_%:.|
000086a0  23 78 78 5f 2c 61 61 5f  25 3a ed 3a d5 23 78 78  |#xx_,aa_%:.:.#xx|
000086b0  5f 2c 28 31 30 82 74 65  6e 5f 25 29 3a ed 3a d9  |_,(10.ten_%):.:.|
000086c0  23 78 78 5f 3a e1 0d 2f  8a 93 dd f2 6f 6f 74 3a  |#xx_:../....oot:|
000086d0  78 5f 3d ae 4f 6f 70 65  6e 24 3a e3 72 5f 25 3d  |x_=.Oopen$:.r_%=|
000086e0  31 b8 6c 5f 25 3a e3 72  72 5f 25 3d 31 b8 a9 28  |1.l_%:.rr_%=1..(|
000086f0  6c 69 6e 65 5f 24 28 72  5f 25 29 29 3a 61 5f 24  |line_$(r_%)):a_$|
00008700  3d c1 6c 69 6e 65 5f 24  28 72 5f 25 29 2c 72 72  |=.line_$(r_%),rr|
00008710  5f 25 2c 31 29 3a 61 5f  25 3d 97 28 61 5f 24 29  |_%,1):a_%=.(a_$)|
00008720  82 74 65 6e 5f 25 3a d5  23 78 5f 2c 61 5f 25 3a  |.ten_%:.#x_,a_%:|
00008730  ed 3a d5 23 78 5f 2c 28  31 30 82 74 65 6e 5f 25  |.:.#x_,(10.ten_%|
00008740  29 3a ed 3a d9 23 78 5f  3a f2 63 6c 6f 73 65 57  |):.:.#x_:.closeW|
00008750  28 45 64 64 5f 25 29 3a  e1 0d 2f b2 32 dd f2 63  |(Edd_%):../.2..c|
00008760  6f 66 5f 28 63 6f 66 5f  24 29 3a c8 99 36 2c 31  |of_(cof_$):..6,1|
00008770  35 32 2c 30 b8 3b 66 6c  61 67 5f 25 3a e7 28 66  |52,0.;flag_%:.(f|
00008780  6c 61 67 5f 25 80 32 29  3d 30 e1 0d 2f d0 53 c8  |lag_%.2)=0../.S.|
00008790  99 26 34 30 30 43 37 2c  6d 61 73 6b 25 2c 46 70  |.&400C7,mask%,Fp|
000087a0  6f 6c 6c 25 b8 42 42 5f  25 3a e3 54 54 5f 3d 31  |oll%.BB_%:.TT_=1|
000087b0  b8 a9 28 63 6f 66 5f 24  29 3a e7 54 54 5f 83 32  |..(cof_$):.TT_.2|
000087c0  30 3d 30 8c c8 99 26 34  30 30 43 37 2c 6d 61 73  |0=0...&400C7,mas|
000087d0  6b 25 2c 46 70 6f 6c 6c  25 b8 42 42 5f 25 0d 2f  |k%,Fpoll%.BB_%./|
000087e0  ee 4c c8 99 36 2c 31 33  38 2c 30 2c 97 28 c1 63  |.L..6,138,0,.(.c|
000087f0  6f 66 5f 24 2c 54 54 5f  2c 31 29 29 3a ed 3a c8  |of_$,TT_,1)):.:.|
00008800  99 26 34 30 30 43 37 2c  6d 61 73 6b 25 2c 46 70  |.&400C7,mask%,Fp|
00008810  6f 6c 6c 25 b8 42 42 5f  25 3a ff 22 66 78 20 31  |oll%.BB_%:."fx 1|
00008820  33 38 2c 30 2c 33 32 22  3a e1 0d ff              |38,0,32":...|
0000882c