� > <Stroke$Dir>.!RunImage

�initiate
,� � exit=�check(�$+" ("+�(�)+"), EXIT?")
(
2ȕ �exit
<+ș"Wimp_Poll",1+drawing%,blk% � reason%
FȎ reason% �
P� 0:� drawing% � �draw
Z� 1:�redraw
d� 2:�openwindow
n� 3:�closewindow(!blk%)
x3� 6:�click(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
�� 7:�enddrag
�)� 8:�key(!blk%,blk%!4,blk%!8,blk%!24)
�� 9:�menuselect
�+� 17,18:�message(blk%!4,blk%!8,blk%!16)
��
��
��closedown
�
�� �initiate
�A�wimpinit("Stroke drawing program","!stroke","Stroke",4,1000)
�maxs%=99
�4� x(1),y(1),lx(1,maxs%),ly(1,maxs%),angle(maxs%)
�L� tx%(1024),ty%(1024),tsx(1,maxs%),tsy(1,maxs%),fix%(3,maxs%),tsa(maxs%)


� t(1024)

� tune%(5),select%(7)

setfile$=dir$+".Settings"

"�loadsettings

, end0=0:end1=1:size=2:angle=3

6drawing%=�

@�

J

T� �initwindows

^,ș"Wimp_OpenTemplate",,dir$+".Templates"

h]info%=�infowindow("Stroke","AI line drawing program","Barry Wickett","0.12 (21-Sep-1993")

r/�iconbarmenu("Stroke,Info>,w%(info%),Quit")

|#save%=�savebox(dft%,"DrawFile")

�5menu%=�menu("Settings,Change,Load,Save-,Default")

�]main%=�window("standard","main",�menu("Stroke,Export>-,w%(save%),Blank,Settings>,menu%"))

�+options%=�window("options","options",0)

�ș"Wimp_CloseTemplate"

��

�

�� �clickoptions

�� but%=4 �

�Ȏ icon% �

�  � 3 : �incicon(4,-1)

�  � 5 : �incicon(4,1)

�  � 7 : �incicon(8,-1)

�  � 9 : �incicon(8,1)
  � 11 : �incicon(12,-1)
  � 13 : �incicon(12,1)
  � 15 : �incicon(16,-1)
&  � 17 : �incicon(16,1)
0  � 19 : �incicon(20,-1)
:  � 21 : �incicon(20,1)
D  � 23 : �incicon(24,-1)
N  � 25 : �incicon(24,1)
X   � 36 : �closewindow(wind%)
b
  � 37
l    � t%=0 � 5
v8      tune%(t%)=�(�icontext(w%(options%),4+(t%<<2)))
�    � t%
�    grid%=select%(2)
�    � t%=0 � 7
�3      select%(t%)=�selected(w%(options%),t%+28)
�    � t%
�5    � grid%<>select%(2) � �forceredraw(w%(main%))
�"    �closewindow(w%(options%))
��
��
�=0
�
�� �incicon(icon%,inc%)
�"val%=�(�icontext(wind%,icon%))
$� val%+inc%>=0 � val%+inc%<=99 �
  val%+=inc%
'  �seticontext(wind%,icon%,�(val%))
 �
*�
4
>� �redrawmain
H� select%(2) �
R/x0%=x0%/64:y0%=y0%/64:x1%=x1%/64:y1%=y1%/64
\ș"Wimp_SetColour",8
f� x%=x0% � x1%
p� y%=y0% � y1%
z� 69,x%*64+wx%,y%*64+wy%
�� y%
�� x%
��
�
stroke%=0
�ș"Wimp_SetColour",7
�ȕ stroke%<strokes%
�stroke%+=1
�M� lx(0,stroke%)+wx%,ly(0,stroke%)+wy%,lx(1,stroke%)+wx%,ly(1,stroke%)+wy%
��
�=0
�
�� �menumain
�Ȏ !blk% �
� 1
  strokes%=0
  �forceredraw(w%(main%))
$� 2
.  Ȏ blk%!4 �
8    � -1,0
B      � t%=0 � 5
L=        �seticontext(w%(options%),4+(t%<<2),�(tune%(t%)))
V      � t%
`      � t%=0 � 7
j7        �selecticon(w%(options%),28+t%,select%(t%))
t      � t%
~      �openup(w%(options%))
�    � 1 : �loadsettings
�    � 2
�      file=�(setfile$)
�      � t%=0 � 5
�        �#file,tune%(t%)
�      � t%
�      � t%=0 � 7
�        �#file,select%(t%)
�      � t%
�      �#file
�    � 3
�!      tune%()=12,4,40,20,25,5
      select%()=-1

!      �forceredraw(w%(main%))
  �
�
(=0
2
<� �loadsettings
Ffile=�(setfile$)
P� t%=0 � 5
Z  �#file,tune%(t%)
d� t%
n� t%=0 � 7
x  �#file,select%(t%)
�� t%
�
�#file
��forceredraw(w%(main%))
��
�
�� �clickmain
�
Ȏ but% �
�� 4
��windowinfo(w%(main%))
�!blk%=0
�blk%!4=7
�blk%!8=mx%
�blk%!12=my%
blk%!16=mx%
blk%!20=my%
blk%!24=wx%+blk%!44
"blk%!28=wy%+blk%!48
,blk%!32=wx%+blk%!52
6blk%!36=wy%+blk%!56
@ș"Wimp_DragBox",,blk%
Jdragid%=main%
Tfirst%=�
^drawing%=�
h
pts%=0
rtx%()=0
|ty%()=0
�	�draw
�� 1
�� strokes% �
�S�redobox(w%(main%),lx(0,strokes%),ly(0,strokes%),lx(1,strokes%),ly(1,strokes%))
�strokes%-=1
��
��
�=0
�
�� �draw
��mouseinfo
�H� first% � moved%=� � moved%=(�((mx%-lmx%)^2+(my%-lmy%)^2)>tune%(1))
�� moved% �
� pts%<1024 �
pts%+=1
tx%(pts%)=mx%-wx%
&ty%(pts%)=my%-wy%
0� first% �
:minx%=tx%(pts%)
Dmaxx%=tx%(pts%)
Nminy%=ty%(pts%)
Xmaxy%=ty%(pts%)
b�
l$�changedbox(tx%(pts%),ty%(pts%))
v�
�tp%=pts%+(pts%>1)
�!blk%=w%(main%)
�blk%!4=tx%(pts%)
�blk%!8=ty%(pts%)
�blk%!12=tx%(tp%)
�blk%!16=ty%(tp%)
�(� blk%!4>blk%!12 � Ȕ blk%!4,blk%!12
�(� blk%!8>blk%!16 � Ȕ blk%!8,blk%!16
�blk%!12+=4
�blk%!16+=4
�'ș"Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�ș"Wimp_SetColour",11
;� tx%(pts%)+wx%,ty%(pts%)+wy%,tx%(tp%)+wx%,ty%(tp%)+wy%
'ș"Wimp_GetRectangle",,blk% � more%
�
 �
*lmx%=mx%
4lmy%=my%
>first%=�
H�
R� but%<>4 � �enddrag
\�
f
p� �dropmain
zdrawing%=�
�fix%()=�
�costol=��(180-tune%(2))
�� pts%>=3 �
�  tstrokes%=0
�  lp%=1
�  � select%(0) �
�  � p%=1 � pts%-2
�5    a=(tx%(p%)-tx%(p%+1))^2+(ty%(p%)-ty%(p%+1))^2
�9    b=(tx%(p%+1)-tx%(p%+2))^2+(ty%(p%+1)-ty%(p%+2))^2
�5    c=(tx%(p%)-tx%(p%+2))^2+(ty%(p%)-ty%(p%+2))^2
�%    � (a+b-c)/(�(4*a*b))>costol �
�      �fitline(lp%,p%+1)
�      lp%=p%+1
		    �
	
  � p%
	  �
	$%  � lp%<pts% � �fitline(lp%,pts%)
	.  ts%=0
	8  ȕ ts%<tstrokes%
	B    ts%+=1
	L    �relation
	V    � strokes%<maxs% �
	`    strokes%+=1
	j    � e%=0 � 1
	t%      lx(e%,strokes%)=tsx(e%,ts%)
	~%      ly(e%,strokes%)=tsy(e%,ts%)
	�"      angle(strokes%)=tsa(ts%)
	�.      �changedbox(tsx(e%,ts%),tsy(e%,ts%))
	�    � e%
	�	    �
	�  �
	��
	�/�redobox(w%(main%),minx%,miny%,maxx%,maxy%)
	�=0
	�
	�8� �fix(ts%)=(-fix%(end0,ts%))�((-fix%(end1,ts%))<<1)
	�
	�F� �len(ts%)=�((tsx(0,ts%)-tsx(1,ts%))^2+(tsy(0,ts%)-tsy(1,ts%))^2)


� �fitline(fp%,tp%)
N%=(tp%-fp%)+1

� N%>=2 �
($Ex2%=0:Ey2%=0:Exy%=0:Ex%=0:Ey%=0
2� pt%=fp% � tp%
<Ex%+=tx%(pt%)
FEy%+=ty%(pt%)
PEx2%+=tx%(pt%)^2
ZEy2%+=ty%(pt%)^2
dExy%+=tx%(pt%)*ty%(pt%)
n	� pt%
xden%=Ex2%*N%-Ex%*Ex%
�� den%=0 �
�
  �rev
��
�  a=(Exy%*N%-Ey%*Ex%)/den%
�  � �(a)>1 �
�    �rev
�  �
�    b=(Ey%-a*Ex%)/N%
�    x0=0
�    y0=b
�    ang=�(a)
�  �
��
�find(tx%(fp%),ty%(fp%),0)
�find(tx%(tp%),ty%(tp%),1)
A� �((x(0)-x(1))^2+(y(0)-y(1))^2)>tune%(0) � tstrokes%<maxs% �
"tstrokes%+=1
,� e%=0 � 1
6tsx(e%,tstrokes%)=x(e%)
@tsy(e%,tstrokes%)=y(e%)
J� e%
T"tsa(tstrokes%)=�ang(tstrokes%)
^�
h�
r�
|
�
� �rev
�)a=(Exy%*N%-Ey%*Ex%)/(Ey2%*N%-Ey%*Ey%)
�b=(Ex%-a*Ey%)/N%
�x0=b:y0=0:ang=(�/2)-�(a)
��
�
�� �relation
��endpoints
��samelength
��nearangle
��
�
�� �changedbox(x%,y%)
1� x%<minx% � minx%=x% � � x%>maxx% � maxx%=x%
1� y%<miny% � miny%=y% � � y%>maxy% � maxy%=y%
�
&
0� �nearend
:� end%=0 � 1
D� stroke%=1 � strokes%
N,�test(lx(end%,stroke%),ly(end%,stroke%))
X
� stroke%
b
� end%
l�
v
�� �neargrid
�gx%=tsx(e%,ts%)/64
�gy%=tsy(e%,ts%)/64
��test(gx%*64,gy%*64)
��test((gx%+1)*64,gy%*64)
��test(gx%*64,(gy%-1)*64)
� �test((gx%+1)*64,(gy%-1)*64)
��
�
�� �touching
�� stroke%=1 � strokes%
�sin2=�sin(angle(stroke%))
�sin1=�sin(tsa(ts%))

cos1=�cos(tsa(ts%))

cos2=�cos(angle(stroke%))

tan1=sin1/�min(cos1)

 cot2=cos2/�min(sin2)

* den=�min((1-cot2*tan1)*sin2)

4Dr=(tsy(0,ts%)-ly(0,stroke%)+(lx(0,stroke%)-tsx(0,ts%))*tan1)/den

>tx=lx(0,stroke%)+r*cos2

Hty=ly(0,stroke%)+r*sin2

R
within%=�

\#� lx(0,stroke%)<lx(1,stroke%) �

f7  � tx<lx(0,stroke%) � tx>lx(1,stroke%) � within%=�

p�

z7  � tx<lx(1,stroke%) � tx>lx(0,stroke%) � within%=�

��

�#� ly(0,stroke%)<ly(1,stroke%) �

�7  � ty<ly(0,stroke%) � ty>ly(1,stroke%) � within%=�

��

�7  � ty<ly(1,stroke%) � ty>ly(0,stroke%) � within%=�

��

�� within% � �test(tx,ty)

�
� stroke%

��

�

�� �endpoints

�� e%=0 � 1

�  � �fix%(e%,ts%) �
    nd=tune%(3):np%=0
*    � strokes% � select%(1) � �nearend
(    � np%=0 � select%(2) � �neargrid
$5    � np%=0 � select%(3) � strokes%>0 � �touching
.    � np% �
8      tsx(e%,ts%)=nx
B      tsy(e%,ts%)=ny
L      fix%(e%,ts%)=�
V      tsa(ts%)=�ang(ts%)
`	    �
j  �
t� e%
~�
�
�� �min(val)
�/� �(val)<1E-8 � val=(1E-8)*(�(val)-(val=0))
�=val
�
�� �samelength
�� select%(4) � strokes% �
�  len=�len(ts%)
�  np%=0:sd=tune%(4)
�  � s%=1 � strokes%
�;    clen=�((lx(0,s%)-lx(1,s%))^2+(ly(0,s%)-ly(1,s%))^2)
�    diff=�(clen-len)
    � diff<sd �

      np%=�
      nlen=clen
      sd=diff
(	    �
2
  � s%
<   � np% � �redowithfix(nlen)
F�
P�
Z
d� �ang(ts%)
nyd=tsy(1,ts%)-tsy(0,ts%)
xxd=tsx(1,ts%)-tsx(0,ts%)
�� xd=0 � yd=0 �
�	ang=0
��
�� �(yd)<�(xd) �
�ang=��(yd/xd)
�� xd<0 � ang=ang+180
��
�ang=90-��(xd/yd)
�� yd<0 � ang=ang+180
��
�ang+=360
�ȕ ang>=360
�ang-=360
�
�
=ang
"
,� �test(x,y)
6/dist=�((tsx(e%,ts%)-x)^2+(tsy(e%,ts%)-y)^2)
@� dist<nd �
J
  nd=dist
T
  nx=x
^
  ny=y
h  np%=�
r�
|�
�
�� �find(q,w,in%)
�!r=(q-x0)*�(ang)+(y0-w)*�(ang)
�x(in%)=-�(ang)*r+q
�y(in%)=�(ang)*r+w
��
�
�� �nearangle
�ang=tsa(ts%)
�np%=0:sd=tune%(5)
�� strokes% �
�� stroke%=1 � strokes%
�� select%(5) �
  �testang(angle(stroke%))
"  �testang(angle(stroke%)+180)
�
&� select%(6) �
0!  �testang(angle(stroke%)+90)
:"  �testang(angle(stroke%)+270)
D�
N
� stroke%
X�
b1� np%=0 � select%(7) � �testang(�(ang/15)*15)
l4� np%=0 � select%(7) � �testang(�(ang/15)*15+15)
v� np% �
�� �fix(ts%)<3 �
�  tsa(ts%)=nang
�  �redowithfix(�len(ts%))
��
��
��
�
�� �redowithfix(len)
�Ȏ �fix(ts%) �
�	  � 0
�$    mx=(tsx(0,ts%)+tsx(1,ts%))/2
�$    my=(tsy(0,ts%)+tsy(1,ts%))/2
�*    tsx(0,ts%)=mx-�cos(tsa(ts%))*len/2
*    tsy(0,ts%)=my-�sin(tsa(ts%))*len/2
*    tsx(1,ts%)=�cos(tsa(ts%))*len/2+mx
*    tsy(1,ts%)=�sin(tsa(ts%))*len/2+my
 	  � 1
*0    tsx(1,ts%)=�cos(tsa(ts%))*len+tsx(0,ts%)
40    tsy(1,ts%)=�sin(tsa(ts%))*len+tsy(0,ts%)
>	  � 2
H0    tsx(0,ts%)=tsx(1,ts%)-�cos(tsa(ts%))*len
R0    tsy(0,ts%)=tsy(1,ts%)-�sin(tsa(ts%))*len
\�
f�
p
z� �cos(ang)
�
Ȏ � �
�   � ang=90 � ang=270 : ans=0
�  � ang=0 : ans=1
�  � ang=180 : ans=-1
�$  � ang>0 � ang<90 : ans=��(ang)
�+  � ang>90 � ang<180 : ans=-��(180-ang)
�,  � ang>180 � ang<270 : ans=-��(ang-180)
�!  � ang>270 : ans=��(360-ang)
��
�=ans
�
�� �sin(ang)
�
Ȏ � �
  � ang=0 � ang=180 : ans=0
  � ang=90 : ans=1
  � ang=270 : ans=-1
$$  � ang>0 � ang<90 : ans=��(ang)
.*  � ang>90 � ang<180 : ans=��(180-ang)
8,  � ang>180 � ang<270 : ans=-��(ang-180)
B"  � ang>270 : ans=-��(360-ang)
L�
V=ans
`
j� �mod(n,mod)
t
ȕ n>=mod
~n=n-mod
��
�=n
�
�� �testang(ang1)
�ang1=�mod(ang1,360)
�da=�(ang-ang1)
�da1=�(ang-(ang1+360))
�� da1<da � da=da1
�
� da<sd �
�	np%=�
�	sd=da
�
nang=ang1
�

�

� �menuiconbar
(� !blk%=1 � �quit
2=0
<
F� �clickiconbar
Pstrokes%=0
Z�openup(w%(main%))
d=0
n
x� �prepareAFF
�� strokes%=0 �
�8�report("There is nothing to make a DrawFile from!")
�okay%=�
��
�okay%=�space(16*1024)
�
� okay% �
�ș"Hourglass_On"
�
d%=block%
�offx%=2000
�offy%=0
�� st%=1 � strokes%
�� e%=0 � 1
�)� lx(e%,st%)<offx% � offx%=lx(e%,st%)
+� -ly(e%,st%)>offy% � offy%=-ly(e%,st%)
� e%
	� st%
"offx%=(100-offx%)*256
,offy%=(offy%+100)*256
6�drawheader
@�startgroup
J� st%=1 � strokes%
T2�line(lx(0,st%),ly(0,st%),lx(1,st%),ly(1,st%))
^	� st%
h
�endgroup
rsize%=d%-block%
|savebuff%=block%
�ș"Hourglass_Off"
�6� �okay% � �report("No room to prepare Draw file")
��
��
�
=okay%
�
�� ----save box routines----
�
�� �dropsave
�b� �("FNprepare"+�~(misc%(dragid%))) � �dropfile(�icontext(w%(dragid%),2),misc%(dragid%),size%)
�=0
�
�� �clicksave
/� icon%=0 � �save(id%,�icontext(wind%,2),�)
=0

&� �keysave
07� key%=13 � �save(id%,�icontext(wind%,2),�):taken=�
:=0
D
N#� ----WIMP Library routines----
X
b� �openup(wind%)
l!blk%=wind%
vid%=�id(wind%)
�� �active%(id%) �
�� d%=0 � 5
�&!(blk%+(d%<<2)+4)=default%(d%,id%)
�� d%
��
�!ș"Wimp_GetWindowState",,blk%
��
�blk%!28=-1
�active%(�id(wind%))=�
��openwindow
��
�
�� �openwindow
ș"Wimp_OpenWindow",,blk%
�

 "� �key(wind%,icon%,xpos%,key%)
*taken=�
4!d%=�("FNkey"+id$(�id(wind%)))
>'� �taken � ș"Wimp_ProcessKey",key%
H�
R
\#� �message(task%,ref%,message%)
fȎ message% �
p  � 0 : �quit
z	  � 2
�)    �save(dragid%,�string(blk%+44),�)
�?    � saved% � �telltoload � �report("Could not save file")
�	  � 6
�    togo%=size%-trans%
�'    � togo%>blk%!24 � togo%=blk%!24
�K    ș"Wimp_TransferBlock",mytask%,savebuff%+trans%,task%,blk%!20,togo%
�    blk%!24=togo%
�    �reply(18,7)
�    trans%+=togo%
�    � trans%=size% �
�      �closemenu
�      �resetslot
�	    �
  � &400C1 : �newmode
�
�
$
.� �telltoload
8�mouseinfo
Bblk%!20=wind%
Lblk%!24=icon%
Vblk%!28=mx%
`blk%!32=my%
jblk%!36=size%
tblk%!40=filetype%
~$(blk%+44)=filename$+�0
�!blk%=(�$(blk%+44)+48)��3
��reply(17,3)
��
�
�
� �redraw
�id%=�id(!blk%)
��windowinfo(!blk%)
�'ș"Wimp_RedrawWindow",,blk% � more%
�ȕ more%
�x0%=blk%!28-wx%
�y0%=blk%!32-wy%
�x1%=blk%!36-wx%
y1%=blk%!40-wy%

d%=�("FNredraw"+id$(id%))
'ș"Wimp_GetRectangle",,blk% � more%
�
(�
2
<� �id(find%)
Ffound%=windows%
P� i%=0 � windows%
Z� w%(i%)=find% � found%=i%
d� i%
n=found%
x
�*� �dropfile(filename$,filetype%,size%)
��mouseinfo
�
blk%!12=0
�
blk%!16=1
�blk%!20=wind%
�blk%!24=icon%
�blk%!28=mx%
�blk%!32=my%
�blk%!36=size%
�blk%!40=filetype%
�%$(blk%+44)=�lastbit(filename$)+�0
�!blk%=(�$(blk%+44)+48)��3
�0ș"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
trans%=0
�

"� �enddrag
,�mouseinfo
6"� drag% � ș"DragASprite_Stop"
@d%=�("FNdrop"+id$(dragid%))
J�
T
^� �menuselect
hd%=�("FNmenu"+id$(menuid%))
r�mouseinfo
|;� but%=1 � ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
��
�
�&� �click(mx%,my%,but%,wind%,icon%)
�7� �buttype(wind%,icon%)=9 � �flashicon(wind%,icon%)
�id%=�id(wind%)
�
Ȏ but% �
�� 64
�"  Ȏ �buttype(w%(id%),icon%) �
�-    � 6,7,8,10,14 : �startdrag(id%,icon%)
�  �
�� 2 : �openmenu(id%)
�
�d%=�("FNclick"+id$(id%))
�
�

&� �openmenu(id%)
0� menu%(id%) �
:menuid%=id%
Dopenmenu%=menu%(id%)
N,� id%=0 � menuy%=barheight% � menuy%=my%
X"menux%=mx%-(openmenu%!16)/2-16
b0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
l�
v�
�
�� �loadsprites
�spritefile$=dir$+".Sprites"
�0ș"OS_File",5,spritefile$ � exist%,,,,ssize%
�� exist%=1 �
�ssize%+=16
�� sprites% ssize%
�!sprites%=ssize%
�sprites%!4=0
�sprites%!8=16
�sprites%!12=16
�/ș"OS_SpriteOp",10+256,sprites%,spritefile$
��
sprites%=-1
�
�
 
*� �reply(type%,blk%!16)
4blk%!12=ref%
>)ș"Wimp_SendMessage",type%,blk%,task%
H�
R
\� �newmode
f
!q%=11
pq%!4=12
z
q%!8=4
�q%!12=5
�q%!16=-1
�!ș"OS_ReadVduVariables",q%,q%
�scx%=(!q%+1)<<(q%!8)
�scy%=(q%!4+1)<<(q%!12)
��
�
�� �loadtemplate(title$)
�Gș"Wimp_LoadTemplate",,blk%,ind%,indend%,fonttable%,title$ � ,,ind%
�%� sprites%<>-1 � blk%!64=sprites%
�'ș"Wimp_CreateWindow",,blk% � wind%
�
=wind%
�
� �tick(menu%,tick%)
p%=menu%+4
	a%=-1
$�
.
p%+=24
8	a%+=1
B)� a%=tick% � !p%=!p% �1 � !p%=!p% ��1
L� !p% � &80
V�
`
j� �menu(text$)
toldptr%=menuptr%
~items%=0
�text$+=","
�title$=�nextword(text$)
�$menuptr%=title$
�max%=�title$
�menuptr%!12=&70207
�menuptr%!20=44
�menuptr%!24=0
�menuptr%+=4
�ȕ text$<>""
�
items%+=1
�menuptr%+=24
�!menuptr%=0
menuptr%!4=0

word$=�nextword(text$)
token$=�token(word$)

i1%=-1
(ȕ token$<>""
2Ȏ token$ �
<*� ">" : menuptr%!4=�(�nextword(text$))
F#� "/" : !menuptr%=!menuptr% � 1
P#� "-" : !menuptr%=!menuptr% � 2
Z	� "!"
d  !menuptr%=!menuptr% � 4
n  valid$=�nextword(text$)
x  � �valid$ �
�  � i1% �valid$+1
�  $i1%=valid$
�  �
��
�token$=�token(word$)
��
�menuptr%!8=(7<<24) � %10001
�"� !menuptr% � 4 � token$="#" �
�.�inditem(�(�nextword(text$)),i1%,�(word$))
��
�� �word$<=12 �
�$(menuptr%+12)=word$
��
� i0% �word$+1
$i0%=word$
�inditem(i0%,-1,�word$+1)
"�
,� �word$>max% � max%=�word$
6�
@�
J!menuptr%=!menuptr% � &80
Tmenuptr%+=24
^oldptr%!16=max%*16+8
h=oldptr%
r
|� �inditem(i0%,i1%,i2%)
� menuptr%!8=menuptr%!8 � 1<<8
�menuptr%!12=i0%
�menuptr%!16=i1%
�menuptr%!20=i2%
�1� i2%-1>max% � (!menuptr% � 4)=0 � max%=i2%-1
��
�
�� �token(� word$)
�
token$=""
�� �">/!#-",�word$)) �
�token$=�word$,1)
�word$=�word$,�word$-1)
��
 =token$
 
 � �nextword(� text$)
 &� word$,pos%
 0pos%=�text$,",")
 :word$=�text$,pos%-1)
 Dtext$=�text$,pos%+1)
 N
=word$
 X
 b7� �cricon(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,$(q%+24))
 l#ș"Wimp_CreateIcon",,q% � icon%
 v
=icon%
 �
 �� �check(message$)
 �ș"Wimp_DragBox",,0
 �	!q%=0
 �$(q%+4)=message$
 �Bș"Wimp_ReportError",q%,19,"Message from "+program$ � ,answer%
 �� answer%=1 � =� � =�
 �
 �� �string(b%)
 �� s$
 �	s$=""
 �
ȕ ?b%>31
 �s$+=�(?b%)
