z�>IDEFS::HardDrive.$.Programs.PubVersh.!Funcy2.BU.COMPACT squished by MH's BASIC cruncher v1.30 16/9/89 On 23 May 1994
 aa%=�:ba%=�:ca%=�:da%=�:��V
<)ș263872:�aa:�ba:�ca:�da:�ea:�ca%=��s
��fa:�ca%=��s
��ga:�ca%=��s
�ea%=�Q("!funcy2"):�W:��ha
�D�ia:ș263873:�:fa%=654336:ș262343,fa%,z%�ga%:ha%=�:da%=�:Ȏga%�

T
�0:�ja

h	�1:�I

r	�2:�X

|�3:�n(!z%)

�
�4:�ka

�
�5:�la

��6:�Y:ha%=�

�
�7:�ma

��8:�na:ha%=�

��9:�oa:ha%=�

��17,18:�pa

��

�
�ha%�W

�
�da%�a

���:�
���V:�ia%,f,ja%:ș262352,,0:ș263874:!z%=�:ia%=0:f=1:$(z%+4)="Fatal error: "+�$+" at line "+�(�)+�0:ș262367,z%,1,"Funcy 2":aa%=�:ba%=�:�s:�
���ha:�d%:�:���V
��<999�
�\�a(�$+" at line "+�(�)+". This is a non fatal program error.","Continue","Quit","")=1�s
�n�:d%=�a("Internal error no: "+�$+" (not fatal). Please notify programmer of how this occured.","OK","","")
��
���
��
�<ݤa(m$,z$,A$,B$):�ka%,la%,r%,ma%,na%,oa%:ș263874:�da%�a
>ka%=0:�z$<>""ka%=1
H�A$<>""ka%=2
R�B$<>""ka%=3
\
�ka%=0=-1
f�ș262355,,q%:ma%=!q%:na%=q%!4:oa%=q%!20:ș262354,-1,-1,-1,-1,-1,-1:!q%=pa%:ș262348,,q%:q%!88=ka%+3:ș262337,,q%+4�qa%:�b(qa%,2,m$,0):�b(qa%,3,z$,0):�ka%>1�b(qa%,4,A$,0)
��ka%>2�b(qa%,5,B$,0)
�_�qa(qa%,�):ȗȓq%!4,q%!8,q%!12-q%!4,q%!16-q%!8:la%=-1:�:fa%=654336:ș262343,fa%,z%�r%:Ȏr%�
�	�1:�I
�	�2:�X
��6:�z%!12=qa%�
�#�z%!16>2�z%!16<6 la%=z%!16-3:�a
�
�8:�z%!24=13 la%=0
�
$Z�la%>-1:ȗȓ0,0,ra%-1,sa%-1:!q%=qa%:ș262339,,q%:�a:ș393426,ma%,na%,-1,-1,-1,oa%:=la%
t���aa:�i%:�q% 300,z% 2000,ta% 3000,ua% 20,va% 70:wa%=8192:�xa% wa%:ya%=500:�M% ya%:za%=xa%+wa%:Aa%=-1:Ba%=0:Ca%=0:Da%=313:$q%="TASK":u$="":ș262336,200,!q%,"Funcy 2"�,Ea%:�ra:�sa("<Funcy2$Dir>.Sprites")
؊�ta("<Funcy2$Dir>.Templates"):Fa%=1280:Ga%=1024:Ha%=1:Ia%=1:Ja%=1:Ka%=1:�Z:La%=�:Ma%=�:Na%=�:Oa%=0:E%=-1:_%=-1:�i%=0�ya%-1:M%?i%=0:�:�
���ta(E$):ș262361,,E$:Pa%=�c("info"):Qa%=�c("main"):Ra%=�c("save"):Sa%=�c("userwin"):Y%=�c("userpane"):Ta%=�c("presetwin"):Ua%=�c("presetpane"):U%=�c("functions"):H%=�c("funcpane"):L%=�c("range"):Va%=�c("zoom")
d�Z%=�c("coords"):Wa%=�c("editufunc"):Q%=�c("edityfunc"):R%=�c("calculus"):F%=�c("transform"):Xa%=�c("transpane"):pa%=�c("request"):Ya%=�c("look"):Za%=�c("colour"):_a%=�c("quality"):`a%=�c("savebig"):ș262362
�J�C(Sa%,Y%,va%):�C(Ta%,Ua%,va%+16):�C(U%,H%,va%+32):�C(F%,Xa%,va%+48):�
�^ݤc(a$):�c%:ș262363,,z%,xa%,za%,-1,a$,0�,,xa%,,,,c%:�c%=0�998,"Template "+a$+" not found"
!z%!64=ab%:ș262337,,z%�c%:=c%
,���C(w%,p%,`%):�t%,l%:!`%=w%:`%!4=p%:!q%=p%:ș262347,,q%:l%=q%!4:t%=q%!16:!q%=w%:ș262347,,q%:l%-=q%!4:t%-=q%!16:`%!8=�l%:`%!12=�t%:�
hn��sa(C$):�a%,bb%:a%=�C$:bb%=16+�#a%:�#a%:�ab% bb%:!ab%=bb%:ab%!4=0:ab%!8=16:ab%!12=16:ș46,256+10,ab%,C$:�
̐ݤQ(w$):�cb%:!z%=-1:z%!4=0:z%!8=0:z%!12=63:z%!16=72:z%!20=8450:�db%  (�w$+1):$db%=w$:z%!24=db%:z%!28=ab%:z%!32=(�w$+1):ș262338,,z%�cb%:=cb%
:��s:�m$:�aa%�ba%�
N^m$="user functions and plotted graphs":�aa%=�m$="plotted graphs"��ba%=�m$="user functions"
XR�a("Unsaved "+m$+" in Funcy 2. Do you really want to quit?","Yes","No","")=1�
b�
l!$q%="TASK":ș262365,Ea%,!q%:�
��
����Z:�i%:!q%=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1:ș49,q%,q%:eb%=1<<(!q%):fb%=1<<(q%!4):ra%=(1<<(!q%))*((q%!8)+1):sa%=(1<<(q%!4))*((q%!12)+1):gb%=(sa%-88)*Ia%/Ka%:hb%=(ra%-46)*Ha%/Ja%:�ra%<>Fa%�sa%<>Ga%�
��!q%=Qa%:ș262348,,q%:ș262339,,q%:q%!44=0:q%!48=-gb%:q%!52=hb%:q%!56=0:�i%=4�20�8:q%!i%=q%!i%*ra%/Fa%:q%!(i%+4)=q%!(i%+4)*sa%/Ga%:�:ș262337,,q%+4�Qa%:�((q%!32)�(1<<16)) !q%=Qa%:ș262341,,q%
 Fa%=ra%:Ga%=sa%
4�
4�
>O��x:o=hb%/(m-j):q=gb%/(n-k):ib%=(-j*o)��(eb%-1):jb%=(-gb%-(k*q))��(fb%-1):�
p���ba:�u:�z  100:�u=0�2�2:P%=z:[OPT u:.A:CMP2,0:BGT B:.E:MOV3,#0:SUB4,1,0:.C:LDR5,[0,3]:STR5,[2,3]:ADD3,3,#4:CMP3,4:BLT C:MOV PC,14:.B:SUB3,1,0:.D:SUB3,3,#4:LDR5,[0,3]:STR5,[2,3]:CMP3,#0:BGT D:MOV PC,14: ]:�:�
	���r(A%,B%,C%):�A:�
{��ca:�kb%,n%,t$,w%,lb%,i%,mb%,nb%,ob%,pb%,qb%,rb%,sb%,tb%:�ub%,vb%:vb%=z%:ub%=0:kb%=ta%+128:wb%=88:�xb% 5:$xb%="a0-9":�
d��n%:ȕn%<>-1:�t$,w%,lb%:ta%!(n%*4)=kb%:$kb%=�t$,11):kb%?12=7:kb%?13=2:kb%?14=7:kb%?15=0:kb%!16=16+w%*16:kb%!20=44:kb%!24=0:kb%+=28:rb%=kb%+lb%*24:tb%=0:�i%=1�lb%:�t$,ob%,pb%,qb%:yb%=(7<<24)+(0<<28)+33:�n%=0 wb%+=48:�pb%wb%+=24
��ob%zb%=4�zb%=0
��pb%zb%+=2
� �qb%>=0 vb%!ub%=kb%+4:ub%+=4
��i%=lb%zb%+=128
��t$>11�ob%�
�0yb%+=1<<8:kb%!12=(rb%+tb%):kb%!16=-1:�ob%>0�
Gkb%!20=ob%:�t$=">no"kb%!16=xb%:$(rb%+tb%)="0"�$(rb%+tb%)=�t$,ob%-1)
tb%+=ob%
,/�:kb%!20=�(t$)+1:$(rb%+tb%)=t$:tb%+=�(t$)+1
@�
@�:$(kb%+12)=t$
^�
^Q!kb%=zb%:kb%!4=qb%:kb%!8=yb%:kb%+=24:�:kb%+=tb%:�(kb%�4)<>0 kb%=((kb%�4)*4)+4
�7�n%:�:n%=0:ȕn%<ub%:i%=vb%!n%:!i%=�R(!i%):n%+=4:�:�
�ݤR(n%):�n%<64=ta%!(n%*4)
�	Ȏn%�
��64:=Pa%
��65:=Ra%
��66:=Va%
��67:=Za%
�68:=_a%
�69:=`a%
�
=-1
X�0,"Funcy 2",7,3
X0�"Info",0,0,64,"Windows",0,0,3,"Quit",0,0,-1
b�1,"Funcy 2",7,3
l1�"Select",0,0,2,"Save",0,0,69,"Windows",0,0,3
v�2,"Select",9,8
��"All",0,0,-1,"Visible",0,0,-1,"Invisible",0,0,-1,"Invert",0,0,-1,"Clear",0,1,-1,"Make",0,1,7,"Copy",0,0,-1,"Delete",0,0,-1
��3,"Windows",15,7
���"Plot list    F1",0,0,-1,"Output       F2",0,0,-1,"Axes/Range   F3",0,0,-1,"Appearance   F4",0,0,-1,"Trace        F5",0,0,-1,"Preset funcs F6",0,0,-1
��"User funcs   F7",0,0,-1
��4,"Funcy 2",7,2
�"�"Zoom",0,0,66,"Windows",0,0,3
��5,"User",7,3
�1�"Select",0,0,6,"Save",0,0,65,"Windows",0,0,3
��6,"Select",6,6
�[�"All",0,0,-1,"Used",0,0,-1,"Unused",0,0,-1,"Clear",0,1,-1,"Copy",0,0,8,"Delete",0,0,-1
��7,"Make",9,5
�W�"Visible",0,0,-1,"Invisible",0,0,-1,"Solo",0,0,-1,"Colour",0,0,67,"Quality",0,0,68
��8,"Copy as",10,1

�"",13,0,-1

�9,"Select",6,3

0�"All",0,0,-1,"Clear",0,1,-1,"Delete",0,0,-1

 �-1

*]��c(Ab%,Bb%,Cb%):�a%:a%=ta%!(Ab%*4)+28+8+(Bb%*24):�Cb%=0 !a%=!a%��(1<<22)�!a%=!a%�(1<<22)

R�

\O��q(Ab%,Bb%,Cb%):�a%:a%=ta%!(Ab%*4)+28+(Bb%*24):�Cb%=0 !a%=!a%��1�!a%=!a%�1

��

�ݤS(N%):ȎN%�

��Wa%:Db%=-1

��Q%,R%,F%:W%=-1

�
�Z%:Eb%=�

��Qa%:�Fb%<>0 Fb%=�F(Fb%)

��

�=�
*��A(N%):!q%=N%:ș262347,,q%:�_(q%+4):�
.)��_(q%):T%=!q%-q%!16:I%=q%!12-q%!20:�
V���qa(N%,Gb%):�w%,h%:!q%=N%:ș262347,,q%:w%=�(q%!12-q%!4):h%=�(q%!16-q%!8):q%!4=(ra%-w%)/2:q%!8=(sa%-h%)/2:q%!12=q%!4+w%:q%!16=q%!8+h%:�Gb%q%!28=-1
�ș262341,,q%:�
�a��j(N%):�i%:!q%=N%:ș262347,,q%:q%!28=-1:ș262341,,q%:�i%=0�3:�va%!(i%*16)=N%�`(q%,va%+i%*16)
��:�
�m��D(N%,t$):!z%=N%:ș262348,,z%:�(z%!60�256)$(z%!76)=�t$,z%!84)��999,"1 - Window title must be indirected"
�((z%!32)�(1<<16))<>0�I
(�
2:ݤg(N%):!z%=N%:ș262348,,z%:�((z%!32)�(1<<16))<>0=��=�
Z1��B(N%,l%,b%,r%,t%):ș262353,N%,l%,b%,r%,t%:�
�B��f(N%):�A(N%):ș262353,N%,q%!4-T%,q%!8-I%,q%!12-T%,q%!16-I%:�
�w��l(N%,Hb%,Ib%,Jb%,Kb%):!q%=Hb%:q%!4=Ib%:q%!8=Jb%:q%!12=Kb%:ș262359,N%,q%:�g(N%) !q%=N%:ș262347,,q%:ș262341,,q%
��
�e��b(w%,i%,s$,r%):!q%=w%:q%!4=i%:ș262350,,q%:�((q%!24)�(1<<8))=0�999,"2 - Icon is not indirected"
,?$(q%!28)=�s$,q%!36-1):�r%ș262353,w%,q%!8,q%!12,q%!16,q%!20
@)ș262355,,q%:�w%=!q%�i%=q%!4�t(w%,i%)
T�
^Tݤb(w%,i%):�s%:!q%=w%:q%!4=i%:ș262350,,q%:�((q%!24)�(1<<8))=0 s%=q%+28�s%=q%!28
�=�o(s%)
�6ݤo(m%):�s$:s$="":ȕ?m%>=32:s$+=�(?m%):m%+=1:�:=s$
�F��d(w%,i%,Cb%):!q%=w%:q%!4=i%:q%!8=1<<21:q%!12=1<<21:�Cb%=0 q%!8=0
�ș262349,,q%:�
�Hݤe(w%,i%):�s%:!q%=w%:q%!4=i%:ș262350,,q%:�((q%!24)�(1<<21))=0=��=�
&J��p(w%,i%,Lb%):!q%=w%:q%!4=i%:q%!8=Lb%<<28:q%!12=15<<28:ș262349,,q%:�
N:ݤk(w%,i%):!q%=w%:q%!4=i%:ș262350,,q%:=(q%!24>>28)�15
�D��h(w%,i%,n%):�c%:c%=�k(w%,i%):c%+=n%:�c%>15 c%-=16��c%<0 c%+=16
��p(w%,i%,c%):�
�Z��E(w%,i%,l%,h%,d%):�n%:n%=�(�b(w%,i%)):n%+=d%:�n%<l%n%+=(h%-l%)+1��n%>h%n%-=(h%-l%)+1
��b(w%,i%,�n%,1):�
�F��e(w%,i%,Cb%):!q%=w%:q%!4=i%:q%!8=1<<22:q%!12=1<<22:�Cb%=0 q%!8=0
ș262349,,q%:�Cb%<>0�
:ș262355,,q%:�w%=!q%�i%=q%!4ș262354,-1,-1,-1,-1,-1,-1
*�
4�
>8ݤf(w%,Mb%):ș262358,w%,q%,63<<16,Mb%<<16�1<<21:=!q%
�5��t(w%,i%):ș262354,w%,i%,-1,-1,-1,�(�b(w%,i%)):�
�SݤT(l$):ȕ�l$,":")>0:l$=�l$,�l$,":")+1):�:ȕ�l$,".")>0:l$=�l$,�l$,".")+1):�:=l$
$;ݤU(n$):�bb%:ș131107,n$,q%,255,,3�,,bb%:q%?bb%=13:=$q%
�*��ja:�x,y,t$,d%:�u$<>""�J(u$,-2):u$=""
�C�Ma%d%=�a("Bad data transfer. Receiver dead?","OK","",""):Ma%=�
��Eb%=��
�%ș262351,,q%:�q%!12=Qa%�q%!16=-1�
�lx=!q%:y=q%!4:�A(Qa%):x=(x-T%-ib%)/o:y=(y-I%-jb%)/q:t$="("+�J(x)+","+�J(y)+")":�j$<>t$�b(Z%,1,t$,1):j$=t$
� �:�j$<>""�b(Z%,1,"",1):j$=""
��
��
��
5ݤJ(v):�Nb%,v$,r%,Ob%,i%,e$:v$=�(v):�Pb%=0=�K(v$)
;Nb%=Pb%>>1:�v$,"E")e$=�v$,�v$,"E")):v$=�v$,�v$,"E")-1)
(�Pb%�1�
2�v$,".")=0 v$+="."
<[v$+=�Nb%+1,"0"):r%=�(�v$,�v$,".")+Nb%+1,1)):v$=�v$,�v$,".")+Nb%):�r%>=5 v$=�p(v$,�(v$))
F�:�v<>0�
Z�v$,".")=0 v$+="."
duv$+=�Nb%,"0"):r%=1:ȕ�v$,r%,1)="0"��v$,r%,1)="."��v$,r%,1)="-":r%+=1:�:r%+=Nb%-1:Ob%=�(�v$,r%+1,1)):�r%<�v$,".")�
xUv$=�v$,�v$,".")-1):i%=r%+1:ȕi%<=�(v$):�v$,i%,1)="0":i%+=1:�:�Ob%>=5 v$=�p(v$,r%)
��:�r%-Nb%<�v$,".")r%+=1
�#v$=�v$,r%):�Ob%>=5 v$=�p(v$,r%)
��
��
��
�=�K(v$+e$)
�ݤp(v$,p%):�v%:�p%=0="1"+v$
��v$,p%,1)="."=�p(v$,p%-1)
�Hv%=�(�v$,p%,1))+1:�v%<10�v$,p%,1)=�(v%)��v$,p%,1)="0":v$=�p(v$,p%-1)
=v$
,ݤK(v$):��v$)="."v$=�v$)
,#�l%,r$,m%,i%:l%=�(v$):�l%<12=v$
6Cm%=11:r$="":i%=�v$,"E"):�i%>0 r$=�v$,i%):m%-=�(r$):v$=�v$,i%-1)
@v$=�v$,m%):��v$)="."v$=�v$)
J
=v$+r$
|y��I:�Qb%,l%,b%,r%,t%,N%:ș262344,,z%�Qb%:N%=!z%:�_(z%+4):ȕQb%:l%=z%!28:r%=z%!36:t%=z%!40:b%=z%!32:ș530049,,z%:ȎN%�
�%�Qa%:�ua(l%-T%,b%-I%,r%-T%,t%-I%)
��Ua%:�Rb%>0�va(b%-I%,t%-I%)
��Y%:�S%>0�wa(b%-I%,t%-I%)
��H%:�D%>0�xa(b%-I%,t%-I%)
��Xa%:�Sb%>0�ya(b%-I%,t%-I%)
��
�ș262346,,z%�Qb%:�:�
P��ua(l%,b%,r%,t%):�s%,x,y,x%,y%,l,b,r,t,p%,Tb%,Ub%,l$,n%,Vb%,Wb%,Xb%:�Yb%>0�
N�ș262374,Zb%:l=(l%-ib%)/o:r=(r%-ib%)/o:t=(t%-jb%)/q:b=(b%-jb%)/q:l=�((l-g)/g)*g:r=�((r+g)/g)*g:t=�((t+i)/i)*i:b=�((b-i)/i)*i:�Yb%>4�
��Yb%=5 p%=21�p%=5
�S�x=l�r�g:�i(x),�h(b):�p%,�i(x),�h(t):�:�y=b�t�i:�i(l),�h(y):�p%,�i(r),�h(y):�
�#�:s%=Yb%:�s%=3 s%=5��s%=4 s%=10
�Q�x=l�r�g:�y=b�t�i/s%:Ȓ�i(x),�h(y):�:�:�y=b�t�i:�x=l�r�g/s%:Ȓ�i(x),�h(y):�:�
��
��
�	�_b%�
�ș262374,`b%:�ac%=5�
;�T%+l%,I%+jb%:�T%+r%,I%+jb%:�T%+ib%,I%+b%:�T%+ib%,I%+t%
 #�:s%=ac%:�s%=3 s%=5��s%=4 s%=10
*y�x=0�m�g/s%:Ȓ�i(x),I%+jb%:�:�x=0�j�-g/s%:Ȓ�i(x),I%+jb%:�:�y=0�n�i/s%:ȒT%+ib%,�h(y):�:�y=0�k�-i/s%:ȒT%+ib%,�h(y):�
\�
\'y%=I%+jb%:�k>0 y%=I%-gb%��n<0 y%=I%
ft�x=0�m�g:Ȓ�i(x),y%-fb%:�BY 0,fb%*2:�:�x=0�j�-g:Ȓ�i(x),y%-fb%:�BY 0,fb%*2:�:x%=T%+ib%:�j>0 x%=T%��m<0 x%=T%+hb%
�P�y=0�n�i:Ȓx%-eb%,�h(y):�BY eb%*2,0:�:�y=0�k�-i:Ȓx%-eb%,�h(y):�BY eb%*2,0:�
��
�	�bc%�
�,ș262374,7:�23,17,7,6,(12/eb%);(32/fb%)|
�XTb%=1:ȕTb%*g*o<104:Tb%+=1:�:y%=I%+jb%-8:�y%>I%-4 y%=I%-4��y%<I%-gb%+32 y%=I%-gb%+32
���x=Tb%*g�m�Tb%*g:l$=�(x):�i(x)-�(l$)*6,y%:�l$:�:�x=-Tb%*g�j�-Tb%*g:l$=�(x):�i(x)-�(l$)*6,y%:�l$:�:Ub%=1:ȕUb%*i*q<80:Ub%+=1:�:s%=�:x%=T%+ib%-4:�x%<T%+50 x%=T%+8:s%=���x%>T%+hb%-4 x%=T%+hb%-4
J�y=Ub%*i�n�Ub%*i:l$=�(y):�s%�x%-�(l$)*12,�h(y)+12:�l$��x%,�h(y)+12:�l$
$N�:�y=-Ub%*i�k�-Ub%*i:l$=�(y):�s%�x%-�(l$)*12,�h(y)+12:�l$��x%,�h(y)+12:�l$
B#�:�23,17,7,6,(16/eb%);(32/fb%)|
V�
`�Fb%=0�
t@n%=Fb%:ȕ!n%<>-1:ș262374,n%?8:p%=12:s%=n%?10:�s%=255 s%=cc%
�Vb%=�:�(n%?11)�128�
�8s%=a%(s%)*fb%:y%=n%!4:Wb%=0:ȕy%>=b%-fb%:�y%<=t%+s%�
�x%=n%!p%:�Vb%=��
��x%<>dc%�T%+x%,I%+y%:Vb%=�
�
�:Ȏ��
��x%=dc%:Vb%=�
�G�s%=fb%:�(x%>=0�x%<=hb%)�(Wb%>=0�Wb%<=hb%)�T%+x%,I%+y%��T%+x%,I%+y%
�ȒT%+x%,I%+y%
��
��
�

y%-=s%:p%+=4:Wb%=x%:�
6�:s%=a%(s%)*eb%:x%=n%!4:Xb%=0:ȕx%<=r%:�x%>=l%-s%�
2y%=n%!p%:�Vb%=��
<�y%<>dc%�T%+x%,I%+y%:Vb%=�
F
�:Ȏ��
Z�y%=dc%:Vb%=�
nI�s%=eb%:�(y%<=0�y%>=-gb%)�(Xb%<=0�Xb%>=-gb%)�T%+x%,I%+y%��T%+x%,I%+y%
nȒT%+x%,I%+y%
��
��
��
�x%+=s%:p%+=4:Xb%=y%:�
��
�n%+=!n%:�:�
�ݤi(x)=T%+ib%+x*o
�ݤh(y)=I%+jb%+y*q
�E��va(b%,t%):�s%,e%,i%,p%:s%=�d(t%):e%=�d(b%)+1:�e%>Rb%-1 e%=Rb%-1
p%=ec%:�i%=0�e%:�i%>=s%�
":�E%=Ua%�M%?i%=255ș262374,15:ȓȐT%,I%-4-i%*36,226,-36
,(ș262374,7:�T%+4,I%-8-i%*36:�$(p%+4)
@�
@p%+=!p%:�:�
TC��wa(b%,t%):�s%,e%,i%,p%:s%=�d(t%):e%=�d(b%)+1:�e%>S%-1 e%=S%-1
�p%=V%:�i%=0�e%:�i%>=s%�
�9�E%=Y%�M%?i%=255ș262374,15:ȓȐT%,I%-4-i%*36,226,-36
�(ș262374,7:�T%+4,I%-8-i%*36:�$(p%+4)
��
�p%+=!p%:�:�
�C��xa(b%,t%):�s%,e%,i%,p%:s%=�d(t%):e%=�d(b%)+1:�e%>D%-1 e%=D%-1
�p%=O%:�i%=0�e%:�i%>=s%�
9�E%=H%�M%?i%=255ș262374,15:ȓȐT%,I%-4-i%*36,316,-36
)�G%?(i%*4+1)=255ș262374,7�ș262374,3
&#�T%+4,I%-8-i%*36:ȎG%?(i%*4+3)�
0�0:�"y=";$(p%+4)
D�1:�"    Transformation"
N�2:�"    Derivative"
X�3:�"    Integral"
b�
b�
lp%+=!p%:�:�
�H��ya(b%,t%):�s%,e%,i%,p%,v$:s%=�d(t%):e%=�d(b%)+1:�e%>Sb%-1 e%=Sb%-1
�p%=fc%:�i%=0�e%:�i%>=s%�
�:�E%=Xa%�M%?i%=255ș262374,15:ȓȐT%,I%-4-i%*36,226,-36
�&ș262374,7:�T%+4,I%-8-i%*36:Ȏ?p%�
��0:�"trn x";
��1:�"trn y";
��2:�"scl x";
�3:�"scl y";
�4:�"ref x"
�5:�"ref y"
 �6:�"ref in y=x"
*�
*�?p%<4�?p%>=0�": ";|(p%+1)
4�
>
p%+=6:�:�
Rݤd(y%)=(-y%-8)�36
�H��X:�i%:�i%=0�3:�va%!(i%*16)=!z%�`(z%,va%+i%*16):z%!28=va%!(4+i%*16)
��:ș262341,,z%:�
����`(gc%,`%):�hc%,w%,h%,l%,t%,ic%:ic%=gc%!28:l%=gc%!4:t%=gc%!16:!q%=`%!4:ș262347,,q%:w%=q%!12-q%!4:h%=q%!16-q%!8:q%!4=l%+`%!8:q%!8=t%-`%!12-h%:q%!12=l%+`%!8+w%:q%!16=t%-`%!12:q%!28=ic%:ș262341,,q%:�
���n(N%):�i%:�S(N%)=0�
8N!q%=N%:ș262342,,q%:�i%=0�3:�va%!(i%*16)=N% !q%=va%!(4+i%*16):ș262342,,q%
L�:�
V��ka:Ȏ!z%�
��Qa%
��
��
���la:Ȏ!z%�
��Qa%
��
��
�0��y(w%,i%,b%):z%!8=b%:z%!12=w%:z%!16=i%:�Y:�
2��Y:Ȏz%!8�
P�2:�z%!12=-2�
Z�za(!z%-64)
n�:�Aa(z%!12,!z%-64,z%!4)
��
��4,64,1024:Ȏz%!12�
��-2:�Ba
�%�Ca(!z%,z%!4,z%!8�4,z%!12,z%!16)
��
��1,16,256:Ȏz%!12�
��-2:�Da
�#�Ea(!z%,z%!4,z%!8,z%!12,z%!16)
��
��
��
�H��Da:�j(U%):�g(Qa%)=0 !q%=Qa%:ș262347,,q%:q%!28=-2:ș262341,,q%:�i
"�
,��Ba:�j(Qa%):�i:�j(U%):�
^=��za(x%):�Fa:ș262356,,!ta%,x%,wb%:Aa%=0:Ba%=x%:Ca%=wb%:�
�,��Ca(jc%,kc%,hc%,N%,X%):�n%:�A(N%):ȎN%�
��Ra%:ȎX%�
��3:�Ga(Ra%,3,Ra%)
��2:�a:�F(�b(Ra%,1),0,�,�)
 �
 �`a%:ȎX%�
 �3:�Ga(`a%,3,`a%)
 &%�2:�a:�F(�b(`a%,1),0,�e(`a%,4),�)
 0�
 0
�U%:ȎX%�
 :
�4:�a:�Ha
 N
�5:�a:�Ia
 X
�7:�a:�Ja
 b
�8:�a:�Ka
 l�3:�a:�j(Ta%)
 v�9:�a:�j(Sa%)
 �
�6:�a:�La
 ��
 �
�Q%:ȎX%�
 ��6:�h(Q%,9,-1)
 ��8:�h(Q%,9,1)
 �)�11:�a:�W%=-2 n%=�q(-1,1)�n%=�G(-1,1)
 �)�12:�a:�W%=-2 n%=�q(-1,0)�n%=�G(-1,0)
 ��
 �
�R%:ȎX%�
 ��6:�h(R%,9,-1)
 ��8:�h(R%,9,1)
 �)�11:�a:�W%=-2 n%=�t(-1,1)�n%=�u(-1,1)
 �)�12:�a:�W%=-2 n%=�t(-1,0)�n%=�u(-1,0)
 ��
!
�F%:ȎX%�
!�6:�h(F%,9,-1)
! �8:�h(F%,9,1)
!*�13,14,15:�u
!4%�17,18:�e(F%,15,1):�e(F%,20,0):�u
!>"�19:�e(F%,15,0):�e(F%,20,1):�u
!H�21:�a:�Ma
!R
�22:�a:�K
!\)�11:�a:�W%=-2 n%=�v(-1,1)�n%=�w(-1,1)
!\)�12:�a:�W%=-2 n%=�v(-1,0)�n%=�w(-1,0)
!f�
!p�Ta%:�X%=4�a:�Na:�n(Ta%)
!z�Sa%:ȎX%�
!�
�2:�a:�Oa
!��3:�a:�L
!��4:�a:�M
!��5:�a:�Pa:�n(Sa%)
!��
!��Wa%:�X%=2�
!� �a:�Db%=-2 n%=�x(1)�n%=�y(1)
!��
!�1�Ua%:n%=�d(kc%-I%):�n%>=0�n%<Rb%�v(Ua%,n%)��m
!��Y%:Ȏhc%�
!�/�256:n%=�d(kc%-I%):�n%>=0�n%<S%�v(Y%,n%)��m
!�0�1:n%=�d(kc%-I%):�n%>=0�n%<S%�m:�v(Y%,n%):�L
!��
"�H%:Ȏhc%�
"/�256:n%=�d(kc%-I%):�n%>=0�n%<D%�v(H%,n%)��m
"1�1:n%=�d(kc%-I%):�n%>=0�n%<D%�m:�v(H%,n%):�Ha
"$�
".1�Xa%:n%=�d(kc%-I%):�n%>=0�n%<Sb%�v(Xa%,n%)��m
"8
�L%:ȎX%�
"B�19:�h(L%,22,-1)
"V�21:�h(L%,22,1)
"`�31:�a:�Qa(�)
"j%�32,33,34,35,36,37:�a:�N(X%-32,4)
"t�
"t�Ya%:ȎX%�
"~�10:n+=i:�g
"��11:�n-i>k n-=i:�g
"��12:�k+i<n k+=i:�g
"��13:k-=i:�g
"��14:j-=g:�g
"��15:�j+g<m j+=g:�g
"��16:�m-g>j m-=g:�g
"��17:m+=g:�g
"��18:n+=i:k+=i:�g
"��19:m-=g:j-=g:�g
"��20:m+=g:j+=g:�g
"��21:k-=i:n-=i:�g
#�22:�a:�Ra
#
�26:�h(Ya%,29,-1)
#�28:�h(Ya%,29,1)
#�9:�a:�Sa:�n(Ya%)
#(�
#(�Va%:ȎX%�
#2�4:�o(6,1,14)
#F�5:�o(6,-1,14)
#P�8:�o(7,1,15)
#Z�9:�o(7,-1,15)
#d�12:�o(14,1,6)
#n�13:�o(14,-1,6)
#x�16:�o(15,1,7)
#��17:�o(15,-1,7)
#��
#�
�Z%:ȎX%�
#�9�5:�E(Z%,4,1-(Pb%�1),9,1):Pb%=(Pb%�1)+(�(�b(Z%,4))*2)
#�:�6:�E(Z%,4,1-(Pb%�1),9,-1):Pb%=(Pb%�1)+(�(�b(Z%,4))*2)
#�3�7:�b(Z%,4)="0"�b(Z%,4,"1",1):Pb%=2�Pb%=Pb%��1
#��8:Pb%=Pb%�1
#��9:�O(�e(Z%,9)=0)
#��
#��Za%:ȎX%�
#��1:�h(Za%,3,-1)
#��4:�h(Za%,3,1)
#��5:�a:�Ta:ș262356,,-1
$�
$!�_a%:�X%=8�a:�Ua:ș262356,,-1
$�
$�
$"(��Ea(jc%,kc%,hc%,N%,X%):�A(N%):ȎN%�
$J&�Ra%,`a%,U%:�Ca(jc%,kc%,hc%,N%,X%)
$^
�Q%:ȎX%�
$^�6:�h(Q%,9,1)
$r�8:�h(Q%,9,-1)
$|�11:�W%>=0�a:�P(Q%)
$|)�12:�a:�W%=-2 n%=�q(Q%,0)�n%=�q(Q%,0)
$��
$�
�R%:ȎX%�
$��6:�h(R%,9,1)
$��8:�h(R%,9,-1)
$��11:�W%>=0�a:�P(R%)
$�)�12:�a:�W%=-2 n%=�t(R%,0)�n%=�u(R%,0)
$��
$�
�F%:ȎX%�
$��6:�h(F%,9,1)
$��8:�h(F%,9,-1)
$��13,14,15:�u
$�%�17,18:�e(F%,15,1):�e(F%,20,0):�u
%"�19:�e(F%,15,0):�e(F%,20,1):�u
%�21:�a:�Ma
%
�22:�a:�K
%&�11:�W%>=0�a:�P(F%)
%&)�12:�a:�W%=-2 n%=�v(F%,0)�n%=�w(F%,0)
%0�
%:�Ta%:�X%=4�a:�Na
%D�Sa%:ȎX%�
%N
�2:�a:�Oa
%b�3:�a:�L
%l�4:�a:�M
%v
�5:�a:�Pa
%��
%��Wa%:�X%=2�
%� �a:�Db%=-2 n%=�x(0)�n%=�y(0)
%��
%�.�Ua%:n%=�d(kc%-I%):�n%>=0�n%<Rb%�v(Ua%,n%)
%�+�Y%:n%=�d(kc%-I%):�n%>=0�n%<S%�Q(Y%,n%)
%�+�H%:n%=�d(kc%-I%):�n%>=0�n%<D%�Q(H%,n%)
%�.�Xa%:n%=�d(kc%-I%):�n%>=0�n%<Sb%�Q(Xa%,n%)
%�
�L%:ȎX%�
%��19:�h(L%,22,1)
%��21:�h(L%,22,-1)
%�%�32,33,34,35,36,37:�a:�N(X%-32,1)
%��31:�a:�Qa(�)
&�
&�Ya%:ȎX%�
&�10:�n-i>k n-=i:�g
&�11:n+=i:�g
&*�12:k-=i:�g
&4�13:�k+i<n k+=i:�g
&4�14:�j+g<m j+=g:�g
&>�15:j-=g:�g
&R�16:m+=g:�g
&\�17:�m-g>j m-=g:�g
&\�18:k-=i:n-=i:�g
&p�19:m+=g:j+=g:�g
&z�20:m-=g:j-=g:�g
&��21:n+=i:k+=i:�g
&��22:�a:�Ra
&��26:�h(Ya%,29,1)
&��28:�h(Ya%,29,-1)
&�
�9:�a:�Sa
&��
&��Va%:ȎX%�
&��4:�o(6,-1,14)
&��5:�o(6,1,14)
&��8:�o(7,-1,15)
&��9:�o(7,1,15)
&��12:�o(14,-1,6)
&��13:�o(14,1,6)
'�16:�o(15,-1,7)
'�17:�o(15,1,7)
'�
'
�Z%:ȎX%�
'$:�5:�E(Z%,4,1-(Pb%�1),9,-1):Pb%=(Pb%�1)+(�(�b(Z%,4))*2)
'89�6:�E(Z%,4,1-(Pb%�1),9,1):Pb%=(Pb%�1)+(�(�b(Z%,4))*2)
'B3�7:�b(Z%,4)="0"�b(Z%,4,"1",1):Pb%=2�Pb%=Pb%��1
'B�8:Pb%=Pb%�1
'V�9:�O(�e(Z%,9)=0)
'`�
'`�Za%:ȎX%�
'j�1:�h(Za%,3,1)
'~�4:�h(Za%,3,-1)
'�
�5:�a:�Ta
'��
'��_a%:�X%=8�a:�Ua
'��
'��
'� ��v(w%,o%):�E%=w%�M%?o%=255�
'�C�m:E%=w%:M%?o%=255:_%=0:�B(w%,0,-40-36*o%,320,-36*o%):�w%=Xa%�R
'��
(��Q(w%,o%):�E%<>-1�E%<>w%�m
(E%=w%:�M%?o%=255�
((M%?o%=0:_%-=1:�_%=-1 E%=-1
(2�:M%?o%=255:_%+=1
(P�
(P0�B(w%,0,-40-36*o%,320,-36*o%):�w%=Xa%�_%=0�R
(d�
(n��m:�i%,lc%:�E%=-1�
(��_%=0 lc%=��lc%=�
(�Ri%=0:ȕi%<ya%�_%>=0:�M%?i%=255 M%?i%=0:_%-=1:�lc%�B(E%,0,-40-36*i%,320,-36*i%)
(�i%+=1:�:�lc%=��f(E%)
(�E%=-1:�
(���S(w%,n%):�i%:�w%<>E%�m
(�)i%=0:ȕi%<n%:�M%?i%=0 M%?i%=255:_%+=1
)%i%+=1:�:�f(w%):�_%=-1 E%=-1�E%=w%
)�
)"P��W:�m%:m%=_%>0:�Va(E%<>Y%,m%):�Wa(E%<>Ua%):�Xa(E%<>H%,m%):�Ya(E%<>Xa%,m%):�
)rV��Va(g%,m%):�e(Sa%,2,S%=ya%):�e(Sa%,3,g%�m%):�e(Sa%,4,g%):�e(Sa%,5,g%�m%�D%=mc%):�
)�"��Wa(g%):�e(Ta%,4,g%�D%=mc%):�
)�M��Xa(g%,m%):�i%:�e(U%,4,g%�m%):�e(U%,5,g%):�e(U%,6,D%=mc%):�g%�m%�D%=mc%�
)��e(U%,7,1):�e(U%,8,1)
)�C�:i%=0:ȕM%?i%=0:i%+=1:�:g%=G%?(i%*4+3):�e(U%,7,g%):�e(U%,8,g%)
*�
*�
*:��Ya(g%,m%):�e(F%,21,Sb%=nc%):�e(F%,22,g%):�(g%�m%)=0�
*:Y�e(F%,17,1):�e(F%,18,1):�e(F%,19,1):�e(F%,13,1):�e(F%,14,1):�e(F%,15,1):�e(F%,20,1):�
*N'��Aa(N%,x%,y%):�g%:�Fa:Aa%=-1:ȎN%�
*���U%,H%:Aa%=1:�c(2,0,D%=0):�c(2,1,D%=0):�c(2,2,D%=0):�c(2,3,D%=0):�c(2,4,E%=-1):�c(2,5,E%<>H%):�c(2,7,E%<>H%):!q%=U%:q%!4=7:ș262350,,q%:�c(2,6,(q%!24)�(1<<22))
*��Qa%:Aa%=4
*�p�Sa%,Y%:Aa%=5:�c(6,0,S%=0):�c(6,1,S%=0):�c(6,2,S%=0):�c(6,3,E%=-1):�c(6,4,E%<>Y%�_%>0�S%=ya%):�c(6,5,E%<>Y%)
*��Ta%,Ua%,L%,Z%,Ya%:Aa%=3
*�=�F%,Xa%:Aa%=9:�c(9,0,Sb%=0):�c(9,1,E%=-1):�c(9,2,E%<>Xa%)
+�
+�Aa%=-1�
+/ș262356,,ta%!(Aa%*4),x%,y%:Ba%=x%:Ca%=y%:�
+*w��Fa:�q(3,0,�g(U%)):�q(3,1,�g(Qa%)):�q(3,2,�g(L%)):�q(3,3,�g(Ya%)):�q(3,4,�g(Z%)):�q(3,5,�g(Ta%)):�q(3,6,�g(Sa%)):�
+���a:�s%:s%=ua%:�da%=0�
+�Gș530048,,z%:da%=�:!s%=!z%:s%!4=z%!4:s%!8=0:s%!12=z%!12:s%!16=z%!16
+��:ș530048,,s%:da%=�
+��
+��
,��ma:�n$:ȎLa%�
,B��Ra%,`a%:n$=�b(La%,1):ș262351,,q%:q%!32=q%!4:q%!28=!q%:q%!24=q%!16:q%!20=q%!12:q%!16=1:q%!12=0:q%!36=0:q%!40=Da%:$(q%+44)=�T(n$)+�0:!q%=60:ș262375,17,q%,q%!20,q%!24:Na%=La%
,��
,�La%=�:�
,���na:�d%,k%:k%=�:Ȏz%!24�
,�.�385,386,387,388,389,390,391:�z(z%!24-385)
-
-�401,402,403,404,405,406:�Za(z%!24-401,�)
-,�417,418,419,420,421,422:�N(z%!24-417,1)
-Ȏ!z%�
-�Ra%:�z%!24=13�y(Ra%,2,4)
-(�`a%:�z%!24=13�y(`a%,2,4)
-2�Q%:�z%!24=13�y(Q%,12,4)
-<,�F%:�z%!4=20�u:k%=�:�z%!24=13�y(F%,12,4)
-F�Wa%:Ȏz%!4�
-P�4:�z%!24=13�t(Wa%,1):k%=�
-Z �1:�z%!24=13�y(Wa%,2,4):k%=�
-d�
-n�Va%:�_a(z%!4,z%!24):k%=�
-�!�L%:�z%!24=13�y(L%,31,4):k%=�
-��
-��
-��k%=�ș262364,z%!24
-��
-�1��oa:�oc%:oc%=�:ș262351,,q%:�((q%!8)�1)oc%=�
-�
ȎAa%�
-�
�0:�`a
.
�1:�ab
.�3:�z(!z%)
.
�4:�bb
."
�5:�cb
.,
�9:�db
.6�
.6%�oc%ș262356,,ta%!(Aa%*4),Ba%,Ca%
.@�
.J��`a:Ȏ!z%�
.h�1:�z(z%!4)
.|	�2:�s
.��
.��
.���ab:�i%:Ȏ!z%�
.��0:Ȏz%!4�
.��0:�S(H%,D%)
.�7�1:�m:i%=0:ȕi%<D%:�G%?(4*i%+1)=255 M%?i%=255:_%+=1
.� i%+=1:�:�_%<>-1 E%=H%:�f(H%)
.�5�2:�m:i%=0:ȕi%<D%:�G%?(4*i%+1)=0 M%?i%=255:_%+=1
.� i%+=1:�:�_%<>-1 E%=H%:�f(H%)
/�3:�E%<>H%�m
/Bi%=0:ȕi%<D%:�M%?i%=0 M%?i%=255:_%+=1��M%?i%=255 M%?i%=0:_%-=1
/&i%+=1:�:�_%=-1 E%=-1�E%=H%
/0
�f(H%)
/D	�4:�m
/N�5:Ȏz%!8�
/N�0:�T(255,-1)
/b�1:�T(0,-1)
/l�2:�T(255,0)
/v�
/v
�6:�eb
/�
�7:�Ia
/��
/�r�c(2,0,D%=0):�c(2,1,D%=0):�c(2,2,D%=0):�c(2,3,D%=0):�c(2,4,E%=-1):�c(2,5,E%<>H%):�c(2,6,E%<>H%):�c(2,7,E%<>H%)
/��1
/��2:�z(z%!4)
/��
/��
/���z(n%):�w%:Ȏn%�
/��0:w%=U%
0
�1:w%=Qa%
0�2:w%=L%
0 
�3:w%=Ya%
0*�4:w%=Z%
04
�5:w%=Ta%
0>
�6:w%=Sa%
0H�
0H�g(w%)�
0R�n(w%):�q(3,n%,0)
0p�:Ȏw%�
0z�Qa%:�j(w%):�i
0��L%:�fb
0��Ya%:�gb
0��Z%:�hb
0��j(w%)
0��
0��q(3,n%,1)
0��
0��
0���bb:Ȏ!z%�
0��1:�z(z%!4)
1�
1�
1��cb:Ȏ!z%�
1.�0:Ȏz%!4�
18�0:�S(Y%,S%)
1L
�1:�ib(�)
1V
�2:�ib(�)
1`	�3:�m
1j
�4:�jb
1t	�5:�M
1~�
1~V�c(6,0,S%=0):�c(6,1,S%=0):�c(6,2,S%=0):�c(6,3,E%=-1):�c(6,4,E%<>Y%):�c(6,5,E%<>Y%)
1��1
1��2:�z(z%!4)
1��
1��
1���db:Ȏ!z%�
1��0:�S(Xa%,Sb%):�_%=0�R
1�	�1:�m
1�	�2:�K
1��
1�1�c(9,0,Sb%=0):�c(9,1,E%=-1):�c(9,2,E%<>Xa%):�
2
3��pa:�pc%,qc%,d%,s%:pc%=z%!4:qc%=z%!8:�pc%=Ea%�
2PȎz%!16�
2Z	�0:�s
2n�1:�z%!40=Da%�
2n�U("Wimp$Scrap")=""�
2x�d%=�a("Unable to transfer data due to absence of a scrap�file. Open a directory viewer containing !Scrap to remedy this.","OK","","")
2�m�:�i%=0�40�4:q%!i%=z%!i%:�:!q%=60:q%!12=qc%:q%!16=2:$(q%+44)="<Wimp$Scrap>"+�0:ș262375,17,q%,pc%:Oa%=qc%
2��
2��
2�
�2:ȎNa%�
2��Ra%:�F(�o(z%+44),1,�,�)
2�$�`a%:�F(�o(z%+44),1,�e(`a%,4),�)
2��
2��3:�z%!40=Da%�
2�h!q%=20:q%!12=qc%:q%!16=4:ș262375,17,q%,pc%:�J(�o(z%+44),z%!20):�qc%=Oa%�"Delete <Wimp$Scrap>":Oa%=0
3�
3�4:Ma%=�
3,�5:�z%!40=Da%�
3,e!q%=20:q%!12=qc%:q%!16=4:ș262375,17,q%,pc%:�J(�o(z%+44),-2):�qc%=Oa%�"Delete <Wimp$Scrap>":Oa%=0
3J�
3T�8:�aa%�ba%�
3^D!q%=20:q%!12=qc%:q%!16=0:ș262375,19,q%,pc%:s%=�:�(z%!20)�1 s%=�
3r^m$="user functions and plotted graphs":�aa%=�m$="plotted graphs"��ba%=�m$="user functions"
3|R�a("Unsaved "+m$+" in Funcy 2. Do you really want to quit?","Yes","No","")=0�
3�3�s%=�!q%=-1:q%!4=-1:q%!24=508:ș262375,8,q%,pc%
3�!$q%="TASK":ș262365,Ea%,!q%:�
3��
3��
3��262337:�Z:�x:�i
3��
3��
3���kb(N%):ȎN%�
3�.�U%:�ba%=��D(U%,"Plotted functions"):ba%=�
4-�Sa%:�aa%=��D(Sa%,"User functions"):aa%=�
4�
4�
4&��k(N%):ȎN%�
4D0�U%:�ba%=��D(U%,"Plotted functions *"):ba%=�
4N/�Sa%:�aa%=��D(Sa%,"User functions *"):aa%=�
4X�
4b�
4l(��ia:�h$,i%:ș16�h$:�h$," -quit ")�
4�Di%=�h$,""""):i%=�h$,"""",i%+1):�i%+=1:��h$,i%,1)<>" ":u$=�h$,i%)
4��
4��
4ڥ��Ga(w%,i%,d%):�A(w%):!q%=w%:q%!4=i%:ș262350,,q%:!q%=0:q%!4=5:q%!8+=T%:q%!12+=I%:q%!16+=T%:q%!20+=I%:q%!24=0:q%!28=0:q%!32=1279:q%!36=1023:La%=d%:ș262352,,q%:�
5*���F(b$,rc%,sc%,y%):�G$,d%,a%,i%,n%,i%,j%,tc%,uc%:�rc%=0�b$="<Wimp$Scrap>"d%=�a("Data transfers can only take place by dragging icons","OK","",""):�
5R}�b$<>"<Wimp$Scrap>"��b$,".")=0��b$,":")=0 d%=�a("To save, please drag the save icon to a directory viewer.","OK","",""):�
5\uc%=sc%:�sc%<>0 sc%=S%
5ftc%=y%:�y%<>0 y%=D%
5p�a%=�b$:�#a%,sc%,y%,vc%,wc%:i%=0:n%=V%:ȕi%<sc%:�#a%,!n%,$(n%+4),$(n%+5+�($(n%+4))):n%+=!n%:i%+=1:�:i%=0:n%=O%:ȕi%<y%:�#a%,!n%,$(n%+4),G%!(i%*4):n%+=!n%:i%+=1:�:�tc%=0�
5��#a%,-1
5�b�:�#a%,1,j,m,g,k,n,i,_b%,bc%,`b%,ac%,Yb%,Zb%,Ha%,Ja%,Ia%,Ka%:�i%=0�5:�j%=0�5:�#a%,a(i%,j%):�:�
5��
5�C�#a%:�"SetType "+b$+" "+�~Da%:�"Stamp "+b$:�b$<>"<Wimp$Scrap>"�
5��uc%�b(Ra%,1,b$,0):�kb(Sa%)
6�tc%�b(`a%,1,b$,0):�kb(U%)
6�
6	�rc%�
6$�ș262351,,q%:q%!20=q%!12:q%!24=q%!16:q%!28=!q%:q%!32=q%!4:!q%=(48+�b$)��3:q%!12=qc%:q%!16=3:q%!40=Da%:$(q%+44)=b$+�0:ș262375,17,q%,pc%:Ma%=�:Na%=�
6j�
6jș262356,,-1:�
6~���J(b$,N%):�a%,f%,y%,i%,t%,l%,f$,d$,xc%,yc%,b%,g%,u%,zc%,Ac%:ș263872:a%=�b$:�#a%,f%,y%,xc%,yc%:Bc%=�:Xb%=�:Cc%=�:zc%=D%:Ac%=S%:ȎN%�
6��U%,H%:Cc%=�:Bc%=�
6��Sa%,Y%:Cc%=�:Xb%=�
6��Ya%,L%,Qa%,L%:Xb%=�:Bc%=�
6��
6�n�S%+f%>ya%�#a%:d%=�a("This file contains too many user functions to be loaded at the moment","OK","",""):�
6�n�D%+y%>mc%�#a%:d%=�a("This file contains too many plotted graphs to be loaded at the moment","OK","",""):�
7�Bc%�f%>0�
7
�vc%+xc%>Dc%�
7�b%=(vc%+xc%-Dc%)�2048:t%=�j(V%,2048*(b%+1)):�t%<>0 V%=t%:Dc%+=2048*(b%+1)�d%=�a("Unable to load user functions due to lack of memory","OK","",""):�#a%:�
7(�
72�t%=V%+vc%:u%=0:ȕi%<f%:�#a%,l%,f$,d$:f$=�z(f$):�f$<>""�H(f$,d$)d$="":d%=�a("Cannot load '"+f$+"' as it is a recursive definition which cannot be evaluated","OK","","")
7F�f$<>""�d$<>""�
7P>!t%=l%:$(t%+4)=f$:$(t%+5+�f$)=d$:vc%+=l%:t%+=l%:S%+=1:u%=1
7d�
7di%+=1:�:�u%=1�Ac%>0�k(Sa%)
7n�vc%<Dc%-2048�
7x;b%=(Dc%-vc%)�2048:t%=�j(V%,-2048*b%):V%=t%:Dc%-=2048*b%
7��
7�t%=36*S%+4:�t%<200 t%=200
7�?�l(Y%,0,-t%,226,0):�f(Y%):�b$<>"<Wimp$Scrap>"�b(Ra%,1,b$,0)
7�(�:i%=0:ȕi%<f%:�#a%,l%,f$,d$:i%+=1:�
7��
7��Xb%�y%>0�
7��wc%+yc%>Ec%�
7ܔb%=(wc%+yc%-Ec%)�2048:t%=�j(O%,2048*(b%+1)):�t%<>0 O%=t%:Ec%+=2048*(b%+1)�d%=�a("Unable to load graphs due to lack of memory","OK","",""):�#a%:�
7��
7�qt%=O%+wc%:i%=0:ȕi%<y%:�#a%,l%,d$,g%:!t%=l%:$(t%+4)=d$:G%!(D%*4)=g%:t%+=l%:wc%+=l%:D%+=1:i%+=1:�:�zc%>0�k(U%)
8t%=36*D%+4:�t%<172 t%=172
8"?�l(H%,0,-t%,316,0):�f(H%):�b$<>"<Wimp$Scrap>"�b(`a%,1,b$,0)
86(�:i%=0:ȕi%<y%:�#a%,l%,d$,g%:i%+=1:�
8T�
8T�#a%,d%:�d%=1�Cc%�
8^E�#a%,j,m,g,k,n,i,_b%,bc%,`b%,ac%,Yb%,Zb%,Ha%,Ja%,Ia%,Ka%:�g(L%)�
8rS�G(1):�d(L%,17,_b%):�d(L%,23,bc%):�i%=26�30:�d(L%,i%,ac%=31-i%):�:�p(L%,22,`b%)
8��
8�
�g(Ya%)�
8�b�i%=3�8:�d(Ya%,i%,Yb%=9-i%):�:�i%=33�38:�d(Ya%,i%,cc%=39-i%):�:�d(Ya%,39,Yb%=0):�p(Ya%,29,Zb%)
8��
8�L�b(Va%,6,�Ha%,0):�b(Va%,7,�Ja%,0):�b(Va%,14,�Ia%,0):�b(Va%,15,�Ka%,0):�U
9�:�i
9�
9 �#a%:�N%=-2�j(Qa%):�j(U%):�i
90ha%=�:ș263873:�
9:���da:�a%,p%,l%,p$,i%,q$,r$,d%:Rb%=0:ec%=0:Fc%=0:a%=�"<Funcy2$Dir>.Presets":�a%=0 d%=�a("Preset functions couldn't be found.","OK","",""):�
9�mp$=�#a%:�p$<>"funcy2:presets"�#a%:d%=�a("Presets file does not conform to required format.","OK","",""):�
9�.p%=0:�:p$=�#a%:r$=p$:�p$,1)<>"|"��(p$)>0�
9���i%=1�2:q$=�A(p$):p%+=�(q$)+1:�:p%+=34:�i%=1�5:q$=�A(p$):�:�p$=""��p$,",")�#a%:d%=�a("Error in preset definition: "+r$,"OK","",""):�
9��
9�v�p$="|end":ec%=�r(p%+4):�ec%=0�#a%:d%=�a("I have run out of memory trying to load preset functions.","OK","",""):�
9�IFc%=p%:p%=0:Rb%=0:�#a%=0:p$=�#a%:�:l%=4:p$=�#a%:�p$,1)<>"|"��(p$)>0�
:u�i%=1�2:q$=�A(p$):$(ec%+p%+l%)=q$:l%+=�(q$)+1:�:�i%=1�6:|(ec%+p%+l%)=�(�A(p$)):l%+=5:�:!(ec%+p%)=l%:p%+=l%:Rb%+=1
:\�
:\6�p$="|end"�Rb%=ya%:�#a%:p%=36*Rb%+4:�p%<200 p%=200
:p�l(Ua%,0,-p%,226,0):�
:�SݤA(�s$):�t$,i%:i%=�s$,","):�i%=0 t$=s$:s$="":=t$�t$=�s$,i%-1):s$=�s$,i%+1):=t$
:���Na:�i%,n%,l%:�E%<>Ua%�
:�pi%=0:n%=ec%:ȕM%?i%=0�i%<Rb%:n%+=!n%:i%+=1:�:�i%>=Rb%�999,"3 - Allowed to plot preset when nothing selected"
:��e(Ta%,5)�
:�zl%=�($n%)+1:l%+=(�$(n%+l%))+1:j=|(n%+l%):m=|(n%+l%+5):g=|(n%+l%+10):k=|(n%+l%+15):n=|(n%+l%+20):i=|(n%+l%+25):�x:�G(�)
;�
;�lb(n%+4):�
;���ea:�a%,l%,d%:a%=�"<Funcy2$Dir>.BasicFuncs":�a%=0 d%=�a("Resource file 'BasicFuncs' missing from !Funcy directory.  Cannot load application.","OK","",""):ca%=�:�
;`�l%=�#a%:�#a%:Gc%=�r(l%+4):�Gc%=0 d%=�a("I have run out of memory whilst trying to load basic functions","OK","","",""):ca%=�:�
;~,�"LOAD <Funcy2$Dir>.BasicFuncs "+�~Gc%:�
;����fa:�d%:Db%=-1:vc%=0:Dc%=0:S%=0:V%=�r(2048):�V%=0 d%=�a("I have run out of memory trying to allocate memory for user functions","OK","",""):ca%=�:�
;؛Dc%=2048:�b%(63):b%()=1,1,1,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,0,0,1,0,0,1,1,0,0,1,0,1,1,0,0,1,0,0,1,0,1,1,1,1,1,1,0,1,1,0,0,1,0,0,1,1:�
;�O��jb:�f$,d$,`%,i%,n%,l%,t%:�S%=ya%�999,"4 - Allowed to copy user when full"
<ki%=0:n%=V%:ȕM%?i%=0�i%<S%:n%+=!n%:i%+=1:�:�i%>=S%�999,"5 - Allowed to copy user when nothing selected"
<2-`%=!(ta%+8*4):`%+=28+12:f$=$(!`%):�f$=""�
<Ff$=�z(f$):�f$=""�
<P.d$=$(n%+5+�($(n%+4))):d$=�s(d$,f$):�d$=""�
<Z#l%=(�f$+�d$+10)��3:�vc%+l%>Dc%�
<not%=�j(V%,2048):�t%<>0 V%=t%:Dc%+=2048�d%=�a("Unable to store function due to lack of memory","OK","",""):=�
<��
<�Vt%=V%+vc%:!t%=l%:$(t%+4)=f$:$(t%+5+�f$)=d$:vc%+=l%:S%+=1:t%=36*S%+4:�t%<200 t%=200
<�'�l(Y%,0,-t%,226,0):�f(Y%):�k(Sa%):�
<�3��Oa:�J%:J%=�:�Db%=-2 J%=�x(0)��Db%>=0 J%=�y(0)
<�
�J%=��
<�6�S%=ya%�999,"6 - Allowed to create user when full"
<�<�b(Wa%,4,"",1):�b(Wa%,1,"",1):�j(Wa%):Db%=-2:�t(Wa%,4):�
=�ݤx(Hc%):�f$,d$,l%,t%,d%:f$=�b(Wa%,4):d$=�b(Wa%,1):�f$=""�d$=""d%=�a("You must enter something into both fields","OK","",""):=�
=@f$=�z(f$):�f$=""=�
=Jd$=�s(d$,f$):�d$=""=�
=T#l%=(�f$+�d$+10)��3:�vc%+l%>Dc%�
=hot%=�j(V%,2048):�t%<>0 V%=t%:Dc%+=2048�d%=�a("Unable to store function due to lack of memory","OK","",""):=�
=|�
=�Vt%=V%+vc%:!t%=l%:$(t%+4)=f$:$(t%+5+�f$)=d$:vc%+=l%:S%+=1:t%=36*S%+4:�t%<200 t%=200
=�)�l(Y%,0,-t%,226,0):�f(Y%):�Hc%�n(Wa%)
=��k(Sa%):=�
=�"��L:�J%,i%,a%,n%:J%=�:�E%<>Y%�
=�%�Db%=-2 J%=�x(0)��Db%>=0 J%=�y(0)
=�
�J%=��
=�ki%=0:n%=V%:ȕM%?i%=0�i%<S%:n%+=!n%:i%+=1:�:�i%>=S%�999,"7 - Allowed to edit user when nothing selected"
>Q�b(Wa%,4,$(n%+4),1):�b(Wa%,1,$(n%+5+�($(n%+4))),1):�j(Wa%):�t(Wa%,4):Db%=i%:�
>&��Pa:�i%,n%:�E%<>Y%�
>Dki%=0:n%=V%:ȕM%?i%=0�i%<S%:n%+=!n%:i%+=1:�:�i%>=S%�999,"8 - Allowed to plot user when nothing selected"
>X�lb(n%+4):�
>bjݤy(Hc%):�y$,F$,f$,d$,Ic%,l%,n%,i%,d%,Ac%:�Db%<0�999,"9 - Allowed to close edit user when not editing"
>��n%=V%:i%=0:ȕi%<Db%:n%+=!n%:i%+=1:�:y$=$(n%+4):F$=$(n%+5+�y$):Ic%=!n%:f$=�b(Wa%,4):d$=�b(Wa%,1):�f$=""�d$=""d%=�a("You must enter something into both fields","OK","",""):=�
>��f$<>y$f$=�z(f$)
>��f$=""=�
>�d$=�s(d$,f$):�d$=""=�
>�Pl%=(�f$+�d$+10)��3:J%=�:Ac%=V%:�l%>Ic%J%=�V(n%,l%-Ic%)��l%<Ic%�mb(n%,Ic%-l%)
>��J%=�=�
>�]n%+=(V%-Ac%):!n%=l%:$(n%+4)=f$:$(n%+5+�f$)=d$:�B(Y%,0,-40-36*Db%,320,-36*Db%):�Hc%�n(Wa%)
?�i:�k(Sa%):=�
?4[ݤz(n$):�i%,n%,J%,a$,d%,e$:�i%=1��n$:a$=�n$,i%,1):�a$>="A"�a$<="Z"�n$,i%,1)=�(�(a$)+32)
?Rl�:�n$,1)="x"d%=�a(n$+"(x) is an invalid name because the first character cannot be 'x'","OK","",""):=""
?fg��n$)="x"d%=�a(n$+"(x) is an invalid name because the last character cannot be 'x'","OK","",""):=""
?phJ%=�B(n$,d%):e$=n$+"(x) is an invalid name for a function because it is already defined as a ":ȎJ%�
?�,�1:d%=�a(e$+"BASIC function","OK","","")
?�-�2:d%=�a(e$+"preset function","OK","","")
?�+�3:d%=�a(e$+"user function","OK","","")
?�5�4:d%=�a(e$+"unary operator in BASIC","OK","","")
?�6�5:d%=�a(e$+"binary operator in BASIC","OK","","")
?�/�6:d%=�a(e$+"constant in BASIC","OK","","")
?��
?��J%=0=n$�=""
?�uݤs(d$,f$):�i%,b%,Jc%,l%,l$,n%,n$,p$,o$,J%,Kc%,d%,s$:Jc%=�:b%=0:�i%=1��d$:�d$,i%,1)="("b%+=1��d$,i%,1)=")"b%-=1
@�b%<0 Jc%=�
@=�:�b%>0 i%=�a("Missing ')' in definition","OK","",""):=""
@$L�b%<0 i%=�a("Missing '(' or too many ')'s in definition","OK","",""):=""
@.J�Jc%i%=�a("')' before corresponding '(' in definition","OK","",""):=""
@8\n%=7:n$="":p$=d$:o$="":Kc%=0:�:l%=n%:l$=n$:n$=�n(p$,s$):n%=�I(n$,d%):o$+=s$+n$:�d%Kc%+=1
@L0J%=b%(n%*8+l%):�J%=0�n$="-"n%=5:J%=b%(40+l%)
@V�J%=0 p$="":J%=-1
@`T�n%=7�J%=-1:�J%=-1 i%=�a("Error in definition with: '"+l$+n$+"'","OK","",""):=""
@tV�f$<>""�H(f$,o$)i%=�a("Recursive definitions cannot be evaluated","OK","",""):=""
@~g�Kc%>0 i%=�a("Definition contains "+�Kc%+" as yet undefined function(s)","OK","Whoops",""):�i%=1=""
@�=o$
@�Dݤn(�g$,�D$):�k$:D$="":ȕ�g$,1)=" ":g$=�g$,2):D$=" ":�:�g$=""=""
@�
Ȏ�g$,1)�
@�2�"+","-","/","*","^","(",")","x","X":k$=�g$,1)
@�:�"0","1","2","3","4","5","6","7","8","9",".":k$=�W(g$)
@�k$=�X(g$)
@��
@�g$=�g$,�(k$)+1):=k$
AQݤW(i$):�o$:o$="":ȕ�"0123456789.",�i$,1))��(i$)>0:o$+=�i$,1):i$=�i$,2):�:=o$
AF�ݤX(i$):�o$:o$="":ȕ�"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",�i$,1))��(i$)>0:o$+=�i$,1):i$=�i$,2):�:��o$)="X"��o$)="x"o$=�o$)
Ad=o$
A�+ݤI(�c$,�u%):�t%,f%,i%,a%:u%=0:�c$=""=7
A�t%=1:Ȏ�c$,1)�
A�5�"0","1","2","3","4","5","6","7","8","9",".":t%=0
A�
�"(":t%=2
A�
�")":t%=3
A�
�"-":t%=4
A��"+","*","/","^":t%=5
A��"x","X":c$="x":t%=6
A��
A�
�t%<>1=t%
A�f%=�B(c$,i%):�f%>3 t%=f%
A��f%=0 u%=�
B	Ȏf%�
BE�0,2,3:�i%=1��c$:a%=�(�c$,i%,1)):�a%>64�a%<91�c$,i%,1)=�(a%+32):�
B"H�1,4,5,6:�i%=1��c$:a%=�(�c$,i%,1)):�a%>96�a%<123�c$,i%,1)=�(a%-32):�
B6�
B@=t%
BrWݤB(f$,�m%):�o%,a%,n%,i%:�i%=1��f$:a%=�(�f$,i%,1)):�a%>64�a%<91�f$,i%,1)=�(a%+32):�
B�:o%=0:i%=0:n%=ec%:ȕi%<Rb%:�f$=$(n%+4)i%=Rb%:o%=2:m%=n%
B�n%+=!n%:i%+=1:�:�o%=2=2
B�2i%=0:n%=V%:ȕi%<S%:�f$=$(n%+4)i%=S%:o%=3:m%=n%
B�n%+=!n%:i%+=1:�:�o%=3=3
B�?�i%=1��f$:a%=�(�f$,i%,1)):�a%>96�a%<123�f$,i%,1)=�(a%-32):�
B�6i%=0:n%=Gc%:o%=-1:ȕi%<25:�f$=$n%o%=i%:i%=25:m%=n%
B�!n%+=�($n%)+1:i%+=1:�:�o%=-1=0
C�o%<16=1
C�o%=16=4
C&�o%<22=5
C0=6
CNmݤH(f$,d$):�m%,n$,s$,t%,a%,Lc%:t%=�:�:n$=�n(d$,s$):a%=�(n$):�(a%>64�a%<91�a%<>88)�(a%>96�a%<123�a%<>120)�
ClLc%=�B(n$,m%):�Lc%=3�
Cv+�n$=f$t%=��t%=�H(f$,$(m%+5+�($(m%+4))))
C��:�Lc%=0�n$=f$t%=�
C��
C��
C��d$=""�t%:=t%
C�"ݤV(`%,l%):�t%,d%,Ac%:�l%<=0=�
C�Ac%=V%:�vc%+l%>Dc%�
C�ot%=�j(V%,2048):�t%<>0 V%=t%:Dc%+=2048�d%=�a("Unable to store function due to lack of memory","OK","",""):=�
D�
D/`%+=(V%-Ac%):�r(`%,V%+vc%,`%+l%):vc%+=l%:=�
D4S��mb(`%,l%):�r(`%+l%,V%+vc%,`%):vc%-=l%:�vc%<Dc%-2048 V%=�j(V%,-2048):Dc%-=2048
DH�
DR��M:�i%,n%,Ac%:�E%<>Y%�
Dz)i%=0:n%=V%:ȕi%<500�_%>=0:�M%?i%=255�
D�FAc%=V%:�mb(n%,!n%):S%-=1:n%+=(V%-Ac%):M%?i%=0:_%-=1:�Db%=i%�n(Wa%)
D�
�:n%+=!n%
D��
D�+i%+=1:�:E%=-1:i%=36*S%+4:�i%<200 i%=200
D�*�l(Y%,0,-i%,226,0):�f(Y%):�i:�k(Sa%):�
D�^��ib(Mc%):�i%,n%:�S%=0�999,"10 - Allowed to select off select menu when nothing to select"
E$<�m:n%=O%:i%=0:ȕi%<D%:�nb($(n%+4)):i%+=1:n%+=!n%:�:�Mc%�
EB7i%=0:ȕi%<S%:�M%?i%=0 M%?i%=255:_%+=1�M%?i%=0:_%-=1
ELi%+=1:�
E`�
E`�_%<0 E%=-1�E%=Y%:�f(Y%)
Ej�
Eth��nb(d$):�n$,s$,a%,i%,n%,j%,m%:�:n$=�n(d$,s$):a%=�(n$):�(a%>64�a%<91�a%<>88)�(a%>96�a%<123�a%<>120)�
E�-i%=0:n%=V%:j%=-1:�:�n$=$(n%+4)j%=i%:m%=n%
E�&i%+=1:n%+=!n%:�j%>=0�i%=S%:�j%>=0�
E��M%?j%=0 M%?j%=255:_%+=1
E��nb($(m%+5+�($(m%+4))))
E��
E��
E��d$="":�
F
���ga:�d%,i%:mc%=50:�G% mc%*4:nc%=20:�fc% nc%*6:D%=0:wc%=0:O%=�r(2048):�O%=0 d%=�a("I have run out of memory trying to allocate memory for graphs","OK","",""):ca%=�:�
FZ�Ec%=2048:�a(5,5):j=-10:m=10:g=2:k=-10:n=10:i=2:�i%=0�5:�ob(i%):�:_b%=�:bc%=�:`b%=7:ac%=5:Yb%=0:Zb%=7:Eb%=�:Pb%=0:j$="":W%=-1:Nc%=-1:Oc%=-1:Sb%=0:Pc%=-1:Fb%=0:dc%=0:cc%=6:�a%(6):a%()=0,40,20,10,5,2,1:�x:�
F�%��eb:�i%,n%,Cb%,l%,t%,j%:�E%<>H%�
F�li%=0:n%=O%:ȕM%?i%=0�i%<D%:n%+=!n%:i%+=1:�:�i%>=D%�999,"11 - Allowed to edit func when nothing selected"
F�!Cb%=0:�i%<D%-1�G%?(i%*4+7)>0�
GjCb%=�a("Copy function with or without transformations and/or calculus functions?","With","Without","")
G�
G�:l%=!n%:�wc%+l%>Ec%�
G,qt%=�j(O%,2048):�t%<>0 O%=t%:Ec%+=2048�Cb%=�a("Unable to copy function due to lack of memory","OK","",""):��:�
G@�
GJ�j%=0:t%=O%+wc%:�:t%!j%=n%!j%:j%+=4:�j%=l%:G%!(D%*4)=G%!(i%*4)��65280:wc%+=l%:D%+=1:i%+=1:n%+=!n%:�D%=mc%�Cb%=1�G%?(i%*4+3)=0:t%=36*D%+4:�t%<172 t%=172
G|&�l(H%,0,-t%,316,0):�f(H%):�k(U%):�
G�Q��lb(Qc%):�l%,l$,t%,d%:�D%=mc%�999,"12 - Allowed to plot func when list full"
G�0l$=($Qc%)+"(x)":l%=(�(l$)+9)��3:�wc%+l%>Ec%�
G�nt%=�j(O%,2048):�t%<>0 O%=t%:Ec%+=2048�d%=�a("Unable to plot function due to lack of memory","OK","",""):=�
G��
G�Yt%=O%+wc%:!t%=l%:$(t%+4)=l$:G%!(D%*4)=&FFFF07:wc%+=l%:D%+=1:t%=36*D%+4:�t%<172 t%=172
H)�l(H%,0,-t%,316,0):�f(H%):�i:�k(U%):�
H&��Ha:�i%,n%,l%:�E%<>H%�
HNGi%=0:n%=O%:l%=n%:ȕM%?i%=0�i%<D%:n%+=!n%:i%+=1:�G%?(i%*4+3)=0 l%=n%
HbC�:�i%>=D%�999,"13 - Allowed to edit func when nothing selected"
HvȎG%?(i%*4+3)�
H��0:�m(Q%)�pb(i%,n%)
H��1:�m(F%)�qb(i%,n%,l%)
H��2,3:�m(R%)�rb(i%,n%,l%)
H��
H��
H�ݤm(Rc%):�J%:�W%=-1=�
H�
ȎNc%�
H�(�Q%:�W%=-2 J%=�q(Rc%,0)�J%=�G(Rc%,0)
H�(�F%:�W%=-2 J%=�v(Rc%,0)�J%=�w(Rc%,0)
H�(�R%:�W%=-2 J%=�t(Rc%,0)�J%=�u(Rc%,0)
I�
I=J%
I*��La:�d%,i%:�m(Q%)=��
I>;�D%=mc%�999,"14 - Trying to create plot when list full"
IHj�b(Q%,2,"",0):�d(Q%,4,1):�p(Q%,9,7):�i%=13�18:�d(Q%,i%,0):�:�d(Q%,19,1):�j(Q%):�t(Q%,2):W%=-2:Nc%=Q%:�
Iz{ݤq(Hc%,Sc%):�l$,l%,t%,K%,d%:l$=�b(Q%,2):�l$=""d%=�a("You must enter some kind of function into the box","OK","",""):=�
I�l$=�s(l$,""):�l$=""=�
I� l%=(�(l$)+9)��3:�wc%+l%>Ec%�
I�nt%=�j(O%,2048):�t%<>0 O%=t%:Ec%+=2048�d%=�a("Unable to plot function due to lack of memory","OK","",""):=�
I��
I�7t%=O%+wc%:!t%=l%:$(t%+4)=l$:t%=0:�e(Q%,4)t%+=65280
I�K%=19-�f(Q%,1):�K%=0 K%=255
JCt%+=K%<<16:t%+=�k(Q%,9):G%!(D%*4)=t%:wc%+=l%:D%+=1:�Sc%�w(D%-1)
Jt%=36*D%+4:�t%<172 t%=172
J$7�l(H%,0,-t%,316,0):�f(H%):�i:�k(U%):�Hc%<>Nc%�n(Q%)
JB=�
J`���pb(i%,n%):�j%,K%:�b(Q%,2,$(n%+4),1):�d(Q%,4,G%?(i%*4+1)):�p(Q%,9,G%?(i%*4)):K%=G%?(i%*4+2):�j%=13�18:�d(Q%,j%,19-K%=j%):�:�d(Q%,19,K%=255):�j(Q%):�t(Q%,2):W%=i%:Nc%=Q%:�
J�eݤG(Hc%,Sc%):�n%,i%,l%,J%,Ic%,K%,d%,Tc%:�W%<0�999,"15 - Allowed to ok edit func when not editing"
J��n%=O%:i%=0:ȕi%<W%:n%+=!n%:i%+=1:�:l$=�b(Q%,2):�l$=""d%=�a("You must enter some kind of function into the box","OK","",""):=�
J�l$=�s(l$,""):�l$=""=�
J�RIc%=!n%:l%=(�l$+9)��3:J%=�:Tc%=O%:�l%>Ic%J%=�C(n%,l%-Ic%)��l%<Ic%�H(n%,Ic%-l%)
J��J%=�=�
K:n%+=(O%-Tc%):!n%=l%:$(n%+4)=l$:n%=0:�e(Q%,4)n%+=65280
KK%=19-�f(Q%,1):�K%=0 K%=255
K3n%+=K%<<16:n%+=�k(Q%,9):G%!(W%*4)=n%:�Sc%�w(W%)
K2$�f(H%):�i:�k(U%):�Hc%<>Nc%�n(Q%)
KP=�
Kn��Ka:�i%,n%,d%:�m(R%)=��
K��E%<>H%�
K�<�D%=mc%�999,"16 - Allowed to create calc when list full"
K�li%=0:n%=O%:ȕM%?i%=0�i%<D%:n%+=!n%:i%+=1:�:�i%>=D%�999,"17 - Allowed to edit func when nothing selected"
K��Oc%=i%:�b(R%,2,$(n%+4),1):�d(R%,13,1):�d(R%,14,0):�d(R%,4,1):�i%=15�20:�d(R%,i%,0):�:�d(R%,21,1):�p(R%,9,7):�j(R%):Nc%=R%:W%=-2:�
K�sݤt(Hc%,Sc%):�J%,t%,n%,i%,K%,Tc%:i%=0:n%=O%:ȕi%<=Oc%:i%+=1:n%+=!n%:�:Tc%=O%:t%=�f(R%,2)-11:J%=�C(n%,4):�J%=�=�
L^n%+=(O%-Tc%):!n%=4:�r(G%+i%*4-4,G%+D%*4,G%+i%*4):n%=t%<<24:n%+=�k(R%,9):�e(R%,4)n%+=65280
L,K%=21-�f(R%,1):�K%=0 K%=255
L6,n%+=K%<<16:G%!(i%*4)=n%:D%+=1:�Sc%�w(i%)
L@t%=36*D%+4:�t%<172 t%=172
LJ-�l(H%,0,-t%,316,0):�f(H%):�Hc%<>Nc%�n(R%)
L^�i:�k(U%):=�
L|���rb(i%,n%,l%):�t%,K%,j%:�b(R%,2,$(l%+4),1):t%=G%?(i%*4+3)+11:�j%=13�14:�d(R%,j%,t%=j%):�:�d(R%,4,G%?(i%*4+1)):�p(R%,9,G%?(i%*4)):K%=G%?(i%*4+2):�K%=255 K%=0
L�8�j%=15�21:�d(R%,j%,K%=21-j%):�:�j(R%):Nc%=R%:W%=i%:�
L�Sݤu(Hc%,Sc%):�t%,n%,K%:t%=�f(R%,2)-11:n%=t%<<24:n%+=�k(R%,9):�e(R%,4)n%+=65280
L�K%=21-�f(R%,1):�K%=0 K%=255
L�&n%+=K%<<16:G%!(W%*4)=n%:�Sc%�w(W%)
M�f(H%):�Hc%<>Nc%�n(R%)
M�i:�k(U%):=�
M:��Ja:�i%,n%,d%:�m(F%)=��
MN�E%<>H%�
MX=�D%=mc%�999,"18 - Allowed to create trans when list full"
Mbli%=0:n%=O%:ȕM%?i%=0�i%<D%:n%+=!n%:i%+=1:�:�i%>=D%�999,"19 - Allowed to edit func when nothing selected"
M��Oc%=i%:�b(F%,2,$(n%+4),1):�d(F%,4,1):�i%=23�28:�d(F%,i%,0):�:�d(F%,29,1):�p(F%,9,7):Sb%=0:�l(Xa%,0,-200,226,0):�j(F%):Nc%=F%:W%=-2:�
M�2ݤv(Hc%,Sc%):�J%,n%,i%,K%,l%,t%,j%,Tc%:�Sb%>0�
M�Ti%=0:n%=O%:ȕi%<=Oc%:i%+=1:n%+=!n%:�:Tc%=O%:l%=(Sb%*6+9)��3:J%=�C(n%,l%):�J%=�=�
M��r(G%+i%*4-4,G%+D%*4,G%+i%*4):n%+=(O%-Tc%):!n%=l%:n%+=4:t%=fc%:�j%=0�Sb%-1:?n%=?t%:|(n%+1)=|(t%+1):n%+=6:t%+=6:�:?n%=255:n%=1<<24:n%+=�k(F%,9):�e(F%,4)n%+=65280
NK%=29-�f(F%,1):�K%=0 K%=255
N ,n%+=K%<<16:G%!(i%*4)=n%:D%+=1:�Sc%�w(i%)
N*t%=36*D%+4:�t%<172 t%=172
N4�l(H%,0,-t%,316,0):�f(H%)
NH�
NH�Hc%<>Nc%�n(F%)
NR�i:�k(U%):=�
Np���qb(i%,n%,l%):�t%,K%,j%:�b(F%,2,$(l%+4),1):Sb%=0:n%+=4:t%=fc%:ȕ?n%<>255�Sb%<20:?t%=?n%:|(t%+1)=|(n%+1):n%+=6:t%+=6:Sb%+=1:�
N�G�d(F%,4,G%?(i%*4+1)):�p(F%,9,G%?(i%*4)):K%=G%?(i%*4+2):�K%=255 K%=0
N�8�j%=23�29:�d(F%,j%,K%=29-j%):�:�j(F%):Nc%=F%:W%=i%:�
N�Uݤw(Hc%,Sc%):�J%,n%,i%,K%,l%,t%,j%,Tc%:i%=0:n%=O%:ȕi%<W%:i%+=1:n%+=!n%:�:�Sb%>0�
N�Tl%=(Sb%*6+9)��3:Ic%=!n%:J%=�:Tc%=O%:�l%>Ic%J%=�C(n%,l%-Ic%)��l%<Ic%�H(n%,Ic%-l%)
N��J%=�=�
O�n%+=(O%-Tc%):!n%=l%:n%+=4:t%=fc%:�j%=0�Sb%-1:?n%=?t%:|(n%+1)=|(t%+1):n%+=6:t%+=6:�:?n%=255:n%=1<<24:n%+=�k(F%,9):�e(F%,4)n%+=65280
O$K%=29-�f(F%,1):�K%=0 K%=255
O.&n%+=K%<<16:G%!(i%*4)=n%:�Sc%�w(i%)
O8
�f(H%)
OLA�:�H(n%,!n%):�r(G%+(i%*4)+4,G%+(D%*4),G%+i%*4):D%-=1:�E%=H%�m
OVt%=36*D%+4:�t%<172 t%=172
O`�l(H%,0,-t%,316,0):�f(H%)
Ot�
Ot�Hc%<>Nc%�n(F%)
O~�i:�k(U%):=�
O�C��Ma:�n%:�Sb%=nc%�999,"20 - Allowed to add transform when full"
O�Bn%=fc%+Sb%*6:?n%=0:|(n%+1)=0:Sb%+=1:n%=36*Sb%+4:�n%<200 n%=200
O�!�l(Xa%,0,-n%,226,0):�f(Xa%):�
O���R:�i%,t%,a%,b%:�E%<>Xa%�
PIi%=0:ȕi%<Sb%�M%?i%=0:i%+=1:�:Pc%=i%:t%=fc%?(i%*6):a%=t%�2:�a%>2 a%=2
Pb%=t%�2:�t%=6 b%=2
PIa%+=17:b%+=13:�i%=13�19:�d(F%,i%,a%=i%�b%=i%):�i%<15�i%>16�e(F%,i%,0)
P2F�:�e(F%,15,t%<4):�e(F%,20,t%>3):�t%<4�b(F%,20,�(|(fc%+Pc%*6+1)),1)
PP�
PZx��u:�t%:t%=(�f(F%,2)-17)*2+�f(F%,3)-13:fc%?(Pc%*6)=t%:|(fc%+Pc%*6+1)=�(�b(F%,20)):�B(Xa%,0,-40-36*Pc%,226,-36*Pc%):�
P���K:�i%,t%,f%,s%:�E%<>Xa%�
P�0i%=0:f%=fc%:t%=f%:s%=Sb%:ȕi%<s%:�M%?i%=255�
P�Sb%-=1:M%?i%=0:_%-=1
P�#�:?t%=?f%:|(t%+1)=|(f%+1):t%+=6
Q�
Q2f%+=6:i%+=1:�:E%=-1:i%=36*Sb%+4:�i%<200 i%=200
Q"!�l(Xa%,0,-i%,226,0):�f(Xa%):�
Q6"ݤC(`%,l%):�t%,d%,Tc%:�l%<=0=�
Q^Tc%=O%:�wc%+l%>Ec%�
Qhot%=�j(O%,2048):�t%<>0 O%=t%:Ec%+=2048�d%=�a("Unable to store function due to lack of memory","OK","",""):=�
Q|�
Q�/`%+=(O%-Tc%):�r(`%,O%+wc%,`%+l%):wc%+=l%:=�
Q�R��H(`%,l%):�r(`%+l%,O%+wc%,`%):wc%-=l%:�wc%<Ec%-2048 O%=�j(O%,-2048):Ec%-=2048
Q��
Q�"��Ia:�i%,j%,n%,l%,hc%:�E%<>H%�
Q��m(-1)=��
Q�Ei%=0:j%=0:l%=0:n%=O%:hc%=D%:ȕi%<hc%:�M%?i%=255�(l%�G%?(j%+3)>0)�
R�G%?(j%+3)=0 l%=�
R8�H(n%,!n%):�r(G%+j%+4,G%+(D%*4),G%+j%):D%-=1:M%?i%=0
R:�:n%+=!n%:j%+=4:l%=0
RN�
RN1i%+=1:�:_%=-1:E%=-1:i%=36*D%+4:�i%<172 i%=172
Rl)�l(H%,0,-i%,316,0):�f(H%):�i:�k(U%):�
R���T(Uc%,Vc%):�i%:�E%<>H%�
R��i%=0�D%-1:�M%?i%=255�
R��Uc%>-1 G%?(i%*4+1)=Uc%
R��:�Vc%>-1 G%?(i%*4+1)=Vc%
R��
R��:�f(H%):�i:�k(U%):�
S��w(n%):�i%:�D%=0�
S*2�i%=0�D%-1:�i%=n%G%?(i%*4+1)=255�G%?(i%*4+1)=0
S>�:�
SR0��P(w%):�w(W%):�f(H%):�i:�k(U%):�d(w%,4,1):�
Sz��Ta:�i%,c%:�E%<>H%�
S�1c%=�k(Za%,3):�i%=0�D%:�M%?i%=255 G%?(i%*4)=c%
S��:�f(H%):�i:�k(U%):�
S���Ua:�i%,K%:�E%<>H%�
S�K%=7-�f(_a%,1):�K%=0 K%=255
S�&�i%=0�D%:�M%?i%=255 G%?(i%*4+2)=K%
T�:�f(H%):�i:�k(U%):�
Tn��fb:�i%:�G(0):�d(L%,17,_b%):�d(L%,23,bc%):�i%=26�30:�d(L%,i%,ac%=31-i%):�:�p(L%,22,`b%):�j(L%):�t(L%,5):�
T�v��G(r%):�b(L%,5,�(j),r%):�b(L%,6,�(m),r%):�b(L%,7,�(g),r%):�b(L%,13,�(k),r%):�b(L%,14,�(n),r%):�b(L%,15,�(i),r%):�
T����Qa(Wc%):�a,b,c,d,e,f,d%:a=�(�b(L%,5)):b=�(�b(L%,6)):c=�(�b(L%,7)):d=�(�b(L%,13)):e=�(�b(L%,14)):f=�(�b(L%,15)):�b<=a�e<=d d%=�a("A maximum value should be larger than the corresponding minimum value","OK","",""):�
U(a�c=0�f=0 d%=�a("A step size of 0 makes no sense.  Please enter a higher value.","OK","",""):�
U2cj=a:m=b:g=c:k=d:n=e:i=f:_b%=�e(L%,17):bc%=�e(L%,23):ac%=31-�f(L%,1):`b%=�k(L%,22):�x:�Wc%�n(L%)
UZ�i:�
Un8��Ra:�w,h:w=m-j:h=n-k:j=-w/2:m=w/2:k=-h/2:n=h/2:�g:�
U���g:�x:�i:�g(L%)�G(�)
U��
U���N(n%,d%):�d%=4�Za(n%,0):�
VX�a("Do you want to store current range as set "+�(n%+1)+"?","Yes","No","")=0�ob(n%)
V�
VJ��ob(n%):a(n%,0)=j:a(n%,1)=m:a(n%,2)=g:a(n%,3)=k:a(n%,4)=n:a(n%,5)=i:�
VJ��Za(n%,d%):�i%:�d%�
VrBj=a(n%,0):m=a(n%,1):g=a(n%,2):k=a(n%,3):n=a(n%,4):i=a(n%,5):�g
V�N�:�i%=0�2:�b(L%,5+i%,�(a(n%,i%)),�):�:�i%=3�5:�b(L%,10+i%,�(a(n%,i%)),�):�
V��
V��
V�u��gb:�i%:�i%=3�8:�d(Ya%,i%,Yb%=9-i%):�:�i%=33�38:�d(Ya%,i%,cc%=39-i%):�:�d(Ya%,39,Yb%=0):�p(Ya%,29,Zb%):�j(Ya%):�
W&*��Sa:�Xc%:Yb%=9-�f(Ya%,1):�Yb%<0 Yb%=0
WN>Zb%=�k(Ya%,29):Xc%=39-�f(Ya%,2):�Xc%=cc%�f(Qa%)�cc%=Xc%:�i
Wl�
Wv2��hb:Eb%=�:�j(Z%):j$=�b(Z%,1):�O(�e(Z%,9)=0):�
W�Q��O(g%):�i%:�i%=4�8:�e(Z%,i%,g%):�:�g%=0 Pb%=�f(Z%,1)-7+(�(�b(Z%,4))*2)�Pb%=0
W��
W�G��o(i%,d%,b%):�a%:a%=�(�b(Va%,i%)):a%+=d%:�a%>999 a%=999��a%<1 a%=1
X 4�b(Va%,i%,�(a%),1):�e(Va%,18)�b(Va%,b%,�(a%),1)
X4�U:�
XH<ݤD(i%):�a%:a%=�(�b(Va%,i%)):�a%<1 a%=1:�b(Va%,i%,"1",1)
Xp%�a%>999 a%=999:�b(Va%,i%,"999",1)
Xz=a%
X�8��_a(i%,k%):�(k%>47�k%<58)�k%=127�k%=8�k%=21�k%=395�
X�	Ȏi%�
X�/�6,14:�e(Va%,18)�b(Va%,20-i%,�b(Va%,i%),1)
X�/�7,15:�e(Va%,18)�b(Va%,22-i%,�b(Va%,i%),1)
X��
X��
X��k%=13�U
X��
X�x��U:Ha%=�D(6):Ja%=�D(7):Ia%=�D(14):Ka%=�D(15):gb%=(sa%-88)*Ia%/Ka%:hb%=(ra%-46)*Ha%/Ja%:�x:�l(Qa%,0,-gb%,hb%,0):�i:�
Y$�ݤY(f$):�n%,n$,p$,o$,l%,l$,s$,d%,Yc%,Zc%:n%=7:n$="":p$=f$:o$="":Zc%=0:Yc%=-1:�:l%=n%:l$=n$:n$=�n(p$,s$):n%=�I(n$,d%):�b%(n%*8+l%)=0�n$="-"n%=5
Yt8�(l%=1�n%<>2)�(l%=5�l$="/")o$+="(":Yc%+=1:z%?Yc%=Zc%
Y~sȕYc%>=0�((n%=5�n$<>"^"�Zc%=z%?Yc%)�Zc%<z%?Yc%�n%=7):o$+=")":Yc%-=1:�:�(l%=0�l%=3�l%=6)�(n%=1�n%=2�n%=6)o$+="*"
Y��n%=2 Zc%+=1��n%=3 Zc%-=1
Y�o$+=n$:�n%=7:=o$
Y�KݤL(f$,x$,�J%,_c%):�n%,n$,p$,o$,l%,l$,Zc%,s$,Lc%,d$,m%,m$:�_c%f$=�Y(f$)
Y�
�x$<>"x"�
Y�Vn%=7:n$="":p$=f$:o$="":�:l%=n%:l$=n$:n$=�n(p$,s$):m$=n$:n%=�I(n$,d%):�n%=6�n$="x"�
Z)�l%=2��p$,1)=")"o$+=x$�o$+="("+x$+")"
Z
�:�_c%o$+=n$�o$+=m$
Z�
Z(�n%=7:f$=o$
Z<�
Z<Kn%=7:n$="":p$=f$:o$="":�:n$=�n(p$,s$):l%=�(n$):�(l%>96�l%<123�l%<>120)�
ZPLc%=�B(n$,m%):�Lc%=2�Lc%=3�
ZZFZc%=0:d$="":�:d$+=�p$,1):p$=�p$,2):��d$)="("Zc%+=1���d$)=")"Zc%-=1
Zn=�Zc%=0:o$+=�L($(m%+5+�($(m%+4))),�d$,2,�(d$)-2),J%,Lc%=3)
Z��:o$+=n$:�Lc%=0 J%=�
Z��
Z��:o$+=n$
Z��
Z��p$=""�J%=�:=o$
Z�b��i:�i%,s%,J%,`c%,m%,n%,v%,l%,f$,j%,x%,y%,x,y,ad%,bd%,s,p,cd%,r%,p%,dd%:�:�Fb%<>0 Fb%=�F(Fb%)
Z��g(Qa%)=0�
[�D%=0�f(Qa%)
[%s%=0:�i%=0�D%-1:�G%?(i%*4+1)=255�
["$`c%=G%?(i%*4+2):�`c%=255 `c%=cc%
[,s%+=((hb%/eb%/a%(`c%))+8)*4
[@�
[@�:�s%=0�f(Qa%):�
[TdFb%=�r(s%+4):�Fb%=0 d%=�a("I have run out of memory trying to plot graphs","OK","",""):�n(Qa%):�
[hgdc%=1<<30:ș263872:bd%=s%:n%=Fb%:i%=0:m%=O%:ȕi%<D%:v%=G%?(i%*4+1):`c%=G%?(i%*4+2):�`c%=255 `c%=cc%
[�l%=4:ȎG%?(i%*4+3)�
[�/�0:J%=�:f$=�L($(m%+4),"x",J%,�):�J%=��v%=��
[�O�J%=�G%?(i%*4+1)=0:j%=i%+1:ȕG%?(j%*4+3)>0�j%<D%:G%?(j%*4+1)=0:j%+=1:�:v%=�
[�j�:x%=�E(`c%):n%!l%=x%:l%+=4:n%!l%=G%!(i%*4):l%+=4:ȕx%<=hb%:x=(x%-ib%)/o:y=�l(f$,x):�y<>dc%y=jb%+(y*q)
[�Gn%!l%=y:l%+=4:x%+=a%(`c%)*eb%:Xb%=y%:ș263876,(n%+l%-Fb%)/bd%*100:�
[��
[��1:�v%�
[�+p%=4:r%=0:ȕm%?p%<>255:�m%?p%=6 r%=r%��
[�p%+=6:�:dd%=p%-6:�r%=��
\�y%=�Z(`c%):n%!l%=y%:l%+=4:n%!l%=G%!(i%*4)+(1<<31):l%+=4:ȕy%>=-gb%-fb%:y=�M((y%-jb%)/q,m%,dd%,�):x=�l(f$,y):�x<>dc%x=�N(x,m%):n%!l%=ib%+(x*o)�n%!l%=dc%
\&8l%+=4:y%-=a%(`c%)*fb%:ș263876,(n%+l%-Fb%)/bd%*100:�
\:��:x%=�E(`c%):n%!l%=x%:l%+=4:n%!l%=G%!(i%*4):l%+=4:ȕx%<=hb%:x=�M((x%-ib%)/o,m%,dd%,0):y=�l(f$,x):�y<>dc%y=�N(y,m%):n%!l%=jb%+(y*q)�n%!l%=dc%
\N8l%+=4:x%+=a%(`c%)*eb%:ș263876,(n%+l%-Fb%)/bd%*100:�
\b�
\b�
\l�2:�v%�
\v�x%=�E(`c%):n%!l%=x%:l%+=4:n%!l%=G%!(i%*4):l%+=4:ȕx%<=hb%:x=(x%-ib%)/o:s=�l(f$,x+0.00001):p=�l(f$,x):�s=dc%�p=dc%n%!l%=dc%�y=(s-p)/0.00001:n%!l%=jb%+(y*q)
\�8l%+=4:x%+=a%(`c%)*eb%:ș263876,(n%+l%-Fb%)/bd%*100:�
\��
\��3:�v%�
\�Dx%=�E(`c%):n%!l%=x%:l%+=4:n%!l%=G%!(i%*4):l%+=4:y=0:Ȏ�(x%-ib%)�
\�E�-1:cd%=(ib%-eb%/2):�:p=�l(f$,(cd%-ib%)/o):�p=dc%y=0�y-=(p*eb%/o)
\�cd%-=eb%:�cd%<=x%
\�D�1:cd%=(ib%+eb%/2):�:p=�l(f$,(cd%-ib%)/o):�p=dc%y=0�y+=(p*eb%/o)
\�cd%+=eb%:�cd%>=x%
]�
]pȕx%<=hb%:n%!l%=jb%+(y*q):l%+=4:cd%=(x%+eb%/2):x%+=a%(`c%)*eb%:�:p=�l(f$,(cd%-ib%)/o):�p=dc%y=0�y+=(p*eb%/o)
]4cd%+=eb%:�cd%>=x%:ș263876,(n%+l%-Fb%)/bd%*100:�
] �
] �
]*#i%+=1:m%+=!m%:�v% !n%=l%:n%+=l%
]4�:�n%=Fb%Fb%=�F(Fb%)
]H$ș263873:!n%=-1:�f(Qa%):�f(H%):�
]\ݤl(f$,x):�y:�:��=dc%
]�y=�(f$):=y
]�2ݤE(`c%):�w%,x%:w%=a%(`c%)*eb%:�ib%=0�w%=eb%=0
]��ib%<0�
]�x%=ib%:�:x%+=w%:�x%>=0
]� �:x%=ib%:ȕx%-w%>=0:x%-=w%:�
]��
]�=x%
^2ݤZ(`c%):�h%,y%:h%=a%(`c%)*fb%:�jb%=0�h%=fb%=0
^8�jb%>0�
^By%=jb%:�:y%-=w%:�y%<=0
^V �:y%=jb%:ȕy%+h%<=0:y%+=h%:�
^j�
^j=y%
^�$ݤM(x,m%,p%,r%):ȕp%>=4:Ȏm%?p%�
^��0:�r%=0 x-=|(m%+p%+1)
^��1:�r%x-=|(m%+p%+1)
^��2:�r%=0 x=x/|(m%+p%+1)
^��3:�r%x=x/|(m%+p%+1)
^��4:�r%=0 x=-x
^��5:�r%x=-x
^��6:r%=r%��
^��
^�p%-=6:�:=x
_
4ݤN(y,m%):�r%,p%:r%=0:p%=4:ȕm%?p%<>255:Ȏm%?p%�
_�0:�r%y+=|(m%+p%+1)
_(�1:�r%=0 y+=|(m%+p%+1)
_2�2:�r%y=y*|(m%+p%+1)
_<�3:�r%=0 y=y*|(m%+p%+1)
_F�4:�r%y=-y
_P�5:�r%=0 y=-y
_Z�6:r%=r%��
_n�
_np%+=6:�:=y
_�h��ra:�t%:ș81�ed%:fd%=ed%:ș262380,-1,-1�t%:gd%=t%+32768:ș262380,gd%+fd%-32768,-1:ș29,0,gd%,,fd%:�
`4ݤr(hd%):�a%:ș131101,2,gd%,,hd%�,,a%:�a%<>0�=a%
`J�O(hd%)=��=0
`T$ș131101,2,gd%,,hd%�,,a%:�sb:=a%
`�Hݤj(id%,jd%):�n%,f%,t%:ș131101,4,gd%,id%,jd%�,,n%;f%:�(f%� 1)=0�=n%
`�)ș29,6,gd%,id%�,,,t%:�O(t%+jd%)=��=0
`�1ș131101,4,gd%,id%,jd%�,,n%;f%:�(f%� 1)=0�=n%
`�=0
`�"ݤF(id%):ș29,3,gd%,id%:�sb:=0
aMݤO(hd%):�s%,f%:s%=�P(fd%+hd%):ș393452,gd%+s%-32768,-1�;f%:�(f%� 1)=1�=�
aD ș29,5,gd%,,s%-fd%:fd%=s%:=�
av>��sb:�s%,t%:s%=fd%:ș131101,5,gd%,,-s%�,,,t%:�t%=-s%�t%=s%
a�Jfd%=�P(fd%-t%):ș131101,5,gd%,,fd%-(s%-t%):ș262380,gd%+fd%-32768,-1:�
a�ݤP(s%):�t%:�(s%�ed%)<>0�
a�t%=ed%-(s%�ed%):s%+=t%
b�
b=s%
b*ݤ_:�t%:ș29,1,gd%�,,t%:=t%
�

00000000  0d 00 01 7a f4 3e 49 44  45 46 53 3a 3a 48 61 72  |...z.>IDEFS::Har|
00000010  64 44 72 69 76 65 2e 24  2e 50 72 6f 67 72 61 6d  |dDrive.$.Program|
00000020  73 2e 50 75 62 56 65 72  73 68 2e 21 46 75 6e 63  |s.PubVersh.!Func|
00000030  79 32 2e 42 55 2e 43 4f  4d 50 41 43 54 20 73 71  |y2.BU.COMPACT sq|
00000040  75 69 73 68 65 64 20 62  79 20 4d 48 27 73 20 42  |uished by MH's B|
00000050  41 53 49 43 20 63 72 75  6e 63 68 65 72 20 76 31  |ASIC cruncher v1|
00000060  2e 33 30 20 31 36 2f 39  2f 38 39 20 4f 6e 20 32  |.30 16/9/89 On 2|
00000070  33 20 4d 61 79 20 31 39  39 34 0d 00 02 20 61 61  |3 May 1994... aa|
00000080  25 3d a3 3a 62 61 25 3d  a3 3a 63 61 25 3d a3 3a  |%=.:ba%=.:ca%=.:|
00000090  64 61 25 3d a3 3a ee 85  f2 56 0d 00 3c 29 c8 99  |da%=.:...V..<)..|
000000a0  32 36 33 38 37 32 3a f2  61 61 3a f2 62 61 3a f2  |263872:.aa:.ba:.|
000000b0  63 61 3a f2 64 61 3a f2  65 61 3a e7 63 61 25 3d  |ca:.da:.ea:.ca%=|
000000c0  b9 f2 73 0d 00 82 10 f2  66 61 3a e7 63 61 25 3d  |..s.....fa:.ca%=|
000000d0  b9 f2 73 0d 00 96 10 f2  67 61 3a e7 63 61 25 3d  |..s.....ga:.ca%=|
000000e0  b9 f2 73 0d 00 aa 1e 65  61 25 3d a4 51 28 22 21  |..s....ea%=.Q("!|
000000f0  66 75 6e 63 79 32 22 29  3a f2 57 3a ee 85 f2 68  |funcy2"):.W:...h|
00000100  61 0d 00 d2 44 f2 69 61  3a c8 99 32 36 33 38 37  |a...D.ia:..26387|
00000110  33 3a f5 3a 66 61 25 3d  36 35 34 33 33 36 3a c8  |3:.:fa%=654336:.|
00000120  99 32 36 32 33 34 33 2c  66 61 25 2c 7a 25 b8 67  |.262343,fa%,z%.g|
00000130  61 25 3a 68 61 25 3d a3  3a 64 61 25 3d a3 3a c8  |a%:ha%=.:da%=.:.|
00000140  8e 67 61 25 ca 0d 01 54  0a c9 30 3a f2 6a 61 0d  |.ga%...T..0:.ja.|
00000150  01 68 09 c9 31 3a f2 49  0d 01 72 09 c9 32 3a f2  |.h..1:.I..r..2:.|
00000160  58 0d 01 7c 0e c9 33 3a  f2 6e 28 21 7a 25 29 0d  |X..|..3:.n(!z%).|
00000170  01 86 0a c9 34 3a f2 6b  61 0d 01 90 0a c9 35 3a  |....4:.ka.....5:|
00000180  f2 6c 61 0d 01 9a 0f c9  36 3a f2 59 3a 68 61 25  |.la.....6:.Y:ha%|
00000190  3d b9 0d 01 a4 0a c9 37  3a f2 6d 61 0d 01 ae 10  |=......7:.ma....|
000001a0  c9 38 3a f2 6e 61 3a 68  61 25 3d b9 0d 01 b8 10  |.8:.na:ha%=.....|
000001b0  c9 39 3a f2 6f 61 3a 68  61 25 3d b9 0d 01 c2 0e  |.9:.oa:ha%=.....|
000001c0  c9 31 37 2c 31 38 3a f2  70 61 0d 01 cc 05 cb 0d  |.17,18:.pa......|
000001d0  01 cc 0a e7 68 61 25 f2  57 0d 01 e0 0a e7 64 61  |....ha%.W.....da|
000001e0  25 f2 61 0d 01 ea 08 fd  a3 3a e0 0d 02 08 8f dd  |%.a......:......|
000001f0  f2 56 3a ea 69 61 25 2c  66 2c 6a 61 25 3a c8 99  |.V:.ia%,f,ja%:..|
00000200  32 36 32 33 35 32 2c 2c  30 3a c8 99 32 36 33 38  |262352,,0:..2638|
00000210  37 34 3a 21 7a 25 3d 9f  3a 69 61 25 3d 30 3a 66  |74:!z%=.:ia%=0:f|
00000220  3d 31 3a 24 28 7a 25 2b  34 29 3d 22 46 61 74 61  |=1:$(z%+4)="Fata|
00000230  6c 20 65 72 72 6f 72 3a  20 22 2b f6 24 2b 22 20  |l error: "+.$+" |
00000240  61 74 20 6c 69 6e 65 20  22 2b c3 28 9e 29 2b bd  |at line "+.(.)+.|
00000250  30 3a c8 99 32 36 32 33  36 37 2c 7a 25 2c 31 2c  |0:..262367,z%,1,|
00000260  22 46 75 6e 63 79 20 32  22 3a 61 61 25 3d a3 3a  |"Funcy 2":aa%=.:|
00000270  62 61 25 3d a3 3a f2 73  3a e0 0d 02 80 15 dd f2  |ba%=.:.s:.......|
00000280  68 61 3a ea 64 25 3a ea  85 3a ee 85 ea f2 56 0d  |ha:.d%:..:....V.|
00000290  02 b2 0b e7 9f 3c 39 39  39 8c 0d 02 bc 5c e7 a4  |.....<999....\..|
000002a0  61 28 f6 24 2b 22 20 61  74 20 6c 69 6e 65 20 22  |a(.$+" at line "|
000002b0  2b c3 28 9e 29 2b 22 2e  20 54 68 69 73 20 69 73  |+.(.)+". This is|
000002c0  20 61 20 6e 6f 6e 20 66  61 74 61 6c 20 70 72 6f  | a non fatal pro|
000002d0  67 72 61 6d 20 65 72 72  6f 72 2e 22 2c 22 43 6f  |gram error.","Co|
000002e0  6e 74 69 6e 75 65 22 2c  22 51 75 69 74 22 2c 22  |ntinue","Quit","|
000002f0  22 29 3d 31 f2 73 0d 02  c6 6e cc 3a 64 25 3d a4  |")=1.s...n.:d%=.|
00000300  61 28 22 49 6e 74 65 72  6e 61 6c 20 65 72 72 6f  |a("Internal erro|
00000310  72 20 6e 6f 3a 20 22 2b  f6 24 2b 22 20 28 6e 6f  |r no: "+.$+" (no|
00000320  74 20 66 61 74 61 6c 29  2e 20 50 6c 65 61 73 65  |t fatal). Please|
00000330  20 6e 6f 74 69 66 79 20  70 72 6f 67 72 61 6d 6d  | notify programm|
00000340  65 72 20 6f 66 20 68 6f  77 20 74 68 69 73 20 6f  |er of how this o|
00000350  63 63 75 72 65 64 2e 22  2c 22 4f 4b 22 2c 22 22  |ccured.","OK",""|
00000360  2c 22 22 29 0d 02 e4 05  cd 0d 02 e4 06 f7 85 0d  |,"")............|
00000370  02 ee 05 e1 0d 02 f8 3c  dd a4 61 28 6d 24 2c 7a  |.......<..a(m$,z|
00000380  24 2c 41 24 2c 42 24 29  3a ea 6b 61 25 2c 6c 61  |$,A$,B$):.ka%,la|
00000390  25 2c 72 25 2c 6d 61 25  2c 6e 61 25 2c 6f 61 25  |%,r%,ma%,na%,oa%|
000003a0  3a c8 99 32 36 33 38 37  34 3a e7 64 61 25 f2 61  |:..263874:.da%.a|
000003b0  0d 03 3e 16 6b 61 25 3d  30 3a e7 7a 24 3c 3e 22  |..>.ka%=0:.z$<>"|
000003c0  22 6b 61 25 3d 31 0d 03  48 10 e7 41 24 3c 3e 22  |"ka%=1..H..A$<>"|
000003d0  22 6b 61 25 3d 32 0d 03  52 10 e7 42 24 3c 3e 22  |"ka%=2..R..B$<>"|
000003e0  22 6b 61 25 3d 33 0d 03  5c 0d e7 6b 61 25 3d 30  |"ka%=3..\..ka%=0|
000003f0  3d 2d 31 0d 03 66 ad c8  99 32 36 32 33 35 35 2c  |=-1..f...262355,|
00000400  2c 71 25 3a 6d 61 25 3d  21 71 25 3a 6e 61 25 3d  |,q%:ma%=!q%:na%=|
00000410  71 25 21 34 3a 6f 61 25  3d 71 25 21 32 30 3a c8  |q%!4:oa%=q%!20:.|
00000420  99 32 36 32 33 35 34 2c  2d 31 2c 2d 31 2c 2d 31  |.262354,-1,-1,-1|
00000430  2c 2d 31 2c 2d 31 2c 2d  31 3a 21 71 25 3d 70 61  |,-1,-1,-1:!q%=pa|
00000440  25 3a c8 99 32 36 32 33  34 38 2c 2c 71 25 3a 71  |%:..262348,,q%:q|
00000450  25 21 38 38 3d 6b 61 25  2b 33 3a c8 99 32 36 32  |%!88=ka%+3:..262|
00000460  33 33 37 2c 2c 71 25 2b  34 b8 71 61 25 3a f2 62  |337,,q%+4.qa%:.b|
00000470  28 71 61 25 2c 32 2c 6d  24 2c 30 29 3a f2 62 28  |(qa%,2,m$,0):.b(|
00000480  71 61 25 2c 33 2c 7a 24  2c 30 29 3a e7 6b 61 25  |qa%,3,z$,0):.ka%|
00000490  3e 31 f2 62 28 71 61 25  2c 34 2c 41 24 2c 30 29  |>1.b(qa%,4,A$,0)|
000004a0  0d 03 98 18 e7 6b 61 25  3e 32 f2 62 28 71 61 25  |.....ka%>2.b(qa%|
000004b0  2c 35 2c 42 24 2c 30 29  0d 03 a2 5f f2 71 61 28  |,5,B$,0)..._.qa(|
000004c0  71 61 25 2c b9 29 3a c8  97 c8 93 71 25 21 34 2c  |qa%,.):....q%!4,|
000004d0  71 25 21 38 2c 71 25 21  31 32 2d 71 25 21 34 2c  |q%!8,q%!12-q%!4,|
000004e0  71 25 21 31 36 2d 71 25  21 38 3a 6c 61 25 3d 2d  |q%!16-q%!8:la%=-|
000004f0  31 3a f5 3a 66 61 25 3d  36 35 34 33 33 36 3a c8  |1:.:fa%=654336:.|
00000500  99 32 36 32 33 34 33 2c  66 61 25 2c 7a 25 b8 72  |.262343,fa%,z%.r|
00000510  25 3a c8 8e 72 25 ca 0d  03 de 09 c9 31 3a f2 49  |%:..r%......1:.I|
00000520  0d 03 f2 09 c9 32 3a f2  58 0d 03 fc 12 c9 36 3a  |.....2:.X.....6:|
00000530  e7 7a 25 21 31 32 3d 71  61 25 8c 0d 03 fc 23 e7  |.z%!12=qa%....#.|
00000540  7a 25 21 31 36 3e 32 80  7a 25 21 31 36 3c 36 20  |z%!16>2.z%!16<6 |
00000550  6c 61 25 3d 7a 25 21 31  36 2d 33 3a f2 61 0d 04  |la%=z%!16-3:.a..|
00000560  06 05 cd 0d 04 10 16 c9  38 3a e7 7a 25 21 32 34  |........8:.z%!24|
00000570  3d 31 33 20 6c 61 25 3d  30 0d 04 1a 05 cb 0d 04  |=13 la%=0.......|
00000580  24 5a fd 6c 61 25 3e 2d  31 3a c8 97 c8 93 30 2c  |$Z.la%>-1:....0,|
00000590  30 2c 72 61 25 2d 31 2c  73 61 25 2d 31 3a 21 71  |0,ra%-1,sa%-1:!q|
000005a0  25 3d 71 61 25 3a c8 99  32 36 32 33 33 39 2c 2c  |%=qa%:..262339,,|
000005b0  71 25 3a f2 61 3a c8 99  33 39 33 34 32 36 2c 6d  |q%:.a:..393426,m|
000005c0  61 25 2c 6e 61 25 2c 2d  31 2c 2d 31 2c 2d 31 2c  |a%,na%,-1,-1,-1,|
000005d0  6f 61 25 3a 3d 6c 61 25  0d 04 74 cd dd f2 61 61  |oa%:=la%..t...aa|
000005e0  3a ea 69 25 3a de 71 25  20 33 30 30 2c 7a 25 20  |:.i%:.q% 300,z% |
000005f0  32 30 30 30 2c 74 61 25  20 33 30 30 30 2c 75 61  |2000,ta% 3000,ua|
00000600  25 20 32 30 2c 76 61 25  20 37 30 3a 77 61 25 3d  |% 20,va% 70:wa%=|
00000610  38 31 39 32 3a de 78 61  25 20 77 61 25 3a 79 61  |8192:.xa% wa%:ya|
00000620  25 3d 35 30 30 3a de 4d  25 20 79 61 25 3a 7a 61  |%=500:.M% ya%:za|
00000630  25 3d 78 61 25 2b 77 61  25 3a 41 61 25 3d 2d 31  |%=xa%+wa%:Aa%=-1|
00000640  3a 42 61 25 3d 30 3a 43  61 25 3d 30 3a 44 61 25  |:Ba%=0:Ca%=0:Da%|
00000650  3d 33 31 33 3a 24 71 25  3d 22 54 41 53 4b 22 3a  |=313:$q%="TASK":|
00000660  75 24 3d 22 22 3a c8 99  32 36 32 33 33 36 2c 32  |u$="":..262336,2|
00000670  30 30 2c 21 71 25 2c 22  46 75 6e 63 79 20 32 22  |00,!q%,"Funcy 2"|
00000680  b8 2c 45 61 25 3a f2 72  61 3a f2 73 61 28 22 3c  |.,Ea%:.ra:.sa("<|
00000690  46 75 6e 63 79 32 24 44  69 72 3e 2e 53 70 72 69  |Funcy2$Dir>.Spri|
000006a0  74 65 73 22 29 0d 04 d8  8a f2 74 61 28 22 3c 46  |tes").....ta("<F|
000006b0  75 6e 63 79 32 24 44 69  72 3e 2e 54 65 6d 70 6c  |uncy2$Dir>.Templ|
000006c0  61 74 65 73 22 29 3a 46  61 25 3d 31 32 38 30 3a  |ates"):Fa%=1280:|
000006d0  47 61 25 3d 31 30 32 34  3a 48 61 25 3d 31 3a 49  |Ga%=1024:Ha%=1:I|
000006e0  61 25 3d 31 3a 4a 61 25  3d 31 3a 4b 61 25 3d 31  |a%=1:Ja%=1:Ka%=1|
000006f0  3a f2 5a 3a 4c 61 25 3d  a3 3a 4d 61 25 3d a3 3a  |:.Z:La%=.:Ma%=.:|
00000700  4e 61 25 3d a3 3a 4f 61  25 3d 30 3a 45 25 3d 2d  |Na%=.:Oa%=0:E%=-|
00000710  31 3a 5f 25 3d 2d 31 3a  e3 69 25 3d 30 b8 79 61  |1:_%=-1:.i%=0.ya|
00000720  25 2d 31 3a 4d 25 3f 69  25 3d 30 3a ed 3a e1 0d  |%-1:M%?i%=0:.:..|
00000730  05 14 d6 dd f2 74 61 28  45 24 29 3a c8 99 32 36  |.....ta(E$):..26|
00000740  32 33 36 31 2c 2c 45 24  3a 50 61 25 3d a4 63 28  |2361,,E$:Pa%=.c(|
00000750  22 69 6e 66 6f 22 29 3a  51 61 25 3d a4 63 28 22  |"info"):Qa%=.c("|
00000760  6d 61 69 6e 22 29 3a 52  61 25 3d a4 63 28 22 73  |main"):Ra%=.c("s|
00000770  61 76 65 22 29 3a 53 61  25 3d a4 63 28 22 75 73  |ave"):Sa%=.c("us|
00000780  65 72 77 69 6e 22 29 3a  59 25 3d a4 63 28 22 75  |erwin"):Y%=.c("u|
00000790  73 65 72 70 61 6e 65 22  29 3a 54 61 25 3d a4 63  |serpane"):Ta%=.c|
000007a0  28 22 70 72 65 73 65 74  77 69 6e 22 29 3a 55 61  |("presetwin"):Ua|
000007b0  25 3d a4 63 28 22 70 72  65 73 65 74 70 61 6e 65  |%=.c("presetpane|
000007c0  22 29 3a 55 25 3d a4 63  28 22 66 75 6e 63 74 69  |"):U%=.c("functi|
000007d0  6f 6e 73 22 29 3a 48 25  3d a4 63 28 22 66 75 6e  |ons"):H%=.c("fun|
000007e0  63 70 61 6e 65 22 29 3a  4c 25 3d a4 63 28 22 72  |cpane"):L%=.c("r|
000007f0  61 6e 67 65 22 29 3a 56  61 25 3d a4 63 28 22 7a  |ange"):Va%=.c("z|
00000800  6f 6f 6d 22 29 0d 05 64  d2 5a 25 3d a4 63 28 22  |oom")..d.Z%=.c("|
00000810  63 6f 6f 72 64 73 22 29  3a 57 61 25 3d a4 63 28  |coords"):Wa%=.c(|
00000820  22 65 64 69 74 75 66 75  6e 63 22 29 3a 51 25 3d  |"editufunc"):Q%=|
00000830  a4 63 28 22 65 64 69 74  79 66 75 6e 63 22 29 3a  |.c("edityfunc"):|
00000840  52 25 3d a4 63 28 22 63  61 6c 63 75 6c 75 73 22  |R%=.c("calculus"|
00000850  29 3a 46 25 3d a4 63 28  22 74 72 61 6e 73 66 6f  |):F%=.c("transfo|
00000860  72 6d 22 29 3a 58 61 25  3d a4 63 28 22 74 72 61  |rm"):Xa%=.c("tra|
00000870  6e 73 70 61 6e 65 22 29  3a 70 61 25 3d a4 63 28  |nspane"):pa%=.c(|
00000880  22 72 65 71 75 65 73 74  22 29 3a 59 61 25 3d a4  |"request"):Ya%=.|
00000890  63 28 22 6c 6f 6f 6b 22  29 3a 5a 61 25 3d a4 63  |c("look"):Za%=.c|
000008a0  28 22 63 6f 6c 6f 75 72  22 29 3a 5f 61 25 3d a4  |("colour"):_a%=.|
000008b0  63 28 22 71 75 61 6c 69  74 79 22 29 3a 60 61 25  |c("quality"):`a%|
000008c0  3d a4 63 28 22 73 61 76  65 62 69 67 22 29 3a c8  |=.c("savebig"):.|
000008d0  99 32 36 32 33 36 32 0d  05 a0 4a f2 43 28 53 61  |.262362...J.C(Sa|
000008e0  25 2c 59 25 2c 76 61 25  29 3a f2 43 28 54 61 25  |%,Y%,va%):.C(Ta%|
000008f0  2c 55 61 25 2c 76 61 25  2b 31 36 29 3a f2 43 28  |,Ua%,va%+16):.C(|
00000900  55 25 2c 48 25 2c 76 61  25 2b 33 32 29 3a f2 43  |U%,H%,va%+32):.C|
00000910  28 46 25 2c 58 61 25 2c  76 61 25 2b 34 38 29 3a  |(F%,Xa%,va%+48):|
00000920  e1 0d 05 d2 5e dd a4 63  28 61 24 29 3a ea 63 25  |....^..c(a$):.c%|
00000930  3a c8 99 32 36 32 33 36  33 2c 2c 7a 25 2c 78 61  |:..262363,,z%,xa|
00000940  25 2c 7a 61 25 2c 2d 31  2c 61 24 2c 30 b8 2c 2c  |%,za%,-1,a$,0.,,|
00000950  78 61 25 2c 2c 2c 2c 63  25 3a e7 63 25 3d 30 85  |xa%,,,,c%:.c%=0.|
00000960  39 39 38 2c 22 54 65 6d  70 6c 61 74 65 20 22 2b  |998,"Template "+|
00000970  61 24 2b 22 20 6e 6f 74  20 66 6f 75 6e 64 22 0d  |a$+" not found".|
00000980  06 04 21 7a 25 21 36 34  3d 61 62 25 3a c8 99 32  |..!z%!64=ab%:..2|
00000990  36 32 33 33 37 2c 2c 7a  25 b8 63 25 3a 3d 63 25  |62337,,z%.c%:=c%|
000009a0  0d 06 2c 88 dd f2 43 28  77 25 2c 70 25 2c 60 25  |..,...C(w%,p%,`%|
000009b0  29 3a ea 74 25 2c 6c 25  3a 21 60 25 3d 77 25 3a  |):.t%,l%:!`%=w%:|
000009c0  60 25 21 34 3d 70 25 3a  21 71 25 3d 70 25 3a c8  |`%!4=p%:!q%=p%:.|
000009d0  99 32 36 32 33 34 37 2c  2c 71 25 3a 6c 25 3d 71  |.262347,,q%:l%=q|
000009e0  25 21 34 3a 74 25 3d 71  25 21 31 36 3a 21 71 25  |%!4:t%=q%!16:!q%|
000009f0  3d 77 25 3a c8 99 32 36  32 33 34 37 2c 2c 71 25  |=w%:..262347,,q%|
00000a00  3a 6c 25 2d 3d 71 25 21  34 3a 74 25 2d 3d 71 25  |:l%-=q%!4:t%-=q%|
00000a10  21 31 36 3a 60 25 21 38  3d 94 6c 25 3a 60 25 21  |!16:`%!8=.l%:`%!|
00000a20  31 32 3d 94 74 25 3a e1  0d 06 68 6e dd f2 73 61  |12=.t%:...hn..sa|
00000a30  28 43 24 29 3a ea 61 25  2c 62 62 25 3a 61 25 3d  |(C$):.a%,bb%:a%=|
00000a40  8e 43 24 3a 62 62 25 3d  31 36 2b a2 23 61 25 3a  |.C$:bb%=16+.#a%:|
00000a50  d9 23 61 25 3a de 61 62  25 20 62 62 25 3a 21 61  |.#a%:.ab% bb%:!a|
00000a60  62 25 3d 62 62 25 3a 61  62 25 21 34 3d 30 3a 61  |b%=bb%:ab%!4=0:a|
00000a70  62 25 21 38 3d 31 36 3a  61 62 25 21 31 32 3d 31  |b%!8=16:ab%!12=1|
00000a80  36 3a c8 99 34 36 2c 32  35 36 2b 31 30 2c 61 62  |6:..46,256+10,ab|
00000a90  25 2c 43 24 3a e1 0d 06  cc 90 dd a4 51 28 77 24  |%,C$:.......Q(w$|
00000aa0  29 3a ea 63 62 25 3a 21  7a 25 3d 2d 31 3a 7a 25  |):.cb%:!z%=-1:z%|
00000ab0  21 34 3d 30 3a 7a 25 21  38 3d 30 3a 7a 25 21 31  |!4=0:z%!8=0:z%!1|
00000ac0  32 3d 36 33 3a 7a 25 21  31 36 3d 37 32 3a 7a 25  |2=63:z%!16=72:z%|
00000ad0  21 32 30 3d 38 34 35 30  3a de 64 62 25 20 20 28  |!20=8450:.db%  (|
00000ae0  a9 77 24 2b 31 29 3a 24  64 62 25 3d 77 24 3a 7a  |.w$+1):$db%=w$:z|
00000af0  25 21 32 34 3d 64 62 25  3a 7a 25 21 32 38 3d 61  |%!24=db%:z%!28=a|
00000b00  62 25 3a 7a 25 21 33 32  3d 28 a9 77 24 2b 31 29  |b%:z%!32=(.w$+1)|
00000b10  3a c8 99 32 36 32 33 33  38 2c 2c 7a 25 b8 63 62  |:..262338,,z%.cb|
00000b20  25 3a 3d 63 62 25 0d 07  3a 15 dd f2 73 3a ea 6d  |%:=cb%..:...s:.m|
00000b30  24 3a e7 61 61 25 84 62  61 25 8c 0d 07 4e 5e 6d  |$:.aa%.ba%...N^m|
00000b40  24 3d 22 75 73 65 72 20  66 75 6e 63 74 69 6f 6e  |$="user function|
00000b50  73 20 61 6e 64 20 70 6c  6f 74 74 65 64 20 67 72  |s and plotted gr|
00000b60  61 70 68 73 22 3a e7 61  61 25 3d a3 6d 24 3d 22  |aphs":.aa%=.m$="|
00000b70  70 6c 6f 74 74 65 64 20  67 72 61 70 68 73 22 8b  |plotted graphs".|
00000b80  e7 62 61 25 3d a3 6d 24  3d 22 75 73 65 72 20 66  |.ba%=.m$="user f|
00000b90  75 6e 63 74 69 6f 6e 73  22 0d 07 58 52 e7 a4 61  |unctions"..XR..a|
00000ba0  28 22 55 6e 73 61 76 65  64 20 22 2b 6d 24 2b 22  |("Unsaved "+m$+"|
00000bb0  20 69 6e 20 46 75 6e 63  79 20 32 2e 20 44 6f 20  | in Funcy 2. Do |
00000bc0  79 6f 75 20 72 65 61 6c  6c 79 20 77 61 6e 74 20  |you really want |
00000bd0  74 6f 20 71 75 69 74 3f  22 2c 22 59 65 73 22 2c  |to quit?","Yes",|
00000be0  22 4e 6f 22 2c 22 22 29  3d 31 e1 0d 07 62 05 cd  |"No","")=1...b..|
00000bf0  0d 07 6c 21 24 71 25 3d  22 54 41 53 4b 22 3a c8  |..l!$q%="TASK":.|
00000c00  99 32 36 32 33 36 35 2c  45 61 25 2c 21 71 25 3a  |.262365,Ea%,!q%:|
00000c10  e0 0d 07 80 05 e1 0d 07  8a cc dd f2 5a 3a ea 69  |............Z:.i|
00000c20  25 3a 21 71 25 3d 34 3a  71 25 21 34 3d 35 3a 71  |%:!q%=4:q%!4=5:q|
00000c30  25 21 38 3d 31 31 3a 71  25 21 31 32 3d 31 32 3a  |%!8=11:q%!12=12:|
00000c40  71 25 21 31 36 3d 2d 31  3a c8 99 34 39 2c 71 25  |q%!16=-1:..49,q%|
00000c50  2c 71 25 3a 65 62 25 3d  31 3c 3c 28 21 71 25 29  |,q%:eb%=1<<(!q%)|
00000c60  3a 66 62 25 3d 31 3c 3c  28 71 25 21 34 29 3a 72  |:fb%=1<<(q%!4):r|
00000c70  61 25 3d 28 31 3c 3c 28  21 71 25 29 29 2a 28 28  |a%=(1<<(!q%))*((|
00000c80  71 25 21 38 29 2b 31 29  3a 73 61 25 3d 28 31 3c  |q%!8)+1):sa%=(1<|
00000c90  3c 28 71 25 21 34 29 29  2a 28 28 71 25 21 31 32  |<(q%!4))*((q%!12|
00000ca0  29 2b 31 29 3a 67 62 25  3d 28 73 61 25 2d 38 38  |)+1):gb%=(sa%-88|
00000cb0  29 2a 49 61 25 2f 4b 61  25 3a 68 62 25 3d 28 72  |)*Ia%/Ka%:hb%=(r|
00000cc0  61 25 2d 34 36 29 2a 48  61 25 2f 4a 61 25 3a e7  |a%-46)*Ha%/Ja%:.|
00000cd0  72 61 25 3c 3e 46 61 25  84 73 61 25 3c 3e 47 61  |ra%<>Fa%.sa%<>Ga|
00000ce0  25 8c 0d 07 e4 c2 21 71  25 3d 51 61 25 3a c8 99  |%.....!q%=Qa%:..|
00000cf0  32 36 32 33 34 38 2c 2c  71 25 3a c8 99 32 36 32  |262348,,q%:..262|
00000d00  33 33 39 2c 2c 71 25 3a  71 25 21 34 34 3d 30 3a  |339,,q%:q%!44=0:|
00000d10  71 25 21 34 38 3d 2d 67  62 25 3a 71 25 21 35 32  |q%!48=-gb%:q%!52|
00000d20  3d 68 62 25 3a 71 25 21  35 36 3d 30 3a e3 69 25  |=hb%:q%!56=0:.i%|
00000d30  3d 34 b8 32 30 88 38 3a  71 25 21 69 25 3d 71 25  |=4.20.8:q%!i%=q%|
00000d40  21 69 25 2a 72 61 25 2f  46 61 25 3a 71 25 21 28  |!i%*ra%/Fa%:q%!(|
00000d50  69 25 2b 34 29 3d 71 25  21 28 69 25 2b 34 29 2a  |i%+4)=q%!(i%+4)*|
00000d60  73 61 25 2f 47 61 25 3a  ed 3a c8 99 32 36 32 33  |sa%/Ga%:.:..2623|
00000d70  33 37 2c 2c 71 25 2b 34  b8 51 61 25 3a e7 28 28  |37,,q%+4.Qa%:.((|
00000d80  71 25 21 33 32 29 80 28  31 3c 3c 31 36 29 29 20  |q%!32).(1<<16)) |
00000d90  21 71 25 3d 51 61 25 3a  c8 99 32 36 32 33 34 31  |!q%=Qa%:..262341|
00000da0  2c 2c 71 25 0d 08 20 13  46 61 25 3d 72 61 25 3a  |,,q%.. .Fa%=ra%:|
00000db0  47 61 25 3d 73 61 25 0d  08 34 05 cd 0d 08 34 05  |Ga%=sa%..4....4.|
00000dc0  e1 0d 08 3e 4f dd f2 78  3a 6f 3d 68 62 25 2f 28  |...>O..x:o=hb%/(|
00000dd0  6d 2d 6a 29 3a 71 3d 67  62 25 2f 28 6e 2d 6b 29  |m-j):q=gb%/(n-k)|
00000de0  3a 69 62 25 3d 28 2d 6a  2a 6f 29 80 ac 28 65 62  |:ib%=(-j*o)..(eb|
00000df0  25 2d 31 29 3a 6a 62 25  3d 28 2d 67 62 25 2d 28  |%-1):jb%=(-gb%-(|
00000e00  6b 2a 71 29 29 80 ac 28  66 62 25 2d 31 29 3a e1  |k*q))..(fb%-1):.|
00000e10  0d 08 70 d4 dd f2 62 61  3a ea 75 3a de 7a 20 20  |..p...ba:.u:.z  |
00000e20  31 30 30 3a e3 75 3d 30  b8 32 88 32 3a 50 25 3d  |100:.u=0.2.2:P%=|
00000e30  7a 3a 5b 4f 50 54 20 75  3a 2e 41 3a 43 4d 50 32  |z:[OPT u:.A:CMP2|
00000e40  2c 30 3a 42 47 54 20 42  3a 2e 45 3a 4d 4f 56 33  |,0:BGT B:.E:MOV3|
00000e50  2c 23 30 3a 53 55 42 34  2c 31 2c 30 3a 2e 43 3a  |,#0:SUB4,1,0:.C:|
00000e60  4c 44 52 35 2c 5b 30 2c  33 5d 3a 53 54 52 35 2c  |LDR5,[0,3]:STR5,|
00000e70  5b 32 2c 33 5d 3a 41 44  44 33 2c 33 2c 23 34 3a  |[2,3]:ADD3,3,#4:|
00000e80  43 4d 50 33 2c 34 3a 42  4c 54 20 43 3a 4d 4f 56  |CMP3,4:BLT C:MOV|
00000e90  20 50 43 2c 31 34 3a 2e  42 3a 53 55 42 33 2c 31  | PC,14:.B:SUB3,1|
00000ea0  2c 30 3a 2e 44 3a 53 55  42 33 2c 33 2c 23 34 3a  |,0:.D:SUB3,3,#4:|
00000eb0  4c 44 52 35 2c 5b 30 2c  33 5d 3a 53 54 52 35 2c  |LDR5,[0,3]:STR5,|
00000ec0  5b 32 2c 33 5d 3a 43 4d  50 33 2c 23 30 3a 42 47  |[2,3]:CMP3,#0:BG|
00000ed0  54 20 44 3a 4d 4f 56 20  50 43 2c 31 34 3a 20 5d  |T D:MOV PC,14: ]|
00000ee0  3a ed 3a e1 0d 09 b0 16  dd f2 72 28 41 25 2c 42  |:.:.......r(A%,B|
00000ef0  25 2c 43 25 29 3a d6 41  3a e1 0d 0a 00 7b dd f2  |%,C%):.A:....{..|
00000f00  63 61 3a ea 6b 62 25 2c  6e 25 2c 74 24 2c 77 25  |ca:.kb%,n%,t$,w%|
00000f10  2c 6c 62 25 2c 69 25 2c  6d 62 25 2c 6e 62 25 2c  |,lb%,i%,mb%,nb%,|
00000f20  6f 62 25 2c 70 62 25 2c  71 62 25 2c 72 62 25 2c  |ob%,pb%,qb%,rb%,|
00000f30  73 62 25 2c 74 62 25 3a  ea 75 62 25 2c 76 62 25  |sb%,tb%:.ub%,vb%|
00000f40  3a 76 62 25 3d 7a 25 3a  75 62 25 3d 30 3a 6b 62  |:vb%=z%:ub%=0:kb|
00000f50  25 3d 74 61 25 2b 31 32  38 3a 77 62 25 3d 38 38  |%=ta%+128:wb%=88|
00000f60  3a de 78 62 25 20 35 3a  24 78 62 25 3d 22 61 30  |:.xb% 5:$xb%="a0|
00000f70  2d 39 22 3a f7 0d 0a 64  e6 f3 6e 25 3a c8 95 6e  |-9":...d..n%:..n|
00000f80  25 3c 3e 2d 31 3a f3 74  24 2c 77 25 2c 6c 62 25  |%<>-1:.t$,w%,lb%|
00000f90  3a 74 61 25 21 28 6e 25  2a 34 29 3d 6b 62 25 3a  |:ta%!(n%*4)=kb%:|
00000fa0  24 6b 62 25 3d c0 74 24  2c 31 31 29 3a 6b 62 25  |$kb%=.t$,11):kb%|
00000fb0  3f 31 32 3d 37 3a 6b 62  25 3f 31 33 3d 32 3a 6b  |?12=7:kb%?13=2:k|
00000fc0  62 25 3f 31 34 3d 37 3a  6b 62 25 3f 31 35 3d 30  |b%?14=7:kb%?15=0|
00000fd0  3a 6b 62 25 21 31 36 3d  31 36 2b 77 25 2a 31 36  |:kb%!16=16+w%*16|
00000fe0  3a 6b 62 25 21 32 30 3d  34 34 3a 6b 62 25 21 32  |:kb%!20=44:kb%!2|
00000ff0  34 3d 30 3a 6b 62 25 2b  3d 32 38 3a 72 62 25 3d  |4=0:kb%+=28:rb%=|
00001000  6b 62 25 2b 6c 62 25 2a  32 34 3a 74 62 25 3d 30  |kb%+lb%*24:tb%=0|
00001010  3a e3 69 25 3d 31 b8 6c  62 25 3a f3 74 24 2c 6f  |:.i%=1.lb%:.t$,o|
00001020  62 25 2c 70 62 25 2c 71  62 25 3a 79 62 25 3d 28  |b%,pb%,qb%:yb%=(|
00001030  37 3c 3c 32 34 29 2b 28  30 3c 3c 32 38 29 2b 33  |7<<24)+(0<<28)+3|
00001040  33 3a e7 6e 25 3d 30 20  77 62 25 2b 3d 34 38 3a  |3:.n%=0 wb%+=48:|
00001050  e7 70 62 25 77 62 25 2b  3d 32 34 0d 0a c8 13 e7  |.pb%wb%+=24.....|
00001060  6f 62 25 7a 62 25 3d 34  8b 7a 62 25 3d 30 0d 0a  |ob%zb%=4.zb%=0..|
00001070  d2 0e e7 70 62 25 7a 62  25 2b 3d 32 0d 0a dc 20  |...pb%zb%+=2... |
00001080  e7 71 62 25 3e 3d 30 20  76 62 25 21 75 62 25 3d  |.qb%>=0 vb%!ub%=|
00001090  6b 62 25 2b 34 3a 75 62  25 2b 3d 34 0d 0a e6 13  |kb%+4:ub%+=4....|
000010a0  e7 69 25 3d 6c 62 25 7a  62 25 2b 3d 31 32 38 0d  |.i%=lb%zb%+=128.|
000010b0  0a f0 10 e7 a9 74 24 3e  31 31 84 6f 62 25 8c 0d  |.....t$>11.ob%..|
000010c0  0a fa 30 79 62 25 2b 3d  31 3c 3c 38 3a 6b 62 25  |..0yb%+=1<<8:kb%|
000010d0  21 31 32 3d 28 72 62 25  2b 74 62 25 29 3a 6b 62  |!12=(rb%+tb%):kb|
000010e0  25 21 31 36 3d 2d 31 3a  e7 6f 62 25 3e 30 8c 0d  |%!16=-1:.ob%>0..|
000010f0  0b 0e 47 6b 62 25 21 32  30 3d 6f 62 25 3a e7 74  |..Gkb%!20=ob%:.t|
00001100  24 3d 22 3e 6e 6f 22 6b  62 25 21 31 36 3d 78 62  |$=">no"kb%!16=xb|
00001110  25 3a 24 28 72 62 25 2b  74 62 25 29 3d 22 30 22  |%:$(rb%+tb%)="0"|
00001120  8b 24 28 72 62 25 2b 74  62 25 29 3d c0 74 24 2c  |.$(rb%+tb%)=.t$,|
00001130  6f 62 25 2d 31 29 0d 0b  18 0c 74 62 25 2b 3d 6f  |ob%-1)....tb%+=o|
00001140  62 25 0d 0b 2c 2f cc 3a  6b 62 25 21 32 30 3d a9  |b%..,/.:kb%!20=.|
00001150  28 74 24 29 2b 31 3a 24  28 72 62 25 2b 74 62 25  |(t$)+1:$(rb%+tb%|
00001160  29 3d 74 24 3a 74 62 25  2b 3d a9 28 74 24 29 2b  |)=t$:tb%+=.(t$)+|
00001170  31 0d 0b 40 05 cd 0d 0b  40 12 cc 3a 24 28 6b 62  |1..@....@..:$(kb|
00001180  25 2b 31 32 29 3d 74 24  0d 0b 5e 05 cd 0d 0b 5e  |%+12)=t$..^....^|
00001190  51 21 6b 62 25 3d 7a 62  25 3a 6b 62 25 21 34 3d  |Q!kb%=zb%:kb%!4=|
000011a0  71 62 25 3a 6b 62 25 21  38 3d 79 62 25 3a 6b 62  |qb%:kb%!8=yb%:kb|
000011b0  25 2b 3d 32 34 3a ed 3a  6b 62 25 2b 3d 74 62 25  |%+=24:.:kb%+=tb%|
000011c0  3a e7 28 6b 62 25 83 34  29 3c 3e 30 20 6b 62 25  |:.(kb%.4)<>0 kb%|
000011d0  3d 28 28 6b 62 25 81 34  29 2a 34 29 2b 34 0d 0b  |=((kb%.4)*4)+4..|
000011e0  86 37 f3 6e 25 3a ce 3a  6e 25 3d 30 3a c8 95 6e  |.7.n%:.:n%=0:..n|
000011f0  25 3c 75 62 25 3a 69 25  3d 76 62 25 21 6e 25 3a  |%<ub%:i%=vb%!n%:|
00001200  21 69 25 3d a4 52 28 21  69 25 29 3a 6e 25 2b 3d  |!i%=.R(!i%):n%+=|
00001210  34 3a ce 3a e1 0d 0b ae  1d dd a4 52 28 6e 25 29  |4:.:.......R(n%)|
00001220  3a e7 6e 25 3c 36 34 3d  74 61 25 21 28 6e 25 2a  |:.n%<64=ta%!(n%*|
00001230  34 29 0d 0b cc 09 c8 8e  6e 25 ca 0d 0b d6 0c c9  |4)......n%......|
00001240  36 34 3a 3d 50 61 25 0d  0b ea 0c c9 36 35 3a 3d  |64:=Pa%.....65:=|
00001250  52 61 25 0d 0b f4 0c c9  36 36 3a 3d 56 61 25 0d  |Ra%.....66:=Va%.|
00001260  0b fe 0c c9 36 37 3a 3d  5a 61 25 0d 0c 08 0c c9  |....67:=Za%.....|
00001270  36 38 3a 3d 5f 61 25 0d  0c 12 0c c9 36 39 3a 3d  |68:=_a%.....69:=|
00001280  60 61 25 0d 0c 1c 05 cb  0d 0c 1c 07 3d 2d 31 0d  |`a%.........=-1.|
00001290  0c 58 14 dc 30 2c 22 46  75 6e 63 79 20 32 22 2c  |.X..0,"Funcy 2",|
000012a0  37 2c 33 0d 0c 58 30 dc  22 49 6e 66 6f 22 2c 30  |7,3..X0."Info",0|
000012b0  2c 30 2c 36 34 2c 22 57  69 6e 64 6f 77 73 22 2c  |,0,64,"Windows",|
000012c0  30 2c 30 2c 33 2c 22 51  75 69 74 22 2c 30 2c 30  |0,0,3,"Quit",0,0|
000012d0  2c 2d 31 0d 0c 62 14 dc  31 2c 22 46 75 6e 63 79  |,-1..b..1,"Funcy|
000012e0  20 32 22 2c 37 2c 33 0d  0c 6c 31 dc 22 53 65 6c  | 2",7,3..l1."Sel|
000012f0  65 63 74 22 2c 30 2c 30  2c 32 2c 22 53 61 76 65  |ect",0,0,2,"Save|
00001300  22 2c 30 2c 30 2c 36 39  2c 22 57 69 6e 64 6f 77  |",0,0,69,"Window|
00001310  73 22 2c 30 2c 30 2c 33  0d 0c 76 13 dc 32 2c 22  |s",0,0,3..v..2,"|
00001320  53 65 6c 65 63 74 22 2c  39 2c 38 0d 0c 80 7f dc  |Select",9,8.....|
00001330  22 41 6c 6c 22 2c 30 2c  30 2c 2d 31 2c 22 56 69  |"All",0,0,-1,"Vi|
00001340  73 69 62 6c 65 22 2c 30  2c 30 2c 2d 31 2c 22 49  |sible",0,0,-1,"I|
00001350  6e 76 69 73 69 62 6c 65  22 2c 30 2c 30 2c 2d 31  |nvisible",0,0,-1|
00001360  2c 22 49 6e 76 65 72 74  22 2c 30 2c 30 2c 2d 31  |,"Invert",0,0,-1|
00001370  2c 22 43 6c 65 61 72 22  2c 30 2c 31 2c 2d 31 2c  |,"Clear",0,1,-1,|
00001380  22 4d 61 6b 65 22 2c 30  2c 31 2c 37 2c 22 43 6f  |"Make",0,1,7,"Co|
00001390  70 79 22 2c 30 2c 30 2c  2d 31 2c 22 44 65 6c 65  |py",0,0,-1,"Dele|
000013a0  74 65 22 2c 30 2c 30 2c  2d 31 0d 0c 8a 15 dc 33  |te",0,0,-1.....3|
000013b0  2c 22 57 69 6e 64 6f 77  73 22 2c 31 35 2c 37 0d  |,"Windows",15,7.|
000013c0  0c 94 9a dc 22 50 6c 6f  74 20 6c 69 73 74 20 20  |...."Plot list  |
000013d0  20 20 46 31 22 2c 30 2c  30 2c 2d 31 2c 22 4f 75  |  F1",0,0,-1,"Ou|
000013e0  74 70 75 74 20 20 20 20  20 20 20 46 32 22 2c 30  |tput       F2",0|
000013f0  2c 30 2c 2d 31 2c 22 41  78 65 73 2f 52 61 6e 67  |,0,-1,"Axes/Rang|
00001400  65 20 20 20 46 33 22 2c  30 2c 30 2c 2d 31 2c 22  |e   F3",0,0,-1,"|
00001410  41 70 70 65 61 72 61 6e  63 65 20 20 20 46 34 22  |Appearance   F4"|
00001420  2c 30 2c 30 2c 2d 31 2c  22 54 72 61 63 65 20 20  |,0,0,-1,"Trace  |
00001430  20 20 20 20 20 20 46 35  22 2c 30 2c 30 2c 2d 31  |      F5",0,0,-1|
00001440  2c 22 50 72 65 73 65 74  20 66 75 6e 63 73 20 46  |,"Preset funcs F|
00001450  36 22 2c 30 2c 30 2c 2d  31 0d 0c 9e 1d dc 22 55  |6",0,0,-1....."U|
00001460  73 65 72 20 66 75 6e 63  73 20 20 20 46 37 22 2c  |ser funcs   F7",|
00001470  30 2c 30 2c 2d 31 0d 0c  a8 14 dc 34 2c 22 46 75  |0,0,-1.....4,"Fu|
00001480  6e 63 79 20 32 22 2c 37  2c 32 0d 0c b2 22 dc 22  |ncy 2",7,2..."."|
00001490  5a 6f 6f 6d 22 2c 30 2c  30 2c 36 36 2c 22 57 69  |Zoom",0,0,66,"Wi|
000014a0  6e 64 6f 77 73 22 2c 30  2c 30 2c 33 0d 0c bc 11  |ndows",0,0,3....|
000014b0  dc 35 2c 22 55 73 65 72  22 2c 37 2c 33 0d 0c c6  |.5,"User",7,3...|
000014c0  31 dc 22 53 65 6c 65 63  74 22 2c 30 2c 30 2c 36  |1."Select",0,0,6|
000014d0  2c 22 53 61 76 65 22 2c  30 2c 30 2c 36 35 2c 22  |,"Save",0,0,65,"|
000014e0  57 69 6e 64 6f 77 73 22  2c 30 2c 30 2c 33 0d 0c  |Windows",0,0,3..|
000014f0  d0 13 dc 36 2c 22 53 65  6c 65 63 74 22 2c 36 2c  |...6,"Select",6,|
00001500  36 0d 0c da 5b dc 22 41  6c 6c 22 2c 30 2c 30 2c  |6...[."All",0,0,|
00001510  2d 31 2c 22 55 73 65 64  22 2c 30 2c 30 2c 2d 31  |-1,"Used",0,0,-1|
00001520  2c 22 55 6e 75 73 65 64  22 2c 30 2c 30 2c 2d 31  |,"Unused",0,0,-1|
00001530  2c 22 43 6c 65 61 72 22  2c 30 2c 31 2c 2d 31 2c  |,"Clear",0,1,-1,|
00001540  22 43 6f 70 79 22 2c 30  2c 30 2c 38 2c 22 44 65  |"Copy",0,0,8,"De|
00001550  6c 65 74 65 22 2c 30 2c  30 2c 2d 31 0d 0c e4 11  |lete",0,0,-1....|
00001560  dc 37 2c 22 4d 61 6b 65  22 2c 39 2c 35 0d 0c ee  |.7,"Make",9,5...|
00001570  57 dc 22 56 69 73 69 62  6c 65 22 2c 30 2c 30 2c  |W."Visible",0,0,|
00001580  2d 31 2c 22 49 6e 76 69  73 69 62 6c 65 22 2c 30  |-1,"Invisible",0|
00001590  2c 30 2c 2d 31 2c 22 53  6f 6c 6f 22 2c 30 2c 30  |,0,-1,"Solo",0,0|
000015a0  2c 2d 31 2c 22 43 6f 6c  6f 75 72 22 2c 30 2c 30  |,-1,"Colour",0,0|
000015b0  2c 36 37 2c 22 51 75 61  6c 69 74 79 22 2c 30 2c  |,67,"Quality",0,|
000015c0  30 2c 36 38 0d 0c f8 15  dc 38 2c 22 43 6f 70 79  |0,68.....8,"Copy|
000015d0  20 61 73 22 2c 31 30 2c  31 0d 0d 02 0f dc 22 22  | as",10,1.....""|
000015e0  2c 31 33 2c 30 2c 2d 31  0d 0d 0c 13 dc 39 2c 22  |,13,0,-1.....9,"|
000015f0  53 65 6c 65 63 74 22 2c  36 2c 33 0d 0d 16 30 dc  |Select",6,3...0.|
00001600  22 41 6c 6c 22 2c 30 2c  30 2c 2d 31 2c 22 43 6c  |"All",0,0,-1,"Cl|
00001610  65 61 72 22 2c 30 2c 31  2c 2d 31 2c 22 44 65 6c  |ear",0,1,-1,"Del|
00001620  65 74 65 22 2c 30 2c 30  2c 2d 31 0d 0d 20 07 dc  |ete",0,0,-1.. ..|
00001630  2d 31 0d 0d 2a 5d dd f2  63 28 41 62 25 2c 42 62  |-1..*]..c(Ab%,Bb|
00001640  25 2c 43 62 25 29 3a ea  61 25 3a 61 25 3d 74 61  |%,Cb%):.a%:a%=ta|
00001650  25 21 28 41 62 25 2a 34  29 2b 32 38 2b 38 2b 28  |%!(Ab%*4)+28+8+(|
00001660  42 62 25 2a 32 34 29 3a  e7 43 62 25 3d 30 20 21  |Bb%*24):.Cb%=0 !|
00001670  61 25 3d 21 61 25 80 ac  28 31 3c 3c 32 32 29 8b  |a%=!a%..(1<<22).|
00001680  21 61 25 3d 21 61 25 84  28 31 3c 3c 32 32 29 0d  |!a%=!a%.(1<<22).|
00001690  0d 52 05 e1 0d 0d 5c 4f  dd f2 71 28 41 62 25 2c  |.R....\O..q(Ab%,|
000016a0  42 62 25 2c 43 62 25 29  3a ea 61 25 3a 61 25 3d  |Bb%,Cb%):.a%:a%=|
000016b0  74 61 25 21 28 41 62 25  2a 34 29 2b 32 38 2b 28  |ta%!(Ab%*4)+28+(|
000016c0  42 62 25 2a 32 34 29 3a  e7 43 62 25 3d 30 20 21  |Bb%*24):.Cb%=0 !|
000016d0  61 25 3d 21 61 25 80 ac  31 8b 21 61 25 3d 21 61  |a%=!a%..1.!a%=!a|
000016e0  25 84 31 0d 0d 84 05 e1  0d 0d 8e 11 dd a4 53 28  |%.1...........S(|
000016f0  4e 25 29 3a c8 8e 4e 25  ca 0d 0d c0 0f c9 57 61  |N%):..N%......Wa|
00001700  25 3a 44 62 25 3d 2d 31  0d 0d d4 13 c9 51 25 2c  |%:Db%=-1.....Q%,|
00001710  52 25 2c 46 25 3a 57 25  3d 2d 31 0d 0d de 0d c9  |R%,F%:W%=-1.....|
00001720  5a 25 3a 45 62 25 3d a3  0d 0d e8 1c c9 51 61 25  |Z%:Eb%=......Qa%|
00001730  3a e7 46 62 25 3c 3e 30  20 46 62 25 3d a4 46 28  |:.Fb%<>0 Fb%=.F(|
00001740  46 62 25 29 0d 0d e8 05  cb 0d 0d f2 06 3d b9 0d  |Fb%).........=..|
00001750  0e 10 2a dd f2 41 28 4e  25 29 3a 21 71 25 3d 4e  |..*..A(N%):!q%=N|
00001760  25 3a c8 99 32 36 32 33  34 37 2c 2c 71 25 3a f2  |%:..262347,,q%:.|
00001770  5f 28 71 25 2b 34 29 3a  e1 0d 0e 2e 29 dd f2 5f  |_(q%+4):....).._|
00001780  28 71 25 29 3a 54 25 3d  21 71 25 2d 71 25 21 31  |(q%):T%=!q%-q%!1|
00001790  36 3a 49 25 3d 71 25 21  31 32 2d 71 25 21 32 30  |6:I%=q%!12-q%!20|
000017a0  3a e1 0d 0e 56 96 dd f2  71 61 28 4e 25 2c 47 62  |:...V...qa(N%,Gb|
000017b0  25 29 3a ea 77 25 2c 68  25 3a 21 71 25 3d 4e 25  |%):.w%,h%:!q%=N%|
000017c0  3a c8 99 32 36 32 33 34  37 2c 2c 71 25 3a 77 25  |:..262347,,q%:w%|
000017d0  3d 94 28 71 25 21 31 32  2d 71 25 21 34 29 3a 68  |=.(q%!12-q%!4):h|
000017e0  25 3d 94 28 71 25 21 31  36 2d 71 25 21 38 29 3a  |%=.(q%!16-q%!8):|
000017f0  71 25 21 34 3d 28 72 61  25 2d 77 25 29 2f 32 3a  |q%!4=(ra%-w%)/2:|
00001800  71 25 21 38 3d 28 73 61  25 2d 68 25 29 2f 32 3a  |q%!8=(sa%-h%)/2:|
00001810  71 25 21 31 32 3d 71 25  21 34 2b 77 25 3a 71 25  |q%!12=q%!4+w%:q%|
00001820  21 31 36 3d 71 25 21 38  2b 68 25 3a e7 47 62 25  |!16=q%!8+h%:.Gb%|
00001830  71 25 21 32 38 3d 2d 31  0d 0e 9c 12 c8 99 32 36  |q%!28=-1......26|
00001840  32 33 34 31 2c 2c 71 25  3a e1 0d 0e b0 61 dd f2  |2341,,q%:....a..|
00001850  6a 28 4e 25 29 3a ea 69  25 3a 21 71 25 3d 4e 25  |j(N%):.i%:!q%=N%|
00001860  3a c8 99 32 36 32 33 34  37 2c 2c 71 25 3a 71 25  |:..262347,,q%:q%|
00001870  21 32 38 3d 2d 31 3a c8  99 32 36 32 33 34 31 2c  |!28=-1:..262341,|
00001880  2c 71 25 3a e3 69 25 3d  30 b8 33 3a e7 76 61 25  |,q%:.i%=0.3:.va%|
00001890  21 28 69 25 2a 31 36 29  3d 4e 25 f2 60 28 71 25  |!(i%*16)=N%.`(q%|
000018a0  2c 76 61 25 2b 69 25 2a  31 36 29 0d 0e ec 07 ed  |,va%+i%*16).....|
000018b0  3a e1 0d 0e f6 6d dd f2  44 28 4e 25 2c 74 24 29  |:....m..D(N%,t$)|
000018c0  3a 21 7a 25 3d 4e 25 3a  c8 99 32 36 32 33 34 38  |:!z%=N%:..262348|
000018d0  2c 2c 7a 25 3a e7 28 7a  25 21 36 30 80 32 35 36  |,,z%:.(z%!60.256|
000018e0  29 24 28 7a 25 21 37 36  29 3d c0 74 24 2c 7a 25  |)$(z%!76)=.t$,z%|
000018f0  21 38 34 29 8b 85 39 39  39 2c 22 31 20 2d 20 57  |!84)..999,"1 - W|
00001900  69 6e 64 6f 77 20 74 69  74 6c 65 20 6d 75 73 74  |indow title must|
00001910  20 62 65 20 69 6e 64 69  72 65 63 74 65 64 22 0d  | be indirected".|
00001920  0f 1e 1b e7 28 28 7a 25  21 33 32 29 80 28 31 3c  |....((z%!32).(1<|
00001930  3c 31 36 29 29 3c 3e 30  f2 49 0d 0f 28 05 e1 0d  |<16))<>0.I..(...|
00001940  0f 32 3a dd a4 67 28 4e  25 29 3a 21 7a 25 3d 4e  |.2:..g(N%):!z%=N|
00001950  25 3a c8 99 32 36 32 33  34 38 2c 2c 7a 25 3a e7  |%:..262348,,z%:.|
00001960  28 28 7a 25 21 33 32 29  80 28 31 3c 3c 31 36 29  |((z%!32).(1<<16)|
00001970  29 3c 3e 30 3d b9 8b 3d  a3 0d 0f 5a 31 dd f2 42  |)<>0=..=...Z1..B|
00001980  28 4e 25 2c 6c 25 2c 62  25 2c 72 25 2c 74 25 29  |(N%,l%,b%,r%,t%)|
00001990  3a c8 99 32 36 32 33 35  33 2c 4e 25 2c 6c 25 2c  |:..262353,N%,l%,|
000019a0  62 25 2c 72 25 2c 74 25  3a e1 0d 0f 82 42 dd f2  |b%,r%,t%:....B..|
000019b0  66 28 4e 25 29 3a f2 41  28 4e 25 29 3a c8 99 32  |f(N%):.A(N%):..2|
000019c0  36 32 33 35 33 2c 4e 25  2c 71 25 21 34 2d 54 25  |62353,N%,q%!4-T%|
000019d0  2c 71 25 21 38 2d 49 25  2c 71 25 21 31 32 2d 54  |,q%!8-I%,q%!12-T|
000019e0  25 2c 71 25 21 31 36 2d  49 25 3a e1 0d 0f b4 77  |%,q%!16-I%:....w|
000019f0  dd f2 6c 28 4e 25 2c 48  62 25 2c 49 62 25 2c 4a  |..l(N%,Hb%,Ib%,J|
00001a00  62 25 2c 4b 62 25 29 3a  21 71 25 3d 48 62 25 3a  |b%,Kb%):!q%=Hb%:|
00001a10  71 25 21 34 3d 49 62 25  3a 71 25 21 38 3d 4a 62  |q%!4=Ib%:q%!8=Jb|
00001a20  25 3a 71 25 21 31 32 3d  4b 62 25 3a c8 99 32 36  |%:q%!12=Kb%:..26|
00001a30  32 33 35 39 2c 4e 25 2c  71 25 3a e7 a4 67 28 4e  |2359,N%,q%:..g(N|
00001a40  25 29 20 21 71 25 3d 4e  25 3a c8 99 32 36 32 33  |%) !q%=N%:..2623|
00001a50  34 37 2c 2c 71 25 3a c8  99 32 36 32 33 34 31 2c  |47,,q%:..262341,|
00001a60  2c 71 25 0d 0f e6 05 e1  0d 0f f0 65 dd f2 62 28  |,q%........e..b(|
00001a70  77 25 2c 69 25 2c 73 24  2c 72 25 29 3a 21 71 25  |w%,i%,s$,r%):!q%|
00001a80  3d 77 25 3a 71 25 21 34  3d 69 25 3a c8 99 32 36  |=w%:q%!4=i%:..26|
00001a90  32 33 35 30 2c 2c 71 25  3a e7 28 28 71 25 21 32  |2350,,q%:.((q%!2|
00001aa0  34 29 80 28 31 3c 3c 38  29 29 3d 30 85 39 39 39  |4).(1<<8))=0.999|
00001ab0  2c 22 32 20 2d 20 49 63  6f 6e 20 69 73 20 6e 6f  |,"2 - Icon is no|
00001ac0  74 20 69 6e 64 69 72 65  63 74 65 64 22 0d 10 2c  |t indirected"..,|
00001ad0  3f 24 28 71 25 21 32 38  29 3d c0 73 24 2c 71 25  |?$(q%!28)=.s$,q%|
00001ae0  21 33 36 2d 31 29 3a e7  72 25 c8 99 32 36 32 33  |!36-1):.r%..2623|
00001af0  35 33 2c 77 25 2c 71 25  21 38 2c 71 25 21 31 32  |53,w%,q%!8,q%!12|
00001b00  2c 71 25 21 31 36 2c 71  25 21 32 30 0d 10 40 29  |,q%!16,q%!20..@)|
00001b10  c8 99 32 36 32 33 35 35  2c 2c 71 25 3a e7 77 25  |..262355,,q%:.w%|
00001b20  3d 21 71 25 80 69 25 3d  71 25 21 34 f2 74 28 77  |=!q%.i%=q%!4.t(w|
00001b30  25 2c 69 25 29 0d 10 54  05 e1 0d 10 5e 54 dd a4  |%,i%)..T....^T..|
00001b40  62 28 77 25 2c 69 25 29  3a ea 73 25 3a 21 71 25  |b(w%,i%):.s%:!q%|
00001b50  3d 77 25 3a 71 25 21 34  3d 69 25 3a c8 99 32 36  |=w%:q%!4=i%:..26|
00001b60  32 33 35 30 2c 2c 71 25  3a e7 28 28 71 25 21 32  |2350,,q%:.((q%!2|
00001b70  34 29 80 28 31 3c 3c 38  29 29 3d 30 20 73 25 3d  |4).(1<<8))=0 s%=|
00001b80  71 25 2b 32 38 8b 73 25  3d 71 25 21 32 38 0d 10  |q%+28.s%=q%!28..|
00001b90  86 0b 3d a4 6f 28 73 25  29 0d 10 a4 36 dd a4 6f  |..=.o(s%)...6..o|
00001ba0  28 6d 25 29 3a ea 73 24  3a 73 24 3d 22 22 3a c8  |(m%):.s$:s$="":.|
00001bb0  95 3f 6d 25 3e 3d 33 32  3a 73 24 2b 3d bd 28 3f  |.?m%>=32:s$+=.(?|
00001bc0  6d 25 29 3a 6d 25 2b 3d  31 3a ce 3a 3d 73 24 0d  |m%):m%+=1:.:=s$.|
00001bd0  10 d6 46 dd f2 64 28 77  25 2c 69 25 2c 43 62 25  |..F..d(w%,i%,Cb%|
00001be0  29 3a 21 71 25 3d 77 25  3a 71 25 21 34 3d 69 25  |):!q%=w%:q%!4=i%|
00001bf0  3a 71 25 21 38 3d 31 3c  3c 32 31 3a 71 25 21 31  |:q%!8=1<<21:q%!1|
00001c00  32 3d 31 3c 3c 32 31 3a  e7 43 62 25 3d 30 20 71  |2=1<<21:.Cb%=0 q|
00001c10  25 21 38 3d 30 0d 10 ea  12 c8 99 32 36 32 33 34  |%!8=0......26234|
00001c20  39 2c 2c 71 25 3a e1 0d  10 fe 48 dd a4 65 28 77  |9,,q%:....H..e(w|
00001c30  25 2c 69 25 29 3a ea 73  25 3a 21 71 25 3d 77 25  |%,i%):.s%:!q%=w%|
00001c40  3a 71 25 21 34 3d 69 25  3a c8 99 32 36 32 33 35  |:q%!4=i%:..26235|
00001c50  30 2c 2c 71 25 3a e7 28  28 71 25 21 32 34 29 80  |0,,q%:.((q%!24).|
00001c60  28 31 3c 3c 32 31 29 29  3d 30 3d a3 8b 3d b9 0d  |(1<<21))=0=..=..|
00001c70  11 26 4a dd f2 70 28 77  25 2c 69 25 2c 4c 62 25  |.&J..p(w%,i%,Lb%|
00001c80  29 3a 21 71 25 3d 77 25  3a 71 25 21 34 3d 69 25  |):!q%=w%:q%!4=i%|
00001c90  3a 71 25 21 38 3d 4c 62  25 3c 3c 32 38 3a 71 25  |:q%!8=Lb%<<28:q%|
00001ca0  21 31 32 3d 31 35 3c 3c  32 38 3a c8 99 32 36 32  |!12=15<<28:..262|
00001cb0  33 34 39 2c 2c 71 25 3a  e1 0d 11 4e 3a dd a4 6b  |349,,q%:...N:..k|
00001cc0  28 77 25 2c 69 25 29 3a  21 71 25 3d 77 25 3a 71  |(w%,i%):!q%=w%:q|
00001cd0  25 21 34 3d 69 25 3a c8  99 32 36 32 33 35 30 2c  |%!4=i%:..262350,|
00001ce0  2c 71 25 3a 3d 28 71 25  21 32 34 3e 3e 32 38 29  |,q%:=(q%!24>>28)|
00001cf0  80 31 35 0d 11 8a 44 dd  f2 68 28 77 25 2c 69 25  |.15...D..h(w%,i%|
00001d00  2c 6e 25 29 3a ea 63 25  3a 63 25 3d a4 6b 28 77  |,n%):.c%:c%=.k(w|
00001d10  25 2c 69 25 29 3a 63 25  2b 3d 6e 25 3a e7 63 25  |%,i%):c%+=n%:.c%|
00001d20  3e 31 35 20 63 25 2d 3d  31 36 8b e7 63 25 3c 30  |>15 c%-=16..c%<0|
00001d30  20 63 25 2b 3d 31 36 0d  11 9e 12 f2 70 28 77 25  | c%+=16.....p(w%|
00001d40  2c 69 25 2c 63 25 29 3a  e1 0d 11 a8 5a dd f2 45  |,i%,c%):....Z..E|
00001d50  28 77 25 2c 69 25 2c 6c  25 2c 68 25 2c 64 25 29  |(w%,i%,l%,h%,d%)|
00001d60  3a ea 6e 25 3a 6e 25 3d  bb 28 a4 62 28 77 25 2c  |:.n%:n%=.(.b(w%,|
00001d70  69 25 29 29 3a 6e 25 2b  3d 64 25 3a e7 6e 25 3c  |i%)):n%+=d%:.n%<|
00001d80  6c 25 6e 25 2b 3d 28 68  25 2d 6c 25 29 2b 31 8b  |l%n%+=(h%-l%)+1.|
00001d90  e7 6e 25 3e 68 25 6e 25  2d 3d 28 68 25 2d 6c 25  |.n%>h%n%-=(h%-l%|
00001da0  29 2b 31 0d 11 d0 15 f2  62 28 77 25 2c 69 25 2c  |)+1.....b(w%,i%,|
00001db0  c3 6e 25 2c 31 29 3a e1  0d 11 da 46 dd f2 65 28  |.n%,1):....F..e(|
00001dc0  77 25 2c 69 25 2c 43 62  25 29 3a 21 71 25 3d 77  |w%,i%,Cb%):!q%=w|
00001dd0  25 3a 71 25 21 34 3d 69  25 3a 71 25 21 38 3d 31  |%:q%!4=i%:q%!8=1|
00001de0  3c 3c 32 32 3a 71 25 21  31 32 3d 31 3c 3c 32 32  |<<22:q%!12=1<<22|
00001df0  3a e7 43 62 25 3d 30 20  71 25 21 38 3d 30 0d 12  |:.Cb%=0 q%!8=0..|
00001e00  02 19 c8 99 32 36 32 33  34 39 2c 2c 71 25 3a e7  |....262349,,q%:.|
00001e10  43 62 25 3c 3e 30 8c 0d  12 16 3a c8 99 32 36 32  |Cb%<>0....:..262|
00001e20  33 35 35 2c 2c 71 25 3a  e7 77 25 3d 21 71 25 80  |355,,q%:.w%=!q%.|
00001e30  69 25 3d 71 25 21 34 c8  99 32 36 32 33 35 34 2c  |i%=q%!4..262354,|
00001e40  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 2c 2d  |-1,-1,-1,-1,-1,-|
00001e50  31 0d 12 2a 05 cd 0d 12  34 05 e1 0d 12 3e 38 dd  |1..*....4....>8.|
00001e60  a4 66 28 77 25 2c 4d 62  25 29 3a c8 99 32 36 32  |.f(w%,Mb%):..262|
00001e70  33 35 38 2c 77 25 2c 71  25 2c 36 33 3c 3c 31 36  |358,w%,q%,63<<16|
00001e80  2c 4d 62 25 3c 3c 31 36  84 31 3c 3c 32 31 3a 3d  |,Mb%<<16.1<<21:=|
00001e90  21 71 25 0d 12 8e 35 dd  f2 74 28 77 25 2c 69 25  |!q%...5..t(w%,i%|
00001ea0  29 3a c8 99 32 36 32 33  35 34 2c 77 25 2c 69 25  |):..262354,w%,i%|
00001eb0  2c 2d 31 2c 2d 31 2c 2d  31 2c a9 28 a4 62 28 77  |,-1,-1,-1,.(.b(w|
00001ec0  25 2c 69 25 29 29 3a e1  0d 12 a2 53 dd a4 54 28  |%,i%)):....S..T(|
00001ed0  6c 24 29 3a c8 95 a7 6c  24 2c 22 3a 22 29 3e 30  |l$):...l$,":")>0|
00001ee0  3a 6c 24 3d c1 6c 24 2c  a7 6c 24 2c 22 3a 22 29  |:l$=.l$,.l$,":")|
00001ef0  2b 31 29 3a ce 3a c8 95  a7 6c 24 2c 22 2e 22 29  |+1):.:...l$,".")|
00001f00  3e 30 3a 6c 24 3d c1 6c  24 2c a7 6c 24 2c 22 2e  |>0:l$=.l$,.l$,".|
00001f10  22 29 2b 31 29 3a ce 3a  3d 6c 24 0d 13 24 3b dd  |")+1):.:=l$..$;.|
00001f20  a4 55 28 6e 24 29 3a ea  62 62 25 3a c8 99 31 33  |.U(n$):.bb%:..13|
00001f30  31 31 30 37 2c 6e 24 2c  71 25 2c 32 35 35 2c 2c  |1107,n$,q%,255,,|
00001f40  33 b8 2c 2c 62 62 25 3a  71 25 3f 62 62 25 3d 31  |3.,,bb%:q%?bb%=1|
00001f50  33 3a 3d 24 71 25 0d 13  88 2a dd f2 6a 61 3a ea  |3:=$q%...*..ja:.|
00001f60  78 2c 79 2c 74 24 2c 64  25 3a e7 75 24 3c 3e 22  |x,y,t$,d%:.u$<>"|
00001f70  22 f2 4a 28 75 24 2c 2d  32 29 3a 75 24 3d 22 22  |".J(u$,-2):u$=""|
00001f80  0d 13 9c 43 e7 4d 61 25  64 25 3d a4 61 28 22 42  |...C.Ma%d%=.a("B|
00001f90  61 64 20 64 61 74 61 20  74 72 61 6e 73 66 65 72  |ad data transfer|
00001fa0  2e 20 52 65 63 65 69 76  65 72 20 64 65 61 64 3f  |. Receiver dead?|
00001fb0  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a 4d 61  |","OK","",""):Ma|
00001fc0  25 3d a3 0d 13 a6 0b e7  45 62 25 3d b9 8c 0d 13  |%=......Eb%=....|
00001fd0  b0 25 c8 99 32 36 32 33  35 31 2c 2c 71 25 3a e7  |.%..262351,,q%:.|
00001fe0  71 25 21 31 32 3d 51 61  25 80 71 25 21 31 36 3d  |q%!12=Qa%.q%!16=|
00001ff0  2d 31 8c 0d 13 ba 6c 78  3d 21 71 25 3a 79 3d 71  |-1....lx=!q%:y=q|
00002000  25 21 34 3a f2 41 28 51  61 25 29 3a 78 3d 28 78  |%!4:.A(Qa%):x=(x|
00002010  2d 54 25 2d 69 62 25 29  2f 6f 3a 79 3d 28 79 2d  |-T%-ib%)/o:y=(y-|
00002020  49 25 2d 6a 62 25 29 2f  71 3a 74 24 3d 22 28 22  |I%-jb%)/q:t$="("|
00002030  2b a4 4a 28 78 29 2b 22  2c 22 2b a4 4a 28 79 29  |+.J(x)+","+.J(y)|
00002040  2b 22 29 22 3a e7 6a 24  3c 3e 74 24 f2 62 28 5a  |+")":.j$<>t$.b(Z|
00002050  25 2c 31 2c 74 24 2c 31  29 3a 6a 24 3d 74 24 0d  |%,1,t$,1):j$=t$.|
00002060  13 ce 20 cc 3a e7 6a 24  3c 3e 22 22 f2 62 28 5a  |.. .:.j$<>"".b(Z|
00002070  25 2c 31 2c 22 22 2c 31  29 3a 6a 24 3d 22 22 0d  |%,1,"",1):j$="".|
00002080  13 e2 05 cd 0d 13 ec 05  cd 0d 13 f6 05 e1 0d 14  |................|
00002090  00 35 dd a4 4a 28 76 29  3a ea 4e 62 25 2c 76 24  |.5..J(v):.Nb%,v$|
000020a0  2c 72 25 2c 4f 62 25 2c  69 25 2c 65 24 3a 76 24  |,r%,Ob%,i%,e$:v$|
000020b0  3d c3 28 76 29 3a e7 50  62 25 3d 30 3d a4 4b 28  |=.(v):.Pb%=0=.K(|
000020c0  76 24 29 0d 14 1e 3b 4e  62 25 3d 50 62 25 3e 3e  |v$)...;Nb%=Pb%>>|
000020d0  31 3a e7 a7 76 24 2c 22  45 22 29 65 24 3d c1 76  |1:..v$,"E")e$=.v|
000020e0  24 2c a7 76 24 2c 22 45  22 29 29 3a 76 24 3d c0  |$,.v$,"E")):v$=.|
000020f0  76 24 2c a7 76 24 2c 22  45 22 29 2d 31 29 0d 14  |v$,.v$,"E")-1)..|
00002100  28 0b e7 50 62 25 80 31  8c 0d 14 32 17 e7 a7 76  |(..Pb%.1...2...v|
00002110  24 2c 22 2e 22 29 3d 30  20 76 24 2b 3d 22 2e 22  |$,".")=0 v$+="."|
00002120  0d 14 3c 5b 76 24 2b 3d  c4 4e 62 25 2b 31 2c 22  |..<[v$+=.Nb%+1,"|
00002130  30 22 29 3a 72 25 3d bb  28 c1 76 24 2c a7 76 24  |0"):r%=.(.v$,.v$|
00002140  2c 22 2e 22 29 2b 4e 62  25 2b 31 2c 31 29 29 3a  |,".")+Nb%+1,1)):|
00002150  76 24 3d c0 76 24 2c a7  76 24 2c 22 2e 22 29 2b  |v$=.v$,.v$,".")+|
00002160  4e 62 25 29 3a e7 72 25  3e 3d 35 20 76 24 3d a4  |Nb%):.r%>=5 v$=.|
00002170  70 28 76 24 2c a9 28 76  24 29 29 0d 14 46 0c cc  |p(v$,.(v$))..F..|
00002180  3a e7 76 3c 3e 30 8c 0d  14 5a 17 e7 a7 76 24 2c  |:.v<>0...Z...v$,|
00002190  22 2e 22 29 3d 30 20 76  24 2b 3d 22 2e 22 0d 14  |".")=0 v$+="."..|
000021a0  64 75 76 24 2b 3d c4 4e  62 25 2c 22 30 22 29 3a  |duv$+=.Nb%,"0"):|
000021b0  72 25 3d 31 3a c8 95 c1  76 24 2c 72 25 2c 31 29  |r%=1:...v$,r%,1)|
000021c0  3d 22 30 22 84 c1 76 24  2c 72 25 2c 31 29 3d 22  |="0"..v$,r%,1)="|
000021d0  2e 22 84 c1 76 24 2c 72  25 2c 31 29 3d 22 2d 22  |."..v$,r%,1)="-"|
000021e0  3a 72 25 2b 3d 31 3a ce  3a 72 25 2b 3d 4e 62 25  |:r%+=1:.:r%+=Nb%|
000021f0  2d 31 3a 4f 62 25 3d bb  28 c1 76 24 2c 72 25 2b  |-1:Ob%=.(.v$,r%+|
00002200  31 2c 31 29 29 3a e7 72  25 3c a7 76 24 2c 22 2e  |1,1)):.r%<.v$,".|
00002210  22 29 8c 0d 14 78 55 76  24 3d c0 76 24 2c a7 76  |")...xUv$=.v$,.v|
00002220  24 2c 22 2e 22 29 2d 31  29 3a 69 25 3d 72 25 2b  |$,".")-1):i%=r%+|
00002230  31 3a c8 95 69 25 3c 3d  a9 28 76 24 29 3a c1 76  |1:..i%<=.(v$):.v|
00002240  24 2c 69 25 2c 31 29 3d  22 30 22 3a 69 25 2b 3d  |$,i%,1)="0":i%+=|
00002250  31 3a ce 3a e7 4f 62 25  3e 3d 35 20 76 24 3d a4  |1:.:.Ob%>=5 v$=.|
00002260  70 28 76 24 2c 72 25 29  0d 14 82 1b cc 3a e7 72  |p(v$,r%).....:.r|
00002270  25 2d 4e 62 25 3c a7 76  24 2c 22 2e 22 29 72 25  |%-Nb%<.v$,".")r%|
00002280  2b 3d 31 0d 14 96 23 76  24 3d c0 76 24 2c 72 25  |+=1...#v$=.v$,r%|
00002290  29 3a e7 4f 62 25 3e 3d  35 20 76 24 3d a4 70 28  |):.Ob%>=5 v$=.p(|
000022a0  76 24 2c 72 25 29 0d 14  a0 05 cd 0d 14 aa 05 cd  |v$,r%)..........|
000022b0  0d 14 b4 05 cd 0d 14 be  0e 3d a4 4b 28 76 24 2b  |.........=.K(v$+|
000022c0  65 24 29 0d 14 dc 1f dd  a4 70 28 76 24 2c 70 25  |e$)......p(v$,p%|
000022d0  29 3a ea 76 25 3a e7 70  25 3d 30 3d 22 31 22 2b  |):.v%:.p%=0="1"+|
000022e0  76 24 0d 14 f0 1e e7 c1  76 24 2c 70 25 2c 31 29  |v$......v$,p%,1)|
000022f0  3d 22 2e 22 3d a4 70 28  76 24 2c 70 25 2d 31 29  |="."=.p(v$,p%-1)|
00002300  0d 14 fa 48 76 25 3d bb  28 c1 76 24 2c 70 25 2c  |...Hv%=.(.v$,p%,|
00002310  31 29 29 2b 31 3a e7 76  25 3c 31 30 c1 76 24 2c  |1))+1:.v%<10.v$,|
00002320  70 25 2c 31 29 3d c3 28  76 25 29 8b c1 76 24 2c  |p%,1)=.(v%)..v$,|
00002330  70 25 2c 31 29 3d 22 30  22 3a 76 24 3d a4 70 28  |p%,1)="0":v$=.p(|
00002340  76 24 2c 70 25 2d 31 29  0d 15 0e 07 3d 76 24 0d  |v$,p%-1)....=v$.|
00002350  15 2c 1c dd a4 4b 28 76  24 29 3a e7 c2 76 24 29  |.,...K(v$):..v$)|
00002360  3d 22 2e 22 76 24 3d c0  76 24 29 0d 15 2c 23 ea  |="."v$=.v$)..,#.|
00002370  6c 25 2c 72 24 2c 6d 25  2c 69 25 3a 6c 25 3d a9  |l%,r$,m%,i%:l%=.|
00002380  28 76 24 29 3a e7 6c 25  3c 31 32 3d 76 24 0d 15  |(v$):.l%<12=v$..|
00002390  36 43 6d 25 3d 31 31 3a  72 24 3d 22 22 3a 69 25  |6Cm%=11:r$="":i%|
000023a0  3d a7 76 24 2c 22 45 22  29 3a e7 69 25 3e 30 20  |=.v$,"E"):.i%>0 |
000023b0  72 24 3d c1 76 24 2c 69  25 29 3a 6d 25 2d 3d a9  |r$=.v$,i%):m%-=.|
000023c0  28 72 24 29 3a 76 24 3d  c0 76 24 2c 69 25 2d 31  |(r$):v$=.v$,i%-1|
000023d0  29 0d 15 40 1f 76 24 3d  c0 76 24 2c 6d 25 29 3a  |)..@.v$=.v$,m%):|
000023e0  e7 c2 76 24 29 3d 22 2e  22 76 24 3d c0 76 24 29  |..v$)="."v$=.v$)|
000023f0  0d 15 4a 0a 3d 76 24 2b  72 24 0d 15 7c 79 dd f2  |..J.=v$+r$..|y..|
00002400  49 3a ea 51 62 25 2c 6c  25 2c 62 25 2c 72 25 2c  |I:.Qb%,l%,b%,r%,|
00002410  74 25 2c 4e 25 3a c8 99  32 36 32 33 34 34 2c 2c  |t%,N%:..262344,,|
00002420  7a 25 b8 51 62 25 3a 4e  25 3d 21 7a 25 3a f2 5f  |z%.Qb%:N%=!z%:._|
00002430  28 7a 25 2b 34 29 3a c8  95 51 62 25 3a 6c 25 3d  |(z%+4):..Qb%:l%=|
00002440  7a 25 21 32 38 3a 72 25  3d 7a 25 21 33 36 3a 74  |z%!28:r%=z%!36:t|
00002450  25 3d 7a 25 21 34 30 3a  62 25 3d 7a 25 21 33 32  |%=z%!40:b%=z%!32|
00002460  3a c8 99 35 33 30 30 34  39 2c 2c 7a 25 3a c8 8e  |:..530049,,z%:..|
00002470  4e 25 ca 0d 15 c2 25 c9  51 61 25 3a f2 75 61 28  |N%....%.Qa%:.ua(|
00002480  6c 25 2d 54 25 2c 62 25  2d 49 25 2c 72 25 2d 54  |l%-T%,b%-I%,r%-T|
00002490  25 2c 74 25 2d 49 25 29  0d 15 d6 1f c9 55 61 25  |%,t%-I%).....Ua%|
000024a0  3a e7 52 62 25 3e 30 f2  76 61 28 62 25 2d 49 25  |:.Rb%>0.va(b%-I%|
000024b0  2c 74 25 2d 49 25 29 0d  15 d6 1d c9 59 25 3a e7  |,t%-I%).....Y%:.|
000024c0  53 25 3e 30 f2 77 61 28  62 25 2d 49 25 2c 74 25  |S%>0.wa(b%-I%,t%|
000024d0  2d 49 25 29 0d 15 e0 1d  c9 48 25 3a e7 44 25 3e  |-I%).....H%:.D%>|
000024e0  30 f2 78 61 28 62 25 2d  49 25 2c 74 25 2d 49 25  |0.xa(b%-I%,t%-I%|
000024f0  29 0d 15 ea 1f c9 58 61  25 3a e7 53 62 25 3e 30  |).....Xa%:.Sb%>0|
00002500  f2 79 61 28 62 25 2d 49  25 2c 74 25 2d 49 25 29  |.ya(b%-I%,t%-I%)|
00002510  0d 15 f4 05 cb 0d 15 fe  18 c8 99 32 36 32 33 34  |...........26234|
00002520  36 2c 2c 7a 25 b8 51 62  25 3a ce 3a e1 0d 16 1c  |6,,z%.Qb%:.:....|
00002530  50 dd f2 75 61 28 6c 25  2c 62 25 2c 72 25 2c 74  |P..ua(l%,b%,r%,t|
00002540  25 29 3a ea 73 25 2c 78  2c 79 2c 78 25 2c 79 25  |%):.s%,x,y,x%,y%|
00002550  2c 6c 2c 62 2c 72 2c 74  2c 70 25 2c 54 62 25 2c  |,l,b,r,t,p%,Tb%,|
00002560  55 62 25 2c 6c 24 2c 6e  25 2c 56 62 25 2c 57 62  |Ub%,l$,n%,Vb%,Wb|
00002570  25 2c 58 62 25 3a e7 59  62 25 3e 30 8c 0d 16 4e  |%,Xb%:.Yb%>0...N|
00002580  88 c8 99 32 36 32 33 37  34 2c 5a 62 25 3a 6c 3d  |...262374,Zb%:l=|
00002590  28 6c 25 2d 69 62 25 29  2f 6f 3a 72 3d 28 72 25  |(l%-ib%)/o:r=(r%|
000025a0  2d 69 62 25 29 2f 6f 3a  74 3d 28 74 25 2d 6a 62  |-ib%)/o:t=(t%-jb|
000025b0  25 29 2f 71 3a 62 3d 28  62 25 2d 6a 62 25 29 2f  |%)/q:b=(b%-jb%)/|
000025c0  71 3a 6c 3d a8 28 28 6c  2d 67 29 2f 67 29 2a 67  |q:l=.((l-g)/g)*g|
000025d0  3a 72 3d a8 28 28 72 2b  67 29 2f 67 29 2a 67 3a  |:r=.((r+g)/g)*g:|
000025e0  74 3d a8 28 28 74 2b 69  29 2f 69 29 2a 69 3a 62  |t=.((t+i)/i)*i:b|
000025f0  3d a8 28 28 62 2d 69 29  2f 69 29 2a 69 3a e7 59  |=.((b-i)/i)*i:.Y|
00002600  62 25 3e 34 8c 0d 16 80  15 e7 59 62 25 3d 35 20  |b%>4......Yb%=5 |
00002610  70 25 3d 32 31 8b 70 25  3d 35 0d 16 8a 53 e3 78  |p%=21.p%=5...S.x|
00002620  3d 6c b8 72 88 67 3a ec  a4 69 28 78 29 2c a4 68  |=l.r.g:..i(x),.h|
00002630  28 62 29 3a f0 70 25 2c  a4 69 28 78 29 2c a4 68  |(b):.p%,.i(x),.h|
00002640  28 74 29 3a ed 3a e3 79  3d 62 b8 74 88 69 3a ec  |(t):.:.y=b.t.i:.|
00002650  a4 69 28 6c 29 2c a4 68  28 79 29 3a f0 70 25 2c  |.i(l),.h(y):.p%,|
00002660  a4 69 28 72 29 2c a4 68  28 79 29 3a ed 0d 16 a8  |.i(r),.h(y):....|
00002670  23 cc 3a 73 25 3d 59 62  25 3a e7 73 25 3d 33 20  |#.:s%=Yb%:.s%=3 |
00002680  73 25 3d 35 8b e7 73 25  3d 34 20 73 25 3d 31 30  |s%=5..s%=4 s%=10|
00002690  0d 16 b2 51 e3 78 3d 6c  b8 72 88 67 3a e3 79 3d  |...Q.x=l.r.g:.y=|
000026a0  62 b8 74 88 69 2f 73 25  3a c8 92 a4 69 28 78 29  |b.t.i/s%:...i(x)|
000026b0  2c a4 68 28 79 29 3a ed  3a ed 3a e3 79 3d 62 b8  |,.h(y):.:.:.y=b.|
000026c0  74 88 69 3a e3 78 3d 6c  b8 72 88 67 2f 73 25 3a  |t.i:.x=l.r.g/s%:|
000026d0  c8 92 a4 69 28 78 29 2c  a4 68 28 79 29 3a ed 3a  |...i(x),.h(y):.:|
000026e0  ed 0d 16 d0 05 cd 0d 16  d0 05 cd 0d 16 da 09 e7  |................|
000026f0  5f 62 25 8c 0d 16 ee 18  c8 99 32 36 32 33 37 34  |_b%.......262374|
00002700  2c 60 62 25 3a e7 61 63  25 3d 35 8c 0d 17 02 3b  |,`b%:.ac%=5....;|
00002710  ec 54 25 2b 6c 25 2c 49  25 2b 6a 62 25 3a df 54  |.T%+l%,I%+jb%:.T|
00002720  25 2b 72 25 2c 49 25 2b  6a 62 25 3a ec 54 25 2b  |%+r%,I%+jb%:.T%+|
00002730  69 62 25 2c 49 25 2b 62  25 3a df 54 25 2b 69 62  |ib%,I%+b%:.T%+ib|
00002740  25 2c 49 25 2b 74 25 0d  17 20 23 cc 3a 73 25 3d  |%,I%+t%.. #.:s%=|
00002750  61 63 25 3a e7 73 25 3d  33 20 73 25 3d 35 8b e7  |ac%:.s%=3 s%=5..|
00002760  73 25 3d 34 20 73 25 3d  31 30 0d 17 2a 79 e3 78  |s%=4 s%=10..*y.x|
00002770  3d 30 b8 6d 88 67 2f 73  25 3a c8 92 a4 69 28 78  |=0.m.g/s%:...i(x|
00002780  29 2c 49 25 2b 6a 62 25  3a ed 3a e3 78 3d 30 b8  |),I%+jb%:.:.x=0.|
00002790  6a 88 2d 67 2f 73 25 3a  c8 92 a4 69 28 78 29 2c  |j.-g/s%:...i(x),|
000027a0  49 25 2b 6a 62 25 3a ed  3a e3 79 3d 30 b8 6e 88  |I%+jb%:.:.y=0.n.|
000027b0  69 2f 73 25 3a c8 92 54  25 2b 69 62 25 2c a4 68  |i/s%:..T%+ib%,.h|
000027c0  28 79 29 3a ed 3a e3 79  3d 30 b8 6b 88 2d 69 2f  |(y):.:.y=0.k.-i/|
000027d0  73 25 3a c8 92 54 25 2b  69 62 25 2c a4 68 28 79  |s%:..T%+ib%,.h(y|
000027e0  29 3a ed 0d 17 5c 05 cd  0d 17 5c 27 79 25 3d 49  |):...\....\'y%=I|
000027f0  25 2b 6a 62 25 3a e7 6b  3e 30 20 79 25 3d 49 25  |%+jb%:.k>0 y%=I%|
00002800  2d 67 62 25 8b e7 6e 3c  30 20 79 25 3d 49 25 0d  |-gb%..n<0 y%=I%.|
00002810  17 66 74 e3 78 3d 30 b8  6d 88 67 3a c8 92 a4 69  |.ft.x=0.m.g:...i|
00002820  28 78 29 2c 79 25 2d 66  62 25 3a df 42 59 20 30  |(x),y%-fb%:.BY 0|
00002830  2c 66 62 25 2a 32 3a ed  3a e3 78 3d 30 b8 6a 88  |,fb%*2:.:.x=0.j.|
00002840  2d 67 3a c8 92 a4 69 28  78 29 2c 79 25 2d 66 62  |-g:...i(x),y%-fb|
00002850  25 3a df 42 59 20 30 2c  66 62 25 2a 32 3a ed 3a  |%:.BY 0,fb%*2:.:|
00002860  78 25 3d 54 25 2b 69 62  25 3a e7 6a 3e 30 20 78  |x%=T%+ib%:.j>0 x|
00002870  25 3d 54 25 8b e7 6d 3c  30 20 78 25 3d 54 25 2b  |%=T%..m<0 x%=T%+|
00002880  68 62 25 0d 17 84 50 e3  79 3d 30 b8 6e 88 69 3a  |hb%...P.y=0.n.i:|
00002890  c8 92 78 25 2d 65 62 25  2c a4 68 28 79 29 3a df  |..x%-eb%,.h(y):.|
000028a0  42 59 20 65 62 25 2a 32  2c 30 3a ed 3a e3 79 3d  |BY eb%*2,0:.:.y=|
000028b0  30 b8 6b 88 2d 69 3a c8  92 78 25 2d 65 62 25 2c  |0.k.-i:..x%-eb%,|
000028c0  a4 68 28 79 29 3a df 42  59 20 65 62 25 2a 32 2c  |.h(y):.BY eb%*2,|
000028d0  30 3a ed 0d 17 a2 05 cd  0d 17 a2 09 e7 62 63 25  |0:...........bc%|
000028e0  8c 0d 17 b6 2c c8 99 32  36 32 33 37 34 2c 37 3a  |....,..262374,7:|
000028f0  ef 32 33 2c 31 37 2c 37  2c 36 2c 28 31 32 2f 65  |.23,17,7,6,(12/e|
00002900  62 25 29 3b 28 33 32 2f  66 62 25 29 7c 0d 17 c0  |b%);(32/fb%)|...|
00002910  58 54 62 25 3d 31 3a c8  95 54 62 25 2a 67 2a 6f  |XTb%=1:..Tb%*g*o|
00002920  3c 31 30 34 3a 54 62 25  2b 3d 31 3a ce 3a 79 25  |<104:Tb%+=1:.:y%|
00002930  3d 49 25 2b 6a 62 25 2d  38 3a e7 79 25 3e 49 25  |=I%+jb%-8:.y%>I%|
00002940  2d 34 20 79 25 3d 49 25  2d 34 8b e7 79 25 3c 49  |-4 y%=I%-4..y%<I|
00002950  25 2d 67 62 25 2b 33 32  20 79 25 3d 49 25 2d 67  |%-gb%+32 y%=I%-g|
00002960  62 25 2b 33 32 0d 17 d4  c4 e3 78 3d 54 62 25 2a  |b%+32.....x=Tb%*|
00002970  67 b8 6d 88 54 62 25 2a  67 3a 6c 24 3d c3 28 78  |g.m.Tb%*g:l$=.(x|
00002980  29 3a ec a4 69 28 78 29  2d a9 28 6c 24 29 2a 36  |):..i(x)-.(l$)*6|
00002990  2c 79 25 3a f1 6c 24 3a  ed 3a e3 78 3d 2d 54 62  |,y%:.l$:.:.x=-Tb|
000029a0  25 2a 67 b8 6a 88 2d 54  62 25 2a 67 3a 6c 24 3d  |%*g.j.-Tb%*g:l$=|
000029b0  c3 28 78 29 3a ec a4 69  28 78 29 2d a9 28 6c 24  |.(x):..i(x)-.(l$|
000029c0  29 2a 36 2c 79 25 3a f1  6c 24 3a ed 3a 55 62 25  |)*6,y%:.l$:.:Ub%|
000029d0  3d 31 3a c8 95 55 62 25  2a 69 2a 71 3c 38 30 3a  |=1:..Ub%*i*q<80:|
000029e0  55 62 25 2b 3d 31 3a ce  3a 73 25 3d b9 3a 78 25  |Ub%+=1:.:s%=.:x%|
000029f0  3d 54 25 2b 69 62 25 2d  34 3a e7 78 25 3c 54 25  |=T%+ib%-4:.x%<T%|
00002a00  2b 35 30 20 78 25 3d 54  25 2b 38 3a 73 25 3d a3  |+50 x%=T%+8:s%=.|
00002a10  8b e7 78 25 3e 54 25 2b  68 62 25 2d 34 20 78 25  |..x%>T%+hb%-4 x%|
00002a20  3d 54 25 2b 68 62 25 2d  34 0d 18 10 4a e3 79 3d  |=T%+hb%-4...J.y=|
00002a30  55 62 25 2a 69 b8 6e 88  55 62 25 2a 69 3a 6c 24  |Ub%*i.n.Ub%*i:l$|
00002a40  3d c3 28 79 29 3a e7 73  25 ec 78 25 2d a9 28 6c  |=.(y):.s%.x%-.(l|
00002a50  24 29 2a 31 32 2c a4 68  28 79 29 2b 31 32 3a f1  |$)*12,.h(y)+12:.|
00002a60  6c 24 8b ec 78 25 2c a4  68 28 79 29 2b 31 32 3a  |l$..x%,.h(y)+12:|
00002a70  f1 6c 24 0d 18 24 4e ed  3a e3 79 3d 2d 55 62 25  |.l$..$N.:.y=-Ub%|
00002a80  2a 69 b8 6b 88 2d 55 62  25 2a 69 3a 6c 24 3d c3  |*i.k.-Ub%*i:l$=.|
00002a90  28 79 29 3a e7 73 25 ec  78 25 2d a9 28 6c 24 29  |(y):.s%.x%-.(l$)|
00002aa0  2a 31 32 2c a4 68 28 79  29 2b 31 32 3a f1 6c 24  |*12,.h(y)+12:.l$|
00002ab0  8b ec 78 25 2c a4 68 28  79 29 2b 31 32 3a f1 6c  |..x%,.h(y)+12:.l|
00002ac0  24 0d 18 42 23 ed 3a ef  32 33 2c 31 37 2c 37 2c  |$..B#.:.23,17,7,|
00002ad0  36 2c 28 31 36 2f 65 62  25 29 3b 28 33 32 2f 66  |6,(16/eb%);(32/f|
00002ae0  62 25 29 7c 0d 18 56 05  cd 0d 18 60 0b e7 46 62  |b%)|..V....`..Fb|
00002af0  25 3d 30 e1 0d 18 74 40  6e 25 3d 46 62 25 3a c8  |%=0...t@n%=Fb%:.|
00002b00  95 21 6e 25 3c 3e 2d 31  3a c8 99 32 36 32 33 37  |.!n%<>-1:..26237|
00002b10  34 2c 6e 25 3f 38 3a 70  25 3d 31 32 3a 73 25 3d  |4,n%?8:p%=12:s%=|
00002b20  6e 25 3f 31 30 3a e7 73  25 3d 32 35 35 20 73 25  |n%?10:.s%=255 s%|
00002b30  3d 63 63 25 0d 18 88 17  56 62 25 3d b9 3a e7 28  |=cc%....Vb%=.:.(|
00002b40  6e 25 3f 31 31 29 80 31  32 38 8c 0d 18 92 38 73  |n%?11).128....8s|
00002b50  25 3d 61 25 28 73 25 29  2a 66 62 25 3a 79 25 3d  |%=a%(s%)*fb%:y%=|
00002b60  6e 25 21 34 3a 57 62 25  3d 30 3a c8 95 79 25 3e  |n%!4:Wb%=0:..y%>|
00002b70  3d 62 25 2d 66 62 25 3a  e7 79 25 3c 3d 74 25 2b  |=b%-fb%:.y%<=t%+|
00002b80  73 25 8c 0d 18 a6 14 78  25 3d 6e 25 21 70 25 3a  |s%.....x%=n%!p%:|
00002b90  e7 56 62 25 3d b9 8c 0d  18 b0 1e e7 78 25 3c 3e  |.Vb%=.......x%<>|
00002ba0  64 63 25 ec 54 25 2b 78  25 2c 49 25 2b 79 25 3a  |dc%.T%+x%,I%+y%:|
00002bb0  56 62 25 3d a3 0d 18 ba  0a cc 3a c8 8e b9 ca 0d  |Vb%=......:.....|
00002bc0  18 ce 11 c9 78 25 3d 64  63 25 3a 56 62 25 3d b9  |....x%=dc%:Vb%=.|
00002bd0  0d 18 e2 47 c9 73 25 3d  66 62 25 3a e7 28 78 25  |...G.s%=fb%:.(x%|
00002be0  3e 3d 30 80 78 25 3c 3d  68 62 25 29 84 28 57 62  |>=0.x%<=hb%).(Wb|
00002bf0  25 3e 3d 30 80 57 62 25  3c 3d 68 62 25 29 df 54  |%>=0.Wb%<=hb%).T|
00002c00  25 2b 78 25 2c 49 25 2b  79 25 8b ec 54 25 2b 78  |%+x%,I%+y%..T%+x|
00002c10  25 2c 49 25 2b 79 25 0d  18 e2 12 7f c8 92 54 25  |%,I%+y%.......T%|
00002c20  2b 78 25 2c 49 25 2b 79  25 0d 18 f6 05 cb 0d 18  |+x%,I%+y%.......|
00002c30  f6 05 cd 0d 19 00 05 cd  0d 19 0a 19 79 25 2d 3d  |............y%-=|
00002c40  73 25 3a 70 25 2b 3d 34  3a 57 62 25 3d 78 25 3a  |s%:p%+=4:Wb%=x%:|
00002c50  ce 0d 19 1e 36 cc 3a 73  25 3d 61 25 28 73 25 29  |....6.:s%=a%(s%)|
00002c60  2a 65 62 25 3a 78 25 3d  6e 25 21 34 3a 58 62 25  |*eb%:x%=n%!4:Xb%|
00002c70  3d 30 3a c8 95 78 25 3c  3d 72 25 3a e7 78 25 3e  |=0:..x%<=r%:.x%>|
00002c80  3d 6c 25 2d 73 25 8c 0d  19 32 14 79 25 3d 6e 25  |=l%-s%...2.y%=n%|
00002c90  21 70 25 3a e7 56 62 25  3d b9 8c 0d 19 3c 1e e7  |!p%:.Vb%=....<..|
00002ca0  79 25 3c 3e 64 63 25 ec  54 25 2b 78 25 2c 49 25  |y%<>dc%.T%+x%,I%|
00002cb0  2b 79 25 3a 56 62 25 3d  a3 0d 19 46 0a cc 3a c8  |+y%:Vb%=...F..:.|
00002cc0  8e b9 ca 0d 19 5a 11 c9  79 25 3d 64 63 25 3a 56  |.....Z..y%=dc%:V|
00002cd0  62 25 3d b9 0d 19 6e 49  c9 73 25 3d 65 62 25 3a  |b%=...nI.s%=eb%:|
00002ce0  e7 28 79 25 3c 3d 30 80  79 25 3e 3d 2d 67 62 25  |.(y%<=0.y%>=-gb%|
00002cf0  29 84 28 58 62 25 3c 3d  30 80 58 62 25 3e 3d 2d  |).(Xb%<=0.Xb%>=-|
00002d00  67 62 25 29 df 54 25 2b  78 25 2c 49 25 2b 79 25  |gb%).T%+x%,I%+y%|
00002d10  8b ec 54 25 2b 78 25 2c  49 25 2b 79 25 0d 19 6e  |..T%+x%,I%+y%..n|
00002d20  12 7f c8 92 54 25 2b 78  25 2c 49 25 2b 79 25 0d  |....T%+x%,I%+y%.|
00002d30  19 82 05 cb 0d 19 82 05  cd 0d 19 8c 05 cd 0d 19  |................|
00002d40  96 19 78 25 2b 3d 73 25  3a 70 25 2b 3d 34 3a 58  |..x%+=s%:p%+=4:X|
00002d50  62 25 3d 79 25 3a ce 0d  19 aa 05 cd 0d 19 aa 0f  |b%=y%:..........|
00002d60  6e 25 2b 3d 21 6e 25 3a  ce 3a e1 0d 19 be 15 dd  |n%+=!n%:.:......|
00002d70  a4 69 28 78 29 3d 54 25  2b 69 62 25 2b 78 2a 6f  |.i(x)=T%+ib%+x*o|
00002d80  0d 19 dc 15 dd a4 68 28  79 29 3d 49 25 2b 6a 62  |......h(y)=I%+jb|
00002d90  25 2b 79 2a 71 0d 19 f0  45 dd f2 76 61 28 62 25  |%+y*q...E..va(b%|
00002da0  2c 74 25 29 3a ea 73 25  2c 65 25 2c 69 25 2c 70  |,t%):.s%,e%,i%,p|
00002db0  25 3a 73 25 3d a4 64 28  74 25 29 3a 65 25 3d a4  |%:s%=.d(t%):e%=.|
00002dc0  64 28 62 25 29 2b 31 3a  e7 65 25 3e 52 62 25 2d  |d(b%)+1:.e%>Rb%-|
00002dd0  31 20 65 25 3d 52 62 25  2d 31 0d 1a 0e 1c 70 25  |1 e%=Rb%-1....p%|
00002de0  3d 65 63 25 3a e3 69 25  3d 30 b8 65 25 3a e7 69  |=ec%:.i%=0.e%:.i|
00002df0  25 3e 3d 73 25 8c 0d 1a  22 3a e7 45 25 3d 55 61  |%>=s%...":.E%=Ua|
00002e00  25 80 4d 25 3f 69 25 3d  32 35 35 c8 99 32 36 32  |%.M%?i%=255..262|
00002e10  33 37 34 2c 31 35 3a c8  93 c8 90 54 25 2c 49 25  |374,15:....T%,I%|
00002e20  2d 34 2d 69 25 2a 33 36  2c 32 32 36 2c 2d 33 36  |-4-i%*36,226,-36|
00002e30  0d 1a 2c 28 c8 99 32 36  32 33 37 34 2c 37 3a ec  |..,(..262374,7:.|
00002e40  54 25 2b 34 2c 49 25 2d  38 2d 69 25 2a 33 36 3a  |T%+4,I%-8-i%*36:|
00002e50  f1 24 28 70 25 2b 34 29  0d 1a 40 05 cd 0d 1a 40  |.$(p%+4)..@....@|
00002e60  0f 70 25 2b 3d 21 70 25  3a ed 3a e1 0d 1a 54 43  |.p%+=!p%:.:...TC|
00002e70  dd f2 77 61 28 62 25 2c  74 25 29 3a ea 73 25 2c  |..wa(b%,t%):.s%,|
00002e80  65 25 2c 69 25 2c 70 25  3a 73 25 3d a4 64 28 74  |e%,i%,p%:s%=.d(t|
00002e90  25 29 3a 65 25 3d a4 64  28 62 25 29 2b 31 3a e7  |%):e%=.d(b%)+1:.|
00002ea0  65 25 3e 53 25 2d 31 20  65 25 3d 53 25 2d 31 0d  |e%>S%-1 e%=S%-1.|
00002eb0  1a 86 1b 70 25 3d 56 25  3a e3 69 25 3d 30 b8 65  |...p%=V%:.i%=0.e|
00002ec0  25 3a e7 69 25 3e 3d 73  25 8c 0d 1a 9a 39 e7 45  |%:.i%>=s%....9.E|
00002ed0  25 3d 59 25 80 4d 25 3f  69 25 3d 32 35 35 c8 99  |%=Y%.M%?i%=255..|
00002ee0  32 36 32 33 37 34 2c 31  35 3a c8 93 c8 90 54 25  |262374,15:....T%|
00002ef0  2c 49 25 2d 34 2d 69 25  2a 33 36 2c 32 32 36 2c  |,I%-4-i%*36,226,|
00002f00  2d 33 36 0d 1a a4 28 c8  99 32 36 32 33 37 34 2c  |-36...(..262374,|
00002f10  37 3a ec 54 25 2b 34 2c  49 25 2d 38 2d 69 25 2a  |7:.T%+4,I%-8-i%*|
00002f20  33 36 3a f1 24 28 70 25  2b 34 29 0d 1a b8 05 cd  |36:.$(p%+4).....|
00002f30  0d 1a b8 0f 70 25 2b 3d  21 70 25 3a ed 3a e1 0d  |....p%+=!p%:.:..|
00002f40  1a cc 43 dd f2 78 61 28  62 25 2c 74 25 29 3a ea  |..C..xa(b%,t%):.|
00002f50  73 25 2c 65 25 2c 69 25  2c 70 25 3a 73 25 3d a4  |s%,e%,i%,p%:s%=.|
00002f60  64 28 74 25 29 3a 65 25  3d a4 64 28 62 25 29 2b  |d(t%):e%=.d(b%)+|
00002f70  31 3a e7 65 25 3e 44 25  2d 31 20 65 25 3d 44 25  |1:.e%>D%-1 e%=D%|
00002f80  2d 31 0d 1a fe 1b 70 25  3d 4f 25 3a e3 69 25 3d  |-1....p%=O%:.i%=|
00002f90  30 b8 65 25 3a e7 69 25  3e 3d 73 25 8c 0d 1b 12  |0.e%:.i%>=s%....|
00002fa0  39 e7 45 25 3d 48 25 80  4d 25 3f 69 25 3d 32 35  |9.E%=H%.M%?i%=25|
00002fb0  35 c8 99 32 36 32 33 37  34 2c 31 35 3a c8 93 c8  |5..262374,15:...|
00002fc0  90 54 25 2c 49 25 2d 34  2d 69 25 2a 33 36 2c 33  |.T%,I%-4-i%*36,3|
00002fd0  31 36 2c 2d 33 36 0d 1b  1c 29 e7 47 25 3f 28 69  |16,-36...).G%?(i|
00002fe0  25 2a 34 2b 31 29 3d 32  35 35 c8 99 32 36 32 33  |%*4+1)=255..2623|
00002ff0  37 34 2c 37 8b c8 99 32  36 32 33 37 34 2c 33 0d  |74,7...262374,3.|
00003000  1b 26 23 ec 54 25 2b 34  2c 49 25 2d 38 2d 69 25  |.&#.T%+4,I%-8-i%|
00003010  2a 33 36 3a c8 8e 47 25  3f 28 69 25 2a 34 2b 33  |*36:..G%?(i%*4+3|
00003020  29 ca 0d 1b 30 14 c9 30  3a f1 22 79 3d 22 3b 24  |)...0..0:."y=";$|
00003030  28 70 25 2b 34 29 0d 1b  44 1c c9 31 3a f1 22 20  |(p%+4)..D..1:." |
00003040  20 20 20 54 72 61 6e 73  66 6f 72 6d 61 74 69 6f  |   Transformatio|
00003050  6e 22 0d 1b 4e 18 c9 32  3a f1 22 20 20 20 20 44  |n"..N..2:."    D|
00003060  65 72 69 76 61 74 69 76  65 22 0d 1b 58 16 c9 33  |erivative"..X..3|
00003070  3a f1 22 20 20 20 20 49  6e 74 65 67 72 61 6c 22  |:."    Integral"|
00003080  0d 1b 62 05 cb 0d 1b 62  05 cd 0d 1b 6c 0f 70 25  |..b....b....l.p%|
00003090  2b 3d 21 70 25 3a ed 3a  e1 0d 1b 80 48 dd f2 79  |+=!p%:.:....H..y|
000030a0  61 28 62 25 2c 74 25 29  3a ea 73 25 2c 65 25 2c  |a(b%,t%):.s%,e%,|
000030b0  69 25 2c 70 25 2c 76 24  3a 73 25 3d a4 64 28 74  |i%,p%,v$:s%=.d(t|
000030c0  25 29 3a 65 25 3d a4 64  28 62 25 29 2b 31 3a e7  |%):e%=.d(b%)+1:.|
000030d0  65 25 3e 53 62 25 2d 31  20 65 25 3d 53 62 25 2d  |e%>Sb%-1 e%=Sb%-|
000030e0  31 0d 1b b2 1c 70 25 3d  66 63 25 3a e3 69 25 3d  |1....p%=fc%:.i%=|
000030f0  30 b8 65 25 3a e7 69 25  3e 3d 73 25 8c 0d 1b c6  |0.e%:.i%>=s%....|
00003100  3a e7 45 25 3d 58 61 25  80 4d 25 3f 69 25 3d 32  |:.E%=Xa%.M%?i%=2|
00003110  35 35 c8 99 32 36 32 33  37 34 2c 31 35 3a c8 93  |55..262374,15:..|
00003120  c8 90 54 25 2c 49 25 2d  34 2d 69 25 2a 33 36 2c  |..T%,I%-4-i%*36,|
00003130  32 32 36 2c 2d 33 36 0d  1b d0 26 c8 99 32 36 32  |226,-36...&..262|
00003140  33 37 34 2c 37 3a ec 54  25 2b 34 2c 49 25 2d 38  |374,7:.T%+4,I%-8|
00003150  2d 69 25 2a 33 36 3a c8  8e 3f 70 25 ca 0d 1b da  |-i%*36:..?p%....|
00003160  10 c9 30 3a f1 22 74 72  6e 20 78 22 3b 0d 1b ee  |..0:."trn x";...|
00003170  10 c9 31 3a f1 22 74 72  6e 20 79 22 3b 0d 1b f8  |..1:."trn y";...|
00003180  10 c9 32 3a f1 22 73 63  6c 20 78 22 3b 0d 1c 02  |..2:."scl x";...|
00003190  10 c9 33 3a f1 22 73 63  6c 20 79 22 3b 0d 1c 0c  |..3:."scl y";...|
000031a0  0f c9 34 3a f1 22 72 65  66 20 78 22 0d 1c 16 0f  |..4:."ref x"....|
000031b0  c9 35 3a f1 22 72 65 66  20 79 22 0d 1c 20 14 c9  |.5:."ref y".. ..|
000031c0  36 3a f1 22 72 65 66 20  69 6e 20 79 3d 78 22 0d  |6:."ref in y=x".|
000031d0  1c 2a 05 cb 0d 1c 2a 1e  e7 3f 70 25 3c 34 80 3f  |.*....*..?p%<4.?|
000031e0  70 25 3e 3d 30 f1 22 3a  20 22 3b 7c 28 70 25 2b  |p%>=0.": ";|(p%+|
000031f0  31 29 0d 1c 34 05 cd 0d  1c 3e 0d 70 25 2b 3d 36  |1)..4....>.p%+=6|
00003200  3a ed 3a e1 0d 1c 52 16  dd a4 64 28 79 25 29 3d  |:.:...R...d(y%)=|
00003210  28 2d 79 25 2d 38 29 81  33 36 0d 1c 8e 48 dd f2  |(-y%-8).36...H..|
00003220  58 3a ea 69 25 3a e3 69  25 3d 30 b8 33 3a e7 76  |X:.i%:.i%=0.3:.v|
00003230  61 25 21 28 69 25 2a 31  36 29 3d 21 7a 25 f2 60  |a%!(i%*16)=!z%.`|
00003240  28 7a 25 2c 76 61 25 2b  69 25 2a 31 36 29 3a 7a  |(z%,va%+i%*16):z|
00003250  25 21 32 38 3d 76 61 25  21 28 34 2b 69 25 2a 31  |%!28=va%!(4+i%*1|
00003260  36 29 0d 1c a2 14 ed 3a  c8 99 32 36 32 33 34 31  |6).....:..262341|
00003270  2c 2c 7a 25 3a e1 0d 1c  c0 cb dd f2 60 28 67 63  |,,z%:.......`(gc|
00003280  25 2c 60 25 29 3a ea 68  63 25 2c 77 25 2c 68 25  |%,`%):.hc%,w%,h%|
00003290  2c 6c 25 2c 74 25 2c 69  63 25 3a 69 63 25 3d 67  |,l%,t%,ic%:ic%=g|
000032a0  63 25 21 32 38 3a 6c 25  3d 67 63 25 21 34 3a 74  |c%!28:l%=gc%!4:t|
000032b0  25 3d 67 63 25 21 31 36  3a 21 71 25 3d 60 25 21  |%=gc%!16:!q%=`%!|
000032c0  34 3a c8 99 32 36 32 33  34 37 2c 2c 71 25 3a 77  |4:..262347,,q%:w|
000032d0  25 3d 71 25 21 31 32 2d  71 25 21 34 3a 68 25 3d  |%=q%!12-q%!4:h%=|
000032e0  71 25 21 31 36 2d 71 25  21 38 3a 71 25 21 34 3d  |q%!16-q%!8:q%!4=|
000032f0  6c 25 2b 60 25 21 38 3a  71 25 21 38 3d 74 25 2d  |l%+`%!8:q%!8=t%-|
00003300  60 25 21 31 32 2d 68 25  3a 71 25 21 31 32 3d 6c  |`%!12-h%:q%!12=l|
00003310  25 2b 60 25 21 38 2b 77  25 3a 71 25 21 31 36 3d  |%+`%!8+w%:q%!16=|
00003320  74 25 2d 60 25 21 31 32  3a 71 25 21 32 38 3d 69  |t%-`%!12:q%!28=i|
00003330  63 25 3a c8 99 32 36 32  33 34 31 2c 2c 71 25 3a  |c%:..262341,,q%:|
00003340  e1 0d 1c fc 1a dd f2 6e  28 4e 25 29 3a ea 69 25  |.......n(N%):.i%|
00003350  3a e7 a4 53 28 4e 25 29  3d 30 e1 0d 1d 38 4e 21  |:..S(N%)=0...8N!|
00003360  71 25 3d 4e 25 3a c8 99  32 36 32 33 34 32 2c 2c  |q%=N%:..262342,,|
00003370  71 25 3a e3 69 25 3d 30  b8 33 3a e7 76 61 25 21  |q%:.i%=0.3:.va%!|
00003380  28 69 25 2a 31 36 29 3d  4e 25 20 21 71 25 3d 76  |(i%*16)=N% !q%=v|
00003390  61 25 21 28 34 2b 69 25  2a 31 36 29 3a c8 99 32  |a%!(4+i%*16):..2|
000033a0  36 32 33 34 32 2c 2c 71  25 0d 1d 4c 07 ed 3a e1  |62342,,q%..L..:.|
000033b0  0d 1d 56 0f dd f2 6b 61  3a c8 8e 21 7a 25 ca 0d  |..V...ka:..!z%..|
000033c0  1d 88 08 c9 51 61 25 0d  1d 9c 05 cb 0d 1d 9c 05  |....Qa%.........|
000033d0  e1 0d 1d a6 0f dd f2 6c  61 3a c8 8e 21 7a 25 ca  |.......la:..!z%.|
000033e0  0d 1d d8 08 c9 51 61 25  0d 1d ec 05 cb 0d 1d ec  |.....Qa%........|
000033f0  05 e1 0d 1d f6 30 dd f2  79 28 77 25 2c 69 25 2c  |.....0..y(w%,i%,|
00003400  62 25 29 3a 7a 25 21 38  3d 62 25 3a 7a 25 21 31  |b%):z%!8=b%:z%!1|
00003410  32 3d 77 25 3a 7a 25 21  31 36 3d 69 25 3a f2 59  |2=w%:z%!16=i%:.Y|
00003420  3a e1 0d 1e 32 0f dd f2  59 3a c8 8e 7a 25 21 38  |:...2...Y:..z%!8|
00003430  ca 0d 1e 50 11 c9 32 3a  e7 7a 25 21 31 32 3d 2d  |...P..2:.z%!12=-|
00003440  32 8c 0d 1e 5a 0f f2 7a  61 28 21 7a 25 2d 36 34  |2...Z..za(!z%-64|
00003450  29 0d 1e 6e 1c cc 3a f2  41 61 28 7a 25 21 31 32  |)..n..:.Aa(z%!12|
00003460  2c 21 7a 25 2d 36 34 2c  7a 25 21 34 29 0d 1e 82  |,!z%-64,z%!4)...|
00003470  05 cd 0d 1e 82 17 c9 34  2c 36 34 2c 31 30 32 34  |.......4,64,1024|
00003480  3a c8 8e 7a 25 21 31 32  ca 0d 1e 8c 0b c9 2d 32  |:..z%!12......-2|
00003490  3a f2 42 61 0d 1e a0 25  7f f2 43 61 28 21 7a 25  |:.Ba...%..Ca(!z%|
000034a0  2c 7a 25 21 34 2c 7a 25  21 38 81 34 2c 7a 25 21  |,z%!4,z%!8.4,z%!|
000034b0  31 32 2c 7a 25 21 31 36  29 0d 1e aa 05 cb 0d 1e  |12,z%!16).......|
000034c0  aa 16 c9 31 2c 31 36 2c  32 35 36 3a c8 8e 7a 25  |...1,16,256:..z%|
000034d0  21 31 32 ca 0d 1e b4 0b  c9 2d 32 3a f2 44 61 0d  |!12......-2:.Da.|
000034e0  1e c8 23 7f f2 45 61 28  21 7a 25 2c 7a 25 21 34  |..#..Ea(!z%,z%!4|
000034f0  2c 7a 25 21 38 2c 7a 25  21 31 32 2c 7a 25 21 31  |,z%!8,z%!12,z%!1|
00003500  36 29 0d 1e d2 05 cb 0d  1e d2 05 cb 0d 1e dc 05  |6)..............|
00003510  e1 0d 1e e6 48 dd f2 44  61 3a f2 6a 28 55 25 29  |....H..Da:.j(U%)|
00003520  3a e7 a4 67 28 51 61 25  29 3d 30 20 21 71 25 3d  |:..g(Qa%)=0 !q%=|
00003530  51 61 25 3a c8 99 32 36  32 33 34 37 2c 2c 71 25  |Qa%:..262347,,q%|
00003540  3a 71 25 21 32 38 3d 2d  32 3a c8 99 32 36 32 33  |:q%!28=-2:..2623|
00003550  34 31 2c 2c 71 25 3a f2  69 0d 1f 22 05 e1 0d 1f  |41,,q%:.i.."....|
00003560  2c 1c dd f2 42 61 3a f2  6a 28 51 61 25 29 3a f2  |,...Ba:.j(Qa%):.|
00003570  69 3a f2 6a 28 55 25 29  3a e1 0d 1f 5e 3d dd f2  |i:.j(U%):...^=..|
00003580  7a 61 28 78 25 29 3a f2  46 61 3a c8 99 32 36 32  |za(x%):.Fa:..262|
00003590  33 35 36 2c 2c 21 74 61  25 2c 78 25 2c 77 62 25  |356,,!ta%,x%,wb%|
000035a0  3a 41 61 25 3d 30 3a 42  61 25 3d 78 25 3a 43 61  |:Aa%=0:Ba%=x%:Ca|
000035b0  25 3d 77 62 25 3a e1 0d  1f 9a 2c dd f2 43 61 28  |%=wb%:....,..Ca(|
000035c0  6a 63 25 2c 6b 63 25 2c  68 63 25 2c 4e 25 2c 58  |jc%,kc%,hc%,N%,X|
000035d0  25 29 3a ea 6e 25 3a f2  41 28 4e 25 29 3a c8 8e  |%):.n%:.A(N%):..|
000035e0  4e 25 ca 0d 1f e0 0e c9  52 61 25 3a c8 8e 58 25  |N%......Ra%:..X%|
000035f0  ca 0d 1f ea 15 c9 33 3a  f2 47 61 28 52 61 25 2c  |......3:.Ga(Ra%,|
00003600  33 2c 52 61 25 29 0d 1f  fe 1d c9 32 3a f2 61 3a  |3,Ra%).....2:.a:|
00003610  f2 46 28 a4 62 28 52 61  25 2c 31 29 2c 30 2c b9  |.F(.b(Ra%,1),0,.|
00003620  2c a3 29 0d 20 08 05 cb  0d 20 08 0e c9 60 61 25  |,.). .... ...`a%|
00003630  3a c8 8e 58 25 ca 0d 20  12 15 c9 33 3a f2 47 61  |:..X%.. ...3:.Ga|
00003640  28 60 61 25 2c 33 2c 60  61 25 29 0d 20 26 25 c9  |(`a%,3,`a%). &%.|
00003650  32 3a f2 61 3a f2 46 28  a4 62 28 60 61 25 2c 31  |2:.a:.F(.b(`a%,1|
00003660  29 2c 30 2c a4 65 28 60  61 25 2c 34 29 2c b9 29  |),0,.e(`a%,4),.)|
00003670  0d 20 30 05 cb 0d 20 30  0d c9 55 25 3a c8 8e 58  |. 0... 0..U%:..X|
00003680  25 ca 0d 20 3a 0d c9 34  3a f2 61 3a f2 48 61 0d  |%.. :..4:.a:.Ha.|
00003690  20 4e 0d c9 35 3a f2 61  3a f2 49 61 0d 20 58 0d  | N..5:.a:.Ia. X.|
000036a0  c9 37 3a f2 61 3a f2 4a  61 0d 20 62 0d c9 38 3a  |.7:.a:.Ja. b..8:|
000036b0  f2 61 3a f2 4b 61 0d 20  6c 11 c9 33 3a f2 61 3a  |.a:.Ka. l..3:.a:|
000036c0  f2 6a 28 54 61 25 29 0d  20 76 11 c9 39 3a f2 61  |.j(Ta%). v..9:.a|
000036d0  3a f2 6a 28 53 61 25 29  0d 20 80 0d c9 36 3a f2  |:.j(Sa%). ...6:.|
000036e0  61 3a f2 4c 61 0d 20 8a  05 cb 0d 20 8a 0d c9 51  |a:.La. .... ...Q|
000036f0  25 3a c8 8e 58 25 ca 0d  20 94 12 c9 36 3a f2 68  |%:..X%.. ...6:.h|
00003700  28 51 25 2c 39 2c 2d 31  29 0d 20 a8 11 c9 38 3a  |(Q%,9,-1). ...8:|
00003710  f2 68 28 51 25 2c 39 2c  31 29 0d 20 b2 29 c9 31  |.h(Q%,9,1). .).1|
00003720  31 3a f2 61 3a e7 57 25  3d 2d 32 20 6e 25 3d a4  |1:.a:.W%=-2 n%=.|
00003730  71 28 2d 31 2c 31 29 8b  6e 25 3d a4 47 28 2d 31  |q(-1,1).n%=.G(-1|
00003740  2c 31 29 0d 20 b2 29 c9  31 32 3a f2 61 3a e7 57  |,1). .).12:.a:.W|
00003750  25 3d 2d 32 20 6e 25 3d  a4 71 28 2d 31 2c 30 29  |%=-2 n%=.q(-1,0)|
00003760  8b 6e 25 3d a4 47 28 2d  31 2c 30 29 0d 20 bc 05  |.n%=.G(-1,0). ..|
00003770  cb 0d 20 c6 0d c9 52 25  3a c8 8e 58 25 ca 0d 20  |.. ...R%:..X%.. |
00003780  d0 12 c9 36 3a f2 68 28  52 25 2c 39 2c 2d 31 29  |...6:.h(R%,9,-1)|
00003790  0d 20 e4 11 c9 38 3a f2  68 28 52 25 2c 39 2c 31  |. ...8:.h(R%,9,1|
000037a0  29 0d 20 ee 29 c9 31 31  3a f2 61 3a e7 57 25 3d  |). .).11:.a:.W%=|
000037b0  2d 32 20 6e 25 3d a4 74  28 2d 31 2c 31 29 8b 6e  |-2 n%=.t(-1,1).n|
000037c0  25 3d a4 75 28 2d 31 2c  31 29 0d 20 ee 29 c9 31  |%=.u(-1,1). .).1|
000037d0  32 3a f2 61 3a e7 57 25  3d 2d 32 20 6e 25 3d a4  |2:.a:.W%=-2 n%=.|
000037e0  74 28 2d 31 2c 30 29 8b  6e 25 3d a4 75 28 2d 31  |t(-1,0).n%=.u(-1|
000037f0  2c 30 29 0d 20 f8 05 cb  0d 21 02 0d c9 46 25 3a  |,0). ....!...F%:|
00003800  c8 8e 58 25 ca 0d 21 0c  12 c9 36 3a f2 68 28 46  |..X%..!...6:.h(F|
00003810  25 2c 39 2c 2d 31 29 0d  21 20 11 c9 38 3a f2 68  |%,9,-1).! ..8:.h|
00003820  28 46 25 2c 39 2c 31 29  0d 21 2a 10 c9 31 33 2c  |(F%,9,1).!*..13,|
00003830  31 34 2c 31 35 3a f2 75  0d 21 34 25 c9 31 37 2c  |14,15:.u.!4%.17,|
00003840  31 38 3a f2 65 28 46 25  2c 31 35 2c 31 29 3a f2  |18:.e(F%,15,1):.|
00003850  65 28 46 25 2c 32 30 2c  30 29 3a f2 75 0d 21 3e  |e(F%,20,0):.u.!>|
00003860  22 c9 31 39 3a f2 65 28  46 25 2c 31 35 2c 30 29  |".19:.e(F%,15,0)|
00003870  3a f2 65 28 46 25 2c 32  30 2c 31 29 3a f2 75 0d  |:.e(F%,20,1):.u.|
00003880  21 48 0e c9 32 31 3a f2  61 3a f2 4d 61 0d 21 52  |!H..21:.a:.Ma.!R|
00003890  0d c9 32 32 3a f2 61 3a  f2 4b 0d 21 5c 29 c9 31  |..22:.a:.K.!\).1|
000038a0  31 3a f2 61 3a e7 57 25  3d 2d 32 20 6e 25 3d a4  |1:.a:.W%=-2 n%=.|
000038b0  76 28 2d 31 2c 31 29 8b  6e 25 3d a4 77 28 2d 31  |v(-1,1).n%=.w(-1|
000038c0  2c 31 29 0d 21 5c 29 c9  31 32 3a f2 61 3a e7 57  |,1).!\).12:.a:.W|
000038d0  25 3d 2d 32 20 6e 25 3d  a4 76 28 2d 31 2c 30 29  |%=-2 n%=.v(-1,0)|
000038e0  8b 6e 25 3d a4 77 28 2d  31 2c 30 29 0d 21 66 05  |.n%=.w(-1,0).!f.|
000038f0  cb 0d 21 70 1c c9 54 61  25 3a e7 58 25 3d 34 f2  |..!p..Ta%:.X%=4.|
00003900  61 3a f2 4e 61 3a f2 6e  28 54 61 25 29 0d 21 7a  |a:.Na:.n(Ta%).!z|
00003910  0e c9 53 61 25 3a c8 8e  58 25 ca 0d 21 84 0d c9  |..Sa%:..X%..!...|
00003920  32 3a f2 61 3a f2 4f 61  0d 21 98 0c c9 33 3a f2  |2:.a:.Oa.!...3:.|
00003930  61 3a f2 4c 0d 21 a2 0c  c9 34 3a f2 61 3a f2 4d  |a:.L.!...4:.a:.M|
00003940  0d 21 ac 15 c9 35 3a f2  61 3a f2 50 61 3a f2 6e  |.!...5:.a:.Pa:.n|
00003950  28 53 61 25 29 0d 21 b6  05 cb 0d 21 b6 0f c9 57  |(Sa%).!....!...W|
00003960  61 25 3a e7 58 25 3d 32  8c 0d 21 c0 20 f2 61 3a  |a%:.X%=2..!. .a:|
00003970  e7 44 62 25 3d 2d 32 20  6e 25 3d a4 78 28 31 29  |.Db%=-2 n%=.x(1)|
00003980  8b 6e 25 3d a4 79 28 31  29 0d 21 ca 05 cd 0d 21  |.n%=.y(1).!....!|
00003990  d4 31 c9 55 61 25 3a 6e  25 3d a4 64 28 6b 63 25  |.1.Ua%:n%=.d(kc%|
000039a0  2d 49 25 29 3a e7 6e 25  3e 3d 30 80 6e 25 3c 52  |-I%):.n%>=0.n%<R|
000039b0  62 25 f2 76 28 55 61 25  2c 6e 25 29 8b f2 6d 0d  |b%.v(Ua%,n%)..m.|
000039c0  21 de 0e c9 59 25 3a c8  8e 68 63 25 ca 0d 21 e8  |!...Y%:..hc%..!.|
000039d0  2f c9 32 35 36 3a 6e 25  3d a4 64 28 6b 63 25 2d  |/.256:n%=.d(kc%-|
000039e0  49 25 29 3a e7 6e 25 3e  3d 30 80 6e 25 3c 53 25  |I%):.n%>=0.n%<S%|
000039f0  f2 76 28 59 25 2c 6e 25  29 8b f2 6d 0d 21 f2 30  |.v(Y%,n%)..m.!.0|
00003a00  c9 31 3a 6e 25 3d a4 64  28 6b 63 25 2d 49 25 29  |.1:n%=.d(kc%-I%)|
00003a10  3a e7 6e 25 3e 3d 30 80  6e 25 3c 53 25 f2 6d 3a  |:.n%>=0.n%<S%.m:|
00003a20  f2 76 28 59 25 2c 6e 25  29 3a f2 4c 0d 21 fc 05  |.v(Y%,n%):.L.!..|
00003a30  cb 0d 22 06 0e c9 48 25  3a c8 8e 68 63 25 ca 0d  |.."...H%:..hc%..|
00003a40  22 10 2f c9 32 35 36 3a  6e 25 3d a4 64 28 6b 63  |"./.256:n%=.d(kc|
00003a50  25 2d 49 25 29 3a e7 6e  25 3e 3d 30 80 6e 25 3c  |%-I%):.n%>=0.n%<|
00003a60  44 25 f2 76 28 48 25 2c  6e 25 29 8b f2 6d 0d 22  |D%.v(H%,n%)..m."|
00003a70  1a 31 c9 31 3a 6e 25 3d  a4 64 28 6b 63 25 2d 49  |.1.1:n%=.d(kc%-I|
00003a80  25 29 3a e7 6e 25 3e 3d  30 80 6e 25 3c 44 25 f2  |%):.n%>=0.n%<D%.|
00003a90  6d 3a f2 76 28 48 25 2c  6e 25 29 3a f2 48 61 0d  |m:.v(H%,n%):.Ha.|
00003aa0  22 24 05 cb 0d 22 2e 31  c9 58 61 25 3a 6e 25 3d  |"$...".1.Xa%:n%=|
00003ab0  a4 64 28 6b 63 25 2d 49  25 29 3a e7 6e 25 3e 3d  |.d(kc%-I%):.n%>=|
00003ac0  30 80 6e 25 3c 53 62 25  f2 76 28 58 61 25 2c 6e  |0.n%<Sb%.v(Xa%,n|
00003ad0  25 29 8b f2 6d 0d 22 38  0d c9 4c 25 3a c8 8e 58  |%)..m."8..L%:..X|
00003ae0  25 ca 0d 22 42 14 c9 31  39 3a f2 68 28 4c 25 2c  |%.."B..19:.h(L%,|
00003af0  32 32 2c 2d 31 29 0d 22  56 13 c9 32 31 3a f2 68  |22,-1)."V..21:.h|
00003b00  28 4c 25 2c 32 32 2c 31  29 0d 22 60 11 c9 33 31  |(L%,22,1)."`..31|
00003b10  3a f2 61 3a f2 51 61 28  b9 29 0d 22 6a 25 c9 33  |:.a:.Qa(.)."j%.3|
00003b20  32 2c 33 33 2c 33 34 2c  33 35 2c 33 36 2c 33 37  |2,33,34,35,36,37|
00003b30  3a f2 61 3a f2 4e 28 58  25 2d 33 32 2c 34 29 0d  |:.a:.N(X%-32,4).|
00003b40  22 74 05 cb 0d 22 74 0e  c9 59 61 25 3a c8 8e 58  |"t..."t..Ya%:..X|
00003b50  25 ca 0d 22 7e 0f c9 31  30 3a 6e 2b 3d 69 3a f2  |%.."~..10:n+=i:.|
00003b60  67 0d 22 92 16 c9 31 31  3a e7 6e 2d 69 3e 6b 20  |g."...11:.n-i>k |
00003b70  6e 2d 3d 69 3a f2 67 0d  22 92 16 c9 31 32 3a e7  |n-=i:.g."...12:.|
00003b80  6b 2b 69 3c 6e 20 6b 2b  3d 69 3a f2 67 0d 22 9c  |k+i<n k+=i:.g.".|
00003b90  0f c9 31 33 3a 6b 2d 3d  69 3a f2 67 0d 22 b0 0f  |..13:k-=i:.g."..|
00003ba0  c9 31 34 3a 6a 2d 3d 67  3a f2 67 0d 22 ba 16 c9  |.14:j-=g:.g."...|
00003bb0  31 35 3a e7 6a 2b 67 3c  6d 20 6a 2b 3d 67 3a f2  |15:.j+g<m j+=g:.|
00003bc0  67 0d 22 ba 16 c9 31 36  3a e7 6d 2d 67 3e 6a 20  |g."...16:.m-g>j |
00003bd0  6d 2d 3d 67 3a f2 67 0d  22 c4 0f c9 31 37 3a 6d  |m-=g:.g."...17:m|
00003be0  2b 3d 67 3a f2 67 0d 22  d8 14 c9 31 38 3a 6e 2b  |+=g:.g."...18:n+|
00003bf0  3d 69 3a 6b 2b 3d 69 3a  f2 67 0d 22 e2 14 c9 31  |=i:k+=i:.g."...1|
00003c00  39 3a 6d 2d 3d 67 3a 6a  2d 3d 67 3a f2 67 0d 22  |9:m-=g:j-=g:.g."|
00003c10  ec 14 c9 32 30 3a 6d 2b  3d 67 3a 6a 2b 3d 67 3a  |...20:m+=g:j+=g:|
00003c20  f2 67 0d 22 f6 14 c9 32  31 3a 6b 2d 3d 69 3a 6e  |.g."...21:k-=i:n|
00003c30  2d 3d 69 3a f2 67 0d 23  00 0e c9 32 32 3a f2 61  |-=i:.g.#...22:.a|
00003c40  3a f2 52 61 0d 23 0a 15  c9 32 36 3a f2 68 28 59  |:.Ra.#...26:.h(Y|
00003c50  61 25 2c 32 39 2c 2d 31  29 0d 23 14 14 c9 32 38  |a%,29,-1).#...28|
00003c60  3a f2 68 28 59 61 25 2c  32 39 2c 31 29 0d 23 1e  |:.h(Ya%,29,1).#.|
00003c70  15 c9 39 3a f2 61 3a f2  53 61 3a f2 6e 28 59 61  |..9:.a:.Sa:.n(Ya|
00003c80  25 29 0d 23 28 05 cb 0d  23 28 0e c9 56 61 25 3a  |%).#(...#(..Va%:|
00003c90  c8 8e 58 25 ca 0d 23 32  11 c9 34 3a f2 6f 28 36  |..X%..#2..4:.o(6|
00003ca0  2c 31 2c 31 34 29 0d 23  46 12 c9 35 3a f2 6f 28  |,1,14).#F..5:.o(|
00003cb0  36 2c 2d 31 2c 31 34 29  0d 23 50 11 c9 38 3a f2  |6,-1,14).#P..8:.|
00003cc0  6f 28 37 2c 31 2c 31 35  29 0d 23 5a 12 c9 39 3a  |o(7,1,15).#Z..9:|
00003cd0  f2 6f 28 37 2c 2d 31 2c  31 35 29 0d 23 64 12 c9  |.o(7,-1,15).#d..|
00003ce0  31 32 3a f2 6f 28 31 34  2c 31 2c 36 29 0d 23 6e  |12:.o(14,1,6).#n|
00003cf0  13 c9 31 33 3a f2 6f 28  31 34 2c 2d 31 2c 36 29  |..13:.o(14,-1,6)|
00003d00  0d 23 78 12 c9 31 36 3a  f2 6f 28 31 35 2c 31 2c  |.#x..16:.o(15,1,|
00003d10  37 29 0d 23 82 13 c9 31  37 3a f2 6f 28 31 35 2c  |7).#...17:.o(15,|
00003d20  2d 31 2c 37 29 0d 23 8c  05 cb 0d 23 8c 0d c9 5a  |-1,7).#....#...Z|
00003d30  25 3a c8 8e 58 25 ca 0d  23 96 39 c9 35 3a f2 45  |%:..X%..#.9.5:.E|
00003d40  28 5a 25 2c 34 2c 31 2d  28 50 62 25 80 31 29 2c  |(Z%,4,1-(Pb%.1),|
00003d50  39 2c 31 29 3a 50 62 25  3d 28 50 62 25 80 31 29  |9,1):Pb%=(Pb%.1)|
00003d60  2b 28 bb 28 a4 62 28 5a  25 2c 34 29 29 2a 32 29  |+(.(.b(Z%,4))*2)|
00003d70  0d 23 aa 3a c9 36 3a f2  45 28 5a 25 2c 34 2c 31  |.#.:.6:.E(Z%,4,1|
00003d80  2d 28 50 62 25 80 31 29  2c 39 2c 2d 31 29 3a 50  |-(Pb%.1),9,-1):P|
00003d90  62 25 3d 28 50 62 25 80  31 29 2b 28 bb 28 a4 62  |b%=(Pb%.1)+(.(.b|
00003da0  28 5a 25 2c 34 29 29 2a  32 29 0d 23 b4 33 c9 37  |(Z%,4))*2).#.3.7|
00003db0  3a e7 a4 62 28 5a 25 2c  34 29 3d 22 30 22 f2 62  |:..b(Z%,4)="0".b|
00003dc0  28 5a 25 2c 34 2c 22 31  22 2c 31 29 3a 50 62 25  |(Z%,4,"1",1):Pb%|
00003dd0  3d 32 8b 50 62 25 3d 50  62 25 80 ac 31 0d 23 b4  |=2.Pb%=Pb%..1.#.|
00003de0  10 c9 38 3a 50 62 25 3d  50 62 25 84 31 0d 23 c8  |..8:Pb%=Pb%.1.#.|
00003df0  15 c9 39 3a f2 4f 28 a4  65 28 5a 25 2c 39 29 3d  |..9:.O(.e(Z%,9)=|
00003e00  30 29 0d 23 d2 05 cb 0d  23 d2 0e c9 5a 61 25 3a  |0).#....#...Za%:|
00003e10  c8 8e 58 25 ca 0d 23 dc  13 c9 31 3a f2 68 28 5a  |..X%..#...1:.h(Z|
00003e20  61 25 2c 33 2c 2d 31 29  0d 23 f0 12 c9 34 3a f2  |a%,3,-1).#...4:.|
00003e30  68 28 5a 61 25 2c 33 2c  31 29 0d 23 fa 1a c9 35  |h(Za%,3,1).#...5|
00003e40  3a f2 61 3a f2 54 61 3a  c8 99 32 36 32 33 35 36  |:.a:.Ta:..262356|
00003e50  2c 2c 2d 31 0d 24 04 05  cb 0d 24 04 21 c9 5f 61  |,,-1.$....$.!._a|
00003e60  25 3a e7 58 25 3d 38 f2  61 3a f2 55 61 3a c8 99  |%:.X%=8.a:.Ua:..|
00003e70  32 36 32 33 35 36 2c 2c  2d 31 0d 24 0e 05 cb 0d  |262356,,-1.$....|
00003e80  24 18 05 e1 0d 24 22 28  dd f2 45 61 28 6a 63 25  |$....$"(..Ea(jc%|
00003e90  2c 6b 63 25 2c 68 63 25  2c 4e 25 2c 58 25 29 3a  |,kc%,hc%,N%,X%):|
00003ea0  f2 41 28 4e 25 29 3a c8  8e 4e 25 ca 0d 24 4a 26  |.A(N%):..N%..$J&|
00003eb0  c9 52 61 25 2c 60 61 25  2c 55 25 3a f2 43 61 28  |.Ra%,`a%,U%:.Ca(|
00003ec0  6a 63 25 2c 6b 63 25 2c  68 63 25 2c 4e 25 2c 58  |jc%,kc%,hc%,N%,X|
00003ed0  25 29 0d 24 5e 0d c9 51  25 3a c8 8e 58 25 ca 0d  |%).$^..Q%:..X%..|
00003ee0  24 5e 11 c9 36 3a f2 68  28 51 25 2c 39 2c 31 29  |$^..6:.h(Q%,9,1)|
00003ef0  0d 24 72 12 c9 38 3a f2  68 28 51 25 2c 39 2c 2d  |.$r..8:.h(Q%,9,-|
00003f00  31 29 0d 24 7c 17 c9 31  31 3a e7 57 25 3e 3d 30  |1).$|..11:.W%>=0|
00003f10  f2 61 3a f2 50 28 51 25  29 0d 24 7c 29 c9 31 32  |.a:.P(Q%).$|).12|
00003f20  3a f2 61 3a e7 57 25 3d  2d 32 20 6e 25 3d a4 71  |:.a:.W%=-2 n%=.q|
00003f30  28 51 25 2c 30 29 8b 6e  25 3d a4 71 28 51 25 2c  |(Q%,0).n%=.q(Q%,|
00003f40  30 29 0d 24 86 05 cb 0d  24 90 0d c9 52 25 3a c8  |0).$....$...R%:.|
00003f50  8e 58 25 ca 0d 24 9a 11  c9 36 3a f2 68 28 52 25  |.X%..$...6:.h(R%|
00003f60  2c 39 2c 31 29 0d 24 ae  12 c9 38 3a f2 68 28 52  |,9,1).$...8:.h(R|
00003f70  25 2c 39 2c 2d 31 29 0d  24 b8 17 c9 31 31 3a e7  |%,9,-1).$...11:.|
00003f80  57 25 3e 3d 30 f2 61 3a  f2 50 28 52 25 29 0d 24  |W%>=0.a:.P(R%).$|
00003f90  b8 29 c9 31 32 3a f2 61  3a e7 57 25 3d 2d 32 20  |.).12:.a:.W%=-2 |
00003fa0  6e 25 3d a4 74 28 52 25  2c 30 29 8b 6e 25 3d a4  |n%=.t(R%,0).n%=.|
00003fb0  75 28 52 25 2c 30 29 0d  24 c2 05 cb 0d 24 cc 0d  |u(R%,0).$....$..|
00003fc0  c9 46 25 3a c8 8e 58 25  ca 0d 24 d6 11 c9 36 3a  |.F%:..X%..$...6:|
00003fd0  f2 68 28 46 25 2c 39 2c  31 29 0d 24 ea 12 c9 38  |.h(F%,9,1).$...8|
00003fe0  3a f2 68 28 46 25 2c 39  2c 2d 31 29 0d 24 f4 10  |:.h(F%,9,-1).$..|
00003ff0  c9 31 33 2c 31 34 2c 31  35 3a f2 75 0d 24 fe 25  |.13,14,15:.u.$.%|
00004000  c9 31 37 2c 31 38 3a f2  65 28 46 25 2c 31 35 2c  |.17,18:.e(F%,15,|
00004010  31 29 3a f2 65 28 46 25  2c 32 30 2c 30 29 3a f2  |1):.e(F%,20,0):.|
00004020  75 0d 25 08 22 c9 31 39  3a f2 65 28 46 25 2c 31  |u.%.".19:.e(F%,1|
00004030  35 2c 30 29 3a f2 65 28  46 25 2c 32 30 2c 31 29  |5,0):.e(F%,20,1)|
00004040  3a f2 75 0d 25 12 0e c9  32 31 3a f2 61 3a f2 4d  |:.u.%...21:.a:.M|
00004050  61 0d 25 1c 0d c9 32 32  3a f2 61 3a f2 4b 0d 25  |a.%...22:.a:.K.%|
00004060  26 17 c9 31 31 3a e7 57  25 3e 3d 30 f2 61 3a f2  |&..11:.W%>=0.a:.|
00004070  50 28 46 25 29 0d 25 26  29 c9 31 32 3a f2 61 3a  |P(F%).%&).12:.a:|
00004080  e7 57 25 3d 2d 32 20 6e  25 3d a4 76 28 46 25 2c  |.W%=-2 n%=.v(F%,|
00004090  30 29 8b 6e 25 3d a4 77  28 46 25 2c 30 29 0d 25  |0).n%=.w(F%,0).%|
000040a0  30 05 cb 0d 25 3a 14 c9  54 61 25 3a e7 58 25 3d  |0...%:..Ta%:.X%=|
000040b0  34 f2 61 3a f2 4e 61 0d  25 44 0e c9 53 61 25 3a  |4.a:.Na.%D..Sa%:|
000040c0  c8 8e 58 25 ca 0d 25 4e  0d c9 32 3a f2 61 3a f2  |..X%..%N..2:.a:.|
000040d0  4f 61 0d 25 62 0c c9 33  3a f2 61 3a f2 4c 0d 25  |Oa.%b..3:.a:.L.%|
000040e0  6c 0c c9 34 3a f2 61 3a  f2 4d 0d 25 76 0d c9 35  |l..4:.a:.M.%v..5|
000040f0  3a f2 61 3a f2 50 61 0d  25 80 05 cb 0d 25 80 0f  |:.a:.Pa.%....%..|
00004100  c9 57 61 25 3a e7 58 25  3d 32 8c 0d 25 8a 20 f2  |.Wa%:.X%=2..%. .|
00004110  61 3a e7 44 62 25 3d 2d  32 20 6e 25 3d a4 78 28  |a:.Db%=-2 n%=.x(|
00004120  30 29 8b 6e 25 3d a4 79  28 30 29 0d 25 94 05 cd  |0).n%=.y(0).%...|
00004130  0d 25 9e 2e c9 55 61 25  3a 6e 25 3d a4 64 28 6b  |.%...Ua%:n%=.d(k|
00004140  63 25 2d 49 25 29 3a e7  6e 25 3e 3d 30 80 6e 25  |c%-I%):.n%>=0.n%|
00004150  3c 52 62 25 f2 76 28 55  61 25 2c 6e 25 29 0d 25  |<Rb%.v(Ua%,n%).%|
00004160  a8 2b c9 59 25 3a 6e 25  3d a4 64 28 6b 63 25 2d  |.+.Y%:n%=.d(kc%-|
00004170  49 25 29 3a e7 6e 25 3e  3d 30 80 6e 25 3c 53 25  |I%):.n%>=0.n%<S%|
00004180  f2 51 28 59 25 2c 6e 25  29 0d 25 b2 2b c9 48 25  |.Q(Y%,n%).%.+.H%|
00004190  3a 6e 25 3d a4 64 28 6b  63 25 2d 49 25 29 3a e7  |:n%=.d(kc%-I%):.|
000041a0  6e 25 3e 3d 30 80 6e 25  3c 44 25 f2 51 28 48 25  |n%>=0.n%<D%.Q(H%|
000041b0  2c 6e 25 29 0d 25 bc 2e  c9 58 61 25 3a 6e 25 3d  |,n%).%...Xa%:n%=|
000041c0  a4 64 28 6b 63 25 2d 49  25 29 3a e7 6e 25 3e 3d  |.d(kc%-I%):.n%>=|
000041d0  30 80 6e 25 3c 53 62 25  f2 51 28 58 61 25 2c 6e  |0.n%<Sb%.Q(Xa%,n|
000041e0  25 29 0d 25 c6 0d c9 4c  25 3a c8 8e 58 25 ca 0d  |%).%...L%:..X%..|
000041f0  25 d0 13 c9 31 39 3a f2  68 28 4c 25 2c 32 32 2c  |%...19:.h(L%,22,|
00004200  31 29 0d 25 e4 14 c9 32  31 3a f2 68 28 4c 25 2c  |1).%...21:.h(L%,|
00004210  32 32 2c 2d 31 29 0d 25  ee 25 c9 33 32 2c 33 33  |22,-1).%.%.32,33|
00004220  2c 33 34 2c 33 35 2c 33  36 2c 33 37 3a f2 61 3a  |,34,35,36,37:.a:|
00004230  f2 4e 28 58 25 2d 33 32  2c 31 29 0d 25 f8 11 c9  |.N(X%-32,1).%...|
00004240  33 31 3a f2 61 3a f2 51  61 28 a3 29 0d 26 02 05  |31:.a:.Qa(.).&..|
00004250  cb 0d 26 02 0e c9 59 61  25 3a c8 8e 58 25 ca 0d  |..&...Ya%:..X%..|
00004260  26 0c 16 c9 31 30 3a e7  6e 2d 69 3e 6b 20 6e 2d  |&...10:.n-i>k n-|
00004270  3d 69 3a f2 67 0d 26 16  0f c9 31 31 3a 6e 2b 3d  |=i:.g.&...11:n+=|
00004280  69 3a f2 67 0d 26 2a 0f  c9 31 32 3a 6b 2d 3d 69  |i:.g.&*..12:k-=i|
00004290  3a f2 67 0d 26 34 16 c9  31 33 3a e7 6b 2b 69 3c  |:.g.&4..13:.k+i<|
000042a0  6e 20 6b 2b 3d 69 3a f2  67 0d 26 34 16 c9 31 34  |n k+=i:.g.&4..14|
000042b0  3a e7 6a 2b 67 3c 6d 20  6a 2b 3d 67 3a f2 67 0d  |:.j+g<m j+=g:.g.|
000042c0  26 3e 0f c9 31 35 3a 6a  2d 3d 67 3a f2 67 0d 26  |&>..15:j-=g:.g.&|
000042d0  52 0f c9 31 36 3a 6d 2b  3d 67 3a f2 67 0d 26 5c  |R..16:m+=g:.g.&\|
000042e0  16 c9 31 37 3a e7 6d 2d  67 3e 6a 20 6d 2d 3d 67  |..17:.m-g>j m-=g|
000042f0  3a f2 67 0d 26 5c 14 c9  31 38 3a 6b 2d 3d 69 3a  |:.g.&\..18:k-=i:|
00004300  6e 2d 3d 69 3a f2 67 0d  26 70 14 c9 31 39 3a 6d  |n-=i:.g.&p..19:m|
00004310  2b 3d 67 3a 6a 2b 3d 67  3a f2 67 0d 26 7a 14 c9  |+=g:j+=g:.g.&z..|
00004320  32 30 3a 6d 2d 3d 67 3a  6a 2d 3d 67 3a f2 67 0d  |20:m-=g:j-=g:.g.|
00004330  26 84 14 c9 32 31 3a 6e  2b 3d 69 3a 6b 2b 3d 69  |&...21:n+=i:k+=i|
00004340  3a f2 67 0d 26 8e 0e c9  32 32 3a f2 61 3a f2 52  |:.g.&...22:.a:.R|
00004350  61 0d 26 98 14 c9 32 36  3a f2 68 28 59 61 25 2c  |a.&...26:.h(Ya%,|
00004360  32 39 2c 31 29 0d 26 a2  15 c9 32 38 3a f2 68 28  |29,1).&...28:.h(|
00004370  59 61 25 2c 32 39 2c 2d  31 29 0d 26 ac 0d c9 39  |Ya%,29,-1).&...9|
00004380  3a f2 61 3a f2 53 61 0d  26 b6 05 cb 0d 26 b6 0e  |:.a:.Sa.&....&..|
00004390  c9 56 61 25 3a c8 8e 58  25 ca 0d 26 c0 12 c9 34  |.Va%:..X%..&...4|
000043a0  3a f2 6f 28 36 2c 2d 31  2c 31 34 29 0d 26 d4 11  |:.o(6,-1,14).&..|
000043b0  c9 35 3a f2 6f 28 36 2c  31 2c 31 34 29 0d 26 de  |.5:.o(6,1,14).&.|
000043c0  12 c9 38 3a f2 6f 28 37  2c 2d 31 2c 31 35 29 0d  |..8:.o(7,-1,15).|
000043d0  26 e8 11 c9 39 3a f2 6f  28 37 2c 31 2c 31 35 29  |&...9:.o(7,1,15)|
000043e0  0d 26 f2 13 c9 31 32 3a  f2 6f 28 31 34 2c 2d 31  |.&...12:.o(14,-1|
000043f0  2c 36 29 0d 26 fc 12 c9  31 33 3a f2 6f 28 31 34  |,6).&...13:.o(14|
00004400  2c 31 2c 36 29 0d 27 06  13 c9 31 36 3a f2 6f 28  |,1,6).'...16:.o(|
00004410  31 35 2c 2d 31 2c 37 29  0d 27 10 12 c9 31 37 3a  |15,-1,7).'...17:|
00004420  f2 6f 28 31 35 2c 31 2c  37 29 0d 27 1a 05 cb 0d  |.o(15,1,7).'....|
00004430  27 1a 0d c9 5a 25 3a c8  8e 58 25 ca 0d 27 24 3a  |'...Z%:..X%..'$:|
00004440  c9 35 3a f2 45 28 5a 25  2c 34 2c 31 2d 28 50 62  |.5:.E(Z%,4,1-(Pb|
00004450  25 80 31 29 2c 39 2c 2d  31 29 3a 50 62 25 3d 28  |%.1),9,-1):Pb%=(|
00004460  50 62 25 80 31 29 2b 28  bb 28 a4 62 28 5a 25 2c  |Pb%.1)+(.(.b(Z%,|
00004470  34 29 29 2a 32 29 0d 27  38 39 c9 36 3a f2 45 28  |4))*2).'89.6:.E(|
00004480  5a 25 2c 34 2c 31 2d 28  50 62 25 80 31 29 2c 39  |Z%,4,1-(Pb%.1),9|
00004490  2c 31 29 3a 50 62 25 3d  28 50 62 25 80 31 29 2b  |,1):Pb%=(Pb%.1)+|
000044a0  28 bb 28 a4 62 28 5a 25  2c 34 29 29 2a 32 29 0d  |(.(.b(Z%,4))*2).|
000044b0  27 42 33 c9 37 3a e7 a4  62 28 5a 25 2c 34 29 3d  |'B3.7:..b(Z%,4)=|
000044c0  22 30 22 f2 62 28 5a 25  2c 34 2c 22 31 22 2c 31  |"0".b(Z%,4,"1",1|
000044d0  29 3a 50 62 25 3d 32 8b  50 62 25 3d 50 62 25 80  |):Pb%=2.Pb%=Pb%.|
000044e0  ac 31 0d 27 42 10 c9 38  3a 50 62 25 3d 50 62 25  |.1.'B..8:Pb%=Pb%|
000044f0  84 31 0d 27 56 15 c9 39  3a f2 4f 28 a4 65 28 5a  |.1.'V..9:.O(.e(Z|
00004500  25 2c 39 29 3d 30 29 0d  27 60 05 cb 0d 27 60 0e  |%,9)=0).'`...'`.|
00004510  c9 5a 61 25 3a c8 8e 58  25 ca 0d 27 6a 12 c9 31  |.Za%:..X%..'j..1|
00004520  3a f2 68 28 5a 61 25 2c  33 2c 31 29 0d 27 7e 13  |:.h(Za%,3,1).'~.|
00004530  c9 34 3a f2 68 28 5a 61  25 2c 33 2c 2d 31 29 0d  |.4:.h(Za%,3,-1).|
00004540  27 88 0d c9 35 3a f2 61  3a f2 54 61 0d 27 92 05  |'...5:.a:.Ta.'..|
00004550  cb 0d 27 92 14 c9 5f 61  25 3a e7 58 25 3d 38 f2  |..'..._a%:.X%=8.|
00004560  61 3a f2 55 61 0d 27 9c  05 cb 0d 27 a6 05 e1 0d  |a:.Ua.'....'....|
00004570  27 b0 20 dd f2 76 28 77  25 2c 6f 25 29 3a e7 45  |'. ..v(w%,o%):.E|
00004580  25 3d 77 25 80 4d 25 3f  6f 25 3d 32 35 35 e1 0d  |%=w%.M%?o%=255..|
00004590  27 ce 43 f2 6d 3a 45 25  3d 77 25 3a 4d 25 3f 6f  |'.C.m:E%=w%:M%?o|
000045a0  25 3d 32 35 35 3a 5f 25  3d 30 3a f2 42 28 77 25  |%=255:_%=0:.B(w%|
000045b0  2c 30 2c 2d 34 30 2d 33  36 2a 6f 25 2c 33 32 30  |,0,-40-36*o%,320|
000045c0  2c 2d 33 36 2a 6f 25 29  3a e7 77 25 3d 58 61 25  |,-36*o%):.w%=Xa%|
000045d0  f2 52 0d 27 f6 05 e1 0d  28 00 1f dd f2 51 28 77  |.R.'....(....Q(w|
000045e0  25 2c 6f 25 29 3a e7 45  25 3c 3e 2d 31 80 45 25  |%,o%):.E%<>-1.E%|
000045f0  3c 3e 77 25 f2 6d 0d 28  1e 15 45 25 3d 77 25 3a  |<>w%.m.(..E%=w%:|
00004600  e7 4d 25 3f 6f 25 3d 32  35 35 8c 0d 28 28 1e 4d  |.M%?o%=255..((.M|
00004610  25 3f 6f 25 3d 30 3a 5f  25 2d 3d 31 3a e7 5f 25  |%?o%=0:_%-=1:._%|
00004620  3d 2d 31 20 45 25 3d 2d  31 0d 28 32 15 cc 3a 4d  |=-1 E%=-1.(2..:M|
00004630  25 3f 6f 25 3d 32 35 35  3a 5f 25 2b 3d 31 0d 28  |%?o%=255:_%+=1.(|
00004640  50 05 cd 0d 28 50 30 f2  42 28 77 25 2c 30 2c 2d  |P...(P0.B(w%,0,-|
00004650  34 30 2d 33 36 2a 6f 25  2c 33 32 30 2c 2d 33 36  |40-36*o%,320,-36|
00004660  2a 6f 25 29 3a e7 77 25  3d 58 61 25 80 5f 25 3d  |*o%):.w%=Xa%._%=|
00004670  30 f2 52 0d 28 64 05 e1  0d 28 6e 17 dd f2 6d 3a  |0.R.(d...(n...m:|
00004680  ea 69 25 2c 6c 63 25 3a  e7 45 25 3d 2d 31 e1 0d  |.i%,lc%:.E%=-1..|
00004690  28 96 15 e7 5f 25 3d 30  20 6c 63 25 3d b9 8b 6c  |(..._%=0 lc%=..l|
000046a0  63 25 3d a3 0d 28 a0 52  69 25 3d 30 3a c8 95 69  |c%=..(.Ri%=0:..i|
000046b0  25 3c 79 61 25 80 5f 25  3e 3d 30 3a e7 4d 25 3f  |%<ya%._%>=0:.M%?|
000046c0  69 25 3d 32 35 35 20 4d  25 3f 69 25 3d 30 3a 5f  |i%=255 M%?i%=0:_|
000046d0  25 2d 3d 31 3a e7 6c 63  25 f2 42 28 45 25 2c 30  |%-=1:.lc%.B(E%,0|
000046e0  2c 2d 34 30 2d 33 36 2a  69 25 2c 33 32 30 2c 2d  |,-40-36*i%,320,-|
000046f0  33 36 2a 69 25 29 0d 28  b4 18 69 25 2b 3d 31 3a  |36*i%).(..i%+=1:|
00004700  ce 3a e7 6c 63 25 3d a3  f2 66 28 45 25 29 0d 28  |.:.lc%=..f(E%).(|
00004710  c8 0b 45 25 3d 2d 31 3a  e1 0d 28 d2 1c dd f2 53  |..E%=-1:..(....S|
00004720  28 77 25 2c 6e 25 29 3a  ea 69 25 3a e7 77 25 3c  |(w%,n%):.i%:.w%<|
00004730  3e 45 25 f2 6d 0d 28 fa  29 69 25 3d 30 3a c8 95  |>E%.m.(.)i%=0:..|
00004740  69 25 3c 6e 25 3a e7 4d  25 3f 69 25 3d 30 20 4d  |i%<n%:.M%?i%=0 M|
00004750  25 3f 69 25 3d 32 35 35  3a 5f 25 2b 3d 31 0d 29  |%?i%=255:_%+=1.)|
00004760  04 25 69 25 2b 3d 31 3a  ce 3a f2 66 28 77 25 29  |.%i%+=1:.:.f(w%)|
00004770  3a e7 5f 25 3d 2d 31 20  45 25 3d 2d 31 8b 45 25  |:._%=-1 E%=-1.E%|
00004780  3d 77 25 0d 29 18 05 e1  0d 29 22 50 dd f2 57 3a  |=w%.)....)"P..W:|
00004790  ea 6d 25 3a 6d 25 3d 5f  25 3e 30 3a f2 56 61 28  |.m%:m%=_%>0:.Va(|
000047a0  45 25 3c 3e 59 25 2c 6d  25 29 3a f2 57 61 28 45  |E%<>Y%,m%):.Wa(E|
000047b0  25 3c 3e 55 61 25 29 3a  f2 58 61 28 45 25 3c 3e  |%<>Ua%):.Xa(E%<>|
000047c0  48 25 2c 6d 25 29 3a f2  59 61 28 45 25 3c 3e 58  |H%,m%):.Ya(E%<>X|
000047d0  61 25 2c 6d 25 29 3a e1  0d 29 72 56 dd f2 56 61  |a%,m%):..)rV..Va|
000047e0  28 67 25 2c 6d 25 29 3a  f2 65 28 53 61 25 2c 32  |(g%,m%):.e(Sa%,2|
000047f0  2c 53 25 3d 79 61 25 29  3a f2 65 28 53 61 25 2c  |,S%=ya%):.e(Sa%,|
00004800  33 2c 67 25 84 6d 25 29  3a f2 65 28 53 61 25 2c  |3,g%.m%):.e(Sa%,|
00004810  34 2c 67 25 29 3a f2 65  28 53 61 25 2c 35 2c 67  |4,g%):.e(Sa%,5,g|
00004820  25 84 6d 25 84 44 25 3d  6d 63 25 29 3a e1 0d 29  |%.m%.D%=mc%):..)|
00004830  a4 22 dd f2 57 61 28 67  25 29 3a f2 65 28 54 61  |."..Wa(g%):.e(Ta|
00004840  25 2c 34 2c 67 25 84 44  25 3d 6d 63 25 29 3a e1  |%,4,g%.D%=mc%):.|
00004850  0d 29 b8 4d dd f2 58 61  28 67 25 2c 6d 25 29 3a  |.).M..Xa(g%,m%):|
00004860  ea 69 25 3a f2 65 28 55  25 2c 34 2c 67 25 84 6d  |.i%:.e(U%,4,g%.m|
00004870  25 29 3a f2 65 28 55 25  2c 35 2c 67 25 29 3a f2  |%):.e(U%,5,g%):.|
00004880  65 28 55 25 2c 36 2c 44  25 3d 6d 63 25 29 3a e7  |e(U%,6,D%=mc%):.|
00004890  67 25 84 6d 25 84 44 25  3d 6d 63 25 8c 0d 29 d6  |g%.m%.D%=mc%..).|
000048a0  19 f2 65 28 55 25 2c 37  2c 31 29 3a f2 65 28 55  |..e(U%,7,1):.e(U|
000048b0  25 2c 38 2c 31 29 0d 29  ea 43 cc 3a 69 25 3d 30  |%,8,1).).C.:i%=0|
000048c0  3a c8 95 4d 25 3f 69 25  3d 30 3a 69 25 2b 3d 31  |:..M%?i%=0:i%+=1|
000048d0  3a ce 3a 67 25 3d 47 25  3f 28 69 25 2a 34 2b 33  |:.:g%=G%?(i%*4+3|
000048e0  29 3a f2 65 28 55 25 2c  37 2c 67 25 29 3a f2 65  |):.e(U%,7,g%):.e|
000048f0  28 55 25 2c 38 2c 67 25  29 0d 2a 08 05 cd 0d 2a  |(U%,8,g%).*....*|
00004900  08 05 e1 0d 2a 12 3a dd  f2 59 61 28 67 25 2c 6d  |....*.:..Ya(g%,m|
00004910  25 29 3a f2 65 28 46 25  2c 32 31 2c 53 62 25 3d  |%):.e(F%,21,Sb%=|
00004920  6e 63 25 29 3a f2 65 28  46 25 2c 32 32 2c 67 25  |nc%):.e(F%,22,g%|
00004930  29 3a e7 28 67 25 84 6d  25 29 3d 30 e1 0d 2a 3a  |):.(g%.m%)=0..*:|
00004940  59 f2 65 28 46 25 2c 31  37 2c 31 29 3a f2 65 28  |Y.e(F%,17,1):.e(|
00004950  46 25 2c 31 38 2c 31 29  3a f2 65 28 46 25 2c 31  |F%,18,1):.e(F%,1|
00004960  39 2c 31 29 3a f2 65 28  46 25 2c 31 33 2c 31 29  |9,1):.e(F%,13,1)|
00004970  3a f2 65 28 46 25 2c 31  34 2c 31 29 3a f2 65 28  |:.e(F%,14,1):.e(|
00004980  46 25 2c 31 35 2c 31 29  3a f2 65 28 46 25 2c 32  |F%,15,1):.e(F%,2|
00004990  30 2c 31 29 3a e1 0d 2a  4e 27 dd f2 41 61 28 4e  |0,1):..*N'..Aa(N|
000049a0  25 2c 78 25 2c 79 25 29  3a ea 67 25 3a f2 46 61  |%,x%,y%):.g%:.Fa|
000049b0  3a 41 61 25 3d 2d 31 3a  c8 8e 4e 25 ca 0d 2a 8a  |:Aa%=-1:..N%..*.|
000049c0  a3 c9 55 25 2c 48 25 3a  41 61 25 3d 31 3a f2 63  |..U%,H%:Aa%=1:.c|
000049d0  28 32 2c 30 2c 44 25 3d  30 29 3a f2 63 28 32 2c  |(2,0,D%=0):.c(2,|
000049e0  31 2c 44 25 3d 30 29 3a  f2 63 28 32 2c 32 2c 44  |1,D%=0):.c(2,2,D|
000049f0  25 3d 30 29 3a f2 63 28  32 2c 33 2c 44 25 3d 30  |%=0):.c(2,3,D%=0|
00004a00  29 3a f2 63 28 32 2c 34  2c 45 25 3d 2d 31 29 3a  |):.c(2,4,E%=-1):|
00004a10  f2 63 28 32 2c 35 2c 45  25 3c 3e 48 25 29 3a f2  |.c(2,5,E%<>H%):.|
00004a20  63 28 32 2c 37 2c 45 25  3c 3e 48 25 29 3a 21 71  |c(2,7,E%<>H%):!q|
00004a30  25 3d 55 25 3a 71 25 21  34 3d 37 3a c8 99 32 36  |%=U%:q%!4=7:..26|
00004a40  32 33 35 30 2c 2c 71 25  3a f2 63 28 32 2c 36 2c  |2350,,q%:.c(2,6,|
00004a50  28 71 25 21 32 34 29 80  28 31 3c 3c 32 32 29 29  |(q%!24).(1<<22))|
00004a60  0d 2a bc 0e c9 51 61 25  3a 41 61 25 3d 34 0d 2a  |.*...Qa%:Aa%=4.*|
00004a70  c6 70 c9 53 61 25 2c 59  25 3a 41 61 25 3d 35 3a  |.p.Sa%,Y%:Aa%=5:|
00004a80  f2 63 28 36 2c 30 2c 53  25 3d 30 29 3a f2 63 28  |.c(6,0,S%=0):.c(|
00004a90  36 2c 31 2c 53 25 3d 30  29 3a f2 63 28 36 2c 32  |6,1,S%=0):.c(6,2|
00004aa0  2c 53 25 3d 30 29 3a f2  63 28 36 2c 33 2c 45 25  |,S%=0):.c(6,3,E%|
00004ab0  3d 2d 31 29 3a f2 63 28  36 2c 34 2c 45 25 3c 3e  |=-1):.c(6,4,E%<>|
00004ac0  59 25 84 5f 25 3e 30 84  53 25 3d 79 61 25 29 3a  |Y%._%>0.S%=ya%):|
00004ad0  f2 63 28 36 2c 35 2c 45  25 3c 3e 59 25 29 0d 2a  |.c(6,5,E%<>Y%).*|
00004ae0  e4 1c c9 54 61 25 2c 55  61 25 2c 4c 25 2c 5a 25  |...Ta%,Ua%,L%,Z%|
00004af0  2c 59 61 25 3a 41 61 25  3d 33 0d 2a ee 3d c9 46  |,Ya%:Aa%=3.*.=.F|
00004b00  25 2c 58 61 25 3a 41 61  25 3d 39 3a f2 63 28 39  |%,Xa%:Aa%=9:.c(9|
00004b10  2c 30 2c 53 62 25 3d 30  29 3a f2 63 28 39 2c 31  |,0,Sb%=0):.c(9,1|
00004b20  2c 45 25 3d 2d 31 29 3a  f2 63 28 39 2c 32 2c 45  |,E%=-1):.c(9,2,E|
00004b30  25 3c 3e 58 61 25 29 0d  2b 02 05 cb 0d 2b 02 0c  |%<>Xa%).+....+..|
00004b40  e7 41 61 25 3d 2d 31 e1  0d 2b 0c 2f c8 99 32 36  |.Aa%=-1..+./..26|
00004b50  32 33 35 36 2c 2c 74 61  25 21 28 41 61 25 2a 34  |2356,,ta%!(Aa%*4|
00004b60  29 2c 78 25 2c 79 25 3a  42 61 25 3d 78 25 3a 43  |),x%,y%:Ba%=x%:C|
00004b70  61 25 3d 79 25 3a e1 0d  2b 2a 77 dd f2 46 61 3a  |a%=y%:..+*w..Fa:|
00004b80  f2 71 28 33 2c 30 2c a4  67 28 55 25 29 29 3a f2  |.q(3,0,.g(U%)):.|
00004b90  71 28 33 2c 31 2c a4 67  28 51 61 25 29 29 3a f2  |q(3,1,.g(Qa%)):.|
00004ba0  71 28 33 2c 32 2c a4 67  28 4c 25 29 29 3a f2 71  |q(3,2,.g(L%)):.q|
00004bb0  28 33 2c 33 2c a4 67 28  59 61 25 29 29 3a f2 71  |(3,3,.g(Ya%)):.q|
00004bc0  28 33 2c 34 2c a4 67 28  5a 25 29 29 3a f2 71 28  |(3,4,.g(Z%)):.q(|
00004bd0  33 2c 35 2c a4 67 28 54  61 25 29 29 3a f2 71 28  |3,5,.g(Ta%)):.q(|
00004be0  33 2c 36 2c a4 67 28 53  61 25 29 29 3a e1 0d 2b  |3,6,.g(Sa%)):..+|
00004bf0  8e 1a dd f2 61 3a ea 73  25 3a 73 25 3d 75 61 25  |....a:.s%:s%=ua%|
00004c00  3a e7 64 61 25 3d 30 8c  0d 2b ca 47 c8 99 35 33  |:.da%=0..+.G..53|
00004c10  30 30 34 38 2c 2c 7a 25  3a 64 61 25 3d b9 3a 21  |0048,,z%:da%=.:!|
00004c20  73 25 3d 21 7a 25 3a 73  25 21 34 3d 7a 25 21 34  |s%=!z%:s%!4=z%!4|
00004c30  3a 73 25 21 38 3d 30 3a  73 25 21 31 32 3d 7a 25  |:s%!8=0:s%!12=z%|
00004c40  21 31 32 3a 73 25 21 31  36 3d 7a 25 21 31 36 0d  |!12:s%!16=z%!16.|
00004c50  2b e8 18 cc 3a c8 99 35  33 30 30 34 38 2c 2c 73  |+...:..530048,,s|
00004c60  25 3a 64 61 25 3d a3 0d  2b fc 05 cd 0d 2b fc 05  |%:da%=..+....+..|
00004c70  e1 0d 2c 06 13 dd f2 6d  61 3a ea 6e 24 3a c8 8e  |..,....ma:.n$:..|
00004c80  4c 61 25 ca 0d 2c 42 b2  c9 52 61 25 2c 60 61 25  |La%..,B..Ra%,`a%|
00004c90  3a 6e 24 3d a4 62 28 4c  61 25 2c 31 29 3a c8 99  |:n$=.b(La%,1):..|
00004ca0  32 36 32 33 35 31 2c 2c  71 25 3a 71 25 21 33 32  |262351,,q%:q%!32|
00004cb0  3d 71 25 21 34 3a 71 25  21 32 38 3d 21 71 25 3a  |=q%!4:q%!28=!q%:|
00004cc0  71 25 21 32 34 3d 71 25  21 31 36 3a 71 25 21 32  |q%!24=q%!16:q%!2|
00004cd0  30 3d 71 25 21 31 32 3a  71 25 21 31 36 3d 31 3a  |0=q%!12:q%!16=1:|
00004ce0  71 25 21 31 32 3d 30 3a  71 25 21 33 36 3d 30 3a  |q%!12=0:q%!36=0:|
00004cf0  71 25 21 34 30 3d 44 61  25 3a 24 28 71 25 2b 34  |q%!40=Da%:$(q%+4|
00004d00  34 29 3d a4 54 28 6e 24  29 2b bd 30 3a 21 71 25  |4)=.T(n$)+.0:!q%|
00004d10  3d 36 30 3a c8 99 32 36  32 33 37 35 2c 31 37 2c  |=60:..262375,17,|
00004d20  71 25 2c 71 25 21 32 30  2c 71 25 21 32 34 3a 4e  |q%,q%!20,q%!24:N|
00004d30  61 25 3d 4c 61 25 0d 2c  9c 05 cb 0d 2c 9c 0b 4c  |a%=La%.,....,..L|
00004d40  61 25 3d a3 3a e1 0d 2c  b0 1d dd f2 6e 61 3a ea  |a%=.:..,....na:.|
00004d50  64 25 2c 6b 25 3a 6b 25  3d a3 3a c8 8e 7a 25 21  |d%,k%:k%=.:..z%!|
00004d60  32 34 ca 0d 2c f6 2e c9  33 38 35 2c 33 38 36 2c  |24..,...385,386,|
00004d70  33 38 37 2c 33 38 38 2c  33 38 39 2c 33 39 30 2c  |387,388,389,390,|
00004d80  33 39 31 3a f2 7a 28 7a  25 21 32 34 2d 33 38 35  |391:.z(z%!24-385|
00004d90  29 0d 2d 0a 2d c9 34 30  31 2c 34 30 32 2c 34 30  |).-.-.401,402,40|
00004da0  33 2c 34 30 34 2c 34 30  35 2c 34 30 36 3a f2 5a  |3,404,405,406:.Z|
00004db0  61 28 7a 25 21 32 34 2d  34 30 31 2c b9 29 0d 2d  |a(z%!24-401,.).-|
00004dc0  14 2c c9 34 31 37 2c 34  31 38 2c 34 31 39 2c 34  |.,.417,418,419,4|
00004dd0  32 30 2c 34 32 31 2c 34  32 32 3a f2 4e 28 7a 25  |20,421,422:.N(z%|
00004de0  21 32 34 2d 34 31 37 2c  31 29 0d 2d 1e 0b 7f c8  |!24-417,1).-....|
00004df0  8e 21 7a 25 ca 0d 2d 1e  1d c9 52 61 25 3a e7 7a  |.!z%..-...Ra%:.z|
00004e00  25 21 32 34 3d 31 33 f2  79 28 52 61 25 2c 32 2c  |%!24=13.y(Ra%,2,|
00004e10  34 29 0d 2d 28 1d c9 60  61 25 3a e7 7a 25 21 32  |4).-(..`a%:.z%!2|
00004e20  34 3d 31 33 f2 79 28 60  61 25 2c 32 2c 34 29 0d  |4=13.y(`a%,2,4).|
00004e30  2d 32 1c c9 51 25 3a e7  7a 25 21 32 34 3d 31 33  |-2..Q%:.z%!24=13|
00004e40  f2 79 28 51 25 2c 31 32  2c 34 29 0d 2d 3c 2c c9  |.y(Q%,12,4).-<,.|
00004e50  46 25 3a e7 7a 25 21 34  3d 32 30 f2 75 3a 6b 25  |F%:.z%!4=20.u:k%|
00004e60  3d b9 3a e7 7a 25 21 32  34 3d 31 33 f2 79 28 46  |=.:.z%!24=13.y(F|
00004e70  25 2c 31 32 2c 34 29 0d  2d 46 10 c9 57 61 25 3a  |%,12,4).-F..Wa%:|
00004e80  c8 8e 7a 25 21 34 ca 0d  2d 50 1e c9 34 3a e7 7a  |..z%!4..-P..4:.z|
00004e90  25 21 32 34 3d 31 33 f2  74 28 57 61 25 2c 31 29  |%!24=13.t(Wa%,1)|
00004ea0  3a 6b 25 3d b9 0d 2d 5a  20 c9 31 3a e7 7a 25 21  |:k%=..-Z .1:.z%!|
00004eb0  32 34 3d 31 33 f2 79 28  57 61 25 2c 32 2c 34 29  |24=13.y(Wa%,2,4)|
00004ec0  3a 6b 25 3d b9 0d 2d 64  05 cb 0d 2d 6e 1d c9 56  |:k%=..-d...-n..V|
00004ed0  61 25 3a f2 5f 61 28 7a  25 21 34 2c 7a 25 21 32  |a%:._a(z%!4,z%!2|
00004ee0  34 29 3a 6b 25 3d b9 0d  2d 82 21 c9 4c 25 3a e7  |4):k%=..-.!.L%:.|
00004ef0  7a 25 21 32 34 3d 31 33  f2 79 28 4c 25 2c 33 31  |z%!24=13.y(L%,31|
00004f00  2c 34 29 3a 6b 25 3d b9  0d 2d 82 05 cb 0d 2d 8c  |,4):k%=..-....-.|
00004f10  05 cb 0d 2d 96 17 e7 6b  25 3d a3 c8 99 32 36 32  |...-...k%=...262|
00004f20  33 36 34 2c 7a 25 21 32  34 0d 2d a0 05 e1 0d 2d  |364,z%!24.-....-|
00004f30  aa 31 dd f2 6f 61 3a ea  6f 63 25 3a 6f 63 25 3d  |.1..oa:.oc%:oc%=|
00004f40  a3 3a c8 99 32 36 32 33  35 31 2c 2c 71 25 3a e7  |.:..262351,,q%:.|
00004f50  28 28 71 25 21 38 29 80  31 29 6f 63 25 3d b9 0d  |((q%!8).1)oc%=..|
00004f60  2d e6 0a c8 8e 41 61 25  ca 0d 2d f0 0a c9 30 3a  |-....Aa%..-...0:|
00004f70  f2 60 61 0d 2e 04 0a c9  31 3a f2 61 62 0d 2e 0e  |.`a.....1:.ab...|
00004f80  0e c9 33 3a f2 7a 28 21  7a 25 29 0d 2e 18 0a c9  |..3:.z(!z%).....|
00004f90  34 3a f2 62 62 0d 2e 22  0a c9 35 3a f2 63 62 0d  |4:.bb.."..5:.cb.|
00004fa0  2e 2c 0a c9 39 3a f2 64  62 0d 2e 36 05 cb 0d 2e  |.,..9:.db..6....|
00004fb0  36 25 e7 6f 63 25 c8 99  32 36 32 33 35 36 2c 2c  |6%.oc%..262356,,|
00004fc0  74 61 25 21 28 41 61 25  2a 34 29 2c 42 61 25 2c  |ta%!(Aa%*4),Ba%,|
00004fd0  43 61 25 0d 2e 40 05 e1  0d 2e 4a 0f dd f2 60 61  |Ca%..@....J...`a|
00004fe0  3a c8 8e 21 7a 25 ca 0d  2e 68 0f c9 31 3a f2 7a  |:..!z%...h..1:.z|
00004ff0  28 7a 25 21 34 29 0d 2e  7c 09 c9 32 3a f2 73 0d  |(z%!4)..|..2:.s.|
00005000  2e 86 05 cb 0d 2e 86 05  e1 0d 2e 90 13 dd f2 61  |...............a|
00005010  62 3a ea 69 25 3a c8 8e  21 7a 25 ca 0d 2e b8 0e  |b:.i%:..!z%.....|
00005020  c9 30 3a c8 8e 7a 25 21  34 ca 0d 2e c2 10 c9 30  |.0:..z%!4......0|
00005030  3a f2 53 28 48 25 2c 44  25 29 0d 2e d6 37 c9 31  |:.S(H%,D%)...7.1|
00005040  3a f2 6d 3a 69 25 3d 30  3a c8 95 69 25 3c 44 25  |:.m:i%=0:..i%<D%|
00005050  3a e7 47 25 3f 28 34 2a  69 25 2b 31 29 3d 32 35  |:.G%?(4*i%+1)=25|
00005060  35 20 4d 25 3f 69 25 3d  32 35 35 3a 5f 25 2b 3d  |5 M%?i%=255:_%+=|
00005070  31 0d 2e e0 20 69 25 2b  3d 31 3a ce 3a e7 5f 25  |1... i%+=1:.:._%|
00005080  3c 3e 2d 31 20 45 25 3d  48 25 3a f2 66 28 48 25  |<>-1 E%=H%:.f(H%|
00005090  29 0d 2e ea 35 c9 32 3a  f2 6d 3a 69 25 3d 30 3a  |)...5.2:.m:i%=0:|
000050a0  c8 95 69 25 3c 44 25 3a  e7 47 25 3f 28 34 2a 69  |..i%<D%:.G%?(4*i|
000050b0  25 2b 31 29 3d 30 20 4d  25 3f 69 25 3d 32 35 35  |%+1)=0 M%?i%=255|
000050c0  3a 5f 25 2b 3d 31 0d 2e  fe 20 69 25 2b 3d 31 3a  |:_%+=1... i%+=1:|
000050d0  ce 3a e7 5f 25 3c 3e 2d  31 20 45 25 3d 48 25 3a  |.:._%<>-1 E%=H%:|
000050e0  f2 66 28 48 25 29 0d 2f  08 10 c9 33 3a e7 45 25  |.f(H%)./...3:.E%|
000050f0  3c 3e 48 25 f2 6d 0d 2f  1c 42 69 25 3d 30 3a c8  |<>H%.m./.Bi%=0:.|
00005100  95 69 25 3c 44 25 3a e7  4d 25 3f 69 25 3d 30 20  |.i%<D%:.M%?i%=0 |
00005110  4d 25 3f 69 25 3d 32 35  35 3a 5f 25 2b 3d 31 8b  |M%?i%=255:_%+=1.|
00005120  e7 4d 25 3f 69 25 3d 32  35 35 20 4d 25 3f 69 25  |.M%?i%=255 M%?i%|
00005130  3d 30 3a 5f 25 2d 3d 31  0d 2f 26 1e 69 25 2b 3d  |=0:_%-=1./&.i%+=|
00005140  31 3a ce 3a e7 5f 25 3d  2d 31 20 45 25 3d 2d 31  |1:.:._%=-1 E%=-1|
00005150  8b 45 25 3d 48 25 0d 2f  30 0a f2 66 28 48 25 29  |.E%=H%./0..f(H%)|
00005160  0d 2f 44 09 c9 34 3a f2  6d 0d 2f 4e 0e c9 35 3a  |./D..4:.m./N..5:|
00005170  c8 8e 7a 25 21 38 ca 0d  2f 4e 11 c9 30 3a f2 54  |..z%!8../N..0:.T|
00005180  28 32 35 35 2c 2d 31 29  0d 2f 62 0f c9 31 3a f2  |(255,-1)./b..1:.|
00005190  54 28 30 2c 2d 31 29 0d  2f 6c 10 c9 32 3a f2 54  |T(0,-1)./l..2:.T|
000051a0  28 32 35 35 2c 30 29 0d  2f 76 05 cb 0d 2f 76 0a  |(255,0)./v.../v.|
000051b0  c9 36 3a f2 65 62 0d 2f  8a 0a c9 37 3a f2 49 61  |.6:.eb./...7:.Ia|
000051c0  0d 2f 94 05 cb 0d 2f 94  72 f2 63 28 32 2c 30 2c  |./..../.r.c(2,0,|
000051d0  44 25 3d 30 29 3a f2 63  28 32 2c 31 2c 44 25 3d  |D%=0):.c(2,1,D%=|
000051e0  30 29 3a f2 63 28 32 2c  32 2c 44 25 3d 30 29 3a  |0):.c(2,2,D%=0):|
000051f0  f2 63 28 32 2c 33 2c 44  25 3d 30 29 3a f2 63 28  |.c(2,3,D%=0):.c(|
00005200  32 2c 34 2c 45 25 3d 2d  31 29 3a f2 63 28 32 2c  |2,4,E%=-1):.c(2,|
00005210  35 2c 45 25 3c 3e 48 25  29 3a f2 63 28 32 2c 36  |5,E%<>H%):.c(2,6|
00005220  2c 45 25 3c 3e 48 25 29  3a f2 63 28 32 2c 37 2c  |,E%<>H%):.c(2,7,|
00005230  45 25 3c 3e 48 25 29 0d  2f b2 06 c9 31 0d 2f bc  |E%<>H%)./...1./.|
00005240  0f c9 32 3a f2 7a 28 7a  25 21 34 29 0d 2f c6 05  |..2:.z(z%!4)./..|
00005250  cb 0d 2f c6 05 e1 0d 2f  d0 15 dd f2 7a 28 6e 25  |../..../....z(n%|
00005260  29 3a ea 77 25 3a c8 8e  6e 25 ca 0d 2f f8 0c c9  |):.w%:..n%../...|
00005270  30 3a 77 25 3d 55 25 0d  30 0c 0d c9 31 3a 77 25  |0:w%=U%.0...1:w%|
00005280  3d 51 61 25 0d 30 16 0c  c9 32 3a 77 25 3d 4c 25  |=Qa%.0...2:w%=L%|
00005290  0d 30 20 0d c9 33 3a 77  25 3d 59 61 25 0d 30 2a  |.0 ..3:w%=Ya%.0*|
000052a0  0c c9 34 3a 77 25 3d 5a  25 0d 30 34 0d c9 35 3a  |..4:w%=Z%.04..5:|
000052b0  77 25 3d 54 61 25 0d 30  3e 0d c9 36 3a 77 25 3d  |w%=Ta%.0>..6:w%=|
000052c0  53 61 25 0d 30 48 05 cb  0d 30 48 0c e7 a4 67 28  |Sa%.0H...0H...g(|
000052d0  77 25 29 8c 0d 30 52 15  f2 6e 28 77 25 29 3a f2  |w%)..0R..n(w%):.|
000052e0  71 28 33 2c 6e 25 2c 30  29 0d 30 70 0b cc 3a c8  |q(3,n%,0).0p..:.|
000052f0  8e 77 25 ca 0d 30 7a 12  c9 51 61 25 3a f2 6a 28  |.w%..0z..Qa%:.j(|
00005300  77 25 29 3a f2 69 0d 30  8e 0b c9 4c 25 3a f2 66  |w%):.i.0...L%:.f|
00005310  62 0d 30 98 0c c9 59 61  25 3a f2 67 62 0d 30 a2  |b.0...Ya%:.gb.0.|
00005320  0b c9 5a 25 3a f2 68 62  0d 30 ac 0b 7f f2 6a 28  |..Z%:.hb.0....j(|
00005330  77 25 29 0d 30 b6 05 cb  0d 30 b6 0e f2 71 28 33  |w%).0....0...q(3|
00005340  2c 6e 25 2c 31 29 0d 30  ca 05 cd 0d 30 ca 05 e1  |,n%,1).0....0...|
00005350  0d 30 d4 0f dd f2 62 62  3a c8 8e 21 7a 25 ca 0d  |.0....bb:..!z%..|
00005360  30 f2 0f c9 31 3a f2 7a  28 7a 25 21 34 29 0d 31  |0...1:.z(z%!4).1|
00005370  06 05 cb 0d 31 06 05 e1  0d 31 10 0f dd f2 63 62  |....1....1....cb|
00005380  3a c8 8e 21 7a 25 ca 0d  31 2e 0e c9 30 3a c8 8e  |:..!z%..1...0:..|
00005390  7a 25 21 34 ca 0d 31 38  10 c9 30 3a f2 53 28 59  |z%!4..18..0:.S(Y|
000053a0  25 2c 53 25 29 0d 31 4c  0d c9 31 3a f2 69 62 28  |%,S%).1L..1:.ib(|
000053b0  a3 29 0d 31 56 0d c9 32  3a f2 69 62 28 b9 29 0d  |.).1V..2:.ib(.).|
000053c0  31 60 09 c9 33 3a f2 6d  0d 31 6a 0a c9 34 3a f2  |1`..3:.m.1j..4:.|
000053d0  6a 62 0d 31 74 09 c9 35  3a f2 4d 0d 31 7e 05 cb  |jb.1t..5:.M.1~..|
000053e0  0d 31 7e 56 f2 63 28 36  2c 30 2c 53 25 3d 30 29  |.1~V.c(6,0,S%=0)|
000053f0  3a f2 63 28 36 2c 31 2c  53 25 3d 30 29 3a f2 63  |:.c(6,1,S%=0):.c|
00005400  28 36 2c 32 2c 53 25 3d  30 29 3a f2 63 28 36 2c  |(6,2,S%=0):.c(6,|
00005410  33 2c 45 25 3d 2d 31 29  3a f2 63 28 36 2c 34 2c  |3,E%=-1):.c(6,4,|
00005420  45 25 3c 3e 59 25 29 3a  f2 63 28 36 2c 35 2c 45  |E%<>Y%):.c(6,5,E|
00005430  25 3c 3e 59 25 29 0d 31  92 06 c9 31 0d 31 9c 0f  |%<>Y%).1...1.1..|
00005440  c9 32 3a f2 7a 28 7a 25  21 34 29 0d 31 a6 05 cb  |.2:.z(z%!4).1...|
00005450  0d 31 a6 05 e1 0d 31 b0  0f dd f2 64 62 3a c8 8e  |.1....1....db:..|
00005460  21 7a 25 ca 0d 31 ce 1a  c9 30 3a f2 53 28 58 61  |!z%..1...0:.S(Xa|
00005470  25 2c 53 62 25 29 3a e7  5f 25 3d 30 f2 52 0d 31  |%,Sb%):._%=0.R.1|
00005480  d8 09 c9 31 3a f2 6d 0d  31 ec 09 c9 32 3a f2 4b  |...1:.m.1...2:.K|
00005490  0d 31 f6 05 cb 0d 31 f6  31 f2 63 28 39 2c 30 2c  |.1....1.1.c(9,0,|
000054a0  53 62 25 3d 30 29 3a f2  63 28 39 2c 31 2c 45 25  |Sb%=0):.c(9,1,E%|
000054b0  3d 2d 31 29 3a f2 63 28  39 2c 32 2c 45 25 3c 3e  |=-1):.c(9,2,E%<>|
000054c0  58 61 25 29 3a e1 0d 32  0a 33 dd f2 70 61 3a ea  |Xa%):..2.3..pa:.|
000054d0  70 63 25 2c 71 63 25 2c  64 25 2c 73 25 3a 70 63  |pc%,qc%,d%,s%:pc|
000054e0  25 3d 7a 25 21 34 3a 71  63 25 3d 7a 25 21 38 3a  |%=z%!4:qc%=z%!8:|
000054f0  e7 70 63 25 3d 45 61 25  e1 0d 32 50 0c c8 8e 7a  |.pc%=Ea%..2P...z|
00005500  25 21 31 36 ca 0d 32 5a  09 c9 30 3a f2 73 0d 32  |%!16..2Z..0:.s.2|
00005510  6e 12 c9 31 3a e7 7a 25  21 34 30 3d 44 61 25 8c  |n..1:.z%!40=Da%.|
00005520  0d 32 6e 19 e7 a4 55 28  22 57 69 6d 70 24 53 63  |.2n...U("Wimp$Sc|
00005530  72 61 70 22 29 3d 22 22  8c 0d 32 78 89 64 25 3d  |rap")=""..2x.d%=|
00005540  a4 61 28 22 55 6e 61 62  6c 65 20 74 6f 20 74 72  |.a("Unable to tr|
00005550  61 6e 73 66 65 72 20 64  61 74 61 20 64 75 65 20  |ansfer data due |
00005560  74 6f 20 61 62 73 65 6e  63 65 20 6f 66 20 61 20  |to absence of a |
00005570  73 63 72 61 70 a0 66 69  6c 65 2e 20 4f 70 65 6e  |scrap.file. Open|
00005580  20 61 20 64 69 72 65 63  74 6f 72 79 20 76 69 65  | a directory vie|
00005590  77 65 72 20 63 6f 6e 74  61 69 6e 69 6e 67 20 21  |wer containing !|
000055a0  53 63 72 61 70 20 74 6f  20 72 65 6d 65 64 79 20  |Scrap to remedy |
000055b0  74 68 69 73 2e 22 2c 22  4f 4b 22 2c 22 22 2c 22  |this.","OK","","|
000055c0  22 29 0d 32 8c 6d cc 3a  e3 69 25 3d 30 b8 34 30  |").2.m.:.i%=0.40|
000055d0  88 34 3a 71 25 21 69 25  3d 7a 25 21 69 25 3a ed  |.4:q%!i%=z%!i%:.|
000055e0  3a 21 71 25 3d 36 30 3a  71 25 21 31 32 3d 71 63  |:!q%=60:q%!12=qc|
000055f0  25 3a 71 25 21 31 36 3d  32 3a 24 28 71 25 2b 34  |%:q%!16=2:$(q%+4|
00005600  34 29 3d 22 3c 57 69 6d  70 24 53 63 72 61 70 3e  |4)="<Wimp$Scrap>|
00005610  22 2b bd 30 3a c8 99 32  36 32 33 37 35 2c 31 37  |"+.0:..262375,17|
00005620  2c 71 25 2c 70 63 25 3a  4f 61 25 3d 71 63 25 0d  |,q%,pc%:Oa%=qc%.|
00005630  32 b4 05 cd 0d 32 b4 05  cd 0d 32 be 0d c9 32 3a  |2....2....2...2:|
00005640  c8 8e 4e 61 25 ca 0d 32  c8 1c c9 52 61 25 3a f2  |..Na%..2...Ra%:.|
00005650  46 28 a4 6f 28 7a 25 2b  34 34 29 2c 31 2c b9 2c  |F(.o(z%+44),1,.,|
00005660  a3 29 0d 32 dc 24 c9 60  61 25 3a f2 46 28 a4 6f  |.).2.$.`a%:.F(.o|
00005670  28 7a 25 2b 34 34 29 2c  31 2c a4 65 28 60 61 25  |(z%+44),1,.e(`a%|
00005680  2c 34 29 2c b9 29 0d 32  e6 05 cb 0d 32 e6 12 c9  |,4),.).2....2...|
00005690  33 3a e7 7a 25 21 34 30  3d 44 61 25 8c 0d 32 f0  |3:.z%!40=Da%..2.|
000056a0  68 21 71 25 3d 32 30 3a  71 25 21 31 32 3d 71 63  |h!q%=20:q%!12=qc|
000056b0  25 3a 71 25 21 31 36 3d  34 3a c8 99 32 36 32 33  |%:q%!16=4:..2623|
000056c0  37 35 2c 31 37 2c 71 25  2c 70 63 25 3a f2 4a 28  |75,17,q%,pc%:.J(|
000056d0  a4 6f 28 7a 25 2b 34 34  29 2c 7a 25 21 32 30 29  |.o(z%+44),z%!20)|
000056e0  3a e7 71 63 25 3d 4f 61  25 ff 22 44 65 6c 65 74  |:.qc%=Oa%."Delet|
000056f0  65 20 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 3a  |e <Wimp$Scrap>":|
00005700  4f 61 25 3d 30 0d 33 0e  05 cd 0d 33 18 0c c9 34  |Oa%=0.3....3...4|
00005710  3a 4d 61 25 3d a3 0d 33  2c 12 c9 35 3a e7 7a 25  |:Ma%=..3,..5:.z%|
00005720  21 34 30 3d 44 61 25 8c  0d 33 2c 65 21 71 25 3d  |!40=Da%..3,e!q%=|
00005730  32 30 3a 71 25 21 31 32  3d 71 63 25 3a 71 25 21  |20:q%!12=qc%:q%!|
00005740  31 36 3d 34 3a c8 99 32  36 32 33 37 35 2c 31 37  |16=4:..262375,17|
00005750  2c 71 25 2c 70 63 25 3a  f2 4a 28 a4 6f 28 7a 25  |,q%,pc%:.J(.o(z%|
00005760  2b 34 34 29 2c 2d 32 29  3a e7 71 63 25 3d 4f 61  |+44),-2):.qc%=Oa|
00005770  25 ff 22 44 65 6c 65 74  65 20 3c 57 69 6d 70 24  |%."Delete <Wimp$|
00005780  53 63 72 61 70 3e 22 3a  4f 61 25 3d 30 0d 33 4a  |Scrap>":Oa%=0.3J|
00005790  05 cd 0d 33 54 10 c9 38  3a e7 61 61 25 84 62 61  |...3T..8:.aa%.ba|
000057a0  25 8c 0d 33 5e 44 21 71  25 3d 32 30 3a 71 25 21  |%..3^D!q%=20:q%!|
000057b0  31 32 3d 71 63 25 3a 71  25 21 31 36 3d 30 3a c8  |12=qc%:q%!16=0:.|
000057c0  99 32 36 32 33 37 35 2c  31 39 2c 71 25 2c 70 63  |.262375,19,q%,pc|
000057d0  25 3a 73 25 3d b9 3a e7  28 7a 25 21 32 30 29 80  |%:s%=.:.(z%!20).|
000057e0  31 20 73 25 3d a3 0d 33  72 5e 6d 24 3d 22 75 73  |1 s%=..3r^m$="us|
000057f0  65 72 20 66 75 6e 63 74  69 6f 6e 73 20 61 6e 64  |er functions and|
00005800  20 70 6c 6f 74 74 65 64  20 67 72 61 70 68 73 22  | plotted graphs"|
00005810  3a e7 61 61 25 3d a3 6d  24 3d 22 70 6c 6f 74 74  |:.aa%=.m$="plott|
00005820  65 64 20 67 72 61 70 68  73 22 8b e7 62 61 25 3d  |ed graphs"..ba%=|
00005830  a3 6d 24 3d 22 75 73 65  72 20 66 75 6e 63 74 69  |.m$="user functi|
00005840  6f 6e 73 22 0d 33 7c 52  e7 a4 61 28 22 55 6e 73  |ons".3|R..a("Uns|
00005850  61 76 65 64 20 22 2b 6d  24 2b 22 20 69 6e 20 46  |aved "+m$+" in F|
00005860  75 6e 63 79 20 32 2e 20  44 6f 20 79 6f 75 20 72  |uncy 2. Do you r|
00005870  65 61 6c 6c 79 20 77 61  6e 74 20 74 6f 20 71 75  |eally want to qu|
00005880  69 74 3f 22 2c 22 59 65  73 22 2c 22 4e 6f 22 2c  |it?","Yes","No",|
00005890  22 22 29 3d 30 8c 0d 33  86 33 e7 73 25 3d b9 21  |"")=0..3.3.s%=.!|
000058a0  71 25 3d 2d 31 3a 71 25  21 34 3d 2d 31 3a 71 25  |q%=-1:q%!4=-1:q%|
000058b0  21 32 34 3d 35 30 38 3a  c8 99 32 36 32 33 37 35  |!24=508:..262375|
000058c0  2c 38 2c 71 25 2c 70 63  25 0d 33 90 21 24 71 25  |,8,q%,pc%.3.!$q%|
000058d0  3d 22 54 41 53 4b 22 3a  c8 99 32 36 32 33 36 35  |="TASK":..262365|
000058e0  2c 45 61 25 2c 21 71 25  3a e0 0d 33 9a 05 cd 0d  |,Ea%,!q%:..3....|
000058f0  33 a4 05 cd 0d 33 ae 14  c9 32 36 32 33 33 37 3a  |3....3...262337:|
00005900  f2 5a 3a f2 78 3a f2 69  0d 33 c2 05 cb 0d 33 c2  |.Z:.x:.i.3....3.|
00005910  05 e1 0d 33 cc 12 dd f2  6b 62 28 4e 25 29 3a c8  |...3....kb(N%):.|
00005920  8e 4e 25 ca 0d 33 fe 2e  c9 55 25 3a e7 62 61 25  |.N%..3...U%:.ba%|
00005930  3d b9 f2 44 28 55 25 2c  22 50 6c 6f 74 74 65 64  |=..D(U%,"Plotted|
00005940  20 66 75 6e 63 74 69 6f  6e 73 22 29 3a 62 61 25  | functions"):ba%|
00005950  3d a3 0d 34 08 2d c9 53  61 25 3a e7 61 61 25 3d  |=..4.-.Sa%:.aa%=|
00005960  b9 f2 44 28 53 61 25 2c  22 55 73 65 72 20 66 75  |..D(Sa%,"User fu|
00005970  6e 63 74 69 6f 6e 73 22  29 3a 61 61 25 3d a3 0d  |nctions"):aa%=..|
00005980  34 12 05 cb 0d 34 1c 05  e1 0d 34 26 11 dd f2 6b  |4....4....4&...k|
00005990  28 4e 25 29 3a c8 8e 4e  25 ca 0d 34 44 30 c9 55  |(N%):..N%..4D0.U|
000059a0  25 3a e7 62 61 25 3d a3  f2 44 28 55 25 2c 22 50  |%:.ba%=..D(U%,"P|
000059b0  6c 6f 74 74 65 64 20 66  75 6e 63 74 69 6f 6e 73  |lotted functions|
000059c0  20 2a 22 29 3a 62 61 25  3d b9 0d 34 4e 2f c9 53  | *"):ba%=..4N/.S|
000059d0  61 25 3a e7 61 61 25 3d  a3 f2 44 28 53 61 25 2c  |a%:.aa%=..D(Sa%,|
000059e0  22 55 73 65 72 20 66 75  6e 63 74 69 6f 6e 73 20  |"User functions |
000059f0  2a 22 29 3a 61 61 25 3d  b9 0d 34 58 05 cb 0d 34  |*"):aa%=..4X...4|
00005a00  62 05 e1 0d 34 6c 28 dd  f2 69 61 3a ea 68 24 2c  |b...4l(..ia:.h$,|
00005a10  69 25 3a c8 99 31 36 b8  68 24 3a e7 a7 68 24 2c  |i%:..16.h$:..h$,|
00005a20  22 20 2d 71 75 69 74 20  22 29 8c 0d 34 9e 44 69  |" -quit ")..4.Di|
00005a30  25 3d a7 68 24 2c 22 22  22 22 29 3a 69 25 3d a7  |%=.h$,""""):i%=.|
00005a40  68 24 2c 22 22 22 22 2c  69 25 2b 31 29 3a f5 69  |h$,"""",i%+1):.i|
00005a50  25 2b 3d 31 3a fd c1 68  24 2c 69 25 2c 31 29 3c  |%+=1:..h$,i%,1)<|
00005a60  3e 22 20 22 3a 75 24 3d  c1 68 24 2c 69 25 29 0d  |>" ":u$=.h$,i%).|
00005a70  34 d0 05 cd 0d 34 d0 05  e1 0d 34 da a5 dd f2 47  |4....4....4....G|
00005a80  61 28 77 25 2c 69 25 2c  64 25 29 3a f2 41 28 77  |a(w%,i%,d%):.A(w|
00005a90  25 29 3a 21 71 25 3d 77  25 3a 71 25 21 34 3d 69  |%):!q%=w%:q%!4=i|
00005aa0  25 3a c8 99 32 36 32 33  35 30 2c 2c 71 25 3a 21  |%:..262350,,q%:!|
00005ab0  71 25 3d 30 3a 71 25 21  34 3d 35 3a 71 25 21 38  |q%=0:q%!4=5:q%!8|
00005ac0  2b 3d 54 25 3a 71 25 21  31 32 2b 3d 49 25 3a 71  |+=T%:q%!12+=I%:q|
00005ad0  25 21 31 36 2b 3d 54 25  3a 71 25 21 32 30 2b 3d  |%!16+=T%:q%!20+=|
00005ae0  49 25 3a 71 25 21 32 34  3d 30 3a 71 25 21 32 38  |I%:q%!24=0:q%!28|
00005af0  3d 30 3a 71 25 21 33 32  3d 31 32 37 39 3a 71 25  |=0:q%!32=1279:q%|
00005b00  21 33 36 3d 31 30 32 33  3a 4c 61 25 3d 64 25 3a  |!36=1023:La%=d%:|
00005b10  c8 99 32 36 32 33 35 32  2c 2c 71 25 3a e1 0d 35  |..262352,,q%:..5|
00005b20  2a 97 dd f2 46 28 62 24  2c 72 63 25 2c 73 63 25  |*...F(b$,rc%,sc%|
00005b30  2c 79 25 29 3a ea 47 24  2c 64 25 2c 61 25 2c 69  |,y%):.G$,d%,a%,i|
00005b40  25 2c 6e 25 2c 69 25 2c  6a 25 2c 74 63 25 2c 75  |%,n%,i%,j%,tc%,u|
00005b50  63 25 3a e7 72 63 25 3d  30 80 62 24 3d 22 3c 57  |c%:.rc%=0.b$="<W|
00005b60  69 6d 70 24 53 63 72 61  70 3e 22 64 25 3d a4 61  |imp$Scrap>"d%=.a|
00005b70  28 22 44 61 74 61 20 74  72 61 6e 73 66 65 72 73  |("Data transfers|
00005b80  20 63 61 6e 20 6f 6e 6c  79 20 74 61 6b 65 20 70  | can only take p|
00005b90  6c 61 63 65 20 62 79 20  64 72 61 67 67 69 6e 67  |lace by dragging|
00005ba0  20 69 63 6f 6e 73 22 2c  22 4f 4b 22 2c 22 22 2c  | icons","OK","",|
00005bb0  22 22 29 3a e1 0d 35 52  7d e7 62 24 3c 3e 22 3c  |""):..5R}.b$<>"<|
00005bc0  57 69 6d 70 24 53 63 72  61 70 3e 22 80 a7 62 24  |Wimp$Scrap>"..b$|
00005bd0  2c 22 2e 22 29 3d 30 80  a7 62 24 2c 22 3a 22 29  |,".")=0..b$,":")|
00005be0  3d 30 20 64 25 3d a4 61  28 22 54 6f 20 73 61 76  |=0 d%=.a("To sav|
00005bf0  65 2c 20 70 6c 65 61 73  65 20 64 72 61 67 20 74  |e, please drag t|
00005c00  68 65 20 73 61 76 65 20  69 63 6f 6e 20 74 6f 20  |he save icon to |
00005c10  61 20 64 69 72 65 63 74  6f 72 79 20 76 69 65 77  |a directory view|
00005c20  65 72 2e 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 29  |er.","OK","","")|
00005c30  3a e1 0d 35 5c 1a 75 63  25 3d 73 63 25 3a e7 73  |:..5\.uc%=sc%:.s|
00005c40  63 25 3c 3e 30 20 73 63  25 3d 53 25 0d 35 66 17  |c%<>0 sc%=S%.5f.|
00005c50  74 63 25 3d 79 25 3a e7  79 25 3c 3e 30 20 79 25  |tc%=y%:.y%<>0 y%|
00005c60  3d 44 25 0d 35 70 ac 61  25 3d ae 62 24 3a f1 23  |=D%.5p.a%=.b$:.#|
00005c70  61 25 2c 73 63 25 2c 79  25 2c 76 63 25 2c 77 63  |a%,sc%,y%,vc%,wc|
00005c80  25 3a 69 25 3d 30 3a 6e  25 3d 56 25 3a c8 95 69  |%:i%=0:n%=V%:..i|
00005c90  25 3c 73 63 25 3a f1 23  61 25 2c 21 6e 25 2c 24  |%<sc%:.#a%,!n%,$|
00005ca0  28 6e 25 2b 34 29 2c 24  28 6e 25 2b 35 2b a9 28  |(n%+4),$(n%+5+.(|
00005cb0  24 28 6e 25 2b 34 29 29  29 3a 6e 25 2b 3d 21 6e  |$(n%+4))):n%+=!n|
00005cc0  25 3a 69 25 2b 3d 31 3a  ce 3a 69 25 3d 30 3a 6e  |%:i%+=1:.:i%=0:n|
00005cd0  25 3d 4f 25 3a c8 95 69  25 3c 79 25 3a f1 23 61  |%=O%:..i%<y%:.#a|
00005ce0  25 2c 21 6e 25 2c 24 28  6e 25 2b 34 29 2c 47 25  |%,!n%,$(n%+4),G%|
00005cf0  21 28 69 25 2a 34 29 3a  6e 25 2b 3d 21 6e 25 3a  |!(i%*4):n%+=!n%:|
00005d00  69 25 2b 3d 31 3a ce 3a  e7 74 63 25 3d 30 8c 0d  |i%+=1:.:.tc%=0..|
00005d10  35 a2 0b f1 23 61 25 2c  2d 31 0d 35 b6 62 cc 3a  |5...#a%,-1.5.b.:|
00005d20  f1 23 61 25 2c 31 2c 6a  2c 6d 2c 67 2c 6b 2c 6e  |.#a%,1,j,m,g,k,n|
00005d30  2c 69 2c 5f 62 25 2c 62  63 25 2c 60 62 25 2c 61  |,i,_b%,bc%,`b%,a|
00005d40  63 25 2c 59 62 25 2c 5a  62 25 2c 48 61 25 2c 4a  |c%,Yb%,Zb%,Ha%,J|
00005d50  61 25 2c 49 61 25 2c 4b  61 25 3a e3 69 25 3d 30  |a%,Ia%,Ka%:.i%=0|
00005d60  b8 35 3a e3 6a 25 3d 30  b8 35 3a f1 23 61 25 2c  |.5:.j%=0.5:.#a%,|
00005d70  61 28 69 25 2c 6a 25 29  3a ed 3a ed 0d 35 d4 05  |a(i%,j%):.:..5..|
00005d80  cd 0d 35 d4 43 d9 23 61  25 3a ff 22 53 65 74 54  |..5.C.#a%:."SetT|
00005d90  79 70 65 20 22 2b 62 24  2b 22 20 22 2b c3 7e 44  |ype "+b$+" "+.~D|
00005da0  61 25 3a ff 22 53 74 61  6d 70 20 22 2b 62 24 3a  |a%:."Stamp "+b$:|
00005db0  e7 62 24 3c 3e 22 3c 57  69 6d 70 24 53 63 72 61  |.b$<>"<Wimp$Scra|
00005dc0  70 3e 22 8c 0d 35 fc 1f  e7 75 63 25 f2 62 28 52  |p>"..5...uc%.b(R|
00005dd0  61 25 2c 31 2c 62 24 2c  30 29 3a f2 6b 62 28 53  |a%,1,b$,0):.kb(S|
00005de0  61 25 29 0d 36 06 1e e7  74 63 25 f2 62 28 60 61  |a%).6...tc%.b(`a|
00005df0  25 2c 31 2c 62 24 2c 30  29 3a f2 6b 62 28 55 25  |%,1,b$,0):.kb(U%|
00005e00  29 0d 36 10 05 cd 0d 36  1a 09 e7 72 63 25 8c 0d  |).6....6...rc%..|
00005e10  36 24 97 c8 99 32 36 32  33 35 31 2c 2c 71 25 3a  |6$...262351,,q%:|
00005e20  71 25 21 32 30 3d 71 25  21 31 32 3a 71 25 21 32  |q%!20=q%!12:q%!2|
00005e30  34 3d 71 25 21 31 36 3a  71 25 21 32 38 3d 21 71  |4=q%!16:q%!28=!q|
00005e40  25 3a 71 25 21 33 32 3d  71 25 21 34 3a 21 71 25  |%:q%!32=q%!4:!q%|
00005e50  3d 28 34 38 2b a9 62 24  29 80 ac 33 3a 71 25 21  |=(48+.b$)..3:q%!|
00005e60  31 32 3d 71 63 25 3a 71  25 21 31 36 3d 33 3a 71  |12=qc%:q%!16=3:q|
00005e70  25 21 34 30 3d 44 61 25  3a 24 28 71 25 2b 34 34  |%!40=Da%:$(q%+44|
00005e80  29 3d 62 24 2b bd 30 3a  c8 99 32 36 32 33 37 35  |)=b$+.0:..262375|
00005e90  2c 31 37 2c 71 25 2c 70  63 25 3a 4d 61 25 3d b9  |,17,q%,pc%:Ma%=.|
00005ea0  3a 4e 61 25 3d a3 0d 36  6a 05 cd 0d 36 6a 12 c8  |:Na%=..6j...6j..|
00005eb0  99 32 36 32 33 35 36 2c  2c 2d 31 3a e1 0d 36 7e  |.262356,,-1:..6~|
00005ec0  89 dd f2 4a 28 62 24 2c  4e 25 29 3a ea 61 25 2c  |...J(b$,N%):.a%,|
00005ed0  66 25 2c 79 25 2c 69 25  2c 74 25 2c 6c 25 2c 66  |f%,y%,i%,t%,l%,f|
00005ee0  24 2c 64 24 2c 78 63 25  2c 79 63 25 2c 62 25 2c  |$,d$,xc%,yc%,b%,|
00005ef0  67 25 2c 75 25 2c 7a 63  25 2c 41 63 25 3a c8 99  |g%,u%,zc%,Ac%:..|
00005f00  32 36 33 38 37 32 3a 61  25 3d 8e 62 24 3a e8 23  |263872:a%=.b$:.#|
00005f10  61 25 2c 66 25 2c 79 25  2c 78 63 25 2c 79 63 25  |a%,f%,y%,xc%,yc%|
00005f20  3a 42 63 25 3d b9 3a 58  62 25 3d b9 3a 43 63 25  |:Bc%=.:Xb%=.:Cc%|
00005f30  3d b9 3a 7a 63 25 3d 44  25 3a 41 63 25 3d 53 25  |=.:zc%=D%:Ac%=S%|
00005f40  3a c8 8e 4e 25 ca 0d 36  c4 16 c9 55 25 2c 48 25  |:..N%..6...U%,H%|
00005f50  3a 43 63 25 3d a3 3a 42  63 25 3d a3 0d 36 d8 17  |:Cc%=.:Bc%=..6..|
00005f60  c9 53 61 25 2c 59 25 3a  43 63 25 3d a3 3a 58 62  |.Sa%,Y%:Cc%=.:Xb|
00005f70  25 3d a3 0d 36 e2 1e c9  59 61 25 2c 4c 25 2c 51  |%=..6...Ya%,L%,Q|
00005f80  61 25 2c 4c 25 3a 58 62  25 3d a3 3a 42 63 25 3d  |a%,L%:Xb%=.:Bc%=|
00005f90  a3 0d 36 ec 05 cb 0d 36  ec 6e e7 53 25 2b 66 25  |..6....6.n.S%+f%|
00005fa0  3e 79 61 25 d9 23 61 25  3a 64 25 3d a4 61 28 22  |>ya%.#a%:d%=.a("|
00005fb0  54 68 69 73 20 66 69 6c  65 20 63 6f 6e 74 61 69  |This file contai|
00005fc0  6e 73 20 74 6f 6f 20 6d  61 6e 79 20 75 73 65 72  |ns too many user|
00005fd0  20 66 75 6e 63 74 69 6f  6e 73 20 74 6f 20 62 65  | functions to be|
00005fe0  20 6c 6f 61 64 65 64 20  61 74 20 74 68 65 20 6d  | loaded at the m|
00005ff0  6f 6d 65 6e 74 22 2c 22  4f 4b 22 2c 22 22 2c 22  |oment","OK","","|
00006000  22 29 3a e1 0d 36 f6 6e  e7 44 25 2b 79 25 3e 6d  |"):..6.n.D%+y%>m|
00006010  63 25 d9 23 61 25 3a 64  25 3d a4 61 28 22 54 68  |c%.#a%:d%=.a("Th|
00006020  69 73 20 66 69 6c 65 20  63 6f 6e 74 61 69 6e 73  |is file contains|
00006030  20 74 6f 6f 20 6d 61 6e  79 20 70 6c 6f 74 74 65  | too many plotte|
00006040  64 20 67 72 61 70 68 73  20 74 6f 20 62 65 20 6c  |d graphs to be l|
00006050  6f 61 64 65 64 20 61 74  20 74 68 65 20 6d 6f 6d  |oaded at the mom|
00006060  65 6e 74 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 29  |ent","OK","","")|
00006070  3a e1 0d 37 00 0e e7 42  63 25 80 66 25 3e 30 8c  |:..7...Bc%.f%>0.|
00006080  0d 37 0a 11 e7 76 63 25  2b 78 63 25 3e 44 63 25  |.7...vc%+xc%>Dc%|
00006090  8c 0d 37 14 9c 62 25 3d  28 76 63 25 2b 78 63 25  |..7..b%=(vc%+xc%|
000060a0  2d 44 63 25 29 81 32 30  34 38 3a 74 25 3d a4 6a  |-Dc%).2048:t%=.j|
000060b0  28 56 25 2c 32 30 34 38  2a 28 62 25 2b 31 29 29  |(V%,2048*(b%+1))|
000060c0  3a e7 74 25 3c 3e 30 20  56 25 3d 74 25 3a 44 63  |:.t%<>0 V%=t%:Dc|
000060d0  25 2b 3d 32 30 34 38 2a  28 62 25 2b 31 29 8b 64  |%+=2048*(b%+1).d|
000060e0  25 3d a4 61 28 22 55 6e  61 62 6c 65 20 74 6f 20  |%=.a("Unable to |
000060f0  6c 6f 61 64 20 75 73 65  72 20 66 75 6e 63 74 69  |load user functi|
00006100  6f 6e 73 20 64 75 65 20  74 6f 20 6c 61 63 6b 20  |ons due to lack |
00006110  6f 66 20 6d 65 6d 6f 72  79 22 2c 22 4f 4b 22 2c  |of memory","OK",|
00006120  22 22 2c 22 22 29 3a d9  23 61 25 3a e1 0d 37 28  |"",""):.#a%:..7(|
00006130  05 cd 0d 37 32 ac 74 25  3d 56 25 2b 76 63 25 3a  |...72.t%=V%+vc%:|
00006140  75 25 3d 30 3a c8 95 69  25 3c 66 25 3a e8 23 61  |u%=0:..i%<f%:.#a|
00006150  25 2c 6c 25 2c 66 24 2c  64 24 3a 66 24 3d a4 7a  |%,l%,f$,d$:f$=.z|
00006160  28 66 24 29 3a e7 66 24  3c 3e 22 22 e7 a4 48 28  |(f$):.f$<>""..H(|
00006170  66 24 2c 64 24 29 64 24  3d 22 22 3a 64 25 3d a4  |f$,d$)d$="":d%=.|
00006180  61 28 22 43 61 6e 6e 6f  74 20 6c 6f 61 64 20 27  |a("Cannot load '|
00006190  22 2b 66 24 2b 22 27 20  61 73 20 69 74 20 69 73  |"+f$+"' as it is|
000061a0  20 61 20 72 65 63 75 72  73 69 76 65 20 64 65 66  | a recursive def|
000061b0  69 6e 69 74 69 6f 6e 20  77 68 69 63 68 20 63 61  |inition which ca|
000061c0  6e 6e 6f 74 20 62 65 20  65 76 61 6c 75 61 74 65  |nnot be evaluate|
000061d0  64 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 29 0d 37  |d","OK","","").7|
000061e0  46 13 e7 66 24 3c 3e 22  22 80 64 24 3c 3e 22 22  |F..f$<>"".d$<>""|
000061f0  8c 0d 37 50 3e 21 74 25  3d 6c 25 3a 24 28 74 25  |..7P>!t%=l%:$(t%|
00006200  2b 34 29 3d 66 24 3a 24  28 74 25 2b 35 2b a9 66  |+4)=f$:$(t%+5+.f|
00006210  24 29 3d 64 24 3a 76 63  25 2b 3d 6c 25 3a 74 25  |$)=d$:vc%+=l%:t%|
00006220  2b 3d 6c 25 3a 53 25 2b  3d 31 3a 75 25 3d 31 0d  |+=l%:S%+=1:u%=1.|
00006230  37 64 05 cd 0d 37 64 1e  69 25 2b 3d 31 3a ce 3a  |7d...7d.i%+=1:.:|
00006240  e7 75 25 3d 31 80 41 63  25 3e 30 f2 6b 28 53 61  |.u%=1.Ac%>0.k(Sa|
00006250  25 29 0d 37 6e 12 e7 76  63 25 3c 44 63 25 2d 32  |%).7n..vc%<Dc%-2|
00006260  30 34 38 8c 0d 37 78 3b  62 25 3d 28 44 63 25 2d  |048..7x;b%=(Dc%-|
00006270  76 63 25 29 81 32 30 34  38 3a 74 25 3d a4 6a 28  |vc%).2048:t%=.j(|
00006280  56 25 2c 2d 32 30 34 38  2a 62 25 29 3a 56 25 3d  |V%,-2048*b%):V%=|
00006290  74 25 3a 44 63 25 2d 3d  32 30 34 38 2a 62 25 0d  |t%:Dc%-=2048*b%.|
000062a0  37 8c 05 cd 0d 37 8c 1d  74 25 3d 33 36 2a 53 25  |7....7..t%=36*S%|
000062b0  2b 34 3a e7 74 25 3c 32  30 30 20 74 25 3d 32 30  |+4:.t%<200 t%=20|
000062c0  30 0d 37 96 3f f2 6c 28  59 25 2c 30 2c 2d 74 25  |0.7.?.l(Y%,0,-t%|
000062d0  2c 32 32 36 2c 30 29 3a  f2 66 28 59 25 29 3a e7  |,226,0):.f(Y%):.|
000062e0  62 24 3c 3e 22 3c 57 69  6d 70 24 53 63 72 61 70  |b$<>"<Wimp$Scrap|
000062f0  3e 22 f2 62 28 52 61 25  2c 31 2c 62 24 2c 30 29  |>".b(Ra%,1,b$,0)|
00006300  0d 37 aa 28 cc 3a 69 25  3d 30 3a c8 95 69 25 3c  |.7.(.:i%=0:..i%<|
00006310  66 25 3a e8 23 61 25 2c  6c 25 2c 66 24 2c 64 24  |f%:.#a%,l%,f$,d$|
00006320  3a 69 25 2b 3d 31 3a ce  0d 37 c8 05 cd 0d 37 c8  |:i%+=1:..7....7.|
00006330  0e e7 58 62 25 80 79 25  3e 30 8c 0d 37 d2 11 e7  |..Xb%.y%>0..7...|
00006340  77 63 25 2b 79 63 25 3e  45 63 25 8c 0d 37 dc 94  |wc%+yc%>Ec%..7..|
00006350  62 25 3d 28 77 63 25 2b  79 63 25 2d 45 63 25 29  |b%=(wc%+yc%-Ec%)|
00006360  81 32 30 34 38 3a 74 25  3d a4 6a 28 4f 25 2c 32  |.2048:t%=.j(O%,2|
00006370  30 34 38 2a 28 62 25 2b  31 29 29 3a e7 74 25 3c  |048*(b%+1)):.t%<|
00006380  3e 30 20 4f 25 3d 74 25  3a 45 63 25 2b 3d 32 30  |>0 O%=t%:Ec%+=20|
00006390  34 38 2a 28 62 25 2b 31  29 8b 64 25 3d a4 61 28  |48*(b%+1).d%=.a(|
000063a0  22 55 6e 61 62 6c 65 20  74 6f 20 6c 6f 61 64 20  |"Unable to load |
000063b0  67 72 61 70 68 73 20 64  75 65 20 74 6f 20 6c 61  |graphs due to la|
000063c0  63 6b 20 6f 66 20 6d 65  6d 6f 72 79 22 2c 22 4f  |ck of memory","O|
000063d0  4b 22 2c 22 22 2c 22 22  29 3a d9 23 61 25 3a e1  |K","",""):.#a%:.|
000063e0  0d 37 f0 05 cd 0d 37 fa  71 74 25 3d 4f 25 2b 77  |.7....7.qt%=O%+w|
000063f0  63 25 3a 69 25 3d 30 3a  c8 95 69 25 3c 79 25 3a  |c%:i%=0:..i%<y%:|
00006400  e8 23 61 25 2c 6c 25 2c  64 24 2c 67 25 3a 21 74  |.#a%,l%,d$,g%:!t|
00006410  25 3d 6c 25 3a 24 28 74  25 2b 34 29 3d 64 24 3a  |%=l%:$(t%+4)=d$:|
00006420  47 25 21 28 44 25 2a 34  29 3d 67 25 3a 74 25 2b  |G%!(D%*4)=g%:t%+|
00006430  3d 6c 25 3a 77 63 25 2b  3d 6c 25 3a 44 25 2b 3d  |=l%:wc%+=l%:D%+=|
00006440  31 3a 69 25 2b 3d 31 3a  ce 3a e7 7a 63 25 3e 30  |1:i%+=1:.:.zc%>0|
00006450  f2 6b 28 55 25 29 0d 38  18 1d 74 25 3d 33 36 2a  |.k(U%).8..t%=36*|
00006460  44 25 2b 34 3a e7 74 25  3c 31 37 32 20 74 25 3d  |D%+4:.t%<172 t%=|
00006470  31 37 32 0d 38 22 3f f2  6c 28 48 25 2c 30 2c 2d  |172.8"?.l(H%,0,-|
00006480  74 25 2c 33 31 36 2c 30  29 3a f2 66 28 48 25 29  |t%,316,0):.f(H%)|
00006490  3a e7 62 24 3c 3e 22 3c  57 69 6d 70 24 53 63 72  |:.b$<>"<Wimp$Scr|
000064a0  61 70 3e 22 f2 62 28 60  61 25 2c 31 2c 62 24 2c  |ap>".b(`a%,1,b$,|
000064b0  30 29 0d 38 36 28 cc 3a  69 25 3d 30 3a c8 95 69  |0).86(.:i%=0:..i|
000064c0  25 3c 79 25 3a e8 23 61  25 2c 6c 25 2c 64 24 2c  |%<y%:.#a%,l%,d$,|
000064d0  67 25 3a 69 25 2b 3d 31  3a ce 0d 38 54 05 cd 0d  |g%:i%+=1:..8T...|
000064e0  38 54 16 e8 23 61 25 2c  64 25 3a e7 64 25 3d 31  |8T..#a%,d%:.d%=1|
000064f0  80 43 63 25 8c 0d 38 5e  45 e8 23 61 25 2c 6a 2c  |.Cc%..8^E.#a%,j,|
00006500  6d 2c 67 2c 6b 2c 6e 2c  69 2c 5f 62 25 2c 62 63  |m,g,k,n,i,_b%,bc|
00006510  25 2c 60 62 25 2c 61 63  25 2c 59 62 25 2c 5a 62  |%,`b%,ac%,Yb%,Zb|
00006520  25 2c 48 61 25 2c 4a 61  25 2c 49 61 25 2c 4b 61  |%,Ha%,Ja%,Ia%,Ka|
00006530  25 3a e7 a4 67 28 4c 25  29 8c 0d 38 72 53 f2 47  |%:..g(L%)..8rS.G|
00006540  28 31 29 3a f2 64 28 4c  25 2c 31 37 2c 5f 62 25  |(1):.d(L%,17,_b%|
00006550  29 3a f2 64 28 4c 25 2c  32 33 2c 62 63 25 29 3a  |):.d(L%,23,bc%):|
00006560  e3 69 25 3d 32 36 b8 33  30 3a f2 64 28 4c 25 2c  |.i%=26.30:.d(L%,|
00006570  69 25 2c 61 63 25 3d 33  31 2d 69 25 29 3a ed 3a  |i%,ac%=31-i%):.:|
00006580  f2 70 28 4c 25 2c 32 32  2c 60 62 25 29 0d 38 a4  |.p(L%,22,`b%).8.|
00006590  05 cd 0d 38 a4 0d e7 a4  67 28 59 61 25 29 8c 0d  |...8....g(Ya%)..|
000065a0  38 ae 62 e3 69 25 3d 33  b8 38 3a f2 64 28 59 61  |8.b.i%=3.8:.d(Ya|
000065b0  25 2c 69 25 2c 59 62 25  3d 39 2d 69 25 29 3a ed  |%,i%,Yb%=9-i%):.|
000065c0  3a e3 69 25 3d 33 33 b8  33 38 3a f2 64 28 59 61  |:.i%=33.38:.d(Ya|
000065d0  25 2c 69 25 2c 63 63 25  3d 33 39 2d 69 25 29 3a  |%,i%,cc%=39-i%):|
000065e0  ed 3a f2 64 28 59 61 25  2c 33 39 2c 59 62 25 3d  |.:.d(Ya%,39,Yb%=|
000065f0  30 29 3a f2 70 28 59 61  25 2c 32 39 2c 5a 62 25  |0):.p(Ya%,29,Zb%|
00006600  29 0d 38 e0 05 cd 0d 38  e0 4c f2 62 28 56 61 25  |).8....8.L.b(Va%|
00006610  2c 36 2c c3 48 61 25 2c  30 29 3a f2 62 28 56 61  |,6,.Ha%,0):.b(Va|
00006620  25 2c 37 2c c3 4a 61 25  2c 30 29 3a f2 62 28 56  |%,7,.Ja%,0):.b(V|
00006630  61 25 2c 31 34 2c c3 49  61 25 2c 30 29 3a f2 62  |a%,14,.Ia%,0):.b|
00006640  28 56 61 25 2c 31 35 2c  c3 4b 61 25 2c 30 29 3a  |(Va%,15,.Ka%,0):|
00006650  f2 55 0d 39 08 08 cc 3a  f2 69 0d 39 1c 05 cd 0d  |.U.9...:.i.9....|
00006660  39 1c 20 d9 23 61 25 3a  e7 4e 25 3d 2d 32 f2 6a  |9. .#a%:.N%=-2.j|
00006670  28 51 61 25 29 3a f2 6a  28 55 25 29 3a f2 69 0d  |(Qa%):.j(U%):.i.|
00006680  39 30 14 68 61 25 3d b9  3a c8 99 32 36 33 38 37  |90.ha%=.:..26387|
00006690  33 3a e1 0d 39 3a 8e dd  f2 64 61 3a ea 61 25 2c  |3:..9:...da:.a%,|
000066a0  70 25 2c 6c 25 2c 70 24  2c 69 25 2c 71 24 2c 72  |p%,l%,p$,i%,q$,r|
000066b0  24 2c 64 25 3a 52 62 25  3d 30 3a 65 63 25 3d 30  |$,d%:Rb%=0:ec%=0|
000066c0  3a 46 63 25 3d 30 3a 61  25 3d 8e 22 3c 46 75 6e  |:Fc%=0:a%=."<Fun|
000066d0  63 79 32 24 44 69 72 3e  2e 50 72 65 73 65 74 73  |cy2$Dir>.Presets|
000066e0  22 3a e7 61 25 3d 30 20  64 25 3d a4 61 28 22 50  |":.a%=0 d%=.a("P|
000066f0  72 65 73 65 74 20 66 75  6e 63 74 69 6f 6e 73 20  |reset functions |
00006700  63 6f 75 6c 64 6e 27 74  20 62 65 20 66 6f 75 6e  |couldn't be foun|
00006710  64 2e 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 29 3a  |d.","OK","",""):|
00006720  e1 0d 39 8a 6d 70 24 3d  be 23 61 25 3a e7 70 24  |..9.mp$=.#a%:.p$|
00006730  3c 3e 22 66 75 6e 63 79  32 3a 70 72 65 73 65 74  |<>"funcy2:preset|
00006740  73 22 d9 23 61 25 3a 64  25 3d a4 61 28 22 50 72  |s".#a%:d%=.a("Pr|
00006750  65 73 65 74 73 20 66 69  6c 65 20 64 6f 65 73 20  |esets file does |
00006760  6e 6f 74 20 63 6f 6e 66  6f 72 6d 20 74 6f 20 72  |not conform to r|
00006770  65 71 75 69 72 65 64 20  66 6f 72 6d 61 74 2e 22  |equired format."|
00006780  2c 22 4f 4b 22 2c 22 22  2c 22 22 29 3a e1 0d 39  |,"OK","",""):..9|
00006790  94 2e 70 25 3d 30 3a f5  3a 70 24 3d be 23 61 25  |..p%=0:.:p$=.#a%|
000067a0  3a 72 24 3d 70 24 3a e7  c0 70 24 2c 31 29 3c 3e  |:r$=p$:..p$,1)<>|
000067b0  22 7c 22 80 a9 28 70 24  29 3e 30 8c 0d 39 a8 88  |"|"..(p$)>0..9..|
000067c0  e3 69 25 3d 31 b8 32 3a  71 24 3d a4 41 28 70 24  |.i%=1.2:q$=.A(p$|
000067d0  29 3a 70 25 2b 3d a9 28  71 24 29 2b 31 3a ed 3a  |):p%+=.(q$)+1:.:|
000067e0  70 25 2b 3d 33 34 3a e3  69 25 3d 31 b8 35 3a 71  |p%+=34:.i%=1.5:q|
000067f0  24 3d a4 41 28 70 24 29  3a ed 3a e7 70 24 3d 22  |$=.A(p$):.:.p$="|
00006800  22 84 a7 70 24 2c 22 2c  22 29 d9 23 61 25 3a 64  |"..p$,",").#a%:d|
00006810  25 3d a4 61 28 22 45 72  72 6f 72 20 69 6e 20 70  |%=.a("Error in p|
00006820  72 65 73 65 74 20 64 65  66 69 6e 69 74 69 6f 6e  |reset definition|
00006830  3a 20 22 2b 72 24 2c 22  4f 4b 22 2c 22 22 2c 22  |: "+r$,"OK","","|
00006840  22 29 3a e1 0d 39 bc 05  cd 0d 39 c6 76 fd 70 24  |"):..9....9.v.p$|
00006850  3d 22 7c 65 6e 64 22 3a  65 63 25 3d a4 72 28 70  |="|end":ec%=.r(p|
00006860  25 2b 34 29 3a e7 65 63  25 3d 30 d9 23 61 25 3a  |%+4):.ec%=0.#a%:|
00006870  64 25 3d a4 61 28 22 49  20 68 61 76 65 20 72 75  |d%=.a("I have ru|
00006880  6e 20 6f 75 74 20 6f 66  20 6d 65 6d 6f 72 79 20  |n out of memory |
00006890  74 72 79 69 6e 67 20 74  6f 20 6c 6f 61 64 20 70  |trying to load p|
000068a0  72 65 73 65 74 20 66 75  6e 63 74 69 6f 6e 73 2e  |reset functions.|
000068b0  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a e1 0d  |","OK","",""):..|
000068c0  39 da 49 46 63 25 3d 70  25 3a 70 25 3d 30 3a 52  |9.IFc%=p%:p%=0:R|
000068d0  62 25 3d 30 3a cf 23 61  25 3d 30 3a 70 24 3d be  |b%=0:.#a%=0:p$=.|
000068e0  23 61 25 3a f5 3a 6c 25  3d 34 3a 70 24 3d be 23  |#a%:.:l%=4:p$=.#|
000068f0  61 25 3a e7 c0 70 24 2c  31 29 3c 3e 22 7c 22 80  |a%:..p$,1)<>"|".|
00006900  a9 28 70 24 29 3e 30 8c  0d 3a 02 75 e3 69 25 3d  |.(p$)>0..:.u.i%=|
00006910  31 b8 32 3a 71 24 3d a4  41 28 70 24 29 3a 24 28  |1.2:q$=.A(p$):$(|
00006920  65 63 25 2b 70 25 2b 6c  25 29 3d 71 24 3a 6c 25  |ec%+p%+l%)=q$:l%|
00006930  2b 3d a9 28 71 24 29 2b  31 3a ed 3a e3 69 25 3d  |+=.(q$)+1:.:.i%=|
00006940  31 b8 36 3a 7c 28 65 63  25 2b 70 25 2b 6c 25 29  |1.6:|(ec%+p%+l%)|
00006950  3d bb 28 a4 41 28 70 24  29 29 3a 6c 25 2b 3d 35  |=.(.A(p$)):l%+=5|
00006960  3a ed 3a 21 28 65 63 25  2b 70 25 29 3d 6c 25 3a  |:.:!(ec%+p%)=l%:|
00006970  70 25 2b 3d 6c 25 3a 52  62 25 2b 3d 31 0d 3a 5c  |p%+=l%:Rb%+=1.:\|
00006980  05 cd 0d 3a 5c 36 fd 70  24 3d 22 7c 65 6e 64 22  |...:\6.p$="|end"|
00006990  84 52 62 25 3d 79 61 25  3a d9 23 61 25 3a 70 25  |.Rb%=ya%:.#a%:p%|
000069a0  3d 33 36 2a 52 62 25 2b  34 3a e7 70 25 3c 32 30  |=36*Rb%+4:.p%<20|
000069b0  30 20 70 25 3d 32 30 30  0d 3a 70 19 f2 6c 28 55  |0 p%=200.:p..l(U|
000069c0  61 25 2c 30 2c 2d 70 25  2c 32 32 36 2c 30 29 3a  |a%,0,-p%,226,0):|
000069d0  e1 0d 3a 84 53 dd a4 41  28 f8 73 24 29 3a ea 74  |..:.S..A(.s$):.t|
000069e0  24 2c 69 25 3a 69 25 3d  a7 73 24 2c 22 2c 22 29  |$,i%:i%=.s$,",")|
000069f0  3a e7 69 25 3d 30 20 74  24 3d 73 24 3a 73 24 3d  |:.i%=0 t$=s$:s$=|
00006a00  22 22 3a 3d 74 24 8b 74  24 3d c0 73 24 2c 69 25  |"":=t$.t$=.s$,i%|
00006a10  2d 31 29 3a 73 24 3d c1  73 24 2c 69 25 2b 31 29  |-1):s$=.s$,i%+1)|
00006a20  3a 3d 74 24 0d 3a ac 1c  dd f2 4e 61 3a ea 69 25  |:=t$.:....Na:.i%|
00006a30  2c 6e 25 2c 6c 25 3a e7  45 25 3c 3e 55 61 25 e1  |,n%,l%:.E%<>Ua%.|
00006a40  0d 3a ca 70 69 25 3d 30  3a 6e 25 3d 65 63 25 3a  |.:.pi%=0:n%=ec%:|
00006a50  c8 95 4d 25 3f 69 25 3d  30 80 69 25 3c 52 62 25  |..M%?i%=0.i%<Rb%|
00006a60  3a 6e 25 2b 3d 21 6e 25  3a 69 25 2b 3d 31 3a ce  |:n%+=!n%:i%+=1:.|
00006a70  3a e7 69 25 3e 3d 52 62  25 85 39 39 39 2c 22 33  |:.i%>=Rb%.999,"3|
00006a80  20 2d 20 41 6c 6c 6f 77  65 64 20 74 6f 20 70 6c  | - Allowed to pl|
00006a90  6f 74 20 70 72 65 73 65  74 20 77 68 65 6e 20 6e  |ot preset when n|
00006aa0  6f 74 68 69 6e 67 20 73  65 6c 65 63 74 65 64 22  |othing selected"|
00006ab0  0d 3a de 0f e7 a4 65 28  54 61 25 2c 35 29 8c 0d  |.:....e(Ta%,5)..|
00006ac0  3a e8 7a 6c 25 3d a9 28  24 6e 25 29 2b 31 3a 6c  |:.zl%=.($n%)+1:l|
00006ad0  25 2b 3d 28 a9 24 28 6e  25 2b 6c 25 29 29 2b 31  |%+=(.$(n%+l%))+1|
00006ae0  3a 6a 3d 7c 28 6e 25 2b  6c 25 29 3a 6d 3d 7c 28  |:j=|(n%+l%):m=|(|
00006af0  6e 25 2b 6c 25 2b 35 29  3a 67 3d 7c 28 6e 25 2b  |n%+l%+5):g=|(n%+|
00006b00  6c 25 2b 31 30 29 3a 6b  3d 7c 28 6e 25 2b 6c 25  |l%+10):k=|(n%+l%|
00006b10  2b 31 35 29 3a 6e 3d 7c  28 6e 25 2b 6c 25 2b 32  |+15):n=|(n%+l%+2|
00006b20  30 29 3a 69 3d 7c 28 6e  25 2b 6c 25 2b 32 35 29  |0):i=|(n%+l%+25)|
00006b30  3a f2 78 3a f2 47 28 b9  29 0d 3b 10 05 cd 0d 3b  |:.x:.G(.).;....;|
00006b40  10 0f f2 6c 62 28 6e 25  2b 34 29 3a e1 0d 3b 1a  |...lb(n%+4):..;.|
00006b50  a6 dd f2 65 61 3a ea 61  25 2c 6c 25 2c 64 25 3a  |...ea:.a%,l%,d%:|
00006b60  61 25 3d 8e 22 3c 46 75  6e 63 79 32 24 44 69 72  |a%=."<Funcy2$Dir|
00006b70  3e 2e 42 61 73 69 63 46  75 6e 63 73 22 3a e7 61  |>.BasicFuncs":.a|
00006b80  25 3d 30 20 64 25 3d a4  61 28 22 52 65 73 6f 75  |%=0 d%=.a("Resou|
00006b90  72 63 65 20 66 69 6c 65  20 27 42 61 73 69 63 46  |rce file 'BasicF|
00006ba0  75 6e 63 73 27 20 6d 69  73 73 69 6e 67 20 66 72  |uncs' missing fr|
00006bb0  6f 6d 20 21 46 75 6e 63  79 20 64 69 72 65 63 74  |om !Funcy direct|
00006bc0  6f 72 79 2e 20 20 43 61  6e 6e 6f 74 20 6c 6f 61  |ory.  Cannot loa|
00006bd0  64 20 61 70 70 6c 69 63  61 74 69 6f 6e 2e 22 2c  |d application.",|
00006be0  22 4f 4b 22 2c 22 22 2c  22 22 29 3a 63 61 25 3d  |"OK","",""):ca%=|
00006bf0  b9 3a e1 0d 3b 60 82 6c  25 3d a2 23 61 25 3a d9  |.:..;`.l%=.#a%:.|
00006c00  23 61 25 3a 47 63 25 3d  a4 72 28 6c 25 2b 34 29  |#a%:Gc%=.r(l%+4)|
00006c10  3a e7 47 63 25 3d 30 20  64 25 3d a4 61 28 22 49  |:.Gc%=0 d%=.a("I|
00006c20  20 68 61 76 65 20 72 75  6e 20 6f 75 74 20 6f 66  | have run out of|
00006c30  20 6d 65 6d 6f 72 79 20  77 68 69 6c 73 74 20 74  | memory whilst t|
00006c40  72 79 69 6e 67 20 74 6f  20 6c 6f 61 64 20 62 61  |rying to load ba|
00006c50  73 69 63 20 66 75 6e 63  74 69 6f 6e 73 22 2c 22  |sic functions","|
00006c60  4f 4b 22 2c 22 22 2c 22  22 2c 22 22 29 3a 63 61  |OK","","",""):ca|
00006c70  25 3d b9 3a e1 0d 3b 7e  2c ff 22 4c 4f 41 44 20  |%=.:..;~,."LOAD |
00006c80  3c 46 75 6e 63 79 32 24  44 69 72 3e 2e 42 61 73  |<Funcy2$Dir>.Bas|
00006c90  69 63 46 75 6e 63 73 20  22 2b c3 7e 47 63 25 3a  |icFuncs "+.~Gc%:|
00006ca0  e1 0d 3b 92 98 dd f2 66  61 3a ea 64 25 3a 44 62  |..;....fa:.d%:Db|
00006cb0  25 3d 2d 31 3a 76 63 25  3d 30 3a 44 63 25 3d 30  |%=-1:vc%=0:Dc%=0|
00006cc0  3a 53 25 3d 30 3a 56 25  3d a4 72 28 32 30 34 38  |:S%=0:V%=.r(2048|
00006cd0  29 3a e7 56 25 3d 30 20  64 25 3d a4 61 28 22 49  |):.V%=0 d%=.a("I|
00006ce0  20 68 61 76 65 20 72 75  6e 20 6f 75 74 20 6f 66  | have run out of|
00006cf0  20 6d 65 6d 6f 72 79 20  74 72 79 69 6e 67 20 74  | memory trying t|
00006d00  6f 20 61 6c 6c 6f 63 61  74 65 20 6d 65 6d 6f 72  |o allocate memor|
00006d10  79 20 66 6f 72 20 75 73  65 72 20 66 75 6e 63 74  |y for user funct|
00006d20  69 6f 6e 73 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |ions","OK","",""|
00006d30  29 3a 63 61 25 3d b9 3a  e1 0d 3b d8 9b 44 63 25  |):ca%=.:..;..Dc%|
00006d40  3d 32 30 34 38 3a de 62  25 28 36 33 29 3a 62 25  |=2048:.b%(63):b%|
00006d50  28 29 3d 31 2c 31 2c 31  2c 30 2c 31 2c 31 2c 30  |()=1,1,1,0,1,1,0|
00006d60  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |,1,1,1,1,1,1,1,1|
*
00006d80  2c 31 2c 31 2c 30 2c 30  2c 31 2c 30 2c 30 2c 31  |,1,1,0,0,1,0,0,1|
00006d90  2c 30 2c 30 2c 31 2c 31  2c 30 2c 30 2c 31 2c 30  |,0,0,1,1,0,0,1,0|
00006da0  2c 31 2c 31 2c 30 2c 30  2c 31 2c 30 2c 30 2c 31  |,1,1,0,0,1,0,0,1|
00006db0  2c 30 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 30  |,0,1,1,1,1,1,1,0|
00006dc0  2c 31 2c 31 2c 30 2c 30  2c 31 2c 30 2c 30 2c 31  |,1,1,0,0,1,0,0,1|
00006dd0  2c 31 3a e1 0d 3b f6 4f  dd f2 6a 62 3a ea 66 24  |,1:..;.O..jb:.f$|
00006de0  2c 64 24 2c 60 25 2c 69  25 2c 6e 25 2c 6c 25 2c  |,d$,`%,i%,n%,l%,|
00006df0  74 25 3a e7 53 25 3d 79  61 25 85 39 39 39 2c 22  |t%:.S%=ya%.999,"|
00006e00  34 20 2d 20 41 6c 6c 6f  77 65 64 20 74 6f 20 63  |4 - Allowed to c|
00006e10  6f 70 79 20 75 73 65 72  20 77 68 65 6e 20 66 75  |opy user when fu|
00006e20  6c 6c 22 0d 3c 1e 6b 69  25 3d 30 3a 6e 25 3d 56  |ll".<.ki%=0:n%=V|
00006e30  25 3a c8 95 4d 25 3f 69  25 3d 30 80 69 25 3c 53  |%:..M%?i%=0.i%<S|
00006e40  25 3a 6e 25 2b 3d 21 6e  25 3a 69 25 2b 3d 31 3a  |%:n%+=!n%:i%+=1:|
00006e50  ce 3a e7 69 25 3e 3d 53  25 85 39 39 39 2c 22 35  |.:.i%>=S%.999,"5|
00006e60  20 2d 20 41 6c 6c 6f 77  65 64 20 74 6f 20 63 6f  | - Allowed to co|
00006e70  70 79 20 75 73 65 72 20  77 68 65 6e 20 6e 6f 74  |py user when not|
00006e80  68 69 6e 67 20 73 65 6c  65 63 74 65 64 22 0d 3c  |hing selected".<|
00006e90  32 2d 60 25 3d 21 28 74  61 25 2b 38 2a 34 29 3a  |2-`%=!(ta%+8*4):|
00006ea0  60 25 2b 3d 32 38 2b 31  32 3a 66 24 3d 24 28 21  |`%+=28+12:f$=$(!|
00006eb0  60 25 29 3a e7 66 24 3d  22 22 e1 0d 3c 46 15 66  |`%):.f$=""..<F.f|
00006ec0  24 3d a4 7a 28 66 24 29  3a e7 66 24 3d 22 22 e1  |$=.z(f$):.f$="".|
00006ed0  0d 3c 50 2e 64 24 3d 24  28 6e 25 2b 35 2b a9 28  |.<P.d$=$(n%+5+.(|
00006ee0  24 28 6e 25 2b 34 29 29  29 3a 64 24 3d a4 73 28  |$(n%+4))):d$=.s(|
00006ef0  64 24 2c 66 24 29 3a e7  64 24 3d 22 22 e1 0d 3c  |d$,f$):.d$=""..<|
00006f00  5a 23 6c 25 3d 28 a9 66  24 2b a9 64 24 2b 31 30  |Z#l%=(.f$+.d$+10|
00006f10  29 80 ac 33 3a e7 76 63  25 2b 6c 25 3e 44 63 25  |)..3:.vc%+l%>Dc%|
00006f20  8c 0d 3c 6e 6f 74 25 3d  a4 6a 28 56 25 2c 32 30  |..<not%=.j(V%,20|
00006f30  34 38 29 3a e7 74 25 3c  3e 30 20 56 25 3d 74 25  |48):.t%<>0 V%=t%|
00006f40  3a 44 63 25 2b 3d 32 30  34 38 8b 64 25 3d a4 61  |:Dc%+=2048.d%=.a|
00006f50  28 22 55 6e 61 62 6c 65  20 74 6f 20 73 74 6f 72  |("Unable to stor|
00006f60  65 20 66 75 6e 63 74 69  6f 6e 20 64 75 65 20 74  |e function due t|
00006f70  6f 20 6c 61 63 6b 20 6f  66 20 6d 65 6d 6f 72 79  |o lack of memory|
00006f80  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a 3d a3  |","OK","",""):=.|
00006f90  0d 3c 82 05 cd 0d 3c 8c  56 74 25 3d 56 25 2b 76  |.<....<.Vt%=V%+v|
00006fa0  63 25 3a 21 74 25 3d 6c  25 3a 24 28 74 25 2b 34  |c%:!t%=l%:$(t%+4|
00006fb0  29 3d 66 24 3a 24 28 74  25 2b 35 2b a9 66 24 29  |)=f$:$(t%+5+.f$)|
00006fc0  3d 64 24 3a 76 63 25 2b  3d 6c 25 3a 53 25 2b 3d  |=d$:vc%+=l%:S%+=|
00006fd0  31 3a 74 25 3d 33 36 2a  53 25 2b 34 3a e7 74 25  |1:t%=36*S%+4:.t%|
00006fe0  3c 32 30 30 20 74 25 3d  32 30 30 0d 3c a0 27 f2  |<200 t%=200.<.'.|
00006ff0  6c 28 59 25 2c 30 2c 2d  74 25 2c 32 32 36 2c 30  |l(Y%,0,-t%,226,0|
00007000  29 3a f2 66 28 59 25 29  3a f2 6b 28 53 61 25 29  |):.f(Y%):.k(Sa%)|
00007010  3a e1 0d 3c b4 33 dd f2  4f 61 3a ea 4a 25 3a 4a  |:..<.3..Oa:.J%:J|
00007020  25 3d b9 3a e7 44 62 25  3d 2d 32 20 4a 25 3d a4  |%=.:.Db%=-2 J%=.|
00007030  78 28 30 29 8b e7 44 62  25 3e 3d 30 20 4a 25 3d  |x(0)..Db%>=0 J%=|
00007040  a4 79 28 30 29 0d 3c dc  0a e7 4a 25 3d a3 e1 0d  |.y(0).<...J%=...|
00007050  3c e6 36 e7 53 25 3d 79  61 25 85 39 39 39 2c 22  |<.6.S%=ya%.999,"|
00007060  36 20 2d 20 41 6c 6c 6f  77 65 64 20 74 6f 20 63  |6 - Allowed to c|
00007070  72 65 61 74 65 20 75 73  65 72 20 77 68 65 6e 20  |reate user when |
00007080  66 75 6c 6c 22 0d 3c f0  3c f2 62 28 57 61 25 2c  |full".<.<.b(Wa%,|
00007090  34 2c 22 22 2c 31 29 3a  f2 62 28 57 61 25 2c 31  |4,"",1):.b(Wa%,1|
000070a0  2c 22 22 2c 31 29 3a f2  6a 28 57 61 25 29 3a 44  |,"",1):.j(Wa%):D|
000070b0  62 25 3d 2d 32 3a f2 74  28 57 61 25 2c 34 29 3a  |b%=-2:.t(Wa%,4):|
000070c0  e1 0d 3d 0e 83 dd a4 78  28 48 63 25 29 3a ea 66  |..=....x(Hc%):.f|
000070d0  24 2c 64 24 2c 6c 25 2c  74 25 2c 64 25 3a 66 24  |$,d$,l%,t%,d%:f$|
000070e0  3d a4 62 28 57 61 25 2c  34 29 3a 64 24 3d a4 62  |=.b(Wa%,4):d$=.b|
000070f0  28 57 61 25 2c 31 29 3a  e7 66 24 3d 22 22 84 64  |(Wa%,1):.f$="".d|
00007100  24 3d 22 22 64 25 3d a4  61 28 22 59 6f 75 20 6d  |$=""d%=.a("You m|
00007110  75 73 74 20 65 6e 74 65  72 20 73 6f 6d 65 74 68  |ust enter someth|
00007120  69 6e 67 20 69 6e 74 6f  20 62 6f 74 68 20 66 69  |ing into both fi|
00007130  65 6c 64 73 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |elds","OK","",""|
00007140  29 3a 3d a3 0d 3d 40 16  66 24 3d a4 7a 28 66 24  |):=..=@.f$=.z(f$|
00007150  29 3a e7 66 24 3d 22 22  3d a3 0d 3d 4a 19 64 24  |):.f$=""=..=J.d$|
00007160  3d a4 73 28 64 24 2c 66  24 29 3a e7 64 24 3d 22  |=.s(d$,f$):.d$="|
00007170  22 3d a3 0d 3d 54 23 6c  25 3d 28 a9 66 24 2b a9  |"=..=T#l%=(.f$+.|
00007180  64 24 2b 31 30 29 80 ac  33 3a e7 76 63 25 2b 6c  |d$+10)..3:.vc%+l|
00007190  25 3e 44 63 25 8c 0d 3d  68 6f 74 25 3d a4 6a 28  |%>Dc%..=hot%=.j(|
000071a0  56 25 2c 32 30 34 38 29  3a e7 74 25 3c 3e 30 20  |V%,2048):.t%<>0 |
000071b0  56 25 3d 74 25 3a 44 63  25 2b 3d 32 30 34 38 8b  |V%=t%:Dc%+=2048.|
000071c0  64 25 3d a4 61 28 22 55  6e 61 62 6c 65 20 74 6f  |d%=.a("Unable to|
000071d0  20 73 74 6f 72 65 20 66  75 6e 63 74 69 6f 6e 20  | store function |
000071e0  64 75 65 20 74 6f 20 6c  61 63 6b 20 6f 66 20 6d  |due to lack of m|
000071f0  65 6d 6f 72 79 22 2c 22  4f 4b 22 2c 22 22 2c 22  |emory","OK","","|
00007200  22 29 3a 3d a3 0d 3d 7c  05 cd 0d 3d 86 56 74 25  |"):=..=|...=.Vt%|
00007210  3d 56 25 2b 76 63 25 3a  21 74 25 3d 6c 25 3a 24  |=V%+vc%:!t%=l%:$|
00007220  28 74 25 2b 34 29 3d 66  24 3a 24 28 74 25 2b 35  |(t%+4)=f$:$(t%+5|
00007230  2b a9 66 24 29 3d 64 24  3a 76 63 25 2b 3d 6c 25  |+.f$)=d$:vc%+=l%|
00007240  3a 53 25 2b 3d 31 3a 74  25 3d 33 36 2a 53 25 2b  |:S%+=1:t%=36*S%+|
00007250  34 3a e7 74 25 3c 32 30  30 20 74 25 3d 32 30 30  |4:.t%<200 t%=200|
00007260  0d 3d 9a 29 f2 6c 28 59  25 2c 30 2c 2d 74 25 2c  |.=.).l(Y%,0,-t%,|
00007270  32 32 36 2c 30 29 3a f2  66 28 59 25 29 3a e7 48  |226,0):.f(Y%):.H|
00007280  63 25 f2 6e 28 57 61 25  29 0d 3d ae 0e f2 6b 28  |c%.n(Wa%).=...k(|
00007290  53 61 25 29 3a 3d b9 0d  3d cc 22 dd f2 4c 3a ea  |Sa%):=..=."..L:.|
000072a0  4a 25 2c 69 25 2c 61 25  2c 6e 25 3a 4a 25 3d b9  |J%,i%,a%,n%:J%=.|
000072b0  3a e7 45 25 3c 3e 59 25  e1 0d 3d e0 25 e7 44 62  |:.E%<>Y%..=.%.Db|
000072c0  25 3d 2d 32 20 4a 25 3d  a4 78 28 30 29 8b e7 44  |%=-2 J%=.x(0)..D|
000072d0  62 25 3e 3d 30 20 4a 25  3d a4 79 28 30 29 0d 3d  |b%>=0 J%=.y(0).=|
000072e0  ea 0a e7 4a 25 3d a3 e1  0d 3d f4 6b 69 25 3d 30  |...J%=...=.ki%=0|
000072f0  3a 6e 25 3d 56 25 3a c8  95 4d 25 3f 69 25 3d 30  |:n%=V%:..M%?i%=0|
00007300  80 69 25 3c 53 25 3a 6e  25 2b 3d 21 6e 25 3a 69  |.i%<S%:n%+=!n%:i|
00007310  25 2b 3d 31 3a ce 3a e7  69 25 3e 3d 53 25 85 39  |%+=1:.:.i%>=S%.9|
00007320  39 39 2c 22 37 20 2d 20  41 6c 6c 6f 77 65 64 20  |99,"7 - Allowed |
00007330  74 6f 20 65 64 69 74 20  75 73 65 72 20 77 68 65  |to edit user whe|
00007340  6e 20 6e 6f 74 68 69 6e  67 20 73 65 6c 65 63 74  |n nothing select|
00007350  65 64 22 0d 3e 08 51 f2  62 28 57 61 25 2c 34 2c  |ed".>.Q.b(Wa%,4,|
00007360  24 28 6e 25 2b 34 29 2c  31 29 3a f2 62 28 57 61  |$(n%+4),1):.b(Wa|
00007370  25 2c 31 2c 24 28 6e 25  2b 35 2b a9 28 24 28 6e  |%,1,$(n%+5+.($(n|
00007380  25 2b 34 29 29 29 2c 31  29 3a f2 6a 28 57 61 25  |%+4))),1):.j(Wa%|
00007390  29 3a f2 74 28 57 61 25  2c 34 29 3a 44 62 25 3d  |):.t(Wa%,4):Db%=|
000073a0  69 25 3a e1 0d 3e 26 18  dd f2 50 61 3a ea 69 25  |i%:..>&...Pa:.i%|
000073b0  2c 6e 25 3a e7 45 25 3c  3e 59 25 e1 0d 3e 44 6b  |,n%:.E%<>Y%..>Dk|
000073c0  69 25 3d 30 3a 6e 25 3d  56 25 3a c8 95 4d 25 3f  |i%=0:n%=V%:..M%?|
000073d0  69 25 3d 30 80 69 25 3c  53 25 3a 6e 25 2b 3d 21  |i%=0.i%<S%:n%+=!|
000073e0  6e 25 3a 69 25 2b 3d 31  3a ce 3a e7 69 25 3e 3d  |n%:i%+=1:.:.i%>=|
000073f0  53 25 85 39 39 39 2c 22  38 20 2d 20 41 6c 6c 6f  |S%.999,"8 - Allo|
00007400  77 65 64 20 74 6f 20 70  6c 6f 74 20 75 73 65 72  |wed to plot user|
00007410  20 77 68 65 6e 20 6e 6f  74 68 69 6e 67 20 73 65  | when nothing se|
00007420  6c 65 63 74 65 64 22 0d  3e 58 0f f2 6c 62 28 6e  |lected".>X..lb(n|
00007430  25 2b 34 29 3a e1 0d 3e  62 6a dd a4 79 28 48 63  |%+4):..>bj..y(Hc|
00007440  25 29 3a ea 79 24 2c 46  24 2c 66 24 2c 64 24 2c  |%):.y$,F$,f$,d$,|
00007450  49 63 25 2c 6c 25 2c 6e  25 2c 69 25 2c 64 25 2c  |Ic%,l%,n%,i%,d%,|
00007460  41 63 25 3a e7 44 62 25  3c 30 85 39 39 39 2c 22  |Ac%:.Db%<0.999,"|
00007470  39 20 2d 20 41 6c 6c 6f  77 65 64 20 74 6f 20 63  |9 - Allowed to c|
00007480  6c 6f 73 65 20 65 64 69  74 20 75 73 65 72 20 77  |lose edit user w|
00007490  68 65 6e 20 6e 6f 74 20  65 64 69 74 69 6e 67 22  |hen not editing"|
000074a0  0d 3e 8a b0 6e 25 3d 56  25 3a 69 25 3d 30 3a c8  |.>..n%=V%:i%=0:.|
000074b0  95 69 25 3c 44 62 25 3a  6e 25 2b 3d 21 6e 25 3a  |.i%<Db%:n%+=!n%:|
000074c0  69 25 2b 3d 31 3a ce 3a  79 24 3d 24 28 6e 25 2b  |i%+=1:.:y$=$(n%+|
000074d0  34 29 3a 46 24 3d 24 28  6e 25 2b 35 2b a9 79 24  |4):F$=$(n%+5+.y$|
000074e0  29 3a 49 63 25 3d 21 6e  25 3a 66 24 3d a4 62 28  |):Ic%=!n%:f$=.b(|
000074f0  57 61 25 2c 34 29 3a 64  24 3d a4 62 28 57 61 25  |Wa%,4):d$=.b(Wa%|
00007500  2c 31 29 3a e7 66 24 3d  22 22 84 64 24 3d 22 22  |,1):.f$="".d$=""|
00007510  64 25 3d a4 61 28 22 59  6f 75 20 6d 75 73 74 20  |d%=.a("You must |
00007520  65 6e 74 65 72 20 73 6f  6d 65 74 68 69 6e 67 20  |enter something |
00007530  69 6e 74 6f 20 62 6f 74  68 20 66 69 65 6c 64 73  |into both fields|
00007540  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a 3d a3  |","OK","",""):=.|
00007550  0d 3e b2 14 e7 66 24 3c  3e 79 24 66 24 3d a4 7a  |.>...f$<>y$f$=.z|
00007560  28 66 24 29 0d 3e bc 0c  e7 66 24 3d 22 22 3d a3  |(f$).>...f$=""=.|
00007570  0d 3e c6 19 64 24 3d a4  73 28 64 24 2c 66 24 29  |.>..d$=.s(d$,f$)|
00007580  3a e7 64 24 3d 22 22 3d  a3 0d 3e da 50 6c 25 3d  |:.d$=""=..>.Pl%=|
00007590  28 a9 66 24 2b a9 64 24  2b 31 30 29 80 ac 33 3a  |(.f$+.d$+10)..3:|
000075a0  4a 25 3d b9 3a 41 63 25  3d 56 25 3a e7 6c 25 3e  |J%=.:Ac%=V%:.l%>|
000075b0  49 63 25 4a 25 3d a4 56  28 6e 25 2c 6c 25 2d 49  |Ic%J%=.V(n%,l%-I|
000075c0  63 25 29 8b e7 6c 25 3c  49 63 25 f2 6d 62 28 6e  |c%)..l%<Ic%.mb(n|
000075d0  25 2c 49 63 25 2d 6c 25  29 0d 3e ee 0b e7 4a 25  |%,Ic%-l%).>...J%|
000075e0  3d a3 3d a3 0d 3e f8 5d  6e 25 2b 3d 28 56 25 2d  |=.=..>.]n%+=(V%-|
000075f0  41 63 25 29 3a 21 6e 25  3d 6c 25 3a 24 28 6e 25  |Ac%):!n%=l%:$(n%|
00007600  2b 34 29 3d 66 24 3a 24  28 6e 25 2b 35 2b a9 66  |+4)=f$:$(n%+5+.f|
00007610  24 29 3d 64 24 3a f2 42  28 59 25 2c 30 2c 2d 34  |$)=d$:.B(Y%,0,-4|
00007620  30 2d 33 36 2a 44 62 25  2c 33 32 30 2c 2d 33 36  |0-36*Db%,320,-36|
00007630  2a 44 62 25 29 3a e7 48  63 25 f2 6e 28 57 61 25  |*Db%):.Hc%.n(Wa%|
00007640  29 0d 3f 16 11 f2 69 3a  f2 6b 28 53 61 25 29 3a  |).?...i:.k(Sa%):|
00007650  3d b9 0d 3f 34 5b dd a4  7a 28 6e 24 29 3a ea 69  |=..?4[..z(n$):.i|
00007660  25 2c 6e 25 2c 4a 25 2c  61 24 2c 64 25 2c 65 24  |%,n%,J%,a$,d%,e$|
00007670  3a e3 69 25 3d 31 b8 a9  6e 24 3a 61 24 3d c1 6e  |:.i%=1..n$:a$=.n|
00007680  24 2c 69 25 2c 31 29 3a  e7 61 24 3e 3d 22 41 22  |$,i%,1):.a$>="A"|
00007690  80 61 24 3c 3d 22 5a 22  c1 6e 24 2c 69 25 2c 31  |.a$<="Z".n$,i%,1|
000076a0  29 3d bd 28 97 28 61 24  29 2b 33 32 29 0d 3f 52  |)=.(.(a$)+32).?R|
000076b0  6c ed 3a e7 c0 6e 24 2c  31 29 3d 22 78 22 64 25  |l.:..n$,1)="x"d%|
000076c0  3d a4 61 28 6e 24 2b 22  28 78 29 20 69 73 20 61  |=.a(n$+"(x) is a|
000076d0  6e 20 69 6e 76 61 6c 69  64 20 6e 61 6d 65 20 62  |n invalid name b|
000076e0  65 63 61 75 73 65 20 74  68 65 20 66 69 72 73 74  |ecause the first|
000076f0  20 63 68 61 72 61 63 74  65 72 20 63 61 6e 6e 6f  | character canno|
00007700  74 20 62 65 20 27 78 27  22 2c 22 4f 4b 22 2c 22  |t be 'x'","OK","|
00007710  22 2c 22 22 29 3a 3d 22  22 0d 3f 66 67 e7 c2 6e  |",""):="".?fg..n|
00007720  24 29 3d 22 78 22 64 25  3d a4 61 28 6e 24 2b 22  |$)="x"d%=.a(n$+"|
00007730  28 78 29 20 69 73 20 61  6e 20 69 6e 76 61 6c 69  |(x) is an invali|
00007740  64 20 6e 61 6d 65 20 62  65 63 61 75 73 65 20 74  |d name because t|
00007750  68 65 20 6c 61 73 74 20  63 68 61 72 61 63 74 65  |he last characte|
00007760  72 20 63 61 6e 6e 6f 74  20 62 65 20 27 78 27 22  |r cannot be 'x'"|
00007770  2c 22 4f 4b 22 2c 22 22  2c 22 22 29 3a 3d 22 22  |,"OK","",""):=""|
00007780  0d 3f 70 68 4a 25 3d a4  42 28 6e 24 2c 64 25 29  |.?phJ%=.B(n$,d%)|
00007790  3a 65 24 3d 6e 24 2b 22  28 78 29 20 69 73 20 61  |:e$=n$+"(x) is a|
000077a0  6e 20 69 6e 76 61 6c 69  64 20 6e 61 6d 65 20 66  |n invalid name f|
000077b0  6f 72 20 61 20 66 75 6e  63 74 69 6f 6e 20 62 65  |or a function be|
000077c0  63 61 75 73 65 20 69 74  20 69 73 20 61 6c 72 65  |cause it is alre|
000077d0  61 64 79 20 64 65 66 69  6e 65 64 20 61 73 20 61  |ady defined as a|
000077e0  20 22 3a c8 8e 4a 25 ca  0d 3f 84 2c c9 31 3a 64  | ":..J%..?.,.1:d|
000077f0  25 3d a4 61 28 65 24 2b  22 42 41 53 49 43 20 66  |%=.a(e$+"BASIC f|
00007800  75 6e 63 74 69 6f 6e 22  2c 22 4f 4b 22 2c 22 22  |unction","OK",""|
00007810  2c 22 22 29 0d 3f 98 2d  c9 32 3a 64 25 3d a4 61  |,"").?.-.2:d%=.a|
00007820  28 65 24 2b 22 70 72 65  73 65 74 20 66 75 6e 63  |(e$+"preset func|
00007830  74 69 6f 6e 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |tion","OK","",""|
00007840  29 0d 3f a2 2b c9 33 3a  64 25 3d a4 61 28 65 24  |).?.+.3:d%=.a(e$|
00007850  2b 22 75 73 65 72 20 66  75 6e 63 74 69 6f 6e 22  |+"user function"|
00007860  2c 22 4f 4b 22 2c 22 22  2c 22 22 29 0d 3f ac 35  |,"OK","","").?.5|
00007870  c9 34 3a 64 25 3d a4 61  28 65 24 2b 22 75 6e 61  |.4:d%=.a(e$+"una|
00007880  72 79 20 6f 70 65 72 61  74 6f 72 20 69 6e 20 42  |ry operator in B|
00007890  41 53 49 43 22 2c 22 4f  4b 22 2c 22 22 2c 22 22  |ASIC","OK","",""|
000078a0  29 0d 3f b6 36 c9 35 3a  64 25 3d a4 61 28 65 24  |).?.6.5:d%=.a(e$|
000078b0  2b 22 62 69 6e 61 72 79  20 6f 70 65 72 61 74 6f  |+"binary operato|
000078c0  72 20 69 6e 20 42 41 53  49 43 22 2c 22 4f 4b 22  |r in BASIC","OK"|
000078d0  2c 22 22 2c 22 22 29 0d  3f c0 2f c9 36 3a 64 25  |,"","").?./.6:d%|
000078e0  3d a4 61 28 65 24 2b 22  63 6f 6e 73 74 61 6e 74  |=.a(e$+"constant|
000078f0  20 69 6e 20 42 41 53 49  43 22 2c 22 4f 4b 22 2c  | in BASIC","OK",|
00007900  22 22 2c 22 22 29 0d 3f  ca 05 cb 0d 3f ca 10 e7  |"","").?....?...|
00007910  4a 25 3d 30 3d 6e 24 8b  3d 22 22 0d 3f d4 75 dd  |J%=0=n$.="".?.u.|
00007920  a4 73 28 64 24 2c 66 24  29 3a ea 69 25 2c 62 25  |.s(d$,f$):.i%,b%|
00007930  2c 4a 63 25 2c 6c 25 2c  6c 24 2c 6e 25 2c 6e 24  |,Jc%,l%,l$,n%,n$|
00007940  2c 70 24 2c 6f 24 2c 4a  25 2c 4b 63 25 2c 64 25  |,p$,o$,J%,Kc%,d%|
00007950  2c 73 24 3a 4a 63 25 3d  a3 3a 62 25 3d 30 3a e3  |,s$:Jc%=.:b%=0:.|
00007960  69 25 3d 31 b8 a9 64 24  3a e7 c1 64 24 2c 69 25  |i%=1..d$:..d$,i%|
00007970  2c 31 29 3d 22 28 22 62  25 2b 3d 31 8b e7 c1 64  |,1)="("b%+=1...d|
00007980  24 2c 69 25 2c 31 29 3d  22 29 22 62 25 2d 3d 31  |$,i%,1)=")"b%-=1|
00007990  0d 40 06 0f e7 62 25 3c  30 20 4a 63 25 3d b9 0d  |.@...b%<0 Jc%=..|
000079a0  40 10 3d ed 3a e7 62 25  3e 30 20 69 25 3d a4 61  |@.=.:.b%>0 i%=.a|
000079b0  28 22 4d 69 73 73 69 6e  67 20 27 29 27 20 69 6e  |("Missing ')' in|
000079c0  20 64 65 66 69 6e 69 74  69 6f 6e 22 2c 22 4f 4b  | definition","OK|
000079d0  22 2c 22 22 2c 22 22 29  3a 3d 22 22 0d 40 24 4c  |","",""):="".@$L|
000079e0  e7 62 25 3c 30 20 69 25  3d a4 61 28 22 4d 69 73  |.b%<0 i%=.a("Mis|
000079f0  73 69 6e 67 20 27 28 27  20 6f 72 20 74 6f 6f 20  |sing '(' or too |
00007a00  6d 61 6e 79 20 27 29 27  73 20 69 6e 20 64 65 66  |many ')'s in def|
00007a10  69 6e 69 74 69 6f 6e 22  2c 22 4f 4b 22 2c 22 22  |inition","OK",""|
00007a20  2c 22 22 29 3a 3d 22 22  0d 40 2e 4a e7 4a 63 25  |,""):="".@.J.Jc%|
00007a30  69 25 3d a4 61 28 22 27  29 27 20 62 65 66 6f 72  |i%=.a("')' befor|
00007a40  65 20 63 6f 72 72 65 73  70 6f 6e 64 69 6e 67 20  |e corresponding |
00007a50  27 28 27 20 69 6e 20 64  65 66 69 6e 69 74 69 6f  |'(' in definitio|
00007a60  6e 22 2c 22 4f 4b 22 2c  22 22 2c 22 22 29 3a 3d  |n","OK","",""):=|
00007a70  22 22 0d 40 38 5c 6e 25  3d 37 3a 6e 24 3d 22 22  |"".@8\n%=7:n$=""|
00007a80  3a 70 24 3d 64 24 3a 6f  24 3d 22 22 3a 4b 63 25  |:p$=d$:o$="":Kc%|
00007a90  3d 30 3a f5 3a 6c 25 3d  6e 25 3a 6c 24 3d 6e 24  |=0:.:l%=n%:l$=n$|
00007aa0  3a 6e 24 3d a4 6e 28 70  24 2c 73 24 29 3a 6e 25  |:n$=.n(p$,s$):n%|
00007ab0  3d a4 49 28 6e 24 2c 64  25 29 3a 6f 24 2b 3d 73  |=.I(n$,d%):o$+=s|
00007ac0  24 2b 6e 24 3a e7 64 25  4b 63 25 2b 3d 31 0d 40  |$+n$:.d%Kc%+=1.@|
00007ad0  4c 30 4a 25 3d 62 25 28  6e 25 2a 38 2b 6c 25 29  |L0J%=b%(n%*8+l%)|
00007ae0  3a e7 4a 25 3d 30 80 6e  24 3d 22 2d 22 6e 25 3d  |:.J%=0.n$="-"n%=|
00007af0  35 3a 4a 25 3d 62 25 28  34 30 2b 6c 25 29 0d 40  |5:J%=b%(40+l%).@|
00007b00  56 15 e7 4a 25 3d 30 20  70 24 3d 22 22 3a 4a 25  |V..J%=0 p$="":J%|
00007b10  3d 2d 31 0d 40 60 54 fd  6e 25 3d 37 84 4a 25 3d  |=-1.@`T.n%=7.J%=|
00007b20  2d 31 3a e7 4a 25 3d 2d  31 20 69 25 3d a4 61 28  |-1:.J%=-1 i%=.a(|
00007b30  22 45 72 72 6f 72 20 69  6e 20 64 65 66 69 6e 69  |"Error in defini|
00007b40  74 69 6f 6e 20 77 69 74  68 3a 20 27 22 2b 6c 24  |tion with: '"+l$|
00007b50  2b 6e 24 2b 22 27 22 2c  22 4f 4b 22 2c 22 22 2c  |+n$+"'","OK","",|
00007b60  22 22 29 3a 3d 22 22 0d  40 74 56 e7 66 24 3c 3e  |""):="".@tV.f$<>|
00007b70  22 22 e7 a4 48 28 66 24  2c 6f 24 29 69 25 3d a4  |""..H(f$,o$)i%=.|
00007b80  61 28 22 52 65 63 75 72  73 69 76 65 20 64 65 66  |a("Recursive def|
00007b90  69 6e 69 74 69 6f 6e 73  20 63 61 6e 6e 6f 74 20  |initions cannot |
00007ba0  62 65 20 65 76 61 6c 75  61 74 65 64 22 2c 22 4f  |be evaluated","O|
00007bb0  4b 22 2c 22 22 2c 22 22  29 3a 3d 22 22 0d 40 7e  |K","",""):="".@~|
00007bc0  67 e7 4b 63 25 3e 30 20  69 25 3d a4 61 28 22 44  |g.Kc%>0 i%=.a("D|
00007bd0  65 66 69 6e 69 74 69 6f  6e 20 63 6f 6e 74 61 69  |efinition contai|
00007be0  6e 73 20 22 2b c3 4b 63  25 2b 22 20 61 73 20 79  |ns "+.Kc%+" as y|
00007bf0  65 74 20 75 6e 64 65 66  69 6e 65 64 20 66 75 6e  |et undefined fun|
00007c00  63 74 69 6f 6e 28 73 29  22 2c 22 4f 4b 22 2c 22  |ction(s)","OK","|
00007c10  57 68 6f 6f 70 73 22 2c  22 22 29 3a e7 69 25 3d  |Whoops",""):.i%=|
00007c20  31 3d 22 22 0d 40 88 07  3d 6f 24 0d 40 a6 44 dd  |1="".@..=o$.@.D.|
00007c30  a4 6e 28 f8 67 24 2c f8  44 24 29 3a ea 6b 24 3a  |.n(.g$,.D$):.k$:|
00007c40  44 24 3d 22 22 3a c8 95  c0 67 24 2c 31 29 3d 22  |D$="":...g$,1)="|
00007c50  20 22 3a 67 24 3d c1 67  24 2c 32 29 3a 44 24 3d  | ":g$=.g$,2):D$=|
00007c60  22 20 22 3a ce 3a e7 67  24 3d 22 22 3d 22 22 0d  |" ":.:.g$=""="".|
00007c70  40 c4 0d c8 8e c0 67 24  2c 31 29 ca 0d 40 ce 32  |@.....g$,1)..@.2|
00007c80  c9 22 2b 22 2c 22 2d 22  2c 22 2f 22 2c 22 2a 22  |."+","-","/","*"|
00007c90  2c 22 5e 22 2c 22 28 22  2c 22 29 22 2c 22 78 22  |,"^","(",")","x"|
00007ca0  2c 22 58 22 3a 6b 24 3d  c0 67 24 2c 31 29 0d 40  |,"X":k$=.g$,1).@|
00007cb0  e2 3a c9 22 30 22 2c 22  31 22 2c 22 32 22 2c 22  |.:."0","1","2","|
00007cc0  33 22 2c 22 34 22 2c 22  35 22 2c 22 36 22 2c 22  |3","4","5","6","|
00007cd0  37 22 2c 22 38 22 2c 22  39 22 2c 22 2e 22 3a 6b  |7","8","9",".":k|
00007ce0  24 3d a4 57 28 67 24 29  0d 40 ec 0e 7f 6b 24 3d  |$=.W(g$).@...k$=|
00007cf0  a4 58 28 67 24 29 0d 40  f6 05 cb 0d 40 f6 17 67  |.X(g$).@....@..g|
00007d00  24 3d c1 67 24 2c a9 28  6b 24 29 2b 31 29 3a 3d  |$=.g$,.(k$)+1):=|
00007d10  6b 24 0d 41 14 51 dd a4  57 28 69 24 29 3a ea 6f  |k$.A.Q..W(i$):.o|
00007d20  24 3a 6f 24 3d 22 22 3a  c8 95 a7 22 30 31 32 33  |$:o$="":..."0123|
00007d30  34 35 36 37 38 39 2e 22  2c c0 69 24 2c 31 29 29  |456789.",.i$,1))|
00007d40  80 a9 28 69 24 29 3e 30  3a 6f 24 2b 3d c0 69 24  |..(i$)>0:o$+=.i$|
00007d50  2c 31 29 3a 69 24 3d c1  69 24 2c 32 29 3a ce 3a  |,1):i$=.i$,2):.:|
00007d60  3d 6f 24 0d 41 46 90 dd  a4 58 28 69 24 29 3a ea  |=o$.AF...X(i$):.|
00007d70  6f 24 3a 6f 24 3d 22 22  3a c8 95 a7 22 41 42 43  |o$:o$="":..."ABC|
00007d80  44 45 46 47 48 49 4a 4b  4c 4d 4e 4f 50 51 52 53  |DEFGHIJKLMNOPQRS|
00007d90  54 55 56 57 58 59 5a 61  62 63 64 65 66 67 68 69  |TUVWXYZabcdefghi|
00007da0  6a 6b 6c 6d 6e 6f 70 71  72 73 74 75 76 77 78 79  |jklmnopqrstuvwxy|
00007db0  7a 22 2c c0 69 24 2c 31  29 29 80 a9 28 69 24 29  |z",.i$,1))..(i$)|
00007dc0  3e 30 3a 6f 24 2b 3d c0  69 24 2c 31 29 3a 69 24  |>0:o$+=.i$,1):i$|
00007dd0  3d c1 69 24 2c 32 29 3a  ce 3a e7 c2 6f 24 29 3d  |=.i$,2):.:..o$)=|
00007de0  22 58 22 84 c2 6f 24 29  3d 22 78 22 6f 24 3d c0  |"X"..o$)="x"o$=.|
00007df0  6f 24 29 0d 41 64 07 3d  6f 24 0d 41 82 2b dd a4  |o$).Ad.=o$.A.+..|
00007e00  49 28 f8 63 24 2c f8 75  25 29 3a ea 74 25 2c 66  |I(.c$,.u%):.t%,f|
00007e10  25 2c 69 25 2c 61 25 3a  75 25 3d 30 3a e7 63 24  |%,i%,a%:u%=0:.c$|
00007e20  3d 22 22 3d 37 0d 41 96  12 74 25 3d 31 3a c8 8e  |=""=7.A..t%=1:..|
00007e30  c0 63 24 2c 31 29 ca 0d  41 a0 35 c9 22 30 22 2c  |.c$,1)..A.5."0",|
00007e40  22 31 22 2c 22 32 22 2c  22 33 22 2c 22 34 22 2c  |"1","2","3","4",|
00007e50  22 35 22 2c 22 36 22 2c  22 37 22 2c 22 38 22 2c  |"5","6","7","8",|
00007e60  22 39 22 2c 22 2e 22 3a  74 25 3d 30 0d 41 b4 0d  |"9",".":t%=0.A..|
00007e70  c9 22 28 22 3a 74 25 3d  32 0d 41 be 0d c9 22 29  |."(":t%=2.A...")|
00007e80  22 3a 74 25 3d 33 0d 41  c8 0d c9 22 2d 22 3a 74  |":t%=3.A..."-":t|
00007e90  25 3d 34 0d 41 d2 19 c9  22 2b 22 2c 22 2a 22 2c  |%=4.A..."+","*",|
00007ea0  22 2f 22 2c 22 5e 22 3a  74 25 3d 35 0d 41 dc 18  |"/","^":t%=5.A..|
00007eb0  c9 22 78 22 2c 22 58 22  3a 63 24 3d 22 78 22 3a  |."x","X":c$="x":|
00007ec0  74 25 3d 36 0d 41 e6 05  cb 0d 41 e6 0d e7 74 25  |t%=6.A....A...t%|
00007ed0  3c 3e 31 3d 74 25 0d 41  f0 1c 66 25 3d a4 42 28  |<>1=t%.A..f%=.B(|
00007ee0  63 24 2c 69 25 29 3a e7  66 25 3e 33 20 74 25 3d  |c$,i%):.f%>3 t%=|
00007ef0  66 25 0d 41 fa 0e e7 66  25 3d 30 20 75 25 3d b9  |f%.A...f%=0 u%=.|
00007f00  0d 42 04 09 c8 8e 66 25  ca 0d 42 0e 45 c9 30 2c  |.B....f%..B.E.0,|
00007f10  32 2c 33 3a e3 69 25 3d  31 b8 a9 63 24 3a 61 25  |2,3:.i%=1..c$:a%|
00007f20  3d 97 28 c1 63 24 2c 69  25 2c 31 29 29 3a e7 61  |=.(.c$,i%,1)):.a|
00007f30  25 3e 36 34 80 61 25 3c  39 31 c1 63 24 2c 69 25  |%>64.a%<91.c$,i%|
00007f40  2c 31 29 3d bd 28 61 25  2b 33 32 29 3a ed 0d 42  |,1)=.(a%+32):..B|
00007f50  22 48 c9 31 2c 34 2c 35  2c 36 3a e3 69 25 3d 31  |"H.1,4,5,6:.i%=1|
00007f60  b8 a9 63 24 3a 61 25 3d  97 28 c1 63 24 2c 69 25  |..c$:a%=.(.c$,i%|
00007f70  2c 31 29 29 3a e7 61 25  3e 39 36 80 61 25 3c 31  |,1)):.a%>96.a%<1|
00007f80  32 33 c1 63 24 2c 69 25  2c 31 29 3d bd 28 61 25  |23.c$,i%,1)=.(a%|
00007f90  2d 33 32 29 3a ed 0d 42  36 05 cb 0d 42 40 07 3d  |-32):..B6...B@.=|
00007fa0  74 25 0d 42 72 57 dd a4  42 28 66 24 2c f8 6d 25  |t%.BrW..B(f$,.m%|
00007fb0  29 3a ea 6f 25 2c 61 25  2c 6e 25 2c 69 25 3a e3  |):.o%,a%,n%,i%:.|
00007fc0  69 25 3d 31 b8 a9 66 24  3a 61 25 3d 97 28 c1 66  |i%=1..f$:a%=.(.f|
00007fd0  24 2c 69 25 2c 31 29 29  3a e7 61 25 3e 36 34 80  |$,i%,1)):.a%>64.|
00007fe0  61 25 3c 39 31 c1 66 24  2c 69 25 2c 31 29 3d bd  |a%<91.f$,i%,1)=.|
00007ff0  28 61 25 2b 33 32 29 3a  ed 0d 42 90 3a 6f 25 3d  |(a%+32):..B.:o%=|
00008000  30 3a 69 25 3d 30 3a 6e  25 3d 65 63 25 3a c8 95  |0:i%=0:n%=ec%:..|
00008010  69 25 3c 52 62 25 3a e7  66 24 3d 24 28 6e 25 2b  |i%<Rb%:.f$=$(n%+|
00008020  34 29 69 25 3d 52 62 25  3a 6f 25 3d 32 3a 6d 25  |4)i%=Rb%:o%=2:m%|
00008030  3d 6e 25 0d 42 a4 1b 6e  25 2b 3d 21 6e 25 3a 69  |=n%.B..n%+=!n%:i|
00008040  25 2b 3d 31 3a ce 3a e7  6f 25 3d 32 3d 32 0d 42  |%+=1:.:.o%=2=2.B|
00008050  b8 32 69 25 3d 30 3a 6e  25 3d 56 25 3a c8 95 69  |.2i%=0:n%=V%:..i|
00008060  25 3c 53 25 3a e7 66 24  3d 24 28 6e 25 2b 34 29  |%<S%:.f$=$(n%+4)|
00008070  69 25 3d 53 25 3a 6f 25  3d 33 3a 6d 25 3d 6e 25  |i%=S%:o%=3:m%=n%|
00008080  0d 42 cc 1b 6e 25 2b 3d  21 6e 25 3a 69 25 2b 3d  |.B..n%+=!n%:i%+=|
00008090  31 3a ce 3a e7 6f 25 3d  33 3d 33 0d 42 e0 3f e3  |1:.:.o%=3=3.B.?.|
000080a0  69 25 3d 31 b8 a9 66 24  3a 61 25 3d 97 28 c1 66  |i%=1..f$:a%=.(.f|
000080b0  24 2c 69 25 2c 31 29 29  3a e7 61 25 3e 39 36 80  |$,i%,1)):.a%>96.|
000080c0  61 25 3c 31 32 33 c1 66  24 2c 69 25 2c 31 29 3d  |a%<123.f$,i%,1)=|
000080d0  bd 28 61 25 2d 33 32 29  3a ed 0d 42 f4 36 69 25  |.(a%-32):..B.6i%|
000080e0  3d 30 3a 6e 25 3d 47 63  25 3a 6f 25 3d 2d 31 3a  |=0:n%=Gc%:o%=-1:|
000080f0  c8 95 69 25 3c 32 35 3a  e7 66 24 3d 24 6e 25 6f  |..i%<25:.f$=$n%o|
00008100  25 3d 69 25 3a 69 25 3d  32 35 3a 6d 25 3d 6e 25  |%=i%:i%=25:m%=n%|
00008110  0d 42 fe 21 6e 25 2b 3d  a9 28 24 6e 25 29 2b 31  |.B.!n%+=.($n%)+1|
00008120  3a 69 25 2b 3d 31 3a ce  3a e7 6f 25 3d 2d 31 3d  |:i%+=1:.:.o%=-1=|
00008130  30 0d 43 12 0c e7 6f 25  3c 31 36 3d 31 0d 43 1c  |0.C...o%<16=1.C.|
00008140  0c e7 6f 25 3d 31 36 3d  34 0d 43 26 0c e7 6f 25  |..o%=16=4.C&..o%|
00008150  3c 32 32 3d 35 0d 43 30  06 3d 36 0d 43 4e 6d dd  |<22=5.C0.=6.CNm.|
00008160  a4 48 28 66 24 2c 64 24  29 3a ea 6d 25 2c 6e 24  |.H(f$,d$):.m%,n$|
00008170  2c 73 24 2c 74 25 2c 61  25 2c 4c 63 25 3a 74 25  |,s$,t%,a%,Lc%:t%|
00008180  3d a3 3a f5 3a 6e 24 3d  a4 6e 28 64 24 2c 73 24  |=.:.:n$=.n(d$,s$|
00008190  29 3a 61 25 3d 97 28 6e  24 29 3a e7 28 61 25 3e  |):a%=.(n$):.(a%>|
000081a0  36 34 80 61 25 3c 39 31  80 61 25 3c 3e 38 38 29  |64.a%<91.a%<>88)|
000081b0  84 28 61 25 3e 39 36 80  61 25 3c 31 32 33 80 61  |.(a%>96.a%<123.a|
000081c0  25 3c 3e 31 32 30 29 8c  0d 43 6c 19 4c 63 25 3d  |%<>120)..Cl.Lc%=|
000081d0  a4 42 28 6e 24 2c 6d 25  29 3a e7 4c 63 25 3d 33  |.B(n$,m%):.Lc%=3|
000081e0  8c 0d 43 76 2b e7 6e 24  3d 66 24 74 25 3d b9 8b  |..Cv+.n$=f$t%=..|
000081f0  74 25 3d a4 48 28 66 24  2c 24 28 6d 25 2b 35 2b  |t%=.H(f$,$(m%+5+|
00008200  a9 28 24 28 6d 25 2b 34  29 29 29 29 0d 43 80 16  |.($(m%+4)))).C..|
00008210  cc 3a e7 4c 63 25 3d 30  80 6e 24 3d 66 24 74 25  |.:.Lc%=0.n$=f$t%|
00008220  3d b9 0d 43 94 05 cd 0d  43 9e 05 cd 0d 43 a8 11  |=..C....C....C..|
00008230  fd 64 24 3d 22 22 84 74  25 3a 3d 74 25 0d 43 d0  |.d$="".t%:=t%.C.|
00008240  22 dd a4 56 28 60 25 2c  6c 25 29 3a ea 74 25 2c  |"..V(`%,l%):.t%,|
00008250  64 25 2c 41 63 25 3a e7  6c 25 3c 3d 30 3d b9 0d  |d%,Ac%:.l%<=0=..|
00008260  43 e4 17 41 63 25 3d 56  25 3a e7 76 63 25 2b 6c  |C..Ac%=V%:.vc%+l|
00008270  25 3e 44 63 25 8c 0d 43  ee 6f 74 25 3d a4 6a 28  |%>Dc%..C.ot%=.j(|
00008280  56 25 2c 32 30 34 38 29  3a e7 74 25 3c 3e 30 20  |V%,2048):.t%<>0 |
00008290  56 25 3d 74 25 3a 44 63  25 2b 3d 32 30 34 38 8b  |V%=t%:Dc%+=2048.|
000082a0  64 25 3d a4 61 28 22 55  6e 61 62 6c 65 20 74 6f  |d%=.a("Unable to|
000082b0  20 73 74 6f 72 65 20 66  75 6e 63 74 69 6f 6e 20  | store function |
000082c0  64 75 65 20 74 6f 20 6c  61 63 6b 20 6f 66 20 6d  |due to lack of m|
000082d0  65 6d 6f 72 79 22 2c 22  4f 4b 22 2c 22 22 2c 22  |emory","OK","","|
000082e0  22 29 3a 3d a3 0d 44 02  05 cd 0d 44 0c 2f 60 25  |"):=..D....D./`%|
000082f0  2b 3d 28 56 25 2d 41 63  25 29 3a f2 72 28 60 25  |+=(V%-Ac%):.r(`%|
00008300  2c 56 25 2b 76 63 25 2c  60 25 2b 6c 25 29 3a 76  |,V%+vc%,`%+l%):v|
00008310  63 25 2b 3d 6c 25 3a 3d  b9 0d 44 34 53 dd f2 6d  |c%+=l%:=..D4S..m|
00008320  62 28 60 25 2c 6c 25 29  3a f2 72 28 60 25 2b 6c  |b(`%,l%):.r(`%+l|
00008330  25 2c 56 25 2b 76 63 25  2c 60 25 29 3a 76 63 25  |%,V%+vc%,`%):vc%|
00008340  2d 3d 6c 25 3a e7 76 63  25 3c 44 63 25 2d 32 30  |-=l%:.vc%<Dc%-20|
00008350  34 38 20 56 25 3d a4 6a  28 56 25 2c 2d 32 30 34  |48 V%=.j(V%,-204|
00008360  38 29 3a 44 63 25 2d 3d  32 30 34 38 0d 44 48 05  |8):Dc%-=2048.DH.|
00008370  e1 0d 44 52 1b dd f2 4d  3a ea 69 25 2c 6e 25 2c  |..DR...M:.i%,n%,|
00008380  41 63 25 3a e7 45 25 3c  3e 59 25 e1 0d 44 7a 29  |Ac%:.E%<>Y%..Dz)|
00008390  69 25 3d 30 3a 6e 25 3d  56 25 3a c8 95 69 25 3c  |i%=0:n%=V%:..i%<|
000083a0  35 30 30 80 5f 25 3e 3d  30 3a e7 4d 25 3f 69 25  |500._%>=0:.M%?i%|
000083b0  3d 32 35 35 8c 0d 44 8e  46 41 63 25 3d 56 25 3a  |=255..D.FAc%=V%:|
000083c0  f2 6d 62 28 6e 25 2c 21  6e 25 29 3a 53 25 2d 3d  |.mb(n%,!n%):S%-=|
000083d0  31 3a 6e 25 2b 3d 28 56  25 2d 41 63 25 29 3a 4d  |1:n%+=(V%-Ac%):M|
000083e0  25 3f 69 25 3d 30 3a 5f  25 2d 3d 31 3a e7 44 62  |%?i%=0:_%-=1:.Db|
000083f0  25 3d 69 25 f2 6e 28 57  61 25 29 0d 44 ac 0d cc  |%=i%.n(Wa%).D...|
00008400  3a 6e 25 2b 3d 21 6e 25  0d 44 ca 05 cd 0d 44 ca  |:n%+=!n%.D....D.|
00008410  2b 69 25 2b 3d 31 3a ce  3a 45 25 3d 2d 31 3a 69  |+i%+=1:.:E%=-1:i|
00008420  25 3d 33 36 2a 53 25 2b  34 3a e7 69 25 3c 32 30  |%=36*S%+4:.i%<20|
00008430  30 20 69 25 3d 32 30 30  0d 44 e8 2a f2 6c 28 59  |0 i%=200.D.*.l(Y|
00008440  25 2c 30 2c 2d 69 25 2c  32 32 36 2c 30 29 3a f2  |%,0,-i%,226,0):.|
00008450  66 28 59 25 29 3a f2 69  3a f2 6b 28 53 61 25 29  |f(Y%):.i:.k(Sa%)|
00008460  3a e1 0d 44 fc 5e dd f2  69 62 28 4d 63 25 29 3a  |:..D.^..ib(Mc%):|
00008470  ea 69 25 2c 6e 25 3a e7  53 25 3d 30 85 39 39 39  |.i%,n%:.S%=0.999|
00008480  2c 22 31 30 20 2d 20 41  6c 6c 6f 77 65 64 20 74  |,"10 - Allowed t|
00008490  6f 20 73 65 6c 65 63 74  20 6f 66 66 20 73 65 6c  |o select off sel|
000084a0  65 63 74 20 6d 65 6e 75  20 77 68 65 6e 20 6e 6f  |ect menu when no|
000084b0  74 68 69 6e 67 20 74 6f  20 73 65 6c 65 63 74 22  |thing to select"|
000084c0  0d 45 24 3c f2 6d 3a 6e  25 3d 4f 25 3a 69 25 3d  |.E$<.m:n%=O%:i%=|
000084d0  30 3a c8 95 69 25 3c 44  25 3a f2 6e 62 28 24 28  |0:..i%<D%:.nb($(|
000084e0  6e 25 2b 34 29 29 3a 69  25 2b 3d 31 3a 6e 25 2b  |n%+4)):i%+=1:n%+|
000084f0  3d 21 6e 25 3a ce 3a e7  4d 63 25 8c 0d 45 42 37  |=!n%:.:.Mc%..EB7|
00008500  69 25 3d 30 3a c8 95 69  25 3c 53 25 3a e7 4d 25  |i%=0:..i%<S%:.M%|
00008510  3f 69 25 3d 30 20 4d 25  3f 69 25 3d 32 35 35 3a  |?i%=0 M%?i%=255:|
00008520  5f 25 2b 3d 31 8b 4d 25  3f 69 25 3d 30 3a 5f 25  |_%+=1.M%?i%=0:_%|
00008530  2d 3d 31 0d 45 4c 0b 69  25 2b 3d 31 3a ce 0d 45  |-=1.EL.i%+=1:..E|
00008540  60 05 cd 0d 45 60 1c e7  5f 25 3c 30 20 45 25 3d  |`...E`.._%<0 E%=|
00008550  2d 31 8b 45 25 3d 59 25  3a f2 66 28 59 25 29 0d  |-1.E%=Y%:.f(Y%).|
00008560  45 6a 05 e1 0d 45 74 68  dd f2 6e 62 28 64 24 29  |Ej...Eth..nb(d$)|
00008570  3a ea 6e 24 2c 73 24 2c  61 25 2c 69 25 2c 6e 25  |:.n$,s$,a%,i%,n%|
00008580  2c 6a 25 2c 6d 25 3a f5  3a 6e 24 3d a4 6e 28 64  |,j%,m%:.:n$=.n(d|
00008590  24 2c 73 24 29 3a 61 25  3d 97 28 6e 24 29 3a e7  |$,s$):a%=.(n$):.|
000085a0  28 61 25 3e 36 34 80 61  25 3c 39 31 80 61 25 3c  |(a%>64.a%<91.a%<|
000085b0  3e 38 38 29 84 28 61 25  3e 39 36 80 61 25 3c 31  |>88).(a%>96.a%<1|
000085c0  32 33 80 61 25 3c 3e 31  32 30 29 8c 0d 45 a6 2d  |23.a%<>120)..E.-|
000085d0  69 25 3d 30 3a 6e 25 3d  56 25 3a 6a 25 3d 2d 31  |i%=0:n%=V%:j%=-1|
000085e0  3a f5 3a e7 6e 24 3d 24  28 6e 25 2b 34 29 6a 25  |:.:.n$=$(n%+4)j%|
000085f0  3d 69 25 3a 6d 25 3d 6e  25 0d 45 ba 26 69 25 2b  |=i%:m%=n%.E.&i%+|
00008600  3d 31 3a 6e 25 2b 3d 21  6e 25 3a fd 6a 25 3e 3d  |=1:n%+=!n%:.j%>=|
00008610  30 84 69 25 3d 53 25 3a  e7 6a 25 3e 3d 30 8c 0d  |0.i%=S%:.j%>=0..|
00008620  45 ce 1c e7 4d 25 3f 6a  25 3d 30 20 4d 25 3f 6a  |E...M%?j%=0 M%?j|
00008630  25 3d 32 35 35 3a 5f 25  2b 3d 31 0d 45 d8 1b f2  |%=255:_%+=1.E...|
00008640  6e 62 28 24 28 6d 25 2b  35 2b a9 28 24 28 6d 25  |nb($(m%+5+.($(m%|
00008650  2b 34 29 29 29 29 0d 45  ec 05 cd 0d 45 ec 05 cd  |+4)))).E....E...|
00008660  0d 45 f6 0c fd 64 24 3d  22 22 3a e1 0d 46 0a a9  |.E...d$="":..F..|
00008670  dd f2 67 61 3a ea 64 25  2c 69 25 3a 6d 63 25 3d  |..ga:.d%,i%:mc%=|
00008680  35 30 3a de 47 25 20 6d  63 25 2a 34 3a 6e 63 25  |50:.G% mc%*4:nc%|
00008690  3d 32 30 3a de 66 63 25  20 6e 63 25 2a 36 3a 44  |=20:.fc% nc%*6:D|
000086a0  25 3d 30 3a 77 63 25 3d  30 3a 4f 25 3d a4 72 28  |%=0:wc%=0:O%=.r(|
000086b0  32 30 34 38 29 3a e7 4f  25 3d 30 20 64 25 3d a4  |2048):.O%=0 d%=.|
000086c0  61 28 22 49 20 68 61 76  65 20 72 75 6e 20 6f 75  |a("I have run ou|
000086d0  74 20 6f 66 20 6d 65 6d  6f 72 79 20 74 72 79 69  |t of memory tryi|
000086e0  6e 67 20 74 6f 20 61 6c  6c 6f 63 61 74 65 20 6d  |ng to allocate m|
000086f0  65 6d 6f 72 79 20 66 6f  72 20 67 72 61 70 68 73  |emory for graphs|
00008700  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a 63 61  |","OK","",""):ca|
00008710  25 3d b9 3a e1 0d 46 5a  cf 45 63 25 3d 32 30 34  |%=.:..FZ.Ec%=204|
00008720  38 3a de 61 28 35 2c 35  29 3a 6a 3d 2d 31 30 3a  |8:.a(5,5):j=-10:|
00008730  6d 3d 31 30 3a 67 3d 32  3a 6b 3d 2d 31 30 3a 6e  |m=10:g=2:k=-10:n|
00008740  3d 31 30 3a 69 3d 32 3a  e3 69 25 3d 30 b8 35 3a  |=10:i=2:.i%=0.5:|
00008750  f2 6f 62 28 69 25 29 3a  ed 3a 5f 62 25 3d b9 3a  |.ob(i%):.:_b%=.:|
00008760  62 63 25 3d a3 3a 60 62  25 3d 37 3a 61 63 25 3d  |bc%=.:`b%=7:ac%=|
00008770  35 3a 59 62 25 3d 30 3a  5a 62 25 3d 37 3a 45 62  |5:Yb%=0:Zb%=7:Eb|
00008780  25 3d a3 3a 50 62 25 3d  30 3a 6a 24 3d 22 22 3a  |%=.:Pb%=0:j$="":|
00008790  57 25 3d 2d 31 3a 4e 63  25 3d 2d 31 3a 4f 63 25  |W%=-1:Nc%=-1:Oc%|
000087a0  3d 2d 31 3a 53 62 25 3d  30 3a 50 63 25 3d 2d 31  |=-1:Sb%=0:Pc%=-1|
000087b0  3a 46 62 25 3d 30 3a 64  63 25 3d 30 3a 63 63 25  |:Fb%=0:dc%=0:cc%|
000087c0  3d 36 3a de 61 25 28 36  29 3a 61 25 28 29 3d 30  |=6:.a%(6):a%()=0|
000087d0  2c 34 30 2c 32 30 2c 31  30 2c 35 2c 32 2c 31 3a  |,40,20,10,5,2,1:|
000087e0  f2 78 3a e1 0d 46 b4 25  dd f2 65 62 3a ea 69 25  |.x:..F.%..eb:.i%|
000087f0  2c 6e 25 2c 43 62 25 2c  6c 25 2c 74 25 2c 6a 25  |,n%,Cb%,l%,t%,j%|
00008800  3a e7 45 25 3c 3e 48 25  e1 0d 46 dc 6c 69 25 3d  |:.E%<>H%..F.li%=|
00008810  30 3a 6e 25 3d 4f 25 3a  c8 95 4d 25 3f 69 25 3d  |0:n%=O%:..M%?i%=|
00008820  30 80 69 25 3c 44 25 3a  6e 25 2b 3d 21 6e 25 3a  |0.i%<D%:n%+=!n%:|
00008830  69 25 2b 3d 31 3a ce 3a  e7 69 25 3e 3d 44 25 85  |i%+=1:.:.i%>=D%.|
00008840  39 39 39 2c 22 31 31 20  2d 20 41 6c 6c 6f 77 65  |999,"11 - Allowe|
00008850  64 20 74 6f 20 65 64 69  74 20 66 75 6e 63 20 77  |d to edit func w|
00008860  68 65 6e 20 6e 6f 74 68  69 6e 67 20 73 65 6c 65  |hen nothing sele|
00008870  63 74 65 64 22 0d 46 fa  21 43 62 25 3d 30 3a e7  |cted".F.!Cb%=0:.|
00008880  69 25 3c 44 25 2d 31 80  47 25 3f 28 69 25 2a 34  |i%<D%-1.G%?(i%*4|
00008890  2b 37 29 3e 30 8c 0d 47  04 6a 43 62 25 3d a4 61  |+7)>0..G.jCb%=.a|
000088a0  28 22 43 6f 70 79 20 66  75 6e 63 74 69 6f 6e 20  |("Copy function |
000088b0  77 69 74 68 20 6f 72 20  77 69 74 68 6f 75 74 20  |with or without |
000088c0  74 72 61 6e 73 66 6f 72  6d 61 74 69 6f 6e 73 20  |transformations |
000088d0  61 6e 64 2f 6f 72 20 63  61 6c 63 75 6c 75 73 20  |and/or calculus |
000088e0  66 75 6e 63 74 69 6f 6e  73 3f 22 2c 22 57 69 74  |functions?","Wit|
000088f0  68 22 2c 22 57 69 74 68  6f 75 74 22 2c 22 22 29  |h","Without","")|
00008900  0d 47 18 05 cd 0d 47 18  19 f5 3a 6c 25 3d 21 6e  |.G....G...:l%=!n|
00008910  25 3a e7 77 63 25 2b 6c  25 3e 45 63 25 8c 0d 47  |%:.wc%+l%>Ec%..G|
00008920  2c 71 74 25 3d a4 6a 28  4f 25 2c 32 30 34 38 29  |,qt%=.j(O%,2048)|
00008930  3a e7 74 25 3c 3e 30 20  4f 25 3d 74 25 3a 45 63  |:.t%<>0 O%=t%:Ec|
00008940  25 2b 3d 32 30 34 38 8b  43 62 25 3d a4 61 28 22  |%+=2048.Cb%=.a("|
00008950  55 6e 61 62 6c 65 20 74  6f 20 63 6f 70 79 20 66  |Unable to copy f|
00008960  75 6e 63 74 69 6f 6e 20  64 75 65 20 74 6f 20 6c  |unction due to l|
00008970  61 63 6b 20 6f 66 20 6d  65 6d 6f 72 79 22 2c 22  |ack of memory","|
00008980  4f 4b 22 2c 22 22 2c 22  22 29 3a fd b9 3a e1 0d  |OK","",""):..:..|
00008990  47 40 05 cd 0d 47 4a 9a  6a 25 3d 30 3a 74 25 3d  |G@...GJ.j%=0:t%=|
000089a0  4f 25 2b 77 63 25 3a f5  3a 74 25 21 6a 25 3d 6e  |O%+wc%:.:t%!j%=n|
000089b0  25 21 6a 25 3a 6a 25 2b  3d 34 3a fd 6a 25 3d 6c  |%!j%:j%+=4:.j%=l|
000089c0  25 3a 47 25 21 28 44 25  2a 34 29 3d 47 25 21 28  |%:G%!(D%*4)=G%!(|
000089d0  69 25 2a 34 29 80 ac 36  35 32 38 30 3a 77 63 25  |i%*4)..65280:wc%|
000089e0  2b 3d 6c 25 3a 44 25 2b  3d 31 3a 69 25 2b 3d 31  |+=l%:D%+=1:i%+=1|
000089f0  3a 6e 25 2b 3d 21 6e 25  3a fd 44 25 3d 6d 63 25  |:n%+=!n%:.D%=mc%|
00008a00  84 43 62 25 3d 31 84 47  25 3f 28 69 25 2a 34 2b  |.Cb%=1.G%?(i%*4+|
00008a10  33 29 3d 30 3a 74 25 3d  33 36 2a 44 25 2b 34 3a  |3)=0:t%=36*D%+4:|
00008a20  e7 74 25 3c 31 37 32 20  74 25 3d 31 37 32 0d 47  |.t%<172 t%=172.G|
00008a30  7c 26 f2 6c 28 48 25 2c  30 2c 2d 74 25 2c 33 31  ||&.l(H%,0,-t%,31|
00008a40  36 2c 30 29 3a f2 66 28  48 25 29 3a f2 6b 28 55  |6,0):.f(H%):.k(U|
00008a50  25 29 3a e1 0d 47 90 51  dd f2 6c 62 28 51 63 25  |%):..G.Q..lb(Qc%|
00008a60  29 3a ea 6c 25 2c 6c 24  2c 74 25 2c 64 25 3a e7  |):.l%,l$,t%,d%:.|
00008a70  44 25 3d 6d 63 25 85 39  39 39 2c 22 31 32 20 2d  |D%=mc%.999,"12 -|
00008a80  20 41 6c 6c 6f 77 65 64  20 74 6f 20 70 6c 6f 74  | Allowed to plot|
00008a90  20 66 75 6e 63 20 77 68  65 6e 20 6c 69 73 74 20  | func when list |
00008aa0  66 75 6c 6c 22 0d 47 b8  30 6c 24 3d 28 24 51 63  |full".G.0l$=($Qc|
00008ab0  25 29 2b 22 28 78 29 22  3a 6c 25 3d 28 a9 28 6c  |%)+"(x)":l%=(.(l|
00008ac0  24 29 2b 39 29 80 ac 33  3a e7 77 63 25 2b 6c 25  |$)+9)..3:.wc%+l%|
00008ad0  3e 45 63 25 8c 0d 47 cc  6e 74 25 3d a4 6a 28 4f  |>Ec%..G.nt%=.j(O|
00008ae0  25 2c 32 30 34 38 29 3a  e7 74 25 3c 3e 30 20 4f  |%,2048):.t%<>0 O|
00008af0  25 3d 74 25 3a 45 63 25  2b 3d 32 30 34 38 8b 64  |%=t%:Ec%+=2048.d|
00008b00  25 3d a4 61 28 22 55 6e  61 62 6c 65 20 74 6f 20  |%=.a("Unable to |
00008b10  70 6c 6f 74 20 66 75 6e  63 74 69 6f 6e 20 64 75  |plot function du|
00008b20  65 20 74 6f 20 6c 61 63  6b 20 6f 66 20 6d 65 6d  |e to lack of mem|
00008b30  6f 72 79 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 29  |ory","OK","","")|
00008b40  3a 3d a3 0d 47 e0 05 cd  0d 47 ea 59 74 25 3d 4f  |:=..G....G.Yt%=O|
00008b50  25 2b 77 63 25 3a 21 74  25 3d 6c 25 3a 24 28 74  |%+wc%:!t%=l%:$(t|
00008b60  25 2b 34 29 3d 6c 24 3a  47 25 21 28 44 25 2a 34  |%+4)=l$:G%!(D%*4|
00008b70  29 3d 26 46 46 46 46 30  37 3a 77 63 25 2b 3d 6c  |)=&FFFF07:wc%+=l|
00008b80  25 3a 44 25 2b 3d 31 3a  74 25 3d 33 36 2a 44 25  |%:D%+=1:t%=36*D%|
00008b90  2b 34 3a e7 74 25 3c 31  37 32 20 74 25 3d 31 37  |+4:.t%<172 t%=17|
00008ba0  32 0d 48 08 29 f2 6c 28  48 25 2c 30 2c 2d 74 25  |2.H.).l(H%,0,-t%|
00008bb0  2c 33 31 36 2c 30 29 3a  f2 66 28 48 25 29 3a f2  |,316,0):.f(H%):.|
00008bc0  69 3a f2 6b 28 55 25 29  3a e1 0d 48 26 1b dd f2  |i:.k(U%):..H&...|
00008bd0  48 61 3a ea 69 25 2c 6e  25 2c 6c 25 3a e7 45 25  |Ha:.i%,n%,l%:.E%|
00008be0  3c 3e 48 25 e1 0d 48 4e  47 69 25 3d 30 3a 6e 25  |<>H%..HNGi%=0:n%|
00008bf0  3d 4f 25 3a 6c 25 3d 6e  25 3a c8 95 4d 25 3f 69  |=O%:l%=n%:..M%?i|
00008c00  25 3d 30 80 69 25 3c 44  25 3a 6e 25 2b 3d 21 6e  |%=0.i%<D%:n%+=!n|
00008c10  25 3a 69 25 2b 3d 31 3a  e7 47 25 3f 28 69 25 2a  |%:i%+=1:.G%?(i%*|
00008c20  34 2b 33 29 3d 30 20 6c  25 3d 6e 25 0d 48 62 43  |4+3)=0 l%=n%.HbC|
00008c30  ce 3a e7 69 25 3e 3d 44  25 85 39 39 39 2c 22 31  |.:.i%>=D%.999,"1|
00008c40  33 20 2d 20 41 6c 6c 6f  77 65 64 20 74 6f 20 65  |3 - Allowed to e|
00008c50  64 69 74 20 66 75 6e 63  20 77 68 65 6e 20 6e 6f  |dit func when no|
00008c60  74 68 69 6e 67 20 73 65  6c 65 63 74 65 64 22 0d  |thing selected".|
00008c70  48 76 12 c8 8e 47 25 3f  28 69 25 2a 34 2b 33 29  |Hv...G%?(i%*4+3)|
00008c80  ca 0d 48 80 18 c9 30 3a  e7 a4 6d 28 51 25 29 f2  |..H...0:..m(Q%).|
00008c90  70 62 28 69 25 2c 6e 25  29 0d 48 8a 1b c9 31 3a  |pb(i%,n%).H...1:|
00008ca0  e7 a4 6d 28 46 25 29 f2  71 62 28 69 25 2c 6e 25  |..m(F%).qb(i%,n%|
00008cb0  2c 6c 25 29 0d 48 94 1d  c9 32 2c 33 3a e7 a4 6d  |,l%).H...2,3:..m|
00008cc0  28 52 25 29 f2 72 62 28  69 25 2c 6e 25 2c 6c 25  |(R%).rb(i%,n%,l%|
00008cd0  29 0d 48 9e 05 cb 0d 48  a8 05 e1 0d 48 b2 19 dd  |).H....H....H...|
00008ce0  a4 6d 28 52 63 25 29 3a  ea 4a 25 3a e7 57 25 3d  |.m(Rc%):.J%:.W%=|
00008cf0  2d 31 3d b9 0d 48 da 0a  c8 8e 4e 63 25 ca 0d 48  |-1=..H....Nc%..H|
00008d00  e4 28 c9 51 25 3a e7 57  25 3d 2d 32 20 4a 25 3d  |.(.Q%:.W%=-2 J%=|
00008d10  a4 71 28 52 63 25 2c 30  29 8b 4a 25 3d a4 47 28  |.q(Rc%,0).J%=.G(|
00008d20  52 63 25 2c 30 29 0d 48  ee 28 c9 46 25 3a e7 57  |Rc%,0).H.(.F%:.W|
00008d30  25 3d 2d 32 20 4a 25 3d  a4 76 28 52 63 25 2c 30  |%=-2 J%=.v(Rc%,0|
00008d40  29 8b 4a 25 3d a4 77 28  52 63 25 2c 30 29 0d 48  |).J%=.w(Rc%,0).H|
00008d50  f8 28 c9 52 25 3a e7 57  25 3d 2d 32 20 4a 25 3d  |.(.R%:.W%=-2 J%=|
00008d60  a4 74 28 52 63 25 2c 30  29 8b 4a 25 3d a4 75 28  |.t(Rc%,0).J%=.u(|
00008d70  52 63 25 2c 30 29 0d 49  02 05 cb 0d 49 0c 07 3d  |Rc%,0).I....I..=|
00008d80  4a 25 0d 49 2a 1a dd f2  4c 61 3a ea 64 25 2c 69  |J%.I*...La:.d%,i|
00008d90  25 3a e7 a4 6d 28 51 25  29 3d a3 e1 0d 49 3e 3b  |%:..m(Q%)=...I>;|
00008da0  e7 44 25 3d 6d 63 25 85  39 39 39 2c 22 31 34 20  |.D%=mc%.999,"14 |
00008db0  2d 20 54 72 79 69 6e 67  20 74 6f 20 63 72 65 61  |- Trying to crea|
00008dc0  74 65 20 70 6c 6f 74 20  77 68 65 6e 20 6c 69 73  |te plot when lis|
00008dd0  74 20 66 75 6c 6c 22 0d  49 48 6a f2 62 28 51 25  |t full".IHj.b(Q%|
00008de0  2c 32 2c 22 22 2c 30 29  3a f2 64 28 51 25 2c 34  |,2,"",0):.d(Q%,4|
00008df0  2c 31 29 3a f2 70 28 51  25 2c 39 2c 37 29 3a e3  |,1):.p(Q%,9,7):.|
00008e00  69 25 3d 31 33 b8 31 38  3a f2 64 28 51 25 2c 69  |i%=13.18:.d(Q%,i|
00008e10  25 2c 30 29 3a ed 3a f2  64 28 51 25 2c 31 39 2c  |%,0):.:.d(Q%,19,|
00008e20  31 29 3a f2 6a 28 51 25  29 3a f2 74 28 51 25 2c  |1):.j(Q%):.t(Q%,|
00008e30  32 29 3a 57 25 3d 2d 32  3a 4e 63 25 3d 51 25 3a  |2):W%=-2:Nc%=Q%:|
00008e40  e1 0d 49 7a 7b dd a4 71  28 48 63 25 2c 53 63 25  |..Iz{..q(Hc%,Sc%|
00008e50  29 3a ea 6c 24 2c 6c 25  2c 74 25 2c 4b 25 2c 64  |):.l$,l%,t%,K%,d|
00008e60  25 3a 6c 24 3d a4 62 28  51 25 2c 32 29 3a e7 6c  |%:l$=.b(Q%,2):.l|
00008e70  24 3d 22 22 64 25 3d a4  61 28 22 59 6f 75 20 6d  |$=""d%=.a("You m|
00008e80  75 73 74 20 65 6e 74 65  72 20 73 6f 6d 65 20 6b  |ust enter some k|
00008e90  69 6e 64 20 6f 66 20 66  75 6e 63 74 69 6f 6e 20  |ind of function |
00008ea0  69 6e 74 6f 20 74 68 65  20 62 6f 78 22 2c 22 4f  |into the box","O|
00008eb0  4b 22 2c 22 22 2c 22 22  29 3a 3d a3 0d 49 ac 19  |K","",""):=..I..|
00008ec0  6c 24 3d a4 73 28 6c 24  2c 22 22 29 3a e7 6c 24  |l$=.s(l$,""):.l$|
00008ed0  3d 22 22 3d a3 0d 49 b6  20 6c 25 3d 28 a9 28 6c  |=""=..I. l%=(.(l|
00008ee0  24 29 2b 39 29 80 ac 33  3a e7 77 63 25 2b 6c 25  |$)+9)..3:.wc%+l%|
00008ef0  3e 45 63 25 8c 0d 49 ca  6e 74 25 3d a4 6a 28 4f  |>Ec%..I.nt%=.j(O|
00008f00  25 2c 32 30 34 38 29 3a  e7 74 25 3c 3e 30 20 4f  |%,2048):.t%<>0 O|
00008f10  25 3d 74 25 3a 45 63 25  2b 3d 32 30 34 38 8b 64  |%=t%:Ec%+=2048.d|
00008f20  25 3d a4 61 28 22 55 6e  61 62 6c 65 20 74 6f 20  |%=.a("Unable to |
00008f30  70 6c 6f 74 20 66 75 6e  63 74 69 6f 6e 20 64 75  |plot function du|
00008f40  65 20 74 6f 20 6c 61 63  6b 20 6f 66 20 6d 65 6d  |e to lack of mem|
00008f50  6f 72 79 22 2c 22 4f 4b  22 2c 22 22 2c 22 22 29  |ory","OK","","")|
00008f60  3a 3d a3 0d 49 de 05 cd  0d 49 e8 37 74 25 3d 4f  |:=..I....I.7t%=O|
00008f70  25 2b 77 63 25 3a 21 74  25 3d 6c 25 3a 24 28 74  |%+wc%:!t%=l%:$(t|
00008f80  25 2b 34 29 3d 6c 24 3a  74 25 3d 30 3a e7 a4 65  |%+4)=l$:t%=0:..e|
00008f90  28 51 25 2c 34 29 74 25  2b 3d 36 35 32 38 30 0d  |(Q%,4)t%+=65280.|
00008fa0  49 fc 1f 4b 25 3d 31 39  2d a4 66 28 51 25 2c 31  |I..K%=19-.f(Q%,1|
00008fb0  29 3a e7 4b 25 3d 30 20  4b 25 3d 32 35 35 0d 4a  |):.K%=0 K%=255.J|
00008fc0  06 43 74 25 2b 3d 4b 25  3c 3c 31 36 3a 74 25 2b  |.Ct%+=K%<<16:t%+|
00008fd0  3d a4 6b 28 51 25 2c 39  29 3a 47 25 21 28 44 25  |=.k(Q%,9):G%!(D%|
00008fe0  2a 34 29 3d 74 25 3a 77  63 25 2b 3d 6c 25 3a 44  |*4)=t%:wc%+=l%:D|
00008ff0  25 2b 3d 31 3a e7 53 63  25 f2 77 28 44 25 2d 31  |%+=1:.Sc%.w(D%-1|
00009000  29 0d 4a 1a 1d 74 25 3d  33 36 2a 44 25 2b 34 3a  |).J..t%=36*D%+4:|
00009010  e7 74 25 3c 31 37 32 20  74 25 3d 31 37 32 0d 4a  |.t%<172 t%=172.J|
00009020  24 37 f2 6c 28 48 25 2c  30 2c 2d 74 25 2c 33 31  |$7.l(H%,0,-t%,31|
00009030  36 2c 30 29 3a f2 66 28  48 25 29 3a f2 69 3a f2  |6,0):.f(H%):.i:.|
00009040  6b 28 55 25 29 3a e7 48  63 25 3c 3e 4e 63 25 f2  |k(U%):.Hc%<>Nc%.|
00009050  6e 28 51 25 29 0d 4a 42  06 3d b9 0d 4a 60 af dd  |n(Q%).JB.=..J`..|
00009060  f2 70 62 28 69 25 2c 6e  25 29 3a ea 6a 25 2c 4b  |.pb(i%,n%):.j%,K|
00009070  25 3a f2 62 28 51 25 2c  32 2c 24 28 6e 25 2b 34  |%:.b(Q%,2,$(n%+4|
00009080  29 2c 31 29 3a f2 64 28  51 25 2c 34 2c 47 25 3f  |),1):.d(Q%,4,G%?|
00009090  28 69 25 2a 34 2b 31 29  29 3a f2 70 28 51 25 2c  |(i%*4+1)):.p(Q%,|
000090a0  39 2c 47 25 3f 28 69 25  2a 34 29 29 3a 4b 25 3d  |9,G%?(i%*4)):K%=|
000090b0  47 25 3f 28 69 25 2a 34  2b 32 29 3a e3 6a 25 3d  |G%?(i%*4+2):.j%=|
000090c0  31 33 b8 31 38 3a f2 64  28 51 25 2c 6a 25 2c 31  |13.18:.d(Q%,j%,1|
000090d0  39 2d 4b 25 3d 6a 25 29  3a ed 3a f2 64 28 51 25  |9-K%=j%):.:.d(Q%|
000090e0  2c 31 39 2c 4b 25 3d 32  35 35 29 3a f2 6a 28 51  |,19,K%=255):.j(Q|
000090f0  25 29 3a f2 74 28 51 25  2c 32 29 3a 57 25 3d 69  |%):.t(Q%,2):W%=i|
00009100  25 3a 4e 63 25 3d 51 25  3a e1 0d 4a 92 65 dd a4  |%:Nc%=Q%:..J.e..|
00009110  47 28 48 63 25 2c 53 63  25 29 3a ea 6e 25 2c 69  |G(Hc%,Sc%):.n%,i|
00009120  25 2c 6c 25 2c 4a 25 2c  49 63 25 2c 4b 25 2c 64  |%,l%,J%,Ic%,K%,d|
00009130  25 2c 54 63 25 3a e7 57  25 3c 30 85 39 39 39 2c  |%,Tc%:.W%<0.999,|
00009140  22 31 35 20 2d 20 41 6c  6c 6f 77 65 64 20 74 6f  |"15 - Allowed to|
00009150  20 6f 6b 20 65 64 69 74  20 66 75 6e 63 20 77 68  | ok edit func wh|
00009160  65 6e 20 6e 6f 74 20 65  64 69 74 69 6e 67 22 0d  |en not editing".|
00009170  4a ba 81 6e 25 3d 4f 25  3a 69 25 3d 30 3a c8 95  |J..n%=O%:i%=0:..|
00009180  69 25 3c 57 25 3a 6e 25  2b 3d 21 6e 25 3a 69 25  |i%<W%:n%+=!n%:i%|
00009190  2b 3d 31 3a ce 3a 6c 24  3d a4 62 28 51 25 2c 32  |+=1:.:l$=.b(Q%,2|
000091a0  29 3a e7 6c 24 3d 22 22  64 25 3d a4 61 28 22 59  |):.l$=""d%=.a("Y|
000091b0  6f 75 20 6d 75 73 74 20  65 6e 74 65 72 20 73 6f  |ou must enter so|
000091c0  6d 65 20 6b 69 6e 64 20  6f 66 20 66 75 6e 63 74  |me kind of funct|
000091d0  69 6f 6e 20 69 6e 74 6f  20 74 68 65 20 62 6f 78  |ion into the box|
000091e0  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a 3d a3  |","OK","",""):=.|
000091f0  0d 4a d8 19 6c 24 3d a4  73 28 6c 24 2c 22 22 29  |.J..l$=.s(l$,"")|
00009200  3a e7 6c 24 3d 22 22 3d  a3 0d 4a e2 52 49 63 25  |:.l$=""=..J.RIc%|
00009210  3d 21 6e 25 3a 6c 25 3d  28 a9 6c 24 2b 39 29 80  |=!n%:l%=(.l$+9).|
00009220  ac 33 3a 4a 25 3d b9 3a  54 63 25 3d 4f 25 3a e7  |.3:J%=.:Tc%=O%:.|
00009230  6c 25 3e 49 63 25 4a 25  3d a4 43 28 6e 25 2c 6c  |l%>Ic%J%=.C(n%,l|
00009240  25 2d 49 63 25 29 8b e7  6c 25 3c 49 63 25 f2 48  |%-Ic%)..l%<Ic%.H|
00009250  28 6e 25 2c 49 63 25 2d  6c 25 29 0d 4a f6 0b e7  |(n%,Ic%-l%).J...|
00009260  4a 25 3d a3 3d a3 0d 4b  00 3a 6e 25 2b 3d 28 4f  |J%=.=..K.:n%+=(O|
00009270  25 2d 54 63 25 29 3a 21  6e 25 3d 6c 25 3a 24 28  |%-Tc%):!n%=l%:$(|
00009280  6e 25 2b 34 29 3d 6c 24  3a 6e 25 3d 30 3a e7 a4  |n%+4)=l$:n%=0:..|
00009290  65 28 51 25 2c 34 29 6e  25 2b 3d 36 35 32 38 30  |e(Q%,4)n%+=65280|
000092a0  0d 4b 14 1f 4b 25 3d 31  39 2d a4 66 28 51 25 2c  |.K..K%=19-.f(Q%,|
000092b0  31 29 3a e7 4b 25 3d 30  20 4b 25 3d 32 35 35 0d  |1):.K%=0 K%=255.|
000092c0  4b 1e 33 6e 25 2b 3d 4b  25 3c 3c 31 36 3a 6e 25  |K.3n%+=K%<<16:n%|
000092d0  2b 3d a4 6b 28 51 25 2c  39 29 3a 47 25 21 28 57  |+=.k(Q%,9):G%!(W|
000092e0  25 2a 34 29 3d 6e 25 3a  e7 53 63 25 f2 77 28 57  |%*4)=n%:.Sc%.w(W|
000092f0  25 29 0d 4b 32 24 f2 66  28 48 25 29 3a f2 69 3a  |%).K2$.f(H%):.i:|
00009300  f2 6b 28 55 25 29 3a e7  48 63 25 3c 3e 4e 63 25  |.k(U%):.Hc%<>Nc%|
00009310  f2 6e 28 51 25 29 0d 4b  50 06 3d b9 0d 4b 6e 1d  |.n(Q%).KP.=..Kn.|
00009320  dd f2 4b 61 3a ea 69 25  2c 6e 25 2c 64 25 3a e7  |..Ka:.i%,n%,d%:.|
00009330  a4 6d 28 52 25 29 3d a3  e1 0d 4b 82 0c e7 45 25  |.m(R%)=...K...E%|
00009340  3c 3e 48 25 e1 0d 4b 8c  3c e7 44 25 3d 6d 63 25  |<>H%..K.<.D%=mc%|
00009350  85 39 39 39 2c 22 31 36  20 2d 20 41 6c 6c 6f 77  |.999,"16 - Allow|
00009360  65 64 20 74 6f 20 63 72  65 61 74 65 20 63 61 6c  |ed to create cal|
00009370  63 20 77 68 65 6e 20 6c  69 73 74 20 66 75 6c 6c  |c when list full|
00009380  22 0d 4b 96 6c 69 25 3d  30 3a 6e 25 3d 4f 25 3a  |".K.li%=0:n%=O%:|
00009390  c8 95 4d 25 3f 69 25 3d  30 80 69 25 3c 44 25 3a  |..M%?i%=0.i%<D%:|
000093a0  6e 25 2b 3d 21 6e 25 3a  69 25 2b 3d 31 3a ce 3a  |n%+=!n%:i%+=1:.:|
000093b0  e7 69 25 3e 3d 44 25 85  39 39 39 2c 22 31 37 20  |.i%>=D%.999,"17 |
000093c0  2d 20 41 6c 6c 6f 77 65  64 20 74 6f 20 65 64 69  |- Allowed to edi|
000093d0  74 20 66 75 6e 63 20 77  68 65 6e 20 6e 6f 74 68  |t func when noth|
000093e0  69 6e 67 20 73 65 6c 65  63 74 65 64 22 0d 4b b4  |ing selected".K.|
000093f0  85 4f 63 25 3d 69 25 3a  f2 62 28 52 25 2c 32 2c  |.Oc%=i%:.b(R%,2,|
00009400  24 28 6e 25 2b 34 29 2c  31 29 3a f2 64 28 52 25  |$(n%+4),1):.d(R%|
00009410  2c 31 33 2c 31 29 3a f2  64 28 52 25 2c 31 34 2c  |,13,1):.d(R%,14,|
00009420  30 29 3a f2 64 28 52 25  2c 34 2c 31 29 3a e3 69  |0):.d(R%,4,1):.i|
00009430  25 3d 31 35 b8 32 30 3a  f2 64 28 52 25 2c 69 25  |%=15.20:.d(R%,i%|
00009440  2c 30 29 3a ed 3a f2 64  28 52 25 2c 32 31 2c 31  |,0):.:.d(R%,21,1|
00009450  29 3a f2 70 28 52 25 2c  39 2c 37 29 3a f2 6a 28  |):.p(R%,9,7):.j(|
00009460  52 25 29 3a 4e 63 25 3d  52 25 3a 57 25 3d 2d 32  |R%):Nc%=R%:W%=-2|
00009470  3a e1 0d 4b dc 73 dd a4  74 28 48 63 25 2c 53 63  |:..K.s..t(Hc%,Sc|
00009480  25 29 3a ea 4a 25 2c 74  25 2c 6e 25 2c 69 25 2c  |%):.J%,t%,n%,i%,|
00009490  4b 25 2c 54 63 25 3a 69  25 3d 30 3a 6e 25 3d 4f  |K%,Tc%:i%=0:n%=O|
000094a0  25 3a c8 95 69 25 3c 3d  4f 63 25 3a 69 25 2b 3d  |%:..i%<=Oc%:i%+=|
000094b0  31 3a 6e 25 2b 3d 21 6e  25 3a ce 3a 54 63 25 3d  |1:n%+=!n%:.:Tc%=|
000094c0  4f 25 3a 74 25 3d a4 66  28 52 25 2c 32 29 2d 31  |O%:t%=.f(R%,2)-1|
000094d0  31 3a 4a 25 3d a4 43 28  6e 25 2c 34 29 3a e7 4a  |1:J%=.C(n%,4):.J|
000094e0  25 3d a3 3d a3 0d 4c 0e  5e 6e 25 2b 3d 28 4f 25  |%=.=..L.^n%+=(O%|
000094f0  2d 54 63 25 29 3a 21 6e  25 3d 34 3a f2 72 28 47  |-Tc%):!n%=4:.r(G|
00009500  25 2b 69 25 2a 34 2d 34  2c 47 25 2b 44 25 2a 34  |%+i%*4-4,G%+D%*4|
00009510  2c 47 25 2b 69 25 2a 34  29 3a 6e 25 3d 74 25 3c  |,G%+i%*4):n%=t%<|
00009520  3c 32 34 3a 6e 25 2b 3d  a4 6b 28 52 25 2c 39 29  |<24:n%+=.k(R%,9)|
00009530  3a e7 a4 65 28 52 25 2c  34 29 6e 25 2b 3d 36 35  |:..e(R%,4)n%+=65|
00009540  32 38 30 0d 4c 2c 1f 4b  25 3d 32 31 2d a4 66 28  |280.L,.K%=21-.f(|
00009550  52 25 2c 31 29 3a e7 4b  25 3d 30 20 4b 25 3d 32  |R%,1):.K%=0 K%=2|
00009560  35 35 0d 4c 36 2c 6e 25  2b 3d 4b 25 3c 3c 31 36  |55.L6,n%+=K%<<16|
00009570  3a 47 25 21 28 69 25 2a  34 29 3d 6e 25 3a 44 25  |:G%!(i%*4)=n%:D%|
00009580  2b 3d 31 3a e7 53 63 25  f2 77 28 69 25 29 0d 4c  |+=1:.Sc%.w(i%).L|
00009590  40 1d 74 25 3d 33 36 2a  44 25 2b 34 3a e7 74 25  |@.t%=36*D%+4:.t%|
000095a0  3c 31 37 32 20 74 25 3d  31 37 32 0d 4c 4a 2d f2  |<172 t%=172.LJ-.|
000095b0  6c 28 48 25 2c 30 2c 2d  74 25 2c 33 31 36 2c 30  |l(H%,0,-t%,316,0|
000095c0  29 3a f2 66 28 48 25 29  3a e7 48 63 25 3c 3e 4e  |):.f(H%):.Hc%<>N|
000095d0  63 25 f2 6e 28 52 25 29  0d 4c 5e 10 f2 69 3a f2  |c%.n(R%).L^..i:.|
000095e0  6b 28 55 25 29 3a 3d b9  0d 4c 7c a1 dd f2 72 62  |k(U%):=..L|...rb|
000095f0  28 69 25 2c 6e 25 2c 6c  25 29 3a ea 74 25 2c 4b  |(i%,n%,l%):.t%,K|
00009600  25 2c 6a 25 3a f2 62 28  52 25 2c 32 2c 24 28 6c  |%,j%:.b(R%,2,$(l|
00009610  25 2b 34 29 2c 31 29 3a  74 25 3d 47 25 3f 28 69  |%+4),1):t%=G%?(i|
00009620  25 2a 34 2b 33 29 2b 31  31 3a e3 6a 25 3d 31 33  |%*4+3)+11:.j%=13|
00009630  b8 31 34 3a f2 64 28 52  25 2c 6a 25 2c 74 25 3d  |.14:.d(R%,j%,t%=|
00009640  6a 25 29 3a ed 3a f2 64  28 52 25 2c 34 2c 47 25  |j%):.:.d(R%,4,G%|
00009650  3f 28 69 25 2a 34 2b 31  29 29 3a f2 70 28 52 25  |?(i%*4+1)):.p(R%|
00009660  2c 39 2c 47 25 3f 28 69  25 2a 34 29 29 3a 4b 25  |,9,G%?(i%*4)):K%|
00009670  3d 47 25 3f 28 69 25 2a  34 2b 32 29 3a e7 4b 25  |=G%?(i%*4+2):.K%|
00009680  3d 32 35 35 20 4b 25 3d  30 0d 4c a4 38 e3 6a 25  |=255 K%=0.L.8.j%|
00009690  3d 31 35 b8 32 31 3a f2  64 28 52 25 2c 6a 25 2c  |=15.21:.d(R%,j%,|
000096a0  4b 25 3d 32 31 2d 6a 25  29 3a ed 3a f2 6a 28 52  |K%=21-j%):.:.j(R|
000096b0  25 29 3a 4e 63 25 3d 52  25 3a 57 25 3d 69 25 3a  |%):Nc%=R%:W%=i%:|
000096c0  e1 0d 4c c2 53 dd a4 75  28 48 63 25 2c 53 63 25  |..L.S..u(Hc%,Sc%|
000096d0  29 3a ea 74 25 2c 6e 25  2c 4b 25 3a 74 25 3d a4  |):.t%,n%,K%:t%=.|
000096e0  66 28 52 25 2c 32 29 2d  31 31 3a 6e 25 3d 74 25  |f(R%,2)-11:n%=t%|
000096f0  3c 3c 32 34 3a 6e 25 2b  3d a4 6b 28 52 25 2c 39  |<<24:n%+=.k(R%,9|
00009700  29 3a e7 a4 65 28 52 25  2c 34 29 6e 25 2b 3d 36  |):..e(R%,4)n%+=6|
00009710  35 32 38 30 0d 4c f4 1f  4b 25 3d 32 31 2d a4 66  |5280.L..K%=21-.f|
00009720  28 52 25 2c 31 29 3a e7  4b 25 3d 30 20 4b 25 3d  |(R%,1):.K%=0 K%=|
00009730  32 35 35 0d 4c fe 26 6e  25 2b 3d 4b 25 3c 3c 31  |255.L.&n%+=K%<<1|
00009740  36 3a 47 25 21 28 57 25  2a 34 29 3d 6e 25 3a e7  |6:G%!(W%*4)=n%:.|
00009750  53 63 25 f2 77 28 57 25  29 0d 4d 08 1a f2 66 28  |Sc%.w(W%).M...f(|
00009760  48 25 29 3a e7 48 63 25  3c 3e 4e 63 25 f2 6e 28  |H%):.Hc%<>Nc%.n(|
00009770  52 25 29 0d 4d 1c 10 f2  69 3a f2 6b 28 55 25 29  |R%).M...i:.k(U%)|
00009780  3a 3d b9 0d 4d 3a 1d dd  f2 4a 61 3a ea 69 25 2c  |:=..M:...Ja:.i%,|
00009790  6e 25 2c 64 25 3a e7 a4  6d 28 46 25 29 3d a3 e1  |n%,d%:..m(F%)=..|
000097a0  0d 4d 4e 0c e7 45 25 3c  3e 48 25 e1 0d 4d 58 3d  |.MN..E%<>H%..MX=|
000097b0  e7 44 25 3d 6d 63 25 85  39 39 39 2c 22 31 38 20  |.D%=mc%.999,"18 |
000097c0  2d 20 41 6c 6c 6f 77 65  64 20 74 6f 20 63 72 65  |- Allowed to cre|
000097d0  61 74 65 20 74 72 61 6e  73 20 77 68 65 6e 20 6c  |ate trans when l|
000097e0  69 73 74 20 66 75 6c 6c  22 0d 4d 62 6c 69 25 3d  |ist full".Mbli%=|
000097f0  30 3a 6e 25 3d 4f 25 3a  c8 95 4d 25 3f 69 25 3d  |0:n%=O%:..M%?i%=|
00009800  30 80 69 25 3c 44 25 3a  6e 25 2b 3d 21 6e 25 3a  |0.i%<D%:n%+=!n%:|
00009810  69 25 2b 3d 31 3a ce 3a  e7 69 25 3e 3d 44 25 85  |i%+=1:.:.i%>=D%.|
00009820  39 39 39 2c 22 31 39 20  2d 20 41 6c 6c 6f 77 65  |999,"19 - Allowe|
00009830  64 20 74 6f 20 65 64 69  74 20 66 75 6e 63 20 77  |d to edit func w|
00009840  68 65 6e 20 6e 6f 74 68  69 6e 67 20 73 65 6c 65  |hen nothing sele|
00009850  63 74 65 64 22 0d 4d 80  88 4f 63 25 3d 69 25 3a  |cted".M..Oc%=i%:|
00009860  f2 62 28 46 25 2c 32 2c  24 28 6e 25 2b 34 29 2c  |.b(F%,2,$(n%+4),|
00009870  31 29 3a f2 64 28 46 25  2c 34 2c 31 29 3a e3 69  |1):.d(F%,4,1):.i|
00009880  25 3d 32 33 b8 32 38 3a  f2 64 28 46 25 2c 69 25  |%=23.28:.d(F%,i%|
00009890  2c 30 29 3a ed 3a f2 64  28 46 25 2c 32 39 2c 31  |,0):.:.d(F%,29,1|
000098a0  29 3a f2 70 28 46 25 2c  39 2c 37 29 3a 53 62 25  |):.p(F%,9,7):Sb%|
000098b0  3d 30 3a f2 6c 28 58 61  25 2c 30 2c 2d 32 30 30  |=0:.l(Xa%,0,-200|
000098c0  2c 32 32 36 2c 30 29 3a  f2 6a 28 46 25 29 3a 4e  |,226,0):.j(F%):N|
000098d0  63 25 3d 46 25 3a 57 25  3d 2d 32 3a e1 0d 4d b2  |c%=F%:W%=-2:..M.|
000098e0  32 dd a4 76 28 48 63 25  2c 53 63 25 29 3a ea 4a  |2..v(Hc%,Sc%):.J|
000098f0  25 2c 6e 25 2c 69 25 2c  4b 25 2c 6c 25 2c 74 25  |%,n%,i%,K%,l%,t%|
00009900  2c 6a 25 2c 54 63 25 3a  e7 53 62 25 3e 30 8c 0d  |,j%,Tc%:.Sb%>0..|
00009910  4d da 54 69 25 3d 30 3a  6e 25 3d 4f 25 3a c8 95  |M.Ti%=0:n%=O%:..|
00009920  69 25 3c 3d 4f 63 25 3a  69 25 2b 3d 31 3a 6e 25  |i%<=Oc%:i%+=1:n%|
00009930  2b 3d 21 6e 25 3a ce 3a  54 63 25 3d 4f 25 3a 6c  |+=!n%:.:Tc%=O%:l|
00009940  25 3d 28 53 62 25 2a 36  2b 39 29 80 ac 33 3a 4a  |%=(Sb%*6+9)..3:J|
00009950  25 3d a4 43 28 6e 25 2c  6c 25 29 3a e7 4a 25 3d  |%=.C(n%,l%):.J%=|
00009960  a3 3d a3 0d 4d ee a5 f2  72 28 47 25 2b 69 25 2a  |.=..M...r(G%+i%*|
00009970  34 2d 34 2c 47 25 2b 44  25 2a 34 2c 47 25 2b 69  |4-4,G%+D%*4,G%+i|
00009980  25 2a 34 29 3a 6e 25 2b  3d 28 4f 25 2d 54 63 25  |%*4):n%+=(O%-Tc%|
00009990  29 3a 21 6e 25 3d 6c 25  3a 6e 25 2b 3d 34 3a 74  |):!n%=l%:n%+=4:t|
000099a0  25 3d 66 63 25 3a e3 6a  25 3d 30 b8 53 62 25 2d  |%=fc%:.j%=0.Sb%-|
000099b0  31 3a 3f 6e 25 3d 3f 74  25 3a 7c 28 6e 25 2b 31  |1:?n%=?t%:|(n%+1|
000099c0  29 3d 7c 28 74 25 2b 31  29 3a 6e 25 2b 3d 36 3a  |)=|(t%+1):n%+=6:|
000099d0  74 25 2b 3d 36 3a ed 3a  3f 6e 25 3d 32 35 35 3a  |t%+=6:.:?n%=255:|
000099e0  6e 25 3d 31 3c 3c 32 34  3a 6e 25 2b 3d a4 6b 28  |n%=1<<24:n%+=.k(|
000099f0  46 25 2c 39 29 3a e7 a4  65 28 46 25 2c 34 29 6e  |F%,9):..e(F%,4)n|
00009a00  25 2b 3d 36 35 32 38 30  0d 4e 16 1f 4b 25 3d 32  |%+=65280.N..K%=2|
00009a10  39 2d a4 66 28 46 25 2c  31 29 3a e7 4b 25 3d 30  |9-.f(F%,1):.K%=0|
00009a20  20 4b 25 3d 32 35 35 0d  4e 20 2c 6e 25 2b 3d 4b  | K%=255.N ,n%+=K|
00009a30  25 3c 3c 31 36 3a 47 25  21 28 69 25 2a 34 29 3d  |%<<16:G%!(i%*4)=|
00009a40  6e 25 3a 44 25 2b 3d 31  3a e7 53 63 25 f2 77 28  |n%:D%+=1:.Sc%.w(|
00009a50  69 25 29 0d 4e 2a 1d 74  25 3d 33 36 2a 44 25 2b  |i%).N*.t%=36*D%+|
00009a60  34 3a e7 74 25 3c 31 37  32 20 74 25 3d 31 37 32  |4:.t%<172 t%=172|
00009a70  0d 4e 34 1d f2 6c 28 48  25 2c 30 2c 2d 74 25 2c  |.N4..l(H%,0,-t%,|
00009a80  33 31 36 2c 30 29 3a f2  66 28 48 25 29 0d 4e 48  |316,0):.f(H%).NH|
00009a90  05 cd 0d 4e 48 13 e7 48  63 25 3c 3e 4e 63 25 f2  |...NH..Hc%<>Nc%.|
00009aa0  6e 28 46 25 29 0d 4e 52  10 f2 69 3a f2 6b 28 55  |n(F%).NR..i:.k(U|
00009ab0  25 29 3a 3d b9 0d 4e 70  81 dd f2 71 62 28 69 25  |%):=..Np...qb(i%|
00009ac0  2c 6e 25 2c 6c 25 29 3a  ea 74 25 2c 4b 25 2c 6a  |,n%,l%):.t%,K%,j|
00009ad0  25 3a f2 62 28 46 25 2c  32 2c 24 28 6c 25 2b 34  |%:.b(F%,2,$(l%+4|
00009ae0  29 2c 31 29 3a 53 62 25  3d 30 3a 6e 25 2b 3d 34  |),1):Sb%=0:n%+=4|
00009af0  3a 74 25 3d 66 63 25 3a  c8 95 3f 6e 25 3c 3e 32  |:t%=fc%:..?n%<>2|
00009b00  35 35 80 53 62 25 3c 32  30 3a 3f 74 25 3d 3f 6e  |55.Sb%<20:?t%=?n|
00009b10  25 3a 7c 28 74 25 2b 31  29 3d 7c 28 6e 25 2b 31  |%:|(t%+1)=|(n%+1|
00009b20  29 3a 6e 25 2b 3d 36 3a  74 25 2b 3d 36 3a 53 62  |):n%+=6:t%+=6:Sb|
00009b30  25 2b 3d 31 3a ce 0d 4e  8e 47 f2 64 28 46 25 2c  |%+=1:..N.G.d(F%,|
00009b40  34 2c 47 25 3f 28 69 25  2a 34 2b 31 29 29 3a f2  |4,G%?(i%*4+1)):.|
00009b50  70 28 46 25 2c 39 2c 47  25 3f 28 69 25 2a 34 29  |p(F%,9,G%?(i%*4)|
00009b60  29 3a 4b 25 3d 47 25 3f  28 69 25 2a 34 2b 32 29  |):K%=G%?(i%*4+2)|
00009b70  3a e7 4b 25 3d 32 35 35  20 4b 25 3d 30 0d 4e 98  |:.K%=255 K%=0.N.|
00009b80  38 e3 6a 25 3d 32 33 b8  32 39 3a f2 64 28 46 25  |8.j%=23.29:.d(F%|
00009b90  2c 6a 25 2c 4b 25 3d 32  39 2d 6a 25 29 3a ed 3a  |,j%,K%=29-j%):.:|
00009ba0  f2 6a 28 46 25 29 3a 4e  63 25 3d 46 25 3a 57 25  |.j(F%):Nc%=F%:W%|
00009bb0  3d 69 25 3a e1 0d 4e b6  55 dd a4 77 28 48 63 25  |=i%:..N.U..w(Hc%|
00009bc0  2c 53 63 25 29 3a ea 4a  25 2c 6e 25 2c 69 25 2c  |,Sc%):.J%,n%,i%,|
00009bd0  4b 25 2c 6c 25 2c 74 25  2c 6a 25 2c 54 63 25 3a  |K%,l%,t%,j%,Tc%:|
00009be0  69 25 3d 30 3a 6e 25 3d  4f 25 3a c8 95 69 25 3c  |i%=0:n%=O%:..i%<|
00009bf0  57 25 3a 69 25 2b 3d 31  3a 6e 25 2b 3d 21 6e 25  |W%:i%+=1:n%+=!n%|
00009c00  3a ce 3a e7 53 62 25 3e  30 8c 0d 4e e8 54 6c 25  |:.:.Sb%>0..N.Tl%|
00009c10  3d 28 53 62 25 2a 36 2b  39 29 80 ac 33 3a 49 63  |=(Sb%*6+9)..3:Ic|
00009c20  25 3d 21 6e 25 3a 4a 25  3d b9 3a 54 63 25 3d 4f  |%=!n%:J%=.:Tc%=O|
00009c30  25 3a e7 6c 25 3e 49 63  25 4a 25 3d a4 43 28 6e  |%:.l%>Ic%J%=.C(n|
00009c40  25 2c 6c 25 2d 49 63 25  29 8b e7 6c 25 3c 49 63  |%,l%-Ic%)..l%<Ic|
00009c50  25 f2 48 28 6e 25 2c 49  63 25 2d 6c 25 29 0d 4e  |%.H(n%,Ic%-l%).N|
00009c60  fc 0b e7 4a 25 3d a3 3d  a3 0d 4f 06 87 6e 25 2b  |...J%=.=..O..n%+|
00009c70  3d 28 4f 25 2d 54 63 25  29 3a 21 6e 25 3d 6c 25  |=(O%-Tc%):!n%=l%|
00009c80  3a 6e 25 2b 3d 34 3a 74  25 3d 66 63 25 3a e3 6a  |:n%+=4:t%=fc%:.j|
00009c90  25 3d 30 b8 53 62 25 2d  31 3a 3f 6e 25 3d 3f 74  |%=0.Sb%-1:?n%=?t|
00009ca0  25 3a 7c 28 6e 25 2b 31  29 3d 7c 28 74 25 2b 31  |%:|(n%+1)=|(t%+1|
00009cb0  29 3a 6e 25 2b 3d 36 3a  74 25 2b 3d 36 3a ed 3a  |):n%+=6:t%+=6:.:|
00009cc0  3f 6e 25 3d 32 35 35 3a  6e 25 3d 31 3c 3c 32 34  |?n%=255:n%=1<<24|
00009cd0  3a 6e 25 2b 3d a4 6b 28  46 25 2c 39 29 3a e7 a4  |:n%+=.k(F%,9):..|
00009ce0  65 28 46 25 2c 34 29 6e  25 2b 3d 36 35 32 38 30  |e(F%,4)n%+=65280|
00009cf0  0d 4f 24 1f 4b 25 3d 32  39 2d a4 66 28 46 25 2c  |.O$.K%=29-.f(F%,|
00009d00  31 29 3a e7 4b 25 3d 30  20 4b 25 3d 32 35 35 0d  |1):.K%=0 K%=255.|
00009d10  4f 2e 26 6e 25 2b 3d 4b  25 3c 3c 31 36 3a 47 25  |O.&n%+=K%<<16:G%|
00009d20  21 28 69 25 2a 34 29 3d  6e 25 3a e7 53 63 25 f2  |!(i%*4)=n%:.Sc%.|
00009d30  77 28 69 25 29 0d 4f 38  0a f2 66 28 48 25 29 0d  |w(i%).O8..f(H%).|
00009d40  4f 4c 41 cc 3a f2 48 28  6e 25 2c 21 6e 25 29 3a  |OLA.:.H(n%,!n%):|
00009d50  f2 72 28 47 25 2b 28 69  25 2a 34 29 2b 34 2c 47  |.r(G%+(i%*4)+4,G|
00009d60  25 2b 28 44 25 2a 34 29  2c 47 25 2b 69 25 2a 34  |%+(D%*4),G%+i%*4|
00009d70  29 3a 44 25 2d 3d 31 3a  e7 45 25 3d 48 25 f2 6d  |):D%-=1:.E%=H%.m|
00009d80  0d 4f 56 1d 74 25 3d 33  36 2a 44 25 2b 34 3a e7  |.OV.t%=36*D%+4:.|
00009d90  74 25 3c 31 37 32 20 74  25 3d 31 37 32 0d 4f 60  |t%<172 t%=172.O`|
00009da0  1d f2 6c 28 48 25 2c 30  2c 2d 74 25 2c 33 31 36  |..l(H%,0,-t%,316|
00009db0  2c 30 29 3a f2 66 28 48  25 29 0d 4f 74 05 cd 0d  |,0):.f(H%).Ot...|
00009dc0  4f 74 13 e7 48 63 25 3c  3e 4e 63 25 f2 6e 28 46  |Ot..Hc%<>Nc%.n(F|
00009dd0  25 29 0d 4f 7e 10 f2 69  3a f2 6b 28 55 25 29 3a  |%).O~..i:.k(U%):|
00009de0  3d b9 0d 4f 9c 43 dd f2  4d 61 3a ea 6e 25 3a e7  |=..O.C..Ma:.n%:.|
00009df0  53 62 25 3d 6e 63 25 85  39 39 39 2c 22 32 30 20  |Sb%=nc%.999,"20 |
00009e00  2d 20 41 6c 6c 6f 77 65  64 20 74 6f 20 61 64 64  |- Allowed to add|
00009e10  20 74 72 61 6e 73 66 6f  72 6d 20 77 68 65 6e 20  | transform when |
00009e20  66 75 6c 6c 22 0d 4f b0  42 6e 25 3d 66 63 25 2b  |full".O.Bn%=fc%+|
00009e30  53 62 25 2a 36 3a 3f 6e  25 3d 30 3a 7c 28 6e 25  |Sb%*6:?n%=0:|(n%|
00009e40  2b 31 29 3d 30 3a 53 62  25 2b 3d 31 3a 6e 25 3d  |+1)=0:Sb%+=1:n%=|
00009e50  33 36 2a 53 62 25 2b 34  3a e7 6e 25 3c 32 30 30  |36*Sb%+4:.n%<200|
00009e60  20 6e 25 3d 32 30 30 0d  4f c4 21 f2 6c 28 58 61  | n%=200.O.!.l(Xa|
00009e70  25 2c 30 2c 2d 6e 25 2c  32 32 36 2c 30 29 3a f2  |%,0,-n%,226,0):.|
00009e80  66 28 58 61 25 29 3a e1  0d 4f d8 1e dd f2 52 3a  |f(Xa%):..O....R:|
00009e90  ea 69 25 2c 74 25 2c 61  25 2c 62 25 3a e7 45 25  |.i%,t%,a%,b%:.E%|
00009ea0  3c 3e 58 61 25 e1 0d 50  00 49 69 25 3d 30 3a c8  |<>Xa%..P.Ii%=0:.|
00009eb0  95 69 25 3c 53 62 25 80  4d 25 3f 69 25 3d 30 3a  |.i%<Sb%.M%?i%=0:|
00009ec0  69 25 2b 3d 31 3a ce 3a  50 63 25 3d 69 25 3a 74  |i%+=1:.:Pc%=i%:t|
00009ed0  25 3d 66 63 25 3f 28 69  25 2a 36 29 3a 61 25 3d  |%=fc%?(i%*6):a%=|
00009ee0  74 25 81 32 3a e7 61 25  3e 32 20 61 25 3d 32 0d  |t%.2:.a%>2 a%=2.|
00009ef0  50 14 16 62 25 3d 74 25  83 32 3a e7 74 25 3d 36  |P..b%=t%.2:.t%=6|
00009f00  20 62 25 3d 32 0d 50 1e  49 61 25 2b 3d 31 37 3a  | b%=2.P.Ia%+=17:|
00009f10  62 25 2b 3d 31 33 3a e3  69 25 3d 31 33 b8 31 39  |b%+=13:.i%=13.19|
00009f20  3a f2 64 28 46 25 2c 69  25 2c 61 25 3d 69 25 84  |:.d(F%,i%,a%=i%.|
00009f30  62 25 3d 69 25 29 3a e7  69 25 3c 31 35 84 69 25  |b%=i%):.i%<15.i%|
00009f40  3e 31 36 f2 65 28 46 25  2c 69 25 2c 30 29 0d 50  |>16.e(F%,i%,0).P|
00009f50  32 46 ed 3a f2 65 28 46  25 2c 31 35 2c 74 25 3c  |2F.:.e(F%,15,t%<|
00009f60  34 29 3a f2 65 28 46 25  2c 32 30 2c 74 25 3e 33  |4):.e(F%,20,t%>3|
00009f70  29 3a e7 74 25 3c 34 f2  62 28 46 25 2c 32 30 2c  |):.t%<4.b(F%,20,|
00009f80  c3 28 7c 28 66 63 25 2b  50 63 25 2a 36 2b 31 29  |.(|(fc%+Pc%*6+1)|
00009f90  29 2c 31 29 0d 50 50 05  e1 0d 50 5a 78 dd f2 75  |),1).PP...PZx..u|
00009fa0  3a ea 74 25 3a 74 25 3d  28 a4 66 28 46 25 2c 32  |:.t%:t%=(.f(F%,2|
00009fb0  29 2d 31 37 29 2a 32 2b  a4 66 28 46 25 2c 33 29  |)-17)*2+.f(F%,3)|
00009fc0  2d 31 33 3a 66 63 25 3f  28 50 63 25 2a 36 29 3d  |-13:fc%?(Pc%*6)=|
00009fd0  74 25 3a 7c 28 66 63 25  2b 50 63 25 2a 36 2b 31  |t%:|(fc%+Pc%*6+1|
00009fe0  29 3d bb 28 a4 62 28 46  25 2c 32 30 29 29 3a f2  |)=.(.b(F%,20)):.|
00009ff0  42 28 58 61 25 2c 30 2c  2d 34 30 2d 33 36 2a 50  |B(Xa%,0,-40-36*P|
0000a000  63 25 2c 32 32 36 2c 2d  33 36 2a 50 63 25 29 3a  |c%,226,-36*Pc%):|
0000a010  e1 0d 50 a0 1e dd f2 4b  3a ea 69 25 2c 74 25 2c  |..P....K:.i%,t%,|
0000a020  66 25 2c 73 25 3a e7 45  25 3c 3e 58 61 25 e1 0d  |f%,s%:.E%<>Xa%..|
0000a030  50 c8 30 69 25 3d 30 3a  66 25 3d 66 63 25 3a 74  |P.0i%=0:f%=fc%:t|
0000a040  25 3d 66 25 3a 73 25 3d  53 62 25 3a c8 95 69 25  |%=f%:s%=Sb%:..i%|
0000a050  3c 73 25 3a e7 4d 25 3f  69 25 3d 32 35 35 8c 0d  |<s%:.M%?i%=255..|
0000a060  50 dc 18 53 62 25 2d 3d  31 3a 4d 25 3f 69 25 3d  |P..Sb%-=1:M%?i%=|
0000a070  30 3a 5f 25 2d 3d 31 0d  50 f0 23 cc 3a 3f 74 25  |0:_%-=1.P.#.:?t%|
0000a080  3d 3f 66 25 3a 7c 28 74  25 2b 31 29 3d 7c 28 66  |=?f%:|(t%+1)=|(f|
0000a090  25 2b 31 29 3a 74 25 2b  3d 36 0d 51 04 05 cd 0d  |%+1):t%+=6.Q....|
0000a0a0  51 04 32 66 25 2b 3d 36  3a 69 25 2b 3d 31 3a ce  |Q.2f%+=6:i%+=1:.|
0000a0b0  3a 45 25 3d 2d 31 3a 69  25 3d 33 36 2a 53 62 25  |:E%=-1:i%=36*Sb%|
0000a0c0  2b 34 3a e7 69 25 3c 32  30 30 20 69 25 3d 32 30  |+4:.i%<200 i%=20|
0000a0d0  30 0d 51 22 21 f2 6c 28  58 61 25 2c 30 2c 2d 69  |0.Q"!.l(Xa%,0,-i|
0000a0e0  25 2c 32 32 36 2c 30 29  3a f2 66 28 58 61 25 29  |%,226,0):.f(Xa%)|
0000a0f0  3a e1 0d 51 36 22 dd a4  43 28 60 25 2c 6c 25 29  |:..Q6"..C(`%,l%)|
0000a100  3a ea 74 25 2c 64 25 2c  54 63 25 3a e7 6c 25 3c  |:.t%,d%,Tc%:.l%<|
0000a110  3d 30 3d b9 0d 51 5e 17  54 63 25 3d 4f 25 3a e7  |=0=..Q^.Tc%=O%:.|
0000a120  77 63 25 2b 6c 25 3e 45  63 25 8c 0d 51 68 6f 74  |wc%+l%>Ec%..Qhot|
0000a130  25 3d a4 6a 28 4f 25 2c  32 30 34 38 29 3a e7 74  |%=.j(O%,2048):.t|
0000a140  25 3c 3e 30 20 4f 25 3d  74 25 3a 45 63 25 2b 3d  |%<>0 O%=t%:Ec%+=|
0000a150  32 30 34 38 8b 64 25 3d  a4 61 28 22 55 6e 61 62  |2048.d%=.a("Unab|
0000a160  6c 65 20 74 6f 20 73 74  6f 72 65 20 66 75 6e 63  |le to store func|
0000a170  74 69 6f 6e 20 64 75 65  20 74 6f 20 6c 61 63 6b  |tion due to lack|
0000a180  20 6f 66 20 6d 65 6d 6f  72 79 22 2c 22 4f 4b 22  | of memory","OK"|
0000a190  2c 22 22 2c 22 22 29 3a  3d a3 0d 51 7c 05 cd 0d  |,"",""):=..Q|...|
0000a1a0  51 86 2f 60 25 2b 3d 28  4f 25 2d 54 63 25 29 3a  |Q./`%+=(O%-Tc%):|
0000a1b0  f2 72 28 60 25 2c 4f 25  2b 77 63 25 2c 60 25 2b  |.r(`%,O%+wc%,`%+|
0000a1c0  6c 25 29 3a 77 63 25 2b  3d 6c 25 3a 3d b9 0d 51  |l%):wc%+=l%:=..Q|
0000a1d0  ae 52 dd f2 48 28 60 25  2c 6c 25 29 3a f2 72 28  |.R..H(`%,l%):.r(|
0000a1e0  60 25 2b 6c 25 2c 4f 25  2b 77 63 25 2c 60 25 29  |`%+l%,O%+wc%,`%)|
0000a1f0  3a 77 63 25 2d 3d 6c 25  3a e7 77 63 25 3c 45 63  |:wc%-=l%:.wc%<Ec|
0000a200  25 2d 32 30 34 38 20 4f  25 3d a4 6a 28 4f 25 2c  |%-2048 O%=.j(O%,|
0000a210  2d 32 30 34 38 29 3a 45  63 25 2d 3d 32 30 34 38  |-2048):Ec%-=2048|
0000a220  0d 51 c2 05 e1 0d 51 cc  22 dd f2 49 61 3a ea 69  |.Q....Q."..Ia:.i|
0000a230  25 2c 6a 25 2c 6e 25 2c  6c 25 2c 68 63 25 3a e7  |%,j%,n%,l%,hc%:.|
0000a240  45 25 3c 3e 48 25 e1 0d  51 f4 0e e7 a4 6d 28 2d  |E%<>H%..Q....m(-|
0000a250  31 29 3d a3 e1 0d 51 fe  45 69 25 3d 30 3a 6a 25  |1)=...Q.Ei%=0:j%|
0000a260  3d 30 3a 6c 25 3d 30 3a  6e 25 3d 4f 25 3a 68 63  |=0:l%=0:n%=O%:hc|
0000a270  25 3d 44 25 3a c8 95 69  25 3c 68 63 25 3a e7 4d  |%=D%:..i%<hc%:.M|
0000a280  25 3f 69 25 3d 32 35 35  84 28 6c 25 80 47 25 3f  |%?i%=255.(l%.G%?|
0000a290  28 6a 25 2b 33 29 3e 30  29 8c 0d 52 12 15 e7 47  |(j%+3)>0)..R...G|
0000a2a0  25 3f 28 6a 25 2b 33 29  3d 30 20 6c 25 3d b9 0d  |%?(j%+3)=0 l%=..|
0000a2b0  52 1c 38 f2 48 28 6e 25  2c 21 6e 25 29 3a f2 72  |R.8.H(n%,!n%):.r|
0000a2c0  28 47 25 2b 6a 25 2b 34  2c 47 25 2b 28 44 25 2a  |(G%+j%+4,G%+(D%*|
0000a2d0  34 29 2c 47 25 2b 6a 25  29 3a 44 25 2d 3d 31 3a  |4),G%+j%):D%-=1:|
0000a2e0  4d 25 3f 69 25 3d 30 0d  52 3a 18 cc 3a 6e 25 2b  |M%?i%=0.R:..:n%+|
0000a2f0  3d 21 6e 25 3a 6a 25 2b  3d 34 3a 6c 25 3d 30 0d  |=!n%:j%+=4:l%=0.|
0000a300  52 4e 05 cd 0d 52 4e 31  69 25 2b 3d 31 3a ce 3a  |RN...RN1i%+=1:.:|
0000a310  5f 25 3d 2d 31 3a 45 25  3d 2d 31 3a 69 25 3d 33  |_%=-1:E%=-1:i%=3|
0000a320  36 2a 44 25 2b 34 3a e7  69 25 3c 31 37 32 20 69  |6*D%+4:.i%<172 i|
0000a330  25 3d 31 37 32 0d 52 6c  29 f2 6c 28 48 25 2c 30  |%=172.Rl).l(H%,0|
0000a340  2c 2d 69 25 2c 33 31 36  2c 30 29 3a f2 66 28 48  |,-i%,316,0):.f(H|
0000a350  25 29 3a f2 69 3a f2 6b  28 55 25 29 3a e1 0d 52  |%):.i:.k(U%):..R|
0000a360  80 1d dd f2 54 28 55 63  25 2c 56 63 25 29 3a ea  |....T(Uc%,Vc%):.|
0000a370  69 25 3a e7 45 25 3c 3e  48 25 e1 0d 52 a8 1a e3  |i%:.E%<>H%..R...|
0000a380  69 25 3d 30 b8 44 25 2d  31 3a e7 4d 25 3f 69 25  |i%=0.D%-1:.M%?i%|
0000a390  3d 32 35 35 8c 0d 52 bc  1b e7 55 63 25 3e 2d 31  |=255..R...Uc%>-1|
0000a3a0  20 47 25 3f 28 69 25 2a  34 2b 31 29 3d 55 63 25  | G%?(i%*4+1)=Uc%|
0000a3b0  0d 52 c6 1d cc 3a e7 56  63 25 3e 2d 31 20 47 25  |.R...:.Vc%>-1 G%|
0000a3c0  3f 28 69 25 2a 34 2b 31  29 3d 56 63 25 0d 52 da  |?(i%*4+1)=Vc%.R.|
0000a3d0  05 cd 0d 52 e4 18 ed 3a  f2 66 28 48 25 29 3a f2  |...R...:.f(H%):.|
0000a3e0  69 3a f2 6b 28 55 25 29  3a e1 0d 53 02 16 dd f2  |i:.k(U%):..S....|
0000a3f0  77 28 6e 25 29 3a ea 69  25 3a e7 44 25 3d 30 e1  |w(n%):.i%:.D%=0.|
0000a400  0d 53 2a 32 e3 69 25 3d  30 b8 44 25 2d 31 3a e7  |.S*2.i%=0.D%-1:.|
0000a410  69 25 3d 6e 25 47 25 3f  28 69 25 2a 34 2b 31 29  |i%=n%G%?(i%*4+1)|
0000a420  3d 32 35 35 8b 47 25 3f  28 69 25 2a 34 2b 31 29  |=255.G%?(i%*4+1)|
0000a430  3d 30 0d 53 3e 07 ed 3a  e1 0d 53 52 30 dd f2 50  |=0.S>..:..SR0..P|
0000a440  28 77 25 29 3a f2 77 28  57 25 29 3a f2 66 28 48  |(w%):.w(W%):.f(H|
0000a450  25 29 3a f2 69 3a f2 6b  28 55 25 29 3a f2 64 28  |%):.i:.k(U%):.d(|
0000a460  77 25 2c 34 2c 31 29 3a  e1 0d 53 7a 18 dd f2 54  |w%,4,1):..Sz...T|
0000a470  61 3a ea 69 25 2c 63 25  3a e7 45 25 3c 3e 48 25  |a:.i%,c%:.E%<>H%|
0000a480  e1 0d 53 a2 31 63 25 3d  a4 6b 28 5a 61 25 2c 33  |..S.1c%=.k(Za%,3|
0000a490  29 3a e3 69 25 3d 30 b8  44 25 3a e7 4d 25 3f 69  |):.i%=0.D%:.M%?i|
0000a4a0  25 3d 32 35 35 20 47 25  3f 28 69 25 2a 34 29 3d  |%=255 G%?(i%*4)=|
0000a4b0  63 25 0d 53 b6 18 ed 3a  f2 66 28 48 25 29 3a f2  |c%.S...:.f(H%):.|
0000a4c0  69 3a f2 6b 28 55 25 29  3a e1 0d 53 ca 18 dd f2  |i:.k(U%):..S....|
0000a4d0  55 61 3a ea 69 25 2c 4b  25 3a e7 45 25 3c 3e 48  |Ua:.i%,K%:.E%<>H|
0000a4e0  25 e1 0d 53 f2 1f 4b 25  3d 37 2d a4 66 28 5f 61  |%..S..K%=7-.f(_a|
0000a4f0  25 2c 31 29 3a e7 4b 25  3d 30 20 4b 25 3d 32 35  |%,1):.K%=0 K%=25|
0000a500  35 0d 53 fc 26 e3 69 25  3d 30 b8 44 25 3a e7 4d  |5.S.&.i%=0.D%:.M|
0000a510  25 3f 69 25 3d 32 35 35  20 47 25 3f 28 69 25 2a  |%?i%=255 G%?(i%*|
0000a520  34 2b 32 29 3d 4b 25 0d  54 06 18 ed 3a f2 66 28  |4+2)=K%.T...:.f(|
0000a530  48 25 29 3a f2 69 3a f2  6b 28 55 25 29 3a e1 0d  |H%):.i:.k(U%):..|
0000a540  54 1a 6e dd f2 66 62 3a  ea 69 25 3a f2 47 28 30  |T.n..fb:.i%:.G(0|
0000a550  29 3a f2 64 28 4c 25 2c  31 37 2c 5f 62 25 29 3a  |):.d(L%,17,_b%):|
0000a560  f2 64 28 4c 25 2c 32 33  2c 62 63 25 29 3a e3 69  |.d(L%,23,bc%):.i|
0000a570  25 3d 32 36 b8 33 30 3a  f2 64 28 4c 25 2c 69 25  |%=26.30:.d(L%,i%|
0000a580  2c 61 63 25 3d 33 31 2d  69 25 29 3a ed 3a f2 70  |,ac%=31-i%):.:.p|
0000a590  28 4c 25 2c 32 32 2c 60  62 25 29 3a f2 6a 28 4c  |(L%,22,`b%):.j(L|
0000a5a0  25 29 3a f2 74 28 4c 25  2c 35 29 3a e1 0d 54 88  |%):.t(L%,5):..T.|
0000a5b0  76 dd f2 47 28 72 25 29  3a f2 62 28 4c 25 2c 35  |v..G(r%):.b(L%,5|
0000a5c0  2c c3 28 6a 29 2c 72 25  29 3a f2 62 28 4c 25 2c  |,.(j),r%):.b(L%,|
0000a5d0  36 2c c3 28 6d 29 2c 72  25 29 3a f2 62 28 4c 25  |6,.(m),r%):.b(L%|
0000a5e0  2c 37 2c c3 28 67 29 2c  72 25 29 3a f2 62 28 4c  |,7,.(g),r%):.b(L|
0000a5f0  25 2c 31 33 2c c3 28 6b  29 2c 72 25 29 3a f2 62  |%,13,.(k),r%):.b|
0000a600  28 4c 25 2c 31 34 2c c3  28 6e 29 2c 72 25 29 3a  |(L%,14,.(n),r%):|
0000a610  f2 62 28 4c 25 2c 31 35  2c c3 28 69 29 2c 72 25  |.b(L%,15,.(i),r%|
0000a620  29 3a e1 0d 54 e2 db dd  f2 51 61 28 57 63 25 29  |):..T....Qa(Wc%)|
0000a630  3a ea 61 2c 62 2c 63 2c  64 2c 65 2c 66 2c 64 25  |:.a,b,c,d,e,f,d%|
0000a640  3a 61 3d bb 28 a4 62 28  4c 25 2c 35 29 29 3a 62  |:a=.(.b(L%,5)):b|
0000a650  3d bb 28 a4 62 28 4c 25  2c 36 29 29 3a 63 3d bb  |=.(.b(L%,6)):c=.|
0000a660  28 a4 62 28 4c 25 2c 37  29 29 3a 64 3d bb 28 a4  |(.b(L%,7)):d=.(.|
0000a670  62 28 4c 25 2c 31 33 29  29 3a 65 3d bb 28 a4 62  |b(L%,13)):e=.(.b|
0000a680  28 4c 25 2c 31 34 29 29  3a 66 3d bb 28 a4 62 28  |(L%,14)):f=.(.b(|
0000a690  4c 25 2c 31 35 29 29 3a  e7 62 3c 3d 61 84 65 3c  |L%,15)):.b<=a.e<|
0000a6a0  3d 64 20 64 25 3d a4 61  28 22 41 20 6d 61 78 69  |=d d%=.a("A maxi|
0000a6b0  6d 75 6d 20 76 61 6c 75  65 20 73 68 6f 75 6c 64  |mum value should|
0000a6c0  20 62 65 20 6c 61 72 67  65 72 20 74 68 61 6e 20  | be larger than |
0000a6d0  74 68 65 20 63 6f 72 72  65 73 70 6f 6e 64 69 6e  |the correspondin|
0000a6e0  67 20 6d 69 6e 69 6d 75  6d 20 76 61 6c 75 65 22  |g minimum value"|
0000a6f0  2c 22 4f 4b 22 2c 22 22  2c 22 22 29 3a e1 0d 55  |,"OK","",""):..U|
0000a700  28 61 e7 63 3d 30 84 66  3d 30 20 64 25 3d a4 61  |(a.c=0.f=0 d%=.a|
0000a710  28 22 41 20 73 74 65 70  20 73 69 7a 65 20 6f 66  |("A step size of|
0000a720  20 30 20 6d 61 6b 65 73  20 6e 6f 20 73 65 6e 73  | 0 makes no sens|
0000a730  65 2e 20 20 50 6c 65 61  73 65 20 65 6e 74 65 72  |e.  Please enter|
0000a740  20 61 20 68 69 67 68 65  72 20 76 61 6c 75 65 2e  | a higher value.|
0000a750  22 2c 22 4f 4b 22 2c 22  22 2c 22 22 29 3a e1 0d  |","OK","",""):..|
0000a760  55 32 63 6a 3d 61 3a 6d  3d 62 3a 67 3d 63 3a 6b  |U2cj=a:m=b:g=c:k|
0000a770  3d 64 3a 6e 3d 65 3a 69  3d 66 3a 5f 62 25 3d a4  |=d:n=e:i=f:_b%=.|
0000a780  65 28 4c 25 2c 31 37 29  3a 62 63 25 3d a4 65 28  |e(L%,17):bc%=.e(|
0000a790  4c 25 2c 32 33 29 3a 61  63 25 3d 33 31 2d a4 66  |L%,23):ac%=31-.f|
0000a7a0  28 4c 25 2c 31 29 3a 60  62 25 3d a4 6b 28 4c 25  |(L%,1):`b%=.k(L%|
0000a7b0  2c 32 32 29 3a f2 78 3a  e7 57 63 25 f2 6e 28 4c  |,22):.x:.Wc%.n(L|
0000a7c0  25 29 0d 55 5a 08 f2 69  3a e1 0d 55 6e 38 dd f2  |%).UZ..i:..Un8..|
0000a7d0  52 61 3a ea 77 2c 68 3a  77 3d 6d 2d 6a 3a 68 3d  |Ra:.w,h:w=m-j:h=|
0000a7e0  6e 2d 6b 3a 6a 3d 2d 77  2f 32 3a 6d 3d 77 2f 32  |n-k:j=-w/2:m=w/2|
0000a7f0  3a 6b 3d 2d 68 2f 32 3a  6e 3d 68 2f 32 3a f2 67  |:k=-h/2:n=h/2:.g|
0000a800  3a e1 0d 55 b4 1a dd f2  67 3a f2 78 3a f2 69 3a  |:..U....g:.x:.i:|
0000a810  e7 a4 67 28 4c 25 29 f2  47 28 b9 29 0d 55 dc 05  |..g(L%).G(.).U..|
0000a820  e1 0d 55 e6 1f dd f2 4e  28 6e 25 2c 64 25 29 3a  |..U....N(n%,d%):|
0000a830  e7 64 25 3d 34 f2 5a 61  28 6e 25 2c 30 29 3a e1  |.d%=4.Za(n%,0):.|
0000a840  0d 56 04 58 e7 a4 61 28  22 44 6f 20 79 6f 75 20  |.V.X..a("Do you |
0000a850  77 61 6e 74 20 74 6f 20  73 74 6f 72 65 20 63 75  |want to store cu|
0000a860  72 72 65 6e 74 20 72 61  6e 67 65 20 61 73 20 73  |rrent range as s|
0000a870  65 74 20 22 2b c3 28 6e  25 2b 31 29 2b 22 3f 22  |et "+.(n%+1)+"?"|
0000a880  2c 22 59 65 73 22 2c 22  4e 6f 22 2c 22 22 29 3d  |,"Yes","No","")=|
0000a890  30 f2 6f 62 28 6e 25 29  0d 56 0e 05 e1 0d 56 18  |0.ob(n%).V....V.|
0000a8a0  4a dd f2 6f 62 28 6e 25  29 3a 61 28 6e 25 2c 30  |J..ob(n%):a(n%,0|
0000a8b0  29 3d 6a 3a 61 28 6e 25  2c 31 29 3d 6d 3a 61 28  |)=j:a(n%,1)=m:a(|
0000a8c0  6e 25 2c 32 29 3d 67 3a  61 28 6e 25 2c 33 29 3d  |n%,2)=g:a(n%,3)=|
0000a8d0  6b 3a 61 28 6e 25 2c 34  29 3d 6e 3a 61 28 6e 25  |k:a(n%,4)=n:a(n%|
0000a8e0  2c 35 29 3d 69 3a e1 0d  56 4a 18 dd f2 5a 61 28  |,5)=i:..VJ...Za(|
0000a8f0  6e 25 2c 64 25 29 3a ea  69 25 3a e7 64 25 8c 0d  |n%,d%):.i%:.d%..|
0000a900  56 72 42 6a 3d 61 28 6e  25 2c 30 29 3a 6d 3d 61  |VrBj=a(n%,0):m=a|
0000a910  28 6e 25 2c 31 29 3a 67  3d 61 28 6e 25 2c 32 29  |(n%,1):g=a(n%,2)|
0000a920  3a 6b 3d 61 28 6e 25 2c  33 29 3a 6e 3d 61 28 6e  |:k=a(n%,3):n=a(n|
0000a930  25 2c 34 29 3a 69 3d 61  28 6e 25 2c 35 29 3a f2  |%,4):i=a(n%,5):.|
0000a940  67 0d 56 9a 4e cc 3a e3  69 25 3d 30 b8 32 3a f2  |g.V.N.:.i%=0.2:.|
0000a950  62 28 4c 25 2c 35 2b 69  25 2c c3 28 61 28 6e 25  |b(L%,5+i%,.(a(n%|
0000a960  2c 69 25 29 29 2c b9 29  3a ed 3a e3 69 25 3d 33  |,i%)),.):.:.i%=3|
0000a970  b8 35 3a f2 62 28 4c 25  2c 31 30 2b 69 25 2c c3  |.5:.b(L%,10+i%,.|
0000a980  28 61 28 6e 25 2c 69 25  29 29 2c b9 29 3a ed 0d  |(a(n%,i%)),.):..|
0000a990  56 b8 05 cd 0d 56 b8 05  e1 0d 56 c2 75 dd f2 67  |V....V....V.u..g|
0000a9a0  62 3a ea 69 25 3a e3 69  25 3d 33 b8 38 3a f2 64  |b:.i%:.i%=3.8:.d|
0000a9b0  28 59 61 25 2c 69 25 2c  59 62 25 3d 39 2d 69 25  |(Ya%,i%,Yb%=9-i%|
0000a9c0  29 3a ed 3a e3 69 25 3d  33 33 b8 33 38 3a f2 64  |):.:.i%=33.38:.d|
0000a9d0  28 59 61 25 2c 69 25 2c  63 63 25 3d 33 39 2d 69  |(Ya%,i%,cc%=39-i|
0000a9e0  25 29 3a ed 3a f2 64 28  59 61 25 2c 33 39 2c 59  |%):.:.d(Ya%,39,Y|
0000a9f0  62 25 3d 30 29 3a f2 70  28 59 61 25 2c 32 39 2c  |b%=0):.p(Ya%,29,|
0000aa00  5a 62 25 29 3a f2 6a 28  59 61 25 29 3a e1 0d 57  |Zb%):.j(Ya%):..W|
0000aa10  26 2a dd f2 53 61 3a ea  58 63 25 3a 59 62 25 3d  |&*..Sa:.Xc%:Yb%=|
0000aa20  39 2d a4 66 28 59 61 25  2c 31 29 3a e7 59 62 25  |9-.f(Ya%,1):.Yb%|
0000aa30  3c 30 20 59 62 25 3d 30  0d 57 4e 3e 5a 62 25 3d  |<0 Yb%=0.WN>Zb%=|
0000aa40  a4 6b 28 59 61 25 2c 32  39 29 3a 58 63 25 3d 33  |.k(Ya%,29):Xc%=3|
0000aa50  39 2d a4 66 28 59 61 25  2c 32 29 3a e7 58 63 25  |9-.f(Ya%,2):.Xc%|
0000aa60  3d 63 63 25 f2 66 28 51  61 25 29 8b 63 63 25 3d  |=cc%.f(Qa%).cc%=|
0000aa70  58 63 25 3a f2 69 0d 57  6c 05 e1 0d 57 76 32 dd  |Xc%:.i.Wl...Wv2.|
0000aa80  f2 68 62 3a 45 62 25 3d  b9 3a f2 6a 28 5a 25 29  |.hb:Eb%=.:.j(Z%)|
0000aa90  3a 6a 24 3d a4 62 28 5a  25 2c 31 29 3a f2 4f 28  |:j$=.b(Z%,1):.O(|
0000aaa0  a4 65 28 5a 25 2c 39 29  3d 30 29 3a e1 0d 57 bc  |.e(Z%,9)=0):..W.|
0000aab0  51 dd f2 4f 28 67 25 29  3a ea 69 25 3a e3 69 25  |Q..O(g%):.i%:.i%|
0000aac0  3d 34 b8 38 3a f2 65 28  5a 25 2c 69 25 2c 67 25  |=4.8:.e(Z%,i%,g%|
0000aad0  29 3a ed 3a e7 67 25 3d  30 20 50 62 25 3d a4 66  |):.:.g%=0 Pb%=.f|
0000aae0  28 5a 25 2c 31 29 2d 37  2b 28 bb 28 a4 62 28 5a  |(Z%,1)-7+(.(.b(Z|
0000aaf0  25 2c 34 29 29 2a 32 29  8b 50 62 25 3d 30 0d 57  |%,4))*2).Pb%=0.W|
0000ab00  d0 05 e1 0d 57 da 47 dd  f2 6f 28 69 25 2c 64 25  |....W.G..o(i%,d%|
0000ab10  2c 62 25 29 3a ea 61 25  3a 61 25 3d bb 28 a4 62  |,b%):.a%:a%=.(.b|
0000ab20  28 56 61 25 2c 69 25 29  29 3a 61 25 2b 3d 64 25  |(Va%,i%)):a%+=d%|
0000ab30  3a e7 61 25 3e 39 39 39  20 61 25 3d 39 39 39 8b  |:.a%>999 a%=999.|
0000ab40  e7 61 25 3c 31 20 61 25  3d 31 0d 58 20 34 f2 62  |.a%<1 a%=1.X 4.b|
0000ab50  28 56 61 25 2c 69 25 2c  c3 28 61 25 29 2c 31 29  |(Va%,i%,.(a%),1)|
0000ab60  3a e7 a4 65 28 56 61 25  2c 31 38 29 f2 62 28 56  |:..e(Va%,18).b(V|
0000ab70  61 25 2c 62 25 2c c3 28  61 25 29 2c 31 29 0d 58  |a%,b%,.(a%),1).X|
0000ab80  34 08 f2 55 3a e1 0d 58  48 3c dd a4 44 28 69 25  |4..U:..XH<..D(i%|
0000ab90  29 3a ea 61 25 3a 61 25  3d bb 28 a4 62 28 56 61  |):.a%:a%=.(.b(Va|
0000aba0  25 2c 69 25 29 29 3a e7  61 25 3c 31 20 61 25 3d  |%,i%)):.a%<1 a%=|
0000abb0  31 3a f2 62 28 56 61 25  2c 69 25 2c 22 31 22 2c  |1:.b(Va%,i%,"1",|
0000abc0  31 29 0d 58 70 25 e7 61  25 3e 39 39 39 20 61 25  |1).Xp%.a%>999 a%|
0000abd0  3d 39 39 39 3a f2 62 28  56 61 25 2c 69 25 2c 22  |=999:.b(Va%,i%,"|
0000abe0  39 39 39 22 2c 31 29 0d  58 7a 07 3d 61 25 0d 58  |999",1).Xz.=a%.X|
0000abf0  98 38 dd f2 5f 61 28 69  25 2c 6b 25 29 3a e7 28  |.8.._a(i%,k%):.(|
0000ac00  6b 25 3e 34 37 80 6b 25  3c 35 38 29 84 6b 25 3d  |k%>47.k%<58).k%=|
0000ac10  31 32 37 84 6b 25 3d 38  84 6b 25 3d 32 31 84 6b  |127.k%=8.k%=21.k|
0000ac20  25 3d 33 39 35 8c 0d 58  a2 09 c8 8e 69 25 ca 0d  |%=395..X....i%..|
0000ac30  58 ac 2f c9 36 2c 31 34  3a e7 a4 65 28 56 61 25  |X./.6,14:..e(Va%|
0000ac40  2c 31 38 29 f2 62 28 56  61 25 2c 32 30 2d 69 25  |,18).b(Va%,20-i%|
0000ac50  2c a4 62 28 56 61 25 2c  69 25 29 2c 31 29 0d 58  |,.b(Va%,i%),1).X|
0000ac60  b6 2f c9 37 2c 31 35 3a  e7 a4 65 28 56 61 25 2c  |./.7,15:..e(Va%,|
0000ac70  31 38 29 f2 62 28 56 61  25 2c 32 32 2d 69 25 2c  |18).b(Va%,22-i%,|
0000ac80  a4 62 28 56 61 25 2c 69  25 29 2c 31 29 0d 58 c0  |.b(Va%,i%),1).X.|
0000ac90  05 cb 0d 58 ca 05 cd 0d  58 d4 0c e7 6b 25 3d 31  |...X....X...k%=1|
0000aca0  33 f2 55 0d 58 de 05 e1  0d 58 e8 78 dd f2 55 3a  |3.U.X....X.x..U:|
0000acb0  48 61 25 3d a4 44 28 36  29 3a 4a 61 25 3d a4 44  |Ha%=.D(6):Ja%=.D|
0000acc0  28 37 29 3a 49 61 25 3d  a4 44 28 31 34 29 3a 4b  |(7):Ia%=.D(14):K|
0000acd0  61 25 3d a4 44 28 31 35  29 3a 67 62 25 3d 28 73  |a%=.D(15):gb%=(s|
0000ace0  61 25 2d 38 38 29 2a 49  61 25 2f 4b 61 25 3a 68  |a%-88)*Ia%/Ka%:h|
0000acf0  62 25 3d 28 72 61 25 2d  34 36 29 2a 48 61 25 2f  |b%=(ra%-46)*Ha%/|
0000ad00  4a 61 25 3a f2 78 3a f2  6c 28 51 61 25 2c 30 2c  |Ja%:.x:.l(Qa%,0,|
0000ad10  2d 67 62 25 2c 68 62 25  2c 30 29 3a f2 69 3a e1  |-gb%,hb%,0):.i:.|
0000ad20  0d 59 24 92 dd a4 59 28  66 24 29 3a ea 6e 25 2c  |.Y$...Y(f$):.n%,|
0000ad30  6e 24 2c 70 24 2c 6f 24  2c 6c 25 2c 6c 24 2c 73  |n$,p$,o$,l%,l$,s|
0000ad40  24 2c 64 25 2c 59 63 25  2c 5a 63 25 3a 6e 25 3d  |$,d%,Yc%,Zc%:n%=|
0000ad50  37 3a 6e 24 3d 22 22 3a  70 24 3d 66 24 3a 6f 24  |7:n$="":p$=f$:o$|
0000ad60  3d 22 22 3a 5a 63 25 3d  30 3a 59 63 25 3d 2d 31  |="":Zc%=0:Yc%=-1|
0000ad70  3a f5 3a 6c 25 3d 6e 25  3a 6c 24 3d 6e 24 3a 6e  |:.:l%=n%:l$=n$:n|
0000ad80  24 3d a4 6e 28 70 24 2c  73 24 29 3a 6e 25 3d a4  |$=.n(p$,s$):n%=.|
0000ad90  49 28 6e 24 2c 64 25 29  3a e7 62 25 28 6e 25 2a  |I(n$,d%):.b%(n%*|
0000ada0  38 2b 6c 25 29 3d 30 80  6e 24 3d 22 2d 22 6e 25  |8+l%)=0.n$="-"n%|
0000adb0  3d 35 0d 59 74 38 e7 28  6c 25 3d 31 80 6e 25 3c  |=5.Yt8.(l%=1.n%<|
0000adc0  3e 32 29 84 28 6c 25 3d  35 80 6c 24 3d 22 2f 22  |>2).(l%=5.l$="/"|
0000add0  29 6f 24 2b 3d 22 28 22  3a 59 63 25 2b 3d 31 3a  |)o$+="(":Yc%+=1:|
0000ade0  7a 25 3f 59 63 25 3d 5a  63 25 0d 59 7e 73 c8 95  |z%?Yc%=Zc%.Y~s..|
0000adf0  59 63 25 3e 3d 30 80 28  28 6e 25 3d 35 80 6e 24  |Yc%>=0.((n%=5.n$|
0000ae00  3c 3e 22 5e 22 80 5a 63  25 3d 7a 25 3f 59 63 25  |<>"^".Zc%=z%?Yc%|
0000ae10  29 84 5a 63 25 3c 7a 25  3f 59 63 25 84 6e 25 3d  |).Zc%<z%?Yc%.n%=|
0000ae20  37 29 3a 6f 24 2b 3d 22  29 22 3a 59 63 25 2d 3d  |7):o$+=")":Yc%-=|
0000ae30  31 3a ce 3a e7 28 6c 25  3d 30 84 6c 25 3d 33 84  |1:.:.(l%=0.l%=3.|
0000ae40  6c 25 3d 36 29 80 28 6e  25 3d 31 84 6e 25 3d 32  |l%=6).(n%=1.n%=2|
0000ae50  84 6e 25 3d 36 29 6f 24  2b 3d 22 2a 22 0d 59 92  |.n%=6)o$+="*".Y.|
0000ae60  1d e7 6e 25 3d 32 20 5a  63 25 2b 3d 31 8b e7 6e  |..n%=2 Zc%+=1..n|
0000ae70  25 3d 33 20 5a 63 25 2d  3d 31 0d 59 9c 14 6f 24  |%=3 Zc%-=1.Y..o$|
0000ae80  2b 3d 6e 24 3a fd 6e 25  3d 37 3a 3d 6f 24 0d 59  |+=n$:.n%=7:=o$.Y|
0000ae90  c4 4b dd a4 4c 28 66 24  2c 78 24 2c f8 4a 25 2c  |.K..L(f$,x$,.J%,|
0000aea0  5f 63 25 29 3a ea 6e 25  2c 6e 24 2c 70 24 2c 6f  |_c%):.n%,n$,p$,o|
0000aeb0  24 2c 6c 25 2c 6c 24 2c  5a 63 25 2c 73 24 2c 4c  |$,l%,l$,Zc%,s$,L|
0000aec0  63 25 2c 64 24 2c 6d 25  2c 6d 24 3a e7 5f 63 25  |c%,d$,m%,m$:._c%|
0000aed0  66 24 3d a4 59 28 66 24  29 0d 59 d8 0d e7 78 24  |f$=.Y(f$).Y...x$|
0000aee0  3c 3e 22 78 22 8c 0d 59  e2 56 6e 25 3d 37 3a 6e  |<>"x"..Y.Vn%=7:n|
0000aef0  24 3d 22 22 3a 70 24 3d  66 24 3a 6f 24 3d 22 22  |$="":p$=f$:o$=""|
0000af00  3a f5 3a 6c 25 3d 6e 25  3a 6c 24 3d 6e 24 3a 6e  |:.:l%=n%:l$=n$:n|
0000af10  24 3d a4 6e 28 70 24 2c  73 24 29 3a 6d 24 3d 6e  |$=.n(p$,s$):m$=n|
0000af20  24 3a 6e 25 3d a4 49 28  6e 24 2c 64 25 29 3a e7  |$:n%=.I(n$,d%):.|
0000af30  6e 25 3d 36 80 6e 24 3d  22 78 22 8c 0d 5a 00 29  |n%=6.n$="x"..Z.)|
0000af40  e7 6c 25 3d 32 80 c0 70  24 2c 31 29 3d 22 29 22  |.l%=2..p$,1)=")"|
0000af50  6f 24 2b 3d 78 24 8b 6f  24 2b 3d 22 28 22 2b 78  |o$+=x$.o$+="("+x|
0000af60  24 2b 22 29 22 0d 5a 0a  17 cc 3a e7 5f 63 25 6f  |$+")".Z...:._c%o|
0000af70  24 2b 3d 6e 24 8b 6f 24  2b 3d 6d 24 0d 5a 1e 05  |$+=n$.o$+=m$.Z..|
0000af80  cd 0d 5a 28 0f fd 6e 25  3d 37 3a 66 24 3d 6f 24  |..Z(..n%=7:f$=o$|
0000af90  0d 5a 3c 05 cd 0d 5a 3c  4b 6e 25 3d 37 3a 6e 24  |.Z<...Z<Kn%=7:n$|
0000afa0  3d 22 22 3a 70 24 3d 66  24 3a 6f 24 3d 22 22 3a  |="":p$=f$:o$="":|
0000afb0  f5 3a 6e 24 3d a4 6e 28  70 24 2c 73 24 29 3a 6c  |.:n$=.n(p$,s$):l|
0000afc0  25 3d 97 28 6e 24 29 3a  e7 28 6c 25 3e 39 36 80  |%=.(n$):.(l%>96.|
0000afd0  6c 25 3c 31 32 33 80 6c  25 3c 3e 31 32 30 29 8c  |l%<123.l%<>120).|
0000afe0  0d 5a 50 1f 4c 63 25 3d  a4 42 28 6e 24 2c 6d 25  |.ZP.Lc%=.B(n$,m%|
0000aff0  29 3a e7 4c 63 25 3d 32  84 4c 63 25 3d 33 8c 0d  |):.Lc%=2.Lc%=3..|
0000b000  5a 5a 46 5a 63 25 3d 30  3a 64 24 3d 22 22 3a f5  |ZZFZc%=0:d$="":.|
0000b010  3a 64 24 2b 3d c0 70 24  2c 31 29 3a 70 24 3d c1  |:d$+=.p$,1):p$=.|
0000b020  70 24 2c 32 29 3a e7 c2  64 24 29 3d 22 28 22 5a  |p$,2):..d$)="("Z|
0000b030  63 25 2b 3d 31 8b e7 c2  64 24 29 3d 22 29 22 5a  |c%+=1...d$)=")"Z|
0000b040  63 25 2d 3d 31 0d 5a 6e  3d fd 5a 63 25 3d 30 3a  |c%-=1.Zn=.Zc%=0:|
0000b050  6f 24 2b 3d a4 4c 28 24  28 6d 25 2b 35 2b a9 28  |o$+=.L($(m%+5+.(|
0000b060  24 28 6d 25 2b 34 29 29  29 2c c1 64 24 2c 32 2c  |$(m%+4))),.d$,2,|
0000b070  a9 28 64 24 29 2d 32 29  2c 4a 25 2c 4c 63 25 3d  |.(d$)-2),J%,Lc%=|
0000b080  33 29 0d 5a 82 18 cc 3a  6f 24 2b 3d 6e 24 3a e7  |3).Z...:o$+=n$:.|
0000b090  4c 63 25 3d 30 20 4a 25  3d a3 0d 5a 8c 05 cd 0d  |Lc%=0 J%=..Z....|
0000b0a0  5a 96 0c cc 3a 6f 24 2b  3d 6e 24 0d 5a b4 05 cd  |Z...:o$+=n$.Z...|
0000b0b0  0d 5a b4 13 fd 70 24 3d  22 22 84 4a 25 3d a3 3a  |.Z...p$="".J%=.:|
0000b0c0  3d 6f 24 0d 5a dc 62 dd  f2 69 3a ea 69 25 2c 73  |=o$.Z.b..i:.i%,s|
0000b0d0  25 2c 4a 25 2c 60 63 25  2c 6d 25 2c 6e 25 2c 76  |%,J%,`c%,m%,n%,v|
0000b0e0  25 2c 6c 25 2c 66 24 2c  6a 25 2c 78 25 2c 79 25  |%,l%,f$,j%,x%,y%|
0000b0f0  2c 78 2c 79 2c 61 64 25  2c 62 64 25 2c 73 2c 70  |,x,y,ad%,bd%,s,p|
0000b100  2c 63 64 25 2c 72 25 2c  70 25 2c 64 64 25 3a ea  |,cd%,r%,p%,dd%:.|
0000b110  85 3a e7 46 62 25 3c 3e  30 20 46 62 25 3d a4 46  |.:.Fb%<>0 Fb%=.F|
0000b120  28 46 62 25 29 0d 5a fa  0f e7 a4 67 28 51 61 25  |(Fb%).Z....g(Qa%|
0000b130  29 3d 30 e1 0d 5b 04 10  e7 44 25 3d 30 f2 66 28  |)=0..[...D%=0.f(|
0000b140  51 61 25 29 0d 5b 0e 25  73 25 3d 30 3a e3 69 25  |Qa%).[.%s%=0:.i%|
0000b150  3d 30 b8 44 25 2d 31 3a  e7 47 25 3f 28 69 25 2a  |=0.D%-1:.G%?(i%*|
0000b160  34 2b 31 29 3d 32 35 35  8c 0d 5b 22 24 60 63 25  |4+1)=255..["$`c%|
0000b170  3d 47 25 3f 28 69 25 2a  34 2b 32 29 3a e7 60 63  |=G%?(i%*4+2):.`c|
0000b180  25 3d 32 35 35 20 60 63  25 3d 63 63 25 0d 5b 2c  |%=255 `c%=cc%.[,|
0000b190  1f 73 25 2b 3d 28 28 68  62 25 2f 65 62 25 2f 61  |.s%+=((hb%/eb%/a|
0000b1a0  25 28 60 63 25 29 29 2b  38 29 2a 34 0d 5b 40 05  |%(`c%))+8)*4.[@.|
0000b1b0  cd 0d 5b 40 14 ed 3a e7  73 25 3d 30 f2 66 28 51  |..[@..:.s%=0.f(Q|
0000b1c0  61 25 29 3a e1 0d 5b 54  64 46 62 25 3d a4 72 28  |a%):..[TdFb%=.r(|
0000b1d0  73 25 2b 34 29 3a e7 46  62 25 3d 30 20 64 25 3d  |s%+4):.Fb%=0 d%=|
0000b1e0  a4 61 28 22 49 20 68 61  76 65 20 72 75 6e 20 6f  |.a("I have run o|
0000b1f0  75 74 20 6f 66 20 6d 65  6d 6f 72 79 20 74 72 79  |ut of memory try|
0000b200  69 6e 67 20 74 6f 20 70  6c 6f 74 20 67 72 61 70  |ing to plot grap|
0000b210  68 73 22 2c 22 4f 4b 22  2c 22 22 2c 22 22 29 3a  |hs","OK","",""):|
0000b220  f2 6e 28 51 61 25 29 3a  e1 0d 5b 68 67 64 63 25  |.n(Qa%):..[hgdc%|
0000b230  3d 31 3c 3c 33 30 3a c8  99 32 36 33 38 37 32 3a  |=1<<30:..263872:|
0000b240  62 64 25 3d 73 25 3a 6e  25 3d 46 62 25 3a 69 25  |bd%=s%:n%=Fb%:i%|
0000b250  3d 30 3a 6d 25 3d 4f 25  3a c8 95 69 25 3c 44 25  |=0:m%=O%:..i%<D%|
0000b260  3a 76 25 3d 47 25 3f 28  69 25 2a 34 2b 31 29 3a  |:v%=G%?(i%*4+1):|
0000b270  60 63 25 3d 47 25 3f 28  69 25 2a 34 2b 32 29 3a  |`c%=G%?(i%*4+2):|
0000b280  e7 60 63 25 3d 32 35 35  20 60 63 25 3d 63 63 25  |.`c%=255 `c%=cc%|
0000b290  0d 5b 86 17 6c 25 3d 34  3a c8 8e 47 25 3f 28 69  |.[..l%=4:..G%?(i|
0000b2a0  25 2a 34 2b 33 29 ca 0d  5b 90 2f c9 30 3a 4a 25  |%*4+3)..[./.0:J%|
0000b2b0  3d b9 3a 66 24 3d a4 4c  28 24 28 6d 25 2b 34 29  |=.:f$=.L($(m%+4)|
0000b2c0  2c 22 78 22 2c 4a 25 2c  b9 29 3a e7 4a 25 3d a3  |,"x",J%,.):.J%=.|
0000b2d0  84 76 25 3d a3 8c 0d 5b  ae 4f e7 4a 25 3d a3 47  |.v%=...[.O.J%=.G|
0000b2e0  25 3f 28 69 25 2a 34 2b  31 29 3d 30 3a 6a 25 3d  |%?(i%*4+1)=0:j%=|
0000b2f0  69 25 2b 31 3a c8 95 47  25 3f 28 6a 25 2a 34 2b  |i%+1:..G%?(j%*4+|
0000b300  33 29 3e 30 80 6a 25 3c  44 25 3a 47 25 3f 28 6a  |3)>0.j%<D%:G%?(j|
0000b310  25 2a 34 2b 31 29 3d 30  3a 6a 25 2b 3d 31 3a ce  |%*4+1)=0:j%+=1:.|
0000b320  3a 76 25 3d a3 0d 5b b8  6a cc 3a 78 25 3d a4 45  |:v%=..[.j.:x%=.E|
0000b330  28 60 63 25 29 3a 6e 25  21 6c 25 3d 78 25 3a 6c  |(`c%):n%!l%=x%:l|
0000b340  25 2b 3d 34 3a 6e 25 21  6c 25 3d 47 25 21 28 69  |%+=4:n%!l%=G%!(i|
0000b350  25 2a 34 29 3a 6c 25 2b  3d 34 3a c8 95 78 25 3c  |%*4):l%+=4:..x%<|
0000b360  3d 68 62 25 3a 78 3d 28  78 25 2d 69 62 25 29 2f  |=hb%:x=(x%-ib%)/|
0000b370  6f 3a 79 3d a4 6c 28 66  24 2c 78 29 3a e7 79 3c  |o:y=.l(f$,x):.y<|
0000b380  3e 64 63 25 79 3d 6a 62  25 2b 28 79 2a 71 29 0d  |>dc%y=jb%+(y*q).|
0000b390  5b d6 47 6e 25 21 6c 25  3d 79 3a 6c 25 2b 3d 34  |[.Gn%!l%=y:l%+=4|
0000b3a0  3a 78 25 2b 3d 61 25 28  60 63 25 29 2a 65 62 25  |:x%+=a%(`c%)*eb%|
0000b3b0  3a 58 62 25 3d 79 25 3a  c8 99 32 36 33 38 37 36  |:Xb%=y%:..263876|
0000b3c0  2c 28 6e 25 2b 6c 25 2d  46 62 25 29 2f 62 64 25  |,(n%+l%-Fb%)/bd%|
0000b3d0  2a 31 30 30 3a ce 0d 5b  ea 05 cd 0d 5b ea 0b c9  |*100:..[....[...|
0000b3e0  31 3a e7 76 25 8c 0d 5b  f4 2b 70 25 3d 34 3a 72  |1:.v%..[.+p%=4:r|
0000b3f0  25 3d 30 3a c8 95 6d 25  3f 70 25 3c 3e 32 35 35  |%=0:..m%?p%<>255|
0000b400  3a e7 6d 25 3f 70 25 3d  36 20 72 25 3d 72 25 82  |:.m%?p%=6 r%=r%.|
0000b410  b9 0d 5b fe 1b 70 25 2b  3d 36 3a ce 3a 64 64 25  |..[..p%+=6:.:dd%|
0000b420  3d 70 25 2d 36 3a e7 72  25 3d b9 8c 0d 5c 12 9b  |=p%-6:.r%=...\..|
0000b430  79 25 3d a4 5a 28 60 63  25 29 3a 6e 25 21 6c 25  |y%=.Z(`c%):n%!l%|
0000b440  3d 79 25 3a 6c 25 2b 3d  34 3a 6e 25 21 6c 25 3d  |=y%:l%+=4:n%!l%=|
0000b450  47 25 21 28 69 25 2a 34  29 2b 28 31 3c 3c 33 31  |G%!(i%*4)+(1<<31|
0000b460  29 3a 6c 25 2b 3d 34 3a  c8 95 79 25 3e 3d 2d 67  |):l%+=4:..y%>=-g|
0000b470  62 25 2d 66 62 25 3a 79  3d a4 4d 28 28 79 25 2d  |b%-fb%:y=.M((y%-|
0000b480  6a 62 25 29 2f 71 2c 6d  25 2c 64 64 25 2c b9 29  |jb%)/q,m%,dd%,.)|
0000b490  3a 78 3d a4 6c 28 66 24  2c 79 29 3a e7 78 3c 3e  |:x=.l(f$,y):.x<>|
0000b4a0  64 63 25 78 3d a4 4e 28  78 2c 6d 25 29 3a 6e 25  |dc%x=.N(x,m%):n%|
0000b4b0  21 6c 25 3d 69 62 25 2b  28 78 2a 6f 29 8b 6e 25  |!l%=ib%+(x*o).n%|
0000b4c0  21 6c 25 3d 64 63 25 0d  5c 26 38 6c 25 2b 3d 34  |!l%=dc%.\&8l%+=4|
0000b4d0  3a 79 25 2d 3d 61 25 28  60 63 25 29 2a 66 62 25  |:y%-=a%(`c%)*fb%|
0000b4e0  3a c8 99 32 36 33 38 37  36 2c 28 6e 25 2b 6c 25  |:..263876,(n%+l%|
0000b4f0  2d 46 62 25 29 2f 62 64  25 2a 31 30 30 3a ce 0d  |-Fb%)/bd%*100:..|
0000b500  5c 3a 90 cc 3a 78 25 3d  a4 45 28 60 63 25 29 3a  |\:..:x%=.E(`c%):|
0000b510  6e 25 21 6c 25 3d 78 25  3a 6c 25 2b 3d 34 3a 6e  |n%!l%=x%:l%+=4:n|
0000b520  25 21 6c 25 3d 47 25 21  28 69 25 2a 34 29 3a 6c  |%!l%=G%!(i%*4):l|
0000b530  25 2b 3d 34 3a c8 95 78  25 3c 3d 68 62 25 3a 78  |%+=4:..x%<=hb%:x|
0000b540  3d a4 4d 28 28 78 25 2d  69 62 25 29 2f 6f 2c 6d  |=.M((x%-ib%)/o,m|
0000b550  25 2c 64 64 25 2c 30 29  3a 79 3d a4 6c 28 66 24  |%,dd%,0):y=.l(f$|
0000b560  2c 78 29 3a e7 79 3c 3e  64 63 25 79 3d a4 4e 28  |,x):.y<>dc%y=.N(|
0000b570  79 2c 6d 25 29 3a 6e 25  21 6c 25 3d 6a 62 25 2b  |y,m%):n%!l%=jb%+|
0000b580  28 79 2a 71 29 8b 6e 25  21 6c 25 3d 64 63 25 0d  |(y*q).n%!l%=dc%.|
0000b590  5c 4e 38 6c 25 2b 3d 34  3a 78 25 2b 3d 61 25 28  |\N8l%+=4:x%+=a%(|
0000b5a0  60 63 25 29 2a 65 62 25  3a c8 99 32 36 33 38 37  |`c%)*eb%:..26387|
0000b5b0  36 2c 28 6e 25 2b 6c 25  2d 46 62 25 29 2f 62 64  |6,(n%+l%-Fb%)/bd|
0000b5c0  25 2a 31 30 30 3a ce 0d  5c 62 05 cd 0d 5c 62 05  |%*100:..\b...\b.|
0000b5d0  cd 0d 5c 6c 0b c9 32 3a  e7 76 25 8c 0d 5c 76 9e  |..\l..2:.v%..\v.|
0000b5e0  78 25 3d a4 45 28 60 63  25 29 3a 6e 25 21 6c 25  |x%=.E(`c%):n%!l%|
0000b5f0  3d 78 25 3a 6c 25 2b 3d  34 3a 6e 25 21 6c 25 3d  |=x%:l%+=4:n%!l%=|
0000b600  47 25 21 28 69 25 2a 34  29 3a 6c 25 2b 3d 34 3a  |G%!(i%*4):l%+=4:|
0000b610  c8 95 78 25 3c 3d 68 62  25 3a 78 3d 28 78 25 2d  |..x%<=hb%:x=(x%-|
0000b620  69 62 25 29 2f 6f 3a 73  3d a4 6c 28 66 24 2c 78  |ib%)/o:s=.l(f$,x|
0000b630  2b 30 2e 30 30 30 30 31  29 3a 70 3d a4 6c 28 66  |+0.00001):p=.l(f|
0000b640  24 2c 78 29 3a e7 73 3d  64 63 25 84 70 3d 64 63  |$,x):.s=dc%.p=dc|
0000b650  25 6e 25 21 6c 25 3d 64  63 25 8b 79 3d 28 73 2d  |%n%!l%=dc%.y=(s-|
0000b660  70 29 2f 30 2e 30 30 30  30 31 3a 6e 25 21 6c 25  |p)/0.00001:n%!l%|
0000b670  3d 6a 62 25 2b 28 79 2a  71 29 0d 5c 8a 38 6c 25  |=jb%+(y*q).\.8l%|
0000b680  2b 3d 34 3a 78 25 2b 3d  61 25 28 60 63 25 29 2a  |+=4:x%+=a%(`c%)*|
0000b690  65 62 25 3a c8 99 32 36  33 38 37 36 2c 28 6e 25  |eb%:..263876,(n%|
0000b6a0  2b 6c 25 2d 46 62 25 29  2f 62 64 25 2a 31 30 30  |+l%-Fb%)/bd%*100|
0000b6b0  3a ce 0d 5c 9e 05 cd 0d  5c 9e 0b c9 33 3a e7 76  |:..\....\...3:.v|
0000b6c0  25 8c 0d 5c a8 44 78 25  3d a4 45 28 60 63 25 29  |%..\.Dx%=.E(`c%)|
0000b6d0  3a 6e 25 21 6c 25 3d 78  25 3a 6c 25 2b 3d 34 3a  |:n%!l%=x%:l%+=4:|
0000b6e0  6e 25 21 6c 25 3d 47 25  21 28 69 25 2a 34 29 3a  |n%!l%=G%!(i%*4):|
0000b6f0  6c 25 2b 3d 34 3a 79 3d  30 3a c8 8e b4 28 78 25  |l%+=4:y=0:...(x%|
0000b700  2d 69 62 25 29 ca 0d 5c  bc 45 c9 2d 31 3a 63 64  |-ib%)..\.E.-1:cd|
0000b710  25 3d 28 69 62 25 2d 65  62 25 2f 32 29 3a f5 3a  |%=(ib%-eb%/2):.:|
0000b720  70 3d a4 6c 28 66 24 2c  28 63 64 25 2d 69 62 25  |p=.l(f$,(cd%-ib%|
0000b730  29 2f 6f 29 3a e7 70 3d  64 63 25 79 3d 30 8b 79  |)/o):.p=dc%y=0.y|
0000b740  2d 3d 28 70 2a 65 62 25  2f 6f 29 0d 5c d0 15 63  |-=(p*eb%/o).\..c|
0000b750  64 25 2d 3d 65 62 25 3a  fd 63 64 25 3c 3d 78 25  |d%-=eb%:.cd%<=x%|
0000b760  0d 5c e4 44 c9 31 3a 63  64 25 3d 28 69 62 25 2b  |.\.D.1:cd%=(ib%+|
0000b770  65 62 25 2f 32 29 3a f5  3a 70 3d a4 6c 28 66 24  |eb%/2):.:p=.l(f$|
0000b780  2c 28 63 64 25 2d 69 62  25 29 2f 6f 29 3a e7 70  |,(cd%-ib%)/o):.p|
0000b790  3d 64 63 25 79 3d 30 8b  79 2b 3d 28 70 2a 65 62  |=dc%y=0.y+=(p*eb|
0000b7a0  25 2f 6f 29 0d 5c ee 15  63 64 25 2b 3d 65 62 25  |%/o).\..cd%+=eb%|
0000b7b0  3a fd 63 64 25 3e 3d 78  25 0d 5d 02 05 cb 0d 5d  |:.cd%>=x%.]....]|
0000b7c0  02 70 c8 95 78 25 3c 3d  68 62 25 3a 6e 25 21 6c  |.p..x%<=hb%:n%!l|
0000b7d0  25 3d 6a 62 25 2b 28 79  2a 71 29 3a 6c 25 2b 3d  |%=jb%+(y*q):l%+=|
0000b7e0  34 3a 63 64 25 3d 28 78  25 2b 65 62 25 2f 32 29  |4:cd%=(x%+eb%/2)|
0000b7f0  3a 78 25 2b 3d 61 25 28  60 63 25 29 2a 65 62 25  |:x%+=a%(`c%)*eb%|
0000b800  3a f5 3a 70 3d a4 6c 28  66 24 2c 28 63 64 25 2d  |:.:p=.l(f$,(cd%-|
0000b810  69 62 25 29 2f 6f 29 3a  e7 70 3d 64 63 25 79 3d  |ib%)/o):.p=dc%y=|
0000b820  30 8b 79 2b 3d 28 70 2a  65 62 25 2f 6f 29 0d 5d  |0.y+=(p*eb%/o).]|
0000b830  0c 34 63 64 25 2b 3d 65  62 25 3a fd 63 64 25 3e  |.4cd%+=eb%:.cd%>|
0000b840  3d 78 25 3a c8 99 32 36  33 38 37 36 2c 28 6e 25  |=x%:..263876,(n%|
0000b850  2b 6c 25 2d 46 62 25 29  2f 62 64 25 2a 31 30 30  |+l%-Fb%)/bd%*100|
0000b860  3a ce 0d 5d 20 05 cd 0d  5d 20 05 cb 0d 5d 2a 23  |:..] ...] ...]*#|
0000b870  69 25 2b 3d 31 3a 6d 25  2b 3d 21 6d 25 3a e7 76  |i%+=1:m%+=!m%:.v|
0000b880  25 20 21 6e 25 3d 6c 25  3a 6e 25 2b 3d 6c 25 0d  |% !n%=l%:n%+=l%.|
0000b890  5d 34 18 ce 3a e7 6e 25  3d 46 62 25 46 62 25 3d  |]4..:.n%=Fb%Fb%=|
0000b8a0  a4 46 28 46 62 25 29 0d  5d 48 24 c8 99 32 36 33  |.F(Fb%).]H$..263|
0000b8b0  38 37 33 3a 21 6e 25 3d  2d 31 3a f2 66 28 51 61  |873:!n%=-1:.f(Qa|
0000b8c0  25 29 3a f2 66 28 48 25  29 3a e1 0d 5d 5c 1b dd  |%):.f(H%):..]\..|
0000b8d0  a4 6c 28 66 24 2c 78 29  3a ea 79 3a ea 85 3a ee  |.l(f$,x):.y:..:.|
0000b8e0  85 ea 3d 64 63 25 0d 5d  8e 0e 79 3d a0 28 66 24  |..=dc%.]..y=.(f$|
0000b8f0  29 3a 3d 79 0d 5d ac 32  dd a4 45 28 60 63 25 29  |):=y.].2..E(`c%)|
0000b900  3a ea 77 25 2c 78 25 3a  77 25 3d 61 25 28 60 63  |:.w%,x%:w%=a%(`c|
0000b910  25 29 2a 65 62 25 3a e7  69 62 25 3d 30 84 77 25  |%)*eb%:.ib%=0.w%|
0000b920  3d 65 62 25 3d 30 0d 5d  ca 0b e7 69 62 25 3c 30  |=eb%=0.]...ib%<0|
0000b930  8c 0d 5d d4 1a 78 25 3d  69 62 25 3a f5 3a 78 25  |..]..x%=ib%:.:x%|
0000b940  2b 3d 77 25 3a fd 78 25  3e 3d 30 0d 5d e8 20 cc  |+=w%:.x%>=0.]. .|
0000b950  3a 78 25 3d 69 62 25 3a  c8 95 78 25 2d 77 25 3e  |:x%=ib%:..x%-w%>|
0000b960  3d 30 3a 78 25 2d 3d 77  25 3a ce 0d 5d fc 05 cd  |=0:x%-=w%:..]...|
0000b970  0d 5d fc 07 3d 78 25 0d  5e 1a 32 dd a4 5a 28 60  |.]..=x%.^.2..Z(`|
0000b980  63 25 29 3a ea 68 25 2c  79 25 3a 68 25 3d 61 25  |c%):.h%,y%:h%=a%|
0000b990  28 60 63 25 29 2a 66 62  25 3a e7 6a 62 25 3d 30  |(`c%)*fb%:.jb%=0|
0000b9a0  84 68 25 3d 66 62 25 3d  30 0d 5e 38 0b e7 6a 62  |.h%=fb%=0.^8..jb|
0000b9b0  25 3e 30 8c 0d 5e 42 1a  79 25 3d 6a 62 25 3a f5  |%>0..^B.y%=jb%:.|
0000b9c0  3a 79 25 2d 3d 77 25 3a  fd 79 25 3c 3d 30 0d 5e  |:y%-=w%:.y%<=0.^|
0000b9d0  56 20 cc 3a 79 25 3d 6a  62 25 3a c8 95 79 25 2b  |V .:y%=jb%:..y%+|
0000b9e0  68 25 3c 3d 30 3a 79 25  2b 3d 68 25 3a ce 0d 5e  |h%<=0:y%+=h%:..^|
0000b9f0  6a 05 cd 0d 5e 6a 07 3d  79 25 0d 5e 88 24 dd a4  |j...^j.=y%.^.$..|
0000ba00  4d 28 78 2c 6d 25 2c 70  25 2c 72 25 29 3a c8 95  |M(x,m%,p%,r%):..|
0000ba10  70 25 3e 3d 34 3a c8 8e  6d 25 3f 70 25 ca 0d 5e  |p%>=4:..m%?p%..^|
0000ba20  92 1a c9 30 3a e7 72 25  3d 30 20 78 2d 3d 7c 28  |...0:.r%=0 x-=|(|
0000ba30  6d 25 2b 70 25 2b 31 29  0d 5e 9c 17 c9 31 3a e7  |m%+p%+1).^...1:.|
0000ba40  72 25 78 2d 3d 7c 28 6d  25 2b 70 25 2b 31 29 0d  |r%x-=|(m%+p%+1).|
0000ba50  5e a6 1b c9 32 3a e7 72  25 3d 30 20 78 3d 78 2f  |^...2:.r%=0 x=x/|
0000ba60  7c 28 6d 25 2b 70 25 2b  31 29 0d 5e b0 18 c9 33  ||(m%+p%+1).^...3|
0000ba70  3a e7 72 25 78 3d 78 2f  7c 28 6d 25 2b 70 25 2b  |:.r%x=x/|(m%+p%+|
0000ba80  31 29 0d 5e ba 11 c9 34  3a e7 72 25 3d 30 20 78  |1).^...4:.r%=0 x|
0000ba90  3d 2d 78 0d 5e c4 0e c9  35 3a e7 72 25 78 3d 2d  |=-x.^...5:.r%x=-|
0000baa0  78 0d 5e ce 0e c9 36 3a  72 25 3d 72 25 82 b9 0d  |x.^...6:r%=r%...|
0000bab0  5e e2 05 cb 0d 5e e2 0e  70 25 2d 3d 36 3a ce 3a  |^....^..p%-=6:.:|
0000bac0  3d 78 0d 5f 0a 34 dd a4  4e 28 79 2c 6d 25 29 3a  |=x._.4..N(y,m%):|
0000bad0  ea 72 25 2c 70 25 3a 72  25 3d 30 3a 70 25 3d 34  |.r%,p%:r%=0:p%=4|
0000bae0  3a c8 95 6d 25 3f 70 25  3c 3e 32 35 35 3a c8 8e  |:..m%?p%<>255:..|
0000baf0  6d 25 3f 70 25 ca 0d 5f  1e 17 c9 30 3a e7 72 25  |m%?p%.._...0:.r%|
0000bb00  79 2b 3d 7c 28 6d 25 2b  70 25 2b 31 29 0d 5f 28  |y+=|(m%+p%+1)._(|
0000bb10  1a c9 31 3a e7 72 25 3d  30 20 79 2b 3d 7c 28 6d  |..1:.r%=0 y+=|(m|
0000bb20  25 2b 70 25 2b 31 29 0d  5f 32 18 c9 32 3a e7 72  |%+p%+1)._2..2:.r|
0000bb30  25 79 3d 79 2a 7c 28 6d  25 2b 70 25 2b 31 29 0d  |%y=y*|(m%+p%+1).|
0000bb40  5f 3c 1b c9 33 3a e7 72  25 3d 30 20 79 3d 79 2a  |_<..3:.r%=0 y=y*|
0000bb50  7c 28 6d 25 2b 70 25 2b  31 29 0d 5f 46 0e c9 34  ||(m%+p%+1)._F..4|
0000bb60  3a e7 72 25 79 3d 2d 79  0d 5f 50 11 c9 35 3a e7  |:.r%y=-y._P..5:.|
0000bb70  72 25 3d 30 20 79 3d 2d  79 0d 5f 5a 0e c9 36 3a  |r%=0 y=-y._Z..6:|
0000bb80  72 25 3d 72 25 82 b9 0d  5f 6e 05 cb 0d 5f 6e 0e  |r%=r%..._n..._n.|
0000bb90  70 25 2b 3d 36 3a ce 3a  3d 79 0d 5f c8 68 dd f2  |p%+=6:.:=y._.h..|
0000bba0  72 61 3a ea 74 25 3a c8  99 38 31 b8 65 64 25 3a  |ra:.t%:..81.ed%:|
0000bbb0  66 64 25 3d 65 64 25 3a  c8 99 32 36 32 33 38 30  |fd%=ed%:..262380|
0000bbc0  2c 2d 31 2c 2d 31 b8 74  25 3a 67 64 25 3d 74 25  |,-1,-1.t%:gd%=t%|
0000bbd0  2b 33 32 37 36 38 3a c8  99 32 36 32 33 38 30 2c  |+32768:..262380,|
0000bbe0  67 64 25 2b 66 64 25 2d  33 32 37 36 38 2c 2d 31  |gd%+fd%-32768,-1|
0000bbf0  3a c8 99 32 39 2c 30 2c  67 64 25 2c 2c 66 64 25  |:..29,0,gd%,,fd%|
0000bc00  3a e1 0d 60 18 34 dd a4  72 28 68 64 25 29 3a ea  |:..`.4..r(hd%):.|
0000bc10  61 25 3a c8 99 31 33 31  31 30 31 2c 32 2c 67 64  |a%:..131101,2,gd|
0000bc20  25 2c 2c 68 64 25 b8 2c  2c 61 25 3a e7 61 25 3c  |%,,hd%.,,a%:.a%<|
0000bc30  3e 30 8c 3d 61 25 0d 60  4a 11 e7 a4 4f 28 68 64  |>0.=a%.`J...O(hd|
0000bc40  25 29 3d a3 8c 3d 30 0d  60 54 24 c8 99 31 33 31  |%)=..=0.`T$..131|
0000bc50  31 30 31 2c 32 2c 67 64  25 2c 2c 68 64 25 b8 2c  |101,2,gd%,,hd%.,|
0000bc60  2c 61 25 3a f2 73 62 3a  3d 61 25 0d 60 86 48 dd  |,a%:.sb:=a%.`.H.|
0000bc70  a4 6a 28 69 64 25 2c 6a  64 25 29 3a ea 6e 25 2c  |.j(id%,jd%):.n%,|
0000bc80  66 25 2c 74 25 3a c8 99  31 33 31 31 30 31 2c 34  |f%,t%:..131101,4|
0000bc90  2c 67 64 25 2c 69 64 25  2c 6a 64 25 b8 2c 2c 6e  |,gd%,id%,jd%.,,n|
0000bca0  25 3b 66 25 3a e7 28 66  25 80 20 31 29 3d 30 8c  |%;f%:.(f%. 1)=0.|
0000bcb0  3d 6e 25 0d 60 a4 29 c8  99 32 39 2c 36 2c 67 64  |=n%.`.)..29,6,gd|
0000bcc0  25 2c 69 64 25 b8 2c 2c  2c 74 25 3a e7 a4 4f 28  |%,id%.,,,t%:..O(|
0000bcd0  74 25 2b 6a 64 25 29 3d  a3 8c 3d 30 0d 60 b8 31  |t%+jd%)=..=0.`.1|
0000bce0  c8 99 31 33 31 31 30 31  2c 34 2c 67 64 25 2c 69  |..131101,4,gd%,i|
0000bcf0  64 25 2c 6a 64 25 b8 2c  2c 6e 25 3b 66 25 3a e7  |d%,jd%.,,n%;f%:.|
0000bd00  28 66 25 80 20 31 29 3d  30 8c 3d 6e 25 0d 60 cc  |(f%. 1)=0.=n%.`.|
0000bd10  06 3d 30 0d 60 ea 22 dd  a4 46 28 69 64 25 29 3a  |.=0.`."..F(id%):|
0000bd20  c8 99 32 39 2c 33 2c 67  64 25 2c 69 64 25 3a f2  |..29,3,gd%,id%:.|
0000bd30  73 62 3a 3d 30 0d 61 1c  4d dd a4 4f 28 68 64 25  |sb:=0.a.M..O(hd%|
0000bd40  29 3a ea 73 25 2c 66 25  3a 73 25 3d a4 50 28 66  |):.s%,f%:s%=.P(f|
0000bd50  64 25 2b 68 64 25 29 3a  c8 99 33 39 33 34 35 32  |d%+hd%):..393452|
0000bd60  2c 67 64 25 2b 73 25 2d  33 32 37 36 38 2c 2d 31  |,gd%+s%-32768,-1|
0000bd70  b8 3b 66 25 3a e7 28 66  25 80 20 31 29 3d 31 8c  |.;f%:.(f%. 1)=1.|
0000bd80  3d a3 0d 61 44 20 c8 99  32 39 2c 35 2c 67 64 25  |=..aD ..29,5,gd%|
0000bd90  2c 2c 73 25 2d 66 64 25  3a 66 64 25 3d 73 25 3a  |,,s%-fd%:fd%=s%:|
0000bda0  3d b9 0d 61 76 3e dd f2  73 62 3a ea 73 25 2c 74  |=..av>..sb:.s%,t|
0000bdb0  25 3a 73 25 3d 66 64 25  3a c8 99 31 33 31 31 30  |%:s%=fd%:..13110|
0000bdc0  31 2c 35 2c 67 64 25 2c  2c 2d 73 25 b8 2c 2c 2c  |1,5,gd%,,-s%.,,,|
0000bdd0  74 25 3a e7 74 25 3d 2d  73 25 8c 74 25 3d 73 25  |t%:.t%=-s%.t%=s%|
0000bde0  0d 61 9e 4a 66 64 25 3d  a4 50 28 66 64 25 2d 74  |.a.Jfd%=.P(fd%-t|
0000bdf0  25 29 3a c8 99 31 33 31  31 30 31 2c 35 2c 67 64  |%):..131101,5,gd|
0000be00  25 2c 2c 66 64 25 2d 28  73 25 2d 74 25 29 3a c8  |%,,fd%-(s%-t%):.|
0000be10  99 32 36 32 33 38 30 2c  67 64 25 2b 66 64 25 2d  |.262380,gd%+fd%-|
0000be20  33 32 37 36 38 2c 2d 31  3a e1 0d 61 c6 1d dd a4  |32768,-1:..a....|
0000be30  50 28 73 25 29 3a ea 74  25 3a e7 28 73 25 83 65  |P(s%):.t%:.(s%.e|
0000be40  64 25 29 3c 3e 30 8c 0d  61 ee 1a 74 25 3d 65 64  |d%)<>0..a..t%=ed|
0000be50  25 2d 28 73 25 83 65 64  25 29 3a 73 25 2b 3d 74  |%-(s%.ed%):s%+=t|
0000be60  25 0d 62 0c 05 cd 0d 62  0c 07 3d 73 25 0d 62 2a  |%.b....b..=s%.b*|
0000be70  1f dd a4 5f 3a ea 74 25  3a c8 99 32 39 2c 31 2c  |..._:.t%:..29,1,|
0000be80  67 64 25 b8 2c 2c 74 25  3a 3d 74 25 0d ff        |gd%.,,t%:=t%..|
0000be8e