:
	�init
ȕ quit%=�
(	�poll
2�
<:
Fș "Wimp_CloseDown"
P�
Z:
d� �init
n� Main Init.
x'� block% 5000,pblock% 5000,name% 11
�rand%=�(-�)
�
@%="F3.3"
�savesstage%=0:X%=0
�%quit%=�:app$="Symmetric Fractals"
�Bș "Wimp_Initialise",200,&4B534154,app$ � version%,taskhandle%
�:
�� error handler
�!� � �error(�$+" at line "+Þ)
�:
�� Icon bar icon
�?ibhandle%=�createicon(-1,0,0,76,76,&3002,"!chaosymm",0,0,0)
�:
�� sprite area

� sarea% 80000

!sarea%=80000

sarea%!8=16

" ș "OS_SpriteOp",&109,sarea%

,:

6� dragging

@soliddrag%=�

J=ș "XOS_SWINumberFromString",,"DragASprite_Start" � ;flag

T� (flag � 1) soliddrag%=�

^ ș "OS_Byte",161,28 � ,,cmos

h� (cmos � 2)=0 soliddrag%=�

r:

|� templates

�-� mainind% 1500,infoind% 500,saveind% 500

�,� ssprind% 500,bsprind% 500,varind% 2000

�� svarind% 500

�5ș "Wimp_OpenTemplate",,"<Fractal$Dir>.Templates"

�$name%="Main"

�Dș "Wimp_LoadTemplate",,block%,mainind%,mainind%+1500,-1,name%,0

�.ș "Wimp_CreateWindow",,block% � mainhand%

�$name%="Info"

�Cș "Wimp_LoadTemplate",,block%,infoind%,infoind%+500,-1,name%,0

�.ș "Wimp_CreateWindow",,block% � infohand%

�$name%="savespr"

�Cș "Wimp_LoadTemplate",,block%,saveind%,saveind%+500,-1,name%,0

�/ș "Wimp_CreateWindow",,block% � saveshand%
!!block%=saveshand%:block%!4=0
"ș "Wimp_GetIconState",,block%
savestext%=block%!28
&$name%="bigsprite"
0Cș "Wimp_LoadTemplate",,block%,bsprind%,bsprind%+500,-1,name%,0
:block%!64=sarea%
D.ș "Wimp_CreateWindow",,block% � bsprhand%
N$name%="smallsprite"
XCș "Wimp_LoadTemplate",,block%,ssprind%,ssprind%+500,-1,name%,0
bblock%!64=sarea%
l.ș "Wimp_CreateWindow",,block% � ssprhand%
v$name%="Vars"
�Bș "Wimp_LoadTemplate",,block%,varind%,varind%+2000,-1,name%,0
�-ș "Wimp_CreateWindow",,block% � varhand%
�$name%="savevar"
�Dș "Wimp_LoadTemplate",,block%,svarind%,svarind%+2000,-1,name%,0
�.ș "Wimp_CreateWindow",,block% � svarhand%
� !block%=svarhand%:block%!4=0
�"ș "Wimp_GetIconState",,block%
�svartext%=block%!28
�:
�#ș "Wimp_CloseTemplate",,block%
�:
�� Menus
�1� imenu% 200,smenu% 200,mmenu% 200,fmenu% 500
�:�setupmenu(imenu%)
�setupmenu(smenu%)
�setupmenu(mmenu%)
 a%=mmenu%+38
*?a%=?a% � %01000000
4a%=mmenu%+38+24
>?a%=?a% � %01000000
H�setupmenu(fmenu%)
R:
\� symmetric icons
f� iconvars(6)
p iconvars(0)=1       :� scale
z!iconvars(1)=-1.86   :� lambda
� iconvars(2)=2       :� alpha
�iconvars(3)=0       :� beta
� iconvars(4)=1       :� gamma
� iconvars(5)=0.1     :� omega
�#iconvars(6)=4       :� symmetry
�� symmetric fractals
�� fracvars(7),c(200),s(200)
�fracvars(0)=1
�fracvars(1)=0.5
�fracvars(2)=0
�fracvars(3)=0
�fracvars(4)=0.5
�fracvars(5)=0.5
fracvars(6)=0
fracvars(7)=3

conj=�
$:
.fractal%=1
8�newwindow
B:
L�
V:
`-� Fractals,2,0,infohand%,Info,&80,-1,Quit
j3� Sprite menu,2,1,-1,Full size,&80,-1,Half size
tW� Main menu,3,2,smenu%,Show sprite,0,saveshand%,Save sprite,&80,svarhand%,Save data
~8� Fractal menu,2,0,-1,Symm. icons,&80,-1,Symm. frac.
�:
�� �poll
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�� 2:�openwindow
�� 3:�closewindow
�� 6:�click(block%!12)
�� 7:�startsave
�� 8:�keypressed
�� 9:�menuselect
�� 17,18:�receive
�� 19:�fail
�

�
:
� �fail
(� savesstage%=2 �
2:
<�
F0�report("Transfer failed - receiver died",1)
P�
Z:
dsavesstage%=0
n�
x:
�� �setupmenu(menu%)
�� title$,num%:$menu%=title$
�width%=(�(title$)-2)*16
�-menu%!12=&00070207:menu%!20=44:menu%!24=0
�ptr%=menu%+28:� i%=1 � num%
�� mflag%,subptr%,item$
�!ptr%=mflag%:ptr%!4=subptr%
�$ptr%!8=&7000021:$(ptr%+12)=item$
�a%=(�(item$)+1)*16
�� a%>width% width%=a%
�ptr%+=24:�
�menu%!16=width%
��
:
� �ibar(button%)
Ȏ button% �
"� 4:�openfrombar
,(� 2:�showmenu(imenu%,!block%-64,184)
6�
@�
J:
T� �showmenu(menu%,mx%,my%)
^menuopen%=menu%
h'ș "Wimp_CreateMenu",,menu%,mx%,my%
r�
|:
�� �menuselect
�sel%=!block%:sel1%=block%!4
�$ș "Wimp_GetPointerInfo",,block%
�button%=block%!8
�Ȏ menuopen% �
�
� imenu%:
� Ȏ sel% �
� � 1:quit%=�
� �
�
� mmenu%:
� Ȏ sel% �
�	 � 0:
�   Ȏ sel1% �
     � -1:�toggleswin
     � 0:�makebig
     � 1:�makesmall
&   �
0 � 1:�quicksave
: � 2:�quickdsave
D �
N
� fmenu%:
X) �savevars:fractal%=sel%+1:�newwindow
b�
l(� button%=1 �showmenu(menuopen%,0,0)
v�
�:
�� �error(a$)
��report(a$,1)
�ș "Wimp_CloseDown"
��
��
�:
�� �report(err$,flag%)
�name$=app$
�.� flag% � 16 � name$="Message from "+name$
�!block%=255
�$(block%+4)=err$+�0
�9ș "Wimp_ReportError",block%,flag%,name$ � ,errclick%
�
:
� �receive
 Ȏ block%!16 �
*� 0:quit%=�
4� 2:�datasave
>� 3:�dataload
H� 4:savesstage%=0
R�
\�
f:
p@� �createicon(handle%,x%,y%,ox%,oy%,flag%,text$,p1%,p2%,p3%)
z!block%=handle%
�block%!4=x%
�block%!8=y%
�block%!12=x%+ox%
�block%!16=y%+oy%
�block%!20=flag%
�
� p1%=0 �
�$(block%+24)=text$
��
�block%!24=p1%
�block%!28=p2%
�block%!32=p3%
��
�&ș "Wimp_CreateIcon",,block% � ih%
	=ih%
	:
	� �click(win%)
	$
Ȏ win% �
	.� -2:�ibar(block%!8)
	8� mainhand%:�mainclick
	B� varhand%:�varclick
	L� saveshand%:�saveclick
	V� svarhand%:�svarclick
	`�
	j�
	t:
	~� �varclick
	�button%=block%!8
	�icon%=block%!16
	�Ȏ button% �
	�
  � 2:
	�+  �showmenu(fmenu%,!block%-64,block%!4)
	��
	��
	�:
	�� �openfrombar
	�!block%=mainhand%
	�$ș "Wimp_GetWindowState",,block%
	�block%!28=-1
 ș "Wimp_OpenWindow",,block%

�
:
� �openwindow
( ș "Wimp_OpenWindow",,block%
2�
<:
F� �closewindow
P/� !block%<>ssprhand% � !block%<>bsprhand% �
Z!ș "Wimp_CloseWindow",,block%
d�
n�toggleswin
x�
��
�:
�� �mainclick
�button%=block%!8
�icon%=block%!16
�Ȏ button% �
�
  � 4:
�  Ȏ icon% �
�    � 8:
�    �startfractal
�    � 4:
�    �testfractal
�    � 3:
-    �showmenu(fmenu%,!block%-64,block%!4)
    � 9:
    !block%=varhand%
"(    ș "Wimp_GetWindowState",,block%
,$    ș "Wimp_OpenWindow",,block%
6  �
@
  � 2:
J+  �showmenu(mmenu%,!block%-64,block%!4)
T�
^�
h:
r&� �setinddata(whand%,ihand%,text$)
|"!block%=whand%:block%!4=ihand%
�"ș "Wimp_GetIconState",,block%
�$(block%!28)=text$
�block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
� � �getinddata(whand%,ihand%)
�"!block%=whand%:block%!4=ihand%
�"ș "Wimp_GetIconState",,block%
�=$(block%!28)
�:
�
� �scales
�&scale=�(�getinddata(mainhand%,10))
scale=scale*1000
scale=�(scale)
scale=scale/1000
&$�setinddata(mainhand%,10,�scale)
0�
::
D� �keypressed
Nwant%=�
Xwind%=!block%
bicon%=block%!4
lkey%=block%!24
vȎ wind% �
�  � mainhand%:
�    Ȏ icon% �
�    � 1:
�      Ȏ key% �
�      � 13:
�        �scales:want%=�
�      �
�	    �
�  � varhand%:
�    Ȏ icon% �
�$    � 12,13,14,15,16,17,18,19,20
�      Ȏ key% �
�      � 13,&18E,&19E,&18A:

        �caretdown:want%=�

      � &18F,&19F:

        �caretup:want%=�

       �

*	    �

4  � saveshand%:

>    Ȏ icon% �

H    � 0:

R      Ȏ key% �

\      � 13:

f        �quicksave:want%=�

p      �

z	    �

�  � svarhand%:

�    Ȏ icon% �

�    � 0:

�      Ȏ key% �

�      � 13:

�        �quickdsave:want%=�

�      �

�	    �

��

�)� want%=� � ș "Wimp_ProcessKey",key%

��

�:

�� �caretdown
&ș "Wimp_GetCaretPosition",,block%
caricon%=block%!4
ncicon%=caricon%+1
$� ncicon%<=(11+used%) �
.Wș "Wimp_SetCaretPosition",varhand%,ncicon%,0,0,-1,�(�getinddata(varhand%,ncicon%))
8�
B�
L:
V� �caretup
`&ș "Wimp_GetCaretPosition",,block%
jcaricon%=block%!4
tncicon%=caricon%-1
~� ncicon%>=12 �
�Wș "Wimp_SetCaretPosition",varhand%,ncicon%,0,0,-1,�(�getinddata(varhand%,ncicon%))
��
��
�:
� � �selecticon(whand%,ihand%)
�"!block%=whand%:block%!4=ihand%
�"block%!8=1<<21:block%!12=1<<21
�"ș "Wimp_SetIconState",,block%
��
�:
�"� �unselecticon(whand%,ihand%)
�"!block%=whand%:block%!4=ihand%
block%!8=0:block%!12=1<<21

"ș "Wimp_SetIconState",,block%
�
:
(� �testfractal
2test%=�
<Ȏ fractal% �
F
  � 1:
P  �testicon
Z
  � 2:
d  �testfrac
n�
xE� test%=� � �selecticon(mainhand%,5) � �unselecticon(mainhand%,5)
��
�:
�� �startfractal
�mode%=�
�� �
�7� � � �:�" at line ";�:�:ș "Wimp_SetMode",mode%:�
�� 12
�� 15,&FF,&FF,&FF
�)�scalec(&00,&FF,&FF,&FF,&FF,&00,1,14)
�� 15
�	� 128
�
� 0,15
�	� 0,0
� 0,1023
� 1279,1023
� 1279,0
"	� 0,0
,� 256,0
6� 256,1023
@� cl%=1 � 14
J	� cl%
T� 1175,192-(8*cl%)
^� 1225,192-(8*cl%)
h� 1175,188-(8*cl%)
r� 1225,188-(8*cl%)
|	� cl%
�� 24,1279-1023;0;1279;1023;
�� 28,1,30,14,1
�	� 0,0
�� 0,1023
�� 29,768;512;
�Ȏ fractal% �
�� 1:
�  �icon
�� 2:
�  �frac
��
�>ș "OS_SpriteOp",&110,sarea%,"fractal",1,-512,-512,512,512
�ș "Wimp_SetMode",mode%
�spritegrabbed
�
:
&&� �scalec(r1,g1,b1,r2,g2,b2,c1,c2)
0rdiff=r2-r1
:gdiff=g2-g1
Dbdiff=b2-b1
Ncdiff=c2-c1
X� c1,r1,g1,b1
b� cloop=1 � cdiff
lccomp=cloop/cdiff
vA� cloop+c1,r1+(rdiff*ccomp),g1+(gdiff*ccomp),b1+(bdiff*ccomp)
�� cloop
��
�:
�� �icon
�lambda=�number(1)
�alpha=�number(2)
�beta=�number(3)
�gamma=�number(4)
�omega=�number(5)
�n=�number(6)
�%scale=�(�getinddata(mainhand%,1))
��"Lambda :"lambda
��"Alpha  :"alpha
�"Beta   :"beta
�"Gamma  :"gamma
�"Omega  :"omega
 �"Symm.  :"n
*�''"Press SPACE"
4�"to finish"
>iterates=0
Hx=.01:y=.003
R� T=0 � 200
\�iterateicon
fx=xnew:y=ynew
p� T
z�
��iterateicon
�x=xnew:y=ynew
�px=xnew*(512/scale)
�py=ynew*(512/scale)
�col%=�px,py)
�� col%<14 � � col%+1 � � 14
�Ȓ px,py
�
� �(0)=32
��
�:
�� �iterateicon
� zzbar=x*x+y*y
�  zreal=x:zimag=y
  � i=1 � n-2
  za=zreal*x-zimag*y
  zb=zimag*x+zreal*y
$  zreal=za:zimag=zb
.	  � i
8  zn=x*zreal-y*zimag
B"  p=lambda+alpha*zzbar+beta*zn
L"  xnew=p*x+gamma*zreal-omega*y
V"  ynew=p*y-gamma*zimag+omega*x
`�
j:
t� �number(icon)
~%=�(�getinddata(varhand%,icon+11))
�:
�� �newwindow
��setinddata(mainhand%,7,"")
�Ȏ fractal% �
�
  � 1:
�  �iconwind
�
  � 2:
�  �fracwind
��
��
�:
�� �shadeicon(whand%,ihand%)
"!block%=whand%:block%!4=ihand%

"block%!8=1<<22:block%!12=1<<22
"ș "Wimp_SetIconState",,block%
�
(:
2!� �unshadeicon(whand%,ihand%)
<"!block%=whand%:block%!4=ihand%
Fblock%!8=0:block%!12=1<<22
P"ș "Wimp_SetIconState",,block%
Z�
d:
n� �iconwind
x�unshade
�used%=6
�scale=iconvars(0)
�lambda=iconvars(1)
�alpha=iconvars(2)
�beta=iconvars(3)
�gamma=iconvars(4)
�omega=iconvars(5)
�n=iconvars(6)
�.�setinddata(mainhand%,2,"Symmetric Icons")
�.�setinddata(varhand%,28,"Symmetric Icons")
�$�setinddata(varhand%,3,"Lambda")
�#�setinddata(varhand%,4,"Alpha")
�"�setinddata(varhand%,5,"Beta")
#�setinddata(varhand%,6,"Gamma")
#�setinddata(varhand%,7,"Omega")
&�setinddata(varhand%,8,"Symmetry")
"�setinddata(varhand%,9,"")
,�setinddata(varhand%,10,"")
6�setinddata(varhand%,11,"")
@&�setinddata(varhand%,12,�(lambda))
J%�setinddata(varhand%,13,�(alpha))
T$�setinddata(varhand%,14,�(beta))
^%�setinddata(varhand%,15,�(gamma))
h%�setinddata(varhand%,16,�(omega))
r!�setinddata(varhand%,17,�(n))
|�setinddata(varhand%,18,"")
��setinddata(varhand%,19,"")
��setinddata(varhand%,20,"")
�%�setinddata(mainhand%,1,�(scale))
��setinddata(varhand%,21,"")
��setinddata(varhand%,22,"")
��setinddata(varhand%,23,"")
�:
�� i%=9 � 11
��shadeicon(varhand%,i%)
�� i%
�� i%=18 � 26
��shadeicon(varhand%,i%)
�� i%
�
:
� �unshade
&� i%=3 � 26
0�unshadeicon(varhand%,i%)
:� i%
D�
N:
X� �testicon
b� �
l.� � � test%=�:�unselecticon(mainhand%,5):�
vlambda=�number(1)
�alpha=�number(2)
�beta=�number(3)
�gamma=�number(4)
�omega=�number(5)
�n=�number(6)
�
xmax=0
�x=.01:y=.003
�� T=0 � 200
��iterateicon
�x=xnew:y=ynew
�� �(x)>xmax � xmax=�(x)
�� �(y)>xmax � xmax=�(y)
�� T
sc=(�((xmax*1.3)*10))/10
"�setinddata(mainhand%,1,�(sc))
test%=�
 �selecticon(mainhand%,5)
*�
4:
>� �spritegrabbed
Ha%=mmenu%+38
R?a%=?a% � %10111111
\a%=mmenu%+38+24
f?a%=?a% � %10111111
p�selecticon(mainhand%,6)
z�
�:
�� �saveclick
�button%=block%!8
�icon%=block%!16
�(� button%=4 � icon%=1 � �quicksave:�
�/� button%=64 � icon%=2 � saving%=1:�dragbox
��
�:
�� �svarclick
�button%=block%!8
�icon%=block%!16
�)� button%=4 � icon%=1 � �quickdsave:�
�/� button%=64 � icon%=2 � saving%=2:�dragbox
�
:
� �startsave
$� �
.D� � � �report("Error in PROCstartsave : "+�$+" at line "+Þ,1):�
8savesstage%=2
9ș "DragASprite_Stop"
B$ș "Wimp_GetPointerInfo",,block%
L+block%!20=block%!12:block%!24=block%!16
V(block%!28=!block%:block%!32=block%!4
`!block%=64:block%!12=0
jblock%!16=1
tȎ saving% �
~� 1:
�  block%!36=(65*1024)
�  block%!40=&FF9
�(  $(block%+44)=�getleaf($savestext%)
�� 2:
�  block%!36=2500
�  block%!40=&050
�'  $(block%+44)=�getleaf($svartext%)
��
�7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
��
�:
�� �getleaf(a$)
ȕ �a$,".")

a$=�a$,�a$,".")+1)
�

=a$+�0
(:
2� �dragbox
<� �
FB� � � �report("Error in PROCdragbox : "+�$+" at line "+Þ,1):�
Psavesstage=1
ZȎ saving% �
d� 1:
n  !block%=saveshand%
o  spr$="file_ff9"
x� 2:
�  !block%=svarhand%
�  spr$="file_050"
��
�$ș "Wimp_GetWindowState",,block%
�ox%=block%!4-block%!20
�oy%=block%!16-block%!24
�block%!4=2
�"ș "Wimp_GetIconState",,block%
�block%!4=5
�block%!8=ox%+block%!8
�block%!12=oy%+block%!12
�block%!16=ox%+block%!16
�block%!20=oy%+block%!20
�block%!24=0
block%!28=0
block%!32=&7FFFFFFF
block%!36=&7FFFFFFF
"� soliddrag%=� �
,ș "Wimp_DragBox",,block%
6�
J>ș "DragASprite_Start",%11000101,1,spr$,block%+8,block%+24
K�
T�
^:
h� �datasave
r� �
|C� � � �report("Error in PROCdatasave : "+�$+" at line "+Þ,1):�
�savesstage%=3
�Ȏ saving% �
�� 1:
�$  $savestext%=�string(block%+44)
�
  �saveit
�� 2:
�#  $svartext%=�string(block%+44)
�  �pushblock(60)
�  �savedat
�  �pullblock(60)
��
�block%!12=block%!8
�block%!16=3
!block%=256
7ș "Wimp_SendMessage",18,block%,block%!20,block%!24
�
&:
0� �string(ptr%)
:� a$
Dȕ ?ptr%<>0
Na$+=�(?ptr%):ptr%+=1
X�
b=a$
l:
v
� �saveit
�,ș "OS_SpriteOp",&10C,sarea%,$savestext%
��
�:
�� �quicksave
�savesstage%=5
�� �$savestext%,".") �
��saveit
��
�4�report("To save, drag to a directory viewer",1)
��
�savesstage%=0
��
�:
� �quickdsave
savesstage%=5
� �$svartext%,".") �
 �savedat
*�
44�report("To save, drag to a directory viewer",1)
>�
Hsavesstage%=0
R�
\:
f� �savevars
pȎ fractal% �
z� 1:
�  �saveicon
�� 2:
�  �savefrac
��
��
�:
�� �saveicon
�+iconvars(0)=�(�getinddata(mainhand%,1))
�+iconvars(1)=�(�getinddata(varhand%,12))
�+iconvars(2)=�(�getinddata(varhand%,13))
�+iconvars(3)=�(�getinddata(varhand%,14))
�+iconvars(4)=�(�getinddata(varhand%,15))
�+iconvars(5)=�(�getinddata(varhand%,16))
+iconvars(6)=�(�getinddata(varhand%,17))
�
:
$� �fracwind
.�unshade
8used%=7
Bscale=fracvars(0)
LA11=fracvars(1)
VA12=fracvars(2)
`A21=fracvars(3)
jA22=fracvars(4)
tB1=fracvars(5)
~B2=fracvars(6)
�n=fracvars(7)
�1�setinddata(mainhand%,2,"Symmetric Fractals")
�1�setinddata(varhand%,28,"Symmetric Fractals")
�!�setinddata(varhand%,3,"a11")
�!�setinddata(varhand%,4,"a12")
�!�setinddata(varhand%,5,"a21")
�!�setinddata(varhand%,6,"a22")
� �setinddata(varhand%,7,"b1")
� �setinddata(varhand%,8,"b2")
�&�setinddata(varhand%,9,"Symmetry")
��setinddata(varhand%,10,"")
��setinddata(varhand%,11,"")
#�setinddata(varhand%,12,�(A11))

#�setinddata(varhand%,13,�(A12))
#�setinddata(varhand%,14,�(A21))
#�setinddata(varhand%,15,�(A22))
("�setinddata(varhand%,16,�(B1))
2"�setinddata(varhand%,17,�(B2))
<!�setinddata(varhand%,18,�(n))
F�setinddata(varhand%,19,"")
P�setinddata(varhand%,20,"")
Z%�setinddata(mainhand%,1,�(scale))
d+�setinddata(varhand%,21,"Zn symmetry?")
n�setinddata(varhand%,22,"")
x�setinddata(varhand%,23,"")
�:
��shadeicon(varhand%,10)
��shadeicon(varhand%,11)
��shadeicon(varhand%,19)
��shadeicon(varhand%,20)
��shadeicon(varhand%,22)
��shadeicon(varhand%,23)
��shadeicon(varhand%,25)
��shadeicon(varhand%,26)
�:
�'� conj=� � �selecticon(varhand%,24)
��
�:
� �selected(whand%,ihand%)
!block%=whand%
block%!4=ihand%
""ș "Wimp_GetIconState",,block%
,&=(block%?26 � %00100000)=%00100000
6:
@� �savefrac
J+fracvars(0)=�(�getinddata(mainhand%,1))
T,fracvars(1)=�(�getinddata(mainhand%,12))
^,fracvars(2)=�(�getinddata(mainhand%,13))
h,fracvars(3)=�(�getinddata(mainhand%,14))
r,fracvars(4)=�(�getinddata(mainhand%,15))
|,fracvars(5)=�(�getinddata(mainhand%,16))
�,fracvars(6)=�(�getinddata(mainhand%,17))
�,fracvars(7)=�(�getinddata(mainhand%,18))
�conj=�selected(varhand%,24)
��
�:
�� �frac
�conj=�selected(varhand%,24)
�A11=�number(1)
�A12=�number(2)
�A21=�number(3)
�A22=�number(4)
�B1=�number(5)
�B2=�number(6)
 n=�number(7)
 %scale=�(�getinddata(mainhand%,1))
 �"a11  :"A11
 &�"a12  :"A12
 0�"a21  :"A21
 :�"a22  :"A22
 D�"b1   :"B1
 N�"b2   :"B2
 X�"Symm.:"n
 b)A1=A11*A11+A21*A21:A2=A21*A21+A22*A22
 l1� A1>1 � A2>1 � A1+A2>1+(A11*A22-A12*A21)^2 �
 v�'"Not"'"contraction"
 ��
 ��''"Press SPACE"
 ��"to finish"
 �	�trig
 �iterates=0
 �x=.1:y=-.01
 �� T=0 � 200
 ��iteratefrac
 �x=xnew:y=ynew
 �� T
 ��
 ��iteratefrac
 �x=xnew:y=ynew
!px=xnew*(512/scale)
!py=ynew*(512/scale)
!col%=�px,py)
! � col%<14 � � col%+1 � � 14
!*Ȓ px,py
!4
� �(0)=32
!>�
!H:
!R� �iteratefrac
!\xnew=A11*x+A12*y+B1
!fynew=A21*x+A22*y+B2
!pm=�(n)-1
!zx1=xnew:y1=ynew
!�xnew=c(m)*x1-s(m)*y1
!�ynew=s(m)*x1+c(m)*y1
!�� conj=� �
!�
m=�(2)
!�� m=1 � ynew=-ynew
!��
!��
!�:
!�� �trig
!�� n>200 � �7:�
!�� i=0 � n-1
!�c(i)=�(2*�*i/n)
!�s(i)=�(2*�*i/n)
"� i
"�
":
"$� �testfrac
".� �
"8.� � � test%=�:�unselecticon(mainhand%,5):�
"B�setinddata(mainhand%,7,"")
"Lconj=�selected(varhand%,24)
"VA11=�number(1)
"`A12=�number(2)
"jA21=�number(3)
"tA22=�number(4)
"~B1=�number(5)
"�B2=�number(6)
"�n=�number(7)
"�	�trig
"�)A1=A11*A11+A21*A21:A2=A21*A21+A22*A22
"�1� A1>1 � A2>1 � A1+A2>1+(A11*A22-A12*A21)^2 �
"�.�setinddata(mainhand%,7,"Not contraction")
"��
"�.�setinddata(mainhand%,7,"               ")
"��
"�
xmax=0
"�x=.01:y=.003
"�� T=0 � 200
#�iteratefrac
#
x=xnew:y=ynew
#� �(x)>xmax � xmax=�(x)
#� �(y)>xmax � xmax=�(y)
#(� T
#2sc=(�((xmax*1.3)*10))/10
#<"�setinddata(mainhand%,1,�(sc))
#F$test%=�:�selecticon(mainhand%,5)
#P�
#Z:
#d� �ticked(menu%,item%)
#na%=menu%+28+item%*24
#x=(?a% � 1)=1
#�:
#�� �tick(menu%,item%)
#�a%=menu%+28+item%*24
#�?a%=(?a% � 1)
#��
#�:
#�� �untick(menu%,item%)
#�a%=menu%+28+item%*24
#�?a%=(?a% � 254)
#��
#�:
#�� �toggleswin
#�on%=�ticked(mmenu%,0)
$sm%=�ticked(smenu%,1)
$/� sm% � whand%=ssprhand% � whand%=bsprhand%
$!block%=whand%
$"$ș "Wimp_GetWindowState",,block%
$,� on% �
$6!ș "Wimp_CloseWindow",,block%
$@�untick(mmenu%,0)
$J�
$T ș "Wimp_OpenWindow",,block%
$^�tick(mmenu%,0)
$h�
$r�
$|:
$�� �makebig
$�� �ticked(smenu%,0) � �
$�%�tick(smenu%,0):�untick(smenu%,1)
$�� �ticked(mmenu%,0) �
$�!block%=ssprhand%
$�!ș "Wimp_CloseWindow",,block%
$�!block%=bsprhand%
$�$ș "Wimp_GetWindowState",,block%
$� ș "Wimp_OpenWindow",,block%
$��
$��
$�:
$�� �makesmall
%� �ticked(smenu%,1) � �
%%�tick(smenu%,1):�untick(smenu%,0)
%� �ticked(mmenu%,0) �
%&!block%=bsprhand%
%0!ș "Wimp_CloseWindow",,block%
%:!block%=ssprhand%
%D$ș "Wimp_GetWindowState",,block%
%N ș "Wimp_OpenWindow",,block%
%X�
%b�
%l:
%v� �savedat
%�� �
%�G� � � �report("Error in PROCsavedat : "+�$+" at line "+Þ,1):�#X%:�
%�file$=$svartext%
%�X%=�(file$)
%��#X%,fractal%
%�Ȏ fractal% �
%�� 1:
%�  �saveicondat
%�� 2:
%�  �savefracdat
%��
%��#X%
%��("SetType "+file$+" 050")
&X%=0
&�
&:
& � �saveicondat
&*$�#X%,�(�getinddata(mainhand%,1))
&4$�#X%,�(�getinddata(varhand%,12))
&>$�#X%,�(�getinddata(varhand%,13))
&H$�#X%,�(�getinddata(varhand%,14))
&R$�#X%,�(�getinddata(varhand%,15))
&\$�#X%,�(�getinddata(varhand%,16))
&f$�#X%,�(�getinddata(varhand%,17))
&p�
&z:
&�� �savefracdat
&�$�#X%,�(�getinddata(mainhand%,1))
&�$�#X%,�(�getinddata(varhand%,12))
&�$�#X%,�(�getinddata(varhand%,13))
&�$�#X%,�(�getinddata(varhand%,14))
&�$�#X%,�(�getinddata(varhand%,15))
&�$�#X%,�(�getinddata(varhand%,16))
&�$�#X%,�(�getinddata(varhand%,17))
&�$�#X%,�(�getinddata(varhand%,18))
&��#X%,�selected(varhand%,24)
&��
&�:
&�� �pushblock(x%)
'� T=0 � x% � 4
'pblock%!T=block%!T
'�T
'$�
'.:
'8� �pullblock(x%)
'B� T=0 � x% � 4
'Lblock%!T=pblock%!T
'V�T
'`�
'j:
't� �dataload
'~� (block%!40)<>&050 � �
'�H� � � �report("Error in PROCdataload : "+�$+" at line "+Þ,1):�#Y%:�
'�path$=�string(block%+44)
'�task%=block%!4
'�ref%=block%!8
'�Y%=�(path$)
'��#Y%,fractal%
'��newwindow
'�Ȏ fractal% �
'�� 1:
'�  �loadicondat
'�� 2:
'�  �loadfracdat
(�
(
�#Y%
(!block%=20
(block%!4=taskhandle%
((block%!8=1
(2block%!12=ref%
(<block%!16=4
(F)ș "Wimp_SendMessage",17,block%,task%
(P�
(Z:
(d� �loadicondat
(nx=0
(x
�#Y%,x
(��setinddata(mainhand%,1,�x)
(�
�#Y%,x
(��setinddata(varhand%,12,�x)
(�
�#Y%,x
(��setinddata(varhand%,13,�x)
(�
�#Y%,x
(��setinddata(varhand%,14,�x)
(�
�#Y%,x
(��setinddata(varhand%,15,�x)
(�
�#Y%,x
(��setinddata(varhand%,16,�x)
(�
�#Y%,x
(��setinddata(varhand%,17,�x)
)�
)
)� �loadfracdat
)"x=0
),
�#Y%,x
)6�setinddata(mainhand%,1,�x)
)@
�#Y%,x
)J�setinddata(varhand%,12,�x)
)T
�#Y%,x
)^�setinddata(varhand%,13,�x)
)h
�#Y%,x
)r�setinddata(varhand%,14,�x)
)|
�#Y%,x
)��setinddata(varhand%,15,�x)
)�
�#Y%,x
)��setinddata(varhand%,16,�x)
)�
�#Y%,x
)��setinddata(varhand%,17,�x)
)�
�#Y%,x
)��setinddata(varhand%,18,�x)
)�
�#Y%,x
)�?� x=� �selecticon(varhand%,24) � �unselecticon(varhand%,24)
)��
�

00000000  0d 00 0a 05 3a 0d 00 14  09 f2 69 6e 69 74 0d 00  |....:.....init..|
00000010  1e 0e c8 95 20 71 75 69  74 25 3d a3 0d 00 28 09  |.... quit%=...(.|
00000020  f2 70 6f 6c 6c 0d 00 32  05 ce 0d 00 3c 05 3a 0d  |.poll..2....<.:.|
00000030  00 46 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.F... "Wimp_Clos|
00000040  65 44 6f 77 6e 22 0d 00  50 05 e0 0d 00 5a 05 3a  |eDown"..P....Z.:|
00000050  0d 00 64 0b dd 20 f2 69  6e 69 74 0d 00 6e 10 f4  |..d.. .init..n..|
00000060  20 4d 61 69 6e 20 49 6e  69 74 2e 0d 00 78 27 de  | Main Init...x'.|
00000070  20 62 6c 6f 63 6b 25 20  35 30 30 30 2c 70 62 6c  | block% 5000,pbl|
00000080  6f 63 6b 25 20 35 30 30  30 2c 6e 61 6d 65 25 20  |ock% 5000,name% |
00000090  31 31 0d 00 82 0f 72 61  6e 64 25 3d b3 28 2d 91  |11....rand%=.(-.|
000000a0  29 0d 00 8c 0d 40 25 3d  22 46 33 2e 33 22 0d 00  |)....@%="F3.3"..|
000000b0  96 16 73 61 76 65 73 73  74 61 67 65 25 3d 30 3a  |..savesstage%=0:|
000000c0  58 25 3d 30 0d 00 a0 25  71 75 69 74 25 3d a3 3a  |X%=0...%quit%=.:|
000000d0  61 70 70 24 3d 22 53 79  6d 6d 65 74 72 69 63 20  |app$="Symmetric |
000000e0  46 72 61 63 74 61 6c 73  22 0d 00 aa 42 c8 99 20  |Fractals"...B.. |
000000f0  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000100  22 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |",200,&4B534154,|
00000110  61 70 70 24 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |app$ . version%,|
00000120  74 61 73 6b 68 61 6e 64  6c 65 25 0d 00 b4 05 3a  |taskhandle%....:|
00000130  0d 00 be 13 f4 20 65 72  72 6f 72 20 68 61 6e 64  |..... error hand|
00000140  6c 65 72 0d 00 c8 21 ee  20 85 20 f2 65 72 72 6f  |ler...!. . .erro|
00000150  72 28 f6 24 2b 22 20 61  74 20 6c 69 6e 65 20 22  |r(.$+" at line "|
00000160  2b c3 9e 29 0d 00 d2 05  3a 0d 00 dc 13 f4 20 49  |+..)....:..... I|
00000170  63 6f 6e 20 62 61 72 20  69 63 6f 6e 0d 00 e6 3f  |con bar icon...?|
00000180  69 62 68 61 6e 64 6c 65  25 3d a4 63 72 65 61 74  |ibhandle%=.creat|
00000190  65 69 63 6f 6e 28 2d 31  2c 30 2c 30 2c 37 36 2c  |eicon(-1,0,0,76,|
000001a0  37 36 2c 26 33 30 30 32  2c 22 21 63 68 61 6f 73  |76,&3002,"!chaos|
000001b0  79 6d 6d 22 2c 30 2c 30  2c 30 29 0d 00 f0 05 3a  |ymm",0,0,0)....:|
000001c0  0d 00 fa 11 f4 20 73 70  72 69 74 65 20 61 72 65  |..... sprite are|
000001d0  61 0d 01 04 12 de 20 73  61 72 65 61 25 20 38 30  |a..... sarea% 80|
000001e0  30 30 30 0d 01 0e 11 21  73 61 72 65 61 25 3d 38  |000....!sarea%=8|
000001f0  30 30 30 30 0d 01 18 0f  73 61 72 65 61 25 21 38  |0000....sarea%!8|
00000200  3d 31 36 0d 01 22 20 c8  99 20 22 4f 53 5f 53 70  |=16.." .. "OS_Sp|
00000210  72 69 74 65 4f 70 22 2c  26 31 30 39 2c 73 61 72  |riteOp",&109,sar|
00000220  65 61 25 0d 01 2c 05 3a  0d 01 36 0e f4 20 64 72  |ea%..,.:..6.. dr|
00000230  61 67 67 69 6e 67 0d 01  40 10 73 6f 6c 69 64 64  |agging..@.solidd|
00000240  72 61 67 25 3d b9 0d 01  4a 3d c8 99 20 22 58 4f  |rag%=...J=.. "XO|
00000250  53 5f 53 57 49 4e 75 6d  62 65 72 46 72 6f 6d 53  |S_SWINumberFromS|
00000260  74 72 69 6e 67 22 2c 2c  22 44 72 61 67 41 53 70  |tring",,"DragASp|
00000270  72 69 74 65 5f 53 74 61  72 74 22 20 b8 20 3b 66  |rite_Start" . ;f|
00000280  6c 61 67 0d 01 54 1d e7  20 28 66 6c 61 67 20 80  |lag..T.. (flag .|
00000290  20 31 29 20 73 6f 6c 69  64 64 72 61 67 25 3d a3  | 1) soliddrag%=.|
000002a0  0d 01 5e 20 c8 99 20 22  4f 53 5f 42 79 74 65 22  |..^ .. "OS_Byte"|
000002b0  2c 31 36 31 2c 32 38 20  b8 20 2c 2c 63 6d 6f 73  |,161,28 . ,,cmos|
000002c0  0d 01 68 1f e7 20 28 63  6d 6f 73 20 80 20 32 29  |..h.. (cmos . 2)|
000002d0  3d 30 20 73 6f 6c 69 64  64 72 61 67 25 3d a3 0d  |=0 soliddrag%=..|
000002e0  01 72 05 3a 0d 01 7c 0f  f4 20 74 65 6d 70 6c 61  |.r.:..|.. templa|
000002f0  74 65 73 0d 01 86 2d de  20 6d 61 69 6e 69 6e 64  |tes...-. mainind|
00000300  25 20 31 35 30 30 2c 69  6e 66 6f 69 6e 64 25 20  |% 1500,infoind% |
00000310  35 30 30 2c 73 61 76 65  69 6e 64 25 20 35 30 30  |500,saveind% 500|
00000320  0d 01 90 2c de 20 73 73  70 72 69 6e 64 25 20 35  |...,. ssprind% 5|
00000330  30 30 2c 62 73 70 72 69  6e 64 25 20 35 30 30 2c  |00,bsprind% 500,|
00000340  76 61 72 69 6e 64 25 20  32 30 30 30 0d 01 9a 12  |varind% 2000....|
00000350  de 20 73 76 61 72 69 6e  64 25 20 35 30 30 0d 01  |. svarind% 500..|
00000360  a4 35 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.5.. "Wimp_OpenT|
00000370  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 46 72 61 63  |emplate",,"<Frac|
00000380  74 61 6c 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |tal$Dir>.Templat|
00000390  65 73 22 0d 01 ae 11 24  6e 61 6d 65 25 3d 22 4d  |es"....$name%="M|
000003a0  61 69 6e 22 0d 01 b8 44  c8 99 20 22 57 69 6d 70  |ain"...D.. "Wimp|
000003b0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000003c0  62 6c 6f 63 6b 25 2c 6d  61 69 6e 69 6e 64 25 2c  |block%,mainind%,|
000003d0  6d 61 69 6e 69 6e 64 25  2b 31 35 30 30 2c 2d 31  |mainind%+1500,-1|
000003e0  2c 6e 61 6d 65 25 2c 30  0d 01 c2 2e c8 99 20 22  |,name%,0...... "|
000003f0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000400  77 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 6d 61 69  |w",,block% . mai|
00000410  6e 68 61 6e 64 25 0d 01  cc 11 24 6e 61 6d 65 25  |nhand%....$name%|
00000420  3d 22 49 6e 66 6f 22 0d  01 d6 43 c8 99 20 22 57  |="Info"...C.. "W|
00000430  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000440  22 2c 2c 62 6c 6f 63 6b  25 2c 69 6e 66 6f 69 6e  |",,block%,infoin|
00000450  64 25 2c 69 6e 66 6f 69  6e 64 25 2b 35 30 30 2c  |d%,infoind%+500,|
00000460  2d 31 2c 6e 61 6d 65 25  2c 30 0d 01 e0 2e c8 99  |-1,name%,0......|
00000470  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000480  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 69  |dow",,block% . i|
00000490  6e 66 6f 68 61 6e 64 25  0d 01 ea 14 24 6e 61 6d  |nfohand%....$nam|
000004a0  65 25 3d 22 73 61 76 65  73 70 72 22 0d 01 f4 43  |e%="savespr"...C|
000004b0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000004c0  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 2c 73  |plate",,block%,s|
000004d0  61 76 65 69 6e 64 25 2c  73 61 76 65 69 6e 64 25  |aveind%,saveind%|
000004e0  2b 35 30 30 2c 2d 31 2c  6e 61 6d 65 25 2c 30 0d  |+500,-1,name%,0.|
000004f0  01 fe 2f c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |../.. "Wimp_Crea|
00000500  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00000510  25 20 b8 20 73 61 76 65  73 68 61 6e 64 25 0d 02  |% . saveshand%..|
00000520  08 21 21 62 6c 6f 63 6b  25 3d 73 61 76 65 73 68  |.!!block%=savesh|
00000530  61 6e 64 25 3a 62 6c 6f  63 6b 25 21 34 3d 30 0d  |and%:block%!4=0.|
00000540  02 12 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..".. "Wimp_GetI|
00000550  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00000560  25 0d 02 1c 18 73 61 76  65 73 74 65 78 74 25 3d  |%....savestext%=|
00000570  62 6c 6f 63 6b 25 21 32  38 0d 02 26 16 24 6e 61  |block%!28..&.$na|
00000580  6d 65 25 3d 22 62 69 67  73 70 72 69 74 65 22 0d  |me%="bigsprite".|
00000590  02 30 43 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.0C.. "Wimp_Load|
000005a0  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
000005b0  25 2c 62 73 70 72 69 6e  64 25 2c 62 73 70 72 69  |%,bsprind%,bspri|
000005c0  6e 64 25 2b 35 30 30 2c  2d 31 2c 6e 61 6d 65 25  |nd%+500,-1,name%|
000005d0  2c 30 0d 02 3a 14 62 6c  6f 63 6b 25 21 36 34 3d  |,0..:.block%!64=|
000005e0  73 61 72 65 61 25 0d 02  44 2e c8 99 20 22 57 69  |sarea%..D... "Wi|
000005f0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000600  2c 2c 62 6c 6f 63 6b 25  20 b8 20 62 73 70 72 68  |,,block% . bsprh|
00000610  61 6e 64 25 0d 02 4e 18  24 6e 61 6d 65 25 3d 22  |and%..N.$name%="|
00000620  73 6d 61 6c 6c 73 70 72  69 74 65 22 0d 02 58 43  |smallsprite"..XC|
00000630  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000640  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 2c 73  |plate",,block%,s|
00000650  73 70 72 69 6e 64 25 2c  73 73 70 72 69 6e 64 25  |sprind%,ssprind%|
00000660  2b 35 30 30 2c 2d 31 2c  6e 61 6d 65 25 2c 30 0d  |+500,-1,name%,0.|
00000670  02 62 14 62 6c 6f 63 6b  25 21 36 34 3d 73 61 72  |.b.block%!64=sar|
00000680  65 61 25 0d 02 6c 2e c8  99 20 22 57 69 6d 70 5f  |ea%..l... "Wimp_|
00000690  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |CreateWindow",,b|
000006a0  6c 6f 63 6b 25 20 b8 20  73 73 70 72 68 61 6e 64  |lock% . ssprhand|
000006b0  25 0d 02 76 11 24 6e 61  6d 65 25 3d 22 56 61 72  |%..v.$name%="Var|
000006c0  73 22 0d 02 80 42 c8 99  20 22 57 69 6d 70 5f 4c  |s"...B.. "Wimp_L|
000006d0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
000006e0  6f 63 6b 25 2c 76 61 72  69 6e 64 25 2c 76 61 72  |ock%,varind%,var|
000006f0  69 6e 64 25 2b 32 30 30  30 2c 2d 31 2c 6e 61 6d  |ind%+2000,-1,nam|
00000700  65 25 2c 30 0d 02 8a 2d  c8 99 20 22 57 69 6d 70  |e%,0...-.. "Wimp|
00000710  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000720  62 6c 6f 63 6b 25 20 b8  20 76 61 72 68 61 6e 64  |block% . varhand|
00000730  25 0d 02 94 14 24 6e 61  6d 65 25 3d 22 73 61 76  |%....$name%="sav|
00000740  65 76 61 72 22 0d 02 9e  44 c8 99 20 22 57 69 6d  |evar"...D.. "Wim|
00000750  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000760  2c 62 6c 6f 63 6b 25 2c  73 76 61 72 69 6e 64 25  |,block%,svarind%|
00000770  2c 73 76 61 72 69 6e 64  25 2b 32 30 30 30 2c 2d  |,svarind%+2000,-|
00000780  31 2c 6e 61 6d 65 25 2c  30 0d 02 a8 2e c8 99 20  |1,name%,0...... |
00000790  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000007a0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 20 b8 20 73 76  |ow",,block% . sv|
000007b0  61 72 68 61 6e 64 25 0d  02 b2 20 21 62 6c 6f 63  |arhand%... !bloc|
000007c0  6b 25 3d 73 76 61 72 68  61 6e 64 25 3a 62 6c 6f  |k%=svarhand%:blo|
000007d0  63 6b 25 21 34 3d 30 0d  02 bc 22 c8 99 20 22 57  |ck%!4=0...".. "W|
000007e0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
000007f0  22 2c 2c 62 6c 6f 63 6b  25 0d 02 c6 17 73 76 61  |",,block%....sva|
00000800  72 74 65 78 74 25 3d 62  6c 6f 63 6b 25 21 32 38  |rtext%=block%!28|
00000810  0d 02 d0 05 3a 0d 02 da  23 c8 99 20 22 57 69 6d  |....:...#.. "Wim|
00000820  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000830  2c 2c 62 6c 6f 63 6b 25  0d 02 e4 05 3a 0d 02 ee  |,,block%....:...|
00000840  0b f4 20 4d 65 6e 75 73  0d 02 f8 31 de 20 69 6d  |.. Menus...1. im|
00000850  65 6e 75 25 20 32 30 30  2c 73 6d 65 6e 75 25 20  |enu% 200,smenu% |
00000860  32 30 30 2c 6d 6d 65 6e  75 25 20 32 30 30 2c 66  |200,mmenu% 200,f|
00000870  6d 65 6e 75 25 20 35 30  30 0d 03 02 18 f7 3a f2  |menu% 500.....:.|
00000880  73 65 74 75 70 6d 65 6e  75 28 69 6d 65 6e 75 25  |setupmenu(imenu%|
00000890  29 0d 03 0c 16 f2 73 65  74 75 70 6d 65 6e 75 28  |).....setupmenu(|
000008a0  73 6d 65 6e 75 25 29 0d  03 16 16 f2 73 65 74 75  |smenu%).....setu|
000008b0  70 6d 65 6e 75 28 6d 6d  65 6e 75 25 29 0d 03 20  |pmenu(mmenu%).. |
000008c0  10 61 25 3d 6d 6d 65 6e  75 25 2b 33 38 0d 03 2a  |.a%=mmenu%+38..*|
000008d0  17 3f 61 25 3d 3f 61 25  20 84 20 25 30 31 30 30  |.?a%=?a% . %0100|
000008e0  30 30 30 30 0d 03 34 13  61 25 3d 6d 6d 65 6e 75  |0000..4.a%=mmenu|
000008f0  25 2b 33 38 2b 32 34 0d  03 3e 17 3f 61 25 3d 3f  |%+38+24..>.?a%=?|
00000900  61 25 20 84 20 25 30 31  30 30 30 30 30 30 0d 03  |a% . %01000000..|
00000910  48 16 f2 73 65 74 75 70  6d 65 6e 75 28 66 6d 65  |H..setupmenu(fme|
00000920  6e 75 25 29 0d 03 52 05  3a 0d 03 5c 15 f4 20 73  |nu%)..R.:..\.. s|
00000930  79 6d 6d 65 74 72 69 63  20 69 63 6f 6e 73 0d 03  |ymmetric icons..|
00000940  66 11 de 20 69 63 6f 6e  76 61 72 73 28 36 29 0d  |f.. iconvars(6).|
00000950  03 70 20 69 63 6f 6e 76  61 72 73 28 30 29 3d 31  |.p iconvars(0)=1|
00000960  20 20 20 20 20 20 20 3a  f4 20 73 63 61 6c 65 0d  |       :. scale.|
00000970  03 7a 21 69 63 6f 6e 76  61 72 73 28 31 29 3d 2d  |.z!iconvars(1)=-|
00000980  31 2e 38 36 20 20 20 3a  f4 20 6c 61 6d 62 64 61  |1.86   :. lambda|
00000990  0d 03 84 20 69 63 6f 6e  76 61 72 73 28 32 29 3d  |... iconvars(2)=|
000009a0  32 20 20 20 20 20 20 20  3a f4 20 61 6c 70 68 61  |2       :. alpha|
000009b0  0d 03 8e 1f 69 63 6f 6e  76 61 72 73 28 33 29 3d  |....iconvars(3)=|
000009c0  30 20 20 20 20 20 20 20  3a f4 20 62 65 74 61 0d  |0       :. beta.|
000009d0  03 98 20 69 63 6f 6e 76  61 72 73 28 34 29 3d 31  |.. iconvars(4)=1|
000009e0  20 20 20 20 20 20 20 3a  f4 20 67 61 6d 6d 61 0d  |       :. gamma.|
000009f0  03 a2 20 69 63 6f 6e 76  61 72 73 28 35 29 3d 30  |.. iconvars(5)=0|
00000a00  2e 31 20 20 20 20 20 3a  f4 20 6f 6d 65 67 61 0d  |.1     :. omega.|
00000a10  03 ac 23 69 63 6f 6e 76  61 72 73 28 36 29 3d 34  |..#iconvars(6)=4|
00000a20  20 20 20 20 20 20 20 3a  f4 20 73 79 6d 6d 65 74  |       :. symmet|
00000a30  72 79 0d 03 b6 18 f4 20  73 79 6d 6d 65 74 72 69  |ry..... symmetri|
00000a40  63 20 66 72 61 63 74 61  6c 73 0d 03 c0 1f de 20  |c fractals..... |
00000a50  66 72 61 63 76 61 72 73  28 37 29 2c 63 28 32 30  |fracvars(7),c(20|
00000a60  30 29 2c 73 28 32 30 30  29 0d 03 ca 11 66 72 61  |0),s(200)....fra|
00000a70  63 76 61 72 73 28 30 29  3d 31 0d 03 d4 13 66 72  |cvars(0)=1....fr|
00000a80  61 63 76 61 72 73 28 31  29 3d 30 2e 35 0d 03 de  |acvars(1)=0.5...|
00000a90  11 66 72 61 63 76 61 72  73 28 32 29 3d 30 0d 03  |.fracvars(2)=0..|
00000aa0  e8 11 66 72 61 63 76 61  72 73 28 33 29 3d 30 0d  |..fracvars(3)=0.|
00000ab0  03 f2 13 66 72 61 63 76  61 72 73 28 34 29 3d 30  |...fracvars(4)=0|
00000ac0  2e 35 0d 03 fc 13 66 72  61 63 76 61 72 73 28 35  |.5....fracvars(5|
00000ad0  29 3d 30 2e 35 0d 04 06  11 66 72 61 63 76 61 72  |)=0.5....fracvar|
00000ae0  73 28 36 29 3d 30 0d 04  10 11 66 72 61 63 76 61  |s(6)=0....fracva|
00000af0  72 73 28 37 29 3d 33 0d  04 1a 0a 63 6f 6e 6a 3d  |rs(7)=3....conj=|
00000b00  a3 0d 04 24 05 3a 0d 04  2e 0e 66 72 61 63 74 61  |...$.:....fracta|
00000b10  6c 25 3d 31 0d 04 38 0e  f2 6e 65 77 77 69 6e 64  |l%=1..8..newwind|
00000b20  6f 77 0d 04 42 05 3a 0d  04 4c 05 e1 0d 04 56 05  |ow..B.:..L....V.|
00000b30  3a 0d 04 60 2d dc 20 46  72 61 63 74 61 6c 73 2c  |:..`-. Fractals,|
00000b40  32 2c 30 2c 69 6e 66 6f  68 61 6e 64 25 2c 49 6e  |2,0,infohand%,In|
00000b50  66 6f 2c 26 38 30 2c 2d  31 2c 51 75 69 74 0d 04  |fo,&80,-1,Quit..|
00000b60  6a 33 dc 20 53 70 72 69  74 65 20 6d 65 6e 75 2c  |j3. Sprite menu,|
00000b70  32 2c 31 2c 2d 31 2c 46  75 6c 6c 20 73 69 7a 65  |2,1,-1,Full size|
00000b80  2c 26 38 30 2c 2d 31 2c  48 61 6c 66 20 73 69 7a  |,&80,-1,Half siz|
00000b90  65 0d 04 74 57 dc 20 4d  61 69 6e 20 6d 65 6e 75  |e..tW. Main menu|
00000ba0  2c 33 2c 32 2c 73 6d 65  6e 75 25 2c 53 68 6f 77  |,3,2,smenu%,Show|
00000bb0  20 73 70 72 69 74 65 2c  30 2c 73 61 76 65 73 68  | sprite,0,savesh|
00000bc0  61 6e 64 25 2c 53 61 76  65 20 73 70 72 69 74 65  |and%,Save sprite|
00000bd0  2c 26 38 30 2c 73 76 61  72 68 61 6e 64 25 2c 53  |,&80,svarhand%,S|
00000be0  61 76 65 20 64 61 74 61  0d 04 7e 38 dc 20 46 72  |ave data..~8. Fr|
00000bf0  61 63 74 61 6c 20 6d 65  6e 75 2c 32 2c 30 2c 2d  |actal menu,2,0,-|
00000c00  31 2c 53 79 6d 6d 2e 20  69 63 6f 6e 73 2c 26 38  |1,Symm. icons,&8|
00000c10  30 2c 2d 31 2c 53 79 6d  6d 2e 20 66 72 61 63 2e  |0,-1,Symm. frac.|
00000c20  0d 04 88 05 3a 0d 04 92  0b dd 20 f2 70 6f 6c 6c  |....:..... .poll|
00000c30  0d 04 9c 24 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |...$.. "Wimp_Pol|
00000c40  6c 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 72 65 61  |l",,block% . rea|
00000c50  73 6f 6e 25 0d 04 a6 10  c8 8e 20 72 65 61 73 6f  |son%...... reaso|
00000c60  6e 25 20 ca 0d 04 b0 13  c9 20 32 3a f2 6f 70 65  |n% ...... 2:.ope|
00000c70  6e 77 69 6e 64 6f 77 0d  04 ba 14 c9 20 33 3a f2  |nwindow..... 3:.|
00000c80  63 6c 6f 73 65 77 69 6e  64 6f 77 0d 04 c4 19 c9  |closewindow.....|
00000c90  20 36 3a f2 63 6c 69 63  6b 28 62 6c 6f 63 6b 25  | 6:.click(block%|
00000ca0  21 31 32 29 0d 04 ce 12  c9 20 37 3a f2 73 74 61  |!12)..... 7:.sta|
00000cb0  72 74 73 61 76 65 0d 04  d8 13 c9 20 38 3a f2 6b  |rtsave..... 8:.k|
00000cc0  65 79 70 72 65 73 73 65  64 0d 04 e2 13 c9 20 39  |eypressed..... 9|
00000cd0  3a f2 6d 65 6e 75 73 65  6c 65 63 74 0d 04 ec 14  |:.menuselect....|
00000ce0  c9 20 31 37 2c 31 38 3a  f2 72 65 63 65 69 76 65  |. 17,18:.receive|
00000cf0  0d 04 f6 0e c9 20 31 39  3a f2 66 61 69 6c 0d 05  |..... 19:.fail..|
00000d00  00 05 cb 0d 05 0a 05 e1  0d 05 14 05 3a 0d 05 1e  |............:...|
00000d10  0b dd 20 f2 66 61 69 6c  0d 05 28 15 e7 20 73 61  |.. .fail..(.. sa|
00000d20  76 65 73 73 74 61 67 65  25 3d 32 20 8c 0d 05 32  |vesstage%=2 ...2|
00000d30  05 3a 0d 05 3c 05 cc 0d  05 46 30 f2 72 65 70 6f  |.:..<....F0.repo|
00000d40  72 74 28 22 54 72 61 6e  73 66 65 72 20 66 61 69  |rt("Transfer fai|
00000d50  6c 65 64 20 2d 20 72 65  63 65 69 76 65 72 20 64  |led - receiver d|
00000d60  69 65 64 22 2c 31 29 0d  05 50 05 cd 0d 05 5a 05  |ied",1)..P....Z.|
00000d70  3a 0d 05 64 11 73 61 76  65 73 73 74 61 67 65 25  |:..d.savesstage%|
00000d80  3d 30 0d 05 6e 05 e1 0d  05 78 05 3a 0d 05 82 17  |=0..n....x.:....|
00000d90  dd 20 f2 73 65 74 75 70  6d 65 6e 75 28 6d 65 6e  |. .setupmenu(men|
00000da0  75 25 29 0d 05 8c 1f f3  20 74 69 74 6c 65 24 2c  |u%)..... title$,|
00000db0  6e 75 6d 25 3a 24 6d 65  6e 75 25 3d 74 69 74 6c  |num%:$menu%=titl|
00000dc0  65 24 0d 05 96 1b 77 69  64 74 68 25 3d 28 a9 28  |e$....width%=(.(|
00000dd0  74 69 74 6c 65 24 29 2d  32 29 2a 31 36 0d 05 a0  |title$)-2)*16...|
00000de0  2d 6d 65 6e 75 25 21 31  32 3d 26 30 30 30 37 30  |-menu%!12=&00070|
00000df0  32 30 37 3a 6d 65 6e 75  25 21 32 30 3d 34 34 3a  |207:menu%!20=44:|
00000e00  6d 65 6e 75 25 21 32 34  3d 30 0d 05 aa 1f 70 74  |menu%!24=0....pt|
00000e10  72 25 3d 6d 65 6e 75 25  2b 32 38 3a e3 20 69 25  |r%=menu%+28:. i%|
00000e20  3d 31 20 b8 20 6e 75 6d  25 0d 05 b4 1a f3 20 6d  |=1 . num%..... m|
00000e30  66 6c 61 67 25 2c 73 75  62 70 74 72 25 2c 69 74  |flag%,subptr%,it|
00000e40  65 6d 24 0d 05 be 1f 21  70 74 72 25 3d 6d 66 6c  |em$....!ptr%=mfl|
00000e50  61 67 25 3a 70 74 72 25  21 34 3d 73 75 62 70 74  |ag%:ptr%!4=subpt|
00000e60  72 25 0d 05 c8 24 70 74  72 25 21 38 3d 26 37 30  |r%...$ptr%!8=&70|
00000e70  30 30 30 32 31 3a 24 28  70 74 72 25 2b 31 32 29  |00021:$(ptr%+12)|
00000e80  3d 69 74 65 6d 24 0d 05  d2 16 61 25 3d 28 a9 28  |=item$....a%=(.(|
00000e90  69 74 65 6d 24 29 2b 31  29 2a 31 36 0d 05 dc 19  |item$)+1)*16....|
00000ea0  e7 20 61 25 3e 77 69 64  74 68 25 20 77 69 64 74  |. a%>width% widt|
00000eb0  68 25 3d 61 25 0d 05 e6  0e 70 74 72 25 2b 3d 32  |h%=a%....ptr%+=2|
00000ec0  34 3a ed 0d 05 f0 13 6d  65 6e 75 25 21 31 36 3d  |4:.....menu%!16=|
00000ed0  77 69 64 74 68 25 0d 05  fa 05 e1 0d 06 04 05 3a  |width%.........:|
00000ee0  0d 06 0e 14 dd 20 f2 69  62 61 72 28 62 75 74 74  |..... .ibar(butt|
00000ef0  6f 6e 25 29 0d 06 18 10  c8 8e 20 62 75 74 74 6f  |on%)...... butto|
00000f00  6e 25 20 ca 0d 06 22 14  c9 20 34 3a f2 6f 70 65  |n% ...".. 4:.ope|
00000f10  6e 66 72 6f 6d 62 61 72  0d 06 2c 28 c9 20 32 3a  |nfrombar..,(. 2:|
00000f20  f2 73 68 6f 77 6d 65 6e  75 28 69 6d 65 6e 75 25  |.showmenu(imenu%|
00000f30  2c 21 62 6c 6f 63 6b 25  2d 36 34 2c 31 38 34 29  |,!block%-64,184)|
00000f40  0d 06 36 05 cb 0d 06 40  05 e1 0d 06 4a 05 3a 0d  |..6....@....J.:.|
00000f50  06 54 1e dd 20 f2 73 68  6f 77 6d 65 6e 75 28 6d  |.T.. .showmenu(m|
00000f60  65 6e 75 25 2c 6d 78 25  2c 6d 79 25 29 0d 06 5e  |enu%,mx%,my%)..^|
00000f70  13 6d 65 6e 75 6f 70 65  6e 25 3d 6d 65 6e 75 25  |.menuopen%=menu%|
00000f80  0d 06 68 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..h'.. "Wimp_Cre|
00000f90  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00000fa0  6d 78 25 2c 6d 79 25 0d  06 72 05 e1 0d 06 7c 05  |mx%,my%..r....|.|
00000fb0  3a 0d 06 86 11 dd 20 f2  6d 65 6e 75 73 65 6c 65  |:..... .menusele|
00000fc0  63 74 0d 06 90 1f 73 65  6c 25 3d 21 62 6c 6f 63  |ct....sel%=!bloc|
00000fd0  6b 25 3a 73 65 6c 31 25  3d 62 6c 6f 63 6b 25 21  |k%:sel1%=block%!|
00000fe0  34 0d 06 9a 24 c8 99 20  22 57 69 6d 70 5f 47 65  |4...$.. "Wimp_Ge|
00000ff0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 62  |tPointerInfo",,b|
00001000  6c 6f 63 6b 25 0d 06 a4  14 62 75 74 74 6f 6e 25  |lock%....button%|
00001010  3d 62 6c 6f 63 6b 25 21  38 0d 06 ae 12 c8 8e 20  |=block%!8...... |
00001020  6d 65 6e 75 6f 70 65 6e  25 20 ca 0d 06 b8 0d c9  |menuopen% ......|
00001030  20 69 6d 65 6e 75 25 3a  0d 06 c2 0e 20 c8 8e 20  | imenu%:.... .. |
00001040  73 65 6c 25 20 ca 0d 06  cc 10 20 c9 20 31 3a 71  |sel% ..... . 1:q|
00001050  75 69 74 25 3d b9 0d 06  d6 06 20 cb 0d 06 e0 0d  |uit%=..... .....|
00001060  c9 20 6d 6d 65 6e 75 25  3a 0d 06 ea 0e 20 c8 8e  |. mmenu%:.... ..|
00001070  20 73 65 6c 25 20 ca 0d  06 f4 09 20 c9 20 30 3a  | sel% ..... . 0:|
00001080  0d 06 fe 11 20 20 20 c8  8e 20 73 65 6c 31 25 20  |....   .. sel1% |
00001090  ca 0d 07 08 19 20 20 20  20 20 c9 20 2d 31 3a f2  |.....     . -1:.|
000010a0  74 6f 67 67 6c 65 73 77  69 6e 0d 07 12 15 20 20  |toggleswin....  |
000010b0  20 20 20 c9 20 30 3a f2  6d 61 6b 65 62 69 67 0d  |   . 0:.makebig.|
000010c0  07 1c 17 20 20 20 20 20  c9 20 31 3a f2 6d 61 6b  |...     . 1:.mak|
000010d0  65 73 6d 61 6c 6c 0d 07  26 08 20 20 20 cb 0d 07  |esmall..&.   ...|
000010e0  30 13 20 c9 20 31 3a f2  71 75 69 63 6b 73 61 76  |0. . 1:.quicksav|
000010f0  65 0d 07 3a 14 20 c9 20  32 3a f2 71 75 69 63 6b  |e..:. . 2:.quick|
00001100  64 73 61 76 65 0d 07 44  06 20 cb 0d 07 4e 0d c9  |dsave..D. ...N..|
00001110  20 66 6d 65 6e 75 25 3a  0d 07 58 29 20 f2 73 61  | fmenu%:..X) .sa|
00001120  76 65 76 61 72 73 3a 66  72 61 63 74 61 6c 25 3d  |vevars:fractal%=|
00001130  73 65 6c 25 2b 31 3a f2  6e 65 77 77 69 6e 64 6f  |sel%+1:.newwindo|
00001140  77 0d 07 62 05 cb 0d 07  6c 28 e7 20 62 75 74 74  |w..b....l(. butt|
00001150  6f 6e 25 3d 31 20 f2 73  68 6f 77 6d 65 6e 75 28  |on%=1 .showmenu(|
00001160  6d 65 6e 75 6f 70 65 6e  25 2c 30 2c 30 29 0d 07  |menuopen%,0,0)..|
00001170  76 05 e1 0d 07 80 05 3a  0d 07 8a 10 dd 20 f2 65  |v......:..... .e|
00001180  72 72 6f 72 28 61 24 29  0d 07 94 11 f2 72 65 70  |rror(a$).....rep|
00001190  6f 72 74 28 61 24 2c 31  29 0d 07 9e 17 c8 99 20  |ort(a$,1)...... |
000011a0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000011b0  0d 07 a8 05 e0 0d 07 b2  05 e1 0d 07 bc 05 3a 0d  |..............:.|
000011c0  07 c6 19 dd 20 f2 72 65  70 6f 72 74 28 65 72 72  |.... .report(err|
000011d0  24 2c 66 6c 61 67 25 29  0d 07 d0 0e 6e 61 6d 65  |$,flag%)....name|
000011e0  24 3d 61 70 70 24 0d 07  da 2e e7 20 66 6c 61 67  |$=app$..... flag|
000011f0  25 20 80 20 31 36 20 8c  20 6e 61 6d 65 24 3d 22  |% . 16 . name$="|
00001200  4d 65 73 73 61 67 65 20  66 72 6f 6d 20 22 2b 6e  |Message from "+n|
00001210  61 6d 65 24 0d 07 e4 0f  21 62 6c 6f 63 6b 25 3d  |ame$....!block%=|
00001220  32 35 35 0d 07 ee 17 24  28 62 6c 6f 63 6b 25 2b  |255....$(block%+|
00001230  34 29 3d 65 72 72 24 2b  bd 30 0d 07 f8 39 c8 99  |4)=err$+.0...9..|
00001240  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00001250  6f 72 22 2c 62 6c 6f 63  6b 25 2c 66 6c 61 67 25  |or",block%,flag%|
00001260  2c 6e 61 6d 65 24 20 b8  20 2c 65 72 72 63 6c 69  |,name$ . ,errcli|
00001270  63 6b 25 0d 08 02 05 e1  0d 08 0c 05 3a 0d 08 16  |ck%.........:...|
00001280  0e dd 20 f2 72 65 63 65  69 76 65 0d 08 20 12 c8  |.. .receive.. ..|
00001290  8e 20 62 6c 6f 63 6b 25  21 31 36 20 ca 0d 08 2a  |. block%!16 ...*|
000012a0  0f c9 20 30 3a 71 75 69  74 25 3d b9 0d 08 34 11  |.. 0:quit%=...4.|
000012b0  c9 20 32 3a f2 64 61 74  61 73 61 76 65 0d 08 3e  |. 2:.datasave..>|
000012c0  11 c9 20 33 3a f2 64 61  74 61 6c 6f 61 64 0d 08  |.. 3:.dataload..|
000012d0  48 15 c9 20 34 3a 73 61  76 65 73 73 74 61 67 65  |H.. 4:savesstage|
000012e0  25 3d 30 0d 08 52 05 cb  0d 08 5c 05 e1 0d 08 66  |%=0..R....\....f|
000012f0  05 3a 0d 08 70 40 dd 20  a4 63 72 65 61 74 65 69  |.:..p@. .createi|
00001300  63 6f 6e 28 68 61 6e 64  6c 65 25 2c 78 25 2c 79  |con(handle%,x%,y|
00001310  25 2c 6f 78 25 2c 6f 79  25 2c 66 6c 61 67 25 2c  |%,ox%,oy%,flag%,|
00001320  74 65 78 74 24 2c 70 31  25 2c 70 32 25 2c 70 33  |text$,p1%,p2%,p3|
00001330  25 29 0d 08 7a 13 21 62  6c 6f 63 6b 25 3d 68 61  |%)..z.!block%=ha|
00001340  6e 64 6c 65 25 0d 08 84  0f 62 6c 6f 63 6b 25 21  |ndle%....block%!|
00001350  34 3d 78 25 0d 08 8e 0f  62 6c 6f 63 6b 25 21 38  |4=x%....block%!8|
00001360  3d 79 25 0d 08 98 14 62  6c 6f 63 6b 25 21 31 32  |=y%....block%!12|
00001370  3d 78 25 2b 6f 78 25 0d  08 a2 14 62 6c 6f 63 6b  |=x%+ox%....block|
00001380  25 21 31 36 3d 79 25 2b  6f 79 25 0d 08 ac 13 62  |%!16=y%+oy%....b|
00001390  6c 6f 63 6b 25 21 32 30  3d 66 6c 61 67 25 0d 08  |lock%!20=flag%..|
000013a0  b6 0d e7 20 70 31 25 3d  30 20 8c 0d 08 c0 16 24  |... p1%=0 .....$|
000013b0  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 74 65 78 74  |(block%+24)=text|
000013c0  24 0d 08 ca 05 cc 0d 08  d4 11 62 6c 6f 63 6b 25  |$.........block%|
000013d0  21 32 34 3d 70 31 25 0d  08 de 11 62 6c 6f 63 6b  |!24=p1%....block|
000013e0  25 21 32 38 3d 70 32 25  0d 08 e8 11 62 6c 6f 63  |%!28=p2%....bloc|
000013f0  6b 25 21 33 32 3d 70 33  25 0d 08 f2 05 cd 0d 08  |k%!32=p3%.......|
00001400  fc 26 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.&.. "Wimp_Creat|
00001410  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00001420  20 69 68 25 0d 09 06 08  3d 69 68 25 0d 09 10 05  | ih%....=ih%....|
00001430  3a 0d 09 1a 12 dd 20 f2  63 6c 69 63 6b 28 77 69  |:..... .click(wi|
00001440  6e 25 29 0d 09 24 0d c8  8e 20 77 69 6e 25 20 ca  |n%)..$... win% .|
00001450  0d 09 2e 18 c9 20 2d 32  3a f2 69 62 61 72 28 62  |..... -2:.ibar(b|
00001460  6c 6f 63 6b 25 21 38 29  0d 09 38 1a c9 20 6d 61  |lock%!8)..8.. ma|
00001470  69 6e 68 61 6e 64 25 3a  f2 6d 61 69 6e 63 6c 69  |inhand%:.maincli|
00001480  63 6b 0d 09 42 18 c9 20  76 61 72 68 61 6e 64 25  |ck..B.. varhand%|
00001490  3a f2 76 61 72 63 6c 69  63 6b 0d 09 4c 1b c9 20  |:.varclick..L.. |
000014a0  73 61 76 65 73 68 61 6e  64 25 3a f2 73 61 76 65  |saveshand%:.save|
000014b0  63 6c 69 63 6b 0d 09 56  1a c9 20 73 76 61 72 68  |click..V.. svarh|
000014c0  61 6e 64 25 3a f2 73 76  61 72 63 6c 69 63 6b 0d  |and%:.svarclick.|
000014d0  09 60 05 cb 0d 09 6a 05  e1 0d 09 74 05 3a 0d 09  |.`....j....t.:..|
000014e0  7e 0f dd 20 f2 76 61 72  63 6c 69 63 6b 0d 09 88  |~.. .varclick...|
000014f0  14 62 75 74 74 6f 6e 25  3d 62 6c 6f 63 6b 25 21  |.button%=block%!|
00001500  38 0d 09 92 13 69 63 6f  6e 25 3d 62 6c 6f 63 6b  |8....icon%=block|
00001510  25 21 31 36 0d 09 9c 10  c8 8e 20 62 75 74 74 6f  |%!16...... butto|
00001520  6e 25 20 ca 0d 09 a6 0a  20 20 c9 20 32 3a 0d 09  |n% .....  . 2:..|
00001530  b0 2b 20 20 f2 73 68 6f  77 6d 65 6e 75 28 66 6d  |.+  .showmenu(fm|
00001540  65 6e 75 25 2c 21 62 6c  6f 63 6b 25 2d 36 34 2c  |enu%,!block%-64,|
00001550  62 6c 6f 63 6b 25 21 34  29 0d 09 ba 05 cb 0d 09  |block%!4).......|
00001560  c4 05 e1 0d 09 ce 05 3a  0d 09 d8 12 dd 20 f2 6f  |.......:..... .o|
00001570  70 65 6e 66 72 6f 6d 62  61 72 0d 09 e2 15 21 62  |penfrombar....!b|
00001580  6c 6f 63 6b 25 3d 6d 61  69 6e 68 61 6e 64 25 0d  |lock%=mainhand%.|
00001590  09 ec 24 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |..$.. "Wimp_GetW|
000015a0  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
000015b0  63 6b 25 0d 09 f6 10 62  6c 6f 63 6b 25 21 32 38  |ck%....block%!28|
000015c0  3d 2d 31 0d 0a 00 20 c8  99 20 22 57 69 6d 70 5f  |=-1... .. "Wimp_|
000015d0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
000015e0  63 6b 25 0d 0a 0a 05 e1  0d 0a 14 05 3a 0d 0a 1e  |ck%.........:...|
000015f0  11 dd 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 0d 0a  |.. .openwindow..|
00001600  28 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |( .. "Wimp_OpenW|
00001610  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 0a  |indow",,block%..|
00001620  32 05 e1 0d 0a 3c 05 3a  0d 0a 46 12 dd 20 f2 63  |2....<.:..F.. .c|
00001630  6c 6f 73 65 77 69 6e 64  6f 77 0d 0a 50 2f e7 20  |losewindow..P/. |
00001640  21 62 6c 6f 63 6b 25 3c  3e 73 73 70 72 68 61 6e  |!block%<>ssprhan|
00001650  64 25 20 80 20 21 62 6c  6f 63 6b 25 3c 3e 62 73  |d% . !block%<>bs|
00001660  70 72 68 61 6e 64 25 20  8c 0d 0a 5a 21 c8 99 20  |prhand% ...Z!.. |
00001670  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00001680  77 22 2c 2c 62 6c 6f 63  6b 25 0d 0a 64 05 cc 0d  |w",,block%..d...|
00001690  0a 6e 0f f2 74 6f 67 67  6c 65 73 77 69 6e 0d 0a  |.n..toggleswin..|
000016a0  78 05 cd 0d 0a 82 05 e1  0d 0a 8c 05 3a 0d 0a 96  |x...........:...|
000016b0  10 dd 20 f2 6d 61 69 6e  63 6c 69 63 6b 0d 0a a0  |.. .mainclick...|
000016c0  14 62 75 74 74 6f 6e 25  3d 62 6c 6f 63 6b 25 21  |.button%=block%!|
000016d0  38 0d 0a aa 13 69 63 6f  6e 25 3d 62 6c 6f 63 6b  |8....icon%=block|
000016e0  25 21 31 36 0d 0a b4 10  c8 8e 20 62 75 74 74 6f  |%!16...... butto|
000016f0  6e 25 20 ca 0d 0a be 0a  20 20 c9 20 34 3a 0d 0a  |n% .....  . 4:..|
00001700  c8 10 20 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 0a  |..  .. icon% ...|
00001710  d2 0c 20 20 20 20 c9 20  38 3a 0d 0a dc 15 20 20  |..    . 8:....  |
00001720  20 20 f2 73 74 61 72 74  66 72 61 63 74 61 6c 0d  |  .startfractal.|
00001730  0a e6 0c 20 20 20 20 c9  20 34 3a 0d 0a f0 14 20  |...    . 4:.... |
00001740  20 20 20 f2 74 65 73 74  66 72 61 63 74 61 6c 0d  |   .testfractal.|
00001750  0a fa 0c 20 20 20 20 c9  20 33 3a 0d 0b 04 2d 20  |...    . 3:...- |
00001760  20 20 20 f2 73 68 6f 77  6d 65 6e 75 28 66 6d 65  |   .showmenu(fme|
00001770  6e 75 25 2c 21 62 6c 6f  63 6b 25 2d 36 34 2c 62  |nu%,!block%-64,b|
00001780  6c 6f 63 6b 25 21 34 29  0d 0b 0e 0c 20 20 20 20  |lock%!4)....    |
00001790  c9 20 39 3a 0d 0b 18 18  20 20 20 20 21 62 6c 6f  |. 9:....    !blo|
000017a0  63 6b 25 3d 76 61 72 68  61 6e 64 25 0d 0b 22 28  |ck%=varhand%.."(|
000017b0  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |    .. "Wimp_Get|
000017c0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
000017d0  6f 63 6b 25 0d 0b 2c 24  20 20 20 20 c8 99 20 22  |ock%..,$    .. "|
000017e0  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
000017f0  2c 2c 62 6c 6f 63 6b 25  0d 0b 36 07 20 20 cb 0d  |,,block%..6.  ..|
00001800  0b 40 0a 20 20 c9 20 32  3a 0d 0b 4a 2b 20 20 f2  |.@.  . 2:..J+  .|
00001810  73 68 6f 77 6d 65 6e 75  28 6d 6d 65 6e 75 25 2c  |showmenu(mmenu%,|
00001820  21 62 6c 6f 63 6b 25 2d  36 34 2c 62 6c 6f 63 6b  |!block%-64,block|
00001830  25 21 34 29 0d 0b 54 05  cb 0d 0b 5e 05 e1 0d 0b  |%!4)..T....^....|
00001840  68 05 3a 0d 0b 72 26 dd  20 f2 73 65 74 69 6e 64  |h.:..r&. .setind|
00001850  64 61 74 61 28 77 68 61  6e 64 25 2c 69 68 61 6e  |data(whand%,ihan|
00001860  64 25 2c 74 65 78 74 24  29 0d 0b 7c 22 21 62 6c  |d%,text$)..|"!bl|
00001870  6f 63 6b 25 3d 77 68 61  6e 64 25 3a 62 6c 6f 63  |ock%=whand%:bloc|
00001880  6b 25 21 34 3d 69 68 61  6e 64 25 0d 0b 86 22 c8  |k%!4=ihand%...".|
00001890  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000018a0  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0b 90  |tate",,block%...|
000018b0  16 24 28 62 6c 6f 63 6b  25 21 32 38 29 3d 74 65  |.$(block%!28)=te|
000018c0  78 74 24 0d 0b 9a 1a 62  6c 6f 63 6b 25 21 38 3d  |xt$....block%!8=|
000018d0  30 3a 62 6c 6f 63 6b 25  21 31 32 3d 30 0d 0b a4  |0:block%!12=0...|
000018e0  22 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |".. "Wimp_SetIco|
000018f0  6e 53 74 61 74 65 22 2c  2c 62 6c 6f 63 6b 25 0d  |nState",,block%.|
00001900  0b ae 05 e1 0d 0b b8 05  3a 0d 0b c2 20 dd 20 a4  |........:... . .|
00001910  67 65 74 69 6e 64 64 61  74 61 28 77 68 61 6e 64  |getinddata(whand|
00001920  25 2c 69 68 61 6e 64 25  29 0d 0b cc 22 21 62 6c  |%,ihand%)..."!bl|
00001930  6f 63 6b 25 3d 77 68 61  6e 64 25 3a 62 6c 6f 63  |ock%=whand%:bloc|
00001940  6b 25 21 34 3d 69 68 61  6e 64 25 0d 0b d6 22 c8  |k%!4=ihand%...".|
00001950  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00001960  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0b e0  |tate",,block%...|
00001970  11 3d 24 28 62 6c 6f 63  6b 25 21 32 38 29 0d 0b  |.=$(block%!28)..|
00001980  ea 05 3a 0d 0b f4 0d dd  20 f2 73 63 61 6c 65 73  |..:..... .scales|
00001990  0d 0b fe 26 73 63 61 6c  65 3d bb 28 a4 67 65 74  |...&scale=.(.get|
000019a0  69 6e 64 64 61 74 61 28  6d 61 69 6e 68 61 6e 64  |inddata(mainhand|
000019b0  25 2c 31 30 29 29 0d 0c  08 14 73 63 61 6c 65 3d  |%,10))....scale=|
000019c0  73 63 61 6c 65 2a 31 30  30 30 0d 0c 12 12 73 63  |scale*1000....sc|
000019d0  61 6c 65 3d a8 28 73 63  61 6c 65 29 0d 0c 1c 14  |ale=.(scale)....|
000019e0  73 63 61 6c 65 3d 73 63  61 6c 65 2f 31 30 30 30  |scale=scale/1000|
000019f0  0d 0c 26 24 f2 73 65 74  69 6e 64 64 61 74 61 28  |..&$.setinddata(|
00001a00  6d 61 69 6e 68 61 6e 64  25 2c 31 30 2c c3 73 63  |mainhand%,10,.sc|
00001a10  61 6c 65 29 0d 0c 30 05  e1 0d 0c 3a 05 3a 0d 0c  |ale)..0....:.:..|
00001a20  44 11 dd 20 f2 6b 65 79  70 72 65 73 73 65 64 0d  |D.. .keypressed.|
00001a30  0c 4e 0b 77 61 6e 74 25  3d a3 0d 0c 58 11 77 69  |.N.want%=...X.wi|
00001a40  6e 64 25 3d 21 62 6c 6f  63 6b 25 0d 0c 62 12 69  |nd%=!block%..b.i|
00001a50  63 6f 6e 25 3d 62 6c 6f  63 6b 25 21 34 0d 0c 6c  |con%=block%!4..l|
00001a60  12 6b 65 79 25 3d 62 6c  6f 63 6b 25 21 32 34 0d  |.key%=block%!24.|
00001a70  0c 76 0e c8 8e 20 77 69  6e 64 25 20 ca 0d 0c 80  |.v... wind% ....|
00001a80  12 20 20 c9 20 6d 61 69  6e 68 61 6e 64 25 3a 0d  |.  . mainhand%:.|
00001a90  0c 8a 12 20 20 20 20 c8  8e 20 69 63 6f 6e 25 20  |...    .. icon% |
00001aa0  ca 0d 0c 94 0c 20 20 20  20 c9 20 31 3a 0d 0c 9e  |.....    . 1:...|
00001ab0  13 20 20 20 20 20 20 c8  8e 20 6b 65 79 25 20 ca  |.      .. key% .|
00001ac0  0d 0c a8 0f 20 20 20 20  20 20 c9 20 31 33 3a 0d  |....      . 13:.|
00001ad0  0c b2 1b 20 20 20 20 20  20 20 20 f2 73 63 61 6c  |...        .scal|
00001ae0  65 73 3a 77 61 6e 74 25  3d b9 0d 0c bc 0b 20 20  |es:want%=.....  |
00001af0  20 20 20 20 cb 0d 0c c6  09 20 20 20 20 cb 0d 0c  |    .....    ...|
00001b00  d0 11 20 20 c9 20 76 61  72 68 61 6e 64 25 3a 0d  |..  . varhand%:.|
00001b10  0c da 12 20 20 20 20 c8  8e 20 69 63 6f 6e 25 20  |...    .. icon% |
00001b20  ca 0d 0c e4 24 20 20 20  20 c9 20 31 32 2c 31 33  |....$    . 12,13|
00001b30  2c 31 34 2c 31 35 2c 31  36 2c 31 37 2c 31 38 2c  |,14,15,16,17,18,|
00001b40  31 39 2c 32 30 0d 0c ee  13 20 20 20 20 20 20 c8  |19,20....      .|
00001b50  8e 20 6b 65 79 25 20 ca  0d 0c f8 1e 20 20 20 20  |. key% .....    |
00001b60  20 20 c9 20 31 33 2c 26  31 38 45 2c 26 31 39 45  |  . 13,&18E,&19E|
00001b70  2c 26 31 38 41 3a 0d 0d  02 1e 20 20 20 20 20 20  |,&18A:....      |
00001b80  20 20 f2 63 61 72 65 74  64 6f 77 6e 3a 77 61 6e  |  .caretdown:wan|
00001b90  74 25 3d b9 0d 0d 0c 16  20 20 20 20 20 20 c9 20  |t%=.....      . |
00001ba0  26 31 38 46 2c 26 31 39  46 3a 0d 0d 16 1c 20 20  |&18F,&19F:....  |
00001bb0  20 20 20 20 20 20 f2 63  61 72 65 74 75 70 3a 77  |      .caretup:w|
00001bc0  61 6e 74 25 3d b9 0d 0d  20 0b 20 20 20 20 20 20  |ant%=... .      |
00001bd0  cb 0d 0d 2a 09 20 20 20  20 cb 0d 0d 34 13 20 20  |...*.    ...4.  |
00001be0  c9 20 73 61 76 65 73 68  61 6e 64 25 3a 0d 0d 3e  |. saveshand%:..>|
00001bf0  12 20 20 20 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |.    .. icon% ..|
00001c00  0d 48 0c 20 20 20 20 c9  20 30 3a 0d 0d 52 13 20  |.H.    . 0:..R. |
00001c10  20 20 20 20 20 c8 8e 20  6b 65 79 25 20 ca 0d 0d  |     .. key% ...|
00001c20  5c 0f 20 20 20 20 20 20  c9 20 31 33 3a 0d 0d 66  |\.      . 13:..f|
00001c30  1e 20 20 20 20 20 20 20  20 f2 71 75 69 63 6b 73  |.        .quicks|
00001c40  61 76 65 3a 77 61 6e 74  25 3d b9 0d 0d 70 0b 20  |ave:want%=...p. |
00001c50  20 20 20 20 20 cb 0d 0d  7a 09 20 20 20 20 cb 0d  |     ...z.    ..|
00001c60  0d 84 12 20 20 c9 20 73  76 61 72 68 61 6e 64 25  |...  . svarhand%|
00001c70  3a 0d 0d 8e 12 20 20 20  20 c8 8e 20 69 63 6f 6e  |:....    .. icon|
00001c80  25 20 ca 0d 0d 98 0c 20  20 20 20 c9 20 30 3a 0d  |% .....    . 0:.|
00001c90  0d a2 13 20 20 20 20 20  20 c8 8e 20 6b 65 79 25  |...      .. key%|
00001ca0  20 ca 0d 0d ac 0f 20 20  20 20 20 20 c9 20 31 33  | .....      . 13|
00001cb0  3a 0d 0d b6 1f 20 20 20  20 20 20 20 20 f2 71 75  |:....        .qu|
00001cc0  69 63 6b 64 73 61 76 65  3a 77 61 6e 74 25 3d b9  |ickdsave:want%=.|
00001cd0  0d 0d c0 0b 20 20 20 20  20 20 cb 0d 0d ca 09 20  |....      ..... |
00001ce0  20 20 20 cb 0d 0d d4 05  cb 0d 0d de 29 e7 20 77  |   .........). w|
00001cf0  61 6e 74 25 3d a3 20 8c  20 c8 99 20 22 57 69 6d  |ant%=. . .. "Wim|
00001d00  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 6b 65  |p_ProcessKey",ke|
00001d10  79 25 0d 0d e8 05 e1 0d  0d f2 05 3a 0d 0d fc 10  |y%.........:....|
00001d20  dd 20 f2 63 61 72 65 74  64 6f 77 6e 0d 0e 06 26  |. .caretdown...&|
00001d30  c8 99 20 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |.. "Wimp_GetCare|
00001d40  74 50 6f 73 69 74 69 6f  6e 22 2c 2c 62 6c 6f 63  |tPosition",,bloc|
00001d50  6b 25 0d 0e 10 15 63 61  72 69 63 6f 6e 25 3d 62  |k%....caricon%=b|
00001d60  6c 6f 63 6b 25 21 34 0d  0e 1a 16 6e 63 69 63 6f  |lock%!4....ncico|
00001d70  6e 25 3d 63 61 72 69 63  6f 6e 25 2b 31 0d 0e 24  |n%=caricon%+1..$|
00001d80  1b e7 20 6e 63 69 63 6f  6e 25 3c 3d 28 31 31 2b  |.. ncicon%<=(11+|
00001d90  75 73 65 64 25 29 20 8c  0d 0e 2e 57 c8 99 20 22  |used%) ....W.. "|
00001da0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00001db0  69 74 69 6f 6e 22 2c 76  61 72 68 61 6e 64 25 2c  |ition",varhand%,|
00001dc0  6e 63 69 63 6f 6e 25 2c  30 2c 30 2c 2d 31 2c a9  |ncicon%,0,0,-1,.|
00001dd0  28 a4 67 65 74 69 6e 64  64 61 74 61 28 76 61 72  |(.getinddata(var|
00001de0  68 61 6e 64 25 2c 6e 63  69 63 6f 6e 25 29 29 0d  |hand%,ncicon%)).|
00001df0  0e 38 05 cd 0d 0e 42 05  e1 0d 0e 4c 05 3a 0d 0e  |.8....B....L.:..|
00001e00  56 0e dd 20 f2 63 61 72  65 74 75 70 0d 0e 60 26  |V.. .caretup..`&|
00001e10  c8 99 20 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |.. "Wimp_GetCare|
00001e20  74 50 6f 73 69 74 69 6f  6e 22 2c 2c 62 6c 6f 63  |tPosition",,bloc|
00001e30  6b 25 0d 0e 6a 15 63 61  72 69 63 6f 6e 25 3d 62  |k%..j.caricon%=b|
00001e40  6c 6f 63 6b 25 21 34 0d  0e 74 16 6e 63 69 63 6f  |lock%!4..t.ncico|
00001e50  6e 25 3d 63 61 72 69 63  6f 6e 25 2d 31 0d 0e 7e  |n%=caricon%-1..~|
00001e60  13 e7 20 6e 63 69 63 6f  6e 25 3e 3d 31 32 20 8c  |.. ncicon%>=12 .|
00001e70  0d 0e 88 57 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...W.. "Wimp_Set|
00001e80  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 76  |CaretPosition",v|
00001e90  61 72 68 61 6e 64 25 2c  6e 63 69 63 6f 6e 25 2c  |arhand%,ncicon%,|
00001ea0  30 2c 30 2c 2d 31 2c a9  28 a4 67 65 74 69 6e 64  |0,0,-1,.(.getind|
00001eb0  64 61 74 61 28 76 61 72  68 61 6e 64 25 2c 6e 63  |data(varhand%,nc|
00001ec0  69 63 6f 6e 25 29 29 0d  0e 92 05 cd 0d 0e 9c 05  |icon%)).........|
00001ed0  e1 0d 0e a6 05 3a 0d 0e  b0 20 dd 20 f2 73 65 6c  |.....:... . .sel|
00001ee0  65 63 74 69 63 6f 6e 28  77 68 61 6e 64 25 2c 69  |ecticon(whand%,i|
00001ef0  68 61 6e 64 25 29 0d 0e  ba 22 21 62 6c 6f 63 6b  |hand%)..."!block|
00001f00  25 3d 77 68 61 6e 64 25  3a 62 6c 6f 63 6b 25 21  |%=whand%:block%!|
00001f10  34 3d 69 68 61 6e 64 25  0d 0e c4 22 62 6c 6f 63  |4=ihand%..."bloc|
00001f20  6b 25 21 38 3d 31 3c 3c  32 31 3a 62 6c 6f 63 6b  |k%!8=1<<21:block|
00001f30  25 21 31 32 3d 31 3c 3c  32 31 0d 0e ce 22 c8 99  |%!12=1<<21..."..|
00001f40  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00001f50  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 0e d8 05  |ate",,block%....|
00001f60  e1 0d 0e e2 05 3a 0d 0e  ec 22 dd 20 f2 75 6e 73  |.....:...". .uns|
00001f70  65 6c 65 63 74 69 63 6f  6e 28 77 68 61 6e 64 25  |electicon(whand%|
00001f80  2c 69 68 61 6e 64 25 29  0d 0e f6 22 21 62 6c 6f  |,ihand%)..."!blo|
00001f90  63 6b 25 3d 77 68 61 6e  64 25 3a 62 6c 6f 63 6b  |ck%=whand%:block|
00001fa0  25 21 34 3d 69 68 61 6e  64 25 0d 0f 00 1e 62 6c  |%!4=ihand%....bl|
00001fb0  6f 63 6b 25 21 38 3d 30  3a 62 6c 6f 63 6b 25 21  |ock%!8=0:block%!|
00001fc0  31 32 3d 31 3c 3c 32 31  0d 0f 0a 22 c8 99 20 22  |12=1<<21...".. "|
00001fd0  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00001fe0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0f 14 05 e1 0d  |e",,block%......|
00001ff0  0f 1e 05 3a 0d 0f 28 12  dd 20 f2 74 65 73 74 66  |...:..(.. .testf|
00002000  72 61 63 74 61 6c 0d 0f  32 0b 74 65 73 74 25 3d  |ractal..2.test%=|
00002010  b9 0d 0f 3c 11 c8 8e 20  66 72 61 63 74 61 6c 25  |...<... fractal%|
00002020  20 ca 0d 0f 46 0a 20 20  c9 20 31 3a 0d 0f 50 0f  | ...F.  . 1:..P.|
00002030  20 20 f2 74 65 73 74 69  63 6f 6e 0d 0f 5a 0a 20  |  .testicon..Z. |
00002040  20 c9 20 32 3a 0d 0f 64  0f 20 20 f2 74 65 73 74  | . 2:..d.  .test|
00002050  66 72 61 63 0d 0f 6e 05  cb 0d 0f 78 45 e7 20 74  |frac..n....xE. t|
00002060  65 73 74 25 3d b9 20 8c  20 f2 73 65 6c 65 63 74  |est%=. . .select|
00002070  69 63 6f 6e 28 6d 61 69  6e 68 61 6e 64 25 2c 35  |icon(mainhand%,5|
00002080  29 20 8b 20 f2 75 6e 73  65 6c 65 63 74 69 63 6f  |) . .unselectico|
00002090  6e 28 6d 61 69 6e 68 61  6e 64 25 2c 35 29 0d 0f  |n(mainhand%,5)..|
000020a0  82 05 e1 0d 0f 8c 05 3a  0d 0f 96 13 dd 20 f2 73  |.......:..... .s|
000020b0  74 61 72 74 66 72 61 63  74 61 6c 0d 0f a0 0b 6d  |tartfractal....m|
000020c0  6f 64 65 25 3d eb 0d 0f  aa 07 ea 20 85 0d 0f b4  |ode%=...... ....|
000020d0  37 ee 20 85 20 ea 20 f6  3a f1 22 20 61 74 20 6c  |7. . . .:." at l|
000020e0  69 6e 65 20 22 3b 9e 3a  e7 a5 3a c8 99 20 22 57  |ine ";.:..:.. "W|
000020f0  69 6d 70 5f 53 65 74 4d  6f 64 65 22 2c 6d 6f 64  |imp_SetMode",mod|
00002100  65 25 3a e1 0d 0f be 08  eb 20 31 32 0d 0f c8 14  |e%:...... 12....|
00002110  fb 20 31 35 2c 26 46 46  2c 26 46 46 2c 26 46 46  |. 15,&FF,&FF,&FF|
00002120  0d 0f d2 29 f2 73 63 61  6c 65 63 28 26 30 30 2c  |...).scalec(&00,|
00002130  26 46 46 2c 26 46 46 2c  26 46 46 2c 26 46 46 2c  |&FF,&FF,&FF,&FF,|
00002140  26 30 30 2c 31 2c 31 34  29 0d 0f dc 08 fb 20 31  |&00,1,14)..... 1|
00002150  35 0d 0f e6 09 fb 20 31  32 38 0d 0f f0 0a e6 20  |5..... 128..... |
00002160  30 2c 31 35 0d 0f fa 09  ec 20 30 2c 30 0d 10 04  |0,15..... 0,0...|
00002170  0c df 20 30 2c 31 30 32  33 0d 10 0e 0f df 20 31  |.. 0,1023..... 1|
00002180  32 37 39 2c 31 30 32 33  0d 10 18 0c df 20 31 32  |279,1023..... 12|
00002190  37 39 2c 30 0d 10 22 09  df 20 30 2c 30 0d 10 2c  |79,0..".. 0,0..,|
000021a0  0b ec 20 32 35 36 2c 30  0d 10 36 0e df 20 32 35  |.. 256,0..6.. 25|
000021b0  36 2c 31 30 32 33 0d 10  40 10 e3 20 63 6c 25 3d  |6,1023..@.. cl%=|
000021c0  31 20 b8 20 31 34 0d 10  4a 09 e6 20 63 6c 25 0d  |1 . 14..J.. cl%.|
000021d0  10 54 16 ec 20 31 31 37  35 2c 31 39 32 2d 28 38  |.T.. 1175,192-(8|
000021e0  2a 63 6c 25 29 0d 10 5e  16 df 20 31 32 32 35 2c  |*cl%)..^.. 1225,|
000021f0  31 39 32 2d 28 38 2a 63  6c 25 29 0d 10 68 16 ec  |192-(8*cl%)..h..|
00002200  20 31 31 37 35 2c 31 38  38 2d 28 38 2a 63 6c 25  | 1175,188-(8*cl%|
00002210  29 0d 10 72 16 df 20 31  32 32 35 2c 31 38 38 2d  |)..r.. 1225,188-|
00002220  28 38 2a 63 6c 25 29 0d  10 7c 09 ed 20 63 6c 25  |(8*cl%)..|.. cl%|
00002230  0d 10 86 1f ef 20 32 34  2c 31 32 37 39 2d 31 30  |..... 24,1279-10|
00002240  32 33 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 0d  |23;0;1279;1023;.|
00002250  10 90 12 ef 20 32 38 2c  31 2c 33 30 2c 31 34 2c  |.... 28,1,30,14,|
00002260  31 0d 10 9a 09 ec 20 30  2c 30 0d 10 a4 0c df 20  |1..... 0,0..... |
00002270  30 2c 31 30 32 33 0d 10  ae 11 ef 20 32 39 2c 37  |0,1023..... 29,7|
00002280  36 38 3b 35 31 32 3b 0d  10 b8 11 c8 8e 20 66 72  |68;512;...... fr|
00002290  61 63 74 61 6c 25 20 ca  0d 10 c2 08 c9 20 31 3a  |actal% ...... 1:|
000022a0  0d 10 cc 0b 20 20 f2 69  63 6f 6e 0d 10 d6 08 c9  |....  .icon.....|
000022b0  20 32 3a 0d 10 e0 0b 20  20 f2 66 72 61 63 0d 10  | 2:....  .frac..|
000022c0  ea 05 cb 0d 10 f4 3e c8  99 20 22 4f 53 5f 53 70  |......>.. "OS_Sp|
000022d0  72 69 74 65 4f 70 22 2c  26 31 31 30 2c 73 61 72  |riteOp",&110,sar|
000022e0  65 61 25 2c 22 66 72 61  63 74 61 6c 22 2c 31 2c  |ea%,"fractal",1,|
000022f0  2d 35 31 32 2c 2d 35 31  32 2c 35 31 32 2c 35 31  |-512,-512,512,51|
00002300  32 0d 10 fe 1b c8 99 20  22 57 69 6d 70 5f 53 65  |2...... "Wimp_Se|
00002310  74 4d 6f 64 65 22 2c 6d  6f 64 65 25 0d 11 08 12  |tMode",mode%....|
00002320  f2 73 70 72 69 74 65 67  72 61 62 62 65 64 0d 11  |.spritegrabbed..|
00002330  12 05 e1 0d 11 1c 05 3a  0d 11 26 26 dd 20 f2 73  |.......:..&&. .s|
00002340  63 61 6c 65 63 28 72 31  2c 67 31 2c 62 31 2c 72  |calec(r1,g1,b1,r|
00002350  32 2c 67 32 2c 62 32 2c  63 31 2c 63 32 29 0d 11  |2,g2,b2,c1,c2)..|
00002360  30 0f 72 64 69 66 66 3d  72 32 2d 72 31 0d 11 3a  |0.rdiff=r2-r1..:|
00002370  0f 67 64 69 66 66 3d 67  32 2d 67 31 0d 11 44 0f  |.gdiff=g2-g1..D.|
00002380  62 64 69 66 66 3d 62 32  2d 62 31 0d 11 4e 0f 63  |bdiff=b2-b1..N.c|
00002390  64 69 66 66 3d 63 32 2d  63 31 0d 11 58 11 fb 20  |diff=c2-c1..X.. |
000023a0  63 31 2c 72 31 2c 67 31  2c 62 31 0d 11 62 15 e3  |c1,r1,g1,b1..b..|
000023b0  20 63 6c 6f 6f 70 3d 31  20 b8 20 63 64 69 66 66  | cloop=1 . cdiff|
000023c0  0d 11 6c 15 63 63 6f 6d  70 3d 63 6c 6f 6f 70 2f  |..l.ccomp=cloop/|
000023d0  63 64 69 66 66 0d 11 76  41 fb 20 63 6c 6f 6f 70  |cdiff..vA. cloop|
000023e0  2b 63 31 2c 72 31 2b 28  72 64 69 66 66 2a 63 63  |+c1,r1+(rdiff*cc|
000023f0  6f 6d 70 29 2c 67 31 2b  28 67 64 69 66 66 2a 63  |omp),g1+(gdiff*c|
00002400  63 6f 6d 70 29 2c 62 31  2b 28 62 64 69 66 66 2a  |comp),b1+(bdiff*|
00002410  63 63 6f 6d 70 29 0d 11  80 0b ed 20 63 6c 6f 6f  |ccomp)..... cloo|
00002420  70 0d 11 8a 05 e1 0d 11  94 05 3a 0d 11 9e 0b dd  |p.........:.....|
00002430  20 f2 69 63 6f 6e 0d 11  a8 15 6c 61 6d 62 64 61  | .icon....lambda|
00002440  3d a4 6e 75 6d 62 65 72  28 31 29 0d 11 b2 14 61  |=.number(1)....a|
00002450  6c 70 68 61 3d a4 6e 75  6d 62 65 72 28 32 29 0d  |lpha=.number(2).|
00002460  11 bc 13 62 65 74 61 3d  a4 6e 75 6d 62 65 72 28  |...beta=.number(|
00002470  33 29 0d 11 c6 14 67 61  6d 6d 61 3d a4 6e 75 6d  |3)....gamma=.num|
00002480  62 65 72 28 34 29 0d 11  d0 14 6f 6d 65 67 61 3d  |ber(4)....omega=|
00002490  a4 6e 75 6d 62 65 72 28  35 29 0d 11 da 10 6e 3d  |.number(5)....n=|
000024a0  a4 6e 75 6d 62 65 72 28  36 29 0d 11 e4 25 73 63  |.number(6)...%sc|
000024b0  61 6c 65 3d bb 28 a4 67  65 74 69 6e 64 64 61 74  |ale=.(.getinddat|
000024c0  61 28 6d 61 69 6e 68 61  6e 64 25 2c 31 29 29 0d  |a(mainhand%,1)).|
000024d0  11 ee 15 f1 22 4c 61 6d  62 64 61 20 3a 22 6c 61  |...."Lambda :"la|
000024e0  6d 62 64 61 0d 11 f8 14  f1 22 41 6c 70 68 61 20  |mbda....."Alpha |
000024f0  20 3a 22 61 6c 70 68 61  0d 12 02 13 f1 22 42 65  | :"alpha....."Be|
00002500  74 61 20 20 20 3a 22 62  65 74 61 0d 12 0c 14 f1  |ta   :"beta.....|
00002510  22 47 61 6d 6d 61 20 20  3a 22 67 61 6d 6d 61 0d  |"Gamma  :"gamma.|
00002520  12 16 14 f1 22 4f 6d 65  67 61 20 20 3a 22 6f 6d  |...."Omega  :"om|
00002530  65 67 61 0d 12 20 10 f1  22 53 79 6d 6d 2e 20 20  |ega.. .."Symm.  |
00002540  3a 22 6e 0d 12 2a 14 f1  27 27 22 50 72 65 73 73  |:"n..*..''"Press|
00002550  20 53 50 41 43 45 22 0d  12 34 10 f1 22 74 6f 20  | SPACE"..4.."to |
00002560  66 69 6e 69 73 68 22 0d  12 3e 0e 69 74 65 72 61  |finish"..>.itera|
00002570  74 65 73 3d 30 0d 12 48  10 78 3d 2e 30 31 3a 79  |tes=0..H.x=.01:y|
00002580  3d 2e 30 30 33 0d 12 52  0f e3 20 54 3d 30 20 b8  |=.003..R.. T=0 .|
00002590  20 32 30 30 0d 12 5c 10  f2 69 74 65 72 61 74 65  | 200..\..iterate|
000025a0  69 63 6f 6e 0d 12 66 11  78 3d 78 6e 65 77 3a 79  |icon..f.x=xnew:y|
000025b0  3d 79 6e 65 77 0d 12 70  07 ed 20 54 0d 12 7a 05  |=ynew..p.. T..z.|
000025c0  f5 0d 12 84 10 f2 69 74  65 72 61 74 65 69 63 6f  |......iterateico|
000025d0  6e 0d 12 8e 11 78 3d 78  6e 65 77 3a 79 3d 79 6e  |n....x=xnew:y=yn|
000025e0  65 77 0d 12 98 17 70 78  3d 78 6e 65 77 2a 28 35  |ew....px=xnew*(5|
000025f0  31 32 2f 73 63 61 6c 65  29 0d 12 a2 17 70 79 3d  |12/scale)....py=|
00002600  79 6e 65 77 2a 28 35 31  32 2f 73 63 61 6c 65 29  |ynew*(512/scale)|
00002610  0d 12 ac 10 63 6f 6c 25  3d b0 70 78 2c 70 79 29  |....col%=.px,py)|
00002620  0d 12 b6 1f e7 20 63 6f  6c 25 3c 31 34 20 8c 20  |..... col%<14 . |
00002630  e6 20 63 6f 6c 25 2b 31  20 8b 20 e6 20 31 34 0d  |. col%+1 . . 14.|
00002640  12 c0 0c c8 92 20 70 78  2c 70 79 0d 12 ca 0d fd  |..... px,py.....|
00002650  20 a6 28 30 29 3d 33 32  0d 12 d4 05 e1 0d 12 de  | .(0)=32........|
00002660  05 3a 0d 12 e8 12 dd 20  f2 69 74 65 72 61 74 65  |.:..... .iterate|
00002670  69 63 6f 6e 0d 12 f2 12  20 7a 7a 62 61 72 3d 78  |icon.... zzbar=x|
00002680  2a 78 2b 79 2a 79 0d 12  fc 15 20 20 7a 72 65 61  |*x+y*y....  zrea|
00002690  6c 3d 78 3a 7a 69 6d 61  67 3d 79 0d 13 06 11 20  |l=x:zimag=y.... |
000026a0  20 e3 20 69 3d 31 20 b8  20 6e 2d 32 0d 13 10 18  | . i=1 . n-2....|
000026b0  20 20 7a 61 3d 7a 72 65  61 6c 2a 78 2d 7a 69 6d  |  za=zreal*x-zim|
000026c0  61 67 2a 79 0d 13 1a 18  20 20 7a 62 3d 7a 69 6d  |ag*y....  zb=zim|
000026d0  61 67 2a 78 2b 7a 72 65  61 6c 2a 79 0d 13 24 17  |ag*x+zreal*y..$.|
000026e0  20 20 7a 72 65 61 6c 3d  7a 61 3a 7a 69 6d 61 67  |  zreal=za:zimag|
000026f0  3d 7a 62 0d 13 2e 09 20  20 ed 20 69 0d 13 38 18  |=zb....  . i..8.|
00002700  20 20 7a 6e 3d 78 2a 7a  72 65 61 6c 2d 79 2a 7a  |  zn=x*zreal-y*z|
00002710  69 6d 61 67 0d 13 42 22  20 20 70 3d 6c 61 6d 62  |imag..B"  p=lamb|
00002720  64 61 2b 61 6c 70 68 61  2a 7a 7a 62 61 72 2b 62  |da+alpha*zzbar+b|
00002730  65 74 61 2a 7a 6e 0d 13  4c 22 20 20 78 6e 65 77  |eta*zn..L"  xnew|
00002740  3d 70 2a 78 2b 67 61 6d  6d 61 2a 7a 72 65 61 6c  |=p*x+gamma*zreal|
00002750  2d 6f 6d 65 67 61 2a 79  0d 13 56 22 20 20 79 6e  |-omega*y..V"  yn|
00002760  65 77 3d 70 2a 79 2d 67  61 6d 6d 61 2a 7a 69 6d  |ew=p*y-gamma*zim|
00002770  61 67 2b 6f 6d 65 67 61  2a 78 0d 13 60 05 e1 0d  |ag+omega*x..`...|
00002780  13 6a 05 3a 0d 13 74 13  dd 20 a4 6e 75 6d 62 65  |.j.:..t.. .numbe|
00002790  72 28 69 63 6f 6e 29 0d  13 7e 25 3d bb 28 a4 67  |r(icon)..~%=.(.g|
000027a0  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
000027b0  64 25 2c 69 63 6f 6e 2b  31 31 29 29 0d 13 88 05  |d%,icon+11))....|
000027c0  3a 0d 13 92 10 dd 20 f2  6e 65 77 77 69 6e 64 6f  |:..... .newwindo|
000027d0  77 0d 13 9c 1f f2 73 65  74 69 6e 64 64 61 74 61  |w.....setinddata|
000027e0  28 6d 61 69 6e 68 61 6e  64 25 2c 37 2c 22 22 29  |(mainhand%,7,"")|
000027f0  0d 13 a6 11 c8 8e 20 66  72 61 63 74 61 6c 25 20  |...... fractal% |
00002800  ca 0d 13 b0 0a 20 20 c9  20 31 3a 0d 13 ba 0f 20  |.....  . 1:.... |
00002810  20 f2 69 63 6f 6e 77 69  6e 64 0d 13 c4 0a 20 20  | .iconwind....  |
00002820  c9 20 32 3a 0d 13 ce 0f  20 20 f2 66 72 61 63 77  |. 2:....  .fracw|
00002830  69 6e 64 0d 13 d8 05 cb  0d 13 e2 05 e1 0d 13 ec  |ind.............|
00002840  05 3a 0d 13 f6 1f dd 20  f2 73 68 61 64 65 69 63  |.:..... .shadeic|
00002850  6f 6e 28 77 68 61 6e 64  25 2c 69 68 61 6e 64 25  |on(whand%,ihand%|
00002860  29 0d 14 00 22 21 62 6c  6f 63 6b 25 3d 77 68 61  |)..."!block%=wha|
00002870  6e 64 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 68 61  |nd%:block%!4=iha|
00002880  6e 64 25 0d 14 0a 22 62  6c 6f 63 6b 25 21 38 3d  |nd%..."block%!8=|
00002890  31 3c 3c 32 32 3a 62 6c  6f 63 6b 25 21 31 32 3d  |1<<22:block%!12=|
000028a0  31 3c 3c 32 32 0d 14 14  22 c8 99 20 22 57 69 6d  |1<<22...".. "Wim|
000028b0  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000028c0  2c 62 6c 6f 63 6b 25 0d  14 1e 05 e1 0d 14 28 05  |,block%.......(.|
000028d0  3a 0d 14 32 21 dd 20 f2  75 6e 73 68 61 64 65 69  |:..2!. .unshadei|
000028e0  63 6f 6e 28 77 68 61 6e  64 25 2c 69 68 61 6e 64  |con(whand%,ihand|
000028f0  25 29 0d 14 3c 22 21 62  6c 6f 63 6b 25 3d 77 68  |%)..<"!block%=wh|
00002900  61 6e 64 25 3a 62 6c 6f  63 6b 25 21 34 3d 69 68  |and%:block%!4=ih|
00002910  61 6e 64 25 0d 14 46 1e  62 6c 6f 63 6b 25 21 38  |and%..F.block%!8|
00002920  3d 30 3a 62 6c 6f 63 6b  25 21 31 32 3d 31 3c 3c  |=0:block%!12=1<<|
00002930  32 32 0d 14 50 22 c8 99  20 22 57 69 6d 70 5f 53  |22..P".. "Wimp_S|
00002940  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00002950  6f 63 6b 25 0d 14 5a 05  e1 0d 14 64 05 3a 0d 14  |ock%..Z....d.:..|
00002960  6e 0f dd 20 f2 69 63 6f  6e 77 69 6e 64 0d 14 78  |n.. .iconwind..x|
00002970  0c f2 75 6e 73 68 61 64  65 0d 14 82 0b 75 73 65  |..unshade....use|
00002980  64 25 3d 36 0d 14 8c 15  73 63 61 6c 65 3d 69 63  |d%=6....scale=ic|
00002990  6f 6e 76 61 72 73 28 30  29 0d 14 96 16 6c 61 6d  |onvars(0)....lam|
000029a0  62 64 61 3d 69 63 6f 6e  76 61 72 73 28 31 29 0d  |bda=iconvars(1).|
000029b0  14 a0 15 61 6c 70 68 61  3d 69 63 6f 6e 76 61 72  |...alpha=iconvar|
000029c0  73 28 32 29 0d 14 aa 14  62 65 74 61 3d 69 63 6f  |s(2)....beta=ico|
000029d0  6e 76 61 72 73 28 33 29  0d 14 b4 15 67 61 6d 6d  |nvars(3)....gamm|
000029e0  61 3d 69 63 6f 6e 76 61  72 73 28 34 29 0d 14 be  |a=iconvars(4)...|
000029f0  15 6f 6d 65 67 61 3d 69  63 6f 6e 76 61 72 73 28  |.omega=iconvars(|
00002a00  35 29 0d 14 c8 11 6e 3d  69 63 6f 6e 76 61 72 73  |5)....n=iconvars|
00002a10  28 36 29 0d 14 d2 2e f2  73 65 74 69 6e 64 64 61  |(6).....setindda|
00002a20  74 61 28 6d 61 69 6e 68  61 6e 64 25 2c 32 2c 22  |ta(mainhand%,2,"|
00002a30  53 79 6d 6d 65 74 72 69  63 20 49 63 6f 6e 73 22  |Symmetric Icons"|
00002a40  29 0d 14 dc 2e f2 73 65  74 69 6e 64 64 61 74 61  |).....setinddata|
00002a50  28 76 61 72 68 61 6e 64  25 2c 32 38 2c 22 53 79  |(varhand%,28,"Sy|
00002a60  6d 6d 65 74 72 69 63 20  49 63 6f 6e 73 22 29 0d  |mmetric Icons").|
00002a70  14 e6 24 f2 73 65 74 69  6e 64 64 61 74 61 28 76  |..$.setinddata(v|
00002a80  61 72 68 61 6e 64 25 2c  33 2c 22 4c 61 6d 62 64  |arhand%,3,"Lambd|
00002a90  61 22 29 0d 14 f0 23 f2  73 65 74 69 6e 64 64 61  |a")...#.setindda|
00002aa0  74 61 28 76 61 72 68 61  6e 64 25 2c 34 2c 22 41  |ta(varhand%,4,"A|
00002ab0  6c 70 68 61 22 29 0d 14  fa 22 f2 73 65 74 69 6e  |lpha")...".setin|
00002ac0  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 35  |ddata(varhand%,5|
00002ad0  2c 22 42 65 74 61 22 29  0d 15 04 23 f2 73 65 74  |,"Beta")...#.set|
00002ae0  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00002af0  2c 36 2c 22 47 61 6d 6d  61 22 29 0d 15 0e 23 f2  |,6,"Gamma")...#.|
00002b00  73 65 74 69 6e 64 64 61  74 61 28 76 61 72 68 61  |setinddata(varha|
00002b10  6e 64 25 2c 37 2c 22 4f  6d 65 67 61 22 29 0d 15  |nd%,7,"Omega")..|
00002b20  18 26 f2 73 65 74 69 6e  64 64 61 74 61 28 76 61  |.&.setinddata(va|
00002b30  72 68 61 6e 64 25 2c 38  2c 22 53 79 6d 6d 65 74  |rhand%,8,"Symmet|
00002b40  72 79 22 29 0d 15 22 1e  f2 73 65 74 69 6e 64 64  |ry").."..setindd|
00002b50  61 74 61 28 76 61 72 68  61 6e 64 25 2c 39 2c 22  |ata(varhand%,9,"|
00002b60  22 29 0d 15 2c 1f f2 73  65 74 69 6e 64 64 61 74  |")..,..setinddat|
00002b70  61 28 76 61 72 68 61 6e  64 25 2c 31 30 2c 22 22  |a(varhand%,10,""|
00002b80  29 0d 15 36 1f f2 73 65  74 69 6e 64 64 61 74 61  |)..6..setinddata|
00002b90  28 76 61 72 68 61 6e 64  25 2c 31 31 2c 22 22 29  |(varhand%,11,"")|
00002ba0  0d 15 40 26 f2 73 65 74  69 6e 64 64 61 74 61 28  |..@&.setinddata(|
00002bb0  76 61 72 68 61 6e 64 25  2c 31 32 2c c3 28 6c 61  |varhand%,12,.(la|
00002bc0  6d 62 64 61 29 29 0d 15  4a 25 f2 73 65 74 69 6e  |mbda))..J%.setin|
00002bd0  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 31  |ddata(varhand%,1|
00002be0  33 2c c3 28 61 6c 70 68  61 29 29 0d 15 54 24 f2  |3,.(alpha))..T$.|
00002bf0  73 65 74 69 6e 64 64 61  74 61 28 76 61 72 68 61  |setinddata(varha|
00002c00  6e 64 25 2c 31 34 2c c3  28 62 65 74 61 29 29 0d  |nd%,14,.(beta)).|
00002c10  15 5e 25 f2 73 65 74 69  6e 64 64 61 74 61 28 76  |.^%.setinddata(v|
00002c20  61 72 68 61 6e 64 25 2c  31 35 2c c3 28 67 61 6d  |arhand%,15,.(gam|
00002c30  6d 61 29 29 0d 15 68 25  f2 73 65 74 69 6e 64 64  |ma))..h%.setindd|
00002c40  61 74 61 28 76 61 72 68  61 6e 64 25 2c 31 36 2c  |ata(varhand%,16,|
00002c50  c3 28 6f 6d 65 67 61 29  29 0d 15 72 21 f2 73 65  |.(omega))..r!.se|
00002c60  74 69 6e 64 64 61 74 61  28 76 61 72 68 61 6e 64  |tinddata(varhand|
00002c70  25 2c 31 37 2c c3 28 6e  29 29 0d 15 7c 1f f2 73  |%,17,.(n))..|..s|
00002c80  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00002c90  64 25 2c 31 38 2c 22 22  29 0d 15 86 1f f2 73 65  |d%,18,"").....se|
00002ca0  74 69 6e 64 64 61 74 61  28 76 61 72 68 61 6e 64  |tinddata(varhand|
00002cb0  25 2c 31 39 2c 22 22 29  0d 15 90 1f f2 73 65 74  |%,19,"").....set|
00002cc0  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00002cd0  2c 32 30 2c 22 22 29 0d  15 9a 25 f2 73 65 74 69  |,20,"")...%.seti|
00002ce0  6e 64 64 61 74 61 28 6d  61 69 6e 68 61 6e 64 25  |nddata(mainhand%|
00002cf0  2c 31 2c c3 28 73 63 61  6c 65 29 29 0d 15 a4 1f  |,1,.(scale))....|
00002d00  f2 73 65 74 69 6e 64 64  61 74 61 28 76 61 72 68  |.setinddata(varh|
00002d10  61 6e 64 25 2c 32 31 2c  22 22 29 0d 15 ae 1f f2  |and%,21,"").....|
00002d20  73 65 74 69 6e 64 64 61  74 61 28 76 61 72 68 61  |setinddata(varha|
00002d30  6e 64 25 2c 32 32 2c 22  22 29 0d 15 b8 1f f2 73  |nd%,22,"").....s|
00002d40  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00002d50  64 25 2c 32 33 2c 22 22  29 0d 15 c2 05 3a 0d 15  |d%,23,"")....:..|
00002d60  cc 0f e3 20 69 25 3d 39  20 b8 20 31 31 0d 15 d6  |... i%=9 . 11...|
00002d70  1b f2 73 68 61 64 65 69  63 6f 6e 28 76 61 72 68  |..shadeicon(varh|
00002d80  61 6e 64 25 2c 69 25 29  0d 15 e0 08 ed 20 69 25  |and%,i%)..... i%|
00002d90  0d 15 ea 10 e3 20 69 25  3d 31 38 20 b8 20 32 36  |..... i%=18 . 26|
00002da0  0d 15 f4 1b f2 73 68 61  64 65 69 63 6f 6e 28 76  |.....shadeicon(v|
00002db0  61 72 68 61 6e 64 25 2c  69 25 29 0d 15 fe 08 ed  |arhand%,i%).....|
00002dc0  20 69 25 0d 16 08 05 e1  0d 16 12 05 3a 0d 16 1c  | i%.........:...|
00002dd0  0e dd 20 f2 75 6e 73 68  61 64 65 0d 16 26 0f e3  |.. .unshade..&..|
00002de0  20 69 25 3d 33 20 b8 20  32 36 0d 16 30 1d f2 75  | i%=3 . 26..0..u|
00002df0  6e 73 68 61 64 65 69 63  6f 6e 28 76 61 72 68 61  |nshadeicon(varha|
00002e00  6e 64 25 2c 69 25 29 0d  16 3a 08 ed 20 69 25 0d  |nd%,i%)..:.. i%.|
00002e10  16 44 05 e1 0d 16 4e 05  3a 0d 16 58 0f dd 20 f2  |.D....N.:..X.. .|
00002e20  74 65 73 74 69 63 6f 6e  0d 16 62 07 ea 20 85 0d  |testicon..b.. ..|
00002e30  16 6c 2e ee 20 85 20 ea  20 74 65 73 74 25 3d a3  |.l.. . . test%=.|
00002e40  3a f2 75 6e 73 65 6c 65  63 74 69 63 6f 6e 28 6d  |:.unselecticon(m|
00002e50  61 69 6e 68 61 6e 64 25  2c 35 29 3a e1 0d 16 76  |ainhand%,5):...v|
00002e60  15 6c 61 6d 62 64 61 3d  a4 6e 75 6d 62 65 72 28  |.lambda=.number(|
00002e70  31 29 0d 16 80 14 61 6c  70 68 61 3d a4 6e 75 6d  |1)....alpha=.num|
00002e80  62 65 72 28 32 29 0d 16  8a 13 62 65 74 61 3d a4  |ber(2)....beta=.|
00002e90  6e 75 6d 62 65 72 28 33  29 0d 16 94 14 67 61 6d  |number(3)....gam|
00002ea0  6d 61 3d a4 6e 75 6d 62  65 72 28 34 29 0d 16 9e  |ma=.number(4)...|
00002eb0  14 6f 6d 65 67 61 3d a4  6e 75 6d 62 65 72 28 35  |.omega=.number(5|
00002ec0  29 0d 16 a8 10 6e 3d a4  6e 75 6d 62 65 72 28 36  |)....n=.number(6|
00002ed0  29 0d 16 b2 0a 78 6d 61  78 3d 30 0d 16 bc 10 78  |)....xmax=0....x|
00002ee0  3d 2e 30 31 3a 79 3d 2e  30 30 33 0d 16 c6 0f e3  |=.01:y=.003.....|
00002ef0  20 54 3d 30 20 b8 20 32  30 30 0d 16 d0 10 f2 69  | T=0 . 200.....i|
00002f00  74 65 72 61 74 65 69 63  6f 6e 0d 16 da 11 78 3d  |terateicon....x=|
00002f10  78 6e 65 77 3a 79 3d 79  6e 65 77 0d 16 e4 1b e7  |xnew:y=ynew.....|
00002f20  20 94 28 78 29 3e 78 6d  61 78 20 8c 20 78 6d 61  | .(x)>xmax . xma|
00002f30  78 3d 94 28 78 29 0d 16  ee 1b e7 20 94 28 79 29  |x=.(x)..... .(y)|
00002f40  3e 78 6d 61 78 20 8c 20  78 6d 61 78 3d 94 28 79  |>xmax . xmax=.(y|
00002f50  29 0d 16 f8 07 ed 20 54  0d 17 02 1c 73 63 3d 28  |)..... T....sc=(|
00002f60  a8 28 28 78 6d 61 78 2a  31 2e 33 29 2a 31 30 29  |.((xmax*1.3)*10)|
00002f70  29 2f 31 30 0d 17 0c 22  f2 73 65 74 69 6e 64 64  |)/10...".setindd|
00002f80  61 74 61 28 6d 61 69 6e  68 61 6e 64 25 2c 31 2c  |ata(mainhand%,1,|
00002f90  c3 28 73 63 29 29 0d 17  16 0b 74 65 73 74 25 3d  |.(sc))....test%=|
00002fa0  b9 0d 17 20 1c f2 73 65  6c 65 63 74 69 63 6f 6e  |... ..selecticon|
00002fb0  28 6d 61 69 6e 68 61 6e  64 25 2c 35 29 0d 17 2a  |(mainhand%,5)..*|
00002fc0  05 e1 0d 17 34 05 3a 0d  17 3e 14 dd 20 f2 73 70  |....4.:..>.. .sp|
00002fd0  72 69 74 65 67 72 61 62  62 65 64 0d 17 48 10 61  |ritegrabbed..H.a|
00002fe0  25 3d 6d 6d 65 6e 75 25  2b 33 38 0d 17 52 17 3f  |%=mmenu%+38..R.?|
00002ff0  61 25 3d 3f 61 25 20 80  20 25 31 30 31 31 31 31  |a%=?a% . %101111|
00003000  31 31 0d 17 5c 13 61 25  3d 6d 6d 65 6e 75 25 2b  |11..\.a%=mmenu%+|
00003010  33 38 2b 32 34 0d 17 66  17 3f 61 25 3d 3f 61 25  |38+24..f.?a%=?a%|
00003020  20 80 20 25 31 30 31 31  31 31 31 31 0d 17 70 1c  | . %10111111..p.|
00003030  f2 73 65 6c 65 63 74 69  63 6f 6e 28 6d 61 69 6e  |.selecticon(main|
00003040  68 61 6e 64 25 2c 36 29  0d 17 7a 05 e1 0d 17 84  |hand%,6)..z.....|
00003050  05 3a 0d 17 8e 10 dd 20  f2 73 61 76 65 63 6c 69  |.:..... .savecli|
00003060  63 6b 0d 17 98 14 62 75  74 74 6f 6e 25 3d 62 6c  |ck....button%=bl|
00003070  6f 63 6b 25 21 38 0d 17  a2 13 69 63 6f 6e 25 3d  |ock%!8....icon%=|
00003080  62 6c 6f 63 6b 25 21 31  36 0d 17 ac 28 e7 20 62  |block%!16...(. b|
00003090  75 74 74 6f 6e 25 3d 34  20 80 20 69 63 6f 6e 25  |utton%=4 . icon%|
000030a0  3d 31 20 8c 20 f2 71 75  69 63 6b 73 61 76 65 3a  |=1 . .quicksave:|
000030b0  e1 0d 17 b6 2f e7 20 62  75 74 74 6f 6e 25 3d 36  |..../. button%=6|
000030c0  34 20 80 20 69 63 6f 6e  25 3d 32 20 8c 20 73 61  |4 . icon%=2 . sa|
000030d0  76 69 6e 67 25 3d 31 3a  f2 64 72 61 67 62 6f 78  |ving%=1:.dragbox|
000030e0  0d 17 c0 05 e1 0d 17 ca  05 3a 0d 17 d4 10 dd 20  |.........:..... |
000030f0  f2 73 76 61 72 63 6c 69  63 6b 0d 17 de 14 62 75  |.svarclick....bu|
00003100  74 74 6f 6e 25 3d 62 6c  6f 63 6b 25 21 38 0d 17  |tton%=block%!8..|
00003110  e8 13 69 63 6f 6e 25 3d  62 6c 6f 63 6b 25 21 31  |..icon%=block%!1|
00003120  36 0d 17 f2 29 e7 20 62  75 74 74 6f 6e 25 3d 34  |6...). button%=4|
00003130  20 80 20 69 63 6f 6e 25  3d 31 20 8c 20 f2 71 75  | . icon%=1 . .qu|
00003140  69 63 6b 64 73 61 76 65  3a e1 0d 17 fc 2f e7 20  |ickdsave:..../. |
00003150  62 75 74 74 6f 6e 25 3d  36 34 20 80 20 69 63 6f  |button%=64 . ico|
00003160  6e 25 3d 32 20 8c 20 73  61 76 69 6e 67 25 3d 32  |n%=2 . saving%=2|
00003170  3a f2 64 72 61 67 62 6f  78 0d 18 06 05 e1 0d 18  |:.dragbox.......|
00003180  10 05 3a 0d 18 1a 10 dd  20 f2 73 74 61 72 74 73  |..:..... .starts|
00003190  61 76 65 0d 18 24 07 ea  20 85 0d 18 2e 44 ee 20  |ave..$.. ....D. |
000031a0  85 20 ea 20 f2 72 65 70  6f 72 74 28 22 45 72 72  |. . .report("Err|
000031b0  6f 72 20 69 6e 20 50 52  4f 43 73 74 61 72 74 73  |or in PROCstarts|
000031c0  61 76 65 20 3a 20 22 2b  f6 24 2b 22 20 61 74 20  |ave : "+.$+" at |
000031d0  6c 69 6e 65 20 22 2b c3  9e 2c 31 29 3a e1 0d 18  |line "+..,1):...|
000031e0  38 11 73 61 76 65 73 73  74 61 67 65 25 3d 32 0d  |8.savesstage%=2.|
000031f0  18 39 19 c8 99 20 22 44  72 61 67 41 53 70 72 69  |.9... "DragASpri|
00003200  74 65 5f 53 74 6f 70 22  0d 18 42 24 c8 99 20 22  |te_Stop"..B$.. "|
00003210  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00003220  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 0d 18 4c 2b  |nfo",,block%..L+|
00003230  62 6c 6f 63 6b 25 21 32  30 3d 62 6c 6f 63 6b 25  |block%!20=block%|
00003240  21 31 32 3a 62 6c 6f 63  6b 25 21 32 34 3d 62 6c  |!12:block%!24=bl|
00003250  6f 63 6b 25 21 31 36 0d  18 56 28 62 6c 6f 63 6b  |ock%!16..V(block|
00003260  25 21 32 38 3d 21 62 6c  6f 63 6b 25 3a 62 6c 6f  |%!28=!block%:blo|
00003270  63 6b 25 21 33 32 3d 62  6c 6f 63 6b 25 21 34 0d  |ck%!32=block%!4.|
00003280  18 60 1a 21 62 6c 6f 63  6b 25 3d 36 34 3a 62 6c  |.`.!block%=64:bl|
00003290  6f 63 6b 25 21 31 32 3d  30 0d 18 6a 0f 62 6c 6f  |ock%!12=0..j.blo|
000032a0  63 6b 25 21 31 36 3d 31  0d 18 74 10 c8 8e 20 73  |ck%!16=1..t... s|
000032b0  61 76 69 6e 67 25 20 ca  0d 18 7e 08 c9 20 31 3a  |aving% ...~.. 1:|
000032c0  0d 18 88 19 20 20 62 6c  6f 63 6b 25 21 33 36 3d  |....  block%!36=|
000032d0  28 36 35 2a 31 30 32 34  29 0d 18 92 14 20 20 62  |(65*1024)....  b|
000032e0  6c 6f 63 6b 25 21 34 30  3d 26 46 46 39 0d 18 9c  |lock%!40=&FF9...|
000032f0  28 20 20 24 28 62 6c 6f  63 6b 25 2b 34 34 29 3d  |(  $(block%+44)=|
00003300  a4 67 65 74 6c 65 61 66  28 24 73 61 76 65 73 74  |.getleaf($savest|
00003310  65 78 74 25 29 0d 18 a6  08 c9 20 32 3a 0d 18 b0  |ext%)..... 2:...|
00003320  14 20 20 62 6c 6f 63 6b  25 21 33 36 3d 32 35 30  |.  block%!36=250|
00003330  30 0d 18 ba 14 20 20 62  6c 6f 63 6b 25 21 34 30  |0....  block%!40|
00003340  3d 26 30 35 30 0d 18 c4  27 20 20 24 28 62 6c 6f  |=&050...'  $(blo|
00003350  63 6b 25 2b 34 34 29 3d  a4 67 65 74 6c 65 61 66  |ck%+44)=.getleaf|
00003360  28 24 73 76 61 72 74 65  78 74 25 29 0d 18 ce 05  |($svartext%)....|
00003370  cb 0d 18 d8 37 c8 99 20  22 57 69 6d 70 5f 53 65  |....7.. "Wimp_Se|
00003380  6e 64 4d 65 73 73 61 67  65 22 2c 31 38 2c 62 6c  |ndMessage",18,bl|
00003390  6f 63 6b 25 2c 62 6c 6f  63 6b 25 21 32 30 2c 62  |ock%,block%!20,b|
000033a0  6c 6f 63 6b 25 21 32 34  0d 18 e2 05 e1 0d 18 ec  |lock%!24........|
000033b0  05 3a 0d 18 f6 12 dd 20  a4 67 65 74 6c 65 61 66  |.:..... .getleaf|
000033c0  28 61 24 29 0d 19 00 0f  c8 95 20 a7 61 24 2c 22  |(a$)...... .a$,"|
000033d0  2e 22 29 0d 19 0a 16 61  24 3d c1 61 24 2c a7 61  |.")....a$=.a$,.a|
000033e0  24 2c 22 2e 22 29 2b 31  29 0d 19 14 05 ce 0d 19  |$,".")+1).......|
000033f0  1e 0a 3d 61 24 2b bd 30  0d 19 28 05 3a 0d 19 32  |..=a$+.0..(.:..2|
00003400  0e dd 20 f2 64 72 61 67  62 6f 78 0d 19 3c 07 ea  |.. .dragbox..<..|
00003410  20 85 0d 19 46 42 ee 20  85 20 ea 20 f2 72 65 70  | ...FB. . . .rep|
00003420  6f 72 74 28 22 45 72 72  6f 72 20 69 6e 20 50 52  |ort("Error in PR|
00003430  4f 43 64 72 61 67 62 6f  78 20 3a 20 22 2b f6 24  |OCdragbox : "+.$|
00003440  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 2c  |+" at line "+..,|
00003450  31 29 3a e1 0d 19 50 10  73 61 76 65 73 73 74 61  |1):...P.savessta|
00003460  67 65 3d 31 0d 19 5a 10  c8 8e 20 73 61 76 69 6e  |ge=1..Z... savin|
00003470  67 25 20 ca 0d 19 64 08  c9 20 31 3a 0d 19 6e 18  |g% ...d.. 1:..n.|
00003480  20 20 21 62 6c 6f 63 6b  25 3d 73 61 76 65 73 68  |  !block%=savesh|
00003490  61 6e 64 25 0d 19 6f 15  20 20 73 70 72 24 3d 22  |and%..o.  spr$="|
000034a0  66 69 6c 65 5f 66 66 39  22 0d 19 78 08 c9 20 32  |file_ff9"..x.. 2|
000034b0  3a 0d 19 82 17 20 20 21  62 6c 6f 63 6b 25 3d 73  |:....  !block%=s|
000034c0  76 61 72 68 61 6e 64 25  0d 19 83 15 20 20 73 70  |varhand%....  sp|
000034d0  72 24 3d 22 66 69 6c 65  5f 30 35 30 22 0d 19 8c  |r$="file_050"...|
000034e0  05 cb 0d 19 96 24 c8 99  20 22 57 69 6d 70 5f 47  |.....$.. "Wimp_G|
000034f0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00003500  62 6c 6f 63 6b 25 0d 19  a0 1a 6f 78 25 3d 62 6c  |block%....ox%=bl|
00003510  6f 63 6b 25 21 34 2d 62  6c 6f 63 6b 25 21 32 30  |ock%!4-block%!20|
00003520  0d 19 aa 1b 6f 79 25 3d  62 6c 6f 63 6b 25 21 31  |....oy%=block%!1|
00003530  36 2d 62 6c 6f 63 6b 25  21 32 34 0d 19 b4 0e 62  |6-block%!24....b|
00003540  6c 6f 63 6b 25 21 34 3d  32 0d 19 be 22 c8 99 20  |lock%!4=2...".. |
00003550  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00003560  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 19 c8 0e 62  |te",,block%....b|
00003570  6c 6f 63 6b 25 21 34 3d  35 0d 19 d2 19 62 6c 6f  |lock%!4=5....blo|
00003580  63 6b 25 21 38 3d 6f 78  25 2b 62 6c 6f 63 6b 25  |ck%!8=ox%+block%|
00003590  21 38 0d 19 dc 1b 62 6c  6f 63 6b 25 21 31 32 3d  |!8....block%!12=|
000035a0  6f 79 25 2b 62 6c 6f 63  6b 25 21 31 32 0d 19 e6  |oy%+block%!12...|
000035b0  1b 62 6c 6f 63 6b 25 21  31 36 3d 6f 78 25 2b 62  |.block%!16=ox%+b|
000035c0  6c 6f 63 6b 25 21 31 36  0d 19 f0 1b 62 6c 6f 63  |lock%!16....bloc|
000035d0  6b 25 21 32 30 3d 6f 79  25 2b 62 6c 6f 63 6b 25  |k%!20=oy%+block%|
000035e0  21 32 30 0d 19 fa 0f 62  6c 6f 63 6b 25 21 32 34  |!20....block%!24|
000035f0  3d 30 0d 1a 04 0f 62 6c  6f 63 6b 25 21 32 38 3d  |=0....block%!28=|
00003600  30 0d 1a 0e 17 62 6c 6f  63 6b 25 21 33 32 3d 26  |0....block%!32=&|
00003610  37 46 46 46 46 46 46 46  0d 1a 18 17 62 6c 6f 63  |7FFFFFFF....bloc|
00003620  6b 25 21 33 36 3d 26 37  46 46 46 46 46 46 46 0d  |k%!36=&7FFFFFFF.|
00003630  1a 22 14 e7 20 73 6f 6c  69 64 64 72 61 67 25 3d  |.".. soliddrag%=|
00003640  a3 20 8c 0d 1a 2c 1d c8  99 20 22 57 69 6d 70 5f  |. ...,... "Wimp_|
00003650  44 72 61 67 42 6f 78 22  2c 2c 62 6c 6f 63 6b 25  |DragBox",,block%|
00003660  0d 1a 36 05 cc 0d 1a 4a  3e c8 99 20 22 44 72 61  |..6....J>.. "Dra|
00003670  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 2c  |gASprite_Start",|
00003680  25 31 31 30 30 30 31 30  31 2c 31 2c 73 70 72 24  |%11000101,1,spr$|
00003690  2c 62 6c 6f 63 6b 25 2b  38 2c 62 6c 6f 63 6b 25  |,block%+8,block%|
000036a0  2b 32 34 0d 1a 4b 05 cd  0d 1a 54 05 e1 0d 1a 5e  |+24..K....T....^|
000036b0  05 3a 0d 1a 68 0f dd 20  f2 64 61 74 61 73 61 76  |.:..h.. .datasav|
000036c0  65 0d 1a 72 07 ea 20 85  0d 1a 7c 43 ee 20 85 20  |e..r.. ...|C. . |
000036d0  ea 20 f2 72 65 70 6f 72  74 28 22 45 72 72 6f 72  |. .report("Error|
000036e0  20 69 6e 20 50 52 4f 43  64 61 74 61 73 61 76 65  | in PROCdatasave|
000036f0  20 3a 20 22 2b f6 24 2b  22 20 61 74 20 6c 69 6e  | : "+.$+" at lin|
00003700  65 20 22 2b c3 9e 2c 31  29 3a e1 0d 1a 86 11 73  |e "+..,1):.....s|
00003710  61 76 65 73 73 74 61 67  65 25 3d 33 0d 1a 90 10  |avesstage%=3....|
00003720  c8 8e 20 73 61 76 69 6e  67 25 20 ca 0d 1a 9a 08  |.. saving% .....|
00003730  c9 20 31 3a 0d 1a a4 24  20 20 24 73 61 76 65 73  |. 1:...$  $saves|
00003740  74 65 78 74 25 3d a4 73  74 72 69 6e 67 28 62 6c  |text%=.string(bl|
00003750  6f 63 6b 25 2b 34 34 29  0d 1a ae 0d 20 20 f2 73  |ock%+44)....  .s|
00003760  61 76 65 69 74 0d 1a b8  08 c9 20 32 3a 0d 1a c2  |aveit..... 2:...|
00003770  23 20 20 24 73 76 61 72  74 65 78 74 25 3d a4 73  |#  $svartext%=.s|
00003780  74 72 69 6e 67 28 62 6c  6f 63 6b 25 2b 34 34 29  |tring(block%+44)|
00003790  0d 1a cc 14 20 20 f2 70  75 73 68 62 6c 6f 63 6b  |....  .pushblock|
000037a0  28 36 30 29 0d 1a d6 0e  20 20 f2 73 61 76 65 64  |(60)....  .saved|
000037b0  61 74 0d 1a e0 14 20 20  f2 70 75 6c 6c 62 6c 6f  |at....  .pullblo|
000037c0  63 6b 28 36 30 29 0d 1a  ea 05 cb 0d 1a f4 16 62  |ck(60).........b|
000037d0  6c 6f 63 6b 25 21 31 32  3d 62 6c 6f 63 6b 25 21  |lock%!12=block%!|
000037e0  38 0d 1a fe 0f 62 6c 6f  63 6b 25 21 31 36 3d 33  |8....block%!16=3|
000037f0  0d 1b 08 0f 21 62 6c 6f  63 6b 25 3d 32 35 36 0d  |....!block%=256.|
00003800  1b 12 37 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |..7.. "Wimp_Send|
00003810  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6f 63  |Message",18,bloc|
00003820  6b 25 2c 62 6c 6f 63 6b  25 21 32 30 2c 62 6c 6f  |k%,block%!20,blo|
00003830  63 6b 25 21 32 34 0d 1b  1c 05 e1 0d 1b 26 05 3a  |ck%!24.......&.:|
00003840  0d 1b 30 13 dd 20 a4 73  74 72 69 6e 67 28 70 74  |..0.. .string(pt|
00003850  72 25 29 0d 1b 3a 08 ea  20 61 24 0d 1b 44 0f c8  |r%)..:.. a$..D..|
00003860  95 20 3f 70 74 72 25 3c  3e 30 0d 1b 4e 18 61 24  |. ?ptr%<>0..N.a$|
00003870  2b 3d bd 28 3f 70 74 72  25 29 3a 70 74 72 25 2b  |+=.(?ptr%):ptr%+|
00003880  3d 31 0d 1b 58 05 ce 0d  1b 62 07 3d 61 24 0d 1b  |=1..X....b.=a$..|
00003890  6c 05 3a 0d 1b 76 0d dd  20 f2 73 61 76 65 69 74  |l.:..v.. .saveit|
000038a0  0d 1b 80 2c c8 99 20 22  4f 53 5f 53 70 72 69 74  |...,.. "OS_Sprit|
000038b0  65 4f 70 22 2c 26 31 30  43 2c 73 61 72 65 61 25  |eOp",&10C,sarea%|
000038c0  2c 24 73 61 76 65 73 74  65 78 74 25 0d 1b 8a 05  |,$savestext%....|
000038d0  e1 0d 1b 94 05 3a 0d 1b  9e 10 dd 20 f2 71 75 69  |.....:..... .qui|
000038e0  63 6b 73 61 76 65 0d 1b  a8 11 73 61 76 65 73 73  |cksave....savess|
000038f0  74 61 67 65 25 3d 35 0d  1b b2 19 e7 20 a7 24 73  |tage%=5..... .$s|
00003900  61 76 65 73 74 65 78 74  25 2c 22 2e 22 29 20 8c  |avestext%,".") .|
00003910  0d 1b bc 0b f2 73 61 76  65 69 74 0d 1b c6 05 cc  |.....saveit.....|
00003920  0d 1b d0 34 f2 72 65 70  6f 72 74 28 22 54 6f 20  |...4.report("To |
00003930  73 61 76 65 2c 20 64 72  61 67 20 74 6f 20 61 20  |save, drag to a |
00003940  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
00003950  22 2c 31 29 0d 1b da 05  cd 0d 1b e4 11 73 61 76  |",1).........sav|
00003960  65 73 73 74 61 67 65 25  3d 30 0d 1b ee 05 e1 0d  |esstage%=0......|
00003970  1b f8 05 3a 0d 1c 02 11  dd 20 f2 71 75 69 63 6b  |...:..... .quick|
00003980  64 73 61 76 65 0d 1c 0c  11 73 61 76 65 73 73 74  |dsave....savesst|
00003990  61 67 65 25 3d 35 0d 1c  16 18 e7 20 a7 24 73 76  |age%=5..... .$sv|
000039a0  61 72 74 65 78 74 25 2c  22 2e 22 29 20 8c 0d 1c  |artext%,".") ...|
000039b0  20 0c f2 73 61 76 65 64  61 74 0d 1c 2a 05 cc 0d  | ..savedat..*...|
000039c0  1c 34 34 f2 72 65 70 6f  72 74 28 22 54 6f 20 73  |.44.report("To s|
000039d0  61 76 65 2c 20 64 72 61  67 20 74 6f 20 61 20 64  |ave, drag to a d|
000039e0  69 72 65 63 74 6f 72 79  20 76 69 65 77 65 72 22  |irectory viewer"|
000039f0  2c 31 29 0d 1c 3e 05 cd  0d 1c 48 11 73 61 76 65  |,1)..>....H.save|
00003a00  73 73 74 61 67 65 25 3d  30 0d 1c 52 05 e1 0d 1c  |sstage%=0..R....|
00003a10  5c 05 3a 0d 1c 66 0f dd  20 f2 73 61 76 65 76 61  |\.:..f.. .saveva|
00003a20  72 73 0d 1c 70 11 c8 8e  20 66 72 61 63 74 61 6c  |rs..p... fractal|
00003a30  25 20 ca 0d 1c 7a 08 c9  20 31 3a 0d 1c 84 0f 20  |% ...z.. 1:.... |
00003a40  20 f2 73 61 76 65 69 63  6f 6e 0d 1c 8e 08 c9 20  | .saveicon..... |
00003a50  32 3a 0d 1c 98 0f 20 20  f2 73 61 76 65 66 72 61  |2:....  .savefra|
00003a60  63 0d 1c a2 05 cb 0d 1c  ac 05 e1 0d 1c b6 05 3a  |c..............:|
00003a70  0d 1c c0 0f dd 20 f2 73  61 76 65 69 63 6f 6e 0d  |..... .saveicon.|
00003a80  1c ca 2b 69 63 6f 6e 76  61 72 73 28 30 29 3d bb  |..+iconvars(0)=.|
00003a90  28 a4 67 65 74 69 6e 64  64 61 74 61 28 6d 61 69  |(.getinddata(mai|
00003aa0  6e 68 61 6e 64 25 2c 31  29 29 0d 1c d4 2b 69 63  |nhand%,1))...+ic|
00003ab0  6f 6e 76 61 72 73 28 31  29 3d bb 28 a4 67 65 74  |onvars(1)=.(.get|
00003ac0  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00003ad0  2c 31 32 29 29 0d 1c de  2b 69 63 6f 6e 76 61 72  |,12))...+iconvar|
00003ae0  73 28 32 29 3d bb 28 a4  67 65 74 69 6e 64 64 61  |s(2)=.(.getindda|
00003af0  74 61 28 76 61 72 68 61  6e 64 25 2c 31 33 29 29  |ta(varhand%,13))|
00003b00  0d 1c e8 2b 69 63 6f 6e  76 61 72 73 28 33 29 3d  |...+iconvars(3)=|
00003b10  bb 28 a4 67 65 74 69 6e  64 64 61 74 61 28 76 61  |.(.getinddata(va|
00003b20  72 68 61 6e 64 25 2c 31  34 29 29 0d 1c f2 2b 69  |rhand%,14))...+i|
00003b30  63 6f 6e 76 61 72 73 28  34 29 3d bb 28 a4 67 65  |convars(4)=.(.ge|
00003b40  74 69 6e 64 64 61 74 61  28 76 61 72 68 61 6e 64  |tinddata(varhand|
00003b50  25 2c 31 35 29 29 0d 1c  fc 2b 69 63 6f 6e 76 61  |%,15))...+iconva|
00003b60  72 73 28 35 29 3d bb 28  a4 67 65 74 69 6e 64 64  |rs(5)=.(.getindd|
00003b70  61 74 61 28 76 61 72 68  61 6e 64 25 2c 31 36 29  |ata(varhand%,16)|
00003b80  29 0d 1d 06 2b 69 63 6f  6e 76 61 72 73 28 36 29  |)...+iconvars(6)|
00003b90  3d bb 28 a4 67 65 74 69  6e 64 64 61 74 61 28 76  |=.(.getinddata(v|
00003ba0  61 72 68 61 6e 64 25 2c  31 37 29 29 0d 1d 10 05  |arhand%,17))....|
00003bb0  e1 0d 1d 1a 05 3a 0d 1d  24 0f dd 20 f2 66 72 61  |.....:..$.. .fra|
00003bc0  63 77 69 6e 64 0d 1d 2e  0c f2 75 6e 73 68 61 64  |cwind.....unshad|
00003bd0  65 0d 1d 38 0b 75 73 65  64 25 3d 37 0d 1d 42 15  |e..8.used%=7..B.|
00003be0  73 63 61 6c 65 3d 66 72  61 63 76 61 72 73 28 30  |scale=fracvars(0|
00003bf0  29 0d 1d 4c 13 41 31 31  3d 66 72 61 63 76 61 72  |)..L.A11=fracvar|
00003c00  73 28 31 29 0d 1d 56 13  41 31 32 3d 66 72 61 63  |s(1)..V.A12=frac|
00003c10  76 61 72 73 28 32 29 0d  1d 60 13 41 32 31 3d 66  |vars(2)..`.A21=f|
00003c20  72 61 63 76 61 72 73 28  33 29 0d 1d 6a 13 41 32  |racvars(3)..j.A2|
00003c30  32 3d 66 72 61 63 76 61  72 73 28 34 29 0d 1d 74  |2=fracvars(4)..t|
00003c40  12 42 31 3d 66 72 61 63  76 61 72 73 28 35 29 0d  |.B1=fracvars(5).|
00003c50  1d 7e 12 42 32 3d 66 72  61 63 76 61 72 73 28 36  |.~.B2=fracvars(6|
00003c60  29 0d 1d 88 11 6e 3d 66  72 61 63 76 61 72 73 28  |)....n=fracvars(|
00003c70  37 29 0d 1d 92 31 f2 73  65 74 69 6e 64 64 61 74  |7)...1.setinddat|
00003c80  61 28 6d 61 69 6e 68 61  6e 64 25 2c 32 2c 22 53  |a(mainhand%,2,"S|
00003c90  79 6d 6d 65 74 72 69 63  20 46 72 61 63 74 61 6c  |ymmetric Fractal|
00003ca0  73 22 29 0d 1d 9c 31 f2  73 65 74 69 6e 64 64 61  |s")...1.setindda|
00003cb0  74 61 28 76 61 72 68 61  6e 64 25 2c 32 38 2c 22  |ta(varhand%,28,"|
00003cc0  53 79 6d 6d 65 74 72 69  63 20 46 72 61 63 74 61  |Symmetric Fracta|
00003cd0  6c 73 22 29 0d 1d a6 21  f2 73 65 74 69 6e 64 64  |ls")...!.setindd|
00003ce0  61 74 61 28 76 61 72 68  61 6e 64 25 2c 33 2c 22  |ata(varhand%,3,"|
00003cf0  61 31 31 22 29 0d 1d b0  21 f2 73 65 74 69 6e 64  |a11")...!.setind|
00003d00  64 61 74 61 28 76 61 72  68 61 6e 64 25 2c 34 2c  |data(varhand%,4,|
00003d10  22 61 31 32 22 29 0d 1d  ba 21 f2 73 65 74 69 6e  |"a12")...!.setin|
00003d20  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 35  |ddata(varhand%,5|
00003d30  2c 22 61 32 31 22 29 0d  1d c4 21 f2 73 65 74 69  |,"a21")...!.seti|
00003d40  6e 64 64 61 74 61 28 76  61 72 68 61 6e 64 25 2c  |nddata(varhand%,|
00003d50  36 2c 22 61 32 32 22 29  0d 1d ce 20 f2 73 65 74  |6,"a22")... .set|
00003d60  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00003d70  2c 37 2c 22 62 31 22 29  0d 1d d8 20 f2 73 65 74  |,7,"b1")... .set|
00003d80  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00003d90  2c 38 2c 22 62 32 22 29  0d 1d e2 26 f2 73 65 74  |,8,"b2")...&.set|
00003da0  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00003db0  2c 39 2c 22 53 79 6d 6d  65 74 72 79 22 29 0d 1d  |,9,"Symmetry")..|
00003dc0  ec 1f f2 73 65 74 69 6e  64 64 61 74 61 28 76 61  |...setinddata(va|
00003dd0  72 68 61 6e 64 25 2c 31  30 2c 22 22 29 0d 1d f6  |rhand%,10,"")...|
00003de0  1f f2 73 65 74 69 6e 64  64 61 74 61 28 76 61 72  |..setinddata(var|
00003df0  68 61 6e 64 25 2c 31 31  2c 22 22 29 0d 1e 00 23  |hand%,11,"")...#|
00003e00  f2 73 65 74 69 6e 64 64  61 74 61 28 76 61 72 68  |.setinddata(varh|
00003e10  61 6e 64 25 2c 31 32 2c  c3 28 41 31 31 29 29 0d  |and%,12,.(A11)).|
00003e20  1e 0a 23 f2 73 65 74 69  6e 64 64 61 74 61 28 76  |..#.setinddata(v|
00003e30  61 72 68 61 6e 64 25 2c  31 33 2c c3 28 41 31 32  |arhand%,13,.(A12|
00003e40  29 29 0d 1e 14 23 f2 73  65 74 69 6e 64 64 61 74  |))...#.setinddat|
00003e50  61 28 76 61 72 68 61 6e  64 25 2c 31 34 2c c3 28  |a(varhand%,14,.(|
00003e60  41 32 31 29 29 0d 1e 1e  23 f2 73 65 74 69 6e 64  |A21))...#.setind|
00003e70  64 61 74 61 28 76 61 72  68 61 6e 64 25 2c 31 35  |data(varhand%,15|
00003e80  2c c3 28 41 32 32 29 29  0d 1e 28 22 f2 73 65 74  |,.(A22))..(".set|
00003e90  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00003ea0  2c 31 36 2c c3 28 42 31  29 29 0d 1e 32 22 f2 73  |,16,.(B1))..2".s|
00003eb0  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00003ec0  64 25 2c 31 37 2c c3 28  42 32 29 29 0d 1e 3c 21  |d%,17,.(B2))..<!|
00003ed0  f2 73 65 74 69 6e 64 64  61 74 61 28 76 61 72 68  |.setinddata(varh|
00003ee0  61 6e 64 25 2c 31 38 2c  c3 28 6e 29 29 0d 1e 46  |and%,18,.(n))..F|
00003ef0  1f f2 73 65 74 69 6e 64  64 61 74 61 28 76 61 72  |..setinddata(var|
00003f00  68 61 6e 64 25 2c 31 39  2c 22 22 29 0d 1e 50 1f  |hand%,19,"")..P.|
00003f10  f2 73 65 74 69 6e 64 64  61 74 61 28 76 61 72 68  |.setinddata(varh|
00003f20  61 6e 64 25 2c 32 30 2c  22 22 29 0d 1e 5a 25 f2  |and%,20,"")..Z%.|
00003f30  73 65 74 69 6e 64 64 61  74 61 28 6d 61 69 6e 68  |setinddata(mainh|
00003f40  61 6e 64 25 2c 31 2c c3  28 73 63 61 6c 65 29 29  |and%,1,.(scale))|
00003f50  0d 1e 64 2b f2 73 65 74  69 6e 64 64 61 74 61 28  |..d+.setinddata(|
00003f60  76 61 72 68 61 6e 64 25  2c 32 31 2c 22 5a 6e 20  |varhand%,21,"Zn |
00003f70  73 79 6d 6d 65 74 72 79  3f 22 29 0d 1e 6e 1f f2  |symmetry?")..n..|
00003f80  73 65 74 69 6e 64 64 61  74 61 28 76 61 72 68 61  |setinddata(varha|
00003f90  6e 64 25 2c 32 32 2c 22  22 29 0d 1e 78 1f f2 73  |nd%,22,"")..x..s|
00003fa0  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00003fb0  64 25 2c 32 33 2c 22 22  29 0d 1e 82 05 3a 0d 1e  |d%,23,"")....:..|
00003fc0  8c 1b f2 73 68 61 64 65  69 63 6f 6e 28 76 61 72  |...shadeicon(var|
00003fd0  68 61 6e 64 25 2c 31 30  29 0d 1e 96 1b f2 73 68  |hand%,10).....sh|
00003fe0  61 64 65 69 63 6f 6e 28  76 61 72 68 61 6e 64 25  |adeicon(varhand%|
00003ff0  2c 31 31 29 0d 1e a0 1b  f2 73 68 61 64 65 69 63  |,11).....shadeic|
00004000  6f 6e 28 76 61 72 68 61  6e 64 25 2c 31 39 29 0d  |on(varhand%,19).|
00004010  1e aa 1b f2 73 68 61 64  65 69 63 6f 6e 28 76 61  |....shadeicon(va|
00004020  72 68 61 6e 64 25 2c 32  30 29 0d 1e b4 1b f2 73  |rhand%,20).....s|
00004030  68 61 64 65 69 63 6f 6e  28 76 61 72 68 61 6e 64  |hadeicon(varhand|
00004040  25 2c 32 32 29 0d 1e be  1b f2 73 68 61 64 65 69  |%,22).....shadei|
00004050  63 6f 6e 28 76 61 72 68  61 6e 64 25 2c 32 33 29  |con(varhand%,23)|
00004060  0d 1e c8 1b f2 73 68 61  64 65 69 63 6f 6e 28 76  |.....shadeicon(v|
00004070  61 72 68 61 6e 64 25 2c  32 35 29 0d 1e d2 1b f2  |arhand%,25).....|
00004080  73 68 61 64 65 69 63 6f  6e 28 76 61 72 68 61 6e  |shadeicon(varhan|
00004090  64 25 2c 32 36 29 0d 1e  dc 05 3a 0d 1e e6 27 e7  |d%,26)....:...'.|
000040a0  20 63 6f 6e 6a 3d b9 20  8c 20 f2 73 65 6c 65 63  | conj=. . .selec|
000040b0  74 69 63 6f 6e 28 76 61  72 68 61 6e 64 25 2c 32  |ticon(varhand%,2|
000040c0  34 29 0d 1e f0 05 e1 0d  1e fa 05 3a 0d 1f 04 1e  |4).........:....|
000040d0  dd 20 a4 73 65 6c 65 63  74 65 64 28 77 68 61 6e  |. .selected(whan|
000040e0  64 25 2c 69 68 61 6e 64  25 29 0d 1f 0e 12 21 62  |d%,ihand%)....!b|
000040f0  6c 6f 63 6b 25 3d 77 68  61 6e 64 25 0d 1f 18 13  |lock%=whand%....|
00004100  62 6c 6f 63 6b 25 21 34  3d 69 68 61 6e 64 25 0d  |block%!4=ihand%.|
00004110  1f 22 22 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |."".. "Wimp_GetI|
00004120  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
00004130  25 0d 1f 2c 26 3d 28 62  6c 6f 63 6b 25 3f 32 36  |%..,&=(block%?26|
00004140  20 80 20 25 30 30 31 30  30 30 30 30 29 3d 25 30  | . %00100000)=%0|
00004150  30 31 30 30 30 30 30 0d  1f 36 05 3a 0d 1f 40 0f  |0100000..6.:..@.|
00004160  dd 20 f2 73 61 76 65 66  72 61 63 0d 1f 4a 2b 66  |. .savefrac..J+f|
00004170  72 61 63 76 61 72 73 28  30 29 3d bb 28 a4 67 65  |racvars(0)=.(.ge|
00004180  74 69 6e 64 64 61 74 61  28 6d 61 69 6e 68 61 6e  |tinddata(mainhan|
00004190  64 25 2c 31 29 29 0d 1f  54 2c 66 72 61 63 76 61  |d%,1))..T,fracva|
000041a0  72 73 28 31 29 3d bb 28  a4 67 65 74 69 6e 64 64  |rs(1)=.(.getindd|
000041b0  61 74 61 28 6d 61 69 6e  68 61 6e 64 25 2c 31 32  |ata(mainhand%,12|
000041c0  29 29 0d 1f 5e 2c 66 72  61 63 76 61 72 73 28 32  |))..^,fracvars(2|
000041d0  29 3d bb 28 a4 67 65 74  69 6e 64 64 61 74 61 28  |)=.(.getinddata(|
000041e0  6d 61 69 6e 68 61 6e 64  25 2c 31 33 29 29 0d 1f  |mainhand%,13))..|
000041f0  68 2c 66 72 61 63 76 61  72 73 28 33 29 3d bb 28  |h,fracvars(3)=.(|
00004200  a4 67 65 74 69 6e 64 64  61 74 61 28 6d 61 69 6e  |.getinddata(main|
00004210  68 61 6e 64 25 2c 31 34  29 29 0d 1f 72 2c 66 72  |hand%,14))..r,fr|
00004220  61 63 76 61 72 73 28 34  29 3d bb 28 a4 67 65 74  |acvars(4)=.(.get|
00004230  69 6e 64 64 61 74 61 28  6d 61 69 6e 68 61 6e 64  |inddata(mainhand|
00004240  25 2c 31 35 29 29 0d 1f  7c 2c 66 72 61 63 76 61  |%,15))..|,fracva|
00004250  72 73 28 35 29 3d bb 28  a4 67 65 74 69 6e 64 64  |rs(5)=.(.getindd|
00004260  61 74 61 28 6d 61 69 6e  68 61 6e 64 25 2c 31 36  |ata(mainhand%,16|
00004270  29 29 0d 1f 86 2c 66 72  61 63 76 61 72 73 28 36  |))...,fracvars(6|
00004280  29 3d bb 28 a4 67 65 74  69 6e 64 64 61 74 61 28  |)=.(.getinddata(|
00004290  6d 61 69 6e 68 61 6e 64  25 2c 31 37 29 29 0d 1f  |mainhand%,17))..|
000042a0  90 2c 66 72 61 63 76 61  72 73 28 37 29 3d bb 28  |.,fracvars(7)=.(|
000042b0  a4 67 65 74 69 6e 64 64  61 74 61 28 6d 61 69 6e  |.getinddata(main|
000042c0  68 61 6e 64 25 2c 31 38  29 29 0d 1f 9a 1f 63 6f  |hand%,18))....co|
000042d0  6e 6a 3d a4 73 65 6c 65  63 74 65 64 28 76 61 72  |nj=.selected(var|
000042e0  68 61 6e 64 25 2c 32 34  29 0d 1f a4 05 e1 0d 1f  |hand%,24).......|
000042f0  ae 05 3a 0d 1f b8 0b dd  20 f2 66 72 61 63 0d 1f  |..:..... .frac..|
00004300  c2 1f 63 6f 6e 6a 3d a4  73 65 6c 65 63 74 65 64  |..conj=.selected|
00004310  28 76 61 72 68 61 6e 64  25 2c 32 34 29 0d 1f cc  |(varhand%,24)...|
00004320  12 41 31 31 3d a4 6e 75  6d 62 65 72 28 31 29 0d  |.A11=.number(1).|
00004330  1f d6 12 41 31 32 3d a4  6e 75 6d 62 65 72 28 32  |...A12=.number(2|
00004340  29 0d 1f e0 12 41 32 31  3d a4 6e 75 6d 62 65 72  |)....A21=.number|
00004350  28 33 29 0d 1f ea 12 41  32 32 3d a4 6e 75 6d 62  |(3)....A22=.numb|
00004360  65 72 28 34 29 0d 1f f4  11 42 31 3d a4 6e 75 6d  |er(4)....B1=.num|
00004370  62 65 72 28 35 29 0d 1f  fe 11 42 32 3d a4 6e 75  |ber(5)....B2=.nu|
00004380  6d 62 65 72 28 36 29 0d  20 08 10 6e 3d a4 6e 75  |mber(6). ..n=.nu|
00004390  6d 62 65 72 28 37 29 0d  20 12 25 73 63 61 6c 65  |mber(7). .%scale|
000043a0  3d bb 28 a4 67 65 74 69  6e 64 64 61 74 61 28 6d  |=.(.getinddata(m|
000043b0  61 69 6e 68 61 6e 64 25  2c 31 29 29 0d 20 1c 10  |ainhand%,1)). ..|
000043c0  f1 22 61 31 31 20 20 3a  22 41 31 31 0d 20 26 10  |."a11  :"A11. &.|
000043d0  f1 22 61 31 32 20 20 3a  22 41 31 32 0d 20 30 10  |."a12  :"A12. 0.|
000043e0  f1 22 61 32 31 20 20 3a  22 41 32 31 0d 20 3a 10  |."a21  :"A21. :.|
000043f0  f1 22 61 32 32 20 20 3a  22 41 32 32 0d 20 44 0f  |."a22  :"A22. D.|
00004400  f1 22 62 31 20 20 20 3a  22 42 31 0d 20 4e 0f f1  |."b1   :"B1. N..|
00004410  22 62 32 20 20 20 3a 22  42 32 0d 20 58 0e f1 22  |"b2   :"B2. X.."|
00004420  53 79 6d 6d 2e 3a 22 6e  0d 20 62 29 41 31 3d 41  |Symm.:"n. b)A1=A|
00004430  31 31 2a 41 31 31 2b 41  32 31 2a 41 32 31 3a 41  |11*A11+A21*A21:A|
00004440  32 3d 41 32 31 2a 41 32  31 2b 41 32 32 2a 41 32  |2=A21*A21+A22*A2|
00004450  32 0d 20 6c 31 e7 20 41  31 3e 31 20 84 20 41 32  |2. l1. A1>1 . A2|
00004460  3e 31 20 84 20 41 31 2b  41 32 3e 31 2b 28 41 31  |>1 . A1+A2>1+(A1|
00004470  31 2a 41 32 32 2d 41 31  32 2a 41 32 31 29 5e 32  |1*A22-A12*A21)^2|
00004480  20 8c 0d 20 76 19 f1 27  22 4e 6f 74 22 27 22 63  | .. v..'"Not"'"c|
00004490  6f 6e 74 72 61 63 74 69  6f 6e 22 0d 20 80 05 cd  |ontraction". ...|
000044a0  0d 20 8a 14 f1 27 27 22  50 72 65 73 73 20 53 50  |. ...''"Press SP|
000044b0  41 43 45 22 0d 20 94 10  f1 22 74 6f 20 66 69 6e  |ACE". ..."to fin|
000044c0  69 73 68 22 0d 20 9e 09  f2 74 72 69 67 0d 20 a8  |ish". ...trig. .|
000044d0  0e 69 74 65 72 61 74 65  73 3d 30 0d 20 b2 0f 78  |.iterates=0. ..x|
000044e0  3d 2e 31 3a 79 3d 2d 2e  30 31 0d 20 bc 0f e3 20  |=.1:y=-.01. ... |
000044f0  54 3d 30 20 b8 20 32 30  30 0d 20 c6 10 f2 69 74  |T=0 . 200. ...it|
00004500  65 72 61 74 65 66 72 61  63 0d 20 d0 11 78 3d 78  |eratefrac. ..x=x|
00004510  6e 65 77 3a 79 3d 79 6e  65 77 0d 20 da 07 ed 20  |new:y=ynew. ... |
00004520  54 0d 20 e4 05 f5 0d 20  ee 10 f2 69 74 65 72 61  |T. .... ...itera|
00004530  74 65 66 72 61 63 0d 20  f8 11 78 3d 78 6e 65 77  |tefrac. ..x=xnew|
00004540  3a 79 3d 79 6e 65 77 0d  21 02 17 70 78 3d 78 6e  |:y=ynew.!..px=xn|
00004550  65 77 2a 28 35 31 32 2f  73 63 61 6c 65 29 0d 21  |ew*(512/scale).!|
00004560  0c 17 70 79 3d 79 6e 65  77 2a 28 35 31 32 2f 73  |..py=ynew*(512/s|
00004570  63 61 6c 65 29 0d 21 16  10 63 6f 6c 25 3d b0 70  |cale).!..col%=.p|
00004580  78 2c 70 79 29 0d 21 20  1f e7 20 63 6f 6c 25 3c  |x,py).! .. col%<|
00004590  31 34 20 8c 20 e6 20 63  6f 6c 25 2b 31 20 8b 20  |14 . . col%+1 . |
000045a0  e6 20 31 34 0d 21 2a 0c  c8 92 20 70 78 2c 70 79  |. 14.!*... px,py|
000045b0  0d 21 34 0d fd 20 a6 28  30 29 3d 33 32 0d 21 3e  |.!4.. .(0)=32.!>|
000045c0  05 e1 0d 21 48 05 3a 0d  21 52 12 dd 20 f2 69 74  |...!H.:.!R.. .it|
000045d0  65 72 61 74 65 66 72 61  63 0d 21 5c 17 78 6e 65  |eratefrac.!\.xne|
000045e0  77 3d 41 31 31 2a 78 2b  41 31 32 2a 79 2b 42 31  |w=A11*x+A12*y+B1|
000045f0  0d 21 66 17 79 6e 65 77  3d 41 32 31 2a 78 2b 41  |.!f.ynew=A21*x+A|
00004600  32 32 2a 79 2b 42 32 0d  21 70 0c 6d 3d b3 28 6e  |22*y+B2.!p.m=.(n|
00004610  29 2d 31 0d 21 7a 13 78  31 3d 78 6e 65 77 3a 79  |)-1.!z.x1=xnew:y|
00004620  31 3d 79 6e 65 77 0d 21  84 18 78 6e 65 77 3d 63  |1=ynew.!..xnew=c|
00004630  28 6d 29 2a 78 31 2d 73  28 6d 29 2a 79 31 0d 21  |(m)*x1-s(m)*y1.!|
00004640  8e 18 79 6e 65 77 3d 73  28 6d 29 2a 78 31 2b 63  |..ynew=s(m)*x1+c|
00004650  28 6d 29 2a 79 31 0d 21  98 0e e7 20 63 6f 6e 6a  |(m)*y1.!... conj|
00004660  3d b9 20 8c 0d 21 a2 0a  6d 3d b3 28 32 29 0d 21  |=. ..!..m=.(2).!|
00004670  ac 16 e7 20 6d 3d 31 20  8c 20 79 6e 65 77 3d 2d  |... m=1 . ynew=-|
00004680  79 6e 65 77 0d 21 b6 05  cd 0d 21 c0 05 e1 0d 21  |ynew.!....!....!|
00004690  ca 05 3a 0d 21 d4 0b dd  20 f2 74 72 69 67 0d 21  |..:.!... .trig.!|
000046a0  de 12 e7 20 6e 3e 32 30  30 20 8c 20 ef 37 3a e1  |... n>200 . .7:.|
000046b0  0d 21 e8 0f e3 20 69 3d  30 20 b8 20 6e 2d 31 0d  |.!... i=0 . n-1.|
000046c0  21 f2 13 63 28 69 29 3d  9b 28 32 2a af 2a 69 2f  |!..c(i)=.(2*.*i/|
000046d0  6e 29 0d 21 fc 13 73 28  69 29 3d b5 28 32 2a af  |n).!..s(i)=.(2*.|
000046e0  2a 69 2f 6e 29 0d 22 06  07 ed 20 69 0d 22 10 05  |*i/n)."... i."..|
000046f0  e1 0d 22 1a 05 3a 0d 22  24 0f dd 20 f2 74 65 73  |.."..:."$.. .tes|
00004700  74 66 72 61 63 0d 22 2e  07 ea 20 85 0d 22 38 2e  |tfrac."... .."8.|
00004710  ee 20 85 20 ea 20 74 65  73 74 25 3d a3 3a f2 75  |. . . test%=.:.u|
00004720  6e 73 65 6c 65 63 74 69  63 6f 6e 28 6d 61 69 6e  |nselecticon(main|
00004730  68 61 6e 64 25 2c 35 29  3a e1 0d 22 42 1f f2 73  |hand%,5):.."B..s|
00004740  65 74 69 6e 64 64 61 74  61 28 6d 61 69 6e 68 61  |etinddata(mainha|
00004750  6e 64 25 2c 37 2c 22 22  29 0d 22 4c 1f 63 6f 6e  |nd%,7,"")."L.con|
00004760  6a 3d a4 73 65 6c 65 63  74 65 64 28 76 61 72 68  |j=.selected(varh|
00004770  61 6e 64 25 2c 32 34 29  0d 22 56 12 41 31 31 3d  |and%,24)."V.A11=|
00004780  a4 6e 75 6d 62 65 72 28  31 29 0d 22 60 12 41 31  |.number(1)."`.A1|
00004790  32 3d a4 6e 75 6d 62 65  72 28 32 29 0d 22 6a 12  |2=.number(2)."j.|
000047a0  41 32 31 3d a4 6e 75 6d  62 65 72 28 33 29 0d 22  |A21=.number(3)."|
000047b0  74 12 41 32 32 3d a4 6e  75 6d 62 65 72 28 34 29  |t.A22=.number(4)|
000047c0  0d 22 7e 11 42 31 3d a4  6e 75 6d 62 65 72 28 35  |."~.B1=.number(5|
000047d0  29 0d 22 88 11 42 32 3d  a4 6e 75 6d 62 65 72 28  |)."..B2=.number(|
000047e0  36 29 0d 22 92 10 6e 3d  a4 6e 75 6d 62 65 72 28  |6)."..n=.number(|
000047f0  37 29 0d 22 9c 09 f2 74  72 69 67 0d 22 a6 29 41  |7)."...trig.".)A|
00004800  31 3d 41 31 31 2a 41 31  31 2b 41 32 31 2a 41 32  |1=A11*A11+A21*A2|
00004810  31 3a 41 32 3d 41 32 31  2a 41 32 31 2b 41 32 32  |1:A2=A21*A21+A22|
00004820  2a 41 32 32 0d 22 b0 31  e7 20 41 31 3e 31 20 84  |*A22.".1. A1>1 .|
00004830  20 41 32 3e 31 20 84 20  41 31 2b 41 32 3e 31 2b  | A2>1 . A1+A2>1+|
00004840  28 41 31 31 2a 41 32 32  2d 41 31 32 2a 41 32 31  |(A11*A22-A12*A21|
00004850  29 5e 32 20 8c 0d 22 ba  2e f2 73 65 74 69 6e 64  |)^2 .."...setind|
00004860  64 61 74 61 28 6d 61 69  6e 68 61 6e 64 25 2c 37  |data(mainhand%,7|
00004870  2c 22 4e 6f 74 20 63 6f  6e 74 72 61 63 74 69 6f  |,"Not contractio|
00004880  6e 22 29 0d 22 c4 05 cc  0d 22 ce 2e f2 73 65 74  |n")."...."...set|
00004890  69 6e 64 64 61 74 61 28  6d 61 69 6e 68 61 6e 64  |inddata(mainhand|
000048a0  25 2c 37 2c 22 20 20 20  20 20 20 20 20 20 20 20  |%,7,"           |
000048b0  20 20 20 20 22 29 0d 22  d8 05 cd 0d 22 e2 0a 78  |    ")."...."..x|
000048c0  6d 61 78 3d 30 0d 22 ec  10 78 3d 2e 30 31 3a 79  |max=0."..x=.01:y|
000048d0  3d 2e 30 30 33 0d 22 f6  0f e3 20 54 3d 30 20 b8  |=.003."... T=0 .|
000048e0  20 32 30 30 0d 23 00 10  f2 69 74 65 72 61 74 65  | 200.#...iterate|
000048f0  66 72 61 63 0d 23 0a 11  78 3d 78 6e 65 77 3a 79  |frac.#..x=xnew:y|
00004900  3d 79 6e 65 77 0d 23 14  1b e7 20 94 28 78 29 3e  |=ynew.#... .(x)>|
00004910  78 6d 61 78 20 8c 20 78  6d 61 78 3d 94 28 78 29  |xmax . xmax=.(x)|
00004920  0d 23 1e 1b e7 20 94 28  79 29 3e 78 6d 61 78 20  |.#... .(y)>xmax |
00004930  8c 20 78 6d 61 78 3d 94  28 79 29 0d 23 28 07 ed  |. xmax=.(y).#(..|
00004940  20 54 0d 23 32 1c 73 63  3d 28 a8 28 28 78 6d 61  | T.#2.sc=(.((xma|
00004950  78 2a 31 2e 33 29 2a 31  30 29 29 2f 31 30 0d 23  |x*1.3)*10))/10.#|
00004960  3c 22 f2 73 65 74 69 6e  64 64 61 74 61 28 6d 61  |<".setinddata(ma|
00004970  69 6e 68 61 6e 64 25 2c  31 2c c3 28 73 63 29 29  |inhand%,1,.(sc))|
00004980  0d 23 46 24 74 65 73 74  25 3d b9 3a f2 73 65 6c  |.#F$test%=.:.sel|
00004990  65 63 74 69 63 6f 6e 28  6d 61 69 6e 68 61 6e 64  |ecticon(mainhand|
000049a0  25 2c 35 29 0d 23 50 05  e1 0d 23 5a 05 3a 0d 23  |%,5).#P...#Z.:.#|
000049b0  64 1a dd 20 a4 74 69 63  6b 65 64 28 6d 65 6e 75  |d.. .ticked(menu|
000049c0  25 2c 69 74 65 6d 25 29  0d 23 6e 18 61 25 3d 6d  |%,item%).#n.a%=m|
000049d0  65 6e 75 25 2b 32 38 2b  69 74 65 6d 25 2a 32 34  |enu%+28+item%*24|
000049e0  0d 23 78 10 3d 28 3f 61  25 20 80 20 31 29 3d 31  |.#x.=(?a% . 1)=1|
000049f0  0d 23 82 05 3a 0d 23 8c  18 dd 20 f2 74 69 63 6b  |.#..:.#... .tick|
00004a00  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 23 96  |(menu%,item%).#.|
00004a10  18 61 25 3d 6d 65 6e 75  25 2b 32 38 2b 69 74 65  |.a%=menu%+28+ite|
00004a20  6d 25 2a 32 34 0d 23 a0  11 3f 61 25 3d 28 3f 61  |m%*24.#..?a%=(?a|
00004a30  25 20 84 20 31 29 0d 23  aa 05 e1 0d 23 b4 05 3a  |% . 1).#....#..:|
00004a40  0d 23 be 1a dd 20 f2 75  6e 74 69 63 6b 28 6d 65  |.#... .untick(me|
00004a50  6e 75 25 2c 69 74 65 6d  25 29 0d 23 c8 18 61 25  |nu%,item%).#..a%|
00004a60  3d 6d 65 6e 75 25 2b 32  38 2b 69 74 65 6d 25 2a  |=menu%+28+item%*|
00004a70  32 34 0d 23 d2 13 3f 61  25 3d 28 3f 61 25 20 80  |24.#..?a%=(?a% .|
00004a80  20 32 35 34 29 0d 23 dc  05 e1 0d 23 e6 05 3a 0d  | 254).#....#..:.|
00004a90  23 f0 11 dd 20 f2 74 6f  67 67 6c 65 73 77 69 6e  |#... .toggleswin|
00004aa0  0d 23 fa 19 6f 6e 25 3d  a4 74 69 63 6b 65 64 28  |.#..on%=.ticked(|
00004ab0  6d 6d 65 6e 75 25 2c 30  29 0d 24 04 19 73 6d 25  |mmenu%,0).$..sm%|
00004ac0  3d a4 74 69 63 6b 65 64  28 73 6d 65 6e 75 25 2c  |=.ticked(smenu%,|
00004ad0  31 29 0d 24 0e 2f e7 20  73 6d 25 20 8c 20 77 68  |1).$./. sm% . wh|
00004ae0  61 6e 64 25 3d 73 73 70  72 68 61 6e 64 25 20 8b  |and%=ssprhand% .|
00004af0  20 77 68 61 6e 64 25 3d  62 73 70 72 68 61 6e 64  | whand%=bsprhand|
00004b00  25 0d 24 18 12 21 62 6c  6f 63 6b 25 3d 77 68 61  |%.$..!block%=wha|
00004b10  6e 64 25 0d 24 22 24 c8  99 20 22 57 69 6d 70 5f  |nd%.$"$.. "Wimp_|
00004b20  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00004b30  2c 62 6c 6f 63 6b 25 0d  24 2c 0b e7 20 6f 6e 25  |,block%.$,.. on%|
00004b40  20 8c 0d 24 36 21 c8 99  20 22 57 69 6d 70 5f 43  | ..$6!.. "Wimp_C|
00004b50  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00004b60  63 6b 25 0d 24 40 15 f2  75 6e 74 69 63 6b 28 6d  |ck%.$@..untick(m|
00004b70  6d 65 6e 75 25 2c 30 29  0d 24 4a 05 cc 0d 24 54  |menu%,0).$J...$T|
00004b80  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00004b90  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 24 5e  |ndow",,block%.$^|
00004ba0  13 f2 74 69 63 6b 28 6d  6d 65 6e 75 25 2c 30 29  |..tick(mmenu%,0)|
00004bb0  0d 24 68 05 cd 0d 24 72  05 e1 0d 24 7c 05 3a 0d  |.$h...$r...$|.:.|
00004bc0  24 86 0e dd 20 f2 6d 61  6b 65 62 69 67 0d 24 90  |$... .makebig.$.|
00004bd0  1b e7 20 a4 74 69 63 6b  65 64 28 73 6d 65 6e 75  |.. .ticked(smenu|
00004be0  25 2c 30 29 20 8c 20 e1  0d 24 9a 25 f2 74 69 63  |%,0) . ..$.%.tic|
00004bf0  6b 28 73 6d 65 6e 75 25  2c 30 29 3a f2 75 6e 74  |k(smenu%,0):.unt|
00004c00  69 63 6b 28 73 6d 65 6e  75 25 2c 31 29 0d 24 a4  |ick(smenu%,1).$.|
00004c10  19 e7 20 a4 74 69 63 6b  65 64 28 6d 6d 65 6e 75  |.. .ticked(mmenu|
00004c20  25 2c 30 29 20 8c 0d 24  ae 15 21 62 6c 6f 63 6b  |%,0) ..$..!block|
00004c30  25 3d 73 73 70 72 68 61  6e 64 25 0d 24 b8 21 c8  |%=ssprhand%.$.!.|
00004c40  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00004c50  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 24 c2 15  |dow",,block%.$..|
00004c60  21 62 6c 6f 63 6b 25 3d  62 73 70 72 68 61 6e 64  |!block%=bsprhand|
00004c70  25 0d 24 cc 24 c8 99 20  22 57 69 6d 70 5f 47 65  |%.$.$.. "Wimp_Ge|
00004c80  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00004c90  6c 6f 63 6b 25 0d 24 d6  20 c8 99 20 22 57 69 6d  |lock%.$. .. "Wim|
00004ca0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00004cb0  6c 6f 63 6b 25 0d 24 e0  05 cd 0d 24 ea 05 e1 0d  |lock%.$....$....|
00004cc0  24 f4 05 3a 0d 24 fe 10  dd 20 f2 6d 61 6b 65 73  |$..:.$... .makes|
00004cd0  6d 61 6c 6c 0d 25 08 1b  e7 20 a4 74 69 63 6b 65  |mall.%... .ticke|
00004ce0  64 28 73 6d 65 6e 75 25  2c 31 29 20 8c 20 e1 0d  |d(smenu%,1) . ..|
00004cf0  25 12 25 f2 74 69 63 6b  28 73 6d 65 6e 75 25 2c  |%.%.tick(smenu%,|
00004d00  31 29 3a f2 75 6e 74 69  63 6b 28 73 6d 65 6e 75  |1):.untick(smenu|
00004d10  25 2c 30 29 0d 25 1c 19  e7 20 a4 74 69 63 6b 65  |%,0).%... .ticke|
00004d20  64 28 6d 6d 65 6e 75 25  2c 30 29 20 8c 0d 25 26  |d(mmenu%,0) ..%&|
00004d30  15 21 62 6c 6f 63 6b 25  3d 62 73 70 72 68 61 6e  |.!block%=bsprhan|
00004d40  64 25 0d 25 30 21 c8 99  20 22 57 69 6d 70 5f 43  |d%.%0!.. "Wimp_C|
00004d50  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
00004d60  63 6b 25 0d 25 3a 15 21  62 6c 6f 63 6b 25 3d 73  |ck%.%:.!block%=s|
00004d70  73 70 72 68 61 6e 64 25  0d 25 44 24 c8 99 20 22  |sprhand%.%D$.. "|
00004d80  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00004d90  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 25 4e 20  |ate",,block%.%N |
00004da0  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00004db0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 25 58 05  |dow",,block%.%X.|
00004dc0  cd 0d 25 62 05 e1 0d 25  6c 05 3a 0d 25 76 0e dd  |..%b...%l.:.%v..|
00004dd0  20 f2 73 61 76 65 64 61  74 0d 25 80 07 ea 20 85  | .savedat.%... .|
00004de0  0d 25 8a 47 ee 20 85 20  ea 20 f2 72 65 70 6f 72  |.%.G. . . .repor|
00004df0  74 28 22 45 72 72 6f 72  20 69 6e 20 50 52 4f 43  |t("Error in PROC|
00004e00  73 61 76 65 64 61 74 20  3a 20 22 2b f6 24 2b 22  |savedat : "+.$+"|
00004e10  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 2c 31 29  | at line "+..,1)|
00004e20  3a d9 23 58 25 3a e1 0d  25 94 14 66 69 6c 65 24  |:.#X%:..%..file$|
00004e30  3d 24 73 76 61 72 74 65  78 74 25 0d 25 9e 0f 58  |=$svartext%.%..X|
00004e40  25 3d ae 28 66 69 6c 65  24 29 0d 25 a8 11 f1 23  |%=.(file$).%...#|
00004e50  58 25 2c 66 72 61 63 74  61 6c 25 0d 25 b2 11 c8  |X%,fractal%.%...|
00004e60  8e 20 66 72 61 63 74 61  6c 25 20 ca 0d 25 bc 08  |. fractal% ..%..|
00004e70  c9 20 31 3a 0d 25 c6 12  20 20 f2 73 61 76 65 69  |. 1:.%..  .savei|
00004e80  63 6f 6e 64 61 74 0d 25  d0 08 c9 20 32 3a 0d 25  |condat.%... 2:.%|
00004e90  da 12 20 20 f2 73 61 76  65 66 72 61 63 64 61 74  |..  .savefracdat|
00004ea0  0d 25 e4 05 cb 0d 25 ee  08 d9 23 58 25 0d 25 f8  |.%....%...#X%.%.|
00004eb0  1e ff 28 22 53 65 74 54  79 70 65 20 22 2b 66 69  |..("SetType "+fi|
00004ec0  6c 65 24 2b 22 20 30 35  30 22 29 0d 26 02 08 58  |le$+" 050").&..X|
00004ed0  25 3d 30 0d 26 0c 05 e1  0d 26 16 05 3a 0d 26 20  |%=0.&....&..:.& |
00004ee0  12 dd 20 f2 73 61 76 65  69 63 6f 6e 64 61 74 0d  |.. .saveicondat.|
00004ef0  26 2a 24 f1 23 58 25 2c  bb 28 a4 67 65 74 69 6e  |&*$.#X%,.(.getin|
00004f00  64 64 61 74 61 28 6d 61  69 6e 68 61 6e 64 25 2c  |ddata(mainhand%,|
00004f10  31 29 29 0d 26 34 24 f1  23 58 25 2c bb 28 a4 67  |1)).&4$.#X%,.(.g|
00004f20  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00004f30  64 25 2c 31 32 29 29 0d  26 3e 24 f1 23 58 25 2c  |d%,12)).&>$.#X%,|
00004f40  bb 28 a4 67 65 74 69 6e  64 64 61 74 61 28 76 61  |.(.getinddata(va|
00004f50  72 68 61 6e 64 25 2c 31  33 29 29 0d 26 48 24 f1  |rhand%,13)).&H$.|
00004f60  23 58 25 2c bb 28 a4 67  65 74 69 6e 64 64 61 74  |#X%,.(.getinddat|
00004f70  61 28 76 61 72 68 61 6e  64 25 2c 31 34 29 29 0d  |a(varhand%,14)).|
00004f80  26 52 24 f1 23 58 25 2c  bb 28 a4 67 65 74 69 6e  |&R$.#X%,.(.getin|
00004f90  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 31  |ddata(varhand%,1|
00004fa0  35 29 29 0d 26 5c 24 f1  23 58 25 2c bb 28 a4 67  |5)).&\$.#X%,.(.g|
00004fb0  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00004fc0  64 25 2c 31 36 29 29 0d  26 66 24 f1 23 58 25 2c  |d%,16)).&f$.#X%,|
00004fd0  bb 28 a4 67 65 74 69 6e  64 64 61 74 61 28 76 61  |.(.getinddata(va|
00004fe0  72 68 61 6e 64 25 2c 31  37 29 29 0d 26 70 05 e1  |rhand%,17)).&p..|
00004ff0  0d 26 7a 05 3a 0d 26 84  12 dd 20 f2 73 61 76 65  |.&z.:.&... .save|
00005000  66 72 61 63 64 61 74 0d  26 8e 24 f1 23 58 25 2c  |fracdat.&.$.#X%,|
00005010  bb 28 a4 67 65 74 69 6e  64 64 61 74 61 28 6d 61  |.(.getinddata(ma|
00005020  69 6e 68 61 6e 64 25 2c  31 29 29 0d 26 98 24 f1  |inhand%,1)).&.$.|
00005030  23 58 25 2c bb 28 a4 67  65 74 69 6e 64 64 61 74  |#X%,.(.getinddat|
00005040  61 28 76 61 72 68 61 6e  64 25 2c 31 32 29 29 0d  |a(varhand%,12)).|
00005050  26 a2 24 f1 23 58 25 2c  bb 28 a4 67 65 74 69 6e  |&.$.#X%,.(.getin|
00005060  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 31  |ddata(varhand%,1|
00005070  33 29 29 0d 26 ac 24 f1  23 58 25 2c bb 28 a4 67  |3)).&.$.#X%,.(.g|
00005080  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00005090  64 25 2c 31 34 29 29 0d  26 b6 24 f1 23 58 25 2c  |d%,14)).&.$.#X%,|
000050a0  bb 28 a4 67 65 74 69 6e  64 64 61 74 61 28 76 61  |.(.getinddata(va|
000050b0  72 68 61 6e 64 25 2c 31  35 29 29 0d 26 c0 24 f1  |rhand%,15)).&.$.|
000050c0  23 58 25 2c bb 28 a4 67  65 74 69 6e 64 64 61 74  |#X%,.(.getinddat|
000050d0  61 28 76 61 72 68 61 6e  64 25 2c 31 36 29 29 0d  |a(varhand%,16)).|
000050e0  26 ca 24 f1 23 58 25 2c  bb 28 a4 67 65 74 69 6e  |&.$.#X%,.(.getin|
000050f0  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 31  |ddata(varhand%,1|
00005100  37 29 29 0d 26 d4 24 f1  23 58 25 2c bb 28 a4 67  |7)).&.$.#X%,.(.g|
00005110  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
00005120  64 25 2c 31 38 29 29 0d  26 de 1f f1 23 58 25 2c  |d%,18)).&...#X%,|
00005130  a4 73 65 6c 65 63 74 65  64 28 76 61 72 68 61 6e  |.selected(varhan|
00005140  64 25 2c 32 34 29 0d 26  e8 05 e1 0d 26 f2 05 3a  |d%,24).&....&..:|
00005150  0d 26 fc 14 dd 20 f2 70  75 73 68 62 6c 6f 63 6b  |.&... .pushblock|
00005160  28 78 25 29 0d 27 06 12  e3 20 54 3d 30 20 b8 20  |(x%).'... T=0 . |
00005170  78 25 20 88 20 34 0d 27  10 16 70 62 6c 6f 63 6b  |x% . 4.'..pblock|
00005180  25 21 54 3d 62 6c 6f 63  6b 25 21 54 0d 27 1a 06  |%!T=block%!T.'..|
00005190  ed 54 0d 27 24 05 e1 0d  27 2e 05 3a 0d 27 38 14  |.T.'$...'..:.'8.|
000051a0  dd 20 f2 70 75 6c 6c 62  6c 6f 63 6b 28 78 25 29  |. .pullblock(x%)|
000051b0  0d 27 42 12 e3 20 54 3d  30 20 b8 20 78 25 20 88  |.'B.. T=0 . x% .|
000051c0  20 34 0d 27 4c 16 62 6c  6f 63 6b 25 21 54 3d 70  | 4.'L.block%!T=p|
000051d0  62 6c 6f 63 6b 25 21 54  0d 27 56 06 ed 54 0d 27  |block%!T.'V..T.'|
000051e0  60 05 e1 0d 27 6a 05 3a  0d 27 74 0f dd 20 f2 64  |`...'j.:.'t.. .d|
000051f0  61 74 61 6c 6f 61 64 0d  27 7e 1b e7 20 28 62 6c  |ataload.'~.. (bl|
00005200  6f 63 6b 25 21 34 30 29  3c 3e 26 30 35 30 20 8c  |ock%!40)<>&050 .|
00005210  20 e1 0d 27 88 48 ee 20  85 20 ea 20 f2 72 65 70  | ..'.H. . . .rep|
00005220  6f 72 74 28 22 45 72 72  6f 72 20 69 6e 20 50 52  |ort("Error in PR|
00005230  4f 43 64 61 74 61 6c 6f  61 64 20 3a 20 22 2b f6  |OCdataload : "+.|
00005240  24 2b 22 20 61 74 20 6c  69 6e 65 20 22 2b c3 9e  |$+" at line "+..|
00005250  2c 31 29 3a d9 23 59 25  3a e1 0d 27 92 1c 70 61  |,1):.#Y%:..'..pa|
00005260  74 68 24 3d a4 73 74 72  69 6e 67 28 62 6c 6f 63  |th$=.string(bloc|
00005270  6b 25 2b 34 34 29 0d 27  9c 12 74 61 73 6b 25 3d  |k%+44).'..task%=|
00005280  62 6c 6f 63 6b 25 21 34  0d 27 a6 11 72 65 66 25  |block%!4.'..ref%|
00005290  3d 62 6c 6f 63 6b 25 21  38 0d 27 b0 0f 59 25 3d  |=block%!8.'..Y%=|
000052a0  8e 28 70 61 74 68 24 29  0d 27 ba 11 e8 23 59 25  |.(path$).'...#Y%|
000052b0  2c 66 72 61 63 74 61 6c  25 0d 27 c4 0e f2 6e 65  |,fractal%.'...ne|
000052c0  77 77 69 6e 64 6f 77 0d  27 ce 11 c8 8e 20 66 72  |wwindow.'.... fr|
000052d0  61 63 74 61 6c 25 20 ca  0d 27 d8 08 c9 20 31 3a  |actal% ..'... 1:|
000052e0  0d 27 e2 12 20 20 f2 6c  6f 61 64 69 63 6f 6e 64  |.'..  .loadicond|
000052f0  61 74 0d 27 ec 08 c9 20  32 3a 0d 27 f6 12 20 20  |at.'... 2:.'..  |
00005300  f2 6c 6f 61 64 66 72 61  63 64 61 74 0d 28 00 05  |.loadfracdat.(..|
00005310  cb 0d 28 0a 08 d9 23 59  25 0d 28 14 0e 21 62 6c  |..(...#Y%.(..!bl|
00005320  6f 63 6b 25 3d 32 30 0d  28 1e 18 62 6c 6f 63 6b  |ock%=20.(..block|
00005330  25 21 34 3d 74 61 73 6b  68 61 6e 64 6c 65 25 0d  |%!4=taskhandle%.|
00005340  28 28 0e 62 6c 6f 63 6b  25 21 38 3d 31 0d 28 32  |((.block%!8=1.(2|
00005350  12 62 6c 6f 63 6b 25 21  31 32 3d 72 65 66 25 0d  |.block%!12=ref%.|
00005360  28 3c 0f 62 6c 6f 63 6b  25 21 31 36 3d 34 0d 28  |(<.block%!16=4.(|
00005370  46 29 c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |F).. "Wimp_SendM|
00005380  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
00005390  25 2c 74 61 73 6b 25 0d  28 50 05 e1 0d 28 5a 05  |%,task%.(P...(Z.|
000053a0  3a 0d 28 64 12 dd 20 f2  6c 6f 61 64 69 63 6f 6e  |:.(d.. .loadicon|
000053b0  64 61 74 0d 28 6e 07 78  3d 30 0d 28 78 0a e8 23  |dat.(n.x=0.(x..#|
000053c0  59 25 2c 78 0d 28 82 1f  f2 73 65 74 69 6e 64 64  |Y%,x.(...setindd|
000053d0  61 74 61 28 6d 61 69 6e  68 61 6e 64 25 2c 31 2c  |ata(mainhand%,1,|
000053e0  c3 78 29 0d 28 8c 0a e8  23 59 25 2c 78 0d 28 96  |.x).(...#Y%,x.(.|
000053f0  1f f2 73 65 74 69 6e 64  64 61 74 61 28 76 61 72  |..setinddata(var|
00005400  68 61 6e 64 25 2c 31 32  2c c3 78 29 0d 28 a0 0a  |hand%,12,.x).(..|
00005410  e8 23 59 25 2c 78 0d 28  aa 1f f2 73 65 74 69 6e  |.#Y%,x.(...setin|
00005420  64 64 61 74 61 28 76 61  72 68 61 6e 64 25 2c 31  |ddata(varhand%,1|
00005430  33 2c c3 78 29 0d 28 b4  0a e8 23 59 25 2c 78 0d  |3,.x).(...#Y%,x.|
00005440  28 be 1f f2 73 65 74 69  6e 64 64 61 74 61 28 76  |(...setinddata(v|
00005450  61 72 68 61 6e 64 25 2c  31 34 2c c3 78 29 0d 28  |arhand%,14,.x).(|
00005460  c8 0a e8 23 59 25 2c 78  0d 28 d2 1f f2 73 65 74  |...#Y%,x.(...set|
00005470  69 6e 64 64 61 74 61 28  76 61 72 68 61 6e 64 25  |inddata(varhand%|
00005480  2c 31 35 2c c3 78 29 0d  28 dc 0a e8 23 59 25 2c  |,15,.x).(...#Y%,|
00005490  78 0d 28 e6 1f f2 73 65  74 69 6e 64 64 61 74 61  |x.(...setinddata|
000054a0  28 76 61 72 68 61 6e 64  25 2c 31 36 2c c3 78 29  |(varhand%,16,.x)|
000054b0  0d 28 f0 0a e8 23 59 25  2c 78 0d 28 fa 1f f2 73  |.(...#Y%,x.(...s|
000054c0  65 74 69 6e 64 64 61 74  61 28 76 61 72 68 61 6e  |etinddata(varhan|
000054d0  64 25 2c 31 37 2c c3 78  29 0d 29 04 05 e1 0d 29  |d%,17,.x).)....)|
000054e0  0e 04 0d 29 18 12 dd 20  f2 6c 6f 61 64 66 72 61  |...)... .loadfra|
000054f0  63 64 61 74 0d 29 22 07  78 3d 30 0d 29 2c 0a e8  |cdat.)".x=0.),..|
00005500  23 59 25 2c 78 0d 29 36  1f f2 73 65 74 69 6e 64  |#Y%,x.)6..setind|
00005510  64 61 74 61 28 6d 61 69  6e 68 61 6e 64 25 2c 31  |data(mainhand%,1|
00005520  2c c3 78 29 0d 29 40 0a  e8 23 59 25 2c 78 0d 29  |,.x).)@..#Y%,x.)|
00005530  4a 1f f2 73 65 74 69 6e  64 64 61 74 61 28 76 61  |J..setinddata(va|
00005540  72 68 61 6e 64 25 2c 31  32 2c c3 78 29 0d 29 54  |rhand%,12,.x).)T|
00005550  0a e8 23 59 25 2c 78 0d  29 5e 1f f2 73 65 74 69  |..#Y%,x.)^..seti|
00005560  6e 64 64 61 74 61 28 76  61 72 68 61 6e 64 25 2c  |nddata(varhand%,|
00005570  31 33 2c c3 78 29 0d 29  68 0a e8 23 59 25 2c 78  |13,.x).)h..#Y%,x|
00005580  0d 29 72 1f f2 73 65 74  69 6e 64 64 61 74 61 28  |.)r..setinddata(|
00005590  76 61 72 68 61 6e 64 25  2c 31 34 2c c3 78 29 0d  |varhand%,14,.x).|
000055a0  29 7c 0a e8 23 59 25 2c  78 0d 29 86 1f f2 73 65  |)|..#Y%,x.)...se|
000055b0  74 69 6e 64 64 61 74 61  28 76 61 72 68 61 6e 64  |tinddata(varhand|
000055c0  25 2c 31 35 2c c3 78 29  0d 29 90 0a e8 23 59 25  |%,15,.x).)...#Y%|
000055d0  2c 78 0d 29 9a 1f f2 73  65 74 69 6e 64 64 61 74  |,x.)...setinddat|
000055e0  61 28 76 61 72 68 61 6e  64 25 2c 31 36 2c c3 78  |a(varhand%,16,.x|
000055f0  29 0d 29 a4 0a e8 23 59  25 2c 78 0d 29 ae 1f f2  |).)...#Y%,x.)...|
00005600  73 65 74 69 6e 64 64 61  74 61 28 76 61 72 68 61  |setinddata(varha|
00005610  6e 64 25 2c 31 37 2c c3  78 29 0d 29 b8 0a e8 23  |nd%,17,.x).)...#|
00005620  59 25 2c 78 0d 29 c2 1f  f2 73 65 74 69 6e 64 64  |Y%,x.)...setindd|
00005630  61 74 61 28 76 61 72 68  61 6e 64 25 2c 31 38 2c  |ata(varhand%,18,|
00005640  c3 78 29 0d 29 cc 0a e8  23 59 25 2c 78 0d 29 d6  |.x).)...#Y%,x.).|
00005650  3f e7 20 78 3d b9 20 f2  73 65 6c 65 63 74 69 63  |?. x=. .selectic|
00005660  6f 6e 28 76 61 72 68 61  6e 64 25 2c 32 34 29 20  |on(varhand%,24) |
00005670  8b 20 f2 75 6e 73 65 6c  65 63 74 69 63 6f 6e 28  |. .unselecticon(|
00005680  76 61 72 68 61 6e 64 25  2c 32 34 29 0d 29 e0 05  |varhand%,24).)..|
00005690  e1 0d ff                                          |...|
00005693