�   ///  A/S  ///
(*L.M/C 5240
2�4:�=&5240:V%=0
7H%=�-�P-2500
d�A$(4),A1 4
��T% H%,R%360,M%50:WS%=M%-70

,7!A1=&4F494541:TV%=T%:T%=T%+4:MK%=&7F7F0000:temp=&78

�A1?4=&55:�15

�
*FX4,1
X��`xC
��!V%=&0DFF0DFF��Ppu
�	�VH:�
L�'''
��OFF
$�PRINT("Tree of Knowledge",9,38)
x�''
�.�PRINT("What would you like to do :",0,38)
@�'
�2�PRINT("1     Load a tree from cassette",3,38)
��
)�PRINT("2     Start a new tree",3,38)
�4��0,16);:�PRINT("?  ",0,38):�:Z$=�INPUT(1,16,0)
4A%=�Z$:�A%>0�A%<3
��A%�tlM,�tp]
���FILELOAD T%=TV%+4
	`��:�'':�PRINT("Which tree would you like loaded ?",0,38):�:�PRINT("(Please type in the filename)",2,38):�:�PRINT(":",0,38):W%=�-1
	�9$WS%=�CHECK(�INPUT(10,W%,-1)):�$WS%=""�ERR(0,1):�dDI
(!V%=0:$WS%="L."+$WS%+" "+�~TV%
��X(WS%)
�4�:�"LOADING":�&FFF7:�VH:V%=!TV%+TV%:!V%=&DFF0DFF
T	�SE:�
�<��SE A$(1)=$T%:T%=�ADDSTR(T%):A$(2)=$T%:T%=�ADDSTR(T%):�

��FILELOAD:G%=T%:�Ppu
)�:�'':�PRINT(A$(1),�CENTRE(A$(1)),38)
t�VL
<PT%=G%:�:�PRINT("Are you thinking of "+�VOWEL(A$(2),1)+�sm(A$(2))+" ? ",0,34)
�Q%=�Y(0,8)
� Q%=0��t|B
h,��:�PRINT($(T%+1)+" ? ",0,34):Q%=�Y(0,8)
�P%=�ADDSTR(T%)+Q%:T%=!P%+G%
0�?T%<>�"*"
�3�:�PRINT("Is it "+�VOWEL($T%,1)+$T%+" ? ",0,34)
�Q%=�Y(0,8)
\<�Q%=4 �'':�PRINT("HO-HO",16,38):NOW=�:�Y%=0�5000:�:�T|O
f�:�R%-V%>99��d@R
pu�PRINT("I'm afraid that there is not enough memory left to expand the tree further",0,38):NOW=�:���-NOW>300:�T|O
�W�PRINT("What "+�sm(A$(2))+" were you thinking of ?",0,38):�:�PRINT(":",0,38):W%=�-1
$?A$=�ANS(�LEAD(�AO(�INPUT(26,W%,-1)))):�A$=""�ERR(8,1):�TdS
)�&5562,G%,V%,R%
*Y%=!(&82)�&FFFF:U%=-1
+�Y%>70��DpR
.�U%=U%+1
3)�(?(R%!(U%*4))�&DF)=((�A$)�&DF)�U%=Y%
B.�U%=Y%��tHS��sm($R%!(U%*4))<>�sm(A$)��TnS
Le�:�17,-12,100,9:�PRINT("That "+�sm(A$(2))+" is already on the tree",0,38):�:Y%=�:���-Y%>320:�d@R
�,V1%=V%+4:$V1%=A$:L%=V1%:V1%=�ADDSTR(V1%)
�$V1%="*":U%=V1%+1
P��:�PRINT("Please give me a question to tell the",0,38):�:�PRINT("difference between "+�VOWEL($L%,1)+$L%,0,38):�:�PRINT("and "+�VOWEL($T%,1)+$T%,0,38):�:�PRINT(":",0,38):W%=�-1
�$U%=�LCAP(�INPUT(66,W%,-1))
�$U%<4�ERR(8,1):�ttT
|$U%=�QU($U%)
�V2%=V1%:V1%=�ADDSTR(V1%)
D#K%=V1%:V1%=V1%+8:!V1%=&0DFF0DFF
�@�:�PRINT(�FINDIT($U%,�VOWEL($T%,�CAPS($U%))+$T%)+" ? ",0,34)
Q%=�Y(1,8)
p-K%!Q%=(T%-G%)�MK%:K%!(4-Q%)=(L%-G%-4)�MK%
z$�&5748,V%,V1%:!P%=(V2%-G%-4)�MK%
�V%=V1%-4
�	�T|O
8�
�V�PRINT("Do you wish to list the whole tree ? ",0,34):K%=�Y(0,0):�K%=4�:P%=G%:�dRY
�P%=G%+1
�N�QPRINT:�PRINT("Which question would you like to list from ?",0,34):W%=�-1
�DL%=��INPUT(1,W%,-1)-48:�L%=-49��dQY��L%<1�L%>D%��ERR(0,11):�dLY
��L%=D%�:�dQY
�P%=R%!(L%*4)-1:�:�dRY
��?(P%-1)=42��dKY��TxX
�J�Y%=0�40:R%?Y%=&FF:�:R%?0=0:�PRINT("Shall I print to printer ? ",0,34)
�K%=�Y(0,0):�
�o�K%<>4�:�PRINT("Press SHIFT key each time for the next page",0,38):�14,26:NOW=�:���-NOW>250:S%=40:H=1:�TlZ
�;�PRINT("How many columns is the printer ?",0,34):W%=�-1
�"S%=��INPUT(3,W%,-1):�S%=0S%=80
*�S%<20�ERR(0,33):�dzY:��2,1,13,15:H=0
,�:�READ(P%,1,42)
��3,15:�H=0��Ppu
�7�:�PRINT("Press ESCAPE to return to the menu",0,38)
�	�dGZ
���READ(P%,T%,U%)
X�?P%=42��t|[
Z+�R%?(T%-1)<>&FFR%?(T%-1)=&FF:J%=0:�J%=1
[
�t(T%)
g7��T%*2-�-2," ");�(U%);"-- ";:F%=�:�CHOP($P%,F%,S%)
l�B$=0��t@[
m�J%=1R%?(T%-1)=(T%-1)
o6��t(T%):��T%*2-�+1," ");" ";�CHOP(B$,F%,S%):��B$=0
vR%?(T%-1)=&FF
��
�&�READ(!(�ADDSTR(P%)+4)+G%,T%+1,89)
�R%?T%=T%:�t(T%):�
��R%?(T%-1)<>&FFZ%=1�Z%=0
�R%?T%=&FF:R%?(T%-1)=&FF
 I�t(T%):��(T%*2-�-2)," ");�(U%);"-+ ";:F%=�:�CHOP($(P%+1)+" ?",F%,S%)