!	b%+=1
!�
!=s$
! 
!*� �report(message$)
!4ș"Wimp_DragBox",,0
!>	!q%=0
!H$(q%+4)=message$
!R&ș"Wimp_ReportError",q%,1,program$
!\�
!f
!p� �buttype(!q%,q%!4)
!z3� q%!4>=0 � ș"Wimp_GetIconState",,q% � q%!24=0
!�=((q%!24)>>12)�15
!�
!�#� �selecticon(!q%,q%!4,select%)
!�ș"Wimp_GetIconState",,q%
!�#� select% � q%!8=1<<21 � q%!8=0
!�q%!12=1<<21
!�7� (q%!24 � q%!12)<>q%!8 � ș"Wimp_SetIconState",,q%
!��
!�
!�� �seticonfc(!q%,q%!4,col%)
!�ș"Wimp_GetIconState",,q%
!�q%!8=col%<<24
!�q%!12=15<<24
"7� (q%!24 � q%!12)<>q%!8 � ș"Wimp_SetIconState",,q%
"�
"
"$"� �seticontext(!q%,q%!4,text$)
".ș"Wimp_GetIconState",,q%
"8text$=�text$,q%!36-1)
"B� $(q%!28)<>text$ �
"L$(q%!28)=text$
"V
q%!8=0
"`q%!12=0
"jș"Wimp_SetIconState",,q%
"t�
"~�
"�
"�� �icontp(!q%,q%!4)
"�ș"Wimp_GetIconState",,q%
"�
=q%!28
"�
"�� �windowinfo(!blk%)
"� ș"Wimp_GetWindowInfo",,blk%
"�wx%=blk%!4-blk%!20
"�wy%=blk%!16-blk%!24
"��
"�
"�� �error(error$)
#d%=�check(error$)
#
�
#
##� �savebox(filetype%,standard$)
#("wind%=�window("save","save",0)
#2<�seticontext(w%(wind%),3,"file_"+�"00"+�~(filetype%),3))
#<'�seticontext(w%(wind%),1,standard$)
#Fmisc%(wind%)=filetype%
#P
=wind%
#Z
#d� �lastbit(file$)
#nȕ �file$,".")
#xfile$=�file$,�file$,".")+1)
#��
#�
=file$
#�
#�� �nameok(file$)
#�
result%=�
#�!� �file$,":")+�file$,".")=0 �
#�>�report("To save, drag icon to a directory viewer "+file$)
#�
result%=�
#��
#�=result%
#�
#�� �quit
#��closedown
$�
$
$� �closedown
$"� i%=1 � 255
$,ȕ fonttable%?i%
$6ș"Font_LoseFont",i%
$@fonttable%?i%-=1
$J�
$T� i%
$^ș"Wimp_CloseDown",mytask%
$h�
$r
$|� �closewindow(!blk%)
$�active%(�id(!blk%))=�
$�ș"Wimp_CloseWindow",,blk%
$��
$�
$�� �mouseinfo
$�ș"Wimp_GetPointerInfo",,q%
$�mx%=!q%
$�my%=q%!4
$�
but%=q%!8
$�wind%=q%!12
$�icon%=q%!16
$��
$�
%� �closemenu
%ș"Wimp_CreateMenu",,-1
%�
%&
%0� �reopen(!blk%)
%:!ș"Wimp_GetWindowState",,blk%
%D�openwindow
%N�forceredraw(!blk%)
%X�
%b
%l1� �setwindowextent(wind%,!q%,q%!4,q%!8,q%!12)
%vș"Wimp_SetExtent",wind%,q%
%��
%�
%�� �forceredraw(!blk%)
%� ș"Wimp_GetWindowInfo",,blk%
%�>ș"Wimp_ForceRedraw",!blk%,blk%!44,blk%!48,blk%!52,blk%!56
%��
%�
%�� �openfully(!blk%,top%)
%� ș"Wimp_GetWindowInfo",,blk%
%�$blk%!12=blk%!4+(blk%!52-blk%!44)
%�$blk%!8=blk%!16-(blk%!56-blk%!48)
%�� top% � blk%!28=-1
%��openwindow
&�
&
&� �startdrag(id%,icon%)
& dragid%=id%
&*dragicon%=icon%
&4wind%=w%(dragid%)
&>�windowinfo(wind%)
&H!blk%=wind%
&Rblk%!4=icon%
&\ș"Wimp_GetIconState",,blk%
&f!blk%=0
&pblk%!4=5
&zblk%!8+=wx%
&�blk%!12+=wy%
&�blk%!16+=wx%
&�blk%!20+=wy%
&�
blk%!24=0
&�
blk%!28=0
&�blk%!32=scx%
&�blk%!36=scy%
&�
� drag% �
&�Eș"DragASprite_Start",197,1,�icontext(wind%,icon%),blk%+8,blk%+24
&��
&�ș"Wimp_DragBox",,blk%
&��
&��
'
'� �openincentre(!blk%)
'!ș"Wimp_GetWindowState",,blk%
'$m1%=blk%!12-blk%!4
'.m2%=blk%!16-blk%!8
'8blk%!4=(scx%-m1%)>>1
'Bblk%!8=(scy%-m2%)>>1
'Lblk%!12=(scx%+m1%)>>1
'Vblk%!16=(scy%+m2%)>>1
'`blk%!28=-1
'j�openwindow
't� 7
'~�
'�
'�#� �setfiletype(file$,filetype%)
'�#ș"OS_File",&12,file$,filetype%
'��
'�
'�� �newtitle(!blk%,title$)
'� ș"Wimp_GetWindowInfo",,blk%
'�� $(blk%!76)<>title$ �
'�$(blk%!76)=title$
'�#ș"Wimp_GetWindowOutline",,blk%
'�=ș"Wimp_ForceRedraw",-1,blk%!4,blk%!16-44,blk%!12,blk%!16
'��
(�
(

(� �icontext(!q%,q%!4)
(ș"Wimp_GetIconState",,q%
((4� q%!24�(1<<8) � text$=$(q%!28) � text$=$(q%+28)
(2
=text$
(<
(F� �redoicon(!q%,q%!4)
(Pș"Wimp_GetIconState",,q%
(Z3ș"Wimp_ForceRedraw",!q%,q%!8,q%!12,q%!16,q%!20
(d�
(n
(x� �deleteicon(!q%,q%!4)
(�ș"Wimp_DeleteIcon",,q%
(��
(�
(�� �iconinfo(wind%,icon%)
(�!blk%=wind%
(�blk%!4=icon%
(�ș"Wimp_GetIconState",,blk%
(��
(�
(�� �selected(!q%,q%!4)
(�ș"Wimp_GetIconState",,q%
(�=(((q%!24)�(1<<21))>0)
(�
)� �shade(!q%,q%!4,shade%)
)"� shade% � q%!8=1<<22 � q%!8=0
)q%!12=1<<22
)"ș"Wimp_SetIconState",,q%
),�
)6
)@� �resetcaret(wind%)
)J!ș"Wimp_GetCaretPosition",,q%
)TU� !q%=wind% � wind%=0 � ș"Wimp_SetCaretPosition",!q%,q%!4,q%!8,q%!12,q%!16,q%!20
)^�
)h
)r� �flashicon(!q%,q%!4)
)|� f%=1 � 3
)�	Ȗ:Ȗ
)��selecticon(!q%,q%!4,�)
)�	Ȗ:Ȗ
)��selecticon(!q%,q%!4,�)
)�� f%
)��
)�
)�#� �openiconmenu(!q%,q%!4,wind%)
)�openmenu%=wind%
)�ș"Wimp_GetIconState",,q%
)�menux%=q%!16
)�menuy%=q%!20
)��windowinfo(!q%)
*menux%+=wx%
*menuy%+=wy%
*0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
*&�
*0
*:"� �infowindow(i1$,i2$,i3$,i4$)
*Dwind%=�window("info","",0)
*N!�seticontext(w%(wind%),1,i1$)
*X!�seticontext(w%(wind%),2,i2$)
*b!�seticontext(w%(wind%),3,i3$)
*l!�seticontext(w%(wind%),4,i4$)
*v
=wind%
*�
*� � �window(wind$,name$,menu%)
*�
twind%+=1
*�#w%(twind%)=�loadtemplate(wind$)
*��windowinfo(w%(twind%))
*�� d%=0 � 5
*�)default%(d%,twind%)=!(blk%+(d%<<2)+4)
*�� d%
*�id$(twind%)=name$
*�menu%(twind%)=menu%
*�=twind%
*�
*�/� �wimpinit(name$,sprite$,work$,no%,isize%)
+windows%=no%+1
+program$=name$
+"� blk% 2000,q% 256,ind% isize%
+ indend%=ind%+isize%
+*$blk%="TASK"
+45ș"Wimp_Initialise",200,!blk%,program$ � ,mytask%
+>0iconbar%=�cricon(-1,0,0,68,68,&2002,sprite$)
+H$q%=work$+"$Dir"
+R.ș"OS_ReadVarVal",q%,blk%,256,0,3 � ,,len%
+\blk%?len%=13
+fdir$=$blk%
+p=ș"XOS_SWINumberFromString",,"DragASprite_Start" � ;drag%
+zdrag%=(drag% � 1)=0
+�ș"OS_Byte",161,28 � ,,bit%
+�� (bit% � 2)=0 � drag%=�
+�&ș"Wimp_SlotSize",-1,-1 � appsize%
+��loadsprites
+��newmode
+�
tft%=&FFF
+�
dft%=&AFF
+�
exit=�
+�
active%=�
+�%� menubuffer% 1000,fonttable% 256
+�twind%=0
+�g� w%(windows%),menu%(windows%),id$(windows%),misc%(windows%),active%(windows%),default%(5,windows%)
+�menuptr%=menubuffer%
,� i%=1 � 255
,fonttable%?i%=0
,� i%
,$w%(0)=-2:id$(0)="iconbar"
,.�initwindows
,8�
,B
,L� �space(size%)
,Vblock%=�
,`7ș"XWimp_SlotSize",appsize%+size%,-1 � new%;noroom%
,jroom%=((noroom%�1)=0)
,t� new%=appsize% � room%=�
,~appinc%=new%-appsize%
,�
=room%
,�
,�� �resetslot
,�!ș"Wimp_SlotSize",appsize%,-1
,��
,�
,� � �save(id%,file$,prepared%)
,�filename$=file$
,�saved%=�
,�� �nameok(filename$) �
,�>� �prepared% � prepared%=�("FNprepare"+�~(misc%(dragid%)))
,�� prepared% �
-Bș"OS_File",10,filename$,misc%(id%),,savebuff%,savebuff%+size%
-
�resetslot
-�closemenu
-%�seticontext(w%(id%),2,filename$)
-(saved%=�
-2�
-<�
-F�
-P
-Z� �resetfilename(wind%)
-d,�seticontext(wind%,2,�icontext(wind%,1))
-n�
-x
-�� �iconbarmenu(text$)
-�menu%(0)=�menu(text$)
-�barheight%=items%*44+96
-��
-�
-�%� �redobox(wind%,x0%,y0%,x1%,y1%)
-�� x1%<x0% � Ȕ x0%,x1%
-�� y1%<y0% � Ȕ y0%,y1%
-�6ș"Wimp_ForceRedraw",wind%,x0%-4,y0%-4,x1%+4,y1%+4
-��
-�
-�� �drawheader
-��std("Draw")
.�w(201)
.	�w(0)
.�std("ArcDraw     ")
."
�w(1<<30)
.,
�w(1<<30)
.6
�w(1<<31)
.@
�w(1<<31)
.J�
.T
.^� �startgroup
.h
gs%=d%
.r	�w(6)
.|!�w(0):�w(0):�w(0):�w(0):�w(0)
.��std("Group       ")
.��
.�
.�� �endgroup
.�gs%!4=d%-gs%
.�gs%!8=block%!24
.�gs%!12=block%!28
.�gs%!16=block%!32
.�gs%!20=block%!36
.��
.�
.�� �font(f$)
.�font$=f$
/	s%=d%
/	�w(0)
/	�w(0)
/&	�b(1)
/0�st0(font$)
/:s%!4=d%-s%
/D�
/N
/X� �inc(inc%)
/b@� d%+inc%>block%+appinc%-256 � okay%=�space(appinc%+16*1024)
/l+� okay% � d%=(d%+inc%+3)��3 � d%=block%
/v�
/�
/�� �st0(st$)
/�$d%=st$+�0
/��inc(�$d%)
/��
/�
/�� �std(st$)
/�$d%=st$
/��inc(�$d%)
/��
/�
/�� �w(w%)
/�
!d%=w%
0�inc(4)
0�
0
0 � �b(b%)
0*
?d%=b%
04	d%+=1
0>�
0H
0R,� �text(name$,sizex%,sizey%,x%,y%,type%)
0\x%+=offx%:y%+=offy%
0f8ș"Font_FindFont",,font$,sizex%*16,sizey%*16 � font%
0pș"Font_SetFont",font%
0z1ș"Font_StringBBox",,name$ � ,lx%,ly%,mx%,my%
0�2ș"Font_ConverttoOS",,lx%<<8,ly%<<8 � ,lx%,ly%
0�2ș"Font_ConverttoOS",,mx%<<8,my%<<8 � ,mx%,my%
0�ș"Font_LoseFont",font%
0�!� type% � x%-=(mx%-lx%)/type%
0�	s%=d%
0�	�w(1)
0�	�w(0)
0�+�setbounds(lx%+x%,ly%+y%,mx%+x%,my%+y%)
0�	�w(0)
0��w(&FFFFFF00)
0�	�w(1)
0��w(sizex%*640)
0��w(sizey%*640)
1
�w(x%)
1
�w(y%)
1�st0(name$)
1$s%!4=d%-s%
1.ș"Font_LoseFont",font%
18�
1B
1L!� �setbounds(lx%,ly%,hx%,hy%)
1V� hx%<lx% � Ȕ lx%,hx%
1`� hy%<ly% � Ȕ ly%,hy%
1j�w(lx%):�w(ly%)
1t�w(hx%):�w(hy%)
1~#� lx%<block%!24 � block%!24=lx%
1�#� ly%<block%!28 � block%!28=ly%
1�#� hx%>block%!32 � block%!32=hx%
1�#� hy%>block%!36 � block%!36=hy%
1��
1�
1�� �line(x0%,y0%,x1%,y1%)
1�)x0%=(x0%<<8)+offx%:x1%=(x1%<<8)+offx%
1�)y0%=(y0%<<8)+offy%:y1%=(y1%<<8)+offy%
1�	s%=d%
1�	�w(2)
1�	�w(0)
1��setbounds(x0%,y0%,x1%,y1%)
2
�w(-1)
2
	�w(0)
