��poll
 ș &400C7,mask%,B% � reason%
Ȏ reason% �
(� 0 :�donextpic
2� 2 :ș &400C5,,B%
<� !B%=disp% drawop%=�
F� 3 :ș &400C6,,B%
P� !B%=disp% drawop%=�
Z� 6 :�buttons
d� 7 :�initiatesave
n$� 8 :� � �ourkey ș &400DC,B%!24
x� 9 :�menuselect
�� 17,18:�receive
�B� 19:ș &8,6,B%+44:� 255,"Data transfer failed: Receiver died"
��
��
�:
���iconstate(h%,i%)
�/!B%=h%:B%!4=i%:B%!8=0:B%!12=0:ș &400CD,,B%
��
�:
�
��receive
�Ȏ B%!16 �
�� 0:quit%=�
�� 2:�datasave

� 6:� ty$="aff" �ramfetch

� 9:�setuppalette

� &400C0

"s$=dfile$:ty$="aff"

,A� B%!36=1 s$=sfile$:ty$="ff9" � � B%!36=2 s$=tfile$:ty$="fff"

6�

@#�changetext(sbx%,0,"file_"+ty$)

J�changetext(sbx%,2,s$)

T ș &400E8,,B%!20,B%!24,B%!28

^�

h�

r:

|��getwindowstate(h%)

�!B%=h%:ș &400CB,,B%

��

�:

���openwindow(h%)

��getwindowstate(h%)

�B%!28=-1:ș &400C5,,B%

�� h%=disp% drawop%=�

��

�:

���close

�$B%="TASK"

�ș &400DD,task%,!B%

��
:
ݤwimperror
� � �#�,�$+" "+�(�/10)
&(� vdu% ș &2E,s0%,s1%,s2%,s3%:vdu%=�
03� memstart%>-1 �release(memstart%):memstart%=-1
:	!B%=�
D1$(B%+4)=�$+" (internal error code "+Þ+")"+�0
N%ș &400DF,B%,3,prog$ � ,response%
X"� response%=2 � �close:=� � =�
b:
l ݤdrawmenu(nlen%,menu$,ent%)
v� menub% 28+24*nlen%
�!$menub%=�menu$,�menu$,",")-1)
�&� �$menub%>12 $menub%=�$menub%,12)
�menu$+=",":max%=�$menub%
�menub%!12=&70207
�menub%!16=180:menub%!20=44
�menub%!24=0:ptr%=menub%+28
�� ent% entries=0
�ȕ menu$<>""
�menu$=�menu$,�menu$,",")+1)
�shade%=�:mess%=�:in%=-1
�m$=�menu$,1)
�ȕ m$="<" � m$="["
�Ȏ m$ �
	� "<"
d$=�split(menu$,">")
� �d$,"s") shade%=�
 � �d$,"m") mess%=�
* � "[":in%=��split(menu$,"]")
4�
>m$=�menu$,1)
H�
R� menu$<>"" �
\!ptr%=-8*mess%:ptr%!4=in%
f(ptr%!8=&21 �((-shade%)<<22) +(7<<24)
pp$=�menu$,�menu$,",")-1)
z� �p$>max% max%=�p$
�$(ptr%+12)=p$
�ptr%+=24:� ent% entries+=1
��
��
�menub%!16=16*(max%+1)
�ptr%!-24=ptr%!-24 � &80
�=menub%
�:
�ݤsplit(� m$,c$)
�*d%=�m$,c$):d$=�m$,2,d%-2):m$=�m$,d%+1)
�=d$
�:
���shade(menu%,item%)
menu%=menu%+28+24*item% +8
!menu%=!menu% � (1<<22)
�
$:
.��unshade(menu%,item%)
8menu%=menu%+28+24*item% +8
B!menu%=!menu% � &FFBFFFFF
L�
V:
`&��showmenu(menu%,x%,y%,oniconbar%)
jmine%=menu%
t,� oniconbar% ypos%=96+44*6 � ypos%=y%+20
~ ș &400D4,,menu%,x%-64,ypos%
��
�:
���menuselect
�ch1%=!B%:ch2%=B%!4
�Ȏ mine% �
�� menu%
�Ȏ !B% �
�� 1:�quicksave
�
� 2:�undo
�� 3:�clear
�� 4:�abort
�� 5:quit%=�
�

� menu2%:�quicksave
�
=� � quit% ș &400CF,,B%:� B%!8=1 �showmenu(mine%,x%,y%,�)
(�
2:
<
��buttons
F2x%=!B%:y%=B%!4:butt%=B%!8:h%=B%!12:icon%=B%!16
P.� butt% � 2 �showmenu(menu%,x%,y%,h%=-2):�
ZȎ h% �
d� -2
n<� butt% � 5 �openwindow(opt%):� done% �openwindow(disp%)
x
� sbx%
�%� butt% � 5 :� icon%=1 �quicksave
�%� butt% � &50 :� icon%=0 �dragbox
�
� opt%
�Ȏ icon% �
�� 5,6 :inner%=icon%=5
�$� 8:�whereis(opt%,8):�drawnewcol
�+� 11,12,13,14:nib%=icon%-11:�drawnewcol
�� 16:�drawsprite
��
�%� disp%:�showmenu(menu2%,x%,y%,�)
��
��
�:
ݤstring(l%)
d$="":a%=0:b%=?l%
%ȕ b%>31 d$+=�b%:a%+=1:b%=l%?a%:�
"=d$
,:
6
��dragbox
@�getwindowstate(sbx%)
J"ox%=B%!4-B%!20:oy%=B%!16-B%!24
TB%!4=0:ș &400CE,,B%
^!B%=sbx%:B%!4=5
hB%!8+=ox%:B%!12+=oy%
rB%!16+=ox%:B%!20+=oy%
|B%!24=0:B%!28=0
�#B%!32=&7FFFFFFF:B%!36=&7FFFFFFF
�ș &400D0,,B%
��
�:
���quicksave
�f$=�text(sbx%,2)
�� �f$,".")  �
�Ȏ ty$ �
�� "aff":�savedraw(f$)
�� "ff9":�savesprite(f$)
�� "fff":�savepars(f$)
��
�ș &400D4,,-1
�
<$B%="      To save, drag the icon to a directory viewer"
ș &400DF,B%,1,prog$
&�
0�
::
D��initiatesave
N*� ty$="aff" �savepath � savelen%=&4000
Xș &400CF,,B%
bB%!20=B%!12:B%!24=B%!16
lB%!28=B%!0:B%!32=B%!4
vB%!36=savelen%
�B%!0=256:B%!12=0:B%!16=1
�B%!40=�("&"+ty$)
�$$(B%+44)=�getleaf(�text(sbx%,2))
�ș &400E7,17,B%,B%!20,B%!24
��
�:
�ݤgetleaf(name$)
�ȕ �name$,".")
�name$=�name$,�name$,".")+1)
��
�
=name$+�0
�:
���datasave
f$=�string(B%+44)
Ȏ ty$ �
  � "aff":�savedraw(f$)
   � "ff9":�savesprite(f$)
*  � "fff":�savepars(f$)
4�
>ș &400D4,,-1
HB%!12=B%!8:B%!16=3:!B%=256
Rș &400E7,18,B%,B%!20,B%!24
\�
f:
p��savesprite(d$)
z� �d$<>�"<" sfile$=d$
�ș &2E,&10C,pic%,d$
��
�:
�#ݤspriteinit(mode%,w%,h%,name$)
�ș &35,mode%,7 � ,,sc
�"len%=sc*w%*h%/(1280*1024)+&100
�� pic% len%
�,!pic%=len%:pic%!4=0:pic%!8=16:pic%!12=16
�ș &35,mode%,4 � ,,xeig
�ș &35,mode%,5 � ,,yeig
�ș &2E,&109,pic%
�4ș &2E,&10F,pic%,name$,1,w%>>xeig,h%>>yeig,mode%
�+ș &2E,&125,pic%,name$,-1 � ,,,,sprpal%
		=pic%
	:
	��drawsprite
	$� r1,r2,r3,a,b,mx%
	.done%=�:mask%=0:ndraw%+=1
	8
�setuppic
	B� inner% �
	L#� r3<r2 rf=r1 � rf=r1+2*(r3-r2)
	V5� rf>248 fac=248/rf:r2=r2*fac:r3=r3*fac:r1=r1*fac
	`�
	j� r3<r2 rf=r2 � rf=r3
	tA� r1+2*rf>248 fac=248/(r1+2*rf):r1=fac*r1:r2=fac*r2:r3=fac*r3
	~�
	�;� inner% r=r1-r2:nbox%=2*r1 � r=r1+r2:nbox%=2*(r1+2*rf)
	�@� new% x3=256+r+r3:y3=256:a3=0:b3=0:new%=�:dodraw%=1:pici%=1
	�line(0,ndraw%)=newcol%
	�line(1,ndraw%)=r
	�line(2,ndraw%)=r1
	�line(3,ndraw%)=r2
	�line(4,ndraw%)=r3
	�line(5,ndraw%)=a
	�line(6,ndraw%)=b
	�line(7,ndraw%)=inner%
	�line(8,ndraw%)=mx%
	�line(9,ndraw%)=nib%
�openwindow(disp%)

�
:

��drawbez
(�makexy(dodraw%)
2'!bez%=2:bez%!4=256*x0:bez%!8=256*y0
<
bez%!12=6
F#bez%!16=256*cx1:bez%!20=256*cy1
P#bez%!24=256*cx2:bez%!28=256*cy2
Z!bez%!32=256*x3:bez%!36=256*y3
d
bez%!40=0
n.ș &40704,bez%,0,0,0,&400*thisnib%,join%,0
x�
�:
���makexy(d%)
�x0=x3:y0=y3
�%a1=a3+line(5,d%):b1=b3+line(6,d%)
�%a2=a1+line(5,d%):b2=b1+line(6,d%)
�%a3=a2+line(5,d%):b3=b2+line(6,d%)
�Ux1=256+line(1,d%)*�(a1)+line(4,d%)*�(b1):y1=256+line(1,d%)*�(a1)-line(4,d%)*�(b1)
�Ux2=256+line(1,d%)*�(a2)+line(4,d%)*�(b2):y2=256+line(1,d%)*�(a2)-line(4,d%)*�(b2)
�Ux3=256+line(1,d%)*�(a3)+line(4,d%)*�(b3):y3=256+line(1,d%)*�(a3)-line(4,d%)*�(b3)
� cx1=-5*x0/6-1.5*x2+3*x1+x3/3
� cy1=-5*y0/6-1.5*y2+3*y1+y3/3
� cx2=-5*x3/6-1.5*x1+3*x2+x0/3
� cy2=-5*y3/6-1.5*y1+3*y2+y0/3
�
:
ݤmax(a%,b%)
"f%=1
,�i%=b%�2�-1
6ȕ a%�i%=0 � b%�i%=0
@a%=a%�i%:b%=b%�i%:f%=f%*i%
J�
T�
^
=f%*a%*b%
h:
r
|��check(i%,� v,max)
�� d$
�d$=�text(opt%,i%)
�+� d$>"" v=�d$ � �changetext(opt%,i%,�v)
�� max>0 � v>max v=max
�+� d$<>�v d$=èv:�changetext(opt%,i%,d$)
��
�:
���setuppic
��check(0,r1,0)
��check(1,r2,0)
��check(2,r3,0)
��check(3,p1%,0)
��check(4,p2%,0)

� p1%<>op1% � p2%<>op2% �
 lp%=�max(p1%,p2%)/p1%
& �changetext(opt%,21,�lp%)
0 op1%=p1%:op2%=p2%
:�
D
N$�check(21,lp%,�max(p1%,p2%)/p1%)
Xmx%=lp%*p1%
ba=pi2/p1%:b=pi2/p2%
l
vdef%(0,ndraw%)=r1
�def%(1,ndraw%)=r2
�def%(2,ndraw%)=r3
�def%(3,ndraw%)=p1%
�def%(4,ndraw%)=p2%
�def%(5,ndraw%)=newcol%
�def%(6,ndraw%)=nib%
�def%(7,ndraw%)=lp%
�def%(8,ndraw%)=inner%
�
��
�:
���donextpic
�� pici%=1 �

6x3=256+line(1,dodraw%)*�(a3)+line(4,dodraw%)*�(b3)

6y3=256+line(1,dodraw%)*�(a3)-line(4,dodraw%)*�(b3)

�

 � line(0,dodraw%)>0 �

*thisnib%=line(9,dodraw%)

4.ș &2E,&13C,pic%,prog$,0 � s0%,s1%,s2%,s3%

>
vdu%=�

H� 0,line(0,dodraw%)

R�drawbez

\ș &2E,s0%,s1%,s2%,s3%

f
vdu%=�

p!� drawop% �iconstate(disp%,0)

z�

��makexy(dodraw%)

��

�pici%+=3

�� pici%>line(8,dodraw%) �

�dodraw%+=1:pici%=1

�� dodraw%>ndraw% mask%=1

�"� � drawop% �openwindow(disp%)

��unshade(menu%,1)

��unshade(menu%,2)

��

��

�:

�
��undo
ndraw%-=1:dodraw%=0:nbox%=0
/x3=256+line(1,1)+line(4,1):y3=256:a3=0:b3=0
.ș &2E,&13C,pic%,prog$,0 � s0%,s1%,s2%,s3%
$�
.ș &2E,s0%,s1%,s2%,s3%
86� drawop% �iconstate(disp%,0) � �openwindow(disp%)
B� ndraw%=0 �
L
new%=�
V�shade(menu%,1)
`�shade(menu%,2)
j�
tmask%=0
~�
��
�:
���clear
�&ndraw%=0:dodraw%=0:nbox%=0:mask%=1
�.ș &2E,&13C,pic%,prog$,0 � s0%,s1%,s2%,s3%
��
�ș &2E,s0%,s1%,s2%,s3%
�6� drawop% �iconstate(disp%,0) � �openwindow(disp%)
�
new%=�
��shade(menu%,1)
��shade(menu%,2)
��
:

��abort
dodraw%=ndraw%+1:mask%=1
"� � drawop% �openwindow(disp%)
(�unshade(menu%,1)
2�unshade(menu%,2)
<�
F:
P��setupsave(nd%)
Z>r=line(1,nd%):r1=line(2,nd%):r2=line(3,nd%):r3=line(4,nd%)
da=line(5,nd%):b=line(6,nd%)
ninner%=line(7,nd%)
xmx%=line(8,nd%)
�� inner% r=r1-r2 � r=r1+r2
��
�:
���savepars(name$)
�
� X,i%,j%
�
X=� name$
��("SETTYPE "+name$+" "+ty$)
�� �name$<>�"<" tfile$=name$
��#X,"SpiroDraw"
��i%=1�ndraw%
�/  �#X,"Fixed  "+�def%(0,i%)+" "+�def%(3,i%)
�/  �#X,"Moving "+�def%(1,i%)+" "+�def%(4,i%)
�  �#X,"Pen    "+�def%(2,i%)
  �#X,"Loops  "+�def%(7,i%)
$  �#X,"Colour "+col$(def%(5,i%))
  �#X,"Width  "+�def%(6,i%)
",  � def%(8,i%) �#X,"Inner" � �#X,"Outer"
,
�#X,""
6�
@�#X
J�("SETTYPE "+name$+" "+ty$)
T�
^:
h��savedraw(name$)
r6� ("SAVE "+name$+" "+�~memstart%+" + "+�~savelen%)
|�("SETTYPE "+name$+" "+ty$)
�� �name$<>�"<" dfile$=name$
�$�release(memstart%):memstart%=-1
��
�:
���savepath
�
ș &406C0
��makedraw(�)
�memstart%=�claim(savelen%)
�F� memstart%=-1 � 123," Need more RMA space to save this picture":�
��makedraw(�)
�5start=memstart%:tosend=start+savelen%:send=tosend
�
ș &406C1
��
:
��makedraw(doit%)

� doit% �
&pos%=memstart%
0$pos%="Draw"
:pos%!4=201:pos%!8=0
D&$(pos%+12)="SpirDraw    ":pos%+=24
N!pos%=0:pos%!4=0:pos%+=8
X�trput(nbox%,nbox%)
b�
lpos%=40
v�
�gr%=�head(6)
�
� doit% �
�%�i%=1�3:!pos%=&20202020:pos%+=4:�
��
�pos%+=12
��
�/x3=256+line(1,1)+line(4,1):y3=256:a3=0:b3=0
��s%=1�ndraw%
��setupsave(s%)
�� line(0,s%)>0 �
��putpath
��
�'�i%=1� line(8,s%) � 3:�makexy(s%):�
�
�
+� doit% !gr%=pos%+4-gr% � savelen%=pos%
 �
*:
4ݤhead(o%)
>
d%=pos%+4
H
� doit% �
R1!pos%=o%:pos%!4=0:pos%!8=0:pos%!12=0:pos%+=16
\�trput(nbox%,nbox%)
f�
ppos%+=24
z�
�=d%
�:
�
��putpath
�pa%=�head(2)
�_� doit% !pos%=&FFFFFFFF:pos%!4=sprpal%!(8*line(0,s%)):pos%!8=&400*line(9,s%):pos%!12=%10101
�pos%+=16
�,x3=256+line(1,s%)*�(a3)+line(4,s%)*�(b3)
�,y3=256+line(1,s%)*�(a3)-line(4,s%)*�(b3)
�4� doit% !pos%=2:pos%+=4:�trput(x3,y3) � pos%+=12
��i%=1� line(8,s%) � 3
��makexy(s%)
�
� doit% �
�A!pos%=6:pos%+=4:�trput(cx1,cy1):�trput(cx2,cy2):�trput(x3,y3)
�
pos%+=28
�
$�
.#� doit% !pos%=0:!pa%=pos%+8-pa%
8pos%+=4
B�
L:
V��trput(x%,y%)
`&!pos%=x%*256:pos%!4=y%*256:pos%+=8
j�
t:
~��ramfetch
�0hisbuff%=B%!20:hislen%=B%!24:hishandle%=B%!4
�� start<>tosend �
�C� hislen%<tosend-start send=start+hislen% � send=start+savelen%
�#� send=tosend mess=17 � mess=18
�7ș&400F1,task%,start,hishandle%,hisbuff%,send-start
�B%!12=B%!8:B%!16=7
�B%!24=send-start
� ș&400E7, mess,B%,hishandle%
�start=send
��
�B%!12=B%!8:B%!16=7:B%!24=0
�ș&400E7,17,B%,B%!4
3� memstart%>-1 �release(memstart%):memstart%=-1

ș &400D4,,-1
�
�
(:
2��release(area)
<ș&1E,7,,area
F�
P
Z
��icon
d+B%!0=-1:B%!4=0:B%!8=0:B%!12=68:B%!16=68
n"B%!20=&3002:$(B%+24)="!"+prog$
xș &400C2,,B%
��
�
�ݤwindow(a$)
�8ș &400DB,,templ%,data%,end%,-1,a$,0 � ,,data%,,,,c%
�!� a$="preview" templ%!64=pic%
� � a$="main" templ%!64=myspr%
�ș &400C1,,templ% � c%
�=c%
�
�ݤclaim(amount)
�� �
�� � � :=-1
�ș&1E,6,,,amount �,,ret
=ret

��seticon(i%)
"+!B%=opt%:B%!4=i%:B%!8=1<<21:B%!12=1<<21
,ș &400CD,,B%
6�
@
J��changetext(h%,i%,t$)
T !Q%=h%:Q%!4=i%:ș &400CE,,Q%
^Q%!8=0:Q%!12=0:$(Q%!28)=t$
hș &400CD,,Q%
r�
|
���set(h%,i%,t$)
� !Q%=h%:Q%!4=i%:ș &400CE,,Q%
�Q%!8=0:Q%!12=0:$(Q%!28)=t$
��
�
�ݤtext(h%,i%)
� !Q%=h%:Q%!4=i%:ș &400CE,,Q%
�=�string((Q%!28))
�:
���dispicon
�1B%!0=disp%:B%!4=0:B%!8=-512:B%!12=512:B%!16=0
�!B%!20=&700301A:$(B%+24)=prog$
�ș &400C2,,B%
�

��setuppalette
&� p%,q%,a%,b%,i%,d%
0ș &400E5,,Q%
:	q%=Q%
D�i%=0�15
N,  ?q%=0:�j%=1�3:q%?j%=&11*((q%?j%)>>4):�
X  q%+=4
b�
l&p%=sprpal%:q%=Q%:a%=pal1%:b%=pal2%
v�i%=0�15
�  d%=!q%
�  !p%=d%:p%!4=d%
�#  !a%=d%:!b%=d%:a%!4=d%:b%!4=d%
�  p%+=8:a%+=8:b%+=8:q%+=4
��
��iconstate(opt%,8)
��iconstate(opt%,10)
��
�:
���loadmysprites
� s$="<SpiroDraw$Dir>.sprites"
�ș &8,15,s$ � ,,,,k%
�
k%+=16
� myspr% k%
!myspr%=k%:myspr%!8=1
ș &2E,&109,myspr%
 ș &2E,&10A,myspr%,s$
*,ș &2E,&125,myspr%,"cols",-1 � ,,,,pal1%
4,ș &2E,&125,myspr%,"line",-1 � ,,,,pal2%
>�
H:
R��drawnewcol
\1ș &2E,&13C,myspr%,"line",0 � s0%,s1%,s2%,s3%
f
vdu%=�
p	� 0,1
zȓ Ȑ 8,4,120,16
�� 0,newcol%
� ȓ Ȑ 8,16-4*nib%,120,4*nib%
�ș &2E,s0%,s1%,s2%,s3%
�
vdu%=�
��iconstate(opt%,9)
��iconstate(opt%,10)
��
�:
���whereis(h%,ic%)
�!B%=h%:ș&400CB,,B%
�"ox%=B%!4-B%!20:oy%=B%!16-B%!24
�B%!4=ic%:ș&400CE,,B%
�px%=ox%+B%!8:py%=oy%+B%!12
#hh%=(x%-px%)/32:vh%=(y%-py%)/32
newcol%=4*(3-vh%)+hh%
�
$:
.
��vars
8maxline%=20
B5� line(9,maxline%),B% &100,Q% &100,bez% 44,val% 6
L'� def%(8,maxline%),join% 4,col$(15)
V�col$()="White","Grey1","Grey2","Grey3","Grey4","Grey5","Grey6","Black","DarkBlue","Yellow","BrightGreen","Red","Cream","DarkGreen","Orange","Cyan"
`ndraw%=0:dodraw%=0:nbox%=0
j!join%=&10101
t*r1=240:r2=40:r3=20:p1%=64:p2%=12:lp%=3
~$op1%=p1%:op2%=p2%:pi2=2*�:nib%=1
�ndraw%=0:nsave%=0:new%=�
�!inner%=�:vdu%=�:X=0:drawop%=�
�memstart%=-1
�9dfile$="Drawfile":sfile$="Sprite":tfile$="Parameters"
�newcol%=8:mask%=1
�prog$="SpiroDraw"
�&pic%=�spriteinit(12,512,512,prog$)
��loadmysprites
�quit%=�:done%=�
��
�

00000000  0d 00 0a 0a dd f2 70 6f  6c 6c 0d 00 14 20 c8 99  |......poll... ..|
00000010  20 26 34 30 30 43 37 2c  6d 61 73 6b 25 2c 42 25  | &400C7,mask%,B%|
00000020  20 b8 20 72 65 61 73 6f  6e 25 0d 00 1e 10 c8 8e  | . reason%......|
00000030  20 72 65 61 73 6f 6e 25  20 ca 0d 00 28 13 c9 20  | reason% ...(.. |
00000040  30 20 3a f2 64 6f 6e 65  78 74 70 69 63 0d 00 32  |0 :.donextpic..2|
00000050  16 c9 20 32 20 3a c8 99  20 26 34 30 30 43 35 2c  |.. 2 :.. &400C5,|
00000060  2c 42 25 0d 00 3c 19 e7  20 21 42 25 3d 64 69 73  |,B%..<.. !B%=dis|
00000070  70 25 20 64 72 61 77 6f  70 25 3d b9 0d 00 46 16  |p% drawop%=...F.|
00000080  c9 20 33 20 3a c8 99 20  26 34 30 30 43 36 2c 2c  |. 3 :.. &400C6,,|
00000090  42 25 0d 00 50 19 e7 20  21 42 25 3d 64 69 73 70  |B%..P.. !B%=disp|
000000a0  25 20 64 72 61 77 6f 70  25 3d a3 0d 00 5a 11 c9  |% drawop%=...Z..|
000000b0  20 36 20 3a f2 62 75 74  74 6f 6e 73 0d 00 64 16  | 6 :.buttons..d.|
000000c0  c9 20 37 20 3a f2 69 6e  69 74 69 61 74 65 73 61  |. 7 :.initiatesa|
000000d0  76 65 0d 00 6e 24 c9 20  38 20 3a e7 20 ac 20 a4  |ve..n$. 8 :. . .|
000000e0  6f 75 72 6b 65 79 20 c8  99 20 26 34 30 30 44 43  |ourkey .. &400DC|
000000f0  2c 42 25 21 32 34 0d 00  78 14 c9 20 39 20 3a f2  |,B%!24..x.. 9 :.|
00000100  6d 65 6e 75 73 65 6c 65  63 74 0d 00 82 14 c9 20  |menuselect..... |
00000110  31 37 2c 31 38 3a f2 72  65 63 65 69 76 65 0d 00  |17,18:.receive..|
00000120  8c 42 c9 20 31 39 3a c8  99 20 26 38 2c 36 2c 42  |.B. 19:.. &8,6,B|
00000130  25 2b 34 34 3a 85 20 32  35 35 2c 22 44 61 74 61  |%+44:. 255,"Data|
00000140  20 74 72 61 6e 73 66 65  72 20 66 61 69 6c 65 64  | transfer failed|
00000150  3a 20 52 65 63 65 69 76  65 72 20 64 69 65 64 22  |: Receiver died"|
00000160  0d 00 96 05 cb 0d 00 a0  05 e1 0d 00 aa 05 3a 0d  |..............:.|
00000170  00 b4 16 dd f2 69 63 6f  6e 73 74 61 74 65 28 68  |.....iconstate(h|
00000180  25 2c 69 25 29 0d 00 be  2f 21 42 25 3d 68 25 3a  |%,i%).../!B%=h%:|
00000190  42 25 21 34 3d 69 25 3a  42 25 21 38 3d 30 3a 42  |B%!4=i%:B%!8=0:B|
000001a0  25 21 31 32 3d 30 3a c8  99 20 26 34 30 30 43 44  |%!12=0:.. &400CD|
000001b0  2c 2c 42 25 0d 00 c8 05  e1 0d 00 d2 05 3a 0d 00  |,,B%.........:..|
000001c0  dc 0d dd f2 72 65 63 65  69 76 65 0d 00 e6 0e c8  |....receive.....|
000001d0  8e 20 42 25 21 31 36 20  ca 0d 00 f0 0f c9 20 30  |. B%!16 ...... 0|
000001e0  3a 71 75 69 74 25 3d b9  0d 00 fa 11 c9 20 32 3a  |:quit%=...... 2:|
000001f0  f2 64 61 74 61 73 61 76  65 0d 01 04 1d c9 20 36  |.datasave..... 6|
00000200  3a e7 20 74 79 24 3d 22  61 66 66 22 20 f2 72 61  |:. ty$="aff" .ra|
00000210  6d 66 65 74 63 68 0d 01  0e 15 c9 20 39 3a f2 73  |mfetch..... 9:.s|
00000220  65 74 75 70 70 61 6c 65  74 74 65 0d 01 18 0c c9  |etuppalette.....|
00000230  20 26 34 30 30 43 30 0d  01 22 17 73 24 3d 64 66  | &400C0..".s$=df|
00000240  69 6c 65 24 3a 74 79 24  3d 22 61 66 66 22 0d 01  |ile$:ty$="aff"..|
00000250  2c 41 e7 20 42 25 21 33  36 3d 31 20 73 24 3d 73  |,A. B%!36=1 s$=s|
00000260  66 69 6c 65 24 3a 74 79  24 3d 22 66 66 39 22 20  |file$:ty$="ff9" |
00000270  8b 20 e7 20 42 25 21 33  36 3d 32 20 73 24 3d 74  |. . B%!36=2 s$=t|
00000280  66 69 6c 65 24 3a 74 79  24 3d 22 66 66 66 22 0d  |file$:ty$="fff".|
00000290  01 36 05 cd 0d 01 40 23  f2 63 68 61 6e 67 65 74  |.6....@#.changet|
000002a0  65 78 74 28 73 62 78 25  2c 30 2c 22 66 69 6c 65  |ext(sbx%,0,"file|
000002b0  5f 22 2b 74 79 24 29 0d  01 4a 1a f2 63 68 61 6e  |_"+ty$)..J..chan|
000002c0  67 65 74 65 78 74 28 73  62 78 25 2c 32 2c 73 24  |getext(sbx%,2,s$|
000002d0  29 0d 01 54 20 c8 99 20  26 34 30 30 45 38 2c 2c  |)..T .. &400E8,,|
000002e0  42 25 21 32 30 2c 42 25  21 32 34 2c 42 25 21 32  |B%!20,B%!24,B%!2|
000002f0  38 0d 01 5e 05 cb 0d 01  68 05 e1 0d 01 72 05 3a  |8..^....h....r.:|
00000300  0d 01 7c 18 dd f2 67 65  74 77 69 6e 64 6f 77 73  |..|...getwindows|
00000310  74 61 74 65 28 68 25 29  0d 01 86 18 21 42 25 3d  |tate(h%)....!B%=|
00000320  68 25 3a c8 99 20 26 34  30 30 43 42 2c 2c 42 25  |h%:.. &400CB,,B%|
00000330  0d 01 90 05 e1 0d 01 9a  05 3a 0d 01 a4 14 dd f2  |.........:......|
00000340  6f 70 65 6e 77 69 6e 64  6f 77 28 68 25 29 0d 01  |openwindow(h%)..|
00000350  ae 17 f2 67 65 74 77 69  6e 64 6f 77 73 74 61 74  |...getwindowstat|
00000360  65 28 68 25 29 0d 01 b8  1a 42 25 21 32 38 3d 2d  |e(h%)....B%!28=-|
00000370  31 3a c8 99 20 26 34 30  30 43 35 2c 2c 42 25 0d  |1:.. &400C5,,B%.|
00000380  01 c2 18 e7 20 68 25 3d  64 69 73 70 25 20 64 72  |.... h%=disp% dr|
00000390  61 77 6f 70 25 3d b9 0d  01 cc 05 e1 0d 01 d6 05  |awop%=..........|
000003a0  3a 0d 01 e0 0b dd f2 63  6c 6f 73 65 0d 01 ea 0e  |:......close....|
000003b0  24 42 25 3d 22 54 41 53  4b 22 0d 01 f4 17 c8 99  |$B%="TASK"......|
000003c0  20 26 34 30 30 44 44 2c  74 61 73 6b 25 2c 21 42  | &400DD,task%,!B|
000003d0  25 0d 01 fe 05 e1 0d 02  08 05 3a 0d 02 12 0f dd  |%.........:.....|
000003e0  a4 77 69 6d 70 65 72 72  6f 72 0d 02 1c 1a e7 20  |.wimperror..... |
000003f0  fc 20 d5 23 fc 2c f6 24  2b 22 20 22 2b c3 28 9e  |. .#.,.$+" "+.(.|
00000400  2f 31 30 29 0d 02 26 28  e7 20 76 64 75 25 20 c8  |/10)..&(. vdu% .|
00000410  99 20 26 32 45 2c 73 30  25 2c 73 31 25 2c 73 32  |. &2E,s0%,s1%,s2|
00000420  25 2c 73 33 25 3a 76 64  75 25 3d a3 0d 02 30 33  |%,s3%:vdu%=...03|
00000430  e7 20 6d 65 6d 73 74 61  72 74 25 3e 2d 31 20 f2  |. memstart%>-1 .|
00000440  72 65 6c 65 61 73 65 28  6d 65 6d 73 74 61 72 74  |release(memstart|
00000450  25 29 3a 6d 65 6d 73 74  61 72 74 25 3d 2d 31 0d  |%):memstart%=-1.|
00000460  02 3a 09 21 42 25 3d 9f  0d 02 44 31 24 28 42 25  |.:.!B%=...D1$(B%|
00000470  2b 34 29 3d f6 24 2b 22  20 28 69 6e 74 65 72 6e  |+4)=.$+" (intern|
00000480  61 6c 20 65 72 72 6f 72  20 63 6f 64 65 20 22 2b  |al error code "+|
00000490  c3 9e 2b 22 29 22 2b bd  30 0d 02 4e 25 c8 99 20  |..+")"+.0..N%.. |
000004a0  26 34 30 30 44 46 2c 42  25 2c 33 2c 70 72 6f 67  |&400DF,B%,3,prog|
000004b0  24 20 b8 20 2c 72 65 73  70 6f 6e 73 65 25 0d 02  |$ . ,response%..|
000004c0  58 22 e7 20 72 65 73 70  6f 6e 73 65 25 3d 32 20  |X". response%=2 |
000004d0  8c 20 f2 63 6c 6f 73 65  3a 3d b9 20 8b 20 3d a3  |. .close:=. . =.|
000004e0  0d 02 62 05 3a 0d 02 6c  20 dd a4 64 72 61 77 6d  |..b.:..l ..drawm|
000004f0  65 6e 75 28 6e 6c 65 6e  25 2c 6d 65 6e 75 24 2c  |enu(nlen%,menu$,|
00000500  65 6e 74 25 29 0d 02 76  18 de 20 6d 65 6e 75 62  |ent%)..v.. menub|
00000510  25 20 32 38 2b 32 34 2a  6e 6c 65 6e 25 0d 02 80  |% 28+24*nlen%...|
00000520  21 24 6d 65 6e 75 62 25  3d c0 6d 65 6e 75 24 2c  |!$menub%=.menu$,|
00000530  a7 6d 65 6e 75 24 2c 22  2c 22 29 2d 31 29 0d 02  |.menu$,",")-1)..|
00000540  8a 26 e7 20 a9 24 6d 65  6e 75 62 25 3e 31 32 20  |.&. .$menub%>12 |
00000550  24 6d 65 6e 75 62 25 3d  c0 24 6d 65 6e 75 62 25  |$menub%=.$menub%|
00000560  2c 31 32 29 0d 02 94 1c  6d 65 6e 75 24 2b 3d 22  |,12)....menu$+="|
00000570  2c 22 3a 6d 61 78 25 3d  a9 24 6d 65 6e 75 62 25  |,":max%=.$menub%|
00000580  0d 02 9e 14 6d 65 6e 75  62 25 21 31 32 3d 26 37  |....menub%!12=&7|
00000590  30 32 30 37 0d 02 a8 1e  6d 65 6e 75 62 25 21 31  |0207....menub%!1|
000005a0  36 3d 31 38 30 3a 6d 65  6e 75 62 25 21 32 30 3d  |6=180:menub%!20=|
000005b0  34 34 0d 02 b2 1e 6d 65  6e 75 62 25 21 32 34 3d  |44....menub%!24=|
000005c0  30 3a 70 74 72 25 3d 6d  65 6e 75 62 25 2b 32 38  |0:ptr%=menub%+28|
000005d0  0d 02 bc 14 e7 20 65 6e  74 25 20 65 6e 74 72 69  |..... ent% entri|
000005e0  65 73 3d 30 0d 02 c6 10  c8 95 20 6d 65 6e 75 24  |es=0...... menu$|
000005f0  3c 3e 22 22 0d 02 d0 1f  6d 65 6e 75 24 3d c1 6d  |<>""....menu$=.m|
00000600  65 6e 75 24 2c a7 6d 65  6e 75 24 2c 22 2c 22 29  |enu$,.menu$,",")|
00000610  2b 31 29 0d 02 da 1b 73  68 61 64 65 25 3d a3 3a  |+1)....shade%=.:|
00000620  6d 65 73 73 25 3d a3 3a  69 6e 25 3d 2d 31 0d 02  |mess%=.:in%=-1..|
00000630  e4 10 6d 24 3d c0 6d 65  6e 75 24 2c 31 29 0d 02  |..m$=.menu$,1)..|
00000640  ee 16 c8 95 20 6d 24 3d  22 3c 22 20 84 20 6d 24  |.... m$="<" . m$|
00000650  3d 22 5b 22 0d 02 f8 0b  c8 8e 20 6d 24 20 ca 0d  |="["...... m$ ..|
00000660  03 02 09 c9 20 22 3c 22  0d 03 0c 18 64 24 3d a4  |.... "<"....d$=.|
00000670  73 70 6c 69 74 28 6d 65  6e 75 24 2c 22 3e 22 29  |split(menu$,">")|
00000680  0d 03 16 17 e7 20 a7 64  24 2c 22 73 22 29 20 73  |..... .d$,"s") s|
00000690  68 61 64 65 25 3d b9 0d  03 20 16 e7 20 a7 64 24  |hade%=... .. .d$|
000006a0  2c 22 6d 22 29 20 6d 65  73 73 25 3d b9 0d 03 2a  |,"m") mess%=...*|
000006b0  20 c9 20 22 5b 22 3a 69  6e 25 3d a0 a4 73 70 6c  | . "[":in%=..spl|
000006c0  69 74 28 6d 65 6e 75 24  2c 22 5d 22 29 0d 03 34  |it(menu$,"]")..4|
000006d0  05 cb 0d 03 3e 10 6d 24  3d c0 6d 65 6e 75 24 2c  |....>.m$=.menu$,|
000006e0  31 29 0d 03 48 05 ce 0d  03 52 11 e7 20 6d 65 6e  |1)..H....R.. men|
000006f0  75 24 3c 3e 22 22 20 8c  0d 03 5c 1d 21 70 74 72  |u$<>"" ...\.!ptr|
00000700  25 3d 2d 38 2a 6d 65 73  73 25 3a 70 74 72 25 21  |%=-8*mess%:ptr%!|
00000710  34 3d 69 6e 25 0d 03 66  28 70 74 72 25 21 38 3d  |4=in%..f(ptr%!8=|
00000720  26 32 31 20 84 28 28 2d  73 68 61 64 65 25 29 3c  |&21 .((-shade%)<|
00000730  3c 32 32 29 20 2b 28 37  3c 3c 32 34 29 0d 03 70  |<22) +(7<<24)..p|
00000740  1c 70 24 3d c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |.p$=.menu$,.menu|
00000750  24 2c 22 2c 22 29 2d 31  29 0d 03 7a 17 e7 20 a9  |$,",")-1)..z.. .|
00000760  70 24 3e 6d 61 78 25 20  6d 61 78 25 3d a9 70 24  |p$>max% max%=.p$|
00000770  0d 03 84 11 24 28 70 74  72 25 2b 31 32 29 3d 70  |....$(ptr%+12)=p|
00000780  24 0d 03 8e 1e 70 74 72  25 2b 3d 32 34 3a e7 20  |$....ptr%+=24:. |
00000790  65 6e 74 25 20 65 6e 74  72 69 65 73 2b 3d 31 0d  |ent% entries+=1.|
000007a0  03 98 05 cd 0d 03 a2 05  ce 0d 03 ac 19 6d 65 6e  |.............men|
000007b0  75 62 25 21 31 36 3d 31  36 2a 28 6d 61 78 25 2b  |ub%!16=16*(max%+|
000007c0  31 29 0d 03 b6 1b 70 74  72 25 21 2d 32 34 3d 70  |1)....ptr%!-24=p|
000007d0  74 72 25 21 2d 32 34 20  84 20 26 38 30 0d 03 c0  |tr%!-24 . &80...|
000007e0  0b 3d 6d 65 6e 75 62 25  0d 03 ca 05 3a 0d 03 d4  |.=menub%....:...|
000007f0  14 dd a4 73 70 6c 69 74  28 f8 20 6d 24 2c 63 24  |...split(. m$,c$|
00000800  29 0d 03 de 2a 64 25 3d  a7 6d 24 2c 63 24 29 3a  |)...*d%=.m$,c$):|
00000810  64 24 3d c1 6d 24 2c 32  2c 64 25 2d 32 29 3a 6d  |d$=.m$,2,d%-2):m|
00000820  24 3d c1 6d 24 2c 64 25  2b 31 29 0d 03 e8 07 3d  |$=.m$,d%+1)....=|
00000830  64 24 0d 03 f2 05 3a 0d  03 fc 18 dd f2 73 68 61  |d$....:......sha|
00000840  64 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |de(menu%,item%).|
00000850  04 06 1e 6d 65 6e 75 25  3d 6d 65 6e 75 25 2b 32  |...menu%=menu%+2|
00000860  38 2b 32 34 2a 69 74 65  6d 25 20 2b 38 0d 04 10  |8+24*item% +8...|
00000870  1b 21 6d 65 6e 75 25 3d  21 6d 65 6e 75 25 20 84  |.!menu%=!menu% .|
00000880  20 28 31 3c 3c 32 32 29  0d 04 1a 05 e1 0d 04 24  | (1<<22).......$|
00000890  05 3a 0d 04 2e 1a dd f2  75 6e 73 68 61 64 65 28  |.:......unshade(|
000008a0  6d 65 6e 75 25 2c 69 74  65 6d 25 29 0d 04 38 1e  |menu%,item%)..8.|
000008b0  6d 65 6e 75 25 3d 6d 65  6e 75 25 2b 32 38 2b 32  |menu%=menu%+28+2|
000008c0  34 2a 69 74 65 6d 25 20  2b 38 0d 04 42 1d 21 6d  |4*item% +8..B.!m|
000008d0  65 6e 75 25 3d 21 6d 65  6e 75 25 20 80 20 26 46  |enu%=!menu% . &F|
000008e0  46 42 46 46 46 46 46 0d  04 4c 05 e1 0d 04 56 05  |FBFFFFF..L....V.|
000008f0  3a 0d 04 60 26 dd f2 73  68 6f 77 6d 65 6e 75 28  |:..`&..showmenu(|
00000900  6d 65 6e 75 25 2c 78 25  2c 79 25 2c 6f 6e 69 63  |menu%,x%,y%,onic|
00000910  6f 6e 62 61 72 25 29 0d  04 6a 0f 6d 69 6e 65 25  |onbar%)..j.mine%|
00000920  3d 6d 65 6e 75 25 0d 04  74 2c e7 20 6f 6e 69 63  |=menu%..t,. onic|
00000930  6f 6e 62 61 72 25 20 79  70 6f 73 25 3d 39 36 2b  |onbar% ypos%=96+|
00000940  34 34 2a 36 20 8b 20 79  70 6f 73 25 3d 79 25 2b  |44*6 . ypos%=y%+|
00000950  32 30 0d 04 7e 20 c8 99  20 26 34 30 30 44 34 2c  |20..~ .. &400D4,|
00000960  2c 6d 65 6e 75 25 2c 78  25 2d 36 34 2c 79 70 6f  |,menu%,x%-64,ypo|
00000970  73 25 0d 04 88 05 e1 0d  04 92 05 3a 0d 04 9c 10  |s%.........:....|
00000980  dd f2 6d 65 6e 75 73 65  6c 65 63 74 0d 04 a6 16  |..menuselect....|
00000990  63 68 31 25 3d 21 42 25  3a 63 68 32 25 3d 42 25  |ch1%=!B%:ch2%=B%|
000009a0  21 34 0d 04 b0 0e c8 8e  20 6d 69 6e 65 25 20 ca  |!4...... mine% .|
000009b0  0d 04 ba 0b c9 20 6d 65  6e 75 25 0d 04 c4 0c c8  |..... menu%.....|
000009c0  8e 20 21 42 25 20 ca 0d  04 ce 12 c9 20 31 3a f2  |. !B% ...... 1:.|
000009d0  71 75 69 63 6b 73 61 76  65 0d 04 d8 0d c9 20 32  |quicksave..... 2|
000009e0  3a f2 75 6e 64 6f 0d 04  e2 0e c9 20 33 3a f2 63  |:.undo..... 3:.c|
000009f0  6c 65 61 72 0d 04 ec 0e  c9 20 34 3a f2 61 62 6f  |lear..... 4:.abo|
00000a00  72 74 0d 04 f6 0f c9 20  35 3a 71 75 69 74 25 3d  |rt..... 5:quit%=|
00000a10  b9 0d 05 00 05 cb 0d 05  0a 17 c9 20 6d 65 6e 75  |........... menu|
00000a20  32 25 3a f2 71 75 69 63  6b 73 61 76 65 0d 05 14  |2%:.quicksave...|
00000a30  05 cb 0d 05 1e 3d e7 20  ac 20 71 75 69 74 25 20  |.....=. . quit% |
00000a40  c8 99 20 26 34 30 30 43  46 2c 2c 42 25 3a e7 20  |.. &400CF,,B%:. |
00000a50  42 25 21 38 3d 31 20 f2  73 68 6f 77 6d 65 6e 75  |B%!8=1 .showmenu|
00000a60  28 6d 69 6e 65 25 2c 78  25 2c 79 25 2c a3 29 0d  |(mine%,x%,y%,.).|
00000a70  05 28 05 e1 0d 05 32 05  3a 0d 05 3c 0d dd f2 62  |.(....2.:..<...b|
00000a80  75 74 74 6f 6e 73 0d 05  46 32 78 25 3d 21 42 25  |uttons..F2x%=!B%|
00000a90  3a 79 25 3d 42 25 21 34  3a 62 75 74 74 25 3d 42  |:y%=B%!4:butt%=B|
00000aa0  25 21 38 3a 68 25 3d 42  25 21 31 32 3a 69 63 6f  |%!8:h%=B%!12:ico|
00000ab0  6e 25 3d 42 25 21 31 36  0d 05 50 2e e7 20 62 75  |n%=B%!16..P.. bu|
00000ac0  74 74 25 20 80 20 32 20  f2 73 68 6f 77 6d 65 6e  |tt% . 2 .showmen|
00000ad0  75 28 6d 65 6e 75 25 2c  78 25 2c 79 25 2c 68 25  |u(menu%,x%,y%,h%|
00000ae0  3d 2d 32 29 3a e1 0d 05  5a 0b c8 8e 20 68 25 20  |=-2):...Z... h% |
00000af0  ca 0d 05 64 08 c9 20 2d  32 0d 05 6e 3c e7 20 62  |...d.. -2..n<. b|
00000b00  75 74 74 25 20 80 20 35  20 f2 6f 70 65 6e 77 69  |utt% . 5 .openwi|
00000b10  6e 64 6f 77 28 6f 70 74  25 29 3a e7 20 64 6f 6e  |ndow(opt%):. don|
00000b20  65 25 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 64  |e% .openwindow(d|
00000b30  69 73 70 25 29 0d 05 78  0a c9 20 73 62 78 25 0d  |isp%)..x.. sbx%.|
00000b40  05 82 25 e7 20 62 75 74  74 25 20 80 20 35 20 3a  |..%. butt% . 5 :|
00000b50  e7 20 69 63 6f 6e 25 3d  31 20 f2 71 75 69 63 6b  |. icon%=1 .quick|
00000b60  73 61 76 65 0d 05 8c 25  e7 20 62 75 74 74 25 20  |save...%. butt% |
00000b70  80 20 26 35 30 20 3a e7  20 69 63 6f 6e 25 3d 30  |. &50 :. icon%=0|
00000b80  20 f2 64 72 61 67 62 6f  78 0d 05 96 0a c9 20 6f  | .dragbox..... o|
00000b90  70 74 25 0d 05 a0 0e c8  8e 20 69 63 6f 6e 25 20  |pt%...... icon% |
00000ba0  ca 0d 05 aa 19 c9 20 35  2c 36 20 3a 69 6e 6e 65  |...... 5,6 :inne|
00000bb0  72 25 3d 69 63 6f 6e 25  3d 35 0d 05 b4 24 c9 20  |r%=icon%=5...$. |
00000bc0  38 3a f2 77 68 65 72 65  69 73 28 6f 70 74 25 2c  |8:.whereis(opt%,|
00000bd0  38 29 3a f2 64 72 61 77  6e 65 77 63 6f 6c 0d 05  |8):.drawnewcol..|
00000be0  be 2b c9 20 31 31 2c 31  32 2c 31 33 2c 31 34 3a  |.+. 11,12,13,14:|
00000bf0  6e 69 62 25 3d 69 63 6f  6e 25 2d 31 31 3a f2 64  |nib%=icon%-11:.d|
00000c00  72 61 77 6e 65 77 63 6f  6c 0d 05 c8 14 c9 20 31  |rawnewcol..... 1|
00000c10  36 3a f2 64 72 61 77 73  70 72 69 74 65 0d 05 d2  |6:.drawsprite...|
00000c20  05 cb 0d 05 dc 25 c9 20  64 69 73 70 25 3a f2 73  |.....%. disp%:.s|
00000c30  68 6f 77 6d 65 6e 75 28  6d 65 6e 75 32 25 2c 78  |howmenu(menu2%,x|
00000c40  25 2c 79 25 2c a3 29 0d  05 e6 05 cb 0d 05 f0 05  |%,y%,.).........|
00000c50  e1 0d 05 fa 05 3a 0d 06  04 10 dd a4 73 74 72 69  |.....:......stri|
00000c60  6e 67 28 6c 25 29 0d 06  0e 15 64 24 3d 22 22 3a  |ng(l%)....d$="":|
00000c70  61 25 3d 30 3a 62 25 3d  3f 6c 25 0d 06 18 25 c8  |a%=0:b%=?l%...%.|
00000c80  95 20 62 25 3e 33 31 20  64 24 2b 3d bd 62 25 3a  |. b%>31 d$+=.b%:|
00000c90  61 25 2b 3d 31 3a 62 25  3d 6c 25 3f 61 25 3a ce  |a%+=1:b%=l%?a%:.|
00000ca0  0d 06 22 07 3d 64 24 0d  06 2c 05 3a 0d 06 36 0d  |..".=d$..,.:..6.|
00000cb0  dd f2 64 72 61 67 62 6f  78 0d 06 40 19 f2 67 65  |..dragbox..@..ge|
00000cc0  74 77 69 6e 64 6f 77 73  74 61 74 65 28 73 62 78  |twindowstate(sbx|
00000cd0  25 29 0d 06 4a 22 6f 78  25 3d 42 25 21 34 2d 42  |%)..J"ox%=B%!4-B|
00000ce0  25 21 32 30 3a 6f 79 25  3d 42 25 21 31 36 2d 42  |%!20:oy%=B%!16-B|
00000cf0  25 21 32 34 0d 06 54 18  42 25 21 34 3d 30 3a c8  |%!24..T.B%!4=0:.|
00000d00  99 20 26 34 30 30 43 45  2c 2c 42 25 0d 06 5e 13  |. &400CE,,B%..^.|
00000d10  21 42 25 3d 73 62 78 25  3a 42 25 21 34 3d 35 0d  |!B%=sbx%:B%!4=5.|
00000d20  06 68 18 42 25 21 38 2b  3d 6f 78 25 3a 42 25 21  |.h.B%!8+=ox%:B%!|
00000d30  31 32 2b 3d 6f 79 25 0d  06 72 19 42 25 21 31 36  |12+=oy%..r.B%!16|
00000d40  2b 3d 6f 78 25 3a 42 25  21 32 30 2b 3d 6f 79 25  |+=ox%:B%!20+=oy%|
00000d50  0d 06 7c 13 42 25 21 32  34 3d 30 3a 42 25 21 32  |..|.B%!24=0:B%!2|
00000d60  38 3d 30 0d 06 86 23 42  25 21 33 32 3d 26 37 46  |8=0...#B%!32=&7F|
00000d70  46 46 46 46 46 46 3a 42  25 21 33 36 3d 26 37 46  |FFFFFF:B%!36=&7F|
00000d80  46 46 46 46 46 46 0d 06  90 11 c8 99 20 26 34 30  |FFFFFF...... &40|
00000d90  30 44 30 2c 2c 42 25 0d  06 9a 05 e1 0d 06 a4 05  |0D0,,B%.........|
00000da0  3a 0d 06 ae 0f dd f2 71  75 69 63 6b 73 61 76 65  |:......quicksave|
00000db0  0d 06 b8 14 66 24 3d a4  74 65 78 74 28 73 62 78  |....f$=.text(sbx|
00000dc0  25 2c 32 29 0d 06 c2 11  e7 20 a7 66 24 2c 22 2e  |%,2)..... .f$,".|
00000dd0  22 29 20 20 8c 0d 06 cc  0c c8 8e 20 74 79 24 20  |")  ....... ty$ |
00000de0  ca 0d 06 d6 19 c9 20 22  61 66 66 22 3a f2 73 61  |...... "aff":.sa|
00000df0  76 65 64 72 61 77 28 66  24 29 0d 06 e0 1b c9 20  |vedraw(f$)..... |
00000e00  22 66 66 39 22 3a f2 73  61 76 65 73 70 72 69 74  |"ff9":.savesprit|
00000e10  65 28 66 24 29 0d 06 ea  19 c9 20 22 66 66 66 22  |e(f$)..... "fff"|
00000e20  3a f2 73 61 76 65 70 61  72 73 28 66 24 29 0d 06  |:.savepars(f$)..|
00000e30  f4 05 cb 0d 06 fe 11 c8  99 20 26 34 30 30 44 34  |......... &400D4|
00000e40  2c 2c 2d 31 0d 07 08 05  cc 0d 07 12 3c 24 42 25  |,,-1........<$B%|
00000e50  3d 22 20 20 20 20 20 20  54 6f 20 73 61 76 65 2c  |="      To save,|
00000e60  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 74  | drag the icon t|
00000e70  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 76 69  |o a directory vi|
00000e80  65 77 65 72 22 0d 07 1c  18 c8 99 20 26 34 30 30  |ewer"...... &400|
00000e90  44 46 2c 42 25 2c 31 2c  70 72 6f 67 24 0d 07 26  |DF,B%,1,prog$..&|
00000ea0  05 cd 0d 07 30 05 e1 0d  07 3a 05 3a 0d 07 44 12  |....0....:.:..D.|
00000eb0  dd f2 69 6e 69 74 69 61  74 65 73 61 76 65 0d 07  |..initiatesave..|
00000ec0  4e 2a e7 20 74 79 24 3d  22 61 66 66 22 20 f2 73  |N*. ty$="aff" .s|
00000ed0  61 76 65 70 61 74 68 20  8b 20 73 61 76 65 6c 65  |avepath . savele|
00000ee0  6e 25 3d 26 34 30 30 30  0d 07 58 11 c8 99 20 26  |n%=&4000..X... &|
00000ef0  34 30 30 43 46 2c 2c 42  25 0d 07 62 1b 42 25 21  |400CF,,B%..b.B%!|
00000f00  32 30 3d 42 25 21 31 32  3a 42 25 21 32 34 3d 42  |20=B%!12:B%!24=B|
00000f10  25 21 31 36 0d 07 6c 19  42 25 21 32 38 3d 42 25  |%!16..l.B%!28=B%|
00000f20  21 30 3a 42 25 21 33 32  3d 42 25 21 34 0d 07 76  |!0:B%!32=B%!4..v|
00000f30  12 42 25 21 33 36 3d 73  61 76 65 6c 65 6e 25 0d  |.B%!36=savelen%.|
00000f40  07 80 1c 42 25 21 30 3d  32 35 36 3a 42 25 21 31  |...B%!0=256:B%!1|
00000f50  32 3d 30 3a 42 25 21 31  36 3d 31 0d 07 8a 14 42  |2=0:B%!16=1....B|
00000f60  25 21 34 30 3d a0 28 22  26 22 2b 74 79 24 29 0d  |%!40=.("&"+ty$).|
00000f70  07 94 24 24 28 42 25 2b  34 34 29 3d a4 67 65 74  |..$$(B%+44)=.get|
00000f80  6c 65 61 66 28 a4 74 65  78 74 28 73 62 78 25 2c  |leaf(.text(sbx%,|
00000f90  32 29 29 0d 07 9e 1f c8  99 20 26 34 30 30 45 37  |2))...... &400E7|
00000fa0  2c 31 37 2c 42 25 2c 42  25 21 32 30 2c 42 25 21  |,17,B%,B%!20,B%!|
00000fb0  32 34 0d 07 a8 05 e1 0d  07 b2 05 3a 0d 07 bc 14  |24.........:....|
00000fc0  dd a4 67 65 74 6c 65 61  66 28 6e 61 6d 65 24 29  |..getleaf(name$)|
00000fd0  0d 07 c6 12 c8 95 20 a7  6e 61 6d 65 24 2c 22 2e  |...... .name$,".|
00000fe0  22 29 0d 07 d0 1f 6e 61  6d 65 24 3d c1 6e 61 6d  |")....name$=.nam|
00000ff0  65 24 2c a7 6e 61 6d 65  24 2c 22 2e 22 29 2b 31  |e$,.name$,".")+1|
00001000  29 0d 07 da 05 ce 0d 07  e4 0d 3d 6e 61 6d 65 24  |).........=name$|
00001010  2b bd 30 0d 07 ee 05 3a  0d 07 f8 0e dd f2 64 61  |+.0....:......da|
00001020  74 61 73 61 76 65 0d 08  02 15 66 24 3d a4 73 74  |tasave....f$=.st|
00001030  72 69 6e 67 28 42 25 2b  34 34 29 0d 08 0c 0c c8  |ring(B%+44).....|
00001040  8e 20 74 79 24 20 ca 0d  08 16 1b 20 20 c9 20 22  |. ty$ .....  . "|
00001050  61 66 66 22 3a f2 73 61  76 65 64 72 61 77 28 66  |aff":.savedraw(f|
00001060  24 29 0d 08 20 1d 20 20  c9 20 22 66 66 39 22 3a  |$).. .  . "ff9":|
00001070  f2 73 61 76 65 73 70 72  69 74 65 28 66 24 29 0d  |.savesprite(f$).|
00001080  08 2a 1b 20 20 c9 20 22  66 66 66 22 3a f2 73 61  |.*.  . "fff":.sa|
00001090  76 65 70 61 72 73 28 66  24 29 0d 08 34 05 cb 0d  |vepars(f$)..4...|
000010a0  08 3e 11 c8 99 20 26 34  30 30 44 34 2c 2c 2d 31  |.>... &400D4,,-1|
000010b0  0d 08 48 1e 42 25 21 31  32 3d 42 25 21 38 3a 42  |..H.B%!12=B%!8:B|
000010c0  25 21 31 36 3d 33 3a 21  42 25 3d 32 35 36 0d 08  |%!16=3:!B%=256..|
000010d0  52 1f c8 99 20 26 34 30  30 45 37 2c 31 38 2c 42  |R... &400E7,18,B|
000010e0  25 2c 42 25 21 32 30 2c  42 25 21 32 34 0d 08 5c  |%,B%!20,B%!24..\|
000010f0  05 e1 0d 08 66 05 3a 0d  08 70 14 dd f2 73 61 76  |....f.:..p...sav|
00001100  65 73 70 72 69 74 65 28  64 24 29 0d 08 7a 19 e7  |esprite(d$)..z..|
00001110  20 97 64 24 3c 3e 97 22  3c 22 20 73 66 69 6c 65  | .d$<>."<" sfile|
00001120  24 3d 64 24 0d 08 84 17  c8 99 20 26 32 45 2c 26  |$=d$...... &2E,&|
00001130  31 30 43 2c 70 69 63 25  2c 64 24 0d 08 8e 05 e1  |10C,pic%,d$.....|
00001140  0d 08 98 05 3a 0d 08 a2  23 dd a4 73 70 72 69 74  |....:...#..sprit|
00001150  65 69 6e 69 74 28 6d 6f  64 65 25 2c 77 25 2c 68  |einit(mode%,w%,h|
00001160  25 2c 6e 61 6d 65 24 29  0d 08 ac 19 c8 99 20 26  |%,name$)...... &|
00001170  33 35 2c 6d 6f 64 65 25  2c 37 20 b8 20 2c 2c 73  |35,mode%,7 . ,,s|
00001180  63 0d 08 b6 22 6c 65 6e  25 3d 73 63 2a 77 25 2a  |c..."len%=sc*w%*|
00001190  68 25 2f 28 31 32 38 30  2a 31 30 32 34 29 2b 26  |h%/(1280*1024)+&|
000011a0  31 30 30 0d 08 c0 0f de  20 70 69 63 25 20 6c 65  |100..... pic% le|
000011b0  6e 25 0d 08 ca 2c 21 70  69 63 25 3d 6c 65 6e 25  |n%...,!pic%=len%|
000011c0  3a 70 69 63 25 21 34 3d  30 3a 70 69 63 25 21 38  |:pic%!4=0:pic%!8|
000011d0  3d 31 36 3a 70 69 63 25  21 31 32 3d 31 36 0d 08  |=16:pic%!12=16..|
000011e0  d4 1b c8 99 20 26 33 35  2c 6d 6f 64 65 25 2c 34  |.... &35,mode%,4|
000011f0  20 b8 20 2c 2c 78 65 69  67 0d 08 de 1b c8 99 20  | . ,,xeig...... |
00001200  26 33 35 2c 6d 6f 64 65  25 2c 35 20 b8 20 2c 2c  |&35,mode%,5 . ,,|
00001210  79 65 69 67 0d 08 e8 14  c8 99 20 26 32 45 2c 26  |yeig...... &2E,&|
00001220  31 30 39 2c 70 69 63 25  0d 08 f2 34 c8 99 20 26  |109,pic%...4.. &|
00001230  32 45 2c 26 31 30 46 2c  70 69 63 25 2c 6e 61 6d  |2E,&10F,pic%,nam|
00001240  65 24 2c 31 2c 77 25 3e  3e 78 65 69 67 2c 68 25  |e$,1,w%>>xeig,h%|
00001250  3e 3e 79 65 69 67 2c 6d  6f 64 65 25 0d 08 fc 2b  |>>yeig,mode%...+|
00001260  c8 99 20 26 32 45 2c 26  31 32 35 2c 70 69 63 25  |.. &2E,&125,pic%|
00001270  2c 6e 61 6d 65 24 2c 2d  31 20 b8 20 2c 2c 2c 2c  |,name$,-1 . ,,,,|
00001280  73 70 72 70 61 6c 25 0d  09 06 09 3d 70 69 63 25  |sprpal%....=pic%|
00001290  0d 09 10 05 3a 0d 09 1a  10 dd f2 64 72 61 77 73  |....:......draws|
000012a0  70 72 69 74 65 0d 09 24  16 ea 20 72 31 2c 72 32  |prite..$.. r1,r2|
000012b0  2c 72 33 2c 61 2c 62 2c  6d 78 25 0d 09 2e 1d 64  |,r3,a,b,mx%....d|
000012c0  6f 6e 65 25 3d b9 3a 6d  61 73 6b 25 3d 30 3a 6e  |one%=.:mask%=0:n|
000012d0  64 72 61 77 25 2b 3d 31  0d 09 38 0d f2 73 65 74  |draw%+=1..8..set|
000012e0  75 70 70 69 63 0d 09 42  0e e7 20 69 6e 6e 65 72  |uppic..B.. inner|
000012f0  25 20 8c 0d 09 4c 23 e7  20 72 33 3c 72 32 20 72  |% ...L#. r3<r2 r|
00001300  66 3d 72 31 20 8b 20 72  66 3d 72 31 2b 32 2a 28  |f=r1 . rf=r1+2*(|
00001310  72 33 2d 72 32 29 0d 09  56 35 e7 20 72 66 3e 32  |r3-r2)..V5. rf>2|
00001320  34 38 20 66 61 63 3d 32  34 38 2f 72 66 3a 72 32  |48 fac=248/rf:r2|
00001330  3d 72 32 2a 66 61 63 3a  72 33 3d 72 33 2a 66 61  |=r2*fac:r3=r3*fa|
00001340  63 3a 72 31 3d 72 31 2a  66 61 63 0d 09 60 05 cc  |c:r1=r1*fac..`..|
00001350  0d 09 6a 19 e7 20 72 33  3c 72 32 20 72 66 3d 72  |..j.. r3<r2 rf=r|
00001360  32 20 8b 20 72 66 3d 72  33 0d 09 74 41 e7 20 72  |2 . rf=r3..tA. r|
00001370  31 2b 32 2a 72 66 3e 32  34 38 20 66 61 63 3d 32  |1+2*rf>248 fac=2|
00001380  34 38 2f 28 72 31 2b 32  2a 72 66 29 3a 72 31 3d  |48/(r1+2*rf):r1=|
00001390  66 61 63 2a 72 31 3a 72  32 3d 66 61 63 2a 72 32  |fac*r1:r2=fac*r2|
000013a0  3a 72 33 3d 66 61 63 2a  72 33 0d 09 7e 05 cd 0d  |:r3=fac*r3..~...|
000013b0  09 88 3b e7 20 69 6e 6e  65 72 25 20 72 3d 72 31  |..;. inner% r=r1|
000013c0  2d 72 32 3a 6e 62 6f 78  25 3d 32 2a 72 31 20 8b  |-r2:nbox%=2*r1 .|
000013d0  20 72 3d 72 31 2b 72 32  3a 6e 62 6f 78 25 3d 32  | r=r1+r2:nbox%=2|
000013e0  2a 28 72 31 2b 32 2a 72  66 29 0d 09 92 40 e7 20  |*(r1+2*rf)...@. |
000013f0  6e 65 77 25 20 78 33 3d  32 35 36 2b 72 2b 72 33  |new% x3=256+r+r3|
00001400  3a 79 33 3d 32 35 36 3a  61 33 3d 30 3a 62 33 3d  |:y3=256:a3=0:b3=|
00001410  30 3a 6e 65 77 25 3d a3  3a 64 6f 64 72 61 77 25  |0:new%=.:dodraw%|
00001420  3d 31 3a 70 69 63 69 25  3d 31 0d 09 9c 1a 6c 69  |=1:pici%=1....li|
00001430  6e 65 28 30 2c 6e 64 72  61 77 25 29 3d 6e 65 77  |ne(0,ndraw%)=new|
00001440  63 6f 6c 25 0d 09 a6 14  6c 69 6e 65 28 31 2c 6e  |col%....line(1,n|
00001450  64 72 61 77 25 29 3d 72  0d 09 b0 15 6c 69 6e 65  |draw%)=r....line|
00001460  28 32 2c 6e 64 72 61 77  25 29 3d 72 31 0d 09 ba  |(2,ndraw%)=r1...|
00001470  15 6c 69 6e 65 28 33 2c  6e 64 72 61 77 25 29 3d  |.line(3,ndraw%)=|
00001480  72 32 0d 09 c4 15 6c 69  6e 65 28 34 2c 6e 64 72  |r2....line(4,ndr|
00001490  61 77 25 29 3d 72 33 0d  09 ce 14 6c 69 6e 65 28  |aw%)=r3....line(|
000014a0  35 2c 6e 64 72 61 77 25  29 3d 61 0d 09 d8 14 6c  |5,ndraw%)=a....l|
000014b0  69 6e 65 28 36 2c 6e 64  72 61 77 25 29 3d 62 0d  |ine(6,ndraw%)=b.|
000014c0  09 e2 19 6c 69 6e 65 28  37 2c 6e 64 72 61 77 25  |...line(7,ndraw%|
000014d0  29 3d 69 6e 6e 65 72 25  0d 09 ec 16 6c 69 6e 65  |)=inner%....line|
000014e0  28 38 2c 6e 64 72 61 77  25 29 3d 6d 78 25 0d 09  |(8,ndraw%)=mx%..|
000014f0  f6 17 6c 69 6e 65 28 39  2c 6e 64 72 61 77 25 29  |..line(9,ndraw%)|
00001500  3d 6e 69 62 25 0d 0a 00  16 f2 6f 70 65 6e 77 69  |=nib%.....openwi|
00001510  6e 64 6f 77 28 64 69 73  70 25 29 0d 0a 0a 05 e1  |ndow(disp%).....|
00001520  0d 0a 14 05 3a 0d 0a 1e  0d dd f2 64 72 61 77 62  |....:......drawb|
00001530  65 7a 0d 0a 28 14 f2 6d  61 6b 65 78 79 28 64 6f  |ez..(..makexy(do|
00001540  64 72 61 77 25 29 0d 0a  32 27 21 62 65 7a 25 3d  |draw%)..2'!bez%=|
00001550  32 3a 62 65 7a 25 21 34  3d 32 35 36 2a 78 30 3a  |2:bez%!4=256*x0:|
00001560  62 65 7a 25 21 38 3d 32  35 36 2a 79 30 0d 0a 3c  |bez%!8=256*y0..<|
00001570  0d 62 65 7a 25 21 31 32  3d 36 0d 0a 46 23 62 65  |.bez%!12=6..F#be|
00001580  7a 25 21 31 36 3d 32 35  36 2a 63 78 31 3a 62 65  |z%!16=256*cx1:be|
00001590  7a 25 21 32 30 3d 32 35  36 2a 63 79 31 0d 0a 50  |z%!20=256*cy1..P|
000015a0  23 62 65 7a 25 21 32 34  3d 32 35 36 2a 63 78 32  |#bez%!24=256*cx2|
000015b0  3a 62 65 7a 25 21 32 38  3d 32 35 36 2a 63 79 32  |:bez%!28=256*cy2|
000015c0  0d 0a 5a 21 62 65 7a 25  21 33 32 3d 32 35 36 2a  |..Z!bez%!32=256*|
000015d0  78 33 3a 62 65 7a 25 21  33 36 3d 32 35 36 2a 79  |x3:bez%!36=256*y|
000015e0  33 0d 0a 64 0d 62 65 7a  25 21 34 30 3d 30 0d 0a  |3..d.bez%!40=0..|
000015f0  6e 2e c8 99 20 26 34 30  37 30 34 2c 62 65 7a 25  |n... &40704,bez%|
00001600  2c 30 2c 30 2c 30 2c 26  34 30 30 2a 74 68 69 73  |,0,0,0,&400*this|
00001610  6e 69 62 25 2c 6a 6f 69  6e 25 2c 30 0d 0a 78 05  |nib%,join%,0..x.|
00001620  e1 0d 0a 82 05 3a 0d 0a  8c 10 dd f2 6d 61 6b 65  |.....:......make|
00001630  78 79 28 64 25 29 0d 0a  96 0f 78 30 3d 78 33 3a  |xy(d%)....x0=x3:|
00001640  79 30 3d 79 33 0d 0a a0  25 61 31 3d 61 33 2b 6c  |y0=y3...%a1=a3+l|
00001650  69 6e 65 28 35 2c 64 25  29 3a 62 31 3d 62 33 2b  |ine(5,d%):b1=b3+|
00001660  6c 69 6e 65 28 36 2c 64  25 29 0d 0a aa 25 61 32  |line(6,d%)...%a2|
00001670  3d 61 31 2b 6c 69 6e 65  28 35 2c 64 25 29 3a 62  |=a1+line(5,d%):b|
00001680  32 3d 62 31 2b 6c 69 6e  65 28 36 2c 64 25 29 0d  |2=b1+line(6,d%).|
00001690  0a b4 25 61 33 3d 61 32  2b 6c 69 6e 65 28 35 2c  |..%a3=a2+line(5,|
000016a0  64 25 29 3a 62 33 3d 62  32 2b 6c 69 6e 65 28 36  |d%):b3=b2+line(6|
000016b0  2c 64 25 29 0d 0a be 55  78 31 3d 32 35 36 2b 6c  |,d%)...Ux1=256+l|
000016c0  69 6e 65 28 31 2c 64 25  29 2a 9b 28 61 31 29 2b  |ine(1,d%)*.(a1)+|
000016d0  6c 69 6e 65 28 34 2c 64  25 29 2a 9b 28 62 31 29  |line(4,d%)*.(b1)|
000016e0  3a 79 31 3d 32 35 36 2b  6c 69 6e 65 28 31 2c 64  |:y1=256+line(1,d|
000016f0  25 29 2a b5 28 61 31 29  2d 6c 69 6e 65 28 34 2c  |%)*.(a1)-line(4,|
00001700  64 25 29 2a b5 28 62 31  29 0d 0a c8 55 78 32 3d  |d%)*.(b1)...Ux2=|
00001710  32 35 36 2b 6c 69 6e 65  28 31 2c 64 25 29 2a 9b  |256+line(1,d%)*.|
00001720  28 61 32 29 2b 6c 69 6e  65 28 34 2c 64 25 29 2a  |(a2)+line(4,d%)*|
00001730  9b 28 62 32 29 3a 79 32  3d 32 35 36 2b 6c 69 6e  |.(b2):y2=256+lin|
00001740  65 28 31 2c 64 25 29 2a  b5 28 61 32 29 2d 6c 69  |e(1,d%)*.(a2)-li|
00001750  6e 65 28 34 2c 64 25 29  2a b5 28 62 32 29 0d 0a  |ne(4,d%)*.(b2)..|
00001760  d2 55 78 33 3d 32 35 36  2b 6c 69 6e 65 28 31 2c  |.Ux3=256+line(1,|
00001770  64 25 29 2a 9b 28 61 33  29 2b 6c 69 6e 65 28 34  |d%)*.(a3)+line(4|
00001780  2c 64 25 29 2a 9b 28 62  33 29 3a 79 33 3d 32 35  |,d%)*.(b3):y3=25|
00001790  36 2b 6c 69 6e 65 28 31  2c 64 25 29 2a b5 28 61  |6+line(1,d%)*.(a|
000017a0  33 29 2d 6c 69 6e 65 28  34 2c 64 25 29 2a b5 28  |3)-line(4,d%)*.(|
000017b0  62 33 29 0d 0a dc 20 63  78 31 3d 2d 35 2a 78 30  |b3)... cx1=-5*x0|
000017c0  2f 36 2d 31 2e 35 2a 78  32 2b 33 2a 78 31 2b 78  |/6-1.5*x2+3*x1+x|
000017d0  33 2f 33 0d 0a e6 20 63  79 31 3d 2d 35 2a 79 30  |3/3... cy1=-5*y0|
000017e0  2f 36 2d 31 2e 35 2a 79  32 2b 33 2a 79 31 2b 79  |/6-1.5*y2+3*y1+y|
000017f0  33 2f 33 0d 0a f0 20 63  78 32 3d 2d 35 2a 78 33  |3/3... cx2=-5*x3|
00001800  2f 36 2d 31 2e 35 2a 78  31 2b 33 2a 78 32 2b 78  |/6-1.5*x1+3*x2+x|
00001810  30 2f 33 0d 0a fa 20 63  79 32 3d 2d 35 2a 79 33  |0/3... cy2=-5*y3|
00001820  2f 36 2d 31 2e 35 2a 79  31 2b 33 2a 79 32 2b 79  |/6-1.5*y1+3*y2+y|
00001830  30 2f 33 0d 0b 04 05 e1  0d 0b 0e 05 3a 0d 0b 18  |0/3.........:...|
00001840  10 dd a4 6d 61 78 28 61  25 2c 62 25 29 0d 0b 22  |...max(a%,b%).."|
00001850  08 66 25 3d 31 0d 0b 2c  0f e3 69 25 3d 62 25 b8  |.f%=1..,..i%=b%.|
00001860  32 88 2d 31 0d 0b 36 18  c8 95 20 61 25 83 69 25  |2.-1..6... a%.i%|
00001870  3d 30 20 80 20 62 25 83  69 25 3d 30 0d 0b 40 1e  |=0 . b%.i%=0..@.|
00001880  61 25 3d 61 25 81 69 25  3a 62 25 3d 62 25 81 69  |a%=a%.i%:b%=b%.i|
00001890  25 3a 66 25 3d 66 25 2a  69 25 0d 0b 4a 05 ce 0d  |%:f%=f%*i%..J...|
000018a0  0b 54 05 ed 0d 0b 5e 0d  3d 66 25 2a 61 25 2a 62  |.T....^.=f%*a%*b|
000018b0  25 0d 0b 68 05 3a 0d 0b  72 04 0d 0b 7c 17 dd f2  |%..h.:..r...|...|
000018c0  63 68 65 63 6b 28 69 25  2c f8 20 76 2c 6d 61 78  |check(i%,. v,max|
000018d0  29 0d 0b 86 08 ea 20 64  24 0d 0b 90 15 64 24 3d  |)..... d$....d$=|
000018e0  a4 74 65 78 74 28 6f 70  74 25 2c 69 25 29 0d 0b  |.text(opt%,i%)..|
000018f0  9a 2b e7 20 64 24 3e 22  22 20 76 3d a0 64 24 20  |.+. d$>"" v=.d$ |
00001900  8b 20 f2 63 68 61 6e 67  65 74 65 78 74 28 6f 70  |. .changetext(op|
00001910  74 25 2c 69 25 2c c3 76  29 0d 0b a4 19 e7 20 6d  |t%,i%,.v)..... m|
00001920  61 78 3e 30 20 e7 20 76  3e 6d 61 78 20 76 3d 6d  |ax>0 . v>max v=m|
00001930  61 78 0d 0b ae 2b e7 20  64 24 3c 3e c3 76 20 64  |ax...+. d$<>.v d|
00001940  24 3d c3 a8 76 3a f2 63  68 61 6e 67 65 74 65 78  |$=..v:.changetex|
00001950  74 28 6f 70 74 25 2c 69  25 2c 64 24 29 0d 0b b8  |t(opt%,i%,d$)...|
00001960  05 e1 0d 0b c2 05 3a 0d  0b cc 0e dd f2 73 65 74  |......:......set|
00001970  75 70 70 69 63 0d 0b d6  12 f2 63 68 65 63 6b 28  |uppic.....check(|
00001980  30 2c 72 31 2c 30 29 0d  0b e0 12 f2 63 68 65 63  |0,r1,0).....chec|
00001990  6b 28 31 2c 72 32 2c 30  29 0d 0b ea 12 f2 63 68  |k(1,r2,0).....ch|
000019a0  65 63 6b 28 32 2c 72 33  2c 30 29 0d 0b f4 13 f2  |eck(2,r3,0).....|
000019b0  63 68 65 63 6b 28 33 2c  70 31 25 2c 30 29 0d 0b  |check(3,p1%,0)..|
000019c0  fe 13 f2 63 68 65 63 6b  28 34 2c 70 32 25 2c 30  |...check(4,p2%,0|
000019d0  29 0d 0c 08 04 0d 0c 12  1d e7 20 70 31 25 3c 3e  |)......... p1%<>|
000019e0  6f 70 31 25 20 84 20 70  32 25 3c 3e 6f 70 32 25  |op1% . p2%<>op2%|
000019f0  20 8c 0d 0c 1c 1a 20 6c  70 25 3d a4 6d 61 78 28  | ..... lp%=.max(|
00001a00  70 31 25 2c 70 32 25 29  2f 70 31 25 0d 0c 26 1e  |p1%,p2%)/p1%..&.|
00001a10  20 f2 63 68 61 6e 67 65  74 65 78 74 28 6f 70 74  | .changetext(opt|
00001a20  25 2c 32 31 2c c3 6c 70  25 29 0d 0c 30 16 20 6f  |%,21,.lp%)..0. o|
00001a30  70 31 25 3d 70 31 25 3a  6f 70 32 25 3d 70 32 25  |p1%=p1%:op2%=p2%|
00001a40  0d 0c 3a 05 cd 0d 0c 44  04 0d 0c 4e 24 f2 63 68  |..:....D...N$.ch|
00001a50  65 63 6b 28 32 31 2c 6c  70 25 2c a4 6d 61 78 28  |eck(21,lp%,.max(|
00001a60  70 31 25 2c 70 32 25 29  2f 70 31 25 29 0d 0c 58  |p1%,p2%)/p1%)..X|
00001a70  0f 6d 78 25 3d 6c 70 25  2a 70 31 25 0d 0c 62 17  |.mx%=lp%*p1%..b.|
00001a80  61 3d 70 69 32 2f 70 31  25 3a 62 3d 70 69 32 2f  |a=pi2/p1%:b=pi2/|
00001a90  70 32 25 0d 0c 6c 04 0d  0c 76 15 64 65 66 25 28  |p2%..l...v.def%(|
00001aa0  30 2c 6e 64 72 61 77 25  29 3d 72 31 0d 0c 80 15  |0,ndraw%)=r1....|
00001ab0  64 65 66 25 28 31 2c 6e  64 72 61 77 25 29 3d 72  |def%(1,ndraw%)=r|
00001ac0  32 0d 0c 8a 15 64 65 66  25 28 32 2c 6e 64 72 61  |2....def%(2,ndra|
00001ad0  77 25 29 3d 72 33 0d 0c  94 16 64 65 66 25 28 33  |w%)=r3....def%(3|
00001ae0  2c 6e 64 72 61 77 25 29  3d 70 31 25 0d 0c 9e 16  |,ndraw%)=p1%....|
00001af0  64 65 66 25 28 34 2c 6e  64 72 61 77 25 29 3d 70  |def%(4,ndraw%)=p|
00001b00  32 25 0d 0c a8 1a 64 65  66 25 28 35 2c 6e 64 72  |2%....def%(5,ndr|
00001b10  61 77 25 29 3d 6e 65 77  63 6f 6c 25 0d 0c b2 17  |aw%)=newcol%....|
00001b20  64 65 66 25 28 36 2c 6e  64 72 61 77 25 29 3d 6e  |def%(6,ndraw%)=n|
00001b30  69 62 25 0d 0c bc 16 64  65 66 25 28 37 2c 6e 64  |ib%....def%(7,nd|
00001b40  72 61 77 25 29 3d 6c 70  25 0d 0c c6 19 64 65 66  |raw%)=lp%....def|
00001b50  25 28 38 2c 6e 64 72 61  77 25 29 3d 69 6e 6e 65  |%(8,ndraw%)=inne|
00001b60  72 25 0d 0c d0 04 0d 0c  da 05 e1 0d 0c e4 05 3a  |r%.............:|
00001b70  0d 0c ee 0f dd f2 64 6f  6e 65 78 74 70 69 63 0d  |......donextpic.|
00001b80  0c f8 0f e7 20 70 69 63  69 25 3d 31 20 8c 0d 0d  |.... pici%=1 ...|
00001b90  02 36 78 33 3d 32 35 36  2b 6c 69 6e 65 28 31 2c  |.6x3=256+line(1,|
00001ba0  64 6f 64 72 61 77 25 29  2a 9b 28 61 33 29 2b 6c  |dodraw%)*.(a3)+l|
00001bb0  69 6e 65 28 34 2c 64 6f  64 72 61 77 25 29 2a 9b  |ine(4,dodraw%)*.|
00001bc0  28 62 33 29 0d 0d 0c 36  79 33 3d 32 35 36 2b 6c  |(b3)...6y3=256+l|
00001bd0  69 6e 65 28 31 2c 64 6f  64 72 61 77 25 29 2a b5  |ine(1,dodraw%)*.|
00001be0  28 61 33 29 2d 6c 69 6e  65 28 34 2c 64 6f 64 72  |(a3)-line(4,dodr|
00001bf0  61 77 25 29 2a b5 28 62  33 29 0d 0d 16 05 cd 0d  |aw%)*.(b3)......|
00001c00  0d 20 19 e7 20 6c 69 6e  65 28 30 2c 64 6f 64 72  |. .. line(0,dodr|
00001c10  61 77 25 29 3e 30 20 8c  0d 0d 2a 1c 74 68 69 73  |aw%)>0 ...*.this|
00001c20  6e 69 62 25 3d 6c 69 6e  65 28 39 2c 64 6f 64 72  |nib%=line(9,dodr|
00001c30  61 77 25 29 0d 0d 34 2e  c8 99 20 26 32 45 2c 26  |aw%)..4... &2E,&|
00001c40  31 33 43 2c 70 69 63 25  2c 70 72 6f 67 24 2c 30  |13C,pic%,prog$,0|
00001c50  20 b8 20 73 30 25 2c 73  31 25 2c 73 32 25 2c 73  | . s0%,s1%,s2%,s|
00001c60  33 25 0d 0d 3e 0a 76 64  75 25 3d b9 0d 0d 48 17  |3%..>.vdu%=...H.|
00001c70  e6 20 30 2c 6c 69 6e 65  28 30 2c 64 6f 64 72 61  |. 0,line(0,dodra|
00001c80  77 25 29 0d 0d 52 0c f2  64 72 61 77 62 65 7a 0d  |w%)..R..drawbez.|
00001c90  0d 5c 1a c8 99 20 26 32  45 2c 73 30 25 2c 73 31  |.\... &2E,s0%,s1|
00001ca0  25 2c 73 32 25 2c 73 33  25 0d 0d 66 0a 76 64 75  |%,s2%,s3%..f.vdu|
00001cb0  25 3d a3 0d 0d 70 21 e7  20 64 72 61 77 6f 70 25  |%=...p!. drawop%|
00001cc0  20 f2 69 63 6f 6e 73 74  61 74 65 28 64 69 73 70  | .iconstate(disp|
00001cd0  25 2c 30 29 0d 0d 7a 05  cc 0d 0d 84 14 f2 6d 61  |%,0)..z.......ma|
00001ce0  6b 65 78 79 28 64 6f 64  72 61 77 25 29 0d 0d 8e  |kexy(dodraw%)...|
00001cf0  05 cd 0d 0d 98 0c 70 69  63 69 25 2b 3d 33 0d 0d  |......pici%+=3..|
00001d00  a2 1d e7 20 70 69 63 69  25 3e 6c 69 6e 65 28 38  |... pici%>line(8|
00001d10  2c 64 6f 64 72 61 77 25  29 20 8c 0d 0d ac 16 64  |,dodraw%) .....d|
00001d20  6f 64 72 61 77 25 2b 3d  31 3a 70 69 63 69 25 3d  |odraw%+=1:pici%=|
00001d30  31 0d 0d b6 1c e7 20 64  6f 64 72 61 77 25 3e 6e  |1..... dodraw%>n|
00001d40  64 72 61 77 25 20 6d 61  73 6b 25 3d 31 0d 0d c0  |draw% mask%=1...|
00001d50  22 e7 20 ac 20 64 72 61  77 6f 70 25 20 f2 6f 70  |". . drawop% .op|
00001d60  65 6e 77 69 6e 64 6f 77  28 64 69 73 70 25 29 0d  |enwindow(disp%).|
00001d70  0d ca 15 f2 75 6e 73 68  61 64 65 28 6d 65 6e 75  |....unshade(menu|
00001d80  25 2c 31 29 0d 0d d4 15  f2 75 6e 73 68 61 64 65  |%,1).....unshade|
00001d90  28 6d 65 6e 75 25 2c 32  29 0d 0d de 05 cd 0d 0d  |(menu%,2).......|
00001da0  e8 05 e1 0d 0d f2 05 3a  0d 0d fc 0a dd f2 75 6e  |.......:......un|
00001db0  64 6f 0d 0e 06 1f 6e 64  72 61 77 25 2d 3d 31 3a  |do....ndraw%-=1:|
00001dc0  64 6f 64 72 61 77 25 3d  30 3a 6e 62 6f 78 25 3d  |dodraw%=0:nbox%=|
00001dd0  30 0d 0e 10 2f 78 33 3d  32 35 36 2b 6c 69 6e 65  |0.../x3=256+line|
00001de0  28 31 2c 31 29 2b 6c 69  6e 65 28 34 2c 31 29 3a  |(1,1)+line(4,1):|
00001df0  79 33 3d 32 35 36 3a 61  33 3d 30 3a 62 33 3d 30  |y3=256:a3=0:b3=0|
00001e00  0d 0e 1a 2e c8 99 20 26  32 45 2c 26 31 33 43 2c  |...... &2E,&13C,|
00001e10  70 69 63 25 2c 70 72 6f  67 24 2c 30 20 b8 20 73  |pic%,prog$,0 . s|
00001e20  30 25 2c 73 31 25 2c 73  32 25 2c 73 33 25 0d 0e  |0%,s1%,s2%,s3%..|
00001e30  24 05 db 0d 0e 2e 1a c8  99 20 26 32 45 2c 73 30  |$........ &2E,s0|
00001e40  25 2c 73 31 25 2c 73 32  25 2c 73 33 25 0d 0e 38  |%,s1%,s2%,s3%..8|
00001e50  36 e7 20 64 72 61 77 6f  70 25 20 f2 69 63 6f 6e  |6. drawop% .icon|
00001e60  73 74 61 74 65 28 64 69  73 70 25 2c 30 29 20 8b  |state(disp%,0) .|
00001e70  20 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 64 69 73  | .openwindow(dis|
00001e80  70 25 29 0d 0e 42 10 e7  20 6e 64 72 61 77 25 3d  |p%)..B.. ndraw%=|
00001e90  30 20 8c 0d 0e 4c 0a 6e  65 77 25 3d b9 0d 0e 56  |0 ...L.new%=...V|
00001ea0  13 f2 73 68 61 64 65 28  6d 65 6e 75 25 2c 31 29  |..shade(menu%,1)|
00001eb0  0d 0e 60 13 f2 73 68 61  64 65 28 6d 65 6e 75 25  |..`..shade(menu%|
00001ec0  2c 32 29 0d 0e 6a 05 cc  0d 0e 74 0b 6d 61 73 6b  |,2)..j....t.mask|
00001ed0  25 3d 30 0d 0e 7e 05 cd  0d 0e 88 05 e1 0d 0e 92  |%=0..~..........|
00001ee0  05 3a 0d 0e 9c 0b dd f2  63 6c 65 61 72 0d 0e a6  |.:......clear...|
00001ef0  26 6e 64 72 61 77 25 3d  30 3a 64 6f 64 72 61 77  |&ndraw%=0:dodraw|
00001f00  25 3d 30 3a 6e 62 6f 78  25 3d 30 3a 6d 61 73 6b  |%=0:nbox%=0:mask|
00001f10  25 3d 31 0d 0e b0 2e c8  99 20 26 32 45 2c 26 31  |%=1...... &2E,&1|
00001f20  33 43 2c 70 69 63 25 2c  70 72 6f 67 24 2c 30 20  |3C,pic%,prog$,0 |
00001f30  b8 20 73 30 25 2c 73 31  25 2c 73 32 25 2c 73 33  |. s0%,s1%,s2%,s3|
00001f40  25 0d 0e ba 05 db 0d 0e  c4 1a c8 99 20 26 32 45  |%........... &2E|
00001f50  2c 73 30 25 2c 73 31 25  2c 73 32 25 2c 73 33 25  |,s0%,s1%,s2%,s3%|
00001f60  0d 0e ce 36 e7 20 64 72  61 77 6f 70 25 20 f2 69  |...6. drawop% .i|
00001f70  63 6f 6e 73 74 61 74 65  28 64 69 73 70 25 2c 30  |constate(disp%,0|
00001f80  29 20 8b 20 f2 6f 70 65  6e 77 69 6e 64 6f 77 28  |) . .openwindow(|
00001f90  64 69 73 70 25 29 0d 0e  d8 0a 6e 65 77 25 3d b9  |disp%)....new%=.|
00001fa0  0d 0e e2 13 f2 73 68 61  64 65 28 6d 65 6e 75 25  |.....shade(menu%|
00001fb0  2c 31 29 0d 0e ec 13 f2  73 68 61 64 65 28 6d 65  |,1).....shade(me|
00001fc0  6e 75 25 2c 32 29 0d 0e  f6 05 e1 0d 0f 00 05 3a  |nu%,2).........:|
00001fd0  0d 0f 0a 0b dd f2 61 62  6f 72 74 0d 0f 14 1c 64  |......abort....d|
00001fe0  6f 64 72 61 77 25 3d 6e  64 72 61 77 25 2b 31 3a  |odraw%=ndraw%+1:|
00001ff0  6d 61 73 6b 25 3d 31 0d  0f 1e 22 e7 20 ac 20 64  |mask%=1...". . d|
00002000  72 61 77 6f 70 25 20 f2  6f 70 65 6e 77 69 6e 64  |rawop% .openwind|
00002010  6f 77 28 64 69 73 70 25  29 0d 0f 28 15 f2 75 6e  |ow(disp%)..(..un|
00002020  73 68 61 64 65 28 6d 65  6e 75 25 2c 31 29 0d 0f  |shade(menu%,1)..|
00002030  32 15 f2 75 6e 73 68 61  64 65 28 6d 65 6e 75 25  |2..unshade(menu%|
00002040  2c 32 29 0d 0f 3c 05 e1  0d 0f 46 05 3a 0d 0f 50  |,2)..<....F.:..P|
00002050  14 dd f2 73 65 74 75 70  73 61 76 65 28 6e 64 25  |...setupsave(nd%|
00002060  29 0d 0f 5a 3e 72 3d 6c  69 6e 65 28 31 2c 6e 64  |)..Z>r=line(1,nd|
00002070  25 29 3a 72 31 3d 6c 69  6e 65 28 32 2c 6e 64 25  |%):r1=line(2,nd%|
00002080  29 3a 72 32 3d 6c 69 6e  65 28 33 2c 6e 64 25 29  |):r2=line(3,nd%)|
00002090  3a 72 33 3d 6c 69 6e 65  28 34 2c 6e 64 25 29 0d  |:r3=line(4,nd%).|
000020a0  0f 64 1f 61 3d 6c 69 6e  65 28 35 2c 6e 64 25 29  |.d.a=line(5,nd%)|
000020b0  3a 62 3d 6c 69 6e 65 28  36 2c 6e 64 25 29 0d 0f  |:b=line(6,nd%)..|
000020c0  6e 16 69 6e 6e 65 72 25  3d 6c 69 6e 65 28 37 2c  |n.inner%=line(7,|
000020d0  6e 64 25 29 0d 0f 78 13  6d 78 25 3d 6c 69 6e 65  |nd%)..x.mx%=line|
000020e0  28 38 2c 6e 64 25 29 0d  0f 82 1e e7 20 69 6e 6e  |(8,nd%)..... inn|
000020f0  65 72 25 20 72 3d 72 31  2d 72 32 20 8b 20 72 3d  |er% r=r1-r2 . r=|
00002100  72 31 2b 72 32 0d 0f 8c  05 e1 0d 0f 96 05 3a 0d  |r1+r2.........:.|
00002110  0f a0 15 dd f2 73 61 76  65 70 61 72 73 28 6e 61  |.....savepars(na|
00002120  6d 65 24 29 0d 0f aa 0d  ea 20 58 2c 69 25 2c 6a  |me$)..... X,i%,j|
00002130  25 0d 0f b4 0d 58 3d ae  20 6e 61 6d 65 24 0d 0f  |%....X=. name$..|
00002140  be 1f ff 28 22 53 45 54  54 59 50 45 20 22 2b 6e  |...("SETTYPE "+n|
00002150  61 6d 65 24 2b 22 20 22  2b 74 79 24 29 0d 0f c8  |ame$+" "+ty$)...|
00002160  1f e7 20 97 6e 61 6d 65  24 3c 3e 97 22 3c 22 20  |.. .name$<>."<" |
00002170  74 66 69 6c 65 24 3d 6e  61 6d 65 24 0d 0f d2 13  |tfile$=name$....|
00002180  d5 23 58 2c 22 53 70 69  72 6f 44 72 61 77 22 0d  |.#X,"SpiroDraw".|
00002190  0f dc 10 e3 69 25 3d 31  b8 6e 64 72 61 77 25 0d  |....i%=1.ndraw%.|
000021a0  0f e6 2f 20 20 d5 23 58  2c 22 46 69 78 65 64 20  |../  .#X,"Fixed |
000021b0  20 22 2b c3 64 65 66 25  28 30 2c 69 25 29 2b 22  | "+.def%(0,i%)+"|
000021c0  20 22 2b c3 64 65 66 25  28 33 2c 69 25 29 0d 0f  | "+.def%(3,i%)..|
000021d0  f0 2f 20 20 d5 23 58 2c  22 4d 6f 76 69 6e 67 20  |./  .#X,"Moving |
000021e0  22 2b c3 64 65 66 25 28  31 2c 69 25 29 2b 22 20  |"+.def%(1,i%)+" |
000021f0  22 2b c3 64 65 66 25 28  34 2c 69 25 29 0d 0f fa  |"+.def%(4,i%)...|
00002200  1f 20 20 d5 23 58 2c 22  50 65 6e 20 20 20 20 22  |.  .#X,"Pen    "|
00002210  2b c3 64 65 66 25 28 32  2c 69 25 29 0d 10 04 1f  |+.def%(2,i%)....|
00002220  20 20 d5 23 58 2c 22 4c  6f 6f 70 73 20 20 22 2b  |  .#X,"Loops  "+|
00002230  c3 64 65 66 25 28 37 2c  69 25 29 0d 10 0e 24 20  |.def%(7,i%)...$ |
00002240  20 d5 23 58 2c 22 43 6f  6c 6f 75 72 20 22 2b 63  | .#X,"Colour "+c|
00002250  6f 6c 24 28 64 65 66 25  28 35 2c 69 25 29 29 0d  |ol$(def%(5,i%)).|
00002260  10 18 1f 20 20 d5 23 58  2c 22 57 69 64 74 68 20  |...  .#X,"Width |
00002270  20 22 2b c3 64 65 66 25  28 36 2c 69 25 29 0d 10  | "+.def%(6,i%)..|
00002280  22 2c 20 20 e7 20 64 65  66 25 28 38 2c 69 25 29  |",  . def%(8,i%)|
00002290  20 d5 23 58 2c 22 49 6e  6e 65 72 22 20 8b 20 d5  | .#X,"Inner" . .|
000022a0  23 58 2c 22 4f 75 74 65  72 22 0d 10 2c 0a d5 23  |#X,"Outer"..,..#|
000022b0  58 2c 22 22 0d 10 36 05  ed 0d 10 40 07 d9 23 58  |X,""..6....@..#X|
000022c0  0d 10 4a 1f ff 28 22 53  45 54 54 59 50 45 20 22  |..J..("SETTYPE "|
000022d0  2b 6e 61 6d 65 24 2b 22  20 22 2b 74 79 24 29 0d  |+name$+" "+ty$).|
000022e0  10 54 05 e1 0d 10 5e 05  3a 0d 10 68 15 dd f2 73  |.T....^.:..h...s|
000022f0  61 76 65 64 72 61 77 28  6e 61 6d 65 24 29 0d 10  |avedraw(name$)..|
00002300  72 36 ff 20 28 22 53 41  56 45 20 22 2b 6e 61 6d  |r6. ("SAVE "+nam|
00002310  65 24 2b 22 20 22 2b c3  7e 6d 65 6d 73 74 61 72  |e$+" "+.~memstar|
00002320  74 25 2b 22 20 2b 20 22  2b c3 7e 73 61 76 65 6c  |t%+" + "+.~savel|
00002330  65 6e 25 29 0d 10 7c 1f  ff 28 22 53 45 54 54 59  |en%)..|..("SETTY|
00002340  50 45 20 22 2b 6e 61 6d  65 24 2b 22 20 22 2b 74  |PE "+name$+" "+t|
00002350  79 24 29 0d 10 86 1f e7  20 97 6e 61 6d 65 24 3c  |y$)..... .name$<|
00002360  3e 97 22 3c 22 20 64 66  69 6c 65 24 3d 6e 61 6d  |>."<" dfile$=nam|
00002370  65 24 0d 10 90 24 f2 72  65 6c 65 61 73 65 28 6d  |e$...$.release(m|
00002380  65 6d 73 74 61 72 74 25  29 3a 6d 65 6d 73 74 61  |emstart%):memsta|
00002390  72 74 25 3d 2d 31 0d 10  9a 05 e1 0d 10 a4 05 3a  |rt%=-1.........:|
000023a0  0d 10 ae 0e dd f2 73 61  76 65 70 61 74 68 0d 10  |......savepath..|
000023b0  b8 0d c8 99 20 26 34 30  36 43 30 0d 10 c2 10 f2  |.... &406C0.....|
000023c0  6d 61 6b 65 64 72 61 77  28 a3 29 0d 10 cc 1e 6d  |makedraw(.)....m|
000023d0  65 6d 73 74 61 72 74 25  3d a4 63 6c 61 69 6d 28  |emstart%=.claim(|
000023e0  73 61 76 65 6c 65 6e 25  29 0d 10 d6 46 e7 20 6d  |savelen%)...F. m|
000023f0  65 6d 73 74 61 72 74 25  3d 2d 31 20 85 20 31 32  |emstart%=-1 . 12|
00002400  33 2c 22 20 4e 65 65 64  20 6d 6f 72 65 20 52 4d  |3," Need more RM|
00002410  41 20 73 70 61 63 65 20  74 6f 20 73 61 76 65 20  |A space to save |
00002420  74 68 69 73 20 70 69 63  74 75 72 65 22 3a e1 0d  |this picture":..|
00002430  10 e0 10 f2 6d 61 6b 65  64 72 61 77 28 b9 29 0d  |....makedraw(.).|
00002440  10 ea 35 73 74 61 72 74  3d 6d 65 6d 73 74 61 72  |..5start=memstar|
00002450  74 25 3a 74 6f 73 65 6e  64 3d 73 74 61 72 74 2b  |t%:tosend=start+|
00002460  73 61 76 65 6c 65 6e 25  3a 73 65 6e 64 3d 74 6f  |savelen%:send=to|
00002470  73 65 6e 64 0d 10 f4 0d  c8 99 20 26 34 30 36 43  |send...... &406C|
00002480  31 0d 10 fe 05 e1 0d 11  08 05 3a 0d 11 12 15 dd  |1.........:.....|
00002490  f2 6d 61 6b 65 64 72 61  77 28 64 6f 69 74 25 29  |.makedraw(doit%)|
000024a0  0d 11 1c 0d e7 20 64 6f  69 74 25 20 8c 0d 11 26  |..... doit% ...&|
000024b0  12 70 6f 73 25 3d 6d 65  6d 73 74 61 72 74 25 0d  |.pos%=memstart%.|
000024c0  11 30 10 24 70 6f 73 25  3d 22 44 72 61 77 22 0d  |.0.$pos%="Draw".|
000024d0  11 3a 17 70 6f 73 25 21  34 3d 32 30 31 3a 70 6f  |.:.pos%!4=201:po|
000024e0  73 25 21 38 3d 30 0d 11  44 26 24 28 70 6f 73 25  |s%!8=0..D&$(pos%|
000024f0  2b 31 32 29 3d 22 53 70  69 72 44 72 61 77 20 20  |+12)="SpirDraw  |
00002500  20 20 22 3a 70 6f 73 25  2b 3d 32 34 0d 11 4e 1c  |  ":pos%+=24..N.|
00002510  21 70 6f 73 25 3d 30 3a  70 6f 73 25 21 34 3d 30  |!pos%=0:pos%!4=0|
00002520  3a 70 6f 73 25 2b 3d 38  0d 11 58 17 f2 74 72 70  |:pos%+=8..X..trp|
00002530  75 74 28 6e 62 6f 78 25  2c 6e 62 6f 78 25 29 0d  |ut(nbox%,nbox%).|
00002540  11 62 05 cc 0d 11 6c 0b  70 6f 73 25 3d 34 30 0d  |.b....l.pos%=40.|
00002550  11 76 05 cd 0d 11 80 10  67 72 25 3d a4 68 65 61  |.v......gr%=.hea|
00002560  64 28 36 29 0d 11 8a 0d  e7 20 64 6f 69 74 25 20  |d(6)..... doit% |
00002570  8c 0d 11 94 25 e3 69 25  3d 31 b8 33 3a 21 70 6f  |....%.i%=1.3:!po|
00002580  73 25 3d 26 32 30 32 30  32 30 32 30 3a 70 6f 73  |s%=&20202020:pos|
00002590  25 2b 3d 34 3a ed 0d 11  9e 05 cc 0d 11 a8 0c 70  |%+=4:..........p|
000025a0  6f 73 25 2b 3d 31 32 0d  11 b2 05 cd 0d 11 bc 2f  |os%+=12......../|
000025b0  78 33 3d 32 35 36 2b 6c  69 6e 65 28 31 2c 31 29  |x3=256+line(1,1)|
000025c0  2b 6c 69 6e 65 28 34 2c  31 29 3a 79 33 3d 32 35  |+line(4,1):y3=25|
000025d0  36 3a 61 33 3d 30 3a 62  33 3d 30 0d 11 c6 10 e3  |6:a3=0:b3=0.....|
000025e0  73 25 3d 31 b8 6e 64 72  61 77 25 0d 11 d0 12 f2  |s%=1.ndraw%.....|
000025f0  73 65 74 75 70 73 61 76  65 28 73 25 29 0d 11 da  |setupsave(s%)...|
00002600  14 e7 20 6c 69 6e 65 28  30 2c 73 25 29 3e 30 20  |.. line(0,s%)>0 |
00002610  8c 0d 11 e4 0c f2 70 75  74 70 61 74 68 0d 11 ee  |......putpath...|
00002620  05 cc 0d 11 f8 27 e3 69  25 3d 31 b8 20 6c 69 6e  |.....'.i%=1. lin|
00002630  65 28 38 2c 73 25 29 20  88 20 33 3a f2 6d 61 6b  |e(8,s%) . 3:.mak|
00002640  65 78 79 28 73 25 29 3a  ed 0d 12 02 05 cd 0d 12  |exy(s%):........|
00002650  0c 05 ed 0d 12 16 2b e7  20 64 6f 69 74 25 20 21  |......+. doit% !|
00002660  67 72 25 3d 70 6f 73 25  2b 34 2d 67 72 25 20 8b  |gr%=pos%+4-gr% .|
00002670  20 73 61 76 65 6c 65 6e  25 3d 70 6f 73 25 0d 12  | savelen%=pos%..|
00002680  20 05 e1 0d 12 2a 05 3a  0d 12 34 0e dd a4 68 65  | ....*.:..4...he|
00002690  61 64 28 6f 25 29 0d 12  3e 0d 64 25 3d 70 6f 73  |ad(o%)..>.d%=pos|
000026a0  25 2b 34 0d 12 48 0d e7  20 64 6f 69 74 25 20 8c  |%+4..H.. doit% .|
000026b0  0d 12 52 31 21 70 6f 73  25 3d 6f 25 3a 70 6f 73  |..R1!pos%=o%:pos|
000026c0  25 21 34 3d 30 3a 70 6f  73 25 21 38 3d 30 3a 70  |%!4=0:pos%!8=0:p|
000026d0  6f 73 25 21 31 32 3d 30  3a 70 6f 73 25 2b 3d 31  |os%!12=0:pos%+=1|
000026e0  36 0d 12 5c 17 f2 74 72  70 75 74 28 6e 62 6f 78  |6..\..trput(nbox|
000026f0  25 2c 6e 62 6f 78 25 29  0d 12 66 05 cc 0d 12 70  |%,nbox%)..f....p|
00002700  0c 70 6f 73 25 2b 3d 32  34 0d 12 7a 05 cd 0d 12  |.pos%+=24..z....|
00002710  84 07 3d 64 25 0d 12 8e  05 3a 0d 12 98 0d dd f2  |..=d%....:......|
00002720  70 75 74 70 61 74 68 0d  12 a2 10 70 61 25 3d a4  |putpath....pa%=.|
00002730  68 65 61 64 28 32 29 0d  12 ac 5f e7 20 64 6f 69  |head(2)..._. doi|
00002740  74 25 20 21 70 6f 73 25  3d 26 46 46 46 46 46 46  |t% !pos%=&FFFFFF|
00002750  46 46 3a 70 6f 73 25 21  34 3d 73 70 72 70 61 6c  |FF:pos%!4=sprpal|
00002760  25 21 28 38 2a 6c 69 6e  65 28 30 2c 73 25 29 29  |%!(8*line(0,s%))|
00002770  3a 70 6f 73 25 21 38 3d  26 34 30 30 2a 6c 69 6e  |:pos%!8=&400*lin|
00002780  65 28 39 2c 73 25 29 3a  70 6f 73 25 21 31 32 3d  |e(9,s%):pos%!12=|
00002790  25 31 30 31 30 31 0d 12  b6 0c 70 6f 73 25 2b 3d  |%10101....pos%+=|
000027a0  31 36 0d 12 c0 2c 78 33  3d 32 35 36 2b 6c 69 6e  |16...,x3=256+lin|
000027b0  65 28 31 2c 73 25 29 2a  9b 28 61 33 29 2b 6c 69  |e(1,s%)*.(a3)+li|
000027c0  6e 65 28 34 2c 73 25 29  2a 9b 28 62 33 29 0d 12  |ne(4,s%)*.(b3)..|
000027d0  ca 2c 79 33 3d 32 35 36  2b 6c 69 6e 65 28 31 2c  |.,y3=256+line(1,|
000027e0  73 25 29 2a b5 28 61 33  29 2d 6c 69 6e 65 28 34  |s%)*.(a3)-line(4|
000027f0  2c 73 25 29 2a b5 28 62  33 29 0d 12 d4 34 e7 20  |,s%)*.(b3)...4. |
00002800  64 6f 69 74 25 20 21 70  6f 73 25 3d 32 3a 70 6f  |doit% !pos%=2:po|
00002810  73 25 2b 3d 34 3a f2 74  72 70 75 74 28 78 33 2c  |s%+=4:.trput(x3,|
00002820  79 33 29 20 8b 20 70 6f  73 25 2b 3d 31 32 0d 12  |y3) . pos%+=12..|
00002830  de 19 e3 69 25 3d 31 b8  20 6c 69 6e 65 28 38 2c  |...i%=1. line(8,|
00002840  73 25 29 20 88 20 33 0d  12 e8 0f f2 6d 61 6b 65  |s%) . 3.....make|
00002850  78 79 28 73 25 29 0d 12  f2 0d e7 20 64 6f 69 74  |xy(s%)..... doit|
00002860  25 20 8c 0d 12 fc 41 21  70 6f 73 25 3d 36 3a 70  |% ....A!pos%=6:p|
00002870  6f 73 25 2b 3d 34 3a f2  74 72 70 75 74 28 63 78  |os%+=4:.trput(cx|
00002880  31 2c 63 79 31 29 3a f2  74 72 70 75 74 28 63 78  |1,cy1):.trput(cx|
00002890  32 2c 63 79 32 29 3a f2  74 72 70 75 74 28 78 33  |2,cy2):.trput(x3|
000028a0  2c 79 33 29 0d 13 06 05  cc 0d 13 10 0c 70 6f 73  |,y3).........pos|
000028b0  25 2b 3d 32 38 0d 13 1a  05 cd 0d 13 24 05 ed 0d  |%+=28.......$...|
000028c0  13 2e 23 e7 20 64 6f 69  74 25 20 21 70 6f 73 25  |..#. doit% !pos%|
000028d0  3d 30 3a 21 70 61 25 3d  70 6f 73 25 2b 38 2d 70  |=0:!pa%=pos%+8-p|
000028e0  61 25 0d 13 38 0b 70 6f  73 25 2b 3d 34 0d 13 42  |a%..8.pos%+=4..B|
000028f0  05 e1 0d 13 4c 05 3a 0d  13 56 12 dd f2 74 72 70  |....L.:..V...trp|
00002900  75 74 28 78 25 2c 79 25  29 0d 13 60 26 21 70 6f  |ut(x%,y%)..`&!po|
00002910  73 25 3d 78 25 2a 32 35  36 3a 70 6f 73 25 21 34  |s%=x%*256:pos%!4|
00002920  3d 79 25 2a 32 35 36 3a  70 6f 73 25 2b 3d 38 0d  |=y%*256:pos%+=8.|
00002930  13 6a 05 e1 0d 13 74 05  3a 0d 13 7e 0e dd f2 72  |.j....t.:..~...r|
00002940  61 6d 66 65 74 63 68 0d  13 88 30 68 69 73 62 75  |amfetch...0hisbu|
00002950  66 66 25 3d 42 25 21 32  30 3a 68 69 73 6c 65 6e  |ff%=B%!20:hislen|
00002960  25 3d 42 25 21 32 34 3a  68 69 73 68 61 6e 64 6c  |%=B%!24:hishandl|
00002970  65 25 3d 42 25 21 34 0d  13 92 15 e7 20 73 74 61  |e%=B%!4..... sta|
00002980  72 74 3c 3e 74 6f 73 65  6e 64 20 8c 0d 13 9c 43  |rt<>tosend ....C|
00002990  e7 20 68 69 73 6c 65 6e  25 3c 74 6f 73 65 6e 64  |. hislen%<tosend|
000029a0  2d 73 74 61 72 74 20 73  65 6e 64 3d 73 74 61 72  |-start send=star|
000029b0  74 2b 68 69 73 6c 65 6e  25 20 8b 20 73 65 6e 64  |t+hislen% . send|
000029c0  3d 73 74 61 72 74 2b 73  61 76 65 6c 65 6e 25 0d  |=start+savelen%.|
000029d0  13 a6 23 e7 20 73 65 6e  64 3d 74 6f 73 65 6e 64  |..#. send=tosend|
000029e0  20 6d 65 73 73 3d 31 37  20 8b 20 6d 65 73 73 3d  | mess=17 . mess=|
000029f0  31 38 0d 13 b0 37 c8 99  26 34 30 30 46 31 2c 74  |18...7..&400F1,t|
00002a00  61 73 6b 25 2c 73 74 61  72 74 2c 68 69 73 68 61  |ask%,start,hisha|
00002a10  6e 64 6c 65 25 2c 68 69  73 62 75 66 66 25 2c 73  |ndle%,hisbuff%,s|
00002a20  65 6e 64 2d 73 74 61 72  74 0d 13 ba 16 42 25 21  |end-start....B%!|
00002a30  31 32 3d 42 25 21 38 3a  42 25 21 31 36 3d 37 0d  |12=B%!8:B%!16=7.|
00002a40  13 c4 14 42 25 21 32 34  3d 73 65 6e 64 2d 73 74  |...B%!24=send-st|
00002a50  61 72 74 0d 13 ce 20 c8  99 26 34 30 30 45 37 2c  |art... ..&400E7,|
00002a60  20 6d 65 73 73 2c 42 25  2c 68 69 73 68 61 6e 64  | mess,B%,hishand|
00002a70  6c 65 25 0d 13 d8 0e 73  74 61 72 74 3d 73 65 6e  |le%....start=sen|
00002a80  64 0d 13 e2 05 cc 0d 13  ec 1e 42 25 21 31 32 3d  |d.........B%!12=|
00002a90  42 25 21 38 3a 42 25 21  31 36 3d 37 3a 42 25 21  |B%!8:B%!16=7:B%!|
00002aa0  32 34 3d 30 0d 13 f6 17  c8 99 26 34 30 30 45 37  |24=0......&400E7|
00002ab0  2c 31 37 2c 42 25 2c 42  25 21 34 0d 14 00 33 e7  |,17,B%,B%!4...3.|
00002ac0  20 6d 65 6d 73 74 61 72  74 25 3e 2d 31 20 f2 72  | memstart%>-1 .r|
00002ad0  65 6c 65 61 73 65 28 6d  65 6d 73 74 61 72 74 25  |elease(memstart%|
00002ae0  29 3a 6d 65 6d 73 74 61  72 74 25 3d 2d 31 0d 14  |):memstart%=-1..|
00002af0  0a 11 c8 99 20 26 34 30  30 44 34 2c 2c 2d 31 0d  |.... &400D4,,-1.|
00002b00  14 14 05 cd 0d 14 1e 05  e1 0d 14 28 05 3a 0d 14  |...........(.:..|
00002b10  32 13 dd f2 72 65 6c 65  61 73 65 28 61 72 65 61  |2...release(area|
00002b20  29 0d 14 3c 11 c8 99 26  31 45 2c 37 2c 2c 61 72  |)..<...&1E,7,,ar|
00002b30  65 61 0d 14 46 05 e1 0d  14 50 04 0d 14 5a 0a dd  |ea..F....P...Z..|
00002b40  f2 69 63 6f 6e 0d 14 64  2b 42 25 21 30 3d 2d 31  |.icon..d+B%!0=-1|
00002b50  3a 42 25 21 34 3d 30 3a  42 25 21 38 3d 30 3a 42  |:B%!4=0:B%!8=0:B|
00002b60  25 21 31 32 3d 36 38 3a  42 25 21 31 36 3d 36 38  |%!12=68:B%!16=68|
00002b70  0d 14 6e 22 42 25 21 32  30 3d 26 33 30 30 32 3a  |..n"B%!20=&3002:|
00002b80  24 28 42 25 2b 32 34 29  3d 22 21 22 2b 70 72 6f  |$(B%+24)="!"+pro|
00002b90  67 24 0d 14 78 11 c8 99  20 26 34 30 30 43 32 2c  |g$..x... &400C2,|
00002ba0  2c 42 25 0d 14 82 05 e1  0d 14 8c 04 0d 14 96 10  |,B%.............|
00002bb0  dd a4 77 69 6e 64 6f 77  28 61 24 29 0d 14 a0 38  |..window(a$)...8|
00002bc0  c8 99 20 26 34 30 30 44  42 2c 2c 74 65 6d 70 6c  |.. &400DB,,templ|
00002bd0  25 2c 64 61 74 61 25 2c  65 6e 64 25 2c 2d 31 2c  |%,data%,end%,-1,|
00002be0  61 24 2c 30 20 b8 20 2c  2c 64 61 74 61 25 2c 2c  |a$,0 . ,,data%,,|
00002bf0  2c 2c 63 25 0d 14 aa 21  e7 20 61 24 3d 22 70 72  |,,c%...!. a$="pr|
00002c00  65 76 69 65 77 22 20 74  65 6d 70 6c 25 21 36 34  |eview" templ%!64|
00002c10  3d 70 69 63 25 0d 14 b4  20 e7 20 61 24 3d 22 6d  |=pic%... . a$="m|
00002c20  61 69 6e 22 20 74 65 6d  70 6c 25 21 36 34 3d 6d  |ain" templ%!64=m|
00002c30  79 73 70 72 25 0d 14 be  1a c8 99 20 26 34 30 30  |yspr%...... &400|
00002c40  43 31 2c 2c 74 65 6d 70  6c 25 20 b8 20 63 25 0d  |C1,,templ% . c%.|
00002c50  14 c8 07 3d 63 25 0d 14  d2 04 0d 14 dc 13 dd a4  |...=c%..........|
00002c60  63 6c 61 69 6d 28 61 6d  6f 75 6e 74 29 0d 14 e6  |claim(amount)...|
00002c70  07 ea 20 85 0d 14 f0 0e  ee 20 85 20 ea 20 3a 3d  |.. ...... . . :=|
00002c80  2d 31 0d 14 fa 1b c8 99  26 31 45 2c 36 2c 2c 2c  |-1......&1E,6,,,|
00002c90  61 6d 6f 75 6e 74 20 b8  2c 2c 72 65 74 0d 15 04  |amount .,,ret...|
00002ca0  08 3d 72 65 74 0d 15 0e  04 0d 15 18 11 dd f2 73  |.=ret..........s|
00002cb0  65 74 69 63 6f 6e 28 69  25 29 0d 15 22 2b 21 42  |eticon(i%).."+!B|
00002cc0  25 3d 6f 70 74 25 3a 42  25 21 34 3d 69 25 3a 42  |%=opt%:B%!4=i%:B|
00002cd0  25 21 38 3d 31 3c 3c 32  31 3a 42 25 21 31 32 3d  |%!8=1<<21:B%!12=|
00002ce0  31 3c 3c 32 31 0d 15 2c  11 c8 99 20 26 34 30 30  |1<<21..,... &400|
00002cf0  43 44 2c 2c 42 25 0d 15  36 05 e1 0d 15 40 04 0d  |CD,,B%..6....@..|
00002d00  15 4a 1a dd f2 63 68 61  6e 67 65 74 65 78 74 28  |.J...changetext(|
00002d10  68 25 2c 69 25 2c 74 24  29 0d 15 54 20 21 51 25  |h%,i%,t$)..T !Q%|
00002d20  3d 68 25 3a 51 25 21 34  3d 69 25 3a c8 99 20 26  |=h%:Q%!4=i%:.. &|
00002d30  34 30 30 43 45 2c 2c 51  25 0d 15 5e 1e 51 25 21  |400CE,,Q%..^.Q%!|
00002d40  38 3d 30 3a 51 25 21 31  32 3d 30 3a 24 28 51 25  |8=0:Q%!12=0:$(Q%|
00002d50  21 32 38 29 3d 74 24 0d  15 68 11 c8 99 20 26 34  |!28)=t$..h... &4|
00002d60  30 30 43 44 2c 2c 51 25  0d 15 72 05 e1 0d 15 7c  |00CD,,Q%..r....||
00002d70  04 0d 15 86 13 dd f2 73  65 74 28 68 25 2c 69 25  |.......set(h%,i%|
00002d80  2c 74 24 29 0d 15 90 20  21 51 25 3d 68 25 3a 51  |,t$)... !Q%=h%:Q|
00002d90  25 21 34 3d 69 25 3a c8  99 20 26 34 30 30 43 45  |%!4=i%:.. &400CE|
00002da0  2c 2c 51 25 0d 15 9a 1e  51 25 21 38 3d 30 3a 51  |,,Q%....Q%!8=0:Q|
00002db0  25 21 31 32 3d 30 3a 24  28 51 25 21 32 38 29 3d  |%!12=0:$(Q%!28)=|
00002dc0  74 24 0d 15 a4 05 e1 0d  15 ae 04 0d 15 b8 11 dd  |t$..............|
00002dd0  a4 74 65 78 74 28 68 25  2c 69 25 29 0d 15 c2 20  |.text(h%,i%)... |
00002de0  21 51 25 3d 68 25 3a 51  25 21 34 3d 69 25 3a c8  |!Q%=h%:Q%!4=i%:.|
00002df0  99 20 26 34 30 30 43 45  2c 2c 51 25 0d 15 cc 15  |. &400CE,,Q%....|
00002e00  3d a4 73 74 72 69 6e 67  28 28 51 25 21 32 38 29  |=.string((Q%!28)|
00002e10  29 0d 15 d6 05 3a 0d 15  e0 0e dd f2 64 69 73 70  |)....:......disp|
00002e20  69 63 6f 6e 0d 15 ea 31  42 25 21 30 3d 64 69 73  |icon...1B%!0=dis|
00002e30  70 25 3a 42 25 21 34 3d  30 3a 42 25 21 38 3d 2d  |p%:B%!4=0:B%!8=-|
00002e40  35 31 32 3a 42 25 21 31  32 3d 35 31 32 3a 42 25  |512:B%!12=512:B%|
00002e50  21 31 36 3d 30 0d 15 f4  21 42 25 21 32 30 3d 26  |!16=0...!B%!20=&|
00002e60  37 30 30 33 30 31 41 3a  24 28 42 25 2b 32 34 29  |700301A:$(B%+24)|
00002e70  3d 70 72 6f 67 24 0d 15  fe 11 c8 99 20 26 34 30  |=prog$...... &40|
00002e80  30 43 32 2c 2c 42 25 0d  16 08 05 e1 0d 16 12 04  |0C2,,B%.........|
00002e90  0d 16 1c 12 dd f2 73 65  74 75 70 70 61 6c 65 74  |......setuppalet|
00002ea0  74 65 0d 16 26 17 ea 20  70 25 2c 71 25 2c 61 25  |te..&.. p%,q%,a%|
00002eb0  2c 62 25 2c 69 25 2c 64  25 0d 16 30 11 c8 99 20  |,b%,i%,d%..0... |
00002ec0  26 34 30 30 45 35 2c 2c  51 25 0d 16 3a 09 71 25  |&400E5,,Q%..:.q%|
00002ed0  3d 51 25 0d 16 44 0c e3  69 25 3d 30 b8 31 35 0d  |=Q%..D..i%=0.15.|
00002ee0  16 4e 2c 20 20 3f 71 25  3d 30 3a e3 6a 25 3d 31  |.N,  ?q%=0:.j%=1|
00002ef0  b8 33 3a 71 25 3f 6a 25  3d 26 31 31 2a 28 28 71  |.3:q%?j%=&11*((q|
00002f00  25 3f 6a 25 29 3e 3e 34  29 3a ed 0d 16 58 0b 20  |%?j%)>>4):...X. |
00002f10  20 71 25 2b 3d 34 0d 16  62 05 ed 0d 16 6c 26 70  | q%+=4..b....l&p|
00002f20  25 3d 73 70 72 70 61 6c  25 3a 71 25 3d 51 25 3a  |%=sprpal%:q%=Q%:|
00002f30  61 25 3d 70 61 6c 31 25  3a 62 25 3d 70 61 6c 32  |a%=pal1%:b%=pal2|
00002f40  25 0d 16 76 0c e3 69 25  3d 30 b8 31 35 0d 16 80  |%..v..i%=0.15...|
00002f50  0c 20 20 64 25 3d 21 71  25 0d 16 8a 14 20 20 21  |.  d%=!q%....  !|
00002f60  70 25 3d 64 25 3a 70 25  21 34 3d 64 25 0d 16 94  |p%=d%:p%!4=d%...|
00002f70  23 20 20 21 61 25 3d 64  25 3a 21 62 25 3d 64 25  |#  !a%=d%:!b%=d%|
00002f80  3a 61 25 21 34 3d 64 25  3a 62 25 21 34 3d 64 25  |:a%!4=d%:b%!4=d%|
00002f90  0d 16 9e 1d 20 20 70 25  2b 3d 38 3a 61 25 2b 3d  |....  p%+=8:a%+=|
00002fa0  38 3a 62 25 2b 3d 38 3a  71 25 2b 3d 34 0d 16 a8  |8:b%+=8:q%+=4...|
00002fb0  05 ed 0d 16 b2 16 f2 69  63 6f 6e 73 74 61 74 65  |.......iconstate|
00002fc0  28 6f 70 74 25 2c 38 29  0d 16 bc 17 f2 69 63 6f  |(opt%,8).....ico|
00002fd0  6e 73 74 61 74 65 28 6f  70 74 25 2c 31 30 29 0d  |nstate(opt%,10).|
00002fe0  16 c6 05 e1 0d 16 d0 05  3a 0d 16 da 13 dd f2 6c  |........:......l|
00002ff0  6f 61 64 6d 79 73 70 72  69 74 65 73 0d 16 e4 20  |oadmysprites... |
00003000  73 24 3d 22 3c 53 70 69  72 6f 44 72 61 77 24 44  |s$="<SpiroDraw$D|
00003010  69 72 3e 2e 73 70 72 69  74 65 73 22 0d 16 ee 18  |ir>.sprites"....|
00003020  c8 99 20 26 38 2c 31 35  2c 73 24 20 b8 20 2c 2c  |.. &8,15,s$ . ,,|
00003030  2c 2c 6b 25 0d 16 f8 0a  6b 25 2b 3d 31 36 0d 17  |,,k%....k%+=16..|
00003040  02 0f de 20 6d 79 73 70  72 25 20 6b 25 0d 17 0c  |... myspr% k%...|
00003050  19 21 6d 79 73 70 72 25  3d 6b 25 3a 6d 79 73 70  |.!myspr%=k%:mysp|
00003060  72 25 21 38 3d 31 0d 17  16 16 c8 99 20 26 32 45  |r%!8=1...... &2E|
00003070  2c 26 31 30 39 2c 6d 79  73 70 72 25 0d 17 20 19  |,&109,myspr%.. .|
00003080  c8 99 20 26 32 45 2c 26  31 30 41 2c 6d 79 73 70  |.. &2E,&10A,mysp|
00003090  72 25 2c 73 24 0d 17 2a  2c c8 99 20 26 32 45 2c  |r%,s$..*,.. &2E,|
000030a0  26 31 32 35 2c 6d 79 73  70 72 25 2c 22 63 6f 6c  |&125,myspr%,"col|
000030b0  73 22 2c 2d 31 20 b8 20  2c 2c 2c 2c 70 61 6c 31  |s",-1 . ,,,,pal1|
000030c0  25 0d 17 34 2c c8 99 20  26 32 45 2c 26 31 32 35  |%..4,.. &2E,&125|
000030d0  2c 6d 79 73 70 72 25 2c  22 6c 69 6e 65 22 2c 2d  |,myspr%,"line",-|
000030e0  31 20 b8 20 2c 2c 2c 2c  70 61 6c 32 25 0d 17 3e  |1 . ,,,,pal2%..>|
000030f0  05 e1 0d 17 48 05 3a 0d  17 52 10 dd f2 64 72 61  |....H.:..R...dra|
00003100  77 6e 65 77 63 6f 6c 0d  17 5c 31 c8 99 20 26 32  |wnewcol..\1.. &2|
00003110  45 2c 26 31 33 43 2c 6d  79 73 70 72 25 2c 22 6c  |E,&13C,myspr%,"l|
00003120  69 6e 65 22 2c 30 20 b8  20 73 30 25 2c 73 31 25  |ine",0 . s0%,s1%|
00003130  2c 73 32 25 2c 73 33 25  0d 17 66 0a 76 64 75 25  |,s2%,s3%..f.vdu%|
00003140  3d b9 0d 17 70 09 e6 20  30 2c 31 0d 17 7a 14 c8  |=...p.. 0,1..z..|
00003150  93 20 c8 90 20 38 2c 34  2c 31 32 30 2c 31 36 0d  |. .. 8,4,120,16.|
00003160  17 84 0f e6 20 30 2c 6e  65 77 63 6f 6c 25 0d 17  |.... 0,newcol%..|
00003170  8e 20 c8 93 20 c8 90 20  38 2c 31 36 2d 34 2a 6e  |. .. .. 8,16-4*n|
00003180  69 62 25 2c 31 32 30 2c  34 2a 6e 69 62 25 0d 17  |ib%,120,4*nib%..|
00003190  98 1a c8 99 20 26 32 45  2c 73 30 25 2c 73 31 25  |.... &2E,s0%,s1%|
000031a0  2c 73 32 25 2c 73 33 25  0d 17 a2 0a 76 64 75 25  |,s2%,s3%....vdu%|
000031b0  3d a3 0d 17 ac 16 f2 69  63 6f 6e 73 74 61 74 65  |=......iconstate|
000031c0  28 6f 70 74 25 2c 39 29  0d 17 b6 17 f2 69 63 6f  |(opt%,9).....ico|
000031d0  6e 73 74 61 74 65 28 6f  70 74 25 2c 31 30 29 0d  |nstate(opt%,10).|
000031e0  17 c0 05 e1 0d 17 ca 05  3a 0d 17 d4 15 dd f2 77  |........:......w|
000031f0  68 65 72 65 69 73 28 68  25 2c 69 63 25 29 0d 17  |hereis(h%,ic%)..|
00003200  de 17 21 42 25 3d 68 25  3a c8 99 26 34 30 30 43  |..!B%=h%:..&400C|
00003210  42 2c 2c 42 25 0d 17 e8  22 6f 78 25 3d 42 25 21  |B,,B%..."ox%=B%!|
00003220  34 2d 42 25 21 32 30 3a  6f 79 25 3d 42 25 21 31  |4-B%!20:oy%=B%!1|
00003230  36 2d 42 25 21 32 34 0d  17 f2 19 42 25 21 34 3d  |6-B%!24....B%!4=|
00003240  69 63 25 3a c8 99 26 34  30 30 43 45 2c 2c 42 25  |ic%:..&400CE,,B%|
00003250  0d 17 fc 1e 70 78 25 3d  6f 78 25 2b 42 25 21 38  |....px%=ox%+B%!8|
00003260  3a 70 79 25 3d 6f 79 25  2b 42 25 21 31 32 0d 18  |:py%=oy%+B%!12..|
00003270  06 23 68 68 25 3d 28 78  25 2d 70 78 25 29 2f 33  |.#hh%=(x%-px%)/3|
00003280  32 3a 76 68 25 3d 28 79  25 2d 70 79 25 29 2f 33  |2:vh%=(y%-py%)/3|
00003290  32 0d 18 10 19 6e 65 77  63 6f 6c 25 3d 34 2a 28  |2....newcol%=4*(|
000032a0  33 2d 76 68 25 29 2b 68  68 25 0d 18 1a 05 e1 0d  |3-vh%)+hh%......|
000032b0  18 24 05 3a 0d 18 2e 0a  dd f2 76 61 72 73 0d 18  |.$.:......vars..|
000032c0  38 0f 6d 61 78 6c 69 6e  65 25 3d 32 30 0d 18 42  |8.maxline%=20..B|
000032d0  35 de 20 6c 69 6e 65 28  39 2c 6d 61 78 6c 69 6e  |5. line(9,maxlin|
000032e0  65 25 29 2c 42 25 20 26  31 30 30 2c 51 25 20 26  |e%),B% &100,Q% &|
000032f0  31 30 30 2c 62 65 7a 25  20 34 34 2c 76 61 6c 25  |100,bez% 44,val%|
00003300  20 36 0d 18 4c 27 de 20  64 65 66 25 28 38 2c 6d  | 6..L'. def%(8,m|
00003310  61 78 6c 69 6e 65 25 29  2c 6a 6f 69 6e 25 20 34  |axline%),join% 4|
00003320  2c 63 6f 6c 24 28 31 35  29 0d 18 56 96 63 6f 6c  |,col$(15)..V.col|
00003330  24 28 29 3d 22 57 68 69  74 65 22 2c 22 47 72 65  |$()="White","Gre|
00003340  79 31 22 2c 22 47 72 65  79 32 22 2c 22 47 72 65  |y1","Grey2","Gre|
00003350  79 33 22 2c 22 47 72 65  79 34 22 2c 22 47 72 65  |y3","Grey4","Gre|
00003360  79 35 22 2c 22 47 72 65  79 36 22 2c 22 42 6c 61  |y5","Grey6","Bla|
00003370  63 6b 22 2c 22 44 61 72  6b 42 6c 75 65 22 2c 22  |ck","DarkBlue","|
00003380  59 65 6c 6c 6f 77 22 2c  22 42 72 69 67 68 74 47  |Yellow","BrightG|
00003390  72 65 65 6e 22 2c 22 52  65 64 22 2c 22 43 72 65  |reen","Red","Cre|
000033a0  61 6d 22 2c 22 44 61 72  6b 47 72 65 65 6e 22 2c  |am","DarkGreen",|
000033b0  22 4f 72 61 6e 67 65 22  2c 22 43 79 61 6e 22 0d  |"Orange","Cyan".|
000033c0  18 60 1e 6e 64 72 61 77  25 3d 30 3a 64 6f 64 72  |.`.ndraw%=0:dodr|
000033d0  61 77 25 3d 30 3a 6e 62  6f 78 25 3d 30 0d 18 6a  |aw%=0:nbox%=0..j|
000033e0  11 21 6a 6f 69 6e 25 3d  26 31 30 31 30 31 0d 18  |.!join%=&10101..|
000033f0  74 2a 72 31 3d 32 34 30  3a 72 32 3d 34 30 3a 72  |t*r1=240:r2=40:r|
00003400  33 3d 32 30 3a 70 31 25  3d 36 34 3a 70 32 25 3d  |3=20:p1%=64:p2%=|
00003410  31 32 3a 6c 70 25 3d 33  0d 18 7e 24 6f 70 31 25  |12:lp%=3..~$op1%|
00003420  3d 70 31 25 3a 6f 70 32  25 3d 70 32 25 3a 70 69  |=p1%:op2%=p2%:pi|
00003430  32 3d 32 2a af 3a 6e 69  62 25 3d 31 0d 18 88 1c  |2=2*.:nib%=1....|
00003440  6e 64 72 61 77 25 3d 30  3a 6e 73 61 76 65 25 3d  |ndraw%=0:nsave%=|
00003450  30 3a 6e 65 77 25 3d b9  0d 18 92 21 69 6e 6e 65  |0:new%=....!inne|
00003460  72 25 3d b9 3a 76 64 75  25 3d a3 3a 58 3d 30 3a  |r%=.:vdu%=.:X=0:|
00003470  64 72 61 77 6f 70 25 3d  a3 0d 18 9c 10 6d 65 6d  |drawop%=.....mem|
00003480  73 74 61 72 74 25 3d 2d  31 0d 18 a6 39 64 66 69  |start%=-1...9dfi|
00003490  6c 65 24 3d 22 44 72 61  77 66 69 6c 65 22 3a 73  |le$="Drawfile":s|
000034a0  66 69 6c 65 24 3d 22 53  70 72 69 74 65 22 3a 74  |file$="Sprite":t|
000034b0  66 69 6c 65 24 3d 22 50  61 72 61 6d 65 74 65 72  |file$="Parameter|
000034c0  73 22 0d 18 b0 15 6e 65  77 63 6f 6c 25 3d 38 3a  |s"....newcol%=8:|
000034d0  6d 61 73 6b 25 3d 31 0d  18 ba 15 70 72 6f 67 24  |mask%=1....prog$|
000034e0  3d 22 53 70 69 72 6f 44  72 61 77 22 0d 18 c4 26  |="SpiroDraw"...&|
000034f0  70 69 63 25 3d a4 73 70  72 69 74 65 69 6e 69 74  |pic%=.spriteinit|
00003500  28 31 32 2c 35 31 32 2c  35 31 32 2c 70 72 6f 67  |(12,512,512,prog|
00003510  24 29 0d 18 ce 12 f2 6c  6f 61 64 6d 79 73 70 72  |$).....loadmyspr|
00003520  69 74 65 73 0d 18 d8 13  71 75 69 74 25 3d a3 3a  |ites....quit%=.:|
00003530  64 6f 6e 65 25 3d a3 0d  18 e2 05 e1 0d ff        |done%=........|
0000353e