HR%?T%=T%
Q�Z%=0R%?(T%-1)=T%-1
R,�B$=0��D\\���t(T%):�" ";�CHOP(B$,F%,S%)
S
��B$=0
\�t(T%):�
�"�READ(!�ADDSTR(P%)+G%,T%+1,78)
��
�wT%=TV%+4:V%=T%:�VH:�:�'':�PRINT("What do you wish to call this new",0,38):�:�PRINT("tree",12,38):�:�PRINT("?",0,38)
2A$(1)=�INPUT(20,7,-1):�A$(1)=""�ERR(0,1):�TT^
xA$(1)=�LCAP(A$(1))
�-�VH:�:�'':�PRINT(A$(1),�CENTRE(A$(1)),38)
@�VL
�@�:�'':�PRINT("Are you happy with this title ? ",0,34):W%=�-1
 A%=�Y(1,8):�A%=0��tp]
 l�A%=4��Tta
 ��ERR(8,32):�TH`
!4	�VL:�
!�3�PRINT("What is the singular of "+A$(1),0,38):�
!�'�PRINT(�VOWEL(A$(1),0),0,38):W%=�-1
"`M�:A$(2)=�CHECK(�INPUT(20,W%,��VOWEL(A$(1),0)-2)):�A$(2)=""�ERR(8,3):�D`b
"�Z�:�':�PRINT("Please enter "+�VOWEL(A$(2),1)+�sm(A$(2)),0,38):�:�PRINT(":",0,38):W%=�-1
#(M�:A$(3)=�INPUT(26,W%,0):A$(3)=�AO(�CHECK(A$(3))):A$(3)=�ANS(�LEAD(A$(3)))
#��A$(3)="" �ERR(8,2):�Thc
#�N�:�PRINT("Please enter another "+�sm(A$(2)),0,38):�:�PRINT(":",0,9):W%=�-1
$T|�:A$(4)=�INPUT(26,W%,0):A$(4)=�AO(�CHECK(A$(4))):A$(4)=�ANS(�LEAD(A$(4))):�A$(4)=""��sm(A$(4))=�sm(A$(3))�ERR(8,2):�DTd
$���:�PRINT("Please give me a question to tell the",0,38):�:�PRINT("difference between "+�VOWEL(A$(3),1)+A$(3),0,38):�:�PRINT("and "+�VOWEL(A$(4),1)+A$(4),0,38):�::�PRINT(":",0,38):W%=�-1
%D$=�LCAP(�INPUT(66,W%,-1))
%�&�D$<2��ERR(8,1):�T\e:�D$=�QU(D$)
%�B�:�PRINT(�FINDIT(D$,�VOWEL(A$(3),�CAPS(D$))+A$(3))+" ? ",0,34)
&HQ%=�Y(1,8):�Q%=0��TPg
&�!A$=A$(4):A$(4)=A$(3):A$(3)=A$
'Q$T%=A$(1):T%=T%+�$T%+1:$T%=A$(2):T%=T%+�$T%+1:V%=T%:$V%="*"+D$:V%=�ADDSTR(V%)
't!P%=V%:V%=V%+8:!P%=(V%-T%)�MK%
'�-$V%=A$(3):V%=�ADDSTR(V%):P%!4=(V%-T%)�MK%
(<$V%=A$(4):V%=�ADDSTR(V%)
(�!V%=&0DFF0DFF
)G%=T%:�t|B
)�#��X(S%) X%=S%�&100:Y%=S%�&100:�
*0ݤCENTRE(A$) =17-�A$/2
*�H��PRINT($WS%,Z%,B%)�B$:�$WS%+Z%>B%��dxj:���Z%,�9);:�&5276,WS%:�10:�
*�A%=B%+1-Z%
+\�A%=A%-1:�WS%?A%=32�A%=0
+���$WS%,�$WS%-A%-1)="?"��D\k
,$;�PRINT(�$WS%,A%),0,B%):�:�PRINT(�$WS%,�$WS%-A%-1),0,B%)
,�
J%=2:�
,�ݤINPUT(Z1%,V1%,E%)*FX15,1
,�E%=E%+�
-PG�B$,C%,I%:C%=0:�2+E%,V1%+1);:�ON:�A=��:�OFF:�(A=32�C%=0)�A=13��dZo
-�(�A>&7F�A<32�A=&2A�17,-12,100,9:�dZo
.U�A<>127��d`n��B$=0��dZo�B$=�B$,�B$-1):�=0��11,8,32,8,11,32,10:��8,11,32,8,10,32
.|�8:C%=C%-1:�dZo
.��B$=Z1%�17,-12,100,9:�dZo
/D4C%=C%+1:B$=B$+�A:�11:?&57D7=A:�&5246:�10:�=0�10
/��ON:�A=13:�OFF
0�C%=�B$,"  ")
0p�C%B$=�B$,C%)+�B$,C%+2)
18	�C%=0
1�=�CHECK(B$)
2VݤVOWEL($WS%,Q%) �S$:Y%=-1:�Y%=Y%+1:�A1?Y%=(WS%?0�&DF)�Y%=4:�A1?Y%=(WS%?0�&DF)Y%=0
2d=�Y%<4S$=�(65� 32*Q%)+�(78�32*Q%)+" " �S$=�(65� 32*Q%)+" "
2�=S$
3,ݤY(A%,U%):Y%=�:W%=�
3�3�Y%,W%);:A$=�(��INPUT(3,�-1,-2)�&DF):�A$="Y"=4
3�
�A$="N"=0
4��ERR(U%,Y%)
5 	�tPs
5�ݤSPACE =�$WS%," ",A%)
5�ݤFINDIT($WS%,A$)
6�3B%=�$WS%," IT"):�B%=0B%=�$WS%," it"):�B%=0��Dxw
6�%�WS%?(B%+2)=32�WS%?(B%+2)=13��D@x
7x'="What would the answer be for "+A$
8@#=�$WS%,B%)+A$+�$WS%,�$WS%-B%-2)
8�8��ERR(A%,B%)�28,B%,31,39,�+(A%-1):�:�28,0,31,39,A%:�
9ݤCHECK($WS%)
9l+��$WS%,1)=32�$WS%=�$WS%,�$WS%-1):�Dly
9�	=$WS%
:4-A%=1:�WS%?A%=WS%?A%�32:A%=A%+1:�WS%?A%=13
:�	=$WS%
:�ݤCAPS($WS%) B%=0
;`CA%=B%+1:B%=�SPACE:�$WS%,B%+1,3)="IT "��$WS%,B%+1,3)="it "��tL|
;��B%<>0��D`{
<(=1
<�=(WS%?(B%-2)�32)�32
<���ON �23,1,1;0;0;0;:�
=T��OFF �23,1,0;0;0;0;:�
=�8ݤAO($WS%) A$=�$WS%,2):�A$="A "�A$="a "$WS%=�$WS%,3)
>9A$=�$WS%,3):�A$="AN "�A$="an "�A$="An "�$WS%=�$WS%,4)
>�	=$WS%
>�ݤANS($WS%) �$WS%<2��PP@
?H�$WS%="YES"�$WS%="NO"��PP@
?R�$WS%="yes"�$WS%="no"��PP@
?\�$WS%="Yes"�$WS%="No"��PP@
?�	=$WS%
@=""
@tݤLEAD($WS%)
@��?WS%=32$WS%=�$WS%,2):�`X@
A<	=$WS%
A�#ݤLCAP($WS%)?WS%=?WS%�&DF:=$WS%
BݤQU(A$)
Bh'��A$,1)="?"�=�CHECK(�A$,�A$-1))�=A$
C�ݤADDSTR(WS%) =�$WS%+1+WS%
C��3:�=17� �=4��t|B��:*FX4
D\�:�
D�+�:�VH:�':�PRINT("Do you wish to:",0,38)
E$(�':�PRINT("1   Edit questions",4,38)
E�H�:�PRINT("2   Edit answers",4,38):�:�PRINT("3   Delete a node",4,38)
E�H�':�PRINT("( USE 1 / 2 / 3 / N )",7,38):�:�PRINT("?   ",0,38):W%=�-1
E��:A%=��INPUT(1,W%,0)-48
FP�A%=30�A%=62��Ppu
F��A%>3�A%<1�ERR(0,2):�`lE
F��A%�pDI,�p|M,�@jT
G�$��QPRINT D%=0:�26,12:�':�D%=D%+1
HDR%!(D%*4)=P%
H�c�P%=G%+1��PRINT(�(D%)+"  "+$P%+" ?",0,38):�:P%=�ADDSTR(�ADDSTR(�ADDSTR(�ADDSTR(P%)+8)))+1:�@pI
IB�PRINT(�(D%)+"  "+$P%+" ?",0,38):�:P%=�ADDSTR(�ADDSTR(P%)+8)+1
IpR�D%=4 � ?(P%-1)<>42:D%=D%+1:�PRINT(�(D%)+"  None of these questions",0,38):�:�
I�P%=G%+1
I��QPRINT
I�8�PRINT("Which would you like to edit ?",0,34):W%=�-1
J8DL%=��INPUT(1,W%,-1)-48:�L%=-49��@XM��L%<1�L%>D%��ERR(0,30):�PxJ
J��L%=D%��@XM
Kv�:�:�PRINT($(R%!(L%*4))+" ?",0,38):�:�PRINT("Please type in the corrected version",0,38):�:�PRINT(":",0,38):W%=�-1
Kd%$WS%=�QU(�LCAP(�INPUT(66,W%,-1)))
K��$WS%<2:�ERR(0,1):�@dK
L,�&55F0,G%,V%,WS%,R%!(L%*4)
L�)�?&7B>127�V%=V%+(256-?&7B)�V%=V%-?&7B
L�	�`@D
MX�?(P%-1)=42��pNI� �`@D
M�P%=G%+1
N 
D%=0:F%=0
N�P1%=�ADDSTR(P%)+8
N�R%!4=P1%:�26,12:�':�D%=D%+1
OLS�P%=G%+1�PRINT(�(D%)+"  "+$P1%,0,38):�:P1%=�ADDSTR(P1%):R%!((D%+1)*4)=P1%:�PTP
O�VP%=P1%:�PRINT(�(D%)+"  "+$P%,0,38):�:P1%=�ADDSTR(�ADDSTR(P1%))+8:R%!((D%+1)*4)=P1%
P�D%>1�P%=P1%
Px�D%=4�?P1%=&FF
P�oD%=D%+1:�PRINT(�(D%)+"  None of these answers",0,38):�:�PRINT("Which would you like to edit ?",0,34):W%=�-1
Q@DL%=��INPUT(1,W%,-1)-48:�L%=-49��@`T��L%<1�L%>D%��ERR(0,30):�@@Q
Q��L%=D%��@`T
R!�:�:�PRINT($(R%!(L%*4)),0,38)
RlS�:�PRINT("Please type in the corrected version",0,38):�:�PRINT(":",0,38):W%=�-1
R�C$WS%=�ANS(�AO(�LEAD(�INPUT(31,W%,-1)))):�$WS%=""�ERR(0,1):�`PR
S4�&55F0,G%,V%,WS%,R%!(L%*4)
S�)�?&7B>127�V%=V%+(256-?&7B)�V%=V%-?&7B
S�	�`@D
T`�?P1%<>&FF D%=0:�`hN:��`@D
TjEP%=�ADDSTR(�ADDSTR(�ADDSTR(�ADDSTR(G%+1)+8)))+1:�?(P%-1)<>42��`@D
Tt�QPRINT
T~:�PRINT("Which would you like to delete ?",0,34):W%=�-1
T�CL%=��INPUT(1,W%,-1)-48:�L%=-49��pzT��L%<1�L%>D%�ERR(0,32):�pHT
T��L%=D%��pzT
T��O%=R%!(L%*4)-1:S%=40:�Y%=0�20:R%?Y%=&FF:�:R%?0=0:�:�PRINT("Press the SHIFT key each time for the next page",0,38):NOW=�:���-NOW>250:�:�14:�READ(O%,1,42)
T�Z�:�15:�PRINT("Do you want to delete the Y or the N branch (Use Y or N) ?",0,38):W%=�-1
T�A%=��INPUT(1,W%,-1)�32
T�%�A%<>121�A%<>110��ERR(0,21):�pfT
T�8!V%=0:�A%=121J%=4:P%=!(�ADDSTR(O%)+4)+G%:�J%=0:P%=O%
T�Z%=0:�DEL(P%,1)
T�#?O%=&EF:R%!Z%=(O%-G%):Z%=Z%�4+1
T�&�&52BD,G%,V%,R%,Z%:V%=!(&72)�&FFFF
T�!V%=&DFF0DFF:�`@D
T��?(P%-1)=42��@tT� �`@D
T�,��DEL(P%,T%)�T%=1�J%=0��`AT��?P%=42��p~T
T�?P%=&EF
T��
T�"�DEL(!(�ADDSTR(P%)+4)+G%,T%+1)
T�!?P%=&EF:R%!Z%=(P%-G%):Z%=Z%+4
T��DEL(!�ADDSTR(P%)+G%,T%+1)
T��
T�>�:�PRINT("Would you like to save this tree ?",0,34):W%=�-1
U((A$=�(��INPUT(3,W%,-2)�&DF):�A$="N" �
U��A$<>"Y"�ERR(8,35):�PhU
U�@�:�PRINT("What name shall I give to the file ?",0,34):W%=�-1
VT6$WS%=�CHECK(�INPUT(10,W%,-1)):�$WS%=""�$WS%="NULL"
V�%$WS%="S."+$WS%+" "+�~TV%+" "+�~V%
W5!TV%=(V%-TV%):�X(WS%):�:�"SAVING":�ON:�&FFF7:�OFF
W�	�Ppu
W���FIND(A$)
XHZ%=�:�A%=Z%+4
X�%�$A%>=�A$�$A%,A$)�Z%?1*256+Z%?2
YZ%=Z%+Z%?3:�Z%?1>&7F:�
Y#��t(T%)�Y%=0�T%:�R%?Y%=&FF��PnY
Y$��(R%?Y%)*2-�," ");"!";
Y.�:�
Y8��VH �28,0,31,39,0:�
YB��VL �28,0,31,39,8:�
oT2ݤCHOP(A$,F%,D%)�A%:A%=D%-F%:�A$<A%�B$="":=A$
o� �A%=A%-1:��A$,A%,1)=" "�A%=0
o�"�A$-A%>0B$=�A$,�A$-A%)�B$=" "
o��B$="?"�B$=" ?"��pFo
o��A$="    "�A$="  "��Pfp
p�A%<>0=�A$,A%-1)
p&B$="":="etc"
u0	�VH:�
u:+�':�OFF:�PRINT(A$(1),�CENTRE(A$(1)),38)
uD1�':�PRINT("What would you like to do :",0,38)
uN?�':�PRINT("1  Think of "+�VOWEL(A$(2),1)+�sm(A$(2)),3,38):�
uX9�PRINT("2  Guess "+�VOWEL(A$(2),1)+�sm(A$(2)),3,38):�
ul%�PRINT("3  Edit the tree",3,38):�
uv*�PRINT("4  Print out the tree",3,38):�
u�%�PRINT("5  Save the tree",3,38):�
u�)�PRINT("6  Load another tree",3,38):�
u�(�PRINT("7  Start a new tree",3,38):�
u�4��0,22);:�PRINT("?  ",0,38):�:Z$=�INPUT(1,22,0)
u�A%=�Z$:�A%>0�A%<8
u�*�A%�TPN,�`xu,�`@D,�TxX,�`pU,�tlM,�tp]
u�*D%=0:P%=G%+1:P1%=�ADDSTR(P%)+8:!R%=P1%
v�&5562,G%,V%,R%
v> D%=!(&82)�&FFFF:W%=�(D%)-1:�
v?`�D%=3�?(R%!8)=&FF:�PRINT("Sorry .Not enough "+A$(1)+" on the tree",0,38):�Y%=0�12000:�:�t|B
vH#W%=R%!(W%*4):�&54DD,G%,V%,R%,W%
vzQ%=!(&82)�&FFFF:B%=Q%
v��
v�F�B1%=-1:M%?(B%-Q%)=&FF:S%=�(B%)-1:�B1%=B1%+1:�M%?B1%=S%� B1%>B%-Q%
v��B1%>B%-Q%:M%?(B%-Q%)=S%
v�/�PRINT("The answer to the question",0,38):�
v�.�PRINT($((R%!(S%*4)�&FFFF)+1)+" ?",0,38):�
v�%�R%?(S%*4+3)=4�A$=" yes"�A$=" no"
v��PRINT("is"+A$,0,38):�
v�)�PRINT("Your guess is ?",0,38):S%=�-1
v�AA$=�ANS(�AO(�LEAD(�INPUT(22,S%,-1)))):�A$=""��ERR(0,15):�pvv
v�S�:�sm($W%)=�sm(A$)�Q%=-1:�':�PRINT("CORRECT",14,38):��:�PRINT("WRONG",14,38):�
v�Q%=Q%-1:�Q%<1
v�1�Q%=0�PRINT("It was "+�VOWEL($W%,1)+$W%,0,38)
v�W%=�:���-W%>400
w	�Ppu
yݤFIND(A%)
y" Y%=G%:�Y%=Y%+1:�Y%=V%�!Y%=A%
y,=Y%
yTݤsm(A$)�Y%:$WS%=""
y^0�Y%=1��A$:$WS%=$WS%+�(��A$,Y%,1)�32):�:=$WS%
�

00000000  0d 00 00 15 f4 20 20 20  2f 2f 2f 20 20 41 2f 53  |.....   ///  A/S|
00000010  20 20 2f 2f 2f 0d 00 28  0f 2a 4c 2e 4d 2f 43 20  |  ///..(.*L.M/C |
00000020  35 32 34 30 0d 00 32 13  eb 34 3a d3 3d 26 35 32  |5240..2..4:.=&52|
00000030  34 30 3a 56 25 3d 30 0d  00 37 10 48 25 3d 93 2d  |40:V%=0..7.H%=.-|
00000040  b8 50 2d 32 35 30 30 0d  00 64 0f de 41 24 28 34  |.P-2500..d..A$(4|
00000050  29 2c 41 31 20 34 0d 00  c8 1f de 54 25 20 48 25  |),A1 4.....T% H%|
00000060  2c 52 25 33 36 30 2c 4d  25 35 30 3a 57 53 25 3d  |,R%360,M%50:WS%=|
00000070  4d 25 2d 37 30 0d 01 2c  37 21 41 31 3d 26 34 46  |M%-70..,7!A1=&4F|
00000080  34 39 34 35 34 31 3a 54  56 25 3d 54 25 3a 54 25  |494541:TV%=T%:T%|
00000090  3d 54 25 2b 34 3a 4d 4b  25 3d 26 37 46 37 46 30  |=T%+4:MK%=&7F7F0|
000000a0  30 30 30 3a 74 65 6d 70  3d 26 37 38 0d 01 90 10  |000:temp=&78....|
000000b0  41 31 3f 34 3d 26 35 35  3a ef 31 35 0d 01 f4 0a  |A1?4=&55:.15....|
000000c0  2a 46 58 34 2c 31 0d 02  58 0b ee 85 e5 8d 60 78  |*FX4,1..X.....`x|
000000d0  43 0d 02 bc 17 e7 21 56  25 3d 26 30 44 46 46 30  |C.....!V%=&0DFF0|
000000e0  44 46 46 8c 8d 50 70 75  0d 03 84 09 f2 56 48 3a  |DFF..Ppu.....VH:|
000000f0  db 0d 04 4c 08 f1 27 27  27 0d 04 b0 08 f2 4f 46  |...L..'''.....OF|
00000100  46 0d 05 14 24 f2 50 52  49 4e 54 28 22 54 72 65  |F...$.PRINT("Tre|
00000110  65 20 6f 66 20 4b 6e 6f  77 6c 65 64 67 65 22 2c  |e of Knowledge",|
00000120  39 2c 33 38 29 0d 05 78  07 f1 27 27 0d 05 dc 2e  |9,38)..x..''....|
00000130  f2 50 52 49 4e 54 28 22  57 68 61 74 20 77 6f 75  |.PRINT("What wou|
00000140  6c 64 20 79 6f 75 20 6c  69 6b 65 20 74 6f 20 64  |ld you like to d|
00000150  6f 20 3a 22 2c 30 2c 33  38 29 0d 06 40 06 f1 27  |o :",0,38)..@..'|
00000160  0d 06 a4 32 f2 50 52 49  4e 54 28 22 31 20 20 20  |...2.PRINT("1   |
00000170  20 20 4c 6f 61 64 20 61  20 74 72 65 65 20 66 72  |  Load a tree fr|
00000180  6f 6d 20 63 61 73 73 65  74 74 65 22 2c 33 2c 33  |om cassette",3,3|
00000190  38 29 0d 06 d6 05 f1 0d  07 08 29 f2 50 52 49 4e  |8)........).PRIN|
000001a0  54 28 22 32 20 20 20 20  20 53 74 61 72 74 20 61  |T("2     Start a|
000001b0  20 6e 65 77 20 74 72 65  65 22 2c 33 2c 33 38 29  | new tree",3,38)|
000001c0  0d 07 d0 34 f5 f1 8a 30  2c 31 36 29 3b 3a f2 50  |...4...0,16);:.P|
000001d0  52 49 4e 54 28 22 3f 20  20 22 2c 30 2c 33 38 29  |RINT("?  ",0,38)|
000001e0  3a f1 3a 5a 24 3d a4 49  4e 50 55 54 28 31 2c 31  |:.:Z$=.INPUT(1,1|
000001f0  36 2c 30 29 0d 08 34 15  41 25 3d bb 5a 24 3a fd  |6,0)..4.A%=.Z$:.|
00000200  41 25 3e 30 80 41 25 3c  33 0d 08 98 11 ee 41 25  |A%>0.A%<3.....A%|
00000210  e5 8d 74 6c 4d 2c 8d 74  70 5d 0d 08 fc 17 dd f2  |..tlM,.tp]......|
00000220  46 49 4c 45 4c 4f 41 44  20 54 25 3d 54 56 25 2b  |FILELOAD T%=TV%+|
00000230  34 0d 09 60 84 db 3a f1  27 27 3a f2 50 52 49 4e  |4..`..:.'':.PRIN|
00000240  54 28 22 57 68 69 63 68  20 74 72 65 65 20 77 6f  |T("Which tree wo|
00000250  75 6c 64 20 79 6f 75 20  6c 69 6b 65 20 6c 6f 61  |uld you like loa|
00000260  64 65 64 20 3f 22 2c 30  2c 33 38 29 3a f1 3a f2  |ded ?",0,38):.:.|
00000270  50 52 49 4e 54 28 22 28  50 6c 65 61 73 65 20 74  |PRINT("(Please t|
00000280  79 70 65 20 69 6e 20 74  68 65 20 66 69 6c 65 6e  |ype in the filen|
00000290  61 6d 65 29 22 2c 32 2c  33 38 29 3a f1 3a f2 50  |ame)",2,38):.:.P|
000002a0  52 49 4e 54 28 22 3a 22  2c 30 2c 33 38 29 3a 57  |RINT(":",0,38):W|
000002b0  25 3d bc 2d 31 0d 09 c4  39 24 57 53 25 3d a4 43  |%=.-1...9$WS%=.C|
000002c0  48 45 43 4b 28 a4 49 4e  50 55 54 28 31 30 2c 57  |HECK(.INPUT(10,W|
000002d0  25 2c 2d 31 29 29 3a e7  24 57 53 25 3d 22 22 f2  |%,-1)):.$WS%="".|
000002e0  45 52 52 28 30 2c 31 29  3a e5 8d 64 44 49 0d 0a  |ERR(0,1):..dDI..|
000002f0  28 21 56 25 3d 30 3a 24  57 53 25 3d 22 4c 2e 22  |(!V%=0:$WS%="L."|
00000300  2b 24 57 53 25 2b 22 20  22 2b c3 7e 54 56 25 0d  |+$WS%+" "+.~TV%.|
00000310  0a 8c 0b f2 58 28 57 53  25 29 0d 0a f0 34 db 3a  |....X(WS%)...4.:|
00000320  f1 22 4c 4f 41 44 49 4e  47 22 3a d6 26 46 46 46  |."LOADING":.&FFF|
00000330  37 3a f2 56 48 3a 56 25  3d 21 54 56 25 2b 54 56  |7:.VH:V%=!TV%+TV|
00000340  25 3a 21 56 25 3d 26 44  46 46 30 44 46 46 0d 0b  |%:!V%=&DFF0DFF..|
00000350  54 09 f2 53 45 3a e1 0d  0b b8 3c dd f2 53 45 20  |T..SE:....<..SE |
00000360  41 24 28 31 29 3d 24 54  25 3a 54 25 3d a4 41 44  |A$(1)=$T%:T%=.AD|
00000370  44 53 54 52 28 54 25 29  3a 41 24 28 32 29 3d 24  |DSTR(T%):A$(2)=$|
00000380  54 25 3a 54 25 3d a4 41  44 44 53 54 52 28 54 25  |T%:T%=.ADDSTR(T%|
00000390  29 3a e1 0d 0d ac 19 f2  46 49 4c 45 4c 4f 41 44  |):......FILELOAD|
000003a0  3a 47 25 3d 54 25 3a e5  8d 50 70 75 0d 0e 10 29  |:G%=T%:..Ppu...)|
000003b0  db 3a f1 27 27 3a f2 50  52 49 4e 54 28 41 24 28  |.:.'':.PRINT(A$(|
000003c0  31 29 2c a4 43 45 4e 54  52 45 28 41 24 28 31 29  |1),.CENTRE(A$(1)|
000003d0  29 2c 33 38 29 0d 0e 74  07 f2 56 4c 0d 0f 3c 50  |),38)..t..VL..<P|
000003e0  54 25 3d 47 25 3a db 3a  f2 50 52 49 4e 54 28 22  |T%=G%:.:.PRINT("|
000003f0  41 72 65 20 79 6f 75 20  74 68 69 6e 6b 69 6e 67  |Are you thinking|
00000400  20 6f 66 20 22 2b a4 56  4f 57 45 4c 28 41 24 28  | of "+.VOWEL(A$(|
00000410  32 29 2c 31 29 2b a4 73  6d 28 41 24 28 32 29 29  |2),1)+.sm(A$(2))|
00000420  2b 22 20 3f 20 22 2c 30  2c 33 34 29 0d 0f a0 0e  |+" ? ",0,34)....|
00000430  51 25 3d a4 59 28 30 2c  38 29 0d 10 04 0f e7 20  |Q%=.Y(0,8)..... |
00000440  51 25 3d 30 8c 8d 74 7c  42 0d 10 68 2c f5 f1 3a  |Q%=0..t|B..h,..:|
00000450  f2 50 52 49 4e 54 28 24  28 54 25 2b 31 29 2b 22  |.PRINT($(T%+1)+"|
00000460  20 3f 20 22 2c 30 2c 33  34 29 3a 51 25 3d a4 59  | ? ",0,34):Q%=.Y|
00000470  28 30 2c 38 29 0d 10 cc  1f 50 25 3d a4 41 44 44  |(0,8)....P%=.ADD|
00000480  53 54 52 28 54 25 29 2b  51 25 3a 54 25 3d 21 50  |STR(T%)+Q%:T%=!P|
00000490  25 2b 47 25 0d 11 30 0e  fd 3f 54 25 3c 3e 97 22  |%+G%..0..?T%<>."|
000004a0  2a 22 0d 11 94 33 db 3a  f2 50 52 49 4e 54 28 22  |*"...3.:.PRINT("|
000004b0  49 73 20 69 74 20 22 2b  a4 56 4f 57 45 4c 28 24  |Is it "+.VOWEL($|
000004c0  54 25 2c 31 29 2b 24 54  25 2b 22 20 3f 20 22 2c  |T%,1)+$T%+" ? ",|
000004d0  30 2c 33 34 29 0d 11 f8  0e 51 25 3d a4 59 28 30  |0,34)....Q%=.Y(0|
000004e0  2c 38 29 0d 12 5c 3c e7  51 25 3d 34 20 f1 27 27  |,8)..\<.Q%=4 .''|
000004f0  3a f2 50 52 49 4e 54 28  22 48 4f 2d 48 4f 22 2c  |:.PRINT("HO-HO",|
00000500  31 36 2c 33 38 29 3a 4e  4f 57 3d 91 3a e3 59 25  |16,38):NOW=.:.Y%|
00000510  3d 30 b8 35 30 30 30 3a  ed 3a e5 8d 54 7c 4f 0d  |=0.5000:.:..T|O.|
00000520  12 66 14 db 3a e7 52 25  2d 56 25 3e 39 39 8c 8d  |.f..:.R%-V%>99..|
00000530  64 40 52 0d 12 70 75 f2  50 52 49 4e 54 28 22 49  |d@R..pu.PRINT("I|
00000540  27 6d 20 61 66 72 61 69  64 20 74 68 61 74 20 74  |'m afraid that t|
00000550  68 65 72 65 20 69 73 20  6e 6f 74 20 65 6e 6f 75  |here is not enou|
00000560  67 68 20 6d 65 6d 6f 72  79 20 6c 65 66 74 20 74  |gh memory left t|
00000570  6f 20 65 78 70 61 6e 64  20 74 68 65 20 74 72 65  |o expand the tre|
00000580  65 20 66 75 72 74 68 65  72 22 2c 30 2c 33 38 29  |e further",0,38)|
00000590  3a 4e 4f 57 3d 91 3a f5  fd 91 2d 4e 4f 57 3e 33  |:NOW=.:...-NOW>3|
000005a0  30 30 3a e5 8d 54 7c 4f  0d 12 c0 57 f2 50 52 49  |00:..T|O...W.PRI|
000005b0  4e 54 28 22 57 68 61 74  20 22 2b a4 73 6d 28 41  |NT("What "+.sm(A|
000005c0  24 28 32 29 29 2b 22 20  77 65 72 65 20 79 6f 75  |$(2))+" were you|
000005d0  20 74 68 69 6e 6b 69 6e  67 20 6f 66 20 3f 22 2c  | thinking of ?",|
000005e0  30 2c 33 38 29 3a f1 3a  f2 50 52 49 4e 54 28 22  |0,38):.:.PRINT("|
000005f0  3a 22 2c 30 2c 33 38 29  3a 57 25 3d bc 2d 31 0d  |:",0,38):W%=.-1.|
00000600  13 24 3f 41 24 3d a4 41  4e 53 28 a4 4c 45 41 44  |.$?A$=.ANS(.LEAD|
00000610  28 a4 41 4f 28 a4 49 4e  50 55 54 28 32 36 2c 57  |(.AO(.INPUT(26,W|
00000620  25 2c 2d 31 29 29 29 29  3a e7 41 24 3d 22 22 f2  |%,-1)))):.A$="".|
00000630  45 52 52 28 38 2c 31 29  3a e5 8d 54 64 53 0d 13  |ERR(8,1):..TdS..|
00000640  29 13 d6 26 35 35 36 32  2c 47 25 2c 56 25 2c 52  |)..&5562,G%,V%,R|
00000650  25 0d 13 2a 19 59 25 3d  21 28 26 38 32 29 80 26  |%..*.Y%=!(&82).&|
00000660  46 46 46 46 3a 55 25 3d  2d 31 0d 13 2b 0f e7 59  |FFFF:U%=-1..+..Y|
00000670  25 3e 37 30 8c 8d 44 70  52 0d 13 2e 0c f5 55 25  |%>70..DpR.....U%|
00000680  3d 55 25 2b 31 0d 13 33  29 fd 28 3f 28 52 25 21  |=U%+1..3).(?(R%!|
00000690  28 55 25 2a 34 29 29 80  26 44 46 29 3d 28 28 97  |(U%*4)).&DF)=((.|
000006a0  41 24 29 80 26 44 46 29  84 55 25 3d 59 25 0d 13  |A$).&DF).U%=Y%..|
000006b0  42 2e e7 55 25 3d 59 25  8c 8d 74 48 53 8b e7 a4  |B..U%=Y%..tHS...|
000006c0  73 6d 28 24 52 25 21 28  55 25 2a 34 29 29 3c 3e  |sm($R%!(U%*4))<>|
000006d0  a4 73 6d 28 41 24 29 8c  8d 54 6e 53 0d 13 4c 65  |.sm(A$)..TnS..Le|
000006e0  db 3a d4 31 37 2c 2d 31  32 2c 31 30 30 2c 39 3a  |.:.17,-12,100,9:|
000006f0  f2 50 52 49 4e 54 28 22  54 68 61 74 20 22 2b a4  |.PRINT("That "+.|
00000700  73 6d 28 41 24 28 32 29  29 2b 22 20 69 73 20 61  |sm(A$(2))+" is a|
00000710  6c 72 65 61 64 79 20 6f  6e 20 74 68 65 20 74 72  |lready on the tr|
00000720  65 65 22 2c 30 2c 33 38  29 3a f1 3a 59 25 3d 91  |ee",0,38):.:Y%=.|
00000730  3a f5 fd 91 2d 59 25 3e  33 32 30 3a e5 8d 64 40  |:...-Y%>320:..d@|
00000740  52 0d 13 88 2c 56 31 25  3d 56 25 2b 34 3a 24 56  |R...,V1%=V%+4:$V|
00000750  31 25 3d 41 24 3a 4c 25  3d 56 31 25 3a 56 31 25  |1%=A$:L%=V1%:V1%|
00000760  3d a4 41 44 44 53 54 52  28 56 31 25 29 0d 13 ec  |=.ADDSTR(V1%)...|
00000770  15 24 56 31 25 3d 22 2a  22 3a 55 25 3d 56 31 25  |.$V1%="*":U%=V1%|
00000780  2b 31 0d 14 50 b3 db 3a  f2 50 52 49 4e 54 28 22  |+1..P..:.PRINT("|
00000790  50 6c 65 61 73 65 20 67  69 76 65 20 6d 65 20 61  |Please give me a|
000007a0  20 71 75 65 73 74 69 6f  6e 20 74 6f 20 74 65 6c  | question to tel|
000007b0  6c 20 74 68 65 22 2c 30  2c 33 38 29 3a f1 3a f2  |l the",0,38):.:.|
000007c0  50 52 49 4e 54 28 22 64  69 66 66 65 72 65 6e 63  |PRINT("differenc|
000007d0  65 20 62 65 74 77 65 65  6e 20 22 2b a4 56 4f 57  |e between "+.VOW|
000007e0  45 4c 28 24 4c 25 2c 31  29 2b 24 4c 25 2c 30 2c  |EL($L%,1)+$L%,0,|
000007f0  33 38 29 3a f1 3a f2 50  52 49 4e 54 28 22 61 6e  |38):.:.PRINT("an|
00000800  64 20 22 2b a4 56 4f 57  45 4c 28 24 54 25 2c 31  |d "+.VOWEL($T%,1|
00000810  29 2b 24 54 25 2c 30 2c  33 38 29 3a f1 3a f2 50  |)+$T%,0,38):.:.P|
00000820  52 49 4e 54 28 22 3a 22  2c 30 2c 33 38 29 3a 57  |RINT(":",0,38):W|
00000830  25 3d bc 2d 31 0d 14 b4  1f 24 55 25 3d a4 4c 43  |%=.-1....$U%=.LC|
00000840  41 50 28 a4 49 4e 50 55  54 28 36 36 2c 57 25 2c  |AP(.INPUT(66,W%,|
00000850  2d 31 29 29 0d 15 18 1a  e7 a9 24 55 25 3c 34 f2  |-1))......$U%<4.|
00000860  45 52 52 28 38 2c 31 29  3a e5 8d 74 74 54 0d 15  |ERR(8,1):..ttT..|
00000870  7c 10 24 55 25 3d a4 51  55 28 24 55 25 29 0d 15  ||.$U%=.QU($U%)..|
00000880  e0 1c 56 32 25 3d 56 31  25 3a 56 31 25 3d a4 41  |..V2%=V1%:V1%=.A|
00000890  44 44 53 54 52 28 56 31  25 29 0d 16 44 23 4b 25  |DDSTR(V1%)..D#K%|
000008a0  3d 56 31 25 3a 56 31 25  3d 56 31 25 2b 38 3a 21  |=V1%:V1%=V1%+8:!|
000008b0  56 31 25 3d 26 30 44 46  46 30 44 46 46 0d 16 a8  |V1%=&0DFF0DFF...|
000008c0  40 db 3a f2 50 52 49 4e  54 28 a4 46 49 4e 44 49  |@.:.PRINT(.FINDI|
000008d0  54 28 24 55 25 2c a4 56  4f 57 45 4c 28 24 54 25  |T($U%,.VOWEL($T%|
000008e0  2c a4 43 41 50 53 28 24  55 25 29 29 2b 24 54 25  |,.CAPS($U%))+$T%|
000008f0  29 2b 22 20 3f 20 22 2c  30 2c 33 34 29 0d 17 0c  |)+" ? ",0,34)...|
00000900  0e 51 25 3d a4 59 28 31  2c 38 29 0d 17 70 2d 4b  |.Q%=.Y(1,8)..p-K|
00000910  25 21 51 25 3d 28 54 25  2d 47 25 29 84 4d 4b 25  |%!Q%=(T%-G%).MK%|
00000920  3a 4b 25 21 28 34 2d 51  25 29 3d 28 4c 25 2d 47  |:K%!(4-Q%)=(L%-G|
00000930  25 2d 34 29 84 4d 4b 25  0d 17 7a 24 d6 26 35 37  |%-4).MK%..z$.&57|
00000940  34 38 2c 56 25 2c 56 31  25 3a 21 50 25 3d 28 56  |48,V%,V1%:!P%=(V|
00000950  32 25 2d 47 25 2d 34 29  84 4d 4b 25 0d 17 84 0c  |2%-G%-4).MK%....|
00000960  56 25 3d 56 31 25 2d 34  0d 17 d4 09 e5 8d 54 7c  |V%=V1%-4......T||
00000970  4f 0d 18 38 05 db 0d 19  c9 56 f2 50 52 49 4e 54  |O..8.....V.PRINT|
00000980  28 22 44 6f 20 79 6f 75  20 77 69 73 68 20 74 6f  |("Do you wish to|
00000990  20 6c 69 73 74 20 74 68  65 20 77 68 6f 6c 65 20  | list the whole |
000009a0  74 72 65 65 20 3f 20 22  2c 30 2c 33 34 29 3a 4b  |tree ? ",0,34):K|
000009b0  25 3d a4 59 28 30 2c 30  29 3a e7 4b 25 3d 34 f1  |%=.Y(0,0):.K%=4.|
000009c0  3a 50 25 3d 47 25 3a e5  8d 64 52 59 0d 19 ca 0b  |:P%=G%:..dRY....|
000009d0  50 25 3d 47 25 2b 31 0d  19 cb 4e f2 51 50 52 49  |P%=G%+1...N.QPRI|
000009e0  4e 54 3a f2 50 52 49 4e  54 28 22 57 68 69 63 68  |NT:.PRINT("Which|
000009f0  20 71 75 65 73 74 69 6f  6e 20 77 6f 75 6c 64 20  | question would |
00000a00  79 6f 75 20 6c 69 6b 65  20 74 6f 20 6c 69 73 74  |you like to list|
00000a10  20 66 72 6f 6d 20 3f 22  2c 30 2c 33 34 29 3a 57  | from ?",0,34):W|
00000a20  25 3d bc 2d 31 0d 19 cc  44 4c 25 3d 97 a4 49 4e  |%=.-1...DL%=..IN|
00000a30  50 55 54 28 31 2c 57 25  2c 2d 31 29 2d 34 38 3a  |PUT(1,W%,-1)-48:|
00000a40  e7 4c 25 3d 2d 34 39 8c  8d 64 51 59 8b e7 4c 25  |.L%=-49..dQY..L%|
00000a50  3c 31 84 4c 25 3e 44 25  8c f2 45 52 52 28 30 2c  |<1.L%>D%..ERR(0,|
00000a60  31 31 29 3a e5 8d 64 4c  59 0d 19 cd 11 e7 4c 25  |11):..dLY.....L%|
00000a70  3d 44 25 f1 3a e5 8d 64  51 59 0d 19 ce 1a 50 25  |=D%.:..dQY....P%|
00000a80  3d 52 25 21 28 4c 25 2a  34 29 2d 31 3a f1 3a e5  |=R%!(L%*4)-1:.:.|
00000a90  8d 64 52 59 0d 19 d1 1a  e7 3f 28 50 25 2d 31 29  |.dRY.....?(P%-1)|
00000aa0  3d 34 32 8c 8d 64 4b 59  8b e5 8d 54 78 58 0d 19  |=42..dKY...TxX..|
00000ab0  d2 4a e3 59 25 3d 30 b8  34 30 3a 52 25 3f 59 25  |.J.Y%=0.40:R%?Y%|
00000ac0  3d 26 46 46 3a ed 3a 52  25 3f 30 3d 30 3a f2 50  |=&FF:.:R%?0=0:.P|
00000ad0  52 49 4e 54 28 22 53 68  61 6c 6c 20 49 20 70 72  |RINT("Shall I pr|
00000ae0  69 6e 74 20 74 6f 20 70  72 69 6e 74 65 72 20 3f  |int to printer ?|
00000af0  20 22 2c 30 2c 33 34 29  0d 19 dc 10 4b 25 3d a4  | ",0,34)....K%=.|
00000b00  59 28 30 2c 30 29 3a f1  0d 19 e6 6f e7 4b 25 3c  |Y(0,0):....o.K%<|
00000b10  3e 34 db 3a f2 50 52 49  4e 54 28 22 50 72 65 73  |>4.:.PRINT("Pres|
00000b20  73 20 53 48 49 46 54 20  6b 65 79 20 65 61 63 68  |s SHIFT key each|
00000b30  20 74 69 6d 65 20 66 6f  72 20 74 68 65 20 6e 65  | time for the ne|
00000b40  78 74 20 70 61 67 65 22  2c 30 2c 33 38 29 3a ef  |xt page",0,38):.|
00000b50  31 34 2c 32 36 3a 4e 4f  57 3d 91 3a f5 fd 91 2d  |14,26:NOW=.:...-|
00000b60  4e 4f 57 3e 32 35 30 3a  53 25 3d 34 30 3a 48 3d  |NOW>250:S%=40:H=|
00000b70  31 3a e5 8d 54 6c 5a 0d  19 f0 3b f2 50 52 49 4e  |1:..TlZ...;.PRIN|
00000b80  54 28 22 48 6f 77 20 6d  61 6e 79 20 63 6f 6c 75  |T("How many colu|
00000b90  6d 6e 73 20 69 73 20 74  68 65 20 70 72 69 6e 74  |mns is the print|
00000ba0  65 72 20 3f 22 2c 30 2c  33 34 29 3a 57 25 3d bc  |er ?",0,34):W%=.|
00000bb0  2d 31 0d 19 fa 22 53 25  3d bb a4 49 4e 50 55 54  |-1..."S%=..INPUT|
00000bc0  28 33 2c 57 25 2c 2d 31  29 3a e7 53 25 3d 30 53  |(3,W%,-1):.S%=0S|
00000bd0  25 3d 38 30 0d 1a 04 2a  e7 53 25 3c 32 30 f2 45  |%=80...*.S%<20.E|
00000be0  52 52 28 30 2c 33 33 29  3a e5 8d 64 7a 59 3a 8b  |RR(0,33):..dzY:.|
00000bf0  ef 32 2c 31 2c 31 33 2c  31 35 3a 48 3d 30 0d 1a  |.2,1,13,15:H=0..|
00000c00  2c 14 db 3a f2 52 45 41  44 28 50 25 2c 31 2c 34  |,..:.READ(P%,1,4|
00000c10  32 29 0d 1a 90 13 ef 33  2c 31 35 3a e7 48 3d 30  |2).....3,15:.H=0|
00000c20  8c 8d 50 70 75 0d 1a c2  37 f1 3a f2 50 52 49 4e  |..Ppu...7.:.PRIN|
00000c30  54 28 22 50 72 65 73 73  20 45 53 43 41 50 45 20  |T("Press ESCAPE |
00000c40  74 6f 20 72 65 74 75 72  6e 20 74 6f 20 74 68 65  |to return to the|
00000c50  20 6d 65 6e 75 22 2c 30  2c 33 38 29 0d 1a c7 09  | menu",0,38)....|
00000c60  e5 8d 64 47 5a 0d 1a f4  14 dd f2 52 45 41 44 28  |..dGZ......READ(|
00000c70  50 25 2c 54 25 2c 55 25  29 0d 1b 58 10 e7 3f 50  |P%,T%,U%)..X..?P|
00000c80  25 3d 34 32 8c 8d 74 7c  5b 0d 1b 5a 2b e7 52 25  |%=42..t|[..Z+.R%|
00000c90  3f 28 54 25 2d 31 29 3c  3e 26 46 46 52 25 3f 28  |?(T%-1)<>&FFR%?(|
00000ca0  54 25 2d 31 29 3d 26 46  46 3a 4a 25 3d 30 3a 8b  |T%-1)=&FF:J%=0:.|
00000cb0  4a 25 3d 31 0d 1b 5b 0a  f2 74 28 54 25 29 0d 1b  |J%=1..[..t(T%)..|
00000cc0  67 37 f1 c4 54 25 2a 32  2d b1 2d 32 2c 22 20 22  |g7..T%*2-.-2," "|
00000cd0  29 3b bd 28 55 25 29 3b  22 2d 2d 20 22 3b 3a 46  |);.(U%);"-- ";:F|
00000ce0  25 3d b1 3a f1 a4 43 48  4f 50 28 24 50 25 2c 46  |%=.:..CHOP($P%,F|
00000cf0  25 2c 53 25 29 0d 1b 6c  0f e7 a9 42 24 3d 30 8c  |%,S%)..l...B$=0.|
00000d00  8d 74 40 5b 0d 1b 6d 19  e7 4a 25 3d 31 52 25 3f  |.t@[..m..J%=1R%?|
00000d10  28 54 25 2d 31 29 3d 28  54 25 2d 31 29 0d 1b 6f  |(T%-1)=(T%-1)..o|
00000d20  36 f5 f2 74 28 54 25 29  3a f1 c4 54 25 2a 32 2d  |6..t(T%):..T%*2-|
00000d30  b1 2b 31 2c 22 20 22 29  3b 22 20 22 3b a4 43 48  |.+1," ");" ";.CH|
00000d40  4f 50 28 42 24 2c 46 25  2c 53 25 29 3a fd a9 42  |OP(B$,F%,S%):..B|
00000d50  24 3d 30 0d 1b 76 11 52  25 3f 28 54 25 2d 31 29  |$=0..v.R%?(T%-1)|
00000d60  3d 26 46 46 0d 1b 80 05  e1 0d 1b bc 26 f2 52 45  |=&FF........&.RE|
00000d70  41 44 28 21 28 a4 41 44  44 53 54 52 28 50 25 29  |AD(!(.ADDSTR(P%)|
00000d80  2b 34 29 2b 47 25 2c 54  25 2b 31 2c 38 39 29 0d  |+4)+G%,T%+1,89).|
00000d90  1b c6 15 52 25 3f 54 25  3d 54 25 3a f2 74 28 54  |...R%?T%=T%:.t(T|
00000da0  25 29 3a f1 0d 1b e4 1c  e7 52 25 3f 28 54 25 2d  |%):......R%?(T%-|
00000db0  31 29 3c 3e 26 46 46 5a  25 3d 31 8b 5a 25 3d 30  |1)<>&FFZ%=1.Z%=0|
00000dc0  0d 1b ee 1b 52 25 3f 54  25 3d 26 46 46 3a 52 25  |....R%?T%=&FF:R%|
00000dd0  3f 28 54 25 2d 31 29 3d  26 46 46 0d 1c 20 49 f2  |?(T%-1)=&FF.. I.|
00000de0  74 28 54 25 29 3a f1 c4  28 54 25 2a 32 2d b1 2d  |t(T%):..(T%*2-.-|
00000df0  32 29 2c 22 20 22 29 3b  bd 28 55 25 29 3b 22 2d  |2)," ");.(U%);"-|
00000e00  2b 20 22 3b 3a 46 25 3d  b1 3a f1 a4 43 48 4f 50  |+ ";:F%=.:..CHOP|
00000e10  28 24 28 50 25 2b 31 29  2b 22 20 3f 22 2c 46 25  |($(P%+1)+" ?",F%|
00000e20  2c 53 25 29 0d 1c 48 0c  52 25 3f 54 25 3d 54 25  |,S%)..H.R%?T%=T%|
00000e30  0d 1c 51 17 e7 5a 25 3d  30 52 25 3f 28 54 25 2d  |..Q..Z%=0R%?(T%-|
00000e40  31 29 3d 54 25 2d 31 0d  1c 52 2c e7 a9 42 24 3d  |1)=T%-1..R,..B$=|
00000e50  30 8c 8d 44 5c 5c 8b f5  f2 74 28 54 25 29 3a f1  |0..D\\...t(T%):.|
00000e60  22 20 22 3b a4 43 48 4f  50 28 42 24 2c 46 25 2c  |" ";.CHOP(B$,F%,|
00000e70  53 25 29 0d 1c 53 0a fd  a9 42 24 3d 30 0d 1c 5c  |S%)..S...B$=0..\|
00000e80  0c f2 74 28 54 25 29 3a  f1 0d 1c 84 22 f2 52 45  |..t(T%):....".RE|
00000e90  41 44 28 21 a4 41 44 44  53 54 52 28 50 25 29 2b  |AD(!.ADDSTR(P%)+|
00000ea0  47 25 2c 54 25 2b 31 2c  37 38 29 0d 1c e8 05 e1  |G%,T%+1,78).....|
00000eb0  0d 1d b0 77 54 25 3d 54  56 25 2b 34 3a 56 25 3d  |...wT%=TV%+4:V%=|
00000ec0  54 25 3a f2 56 48 3a db  3a f1 27 27 3a f2 50 52  |T%:.VH:.:.'':.PR|
00000ed0  49 4e 54 28 22 57 68 61  74 20 64 6f 20 79 6f 75  |INT("What do you|
00000ee0  20 77 69 73 68 20 74 6f  20 63 61 6c 6c 20 74 68  | wish to call th|
00000ef0  69 73 20 6e 65 77 22 2c  30 2c 33 38 29 3a f1 3a  |is new",0,38):.:|
00000f00  f2 50 52 49 4e 54 28 22  74 72 65 65 22 2c 31 32  |.PRINT("tree",12|
00000f10  2c 33 38 29 3a f1 3a f2  50 52 49 4e 54 28 22 3f  |,38):.:.PRINT("?|
00000f20  22 2c 30 2c 33 38 29 0d  1e 14 32 41 24 28 31 29  |",0,38)...2A$(1)|
00000f30  3d a4 49 4e 50 55 54 28  32 30 2c 37 2c 2d 31 29  |=.INPUT(20,7,-1)|
00000f40  3a e7 41 24 28 31 29 3d  22 22 f2 45 52 52 28 30  |:.A$(1)="".ERR(0|
00000f50  2c 31 29 3a e5 8d 54 54  5e 0d 1e 78 16 41 24 28  |,1):..TT^..x.A$(|
00000f60  31 29 3d a4 4c 43 41 50  28 41 24 28 31 29 29 0d  |1)=.LCAP(A$(1)).|
00000f70  1e dc 2d f2 56 48 3a db  3a f1 27 27 3a f2 50 52  |..-.VH:.:.'':.PR|
00000f80  49 4e 54 28 41 24 28 31  29 2c a4 43 45 4e 54 52  |INT(A$(1),.CENTR|
00000f90  45 28 41 24 28 31 29 29  2c 33 38 29 0d 1f 40 07  |E(A$(1)),38)..@.|
00000fa0  f2 56 4c 0d 1f a4 40 db  3a f1 27 27 3a f2 50 52  |.VL...@.:.'':.PR|
00000fb0  49 4e 54 28 22 41 72 65  20 79 6f 75 20 68 61 70  |INT("Are you hap|
00000fc0  70 79 20 77 69 74 68 20  74 68 69 73 20 74 69 74  |py with this tit|
00000fd0  6c 65 20 3f 20 22 2c 30  2c 33 34 29 3a 57 25 3d  |le ? ",0,34):W%=|
00000fe0  bc 2d 31 0d 20 08 19 41  25 3d a4 59 28 31 2c 38  |.-1. ..A%=.Y(1,8|
00000ff0  29 3a e7 41 25 3d 30 8c  8d 74 70 5d 0d 20 6c 0e  |):.A%=0..tp]. l.|
00001000  e7 41 25 3d 34 8c 8d 54  74 61 0d 20 d0 14 f2 45  |.A%=4..Tta. ...E|
00001010  52 52 28 38 2c 33 32 29  3a e5 8d 54 48 60 0d 21  |RR(8,32):..TH`.!|
00001020  34 09 f2 56 4c 3a db 0d  21 98 33 f2 50 52 49 4e  |4..VL:..!.3.PRIN|
00001030  54 28 22 57 68 61 74 20  69 73 20 74 68 65 20 73  |T("What is the s|
00001040  69 6e 67 75 6c 61 72 20  6f 66 20 22 2b 41 24 28  |ingular of "+A$(|
00001050  31 29 2c 30 2c 33 38 29  3a f1 0d 21 fc 27 f2 50  |1),0,38):..!.'.P|
00001060  52 49 4e 54 28 a4 56 4f  57 45 4c 28 41 24 28 31  |RINT(.VOWEL(A$(1|
00001070  29 2c 30 29 2c 30 2c 33  38 29 3a 57 25 3d bc 2d  |),0),0,38):W%=.-|
00001080  31 0d 22 60 4d f1 3a 41  24 28 32 29 3d a4 43 48  |1."`M.:A$(2)=.CH|
00001090  45 43 4b 28 a4 49 4e 50  55 54 28 32 30 2c 57 25  |ECK(.INPUT(20,W%|
000010a0  2c a9 a4 56 4f 57 45 4c  28 41 24 28 31 29 2c 30  |,..VOWEL(A$(1),0|
000010b0  29 2d 32 29 29 3a e7 41  24 28 32 29 3d 22 22 f2  |)-2)):.A$(2)="".|
000010c0  45 52 52 28 38 2c 33 29  3a e5 8d 44 60 62 0d 22  |ERR(8,3):..D`b."|
000010d0  c4 5a db 3a f1 27 3a f2  50 52 49 4e 54 28 22 50  |.Z.:.':.PRINT("P|
000010e0  6c 65 61 73 65 20 65 6e  74 65 72 20 22 2b a4 56  |lease enter "+.V|
000010f0  4f 57 45 4c 28 41 24 28  32 29 2c 31 29 2b a4 73  |OWEL(A$(2),1)+.s|
00001100  6d 28 41 24 28 32 29 29  2c 30 2c 33 38 29 3a f1  |m(A$(2)),0,38):.|
00001110  3a f2 50 52 49 4e 54 28  22 3a 22 2c 30 2c 33 38  |:.PRINT(":",0,38|
00001120  29 3a 57 25 3d bc 2d 31  0d 23 28 4d f1 3a 41 24  |):W%=.-1.#(M.:A$|
00001130  28 33 29 3d a4 49 4e 50  55 54 28 32 36 2c 57 25  |(3)=.INPUT(26,W%|
00001140  2c 30 29 3a 41 24 28 33  29 3d a4 41 4f 28 a4 43  |,0):A$(3)=.AO(.C|
00001150  48 45 43 4b 28 41 24 28  33 29 29 29 3a 41 24 28  |HECK(A$(3))):A$(|
00001160  33 29 3d a4 41 4e 53 28  a4 4c 45 41 44 28 41 24  |3)=.ANS(.LEAD(A$|
00001170  28 33 29 29 29 0d 23 8c  1d e7 41 24 28 33 29 3d  |(3))).#...A$(3)=|
00001180  22 22 20 f2 45 52 52 28  38 2c 32 29 3a e5 8d 54  |"" .ERR(8,2):..T|
00001190  68 63 0d 23 f0 4e f1 3a  f2 50 52 49 4e 54 28 22  |hc.#.N.:.PRINT("|
000011a0  50 6c 65 61 73 65 20 65  6e 74 65 72 20 61 6e 6f  |Please enter ano|
000011b0  74 68 65 72 20 22 2b a4  73 6d 28 41 24 28 32 29  |ther "+.sm(A$(2)|
000011c0  29 2c 30 2c 33 38 29 3a  f1 3a f2 50 52 49 4e 54  |),0,38):.:.PRINT|
000011d0  28 22 3a 22 2c 30 2c 39  29 3a 57 25 3d bc 2d 31  |(":",0,9):W%=.-1|
000011e0  0d 24 54 7c f1 3a 41 24  28 34 29 3d a4 49 4e 50  |.$T|.:A$(4)=.INP|
000011f0  55 54 28 32 36 2c 57 25  2c 30 29 3a 41 24 28 34  |UT(26,W%,0):A$(4|
00001200  29 3d a4 41 4f 28 a4 43  48 45 43 4b 28 41 24 28  |)=.AO(.CHECK(A$(|
00001210  34 29 29 29 3a 41 24 28  34 29 3d a4 41 4e 53 28  |4))):A$(4)=.ANS(|
00001220  a4 4c 45 41 44 28 41 24  28 34 29 29 29 3a e7 41  |.LEAD(A$(4))):.A|
00001230  24 28 34 29 3d 22 22 84  a4 73 6d 28 41 24 28 34  |$(4)=""..sm(A$(4|
00001240  29 29 3d a4 73 6d 28 41  24 28 33 29 29 f2 45 52  |))=.sm(A$(3)).ER|
00001250  52 28 38 2c 32 29 3a e5  8d 44 54 64 0d 24 b8 bc  |R(8,2):..DTd.$..|
00001260  db 3a f2 50 52 49 4e 54  28 22 50 6c 65 61 73 65  |.:.PRINT("Please|
00001270  20 67 69 76 65 20 6d 65  20 61 20 71 75 65 73 74  | give me a quest|
00001280  69 6f 6e 20 74 6f 20 74  65 6c 6c 20 74 68 65 22  |ion to tell the"|
00001290  2c 30 2c 33 38 29 3a f1  3a f2 50 52 49 4e 54 28  |,0,38):.:.PRINT(|
000012a0  22 64 69 66 66 65 72 65  6e 63 65 20 62 65 74 77  |"difference betw|
000012b0  65 65 6e 20 22 2b a4 56  4f 57 45 4c 28 41 24 28  |een "+.VOWEL(A$(|
000012c0  33 29 2c 31 29 2b 41 24  28 33 29 2c 30 2c 33 38  |3),1)+A$(3),0,38|
000012d0  29 3a f1 3a f2 50 52 49  4e 54 28 22 61 6e 64 20  |):.:.PRINT("and |
000012e0  22 2b a4 56 4f 57 45 4c  28 41 24 28 34 29 2c 31  |"+.VOWEL(A$(4),1|
000012f0  29 2b 41 24 28 34 29 2c  30 2c 33 38 29 3a f1 3a  |)+A$(4),0,38):.:|
00001300  3a f2 50 52 49 4e 54 28  22 3a 22 2c 30 2c 33 38  |:.PRINT(":",0,38|
00001310  29 3a 57 25 3d bc 2d 31  0d 25 1c 1e 44 24 3d a4  |):W%=.-1.%..D$=.|
00001320  4c 43 41 50 28 a4 49 4e  50 55 54 28 36 36 2c 57  |LCAP(.INPUT(66,W|
00001330  25 2c 2d 31 29 29 0d 25  80 26 e7 a9 44 24 3c 32  |%,-1)).%.&..D$<2|
00001340  8c f2 45 52 52 28 38 2c  31 29 3a e5 8d 54 5c 65  |..ERR(8,1):..T\e|
00001350  3a 8b 44 24 3d a4 51 55  28 44 24 29 0d 25 e4 42  |:.D$=.QU(D$).%.B|
00001360  db 3a f2 50 52 49 4e 54  28 a4 46 49 4e 44 49 54  |.:.PRINT(.FINDIT|
00001370  28 44 24 2c a4 56 4f 57  45 4c 28 41 24 28 33 29  |(D$,.VOWEL(A$(3)|
00001380  2c a4 43 41 50 53 28 44  24 29 29 2b 41 24 28 33  |,.CAPS(D$))+A$(3|
00001390  29 29 2b 22 20 3f 20 22  2c 30 2c 33 34 29 0d 26  |))+" ? ",0,34).&|
000013a0  48 19 51 25 3d a4 59 28  31 2c 38 29 3a e7 51 25  |H.Q%=.Y(1,8):.Q%|
000013b0  3d 30 8c 8d 54 50 67 0d  26 ac 21 41 24 3d 41 24  |=0..TPg.&.!A$=A$|
000013c0  28 34 29 3a 41 24 28 34  29 3d 41 24 28 33 29 3a  |(4):A$(4)=A$(3):|
000013d0  41 24 28 33 29 3d 41 24  0d 27 10 51 24 54 25 3d  |A$(3)=A$.'.Q$T%=|
000013e0  41 24 28 31 29 3a 54 25  3d 54 25 2b a9 24 54 25  |A$(1):T%=T%+.$T%|
000013f0  2b 31 3a 24 54 25 3d 41  24 28 32 29 3a 54 25 3d  |+1:$T%=A$(2):T%=|
00001400  54 25 2b a9 24 54 25 2b  31 3a 56 25 3d 54 25 3a  |T%+.$T%+1:V%=T%:|
00001410  24 56 25 3d 22 2a 22 2b  44 24 3a 56 25 3d a4 41  |$V%="*"+D$:V%=.A|
00001420  44 44 53 54 52 28 56 25  29 0d 27 74 21 50 25 3d  |DDSTR(V%).'t!P%=|
00001430  56 25 3a 56 25 3d 56 25  2b 38 3a 21 50 25 3d 28  |V%:V%=V%+8:!P%=(|
00001440  56 25 2d 54 25 29 84 4d  4b 25 0d 27 d8 2d 24 56  |V%-T%).MK%.'.-$V|
00001450  25 3d 41 24 28 33 29 3a  56 25 3d a4 41 44 44 53  |%=A$(3):V%=.ADDS|
00001460  54 52 28 56 25 29 3a 50  25 21 34 3d 28 56 25 2d  |TR(V%):P%!4=(V%-|
00001470  54 25 29 84 4d 4b 25 0d  28 3c 1c 24 56 25 3d 41  |T%).MK%.(<.$V%=A|
00001480  24 28 34 29 3a 56 25 3d  a4 41 44 44 53 54 52 28  |$(4):V%=.ADDSTR(|
00001490  56 25 29 0d 28 a0 11 21  56 25 3d 26 30 44 46 46  |V%).(..!V%=&0DFF|
000014a0  30 44 46 46 0d 29 04 0f  47 25 3d 54 25 3a e5 8d  |0DFF.)..G%=T%:..|
000014b0  74 7c 42 0d 29 cc 23 dd  f2 58 28 53 25 29 20 58  |t|B.).#..X(S%) X|
000014c0  25 3d 53 25 83 26 31 30  30 3a 59 25 3d 53 25 81  |%=S%.&100:Y%=S%.|
000014d0  26 31 30 30 3a e1 0d 2a  30 1a dd a4 43 45 4e 54  |&100:..*0...CENT|
000014e0  52 45 28 41 24 29 20 3d  31 37 2d a9 41 24 2f 32  |RE(A$) =17-.A$/2|
000014f0  0d 2a 94 48 dd f2 50 52  49 4e 54 28 24 57 53 25  |.*.H..PRINT($WS%|
00001500  2c 5a 25 2c 42 25 29 ea  42 24 3a e7 a9 24 57 53  |,Z%,B%).B$:..$WS|
00001510  25 2b 5a 25 3e 42 25 8c  8d 64 78 6a 3a 8b f1 c4  |%+Z%>B%..dxj:...|
00001520  5a 25 2c bd 39 29 3b 3a  d6 26 35 32 37 36 2c 57  |Z%,.9);:.&5276,W|
00001530  53 25 3a ef 31 30 3a e1  0d 2a f8 0e 41 25 3d 42  |S%:.10:..*..A%=B|
00001540  25 2b 31 2d 5a 25 0d 2b  5c 1c f5 41 25 3d 41 25  |%+1-Z%.+\..A%=A%|
00001550  2d 31 3a fd 57 53 25 3f  41 25 3d 33 32 84 41 25  |-1:.WS%?A%=32.A%|
00001560  3d 30 0d 2b c0 1f e7 c2  24 57 53 25 2c a9 24 57  |=0.+....$WS%,.$W|
00001570  53 25 2d 41 25 2d 31 29  3d 22 3f 22 8c 8d 44 5c  |S%-A%-1)="?"..D\|
00001580  6b 0d 2c 24 3b f2 50 52  49 4e 54 28 c0 24 57 53  |k.,$;.PRINT(.$WS|
00001590  25 2c 41 25 29 2c 30 2c  42 25 29 3a f1 3a f2 50  |%,A%),0,B%):.:.P|
000015a0  52 49 4e 54 28 c2 24 57  53 25 2c a9 24 57 53 25  |RINT(.$WS%,.$WS%|
000015b0  2d 41 25 2d 31 29 2c 30  2c 42 25 29 0d 2c 88 0a  |-A%-1),0,B%).,..|
000015c0  4a 25 3d 32 3a e1 0d 2c  ec 1e dd a4 49 4e 50 55  |J%=2:..,....INPU|
000015d0  54 28 5a 31 25 2c 56 31  25 2c 45 25 29 2a 46 58  |T(Z1%,V1%,E%)*FX|
000015e0  31 35 2c 31 0d 2c f6 0b  45 25 3d 45 25 2b b1 0d  |15,1.,..E%=E%+..|
000015f0  2d 50 47 ea 42 24 2c 43  25 2c 49 25 3a 43 25 3d  |-PG.B$,C%,I%:C%=|
00001600  30 3a f1 8a 32 2b 45 25  2c 56 31 25 2b 31 29 3b  |0:..2+E%,V1%+1);|
00001610  3a f2 4f 4e 3a f5 41 3d  97 be 3a f2 4f 46 46 3a  |:.ON:.A=..:.OFF:|
00001620  e7 28 41 3d 33 32 80 43  25 3d 30 29 84 41 3d 31  |.(A=32.C%=0).A=1|
00001630  33 8c 8d 64 5a 6f 0d 2d  b4 28 e7 41 3e 26 37 46  |3..dZo.-.(.A>&7F|
00001640  84 41 3c 33 32 84 41 3d  26 32 41 d4 31 37 2c 2d  |.A<32.A=&2A.17,-|
00001650  31 32 2c 31 30 30 2c 39  3a e5 8d 64 5a 6f 0d 2e  |12,100,9:..dZo..|
00001660  18 55 e7 41 3c 3e 31 32  37 8c 8d 64 60 6e 8b e7  |.U.A<>127..d`n..|
00001670  a9 42 24 3d 30 8c 8d 64  5a 6f 8b 42 24 3d c0 42  |.B$=0..dZo.B$=.B|
00001680  24 2c a9 42 24 2d 31 29  3a e7 b1 3d 30 8c ef 31  |$,.B$-1):..=0..1|
00001690  31 2c 38 2c 33 32 2c 38  2c 31 31 2c 33 32 2c 31  |1,8,32,8,11,32,1|
000016a0  30 3a 8b ef 38 2c 31 31  2c 33 32 2c 38 2c 31 30  |0:..8,11,32,8,10|
000016b0  2c 33 32 0d 2e 7c 14 ef  38 3a 43 25 3d 43 25 2d  |,32..|..8:C%=C%-|
000016c0  31 3a e5 8d 64 5a 6f 0d  2e e0 1f e7 a9 42 24 3d  |1:..dZo......B$=|
000016d0  5a 31 25 d4 31 37 2c 2d  31 32 2c 31 30 30 2c 39  |Z1%.17,-12,100,9|
000016e0  3a e5 8d 64 5a 6f 0d 2f  44 34 43 25 3d 43 25 2b  |:..dZo./D4C%=C%+|
000016f0  31 3a 42 24 3d 42 24 2b  bd 41 3a ef 31 31 3a 3f  |1:B$=B$+.A:.11:?|
00001700  26 35 37 44 37 3d 41 3a  d6 26 35 32 34 36 3a ef  |&57D7=A:.&5246:.|
00001710  31 30 3a e7 b1 3d 30 ef  31 30 0d 2f da 12 f2 4f  |10:..=0.10./...O|
00001720  4e 3a fd 41 3d 31 33 3a  f2 4f 46 46 0d 30 0c 11  |N:.A=13:.OFF.0..|
00001730  f5 43 25 3d a7 42 24 2c  22 20 20 22 29 0d 30 70  |.C%=.B$,"  ").0p|
00001740  1b e7 43 25 42 24 3d c0  42 24 2c 43 25 29 2b c1  |..C%B$=.B$,C%)+.|
00001750  42 24 2c 43 25 2b 32 29  0d 31 38 09 fd 43 25 3d  |B$,C%+2).18..C%=|
00001760  30 0d 31 9c 0f 3d a4 43  48 45 43 4b 28 42 24 29  |0.1..=.CHECK(B$)|
00001770  0d 32 00 56 dd a4 56 4f  57 45 4c 28 24 57 53 25  |.2.V..VOWEL($WS%|
00001780  2c 51 25 29 20 ea 53 24  3a 59 25 3d 2d 31 3a f5  |,Q%) .S$:Y%=-1:.|
00001790  59 25 3d 59 25 2b 31 3a  fd 41 31 3f 59 25 3d 28  |Y%=Y%+1:.A1?Y%=(|
000017a0  57 53 25 3f 30 80 26 44  46 29 84 59 25 3d 34 3a  |WS%?0.&DF).Y%=4:|
000017b0  e7 41 31 3f 59 25 3d 28  57 53 25 3f 30 80 26 44  |.A1?Y%=(WS%?0.&D|
000017c0  46 29 59 25 3d 30 0d 32  64 3d e7 59 25 3c 34 53  |F)Y%=0.2d=.Y%<4S|
000017d0  24 3d bd 28 36 35 84 20  33 32 2a 51 25 29 2b bd  |$=.(65. 32*Q%)+.|
000017e0  28 37 38 84 33 32 2a 51  25 29 2b 22 20 22 20 8b  |(78.32*Q%)+" " .|
000017f0  53 24 3d bd 28 36 35 84  20 33 32 2a 51 25 29 2b  |S$=.(65. 32*Q%)+|
00001800  22 20 22 0d 32 c8 07 3d  53 24 0d 33 2c 18 dd a4  |" ".2..=S$.3,...|
00001810  59 28 41 25 2c 55 25 29  3a 59 25 3d b1 3a 57 25  |Y(A%,U%):Y%=.:W%|
00001820  3d bc 0d 33 90 33 f1 8a  59 25 2c 57 25 29 3b 3a  |=..3.3..Y%,W%);:|
00001830  41 24 3d bd 28 97 a4 49  4e 50 55 54 28 33 2c bc  |A$=.(..INPUT(3,.|
00001840  2d 31 2c 2d 32 29 80 26  44 46 29 3a e7 41 24 3d  |-1,-2).&DF):.A$=|
00001850  22 59 22 3d 34 0d 33 f4  0d e7 41 24 3d 22 4e 22  |"Y"=4.3...A$="N"|
00001860  3d 30 0d 34 bc 0f f2 45  52 52 28 55 25 2c 59 25  |=0.4...ERR(U%,Y%|
00001870  29 0d 35 20 09 e5 8d 74  50 73 0d 35 84 1a dd a4  |).5 ...tPs.5....|
00001880  53 50 41 43 45 20 3d a7  24 57 53 25 2c 22 20 22  |SPACE =.$WS%," "|
00001890  2c 41 25 29 0d 35 e8 15  dd a4 46 49 4e 44 49 54  |,A%).5....FINDIT|
000018a0  28 24 57 53 25 2c 41 24  29 0d 36 b0 33 42 25 3d  |($WS%,A$).6.3B%=|
000018b0  a7 24 57 53 25 2c 22 20  49 54 22 29 3a e7 42 25  |.$WS%," IT"):.B%|
000018c0  3d 30 42 25 3d a7 24 57  53 25 2c 22 20 69 74 22  |=0B%=.$WS%," it"|
000018d0  29 3a e7 42 25 3d 30 8c  8d 44 78 77 0d 36 c4 25  |):.B%=0..Dxw.6.%|
000018e0  e7 57 53 25 3f 28 42 25  2b 32 29 3d 33 32 84 57  |.WS%?(B%+2)=32.W|
000018f0  53 25 3f 28 42 25 2b 32  29 3d 31 33 8c 8d 44 40  |S%?(B%+2)=13..D@|
00001900  78 0d 37 78 27 3d 22 57  68 61 74 20 77 6f 75 6c  |x.7x'="What woul|
00001910  64 20 74 68 65 20 61 6e  73 77 65 72 20 62 65 20  |d the answer be |
00001920  66 6f 72 20 22 2b 41 24  0d 38 40 23 3d c0 24 57  |for "+A$.8@#=.$W|
00001930  53 25 2c 42 25 29 2b 41  24 2b c2 24 57 53 25 2c  |S%,B%)+A$+.$WS%,|
00001940  a9 24 57 53 25 2d 42 25  2d 32 29 0d 38 a4 38 dd  |.$WS%-B%-2).8.8.|
00001950  f2 45 52 52 28 41 25 2c  42 25 29 ef 32 38 2c 42  |.ERR(A%,B%).28,B|
00001960  25 2c 33 31 2c 33 39 2c  bc 2b 28 41 25 2d 31 29  |%,31,39,.+(A%-1)|
00001970  3a db 3a ef 32 38 2c 30  2c 33 31 2c 33 39 2c 41  |:.:.28,0,31,39,A|
00001980  25 3a e1 0d 39 08 11 dd  a4 43 48 45 43 4b 28 24  |%:..9....CHECK($|
00001990  57 53 25 29 0d 39 6c 2b  e7 97 c2 24 57 53 25 2c  |WS%).9l+...$WS%,|
000019a0  31 29 3d 33 32 8c 24 57  53 25 3d c0 24 57 53 25  |1)=32.$WS%=.$WS%|
000019b0  2c a9 24 57 53 25 2d 31  29 3a e5 8d 44 6c 79 0d  |,.$WS%-1):..Dly.|
000019c0  39 d0 09 3d 24 57 53 25  0d 3a 34 2d 41 25 3d 31  |9..=$WS%.:4-A%=1|
000019d0  3a f5 57 53 25 3f 41 25  3d 57 53 25 3f 41 25 84  |:.WS%?A%=WS%?A%.|
000019e0  33 32 3a 41 25 3d 41 25  2b 31 3a fd 57 53 25 3f  |32:A%=A%+1:.WS%?|
000019f0  41 25 3d 31 33 0d 3a 98  09 3d 24 57 53 25 0d 3a  |A%=13.:..=$WS%.:|
00001a00  fc 15 dd a4 43 41 50 53  28 24 57 53 25 29 20 42  |....CAPS($WS%) B|
00001a10  25 3d 30 0d 3b 60 43 41  25 3d 42 25 2b 31 3a 42  |%=0.;`CA%=B%+1:B|
00001a20  25 3d a4 53 50 41 43 45  3a e7 c1 24 57 53 25 2c  |%=.SPACE:..$WS%,|
00001a30  42 25 2b 31 2c 33 29 3d  22 49 54 20 22 84 c1 24  |B%+1,3)="IT "..$|
00001a40  57 53 25 2c 42 25 2b 31  2c 33 29 3d 22 69 74 20  |WS%,B%+1,3)="it |
00001a50  22 8c 8d 74 4c 7c 0d 3b  c4 0f e7 42 25 3c 3e 30  |"..tL|.;...B%<>0|
00001a60  8c 8d 44 60 7b 0d 3c 28  06 3d 31 0d 3c 8c 17 3d  |..D`{.<(.=1.<..=|
00001a70  28 57 53 25 3f 28 42 25  2d 32 29 80 33 32 29 81  |(WS%?(B%-2).32).|
00001a80  33 32 0d 3c f0 19 dd f2  4f 4e 20 ef 32 33 2c 31  |32.<....ON .23,1|
00001a90  2c 31 3b 30 3b 30 3b 30  3b 3a e1 0d 3d 54 1a dd  |,1;0;0;0;:..=T..|
00001aa0  f2 4f 46 46 20 ef 32 33  2c 31 2c 30 3b 30 3b 30  |.OFF .23,1,0;0;0|
00001ab0  3b 30 3b 3a e1 0d 3d b8  38 dd a4 41 4f 28 24 57  |;0;:..=.8..AO($W|
00001ac0  53 25 29 20 41 24 3d c0  24 57 53 25 2c 32 29 3a  |S%) A$=.$WS%,2):|
00001ad0  e7 41 24 3d 22 41 20 22  84 41 24 3d 22 61 20 22  |.A$="A ".A$="a "|
00001ae0  24 57 53 25 3d c1 24 57  53 25 2c 33 29 0d 3e 1c  |$WS%=.$WS%,3).>.|
00001af0  39 41 24 3d c0 24 57 53  25 2c 33 29 3a e7 41 24  |9A$=.$WS%,3):.A$|
00001b00  3d 22 41 4e 20 22 84 41  24 3d 22 61 6e 20 22 84  |="AN ".A$="an ".|
00001b10  41 24 3d 22 41 6e 20 22  8c 24 57 53 25 3d c1 24  |A$="An ".$WS%=.$|
00001b20  57 53 25 2c 34 29 0d 3e  80 09 3d 24 57 53 25 0d  |WS%,4).>..=$WS%.|
00001b30  3e e4 1d dd a4 41 4e 53  28 24 57 53 25 29 20 e7  |>....ANS($WS%) .|
00001b40  a9 24 57 53 25 3c 32 8c  8d 50 50 40 0d 3f 48 1e  |.$WS%<2..PP@.?H.|
00001b50  e7 24 57 53 25 3d 22 59  45 53 22 84 24 57 53 25  |.$WS%="YES".$WS%|
00001b60  3d 22 4e 4f 22 8c 8d 50  50 40 0d 3f 52 1e e7 24  |="NO"..PP@.?R..$|
00001b70  57 53 25 3d 22 79 65 73  22 84 24 57 53 25 3d 22  |WS%="yes".$WS%="|
00001b80  6e 6f 22 8c 8d 50 50 40  0d 3f 5c 1e e7 24 57 53  |no"..PP@.?\..$WS|
00001b90  25 3d 22 59 65 73 22 84  24 57 53 25 3d 22 4e 6f  |%="Yes".$WS%="No|
00001ba0  22 8c 8d 50 50 40 0d 3f  ac 09 3d 24 57 53 25 0d  |"..PP@.?..=$WS%.|
00001bb0  40 10 07 3d 22 22 0d 40  74 10 dd a4 4c 45 41 44  |@..="".@t...LEAD|
00001bc0  28 24 57 53 25 29 0d 40  d8 1f e7 3f 57 53 25 3d  |($WS%).@...?WS%=|
00001bd0  33 32 24 57 53 25 3d c2  24 57 53 25 2c 32 29 3a  |32$WS%=.$WS%,2):|
00001be0  e5 8d 60 58 40 0d 41 3c  09 3d 24 57 53 25 0d 41  |..`X@.A<.=$WS%.A|
00001bf0  a0 23 dd a4 4c 43 41 50  28 24 57 53 25 29 3f 57  |.#..LCAP($WS%)?W|
00001c00  53 25 3d 3f 57 53 25 80  26 44 46 3a 3d 24 57 53  |S%=?WS%.&DF:=$WS|
00001c10  25 0d 42 04 0c dd a4 51  55 28 41 24 29 0d 42 68  |%.B....QU(A$).Bh|
00001c20  27 e7 c2 41 24 2c 31 29  3d 22 3f 22 8c 3d a4 43  |'..A$,1)="?".=.C|
00001c30  48 45 43 4b 28 c0 41 24  2c a9 41 24 2d 31 29 29  |HECK(.A$,.A$-1))|
00001c40  8b 3d 41 24 0d 43 94 1e  dd a4 41 44 44 53 54 52  |.=A$.C....ADDSTR|
00001c50  28 57 53 25 29 20 3d a9  24 57 53 25 2b 31 2b 57  |(WS%) =.$WS%+1+W|
00001c60  53 25 0d 43 f8 1d ef 33  3a e7 9f 3d 31 37 84 20  |S%.C...3:..=17. |
00001c70  9f 3d 34 8c 8d 74 7c 42  8b f6 3a 2a 46 58 34 0d  |.=4..t|B..:*FX4.|
00001c80  44 5c 08 f1 9e 3a fa 0d  44 c0 2b db 3a f2 56 48  |D\...:..D.+.:.VH|
00001c90  3a f1 27 3a f2 50 52 49  4e 54 28 22 44 6f 20 79  |:.':.PRINT("Do y|
00001ca0  6f 75 20 77 69 73 68 20  74 6f 3a 22 2c 30 2c 33  |ou wish to:",0,3|
00001cb0  38 29 0d 45 24 28 f1 27  3a f2 50 52 49 4e 54 28  |8).E$(.':.PRINT(|
00001cc0  22 31 20 20 20 45 64 69  74 20 71 75 65 73 74 69  |"1   Edit questi|
00001cd0  6f 6e 73 22 2c 34 2c 33  38 29 0d 45 88 48 f1 3a  |ons",4,38).E.H.:|
00001ce0  f2 50 52 49 4e 54 28 22  32 20 20 20 45 64 69 74  |.PRINT("2   Edit|
00001cf0  20 61 6e 73 77 65 72 73  22 2c 34 2c 33 38 29 3a  | answers",4,38):|
00001d00  f1 3a f2 50 52 49 4e 54  28 22 33 20 20 20 44 65  |.:.PRINT("3   De|
00001d10  6c 65 74 65 20 61 20 6e  6f 64 65 22 2c 34 2c 33  |lete a node",4,3|
00001d20  38 29 0d 45 92 48 f1 27  3a f2 50 52 49 4e 54 28  |8).E.H.':.PRINT(|
00001d30  22 28 20 55 53 45 20 31  20 2f 20 32 20 2f 20 33  |"( USE 1 / 2 / 3|
00001d40  20 2f 20 4e 20 29 22 2c  37 2c 33 38 29 3a f1 3a  | / N )",7,38):.:|
00001d50  f2 50 52 49 4e 54 28 22  3f 20 20 20 22 2c 30 2c  |.PRINT("?   ",0,|
00001d60  33 38 29 3a 57 25 3d bc  2d 31 0d 45 ec 1b f1 3a  |38):W%=.-1.E...:|
00001d70  41 25 3d 97 a4 49 4e 50  55 54 28 31 2c 57 25 2c  |A%=..INPUT(1,W%,|
00001d80  30 29 2d 34 38 0d 46 50  15 e7 41 25 3d 33 30 84  |0)-48.FP..A%=30.|
00001d90  41 25 3d 36 32 8c 8d 50  70 75 0d 46 b4 1d e7 41  |A%=62..Ppu.F...A|
00001da0  25 3e 33 84 41 25 3c 31  f2 45 52 52 28 30 2c 32  |%>3.A%<1.ERR(0,2|
00001db0  29 3a e5 8d 60 6c 45 0d  46 be 16 ee 41 25 e5 8d  |):..`lE.F...A%..|
00001dc0  70 44 49 2c 8d 70 7c 4d  2c 8d 40 6a 54 0d 47 e0  |pDI,.p|M,.@jT.G.|
00001dd0  24 dd f2 51 50 52 49 4e  54 20 44 25 3d 30 3a ef  |$..QPRINT D%=0:.|
00001de0  32 36 2c 31 32 3a f1 27  3a f5 44 25 3d 44 25 2b  |26,12:.':.D%=D%+|
00001df0  31 0d 48 44 10 52 25 21  28 44 25 2a 34 29 3d 50  |1.HD.R%!(D%*4)=P|
00001e00  25 0d 48 a8 63 e7 50 25  3d 47 25 2b 31 8c f2 50  |%.H.c.P%=G%+1..P|
00001e10  52 49 4e 54 28 c3 28 44  25 29 2b 22 20 20 22 2b  |RINT(.(D%)+"  "+|
00001e20  24 50 25 2b 22 20 3f 22  2c 30 2c 33 38 29 3a f1  |$P%+" ?",0,38):.|
00001e30  3a 50 25 3d a4 41 44 44  53 54 52 28 a4 41 44 44  |:P%=.ADDSTR(.ADD|
00001e40  53 54 52 28 a4 41 44 44  53 54 52 28 a4 41 44 44  |STR(.ADDSTR(.ADD|
00001e50  53 54 52 28 50 25 29 2b  38 29 29 29 2b 31 3a e5  |STR(P%)+8)))+1:.|
00001e60  8d 40 70 49 0d 49 0c 42  f2 50 52 49 4e 54 28 c3  |.@pI.I.B.PRINT(.|
00001e70  28 44 25 29 2b 22 20 20  22 2b 24 50 25 2b 22 20  |(D%)+"  "+$P%+" |
00001e80  3f 22 2c 30 2c 33 38 29  3a f1 3a 50 25 3d a4 41  |?",0,38):.:P%=.A|
00001e90  44 44 53 54 52 28 a4 41  44 44 53 54 52 28 50 25  |DDSTR(.ADDSTR(P%|
00001ea0  29 2b 38 29 2b 31 0d 49  70 52 fd 44 25 3d 34 20  |)+8)+1.IpR.D%=4 |
00001eb0  84 20 3f 28 50 25 2d 31  29 3c 3e 34 32 3a 44 25  |. ?(P%-1)<>42:D%|
00001ec0  3d 44 25 2b 31 3a f2 50  52 49 4e 54 28 c3 28 44  |=D%+1:.PRINT(.(D|
00001ed0  25 29 2b 22 20 20 4e 6f  6e 65 20 6f 66 20 74 68  |%)+"  None of th|
00001ee0  65 73 65 20 71 75 65 73  74 69 6f 6e 73 22 2c 30  |ese questions",0|
00001ef0  2c 33 38 29 3a f1 3a e1  0d 49 84 0b 50 25 3d 47  |,38):.:..I..P%=G|
00001f00  25 2b 31 0d 49 8e 0b f2  51 50 52 49 4e 54 0d 49  |%+1.I...QPRINT.I|
00001f10  d4 38 f2 50 52 49 4e 54  28 22 57 68 69 63 68 20  |.8.PRINT("Which |
00001f20  77 6f 75 6c 64 20 79 6f  75 20 6c 69 6b 65 20 74  |would you like t|
00001f30  6f 20 65 64 69 74 20 3f  22 2c 30 2c 33 34 29 3a  |o edit ?",0,34):|
00001f40  57 25 3d bc 2d 31 0d 4a  38 44 4c 25 3d 97 a4 49  |W%=.-1.J8DL%=..I|
00001f50  4e 50 55 54 28 31 2c 57  25 2c 2d 31 29 2d 34 38  |NPUT(1,W%,-1)-48|
00001f60  3a e7 4c 25 3d 2d 34 39  8c 8d 40 58 4d 8b e7 4c  |:.L%=-49..@XM..L|
00001f70  25 3c 31 84 4c 25 3e 44  25 8c f2 45 52 52 28 30  |%<1.L%>D%..ERR(0|
00001f80  2c 33 30 29 3a e5 8d 50  78 4a 0d 4a 9c 0f e7 4c  |,30):..PxJ.J...L|
00001f90  25 3d 44 25 8c 8d 40 58  4d 0d 4b 00 76 db 3a f1  |%=D%..@XM.K.v.:.|
00001fa0  3a f2 50 52 49 4e 54 28  24 28 52 25 21 28 4c 25  |:.PRINT($(R%!(L%|
00001fb0  2a 34 29 29 2b 22 20 3f  22 2c 30 2c 33 38 29 3a  |*4))+" ?",0,38):|
00001fc0  f1 3a f2 50 52 49 4e 54  28 22 50 6c 65 61 73 65  |.:.PRINT("Please|
00001fd0  20 74 79 70 65 20 69 6e  20 74 68 65 20 63 6f 72  | type in the cor|
00001fe0  72 65 63 74 65 64 20 76  65 72 73 69 6f 6e 22 2c  |rected version",|
00001ff0  30 2c 33 38 29 3a f1 3a  f2 50 52 49 4e 54 28 22  |0,38):.:.PRINT("|
00002000  3a 22 2c 30 2c 33 38 29  3a 57 25 3d bc 2d 31 0d  |:",0,38):W%=.-1.|
00002010  4b 64 25 24 57 53 25 3d  a4 51 55 28 a4 4c 43 41  |Kd%$WS%=.QU(.LCA|
00002020  50 28 a4 49 4e 50 55 54  28 36 36 2c 57 25 2c 2d  |P(.INPUT(66,W%,-|
00002030  31 29 29 29 0d 4b c8 1c  e7 a9 24 57 53 25 3c 32  |1))).K....$WS%<2|
00002040  3a f2 45 52 52 28 30 2c  31 29 3a e5 8d 40 64 4b  |:.ERR(0,1):..@dK|
00002050  0d 4c 2c 1e d6 26 35 35  46 30 2c 47 25 2c 56 25  |.L,..&55F0,G%,V%|
00002060  2c 57 53 25 2c 52 25 21  28 4c 25 2a 34 29 0d 4c  |,WS%,R%!(L%*4).L|
00002070  90 29 e7 3f 26 37 42 3e  31 32 37 8c 56 25 3d 56  |.).?&7B>127.V%=V|
00002080  25 2b 28 32 35 36 2d 3f  26 37 42 29 8b 56 25 3d  |%+(256-?&7B).V%=|
00002090  56 25 2d 3f 26 37 42 0d  4c f4 09 e5 8d 60 40 44  |V%-?&7B.L....`@D|
000020a0  0d 4d 58 1b e7 3f 28 50  25 2d 31 29 3d 34 32 8c  |.MX..?(P%-1)=42.|
000020b0  8d 70 4e 49 8b 20 e5 8d  60 40 44 0d 4d bc 0b 50  |.pNI. ..`@D.M..P|
000020c0  25 3d 47 25 2b 31 0d 4e  20 0d 44 25 3d 30 3a 46  |%=G%+1.N .D%=0:F|
000020d0  25 3d 30 0d 4e 84 15 50  31 25 3d a4 41 44 44 53  |%=0.N..P1%=.ADDS|
000020e0  54 52 28 50 25 29 2b 38  0d 4e e8 1f 52 25 21 34  |TR(P%)+8.N..R%!4|
000020f0  3d 50 31 25 3a ef 32 36  2c 31 32 3a f1 27 3a f5  |=P1%:.26,12:.':.|
00002100  44 25 3d 44 25 2b 31 0d  4f 4c 53 e7 50 25 3d 47  |D%=D%+1.OLS.P%=G|
00002110  25 2b 31 f2 50 52 49 4e  54 28 c3 28 44 25 29 2b  |%+1.PRINT(.(D%)+|
00002120  22 20 20 22 2b 24 50 31  25 2c 30 2c 33 38 29 3a  |"  "+$P1%,0,38):|
00002130  f1 3a 50 31 25 3d a4 41  44 44 53 54 52 28 50 31  |.:P1%=.ADDSTR(P1|
00002140  25 29 3a 52 25 21 28 28  44 25 2b 31 29 2a 34 29  |%):R%!((D%+1)*4)|
00002150  3d 50 31 25 3a e5 8d 50  54 50 0d 4f b0 56 50 25  |=P1%:..PTP.O.VP%|
00002160  3d 50 31 25 3a f2 50 52  49 4e 54 28 c3 28 44 25  |=P1%:.PRINT(.(D%|
00002170  29 2b 22 20 20 22 2b 24  50 25 2c 30 2c 33 38 29  |)+"  "+$P%,0,38)|
00002180  3a f1 3a 50 31 25 3d a4  41 44 44 53 54 52 28 a4  |:.:P1%=.ADDSTR(.|
00002190  41 44 44 53 54 52 28 50  31 25 29 29 2b 38 3a 52  |ADDSTR(P1%))+8:R|
000021a0  25 21 28 28 44 25 2b 31  29 2a 34 29 3d 50 31 25  |%!((D%+1)*4)=P1%|
000021b0  0d 50 14 10 e7 44 25 3e  31 8c 50 25 3d 50 31 25  |.P...D%>1.P%=P1%|
000021c0  0d 50 78 12 fd 44 25 3d  34 84 3f 50 31 25 3d 26  |.Px..D%=4.?P1%=&|
000021d0  46 46 0d 50 dc 6f 44 25  3d 44 25 2b 31 3a f2 50  |FF.P.oD%=D%+1:.P|
000021e0  52 49 4e 54 28 c3 28 44  25 29 2b 22 20 20 4e 6f  |RINT(.(D%)+"  No|
000021f0  6e 65 20 6f 66 20 74 68  65 73 65 20 61 6e 73 77  |ne of these answ|
00002200  65 72 73 22 2c 30 2c 33  38 29 3a f1 3a f2 50 52  |ers",0,38):.:.PR|
00002210  49 4e 54 28 22 57 68 69  63 68 20 77 6f 75 6c 64  |INT("Which would|
00002220  20 79 6f 75 20 6c 69 6b  65 20 74 6f 20 65 64 69  | you like to edi|
00002230  74 20 3f 22 2c 30 2c 33  34 29 3a 57 25 3d bc 2d  |t ?",0,34):W%=.-|
00002240  31 0d 51 40 44 4c 25 3d  97 a4 49 4e 50 55 54 28  |1.Q@DL%=..INPUT(|
00002250  31 2c 57 25 2c 2d 31 29  2d 34 38 3a e7 4c 25 3d  |1,W%,-1)-48:.L%=|
00002260  2d 34 39 8c 8d 40 60 54  8b e7 4c 25 3c 31 84 4c  |-49..@`T..L%<1.L|
00002270  25 3e 44 25 8c f2 45 52  52 28 30 2c 33 30 29 3a  |%>D%..ERR(0,30):|
00002280  e5 8d 40 40 51 0d 51 a4  0f e7 4c 25 3d 44 25 8c  |..@@Q.Q...L%=D%.|
00002290  8d 40 60 54 0d 52 08 21  db 3a f1 3a f2 50 52 49  |.@`T.R.!.:.:.PRI|
000022a0  4e 54 28 24 28 52 25 21  28 4c 25 2a 34 29 29 2c  |NT($(R%!(L%*4)),|
000022b0  30 2c 33 38 29 0d 52 6c  53 f1 3a f2 50 52 49 4e  |0,38).RlS.:.PRIN|
000022c0  54 28 22 50 6c 65 61 73  65 20 74 79 70 65 20 69  |T("Please type i|
000022d0  6e 20 74 68 65 20 63 6f  72 72 65 63 74 65 64 20  |n the corrected |
000022e0  76 65 72 73 69 6f 6e 22  2c 30 2c 33 38 29 3a f1  |version",0,38):.|
000022f0  3a f2 50 52 49 4e 54 28  22 3a 22 2c 30 2c 33 38  |:.PRINT(":",0,38|
00002300  29 3a 57 25 3d bc 2d 31  0d 52 d0 43 24 57 53 25  |):W%=.-1.R.C$WS%|
00002310  3d a4 41 4e 53 28 a4 41  4f 28 a4 4c 45 41 44 28  |=.ANS(.AO(.LEAD(|
00002320  a4 49 4e 50 55 54 28 33  31 2c 57 25 2c 2d 31 29  |.INPUT(31,W%,-1)|
00002330  29 29 29 3a e7 24 57 53  25 3d 22 22 f2 45 52 52  |))):.$WS%="".ERR|
00002340  28 30 2c 31 29 3a e5 8d  60 50 52 0d 53 34 1e d6  |(0,1):..`PR.S4..|
00002350  26 35 35 46 30 2c 47 25  2c 56 25 2c 57 53 25 2c  |&55F0,G%,V%,WS%,|
00002360  52 25 21 28 4c 25 2a 34  29 0d 53 98 29 e7 3f 26  |R%!(L%*4).S.).?&|
00002370  37 42 3e 31 32 37 8c 56  25 3d 56 25 2b 28 32 35  |7B>127.V%=V%+(25|
00002380  36 2d 3f 26 37 42 29 8b  56 25 3d 56 25 2d 3f 26  |6-?&7B).V%=V%-?&|
00002390  37 42 0d 53 fc 09 e5 8d  60 40 44 0d 54 60 1f e7  |7B.S....`@D.T`..|
000023a0  3f 50 31 25 3c 3e 26 46  46 20 44 25 3d 30 3a e5  |?P1%<>&FF D%=0:.|
000023b0  8d 60 68 4e 3a 8b 8d 60  40 44 0d 54 6a 45 50 25  |.`hN:..`@D.TjEP%|
000023c0  3d a4 41 44 44 53 54 52  28 a4 41 44 44 53 54 52  |=.ADDSTR(.ADDSTR|
000023d0  28 a4 41 44 44 53 54 52  28 a4 41 44 44 53 54 52  |(.ADDSTR(.ADDSTR|
000023e0  28 47 25 2b 31 29 2b 38  29 29 29 2b 31 3a e7 3f  |(G%+1)+8)))+1:.?|
000023f0  28 50 25 2d 31 29 3c 3e  34 32 8c 8d 60 40 44 0d  |(P%-1)<>42..`@D.|
00002400  54 74 0b f2 51 50 52 49  4e 54 0d 54 7e 3a f2 50  |Tt..QPRINT.T~:.P|
00002410  52 49 4e 54 28 22 57 68  69 63 68 20 77 6f 75 6c  |RINT("Which woul|
00002420  64 20 79 6f 75 20 6c 69  6b 65 20 74 6f 20 64 65  |d you like to de|
00002430  6c 65 74 65 20 3f 22 2c  30 2c 33 34 29 3a 57 25  |lete ?",0,34):W%|
00002440  3d bc 2d 31 0d 54 88 43  4c 25 3d 97 a4 49 4e 50  |=.-1.T.CL%=..INP|
00002450  55 54 28 31 2c 57 25 2c  2d 31 29 2d 34 38 3a e7  |UT(1,W%,-1)-48:.|
00002460  4c 25 3d 2d 34 39 8c 8d  70 7a 54 8b e7 4c 25 3c  |L%=-49..pzT..L%<|
00002470  31 84 4c 25 3e 44 25 f2  45 52 52 28 30 2c 33 32  |1.L%>D%.ERR(0,32|
00002480  29 3a e5 8d 70 48 54 0d  54 92 0f e7 4c 25 3d 44  |):..pHT.T...L%=D|
00002490  25 8c 8d 70 7a 54 0d 54  9c 9c 4f 25 3d 52 25 21  |%..pzT.T..O%=R%!|
000024a0  28 4c 25 2a 34 29 2d 31  3a 53 25 3d 34 30 3a e3  |(L%*4)-1:S%=40:.|
000024b0  59 25 3d 30 b8 32 30 3a  52 25 3f 59 25 3d 26 46  |Y%=0.20:R%?Y%=&F|
000024c0  46 3a ed 3a 52 25 3f 30  3d 30 3a db 3a f2 50 52  |F:.:R%?0=0:.:.PR|
000024d0  49 4e 54 28 22 50 72 65  73 73 20 74 68 65 20 53  |INT("Press the S|
000024e0  48 49 46 54 20 6b 65 79  20 65 61 63 68 20 74 69  |HIFT key each ti|
000024f0  6d 65 20 66 6f 72 20 74  68 65 20 6e 65 78 74 20  |me for the next |
00002500  70 61 67 65 22 2c 30 2c  33 38 29 3a 4e 4f 57 3d  |page",0,38):NOW=|
00002510  91 3a f5 fd 91 2d 4e 4f  57 3e 32 35 30 3a db 3a  |.:...-NOW>250:.:|
00002520  ef 31 34 3a f2 52 45 41  44 28 4f 25 2c 31 2c 34  |.14:.READ(O%,1,4|
00002530  32 29 0d 54 a1 5a f1 3a  ef 31 35 3a f2 50 52 49  |2).T.Z.:.15:.PRI|
00002540  4e 54 28 22 44 6f 20 79  6f 75 20 77 61 6e 74 20  |NT("Do you want |
00002550  74 6f 20 64 65 6c 65 74  65 20 74 68 65 20 59 20  |to delete the Y |
00002560  6f 72 20 74 68 65 20 4e  20 62 72 61 6e 63 68 20  |or the N branch |
00002570  28 55 73 65 20 59 20 6f  72 20 4e 29 20 3f 22 2c  |(Use Y or N) ?",|
00002580  30 2c 33 38 29 3a 57 25  3d bc 2d 31 0d 54 a6 1a  |0,38):W%=.-1.T..|
00002590  41 25 3d 97 a4 49 4e 50  55 54 28 31 2c 57 25 2c  |A%=..INPUT(1,W%,|
000025a0  2d 31 29 84 33 32 0d 54  ab 25 e7 41 25 3c 3e 31  |-1).32.T.%.A%<>1|
000025b0  32 31 80 41 25 3c 3e 31  31 30 8c f2 45 52 52 28  |21.A%<>110..ERR(|
000025c0  30 2c 32 31 29 3a e5 8d  70 66 54 0d 54 b0 38 21  |0,21):..pfT.T.8!|
000025d0  56 25 3d 30 3a e7 41 25  3d 31 32 31 4a 25 3d 34  |V%=0:.A%=121J%=4|
000025e0  3a 50 25 3d 21 28 a4 41  44 44 53 54 52 28 4f 25  |:P%=!(.ADDSTR(O%|
000025f0  29 2b 34 29 2b 47 25 3a  8b 4a 25 3d 30 3a 50 25  |)+4)+G%:.J%=0:P%|
00002600  3d 4f 25 0d 54 b1 13 5a  25 3d 30 3a f2 44 45 4c  |=O%.T..Z%=0:.DEL|
00002610  28 50 25 2c 31 29 0d 54  b2 23 3f 4f 25 3d 26 45  |(P%,1).T.#?O%=&E|
00002620  46 3a 52 25 21 5a 25 3d  28 4f 25 2d 47 25 29 3a  |F:R%!Z%=(O%-G%):|
00002630  5a 25 3d 5a 25 81 34 2b  31 0d 54 b3 26 d6 26 35  |Z%=Z%.4+1.T.&.&5|
00002640  32 42 44 2c 47 25 2c 56  25 2c 52 25 2c 5a 25 3a  |2BD,G%,V%,R%,Z%:|
00002650  56 25 3d 21 28 26 37 32  29 80 26 46 46 46 46 0d  |V%=!(&72).&FFFF.|
00002660  54 b6 16 21 56 25 3d 26  44 46 46 30 44 46 46 3a  |T..!V%=&DFF0DFF:|
00002670  e5 8d 60 40 44 0d 54 ba  1b e7 3f 28 50 25 2d 31  |..`@D.T...?(P%-1|
00002680  29 3d 34 32 8c 8d 40 74  54 8b 20 e5 8d 60 40 44  |)=42..@tT. ..`@D|
00002690  0d 54 bb 2c dd f2 44 45  4c 28 50 25 2c 54 25 29  |.T.,..DEL(P%,T%)|
000026a0  e7 54 25 3d 31 e7 4a 25  3d 30 8c 8d 60 41 54 8b  |.T%=1.J%=0..`AT.|
000026b0  e7 3f 50 25 3d 34 32 8c  8d 70 7e 54 0d 54 bc 0b  |.?P%=42..p~T.T..|
000026c0  3f 50 25 3d 26 45 46 0d  54 bd 05 e1 0d 54 be 22  |?P%=&EF.T....T."|
000026d0  f2 44 45 4c 28 21 28 a4  41 44 44 53 54 52 28 50  |.DEL(!(.ADDSTR(P|
000026e0  25 29 2b 34 29 2b 47 25  2c 54 25 2b 31 29 0d 54  |%)+4)+G%,T%+1).T|
000026f0  bf 21 3f 50 25 3d 26 45  46 3a 52 25 21 5a 25 3d  |.!?P%=&EF:R%!Z%=|
00002700  28 50 25 2d 47 25 29 3a  5a 25 3d 5a 25 2b 34 0d  |(P%-G%):Z%=Z%+4.|
00002710  54 c1 1e f2 44 45 4c 28  21 a4 41 44 44 53 54 52  |T...DEL(!.ADDSTR|
00002720  28 50 25 29 2b 47 25 2c  54 25 2b 31 29 0d 54 c2  |(P%)+G%,T%+1).T.|
00002730  05 e1 0d 54 c4 3e db 3a  f2 50 52 49 4e 54 28 22  |...T.>.:.PRINT("|
00002740  57 6f 75 6c 64 20 79 6f  75 20 6c 69 6b 65 20 74  |Would you like t|
00002750  6f 20 73 61 76 65 20 74  68 69 73 20 74 72 65 65  |o save this tree|
00002760  20 3f 22 2c 30 2c 33 34  29 3a 57 25 3d bc 2d 31  | ?",0,34):W%=.-1|
00002770  0d 55 28 28 41 24 3d bd  28 97 a4 49 4e 50 55 54  |.U((A$=.(..INPUT|
00002780  28 33 2c 57 25 2c 2d 32  29 80 26 44 46 29 3a e7  |(3,W%,-2).&DF):.|
00002790  41 24 3d 22 4e 22 20 f9  0d 55 8c 1c e7 41 24 3c  |A$="N" ..U...A$<|
000027a0  3e 22 59 22 f2 45 52 52  28 38 2c 33 35 29 3a e5  |>"Y".ERR(8,35):.|
000027b0  8d 50 68 55 0d 55 f0 40  db 3a f2 50 52 49 4e 54  |.PhU.U.@.:.PRINT|
000027c0  28 22 57 68 61 74 20 6e  61 6d 65 20 73 68 61 6c  |("What name shal|
000027d0  6c 20 49 20 67 69 76 65  20 74 6f 20 74 68 65 20  |l I give to the |
000027e0  66 69 6c 65 20 3f 22 2c  30 2c 33 34 29 3a 57 25  |file ?",0,34):W%|
000027f0  3d bc 2d 31 0d 56 54 36  24 57 53 25 3d a4 43 48  |=.-1.VT6$WS%=.CH|
00002800  45 43 4b 28 a4 49 4e 50  55 54 28 31 30 2c 57 25  |ECK(.INPUT(10,W%|
00002810  2c 2d 31 29 29 3a e7 24  57 53 25 3d 22 22 8c 24  |,-1)):.$WS%="".$|
00002820  57 53 25 3d 22 4e 55 4c  4c 22 0d 56 b8 25 24 57  |WS%="NULL".V.%$W|
00002830  53 25 3d 22 53 2e 22 2b  24 57 53 25 2b 22 20 22  |S%="S."+$WS%+" "|
00002840  2b c3 7e 54 56 25 2b 22  20 22 2b c3 7e 56 25 0d  |+.~TV%+" "+.~V%.|
00002850  57 1c 35 21 54 56 25 3d  28 56 25 2d 54 56 25 29  |W.5!TV%=(V%-TV%)|
00002860  3a f2 58 28 57 53 25 29  3a db 3a f1 22 53 41 56  |:.X(WS%):.:."SAV|
00002870  49 4e 47 22 3a f2 4f 4e  3a d6 26 46 46 46 37 3a  |ING":.ON:.&FFF7:|
00002880  f2 4f 46 46 0d 57 80 09  e5 8d 50 70 75 0d 57 e4  |.OFF.W....Ppu.W.|
00002890  0e dd f2 46 49 4e 44 28  41 24 29 0d 58 48 11 5a  |...FIND(A$).XH.Z|
000028a0  25 3d 90 3a f5 41 25 3d  5a 25 2b 34 0d 58 ac 25  |%=.:.A%=Z%+4.X.%|
000028b0  e7 a9 24 41 25 3e 3d a9  41 24 e7 a7 24 41 25 2c  |..$A%>=.A$..$A%,|
000028c0  41 24 29 f1 5a 25 3f 31  2a 32 35 36 2b 5a 25 3f  |A$).Z%?1*256+Z%?|
000028d0  32 0d 59 10 1a 5a 25 3d  5a 25 2b 5a 25 3f 33 3a  |2.Y..Z%=Z%+Z%?3:|
000028e0  fd 5a 25 3f 31 3e 26 37  46 3a e1 0d 59 1a 23 dd  |.Z%?1>&7F:..Y.#.|
000028f0  f2 74 28 54 25 29 e3 59  25 3d 30 b8 54 25 3a e7  |.t(T%).Y%=0.T%:.|
00002900  52 25 3f 59 25 3d 26 46  46 8c 8d 50 6e 59 0d 59  |R%?Y%=&FF..PnY.Y|
00002910  24 1b f1 c4 28 52 25 3f  59 25 29 2a 32 2d b1 2c  |$...(R%?Y%)*2-.,|
00002920  22 20 22 29 3b 22 21 22  3b 0d 59 2e 07 ed 3a e1  |" ");"!";.Y...:.|
00002930  0d 59 38 18 dd f2 56 48  20 ef 32 38 2c 30 2c 33  |.Y8...VH .28,0,3|
00002940  31 2c 33 39 2c 30 3a e1  0d 59 42 18 dd f2 56 4c  |1,39,0:..YB...VL|
00002950  20 ef 32 38 2c 30 2c 33  31 2c 33 39 2c 38 3a e1  | .28,0,31,39,8:.|
00002960  0d 6f 54 32 dd a4 43 48  4f 50 28 41 24 2c 46 25  |.oT2..CHOP(A$,F%|
00002970  2c 44 25 29 ea 41 25 3a  41 25 3d 44 25 2d 46 25  |,D%).A%:A%=D%-F%|
00002980  3a e7 a9 41 24 3c 41 25  8c 42 24 3d 22 22 3a 3d  |:..A$<A%.B$="":=|
00002990  41 24 0d 6f 86 20 f5 41  25 3d 41 25 2d 31 3a fd  |A$.o. .A%=A%-1:.|
000029a0  c1 41 24 2c 41 25 2c 31  29 3d 22 20 22 84 41 25  |.A$,A%,1)=" ".A%|
000029b0  3d 30 0d 6f b8 22 e7 a9  41 24 2d 41 25 3e 30 42  |=0.o."..A$-A%>0B|
000029c0  24 3d c2 41 24 2c a9 41  24 2d 41 25 29 8b 42 24  |$=.A$,.A$-A%).B$|
000029d0  3d 22 20 22 0d 6f ea 18  e7 42 24 3d 22 3f 22 84  |=" ".o...B$="?".|
000029e0  42 24 3d 22 20 3f 22 8c  8d 70 46 6f 0d 6f f4 1b  |B$=" ?"..pFo.o..|
000029f0  e7 41 24 3d 22 20 20 20  20 22 84 41 24 3d 22 20  |.A$="    ".A$=" |
00002a00  20 22 8c 8d 50 66 70 0d  70 1c 14 e7 41 25 3c 3e  | "..Pfp.p...A%<>|
00002a10  30 3d c0 41 24 2c 41 25  2d 31 29 0d 70 26 10 42  |0=.A$,A%-1).p&.B|
00002a20  24 3d 22 22 3a 3d 22 65  74 63 22 0d 75 30 09 f2  |$="":="etc".u0..|
00002a30  56 48 3a db 0d 75 3a 2b  f1 27 3a f2 4f 46 46 3a  |VH:..u:+.':.OFF:|
00002a40  f2 50 52 49 4e 54 28 41  24 28 31 29 2c a4 43 45  |.PRINT(A$(1),.CE|
00002a50  4e 54 52 45 28 41 24 28  31 29 29 2c 33 38 29 0d  |NTRE(A$(1)),38).|
00002a60  75 44 31 f1 27 3a f2 50  52 49 4e 54 28 22 57 68  |uD1.':.PRINT("Wh|
00002a70  61 74 20 77 6f 75 6c 64  20 79 6f 75 20 6c 69 6b  |at would you lik|
00002a80  65 20 74 6f 20 64 6f 20  3a 22 2c 30 2c 33 38 29  |e to do :",0,38)|
00002a90  0d 75 4e 3f f1 27 3a f2  50 52 49 4e 54 28 22 31  |.uN?.':.PRINT("1|
00002aa0  20 20 54 68 69 6e 6b 20  6f 66 20 22 2b a4 56 4f  |  Think of "+.VO|
00002ab0  57 45 4c 28 41 24 28 32  29 2c 31 29 2b a4 73 6d  |WEL(A$(2),1)+.sm|
00002ac0  28 41 24 28 32 29 29 2c  33 2c 33 38 29 3a f1 0d  |(A$(2)),3,38):..|
00002ad0  75 58 39 f2 50 52 49 4e  54 28 22 32 20 20 47 75  |uX9.PRINT("2  Gu|
00002ae0  65 73 73 20 22 2b a4 56  4f 57 45 4c 28 41 24 28  |ess "+.VOWEL(A$(|
00002af0  32 29 2c 31 29 2b a4 73  6d 28 41 24 28 32 29 29  |2),1)+.sm(A$(2))|
00002b00  2c 33 2c 33 38 29 3a f1  0d 75 6c 25 f2 50 52 49  |,3,38):..ul%.PRI|
00002b10  4e 54 28 22 33 20 20 45  64 69 74 20 74 68 65 20  |NT("3  Edit the |
00002b20  74 72 65 65 22 2c 33 2c  33 38 29 3a f1 0d 75 76  |tree",3,38):..uv|
00002b30  2a f2 50 52 49 4e 54 28  22 34 20 20 50 72 69 6e  |*.PRINT("4  Prin|
00002b40  74 20 6f 75 74 20 74 68  65 20 74 72 65 65 22 2c  |t out the tree",|
00002b50  33 2c 33 38 29 3a f1 0d  75 80 25 f2 50 52 49 4e  |3,38):..u.%.PRIN|
00002b60  54 28 22 35 20 20 53 61  76 65 20 74 68 65 20 74  |T("5  Save the t|
00002b70  72 65 65 22 2c 33 2c 33  38 29 3a f1 0d 75 8a 29  |ree",3,38):..u.)|
00002b80  f2 50 52 49 4e 54 28 22  36 20 20 4c 6f 61 64 20  |.PRINT("6  Load |
00002b90  61 6e 6f 74 68 65 72 20  74 72 65 65 22 2c 33 2c  |another tree",3,|
00002ba0  33 38 29 3a f1 0d 75 94  28 f2 50 52 49 4e 54 28  |38):..u.(.PRINT(|
00002bb0  22 37 20 20 53 74 61 72  74 20 61 20 6e 65 77 20  |"7  Start a new |
00002bc0  74 72 65 65 22 2c 33 2c  33 38 29 3a f1 0d 75 9e  |tree",3,38):..u.|
00002bd0  34 f5 f1 8a 30 2c 32 32  29 3b 3a f2 50 52 49 4e  |4...0,22);:.PRIN|
00002be0  54 28 22 3f 20 20 22 2c  30 2c 33 38 29 3a f1 3a  |T("?  ",0,38):.:|
00002bf0  5a 24 3d a4 49 4e 50 55  54 28 31 2c 32 32 2c 30  |Z$=.INPUT(1,22,0|
00002c00  29 0d 75 a8 15 41 25 3d  bb 5a 24 3a fd 41 25 3e  |).u..A%=.Z$:.A%>|
00002c10  30 80 41 25 3c 38 0d 75  b2 2a ee 41 25 e5 8d 54  |0.A%<8.u.*.A%..T|
00002c20  50 4e 2c 8d 60 78 75 2c  8d 60 40 44 2c 8d 54 78  |PN,.`xu,.`@D,.Tx|
00002c30  58 2c 8d 60 70 55 2c 8d  74 6c 4d 2c 8d 74 70 5d  |X,.`pU,.tlM,.tp]|
00002c40  0d 75 f8 2a 44 25 3d 30  3a 50 25 3d 47 25 2b 31  |.u.*D%=0:P%=G%+1|
00002c50  3a 50 31 25 3d a4 41 44  44 53 54 52 28 50 25 29  |:P1%=.ADDSTR(P%)|
00002c60  2b 38 3a 21 52 25 3d 50  31 25 0d 76 00 13 d6 26  |+8:!R%=P1%.v...&|
00002c70  35 35 36 32 2c 47 25 2c  56 25 2c 52 25 0d 76 3e  |5562,G%,V%,R%.v>|
00002c80  20 44 25 3d 21 28 26 38  32 29 80 26 46 46 46 46  | D%=!(&82).&FFFF|
00002c90  3a 57 25 3d b3 28 44 25  29 2d 31 3a db 0d 76 3f  |:W%=.(D%)-1:..v?|
00002ca0  60 e7 44 25 3d 33 e7 3f  28 52 25 21 38 29 3d 26  |`.D%=3.?(R%!8)=&|
00002cb0  46 46 3a f2 50 52 49 4e  54 28 22 53 6f 72 72 79  |FF:.PRINT("Sorry|
00002cc0  20 2e 4e 6f 74 20 65 6e  6f 75 67 68 20 22 2b 41  | .Not enough "+A|
00002cd0  24 28 31 29 2b 22 20 6f  6e 20 74 68 65 20 74 72  |$(1)+" on the tr|
00002ce0  65 65 22 2c 30 2c 33 38  29 3a e3 59 25 3d 30 b8  |ee",0,38):.Y%=0.|
00002cf0  31 32 30 30 30 3a ed 3a  e5 8d 74 7c 42 0d 76 48  |12000:.:..t|B.vH|
00002d00  23 57 25 3d 52 25 21 28  57 25 2a 34 29 3a d6 26  |#W%=R%!(W%*4):.&|
00002d10  35 34 44 44 2c 47 25 2c  56 25 2c 52 25 2c 57 25  |54DD,G%,V%,R%,W%|
00002d20  0d 76 7a 19 51 25 3d 21  28 26 38 32 29 80 26 46  |.vz.Q%=!(&82).&F|
00002d30  46 46 46 3a 42 25 3d 51  25 0d 76 84 05 f5 0d 76  |FFF:B%=Q%.v....v|
00002d40  85 46 f5 42 31 25 3d 2d  31 3a 4d 25 3f 28 42 25  |.F.B1%=-1:M%?(B%|
00002d50  2d 51 25 29 3d 26 46 46  3a 53 25 3d b3 28 42 25  |-Q%)=&FF:S%=.(B%|
00002d60  29 2d 31 3a f5 42 31 25  3d 42 31 25 2b 31 3a fd  |)-1:.B1%=B1%+1:.|
00002d70  4d 25 3f 42 31 25 3d 53  25 84 20 42 31 25 3e 42  |M%?B1%=S%. B1%>B|
00002d80  25 2d 51 25 0d 76 87 1c  fd 42 31 25 3e 42 25 2d  |%-Q%.v...B1%>B%-|
00002d90  51 25 3a 4d 25 3f 28 42  25 2d 51 25 29 3d 53 25  |Q%:M%?(B%-Q%)=S%|
00002da0  0d 76 89 2f f2 50 52 49  4e 54 28 22 54 68 65 20  |.v./.PRINT("The |
00002db0  61 6e 73 77 65 72 20 74  6f 20 74 68 65 20 71 75  |answer to the qu|
00002dc0  65 73 74 69 6f 6e 22 2c  30 2c 33 38 29 3a f1 0d  |estion",0,38):..|
00002dd0  76 8e 2e f2 50 52 49 4e  54 28 24 28 28 52 25 21  |v...PRINT($((R%!|
00002de0  28 53 25 2a 34 29 80 26  46 46 46 46 29 2b 31 29  |(S%*4).&FFFF)+1)|
00002df0  2b 22 20 3f 22 2c 30 2c  33 38 29 3a f1 0d 76 98  |+" ?",0,38):..v.|
00002e00  25 e7 52 25 3f 28 53 25  2a 34 2b 33 29 3d 34 8c  |%.R%?(S%*4+3)=4.|
00002e10  41 24 3d 22 20 79 65 73  22 8b 41 24 3d 22 20 6e  |A$=" yes".A$=" n|
00002e20  6f 22 0d 76 a2 1a f2 50  52 49 4e 54 28 22 69 73  |o".v...PRINT("is|
00002e30  22 2b 41 24 2c 30 2c 33  38 29 3a f1 0d 76 ac 29  |"+A$,0,38):..v.)|
00002e40  f2 50 52 49 4e 54 28 22  59 6f 75 72 20 67 75 65  |.PRINT("Your gue|
00002e50  73 73 20 69 73 20 3f 22  2c 30 2c 33 38 29 3a 53  |ss is ?",0,38):S|
00002e60  25 3d bc 2d 31 0d 76 b6  41 41 24 3d a4 41 4e 53  |%=.-1.v.AA$=.ANS|
00002e70  28 a4 41 4f 28 a4 4c 45  41 44 28 a4 49 4e 50 55  |(.AO(.LEAD(.INPU|
00002e80  54 28 32 32 2c 53 25 2c  2d 31 29 29 29 29 3a e7  |T(22,S%,-1)))):.|
00002e90  41 24 3d 22 22 8c f2 45  52 52 28 30 2c 31 35 29  |A$=""..ERR(0,15)|
00002ea0  3a e5 8d 70 76 76 0d 76  c0 53 f1 3a e7 a4 73 6d  |:..pvv.v.S.:..sm|
00002eb0  28 24 57 25 29 3d a4 73  6d 28 41 24 29 8c 51 25  |($W%)=.sm(A$).Q%|
00002ec0  3d 2d 31 3a f1 27 3a f2  50 52 49 4e 54 28 22 43  |=-1:.':.PRINT("C|
00002ed0  4f 52 52 45 43 54 22 2c  31 34 2c 33 38 29 3a 8b  |ORRECT",14,38):.|
00002ee0  db 3a f2 50 52 49 4e 54  28 22 57 52 4f 4e 47 22  |.:.PRINT("WRONG"|
00002ef0  2c 31 34 2c 33 38 29 3a  f1 0d 76 d4 11 51 25 3d  |,14,38):..v..Q%=|
00002f00  51 25 2d 31 3a fd 51 25  3c 31 0d 76 f2 31 e7 51  |Q%-1:.Q%<1.v.1.Q|
00002f10  25 3d 30 f2 50 52 49 4e  54 28 22 49 74 20 77 61  |%=0.PRINT("It wa|
00002f20  73 20 22 2b a4 56 4f 57  45 4c 28 24 57 25 2c 31  |s "+.VOWEL($W%,1|
00002f30  29 2b 24 57 25 2c 30 2c  33 38 29 0d 76 fc 13 57  |)+$W%,0,38).v..W|
00002f40  25 3d 91 3a f5 fd 91 2d  57 25 3e 34 30 30 0d 77  |%=.:...-W%>400.w|
00002f50  06 09 e5 8d 50 70 75 0d  79 18 0e dd a4 46 49 4e  |....Ppu.y....FIN|
00002f60  44 28 41 25 29 0d 79 22  20 59 25 3d 47 25 3a f5  |D(A%).y" Y%=G%:.|
00002f70  59 25 3d 59 25 2b 31 3a  fd 59 25 3d 56 25 84 21  |Y%=Y%+1:.Y%=V%.!|
00002f80  59 25 3d 41 25 0d 79 2c  07 3d 59 25 0d 79 54 17  |Y%=A%.y,.=Y%.yT.|
00002f90  dd a4 73 6d 28 41 24 29  ea 59 25 3a 24 57 53 25  |..sm(A$).Y%:$WS%|
00002fa0  3d 22 22 0d 79 5e 30 e3  59 25 3d 31 b8 a9 41 24  |="".y^0.Y%=1..A$|
00002fb0  3a 24 57 53 25 3d 24 57  53 25 2b bd 28 97 c1 41  |:$WS%=$WS%+.(..A|
00002fc0  24 2c 59 25 2c 31 29 84  33 32 29 3a ed 3a 3d 24  |$,Y%,1).32):.:=$|
00002fd0  57 53 25 0d ff                                    |WS%..|
00002fd5