2	�w(0)
2�w(&20100040)
2(	�w(2)
22�w(x0%)
2<�w(y0%)
2F	�w(8)
2P�w(x1%)
2Z�w(y1%)
2d	�w(0)
2ns%!4=d%-s%
2x�
2�
2�� �click=0
2�
2�� �redraw=0
2�
2�� �key=0
2�
2�
� �drop=0
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 53 74 72 6f 6b 65 24  |..... > <Stroke$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 0d f2 69 6e 69 74 69  61 74 65 0d 00 1e 2c ee  |...initiate...,.|
00000030  20 85 20 65 78 69 74 3d  a4 63 68 65 63 6b 28 f6  | . exit=.check(.|
00000040  24 2b 22 20 28 22 2b c3  28 9e 29 2b 22 29 2c 20  |$+" ("+.(.)+"), |
00000050  45 58 49 54 3f 22 29 0d  00 28 04 0d 00 32 0c c8  |EXIT?")..(...2..|
00000060  95 20 ac 65 78 69 74 0d  00 3c 2b c8 99 22 57 69  |. .exit..<+.."Wi|
00000070  6d 70 5f 50 6f 6c 6c 22  2c 31 2b 64 72 61 77 69  |mp_Poll",1+drawi|
00000080  6e 67 25 2c 62 6c 6b 25  20 b8 20 72 65 61 73 6f  |ng%,blk% . reaso|
00000090  6e 25 0d 00 46 10 c8 8e  20 72 65 61 73 6f 6e 25  |n%..F... reason%|
000000a0  20 ca 0d 00 50 1a c9 20  30 3a e7 20 64 72 61 77  | ...P.. 0:. draw|
000000b0  69 6e 67 25 20 8c 20 f2  64 72 61 77 0d 00 5a 0f  |ing% . .draw..Z.|
000000c0  c9 20 31 3a f2 72 65 64  72 61 77 0d 00 64 13 c9  |. 1:.redraw..d..|
000000d0  20 32 3a f2 6f 70 65 6e  77 69 6e 64 6f 77 0d 00  | 2:.openwindow..|
000000e0  6e 1b c9 20 33 3a f2 63  6c 6f 73 65 77 69 6e 64  |n.. 3:.closewind|
000000f0  6f 77 28 21 62 6c 6b 25  29 0d 00 78 33 c9 20 36  |ow(!blk%)..x3. 6|
00000100  3a f2 63 6c 69 63 6b 28  21 62 6c 6b 25 2c 62 6c  |:.click(!blk%,bl|
00000110  6b 25 21 34 2c 62 6c 6b  25 21 38 2c 62 6c 6b 25  |k%!4,blk%!8,blk%|
00000120  21 31 32 2c 62 6c 6b 25  21 31 36 29 0d 00 82 10  |!12,blk%!16)....|
00000130  c9 20 37 3a f2 65 6e 64  64 72 61 67 0d 00 8c 29  |. 7:.enddrag...)|
00000140  c9 20 38 3a f2 6b 65 79  28 21 62 6c 6b 25 2c 62  |. 8:.key(!blk%,b|
00000150  6c 6b 25 21 34 2c 62 6c  6b 25 21 38 2c 62 6c 6b  |lk%!4,blk%!8,blk|
00000160  25 21 32 34 29 0d 00 96  13 c9 20 39 3a f2 6d 65  |%!24)..... 9:.me|
00000170  6e 75 73 65 6c 65 63 74  0d 00 a0 2b c9 20 31 37  |nuselect...+. 17|
00000180  2c 31 38 3a f2 6d 65 73  73 61 67 65 28 62 6c 6b  |,18:.message(blk|
00000190  25 21 34 2c 62 6c 6b 25  21 38 2c 62 6c 6b 25 21  |%!4,blk%!8,blk%!|
000001a0  31 36 29 0d 00 aa 05 cb  0d 00 b4 05 ce 0d 00 be  |16).............|
000001b0  0e f2 63 6c 6f 73 65 64  6f 77 6e 0d 00 c8 04 0d  |..closedown.....|
000001c0  00 d2 0f dd 20 f2 69 6e  69 74 69 61 74 65 0d 00  |.... .initiate..|
000001d0  dc 41 f2 77 69 6d 70 69  6e 69 74 28 22 53 74 72  |.A.wimpinit("Str|
000001e0  6f 6b 65 20 64 72 61 77  69 6e 67 20 70 72 6f 67  |oke drawing prog|
000001f0  72 61 6d 22 2c 22 21 73  74 72 6f 6b 65 22 2c 22  |ram","!stroke","|
00000200  53 74 72 6f 6b 65 22 2c  34 2c 31 30 30 30 29 0d  |Stroke",4,1000).|
00000210  00 e6 0c 6d 61 78 73 25  3d 39 39 0d 00 f0 34 de  |...maxs%=99...4.|
00000220  20 78 28 31 29 2c 79 28  31 29 2c 6c 78 28 31 2c  | x(1),y(1),lx(1,|
00000230  6d 61 78 73 25 29 2c 6c  79 28 31 2c 6d 61 78 73  |maxs%),ly(1,maxs|
00000240  25 29 2c 61 6e 67 6c 65  28 6d 61 78 73 25 29 0d  |%),angle(maxs%).|
00000250  00 fa 4c de 20 74 78 25  28 31 30 32 34 29 2c 74  |..L. tx%(1024),t|
00000260  79 25 28 31 30 32 34 29  2c 74 73 78 28 31 2c 6d  |y%(1024),tsx(1,m|
00000270  61 78 73 25 29 2c 74 73  79 28 31 2c 6d 61 78 73  |axs%),tsy(1,maxs|
00000280  25 29 2c 66 69 78 25 28  33 2c 6d 61 78 73 25 29  |%),fix%(3,maxs%)|
00000290  2c 74 73 61 28 6d 61 78  73 25 29 0d 01 04 0d de  |,tsa(maxs%).....|
000002a0  20 74 28 31 30 32 34 29  0d 01 0e 19 de 20 74 75  | t(1024)..... tu|
000002b0  6e 65 25 28 35 29 2c 73  65 6c 65 63 74 25 28 37  |ne%(5),select%(7|
000002c0  29 0d 01 18 1d 73 65 74  66 69 6c 65 24 3d 64 69  |)....setfile$=di|
000002d0  72 24 2b 22 2e 53 65 74  74 69 6e 67 73 22 0d 01  |r$+".Settings"..|
000002e0  22 11 f2 6c 6f 61 64 73  65 74 74 69 6e 67 73 0d  |"..loadsettings.|
000002f0  01 2c 20 65 6e 64 30 3d  30 3a 65 6e 64 31 3d 31  |., end0=0:end1=1|
00000300  3a 73 69 7a 65 3d 32 3a  61 6e 67 6c 65 3d 33 0d  |:size=2:angle=3.|
00000310  01 36 0e 64 72 61 77 69  6e 67 25 3d a3 0d 01 40  |.6.drawing%=...@|
00000320  05 e1 0d 01 4a 04 0d 01  54 12 dd 20 f2 69 6e 69  |....J...T.. .ini|
00000330  74 77 69 6e 64 6f 77 73  0d 01 5e 2c c8 99 22 57  |twindows..^,.."W|
00000340  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000350  22 2c 2c 64 69 72 24 2b  22 2e 54 65 6d 70 6c 61  |",,dir$+".Templa|
00000360  74 65 73 22 0d 01 68 5d  69 6e 66 6f 25 3d a4 69  |tes"..h]info%=.i|
00000370  6e 66 6f 77 69 6e 64 6f  77 28 22 53 74 72 6f 6b  |nfowindow("Strok|
00000380  65 22 2c 22 41 49 20 6c  69 6e 65 20 64 72 61 77  |e","AI line draw|
00000390  69 6e 67 20 70 72 6f 67  72 61 6d 22 2c 22 42 61  |ing program","Ba|
000003a0  72 72 79 20 57 69 63 6b  65 74 74 22 2c 22 30 2e  |rry Wickett","0.|
000003b0  31 32 20 28 32 31 2d 53  65 70 2d 31 39 39 33 22  |12 (21-Sep-1993"|
000003c0  29 0d 01 72 2f f2 69 63  6f 6e 62 61 72 6d 65 6e  |)..r/.iconbarmen|
000003d0  75 28 22 53 74 72 6f 6b  65 2c 49 6e 66 6f 3e 2c  |u("Stroke,Info>,|
000003e0  77 25 28 69 6e 66 6f 25  29 2c 51 75 69 74 22 29  |w%(info%),Quit")|
000003f0  0d 01 7c 23 73 61 76 65  25 3d a4 73 61 76 65 62  |..|#save%=.saveb|
00000400  6f 78 28 64 66 74 25 2c  22 44 72 61 77 46 69 6c  |ox(dft%,"DrawFil|
00000410  65 22 29 0d 01 86 35 6d  65 6e 75 25 3d a4 6d 65  |e")...5menu%=.me|
00000420  6e 75 28 22 53 65 74 74  69 6e 67 73 2c 43 68 61  |nu("Settings,Cha|
00000430  6e 67 65 2c 4c 6f 61 64  2c 53 61 76 65 2d 2c 44  |nge,Load,Save-,D|
00000440  65 66 61 75 6c 74 22 29  0d 01 90 5d 6d 61 69 6e  |efault")...]main|
00000450  25 3d a4 77 69 6e 64 6f  77 28 22 73 74 61 6e 64  |%=.window("stand|
00000460  61 72 64 22 2c 22 6d 61  69 6e 22 2c a4 6d 65 6e  |ard","main",.men|
00000470  75 28 22 53 74 72 6f 6b  65 2c 45 78 70 6f 72 74  |u("Stroke,Export|
00000480  3e 2d 2c 77 25 28 73 61  76 65 25 29 2c 42 6c 61  |>-,w%(save%),Bla|
00000490  6e 6b 2c 53 65 74 74 69  6e 67 73 3e 2c 6d 65 6e  |nk,Settings>,men|
000004a0  75 25 22 29 29 0d 01 9a  2b 6f 70 74 69 6f 6e 73  |u%"))...+options|
000004b0  25 3d a4 77 69 6e 64 6f  77 28 22 6f 70 74 69 6f  |%=.window("optio|
000004c0  6e 73 22 2c 22 6f 70 74  69 6f 6e 73 22 2c 30 29  |ns","options",0)|
000004d0  0d 01 a4 1a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |......"Wimp_Clos|
000004e0  65 54 65 6d 70 6c 61 74  65 22 0d 01 ae 05 e1 0d  |eTemplate"......|
000004f0  01 b8 04 0d 01 c2 13 dd  20 a4 63 6c 69 63 6b 6f  |........ .clicko|
00000500  70 74 69 6f 6e 73 0d 01  cc 0e e7 20 62 75 74 25  |ptions..... but%|
00000510  3d 34 20 8c 0d 01 d6 0e  c8 8e 20 69 63 6f 6e 25  |=4 ....... icon%|
00000520  20 ca 0d 01 e0 1a 20 20  c9 20 33 20 3a 20 f2 69  | .....  . 3 : .i|
00000530  6e 63 69 63 6f 6e 28 34  2c 2d 31 29 0d 01 ea 19  |ncicon(4,-1)....|
00000540  20 20 c9 20 35 20 3a 20  f2 69 6e 63 69 63 6f 6e  |  . 5 : .incicon|
00000550  28 34 2c 31 29 0d 01 f4  1a 20 20 c9 20 37 20 3a  |(4,1)....  . 7 :|
00000560  20 f2 69 6e 63 69 63 6f  6e 28 38 2c 2d 31 29 0d  | .incicon(8,-1).|
00000570  01 fe 19 20 20 c9 20 39  20 3a 20 f2 69 6e 63 69  |...  . 9 : .inci|
00000580  63 6f 6e 28 38 2c 31 29  0d 02 08 1c 20 20 c9 20  |con(8,1)....  . |
00000590  31 31 20 3a 20 f2 69 6e  63 69 63 6f 6e 28 31 32  |11 : .incicon(12|
000005a0  2c 2d 31 29 0d 02 12 1b  20 20 c9 20 31 33 20 3a  |,-1)....  . 13 :|
000005b0  20 f2 69 6e 63 69 63 6f  6e 28 31 32 2c 31 29 0d  | .incicon(12,1).|
000005c0  02 1c 1c 20 20 c9 20 31  35 20 3a 20 f2 69 6e 63  |...  . 15 : .inc|
000005d0  69 63 6f 6e 28 31 36 2c  2d 31 29 0d 02 26 1b 20  |icon(16,-1)..&. |
000005e0  20 c9 20 31 37 20 3a 20  f2 69 6e 63 69 63 6f 6e  | . 17 : .incicon|
000005f0  28 31 36 2c 31 29 0d 02  30 1c 20 20 c9 20 31 39  |(16,1)..0.  . 19|
00000600  20 3a 20 f2 69 6e 63 69  63 6f 6e 28 32 30 2c 2d  | : .incicon(20,-|
00000610  31 29 0d 02 3a 1b 20 20  c9 20 32 31 20 3a 20 f2  |1)..:.  . 21 : .|
00000620  69 6e 63 69 63 6f 6e 28  32 30 2c 31 29 0d 02 44  |incicon(20,1)..D|
00000630  1c 20 20 c9 20 32 33 20  3a 20 f2 69 6e 63 69 63  |.  . 23 : .incic|
00000640  6f 6e 28 32 34 2c 2d 31  29 0d 02 4e 1b 20 20 c9  |on(24,-1)..N.  .|
00000650  20 32 35 20 3a 20 f2 69  6e 63 69 63 6f 6e 28 32  | 25 : .incicon(2|
00000660  34 2c 31 29 0d 02 58 20  20 20 c9 20 33 36 20 3a  |4,1)..X   . 36 :|
00000670  20 f2 63 6c 6f 73 65 77  69 6e 64 6f 77 28 77 69  | .closewindow(wi|
00000680  6e 64 25 29 0d 02 62 0a  20 20 c9 20 33 37 0d 02  |nd%)..b.  . 37..|
00000690  6c 12 20 20 20 20 e3 20  74 25 3d 30 20 b8 20 35  |l.    . t%=0 . 5|
000006a0  0d 02 76 38 20 20 20 20  20 20 74 75 6e 65 25 28  |..v8      tune%(|
000006b0  74 25 29 3d bb 28 a4 69  63 6f 6e 74 65 78 74 28  |t%)=.(.icontext(|
000006c0  77 25 28 6f 70 74 69 6f  6e 73 25 29 2c 34 2b 28  |w%(options%),4+(|
000006d0  74 25 3c 3c 32 29 29 29  0d 02 80 0c 20 20 20 20  |t%<<2)))....    |
000006e0  ed 20 74 25 0d 02 8a 18  20 20 20 20 67 72 69 64  |. t%....    grid|
000006f0  25 3d 73 65 6c 65 63 74  25 28 32 29 0d 02 94 12  |%=select%(2)....|
00000700  20 20 20 20 e3 20 74 25  3d 30 20 b8 20 37 0d 02  |    . t%=0 . 7..|
00000710  9e 33 20 20 20 20 20 20  73 65 6c 65 63 74 25 28  |.3      select%(|
00000720  74 25 29 3d a4 73 65 6c  65 63 74 65 64 28 77 25  |t%)=.selected(w%|
00000730  28 6f 70 74 69 6f 6e 73  25 29 2c 74 25 2b 32 38  |(options%),t%+28|
00000740  29 0d 02 a8 0c 20 20 20  20 ed 20 74 25 0d 02 b2  |)....    . t%...|
00000750  35 20 20 20 20 e7 20 67  72 69 64 25 3c 3e 73 65  |5    . grid%<>se|
00000760  6c 65 63 74 25 28 32 29  20 8c 20 f2 66 6f 72 63  |lect%(2) . .forc|
00000770  65 72 65 64 72 61 77 28  77 25 28 6d 61 69 6e 25  |eredraw(w%(main%|
00000780  29 29 0d 02 bc 22 20 20  20 20 f2 63 6c 6f 73 65  |))..."    .close|
00000790  77 69 6e 64 6f 77 28 77  25 28 6f 70 74 69 6f 6e  |window(w%(option|
000007a0  73 25 29 29 0d 02 c6 05  cb 0d 02 d0 05 cd 0d 02  |s%))............|
000007b0  da 06 3d 30 0d 02 e4 04  0d 02 ee 1a dd 20 f2 69  |..=0......... .i|
000007c0  6e 63 69 63 6f 6e 28 69  63 6f 6e 25 2c 69 6e 63  |ncicon(icon%,inc|
000007d0  25 29 0d 02 f8 22 76 61  6c 25 3d bb 28 a4 69 63  |%)..."val%=.(.ic|
000007e0  6f 6e 74 65 78 74 28 77  69 6e 64 25 2c 69 63 6f  |ontext(wind%,ico|
000007f0  6e 25 29 29 0d 03 02 24  e7 20 76 61 6c 25 2b 69  |n%))...$. val%+i|
00000800  6e 63 25 3e 3d 30 20 80  20 76 61 6c 25 2b 69 6e  |nc%>=0 . val%+in|
00000810  63 25 3c 3d 39 39 20 8c  0d 03 0c 10 20 20 76 61  |c%<=99 .....  va|
00000820  6c 25 2b 3d 69 6e 63 25  0d 03 16 27 20 20 f2 73  |l%+=inc%...'  .s|
00000830  65 74 69 63 6f 6e 74 65  78 74 28 77 69 6e 64 25  |eticontext(wind%|
00000840  2c 69 63 6f 6e 25 2c c3  28 76 61 6c 25 29 29 0d  |,icon%,.(val%)).|
00000850  03 20 05 cd 0d 03 2a 05  e1 0d 03 34 04 0d 03 3e  |. ....*....4...>|
00000860  11 dd 20 a4 72 65 64 72  61 77 6d 61 69 6e 0d 03  |.. .redrawmain..|
00000870  48 12 e7 20 73 65 6c 65  63 74 25 28 32 29 20 8c  |H.. select%(2) .|
00000880  0d 03 52 2f 78 30 25 3d  78 30 25 2f 36 34 3a 79  |..R/x0%=x0%/64:y|
00000890  30 25 3d 79 30 25 2f 36  34 3a 78 31 25 3d 78 31  |0%=y0%/64:x1%=x1|
000008a0  25 2f 36 34 3a 79 31 25  3d 79 31 25 2f 36 34 0d  |%/64:y1%=y1%/64.|
000008b0  03 5c 18 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |.\..."Wimp_SetCo|
000008c0  6c 6f 75 72 22 2c 38 0d  03 66 12 e3 20 78 25 3d  |lour",8..f.. x%=|
000008d0  78 30 25 20 b8 20 78 31  25 0d 03 70 12 e3 20 79  |x0% . x1%..p.. y|
000008e0  25 3d 79 30 25 20 b8 20  79 31 25 0d 03 7a 1c f0  |%=y0% . y1%..z..|
000008f0  20 36 39 2c 78 25 2a 36  34 2b 77 78 25 2c 79 25  | 69,x%*64+wx%,y%|
00000900  2a 36 34 2b 77 79 25 0d  03 84 08 ed 20 79 25 0d  |*64+wy%..... y%.|
00000910  03 8e 08 ed 20 78 25 0d  03 98 05 cd 0d 03 a2 0d  |.... x%.........|
00000920  73 74 72 6f 6b 65 25 3d  30 0d 03 ac 18 c8 99 22  |stroke%=0......"|
00000930  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 2c  |Wimp_SetColour",|
00000940  37 0d 03 b6 17 c8 95 20  73 74 72 6f 6b 65 25 3c  |7...... stroke%<|
00000950  73 74 72 6f 6b 65 73 25  0d 03 c0 0e 73 74 72 6f  |strokes%....stro|
00000960  6b 65 25 2b 3d 31 0d 03  ca 4d 86 20 6c 78 28 30  |ke%+=1...M. lx(0|
00000970  2c 73 74 72 6f 6b 65 25  29 2b 77 78 25 2c 6c 79  |,stroke%)+wx%,ly|
00000980  28 30 2c 73 74 72 6f 6b  65 25 29 2b 77 79 25 2c  |(0,stroke%)+wy%,|
00000990  6c 78 28 31 2c 73 74 72  6f 6b 65 25 29 2b 77 78  |lx(1,stroke%)+wx|
000009a0  25 2c 6c 79 28 31 2c 73  74 72 6f 6b 65 25 29 2b  |%,ly(1,stroke%)+|
000009b0  77 79 25 0d 03 d4 05 ce  0d 03 de 06 3d 30 0d 03  |wy%.........=0..|
000009c0  e8 04 0d 03 f2 0f dd 20  a4 6d 65 6e 75 6d 61 69  |....... .menumai|
000009d0  6e 0d 03 fc 0e c8 8e 20  21 62 6c 6b 25 20 ca 0d  |n...... !blk% ..|
000009e0  04 06 07 c9 20 31 0d 04  10 10 20 20 73 74 72 6f  |.... 1....  stro|
000009f0  6b 65 73 25 3d 30 0d 04  1a 1d 20 20 f2 66 6f 72  |kes%=0....  .for|
00000a00  63 65 72 65 64 72 61 77  28 77 25 28 6d 61 69 6e  |ceredraw(w%(main|
00000a10  25 29 29 0d 04 24 07 c9  20 32 0d 04 2e 11 20 20  |%))..$.. 2....  |
00000a20  c8 8e 20 62 6c 6b 25 21  34 20 ca 0d 04 38 0e 20  |.. blk%!4 ...8. |
00000a30  20 20 20 c9 20 2d 31 2c  30 0d 04 42 14 20 20 20  |   . -1,0..B.   |
00000a40  20 20 20 e3 20 74 25 3d  30 20 b8 20 35 0d 04 4c  |   . t%=0 . 5..L|
00000a50  3d 20 20 20 20 20 20 20  20 f2 73 65 74 69 63 6f  |=        .setico|
00000a60  6e 74 65 78 74 28 77 25  28 6f 70 74 69 6f 6e 73  |ntext(w%(options|
00000a70  25 29 2c 34 2b 28 74 25  3c 3c 32 29 2c c3 28 74  |%),4+(t%<<2),.(t|
00000a80  75 6e 65 25 28 74 25 29  29 29 0d 04 56 0e 20 20  |une%(t%)))..V.  |
00000a90  20 20 20 20 ed 20 74 25  0d 04 60 14 20 20 20 20  |    . t%..`.    |
00000aa0  20 20 e3 20 74 25 3d 30  20 b8 20 37 0d 04 6a 37  |  . t%=0 . 7..j7|
00000ab0  20 20 20 20 20 20 20 20  f2 73 65 6c 65 63 74 69  |        .selecti|
00000ac0  63 6f 6e 28 77 25 28 6f  70 74 69 6f 6e 73 25 29  |con(w%(options%)|
00000ad0  2c 32 38 2b 74 25 2c 73  65 6c 65 63 74 25 28 74  |,28+t%,select%(t|
00000ae0  25 29 29 0d 04 74 0e 20  20 20 20 20 20 ed 20 74  |%))..t.      . t|
00000af0  25 0d 04 7e 1f 20 20 20  20 20 20 f2 6f 70 65 6e  |%..~.      .open|
00000b00  75 70 28 77 25 28 6f 70  74 69 6f 6e 73 25 29 29  |up(w%(options%))|
00000b10  0d 04 88 1b 20 20 20 20  c9 20 31 20 3a 20 f2 6c  |....    . 1 : .l|
00000b20  6f 61 64 73 65 74 74 69  6e 67 73 0d 04 92 0b 20  |oadsettings.... |
00000b30  20 20 20 c9 20 32 0d 04  9c 1a 20 20 20 20 20 20  |   . 2....      |
00000b40  66 69 6c 65 3d ae 28 73  65 74 66 69 6c 65 24 29  |file=.(setfile$)|
00000b50  0d 04 a6 14 20 20 20 20  20 20 e3 20 74 25 3d 30  |....      . t%=0|
00000b60  20 b8 20 35 0d 04 b0 1c  20 20 20 20 20 20 20 20  | . 5....        |
00000b70  f1 23 66 69 6c 65 2c 74  75 6e 65 25 28 74 25 29  |.#file,tune%(t%)|
00000b80  0d 04 ba 0e 20 20 20 20  20 20 ed 20 74 25 0d 04  |....      . t%..|
00000b90  c4 14 20 20 20 20 20 20  e3 20 74 25 3d 30 20 b8  |..      . t%=0 .|
00000ba0  20 37 0d 04 ce 1e 20 20  20 20 20 20 20 20 f1 23  | 7....        .#|
00000bb0  66 69 6c 65 2c 73 65 6c  65 63 74 25 28 74 25 29  |file,select%(t%)|
00000bc0  0d 04 d8 0e 20 20 20 20  20 20 ed 20 74 25 0d 04  |....      . t%..|
00000bd0  e2 10 20 20 20 20 20 20  d9 23 66 69 6c 65 0d 04  |..      .#file..|
00000be0  ec 0b 20 20 20 20 c9 20  33 0d 04 f6 21 20 20 20  |..    . 3...!   |
00000bf0  20 20 20 74 75 6e 65 25  28 29 3d 31 32 2c 34 2c  |   tune%()=12,4,|
00000c00  34 30 2c 32 30 2c 32 35  2c 35 0d 05 00 16 20 20  |40,20,25,5....  |
00000c10  20 20 20 20 73 65 6c 65  63 74 25 28 29 3d 2d 31  |    select%()=-1|
00000c20  0d 05 0a 21 20 20 20 20  20 20 f2 66 6f 72 63 65  |...!      .force|
00000c30  72 65 64 72 61 77 28 77  25 28 6d 61 69 6e 25 29  |redraw(w%(main%)|
00000c40  29 0d 05 14 07 20 20 cb  0d 05 1e 05 cb 0d 05 28  |)....  ........(|
00000c50  06 3d 30 0d 05 32 04 0d  05 3c 13 dd 20 f2 6c 6f  |.=0..2...<.. .lo|
00000c60  61 64 73 65 74 74 69 6e  67 73 0d 05 46 14 66 69  |adsettings..F.fi|
00000c70  6c 65 3d 8e 28 73 65 74  66 69 6c 65 24 29 0d 05  |le=.(setfile$)..|
00000c80  50 0e e3 20 74 25 3d 30  20 b8 20 35 0d 05 5a 16  |P.. t%=0 . 5..Z.|
00000c90  20 20 e8 23 66 69 6c 65  2c 74 75 6e 65 25 28 74  |  .#file,tune%(t|
00000ca0  25 29 0d 05 64 08 ed 20  74 25 0d 05 6e 0e e3 20  |%)..d.. t%..n.. |
00000cb0  74 25 3d 30 20 b8 20 37  0d 05 78 18 20 20 e8 23  |t%=0 . 7..x.  .#|
00000cc0  66 69 6c 65 2c 73 65 6c  65 63 74 25 28 74 25 29  |file,select%(t%)|
00000cd0  0d 05 82 08 ed 20 74 25  0d 05 8c 0a d9 23 66 69  |..... t%.....#fi|
00000ce0  6c 65 0d 05 96 1b f2 66  6f 72 63 65 72 65 64 72  |le.....forceredr|
00000cf0  61 77 28 77 25 28 6d 61  69 6e 25 29 29 0d 05 a0  |aw(w%(main%))...|
00000d00  05 e1 0d 05 aa 04 0d 05  b4 10 dd 20 a4 63 6c 69  |........... .cli|
00000d10  63 6b 6d 61 69 6e 0d 05  be 0d c8 8e 20 62 75 74  |ckmain...... but|
00000d20  25 20 ca 0d 05 c8 07 c9  20 34 0d 05 d2 1a f2 77  |% ...... 4.....w|
00000d30  69 6e 64 6f 77 69 6e 66  6f 28 77 25 28 6d 61 69  |indowinfo(w%(mai|
00000d40  6e 25 29 29 0d 05 dc 0b  21 62 6c 6b 25 3d 30 0d  |n%))....!blk%=0.|
00000d50  05 e6 0c 62 6c 6b 25 21  34 3d 37 0d 05 f0 0e 62  |...blk%!4=7....b|
00000d60  6c 6b 25 21 38 3d 6d 78  25 0d 05 fa 0f 62 6c 6b  |lk%!8=mx%....blk|
00000d70  25 21 31 32 3d 6d 79 25  0d 06 04 0f 62 6c 6b 25  |%!12=my%....blk%|
00000d80  21 31 36 3d 6d 78 25 0d  06 0e 0f 62 6c 6b 25 21  |!16=mx%....blk%!|
00000d90  32 30 3d 6d 79 25 0d 06  18 17 62 6c 6b 25 21 32  |20=my%....blk%!2|
00000da0  34 3d 77 78 25 2b 62 6c  6b 25 21 34 34 0d 06 22  |4=wx%+blk%!44.."|
00000db0  17 62 6c 6b 25 21 32 38  3d 77 79 25 2b 62 6c 6b  |.blk%!28=wy%+blk|
00000dc0  25 21 34 38 0d 06 2c 17  62 6c 6b 25 21 33 32 3d  |%!48..,.blk%!32=|
00000dd0  77 78 25 2b 62 6c 6b 25  21 35 32 0d 06 36 17 62  |wx%+blk%!52..6.b|
00000de0  6c 6b 25 21 33 36 3d 77  79 25 2b 62 6c 6b 25 21  |lk%!36=wy%+blk%!|
00000df0  35 36 0d 06 40 1a c8 99  22 57 69 6d 70 5f 44 72  |56..@..."Wimp_Dr|
00000e00  61 67 42 6f 78 22 2c 2c  62 6c 6b 25 0d 06 4a 11  |agBox",,blk%..J.|
00000e10  64 72 61 67 69 64 25 3d  6d 61 69 6e 25 0d 06 54  |dragid%=main%..T|
00000e20  0c 66 69 72 73 74 25 3d  b9 0d 06 5e 0e 64 72 61  |.first%=...^.dra|
00000e30  77 69 6e 67 25 3d b9 0d  06 68 0a 70 74 73 25 3d  |wing%=...h.pts%=|
00000e40  30 0d 06 72 0b 74 78 25  28 29 3d 30 0d 06 7c 0b  |0..r.tx%()=0..|.|
00000e50  74 79 25 28 29 3d 30 0d  06 86 09 f2 64 72 61 77  |ty%()=0.....draw|
00000e60  0d 06 90 07 c9 20 31 0d  06 9a 10 e7 20 73 74 72  |..... 1..... str|
00000e70  6f 6b 65 73 25 20 8c 0d  06 a4 53 f2 72 65 64 6f  |okes% ....S.redo|
00000e80  62 6f 78 28 77 25 28 6d  61 69 6e 25 29 2c 6c 78  |box(w%(main%),lx|
00000e90  28 30 2c 73 74 72 6f 6b  65 73 25 29 2c 6c 79 28  |(0,strokes%),ly(|
00000ea0  30 2c 73 74 72 6f 6b 65  73 25 29 2c 6c 78 28 31  |0,strokes%),lx(1|
00000eb0  2c 73 74 72 6f 6b 65 73  25 29 2c 6c 79 28 31 2c  |,strokes%),ly(1,|
00000ec0  73 74 72 6f 6b 65 73 25  29 29 0d 06 ae 0f 73 74  |strokes%))....st|
00000ed0  72 6f 6b 65 73 25 2d 3d  31 0d 06 b8 05 cd 0d 06  |rokes%-=1.......|
00000ee0  c2 05 cb 0d 06 cc 06 3d  30 0d 06 d6 04 0d 06 e0  |.......=0.......|
00000ef0  0b dd 20 f2 64 72 61 77  0d 06 ea 0e f2 6d 6f 75  |.. .draw.....mou|
00000f00  73 65 69 6e 66 6f 0d 06  f4 48 e7 20 66 69 72 73  |seinfo...H. firs|
00000f10  74 25 20 8c 20 6d 6f 76  65 64 25 3d b9 20 8b 20  |t% . moved%=. . |
00000f20  6d 6f 76 65 64 25 3d 28  b6 28 28 6d 78 25 2d 6c  |moved%=(.((mx%-l|
00000f30  6d 78 25 29 5e 32 2b 28  6d 79 25 2d 6c 6d 79 25  |mx%)^2+(my%-lmy%|
00000f40  29 5e 32 29 3e 74 75 6e  65 25 28 31 29 29 0d 06  |)^2)>tune%(1))..|
00000f50  fe 0e e7 20 6d 6f 76 65  64 25 20 8c 0d 07 08 11  |... moved% .....|
00000f60  e7 20 70 74 73 25 3c 31  30 32 34 20 8c 0d 07 12  |. pts%<1024 ....|
00000f70  0b 70 74 73 25 2b 3d 31  0d 07 1c 15 74 78 25 28  |.pts%+=1....tx%(|
00000f80  70 74 73 25 29 3d 6d 78  25 2d 77 78 25 0d 07 26  |pts%)=mx%-wx%..&|
00000f90  15 74 79 25 28 70 74 73  25 29 3d 6d 79 25 2d 77  |.ty%(pts%)=my%-w|
00000fa0  79 25 0d 07 30 0e e7 20  66 69 72 73 74 25 20 8c  |y%..0.. first% .|
00000fb0  0d 07 3a 13 6d 69 6e 78  25 3d 74 78 25 28 70 74  |..:.minx%=tx%(pt|
00000fc0  73 25 29 0d 07 44 13 6d  61 78 78 25 3d 74 78 25  |s%)..D.maxx%=tx%|
00000fd0  28 70 74 73 25 29 0d 07  4e 13 6d 69 6e 79 25 3d  |(pts%)..N.miny%=|
00000fe0  74 79 25 28 70 74 73 25  29 0d 07 58 13 6d 61 78  |ty%(pts%)..X.max|
00000ff0  79 25 3d 74 79 25 28 70  74 73 25 29 0d 07 62 05  |y%=ty%(pts%)..b.|
00001000  cc 0d 07 6c 24 f2 63 68  61 6e 67 65 64 62 6f 78  |...l$.changedbox|
00001010  28 74 78 25 28 70 74 73  25 29 2c 74 79 25 28 70  |(tx%(pts%),ty%(p|
00001020  74 73 25 29 29 0d 07 76  05 cd 0d 07 80 15 74 70  |ts%))..v......tp|
00001030  25 3d 70 74 73 25 2b 28  70 74 73 25 3e 31 29 0d  |%=pts%+(pts%>1).|
00001040  07 8a 13 21 62 6c 6b 25  3d 77 25 28 6d 61 69 6e  |...!blk%=w%(main|
00001050  25 29 0d 07 94 14 62 6c  6b 25 21 34 3d 74 78 25  |%)....blk%!4=tx%|
00001060  28 70 74 73 25 29 0d 07  9e 14 62 6c 6b 25 21 38  |(pts%)....blk%!8|
00001070  3d 74 79 25 28 70 74 73  25 29 0d 07 a8 14 62 6c  |=ty%(pts%)....bl|
00001080  6b 25 21 31 32 3d 74 78  25 28 74 70 25 29 0d 07  |k%!12=tx%(tp%)..|
00001090  b2 14 62 6c 6b 25 21 31  36 3d 74 79 25 28 74 70  |..blk%!16=ty%(tp|
000010a0  25 29 0d 07 bc 28 e7 20  62 6c 6b 25 21 34 3e 62  |%)...(. blk%!4>b|
000010b0  6c 6b 25 21 31 32 20 8c  20 c8 94 20 62 6c 6b 25  |lk%!12 . .. blk%|
000010c0  21 34 2c 62 6c 6b 25 21  31 32 0d 07 c6 28 e7 20  |!4,blk%!12...(. |
000010d0  62 6c 6b 25 21 38 3e 62  6c 6b 25 21 31 36 20 8c  |blk%!8>blk%!16 .|
000010e0  20 c8 94 20 62 6c 6b 25  21 38 2c 62 6c 6b 25 21  | .. blk%!8,blk%!|
000010f0  31 36 0d 07 d0 0e 62 6c  6b 25 21 31 32 2b 3d 34  |16....blk%!12+=4|
00001100  0d 07 da 0e 62 6c 6b 25  21 31 36 2b 3d 34 0d 07  |....blk%!16+=4..|
00001110  e4 27 c8 99 22 57 69 6d  70 5f 55 70 64 61 74 65  |.'.."Wimp_Update|
00001120  57 69 6e 64 6f 77 22 2c  2c 62 6c 6b 25 20 b8 20  |Window",,blk% . |
00001130  6d 6f 72 65 25 0d 07 ee  0c c8 95 20 6d 6f 72 65  |more%...... more|
00001140  25 0d 07 f8 19 c8 99 22  57 69 6d 70 5f 53 65 74  |%......"Wimp_Set|
00001150  43 6f 6c 6f 75 72 22 2c  31 31 0d 08 02 3b 86 20  |Colour",11...;. |
00001160  74 78 25 28 70 74 73 25  29 2b 77 78 25 2c 74 79  |tx%(pts%)+wx%,ty|
00001170  25 28 70 74 73 25 29 2b  77 79 25 2c 74 78 25 28  |%(pts%)+wy%,tx%(|
00001180  74 70 25 29 2b 77 78 25  2c 74 79 25 28 74 70 25  |tp%)+wx%,ty%(tp%|
00001190  29 2b 77 79 25 0d 08 0c  27 c8 99 22 57 69 6d 70  |)+wy%...'.."Wimp|
000011a0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
000011b0  62 6c 6b 25 20 b8 20 6d  6f 72 65 25 0d 08 16 05  |blk% . more%....|
000011c0  ce 0d 08 20 05 cd 0d 08  2a 0c 6c 6d 78 25 3d 6d  |... ....*.lmx%=m|
000011d0  78 25 0d 08 34 0c 6c 6d  79 25 3d 6d 79 25 0d 08  |x%..4.lmy%=my%..|
000011e0  3e 0c 66 69 72 73 74 25  3d a3 0d 08 48 05 cd 0d  |>.first%=...H...|
000011f0  08 52 18 e7 20 62 75 74  25 3c 3e 34 20 8c 20 f2  |.R.. but%<>4 . .|
00001200  65 6e 64 64 72 61 67 0d  08 5c 05 e1 0d 08 66 04  |enddrag..\....f.|
00001210  0d 08 70 0f dd 20 a4 64  72 6f 70 6d 61 69 6e 0d  |..p.. .dropmain.|
00001220  08 7a 0e 64 72 61 77 69  6e 67 25 3d a3 0d 08 84  |.z.drawing%=....|
00001230  0c 66 69 78 25 28 29 3d  a3 0d 08 8e 1b 63 6f 73  |.fix%()=.....cos|
00001240  74 6f 6c 3d 9b b2 28 31  38 30 2d 74 75 6e 65 25  |tol=..(180-tune%|
00001250  28 32 29 29 0d 08 98 0f  e7 20 70 74 73 25 3e 3d  |(2))..... pts%>=|
00001260  33 20 8c 0d 08 a2 11 20  20 74 73 74 72 6f 6b 65  |3 .....  tstroke|
00001270  73 25 3d 30 0d 08 ac 0b  20 20 6c 70 25 3d 31 0d  |s%=0....  lp%=1.|
00001280  08 b6 14 20 20 e7 20 73  65 6c 65 63 74 25 28 30  |...  . select%(0|
00001290  29 20 8c 0d 08 c0 15 20  20 e3 20 70 25 3d 31 20  |) .....  . p%=1 |
000012a0  b8 20 70 74 73 25 2d 32  0d 08 ca 35 20 20 20 20  |. pts%-2...5    |
000012b0  61 3d 28 74 78 25 28 70  25 29 2d 74 78 25 28 70  |a=(tx%(p%)-tx%(p|
000012c0  25 2b 31 29 29 5e 32 2b  28 74 79 25 28 70 25 29  |%+1))^2+(ty%(p%)|
000012d0  2d 74 79 25 28 70 25 2b  31 29 29 5e 32 0d 08 d4  |-ty%(p%+1))^2...|
000012e0  39 20 20 20 20 62 3d 28  74 78 25 28 70 25 2b 31  |9    b=(tx%(p%+1|
000012f0  29 2d 74 78 25 28 70 25  2b 32 29 29 5e 32 2b 28  |)-tx%(p%+2))^2+(|
00001300  74 79 25 28 70 25 2b 31  29 2d 74 79 25 28 70 25  |ty%(p%+1)-ty%(p%|
00001310  2b 32 29 29 5e 32 0d 08  de 35 20 20 20 20 63 3d  |+2))^2...5    c=|
00001320  28 74 78 25 28 70 25 29  2d 74 78 25 28 70 25 2b  |(tx%(p%)-tx%(p%+|
00001330  32 29 29 5e 32 2b 28 74  79 25 28 70 25 29 2d 74  |2))^2+(ty%(p%)-t|
00001340  79 25 28 70 25 2b 32 29  29 5e 32 0d 08 e8 25 20  |y%(p%+2))^2...% |
00001350  20 20 20 e7 20 28 61 2b  62 2d 63 29 2f 28 b6 28  |   . (a+b-c)/(.(|
00001360  34 2a 61 2a 62 29 29 3e  63 6f 73 74 6f 6c 20 8c  |4*a*b))>costol .|
00001370  0d 08 f2 1c 20 20 20 20  20 20 f2 66 69 74 6c 69  |....      .fitli|
00001380  6e 65 28 6c 70 25 2c 70  25 2b 31 29 0d 08 fc 12  |ne(lp%,p%+1)....|
00001390  20 20 20 20 20 20 6c 70  25 3d 70 25 2b 31 0d 09  |      lp%=p%+1..|
000013a0  06 09 20 20 20 20 cd 0d  09 10 0a 20 20 ed 20 70  |..    .....  . p|
000013b0  25 0d 09 1a 07 20 20 cd  0d 09 24 25 20 20 e7 20  |%....  ...$%  . |
000013c0  6c 70 25 3c 70 74 73 25  20 8c 20 f2 66 69 74 6c  |lp%<pts% . .fitl|
000013d0  69 6e 65 28 6c 70 25 2c  70 74 73 25 29 0d 09 2e  |ine(lp%,pts%)...|
000013e0  0b 20 20 74 73 25 3d 30  0d 09 38 16 20 20 c8 95  |.  ts%=0..8.  ..|
000013f0  20 74 73 25 3c 74 73 74  72 6f 6b 65 73 25 0d 09  | ts%<tstrokes%..|
00001400  42 0e 20 20 20 20 74 73  25 2b 3d 31 0d 09 4c 11  |B.    ts%+=1..L.|
00001410  20 20 20 20 f2 72 65 6c  61 74 69 6f 6e 0d 09 56  |    .relation..V|
00001420  1a 20 20 20 20 e7 20 73  74 72 6f 6b 65 73 25 3c  |.    . strokes%<|
00001430  6d 61 78 73 25 20 8c 0d  09 60 13 20 20 20 20 73  |maxs% ...`.    s|
00001440  74 72 6f 6b 65 73 25 2b  3d 31 0d 09 6a 12 20 20  |trokes%+=1..j.  |
00001450  20 20 e3 20 65 25 3d 30  20 b8 20 31 0d 09 74 25  |  . e%=0 . 1..t%|
00001460  20 20 20 20 20 20 6c 78  28 65 25 2c 73 74 72 6f  |      lx(e%,stro|
00001470  6b 65 73 25 29 3d 74 73  78 28 65 25 2c 74 73 25  |kes%)=tsx(e%,ts%|
00001480  29 0d 09 7e 25 20 20 20  20 20 20 6c 79 28 65 25  |)..~%      ly(e%|
00001490  2c 73 74 72 6f 6b 65 73  25 29 3d 74 73 79 28 65  |,strokes%)=tsy(e|
000014a0  25 2c 74 73 25 29 0d 09  88 22 20 20 20 20 20 20  |%,ts%)..."      |
000014b0  61 6e 67 6c 65 28 73 74  72 6f 6b 65 73 25 29 3d  |angle(strokes%)=|
000014c0  74 73 61 28 74 73 25 29  0d 09 92 2e 20 20 20 20  |tsa(ts%)....    |
000014d0  20 20 f2 63 68 61 6e 67  65 64 62 6f 78 28 74 73  |  .changedbox(ts|
000014e0  78 28 65 25 2c 74 73 25  29 2c 74 73 79 28 65 25  |x(e%,ts%),tsy(e%|
000014f0  2c 74 73 25 29 29 0d 09  9c 0c 20 20 20 20 ed 20  |,ts%))....    . |
00001500  65 25 0d 09 a6 09 20 20  20 20 cd 0d 09 b0 07 20  |e%....    ..... |
00001510  20 ce 0d 09 ba 05 cd 0d  09 c4 2f f2 72 65 64 6f  | ........./.redo|
00001520  62 6f 78 28 77 25 28 6d  61 69 6e 25 29 2c 6d 69  |box(w%(main%),mi|
00001530  6e 78 25 2c 6d 69 6e 79  25 2c 6d 61 78 78 25 2c  |nx%,miny%,maxx%,|
00001540  6d 61 78 79 25 29 0d 09  ce 06 3d 30 0d 09 d8 04  |maxy%)....=0....|
00001550  0d 09 e2 38 dd 20 a4 66  69 78 28 74 73 25 29 3d  |...8. .fix(ts%)=|
00001560  28 2d 66 69 78 25 28 65  6e 64 30 2c 74 73 25 29  |(-fix%(end0,ts%)|
00001570  29 84 28 28 2d 66 69 78  25 28 65 6e 64 31 2c 74  |).((-fix%(end1,t|
00001580  73 25 29 29 3c 3c 31 29  0d 09 ec 04 0d 09 f6 46  |s%))<<1).......F|
00001590  dd 20 a4 6c 65 6e 28 74  73 25 29 3d b6 28 28 74  |. .len(ts%)=.((t|
000015a0  73 78 28 30 2c 74 73 25  29 2d 74 73 78 28 31 2c  |sx(0,ts%)-tsx(1,|
000015b0  74 73 25 29 29 5e 32 2b  28 74 73 79 28 30 2c 74  |ts%))^2+(tsy(0,t|
000015c0  73 25 29 2d 74 73 79 28  31 2c 74 73 25 29 29 5e  |s%)-tsy(1,ts%))^|
000015d0  32 29 0d 0a 00 04 0d 0a  0a 17 dd 20 f2 66 69 74  |2)......... .fit|
000015e0  6c 69 6e 65 28 66 70 25  2c 74 70 25 29 0d 0a 14  |line(fp%,tp%)...|
000015f0  12 4e 25 3d 28 74 70 25  2d 66 70 25 29 2b 31 0d  |.N%=(tp%-fp%)+1.|
00001600  0a 1e 0d e7 20 4e 25 3e  3d 32 20 8c 0d 0a 28 24  |.... N%>=2 ...($|
00001610  45 78 32 25 3d 30 3a 45  79 32 25 3d 30 3a 45 78  |Ex2%=0:Ey2%=0:Ex|
00001620  79 25 3d 30 3a 45 78 25  3d 30 3a 45 79 25 3d 30  |y%=0:Ex%=0:Ey%=0|
00001630  0d 0a 32 13 e3 20 70 74  25 3d 66 70 25 20 b8 20  |..2.. pt%=fp% . |
00001640  74 70 25 0d 0a 3c 11 45  78 25 2b 3d 74 78 25 28  |tp%..<.Ex%+=tx%(|
00001650  70 74 25 29 0d 0a 46 11  45 79 25 2b 3d 74 79 25  |pt%)..F.Ey%+=ty%|
00001660  28 70 74 25 29 0d 0a 50  14 45 78 32 25 2b 3d 74  |(pt%)..P.Ex2%+=t|
00001670  78 25 28 70 74 25 29 5e  32 0d 0a 5a 14 45 79 32  |x%(pt%)^2..Z.Ey2|
00001680  25 2b 3d 74 79 25 28 70  74 25 29 5e 32 0d 0a 64  |%+=ty%(pt%)^2..d|
00001690  1b 45 78 79 25 2b 3d 74  78 25 28 70 74 25 29 2a  |.Exy%+=tx%(pt%)*|
000016a0  74 79 25 28 70 74 25 29  0d 0a 6e 09 ed 20 70 74  |ty%(pt%)..n.. pt|
000016b0  25 0d 0a 78 18 64 65 6e  25 3d 45 78 32 25 2a 4e  |%..x.den%=Ex2%*N|
000016c0  25 2d 45 78 25 2a 45 78  25 0d 0a 82 0e e7 20 64  |%-Ex%*Ex%..... d|
000016d0  65 6e 25 3d 30 20 8c 0d  0a 8c 0a 20 20 f2 72 65  |en%=0 .....  .re|
000016e0  76 0d 0a 96 05 cc 0d 0a  a0 1e 20 20 61 3d 28 45  |v.........  a=(E|
000016f0  78 79 25 2a 4e 25 2d 45  79 25 2a 45 78 25 29 2f  |xy%*N%-Ey%*Ex%)/|
00001700  64 65 6e 25 0d 0a aa 10  20 20 e7 20 94 28 61 29  |den%....  . .(a)|
00001710  3e 31 20 8c 0d 0a b4 0c  20 20 20 20 f2 72 65 76  |>1 .....    .rev|
00001720  0d 0a be 07 20 20 cc 0d  0a c8 18 20 20 20 20 62  |....  .....    b|
00001730  3d 28 45 79 25 2d 61 2a  45 78 25 29 2f 4e 25 0d  |=(Ey%-a*Ex%)/N%.|
00001740  0a d2 0c 20 20 20 20 78  30 3d 30 0d 0a dc 0c 20  |...    x0=0.... |
00001750  20 20 20 79 30 3d 62 0d  0a e6 10 20 20 20 20 61  |   y0=b....    a|
00001760  6e 67 3d 99 28 61 29 0d  0a f0 07 20 20 cd 0d 0a  |ng=.(a)....  ...|
00001770  fa 05 cd 0d 0b 04 1e f2  66 69 6e 64 28 74 78 25  |........find(tx%|
00001780  28 66 70 25 29 2c 74 79  25 28 66 70 25 29 2c 30  |(fp%),ty%(fp%),0|
00001790  29 0d 0b 0e 1e f2 66 69  6e 64 28 74 78 25 28 74  |).....find(tx%(t|
000017a0  70 25 29 2c 74 79 25 28  74 70 25 29 2c 31 29 0d  |p%),ty%(tp%),1).|
000017b0  0b 18 41 e7 20 b6 28 28  78 28 30 29 2d 78 28 31  |..A. .((x(0)-x(1|
000017c0  29 29 5e 32 2b 28 79 28  30 29 2d 79 28 31 29 29  |))^2+(y(0)-y(1))|
000017d0  5e 32 29 3e 74 75 6e 65  25 28 30 29 20 80 20 74  |^2)>tune%(0) . t|
000017e0  73 74 72 6f 6b 65 73 25  3c 6d 61 78 73 25 20 8c  |strokes%<maxs% .|
000017f0  0d 0b 22 10 74 73 74 72  6f 6b 65 73 25 2b 3d 31  |..".tstrokes%+=1|
00001800  0d 0b 2c 0e e3 20 65 25  3d 30 20 b8 20 31 0d 0b  |..,.. e%=0 . 1..|
00001810  36 1b 74 73 78 28 65 25  2c 74 73 74 72 6f 6b 65  |6.tsx(e%,tstroke|
00001820  73 25 29 3d 78 28 65 25  29 0d 0b 40 1b 74 73 79  |s%)=x(e%)..@.tsy|
00001830  28 65 25 2c 74 73 74 72  6f 6b 65 73 25 29 3d 79  |(e%,tstrokes%)=y|
00001840  28 65 25 29 0d 0b 4a 08  ed 20 65 25 0d 0b 54 22  |(e%)..J.. e%..T"|
00001850  74 73 61 28 74 73 74 72  6f 6b 65 73 25 29 3d a4  |tsa(tstrokes%)=.|
00001860  61 6e 67 28 74 73 74 72  6f 6b 65 73 25 29 0d 0b  |ang(tstrokes%)..|
00001870  5e 05 cd 0d 0b 68 05 cd  0d 0b 72 05 e1 0d 0b 7c  |^....h....r....||
00001880  04 0d 0b 86 0a dd 20 f2  72 65 76 0d 0b 90 29 61  |...... .rev...)a|
00001890  3d 28 45 78 79 25 2a 4e  25 2d 45 79 25 2a 45 78  |=(Exy%*N%-Ey%*Ex|
000018a0  25 29 2f 28 45 79 32 25  2a 4e 25 2d 45 79 25 2a  |%)/(Ey2%*N%-Ey%*|
000018b0  45 79 25 29 0d 0b 9a 14  62 3d 28 45 78 25 2d 61  |Ey%)....b=(Ex%-a|
000018c0  2a 45 79 25 29 2f 4e 25  0d 0b a4 1c 78 30 3d 62  |*Ey%)/N%....x0=b|
000018d0  3a 79 30 3d 30 3a 61 6e  67 3d 28 af 2f 32 29 2d  |:y0=0:ang=(./2)-|
000018e0  99 28 61 29 0d 0b ae 05  e1 0d 0b b8 04 0d 0b c2  |.(a)............|
000018f0  0f dd 20 f2 72 65 6c 61  74 69 6f 6e 0d 0b cc 0e  |.. .relation....|
00001900  f2 65 6e 64 70 6f 69 6e  74 73 0d 0b d6 0f f2 73  |.endpoints.....s|
00001910  61 6d 65 6c 65 6e 67 74  68 0d 0b e0 0e f2 6e 65  |amelength.....ne|
00001920  61 72 61 6e 67 6c 65 0d  0b ea 05 e1 0d 0b f4 04  |arangle.........|
00001930  0d 0b fe 18 dd 20 f2 63  68 61 6e 67 65 64 62 6f  |..... .changedbo|
00001940  78 28 78 25 2c 79 25 29  0d 0c 08 31 e7 20 78 25  |x(x%,y%)...1. x%|
00001950  3c 6d 69 6e 78 25 20 8c  20 6d 69 6e 78 25 3d 78  |<minx% . minx%=x|
00001960  25 20 8b 20 e7 20 78 25  3e 6d 61 78 78 25 20 8c  |% . . x%>maxx% .|
00001970  20 6d 61 78 78 25 3d 78  25 0d 0c 12 31 e7 20 79  | maxx%=x%...1. y|
00001980  25 3c 6d 69 6e 79 25 20  8c 20 6d 69 6e 79 25 3d  |%<miny% . miny%=|
00001990  79 25 20 8b 20 e7 20 79  25 3e 6d 61 78 79 25 20  |y% . . y%>maxy% |
000019a0  8c 20 6d 61 78 79 25 3d  79 25 0d 0c 1c 05 e1 0d  |. maxy%=y%......|
000019b0  0c 26 04 0d 0c 30 0e dd  20 f2 6e 65 61 72 65 6e  |.&...0.. .nearen|
000019c0  64 0d 0c 3a 10 e3 20 65  6e 64 25 3d 30 20 b8 20  |d..:.. end%=0 . |
000019d0  31 0d 0c 44 1a e3 20 73  74 72 6f 6b 65 25 3d 31  |1..D.. stroke%=1|
000019e0  20 b8 20 73 74 72 6f 6b  65 73 25 0d 0c 4e 2c f2  | . strokes%..N,.|
000019f0  74 65 73 74 28 6c 78 28  65 6e 64 25 2c 73 74 72  |test(lx(end%,str|
00001a00  6f 6b 65 25 29 2c 6c 79  28 65 6e 64 25 2c 73 74  |oke%),ly(end%,st|
00001a10  72 6f 6b 65 25 29 29 0d  0c 58 0d ed 20 73 74 72  |roke%))..X.. str|
00001a20  6f 6b 65 25 0d 0c 62 0a  ed 20 65 6e 64 25 0d 0c  |oke%..b.. end%..|
00001a30  6c 05 e1 0d 0c 76 04 0d  0c 80 0f dd 20 f2 6e 65  |l....v...... .ne|
00001a40  61 72 67 72 69 64 0d 0c  8a 16 67 78 25 3d 74 73  |argrid....gx%=ts|
00001a50  78 28 65 25 2c 74 73 25  29 2f 36 34 0d 0c 94 16  |x(e%,ts%)/64....|
00001a60  67 79 25 3d 74 73 79 28  65 25 2c 74 73 25 29 2f  |gy%=tsy(e%,ts%)/|
00001a70  36 34 0d 0c 9e 18 f2 74  65 73 74 28 67 78 25 2a  |64.....test(gx%*|
00001a80  36 34 2c 67 79 25 2a 36  34 29 0d 0c a8 1c f2 74  |64,gy%*64).....t|
00001a90  65 73 74 28 28 67 78 25  2b 31 29 2a 36 34 2c 67  |est((gx%+1)*64,g|
00001aa0  79 25 2a 36 34 29 0d 0c  b2 1c f2 74 65 73 74 28  |y%*64).....test(|
00001ab0  67 78 25 2a 36 34 2c 28  67 79 25 2d 31 29 2a 36  |gx%*64,(gy%-1)*6|
00001ac0  34 29 0d 0c bc 20 f2 74  65 73 74 28 28 67 78 25  |4)... .test((gx%|
00001ad0  2b 31 29 2a 36 34 2c 28  67 79 25 2d 31 29 2a 36  |+1)*64,(gy%-1)*6|
00001ae0  34 29 0d 0c c6 05 e1 0d  0c d0 04 0d 0c da 0f dd  |4)..............|
00001af0  20 f2 74 6f 75 63 68 69  6e 67 0d 0c e4 1a e3 20  | .touching..... |
00001b00  73 74 72 6f 6b 65 25 3d  31 20 b8 20 73 74 72 6f  |stroke%=1 . stro|
00001b10  6b 65 73 25 0d 0c ee 1d  73 69 6e 32 3d a4 73 69  |kes%....sin2=.si|
00001b20  6e 28 61 6e 67 6c 65 28  73 74 72 6f 6b 65 25 29  |n(angle(stroke%)|
00001b30  29 0d 0c f8 17 73 69 6e  31 3d a4 73 69 6e 28 74  |)....sin1=.sin(t|
00001b40  73 61 28 74 73 25 29 29  0d 0d 02 17 63 6f 73 31  |sa(ts%))....cos1|
00001b50  3d a4 63 6f 73 28 74 73  61 28 74 73 25 29 29 0d  |=.cos(tsa(ts%)).|
00001b60  0d 0c 1d 63 6f 73 32 3d  a4 63 6f 73 28 61 6e 67  |...cos2=.cos(ang|
00001b70  6c 65 28 73 74 72 6f 6b  65 25 29 29 0d 0d 16 18  |le(stroke%))....|
00001b80  74 61 6e 31 3d 73 69 6e  31 2f a4 6d 69 6e 28 63  |tan1=sin1/.min(c|
00001b90  6f 73 31 29 0d 0d 20 18  63 6f 74 32 3d 63 6f 73  |os1).. .cot2=cos|
00001ba0  32 2f a4 6d 69 6e 28 73  69 6e 32 29 0d 0d 2a 20  |2/.min(sin2)..* |
00001bb0  64 65 6e 3d a4 6d 69 6e  28 28 31 2d 63 6f 74 32  |den=.min((1-cot2|
00001bc0  2a 74 61 6e 31 29 2a 73  69 6e 32 29 0d 0d 34 44  |*tan1)*sin2)..4D|
00001bd0  72 3d 28 74 73 79 28 30  2c 74 73 25 29 2d 6c 79  |r=(tsy(0,ts%)-ly|
00001be0  28 30 2c 73 74 72 6f 6b  65 25 29 2b 28 6c 78 28  |(0,stroke%)+(lx(|
00001bf0  30 2c 73 74 72 6f 6b 65  25 29 2d 74 73 78 28 30  |0,stroke%)-tsx(0|
00001c00  2c 74 73 25 29 29 2a 74  61 6e 31 29 2f 64 65 6e  |,ts%))*tan1)/den|
00001c10  0d 0d 3e 1b 74 78 3d 6c  78 28 30 2c 73 74 72 6f  |..>.tx=lx(0,stro|
00001c20  6b 65 25 29 2b 72 2a 63  6f 73 32 0d 0d 48 1b 74  |ke%)+r*cos2..H.t|
00001c30  79 3d 6c 79 28 30 2c 73  74 72 6f 6b 65 25 29 2b  |y=ly(0,stroke%)+|
00001c40  72 2a 73 69 6e 32 0d 0d  52 0d 77 69 74 68 69 6e  |r*sin2..R.within|
00001c50  25 3d b9 0d 0d 5c 23 e7  20 6c 78 28 30 2c 73 74  |%=...\#. lx(0,st|
00001c60  72 6f 6b 65 25 29 3c 6c  78 28 31 2c 73 74 72 6f  |roke%)<lx(1,stro|
00001c70  6b 65 25 29 20 8c 0d 0d  66 37 20 20 e7 20 74 78  |ke%) ...f7  . tx|
00001c80  3c 6c 78 28 30 2c 73 74  72 6f 6b 65 25 29 20 84  |<lx(0,stroke%) .|
00001c90  20 74 78 3e 6c 78 28 31  2c 73 74 72 6f 6b 65 25  | tx>lx(1,stroke%|
00001ca0  29 20 8c 20 77 69 74 68  69 6e 25 3d a3 0d 0d 70  |) . within%=...p|
00001cb0  05 cc 0d 0d 7a 37 20 20  e7 20 74 78 3c 6c 78 28  |....z7  . tx<lx(|
00001cc0  31 2c 73 74 72 6f 6b 65  25 29 20 84 20 74 78 3e  |1,stroke%) . tx>|
00001cd0  6c 78 28 30 2c 73 74 72  6f 6b 65 25 29 20 8c 20  |lx(0,stroke%) . |
00001ce0  77 69 74 68 69 6e 25 3d  a3 0d 0d 84 05 cd 0d 0d  |within%=........|
00001cf0  8e 23 e7 20 6c 79 28 30  2c 73 74 72 6f 6b 65 25  |.#. ly(0,stroke%|
00001d00  29 3c 6c 79 28 31 2c 73  74 72 6f 6b 65 25 29 20  |)<ly(1,stroke%) |
00001d10  8c 0d 0d 98 37 20 20 e7  20 74 79 3c 6c 79 28 30  |....7  . ty<ly(0|
00001d20  2c 73 74 72 6f 6b 65 25  29 20 84 20 74 79 3e 6c  |,stroke%) . ty>l|
00001d30  79 28 31 2c 73 74 72 6f  6b 65 25 29 20 8c 20 77  |y(1,stroke%) . w|
00001d40  69 74 68 69 6e 25 3d a3  0d 0d a2 05 cc 0d 0d ac  |ithin%=.........|
00001d50  37 20 20 e7 20 74 79 3c  6c 79 28 31 2c 73 74 72  |7  . ty<ly(1,str|
00001d60  6f 6b 65 25 29 20 84 20  74 79 3e 6c 79 28 30 2c  |oke%) . ty>ly(0,|
00001d70  73 74 72 6f 6b 65 25 29  20 8c 20 77 69 74 68 69  |stroke%) . withi|
00001d80  6e 25 3d a3 0d 0d b6 05  cd 0d 0d c0 1c e7 20 77  |n%=........... w|
00001d90  69 74 68 69 6e 25 20 8c  20 f2 74 65 73 74 28 74  |ithin% . .test(t|
00001da0  78 2c 74 79 29 0d 0d ca  0d ed 20 73 74 72 6f 6b  |x,ty)..... strok|
00001db0  65 25 0d 0d d4 05 e1 0d  0d de 04 0d 0d e8 10 dd  |e%..............|
00001dc0  20 f2 65 6e 64 70 6f 69  6e 74 73 0d 0d f2 0e e3  | .endpoints.....|
00001dd0  20 65 25 3d 30 20 b8 20  31 0d 0d fc 17 20 20 e7  | e%=0 . 1....  .|
00001de0  20 ac 66 69 78 25 28 65  25 2c 74 73 25 29 20 8c  | .fix%(e%,ts%) .|
00001df0  0d 0e 06 19 20 20 20 20  6e 64 3d 74 75 6e 65 25  |....    nd=tune%|
00001e00  28 33 29 3a 6e 70 25 3d  30 0d 0e 10 2a 20 20 20  |(3):np%=0...*   |
00001e10  20 e7 20 73 74 72 6f 6b  65 73 25 20 80 20 73 65  | . strokes% . se|
00001e20  6c 65 63 74 25 28 31 29  20 8c 20 f2 6e 65 61 72  |lect%(1) . .near|
00001e30  65 6e 64 0d 0e 1a 28 20  20 20 20 e7 20 6e 70 25  |end...(    . np%|
00001e40  3d 30 20 80 20 73 65 6c  65 63 74 25 28 32 29 20  |=0 . select%(2) |
00001e50  8c 20 f2 6e 65 61 72 67  72 69 64 0d 0e 24 35 20  |. .neargrid..$5 |
00001e60  20 20 20 e7 20 6e 70 25  3d 30 20 80 20 73 65 6c  |   . np%=0 . sel|
00001e70  65 63 74 25 28 33 29 20  80 20 73 74 72 6f 6b 65  |ect%(3) . stroke|
00001e80  73 25 3e 30 20 8c 20 f2  74 6f 75 63 68 69 6e 67  |s%>0 . .touching|
00001e90  0d 0e 2e 0f 20 20 20 20  e7 20 6e 70 25 20 8c 0d  |....    . np% ..|
00001ea0  0e 38 18 20 20 20 20 20  20 74 73 78 28 65 25 2c  |.8.      tsx(e%,|
00001eb0  74 73 25 29 3d 6e 78 0d  0e 42 18 20 20 20 20 20  |ts%)=nx..B.     |
00001ec0  20 74 73 79 28 65 25 2c  74 73 25 29 3d 6e 79 0d  | tsy(e%,ts%)=ny.|
00001ed0  0e 4c 18 20 20 20 20 20  20 66 69 78 25 28 65 25  |.L.      fix%(e%|
00001ee0  2c 74 73 25 29 3d b9 0d  0e 56 1c 20 20 20 20 20  |,ts%)=...V.     |
00001ef0  20 74 73 61 28 74 73 25  29 3d a4 61 6e 67 28 74  | tsa(ts%)=.ang(t|
00001f00  73 25 29 0d 0e 60 09 20  20 20 20 cd 0d 0e 6a 07  |s%)..`.    ...j.|
00001f10  20 20 cd 0d 0e 74 08 ed  20 65 25 0d 0e 7e 05 e1  |  ...t.. e%..~..|
00001f20  0d 0e 88 04 0d 0e 92 0f  dd 20 a4 6d 69 6e 28 76  |......... .min(v|
00001f30  61 6c 29 0d 0e 9c 2f e7  20 94 28 76 61 6c 29 3c  |al).../. .(val)<|
00001f40  31 45 2d 38 20 8c 20 76  61 6c 3d 28 31 45 2d 38  |1E-8 . val=(1E-8|
00001f50  29 2a 28 b4 28 76 61 6c  29 2d 28 76 61 6c 3d 30  |)*(.(val)-(val=0|
00001f60  29 29 0d 0e a6 08 3d 76  61 6c 0d 0e b0 04 0d 0e  |))....=val......|
00001f70  ba 11 dd 20 f2 73 61 6d  65 6c 65 6e 67 74 68 0d  |... .samelength.|
00001f80  0e c4 1d e7 20 73 65 6c  65 63 74 25 28 34 29 20  |.... select%(4) |
00001f90  80 20 73 74 72 6f 6b 65  73 25 20 8c 0d 0e ce 13  |. strokes% .....|
00001fa0  20 20 6c 65 6e 3d a4 6c  65 6e 28 74 73 25 29 0d  |  len=.len(ts%).|
00001fb0  0e d8 17 20 20 6e 70 25  3d 30 3a 73 64 3d 74 75  |...  np%=0:sd=tu|
00001fc0  6e 65 25 28 34 29 0d 0e  e2 17 20 20 e3 20 73 25  |ne%(4)....  . s%|
00001fd0  3d 31 20 b8 20 73 74 72  6f 6b 65 73 25 0d 0e ec  |=1 . strokes%...|
00001fe0  3b 20 20 20 20 63 6c 65  6e 3d b6 28 28 6c 78 28  |;    clen=.((lx(|
00001ff0  30 2c 73 25 29 2d 6c 78  28 31 2c 73 25 29 29 5e  |0,s%)-lx(1,s%))^|
00002000  32 2b 28 6c 79 28 30 2c  73 25 29 2d 6c 79 28 31  |2+(ly(0,s%)-ly(1|
00002010  2c 73 25 29 29 5e 32 29  0d 0e f6 18 20 20 20 20  |,s%))^2)....    |
00002020  64 69 66 66 3d 94 28 63  6c 65 6e 2d 6c 65 6e 29  |diff=.(clen-len)|
00002030  0d 0f 00 13 20 20 20 20  e7 20 64 69 66 66 3c 73  |....    . diff<s|
00002040  64 20 8c 0d 0f 0a 0f 20  20 20 20 20 20 6e 70 25  |d .....      np%|
00002050  3d b9 0d 0f 14 13 20 20  20 20 20 20 6e 6c 65 6e  |=.....      nlen|
00002060  3d 63 6c 65 6e 0d 0f 1e  11 20 20 20 20 20 20 73  |=clen....      s|
00002070  64 3d 64 69 66 66 0d 0f  28 09 20 20 20 20 cd 0d  |d=diff..(.    ..|
00002080  0f 32 0a 20 20 ed 20 73  25 0d 0f 3c 20 20 20 e7  |.2.  . s%..<   .|
00002090  20 6e 70 25 20 8c 20 f2  72 65 64 6f 77 69 74 68  | np% . .redowith|
000020a0  66 69 78 28 6e 6c 65 6e  29 0d 0f 46 05 cd 0d 0f  |fix(nlen)..F....|
000020b0  50 05 e1 0d 0f 5a 04 0d  0f 64 0f dd 20 a4 61 6e  |P....Z...d.. .an|
000020c0  67 28 74 73 25 29 0d 0f  6e 1c 79 64 3d 74 73 79  |g(ts%)..n.yd=tsy|
000020d0  28 31 2c 74 73 25 29 2d  74 73 79 28 30 2c 74 73  |(1,ts%)-tsy(0,ts|
000020e0  25 29 0d 0f 78 1c 78 64  3d 74 73 78 28 31 2c 74  |%)..x.xd=tsx(1,t|
000020f0  73 25 29 2d 74 73 78 28  30 2c 74 73 25 29 0d 0f  |s%)-tsx(0,ts%)..|
00002100  82 13 e7 20 78 64 3d 30  20 80 20 79 64 3d 30 20  |... xd=0 . yd=0 |
00002110  8c 0d 0f 8c 09 61 6e 67  3d 30 0d 0f 96 05 cc 0d  |.....ang=0......|
00002120  0f a0 13 e7 20 94 28 79  64 29 3c 94 28 78 64 29  |.... .(yd)<.(xd)|
00002130  20 8c 0d 0f aa 11 61 6e  67 3d 9d 99 28 79 64 2f  | .....ang=..(yd/|
00002140  78 64 29 0d 0f b4 18 e7  20 78 64 3c 30 20 8c 20  |xd)..... xd<0 . |
00002150  61 6e 67 3d 61 6e 67 2b  31 38 30 0d 0f be 05 cc  |ang=ang+180.....|
00002160  0d 0f c8 14 61 6e 67 3d  39 30 2d 9d 99 28 78 64  |....ang=90-..(xd|
00002170  2f 79 64 29 0d 0f d2 18  e7 20 79 64 3c 30 20 8c  |/yd)..... yd<0 .|
00002180  20 61 6e 67 3d 61 6e 67  2b 31 38 30 0d 0f dc 05  | ang=ang+180....|
00002190  cd 0d 0f e6 0c 61 6e 67  2b 3d 33 36 30 0d 0f f0  |.....ang+=360...|
000021a0  0f c8 95 20 61 6e 67 3e  3d 33 36 30 0d 0f fa 0c  |... ang>=360....|
000021b0  61 6e 67 2d 3d 33 36 30  0d 10 04 05 ce 0d 10 0e  |ang-=360........|
000021c0  05 cd 0d 10 18 08 3d 61  6e 67 0d 10 22 04 0d 10  |......=ang.."...|
000021d0  2c 10 dd 20 f2 74 65 73  74 28 78 2c 79 29 0d 10  |,.. .test(x,y)..|
000021e0  36 2f 64 69 73 74 3d b6  28 28 74 73 78 28 65 25  |6/dist=.((tsx(e%|
000021f0  2c 74 73 25 29 2d 78 29  5e 32 2b 28 74 73 79 28  |,ts%)-x)^2+(tsy(|
00002200  65 25 2c 74 73 25 29 2d  79 29 5e 32 29 0d 10 40  |e%,ts%)-y)^2)..@|
00002210  0f e7 20 64 69 73 74 3c  6e 64 20 8c 0d 10 4a 0d  |.. dist<nd ...J.|
00002220  20 20 6e 64 3d 64 69 73  74 0d 10 54 0a 20 20 6e  |  nd=dist..T.  n|
00002230  78 3d 78 0d 10 5e 0a 20  20 6e 79 3d 79 0d 10 68  |x=x..^.  ny=y..h|
00002240  0b 20 20 6e 70 25 3d b9  0d 10 72 05 cd 0d 10 7c  |.  np%=...r....||
00002250  05 e1 0d 10 86 04 0d 10  90 14 dd 20 f2 66 69 6e  |........... .fin|
00002260  64 28 71 2c 77 2c 69 6e  25 29 0d 10 9a 21 72 3d  |d(q,w,in%)...!r=|
00002270  28 71 2d 78 30 29 2a b5  28 61 6e 67 29 2b 28 79  |(q-x0)*.(ang)+(y|
00002280  30 2d 77 29 2a 9b 28 61  6e 67 29 0d 10 a4 16 78  |0-w)*.(ang)....x|
00002290  28 69 6e 25 29 3d 2d b5  28 61 6e 67 29 2a 72 2b  |(in%)=-.(ang)*r+|
000022a0  71 0d 10 ae 15 79 28 69  6e 25 29 3d 9b 28 61 6e  |q....y(in%)=.(an|
000022b0  67 29 2a 72 2b 77 0d 10  b8 05 e1 0d 10 c2 04 0d  |g)*r+w..........|
000022c0  10 cc 10 dd 20 f2 6e 65  61 72 61 6e 67 6c 65 0d  |.... .nearangle.|
000022d0  10 d6 10 61 6e 67 3d 74  73 61 28 74 73 25 29 0d  |...ang=tsa(ts%).|
000022e0  10 e0 15 6e 70 25 3d 30  3a 73 64 3d 74 75 6e 65  |...np%=0:sd=tune|
000022f0  25 28 35 29 0d 10 ea 10  e7 20 73 74 72 6f 6b 65  |%(5)..... stroke|
00002300  73 25 20 8c 0d 10 f4 1a  e3 20 73 74 72 6f 6b 65  |s% ...... stroke|
00002310  25 3d 31 20 b8 20 73 74  72 6f 6b 65 73 25 0d 10  |%=1 . strokes%..|
00002320  fe 12 e7 20 73 65 6c 65  63 74 25 28 35 29 20 8c  |... select%(5) .|
00002330  0d 11 08 1e 20 20 f2 74  65 73 74 61 6e 67 28 61  |....  .testang(a|
00002340  6e 67 6c 65 28 73 74 72  6f 6b 65 25 29 29 0d 11  |ngle(stroke%))..|
00002350  12 22 20 20 f2 74 65 73  74 61 6e 67 28 61 6e 67  |."  .testang(ang|
00002360  6c 65 28 73 74 72 6f 6b  65 25 29 2b 31 38 30 29  |le(stroke%)+180)|
00002370  0d 11 1c 05 cd 0d 11 26  12 e7 20 73 65 6c 65 63  |.......&.. selec|
00002380  74 25 28 36 29 20 8c 0d  11 30 21 20 20 f2 74 65  |t%(6) ...0!  .te|
00002390  73 74 61 6e 67 28 61 6e  67 6c 65 28 73 74 72 6f  |stang(angle(stro|
000023a0  6b 65 25 29 2b 39 30 29  0d 11 3a 22 20 20 f2 74  |ke%)+90)..:"  .t|
000023b0  65 73 74 61 6e 67 28 61  6e 67 6c 65 28 73 74 72  |estang(angle(str|
000023c0  6f 6b 65 25 29 2b 32 37  30 29 0d 11 44 05 cd 0d  |oke%)+270)..D...|
000023d0  11 4e 0d ed 20 73 74 72  6f 6b 65 25 0d 11 58 05  |.N.. stroke%..X.|
000023e0  cd 0d 11 62 31 e7 20 6e  70 25 3d 30 20 80 20 73  |...b1. np%=0 . s|
000023f0  65 6c 65 63 74 25 28 37  29 20 8c 20 f2 74 65 73  |elect%(7) . .tes|
00002400  74 61 6e 67 28 a8 28 61  6e 67 2f 31 35 29 2a 31  |tang(.(ang/15)*1|
00002410  35 29 0d 11 6c 34 e7 20  6e 70 25 3d 30 20 80 20  |5)..l4. np%=0 . |
00002420  73 65 6c 65 63 74 25 28  37 29 20 8c 20 f2 74 65  |select%(7) . .te|
00002430  73 74 61 6e 67 28 a8 28  61 6e 67 2f 31 35 29 2a  |stang(.(ang/15)*|
00002440  31 35 2b 31 35 29 0d 11  76 0b e7 20 6e 70 25 20  |15+15)..v.. np% |
00002450  8c 0d 11 80 13 e7 20 a4  66 69 78 28 74 73 25 29  |...... .fix(ts%)|
00002460  3c 33 20 8c 0d 11 8a 13  20 20 74 73 61 28 74 73  |<3 .....  tsa(ts|
00002470  25 29 3d 6e 61 6e 67 0d  11 94 1d 20 20 f2 72 65  |%)=nang....  .re|
00002480  64 6f 77 69 74 68 66 69  78 28 a4 6c 65 6e 28 74  |dowithfix(.len(t|
00002490  73 25 29 29 0d 11 9e 05  cd 0d 11 a8 05 cd 0d 11  |s%))............|
000024a0  b2 05 e1 0d 11 bc 04 0d  11 c6 17 dd 20 f2 72 65  |............ .re|
000024b0  64 6f 77 69 74 68 66 69  78 28 6c 65 6e 29 0d 11  |dowithfix(len)..|
000024c0  d0 12 c8 8e 20 a4 66 69  78 28 74 73 25 29 20 ca  |.... .fix(ts%) .|
000024d0  0d 11 da 09 20 20 c9 20  30 0d 11 e4 24 20 20 20  |....  . 0...$   |
000024e0  20 6d 78 3d 28 74 73 78  28 30 2c 74 73 25 29 2b  | mx=(tsx(0,ts%)+|
000024f0  74 73 78 28 31 2c 74 73  25 29 29 2f 32 0d 11 ee  |tsx(1,ts%))/2...|
00002500  24 20 20 20 20 6d 79 3d  28 74 73 79 28 30 2c 74  |$    my=(tsy(0,t|
00002510  73 25 29 2b 74 73 79 28  31 2c 74 73 25 29 29 2f  |s%)+tsy(1,ts%))/|
00002520  32 0d 11 f8 2a 20 20 20  20 74 73 78 28 30 2c 74  |2...*    tsx(0,t|
00002530  73 25 29 3d 6d 78 2d a4  63 6f 73 28 74 73 61 28  |s%)=mx-.cos(tsa(|
00002540  74 73 25 29 29 2a 6c 65  6e 2f 32 0d 12 02 2a 20  |ts%))*len/2...* |
00002550  20 20 20 74 73 79 28 30  2c 74 73 25 29 3d 6d 79  |   tsy(0,ts%)=my|
00002560  2d a4 73 69 6e 28 74 73  61 28 74 73 25 29 29 2a  |-.sin(tsa(ts%))*|
00002570  6c 65 6e 2f 32 0d 12 0c  2a 20 20 20 20 74 73 78  |len/2...*    tsx|
00002580  28 31 2c 74 73 25 29 3d  a4 63 6f 73 28 74 73 61  |(1,ts%)=.cos(tsa|
00002590  28 74 73 25 29 29 2a 6c  65 6e 2f 32 2b 6d 78 0d  |(ts%))*len/2+mx.|
000025a0  12 16 2a 20 20 20 20 74  73 79 28 31 2c 74 73 25  |..*    tsy(1,ts%|
000025b0  29 3d a4 73 69 6e 28 74  73 61 28 74 73 25 29 29  |)=.sin(tsa(ts%))|
000025c0  2a 6c 65 6e 2f 32 2b 6d  79 0d 12 20 09 20 20 c9  |*len/2+my.. .  .|
000025d0  20 31 0d 12 2a 30 20 20  20 20 74 73 78 28 31 2c  | 1..*0    tsx(1,|
000025e0  74 73 25 29 3d a4 63 6f  73 28 74 73 61 28 74 73  |ts%)=.cos(tsa(ts|
000025f0  25 29 29 2a 6c 65 6e 2b  74 73 78 28 30 2c 74 73  |%))*len+tsx(0,ts|
00002600  25 29 0d 12 34 30 20 20  20 20 74 73 79 28 31 2c  |%)..40    tsy(1,|
00002610  74 73 25 29 3d a4 73 69  6e 28 74 73 61 28 74 73  |ts%)=.sin(tsa(ts|
00002620  25 29 29 2a 6c 65 6e 2b  74 73 79 28 30 2c 74 73  |%))*len+tsy(0,ts|
00002630  25 29 0d 12 3e 09 20 20  c9 20 32 0d 12 48 30 20  |%)..>.  . 2..H0 |
00002640  20 20 20 74 73 78 28 30  2c 74 73 25 29 3d 74 73  |   tsx(0,ts%)=ts|
00002650  78 28 31 2c 74 73 25 29  2d a4 63 6f 73 28 74 73  |x(1,ts%)-.cos(ts|
00002660  61 28 74 73 25 29 29 2a  6c 65 6e 0d 12 52 30 20  |a(ts%))*len..R0 |
00002670  20 20 20 74 73 79 28 30  2c 74 73 25 29 3d 74 73  |   tsy(0,ts%)=ts|
00002680  79 28 31 2c 74 73 25 29  2d a4 73 69 6e 28 74 73  |y(1,ts%)-.sin(ts|
00002690  61 28 74 73 25 29 29 2a  6c 65 6e 0d 12 5c 05 cb  |a(ts%))*len..\..|
000026a0  0d 12 66 05 e1 0d 12 70  04 0d 12 7a 0f dd 20 a4  |..f....p...z.. .|
000026b0  63 6f 73 28 61 6e 67 29  0d 12 84 0a c8 8e 20 b9  |cos(ang)...... .|
000026c0  20 ca 0d 12 8e 20 20 20  c9 20 61 6e 67 3d 39 30  | ....   . ang=90|
000026d0  20 84 20 61 6e 67 3d 32  37 30 20 3a 20 61 6e 73  | . ang=270 : ans|
000026e0  3d 30 0d 12 98 15 20 20  c9 20 61 6e 67 3d 30 20  |=0....  . ang=0 |
000026f0  3a 20 61 6e 73 3d 31 0d  12 a2 18 20 20 c9 20 61  |: ans=1....  . a|
00002700  6e 67 3d 31 38 30 20 3a  20 61 6e 73 3d 2d 31 0d  |ng=180 : ans=-1.|
00002710  12 ac 24 20 20 c9 20 61  6e 67 3e 30 20 80 20 61  |..$  . ang>0 . a|
00002720  6e 67 3c 39 30 20 3a 20  61 6e 73 3d 9b b2 28 61  |ng<90 : ans=..(a|
00002730  6e 67 29 0d 12 b6 2b 20  20 c9 20 61 6e 67 3e 39  |ng)...+  . ang>9|
00002740  30 20 80 20 61 6e 67 3c  31 38 30 20 3a 20 61 6e  |0 . ang<180 : an|
00002750  73 3d 2d 9b b2 28 31 38  30 2d 61 6e 67 29 0d 12  |s=-..(180-ang)..|
00002760  c0 2c 20 20 c9 20 61 6e  67 3e 31 38 30 20 80 20  |.,  . ang>180 . |
00002770  61 6e 67 3c 32 37 30 20  3a 20 61 6e 73 3d 2d 9b  |ang<270 : ans=-.|
00002780  b2 28 61 6e 67 2d 31 38  30 29 0d 12 ca 21 20 20  |.(ang-180)...!  |
00002790  c9 20 61 6e 67 3e 32 37  30 20 3a 20 61 6e 73 3d  |. ang>270 : ans=|
000027a0  9b b2 28 33 36 30 2d 61  6e 67 29 0d 12 d4 05 cb  |..(360-ang).....|
000027b0  0d 12 de 08 3d 61 6e 73  0d 12 e8 04 0d 12 f2 0f  |....=ans........|
000027c0  dd 20 a4 73 69 6e 28 61  6e 67 29 0d 12 fc 0a c8  |. .sin(ang).....|
000027d0  8e 20 b9 20 ca 0d 13 06  1f 20 20 c9 20 61 6e 67  |. . .....  . ang|
000027e0  3d 30 20 84 20 61 6e 67  3d 31 38 30 20 3a 20 61  |=0 . ang=180 : a|
000027f0  6e 73 3d 30 0d 13 10 16  20 20 c9 20 61 6e 67 3d  |ns=0....  . ang=|
00002800  39 30 20 3a 20 61 6e 73  3d 31 0d 13 1a 18 20 20  |90 : ans=1....  |
00002810  c9 20 61 6e 67 3d 32 37  30 20 3a 20 61 6e 73 3d  |. ang=270 : ans=|
00002820  2d 31 0d 13 24 24 20 20  c9 20 61 6e 67 3e 30 20  |-1..$$  . ang>0 |
00002830  80 20 61 6e 67 3c 39 30  20 3a 20 61 6e 73 3d b5  |. ang<90 : ans=.|
00002840  b2 28 61 6e 67 29 0d 13  2e 2a 20 20 c9 20 61 6e  |.(ang)...*  . an|
00002850  67 3e 39 30 20 80 20 61  6e 67 3c 31 38 30 20 3a  |g>90 . ang<180 :|
00002860  20 61 6e 73 3d b5 b2 28  31 38 30 2d 61 6e 67 29  | ans=..(180-ang)|
00002870  0d 13 38 2c 20 20 c9 20  61 6e 67 3e 31 38 30 20  |..8,  . ang>180 |
00002880  80 20 61 6e 67 3c 32 37  30 20 3a 20 61 6e 73 3d  |. ang<270 : ans=|
00002890  2d b5 b2 28 61 6e 67 2d  31 38 30 29 0d 13 42 22  |-..(ang-180)..B"|
000028a0  20 20 c9 20 61 6e 67 3e  32 37 30 20 3a 20 61 6e  |  . ang>270 : an|
000028b0  73 3d 2d b5 b2 28 33 36  30 2d 61 6e 67 29 0d 13  |s=-..(360-ang)..|
000028c0  4c 05 cb 0d 13 56 08 3d  61 6e 73 0d 13 60 04 0d  |L....V.=ans..`..|
000028d0  13 6a 11 dd 20 a4 6d 6f  64 28 6e 2c 6d 6f 64 29  |.j.. .mod(n,mod)|
000028e0  0d 13 74 0d c8 95 20 6e  3e 3d 6d 6f 64 0d 13 7e  |..t... n>=mod..~|
000028f0  0b 6e 3d 6e 2d 6d 6f 64  0d 13 88 05 ce 0d 13 92  |.n=n-mod........|
00002900  06 3d 6e 0d 13 9c 04 0d  13 a6 14 dd 20 f2 74 65  |.=n......... .te|
00002910  73 74 61 6e 67 28 61 6e  67 31 29 0d 13 b0 17 61  |stang(ang1)....a|
00002920  6e 67 31 3d a4 6d 6f 64  28 61 6e 67 31 2c 33 36  |ng1=.mod(ang1,36|
00002930  30 29 0d 13 ba 12 64 61  3d 94 28 61 6e 67 2d 61  |0)....da=.(ang-a|
00002940  6e 67 31 29 0d 13 c4 19  64 61 31 3d 94 28 61 6e  |ng1)....da1=.(an|
00002950  67 2d 28 61 6e 67 31 2b  33 36 30 29 29 0d 13 ce  |g-(ang1+360))...|
00002960  15 e7 20 64 61 31 3c 64  61 20 8c 20 64 61 3d 64  |.. da1<da . da=d|
00002970  61 31 0d 13 d8 0d e7 20  64 61 3c 73 64 20 8c 0d  |a1..... da<sd ..|
00002980  13 e2 09 6e 70 25 3d b9  0d 13 ec 09 73 64 3d 64  |...np%=.....sd=d|
00002990  61 0d 13 f6 0d 6e 61 6e  67 3d 61 6e 67 31 0d 14  |a....nang=ang1..|
000029a0  00 05 cd 0d 14 0a 05 e1  0d 14 14 04 0d 14 1e 12  |................|
000029b0  dd 20 a4 6d 65 6e 75 69  63 6f 6e 62 61 72 0d 14  |. .menuiconbar..|
000029c0  28 15 e7 20 21 62 6c 6b  25 3d 31 20 8c 20 f2 71  |(.. !blk%=1 . .q|
000029d0  75 69 74 0d 14 32 06 3d  30 0d 14 3c 04 0d 14 46  |uit..2.=0..<...F|
000029e0  13 dd 20 a4 63 6c 69 63  6b 69 63 6f 6e 62 61 72  |.. .clickiconbar|
000029f0  0d 14 50 0e 73 74 72 6f  6b 65 73 25 3d 30 0d 14  |..P.strokes%=0..|
00002a00  5a 16 f2 6f 70 65 6e 75  70 28 77 25 28 6d 61 69  |Z..openup(w%(mai|
00002a10  6e 25 29 29 0d 14 64 06  3d 30 0d 14 6e 04 0d 14  |n%))..d.=0..n...|
00002a20  78 11 dd 20 a4 70 72 65  70 61 72 65 41 46 46 0d  |x.. .prepareAFF.|
00002a30  14 82 12 e7 20 73 74 72  6f 6b 65 73 25 3d 30 20  |.... strokes%=0 |
00002a40  8c 0d 14 8c 38 f2 72 65  70 6f 72 74 28 22 54 68  |....8.report("Th|
00002a50  65 72 65 20 69 73 20 6e  6f 74 68 69 6e 67 20 74  |ere is nothing t|
00002a60  6f 20 6d 61 6b 65 20 61  20 44 72 61 77 46 69 6c  |o make a DrawFil|
00002a70  65 20 66 72 6f 6d 21 22  29 0d 14 96 0b 6f 6b 61  |e from!")....oka|
00002a80  79 25 3d a3 0d 14 a0 05  cc 0d 14 aa 19 6f 6b 61  |y%=..........oka|
00002a90  79 25 3d a4 73 70 61 63  65 28 31 36 2a 31 30 32  |y%=.space(16*102|
00002aa0  34 29 0d 14 b4 0d e7 20  6f 6b 61 79 25 20 8c 0d  |4)..... okay% ..|
00002ab0  14 be 14 c8 99 22 48 6f  75 72 67 6c 61 73 73 5f  |....."Hourglass_|
00002ac0  4f 6e 22 0d 14 c8 0d 64  25 3d 62 6c 6f 63 6b 25  |On"....d%=block%|
00002ad0  0d 14 d2 0e 6f 66 66 78  25 3d 32 30 30 30 0d 14  |....offx%=2000..|
00002ae0  dc 0b 6f 66 66 79 25 3d  30 0d 14 e6 16 e3 20 73  |..offy%=0..... s|
00002af0  74 25 3d 31 20 b8 20 73  74 72 6f 6b 65 73 25 0d  |t%=1 . strokes%.|
00002b00  14 f0 0e e3 20 65 25 3d  30 20 b8 20 31 0d 14 fa  |.... e%=0 . 1...|
00002b10  29 e7 20 6c 78 28 65 25  2c 73 74 25 29 3c 6f 66  |). lx(e%,st%)<of|
00002b20  66 78 25 20 8c 20 6f 66  66 78 25 3d 6c 78 28 65  |fx% . offx%=lx(e|
00002b30  25 2c 73 74 25 29 0d 15  04 2b e7 20 2d 6c 79 28  |%,st%)...+. -ly(|
00002b40  65 25 2c 73 74 25 29 3e  6f 66 66 79 25 20 8c 20  |e%,st%)>offy% . |
00002b50  6f 66 66 79 25 3d 2d 6c  79 28 65 25 2c 73 74 25  |offy%=-ly(e%,st%|
00002b60  29 0d 15 0e 08 ed 20 65  25 0d 15 18 09 ed 20 73  |)..... e%..... s|
00002b70  74 25 0d 15 22 19 6f 66  66 78 25 3d 28 31 30 30  |t%..".offx%=(100|
00002b80  2d 6f 66 66 78 25 29 2a  32 35 36 0d 15 2c 19 6f  |-offx%)*256..,.o|
00002b90  66 66 79 25 3d 28 6f 66  66 79 25 2b 31 30 30 29  |ffy%=(offy%+100)|
00002ba0  2a 32 35 36 0d 15 36 0f  f2 64 72 61 77 68 65 61  |*256..6..drawhea|
00002bb0  64 65 72 0d 15 40 0f f2  73 74 61 72 74 67 72 6f  |der..@..startgro|
00002bc0  75 70 0d 15 4a 16 e3 20  73 74 25 3d 31 20 b8 20  |up..J.. st%=1 . |
00002bd0  73 74 72 6f 6b 65 73 25  0d 15 54 32 f2 6c 69 6e  |strokes%..T2.lin|
00002be0  65 28 6c 78 28 30 2c 73  74 25 29 2c 6c 79 28 30  |e(lx(0,st%),ly(0|
00002bf0  2c 73 74 25 29 2c 6c 78  28 31 2c 73 74 25 29 2c  |,st%),lx(1,st%),|
00002c00  6c 79 28 31 2c 73 74 25  29 29 0d 15 5e 09 ed 20  |ly(1,st%))..^.. |
00002c10  73 74 25 0d 15 68 0d f2  65 6e 64 67 72 6f 75 70  |st%..h..endgroup|
00002c20  0d 15 72 13 73 69 7a 65  25 3d 64 25 2d 62 6c 6f  |..r.size%=d%-blo|
00002c30  63 6b 25 0d 15 7c 14 73  61 76 65 62 75 66 66 25  |ck%..|.savebuff%|
00002c40  3d 62 6c 6f 63 6b 25 0d  15 86 15 c8 99 22 48 6f  |=block%......"Ho|
00002c50  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 15 90 36  |urglass_Off"...6|
00002c60  e7 20 ac 6f 6b 61 79 25  20 8c 20 f2 72 65 70 6f  |. .okay% . .repo|
00002c70  72 74 28 22 4e 6f 20 72  6f 6f 6d 20 74 6f 20 70  |rt("No room to p|
00002c80  72 65 70 61 72 65 20 44  72 61 77 20 66 69 6c 65  |repare Draw file|
00002c90  22 29 0d 15 9a 05 cd 0d  15 a4 05 cd 0d 15 ae 0a  |")..............|
00002ca0  3d 6f 6b 61 79 25 0d 15  b8 04 0d 15 c2 1f f4 20  |=okay%......... |
00002cb0  2d 2d 2d 2d 73 61 76 65  20 62 6f 78 20 72 6f 75  |----save box rou|
00002cc0  74 69 6e 65 73 2d 2d 2d  2d 0d 15 cc 04 0d 15 d6  |tines----.......|
00002cd0  0f dd 20 a4 64 72 6f 70  73 61 76 65 0d 15 e0 62  |.. .dropsave...b|
00002ce0  e7 20 a0 28 22 46 4e 70  72 65 70 61 72 65 22 2b  |. .("FNprepare"+|
00002cf0  c3 7e 28 6d 69 73 63 25  28 64 72 61 67 69 64 25  |.~(misc%(dragid%|
00002d00  29 29 29 20 8c 20 f2 64  72 6f 70 66 69 6c 65 28  |))) . .dropfile(|
00002d10  a4 69 63 6f 6e 74 65 78  74 28 77 25 28 64 72 61  |.icontext(w%(dra|
00002d20  67 69 64 25 29 2c 32 29  2c 6d 69 73 63 25 28 64  |gid%),2),misc%(d|
00002d30  72 61 67 69 64 25 29 2c  73 69 7a 65 25 29 0d 15  |ragid%),size%)..|
00002d40  ea 06 3d 30 0d 15 f4 04  0d 15 fe 10 dd 20 a4 63  |..=0......... .c|
00002d50  6c 69 63 6b 73 61 76 65  0d 16 08 2f e7 20 69 63  |licksave.../. ic|
00002d60  6f 6e 25 3d 30 20 8c 20  f2 73 61 76 65 28 69 64  |on%=0 . .save(id|
00002d70  25 2c a4 69 63 6f 6e 74  65 78 74 28 77 69 6e 64  |%,.icontext(wind|
00002d80  25 2c 32 29 2c a3 29 0d  16 12 06 3d 30 0d 16 1c  |%,2),.)....=0...|
00002d90  04 0d 16 26 0e dd 20 a4  6b 65 79 73 61 76 65 0d  |...&.. .keysave.|
00002da0  16 30 37 e7 20 6b 65 79  25 3d 31 33 20 8c 20 f2  |.07. key%=13 . .|
00002db0  73 61 76 65 28 69 64 25  2c a4 69 63 6f 6e 74 65  |save(id%,.iconte|
00002dc0  78 74 28 77 69 6e 64 25  2c 32 29 2c a3 29 3a 74  |xt(wind%,2),.):t|
00002dd0  61 6b 65 6e 3d b9 0d 16  3a 06 3d 30 0d 16 44 04  |aken=...:.=0..D.|
00002de0  0d 16 4e 23 f4 20 2d 2d  2d 2d 57 49 4d 50 20 4c  |..N#. ----WIMP L|
00002df0  69 62 72 61 72 79 20 72  6f 75 74 69 6e 65 73 2d  |ibrary routines-|
00002e00  2d 2d 2d 0d 16 58 04 0d  16 62 14 dd 20 f2 6f 70  |---..X...b.. .op|
00002e10  65 6e 75 70 28 77 69 6e  64 25 29 0d 16 6c 0f 21  |enup(wind%)..l.!|
00002e20  62 6c 6b 25 3d 77 69 6e  64 25 0d 16 76 12 69 64  |blk%=wind%..v.id|
00002e30  25 3d a4 69 64 28 77 69  6e 64 25 29 0d 16 80 15  |%=.id(wind%)....|
00002e40  e7 20 ac 61 63 74 69 76  65 25 28 69 64 25 29 20  |. .active%(id%) |
00002e50  8c 0d 16 8a 0e e3 20 64  25 3d 30 20 b8 20 35 0d  |...... d%=0 . 5.|
00002e60  16 94 26 21 28 62 6c 6b  25 2b 28 64 25 3c 3c 32  |..&!(blk%+(d%<<2|
00002e70  29 2b 34 29 3d 64 65 66  61 75 6c 74 25 28 64 25  |)+4)=default%(d%|
00002e80  2c 69 64 25 29 0d 16 9e  08 ed 20 64 25 0d 16 a8  |,id%)..... d%...|
00002e90  05 cc 0d 16 b2 21 c8 99  22 57 69 6d 70 5f 47 65  |.....!.."Wimp_Ge|
00002ea0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00002eb0  6c 6b 25 0d 16 bc 05 cd  0d 16 c6 0e 62 6c 6b 25  |lk%.........blk%|
00002ec0  21 32 38 3d 2d 31 0d 16  d0 19 61 63 74 69 76 65  |!28=-1....active|
00002ed0  25 28 a4 69 64 28 77 69  6e 64 25 29 29 3d b9 0d  |%(.id(wind%))=..|
00002ee0  16 da 0f f2 6f 70 65 6e  77 69 6e 64 6f 77 0d 16  |....openwindow..|
00002ef0  e4 05 e1 0d 16 ee 04 0d  16 f8 11 dd 20 f2 6f 70  |............ .op|
00002f00  65 6e 77 69 6e 64 6f 77  0d 17 02 1d c8 99 22 57  |enwindow......"W|
00002f10  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00002f20  2c 62 6c 6b 25 0d 17 0c  05 e1 0d 17 16 04 0d 17  |,blk%...........|
00002f30  20 22 dd 20 f2 6b 65 79  28 77 69 6e 64 25 2c 69  | ". .key(wind%,i|
00002f40  63 6f 6e 25 2c 78 70 6f  73 25 2c 6b 65 79 25 29  |con%,xpos%,key%)|
00002f50  0d 17 2a 0b 74 61 6b 65  6e 3d a3 0d 17 34 21 64  |..*.taken=...4!d|
00002f60  25 3d a0 28 22 46 4e 6b  65 79 22 2b 69 64 24 28  |%=.("FNkey"+id$(|
00002f70  a4 69 64 28 77 69 6e 64  25 29 29 29 0d 17 3e 27  |.id(wind%)))..>'|
00002f80  e7 20 ac 74 61 6b 65 6e  20 8c 20 c8 99 22 57 69  |. .taken . .."Wi|
00002f90  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 6b  |mp_ProcessKey",k|
00002fa0  65 79 25 0d 17 48 05 e1  0d 17 52 04 0d 17 5c 23  |ey%..H....R...\#|
00002fb0  dd 20 f2 6d 65 73 73 61  67 65 28 74 61 73 6b 25  |. .message(task%|
00002fc0  2c 72 65 66 25 2c 6d 65  73 73 61 67 65 25 29 0d  |,ref%,message%).|
00002fd0  17 66 11 c8 8e 20 6d 65  73 73 61 67 65 25 20 ca  |.f... message% .|
00002fe0  0d 17 70 11 20 20 c9 20  30 20 3a 20 f2 71 75 69  |..p.  . 0 : .qui|
00002ff0  74 0d 17 7a 09 20 20 c9  20 32 0d 17 84 29 20 20  |t..z.  . 2...)  |
00003000  20 20 f2 73 61 76 65 28  64 72 61 67 69 64 25 2c  |  .save(dragid%,|
00003010  a4 73 74 72 69 6e 67 28  62 6c 6b 25 2b 34 34 29  |.string(blk%+44)|
00003020  2c b9 29 0d 17 8e 3f 20  20 20 20 e7 20 73 61 76  |,.)...?    . sav|
00003030  65 64 25 20 8c 20 f2 74  65 6c 6c 74 6f 6c 6f 61  |ed% . .telltoloa|
00003040  64 20 8b 20 f2 72 65 70  6f 72 74 28 22 43 6f 75  |d . .report("Cou|
00003050  6c 64 20 6e 6f 74 20 73  61 76 65 20 66 69 6c 65  |ld not save file|
00003060  22 29 0d 17 98 09 20 20  c9 20 36 0d 17 a2 1a 20  |")....  . 6.... |
00003070  20 20 20 74 6f 67 6f 25  3d 73 69 7a 65 25 2d 74  |   togo%=size%-t|
00003080  72 61 6e 73 25 0d 17 ac  27 20 20 20 20 e7 20 74  |rans%...'    . t|
00003090  6f 67 6f 25 3e 62 6c 6b  25 21 32 34 20 8c 20 74  |ogo%>blk%!24 . t|
000030a0  6f 67 6f 25 3d 62 6c 6b  25 21 32 34 0d 17 b6 4b  |ogo%=blk%!24...K|
000030b0  20 20 20 20 c8 99 22 57  69 6d 70 5f 54 72 61 6e  |    .."Wimp_Tran|
000030c0  73 66 65 72 42 6c 6f 63  6b 22 2c 6d 79 74 61 73  |sferBlock",mytas|
000030d0  6b 25 2c 73 61 76 65 62  75 66 66 25 2b 74 72 61  |k%,savebuff%+tra|
000030e0  6e 73 25 2c 74 61 73 6b  25 2c 62 6c 6b 25 21 32  |ns%,task%,blk%!2|
000030f0  30 2c 74 6f 67 6f 25 0d  17 c0 15 20 20 20 20 62  |0,togo%....    b|
00003100  6c 6b 25 21 32 34 3d 74  6f 67 6f 25 0d 17 ca 14  |lk%!24=togo%....|
00003110  20 20 20 20 f2 72 65 70  6c 79 28 31 38 2c 37 29  |    .reply(18,7)|
00003120  0d 17 d4 15 20 20 20 20  74 72 61 6e 73 25 2b 3d  |....    trans%+=|
00003130  74 6f 67 6f 25 0d 17 de  18 20 20 20 20 e7 20 74  |togo%....    . t|
00003140  72 61 6e 73 25 3d 73 69  7a 65 25 20 8c 0d 17 e8  |rans%=size% ....|
00003150  14 20 20 20 20 20 20 f2  63 6c 6f 73 65 6d 65 6e  |.      .closemen|
00003160  75 0d 17 f2 14 20 20 20  20 20 20 f2 72 65 73 65  |u....      .rese|
00003170  74 73 6c 6f 74 0d 17 fc  09 20 20 20 20 cd 0d 18  |tslot....    ...|
00003180  06 19 20 20 c9 20 26 34  30 30 43 31 20 3a 20 f2  |..  . &400C1 : .|
00003190  6e 65 77 6d 6f 64 65 0d  18 10 05 cb 0d 18 1a 05  |newmode.........|
000031a0  e1 0d 18 24 04 0d 18 2e  11 dd 20 f2 74 65 6c 6c  |...$...... .tell|
000031b0  74 6f 6c 6f 61 64 0d 18  38 0e f2 6d 6f 75 73 65  |toload..8..mouse|
000031c0  69 6e 66 6f 0d 18 42 11  62 6c 6b 25 21 32 30 3d  |info..B.blk%!20=|
000031d0  77 69 6e 64 25 0d 18 4c  11 62 6c 6b 25 21 32 34  |wind%..L.blk%!24|
000031e0  3d 69 63 6f 6e 25 0d 18  56 0f 62 6c 6b 25 21 32  |=icon%..V.blk%!2|
000031f0  38 3d 6d 78 25 0d 18 60  0f 62 6c 6b 25 21 33 32  |8=mx%..`.blk%!32|
00003200  3d 6d 79 25 0d 18 6a 11  62 6c 6b 25 21 33 36 3d  |=my%..j.blk%!36=|
00003210  73 69 7a 65 25 0d 18 74  15 62 6c 6b 25 21 34 30  |size%..t.blk%!40|
00003220  3d 66 69 6c 65 74 79 70  65 25 0d 18 7e 1b 24 28  |=filetype%..~.$(|
00003230  62 6c 6b 25 2b 34 34 29  3d 66 69 6c 65 6e 61 6d  |blk%+44)=filenam|
00003240  65 24 2b bd 30 0d 18 88  1d 21 62 6c 6b 25 3d 28  |e$+.0....!blk%=(|
00003250  a9 24 28 62 6c 6b 25 2b  34 34 29 2b 34 38 29 80  |.$(blk%+44)+48).|
00003260  ac 33 0d 18 92 10 f2 72  65 70 6c 79 28 31 37 2c  |.3.....reply(17,|
00003270  33 29 0d 18 9c 05 e1 0d  18 a6 04 0d 18 b0 0d dd  |3)..............|
00003280  20 f2 72 65 64 72 61 77  0d 18 ba 12 69 64 25 3d  | .redraw....id%=|
00003290  a4 69 64 28 21 62 6c 6b  25 29 0d 18 c4 16 f2 77  |.id(!blk%).....w|
000032a0  69 6e 64 6f 77 69 6e 66  6f 28 21 62 6c 6b 25 29  |indowinfo(!blk%)|
000032b0  0d 18 ce 27 c8 99 22 57  69 6d 70 5f 52 65 64 72  |...'.."Wimp_Redr|
000032c0  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6b 25 20  |awWindow",,blk% |
000032d0  b8 20 6d 6f 72 65 25 0d  18 d8 0c c8 95 20 6d 6f  |. more%...... mo|
000032e0  72 65 25 0d 18 e2 13 78  30 25 3d 62 6c 6b 25 21  |re%....x0%=blk%!|
000032f0  32 38 2d 77 78 25 0d 18  ec 13 79 30 25 3d 62 6c  |28-wx%....y0%=bl|
00003300  6b 25 21 33 32 2d 77 79  25 0d 18 f6 13 78 31 25  |k%!32-wy%....x1%|
00003310  3d 62 6c 6b 25 21 33 36  2d 77 78 25 0d 19 00 13  |=blk%!36-wx%....|
00003320  79 31 25 3d 62 6c 6b 25  21 34 30 2d 77 79 25 0d  |y1%=blk%!40-wy%.|
00003330  19 0a 1d 64 25 3d a0 28  22 46 4e 72 65 64 72 61  |...d%=.("FNredra|
00003340  77 22 2b 69 64 24 28 69  64 25 29 29 0d 19 14 27  |w"+id$(id%))...'|
00003350  c8 99 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |.."Wimp_GetRecta|
00003360  6e 67 6c 65 22 2c 2c 62  6c 6b 25 20 b8 20 6d 6f  |ngle",,blk% . mo|
00003370  72 65 25 0d 19 1e 05 ce  0d 19 28 05 e1 0d 19 32  |re%.......(....2|
00003380  04 0d 19 3c 10 dd 20 a4  69 64 28 66 69 6e 64 25  |...<.. .id(find%|
00003390  29 0d 19 46 13 66 6f 75  6e 64 25 3d 77 69 6e 64  |)..F.found%=wind|
000033a0  6f 77 73 25 0d 19 50 15  e3 20 69 25 3d 30 20 b8  |ows%..P.. i%=0 .|
000033b0  20 77 69 6e 64 6f 77 73  25 0d 19 5a 1e e7 20 77  | windows%..Z.. w|
000033c0  25 28 69 25 29 3d 66 69  6e 64 25 20 8c 20 66 6f  |%(i%)=find% . fo|
000033d0  75 6e 64 25 3d 69 25 0d  19 64 08 ed 20 69 25 0d  |und%=i%..d.. i%.|
000033e0  19 6e 0b 3d 66 6f 75 6e  64 25 0d 19 78 04 0d 19  |.n.=found%..x...|
000033f0  82 2a dd 20 f2 64 72 6f  70 66 69 6c 65 28 66 69  |.*. .dropfile(fi|
00003400  6c 65 6e 61 6d 65 24 2c  66 69 6c 65 74 79 70 65  |lename$,filetype|
00003410  25 2c 73 69 7a 65 25 29  0d 19 8c 0e f2 6d 6f 75  |%,size%).....mou|
00003420  73 65 69 6e 66 6f 0d 19  96 0d 62 6c 6b 25 21 31  |seinfo....blk%!1|
00003430  32 3d 30 0d 19 a0 0d 62  6c 6b 25 21 31 36 3d 31  |2=0....blk%!16=1|
00003440  0d 19 aa 11 62 6c 6b 25  21 32 30 3d 77 69 6e 64  |....blk%!20=wind|
00003450  25 0d 19 b4 11 62 6c 6b  25 21 32 34 3d 69 63 6f  |%....blk%!24=ico|
00003460  6e 25 0d 19 be 0f 62 6c  6b 25 21 32 38 3d 6d 78  |n%....blk%!28=mx|
00003470  25 0d 19 c8 0f 62 6c 6b  25 21 33 32 3d 6d 79 25  |%....blk%!32=my%|
00003480  0d 19 d2 11 62 6c 6b 25  21 33 36 3d 73 69 7a 65  |....blk%!36=size|
00003490  25 0d 19 dc 15 62 6c 6b  25 21 34 30 3d 66 69 6c  |%....blk%!40=fil|
000034a0  65 74 79 70 65 25 0d 19  e6 25 24 28 62 6c 6b 25  |etype%...%$(blk%|
000034b0  2b 34 34 29 3d a4 6c 61  73 74 62 69 74 28 66 69  |+44)=.lastbit(fi|
000034c0  6c 65 6e 61 6d 65 24 29  2b bd 30 0d 19 f0 1d 21  |lename$)+.0....!|
000034d0  62 6c 6b 25 3d 28 a9 24  28 62 6c 6b 25 2b 34 34  |blk%=(.$(blk%+44|
000034e0  29 2b 34 38 29 80 ac 33  0d 19 fa 30 c8 99 22 57  |)+48)..3...0.."W|
000034f0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00003500  2c 31 37 2c 62 6c 6b 25  2c 62 6c 6b 25 21 32 30  |,17,blk%,blk%!20|
00003510  2c 62 6c 6b 25 21 32 34  0d 1a 04 0c 74 72 61 6e  |,blk%!24....tran|
00003520  73 25 3d 30 0d 1a 0e 05  e1 0d 1a 18 04 0d 1a 22  |s%=0..........."|
00003530  0e dd 20 f2 65 6e 64 64  72 61 67 0d 1a 2c 0e f2  |.. .enddrag..,..|
00003540  6d 6f 75 73 65 69 6e 66  6f 0d 1a 36 22 e7 20 64  |mouseinfo..6". d|
00003550  72 61 67 25 20 8c 20 c8  99 22 44 72 61 67 41 53  |rag% . .."DragAS|
00003560  70 72 69 74 65 5f 53 74  6f 70 22 0d 1a 40 1f 64  |prite_Stop"..@.d|
00003570  25 3d a0 28 22 46 4e 64  72 6f 70 22 2b 69 64 24  |%=.("FNdrop"+id$|
00003580  28 64 72 61 67 69 64 25  29 29 0d 1a 4a 05 e1 0d  |(dragid%))..J...|
00003590  1a 54 04 0d 1a 5e 11 dd  20 f2 6d 65 6e 75 73 65  |.T...^.. .menuse|
000035a0  6c 65 63 74 0d 1a 68 1f  64 25 3d a0 28 22 46 4e  |lect..h.d%=.("FN|
000035b0  6d 65 6e 75 22 2b 69 64  24 28 6d 65 6e 75 69 64  |menu"+id$(menuid|
000035c0  25 29 29 0d 1a 72 0e f2  6d 6f 75 73 65 69 6e 66  |%))..r..mouseinf|
000035d0  6f 0d 1a 7c 3b e7 20 62  75 74 25 3d 31 20 8c 20  |o..|;. but%=1 . |
000035e0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
000035f0  6e 75 22 2c 2c 6f 70 65  6e 6d 65 6e 75 25 2c 6d  |nu",,openmenu%,m|
00003600  65 6e 75 78 25 2c 6d 65  6e 75 79 25 0d 1a 86 05  |enux%,menuy%....|
00003610  e1 0d 1a 90 04 0d 1a 9a  26 dd 20 f2 63 6c 69 63  |........&. .clic|
00003620  6b 28 6d 78 25 2c 6d 79  25 2c 62 75 74 25 2c 77  |k(mx%,my%,but%,w|
00003630  69 6e 64 25 2c 69 63 6f  6e 25 29 0d 1a a4 37 e7  |ind%,icon%)...7.|
00003640  20 a4 62 75 74 74 79 70  65 28 77 69 6e 64 25 2c  | .buttype(wind%,|
00003650  69 63 6f 6e 25 29 3d 39  20 8c 20 f2 66 6c 61 73  |icon%)=9 . .flas|
00003660  68 69 63 6f 6e 28 77 69  6e 64 25 2c 69 63 6f 6e  |hicon(wind%,icon|
00003670  25 29 0d 1a ae 12 69 64  25 3d a4 69 64 28 77 69  |%)....id%=.id(wi|
00003680  6e 64 25 29 0d 1a b8 0d  c8 8e 20 62 75 74 25 20  |nd%)...... but% |
00003690  ca 0d 1a c2 08 c9 20 36  34 0d 1a cc 22 20 20 c8  |...... 64..."  .|
000036a0  8e 20 a4 62 75 74 74 79  70 65 28 77 25 28 69 64  |. .buttype(w%(id|
000036b0  25 29 2c 69 63 6f 6e 25  29 20 ca 0d 1a d6 2d 20  |%),icon%) ....- |
000036c0  20 20 20 c9 20 36 2c 37  2c 38 2c 31 30 2c 31 34  |   . 6,7,8,10,14|
000036d0  20 3a 20 f2 73 74 61 72  74 64 72 61 67 28 69 64  | : .startdrag(id|
000036e0  25 2c 69 63 6f 6e 25 29  0d 1a e0 07 20 20 cb 0d  |%,icon%)....  ..|
000036f0  1a ea 18 c9 20 32 20 3a  20 f2 6f 70 65 6e 6d 65  |.... 2 : .openme|
00003700  6e 75 28 69 64 25 29 0d  1a f4 05 7f 0d 1a fe 1c  |nu(id%).........|
00003710  64 25 3d a0 28 22 46 4e  63 6c 69 63 6b 22 2b 69  |d%=.("FNclick"+i|
00003720  64 24 28 69 64 25 29 29  0d 1b 08 05 cb 0d 1b 12  |d$(id%))........|
00003730  05 e1 0d 1b 1c 04 0d 1b  26 14 dd 20 f2 6f 70 65  |........&.. .ope|
00003740  6e 6d 65 6e 75 28 69 64  25 29 0d 1b 30 12 e7 20  |nmenu(id%)..0.. |
00003750  6d 65 6e 75 25 28 69 64  25 29 20 8c 0d 1b 3a 0f  |menu%(id%) ...:.|
00003760  6d 65 6e 75 69 64 25 3d  69 64 25 0d 1b 44 18 6f  |menuid%=id%..D.o|
00003770  70 65 6e 6d 65 6e 75 25  3d 6d 65 6e 75 25 28 69  |penmenu%=menu%(i|
00003780  64 25 29 0d 1b 4e 2c e7  20 69 64 25 3d 30 20 8c  |d%)..N,. id%=0 .|
00003790  20 6d 65 6e 75 79 25 3d  62 61 72 68 65 69 67 68  | menuy%=barheigh|
000037a0  74 25 20 8b 20 6d 65 6e  75 79 25 3d 6d 79 25 0d  |t% . menuy%=my%.|
000037b0  1b 58 22 6d 65 6e 75 78  25 3d 6d 78 25 2d 28 6f  |.X"menux%=mx%-(o|
000037c0  70 65 6e 6d 65 6e 75 25  21 31 36 29 2f 32 2d 31  |penmenu%!16)/2-1|
000037d0  36 0d 1b 62 30 c8 99 22  57 69 6d 70 5f 43 72 65  |6..b0.."Wimp_Cre|
000037e0  61 74 65 4d 65 6e 75 22  2c 2c 6f 70 65 6e 6d 65  |ateMenu",,openme|
000037f0  6e 75 25 2c 6d 65 6e 75  78 25 2c 6d 65 6e 75 79  |nu%,menux%,menuy|
00003800  25 0d 1b 6c 05 cd 0d 1b  76 05 e1 0d 1b 80 04 0d  |%..l....v.......|
00003810  1b 8a 12 dd 20 f2 6c 6f  61 64 73 70 72 69 74 65  |.... .loadsprite|
00003820  73 0d 1b 94 1f 73 70 72  69 74 65 66 69 6c 65 24  |s....spritefile$|
00003830  3d 64 69 72 24 2b 22 2e  53 70 72 69 74 65 73 22  |=dir$+".Sprites"|
00003840  0d 1b 9e 30 c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |...0.."OS_File",|
00003850  35 2c 73 70 72 69 74 65  66 69 6c 65 24 20 b8 20  |5,spritefile$ . |
00003860  65 78 69 73 74 25 2c 2c  2c 2c 73 73 69 7a 65 25  |exist%,,,,ssize%|
00003870  0d 1b a8 10 e7 20 65 78  69 73 74 25 3d 31 20 8c  |..... exist%=1 .|
00003880  0d 1b b2 0e 73 73 69 7a  65 25 2b 3d 31 36 0d 1b  |....ssize%+=16..|
00003890  bc 15 de 20 73 70 72 69  74 65 73 25 20 73 73 69  |... sprites% ssi|
000038a0  7a 65 25 0d 1b c6 14 21  73 70 72 69 74 65 73 25  |ze%....!sprites%|
000038b0  3d 73 73 69 7a 65 25 0d  1b d0 10 73 70 72 69 74  |=ssize%....sprit|
000038c0  65 73 25 21 34 3d 30 0d  1b da 11 73 70 72 69 74  |es%!4=0....sprit|
000038d0  65 73 25 21 38 3d 31 36  0d 1b e4 12 73 70 72 69  |es%!8=16....spri|
000038e0  74 65 73 25 21 31 32 3d  31 36 0d 1b ee 2f c8 99  |tes%!12=16.../..|
000038f0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 31 30  |"OS_SpriteOp",10|
00003900  2b 32 35 36 2c 73 70 72  69 74 65 73 25 2c 73 70  |+256,sprites%,sp|
00003910  72 69 74 65 66 69 6c 65  24 0d 1b f8 05 cc 0d 1c  |ritefile$.......|
00003920  02 0f 73 70 72 69 74 65  73 25 3d 2d 31 0d 1c 0c  |..sprites%=-1...|
00003930  05 cd 0d 1c 16 05 e1 0d  1c 20 04 0d 1c 2a 1b dd  |......... ...*..|
00003940  20 f2 72 65 70 6c 79 28  74 79 70 65 25 2c 62 6c  | .reply(type%,bl|
00003950  6b 25 21 31 36 29 0d 1c  34 10 62 6c 6b 25 21 31  |k%!16)..4.blk%!1|
00003960  32 3d 72 65 66 25 0d 1c  3e 29 c8 99 22 57 69 6d  |2=ref%..>).."Wim|
00003970  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 74  |p_SendMessage",t|
00003980  79 70 65 25 2c 62 6c 6b  25 2c 74 61 73 6b 25 0d  |ype%,blk%,task%.|
00003990  1c 48 05 e1 0d 1c 52 04  0d 1c 5c 0e dd 20 f2 6e  |.H....R...\.. .n|
000039a0  65 77 6d 6f 64 65 0d 1c  66 0a 21 71 25 3d 31 31  |ewmode..f.!q%=11|
000039b0  0d 1c 70 0b 71 25 21 34  3d 31 32 0d 1c 7a 0a 71  |..p.q%!4=12..z.q|
000039c0  25 21 38 3d 34 0d 1c 84  0b 71 25 21 31 32 3d 35  |%!8=4....q%!12=5|
000039d0  0d 1c 8e 0c 71 25 21 31  36 3d 2d 31 0d 1c 98 21  |....q%!16=-1...!|
000039e0  c8 99 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |.."OS_ReadVduVar|
000039f0  69 61 62 6c 65 73 22 2c  71 25 2c 71 25 0d 1c a2  |iables",q%,q%...|
00003a00  18 73 63 78 25 3d 28 21  71 25 2b 31 29 3c 3c 28  |.scx%=(!q%+1)<<(|
00003a10  71 25 21 38 29 0d 1c ac  1a 73 63 79 25 3d 28 71  |q%!8)....scy%=(q|
00003a20  25 21 34 2b 31 29 3c 3c  28 71 25 21 31 32 29 0d  |%!4+1)<<(q%!12).|
00003a30  1c b6 05 e1 0d 1c c0 04  0d 1c ca 1b dd 20 a4 6c  |............. .l|
00003a40  6f 61 64 74 65 6d 70 6c  61 74 65 28 74 69 74 6c  |oadtemplate(titl|
00003a50  65 24 29 0d 1c d4 47 c8  99 22 57 69 6d 70 5f 4c  |e$)...G.."Wimp_L|
00003a60  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
00003a70  6b 25 2c 69 6e 64 25 2c  69 6e 64 65 6e 64 25 2c  |k%,ind%,indend%,|
00003a80  66 6f 6e 74 74 61 62 6c  65 25 2c 74 69 74 6c 65  |fonttable%,title|
00003a90  24 20 b8 20 2c 2c 69 6e  64 25 0d 1c de 25 e7 20  |$ . ,,ind%...%. |
00003aa0  73 70 72 69 74 65 73 25  3c 3e 2d 31 20 8c 20 62  |sprites%<>-1 . b|
00003ab0  6c 6b 25 21 36 34 3d 73  70 72 69 74 65 73 25 0d  |lk%!64=sprites%.|
00003ac0  1c e8 27 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..'.."Wimp_Creat|
00003ad0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 20 b8  |eWindow",,blk% .|
00003ae0  20 77 69 6e 64 25 0d 1c  f2 0a 3d 77 69 6e 64 25  | wind%....=wind%|
00003af0  0d 1c fc 04 0d 1d 06 18  dd 20 f2 74 69 63 6b 28  |......... .tick(|
00003b00  6d 65 6e 75 25 2c 74 69  63 6b 25 29 0d 1d 10 0e  |menu%,tick%)....|
00003b10  70 25 3d 6d 65 6e 75 25  2b 34 0d 1d 1a 09 61 25  |p%=menu%+4....a%|
00003b20  3d 2d 31 0d 1d 24 05 f5  0d 1d 2e 0a 70 25 2b 3d  |=-1..$......p%+=|
00003b30  32 34 0d 1d 38 09 61 25  2b 3d 31 0d 1d 42 29 e7  |24..8.a%+=1..B).|
00003b40  20 61 25 3d 74 69 63 6b  25 20 8c 20 21 70 25 3d  | a%=tick% . !p%=|
00003b50  21 70 25 20 84 31 20 8b  20 21 70 25 3d 21 70 25  |!p% .1 . !p%=!p%|
00003b60  20 80 ac 31 0d 1d 4c 0f  fd 20 21 70 25 20 80 20  | ..1..L.. !p% . |
00003b70  26 38 30 0d 1d 56 05 e1  0d 1d 60 04 0d 1d 6a 12  |&80..V....`...j.|
00003b80  dd 20 a4 6d 65 6e 75 28  74 65 78 74 24 29 0d 1d  |. .menu(text$)..|
00003b90  74 14 6f 6c 64 70 74 72  25 3d 6d 65 6e 75 70 74  |t.oldptr%=menupt|
00003ba0  72 25 0d 1d 7e 0c 69 74  65 6d 73 25 3d 30 0d 1d  |r%..~.items%=0..|
00003bb0  88 0e 74 65 78 74 24 2b  3d 22 2c 22 0d 1d 92 1b  |..text$+=","....|
00003bc0  74 69 74 6c 65 24 3d a4  6e 65 78 74 77 6f 72 64  |title$=.nextword|
00003bd0  28 74 65 78 74 24 29 0d  1d 9c 14 24 6d 65 6e 75  |(text$)....$menu|
00003be0  70 74 72 25 3d 74 69 74  6c 65 24 0d 1d a6 10 6d  |ptr%=title$....m|
00003bf0  61 78 25 3d a9 74 69 74  6c 65 24 0d 1d b0 16 6d  |ax%=.title$....m|
00003c00  65 6e 75 70 74 72 25 21  31 32 3d 26 37 30 32 30  |enuptr%!12=&7020|
00003c10  37 0d 1d ba 12 6d 65 6e  75 70 74 72 25 21 32 30  |7....menuptr%!20|
00003c20  3d 34 34 0d 1d c4 11 6d  65 6e 75 70 74 72 25 21  |=44....menuptr%!|
00003c30  32 34 3d 30 0d 1d ce 0f  6d 65 6e 75 70 74 72 25  |24=0....menuptr%|
00003c40  2b 3d 34 0d 1d d8 10 c8  95 20 74 65 78 74 24 3c  |+=4...... text$<|
00003c50  3e 22 22 0d 1d e2 0d 69  74 65 6d 73 25 2b 3d 31  |>""....items%+=1|
00003c60  0d 1d ec 10 6d 65 6e 75  70 74 72 25 2b 3d 32 34  |....menuptr%+=24|
00003c70  0d 1d f6 0f 21 6d 65 6e  75 70 74 72 25 3d 30 0d  |....!menuptr%=0.|
00003c80  1e 00 10 6d 65 6e 75 70  74 72 25 21 34 3d 30 0d  |...menuptr%!4=0.|
00003c90  1e 0a 1a 77 6f 72 64 24  3d a4 6e 65 78 74 77 6f  |...word$=.nextwo|
00003ca0  72 64 28 74 65 78 74 24  29 0d 1e 14 18 74 6f 6b  |rd(text$)....tok|
00003cb0  65 6e 24 3d a4 74 6f 6b  65 6e 28 77 6f 72 64 24  |en$=.token(word$|
00003cc0  29 0d 1e 1e 0a 69 31 25  3d 2d 31 0d 1e 28 11 c8  |)....i1%=-1..(..|
00003cd0  95 20 74 6f 6b 65 6e 24  3c 3e 22 22 0d 1e 32 0f  |. token$<>""..2.|
00003ce0  c8 8e 20 74 6f 6b 65 6e  24 20 ca 0d 1e 3c 2a c9  |.. token$ ...<*.|
00003cf0  20 22 3e 22 20 3a 20 6d  65 6e 75 70 74 72 25 21  | ">" : menuptr%!|
00003d00  34 3d a0 28 a4 6e 65 78  74 77 6f 72 64 28 74 65  |4=.(.nextword(te|
00003d10  78 74 24 29 29 0d 1e 46  23 c9 20 22 2f 22 20 3a  |xt$))..F#. "/" :|
00003d20  20 21 6d 65 6e 75 70 74  72 25 3d 21 6d 65 6e 75  | !menuptr%=!menu|
00003d30  70 74 72 25 20 84 20 31  0d 1e 50 23 c9 20 22 2d  |ptr% . 1..P#. "-|
00003d40  22 20 3a 20 21 6d 65 6e  75 70 74 72 25 3d 21 6d  |" : !menuptr%=!m|
00003d50  65 6e 75 70 74 72 25 20  84 20 32 0d 1e 5a 09 c9  |enuptr% . 2..Z..|
00003d60  20 22 21 22 0d 1e 64 1d  20 20 21 6d 65 6e 75 70  | "!"..d.  !menup|
00003d70  74 72 25 3d 21 6d 65 6e  75 70 74 72 25 20 84 20  |tr%=!menuptr% . |
00003d80  34 0d 1e 6e 1d 20 20 76  61 6c 69 64 24 3d a4 6e  |4..n.  valid$=.n|
00003d90  65 78 74 77 6f 72 64 28  74 65 78 74 24 29 0d 1e  |extword(text$)..|
00003da0  78 11 20 20 e7 20 a9 76  61 6c 69 64 24 20 8c 0d  |x.  . .valid$ ..|
00003db0  1e 82 15 20 20 de 20 69  31 25 20 a9 76 61 6c 69  |...  . i1% .vali|
00003dc0  64 24 2b 31 0d 1e 8c 11  20 20 24 69 31 25 3d 76  |d$+1....  $i1%=v|
00003dd0  61 6c 69 64 24 0d 1e 96  07 20 20 cd 0d 1e a0 05  |alid$....  .....|
00003de0  cb 0d 1e aa 18 74 6f 6b  65 6e 24 3d a4 74 6f 6b  |.....token$=.tok|
00003df0  65 6e 28 77 6f 72 64 24  29 0d 1e b4 05 ce 0d 1e  |en(word$).......|
00003e00  be 1f 6d 65 6e 75 70 74  72 25 21 38 3d 28 37 3c  |..menuptr%!8=(7<|
00003e10  3c 32 34 29 20 84 20 25  31 30 30 30 31 0d 1e c8  |<24) . %10001...|
00003e20  22 e7 20 21 6d 65 6e 75  70 74 72 25 20 80 20 34  |". !menuptr% . 4|
00003e30  20 84 20 74 6f 6b 65 6e  24 3d 22 23 22 20 8c 0d  | . token$="#" ..|
00003e40  1e d2 2e f2 69 6e 64 69  74 65 6d 28 a0 28 a4 6e  |....inditem(.(.n|
00003e50  65 78 74 77 6f 72 64 28  74 65 78 74 24 29 29 2c  |extword(text$)),|
00003e60  69 31 25 2c a0 28 77 6f  72 64 24 29 29 0d 1e dc  |i1%,.(word$))...|
00003e70  05 cc 0d 1e e6 12 e7 20  a9 77 6f 72 64 24 3c 3d  |....... .word$<=|
00003e80  31 32 20 8c 0d 1e f0 18  24 28 6d 65 6e 75 70 74  |12 .....$(menupt|
00003e90  72 25 2b 31 32 29 3d 77  6f 72 64 24 0d 1e fa 05  |r%+12)=word$....|
00003ea0  cc 0d 1f 04 12 de 20 69  30 25 20 a9 77 6f 72 64  |...... i0% .word|
00003eb0  24 2b 31 0d 1f 0e 0e 24  69 30 25 3d 77 6f 72 64  |$+1....$i0%=word|
00003ec0  24 0d 1f 18 1d f2 69 6e  64 69 74 65 6d 28 69 30  |$.....inditem(i0|
00003ed0  25 2c 2d 31 2c a9 77 6f  72 64 24 2b 31 29 0d 1f  |%,-1,.word$+1)..|
00003ee0  22 05 cd 0d 1f 2c 1f e7  20 a9 77 6f 72 64 24 3e  |"....,.. .word$>|
00003ef0  6d 61 78 25 20 8c 20 6d  61 78 25 3d a9 77 6f 72  |max% . max%=.wor|
00003f00  64 24 0d 1f 36 05 cd 0d  1f 40 05 ce 0d 1f 4a 1d  |d$..6....@....J.|
00003f10  21 6d 65 6e 75 70 74 72  25 3d 21 6d 65 6e 75 70  |!menuptr%=!menup|
00003f20  74 72 25 20 84 20 26 38  30 0d 1f 54 10 6d 65 6e  |tr% . &80..T.men|
00003f30  75 70 74 72 25 2b 3d 32  34 0d 1f 5e 18 6f 6c 64  |uptr%+=24..^.old|
00003f40  70 74 72 25 21 31 36 3d  6d 61 78 25 2a 31 36 2b  |ptr%!16=max%*16+|
00003f50  38 0d 1f 68 0c 3d 6f 6c  64 70 74 72 25 0d 1f 72  |8..h.=oldptr%..r|
00003f60  04 0d 1f 7c 1b dd 20 f2  69 6e 64 69 74 65 6d 28  |...|.. .inditem(|
00003f70  69 30 25 2c 69 31 25 2c  69 32 25 29 0d 1f 86 20  |i0%,i1%,i2%)... |
00003f80  6d 65 6e 75 70 74 72 25  21 38 3d 6d 65 6e 75 70  |menuptr%!8=menup|
00003f90  74 72 25 21 38 20 84 20  31 3c 3c 38 0d 1f 90 13  |tr%!8 . 1<<8....|
00003fa0  6d 65 6e 75 70 74 72 25  21 31 32 3d 69 30 25 0d  |menuptr%!12=i0%.|
00003fb0  1f 9a 13 6d 65 6e 75 70  74 72 25 21 31 36 3d 69  |...menuptr%!16=i|
00003fc0  31 25 0d 1f a4 13 6d 65  6e 75 70 74 72 25 21 32  |1%....menuptr%!2|
00003fd0  30 3d 69 32 25 0d 1f ae  31 e7 20 69 32 25 2d 31  |0=i2%...1. i2%-1|
00003fe0  3e 6d 61 78 25 20 80 20  28 21 6d 65 6e 75 70 74  |>max% . (!menupt|
00003ff0  72 25 20 80 20 34 29 3d  30 20 8c 20 6d 61 78 25  |r% . 4)=0 . max%|
00004000  3d 69 32 25 2d 31 0d 1f  b8 05 e1 0d 1f c2 04 0d  |=i2%-1..........|
00004010  1f cc 15 dd 20 a4 74 6f  6b 65 6e 28 f8 20 77 6f  |.... .token(. wo|
00004020  72 64 24 29 0d 1f d6 0d  74 6f 6b 65 6e 24 3d 22  |rd$)....token$="|
00004030  22 0d 1f e0 19 e7 20 a7  22 3e 2f 21 23 2d 22 2c  |"..... .">/!#-",|
00004040  c2 77 6f 72 64 24 29 29  20 8c 0d 1f ea 14 74 6f  |.word$)) .....to|
00004050  6b 65 6e 24 3d c2 77 6f  72 64 24 2c 31 29 0d 1f  |ken$=.word$,1)..|
00004060  f4 1a 77 6f 72 64 24 3d  c0 77 6f 72 64 24 2c a9  |..word$=.word$,.|
00004070  77 6f 72 64 24 2d 31 29  0d 1f fe 05 cd 0d 20 08  |word$-1)...... .|
00004080  0b 3d 74 6f 6b 65 6e 24  0d 20 12 04 0d 20 1c 18  |.=token$. ... ..|
00004090  dd 20 a4 6e 65 78 74 77  6f 72 64 28 f8 20 74 65  |. .nextword(. te|
000040a0  78 74 24 29 0d 20 26 10  ea 20 77 6f 72 64 24 2c  |xt$). &.. word$,|
000040b0  70 6f 73 25 0d 20 30 14  70 6f 73 25 3d a7 74 65  |pos%. 0.pos%=.te|
000040c0  78 74 24 2c 22 2c 22 29  0d 20 3a 18 77 6f 72 64  |xt$,","). :.word|
000040d0  24 3d c0 74 65 78 74 24  2c 70 6f 73 25 2d 31 29  |$=.text$,pos%-1)|
000040e0  0d 20 44 18 74 65 78 74  24 3d c1 74 65 78 74 24  |. D.text$=.text$|
000040f0  2c 70 6f 73 25 2b 31 29  0d 20 4e 0a 3d 77 6f 72  |,pos%+1). N.=wor|
00004100  64 24 0d 20 58 04 0d 20  62 37 dd 20 a4 63 72 69  |d$. X.. b7. .cri|
00004110  63 6f 6e 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |con(!q%,q%!4,q%!|
00004120  38 2c 71 25 21 31 32 2c  71 25 21 31 36 2c 71 25  |8,q%!12,q%!16,q%|
00004130  21 32 30 2c 24 28 71 25  2b 32 34 29 29 0d 20 6c  |!20,$(q%+24)). l|
00004140  23 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |#.."Wimp_CreateI|
00004150  63 6f 6e 22 2c 2c 71 25  20 b8 20 69 63 6f 6e 25  |con",,q% . icon%|
00004160  0d 20 76 0a 3d 69 63 6f  6e 25 0d 20 80 04 0d 20  |. v.=icon%. ... |
00004170  8a 16 dd 20 a4 63 68 65  63 6b 28 6d 65 73 73 61  |... .check(messa|
00004180  67 65 24 29 0d 20 94 17  c8 99 22 57 69 6d 70 5f  |ge$). ...."Wimp_|
00004190  44 72 61 67 42 6f 78 22  2c 2c 30 0d 20 9e 09 21  |DragBox",,0. ..!|
000041a0  71 25 3d 30 0d 20 a8 14  24 28 71 25 2b 34 29 3d  |q%=0. ..$(q%+4)=|
000041b0  6d 65 73 73 61 67 65 24  0d 20 b2 42 c8 99 22 57  |message$. .B.."W|
000041c0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
000041d0  2c 71 25 2c 31 39 2c 22  4d 65 73 73 61 67 65 20  |,q%,19,"Message |
000041e0  66 72 6f 6d 20 22 2b 70  72 6f 67 72 61 6d 24 20  |from "+program$ |
000041f0  b8 20 2c 61 6e 73 77 65  72 25 0d 20 bc 19 e7 20  |. ,answer%. ... |
00004200  61 6e 73 77 65 72 25 3d  31 20 8c 20 3d b9 20 8b  |answer%=1 . =. .|
00004210  20 3d a3 0d 20 c6 04 0d  20 d0 11 dd 20 a4 73 74  | =.. ... ... .st|
00004220  72 69 6e 67 28 62 25 29  0d 20 da 08 ea 20 73 24  |ring(b%). ... s$|
00004230  0d 20 e4 09 73 24 3d 22  22 0d 20 ee 0d c8 95 20  |. ..s$="". .... |
00004240  3f 62 25 3e 33 31 0d 20  f8 0e 73 24 2b 3d bd 28  |?b%>31. ..s$+=.(|
00004250  3f 62 25 29 0d 21 02 09  62 25 2b 3d 31 0d 21 0c  |?b%).!..b%+=1.!.|
00004260  05 ce 0d 21 16 07 3d 73  24 0d 21 20 04 0d 21 2a  |...!..=s$.! ..!*|
00004270  17 dd 20 f2 72 65 70 6f  72 74 28 6d 65 73 73 61  |.. .report(messa|
00004280  67 65 24 29 0d 21 34 17  c8 99 22 57 69 6d 70 5f  |ge$).!4..."Wimp_|
00004290  44 72 61 67 42 6f 78 22  2c 2c 30 0d 21 3e 09 21  |DragBox",,0.!>.!|
000042a0  71 25 3d 30 0d 21 48 14  24 28 71 25 2b 34 29 3d  |q%=0.!H.$(q%+4)=|
000042b0  6d 65 73 73 61 67 65 24  0d 21 52 26 c8 99 22 57  |message$.!R&.."W|
000042c0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
000042d0  2c 71 25 2c 31 2c 70 72  6f 67 72 61 6d 24 0d 21  |,q%,1,program$.!|
000042e0  5c 05 e1 0d 21 66 04 0d  21 70 18 dd 20 a4 62 75  |\...!f..!p.. .bu|
000042f0  74 74 79 70 65 28 21 71  25 2c 71 25 21 34 29 0d  |ttype(!q%,q%!4).|
00004300  21 7a 33 e7 20 71 25 21  34 3e 3d 30 20 8c 20 c8  |!z3. q%!4>=0 . .|
00004310  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00004320  61 74 65 22 2c 2c 71 25  20 8b 20 71 25 21 32 34  |ate",,q% . q%!24|
00004330  3d 30 0d 21 84 15 3d 28  28 71 25 21 32 34 29 3e  |=0.!..=((q%!24)>|
00004340  3e 31 32 29 80 31 35 0d  21 8e 04 0d 21 98 23 dd  |>12).15.!...!.#.|
00004350  20 f2 73 65 6c 65 63 74  69 63 6f 6e 28 21 71 25  | .selecticon(!q%|
00004360  2c 71 25 21 34 2c 73 65  6c 65 63 74 25 29 0d 21  |,q%!4,select%).!|
00004370  a2 1d c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |...."Wimp_GetIco|
00004380  6e 53 74 61 74 65 22 2c  2c 71 25 0d 21 ac 23 e7  |nState",,q%.!.#.|
00004390  20 73 65 6c 65 63 74 25  20 8c 20 71 25 21 38 3d  | select% . q%!8=|
000043a0  31 3c 3c 32 31 20 8b 20  71 25 21 38 3d 30 0d 21  |1<<21 . q%!8=0.!|
000043b0  b6 0f 71 25 21 31 32 3d  31 3c 3c 32 31 0d 21 c0  |..q%!12=1<<21.!.|
000043c0  37 e7 20 28 71 25 21 32  34 20 80 20 71 25 21 31  |7. (q%!24 . q%!1|
000043d0  32 29 3c 3e 71 25 21 38  20 8c 20 c8 99 22 57 69  |2)<>q%!8 . .."Wi|
000043e0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000043f0  2c 2c 71 25 0d 21 ca 05  e1 0d 21 d4 04 0d 21 de  |,,q%.!....!...!.|
00004400  1f dd 20 f2 73 65 74 69  63 6f 6e 66 63 28 21 71  |.. .seticonfc(!q|
00004410  25 2c 71 25 21 34 2c 63  6f 6c 25 29 0d 21 e8 1d  |%,q%!4,col%).!..|
00004420  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00004430  74 61 74 65 22 2c 2c 71  25 0d 21 f2 11 71 25 21  |tate",,q%.!..q%!|
00004440  38 3d 63 6f 6c 25 3c 3c  32 34 0d 21 fc 10 71 25  |8=col%<<24.!..q%|
00004450  21 31 32 3d 31 35 3c 3c  32 34 0d 22 06 37 e7 20  |!12=15<<24.".7. |
00004460  28 71 25 21 32 34 20 80  20 71 25 21 31 32 29 3c  |(q%!24 . q%!12)<|
00004470  3e 71 25 21 38 20 8c 20  c8 99 22 57 69 6d 70 5f  |>q%!8 . .."Wimp_|
00004480  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |SetIconState",,q|
00004490  25 0d 22 10 05 e1 0d 22  1a 04 0d 22 24 22 dd 20  |%."...."..."$". |
000044a0  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 21 71 25  |.seticontext(!q%|
000044b0  2c 71 25 21 34 2c 74 65  78 74 24 29 0d 22 2e 1d  |,q%!4,text$)."..|
000044c0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
000044d0  74 61 74 65 22 2c 2c 71  25 0d 22 38 19 74 65 78  |tate",,q%."8.tex|
000044e0  74 24 3d c0 74 65 78 74  24 2c 71 25 21 33 36 2d  |t$=.text$,q%!36-|
000044f0  31 29 0d 22 42 17 e7 20  24 28 71 25 21 32 38 29  |1)."B.. $(q%!28)|
00004500  3c 3e 74 65 78 74 24 20  8c 0d 22 4c 12 24 28 71  |<>text$ .."L.$(q|
00004510  25 21 32 38 29 3d 74 65  78 74 24 0d 22 56 0a 71  |%!28)=text$."V.q|
00004520  25 21 38 3d 30 0d 22 60  0b 71 25 21 31 32 3d 30  |%!8=0."`.q%!12=0|
00004530  0d 22 6a 1d c8 99 22 57  69 6d 70 5f 53 65 74 49  |."j..."Wimp_SetI|
00004540  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 22 74  |conState",,q%."t|
00004550  05 cd 0d 22 7e 05 e1 0d  22 88 04 0d 22 92 17 dd  |..."~..."..."...|
00004560  20 a4 69 63 6f 6e 74 70  28 21 71 25 2c 71 25 21  | .icontp(!q%,q%!|
00004570  34 29 0d 22 9c 1d c8 99  22 57 69 6d 70 5f 47 65  |4)."...."Wimp_Ge|
00004580  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00004590  22 a6 0a 3d 71 25 21 32  38 0d 22 b0 04 0d 22 ba  |"..=q%!28."...".|
000045a0  18 dd 20 f2 77 69 6e 64  6f 77 69 6e 66 6f 28 21  |.. .windowinfo(!|
000045b0  62 6c 6b 25 29 0d 22 c4  20 c8 99 22 57 69 6d 70  |blk%).". .."Wimp|
000045c0  5f 47 65 74 57 69 6e 64  6f 77 49 6e 66 6f 22 2c  |_GetWindowInfo",|
000045d0  2c 62 6c 6b 25 0d 22 ce  16 77 78 25 3d 62 6c 6b  |,blk%."..wx%=blk|
000045e0  25 21 34 2d 62 6c 6b 25  21 32 30 0d 22 d8 17 77  |%!4-blk%!20."..w|
000045f0  79 25 3d 62 6c 6b 25 21  31 36 2d 62 6c 6b 25 21  |y%=blk%!16-blk%!|
00004600  32 34 0d 22 e2 05 e1 0d  22 ec 04 0d 22 f6 14 dd  |24."...."..."...|
00004610  20 f2 65 72 72 6f 72 28  65 72 72 6f 72 24 29 0d  | .error(error$).|
00004620  23 00 15 64 25 3d a4 63  68 65 63 6b 28 65 72 72  |#..d%=.check(err|
00004630  6f 72 24 29 0d 23 0a 05  e1 0d 23 14 04 0d 23 1e  |or$).#....#...#.|
00004640  23 dd 20 a4 73 61 76 65  62 6f 78 28 66 69 6c 65  |#. .savebox(file|
00004650  74 79 70 65 25 2c 73 74  61 6e 64 61 72 64 24 29  |type%,standard$)|
00004660  0d 23 28 22 77 69 6e 64  25 3d a4 77 69 6e 64 6f  |.#("wind%=.windo|
00004670  77 28 22 73 61 76 65 22  2c 22 73 61 76 65 22 2c  |w("save","save",|
00004680  30 29 0d 23 32 3c f2 73  65 74 69 63 6f 6e 74 65  |0).#2<.seticonte|
00004690  78 74 28 77 25 28 77 69  6e 64 25 29 2c 33 2c 22  |xt(w%(wind%),3,"|
000046a0  66 69 6c 65 5f 22 2b c2  22 30 30 22 2b c3 7e 28  |file_"+."00"+.~(|
000046b0  66 69 6c 65 74 79 70 65  25 29 2c 33 29 29 0d 23  |filetype%),3)).#|
000046c0  3c 27 f2 73 65 74 69 63  6f 6e 74 65 78 74 28 77  |<'.seticontext(w|
000046d0  25 28 77 69 6e 64 25 29  2c 31 2c 73 74 61 6e 64  |%(wind%),1,stand|
000046e0  61 72 64 24 29 0d 23 46  1a 6d 69 73 63 25 28 77  |ard$).#F.misc%(w|
000046f0  69 6e 64 25 29 3d 66 69  6c 65 74 79 70 65 25 0d  |ind%)=filetype%.|
00004700  23 50 0a 3d 77 69 6e 64  25 0d 23 5a 04 0d 23 64  |#P.=wind%.#Z..#d|
00004710  15 dd 20 a4 6c 61 73 74  62 69 74 28 66 69 6c 65  |.. .lastbit(file|
00004720  24 29 0d 23 6e 12 c8 95  20 a7 66 69 6c 65 24 2c  |$).#n... .file$,|
00004730  22 2e 22 29 0d 23 78 1f  66 69 6c 65 24 3d c1 66  |".").#x.file$=.f|
00004740  69 6c 65 24 2c a7 66 69  6c 65 24 2c 22 2e 22 29  |ile$,.file$,".")|
00004750  2b 31 29 0d 23 82 05 ce  0d 23 8c 0a 3d 66 69 6c  |+1).#....#..=fil|
00004760  65 24 0d 23 96 04 0d 23  a0 14 dd 20 a4 6e 61 6d  |e$.#...#... .nam|
00004770  65 6f 6b 28 66 69 6c 65  24 29 0d 23 aa 0d 72 65  |eok(file$).#..re|
00004780  73 75 6c 74 25 3d b9 0d  23 b4 21 e7 20 a7 66 69  |sult%=..#.!. .fi|
00004790  6c 65 24 2c 22 3a 22 29  2b a7 66 69 6c 65 24 2c  |le$,":")+.file$,|
000047a0  22 2e 22 29 3d 30 20 8c  0d 23 be 3e f2 72 65 70  |".")=0 ..#.>.rep|
000047b0  6f 72 74 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ort("To save, dr|
000047c0  61 67 20 69 63 6f 6e 20  74 6f 20 61 20 64 69 72  |ag icon to a dir|
000047d0  65 63 74 6f 72 79 20 76  69 65 77 65 72 20 22 2b  |ectory viewer "+|
000047e0  66 69 6c 65 24 29 0d 23  c8 0d 72 65 73 75 6c 74  |file$).#..result|
000047f0  25 3d a3 0d 23 d2 05 cd  0d 23 dc 0c 3d 72 65 73  |%=..#....#..=res|
00004800  75 6c 74 25 0d 23 e6 04  0d 23 f0 0b dd 20 f2 71  |ult%.#...#... .q|
00004810  75 69 74 0d 23 fa 0e f2  63 6c 6f 73 65 64 6f 77  |uit.#...closedow|
00004820  6e 0d 24 04 05 e1 0d 24  0e 04 0d 24 18 10 dd 20  |n.$....$...$... |
00004830  f2 63 6c 6f 73 65 64 6f  77 6e 0d 24 22 10 e3 20  |.closedown.$".. |
00004840  69 25 3d 31 20 b8 20 32  35 35 0d 24 2c 14 c8 95  |i%=1 . 255.$,...|
00004850  20 66 6f 6e 74 74 61 62  6c 65 25 3f 69 25 0d 24  | fonttable%?i%.$|
00004860  36 18 c8 99 22 46 6f 6e  74 5f 4c 6f 73 65 46 6f  |6..."Font_LoseFo|
00004870  6e 74 22 2c 69 25 0d 24  40 14 66 6f 6e 74 74 61  |nt",i%.$@.fontta|
00004880  62 6c 65 25 3f 69 25 2d  3d 31 0d 24 4a 05 ce 0d  |ble%?i%-=1.$J...|
00004890  24 54 08 ed 20 69 25 0d  24 5e 1e c8 99 22 57 69  |$T.. i%.$^..."Wi|
000048a0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 2c 6d 79  |mp_CloseDown",my|
000048b0  74 61 73 6b 25 0d 24 68  05 e0 0d 24 72 04 0d 24  |task%.$h...$r..$|
000048c0  7c 19 dd 20 f2 63 6c 6f  73 65 77 69 6e 64 6f 77  ||.. .closewindow|
000048d0  28 21 62 6c 6b 25 29 0d  24 86 19 61 63 74 69 76  |(!blk%).$..activ|
000048e0  65 25 28 a4 69 64 28 21  62 6c 6b 25 29 29 3d a3  |e%(.id(!blk%))=.|
000048f0  0d 24 90 1e c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |.$...."Wimp_Clos|
00004900  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 0d 24  |eWindow",,blk%.$|
00004910  9a 05 e1 0d 24 a4 04 0d  24 ae 10 dd 20 f2 6d 6f  |....$...$... .mo|
00004920  75 73 65 69 6e 66 6f 0d  24 b8 1f c8 99 22 57 69  |useinfo.$...."Wi|
00004930  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00004940  6f 22 2c 2c 71 25 0d 24  c2 0b 6d 78 25 3d 21 71  |o",,q%.$..mx%=!q|
00004950  25 0d 24 cc 0c 6d 79 25  3d 71 25 21 34 0d 24 d6  |%.$..my%=q%!4.$.|
00004960  0d 62 75 74 25 3d 71 25  21 38 0d 24 e0 0f 77 69  |.but%=q%!8.$..wi|
00004970  6e 64 25 3d 71 25 21 31  32 0d 24 ea 0f 69 63 6f  |nd%=q%!12.$..ico|
00004980  6e 25 3d 71 25 21 31 36  0d 24 f4 05 e1 0d 24 fe  |n%=q%!16.$....$.|
00004990  04 0d 25 08 10 dd 20 f2  63 6c 6f 73 65 6d 65 6e  |..%... .closemen|
000049a0  75 0d 25 12 1b c8 99 22  57 69 6d 70 5f 43 72 65  |u.%...."Wimp_Cre|
000049b0  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 25 1c 05  |ateMenu",,-1.%..|
000049c0  e1 0d 25 26 04 0d 25 30  14 dd 20 f2 72 65 6f 70  |..%&..%0.. .reop|
000049d0  65 6e 28 21 62 6c 6b 25  29 0d 25 3a 21 c8 99 22  |en(!blk%).%:!.."|
000049e0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000049f0  61 74 65 22 2c 2c 62 6c  6b 25 0d 25 44 0f f2 6f  |ate",,blk%.%D..o|
00004a00  70 65 6e 77 69 6e 64 6f  77 0d 25 4e 17 f2 66 6f  |penwindow.%N..fo|
00004a10  72 63 65 72 65 64 72 61  77 28 21 62 6c 6b 25 29  |rceredraw(!blk%)|
00004a20  0d 25 58 05 e1 0d 25 62  04 0d 25 6c 31 dd 20 f2  |.%X...%b..%l1. .|
00004a30  73 65 74 77 69 6e 64 6f  77 65 78 74 65 6e 74 28  |setwindowextent(|
00004a40  77 69 6e 64 25 2c 21 71  25 2c 71 25 21 34 2c 71  |wind%,!q%,q%!4,q|
00004a50  25 21 38 2c 71 25 21 31  32 29 0d 25 76 1f c8 99  |%!8,q%!12).%v...|
00004a60  22 57 69 6d 70 5f 53 65  74 45 78 74 65 6e 74 22  |"Wimp_SetExtent"|
00004a70  2c 77 69 6e 64 25 2c 71  25 0d 25 80 05 e1 0d 25  |,wind%,q%.%....%|
00004a80  8a 04 0d 25 94 19 dd 20  f2 66 6f 72 63 65 72 65  |...%... .forcere|
00004a90  64 72 61 77 28 21 62 6c  6b 25 29 0d 25 9e 20 c8  |draw(!blk%).%. .|
00004aa0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00004ab0  49 6e 66 6f 22 2c 2c 62  6c 6b 25 0d 25 a8 3e c8  |Info",,blk%.%.>.|
00004ac0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00004ad0  61 77 22 2c 21 62 6c 6b  25 2c 62 6c 6b 25 21 34  |aw",!blk%,blk%!4|
00004ae0  34 2c 62 6c 6b 25 21 34  38 2c 62 6c 6b 25 21 35  |4,blk%!48,blk%!5|
00004af0  32 2c 62 6c 6b 25 21 35  36 0d 25 b2 05 e1 0d 25  |2,blk%!56.%....%|
00004b00  bc 04 0d 25 c6 1c dd 20  f2 6f 70 65 6e 66 75 6c  |...%... .openful|
00004b10  6c 79 28 21 62 6c 6b 25  2c 74 6f 70 25 29 0d 25  |ly(!blk%,top%).%|
00004b20  d0 20 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |. .."Wimp_GetWin|
00004b30  64 6f 77 49 6e 66 6f 22  2c 2c 62 6c 6b 25 0d 25  |dowInfo",,blk%.%|
00004b40  da 24 62 6c 6b 25 21 31  32 3d 62 6c 6b 25 21 34  |.$blk%!12=blk%!4|
00004b50  2b 28 62 6c 6b 25 21 35  32 2d 62 6c 6b 25 21 34  |+(blk%!52-blk%!4|
00004b60  34 29 0d 25 e4 24 62 6c  6b 25 21 38 3d 62 6c 6b  |4).%.$blk%!8=blk|
00004b70  25 21 31 36 2d 28 62 6c  6b 25 21 35 36 2d 62 6c  |%!16-(blk%!56-bl|
00004b80  6b 25 21 34 38 29 0d 25  ee 17 e7 20 74 6f 70 25  |k%!48).%... top%|
00004b90  20 8c 20 62 6c 6b 25 21  32 38 3d 2d 31 0d 25 f8  | . blk%!28=-1.%.|
00004ba0  0f f2 6f 70 65 6e 77 69  6e 64 6f 77 0d 26 02 05  |..openwindow.&..|
00004bb0  e1 0d 26 0c 04 0d 26 16  1b dd 20 f2 73 74 61 72  |..&...&... .star|
00004bc0  74 64 72 61 67 28 69 64  25 2c 69 63 6f 6e 25 29  |tdrag(id%,icon%)|
00004bd0  0d 26 20 0f 64 72 61 67  69 64 25 3d 69 64 25 0d  |.& .dragid%=id%.|
00004be0  26 2a 13 64 72 61 67 69  63 6f 6e 25 3d 69 63 6f  |&*.dragicon%=ico|
00004bf0  6e 25 0d 26 34 15 77 69  6e 64 25 3d 77 25 28 64  |n%.&4.wind%=w%(d|
00004c00  72 61 67 69 64 25 29 0d  26 3e 16 f2 77 69 6e 64  |ragid%).&>..wind|
00004c10  6f 77 69 6e 66 6f 28 77  69 6e 64 25 29 0d 26 48  |owinfo(wind%).&H|
00004c20  0f 21 62 6c 6b 25 3d 77  69 6e 64 25 0d 26 52 10  |.!blk%=wind%.&R.|
00004c30  62 6c 6b 25 21 34 3d 69  63 6f 6e 25 0d 26 5c 1f  |blk%!4=icon%.&\.|
00004c40  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00004c50  74 61 74 65 22 2c 2c 62  6c 6b 25 0d 26 66 0b 21  |tate",,blk%.&f.!|
00004c60  62 6c 6b 25 3d 30 0d 26  70 0c 62 6c 6b 25 21 34  |blk%=0.&p.blk%!4|
00004c70  3d 35 0d 26 7a 0f 62 6c  6b 25 21 38 2b 3d 77 78  |=5.&z.blk%!8+=wx|
00004c80  25 0d 26 84 10 62 6c 6b  25 21 31 32 2b 3d 77 79  |%.&..blk%!12+=wy|
00004c90  25 0d 26 8e 10 62 6c 6b  25 21 31 36 2b 3d 77 78  |%.&..blk%!16+=wx|
00004ca0  25 0d 26 98 10 62 6c 6b  25 21 32 30 2b 3d 77 79  |%.&..blk%!20+=wy|
00004cb0  25 0d 26 a2 0d 62 6c 6b  25 21 32 34 3d 30 0d 26  |%.&..blk%!24=0.&|
00004cc0  ac 0d 62 6c 6b 25 21 32  38 3d 30 0d 26 b6 10 62  |..blk%!28=0.&..b|
00004cd0  6c 6b 25 21 33 32 3d 73  63 78 25 0d 26 c0 10 62  |lk%!32=scx%.&..b|
00004ce0  6c 6b 25 21 33 36 3d 73  63 79 25 0d 26 ca 0d e7  |lk%!36=scy%.&...|
00004cf0  20 64 72 61 67 25 20 8c  0d 26 d4 45 c8 99 22 44  | drag% ..&.E.."D|
00004d00  72 61 67 41 53 70 72 69  74 65 5f 53 74 61 72 74  |ragASprite_Start|
00004d10  22 2c 31 39 37 2c 31 2c  a4 69 63 6f 6e 74 65 78  |",197,1,.icontex|
00004d20  74 28 77 69 6e 64 25 2c  69 63 6f 6e 25 29 2c 62  |t(wind%,icon%),b|
00004d30  6c 6b 25 2b 38 2c 62 6c  6b 25 2b 32 34 0d 26 de  |lk%+8,blk%+24.&.|
00004d40  05 cc 0d 26 e8 1a c8 99  22 57 69 6d 70 5f 44 72  |...&...."Wimp_Dr|
00004d50  61 67 42 6f 78 22 2c 2c  62 6c 6b 25 0d 26 f2 05  |agBox",,blk%.&..|
00004d60  cd 0d 26 fc 05 e1 0d 27  06 04 0d 27 10 1a dd 20  |..&....'...'... |
00004d70  f2 6f 70 65 6e 69 6e 63  65 6e 74 72 65 28 21 62  |.openincentre(!b|
00004d80  6c 6b 25 29 0d 27 1a 21  c8 99 22 57 69 6d 70 5f  |lk%).'.!.."Wimp_|
00004d90  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00004da0  2c 62 6c 6b 25 0d 27 24  16 6d 31 25 3d 62 6c 6b  |,blk%.'$.m1%=blk|
00004db0  25 21 31 32 2d 62 6c 6b  25 21 34 0d 27 2e 16 6d  |%!12-blk%!4.'..m|
00004dc0  32 25 3d 62 6c 6b 25 21  31 36 2d 62 6c 6b 25 21  |2%=blk%!16-blk%!|
00004dd0  38 0d 27 38 18 62 6c 6b  25 21 34 3d 28 73 63 78  |8.'8.blk%!4=(scx|
00004de0  25 2d 6d 31 25 29 3e 3e  31 0d 27 42 18 62 6c 6b  |%-m1%)>>1.'B.blk|
00004df0  25 21 38 3d 28 73 63 79  25 2d 6d 32 25 29 3e 3e  |%!8=(scy%-m2%)>>|
00004e00  31 0d 27 4c 19 62 6c 6b  25 21 31 32 3d 28 73 63  |1.'L.blk%!12=(sc|
00004e10  78 25 2b 6d 31 25 29 3e  3e 31 0d 27 56 19 62 6c  |x%+m1%)>>1.'V.bl|
00004e20  6b 25 21 31 36 3d 28 73  63 79 25 2b 6d 32 25 29  |k%!16=(scy%+m2%)|
00004e30  3e 3e 31 0d 27 60 0e 62  6c 6b 25 21 32 38 3d 2d  |>>1.'`.blk%!28=-|
00004e40  31 0d 27 6a 0f f2 6f 70  65 6e 77 69 6e 64 6f 77  |1.'j..openwindow|
00004e50  0d 27 74 07 ef 20 37 0d  27 7e 05 e1 0d 27 88 04  |.'t.. 7.'~...'..|
00004e60  0d 27 92 23 dd 20 f2 73  65 74 66 69 6c 65 74 79  |.'.#. .setfilety|
00004e70  70 65 28 66 69 6c 65 24  2c 66 69 6c 65 74 79 70  |pe(file$,filetyp|
00004e80  65 25 29 0d 27 9c 23 c8  99 22 4f 53 5f 46 69 6c  |e%).'.#.."OS_Fil|
00004e90  65 22 2c 26 31 32 2c 66  69 6c 65 24 2c 66 69 6c  |e",&12,file$,fil|
00004ea0  65 74 79 70 65 25 0d 27  a6 05 e1 0d 27 b0 04 0d  |etype%.'....'...|
00004eb0  27 ba 1d dd 20 f2 6e 65  77 74 69 74 6c 65 28 21  |'... .newtitle(!|
00004ec0  62 6c 6b 25 2c 74 69 74  6c 65 24 29 0d 27 c4 20  |blk%,title$).'. |
00004ed0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00004ee0  77 49 6e 66 6f 22 2c 2c  62 6c 6b 25 0d 27 ce 1a  |wInfo",,blk%.'..|
00004ef0  e7 20 24 28 62 6c 6b 25  21 37 36 29 3c 3e 74 69  |. $(blk%!76)<>ti|
00004f00  74 6c 65 24 20 8c 0d 27  d8 15 24 28 62 6c 6b 25  |tle$ ..'..$(blk%|
00004f10  21 37 36 29 3d 74 69 74  6c 65 24 0d 27 e2 23 c8  |!76)=title$.'.#.|
00004f20  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00004f30  4f 75 74 6c 69 6e 65 22  2c 2c 62 6c 6b 25 0d 27  |Outline",,blk%.'|
00004f40  ec 3d c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.=.."Wimp_ForceR|
00004f50  65 64 72 61 77 22 2c 2d  31 2c 62 6c 6b 25 21 34  |edraw",-1,blk%!4|
00004f60  2c 62 6c 6b 25 21 31 36  2d 34 34 2c 62 6c 6b 25  |,blk%!16-44,blk%|
00004f70  21 31 32 2c 62 6c 6b 25  21 31 36 0d 27 f6 05 cd  |!12,blk%!16.'...|
00004f80  0d 28 00 05 e1 0d 28 0a  04 0d 28 14 19 dd 20 a4  |.(....(...(... .|
00004f90  69 63 6f 6e 74 65 78 74  28 21 71 25 2c 71 25 21  |icontext(!q%,q%!|
00004fa0  34 29 0d 28 1e 1d c8 99  22 57 69 6d 70 5f 47 65  |4).(...."Wimp_Ge|
00004fb0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00004fc0  28 28 34 e7 20 71 25 21  32 34 80 28 31 3c 3c 38  |((4. q%!24.(1<<8|
00004fd0  29 20 8c 20 74 65 78 74  24 3d 24 28 71 25 21 32  |) . text$=$(q%!2|
00004fe0  38 29 20 8b 20 74 65 78  74 24 3d 24 28 71 25 2b  |8) . text$=$(q%+|
00004ff0  32 38 29 0d 28 32 0a 3d  74 65 78 74 24 0d 28 3c  |28).(2.=text$.(<|
00005000  04 0d 28 46 19 dd 20 f2  72 65 64 6f 69 63 6f 6e  |..(F.. .redoicon|
00005010  28 21 71 25 2c 71 25 21  34 29 0d 28 50 1d c8 99  |(!q%,q%!4).(P...|
00005020  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00005030  74 65 22 2c 2c 71 25 0d  28 5a 33 c8 99 22 57 69  |te",,q%.(Z3.."Wi|
00005040  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00005050  21 71 25 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |!q%,q%!8,q%!12,q|
00005060  25 21 31 36 2c 71 25 21  32 30 0d 28 64 05 e1 0d  |%!16,q%!20.(d...|
00005070  28 6e 04 0d 28 78 1b dd  20 f2 64 65 6c 65 74 65  |(n..(x.. .delete|
00005080  69 63 6f 6e 28 21 71 25  2c 71 25 21 34 29 0d 28  |icon(!q%,q%!4).(|
00005090  82 1b c8 99 22 57 69 6d  70 5f 44 65 6c 65 74 65  |...."Wimp_Delete|
000050a0  49 63 6f 6e 22 2c 2c 71  25 0d 28 8c 05 e1 0d 28  |Icon",,q%.(....(|
000050b0  96 04 0d 28 a0 1c dd 20  f2 69 63 6f 6e 69 6e 66  |...(... .iconinf|
000050c0  6f 28 77 69 6e 64 25 2c  69 63 6f 6e 25 29 0d 28  |o(wind%,icon%).(|
000050d0  aa 0f 21 62 6c 6b 25 3d  77 69 6e 64 25 0d 28 b4  |..!blk%=wind%.(.|
000050e0  10 62 6c 6b 25 21 34 3d  69 63 6f 6e 25 0d 28 be  |.blk%!4=icon%.(.|
000050f0  1f c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |..."Wimp_GetIcon|
00005100  53 74 61 74 65 22 2c 2c  62 6c 6b 25 0d 28 c8 05  |State",,blk%.(..|
00005110  e1 0d 28 d2 04 0d 28 dc  19 dd 20 a4 73 65 6c 65  |..(...(... .sele|
00005120  63 74 65 64 28 21 71 25  2c 71 25 21 34 29 0d 28  |cted(!q%,q%!4).(|
00005130  e6 1d c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |...."Wimp_GetIco|
00005140  6e 53 74 61 74 65 22 2c  2c 71 25 0d 28 f0 1a 3d  |nState",,q%.(..=|
00005150  28 28 28 71 25 21 32 34  29 80 28 31 3c 3c 32 31  |(((q%!24).(1<<21|
00005160  29 29 3e 30 29 0d 28 fa  04 0d 29 04 1d dd 20 f2  |))>0).(...)... .|
00005170  73 68 61 64 65 28 21 71  25 2c 71 25 21 34 2c 73  |shade(!q%,q%!4,s|
00005180  68 61 64 65 25 29 0d 29  0e 22 e7 20 73 68 61 64  |hade%).).". shad|
00005190  65 25 20 8c 20 71 25 21  38 3d 31 3c 3c 32 32 20  |e% . q%!8=1<<22 |
000051a0  8b 20 71 25 21 38 3d 30  0d 29 18 0f 71 25 21 31  |. q%!8=0.)..q%!1|
000051b0  32 3d 31 3c 3c 32 32 0d  29 22 1d c8 99 22 57 69  |2=1<<22.)"..."Wi|
000051c0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
000051d0  2c 2c 71 25 0d 29 2c 05  e1 0d 29 36 04 0d 29 40  |,,q%.),...)6..)@|
000051e0  18 dd 20 f2 72 65 73 65  74 63 61 72 65 74 28 77  |.. .resetcaret(w|
000051f0  69 6e 64 25 29 0d 29 4a  21 c8 99 22 57 69 6d 70  |ind%).)J!.."Wimp|
00005200  5f 47 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_GetCaretPositio|
00005210  6e 22 2c 2c 71 25 0d 29  54 55 e7 20 21 71 25 3d  |n",,q%.)TU. !q%=|
00005220  77 69 6e 64 25 20 84 20  77 69 6e 64 25 3d 30 20  |wind% . wind%=0 |
00005230  8c 20 c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |. .."Wimp_SetCar|
00005240  65 74 50 6f 73 69 74 69  6f 6e 22 2c 21 71 25 2c  |etPosition",!q%,|
00005250  71 25 21 34 2c 71 25 21  38 2c 71 25 21 31 32 2c  |q%!4,q%!8,q%!12,|
00005260  71 25 21 31 36 2c 71 25  21 32 30 0d 29 5e 05 e1  |q%!16,q%!20.)^..|
00005270  0d 29 68 04 0d 29 72 1a  dd 20 f2 66 6c 61 73 68  |.)h..)r.. .flash|
00005280  69 63 6f 6e 28 21 71 25  2c 71 25 21 34 29 0d 29  |icon(!q%,q%!4).)|
00005290  7c 0e e3 20 66 25 3d 31  20 b8 20 33 0d 29 86 09  ||.. f%=1 . 3.)..|
000052a0  c8 96 3a c8 96 0d 29 90  1b f2 73 65 6c 65 63 74  |..:...)...select|
000052b0  69 63 6f 6e 28 21 71 25  2c 71 25 21 34 2c a3 29  |icon(!q%,q%!4,.)|
000052c0  0d 29 9a 09 c8 96 3a c8  96 0d 29 a4 1b f2 73 65  |.)....:...)...se|
000052d0  6c 65 63 74 69 63 6f 6e  28 21 71 25 2c 71 25 21  |lecticon(!q%,q%!|
000052e0  34 2c b9 29 0d 29 ae 08  ed 20 66 25 0d 29 b8 05  |4,.).)... f%.)..|
000052f0  e1 0d 29 c2 04 0d 29 cc  23 dd 20 f2 6f 70 65 6e  |..)...).#. .open|
00005300  69 63 6f 6e 6d 65 6e 75  28 21 71 25 2c 71 25 21  |iconmenu(!q%,q%!|
00005310  34 2c 77 69 6e 64 25 29  0d 29 d6 13 6f 70 65 6e  |4,wind%).)..open|
00005320  6d 65 6e 75 25 3d 77 69  6e 64 25 0d 29 e0 1d c8  |menu%=wind%.)...|
00005330  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00005340  61 74 65 22 2c 2c 71 25  0d 29 ea 10 6d 65 6e 75  |ate",,q%.)..menu|
00005350  78 25 3d 71 25 21 31 36  0d 29 f4 10 6d 65 6e 75  |x%=q%!16.)..menu|
00005360  79 25 3d 71 25 21 32 30  0d 29 fe 14 f2 77 69 6e  |y%=q%!20.)...win|
00005370  64 6f 77 69 6e 66 6f 28  21 71 25 29 0d 2a 08 0f  |dowinfo(!q%).*..|
00005380  6d 65 6e 75 78 25 2b 3d  77 78 25 0d 2a 12 0f 6d  |menux%+=wx%.*..m|
00005390  65 6e 75 79 25 2b 3d 77  79 25 0d 2a 1c 30 c8 99  |enuy%+=wy%.*.0..|
000053a0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000053b0  22 2c 2c 6f 70 65 6e 6d  65 6e 75 25 2c 6d 65 6e  |",,openmenu%,men|
000053c0  75 78 25 2c 6d 65 6e 75  79 25 0d 2a 26 05 e1 0d  |ux%,menuy%.*&...|
000053d0  2a 30 04 0d 2a 3a 22 dd  20 a4 69 6e 66 6f 77 69  |*0..*:". .infowi|
000053e0  6e 64 6f 77 28 69 31 24  2c 69 32 24 2c 69 33 24  |ndow(i1$,i2$,i3$|
000053f0  2c 69 34 24 29 0d 2a 44  1e 77 69 6e 64 25 3d a4  |,i4$).*D.wind%=.|
00005400  77 69 6e 64 6f 77 28 22  69 6e 66 6f 22 2c 22 22  |window("info",""|
00005410  2c 30 29 0d 2a 4e 21 f2  73 65 74 69 63 6f 6e 74  |,0).*N!.seticont|
00005420  65 78 74 28 77 25 28 77  69 6e 64 25 29 2c 31 2c  |ext(w%(wind%),1,|
00005430  69 31 24 29 0d 2a 58 21  f2 73 65 74 69 63 6f 6e  |i1$).*X!.seticon|
00005440  74 65 78 74 28 77 25 28  77 69 6e 64 25 29 2c 32  |text(w%(wind%),2|
00005450  2c 69 32 24 29 0d 2a 62  21 f2 73 65 74 69 63 6f  |,i2$).*b!.setico|
00005460  6e 74 65 78 74 28 77 25  28 77 69 6e 64 25 29 2c  |ntext(w%(wind%),|
00005470  33 2c 69 33 24 29 0d 2a  6c 21 f2 73 65 74 69 63  |3,i3$).*l!.setic|
00005480  6f 6e 74 65 78 74 28 77  25 28 77 69 6e 64 25 29  |ontext(w%(wind%)|
00005490  2c 34 2c 69 34 24 29 0d  2a 76 0a 3d 77 69 6e 64  |,4,i4$).*v.=wind|
000054a0  25 0d 2a 80 04 0d 2a 8a  20 dd 20 a4 77 69 6e 64  |%.*...*. . .wind|
000054b0  6f 77 28 77 69 6e 64 24  2c 6e 61 6d 65 24 2c 6d  |ow(wind$,name$,m|
000054c0  65 6e 75 25 29 0d 2a 94  0d 74 77 69 6e 64 25 2b  |enu%).*..twind%+|
000054d0  3d 31 0d 2a 9e 23 77 25  28 74 77 69 6e 64 25 29  |=1.*.#w%(twind%)|
000054e0  3d a4 6c 6f 61 64 74 65  6d 70 6c 61 74 65 28 77  |=.loadtemplate(w|
000054f0  69 6e 64 24 29 0d 2a a8  1b f2 77 69 6e 64 6f 77  |ind$).*...window|
00005500  69 6e 66 6f 28 77 25 28  74 77 69 6e 64 25 29 29  |info(w%(twind%))|
00005510  0d 2a b2 0e e3 20 64 25  3d 30 20 b8 20 35 0d 2a  |.*... d%=0 . 5.*|
00005520  bc 29 64 65 66 61 75 6c  74 25 28 64 25 2c 74 77  |.)default%(d%,tw|
00005530  69 6e 64 25 29 3d 21 28  62 6c 6b 25 2b 28 64 25  |ind%)=!(blk%+(d%|
00005540  3c 3c 32 29 2b 34 29 0d  2a c6 08 ed 20 64 25 0d  |<<2)+4).*... d%.|
00005550  2a d0 15 69 64 24 28 74  77 69 6e 64 25 29 3d 6e  |*..id$(twind%)=n|
00005560  61 6d 65 24 0d 2a da 17  6d 65 6e 75 25 28 74 77  |ame$.*..menu%(tw|
00005570  69 6e 64 25 29 3d 6d 65  6e 75 25 0d 2a e4 0b 3d  |ind%)=menu%.*..=|
00005580  74 77 69 6e 64 25 0d 2a  ee 04 0d 2a f8 2f dd 20  |twind%.*...*./. |
00005590  f2 77 69 6d 70 69 6e 69  74 28 6e 61 6d 65 24 2c  |.wimpinit(name$,|
000055a0  73 70 72 69 74 65 24 2c  77 6f 72 6b 24 2c 6e 6f  |sprite$,work$,no|
000055b0  25 2c 69 73 69 7a 65 25  29 0d 2b 02 12 77 69 6e  |%,isize%).+..win|
000055c0  64 6f 77 73 25 3d 6e 6f  25 2b 31 0d 2b 0c 12 70  |dows%=no%+1.+..p|
000055d0  72 6f 67 72 61 6d 24 3d  6e 61 6d 65 24 0d 2b 16  |rogram$=name$.+.|
000055e0  22 de 20 62 6c 6b 25 20  32 30 30 30 2c 71 25 20  |". blk% 2000,q% |
000055f0  32 35 36 2c 69 6e 64 25  20 69 73 69 7a 65 25 0d  |256,ind% isize%.|
00005600  2b 20 17 69 6e 64 65 6e  64 25 3d 69 6e 64 25 2b  |+ .indend%=ind%+|
00005610  69 73 69 7a 65 25 0d 2b  2a 10 24 62 6c 6b 25 3d  |isize%.+*.$blk%=|
00005620  22 54 41 53 4b 22 0d 2b  34 35 c8 99 22 57 69 6d  |"TASK".+45.."Wim|
00005630  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
00005640  30 2c 21 62 6c 6b 25 2c  70 72 6f 67 72 61 6d 24  |0,!blk%,program$|
00005650  20 b8 20 2c 6d 79 74 61  73 6b 25 0d 2b 3e 30 69  | . ,mytask%.+>0i|
00005660  63 6f 6e 62 61 72 25 3d  a4 63 72 69 63 6f 6e 28  |conbar%=.cricon(|
00005670  2d 31 2c 30 2c 30 2c 36  38 2c 36 38 2c 26 32 30  |-1,0,0,68,68,&20|
00005680  30 32 2c 73 70 72 69 74  65 24 29 0d 2b 48 14 24  |02,sprite$).+H.$|
00005690  71 25 3d 77 6f 72 6b 24  2b 22 24 44 69 72 22 0d  |q%=work$+"$Dir".|
000056a0  2b 52 2e c8 99 22 4f 53  5f 52 65 61 64 56 61 72  |+R..."OS_ReadVar|
000056b0  56 61 6c 22 2c 71 25 2c  62 6c 6b 25 2c 32 35 36  |Val",q%,blk%,256|
000056c0  2c 30 2c 33 20 b8 20 2c  2c 6c 65 6e 25 0d 2b 5c  |,0,3 . ,,len%.+\|
000056d0  10 62 6c 6b 25 3f 6c 65  6e 25 3d 31 33 0d 2b 66  |.blk%?len%=13.+f|
000056e0  0e 64 69 72 24 3d 24 62  6c 6b 25 0d 2b 70 3d c8  |.dir$=$blk%.+p=.|
000056f0  99 22 58 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  |."XOS_SWINumberF|
00005700  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 22 44 72 61  |romString",,"Dra|
00005710  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 20  |gASprite_Start" |
00005720  b8 20 3b 64 72 61 67 25  0d 2b 7a 17 64 72 61 67  |. ;drag%.+z.drag|
00005730  25 3d 28 64 72 61 67 25  20 80 20 31 29 3d 30 0d  |%=(drag% . 1)=0.|
00005740  2b 84 1f c8 99 22 4f 53  5f 42 79 74 65 22 2c 31  |+...."OS_Byte",1|
00005750  36 31 2c 32 38 20 b8 20  2c 2c 62 69 74 25 0d 2b  |61,28 . ,,bit%.+|
00005760  8e 1c e7 20 28 62 69 74  25 20 80 20 32 29 3d 30  |... (bit% . 2)=0|
00005770  20 8c 20 64 72 61 67 25  3d a3 0d 2b 98 26 c8 99  | . drag%=..+.&..|
00005780  22 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |"Wimp_SlotSize",|
00005790  2d 31 2c 2d 31 20 b8 20  61 70 70 73 69 7a 65 25  |-1,-1 . appsize%|
000057a0  0d 2b a2 10 f2 6c 6f 61  64 73 70 72 69 74 65 73  |.+...loadsprites|
000057b0  0d 2b ac 0c f2 6e 65 77  6d 6f 64 65 0d 2b b6 0d  |.+...newmode.+..|
000057c0  74 66 74 25 3d 26 46 46  46 0d 2b c0 0d 64 66 74  |tft%=&FFF.+..dft|
000057d0  25 3d 26 41 46 46 0d 2b  ca 0a 65 78 69 74 3d a3  |%=&AFF.+..exit=.|
000057e0  0d 2b d4 0d 61 63 74 69  76 65 25 3d a3 0d 2b de  |.+..active%=..+.|
000057f0  25 de 20 6d 65 6e 75 62  75 66 66 65 72 25 20 31  |%. menubuffer% 1|
00005800  30 30 30 2c 66 6f 6e 74  74 61 62 6c 65 25 20 32  |000,fonttable% 2|
00005810  35 36 0d 2b e8 0c 74 77  69 6e 64 25 3d 30 0d 2b  |56.+..twind%=0.+|
00005820  f2 67 de 20 77 25 28 77  69 6e 64 6f 77 73 25 29  |.g. w%(windows%)|
00005830  2c 6d 65 6e 75 25 28 77  69 6e 64 6f 77 73 25 29  |,menu%(windows%)|
00005840  2c 69 64 24 28 77 69 6e  64 6f 77 73 25 29 2c 6d  |,id$(windows%),m|
00005850  69 73 63 25 28 77 69 6e  64 6f 77 73 25 29 2c 61  |isc%(windows%),a|
00005860  63 74 69 76 65 25 28 77  69 6e 64 6f 77 73 25 29  |ctive%(windows%)|
00005870  2c 64 65 66 61 75 6c 74  25 28 35 2c 77 69 6e 64  |,default%(5,wind|
00005880  6f 77 73 25 29 0d 2b fc  18 6d 65 6e 75 70 74 72  |ows%).+..menuptr|
00005890  25 3d 6d 65 6e 75 62 75  66 66 65 72 25 0d 2c 06  |%=menubuffer%.,.|
000058a0  10 e3 20 69 25 3d 31 20  b8 20 32 35 35 0d 2c 10  |.. i%=1 . 255.,.|
000058b0  13 66 6f 6e 74 74 61 62  6c 65 25 3f 69 25 3d 30  |.fonttable%?i%=0|
000058c0  0d 2c 1a 08 ed 20 69 25  0d 2c 24 1d 77 25 28 30  |.,... i%.,$.w%(0|
000058d0  29 3d 2d 32 3a 69 64 24  28 30 29 3d 22 69 63 6f  |)=-2:id$(0)="ico|
000058e0  6e 62 61 72 22 0d 2c 2e  10 f2 69 6e 69 74 77 69  |nbar".,...initwi|
000058f0  6e 64 6f 77 73 0d 2c 38  05 e1 0d 2c 42 04 0d 2c  |ndows.,8...,B..,|
00005900  4c 13 dd 20 a4 73 70 61  63 65 28 73 69 7a 65 25  |L.. .space(size%|
00005910  29 0d 2c 56 0c 62 6c 6f  63 6b 25 3d 93 0d 2c 60  |).,V.block%=..,`|
00005920  37 c8 99 22 58 57 69 6d  70 5f 53 6c 6f 74 53 69  |7.."XWimp_SlotSi|
00005930  7a 65 22 2c 61 70 70 73  69 7a 65 25 2b 73 69 7a  |ze",appsize%+siz|
00005940  65 25 2c 2d 31 20 b8 20  6e 65 77 25 3b 6e 6f 72  |e%,-1 . new%;nor|
00005950  6f 6f 6d 25 0d 2c 6a 19  72 6f 6f 6d 25 3d 28 28  |oom%.,j.room%=((|
00005960  6e 6f 72 6f 6f 6d 25 80  31 29 3d 30 29 0d 2c 74  |noroom%.1)=0).,t|
00005970  1d e7 20 6e 65 77 25 3d  61 70 70 73 69 7a 65 25  |.. new%=appsize%|
00005980  20 8c 20 72 6f 6f 6d 25  3d a3 0d 2c 7e 19 61 70  | . room%=..,~.ap|
00005990  70 69 6e 63 25 3d 6e 65  77 25 2d 61 70 70 73 69  |pinc%=new%-appsi|
000059a0  7a 65 25 0d 2c 88 0a 3d  72 6f 6f 6d 25 0d 2c 92  |ze%.,..=room%.,.|
000059b0  04 0d 2c 9c 10 dd 20 f2  72 65 73 65 74 73 6c 6f  |..,... .resetslo|
000059c0  74 0d 2c a6 21 c8 99 22  57 69 6d 70 5f 53 6c 6f  |t.,.!.."Wimp_Slo|
000059d0  74 53 69 7a 65 22 2c 61  70 70 73 69 7a 65 25 2c  |tSize",appsize%,|
000059e0  2d 31 0d 2c b0 05 e1 0d  2c ba 04 0d 2c c4 20 dd  |-1.,....,...,. .|
000059f0  20 f2 73 61 76 65 28 69  64 25 2c 66 69 6c 65 24  | .save(id%,file$|
00005a00  2c 70 72 65 70 61 72 65  64 25 29 0d 2c ce 13 66  |,prepared%).,..f|
00005a10  69 6c 65 6e 61 6d 65 24  3d 66 69 6c 65 24 0d 2c  |ilename$=file$.,|
00005a20  d8 0c 73 61 76 65 64 25  3d a3 0d 2c e2 1a e7 20  |..saved%=..,... |
00005a30  a4 6e 61 6d 65 6f 6b 28  66 69 6c 65 6e 61 6d 65  |.nameok(filename|
00005a40  24 29 20 8c 0d 2c ec 3e  e7 20 ac 70 72 65 70 61  |$) ..,.>. .prepa|
00005a50  72 65 64 25 20 8c 20 70  72 65 70 61 72 65 64 25  |red% . prepared%|
00005a60  3d a0 28 22 46 4e 70 72  65 70 61 72 65 22 2b c3  |=.("FNprepare"+.|
00005a70  7e 28 6d 69 73 63 25 28  64 72 61 67 69 64 25 29  |~(misc%(dragid%)|
00005a80  29 29 0d 2c f6 11 e7 20  70 72 65 70 61 72 65 64  |)).,... prepared|
00005a90  25 20 8c 0d 2d 00 42 c8  99 22 4f 53 5f 46 69 6c  |% ..-.B.."OS_Fil|
00005aa0  65 22 2c 31 30 2c 66 69  6c 65 6e 61 6d 65 24 2c  |e",10,filename$,|
00005ab0  6d 69 73 63 25 28 69 64  25 29 2c 2c 73 61 76 65  |misc%(id%),,save|
00005ac0  62 75 66 66 25 2c 73 61  76 65 62 75 66 66 25 2b  |buff%,savebuff%+|
00005ad0  73 69 7a 65 25 0d 2d 0a  0e f2 72 65 73 65 74 73  |size%.-...resets|
00005ae0  6c 6f 74 0d 2d 14 0e f2  63 6c 6f 73 65 6d 65 6e  |lot.-...closemen|
00005af0  75 0d 2d 1e 25 f2 73 65  74 69 63 6f 6e 74 65 78  |u.-.%.seticontex|
00005b00  74 28 77 25 28 69 64 25  29 2c 32 2c 66 69 6c 65  |t(w%(id%),2,file|
00005b10  6e 61 6d 65 24 29 0d 2d  28 0c 73 61 76 65 64 25  |name$).-(.saved%|
00005b20  3d b9 0d 2d 32 05 cd 0d  2d 3c 05 cd 0d 2d 46 05  |=..-2...-<...-F.|
00005b30  e1 0d 2d 50 04 0d 2d 5a  1b dd 20 f2 72 65 73 65  |..-P..-Z.. .rese|
00005b40  74 66 69 6c 65 6e 61 6d  65 28 77 69 6e 64 25 29  |tfilename(wind%)|
00005b50  0d 2d 64 2c f2 73 65 74  69 63 6f 6e 74 65 78 74  |.-d,.seticontext|
00005b60  28 77 69 6e 64 25 2c 32  2c a4 69 63 6f 6e 74 65  |(wind%,2,.iconte|
00005b70  78 74 28 77 69 6e 64 25  2c 31 29 29 0d 2d 6e 05  |xt(wind%,1)).-n.|
00005b80  e1 0d 2d 78 04 0d 2d 82  19 dd 20 f2 69 63 6f 6e  |..-x..-... .icon|
00005b90  62 61 72 6d 65 6e 75 28  74 65 78 74 24 29 0d 2d  |barmenu(text$).-|
00005ba0  8c 19 6d 65 6e 75 25 28  30 29 3d a4 6d 65 6e 75  |..menu%(0)=.menu|
00005bb0  28 74 65 78 74 24 29 0d  2d 96 1b 62 61 72 68 65  |(text$).-..barhe|
00005bc0  69 67 68 74 25 3d 69 74  65 6d 73 25 2a 34 34 2b  |ight%=items%*44+|
00005bd0  39 36 0d 2d a0 05 e1 0d  2d aa 04 0d 2d b4 25 dd  |96.-....-...-.%.|
00005be0  20 f2 72 65 64 6f 62 6f  78 28 77 69 6e 64 25 2c  | .redobox(wind%,|
00005bf0  78 30 25 2c 79 30 25 2c  78 31 25 2c 79 31 25 29  |x0%,y0%,x1%,y1%)|
00005c00  0d 2d be 1a e7 20 78 31  25 3c 78 30 25 20 8c 20  |.-... x1%<x0% . |
00005c10  c8 94 20 78 30 25 2c 78  31 25 0d 2d c8 1a e7 20  |.. x0%,x1%.-... |
00005c20  79 31 25 3c 79 30 25 20  8c 20 c8 94 20 79 30 25  |y1%<y0% . .. y0%|
00005c30  2c 79 31 25 0d 2d d2 36  c8 99 22 57 69 6d 70 5f  |,y1%.-.6.."Wimp_|
00005c40  46 6f 72 63 65 52 65 64  72 61 77 22 2c 77 69 6e  |ForceRedraw",win|
00005c50  64 25 2c 78 30 25 2d 34  2c 79 30 25 2d 34 2c 78  |d%,x0%-4,y0%-4,x|
00005c60  31 25 2b 34 2c 79 31 25  2b 34 0d 2d dc 05 e1 0d  |1%+4,y1%+4.-....|
00005c70  2d e6 04 0d 2d f0 11 dd  20 f2 64 72 61 77 68 65  |-...-... .drawhe|
00005c80  61 64 65 72 0d 2d fa 10  f2 73 74 64 28 22 44 72  |ader.-...std("Dr|
00005c90  61 77 22 29 0d 2e 04 0b  f2 77 28 32 30 31 29 0d  |aw").....w(201).|
00005ca0  2e 0e 09 f2 77 28 30 29  0d 2e 18 18 f2 73 74 64  |....w(0).....std|
00005cb0  28 22 41 72 63 44 72 61  77 20 20 20 20 20 22 29  |("ArcDraw     ")|
00005cc0  0d 2e 22 0d f2 77 28 31  3c 3c 33 30 29 0d 2e 2c  |.."..w(1<<30)..,|
00005cd0  0d f2 77 28 31 3c 3c 33  30 29 0d 2e 36 0d f2 77  |..w(1<<30)..6..w|
00005ce0  28 31 3c 3c 33 31 29 0d  2e 40 0d f2 77 28 31 3c  |(1<<31)..@..w(1<|
00005cf0  3c 33 31 29 0d 2e 4a 05  e1 0d 2e 54 04 0d 2e 5e  |<31)..J....T...^|
00005d00  11 dd 20 f2 73 74 61 72  74 67 72 6f 75 70 0d 2e  |.. .startgroup..|
00005d10  68 0a 67 73 25 3d 64 25  0d 2e 72 09 f2 77 28 36  |h.gs%=d%..r..w(6|
00005d20  29 0d 2e 7c 21 f2 77 28  30 29 3a f2 77 28 30 29  |)..|!.w(0):.w(0)|
00005d30  3a f2 77 28 30 29 3a f2  77 28 30 29 3a f2 77 28  |:.w(0):.w(0):.w(|
00005d40  30 29 0d 2e 86 18 f2 73  74 64 28 22 47 72 6f 75  |0).....std("Grou|
00005d50  70 20 20 20 20 20 20 20  22 29 0d 2e 90 05 e1 0d  |p       ")......|
00005d60  2e 9a 04 0d 2e a4 0f dd  20 f2 65 6e 64 67 72 6f  |........ .endgro|
00005d70  75 70 0d 2e ae 10 67 73  25 21 34 3d 64 25 2d 67  |up....gs%!4=d%-g|
00005d80  73 25 0d 2e b8 13 67 73  25 21 38 3d 62 6c 6f 63  |s%....gs%!8=bloc|
00005d90  6b 25 21 32 34 0d 2e c2  14 67 73 25 21 31 32 3d  |k%!24....gs%!12=|
00005da0  62 6c 6f 63 6b 25 21 32  38 0d 2e cc 14 67 73 25  |block%!28....gs%|
00005db0  21 31 36 3d 62 6c 6f 63  6b 25 21 33 32 0d 2e d6  |!16=block%!32...|
00005dc0  14 67 73 25 21 32 30 3d  62 6c 6f 63 6b 25 21 33  |.gs%!20=block%!3|
00005dd0  36 0d 2e e0 05 e1 0d 2e  ea 04 0d 2e f4 0f dd 20  |6.............. |
00005de0  f2 66 6f 6e 74 28 66 24  29 0d 2e fe 0c 66 6f 6e  |.font(f$)....fon|
00005df0  74 24 3d 66 24 0d 2f 08  09 73 25 3d 64 25 0d 2f  |t$=f$./..s%=d%./|
00005e00  12 09 f2 77 28 30 29 0d  2f 1c 09 f2 77 28 30 29  |...w(0)./...w(0)|
00005e10  0d 2f 26 09 f2 62 28 31  29 0d 2f 30 0f f2 73 74  |./&..b(1)./0..st|
00005e20  30 28 66 6f 6e 74 24 29  0d 2f 3a 0e 73 25 21 34  |0(font$)./:.s%!4|
00005e30  3d 64 25 2d 73 25 0d 2f  44 05 e1 0d 2f 4e 04 0d  |=d%-s%./D.../N..|
00005e40  2f 58 10 dd 20 f2 69 6e  63 28 69 6e 63 25 29 0d  |/X.. .inc(inc%).|
00005e50  2f 62 40 e7 20 64 25 2b  69 6e 63 25 3e 62 6c 6f  |/b@. d%+inc%>blo|
00005e60  63 6b 25 2b 61 70 70 69  6e 63 25 2d 32 35 36 20  |ck%+appinc%-256 |
00005e70  8c 20 6f 6b 61 79 25 3d  a4 73 70 61 63 65 28 61  |. okay%=.space(a|
00005e80  70 70 69 6e 63 25 2b 31  36 2a 31 30 32 34 29 0d  |ppinc%+16*1024).|
00005e90  2f 6c 2b e7 20 6f 6b 61  79 25 20 8c 20 64 25 3d  |/l+. okay% . d%=|
00005ea0  28 64 25 2b 69 6e 63 25  2b 33 29 80 ac 33 20 8b  |(d%+inc%+3)..3 .|
00005eb0  20 64 25 3d 62 6c 6f 63  6b 25 0d 2f 76 05 e1 0d  | d%=block%./v...|
00005ec0  2f 80 04 0d 2f 8a 0f dd  20 f2 73 74 30 28 73 74  |/.../... .st0(st|
00005ed0  24 29 0d 2f 94 0e 24 64  25 3d 73 74 24 2b bd 30  |$)./..$d%=st$+.0|
00005ee0  0d 2f 9e 0e f2 69 6e 63  28 a9 24 64 25 29 0d 2f  |./...inc(.$d%)./|
00005ef0  a8 05 e1 0d 2f b2 04 0d  2f bc 0f dd 20 f2 73 74  |..../.../... .st|
00005f00  64 28 73 74 24 29 0d 2f  c6 0b 24 64 25 3d 73 74  |d(st$)./..$d%=st|
00005f10  24 0d 2f d0 0e f2 69 6e  63 28 a9 24 64 25 29 0d  |$./...inc(.$d%).|
00005f20  2f da 05 e1 0d 2f e4 04  0d 2f ee 0c dd 20 f2 77  |/..../.../... .w|
00005f30  28 77 25 29 0d 2f f8 0a  21 64 25 3d 77 25 0d 30  |(w%)./..!d%=w%.0|
00005f40  02 0b f2 69 6e 63 28 34  29 0d 30 0c 05 e1 0d 30  |...inc(4).0....0|
00005f50  16 04 0d 30 20 0c dd 20  f2 62 28 62 25 29 0d 30  |...0 .. .b(b%).0|
00005f60  2a 0a 3f 64 25 3d 62 25  0d 30 34 09 64 25 2b 3d  |*.?d%=b%.04.d%+=|
00005f70  31 0d 30 3e 05 e1 0d 30  48 04 0d 30 52 2c dd 20  |1.0>...0H..0R,. |
00005f80  f2 74 65 78 74 28 6e 61  6d 65 24 2c 73 69 7a 65  |.text(name$,size|
00005f90  78 25 2c 73 69 7a 65 79  25 2c 78 25 2c 79 25 2c  |x%,sizey%,x%,y%,|
00005fa0  74 79 70 65 25 29 0d 30  5c 17 78 25 2b 3d 6f 66  |type%).0\.x%+=of|
00005fb0  66 78 25 3a 79 25 2b 3d  6f 66 66 79 25 0d 30 66  |fx%:y%+=offy%.0f|
00005fc0  38 c8 99 22 46 6f 6e 74  5f 46 69 6e 64 46 6f 6e  |8.."Font_FindFon|
00005fd0  74 22 2c 2c 66 6f 6e 74  24 2c 73 69 7a 65 78 25  |t",,font$,sizex%|
00005fe0  2a 31 36 2c 73 69 7a 65  79 25 2a 31 36 20 b8 20  |*16,sizey%*16 . |
00005ff0  66 6f 6e 74 25 0d 30 70  1a c8 99 22 46 6f 6e 74  |font%.0p..."Font|
00006000  5f 53 65 74 46 6f 6e 74  22 2c 66 6f 6e 74 25 0d  |_SetFont",font%.|
00006010  30 7a 31 c8 99 22 46 6f  6e 74 5f 53 74 72 69 6e  |0z1.."Font_Strin|
00006020  67 42 42 6f 78 22 2c 2c  6e 61 6d 65 24 20 b8 20  |gBBox",,name$ . |
00006030  2c 6c 78 25 2c 6c 79 25  2c 6d 78 25 2c 6d 79 25  |,lx%,ly%,mx%,my%|
00006040  0d 30 84 32 c8 99 22 46  6f 6e 74 5f 43 6f 6e 76  |.0.2.."Font_Conv|
00006050  65 72 74 74 6f 4f 53 22  2c 2c 6c 78 25 3c 3c 38  |erttoOS",,lx%<<8|
00006060  2c 6c 79 25 3c 3c 38 20  b8 20 2c 6c 78 25 2c 6c  |,ly%<<8 . ,lx%,l|
00006070  79 25 0d 30 8e 32 c8 99  22 46 6f 6e 74 5f 43 6f  |y%.0.2.."Font_Co|
00006080  6e 76 65 72 74 74 6f 4f  53 22 2c 2c 6d 78 25 3c  |nverttoOS",,mx%<|
00006090  3c 38 2c 6d 79 25 3c 3c  38 20 b8 20 2c 6d 78 25  |<8,my%<<8 . ,mx%|
000060a0  2c 6d 79 25 0d 30 98 1b  c8 99 22 46 6f 6e 74 5f  |,my%.0...."Font_|
000060b0  4c 6f 73 65 46 6f 6e 74  22 2c 66 6f 6e 74 25 0d  |LoseFont",font%.|
000060c0  30 a2 21 e7 20 74 79 70  65 25 20 8c 20 78 25 2d  |0.!. type% . x%-|
000060d0  3d 28 6d 78 25 2d 6c 78  25 29 2f 74 79 70 65 25  |=(mx%-lx%)/type%|
000060e0  0d 30 ac 09 73 25 3d 64  25 0d 30 b6 09 f2 77 28  |.0..s%=d%.0...w(|
000060f0  31 29 0d 30 c0 09 f2 77  28 30 29 0d 30 ca 2b f2  |1).0...w(0).0.+.|
00006100  73 65 74 62 6f 75 6e 64  73 28 6c 78 25 2b 78 25  |setbounds(lx%+x%|
00006110  2c 6c 79 25 2b 79 25 2c  6d 78 25 2b 78 25 2c 6d  |,ly%+y%,mx%+x%,m|
00006120  79 25 2b 79 25 29 0d 30  d4 09 f2 77 28 30 29 0d  |y%+y%).0...w(0).|
00006130  30 de 11 f2 77 28 26 46  46 46 46 46 46 30 30 29  |0...w(&FFFFFF00)|
00006140  0d 30 e8 09 f2 77 28 31  29 0d 30 f2 12 f2 77 28  |.0...w(1).0...w(|
00006150  73 69 7a 65 78 25 2a 36  34 30 29 0d 30 fc 12 f2  |sizex%*640).0...|
00006160  77 28 73 69 7a 65 79 25  2a 36 34 30 29 0d 31 06  |w(sizey%*640).1.|
00006170  0a f2 77 28 78 25 29 0d  31 10 0a f2 77 28 79 25  |..w(x%).1...w(y%|
00006180  29 0d 31 1a 0f f2 73 74  30 28 6e 61 6d 65 24 29  |).1...st0(name$)|
00006190  0d 31 24 0e 73 25 21 34  3d 64 25 2d 73 25 0d 31  |.1$.s%!4=d%-s%.1|
000061a0  2e 1b c8 99 22 46 6f 6e  74 5f 4c 6f 73 65 46 6f  |...."Font_LoseFo|
000061b0  6e 74 22 2c 66 6f 6e 74  25 0d 31 38 05 e1 0d 31  |nt",font%.18...1|
000061c0  42 04 0d 31 4c 21 dd 20  f2 73 65 74 62 6f 75 6e  |B..1L!. .setboun|
000061d0  64 73 28 6c 78 25 2c 6c  79 25 2c 68 78 25 2c 68  |ds(lx%,ly%,hx%,h|
000061e0  79 25 29 0d 31 56 1a e7  20 68 78 25 3c 6c 78 25  |y%).1V.. hx%<lx%|
000061f0  20 8c 20 c8 94 20 6c 78  25 2c 68 78 25 0d 31 60  | . .. lx%,hx%.1`|
00006200  1a e7 20 68 79 25 3c 6c  79 25 20 8c 20 c8 94 20  |.. hy%<ly% . .. |
00006210  6c 79 25 2c 68 79 25 0d  31 6a 13 f2 77 28 6c 78  |ly%,hy%.1j..w(lx|
00006220  25 29 3a f2 77 28 6c 79  25 29 0d 31 74 13 f2 77  |%):.w(ly%).1t..w|
00006230  28 68 78 25 29 3a f2 77  28 68 79 25 29 0d 31 7e  |(hx%):.w(hy%).1~|
00006240  23 e7 20 6c 78 25 3c 62  6c 6f 63 6b 25 21 32 34  |#. lx%<block%!24|
00006250  20 8c 20 62 6c 6f 63 6b  25 21 32 34 3d 6c 78 25  | . block%!24=lx%|
00006260  0d 31 88 23 e7 20 6c 79  25 3c 62 6c 6f 63 6b 25  |.1.#. ly%<block%|
00006270  21 32 38 20 8c 20 62 6c  6f 63 6b 25 21 32 38 3d  |!28 . block%!28=|
00006280  6c 79 25 0d 31 92 23 e7  20 68 78 25 3e 62 6c 6f  |ly%.1.#. hx%>blo|
00006290  63 6b 25 21 33 32 20 8c  20 62 6c 6f 63 6b 25 21  |ck%!32 . block%!|
000062a0  33 32 3d 68 78 25 0d 31  9c 23 e7 20 68 79 25 3e  |32=hx%.1.#. hy%>|
000062b0  62 6c 6f 63 6b 25 21 33  36 20 8c 20 62 6c 6f 63  |block%!36 . bloc|
000062c0  6b 25 21 33 36 3d 68 79  25 0d 31 a6 05 e1 0d 31  |k%!36=hy%.1....1|
000062d0  b0 04 0d 31 ba 1c dd 20  f2 6c 69 6e 65 28 78 30  |...1... .line(x0|
000062e0  25 2c 79 30 25 2c 78 31  25 2c 79 31 25 29 0d 31  |%,y0%,x1%,y1%).1|
000062f0  c4 29 78 30 25 3d 28 78  30 25 3c 3c 38 29 2b 6f  |.)x0%=(x0%<<8)+o|
00006300  66 66 78 25 3a 78 31 25  3d 28 78 31 25 3c 3c 38  |ffx%:x1%=(x1%<<8|
00006310  29 2b 6f 66 66 78 25 0d  31 ce 29 79 30 25 3d 28  |)+offx%.1.)y0%=(|
00006320  79 30 25 3c 3c 38 29 2b  6f 66 66 79 25 3a 79 31  |y0%<<8)+offy%:y1|
00006330  25 3d 28 79 31 25 3c 3c  38 29 2b 6f 66 66 79 25  |%=(y1%<<8)+offy%|
00006340  0d 31 d8 09 73 25 3d 64  25 0d 31 e2 09 f2 77 28  |.1..s%=d%.1...w(|
00006350  32 29 0d 31 ec 09 f2 77  28 30 29 0d 31 f6 1f f2  |2).1...w(0).1...|
00006360  73 65 74 62 6f 75 6e 64  73 28 78 30 25 2c 79 30  |setbounds(x0%,y0|
00006370  25 2c 78 31 25 2c 79 31  25 29 0d 32 00 0a f2 77  |%,x1%,y1%).2...w|
00006380  28 2d 31 29 0d 32 0a 09  f2 77 28 30 29 0d 32 14  |(-1).2...w(0).2.|
00006390  09 f2 77 28 30 29 0d 32  1e 11 f2 77 28 26 32 30  |..w(0).2...w(&20|
000063a0  31 30 30 30 34 30 29 0d  32 28 09 f2 77 28 32 29  |100040).2(..w(2)|
000063b0  0d 32 32 0b f2 77 28 78  30 25 29 0d 32 3c 0b f2  |.22..w(x0%).2<..|
000063c0  77 28 79 30 25 29 0d 32  46 09 f2 77 28 38 29 0d  |w(y0%).2F..w(8).|
000063d0  32 50 0b f2 77 28 78 31  25 29 0d 32 5a 0b f2 77  |2P..w(x1%).2Z..w|
000063e0  28 79 31 25 29 0d 32 64  09 f2 77 28 30 29 0d 32  |(y1%).2d..w(0).2|
000063f0  6e 0e 73 25 21 34 3d 64  25 2d 73 25 0d 32 78 05  |n.s%!4=d%-s%.2x.|
00006400  e1 0d 32 82 04 0d 32 8c  0e dd 20 a4 63 6c 69 63  |..2...2... .clic|
00006410  6b 3d 30 0d 32 96 04 0d  32 a0 0f dd 20 a4 72 65  |k=0.2...2... .re|
00006420  64 72 61 77 3d 30 0d 32  aa 04 0d 32 b4 0c dd 20  |draw=0.2...2... |
00006430  a4 6b 65 79 3d 30 0d 32  be 04 0d 32 c8 0d dd 20  |.key=0.2...2... |
00006440  a4 64 72 6f 70 3d 30 0d  ff                       |.drop=0..|
00006449