� > <Squish$Dir>.!RunImage

�initiate
� � �error(�$)
(
2ȕ �exit
<�poll(1+dragging%)
F�
P�closedown
Z
d� �initiate
n1�wimpinit("Squish","!squish","Squish",3,2000)
xdragging%=�
�x=0:y=1
�tags%=7
�L� tag(tags%,1),redotag%(tags%),tagon%(tags%),min(1),max(1),s%(1),len%(3)
�tagsize%=12:option%=0
�osprite%=-1:isprite%=-1
�zoom1%=1:zoom2%=1:zoom=1
�� quad% 32,magkeys% 3
�*?magkeys%=0:magkeys%?1=3:magkeys%?2=-1
�tagon%()=-1
�
linear%=�
��mc
�
�initheap
��



� �initwindows

� spritemenu% 4000

"Winfo%=�infowindow("Squish","Sprite Stretcher","Barry Wickett","1.33 (18-Jan-1994)")

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

6%save%=�savebox(sft%,"SpriteFile")

@Coptions%=�menu("Update,When told/,End of drag,Whilst dragging")

J3magnifier%=�window("magnifier","magnifier",0,0)

T� angle% 4

^$angle%="90"

h)rotate%=�menu("Angle,4!,a0-9,angle%")

r�main%=�window("standard","main",�menu("Squish,Save>,w%(save%),Select Sprite>,spritemenu%,Linear/,Update>-,options%,Rotate>,rotate%,Zoom>-,w%(magnifier%),Do it"),%110)

|�

�

�� �dropmain

�dragging%=�

�� option%=1 � �doit

�=0

�

�� �null

��mouseinfo

�� dragging% �

�  nx=(mx%-wx%+mix%)/zoom

�  ny=(my%-wy%+miy%)/zoom

�3  � nx<>tag(dragtag%,x) � ny<>tag(dragtag%,y) �

�    � option%<2 �
      � time%=1 � 2
$        �updatewindow(w%(main%))
        ȕ more%
&"          redotag%(dragtag%)=�
0          � dragtag%>=4 �
:&            redotag%(dragtag%-4)=�
D.            redotag%(�tag(dragtag%-4,1))=�
N,            redotag%(�tag(dragtag%,1))=�
X-            redotag%(�tag(dragtag%,-1))=�
b          �
l&            redotag%(dragtag%+4)=�
v/            redotag%(�tag(dragtag%+4,-1))=�
�            � linear% �
�*              opptag%=�tag(dragtag%,2)
�%              redotag%(opptag%)=�
�'              redotag%(opptag%+4)=�
�0              redotag%(�tag(opptag%+4,-1))=�
�            �
�          �
�          �redotags
�1          ș"Wimp_GetRectangle",,blk% � more%
�
        �
�"        � time%=1 � �newtagpos
�      � time%
�	    �
      �newtagpos
      �doit
	    �
   �
*�
4�
>
H� �clickmagnifier
R>� �incicon(0,2,1,1,999) � �incicon(3,6,5,1,999) � �setzoom
\=0
f
p� �keymagnifier
ztaken=�iconkeys(magkeys%)
�� taken=-2 �
�  �closemenu
�  �setzoom
��
�
=taken
�
�� �setzoom
�oldzoom=zoom1%/zoom2%
�%zoom1%=�iconval(w%(magnifier%),0)
�%zoom2%=�iconval(w%(magnifier%),3)
�zoom=zoom1%/zoom2%
�� oldzoom<>zoom �
�  �windowinfo(w%(main%))
  �setwindowsize
0  blk%!20=(blk%!20+ww%/2)*zoom/oldzoom-ww%/2
0  blk%!24=(blk%!24-wh%/2)*zoom/oldzoom+wh%/2
$  �openwindow
.  �forceredraw(w%(main%))
8�
B�
L
V� �setwindowsize
`M�setwindowextent(w%(main%),-rw%*zoom*2,-rh%*zoom*2,rw%*zoom*2,rh%*zoom*2)
j�
t
~� �newtagpos
�� dragtag%>=4 �
�  tag(dragtag%-4,x)=nx+ix
�  tag(dragtag%-4,y)=ny+iy
�%  tag(�tag(dragtag%-4,1),x)=nx-ix
�%  tag(�tag(dragtag%-4,1),y)=ny-iy
��
�  tag(dragtag%,x)=nx
�  tag(dragtag%,y)=ny
�  � linear% �
�    � ord%=x � y
�n      tag(�tag(dragtag%,2),ord%)=tag(�tag(dragtag%,-1),ord%)+tag(�tag(dragtag%,1),ord%)-tag(dragtag%,ord%)
�    � ord%
  �

�
�findintertags
�
(
2� �redrawmain
<P�putsprite(osprite%,sprite$,wx%+spritex*zoom,wy%+spritey*zoom,zoom1%,zoom2%)
Fredotag%()=�
P
�redotags
Z=0
d
n� �redotags
xș"Wimp_SetColour",8+3*16
�� tag%=0 � 3
�/  � redotag%(tag%) � redotag%((tag%+1)�3) �
�i    � wx%+zoom*tag(tag%,x),wy%+zoom*tag(tag%,y),wx%+zoom*tag((tag%+1)�3,x),wy%+zoom*tag((tag%+1)�3,y)
�  �
�
� tag%
�ș"Wimp_SetColour",11+3*16
�� tag%=0 � tags%
�'  � redotag%(tag%) � tagon%(tag%) �
�\    ȓ wx%+zoom*tag(tag%,x)-tagsize%,wy%+zoom*tag(tag%,y)-tagsize%,tagsize%*2,tagsize%*2
�    redotag%(tag%)=�
�  �
�
� tag%
��

� �clickmain
�windowinfo(w%(main%))
"mx%-=wx%:my%-=wy%
,tag%=-1
6� t%=0 � tags%
@�  � mx%>=zoom*tag(t%,x)-tagsize% � mx%<=zoom*tag(t%,x)+tagsize% � my%>=zoom*tag(t%,y)-tagsize% � my%<=zoom*tag(t%,y)+tagsize% � tagon%(t%) � tag%=t%
J� t%
T� tag%>=0 �
^P  �startdragbox(0,7,0,0,0,0,wx%+blk%!44,wy%+blk%!48,wx%+blk%!52,wy%+blk%!56)
h  dragging%=�
r  dragid%=main%
|  dragtag%=tag%
�  � dragtag%>=4 �
�,    ix=tag(dragtag%-4,x)-tag(dragtag%,x)
�,    iy=tag(dragtag%-4,y)-tag(dragtag%,y)
�  �
�#  mix%=zoom*tag(dragtag%,x)-mx%
�#  miy%=zoom*tag(dragtag%,y)-my%
��
�=0
�
�� �closemain
��loseblock(isprite%)
��loseblock(osprite%)
�=�

� �opensave
:�seticontext(w%(save%),2,�standardfilename(w%(save%)))
&=0
0
:� �menumain
DȎ !blk% �
N.  � 1 : � blk%!4>-1 � �newsprite(blk%!4+1)
X	  � 2
b    linear%=�linear%
l)    �tickmenu(menu%(main%),2,linear%)
v    � linear% �
�      � ord%=x � y
�;        tag(2,ord%)=tag(3,ord%)+tag(1,ord%)-tag(0,ord%)
�      � ord%
�	    �
�    �findintertags
�    �forceredraw(w%(main%))
�	  � 3
�    � blk%!4>-1 �
�'      �tickmenu(options%,option%,�)
�      option%=blk%!4
�'      �tickmenu(options%,option%,�)
�	    �
�	  � 4
    ang=�(�($angle%))
    � tag%=0 � tags%
2      tx=�(ang)*tag(tag%,x)-�(ang)*tag(tag%,y)
 ;      tag(tag%,y)=�(ang)*tag(tag%,x)+�(ang)*tag(tag%,y)
*      tag(tag%,x)=tx
4    � tag%
>    �forceredraw(w%(main%))
H  � 6 : �doit
R�
\=0
f
p� �premenumain
zd%=�opensave
�(�seticonval(w%(magnifier%),0,zoom1%)
�(�seticonval(w%(magnifier%),3,zoom2%)
�=0
�
�� �menuiconbar
�� !blk%=1 � �closedown
�=0
�
�� �clickiconbar
�� active%(main%) �
�  �openup(w%(main%))
��
�=  �report("Drag a spritefile here to start application.")
	�
	=0
	
	$� �prepareFF9
	.savebuff%=osprite%+4
	8filesize%=osprite%!12-4
	B=-1
	L
	V� �transblockFF9
	`�loseblock(osprite%)
	j%�newspritearea(isprite%,size%-12)
	t=isprite%+4
	~
	�� �savedFF9
	��closemenu
	�=0
	�
	�� �loadFF9(file$)
	��fileinfo(file$)
	��loseblock(osprite%)
	�)�newspritearea(isprite%,filesize%-12)
	�� isprite%=-1 �
	�0  � active%(main%) � �closewindow(w%(main%))
	�  �report("Out of room.")
	��
+  ș"OS_SpriteOp",10+256,isprite%,file$

�
=-1

(� �loadedFF9
2menuptr%=spritemenu%
<"�menutitle("Sprites",menuptr%)
F� s%=1 � isprite%!4
P%  sname$=�spritename(isprite%,s%)
Z   �menuitem(sname$,menuptr%)
d� s%
n�endmenu(menuptr%)
x
chosen%=1
��newsprite(chosen%)
�=0
�
�� �newsprite(c%)
�&�tickmenu(spritemenu%,chosen%-1,�)
�chosen%=c%
�&�tickmenu(spritemenu%,chosen%-1,�)
�)sprite$=�spritename(isprite%,chosen%)
�6ș"OS_SpriteOp",24+256,isprite%,sprite$ � ,,saddr%
�,� saddr%!32=44 � palette%=0 � palette%=1
�$�newspritearea(osprite%,!saddr%)
�Fș"OS_SpriteOp",40+256,isprite%,sprite$ � ,,,sx%,sy%,mask%,spmode%
�osprite%!4=1
osprite%!12+=!saddr%
Eș"Wimp_TransferBlock",mytask%,saddr%,mytask%,osprite%+16,!saddr%
 rw%=sx%<<�modevar(spmode%,4)
" rh%=sy%<<�modevar(spmode%,5)
,tag(0,x)=-rw%/2
6tag(1,x)=rw%/2
@tag(0,y)=rh%/2
Jtag(2,y)=-rh%/2
T'tag(2,x)=tag(1,x):tag(3,x)=tag(0,x)
^'tag(1,y)=tag(0,y):tag(3,y)=tag(2,y)
hspritex=tag(0,x)
rspritey=tag(2,y)
|�findintertags
��setwindowsize
�!blk%=w%(main%)
�.� active%(main%) � �forceredraw(w%(main%))
��openup(w%(main%))
�!blk%=w%(main%)
�!ș"Wimp_GetWindowState",,blk%
�blk%!20=-(blk%!12-blk%!4)/2
�blk%!24=(blk%!16-blk%!8)/2
��openwindow
��
�
�� �findintertags
�� tag%=0 � 3
  � ord=x � y
=    tag(tag%+4,ord)=(tag(tag%,ord)+tag((tag%+1)�3,ord))/2
  � ord
&
� tag%
0�
:
D� �tag(tag%,inc%)
N=� tag%<=3 � tag%=(tag%+inc%)�3 � tag%=((tag%-4+inc%)�3)+4
X	=tag%
b
l� �fileokay(filetype%)
v	ok%=�
�Ȏ filetype% �
�#  � sft% : � message%=5 � ok%=�
�
�  ok%=�
��
�=ok%
�
�� �doit
�ș"Hourglass_On"
�� ord%=x � y
�  min(ord%)=tag(0,ord%)
�  max(ord%)=tag(0,ord%)
�  � t%=1 � 3

9    � tag(t%,ord%)<min(ord%) � min(ord%)=tag(t%,ord%)

9    � tag(t%,ord%)>max(ord%) � max(ord%)=tag(t%,ord%)


  � t%

 ,  min(ord%)-=1<<�modevar(spmode%,4+ord%)

*C  s%(ord%)=(�(max(ord%)-min(ord%))>>�modevar(spmode%,4+ord%))+1

4
� ord%

>;ssize%=(s%(x)+32)*s%(y)*(1<<�modevar(spmode%,9))/4+1000

H#�newspritearea(osprite%,ssize%)

R� osprite%=-1 �

\�report("Out of room.")

f�newsprite(chosen%)

p�

zHș"OS_SpriteOp",15+256,osprite%,sprite$,palette%,s%(x),s%(y),spmode%

�6ș"OS_SpriteOp",24+256,isprite%,sprite$ � ,,iaddr%

�6ș"OS_SpriteOp",24+256,osprite%,sprite$ � ,,oaddr%

�@� palette% � �copypalette(isprite%,sprite$,osprite%,sprite$)

�+ș"OS_SpriteOp",29+256,osprite%,sprite$

�� t%=0 � 3

�  � ord%=x � y

�>    !(quad%+((t%*2+ord%)<<2))=(tag(t%,ord%)-min(ord%))*256

�  � ord%

�� t%

�� linear% �

�&quad%!24=quad%!16-(quad%!8-!quad%)

�(quad%!28=quad%!20-(quad%!12-quad%!4)

�<ș"OS_SpriteOp",60+512,osprite%,oaddr% � r0%,r1%,r2%,r3%
4ș"OS_SpriteOp",56+512,isprite%,iaddr%,1,,,quad%
#ș"OS_SpriteOp",r0%,r1%,r2%,r3%
<ș"OS_SpriteOp",61+512,osprite%,oaddr% � r0%,r1%,r2%,r3%
$� 0,0 Ȝ 0
.Cȓ Ȑ 0,0,s%(x)<<�modevar(spmode%,4),s%(y)<<�modevar(spmode%,5)
8
� mask% �
B(  � 8,128+�modevar(spmode%,3) Ȝ 255
L6  ș"OS_SpriteOp",55+512,isprite%,iaddr%,1,,,quad%
V�
`$  � 0,�modevar(spmode%,3) Ȝ 255
j  � quad%!24>>8,quad%!28>>8
t  � !quad%>>8,quad%!4>>8
~"  � &75,quad%!8>>8,quad%!12>>8
��
�#ș"OS_SpriteOp",r0%,r1%,r2%,r3%
��
�<ș"OS_SpriteOp",61+512,osprite%,oaddr% � r0%,r1%,r2%,r3%
�� 0,0 Ȝ 0
�Cȓ Ȑ 0,0,s%(x)<<�modevar(spmode%,4),s%(y)<<�modevar(spmode%,5)
�#ș"OS_SpriteOp",r0%,r1%,r2%,r3%
�� t%=0 � 3
�;  xdiff%=(!(quad%+(t%<<3))-!(quad%+(((t%+1)�3)<<3)))>>8
�?  ydiff%=(!(quad%+4+(t%<<3))-!(quad%+4+(((t%+1)�3)<<3)))>>8
�#  len%(t%)=�(xdiff%^2+ydiff%^2)
�� t%
9� len%(0)>len%(2) � max1%=len%(0) � max1%=len%(2)*1.1

9� len%(1)>len%(3) � max2%=len%(1) � max2%=len%(3)*1.1
!isprite=isprite%
!osprite=osprite%
(!iaddr=iaddr%
2!oaddr=oaddr%
<5mv4%=�modevar(spmode%,4):mv5%=�modevar(spmode%,5)
F&!xd1=(quad%!16-quad%!24)>>(mv4%+8)
P !xd2=(!quad%-quad%!24)>>mv4%
Z#!xd3=(quad%!8-!quad%)>>(mv4%+8)
d!ox=(quad%!24)<<(8-mv4%)
n&!yd1=(quad%!20-quad%!28)>>(mv5%+8)
x!!yd2=(quad%!4-quad%!28)>>mv5%
�%!yd3=(quad%!12-quad%!4)>>(mv5%+8)
�!oy=(quad%!28)<<(8-mv5%)
�!step1=(1<<(16+mv4%))/max1%
�!step2=(1<<(16+mv4%))/max2%
�!sx=sx%
�!sy=sy%
�� code%
��
�spritex=min(x)
�spritey=min(y)
��forceredraw(w%(main%))
��
�ș"Hourglass_Off"
�

	� �mc
"� code% 2000
,� pass=0 � 2 � 2
6P%=code%
@one16=1<<16
Jdsarea=1:spointer=2:spritex=3:spritey=4:col=5:tint=6:t1=7:t2=8:temp1=9:temp2=10:temp3=11:temp4=12
T
[OPT pass
^
MOV t1,#0
h
.loop1
rMOV R1,#100
|MUL R0,t1,R1
�MOV R0,R0,ASR#16
�SWI "Hourglass_Percentage"
�LDR temp1,xd1
�MUL temp2,t1,temp1
�STR temp2,xf1
�LDR temp1,xd3
�MUL temp3,temp1,t1
�SUB temp1,temp3,temp2
�MOV temp1,temp1,ASR#8
�LDR temp2,xd2
�ADD temp1,temp1,temp2
�STR temp1,xf2
�LDR temp1,yd1
MUL temp2,t1,temp1
STR temp2,yf1
LDR temp1,yd3
&MUL temp3,temp1,t1
0SUB temp1,temp3,temp2
:MOV temp1,temp1,ASR#8
DLDR temp2,yd2
NADD temp1,temp1,temp2
XSTR temp1,yf2
bLDR temp1,sx
lMUL temp2,temp1,t1
vMOV temp2,temp2,ASR#16
�STR temp2,spx
�
MOV t2,#0
�
.loop2
�LDR temp1,xf2
�MOV R0,t2,ASR#4
�MUL temp2,temp1,R0
�MOV temp2,temp2,ASR#4
�LDR temp1,xf1
�ADD temp2,temp2,temp1
�LDR temp1,ox
�ADD temp2,temp2,temp1
�MOV temp3,temp2,ASR#16
�LDR temp1,yf2
MUL temp2,temp1,R0
MOV temp2,temp2,ASR#4
LDR temp1,yf1
 ADD temp2,temp2,temp1
*LDR temp1,oy
4ADD temp2,temp2,temp1
>MOV temp4,temp2,ASR#16
HLDR temp1,sy
RMUL temp2,temp1,t2
\MOV spritey,temp2,ASR#16
fLDR spritex,spx
pMOV R0,#512
zADD R0,R0,#43
�LDR sarea,isprite
�LDR spointer,iaddr
�SWI "OS_SpriteOp"
�
CMP R5,#0
�BEQ endloop
�MOV R0,#512
�ADD R0,R0,#41
�SWI "OS_SpriteOp"
�MOV R0,#512
�ADD R0,R0,#42
�LDR sarea,osprite
�LDR spointer,oaddr
�MOV spritex,temp3
MOV spritey,temp4
SWI "OS_SpriteOp"
MOV R0,#512
$ADD R0,R0,#44
.
MOV R5,#1
8SWI "OS_SpriteOp"
B.endloop
LLDR temp2,step2
VADD t2,t2,temp2
`CMP t2,#one16
j
BLT loop2
tLDR temp1,step1
~ADD t1,t1,temp1
�CMP t1,#one16
�
BLT loop1
�MOV PC,R14
�.xd1:EQUD 0
�.xd2:EQUD 0
�.xd3:EQUD 0
�.ox:EQUD 0
�.yd1:EQUD 0
�.yd2:EQUD 0
�.yd3:EQUD 0
�.oy:EQUD 0
�.step1:EQUD 0
.step2:EQUD 0

.mask:EQUD 0
.xf1:EQUD 0
.xf2:EQUD 0
(.yf1:EQUD 0
2.yf2:EQUD 0
<.spx:EQUD 0
F.spy:EQUD 0
P.sx:EQUD 0
Z.sy:EQUD 0
d.isprite:EQUD 0
n.osprite:EQUD 0
x.iaddr:EQUD 0
�.oaddr:EQUD 0
�]
�
� pass
��
�
�#� ----WIMP Library routines----
�
�%� �newspritearea(� sprite%,size%)
�&� sprite%>-1 � �loseblock(sprite%)
�sprite%=�getblock(size%+16)
�� sprite%>-1 �
�!sprite%=size%+16
�sprite%!4=0
sprite%!8=16
sprite%!12=16
�
"�
,
6 � ==== message routines ====
@
J� �poll(pollflags%)
T+ș"Wimp_Poll",pollflags%,blk% � reason%
^Ȏ reason% �
h  � 0:�null
r  � 1:�redraw
|  � 2:�openwindow
�  � 3:�closewindow(!blk%)
�  � 4:� pointer leaving
�  � 5:� pointer entering
�5  � 6:�click(!blk%,blk%!4,blk%!8,blk%!12,blk%!16)
�  � 7:�enddrag
�+  � 8:�key(!blk%,blk%!4,blk%!8,blk%!24)
�  � 9:�menuselect
�  � 10:� scroll request
�  � 11:mycaret%=�
�  � 12:mycaret%=�
�-  � 17,18:�message(blk%!4,blk%!8,blk%!16)
��
��

#� �message(task%,ref%,message%)
9� status%>0 � message%>=1 � message%<=7 � message%=-1
&Ȏ message% �
0  � 0 : �quit
:	  � 1
D    filetype%=blk%!40
N     � �fileokay(filetype%) �
X      itrans%=0
b      size%=blk%!36
l       file$=�string(blk%+44)
v1      blk%!20=�("FNtransblock"+�~(filetype%))
�      blk%!24=size%
�      �reply(18,6)
�	    �
�	  � 2
�1    �save(dragid%,�string(blk%+44),prepared%)
�?    � saved% � �telltoload � �report("Could not save file")
�+  � 3 : �load(�string(blk%+44),blk%!40)
�+  � 5 : �load(�string(blk%+44),blk%!40)
�	  � 6
�    togo%=filesize%-otrans%
�'    � togo%>blk%!24 � togo%=blk%!24
�;    � togo%+otrans%>filesize% � togo%=filesize%-otrans%
�L    ș"Wimp_TransferBlock",mytask%,savebuff%+otrans%,task%,blk%!20,togo%
    blk%!24=togo%
    �reply(18,7)
    otrans%+=togo%
 <    � otrans%=filesize% � d%=�("FNsaved"+�~(misc%(id%)))
*	  � 7
4    itrans%+=blk%!24
>    � itrans%>=size%-16 �
H(      d%=�("FNloaded"+�~(filetype%))
R	    �
\      blk%!20+=blk%!24
f      blk%!24=size%-itrans%
p      �reply(18,6)
z	    �
�  � 8 : �prequit
�#  � 10: �addtobootfile(blk%!20)
�  � &400C1 : �newmode
��
��
�
�� �reply(type%,blk%!16)
�blk%!12=ref%
�)ș"Wimp_SendMessage",type%,blk%,task%
��
�
�� �newmode
�2!q%=11:q%!4=12:q%!8=4:q%!12=5:q%!16=3:q%!20=-1
!ș"OS_ReadVduVariables",q%,q%
scx%=(!q%+1)<<(q%!8)
scy%=(q%!4+1)<<(q%!12)
$$pixelw%=1<<q%!8:pixelh%=1<<q%!12
.cols%=q%!16
8ș"Wimp_ReadPalette",,pal%
B�
L
V� �prequit
`� changed% �
j  �reply(17,8)
t  �closewindow(w%(main%))
~�
��
�
�� �addtobootfile(handle%)
��#file,"Run "+dir$
��
�
�� �telltoload
��mouseinfo
�blk%!20=wind%
�blk%!24=icon%
�blk%!28=mx%
�blk%!32=my%
blk%!36=filesize%

blk%!40=filetype%
$(blk%+44)=filename$+�0
!blk%=(�$(blk%+44)+48)��3
(�reply(17,3)
2�
<
F.� �dropfile(filename$,filetype%,filesize%)
P�mouseinfo
Z
blk%!12=0
d
blk%!16=1
nblk%!20=wind%
xblk%!24=icon%
�blk%!28=mx%
�blk%!32=my%
�blk%!36=filesize%
�blk%!40=filetype%
�%$(blk%+44)=�lastbit(filename$)+�0
�!blk%=(�$(blk%+44)+48)��3
�0ș"Wimp_SendMessage",17,blk%,blk%!20,blk%!24
�
otrans%=0
��
�
�� - Sprite routines -
�
�� �loadsprites
spritefile$=dir$+".Sprites"
�fileinfo(spritefile$)
� exist%=1 �
"ssize%=filesize%+16
,� sprites% ssize%
6!sprites%=ssize%
@sprites%!4=0
Jsprites%!8=16
Tsprites%!12=16
^/ș"OS_SpriteOp",10+256,sprites%,spritefile$
h�
rsprites%=-1
|�
��
�/� �putsprite(sprite%,sprite$,x%,y%,z1%,z2%)
�5ș"OS_SpriteOp",24+256,sprite%,sprite$ � ,,saddr%
�:ș"OS_SpriteOp",40+256,sprite%,sprite$ � ,,,,,,spmode%
��tables
�	� 8,0
�?ș"OS_SpriteOp",52+256,sprite%,sprite$,x%,y%,8,scale%,gcol%
��
�
�
� �tables
�dmode%=�
�dpal%=�wpal(dmode%)
�(!scale%=(1<<�modevar(spmode%,4))*z1%
)scale%!4=(1<<�modevar(spmode%,5))*z1%
scale%!8=pixelw%*z2%
scale%!12=pixelh%*z2%
&A� saddr%!32<>44 � spal%=�spritepalette � spal%=�wpal(spmode%)
0@ș"ColourTrans_SelectTable",spmode%,spal%,dmode%,dpal%,gcol%
:�
D
N� �spritepalette
Xcols%=�modevar(spmode%,3)
b� cols%>15 � cols%=15
l� c%=0 � cols%
v&sppal%!(c%<<2)=saddr%!(44+(c%<<3))
�� c%
�=sppal%
�
�7� �copypalette(fsprite%,fsprite$,tsprite%,tsprite$)
�7ș"OS_SpriteOp",24+256,fsprite%,fsprite$ � ,,faddr%
�7ș"OS_SpriteOp",24+256,tsprite%,tsprite$ � ,,taddr%
�� a%=44 � faddr%!32-4 � 4
�  taddr%!a%=faddr%!a%
�� a%
��
�
�� - file handling -
�
� �fileinfo(file$)
-ș"OS_File",5,file$ � exist%,,,,filesize%
�
 
*� �filesize(file$)
4� exist%,filesize%
>�fileinfo(file$)
H=filesize%
R
\� �fileexist(file$)
f� exist%,filesize%
p�fileinfo(file$)
z=exist%
�
�� �loadtemplate(title$)
�Gș"Wimp_LoadTemplate",,blk%,ind%,indend%,fonttable%,title$ � ,,ind%
�%� sprites%<>-1 � blk%!64=sprites%
�'ș"Wimp_CreateWindow",,blk% � wind%
�
=wind%
�
�� �nameok(file$)
�
result%=�
�9� �file$,":")+�file$,".")=0 � file$<>"<Wimp$Scrap>" �
�8�report("To save, drag icon to a directory viewer.")
�
result%=�
��
=result%

� - menus -
$
."� �tickmenu(menu%,item%,tick%)
8p%=menu%+28+item%*24
B&� tick% � !p%=!p% �1 � !p%=!p% ��1
L�
V
`#� �menutitle(title$,� menuptr%)
joldptr%=menuptr%
t$menuptr%=title$
~max%=�title$
�menuptr%!12=&70207
�menuptr%!20=44
�menuptr%!24=0
�menuptr%+=4
��
�
�#� �menuitem(� text$,� menuptr%)
�menuptr%+=24
�!menuptr%=0
�menuptr%!4=0
�word$=�nextword(text$)
�token$=�token(word$)

i1%=-1

ȕ token$<>""
Ȏ token$ �
*� ">" : menuptr%!4=�(�nextword(text$))
(#� "/" : !menuptr%=!menuptr% � 1
2#� "-" : !menuptr%=!menuptr% � 2
<	� "!"
F  !menuptr%=!menuptr% � 4
P  valid$=�nextword(text$)
Z  � �valid$ �
d  � i1% �valid$+1
n  $i1%=valid$
x  �
��
�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� �endmenu(� menuptr%)
@!menuptr%=!menuptr% � &80
Jmenuptr%+=24
Toldptr%!16=max%*16+12
^�
h
r� �menu(text$)
|stext$=text$
�items%=0
�text$+=","
�title$=�nextword(text$)
��menutitle(title$,menuptr%)
�ȕ text$<>""
�
items%+=1
��menuitem(text$,menuptr%)
��
��endmenu(menuptr%)
�=oldptr%
�
�� �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
 0�
 :
 D� �token(� word$)
 N
token$=""
 X� �">/!#-",�word$)) �
 btoken$=�word$,1)
 lword$=�word$,�word$-1)
 v�
 �=token$
 �
 �� �nextword(� text$)
 �� word$,pos%
 �pos%=�text$,",")
 �word$=�text$,pos%-1)
 �text$=�text$,pos%+1)
 �
=word$
 �
 �� �closemenu
 �ș"Wimp_CreateMenu",,-1
 ��
 �
!� - icons -
!
!!� �shadeicon(!q%,q%!4,shade%)
! "� shade% � q%!8=1<<22 � q%!8=0
!*q%!12=1<<22
!4ș"Wimp_SetIconState",,q%
!>�
!H
!R� �icontext(!q%,q%!4)
!\ș"Wimp_GetIconState",,q%
!f4� q%!24�(1<<8) � text$=$(q%!28) � text$=$(q%+28)
!p
=text$
!z
!�� �iconval(!q%,q%!4)
!�=�(�icontext(!q%,q%!4))
!�
!�� �redoicon(!q%,q%!4)
!�ș"Wimp_GetIconState",,q%
!�3ș"Wimp_ForceRedraw",!q%,q%!8,q%!12,q%!16,q%!20
!��
!�
!�� �deleteicon(!q%,q%!4)
!�ș"Wimp_DeleteIcon",,q%
!��
!�
!�� �iconinfo(wind%,icon%)
"!blk%=wind%
"blk%!4=icon%
"ș"Wimp_GetIconState",,blk%
"$�
".
"8� �selected(!q%,q%!4)
"Bș"Wimp_GetIconState",,q%
"L=(((q%!24)�(1<<21))>0)
"V
"`7� �cricon(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,$(q%+24))
"j#ș"Wimp_CreateIcon",,q% � icon%
"t
=icon%
"~
"�� �buttype(!q%,q%!4)
"�3� 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%
#(�
#2
#< � �seticonval(!q%,q%!4,val%)
#F"�seticontext(!q%,q%!4,�(val%))
#P�
#Z
#d"� �seticontext(!q%,q%!4,text$)
#nș"Wimp_GetIconState",,q%
#xtext$=�text$,q%!36-1)
#�� $(q%!28)<>text$ �
#�$(q%!28)=text$
#�
q%!8=0
#�q%!12=0
#�ș"Wimp_SetIconState",,q%
#��
#��
#�
#�� �icontp(!q%,q%!4)
#�ș"Wimp_GetIconState",,q%
#�
=q%!28
#�
#�� �startdrag(id%,icon%)
$dragid%=id%
$dragicon%=icon%
$wind%=w%(dragid%)
$"�windowinfo(wind%)
$,!blk%=wind%
$6blk%!4=icon%
$@ș"Wimp_GetIconState",,blk%
$J!blk%=0
$Tblk%!4=5
$^blk%!8+=wx%
$hblk%!12+=wy%
$rblk%!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%
$��
$��
$�
$�� - user interogation -
$�
%� �check(message$)
%ș"Wimp_DragBox",,0
%	!q%=0
%&$(q%+4)=message$
%0Bș"Wimp_ReportError",q%,19,"Message from "+program$ � ,answer%
%:� answer%=1 � =� � =�
%D
%N� �report(message$)
%X%d%=�question(message$,"OK","","")
%b�
%l
%v0� �question(ans$(0),ans$(1),ans$(2),ans$(3))
%�
� status%
%�
status%=2
%��closemenu
%�� i%=0 � 3
%�  � ans$(i%)="" �
%�#    �removeicon(w%(report%),i%)
%�  �
%�#    �reiniticon(w%(report%),i%)
%�-    �seticontext(w%(report%),i%,ans$(i%))
%�  �
%�� i%
%��losecaret
%��openincentre(w%(report%))
&� beep% � � 7
&
answer%=0
&�
& $  ș"Wimp_Poll",1,blk% � reason%
&*  Ȏ reason% �
&4    � 1:�redraw
&>@    � 6:� blk%!12=w%(report%) � blk%!16>-1 � answer%=blk%!16
&H/    � 17,18:�message(blk%!4,blk%!8,blk%!16)
&R  �
&\
� answer%
&f�closewindow(w%(report%))
&p=answer%
&z
&�� - misc -
&�
&�� �quit
&��closedown
&��
&�
&�� �closedown
&��resetslot
&�� i%=1 � 255
&�ȕ fonttable%?i%
&�ș"Font_LoseFont",i%
&�fonttable%?i%-=1
&��
'� i%
'ș"Wimp_CloseDown",mytask%
'�
'$�
'.
'8� �modevar(mode%,var%)
'B/ș"OS_ReadModeVariable",mode%,var% � ,,val%
'L	=val%
'V
'`� �setfontcolours
'jȎ cols% �
't*  � 1 : ș"Font_SetFontColours",,0,1,0
'~*  � 3 : ș"Font_SetFontColours",,0,1,2
'�+  � 15 : ș"Font_SetFontColours",,0,1,6
'�:  � 15 : ș"Font_SetFontColours",,0,1,14,!pal%,pal%!28
'��
'��
'�
'�� �string(b%)
'�� s$
'�	s$=""
'�
ȕ ?b%>31
'�s$+=�(?b%)
'�	b%+=1
'��
(=s$
(

(� - windows -
(
((1� �setwindowextent(wind%,!q%,q%!4,q%!8,q%!12)
(2ș"Wimp_SetExtent",wind%,q%
(<�
(F
(P� �openincentre(!blk%)
(Z!ș"Wimp_GetWindowState",,blk%
(dm1%=blk%!12-blk%!4
(nm2%=blk%!16-blk%!8
(xblk%!4=(scx%-m1%)>>1
(�blk%!8=(scy%-m2%)>>1
(�blk%!12=(scx%+m1%)>>1
(�blk%!16=(scy%+m2%)>>1
(�blk%!28=-1
(��openwindow
(��
(�
(�� �newtitle(!blk%,title$)
(� ș"Wimp_GetWindowInfo",,blk%
(�� $(blk%!76)<>title$ �
(�$(blk%!76)=title$
(�� active%(�id(!blk%)) �
(�%  ș"Wimp_GetWindowOutline",,blk%
)?  ș"Wimp_ForceRedraw",-1,blk%!4,blk%!16-44,blk%!12,blk%!16
)�
)�
)"�
),
)6� �forceredraw(!blk%)
)@ ș"Wimp_GetWindowInfo",,blk%
)J>ș"Wimp_ForceRedraw",!blk%,blk%!44,blk%!48,blk%!52,blk%!56
)T�
)^
)h� �updatewindow(!blk%)
)r ș"Wimp_GetWindowInfo",,blk%
)|blk%!4=blk%!44
)�blk%!8=blk%!48
)�blk%!12=blk%!52
)�blk%!16=blk%!56
)�'ș"Wimp_UpdateWindow",,blk% � more%
)��
)�
)�� �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
)��
*
*� �closewindow(wind%)
*� cid%,close%
*&cid%=�id(wind%)
*0B� sysflags%(cid%)�2 � close%=�("FNclose"+id$(cid%)) � close%=�
*:� close% �
*D  active%(cid%)=�
*N!  �quickclosewindow(w%(cid%))
*X�
*b�
*l
*v� �quickclosewindow(!q%)
*�ș"Wimp_CloseWindow",,q%
*��
*�
*�� �reopen(!blk%)
*�!ș"Wimp_GetWindowState",,blk%
*��openwindow
*��forceredraw(!blk%)
*��
*�
*�� �windowinfo(wind%)
*�!blk%=wind%
*� ș"Wimp_GetWindowInfo",,blk%
*�wx%=blk%!4-blk%!20
+wy%=blk%!16-blk%!24
+ww%=blk%!12-blk%!4
+wh%=blk%!16-blk%!8
+ �
+*
+4#� �savebox(filetype%,standard$)
+>$wind%=�window("save","save",0,0)
+H<�seticontext(w%(wind%),3,"file_"+�"00"+�~(filetype%),3))
+R'�seticontext(w%(wind%),1,standard$)
+\misc%(wind%)=filetype%
+f
=wind%
+p
+z� �lastbit(file$)
+�ȕ �file$,".")
+�file$=�file$,�file$,".")+1)
+��
+�
=file$
+�
+�� �mouseinfo
+�ș"Wimp_GetPointerInfo",,q%
+�mx%=!q%
+�my%=q%!4
+�
but%=q%!8
+�wind%=q%!12
+�icon%=q%!16
+��
,
,#� �setfiletype(file$,filetype%)
,#ș"OS_File",&12,file$,filetype%
,$�
,.
,8$� �shademenu(menu%,item%,shade%)
,Bp%=menu%+36+item%*24
,L!p%=!p% ��(1<<22)
,V� shade% � !p%=!p% �(1<<22)
,`�
,j
,t� �getcaret
,~!ș"Wimp_GetCaretPosition",,q%
,�cwind%=!q%
,�cicon%=q%!4
,�cxoff%=q%!8
,�cyoff%=q%!12
,�cheight%=q%!16
,�cindex%=q%!20
,��
,�
,�#� �putcaret(wind%,icon%,index%)
,� len%=��icontext(wind%,icon%)
,�� index%>len% � index%=len%
,�5ș"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
-�
-

-� �resetcaret(wind%,icon%)
-!ș"Wimp_GetCaretPosition",,q%
-( � (!q%=wind% � q%!4=icon%) �
-2  index%=q%!20
-<"  len%=��icontext(wind%,icon%)
-F!  � index%>len% � index%=len%
-P7  ș"Wimp_SetCaretPosition",wind%,icon%,,,-1,index%
-Z�
-dI� wind%=0 � ș"Wimp_SetCaretPosition",!q%,q%!4,q%!8,q%!12,q%!16,q%!20
-n�
-x
-�� �losecaret
-�-� mycaret% � ș"Wimp_SetCaretPosition",-1
-��
-�
-�� �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
.6�windowinfo(!q%)
.@menux%+=wx%
.Jmenuy%+=wy%
.T0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
.^�
.h
.r"� �infowindow(i1$,i2$,i3$,i4$)
.| wind%=�window("info","",0,0)
.�!�seticontext(w%(wind%),1,i1$)
.�!�seticontext(w%(wind%),2,i2$)
.�!�seticontext(w%(wind%),3,i3$)
.�!�seticontext(w%(wind%),4,i4$)
.�
=wind%
.�
.�/� �wimpinit(name$,sprite$,work$,no%,isize%)
.�changed%=�
.�ș"OS_GetEnv" � autoload$
.�=autoload$=�autoload$,�autoload$,�34,�autoload$,�34)+1)+2)
.�
status%=0
.�mycaret%=�
.�windows%=no%+3
/program$=name$
/+� blk% 2000,q% 256,ind% isize%,pal% 256
/indend%=ind%+isize%
/&$blk%="TASK"
/05ș"Wimp_Initialise",200,!blk%,program$ � ,mytask%
/:0iconbar%=�cricon(-1,0,0,68,68,&2002,sprite$)
/D$q%=work$+"$Dir"
/N.ș"OS_ReadVarVal",q%,blk%,256,0,3 � ,,len%
/Xblk%?len%=13
/bdir$=$blk%
/l=ș"XOS_SWINumberFromString",,"DragASprite_Start" � ;drag%
/vdrag%=(drag% � 1)=0
/�ș"OS_Byte",161,28 � ,,bit%
/�� (bit% � 2)=0 � drag%=�
/�&ș"Wimp_SlotSize",-1,-1 � appsize%
/��loadsprites
/�
tft%=&FFF
/�
dft%=&AFF
/�
sft%=&FF9
/�
exit=�
/�=� gcol% 256,pal% 80,pal2% 80,pal4% 80,sppal% 80,scale% 16
/�� i%=0 � 1
/�&  pal2%!(4*(1-i%))=(&F0F0F0*i%)<<8
/�� i%
/�� i%=0 � 3
0&  pal4%!(4*(3-i%))=(&505050*i%)<<8
0� i%
0�newmode
0 %� menubuffer% 2000,fonttable% 256
0*twind%=0
04{� w%(windows%),menu%(windows%),id$(windows%),misc%(windows%),active%(windows%),default%(5,windows%),sysflags%(windows%)
0>menuptr%=menubuffer%
0H� i%=1 � 255
0Rfonttable%?i%=0
0\� i%
0fw%(0)=-2:id$(0)="iconbar"
0p,ș"Wimp_OpenTemplate",,dir$+".Templates"
0z�initwindows
0�*report%=�window("report","report",0,0)
0�ș"Wimp_CloseTemplate"
0�
� ans$(3)
0�beep%=�
0��
0�
0�!� ==== memory management ====
0�
0�� �space(size%)
0�7ș"XWimp_SlotSize",appsize%+size%,-1 � new%;noroom%
0�room%=((noroom%�1)=0)
0�#� new%<appsize%+size% � room%=�
0�#� room% � appinc%=new%-appsize%
1
=room%
1
1� �initheap
1$heap%=�
1.heapsize%=8*1024
18� �space(heapsize%) �
1B$  ș"OS_Heap",0,heap%,,heapsize%
1L�
1V  �error("Out of room.")
1`�
1j�
1t
1~� �largestblock
1�$ș"OS_Heap",1,heap% � ,,largest%
1�
=largest%
1�
1�� �getblock(size%)
1�	� ok%
1�	ok%=�
1� ȕ ok% � �largestblock<size%
1�  ok%=�extendheap(8*1024)
1��
1�� ok% �
1�+  ș"OS_Heap",2,heap%,,size% � ,,block%
1��
2  block%=-1
2
�
2=block%
2
2(� �loseblock(� block%)
22,� block%>-1 � ș"OS_Heap",3,heap%,block%
2<
block%=-1
2F�shrinkheap
2P�
2Z
2d� �shrinkheap
2n� ok%,size%
2x	ok%=�
2�size%=-1024
2�
ȕ ok%
2�(  ș"XOS_Heap",5,heap%,,size% � ;ok%
2�  ok%=((ok%�1)=0)
2�
  � ok% �
2�    heapsize%=heap%!12
2�    ok%=�space(heapsize%)
2�  �
2��
2��
2�
2�� �extendheap(size%)
2�	� ok%
3ok%=�space(heapsize%+size%)
3� ok% �
3   ș"OS_Heap",5,heap%,,size%
3"  heapsize%=heap%!12
3,�
36=ok%
3@
3J� �resetslot
3T!ș"Wimp_SlotSize",appsize%,-1
3^
appinc%=0
3h�
3r
3|&� ==== filing system routines ====
3�
3�� �standardfilename(wind%)
3�=�icontext(wind%,1)
3�
3� � �save(id%,file$,prepared%)
3�filename$=file$
3�saved%=�
3�� �nameok(filename$) �
3�;� prepared%=� � prepared%=�("FNprepare"+�~(misc%(id%)))
3�Ȏ prepared% �
3�
  � -1
3�J    ș"OS_File",10,filename$,misc%(id%),,savebuff%,savebuff%+filesize%
3�&    d%=�("FNsaved"+�~(misc%(id%)))
4
  � -2
4%    d%=�("FNsave"+�~(misc%(id%)))
4�
4&�closemenu
40%�seticontext(w%(id%),2,filename$)
4:saved%=�
4D�
4N�
4X�
4b
4l� ==== menu routines ====
4v
4� � �openwindowasmenu(window%)
4��windowinfo(window%)
4��mouseinfo
4�menux%=mx%-ww%/2
4�menuy%=my%+wh%/2
4�openmenu%=window%
4�id%=�id(window%)
4��reopenmenu
4��
4�
4�� �iconbarmenu(text$)
4�menu%(0)=�menu(text$)
4�barheight%=items%*44+96
5�
5
5� �menuselect
5 d%=�("FNmenu"+id$(menuid%))
5*�mouseinfo
54� but%=1 � �reopenmenu
5>�
5H
5R� �reopenmenu
5\3� sysflags%(id%)�4 � d%=�("FNpremenu"+id$(id%))
5f0ș"Wimp_CreateMenu",,openmenu%,menux%,menuy%
5p�
5z
5�� �openmenu(id%)
5�� menu%(id%) �
5�menuid%=id%
5�openmenu%=menu%(id%)
5�,� id%=0 � menuy%=barheight% � menuy%=my%
5�"menux%=mx%-(openmenu%!16)/2-16
5��reopenmenu
5��
5��
5�
5�� ==== window routines ====
5�
5�'� �window(wind$,name$,menu%,flags%)
6
twind%+=1
6#w%(twind%)=�loadtemplate(wind$)
6�windowinfo(w%(twind%))
6$� d%=0 � 5
6.)default%(d%,twind%)=!(blk%+(d%<<2)+4)
68� d%
6Bid$(twind%)=name$
6Lmenu%(twind%)=menu%
6Vsysflags%(twind%)=flags%
6`=twind%
6j
6t
� �redraw
6~id%=�id(!blk%)
6��windowinfo(!blk%)
6�'ș"Wimp_RedrawWindow",,blk% � more%
6�ȕ more%
6�x0%=blk%!28-wx%
6�y0%=blk%!32-wy%
6�x1%=blk%!36-wx%
6�y1%=blk%!40-wy%
6�d%=�("FNredraw"+id$(id%))
6�'ș"Wimp_GetRectangle",,blk% � more%
6��
6��
6�
7� �id(find%)
7
found%=windows%
7� i%=0 � windows%
7� w%(i%)=find% � found%=i%
7(� i%
72=found%
7<
7F� �openup(wind%)
7P!blk%=wind%
7Zid%=�id(wind%)
7d� �active%(id%) �
7n� d%=0 � 5
7x&!(blk%+(d%<<2)+4)=default%(d%,id%)
7�� d%
7��
7�!ș"Wimp_GetWindowState",,blk%
7��
7�blk%!28=-1
7��openwindow
7��
7�
7�� �openwindow
7�id%=�id(!blk%)
7�ș"Wimp_OpenWindow",,blk%
7�active%(id%)=�
7�0� sysflags%(id%)�1 � d%=�("FNopen"+id$(id%))
8�
8
8� �frontopenwindow(!blk%)
8"!ș"Wimp_GetWindowState",,blk%
8,blk%!28=-1
86�openwindow
8@�
8J
8T%� �redobox(wind%,x0%,y0%,x1%,y1%)
8^� x1%<x0% � Ȕ x0%,x1%
8h� y1%<y0% � Ȕ y0%,y1%
8r.ș"Wimp_ForceRedraw",wind%,x0%,y0%,x1%,y1%
8|�
8�
8�� �deletewindow(� !q%)
8�ș"Wimp_DeleteWindow",,q%
8�	!q%=0
8��
8�
8�� ==== icon routines ====
8�
8�&� �click(mx%,my%,but%,wind%,icon%)
8�7� �buttype(wind%,icon%)=9 � �flashicon(wind%,icon%)
8�id%=�id(wind%)
8�
Ȏ but% �
8�� 64
9"  Ȏ �buttype(w%(id%),icon%) �
9-    � 6,7,8,10,14 : �startdrag(id%,icon%)
9  �
9&� 2 : �openmenu(id%)
90
9:d%=�("FNclick"+id$(id%))
9D�
9N�
9X
9b� �enddrag
9l�mouseinfo
9v"� drag% � ș"DragASprite_Stop"
9�d%=�("FNdrop"+id$(dragid%))
9��
9�
9�L� �startdragbox(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28,q%!32,q%!36)
9�ș"Wimp_DragBox",,q%
9��
9�
9�"� �key(wind%,icon%,xpos%,key%)
9�$taken=�("FNkey"+id$(�id(wind%)))
9�(� taken=� � ș"Wimp_ProcessKey",key%
9��
9�
9�(� �incicon(iicon%,dec%,inc%,lb%,ub%)
:
change%=�
:� icon%=dec% � icon%=inc% �
:!val%=��icontext(wind%,iicon%)
: val%+=(icon%=dec%)*2+1
:*1� val%>ub% � val%=ub% � � val%<lb% � val%=lb%
:4&�seticontext(wind%,iicon%,�(val%))
:>�resetcaret(wind%,iicon%)
:H
change%=�
:R�
:\�
:f=change%
:p
:z� �removeicon(!q%,q%!4)
:�q%!8=(1<<24)
:�)q%!12=(1<<2)�(1<<5)�(15<<24)�(15<<12)
:�ș"Wimp_SetIconState",,q%
:��
:�
:�� �reiniticon(!q%,q%!4)
:�&q%!8=(1<<2)�(1<<5)�(7<<24)�(3<<12)
:�)q%!12=(1<<2)�(1<<5)�(15<<12)�(15<<24)
:�ș"Wimp_SetIconState",,q%
:��
:�
:�� �iconkeys(data%)
:�taken=�
;icons%=0
;ȕ data%?icons%<255
;  icons%+=1
;$�
;.
icons%-=1
;8
found%=-1
;B� p%=0 � icons%
;L"  � data%?p%=icon% � found%=p%
;V� p%
;`newicon%=-1
;j� found%>=0 �
;t  Ȏ key% �
;~     � 13 : newicon%=found%+1
;�4    � &18E : � found%<icons% � newicon%=found%+1
;�/    � &18F : � found%>0 � newicon%=found%-1
;�*    � &19E,&1AE,&1BE : newicon%=icons%
;�%    � &19F,&1AF,&1BF : newicon%=0
;�  
;�    taken=�
;�  �
;��
;�,� newicon%>icons% � taken=-2:newicon%=-1
;�� newicon%>=0 �
;�  �getcaret
;�-  �putcaret(wind%,data%?newicon%,cindex%)
<�
<

=taken
<
<� ==== and the rest ====
<(
<2� �click=0
<<
<F� �redraw=0
<P
<Z� �key=0
<d
<n
� �drop=0
<x
<�� �temp(st$)
<�� a%=1 � �st$
<�  �st$,a%,1)
<�� a%
<��
<�
<�� �error(error$)
<�ș"Hourglass_Smash"
<�Ȏ status% �
<�	  � 1
<�    � print � �#print
<�.    report$="Print error, print cancelled"
<�
=S  report$="An uncontrolable error has occured ("+error$+�(�)+"), shall I exit?"
=�
=exit=�check(report$)
="
status%=0
=,�
=6
=@� �wpal(mode%)
=JȎ �modevar(mode%,3) �
=T  � 63:p%=0
=^  � 15:p%=pal%
=h  � 3:p%=pal4%
=r  � 1:p%=pal2%
=|�
=�=p%
=�
=�� �dropsave
=�filetype%=misc%(dragid%)
=�*prepared%=�("FNprepare"+�~(filetype%))
=�I� prepared% � �dropfile(�icontext(w%(dragid%),2),filetype%,filesize%)
=�=0
=�
=�� �clicksave
=�/� icon%=0 � �save(id%,�icontext(wind%,2),�)
=�=0
=�
=�� �keysave
>2� key%=13 � �save(id%,�icontext(wind%,2),�):=�
>=0
>
>&"� �spritename(sprite%,number%)
>0;ș"OS_SpriteOp",13+256,sprite%,q%,256,number% � ,,,len%
>:q%?len%=13
>D=$q%
>N
>X� �load(file$,filetype%)
>bok%=�fileokay(filetype%)
>l!� ok% � ok%=�fileexist(file$)
>v� ok% �
>�  �reply(18,4)
>�,  d%=�("FNload"+�~(filetype%)+"(file$)")
>�$  d%=�("FNloaded"+�~(filetype%))
>��
>�  � message%<>5 �
>�    �reply(18,4)
>�)    �report("Cannot load this file.")
>�  �
>��
>��
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 53 71 75 69 73 68 24  |..... > <Squish$|
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 12 ee  |...initiate.....|
00000030  20 85 20 f2 65 72 72 6f  72 28 f6 24 29 0d 00 28  | . .error(.$)..(|
00000040  04 0d 00 32 0c c8 95 20  ac 65 78 69 74 0d 00 3c  |...2... .exit..<|
00000050  16 f2 70 6f 6c 6c 28 31  2b 64 72 61 67 67 69 6e  |..poll(1+draggin|
00000060  67 25 29 0d 00 46 05 ce  0d 00 50 0e f2 63 6c 6f  |g%)..F....P..clo|
00000070  73 65 64 6f 77 6e 0d 00  5a 04 0d 00 64 0f dd 20  |sedown..Z...d.. |
00000080  f2 69 6e 69 74 69 61 74  65 0d 00 6e 31 f2 77 69  |.initiate..n1.wi|
00000090  6d 70 69 6e 69 74 28 22  53 71 75 69 73 68 22 2c  |mpinit("Squish",|
000000a0  22 21 73 71 75 69 73 68  22 2c 22 53 71 75 69 73  |"!squish","Squis|
000000b0  68 22 2c 33 2c 32 30 30  30 29 0d 00 78 0f 64 72  |h",3,2000)..x.dr|
000000c0  61 67 67 69 6e 67 25 3d  a3 0d 00 82 0b 78 3d 30  |agging%=.....x=0|
000000d0  3a 79 3d 31 0d 00 8c 0b  74 61 67 73 25 3d 37 0d  |:y=1....tags%=7.|
000000e0  00 96 4c de 20 74 61 67  28 74 61 67 73 25 2c 31  |..L. tag(tags%,1|
000000f0  29 2c 72 65 64 6f 74 61  67 25 28 74 61 67 73 25  |),redotag%(tags%|
00000100  29 2c 74 61 67 6f 6e 25  28 74 61 67 73 25 29 2c  |),tagon%(tags%),|
00000110  6d 69 6e 28 31 29 2c 6d  61 78 28 31 29 2c 73 25  |min(1),max(1),s%|
00000120  28 31 29 2c 6c 65 6e 25  28 33 29 0d 00 a0 19 74  |(1),len%(3)....t|
00000130  61 67 73 69 7a 65 25 3d  31 32 3a 6f 70 74 69 6f  |agsize%=12:optio|
00000140  6e 25 3d 30 0d 00 aa 1b  6f 73 70 72 69 74 65 25  |n%=0....osprite%|
00000150  3d 2d 31 3a 69 73 70 72  69 74 65 25 3d 2d 31 0d  |=-1:isprite%=-1.|
00000160  00 b4 1c 7a 6f 6f 6d 31  25 3d 31 3a 7a 6f 6f 6d  |...zoom1%=1:zoom|
00000170  32 25 3d 31 3a 7a 6f 6f  6d 3d 31 0d 00 be 19 de  |2%=1:zoom=1.....|
00000180  20 71 75 61 64 25 20 33  32 2c 6d 61 67 6b 65 79  | quad% 32,magkey|
00000190  73 25 20 33 0d 00 c8 2a  3f 6d 61 67 6b 65 79 73  |s% 3...*?magkeys|
000001a0  25 3d 30 3a 6d 61 67 6b  65 79 73 25 3f 31 3d 33  |%=0:magkeys%?1=3|
000001b0  3a 6d 61 67 6b 65 79 73  25 3f 32 3d 2d 31 0d 00  |:magkeys%?2=-1..|
000001c0  d2 0f 74 61 67 6f 6e 25  28 29 3d 2d 31 0d 00 dc  |..tagon%()=-1...|
000001d0  0d 6c 69 6e 65 61 72 25  3d b9 0d 00 e6 07 f2 6d  |.linear%=......m|
000001e0  63 0d 00 f0 0d f2 69 6e  69 74 68 65 61 70 0d 00  |c.....initheap..|
000001f0  fa 05 e1 0d 01 04 04 0d  01 0e 12 dd 20 f2 69 6e  |............ .in|
00000200  69 74 77 69 6e 64 6f 77  73 0d 01 18 16 de 20 73  |itwindows..... s|
00000210  70 72 69 74 65 6d 65 6e  75 25 20 34 30 30 30 0d  |pritemenu% 4000.|
00000220  01 22 57 69 6e 66 6f 25  3d a4 69 6e 66 6f 77 69  |."Winfo%=.infowi|
00000230  6e 64 6f 77 28 22 53 71  75 69 73 68 22 2c 22 53  |ndow("Squish","S|
00000240  70 72 69 74 65 20 53 74  72 65 74 63 68 65 72 22  |prite Stretcher"|
00000250  2c 22 42 61 72 72 79 20  57 69 63 6b 65 74 74 22  |,"Barry Wickett"|
00000260  2c 22 31 2e 33 33 20 28  31 38 2d 4a 61 6e 2d 31  |,"1.33 (18-Jan-1|
00000270  39 39 34 29 22 29 0d 01  2c 2f f2 69 63 6f 6e 62  |994)")..,/.iconb|
00000280  61 72 6d 65 6e 75 28 22  53 71 75 69 73 68 2c 49  |armenu("Squish,I|
00000290  6e 66 6f 3e 2c 77 25 28  69 6e 66 6f 25 29 2c 51  |nfo>,w%(info%),Q|
000002a0  75 69 74 22 29 0d 01 36  25 73 61 76 65 25 3d a4  |uit")..6%save%=.|
000002b0  73 61 76 65 62 6f 78 28  73 66 74 25 2c 22 53 70  |savebox(sft%,"Sp|
000002c0  72 69 74 65 46 69 6c 65  22 29 0d 01 40 43 6f 70  |riteFile")..@Cop|
000002d0  74 69 6f 6e 73 25 3d a4  6d 65 6e 75 28 22 55 70  |tions%=.menu("Up|
000002e0  64 61 74 65 2c 57 68 65  6e 20 74 6f 6c 64 2f 2c  |date,When told/,|
000002f0  45 6e 64 20 6f 66 20 64  72 61 67 2c 57 68 69 6c  |End of drag,Whil|
00000300  73 74 20 64 72 61 67 67  69 6e 67 22 29 0d 01 4a  |st dragging")..J|
00000310  33 6d 61 67 6e 69 66 69  65 72 25 3d a4 77 69 6e  |3magnifier%=.win|
00000320  64 6f 77 28 22 6d 61 67  6e 69 66 69 65 72 22 2c  |dow("magnifier",|
00000330  22 6d 61 67 6e 69 66 69  65 72 22 2c 30 2c 30 29  |"magnifier",0,0)|
00000340  0d 01 54 0e de 20 61 6e  67 6c 65 25 20 34 0d 01  |..T.. angle% 4..|
00000350  5e 10 24 61 6e 67 6c 65  25 3d 22 39 30 22 0d 01  |^.$angle%="90"..|
00000360  68 29 72 6f 74 61 74 65  25 3d a4 6d 65 6e 75 28  |h)rotate%=.menu(|
00000370  22 41 6e 67 6c 65 2c 34  21 2c 61 30 2d 39 2c 61  |"Angle,4!,a0-9,a|
00000380  6e 67 6c 65 25 22 29 0d  01 72 aa 6d 61 69 6e 25  |ngle%")..r.main%|
00000390  3d a4 77 69 6e 64 6f 77  28 22 73 74 61 6e 64 61  |=.window("standa|
000003a0  72 64 22 2c 22 6d 61 69  6e 22 2c a4 6d 65 6e 75  |rd","main",.menu|
000003b0  28 22 53 71 75 69 73 68  2c 53 61 76 65 3e 2c 77  |("Squish,Save>,w|
000003c0  25 28 73 61 76 65 25 29  2c 53 65 6c 65 63 74 20  |%(save%),Select |
000003d0  53 70 72 69 74 65 3e 2c  73 70 72 69 74 65 6d 65  |Sprite>,spriteme|
000003e0  6e 75 25 2c 4c 69 6e 65  61 72 2f 2c 55 70 64 61  |nu%,Linear/,Upda|
000003f0  74 65 3e 2d 2c 6f 70 74  69 6f 6e 73 25 2c 52 6f  |te>-,options%,Ro|
00000400  74 61 74 65 3e 2c 72 6f  74 61 74 65 25 2c 5a 6f  |tate>,rotate%,Zo|
00000410  6f 6d 3e 2d 2c 77 25 28  6d 61 67 6e 69 66 69 65  |om>-,w%(magnifie|
00000420  72 25 29 2c 44 6f 20 69  74 22 29 2c 25 31 31 30  |r%),Do it"),%110|
00000430  29 0d 01 7c 05 e1 0d 01  86 04 0d 01 90 0f dd 20  |)..|........... |
00000440  a4 64 72 6f 70 6d 61 69  6e 0d 01 9a 0f 64 72 61  |.dropmain....dra|
00000450  67 67 69 6e 67 25 3d a3  0d 01 a4 17 e7 20 6f 70  |gging%=...... op|
00000460  74 69 6f 6e 25 3d 31 20  8c 20 f2 64 6f 69 74 0d  |tion%=1 . .doit.|
00000470  01 ae 06 3d 30 0d 01 b8  04 0d 01 c2 0b dd 20 f2  |...=0......... .|
00000480  6e 75 6c 6c 0d 01 cc 0e  f2 6d 6f 75 73 65 69 6e  |null.....mousein|
00000490  66 6f 0d 01 d6 11 e7 20  64 72 61 67 67 69 6e 67  |fo..... dragging|
000004a0  25 20 8c 0d 01 e0 1c 20  20 6e 78 3d 28 6d 78 25  |% .....  nx=(mx%|
000004b0  2d 77 78 25 2b 6d 69 78  25 29 2f 7a 6f 6f 6d 0d  |-wx%+mix%)/zoom.|
000004c0  01 ea 1c 20 20 6e 79 3d  28 6d 79 25 2d 77 79 25  |...  ny=(my%-wy%|
000004d0  2b 6d 69 79 25 29 2f 7a  6f 6f 6d 0d 01 f4 33 20  |+miy%)/zoom...3 |
000004e0  20 e7 20 6e 78 3c 3e 74  61 67 28 64 72 61 67 74  | . nx<>tag(dragt|
000004f0  61 67 25 2c 78 29 20 84  20 6e 79 3c 3e 74 61 67  |ag%,x) . ny<>tag|
00000500  28 64 72 61 67 74 61 67  25 2c 79 29 20 8c 0d 01  |(dragtag%,y) ...|
00000510  fe 15 20 20 20 20 e7 20  6f 70 74 69 6f 6e 25 3c  |..    . option%<|
00000520  32 20 8c 0d 02 08 17 20  20 20 20 20 20 e3 20 74  |2 .....      . t|
00000530  69 6d 65 25 3d 31 20 b8  20 32 0d 02 12 24 20 20  |ime%=1 . 2...$  |
00000540  20 20 20 20 20 20 f2 75  70 64 61 74 65 77 69 6e  |      .updatewin|
00000550  64 6f 77 28 77 25 28 6d  61 69 6e 25 29 29 0d 02  |dow(w%(main%))..|
00000560  1c 14 20 20 20 20 20 20  20 20 c8 95 20 6d 6f 72  |..        .. mor|
00000570  65 25 0d 02 26 22 20 20  20 20 20 20 20 20 20 20  |e%..&"          |
00000580  72 65 64 6f 74 61 67 25  28 64 72 61 67 74 61 67  |redotag%(dragtag|
00000590  25 29 3d b9 0d 02 30 1d  20 20 20 20 20 20 20 20  |%)=...0.        |
000005a0  20 20 e7 20 64 72 61 67  74 61 67 25 3e 3d 34 20  |  . dragtag%>=4 |
000005b0  8c 0d 02 3a 26 20 20 20  20 20 20 20 20 20 20 20  |...:&           |
000005c0  20 72 65 64 6f 74 61 67  25 28 64 72 61 67 74 61  | redotag%(dragta|
000005d0  67 25 2d 34 29 3d b9 0d  02 44 2e 20 20 20 20 20  |g%-4)=...D.     |
000005e0  20 20 20 20 20 20 20 72  65 64 6f 74 61 67 25 28  |       redotag%(|
000005f0  a4 74 61 67 28 64 72 61  67 74 61 67 25 2d 34 2c  |.tag(dragtag%-4,|
00000600  31 29 29 3d b9 0d 02 4e  2c 20 20 20 20 20 20 20  |1))=...N,       |
00000610  20 20 20 20 20 72 65 64  6f 74 61 67 25 28 a4 74  |     redotag%(.t|
00000620  61 67 28 64 72 61 67 74  61 67 25 2c 31 29 29 3d  |ag(dragtag%,1))=|
00000630  b9 0d 02 58 2d 20 20 20  20 20 20 20 20 20 20 20  |...X-           |
00000640  20 72 65 64 6f 74 61 67  25 28 a4 74 61 67 28 64  | redotag%(.tag(d|
00000650  72 61 67 74 61 67 25 2c  2d 31 29 29 3d b9 0d 02  |ragtag%,-1))=...|
00000660  62 0f 20 20 20 20 20 20  20 20 20 20 cc 0d 02 6c  |b.          ...l|
00000670  26 20 20 20 20 20 20 20  20 20 20 20 20 72 65 64  |&            red|
00000680  6f 74 61 67 25 28 64 72  61 67 74 61 67 25 2b 34  |otag%(dragtag%+4|
00000690  29 3d b9 0d 02 76 2f 20  20 20 20 20 20 20 20 20  |)=...v/         |
000006a0  20 20 20 72 65 64 6f 74  61 67 25 28 a4 74 61 67  |   redotag%(.tag|
000006b0  28 64 72 61 67 74 61 67  25 2b 34 2c 2d 31 29 29  |(dragtag%+4,-1))|
000006c0  3d b9 0d 02 80 1b 20 20  20 20 20 20 20 20 20 20  |=.....          |
000006d0  20 20 e7 20 6c 69 6e 65  61 72 25 20 8c 0d 02 8a  |  . linear% ....|
000006e0  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 6f  |*              o|
000006f0  70 70 74 61 67 25 3d a4  74 61 67 28 64 72 61 67  |pptag%=.tag(drag|
00000700  74 61 67 25 2c 32 29 0d  02 94 25 20 20 20 20 20  |tag%,2)...%     |
00000710  20 20 20 20 20 20 20 20  20 72 65 64 6f 74 61 67  |         redotag|
00000720  25 28 6f 70 70 74 61 67  25 29 3d b9 0d 02 9e 27  |%(opptag%)=....'|
00000730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 72 65  |              re|
00000740  64 6f 74 61 67 25 28 6f  70 70 74 61 67 25 2b 34  |dotag%(opptag%+4|
00000750  29 3d b9 0d 02 a8 30 20  20 20 20 20 20 20 20 20  |)=....0         |
00000760  20 20 20 20 20 72 65 64  6f 74 61 67 25 28 a4 74  |     redotag%(.t|
00000770  61 67 28 6f 70 70 74 61  67 25 2b 34 2c 2d 31 29  |ag(opptag%+4,-1)|
00000780  29 3d b9 0d 02 b2 11 20  20 20 20 20 20 20 20 20  |)=.....         |
00000790  20 20 20 cd 0d 02 bc 0f  20 20 20 20 20 20 20 20  |   .....        |
000007a0  20 20 cd 0d 02 c6 17 20  20 20 20 20 20 20 20 20  |  .....         |
000007b0  20 f2 72 65 64 6f 74 61  67 73 0d 02 d0 31 20 20  | .redotags...1  |
000007c0  20 20 20 20 20 20 20 20  c8 99 22 57 69 6d 70 5f  |        .."Wimp_|
000007d0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
000007e0  6c 6b 25 20 b8 20 6d 6f  72 65 25 0d 02 da 0d 20  |lk% . more%.... |
000007f0  20 20 20 20 20 20 20 ce  0d 02 e4 22 20 20 20 20  |       ...."    |
00000800  20 20 20 20 e7 20 74 69  6d 65 25 3d 31 20 8c 20  |    . time%=1 . |
00000810  f2 6e 65 77 74 61 67 70  6f 73 0d 02 ee 11 20 20  |.newtagpos....  |
00000820  20 20 20 20 ed 20 74 69  6d 65 25 0d 02 f8 09 20  |    . time%.... |
00000830  20 20 20 cc 0d 03 02 14  20 20 20 20 20 20 f2 6e  |   .....      .n|
00000840  65 77 74 61 67 70 6f 73  0d 03 0c 0f 20 20 20 20  |ewtagpos....    |
00000850  20 20 f2 64 6f 69 74 0d  03 16 09 20 20 20 20 cd  |  .doit....    .|
00000860  0d 03 20 07 20 20 cd 0d  03 2a 05 cd 0d 03 34 05  |.. .  ...*....4.|
00000870  e1 0d 03 3e 04 0d 03 48  15 dd 20 a4 63 6c 69 63  |...>...H.. .clic|
00000880  6b 6d 61 67 6e 69 66 69  65 72 0d 03 52 3e e7 20  |kmagnifier..R>. |
00000890  a4 69 6e 63 69 63 6f 6e  28 30 2c 32 2c 31 2c 31  |.incicon(0,2,1,1|
000008a0  2c 39 39 39 29 20 84 20  a4 69 6e 63 69 63 6f 6e  |,999) . .incicon|
000008b0  28 33 2c 36 2c 35 2c 31  2c 39 39 39 29 20 8c 20  |(3,6,5,1,999) . |
000008c0  f2 73 65 74 7a 6f 6f 6d  0d 03 5c 06 3d 30 0d 03  |.setzoom..\.=0..|
000008d0  66 04 0d 03 70 13 dd 20  a4 6b 65 79 6d 61 67 6e  |f...p.. .keymagn|
000008e0  69 66 69 65 72 0d 03 7a  1d 74 61 6b 65 6e 3d a4  |ifier..z.taken=.|
000008f0  69 63 6f 6e 6b 65 79 73  28 6d 61 67 6b 65 79 73  |iconkeys(magkeys|
00000900  25 29 0d 03 84 10 e7 20  74 61 6b 65 6e 3d 2d 32  |%)..... taken=-2|
00000910  20 8c 0d 03 8e 10 20 20  f2 63 6c 6f 73 65 6d 65  | .....  .closeme|
00000920  6e 75 0d 03 98 0e 20 20  f2 73 65 74 7a 6f 6f 6d  |nu....  .setzoom|
00000930  0d 03 a2 05 cd 0d 03 ac  0a 3d 74 61 6b 65 6e 0d  |.........=taken.|
00000940  03 b6 04 0d 03 c0 0e dd  20 f2 73 65 74 7a 6f 6f  |........ .setzoo|
00000950  6d 0d 03 ca 19 6f 6c 64  7a 6f 6f 6d 3d 7a 6f 6f  |m....oldzoom=zoo|
00000960  6d 31 25 2f 7a 6f 6f 6d  32 25 0d 03 d4 25 7a 6f  |m1%/zoom2%...%zo|
00000970  6f 6d 31 25 3d a4 69 63  6f 6e 76 61 6c 28 77 25  |om1%=.iconval(w%|
00000980  28 6d 61 67 6e 69 66 69  65 72 25 29 2c 30 29 0d  |(magnifier%),0).|
00000990  03 de 25 7a 6f 6f 6d 32  25 3d a4 69 63 6f 6e 76  |..%zoom2%=.iconv|
000009a0  61 6c 28 77 25 28 6d 61  67 6e 69 66 69 65 72 25  |al(w%(magnifier%|
000009b0  29 2c 33 29 0d 03 e8 16  7a 6f 6f 6d 3d 7a 6f 6f  |),3)....zoom=zoo|
000009c0  6d 31 25 2f 7a 6f 6f 6d  32 25 0d 03 f2 15 e7 20  |m1%/zoom2%..... |
000009d0  6f 6c 64 7a 6f 6f 6d 3c  3e 7a 6f 6f 6d 20 8c 0d  |oldzoom<>zoom ..|
000009e0  03 fc 1c 20 20 f2 77 69  6e 64 6f 77 69 6e 66 6f  |...  .windowinfo|
000009f0  28 77 25 28 6d 61 69 6e  25 29 29 0d 04 06 14 20  |(w%(main%)).... |
00000a00  20 f2 73 65 74 77 69 6e  64 6f 77 73 69 7a 65 0d  | .setwindowsize.|
00000a10  04 10 30 20 20 62 6c 6b  25 21 32 30 3d 28 62 6c  |..0  blk%!20=(bl|
00000a20  6b 25 21 32 30 2b 77 77  25 2f 32 29 2a 7a 6f 6f  |k%!20+ww%/2)*zoo|
00000a30  6d 2f 6f 6c 64 7a 6f 6f  6d 2d 77 77 25 2f 32 0d  |m/oldzoom-ww%/2.|
00000a40  04 1a 30 20 20 62 6c 6b  25 21 32 34 3d 28 62 6c  |..0  blk%!24=(bl|
00000a50  6b 25 21 32 34 2d 77 68  25 2f 32 29 2a 7a 6f 6f  |k%!24-wh%/2)*zoo|
00000a60  6d 2f 6f 6c 64 7a 6f 6f  6d 2b 77 68 25 2f 32 0d  |m/oldzoom+wh%/2.|
00000a70  04 24 11 20 20 f2 6f 70  65 6e 77 69 6e 64 6f 77  |.$.  .openwindow|
00000a80  0d 04 2e 1d 20 20 f2 66  6f 72 63 65 72 65 64 72  |....  .forceredr|
00000a90  61 77 28 77 25 28 6d 61  69 6e 25 29 29 0d 04 38  |aw(w%(main%))..8|
00000aa0  05 cd 0d 04 42 05 e1 0d  04 4c 04 0d 04 56 14 dd  |....B....L...V..|
00000ab0  20 f2 73 65 74 77 69 6e  64 6f 77 73 69 7a 65 0d  | .setwindowsize.|
00000ac0  04 60 4d f2 73 65 74 77  69 6e 64 6f 77 65 78 74  |.`M.setwindowext|
00000ad0  65 6e 74 28 77 25 28 6d  61 69 6e 25 29 2c 2d 72  |ent(w%(main%),-r|
00000ae0  77 25 2a 7a 6f 6f 6d 2a  32 2c 2d 72 68 25 2a 7a  |w%*zoom*2,-rh%*z|
00000af0  6f 6f 6d 2a 32 2c 72 77  25 2a 7a 6f 6f 6d 2a 32  |oom*2,rw%*zoom*2|
00000b00  2c 72 68 25 2a 7a 6f 6f  6d 2a 32 29 0d 04 6a 05  |,rh%*zoom*2)..j.|
00000b10  e1 0d 04 74 04 0d 04 7e  10 dd 20 f2 6e 65 77 74  |...t...~.. .newt|
00000b20  61 67 70 6f 73 0d 04 88  13 e7 20 64 72 61 67 74  |agpos..... dragt|
00000b30  61 67 25 3e 3d 34 20 8c  0d 04 92 1d 20 20 74 61  |ag%>=4 .....  ta|
00000b40  67 28 64 72 61 67 74 61  67 25 2d 34 2c 78 29 3d  |g(dragtag%-4,x)=|
00000b50  6e 78 2b 69 78 0d 04 9c  1d 20 20 74 61 67 28 64  |nx+ix....  tag(d|
00000b60  72 61 67 74 61 67 25 2d  34 2c 79 29 3d 6e 79 2b  |ragtag%-4,y)=ny+|
00000b70  69 79 0d 04 a6 25 20 20  74 61 67 28 a4 74 61 67  |iy...%  tag(.tag|
00000b80  28 64 72 61 67 74 61 67  25 2d 34 2c 31 29 2c 78  |(dragtag%-4,1),x|
00000b90  29 3d 6e 78 2d 69 78 0d  04 b0 25 20 20 74 61 67  |)=nx-ix...%  tag|
00000ba0  28 a4 74 61 67 28 64 72  61 67 74 61 67 25 2d 34  |(.tag(dragtag%-4|
00000bb0  2c 31 29 2c 79 29 3d 6e  79 2d 69 79 0d 04 ba 05  |,1),y)=ny-iy....|
00000bc0  cc 0d 04 c4 18 20 20 74  61 67 28 64 72 61 67 74  |.....  tag(dragt|
00000bd0  61 67 25 2c 78 29 3d 6e  78 0d 04 ce 18 20 20 74  |ag%,x)=nx....  t|
00000be0  61 67 28 64 72 61 67 74  61 67 25 2c 79 29 3d 6e  |ag(dragtag%,y)=n|
00000bf0  79 0d 04 d8 11 20 20 e7  20 6c 69 6e 65 61 72 25  |y....  . linear%|
00000c00  20 8c 0d 04 e2 14 20 20  20 20 e3 20 6f 72 64 25  | .....    . ord%|
00000c10  3d 78 20 b8 20 79 0d 04  ec 6e 20 20 20 20 20 20  |=x . y...n      |
00000c20  74 61 67 28 a4 74 61 67  28 64 72 61 67 74 61 67  |tag(.tag(dragtag|
00000c30  25 2c 32 29 2c 6f 72 64  25 29 3d 74 61 67 28 a4  |%,2),ord%)=tag(.|
00000c40  74 61 67 28 64 72 61 67  74 61 67 25 2c 2d 31 29  |tag(dragtag%,-1)|
00000c50  2c 6f 72 64 25 29 2b 74  61 67 28 a4 74 61 67 28  |,ord%)+tag(.tag(|
00000c60  64 72 61 67 74 61 67 25  2c 31 29 2c 6f 72 64 25  |dragtag%,1),ord%|
00000c70  29 2d 74 61 67 28 64 72  61 67 74 61 67 25 2c 6f  |)-tag(dragtag%,o|
00000c80  72 64 25 29 0d 04 f6 0e  20 20 20 20 ed 20 6f 72  |rd%)....    . or|
00000c90  64 25 0d 05 00 07 20 20  cd 0d 05 0a 05 cd 0d 05  |d%....  ........|
00000ca0  14 12 f2 66 69 6e 64 69  6e 74 65 72 74 61 67 73  |...findintertags|
00000cb0  0d 05 1e 05 e1 0d 05 28  04 0d 05 32 11 dd 20 a4  |.......(...2.. .|
00000cc0  72 65 64 72 61 77 6d 61  69 6e 0d 05 3c 50 f2 70  |redrawmain..<P.p|
00000cd0  75 74 73 70 72 69 74 65  28 6f 73 70 72 69 74 65  |utsprite(osprite|
00000ce0  25 2c 73 70 72 69 74 65  24 2c 77 78 25 2b 73 70  |%,sprite$,wx%+sp|
00000cf0  72 69 74 65 78 2a 7a 6f  6f 6d 2c 77 79 25 2b 73  |ritex*zoom,wy%+s|
00000d00  70 72 69 74 65 79 2a 7a  6f 6f 6d 2c 7a 6f 6f 6d  |pritey*zoom,zoom|
00000d10  31 25 2c 7a 6f 6f 6d 32  25 29 0d 05 46 10 72 65  |1%,zoom2%)..F.re|
00000d20  64 6f 74 61 67 25 28 29  3d b9 0d 05 50 0d f2 72  |dotag%()=...P..r|
00000d30  65 64 6f 74 61 67 73 0d  05 5a 06 3d 30 0d 05 64  |edotags..Z.=0..d|
00000d40  04 0d 05 6e 0f dd 20 f2  72 65 64 6f 74 61 67 73  |...n.. .redotags|
00000d50  0d 05 78 1d c8 99 22 57  69 6d 70 5f 53 65 74 43  |..x..."Wimp_SetC|
00000d60  6f 6c 6f 75 72 22 2c 38  2b 33 2a 31 36 0d 05 82  |olour",8+3*16...|
00000d70  10 e3 20 74 61 67 25 3d  30 20 b8 20 33 0d 05 8c  |.. tag%=0 . 3...|
00000d80  2f 20 20 e7 20 72 65 64  6f 74 61 67 25 28 74 61  |/  . redotag%(ta|
00000d90  67 25 29 20 84 20 72 65  64 6f 74 61 67 25 28 28  |g%) . redotag%((|
00000da0  74 61 67 25 2b 31 29 80  33 29 20 8c 0d 05 96 69  |tag%+1).3) ....i|
00000db0  20 20 20 20 86 20 77 78  25 2b 7a 6f 6f 6d 2a 74  |    . wx%+zoom*t|
00000dc0  61 67 28 74 61 67 25 2c  78 29 2c 77 79 25 2b 7a  |ag(tag%,x),wy%+z|
00000dd0  6f 6f 6d 2a 74 61 67 28  74 61 67 25 2c 79 29 2c  |oom*tag(tag%,y),|
00000de0  77 78 25 2b 7a 6f 6f 6d  2a 74 61 67 28 28 74 61  |wx%+zoom*tag((ta|
00000df0  67 25 2b 31 29 80 33 2c  78 29 2c 77 79 25 2b 7a  |g%+1).3,x),wy%+z|
00000e00  6f 6f 6d 2a 74 61 67 28  28 74 61 67 25 2b 31 29  |oom*tag((tag%+1)|
00000e10  80 33 2c 79 29 0d 05 a0  07 20 20 cd 0d 05 aa 0a  |.3,y)....  .....|
00000e20  ed 20 74 61 67 25 0d 05  b4 1e c8 99 22 57 69 6d  |. tag%......"Wim|
00000e30  70 5f 53 65 74 43 6f 6c  6f 75 72 22 2c 31 31 2b  |p_SetColour",11+|
00000e40  33 2a 31 36 0d 05 be 14  e3 20 74 61 67 25 3d 30  |3*16..... tag%=0|
00000e50  20 b8 20 74 61 67 73 25  0d 05 c8 27 20 20 e7 20  | . tags%...'  . |
00000e60  72 65 64 6f 74 61 67 25  28 74 61 67 25 29 20 80  |redotag%(tag%) .|
00000e70  20 74 61 67 6f 6e 25 28  74 61 67 25 29 20 8c 0d  | tagon%(tag%) ..|
00000e80  05 d2 5c 20 20 20 20 c8  93 20 77 78 25 2b 7a 6f  |..\    .. wx%+zo|
00000e90  6f 6d 2a 74 61 67 28 74  61 67 25 2c 78 29 2d 74  |om*tag(tag%,x)-t|
00000ea0  61 67 73 69 7a 65 25 2c  77 79 25 2b 7a 6f 6f 6d  |agsize%,wy%+zoom|
00000eb0  2a 74 61 67 28 74 61 67  25 2c 79 29 2d 74 61 67  |*tag(tag%,y)-tag|
00000ec0  73 69 7a 65 25 2c 74 61  67 73 69 7a 65 25 2a 32  |size%,tagsize%*2|
00000ed0  2c 74 61 67 73 69 7a 65  25 2a 32 0d 05 dc 18 20  |,tagsize%*2.... |
00000ee0  20 20 20 72 65 64 6f 74  61 67 25 28 74 61 67 25  |   redotag%(tag%|
00000ef0  29 3d a3 0d 05 e6 07 20  20 cd 0d 05 f0 0a ed 20  |)=.....  ...... |
00000f00  74 61 67 25 0d 05 fa 05  e1 0d 06 04 04 0d 06 0e  |tag%............|
00000f10  10 dd 20 a4 63 6c 69 63  6b 6d 61 69 6e 0d 06 18  |.. .clickmain...|
00000f20  1a f2 77 69 6e 64 6f 77  69 6e 66 6f 28 77 25 28  |..windowinfo(w%(|
00000f30  6d 61 69 6e 25 29 29 0d  06 22 15 6d 78 25 2d 3d  |main%))..".mx%-=|
00000f40  77 78 25 3a 6d 79 25 2d  3d 77 79 25 0d 06 2c 0b  |wx%:my%-=wy%..,.|
00000f50  74 61 67 25 3d 2d 31 0d  06 36 12 e3 20 74 25 3d  |tag%=-1..6.. t%=|
00000f60  30 20 b8 20 74 61 67 73  25 0d 06 40 98 20 20 e7  |0 . tags%..@.  .|
00000f70  20 6d 78 25 3e 3d 7a 6f  6f 6d 2a 74 61 67 28 74  | mx%>=zoom*tag(t|
00000f80  25 2c 78 29 2d 74 61 67  73 69 7a 65 25 20 80 20  |%,x)-tagsize% . |
00000f90  6d 78 25 3c 3d 7a 6f 6f  6d 2a 74 61 67 28 74 25  |mx%<=zoom*tag(t%|
00000fa0  2c 78 29 2b 74 61 67 73  69 7a 65 25 20 80 20 6d  |,x)+tagsize% . m|
00000fb0  79 25 3e 3d 7a 6f 6f 6d  2a 74 61 67 28 74 25 2c  |y%>=zoom*tag(t%,|
00000fc0  79 29 2d 74 61 67 73 69  7a 65 25 20 80 20 6d 79  |y)-tagsize% . my|
00000fd0  25 3c 3d 7a 6f 6f 6d 2a  74 61 67 28 74 25 2c 79  |%<=zoom*tag(t%,y|
00000fe0  29 2b 74 61 67 73 69 7a  65 25 20 80 20 74 61 67  |)+tagsize% . tag|
00000ff0  6f 6e 25 28 74 25 29 20  8c 20 74 61 67 25 3d 74  |on%(t%) . tag%=t|
00001000  25 0d 06 4a 08 ed 20 74  25 0d 06 54 0f e7 20 74  |%..J.. t%..T.. t|
00001010  61 67 25 3e 3d 30 20 8c  0d 06 5e 50 20 20 f2 73  |ag%>=0 ...^P  .s|
00001020  74 61 72 74 64 72 61 67  62 6f 78 28 30 2c 37 2c  |tartdragbox(0,7,|
00001030  30 2c 30 2c 30 2c 30 2c  77 78 25 2b 62 6c 6b 25  |0,0,0,0,wx%+blk%|
00001040  21 34 34 2c 77 79 25 2b  62 6c 6b 25 21 34 38 2c  |!44,wy%+blk%!48,|
00001050  77 78 25 2b 62 6c 6b 25  21 35 32 2c 77 79 25 2b  |wx%+blk%!52,wy%+|
00001060  62 6c 6b 25 21 35 36 29  0d 06 68 11 20 20 64 72  |blk%!56)..h.  dr|
00001070  61 67 67 69 6e 67 25 3d  b9 0d 06 72 13 20 20 64  |agging%=...r.  d|
00001080  72 61 67 69 64 25 3d 6d  61 69 6e 25 0d 06 7c 13  |ragid%=main%..|.|
00001090  20 20 64 72 61 67 74 61  67 25 3d 74 61 67 25 0d  |  dragtag%=tag%.|
000010a0  06 86 15 20 20 e7 20 64  72 61 67 74 61 67 25 3e  |...  . dragtag%>|
000010b0  3d 34 20 8c 0d 06 90 2c  20 20 20 20 69 78 3d 74  |=4 ....,    ix=t|
000010c0  61 67 28 64 72 61 67 74  61 67 25 2d 34 2c 78 29  |ag(dragtag%-4,x)|
000010d0  2d 74 61 67 28 64 72 61  67 74 61 67 25 2c 78 29  |-tag(dragtag%,x)|
000010e0  0d 06 9a 2c 20 20 20 20  69 79 3d 74 61 67 28 64  |...,    iy=tag(d|
000010f0  72 61 67 74 61 67 25 2d  34 2c 79 29 2d 74 61 67  |ragtag%-4,y)-tag|
00001100  28 64 72 61 67 74 61 67  25 2c 79 29 0d 06 a4 07  |(dragtag%,y)....|
00001110  20 20 cd 0d 06 ae 23 20  20 6d 69 78 25 3d 7a 6f  |  ....#  mix%=zo|
00001120  6f 6d 2a 74 61 67 28 64  72 61 67 74 61 67 25 2c  |om*tag(dragtag%,|
00001130  78 29 2d 6d 78 25 0d 06  b8 23 20 20 6d 69 79 25  |x)-mx%...#  miy%|
00001140  3d 7a 6f 6f 6d 2a 74 61  67 28 64 72 61 67 74 61  |=zoom*tag(dragta|
00001150  67 25 2c 79 29 2d 6d 79  25 0d 06 c2 05 cd 0d 06  |g%,y)-my%.......|
00001160  cc 06 3d 30 0d 06 d6 04  0d 06 e0 10 dd 20 a4 63  |..=0......... .c|
00001170  6c 6f 73 65 6d 61 69 6e  0d 06 ea 18 f2 6c 6f 73  |losemain.....los|
00001180  65 62 6c 6f 63 6b 28 69  73 70 72 69 74 65 25 29  |eblock(isprite%)|
00001190  0d 06 f4 18 f2 6c 6f 73  65 62 6c 6f 63 6b 28 6f  |.....loseblock(o|
000011a0  73 70 72 69 74 65 25 29  0d 06 fe 06 3d b9 0d 07  |sprite%)....=...|
000011b0  08 04 0d 07 12 0f dd 20  a4 6f 70 65 6e 73 61 76  |....... .opensav|
000011c0  65 0d 07 1c 3a f2 73 65  74 69 63 6f 6e 74 65 78  |e...:.seticontex|
000011d0  74 28 77 25 28 73 61 76  65 25 29 2c 32 2c a4 73  |t(w%(save%),2,.s|
000011e0  74 61 6e 64 61 72 64 66  69 6c 65 6e 61 6d 65 28  |tandardfilename(|
000011f0  77 25 28 73 61 76 65 25  29 29 29 0d 07 26 06 3d  |w%(save%)))..&.=|
00001200  30 0d 07 30 04 0d 07 3a  0f dd 20 a4 6d 65 6e 75  |0..0...:.. .menu|
00001210  6d 61 69 6e 0d 07 44 0e  c8 8e 20 21 62 6c 6b 25  |main..D... !blk%|
00001220  20 ca 0d 07 4e 2e 20 20  c9 20 31 20 3a 20 e7 20  | ...N.  . 1 : . |
00001230  62 6c 6b 25 21 34 3e 2d  31 20 8c 20 f2 6e 65 77  |blk%!4>-1 . .new|
00001240  73 70 72 69 74 65 28 62  6c 6b 25 21 34 2b 31 29  |sprite(blk%!4+1)|
00001250  0d 07 58 09 20 20 c9 20  32 0d 07 62 18 20 20 20  |..X.  . 2..b.   |
00001260  20 6c 69 6e 65 61 72 25  3d ac 6c 69 6e 65 61 72  | linear%=.linear|
00001270  25 0d 07 6c 29 20 20 20  20 f2 74 69 63 6b 6d 65  |%..l)    .tickme|
00001280  6e 75 28 6d 65 6e 75 25  28 6d 61 69 6e 25 29 2c  |nu(menu%(main%),|
00001290  32 2c 6c 69 6e 65 61 72  25 29 0d 07 76 13 20 20  |2,linear%)..v.  |
000012a0  20 20 e7 20 6c 69 6e 65  61 72 25 20 8c 0d 07 80  |  . linear% ....|
000012b0  16 20 20 20 20 20 20 e3  20 6f 72 64 25 3d 78 20  |.      . ord%=x |
000012c0  b8 20 79 0d 07 8a 3b 20  20 20 20 20 20 20 20 74  |. y...;        t|
000012d0  61 67 28 32 2c 6f 72 64  25 29 3d 74 61 67 28 33  |ag(2,ord%)=tag(3|
000012e0  2c 6f 72 64 25 29 2b 74  61 67 28 31 2c 6f 72 64  |,ord%)+tag(1,ord|
000012f0  25 29 2d 74 61 67 28 30  2c 6f 72 64 25 29 0d 07  |%)-tag(0,ord%)..|
00001300  94 10 20 20 20 20 20 20  ed 20 6f 72 64 25 0d 07  |..      . ord%..|
00001310  9e 09 20 20 20 20 cd 0d  07 a8 16 20 20 20 20 f2  |..    .....    .|
00001320  66 69 6e 64 69 6e 74 65  72 74 61 67 73 0d 07 b2  |findintertags...|
00001330  1f 20 20 20 20 f2 66 6f  72 63 65 72 65 64 72 61  |.    .forceredra|
00001340  77 28 77 25 28 6d 61 69  6e 25 29 29 0d 07 bc 09  |w(w%(main%))....|
00001350  20 20 c9 20 33 0d 07 c6  15 20 20 20 20 e7 20 62  |  . 3....    . b|
00001360  6c 6b 25 21 34 3e 2d 31  20 8c 0d 07 d0 27 20 20  |lk%!4>-1 ....'  |
00001370  20 20 20 20 f2 74 69 63  6b 6d 65 6e 75 28 6f 70  |    .tickmenu(op|
00001380  74 69 6f 6e 73 25 2c 6f  70 74 69 6f 6e 25 2c a3  |tions%,option%,.|
00001390  29 0d 07 da 18 20 20 20  20 20 20 6f 70 74 69 6f  |)....      optio|
000013a0  6e 25 3d 62 6c 6b 25 21  34 0d 07 e4 27 20 20 20  |n%=blk%!4...'   |
000013b0  20 20 20 f2 74 69 63 6b  6d 65 6e 75 28 6f 70 74  |   .tickmenu(opt|
000013c0  69 6f 6e 73 25 2c 6f 70  74 69 6f 6e 25 2c b9 29  |ions%,option%,.)|
000013d0  0d 07 ee 09 20 20 20 20  cd 0d 07 f8 09 20 20 c9  |....    .....  .|
000013e0  20 34 0d 08 02 19 20 20  20 20 61 6e 67 3d b2 28  | 4....    ang=.(|
000013f0  bb 28 24 61 6e 67 6c 65  25 29 29 0d 08 0c 18 20  |.($angle%)).... |
00001400  20 20 20 e3 20 74 61 67  25 3d 30 20 b8 20 74 61  |   . tag%=0 . ta|
00001410  67 73 25 0d 08 16 32 20  20 20 20 20 20 74 78 3d  |gs%...2      tx=|
00001420  9b 28 61 6e 67 29 2a 74  61 67 28 74 61 67 25 2c  |.(ang)*tag(tag%,|
00001430  78 29 2d b5 28 61 6e 67  29 2a 74 61 67 28 74 61  |x)-.(ang)*tag(ta|
00001440  67 25 2c 79 29 0d 08 20  3b 20 20 20 20 20 20 74  |g%,y).. ;      t|
00001450  61 67 28 74 61 67 25 2c  79 29 3d b5 28 61 6e 67  |ag(tag%,y)=.(ang|
00001460  29 2a 74 61 67 28 74 61  67 25 2c 78 29 2b 9b 28  |)*tag(tag%,x)+.(|
00001470  61 6e 67 29 2a 74 61 67  28 74 61 67 25 2c 79 29  |ang)*tag(tag%,y)|
00001480  0d 08 2a 18 20 20 20 20  20 20 74 61 67 28 74 61  |..*.      tag(ta|
00001490  67 25 2c 78 29 3d 74 78  0d 08 34 0e 20 20 20 20  |g%,x)=tx..4.    |
000014a0  ed 20 74 61 67 25 0d 08  3e 1f 20 20 20 20 f2 66  |. tag%..>.    .f|
000014b0  6f 72 63 65 72 65 64 72  61 77 28 77 25 28 6d 61  |orceredraw(w%(ma|
000014c0  69 6e 25 29 29 0d 08 48  11 20 20 c9 20 36 20 3a  |in%))..H.  . 6 :|
000014d0  20 f2 64 6f 69 74 0d 08  52 05 cb 0d 08 5c 06 3d  | .doit..R....\.=|
000014e0  30 0d 08 66 04 0d 08 70  12 dd 20 a4 70 72 65 6d  |0..f...p.. .prem|
000014f0  65 6e 75 6d 61 69 6e 0d  08 7a 10 64 25 3d a4 6f  |enumain..z.d%=.o|
00001500  70 65 6e 73 61 76 65 0d  08 84 28 f2 73 65 74 69  |pensave...(.seti|
00001510  63 6f 6e 76 61 6c 28 77  25 28 6d 61 67 6e 69 66  |conval(w%(magnif|
00001520  69 65 72 25 29 2c 30 2c  7a 6f 6f 6d 31 25 29 0d  |ier%),0,zoom1%).|
00001530  08 8e 28 f2 73 65 74 69  63 6f 6e 76 61 6c 28 77  |..(.seticonval(w|
00001540  25 28 6d 61 67 6e 69 66  69 65 72 25 29 2c 33 2c  |%(magnifier%),3,|
00001550  7a 6f 6f 6d 32 25 29 0d  08 98 06 3d 30 0d 08 a2  |zoom2%)....=0...|
00001560  04 0d 08 ac 12 dd 20 a4  6d 65 6e 75 69 63 6f 6e  |...... .menuicon|
00001570  62 61 72 0d 08 b6 1a e7  20 21 62 6c 6b 25 3d 31  |bar..... !blk%=1|
00001580  20 8c 20 f2 63 6c 6f 73  65 64 6f 77 6e 0d 08 c0  | . .closedown...|
00001590  06 3d 30 0d 08 ca 04 0d  08 d4 13 dd 20 a4 63 6c  |.=0......... .cl|
000015a0  69 63 6b 69 63 6f 6e 62  61 72 0d 08 de 16 e7 20  |ickiconbar..... |
000015b0  61 63 74 69 76 65 25 28  6d 61 69 6e 25 29 20 8c  |active%(main%) .|
000015c0  0d 08 e8 18 20 20 f2 6f  70 65 6e 75 70 28 77 25  |....  .openup(w%|
000015d0  28 6d 61 69 6e 25 29 29  0d 08 f2 05 cc 0d 08 fc  |(main%))........|
000015e0  3d 20 20 f2 72 65 70 6f  72 74 28 22 44 72 61 67  |=  .report("Drag|
000015f0  20 61 20 73 70 72 69 74  65 66 69 6c 65 20 68 65  | a spritefile he|
00001600  72 65 20 74 6f 20 73 74  61 72 74 20 61 70 70 6c  |re to start appl|
00001610  69 63 61 74 69 6f 6e 2e  22 29 0d 09 06 05 cd 0d  |ication.")......|
00001620  09 10 06 3d 30 0d 09 1a  04 0d 09 24 11 dd 20 a4  |...=0......$.. .|
00001630  70 72 65 70 61 72 65 46  46 39 0d 09 2e 18 73 61  |prepareFF9....sa|
00001640  76 65 62 75 66 66 25 3d  6f 73 70 72 69 74 65 25  |vebuff%=osprite%|
00001650  2b 34 0d 09 38 1b 66 69  6c 65 73 69 7a 65 25 3d  |+4..8.filesize%=|
00001660  6f 73 70 72 69 74 65 25  21 31 32 2d 34 0d 09 42  |osprite%!12-4..B|
00001670  07 3d 2d 31 0d 09 4c 04  0d 09 56 14 dd 20 a4 74  |.=-1..L...V.. .t|
00001680  72 61 6e 73 62 6c 6f 63  6b 46 46 39 0d 09 60 18  |ransblockFF9..`.|
00001690  f2 6c 6f 73 65 62 6c 6f  63 6b 28 6f 73 70 72 69  |.loseblock(ospri|
000016a0  74 65 25 29 0d 09 6a 25  f2 6e 65 77 73 70 72 69  |te%)..j%.newspri|
000016b0  74 65 61 72 65 61 28 69  73 70 72 69 74 65 25 2c  |tearea(isprite%,|
000016c0  73 69 7a 65 25 2d 31 32  29 0d 09 74 0f 3d 69 73  |size%-12)..t.=is|
000016d0  70 72 69 74 65 25 2b 34  0d 09 7e 04 0d 09 88 0f  |prite%+4..~.....|
000016e0  dd 20 a4 73 61 76 65 64  46 46 39 0d 09 92 0e f2  |. .savedFF9.....|
000016f0  63 6c 6f 73 65 6d 65 6e  75 0d 09 9c 06 3d 30 0d  |closemenu....=0.|
00001700  09 a6 04 0d 09 b0 15 dd  20 a4 6c 6f 61 64 46 46  |........ .loadFF|
00001710  39 28 66 69 6c 65 24 29  0d 09 ba 14 f2 66 69 6c  |9(file$).....fil|
00001720  65 69 6e 66 6f 28 66 69  6c 65 24 29 0d 09 c4 18  |einfo(file$)....|
00001730  f2 6c 6f 73 65 62 6c 6f  63 6b 28 6f 73 70 72 69  |.loseblock(ospri|
00001740  74 65 25 29 0d 09 ce 29  f2 6e 65 77 73 70 72 69  |te%)...).newspri|
00001750  74 65 61 72 65 61 28 69  73 70 72 69 74 65 25 2c  |tearea(isprite%,|
00001760  66 69 6c 65 73 69 7a 65  25 2d 31 32 29 0d 09 d8  |filesize%-12)...|
00001770  13 e7 20 69 73 70 72 69  74 65 25 3d 2d 31 20 8c  |.. isprite%=-1 .|
00001780  0d 09 e2 30 20 20 e7 20  61 63 74 69 76 65 25 28  |...0  . active%(|
00001790  6d 61 69 6e 25 29 20 8c  20 f2 63 6c 6f 73 65 77  |main%) . .closew|
000017a0  69 6e 64 6f 77 28 77 25  28 6d 61 69 6e 25 29 29  |indow(w%(main%))|
000017b0  0d 09 ec 1d 20 20 f2 72  65 70 6f 72 74 28 22 4f  |....  .report("O|
000017c0  75 74 20 6f 66 20 72 6f  6f 6d 2e 22 29 0d 09 f6  |ut of room.")...|
000017d0  05 cc 0d 0a 00 2b 20 20  c8 99 22 4f 53 5f 53 70  |.....+  .."OS_Sp|
000017e0  72 69 74 65 4f 70 22 2c  31 30 2b 32 35 36 2c 69  |riteOp",10+256,i|
000017f0  73 70 72 69 74 65 25 2c  66 69 6c 65 24 0d 0a 0a  |sprite%,file$...|
00001800  05 cd 0d 0a 14 07 3d 2d  31 0d 0a 1e 04 0d 0a 28  |......=-1......(|
00001810  10 dd 20 a4 6c 6f 61 64  65 64 46 46 39 0d 0a 32  |.. .loadedFF9..2|
00001820  18 6d 65 6e 75 70 74 72  25 3d 73 70 72 69 74 65  |.menuptr%=sprite|
00001830  6d 65 6e 75 25 0d 0a 3c  22 f2 6d 65 6e 75 74 69  |menu%..<".menuti|
00001840  74 6c 65 28 22 53 70 72  69 74 65 73 22 2c 6d 65  |tle("Sprites",me|
00001850  6e 75 70 74 72 25 29 0d  0a 46 17 e3 20 73 25 3d  |nuptr%)..F.. s%=|
00001860  31 20 b8 20 69 73 70 72  69 74 65 25 21 34 0d 0a  |1 . isprite%!4..|
00001870  50 25 20 20 73 6e 61 6d  65 24 3d a4 73 70 72 69  |P%  sname$=.spri|
00001880  74 65 6e 61 6d 65 28 69  73 70 72 69 74 65 25 2c  |tename(isprite%,|
00001890  73 25 29 0d 0a 5a 20 20  20 f2 6d 65 6e 75 69 74  |s%)..Z   .menuit|
000018a0  65 6d 28 73 6e 61 6d 65  24 2c 6d 65 6e 75 70 74  |em(sname$,menupt|
000018b0  72 25 29 0d 0a 64 08 ed  20 73 25 0d 0a 6e 16 f2  |r%)..d.. s%..n..|
000018c0  65 6e 64 6d 65 6e 75 28  6d 65 6e 75 70 74 72 25  |endmenu(menuptr%|
000018d0  29 0d 0a 78 0d 63 68 6f  73 65 6e 25 3d 31 0d 0a  |)..x.chosen%=1..|
000018e0  82 17 f2 6e 65 77 73 70  72 69 74 65 28 63 68 6f  |...newsprite(cho|
000018f0  73 65 6e 25 29 0d 0a 8c  06 3d 30 0d 0a 96 04 0d  |sen%)....=0.....|
00001900  0a a0 14 dd 20 f2 6e 65  77 73 70 72 69 74 65 28  |.... .newsprite(|
00001910  63 25 29 0d 0a aa 26 f2  74 69 63 6b 6d 65 6e 75  |c%)...&.tickmenu|
00001920  28 73 70 72 69 74 65 6d  65 6e 75 25 2c 63 68 6f  |(spritemenu%,cho|
00001930  73 65 6e 25 2d 31 2c a3  29 0d 0a b4 0e 63 68 6f  |sen%-1,.)....cho|
00001940  73 65 6e 25 3d 63 25 0d  0a be 26 f2 74 69 63 6b  |sen%=c%...&.tick|
00001950  6d 65 6e 75 28 73 70 72  69 74 65 6d 65 6e 75 25  |menu(spritemenu%|
00001960  2c 63 68 6f 73 65 6e 25  2d 31 2c b9 29 0d 0a c8  |,chosen%-1,.)...|
00001970  29 73 70 72 69 74 65 24  3d a4 73 70 72 69 74 65  |)sprite$=.sprite|
00001980  6e 61 6d 65 28 69 73 70  72 69 74 65 25 2c 63 68  |name(isprite%,ch|
00001990  6f 73 65 6e 25 29 0d 0a  d2 36 c8 99 22 4f 53 5f  |osen%)...6.."OS_|
000019a0  53 70 72 69 74 65 4f 70  22 2c 32 34 2b 32 35 36  |SpriteOp",24+256|
000019b0  2c 69 73 70 72 69 74 65  25 2c 73 70 72 69 74 65  |,isprite%,sprite|
000019c0  24 20 b8 20 2c 2c 73 61  64 64 72 25 0d 0a dc 2c  |$ . ,,saddr%...,|
000019d0  e7 20 73 61 64 64 72 25  21 33 32 3d 34 34 20 8c  |. saddr%!32=44 .|
000019e0  20 70 61 6c 65 74 74 65  25 3d 30 20 8b 20 70 61  | palette%=0 . pa|
000019f0  6c 65 74 74 65 25 3d 31  0d 0a e6 24 f2 6e 65 77  |lette%=1...$.new|
00001a00  73 70 72 69 74 65 61 72  65 61 28 6f 73 70 72 69  |spritearea(ospri|
00001a10  74 65 25 2c 21 73 61 64  64 72 25 29 0d 0a f0 46  |te%,!saddr%)...F|
00001a20  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001a30  34 30 2b 32 35 36 2c 69  73 70 72 69 74 65 25 2c  |40+256,isprite%,|
00001a40  73 70 72 69 74 65 24 20  b8 20 2c 2c 2c 73 78 25  |sprite$ . ,,,sx%|
00001a50  2c 73 79 25 2c 6d 61 73  6b 25 2c 73 70 6d 6f 64  |,sy%,mask%,spmod|
00001a60  65 25 0d 0a fa 10 6f 73  70 72 69 74 65 25 21 34  |e%....osprite%!4|
00001a70  3d 31 0d 0b 04 18 6f 73  70 72 69 74 65 25 21 31  |=1....osprite%!1|
00001a80  32 2b 3d 21 73 61 64 64  72 25 0d 0b 0e 45 c8 99  |2+=!saddr%...E..|
00001a90  22 57 69 6d 70 5f 54 72  61 6e 73 66 65 72 42 6c  |"Wimp_TransferBl|
00001aa0  6f 63 6b 22 2c 6d 79 74  61 73 6b 25 2c 73 61 64  |ock",mytask%,sad|
00001ab0  64 72 25 2c 6d 79 74 61  73 6b 25 2c 6f 73 70 72  |dr%,mytask%,ospr|
00001ac0  69 74 65 25 2b 31 36 2c  21 73 61 64 64 72 25 0d  |ite%+16,!saddr%.|
00001ad0  0b 18 20 72 77 25 3d 73  78 25 3c 3c a4 6d 6f 64  |.. rw%=sx%<<.mod|
00001ae0  65 76 61 72 28 73 70 6d  6f 64 65 25 2c 34 29 0d  |evar(spmode%,4).|
00001af0  0b 22 20 72 68 25 3d 73  79 25 3c 3c a4 6d 6f 64  |." rh%=sy%<<.mod|
00001b00  65 76 61 72 28 73 70 6d  6f 64 65 25 2c 35 29 0d  |evar(spmode%,5).|
00001b10  0b 2c 13 74 61 67 28 30  2c 78 29 3d 2d 72 77 25  |.,.tag(0,x)=-rw%|
00001b20  2f 32 0d 0b 36 12 74 61  67 28 31 2c 78 29 3d 72  |/2..6.tag(1,x)=r|
00001b30  77 25 2f 32 0d 0b 40 12  74 61 67 28 30 2c 79 29  |w%/2..@.tag(0,y)|
00001b40  3d 72 68 25 2f 32 0d 0b  4a 13 74 61 67 28 32 2c  |=rh%/2..J.tag(2,|
00001b50  79 29 3d 2d 72 68 25 2f  32 0d 0b 54 27 74 61 67  |y)=-rh%/2..T'tag|
00001b60  28 32 2c 78 29 3d 74 61  67 28 31 2c 78 29 3a 74  |(2,x)=tag(1,x):t|
00001b70  61 67 28 33 2c 78 29 3d  74 61 67 28 30 2c 78 29  |ag(3,x)=tag(0,x)|
00001b80  0d 0b 5e 27 74 61 67 28  31 2c 79 29 3d 74 61 67  |..^'tag(1,y)=tag|
00001b90  28 30 2c 79 29 3a 74 61  67 28 33 2c 79 29 3d 74  |(0,y):tag(3,y)=t|
00001ba0  61 67 28 32 2c 79 29 0d  0b 68 14 73 70 72 69 74  |ag(2,y)..h.sprit|
00001bb0  65 78 3d 74 61 67 28 30  2c 78 29 0d 0b 72 14 73  |ex=tag(0,x)..r.s|
00001bc0  70 72 69 74 65 79 3d 74  61 67 28 32 2c 79 29 0d  |pritey=tag(2,y).|
00001bd0  0b 7c 12 f2 66 69 6e 64  69 6e 74 65 72 74 61 67  |.|..findintertag|
00001be0  73 0d 0b 86 12 f2 73 65  74 77 69 6e 64 6f 77 73  |s.....setwindows|
00001bf0  69 7a 65 0d 0b 90 13 21  62 6c 6b 25 3d 77 25 28  |ize....!blk%=w%(|
00001c00  6d 61 69 6e 25 29 0d 0b  9a 2e e7 20 61 63 74 69  |main%)..... acti|
00001c10  76 65 25 28 6d 61 69 6e  25 29 20 8c 20 f2 66 6f  |ve%(main%) . .fo|
00001c20  72 63 65 72 65 64 72 61  77 28 77 25 28 6d 61 69  |rceredraw(w%(mai|
00001c30  6e 25 29 29 0d 0b a4 16  f2 6f 70 65 6e 75 70 28  |n%)).....openup(|
00001c40  77 25 28 6d 61 69 6e 25  29 29 0d 0b ae 13 21 62  |w%(main%))....!b|
00001c50  6c 6b 25 3d 77 25 28 6d  61 69 6e 25 29 0d 0b b8  |lk%=w%(main%)...|
00001c60  21 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |!.."Wimp_GetWind|
00001c70  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 0b  |owState",,blk%..|
00001c80  c2 1f 62 6c 6b 25 21 32  30 3d 2d 28 62 6c 6b 25  |..blk%!20=-(blk%|
00001c90  21 31 32 2d 62 6c 6b 25  21 34 29 2f 32 0d 0b cc  |!12-blk%!4)/2...|
00001ca0  1e 62 6c 6b 25 21 32 34  3d 28 62 6c 6b 25 21 31  |.blk%!24=(blk%!1|
00001cb0  36 2d 62 6c 6b 25 21 38  29 2f 32 0d 0b d6 0f f2  |6-blk%!8)/2.....|
00001cc0  6f 70 65 6e 77 69 6e 64  6f 77 0d 0b e0 05 e1 0d  |openwindow......|
00001cd0  0b ea 04 0d 0b f4 14 dd  20 f2 66 69 6e 64 69 6e  |........ .findin|
00001ce0  74 65 72 74 61 67 73 0d  0b fe 10 e3 20 74 61 67  |tertags..... tag|
00001cf0  25 3d 30 20 b8 20 33 0d  0c 08 11 20 20 e3 20 6f  |%=0 . 3....  . o|
00001d00  72 64 3d 78 20 b8 20 79  0d 0c 12 3d 20 20 20 20  |rd=x . y...=    |
00001d10  74 61 67 28 74 61 67 25  2b 34 2c 6f 72 64 29 3d  |tag(tag%+4,ord)=|
00001d20  28 74 61 67 28 74 61 67  25 2c 6f 72 64 29 2b 74  |(tag(tag%,ord)+t|
00001d30  61 67 28 28 74 61 67 25  2b 31 29 80 33 2c 6f 72  |ag((tag%+1).3,or|
00001d40  64 29 29 2f 32 0d 0c 1c  0b 20 20 ed 20 6f 72 64  |d))/2....  . ord|
00001d50  0d 0c 26 0a ed 20 74 61  67 25 0d 0c 30 05 e1 0d  |..&.. tag%..0...|
00001d60  0c 3a 04 0d 0c 44 15 dd  20 a4 74 61 67 28 74 61  |.:...D.. .tag(ta|
00001d70  67 25 2c 69 6e 63 25 29  0d 0c 4e 3d e7 20 74 61  |g%,inc%)..N=. ta|
00001d80  67 25 3c 3d 33 20 8c 20  74 61 67 25 3d 28 74 61  |g%<=3 . tag%=(ta|
00001d90  67 25 2b 69 6e 63 25 29  80 33 20 8b 20 74 61 67  |g%+inc%).3 . tag|
00001da0  25 3d 28 28 74 61 67 25  2d 34 2b 69 6e 63 25 29  |%=((tag%-4+inc%)|
00001db0  80 33 29 2b 34 0d 0c 58  09 3d 74 61 67 25 0d 0c  |.3)+4..X.=tag%..|
00001dc0  62 04 0d 0c 6c 1a dd 20  a4 66 69 6c 65 6f 6b 61  |b...l.. .fileoka|
00001dd0  79 28 66 69 6c 65 74 79  70 65 25 29 0d 0c 76 09  |y(filetype%)..v.|
00001de0  6f 6b 25 3d b9 0d 0c 80  12 c8 8e 20 66 69 6c 65  |ok%=....... file|
00001df0  74 79 70 65 25 20 ca 0d  0c 8a 23 20 20 c9 20 73  |type% ....#  . s|
00001e00  66 74 25 20 3a 20 e7 20  6d 65 73 73 61 67 65 25  |ft% : . message%|
00001e10  3d 35 20 8c 20 6f 6b 25  3d a3 0d 0c 94 05 7f 0d  |=5 . ok%=.......|
00001e20  0c 9e 0b 20 20 6f 6b 25  3d a3 0d 0c a8 05 cb 0d  |...  ok%=.......|
00001e30  0c b2 08 3d 6f 6b 25 0d  0c bc 04 0d 0c c6 0b dd  |...=ok%.........|
00001e40  20 f2 64 6f 69 74 0d 0c  d0 14 c8 99 22 48 6f 75  | .doit......"Hou|
00001e50  72 67 6c 61 73 73 5f 4f  6e 22 0d 0c da 10 e3 20  |rglass_On"..... |
00001e60  6f 72 64 25 3d 78 20 b8  20 79 0d 0c e4 1b 20 20  |ord%=x . y....  |
00001e70  6d 69 6e 28 6f 72 64 25  29 3d 74 61 67 28 30 2c  |min(ord%)=tag(0,|
00001e80  6f 72 64 25 29 0d 0c ee  1b 20 20 6d 61 78 28 6f  |ord%)....  max(o|
00001e90  72 64 25 29 3d 74 61 67  28 30 2c 6f 72 64 25 29  |rd%)=tag(0,ord%)|
00001ea0  0d 0c f8 10 20 20 e3 20  74 25 3d 31 20 b8 20 33  |....  . t%=1 . 3|
00001eb0  0d 0d 02 39 20 20 20 20  e7 20 74 61 67 28 74 25  |...9    . tag(t%|
00001ec0  2c 6f 72 64 25 29 3c 6d  69 6e 28 6f 72 64 25 29  |,ord%)<min(ord%)|
00001ed0  20 8c 20 6d 69 6e 28 6f  72 64 25 29 3d 74 61 67  | . min(ord%)=tag|
00001ee0  28 74 25 2c 6f 72 64 25  29 0d 0d 0c 39 20 20 20  |(t%,ord%)...9   |
00001ef0  20 e7 20 74 61 67 28 74  25 2c 6f 72 64 25 29 3e  | . tag(t%,ord%)>|
00001f00  6d 61 78 28 6f 72 64 25  29 20 8c 20 6d 61 78 28  |max(ord%) . max(|
00001f10  6f 72 64 25 29 3d 74 61  67 28 74 25 2c 6f 72 64  |ord%)=tag(t%,ord|
00001f20  25 29 0d 0d 16 0a 20 20  ed 20 74 25 0d 0d 20 2c  |%)....  . t%.. ,|
00001f30  20 20 6d 69 6e 28 6f 72  64 25 29 2d 3d 31 3c 3c  |  min(ord%)-=1<<|
00001f40  a4 6d 6f 64 65 76 61 72  28 73 70 6d 6f 64 65 25  |.modevar(spmode%|
00001f50  2c 34 2b 6f 72 64 25 29  0d 0d 2a 43 20 20 73 25  |,4+ord%)..*C  s%|
00001f60  28 6f 72 64 25 29 3d 28  a8 28 6d 61 78 28 6f 72  |(ord%)=(.(max(or|
00001f70  64 25 29 2d 6d 69 6e 28  6f 72 64 25 29 29 3e 3e  |d%)-min(ord%))>>|
00001f80  a4 6d 6f 64 65 76 61 72  28 73 70 6d 6f 64 65 25  |.modevar(spmode%|
00001f90  2c 34 2b 6f 72 64 25 29  29 2b 31 0d 0d 34 0a ed  |,4+ord%))+1..4..|
00001fa0  20 6f 72 64 25 0d 0d 3e  3b 73 73 69 7a 65 25 3d  | ord%..>;ssize%=|
00001fb0  28 73 25 28 78 29 2b 33  32 29 2a 73 25 28 79 29  |(s%(x)+32)*s%(y)|
00001fc0  2a 28 31 3c 3c a4 6d 6f  64 65 76 61 72 28 73 70  |*(1<<.modevar(sp|
00001fd0  6d 6f 64 65 25 2c 39 29  29 2f 34 2b 31 30 30 30  |mode%,9))/4+1000|
00001fe0  0d 0d 48 23 f2 6e 65 77  73 70 72 69 74 65 61 72  |..H#.newspritear|
00001ff0  65 61 28 6f 73 70 72 69  74 65 25 2c 73 73 69 7a  |ea(osprite%,ssiz|
00002000  65 25 29 0d 0d 52 13 e7  20 6f 73 70 72 69 74 65  |e%)..R.. osprite|
00002010  25 3d 2d 31 20 8c 0d 0d  5c 1b f2 72 65 70 6f 72  |%=-1 ...\..repor|
00002020  74 28 22 4f 75 74 20 6f  66 20 72 6f 6f 6d 2e 22  |t("Out of room."|
00002030  29 0d 0d 66 17 f2 6e 65  77 73 70 72 69 74 65 28  |)..f..newsprite(|
00002040  63 68 6f 73 65 6e 25 29  0d 0d 70 05 cc 0d 0d 7a  |chosen%)..p....z|
00002050  48 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |H.."OS_SpriteOp"|
00002060  2c 31 35 2b 32 35 36 2c  6f 73 70 72 69 74 65 25  |,15+256,osprite%|
00002070  2c 73 70 72 69 74 65 24  2c 70 61 6c 65 74 74 65  |,sprite$,palette|
00002080  25 2c 73 25 28 78 29 2c  73 25 28 79 29 2c 73 70  |%,s%(x),s%(y),sp|
00002090  6d 6f 64 65 25 0d 0d 84  36 c8 99 22 4f 53 5f 53  |mode%...6.."OS_S|
000020a0  70 72 69 74 65 4f 70 22  2c 32 34 2b 32 35 36 2c  |priteOp",24+256,|
000020b0  69 73 70 72 69 74 65 25  2c 73 70 72 69 74 65 24  |isprite%,sprite$|
000020c0  20 b8 20 2c 2c 69 61 64  64 72 25 0d 0d 8e 36 c8  | . ,,iaddr%...6.|
000020d0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
000020e0  34 2b 32 35 36 2c 6f 73  70 72 69 74 65 25 2c 73  |4+256,osprite%,s|
000020f0  70 72 69 74 65 24 20 b8  20 2c 2c 6f 61 64 64 72  |prite$ . ,,oaddr|
00002100  25 0d 0d 98 40 e7 20 70  61 6c 65 74 74 65 25 20  |%...@. palette% |
00002110  8c 20 f2 63 6f 70 79 70  61 6c 65 74 74 65 28 69  |. .copypalette(i|
00002120  73 70 72 69 74 65 25 2c  73 70 72 69 74 65 24 2c  |sprite%,sprite$,|
00002130  6f 73 70 72 69 74 65 25  2c 73 70 72 69 74 65 24  |osprite%,sprite$|
00002140  29 0d 0d a2 2b c8 99 22  4f 53 5f 53 70 72 69 74  |)...+.."OS_Sprit|
00002150  65 4f 70 22 2c 32 39 2b  32 35 36 2c 6f 73 70 72  |eOp",29+256,ospr|
00002160  69 74 65 25 2c 73 70 72  69 74 65 24 0d 0d ac 0e  |ite%,sprite$....|
00002170  e3 20 74 25 3d 30 20 b8  20 33 0d 0d b6 12 20 20  |. t%=0 . 3....  |
00002180  e3 20 6f 72 64 25 3d 78  20 b8 20 79 0d 0d c0 3e  |. ord%=x . y...>|
00002190  20 20 20 20 21 28 71 75  61 64 25 2b 28 28 74 25  |    !(quad%+((t%|
000021a0  2a 32 2b 6f 72 64 25 29  3c 3c 32 29 29 3d 28 74  |*2+ord%)<<2))=(t|
000021b0  61 67 28 74 25 2c 6f 72  64 25 29 2d 6d 69 6e 28  |ag(t%,ord%)-min(|
000021c0  6f 72 64 25 29 29 2a 32  35 36 0d 0d ca 0c 20 20  |ord%))*256....  |
000021d0  ed 20 6f 72 64 25 0d 0d  d4 08 ed 20 74 25 0d 0d  |. ord%..... t%..|
000021e0  de 0f e7 20 6c 69 6e 65  61 72 25 20 8c 0d 0d e8  |... linear% ....|
000021f0  26 71 75 61 64 25 21 32  34 3d 71 75 61 64 25 21  |&quad%!24=quad%!|
00002200  31 36 2d 28 71 75 61 64  25 21 38 2d 21 71 75 61  |16-(quad%!8-!qua|
00002210  64 25 29 0d 0d f2 28 71  75 61 64 25 21 32 38 3d  |d%)...(quad%!28=|
00002220  71 75 61 64 25 21 32 30  2d 28 71 75 61 64 25 21  |quad%!20-(quad%!|
00002230  31 32 2d 71 75 61 64 25  21 34 29 0d 0d fc 3c c8  |12-quad%!4)...<.|
00002240  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 36  |."OS_SpriteOp",6|
00002250  30 2b 35 31 32 2c 6f 73  70 72 69 74 65 25 2c 6f  |0+512,osprite%,o|
00002260  61 64 64 72 25 20 b8 20  72 30 25 2c 72 31 25 2c  |addr% . r0%,r1%,|
00002270  72 32 25 2c 72 33 25 0d  0e 06 34 c8 99 22 4f 53  |r2%,r3%...4.."OS|
00002280  5f 53 70 72 69 74 65 4f  70 22 2c 35 36 2b 35 31  |_SpriteOp",56+51|
00002290  32 2c 69 73 70 72 69 74  65 25 2c 69 61 64 64 72  |2,isprite%,iaddr|
000022a0  25 2c 31 2c 2c 2c 71 75  61 64 25 0d 0e 10 23 c8  |%,1,,,quad%...#.|
000022b0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 72  |."OS_SpriteOp",r|
000022c0  30 25 2c 72 31 25 2c 72  32 25 2c 72 33 25 0d 0e  |0%,r1%,r2%,r3%..|
000022d0  1a 3c c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.<.."OS_SpriteOp|
000022e0  22 2c 36 31 2b 35 31 32  2c 6f 73 70 72 69 74 65  |",61+512,osprite|
000022f0  25 2c 6f 61 64 64 72 25  20 b8 20 72 30 25 2c 72  |%,oaddr% . r0%,r|
00002300  31 25 2c 72 32 25 2c 72  33 25 0d 0e 24 0e e6 20  |1%,r2%,r3%..$.. |
00002310  30 2c 30 20 c8 9c 20 30  0d 0e 2e 43 c8 93 20 c8  |0,0 .. 0...C.. .|
00002320  90 20 30 2c 30 2c 73 25  28 78 29 3c 3c a4 6d 6f  |. 0,0,s%(x)<<.mo|
00002330  64 65 76 61 72 28 73 70  6d 6f 64 65 25 2c 34 29  |devar(spmode%,4)|
00002340  2c 73 25 28 79 29 3c 3c  a4 6d 6f 64 65 76 61 72  |,s%(y)<<.modevar|
00002350  28 73 70 6d 6f 64 65 25  2c 35 29 0d 0e 38 0d e7  |(spmode%,5)..8..|
00002360  20 6d 61 73 6b 25 20 8c  0d 0e 42 28 20 20 e6 20  | mask% ...B(  . |
00002370  38 2c 31 32 38 2b a4 6d  6f 64 65 76 61 72 28 73  |8,128+.modevar(s|
00002380  70 6d 6f 64 65 25 2c 33  29 20 c8 9c 20 32 35 35  |pmode%,3) .. 255|
00002390  0d 0e 4c 36 20 20 c8 99  22 4f 53 5f 53 70 72 69  |..L6  .."OS_Spri|
000023a0  74 65 4f 70 22 2c 35 35  2b 35 31 32 2c 69 73 70  |teOp",55+512,isp|
000023b0  72 69 74 65 25 2c 69 61  64 64 72 25 2c 31 2c 2c  |rite%,iaddr%,1,,|
000023c0  2c 71 75 61 64 25 0d 0e  56 05 cc 0d 0e 60 24 20  |,quad%..V....`$ |
000023d0  20 e6 20 30 2c a4 6d 6f  64 65 76 61 72 28 73 70  | . 0,.modevar(sp|
000023e0  6d 6f 64 65 25 2c 33 29  20 c8 9c 20 32 35 35 0d  |mode%,3) .. 255.|
000023f0  0e 6a 1f 20 20 ec 20 71  75 61 64 25 21 32 34 3e  |.j.  . quad%!24>|
00002400  3e 38 2c 71 75 61 64 25  21 32 38 3e 3e 38 0d 0e  |>8,quad%!28>>8..|
00002410  74 1c 20 20 ec 20 21 71  75 61 64 25 3e 3e 38 2c  |t.  . !quad%>>8,|
00002420  71 75 61 64 25 21 34 3e  3e 38 0d 0e 7e 22 20 20  |quad%!4>>8..~"  |
00002430  f0 20 26 37 35 2c 71 75  61 64 25 21 38 3e 3e 38  |. &75,quad%!8>>8|
00002440  2c 71 75 61 64 25 21 31  32 3e 3e 38 0d 0e 88 05  |,quad%!12>>8....|
00002450  cd 0d 0e 92 23 c8 99 22  4f 53 5f 53 70 72 69 74  |....#.."OS_Sprit|
00002460  65 4f 70 22 2c 72 30 25  2c 72 31 25 2c 72 32 25  |eOp",r0%,r1%,r2%|
00002470  2c 72 33 25 0d 0e 9c 05  cc 0d 0e a6 3c c8 99 22  |,r3%........<.."|
00002480  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 36 31 2b  |OS_SpriteOp",61+|
00002490  35 31 32 2c 6f 73 70 72  69 74 65 25 2c 6f 61 64  |512,osprite%,oad|
000024a0  64 72 25 20 b8 20 72 30  25 2c 72 31 25 2c 72 32  |dr% . r0%,r1%,r2|
000024b0  25 2c 72 33 25 0d 0e b0  0e e6 20 30 2c 30 20 c8  |%,r3%..... 0,0 .|
000024c0  9c 20 30 0d 0e ba 43 c8  93 20 c8 90 20 30 2c 30  |. 0...C.. .. 0,0|
000024d0  2c 73 25 28 78 29 3c 3c  a4 6d 6f 64 65 76 61 72  |,s%(x)<<.modevar|
000024e0  28 73 70 6d 6f 64 65 25  2c 34 29 2c 73 25 28 79  |(spmode%,4),s%(y|
000024f0  29 3c 3c a4 6d 6f 64 65  76 61 72 28 73 70 6d 6f  |)<<.modevar(spmo|
00002500  64 65 25 2c 35 29 0d 0e  c4 23 c8 99 22 4f 53 5f  |de%,5)...#.."OS_|
00002510  53 70 72 69 74 65 4f 70  22 2c 72 30 25 2c 72 31  |SpriteOp",r0%,r1|
00002520  25 2c 72 32 25 2c 72 33  25 0d 0e ce 0e e3 20 74  |%,r2%,r3%..... t|
00002530  25 3d 30 20 b8 20 33 0d  0e d8 3b 20 20 78 64 69  |%=0 . 3...;  xdi|
00002540  66 66 25 3d 28 21 28 71  75 61 64 25 2b 28 74 25  |ff%=(!(quad%+(t%|
00002550  3c 3c 33 29 29 2d 21 28  71 75 61 64 25 2b 28 28  |<<3))-!(quad%+((|
00002560  28 74 25 2b 31 29 80 33  29 3c 3c 33 29 29 29 3e  |(t%+1).3)<<3)))>|
00002570  3e 38 0d 0e e2 3f 20 20  79 64 69 66 66 25 3d 28  |>8...?  ydiff%=(|
00002580  21 28 71 75 61 64 25 2b  34 2b 28 74 25 3c 3c 33  |!(quad%+4+(t%<<3|
00002590  29 29 2d 21 28 71 75 61  64 25 2b 34 2b 28 28 28  |))-!(quad%+4+(((|
000025a0  74 25 2b 31 29 80 33 29  3c 3c 33 29 29 29 3e 3e  |t%+1).3)<<3)))>>|
000025b0  38 0d 0e ec 23 20 20 6c  65 6e 25 28 74 25 29 3d  |8...#  len%(t%)=|
000025c0  b6 28 78 64 69 66 66 25  5e 32 2b 79 64 69 66 66  |.(xdiff%^2+ydiff|
000025d0  25 5e 32 29 0d 0e f6 08  ed 20 74 25 0d 0f 00 39  |%^2)..... t%...9|
000025e0  e7 20 6c 65 6e 25 28 30  29 3e 6c 65 6e 25 28 32  |. len%(0)>len%(2|
000025f0  29 20 8c 20 6d 61 78 31  25 3d 6c 65 6e 25 28 30  |) . max1%=len%(0|
00002600  29 20 8b 20 6d 61 78 31  25 3d 6c 65 6e 25 28 32  |) . max1%=len%(2|
00002610  29 2a 31 2e 31 0d 0f 0a  39 e7 20 6c 65 6e 25 28  |)*1.1...9. len%(|
00002620  31 29 3e 6c 65 6e 25 28  33 29 20 8c 20 6d 61 78  |1)>len%(3) . max|
00002630  32 25 3d 6c 65 6e 25 28  31 29 20 8b 20 6d 61 78  |2%=len%(1) . max|
00002640  32 25 3d 6c 65 6e 25 28  33 29 2a 31 2e 31 0d 0f  |2%=len%(3)*1.1..|
00002650  14 15 21 69 73 70 72 69  74 65 3d 69 73 70 72 69  |..!isprite=ispri|
00002660  74 65 25 0d 0f 1e 15 21  6f 73 70 72 69 74 65 3d  |te%....!osprite=|
00002670  6f 73 70 72 69 74 65 25  0d 0f 28 11 21 69 61 64  |osprite%..(.!iad|
00002680  64 72 3d 69 61 64 64 72  25 0d 0f 32 11 21 6f 61  |dr=iaddr%..2.!oa|
00002690  64 64 72 3d 6f 61 64 64  72 25 0d 0f 3c 35 6d 76  |ddr=oaddr%..<5mv|
000026a0  34 25 3d a4 6d 6f 64 65  76 61 72 28 73 70 6d 6f  |4%=.modevar(spmo|
000026b0  64 65 25 2c 34 29 3a 6d  76 35 25 3d a4 6d 6f 64  |de%,4):mv5%=.mod|
000026c0  65 76 61 72 28 73 70 6d  6f 64 65 25 2c 35 29 0d  |evar(spmode%,5).|
000026d0  0f 46 26 21 78 64 31 3d  28 71 75 61 64 25 21 31  |.F&!xd1=(quad%!1|
000026e0  36 2d 71 75 61 64 25 21  32 34 29 3e 3e 28 6d 76  |6-quad%!24)>>(mv|
000026f0  34 25 2b 38 29 0d 0f 50  20 21 78 64 32 3d 28 21  |4%+8)..P !xd2=(!|
00002700  71 75 61 64 25 2d 71 75  61 64 25 21 32 34 29 3e  |quad%-quad%!24)>|
00002710  3e 6d 76 34 25 0d 0f 5a  23 21 78 64 33 3d 28 71  |>mv4%..Z#!xd3=(q|
00002720  75 61 64 25 21 38 2d 21  71 75 61 64 25 29 3e 3e  |uad%!8-!quad%)>>|
00002730  28 6d 76 34 25 2b 38 29  0d 0f 64 1c 21 6f 78 3d  |(mv4%+8)..d.!ox=|
00002740  28 71 75 61 64 25 21 32  34 29 3c 3c 28 38 2d 6d  |(quad%!24)<<(8-m|
00002750  76 34 25 29 0d 0f 6e 26  21 79 64 31 3d 28 71 75  |v4%)..n&!yd1=(qu|
00002760  61 64 25 21 32 30 2d 71  75 61 64 25 21 32 38 29  |ad%!20-quad%!28)|
00002770  3e 3e 28 6d 76 35 25 2b  38 29 0d 0f 78 21 21 79  |>>(mv5%+8)..x!!y|
00002780  64 32 3d 28 71 75 61 64  25 21 34 2d 71 75 61 64  |d2=(quad%!4-quad|
00002790  25 21 32 38 29 3e 3e 6d  76 35 25 0d 0f 82 25 21  |%!28)>>mv5%...%!|
000027a0  79 64 33 3d 28 71 75 61  64 25 21 31 32 2d 71 75  |yd3=(quad%!12-qu|
000027b0  61 64 25 21 34 29 3e 3e  28 6d 76 35 25 2b 38 29  |ad%!4)>>(mv5%+8)|
000027c0  0d 0f 8c 1c 21 6f 79 3d  28 71 75 61 64 25 21 32  |....!oy=(quad%!2|
000027d0  38 29 3c 3c 28 38 2d 6d  76 35 25 29 0d 0f 96 1f  |8)<<(8-mv5%)....|
000027e0  21 73 74 65 70 31 3d 28  31 3c 3c 28 31 36 2b 6d  |!step1=(1<<(16+m|
000027f0  76 34 25 29 29 2f 6d 61  78 31 25 0d 0f a0 1f 21  |v4%))/max1%....!|
00002800  73 74 65 70 32 3d 28 31  3c 3c 28 31 36 2b 6d 76  |step2=(1<<(16+mv|
00002810  34 25 29 29 2f 6d 61 78  32 25 0d 0f aa 0b 21 73  |4%))/max2%....!s|
00002820  78 3d 73 78 25 0d 0f b4  0b 21 73 79 3d 73 79 25  |x=sx%....!sy=sy%|
00002830  0d 0f be 0b d6 20 63 6f  64 65 25 0d 0f c8 05 cd  |..... code%.....|
00002840  0d 0f d2 12 73 70 72 69  74 65 78 3d 6d 69 6e 28  |....spritex=min(|
00002850  78 29 0d 0f dc 12 73 70  72 69 74 65 79 3d 6d 69  |x)....spritey=mi|
00002860  6e 28 79 29 0d 0f e6 1b  f2 66 6f 72 63 65 72 65  |n(y).....forcere|
00002870  64 72 61 77 28 77 25 28  6d 61 69 6e 25 29 29 0d  |draw(w%(main%)).|
00002880  0f f0 05 cd 0d 0f fa 15  c8 99 22 48 6f 75 72 67  |.........."Hourg|
00002890  6c 61 73 73 5f 4f 66 66  22 0d 10 04 05 e1 0d 10  |lass_Off".......|
000028a0  0e 04 0d 10 18 09 dd 20  f2 6d 63 0d 10 22 10 de  |....... .mc.."..|
000028b0  20 63 6f 64 65 25 20 32  30 30 30 0d 10 2c 14 e3  | code% 2000..,..|
000028c0  20 70 61 73 73 3d 30 20  b8 20 32 20 88 20 32 0d  | pass=0 . 2 . 2.|
000028d0  10 36 0c 50 25 3d 63 6f  64 65 25 0d 10 40 0f 6f  |.6.P%=code%..@.o|
000028e0  6e 65 31 36 3d 31 3c 3c  31 36 0d 10 4a 64 73 61  |ne16=1<<16..Jdsa|
000028f0  72 65 61 3d 31 3a 73 70  6f 69 6e 74 65 72 3d 32  |rea=1:spointer=2|
00002900  3a 73 70 72 69 74 65 78  3d 33 3a 73 70 72 69 74  |:spritex=3:sprit|
00002910  65 79 3d 34 3a 63 6f 6c  3d 35 3a 74 69 6e 74 3d  |ey=4:col=5:tint=|
00002920  36 3a 74 31 3d 37 3a 74  32 3d 38 3a 74 65 6d 70  |6:t1=7:t2=8:temp|
00002930  31 3d 39 3a 74 65 6d 70  32 3d 31 30 3a 74 65 6d  |1=9:temp2=10:tem|
00002940  70 33 3d 31 31 3a 74 65  6d 70 34 3d 31 32 0d 10  |p3=11:temp4=12..|
00002950  54 0d 5b 4f 50 54 20 70  61 73 73 0d 10 5e 0d 4d  |T.[OPT pass..^.M|
00002960  4f 56 20 74 31 2c 23 30  0d 10 68 0a 2e 6c 6f 6f  |OV t1,#0..h..loo|
00002970  70 31 0d 10 72 0f 4d 4f  56 20 52 31 2c 23 31 30  |p1..r.MOV R1,#10|
00002980  30 0d 10 7c 10 4d 55 4c  20 52 30 2c 74 31 2c 52  |0..|.MUL R0,t1,R|
00002990  31 0d 10 86 14 4d 4f 56  20 52 30 2c 52 30 2c 41  |1....MOV R0,R0,A|
000029a0  53 52 23 31 36 0d 10 90  1e 53 57 49 20 22 48 6f  |SR#16....SWI "Ho|
000029b0  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
000029c0  67 65 22 0d 10 9a 11 4c  44 52 20 74 65 6d 70 31  |ge"....LDR temp1|
000029d0  2c 78 64 31 0d 10 a4 16  4d 55 4c 20 74 65 6d 70  |,xd1....MUL temp|
000029e0  32 2c 74 31 2c 74 65 6d  70 31 0d 10 ae 11 53 54  |2,t1,temp1....ST|
000029f0  52 20 74 65 6d 70 32 2c  78 66 31 0d 10 b8 11 4c  |R temp2,xf1....L|
00002a00  44 52 20 74 65 6d 70 31  2c 78 64 33 0d 10 c2 16  |DR temp1,xd3....|
00002a10  4d 55 4c 20 74 65 6d 70  33 2c 74 65 6d 70 31 2c  |MUL temp3,temp1,|
00002a20  74 31 0d 10 cc 19 53 55  42 20 74 65 6d 70 31 2c  |t1....SUB temp1,|
00002a30  74 65 6d 70 33 2c 74 65  6d 70 32 0d 10 d6 19 4d  |temp3,temp2....M|
00002a40  4f 56 20 74 65 6d 70 31  2c 74 65 6d 70 31 2c 41  |OV temp1,temp1,A|
00002a50  53 52 23 38 0d 10 e0 11  4c 44 52 20 74 65 6d 70  |SR#8....LDR temp|
00002a60  32 2c 78 64 32 0d 10 ea  19 41 44 44 20 74 65 6d  |2,xd2....ADD tem|
00002a70  70 31 2c 74 65 6d 70 31  2c 74 65 6d 70 32 0d 10  |p1,temp1,temp2..|
00002a80  f4 11 53 54 52 20 74 65  6d 70 31 2c 78 66 32 0d  |..STR temp1,xf2.|
00002a90  10 fe 11 4c 44 52 20 74  65 6d 70 31 2c 79 64 31  |...LDR temp1,yd1|
00002aa0  0d 11 08 16 4d 55 4c 20  74 65 6d 70 32 2c 74 31  |....MUL temp2,t1|
00002ab0  2c 74 65 6d 70 31 0d 11  12 11 53 54 52 20 74 65  |,temp1....STR te|
00002ac0  6d 70 32 2c 79 66 31 0d  11 1c 11 4c 44 52 20 74  |mp2,yf1....LDR t|
00002ad0  65 6d 70 31 2c 79 64 33  0d 11 26 16 4d 55 4c 20  |emp1,yd3..&.MUL |
00002ae0  74 65 6d 70 33 2c 74 65  6d 70 31 2c 74 31 0d 11  |temp3,temp1,t1..|
00002af0  30 19 53 55 42 20 74 65  6d 70 31 2c 74 65 6d 70  |0.SUB temp1,temp|
00002b00  33 2c 74 65 6d 70 32 0d  11 3a 19 4d 4f 56 20 74  |3,temp2..:.MOV t|
00002b10  65 6d 70 31 2c 74 65 6d  70 31 2c 41 53 52 23 38  |emp1,temp1,ASR#8|
00002b20  0d 11 44 11 4c 44 52 20  74 65 6d 70 32 2c 79 64  |..D.LDR temp2,yd|
00002b30  32 0d 11 4e 19 41 44 44  20 74 65 6d 70 31 2c 74  |2..N.ADD temp1,t|
00002b40  65 6d 70 31 2c 74 65 6d  70 32 0d 11 58 11 53 54  |emp1,temp2..X.ST|
00002b50  52 20 74 65 6d 70 31 2c  79 66 32 0d 11 62 10 4c  |R temp1,yf2..b.L|
00002b60  44 52 20 74 65 6d 70 31  2c 73 78 0d 11 6c 16 4d  |DR temp1,sx..l.M|
00002b70  55 4c 20 74 65 6d 70 32  2c 74 65 6d 70 31 2c 74  |UL temp2,temp1,t|
00002b80  31 0d 11 76 1a 4d 4f 56  20 74 65 6d 70 32 2c 74  |1..v.MOV temp2,t|
00002b90  65 6d 70 32 2c 41 53 52  23 31 36 0d 11 80 11 53  |emp2,ASR#16....S|
00002ba0  54 52 20 74 65 6d 70 32  2c 73 70 78 0d 11 8a 0d  |TR temp2,spx....|
00002bb0  4d 4f 56 20 74 32 2c 23  30 0d 11 94 0a 2e 6c 6f  |MOV t2,#0.....lo|
00002bc0  6f 70 32 0d 11 9e 11 4c  44 52 20 74 65 6d 70 31  |op2....LDR temp1|
00002bd0  2c 78 66 32 0d 11 a8 13  4d 4f 56 20 52 30 2c 74  |,xf2....MOV R0,t|
00002be0  32 2c 41 53 52 23 34 0d  11 b2 16 4d 55 4c 20 74  |2,ASR#4....MUL t|
00002bf0  65 6d 70 32 2c 74 65 6d  70 31 2c 52 30 0d 11 bc  |emp2,temp1,R0...|
00002c00  19 4d 4f 56 20 74 65 6d  70 32 2c 74 65 6d 70 32  |.MOV temp2,temp2|
00002c10  2c 41 53 52 23 34 0d 11  c6 11 4c 44 52 20 74 65  |,ASR#4....LDR te|
00002c20  6d 70 31 2c 78 66 31 0d  11 d0 19 41 44 44 20 74  |mp1,xf1....ADD t|
00002c30  65 6d 70 32 2c 74 65 6d  70 32 2c 74 65 6d 70 31  |emp2,temp2,temp1|
00002c40  0d 11 da 10 4c 44 52 20  74 65 6d 70 31 2c 6f 78  |....LDR temp1,ox|
00002c50  0d 11 e4 19 41 44 44 20  74 65 6d 70 32 2c 74 65  |....ADD temp2,te|
00002c60  6d 70 32 2c 74 65 6d 70  31 0d 11 ee 1a 4d 4f 56  |mp2,temp1....MOV|
00002c70  20 74 65 6d 70 33 2c 74  65 6d 70 32 2c 41 53 52  | temp3,temp2,ASR|
00002c80  23 31 36 0d 11 f8 11 4c  44 52 20 74 65 6d 70 31  |#16....LDR temp1|
00002c90  2c 79 66 32 0d 12 02 16  4d 55 4c 20 74 65 6d 70  |,yf2....MUL temp|
00002ca0  32 2c 74 65 6d 70 31 2c  52 30 0d 12 0c 19 4d 4f  |2,temp1,R0....MO|
00002cb0  56 20 74 65 6d 70 32 2c  74 65 6d 70 32 2c 41 53  |V temp2,temp2,AS|
00002cc0  52 23 34 0d 12 16 11 4c  44 52 20 74 65 6d 70 31  |R#4....LDR temp1|
00002cd0  2c 79 66 31 0d 12 20 19  41 44 44 20 74 65 6d 70  |,yf1.. .ADD temp|
00002ce0  32 2c 74 65 6d 70 32 2c  74 65 6d 70 31 0d 12 2a  |2,temp2,temp1..*|
00002cf0  10 4c 44 52 20 74 65 6d  70 31 2c 6f 79 0d 12 34  |.LDR temp1,oy..4|
00002d00  19 41 44 44 20 74 65 6d  70 32 2c 74 65 6d 70 32  |.ADD temp2,temp2|
00002d10  2c 74 65 6d 70 31 0d 12  3e 1a 4d 4f 56 20 74 65  |,temp1..>.MOV te|
00002d20  6d 70 34 2c 74 65 6d 70  32 2c 41 53 52 23 31 36  |mp4,temp2,ASR#16|
00002d30  0d 12 48 10 4c 44 52 20  74 65 6d 70 31 2c 73 79  |..H.LDR temp1,sy|
00002d40  0d 12 52 16 4d 55 4c 20  74 65 6d 70 32 2c 74 65  |..R.MUL temp2,te|
00002d50  6d 70 31 2c 74 32 0d 12  5c 1c 4d 4f 56 20 73 70  |mp1,t2..\.MOV sp|
00002d60  72 69 74 65 79 2c 74 65  6d 70 32 2c 41 53 52 23  |ritey,temp2,ASR#|
00002d70  31 36 0d 12 66 13 4c 44  52 20 73 70 72 69 74 65  |16..f.LDR sprite|
00002d80  78 2c 73 70 78 0d 12 70  0f 4d 4f 56 20 52 30 2c  |x,spx..p.MOV R0,|
00002d90  23 35 31 32 0d 12 7a 11  41 44 44 20 52 30 2c 52  |#512..z.ADD R0,R|
00002da0  30 2c 23 34 33 0d 12 84  15 4c 44 52 20 73 61 72  |0,#43....LDR sar|
00002db0  65 61 2c 69 73 70 72 69  74 65 0d 12 8e 16 4c 44  |ea,isprite....LD|
00002dc0  52 20 73 70 6f 69 6e 74  65 72 2c 69 61 64 64 72  |R spointer,iaddr|
00002dd0  0d 12 98 15 53 57 49 20  22 4f 53 5f 53 70 72 69  |....SWI "OS_Spri|
00002de0  74 65 4f 70 22 0d 12 a2  0d 43 4d 50 20 52 35 2c  |teOp"....CMP R5,|
00002df0  23 30 0d 12 ac 0f 42 45  51 20 65 6e 64 6c 6f 6f  |#0....BEQ endloo|
00002e00  70 0d 12 b6 0f 4d 4f 56  20 52 30 2c 23 35 31 32  |p....MOV R0,#512|
00002e10  0d 12 c0 11 41 44 44 20  52 30 2c 52 30 2c 23 34  |....ADD R0,R0,#4|
00002e20  31 0d 12 ca 15 53 57 49  20 22 4f 53 5f 53 70 72  |1....SWI "OS_Spr|
00002e30  69 74 65 4f 70 22 0d 12  d4 0f 4d 4f 56 20 52 30  |iteOp"....MOV R0|
00002e40  2c 23 35 31 32 0d 12 de  11 41 44 44 20 52 30 2c  |,#512....ADD R0,|
00002e50  52 30 2c 23 34 32 0d 12  e8 15 4c 44 52 20 73 61  |R0,#42....LDR sa|
00002e60  72 65 61 2c 6f 73 70 72  69 74 65 0d 12 f2 16 4c  |rea,osprite....L|
00002e70  44 52 20 73 70 6f 69 6e  74 65 72 2c 6f 61 64 64  |DR spointer,oadd|
00002e80  72 0d 12 fc 15 4d 4f 56  20 73 70 72 69 74 65 78  |r....MOV spritex|
00002e90  2c 74 65 6d 70 33 0d 13  06 15 4d 4f 56 20 73 70  |,temp3....MOV sp|
00002ea0  72 69 74 65 79 2c 74 65  6d 70 34 0d 13 10 15 53  |ritey,temp4....S|
00002eb0  57 49 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |WI "OS_SpriteOp"|
00002ec0  0d 13 1a 0f 4d 4f 56 20  52 30 2c 23 35 31 32 0d  |....MOV R0,#512.|
00002ed0  13 24 11 41 44 44 20 52  30 2c 52 30 2c 23 34 34  |.$.ADD R0,R0,#44|
00002ee0  0d 13 2e 0d 4d 4f 56 20  52 35 2c 23 31 0d 13 38  |....MOV R5,#1..8|
00002ef0  15 53 57 49 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.SWI "OS_SpriteO|
00002f00  70 22 0d 13 42 0c 2e 65  6e 64 6c 6f 6f 70 0d 13  |p"..B..endloop..|
00002f10  4c 13 4c 44 52 20 74 65  6d 70 32 2c 73 74 65 70  |L.LDR temp2,step|
00002f20  32 0d 13 56 13 41 44 44  20 74 32 2c 74 32 2c 74  |2..V.ADD t2,t2,t|
00002f30  65 6d 70 32 0d 13 60 11  43 4d 50 20 74 32 2c 23  |emp2..`.CMP t2,#|
00002f40  6f 6e 65 31 36 0d 13 6a  0d 42 4c 54 20 6c 6f 6f  |one16..j.BLT loo|
00002f50  70 32 0d 13 74 13 4c 44  52 20 74 65 6d 70 31 2c  |p2..t.LDR temp1,|
00002f60  73 74 65 70 31 0d 13 7e  13 41 44 44 20 74 31 2c  |step1..~.ADD t1,|
00002f70  74 31 2c 74 65 6d 70 31  0d 13 88 11 43 4d 50 20  |t1,temp1....CMP |
00002f80  74 31 2c 23 6f 6e 65 31  36 0d 13 92 0d 42 4c 54  |t1,#one16....BLT|
00002f90  20 6c 6f 6f 70 31 0d 13  9c 0e 4d 4f 56 20 50 43  | loop1....MOV PC|
00002fa0  2c 52 31 34 0d 13 a6 0f  2e 78 64 31 3a 45 51 55  |,R14.....xd1:EQU|
00002fb0  44 20 30 0d 13 b0 0f 2e  78 64 32 3a 45 51 55 44  |D 0.....xd2:EQUD|
00002fc0  20 30 0d 13 ba 0f 2e 78  64 33 3a 45 51 55 44 20  | 0.....xd3:EQUD |
00002fd0  30 0d 13 c4 0e 2e 6f 78  3a 45 51 55 44 20 30 0d  |0.....ox:EQUD 0.|
00002fe0  13 ce 0f 2e 79 64 31 3a  45 51 55 44 20 30 0d 13  |....yd1:EQUD 0..|
00002ff0  d8 0f 2e 79 64 32 3a 45  51 55 44 20 30 0d 13 e2  |...yd2:EQUD 0...|
00003000  0f 2e 79 64 33 3a 45 51  55 44 20 30 0d 13 ec 0e  |..yd3:EQUD 0....|
00003010  2e 6f 79 3a 45 51 55 44  20 30 0d 13 f6 11 2e 73  |.oy:EQUD 0.....s|
00003020  74 65 70 31 3a 45 51 55  44 20 30 0d 14 00 11 2e  |tep1:EQUD 0.....|
00003030  73 74 65 70 32 3a 45 51  55 44 20 30 0d 14 0a 10  |step2:EQUD 0....|
00003040  2e 6d 61 73 6b 3a 45 51  55 44 20 30 0d 14 14 0f  |.mask:EQUD 0....|
00003050  2e 78 66 31 3a 45 51 55  44 20 30 0d 14 1e 0f 2e  |.xf1:EQUD 0.....|
00003060  78 66 32 3a 45 51 55 44  20 30 0d 14 28 0f 2e 79  |xf2:EQUD 0..(..y|
00003070  66 31 3a 45 51 55 44 20  30 0d 14 32 0f 2e 79 66  |f1:EQUD 0..2..yf|
00003080  32 3a 45 51 55 44 20 30  0d 14 3c 0f 2e 73 70 78  |2:EQUD 0..<..spx|
00003090  3a 45 51 55 44 20 30 0d  14 46 0f 2e 73 70 79 3a  |:EQUD 0..F..spy:|
000030a0  45 51 55 44 20 30 0d 14  50 0e 2e 73 78 3a 45 51  |EQUD 0..P..sx:EQ|
000030b0  55 44 20 30 0d 14 5a 0e  2e 73 79 3a 45 51 55 44  |UD 0..Z..sy:EQUD|
000030c0  20 30 0d 14 64 13 2e 69  73 70 72 69 74 65 3a 45  | 0..d..isprite:E|
000030d0  51 55 44 20 30 0d 14 6e  13 2e 6f 73 70 72 69 74  |QUD 0..n..osprit|
000030e0  65 3a 45 51 55 44 20 30  0d 14 78 11 2e 69 61 64  |e:EQUD 0..x..iad|
000030f0  64 72 3a 45 51 55 44 20  30 0d 14 82 11 2e 6f 61  |dr:EQUD 0.....oa|
00003100  64 64 72 3a 45 51 55 44  20 30 0d 14 8c 05 5d 0d  |ddr:EQUD 0....].|
00003110  14 96 0a ed 20 70 61 73  73 0d 14 a0 05 e1 0d 14  |.... pass.......|
00003120  aa 04 0d 14 b4 23 f4 20  2d 2d 2d 2d 57 49 4d 50  |.....#. ----WIMP|
00003130  20 4c 69 62 72 61 72 79  20 72 6f 75 74 69 6e 65  | Library routine|
00003140  73 2d 2d 2d 2d 0d 14 be  04 0d 14 c8 25 dd 20 f2  |s----.......%. .|
00003150  6e 65 77 73 70 72 69 74  65 61 72 65 61 28 f8 20  |newspritearea(. |
00003160  73 70 72 69 74 65 25 2c  73 69 7a 65 25 29 0d 14  |sprite%,size%)..|
00003170  d2 26 e7 20 73 70 72 69  74 65 25 3e 2d 31 20 8c  |.&. sprite%>-1 .|
00003180  20 f2 6c 6f 73 65 62 6c  6f 63 6b 28 73 70 72 69  | .loseblock(spri|
00003190  74 65 25 29 0d 14 dc 1f  73 70 72 69 74 65 25 3d  |te%)....sprite%=|
000031a0  a4 67 65 74 62 6c 6f 63  6b 28 73 69 7a 65 25 2b  |.getblock(size%+|
000031b0  31 36 29 0d 14 e6 12 e7  20 73 70 72 69 74 65 25  |16)..... sprite%|
000031c0  3e 2d 31 20 8c 0d 14 f0  15 21 73 70 72 69 74 65  |>-1 .....!sprite|
000031d0  25 3d 73 69 7a 65 25 2b  31 36 0d 14 fa 0f 73 70  |%=size%+16....sp|
000031e0  72 69 74 65 25 21 34 3d  30 0d 15 04 10 73 70 72  |rite%!4=0....spr|
000031f0  69 74 65 25 21 38 3d 31  36 0d 15 0e 11 73 70 72  |ite%!8=16....spr|
00003200  69 74 65 25 21 31 32 3d  31 36 0d 15 18 05 cd 0d  |ite%!12=16......|
00003210  15 22 05 e1 0d 15 2c 04  0d 15 36 20 f4 20 3d 3d  |."....,...6 . ==|
00003220  3d 3d 20 6d 65 73 73 61  67 65 20 72 6f 75 74 69  |== message routi|
00003230  6e 65 73 20 3d 3d 3d 3d  0d 15 40 04 0d 15 4a 17  |nes ====..@...J.|
00003240  dd 20 f2 70 6f 6c 6c 28  70 6f 6c 6c 66 6c 61 67  |. .poll(pollflag|
00003250  73 25 29 0d 15 54 2b c8  99 22 57 69 6d 70 5f 50  |s%)..T+.."Wimp_P|
00003260  6f 6c 6c 22 2c 70 6f 6c  6c 66 6c 61 67 73 25 2c  |oll",pollflags%,|
00003270  62 6c 6b 25 20 b8 20 72  65 61 73 6f 6e 25 0d 15  |blk% . reason%..|
00003280  5e 10 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 15  |^... reason% ...|
00003290  68 0f 20 20 c9 20 30 3a  f2 6e 75 6c 6c 0d 15 72  |h.  . 0:.null..r|
000032a0  11 20 20 c9 20 31 3a f2  72 65 64 72 61 77 0d 15  |.  . 1:.redraw..|
000032b0  7c 15 20 20 c9 20 32 3a  f2 6f 70 65 6e 77 69 6e  ||.  . 2:.openwin|
000032c0  64 6f 77 0d 15 86 1d 20  20 c9 20 33 3a f2 63 6c  |dow....  . 3:.cl|
000032d0  6f 73 65 77 69 6e 64 6f  77 28 21 62 6c 6b 25 29  |osewindow(!blk%)|
000032e0  0d 15 90 1b 20 20 c9 20  34 3a f4 20 70 6f 69 6e  |....  . 4:. poin|
000032f0  74 65 72 20 6c 65 61 76  69 6e 67 0d 15 9a 1c 20  |ter leaving.... |
00003300  20 c9 20 35 3a f4 20 70  6f 69 6e 74 65 72 20 65  | . 5:. pointer e|
00003310  6e 74 65 72 69 6e 67 0d  15 a4 35 20 20 c9 20 36  |ntering...5  . 6|
00003320  3a f2 63 6c 69 63 6b 28  21 62 6c 6b 25 2c 62 6c  |:.click(!blk%,bl|
00003330  6b 25 21 34 2c 62 6c 6b  25 21 38 2c 62 6c 6b 25  |k%!4,blk%!8,blk%|
00003340  21 31 32 2c 62 6c 6b 25  21 31 36 29 0d 15 ae 12  |!12,blk%!16)....|
00003350  20 20 c9 20 37 3a f2 65  6e 64 64 72 61 67 0d 15  |  . 7:.enddrag..|
00003360  b8 2b 20 20 c9 20 38 3a  f2 6b 65 79 28 21 62 6c  |.+  . 8:.key(!bl|
00003370  6b 25 2c 62 6c 6b 25 21  34 2c 62 6c 6b 25 21 38  |k%,blk%!4,blk%!8|
00003380  2c 62 6c 6b 25 21 32 34  29 0d 15 c2 15 20 20 c9  |,blk%!24)....  .|
00003390  20 39 3a f2 6d 65 6e 75  73 65 6c 65 63 74 0d 15  | 9:.menuselect..|
000033a0  cc 1b 20 20 c9 20 31 30  3a f4 20 73 63 72 6f 6c  |..  . 10:. scrol|
000033b0  6c 20 72 65 71 75 65 73  74 0d 15 d6 15 20 20 c9  |l request....  .|
000033c0  20 31 31 3a 6d 79 63 61  72 65 74 25 3d a3 0d 15  | 11:mycaret%=...|
000033d0  e0 15 20 20 c9 20 31 32  3a 6d 79 63 61 72 65 74  |..  . 12:mycaret|
000033e0  25 3d b9 0d 15 ea 2d 20  20 c9 20 31 37 2c 31 38  |%=....-  . 17,18|
000033f0  3a f2 6d 65 73 73 61 67  65 28 62 6c 6b 25 21 34  |:.message(blk%!4|
00003400  2c 62 6c 6b 25 21 38 2c  62 6c 6b 25 21 31 36 29  |,blk%!8,blk%!16)|
00003410  0d 15 f4 05 cb 0d 15 fe  05 e1 0d 16 08 04 0d 16  |................|
00003420  12 23 dd 20 f2 6d 65 73  73 61 67 65 28 74 61 73  |.#. .message(tas|
00003430  6b 25 2c 72 65 66 25 2c  6d 65 73 73 61 67 65 25  |k%,ref%,message%|
00003440  29 0d 16 1c 39 e7 20 73  74 61 74 75 73 25 3e 30  |)...9. status%>0|
00003450  20 80 20 6d 65 73 73 61  67 65 25 3e 3d 31 20 80  | . message%>=1 .|
00003460  20 6d 65 73 73 61 67 65  25 3c 3d 37 20 8c 20 6d  | message%<=7 . m|
00003470  65 73 73 61 67 65 25 3d  2d 31 0d 16 26 11 c8 8e  |essage%=-1..&...|
00003480  20 6d 65 73 73 61 67 65  25 20 ca 0d 16 30 11 20  | message% ...0. |
00003490  20 c9 20 30 20 3a 20 f2  71 75 69 74 0d 16 3a 09  | . 0 : .quit..:.|
000034a0  20 20 c9 20 31 0d 16 44  19 20 20 20 20 66 69 6c  |  . 1..D.    fil|
000034b0  65 74 79 70 65 25 3d 62  6c 6b 25 21 34 30 0d 16  |etype%=blk%!40..|
000034c0  4e 20 20 20 20 20 e7 20  a4 66 69 6c 65 6f 6b 61  |N     . .fileoka|
000034d0  79 28 66 69 6c 65 74 79  70 65 25 29 20 8c 0d 16  |y(filetype%) ...|
000034e0  58 13 20 20 20 20 20 20  69 74 72 61 6e 73 25 3d  |X.      itrans%=|
000034f0  30 0d 16 62 17 20 20 20  20 20 20 73 69 7a 65 25  |0..b.      size%|
00003500  3d 62 6c 6b 25 21 33 36  0d 16 6c 20 20 20 20 20  |=blk%!36..l     |
00003510  20 20 66 69 6c 65 24 3d  a4 73 74 72 69 6e 67 28  |  file$=.string(|
00003520  62 6c 6b 25 2b 34 34 29  0d 16 76 31 20 20 20 20  |blk%+44)..v1    |
00003530  20 20 62 6c 6b 25 21 32  30 3d a0 28 22 46 4e 74  |  blk%!20=.("FNt|
00003540  72 61 6e 73 62 6c 6f 63  6b 22 2b c3 7e 28 66 69  |ransblock"+.~(fi|
00003550  6c 65 74 79 70 65 25 29  29 0d 16 80 17 20 20 20  |letype%))....   |
00003560  20 20 20 62 6c 6b 25 21  32 34 3d 73 69 7a 65 25  |   blk%!24=size%|
00003570  0d 16 8a 16 20 20 20 20  20 20 f2 72 65 70 6c 79  |....      .reply|
00003580  28 31 38 2c 36 29 0d 16  94 09 20 20 20 20 cd 0d  |(18,6)....    ..|
00003590  16 9e 09 20 20 c9 20 32  0d 16 a8 31 20 20 20 20  |...  . 2...1    |
000035a0  f2 73 61 76 65 28 64 72  61 67 69 64 25 2c a4 73  |.save(dragid%,.s|
000035b0  74 72 69 6e 67 28 62 6c  6b 25 2b 34 34 29 2c 70  |tring(blk%+44),p|
000035c0  72 65 70 61 72 65 64 25  29 0d 16 b2 3f 20 20 20  |repared%)...?   |
000035d0  20 e7 20 73 61 76 65 64  25 20 8c 20 f2 74 65 6c  | . saved% . .tel|
000035e0  6c 74 6f 6c 6f 61 64 20  8b 20 f2 72 65 70 6f 72  |ltoload . .repor|
000035f0  74 28 22 43 6f 75 6c 64  20 6e 6f 74 20 73 61 76  |t("Could not sav|
00003600  65 20 66 69 6c 65 22 29  0d 16 bc 2b 20 20 c9 20  |e file")...+  . |
00003610  33 20 3a 20 f2 6c 6f 61  64 28 a4 73 74 72 69 6e  |3 : .load(.strin|
00003620  67 28 62 6c 6b 25 2b 34  34 29 2c 62 6c 6b 25 21  |g(blk%+44),blk%!|
00003630  34 30 29 0d 16 c6 2b 20  20 c9 20 35 20 3a 20 f2  |40)...+  . 5 : .|
00003640  6c 6f 61 64 28 a4 73 74  72 69 6e 67 28 62 6c 6b  |load(.string(blk|
00003650  25 2b 34 34 29 2c 62 6c  6b 25 21 34 30 29 0d 16  |%+44),blk%!40)..|
00003660  d0 09 20 20 c9 20 36 0d  16 da 1f 20 20 20 20 74  |..  . 6....    t|
00003670  6f 67 6f 25 3d 66 69 6c  65 73 69 7a 65 25 2d 6f  |ogo%=filesize%-o|
00003680  74 72 61 6e 73 25 0d 16  e4 27 20 20 20 20 e7 20  |trans%...'    . |
00003690  74 6f 67 6f 25 3e 62 6c  6b 25 21 32 34 20 8c 20  |togo%>blk%!24 . |
000036a0  74 6f 67 6f 25 3d 62 6c  6b 25 21 32 34 0d 16 ee  |togo%=blk%!24...|
000036b0  3b 20 20 20 20 e7 20 74  6f 67 6f 25 2b 6f 74 72  |;    . togo%+otr|
000036c0  61 6e 73 25 3e 66 69 6c  65 73 69 7a 65 25 20 8c  |ans%>filesize% .|
000036d0  20 74 6f 67 6f 25 3d 66  69 6c 65 73 69 7a 65 25  | togo%=filesize%|
000036e0  2d 6f 74 72 61 6e 73 25  0d 16 f8 4c 20 20 20 20  |-otrans%...L    |
000036f0  c8 99 22 57 69 6d 70 5f  54 72 61 6e 73 66 65 72  |.."Wimp_Transfer|
00003700  42 6c 6f 63 6b 22 2c 6d  79 74 61 73 6b 25 2c 73  |Block",mytask%,s|
00003710  61 76 65 62 75 66 66 25  2b 6f 74 72 61 6e 73 25  |avebuff%+otrans%|
00003720  2c 74 61 73 6b 25 2c 62  6c 6b 25 21 32 30 2c 74  |,task%,blk%!20,t|
00003730  6f 67 6f 25 0d 17 02 15  20 20 20 20 62 6c 6b 25  |ogo%....    blk%|
00003740  21 32 34 3d 74 6f 67 6f  25 0d 17 0c 14 20 20 20  |!24=togo%....   |
00003750  20 f2 72 65 70 6c 79 28  31 38 2c 37 29 0d 17 16  | .reply(18,7)...|
00003760  16 20 20 20 20 6f 74 72  61 6e 73 25 2b 3d 74 6f  |.    otrans%+=to|
00003770  67 6f 25 0d 17 20 3c 20  20 20 20 e7 20 6f 74 72  |go%.. <    . otr|
00003780  61 6e 73 25 3d 66 69 6c  65 73 69 7a 65 25 20 8c  |ans%=filesize% .|
00003790  20 64 25 3d a0 28 22 46  4e 73 61 76 65 64 22 2b  | d%=.("FNsaved"+|
000037a0  c3 7e 28 6d 69 73 63 25  28 69 64 25 29 29 29 0d  |.~(misc%(id%))).|
000037b0  17 2a 09 20 20 c9 20 37  0d 17 34 18 20 20 20 20  |.*.  . 7..4.    |
000037c0  69 74 72 61 6e 73 25 2b  3d 62 6c 6b 25 21 32 34  |itrans%+=blk%!24|
000037d0  0d 17 3e 1d 20 20 20 20  e7 20 69 74 72 61 6e 73  |..>.    . itrans|
000037e0  25 3e 3d 73 69 7a 65 25  2d 31 36 20 8c 0d 17 48  |%>=size%-16 ...H|
000037f0  28 20 20 20 20 20 20 64  25 3d a0 28 22 46 4e 6c  |(      d%=.("FNl|
00003800  6f 61 64 65 64 22 2b c3  7e 28 66 69 6c 65 74 79  |oaded"+.~(filety|
00003810  70 65 25 29 29 0d 17 52  09 20 20 20 20 cc 0d 17  |pe%))..R.    ...|
00003820  5c 1a 20 20 20 20 20 20  62 6c 6b 25 21 32 30 2b  |\.      blk%!20+|
00003830  3d 62 6c 6b 25 21 32 34  0d 17 66 1f 20 20 20 20  |=blk%!24..f.    |
00003840  20 20 62 6c 6b 25 21 32  34 3d 73 69 7a 65 25 2d  |  blk%!24=size%-|
00003850  69 74 72 61 6e 73 25 0d  17 70 16 20 20 20 20 20  |itrans%..p.     |
00003860  20 f2 72 65 70 6c 79 28  31 38 2c 36 29 0d 17 7a  | .reply(18,6)..z|
00003870  09 20 20 20 20 cd 0d 17  84 14 20 20 c9 20 38 20  |.    .....  . 8 |
00003880  3a 20 f2 70 72 65 71 75  69 74 0d 17 8e 23 20 20  |: .prequit...#  |
00003890  c9 20 31 30 3a 20 f2 61  64 64 74 6f 62 6f 6f 74  |. 10: .addtoboot|
000038a0  66 69 6c 65 28 62 6c 6b  25 21 32 30 29 0d 17 98  |file(blk%!20)...|
000038b0  19 20 20 c9 20 26 34 30  30 43 31 20 3a 20 f2 6e  |.  . &400C1 : .n|
000038c0  65 77 6d 6f 64 65 0d 17  a2 05 cb 0d 17 ac 05 e1  |ewmode..........|
000038d0  0d 17 b6 04 0d 17 c0 1b  dd 20 f2 72 65 70 6c 79  |......... .reply|
000038e0  28 74 79 70 65 25 2c 62  6c 6b 25 21 31 36 29 0d  |(type%,blk%!16).|
000038f0  17 ca 10 62 6c 6b 25 21  31 32 3d 72 65 66 25 0d  |...blk%!12=ref%.|
00003900  17 d4 29 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |..).."Wimp_SendM|
00003910  65 73 73 61 67 65 22 2c  74 79 70 65 25 2c 62 6c  |essage",type%,bl|
00003920  6b 25 2c 74 61 73 6b 25  0d 17 de 05 e1 0d 17 e8  |k%,task%........|
00003930  04 0d 17 f2 0e dd 20 f2  6e 65 77 6d 6f 64 65 0d  |...... .newmode.|
00003940  17 fc 32 21 71 25 3d 31  31 3a 71 25 21 34 3d 31  |..2!q%=11:q%!4=1|
00003950  32 3a 71 25 21 38 3d 34  3a 71 25 21 31 32 3d 35  |2:q%!8=4:q%!12=5|
00003960  3a 71 25 21 31 36 3d 33  3a 71 25 21 32 30 3d 2d  |:q%!16=3:q%!20=-|
00003970  31 0d 18 06 21 c8 99 22  4f 53 5f 52 65 61 64 56  |1...!.."OS_ReadV|
00003980  64 75 56 61 72 69 61 62  6c 65 73 22 2c 71 25 2c  |duVariables",q%,|
00003990  71 25 0d 18 10 18 73 63  78 25 3d 28 21 71 25 2b  |q%....scx%=(!q%+|
000039a0  31 29 3c 3c 28 71 25 21  38 29 0d 18 1a 1a 73 63  |1)<<(q%!8)....sc|
000039b0  79 25 3d 28 71 25 21 34  2b 31 29 3c 3c 28 71 25  |y%=(q%!4+1)<<(q%|
000039c0  21 31 32 29 0d 18 24 24  70 69 78 65 6c 77 25 3d  |!12)..$$pixelw%=|
000039d0  31 3c 3c 71 25 21 38 3a  70 69 78 65 6c 68 25 3d  |1<<q%!8:pixelh%=|
000039e0  31 3c 3c 71 25 21 31 32  0d 18 2e 0f 63 6f 6c 73  |1<<q%!12....cols|
000039f0  25 3d 71 25 21 31 36 0d  18 38 1e c8 99 22 57 69  |%=q%!16..8..."Wi|
00003a00  6d 70 5f 52 65 61 64 50  61 6c 65 74 74 65 22 2c  |mp_ReadPalette",|
00003a10  2c 70 61 6c 25 0d 18 42  05 e1 0d 18 4c 04 0d 18  |,pal%..B....L...|
00003a20  56 0e dd 20 f2 70 72 65  71 75 69 74 0d 18 60 10  |V.. .prequit..`.|
00003a30  e7 20 63 68 61 6e 67 65  64 25 20 8c 0d 18 6a 12  |. changed% ...j.|
00003a40  20 20 f2 72 65 70 6c 79  28 31 37 2c 38 29 0d 18  |  .reply(17,8)..|
00003a50  74 1d 20 20 f2 63 6c 6f  73 65 77 69 6e 64 6f 77  |t.  .closewindow|
00003a60  28 77 25 28 6d 61 69 6e  25 29 29 0d 18 7e 05 cd  |(w%(main%))..~..|
00003a70  0d 18 88 05 e1 0d 18 92  04 0d 18 9c 1d dd 20 f2  |.............. .|
00003a80  61 64 64 74 6f 62 6f 6f  74 66 69 6c 65 28 68 61  |addtobootfile(ha|
00003a90  6e 64 6c 65 25 29 0d 18  a6 16 d5 23 66 69 6c 65  |ndle%).....#file|
00003aa0  2c 22 52 75 6e 20 22 2b  64 69 72 24 0d 18 b0 05  |,"Run "+dir$....|
00003ab0  e1 0d 18 ba 04 0d 18 c4  11 dd 20 f2 74 65 6c 6c  |.......... .tell|
00003ac0  74 6f 6c 6f 61 64 0d 18  ce 0e f2 6d 6f 75 73 65  |toload.....mouse|
00003ad0  69 6e 66 6f 0d 18 d8 11  62 6c 6b 25 21 32 30 3d  |info....blk%!20=|
00003ae0  77 69 6e 64 25 0d 18 e2  11 62 6c 6b 25 21 32 34  |wind%....blk%!24|
00003af0  3d 69 63 6f 6e 25 0d 18  ec 0f 62 6c 6b 25 21 32  |=icon%....blk%!2|
00003b00  38 3d 6d 78 25 0d 18 f6  0f 62 6c 6b 25 21 33 32  |8=mx%....blk%!32|
00003b10  3d 6d 79 25 0d 19 00 15  62 6c 6b 25 21 33 36 3d  |=my%....blk%!36=|
00003b20  66 69 6c 65 73 69 7a 65  25 0d 19 0a 15 62 6c 6b  |filesize%....blk|
00003b30  25 21 34 30 3d 66 69 6c  65 74 79 70 65 25 0d 19  |%!40=filetype%..|
00003b40  14 1b 24 28 62 6c 6b 25  2b 34 34 29 3d 66 69 6c  |..$(blk%+44)=fil|
00003b50  65 6e 61 6d 65 24 2b bd  30 0d 19 1e 1d 21 62 6c  |ename$+.0....!bl|
00003b60  6b 25 3d 28 a9 24 28 62  6c 6b 25 2b 34 34 29 2b  |k%=(.$(blk%+44)+|
00003b70  34 38 29 80 ac 33 0d 19  28 10 f2 72 65 70 6c 79  |48)..3..(..reply|
00003b80  28 31 37 2c 33 29 0d 19  32 05 e1 0d 19 3c 04 0d  |(17,3)..2....<..|
00003b90  19 46 2e dd 20 f2 64 72  6f 70 66 69 6c 65 28 66  |.F.. .dropfile(f|
00003ba0  69 6c 65 6e 61 6d 65 24  2c 66 69 6c 65 74 79 70  |ilename$,filetyp|
00003bb0  65 25 2c 66 69 6c 65 73  69 7a 65 25 29 0d 19 50  |e%,filesize%)..P|
00003bc0  0e f2 6d 6f 75 73 65 69  6e 66 6f 0d 19 5a 0d 62  |..mouseinfo..Z.b|
00003bd0  6c 6b 25 21 31 32 3d 30  0d 19 64 0d 62 6c 6b 25  |lk%!12=0..d.blk%|
00003be0  21 31 36 3d 31 0d 19 6e  11 62 6c 6b 25 21 32 30  |!16=1..n.blk%!20|
00003bf0  3d 77 69 6e 64 25 0d 19  78 11 62 6c 6b 25 21 32  |=wind%..x.blk%!2|
00003c00  34 3d 69 63 6f 6e 25 0d  19 82 0f 62 6c 6b 25 21  |4=icon%....blk%!|
00003c10  32 38 3d 6d 78 25 0d 19  8c 0f 62 6c 6b 25 21 33  |28=mx%....blk%!3|
00003c20  32 3d 6d 79 25 0d 19 96  15 62 6c 6b 25 21 33 36  |2=my%....blk%!36|
00003c30  3d 66 69 6c 65 73 69 7a  65 25 0d 19 a0 15 62 6c  |=filesize%....bl|
00003c40  6b 25 21 34 30 3d 66 69  6c 65 74 79 70 65 25 0d  |k%!40=filetype%.|
00003c50  19 aa 25 24 28 62 6c 6b  25 2b 34 34 29 3d a4 6c  |..%$(blk%+44)=.l|
00003c60  61 73 74 62 69 74 28 66  69 6c 65 6e 61 6d 65 24  |astbit(filename$|
00003c70  29 2b bd 30 0d 19 b4 1d  21 62 6c 6b 25 3d 28 a9  |)+.0....!blk%=(.|
00003c80  24 28 62 6c 6b 25 2b 34  34 29 2b 34 38 29 80 ac  |$(blk%+44)+48)..|
00003c90  33 0d 19 be 30 c8 99 22  57 69 6d 70 5f 53 65 6e  |3...0.."Wimp_Sen|
00003ca0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 6c 6b  |dMessage",17,blk|
00003cb0  25 2c 62 6c 6b 25 21 32  30 2c 62 6c 6b 25 21 32  |%,blk%!20,blk%!2|
00003cc0  34 0d 19 c8 0d 6f 74 72  61 6e 73 25 3d 30 0d 19  |4....otrans%=0..|
00003cd0  d2 05 e1 0d 19 dc 04 0d  19 e6 19 f4 20 2d 20 53  |............ - S|
00003ce0  70 72 69 74 65 20 72 6f  75 74 69 6e 65 73 20 2d  |prite routines -|
00003cf0  0d 19 f0 04 0d 19 fa 12  dd 20 f2 6c 6f 61 64 73  |......... .loads|
00003d00  70 72 69 74 65 73 0d 1a  04 1f 73 70 72 69 74 65  |prites....sprite|
00003d10  66 69 6c 65 24 3d 64 69  72 24 2b 22 2e 53 70 72  |file$=dir$+".Spr|
00003d20  69 74 65 73 22 0d 1a 0e  1a f2 66 69 6c 65 69 6e  |ites".....filein|
00003d30  66 6f 28 73 70 72 69 74  65 66 69 6c 65 24 29 0d  |fo(spritefile$).|
00003d40  1a 18 10 e7 20 65 78 69  73 74 25 3d 31 20 8c 0d  |.... exist%=1 ..|
00003d50  1a 22 17 73 73 69 7a 65  25 3d 66 69 6c 65 73 69  |.".ssize%=filesi|
00003d60  7a 65 25 2b 31 36 0d 1a  2c 15 de 20 73 70 72 69  |ze%+16..,.. spri|
00003d70  74 65 73 25 20 73 73 69  7a 65 25 0d 1a 36 14 21  |tes% ssize%..6.!|
00003d80  73 70 72 69 74 65 73 25  3d 73 73 69 7a 65 25 0d  |sprites%=ssize%.|
00003d90  1a 40 10 73 70 72 69 74  65 73 25 21 34 3d 30 0d  |.@.sprites%!4=0.|
00003da0  1a 4a 11 73 70 72 69 74  65 73 25 21 38 3d 31 36  |.J.sprites%!8=16|
00003db0  0d 1a 54 12 73 70 72 69  74 65 73 25 21 31 32 3d  |..T.sprites%!12=|
00003dc0  31 36 0d 1a 5e 2f c8 99  22 4f 53 5f 53 70 72 69  |16..^/.."OS_Spri|
00003dd0  74 65 4f 70 22 2c 31 30  2b 32 35 36 2c 73 70 72  |teOp",10+256,spr|
00003de0  69 74 65 73 25 2c 73 70  72 69 74 65 66 69 6c 65  |ites%,spritefile|
00003df0  24 0d 1a 68 05 cc 0d 1a  72 0f 73 70 72 69 74 65  |$..h....r.sprite|
00003e00  73 25 3d 2d 31 0d 1a 7c  05 cd 0d 1a 86 05 e1 0d  |s%=-1..|........|
00003e10  1a 90 2f dd 20 f2 70 75  74 73 70 72 69 74 65 28  |../. .putsprite(|
00003e20  73 70 72 69 74 65 25 2c  73 70 72 69 74 65 24 2c  |sprite%,sprite$,|
00003e30  78 25 2c 79 25 2c 7a 31  25 2c 7a 32 25 29 0d 1a  |x%,y%,z1%,z2%)..|
00003e40  9a 35 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.5.."OS_SpriteOp|
00003e50  22 2c 32 34 2b 32 35 36  2c 73 70 72 69 74 65 25  |",24+256,sprite%|
00003e60  2c 73 70 72 69 74 65 24  20 b8 20 2c 2c 73 61 64  |,sprite$ . ,,sad|
00003e70  64 72 25 0d 1a a4 3a c8  99 22 4f 53 5f 53 70 72  |dr%...:.."OS_Spr|
00003e80  69 74 65 4f 70 22 2c 34  30 2b 32 35 36 2c 73 70  |iteOp",40+256,sp|
00003e90  72 69 74 65 25 2c 73 70  72 69 74 65 24 20 b8 20  |rite%,sprite$ . |
00003ea0  2c 2c 2c 2c 2c 2c 73 70  6d 6f 64 65 25 0d 1a ae  |,,,,,,spmode%...|
00003eb0  0b f2 74 61 62 6c 65 73  0d 1a b8 09 e6 20 38 2c  |..tables..... 8,|
00003ec0  30 0d 1a c2 3f c8 99 22  4f 53 5f 53 70 72 69 74  |0...?.."OS_Sprit|
00003ed0  65 4f 70 22 2c 35 32 2b  32 35 36 2c 73 70 72 69  |eOp",52+256,spri|
00003ee0  74 65 25 2c 73 70 72 69  74 65 24 2c 78 25 2c 79  |te%,sprite$,x%,y|
00003ef0  25 2c 38 2c 73 63 61 6c  65 25 2c 67 63 6f 6c 25  |%,8,scale%,gcol%|
00003f00  0d 1a cc 05 e1 0d 1a d6  04 0d 1a e0 0d dd 20 f2  |.............. .|
00003f10  74 61 62 6c 65 73 0d 1a  ea 0c 64 6d 6f 64 65 25  |tables....dmode%|
00003f20  3d eb 0d 1a f4 17 64 70  61 6c 25 3d a4 77 70 61  |=.....dpal%=.wpa|
00003f30  6c 28 64 6d 6f 64 65 25  29 0d 1a fe 28 21 73 63  |l(dmode%)...(!sc|
00003f40  61 6c 65 25 3d 28 31 3c  3c a4 6d 6f 64 65 76 61  |ale%=(1<<.modeva|
00003f50  72 28 73 70 6d 6f 64 65  25 2c 34 29 29 2a 7a 31  |r(spmode%,4))*z1|
00003f60  25 0d 1b 08 29 73 63 61  6c 65 25 21 34 3d 28 31  |%...)scale%!4=(1|
00003f70  3c 3c a4 6d 6f 64 65 76  61 72 28 73 70 6d 6f 64  |<<.modevar(spmod|
00003f80  65 25 2c 35 29 29 2a 7a  31 25 0d 1b 12 18 73 63  |e%,5))*z1%....sc|
00003f90  61 6c 65 25 21 38 3d 70  69 78 65 6c 77 25 2a 7a  |ale%!8=pixelw%*z|
00003fa0  32 25 0d 1b 1c 19 73 63  61 6c 65 25 21 31 32 3d  |2%....scale%!12=|
00003fb0  70 69 78 65 6c 68 25 2a  7a 32 25 0d 1b 26 41 e7  |pixelh%*z2%..&A.|
00003fc0  20 73 61 64 64 72 25 21  33 32 3c 3e 34 34 20 8c  | saddr%!32<>44 .|
00003fd0  20 73 70 61 6c 25 3d a4  73 70 72 69 74 65 70 61  | spal%=.spritepa|
00003fe0  6c 65 74 74 65 20 8b 20  73 70 61 6c 25 3d a4 77  |lette . spal%=.w|
00003ff0  70 61 6c 28 73 70 6d 6f  64 65 25 29 0d 1b 30 40  |pal(spmode%)..0@|
00004000  c8 99 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |.."ColourTrans_S|
00004010  65 6c 65 63 74 54 61 62  6c 65 22 2c 73 70 6d 6f  |electTable",spmo|
00004020  64 65 25 2c 73 70 61 6c  25 2c 64 6d 6f 64 65 25  |de%,spal%,dmode%|
00004030  2c 64 70 61 6c 25 2c 67  63 6f 6c 25 0d 1b 3a 05  |,dpal%,gcol%..:.|
00004040  e1 0d 1b 44 04 0d 1b 4e  14 dd 20 a4 73 70 72 69  |...D...N.. .spri|
00004050  74 65 70 61 6c 65 74 74  65 0d 1b 58 1d 63 6f 6c  |tepalette..X.col|
00004060  73 25 3d a4 6d 6f 64 65  76 61 72 28 73 70 6d 6f  |s%=.modevar(spmo|
00004070  64 65 25 2c 33 29 0d 1b  62 19 e7 20 63 6f 6c 73  |de%,3)..b.. cols|
00004080  25 3e 31 35 20 8c 20 63  6f 6c 73 25 3d 31 35 0d  |%>15 . cols%=15.|
00004090  1b 6c 12 e3 20 63 25 3d  30 20 b8 20 63 6f 6c 73  |.l.. c%=0 . cols|
000040a0  25 0d 1b 76 26 73 70 70  61 6c 25 21 28 63 25 3c  |%..v&sppal%!(c%<|
000040b0  3c 32 29 3d 73 61 64 64  72 25 21 28 34 34 2b 28  |<2)=saddr%!(44+(|
000040c0  63 25 3c 3c 33 29 29 0d  1b 80 08 ed 20 63 25 0d  |c%<<3))..... c%.|
000040d0  1b 8a 0b 3d 73 70 70 61  6c 25 0d 1b 94 04 0d 1b  |...=sppal%......|
000040e0  9e 37 dd 20 f2 63 6f 70  79 70 61 6c 65 74 74 65  |.7. .copypalette|
000040f0  28 66 73 70 72 69 74 65  25 2c 66 73 70 72 69 74  |(fsprite%,fsprit|
00004100  65 24 2c 74 73 70 72 69  74 65 25 2c 74 73 70 72  |e$,tsprite%,tspr|
00004110  69 74 65 24 29 0d 1b a8  37 c8 99 22 4f 53 5f 53  |ite$)...7.."OS_S|
00004120  70 72 69 74 65 4f 70 22  2c 32 34 2b 32 35 36 2c  |priteOp",24+256,|
00004130  66 73 70 72 69 74 65 25  2c 66 73 70 72 69 74 65  |fsprite%,fsprite|
00004140  24 20 b8 20 2c 2c 66 61  64 64 72 25 0d 1b b2 37  |$ . ,,faddr%...7|
00004150  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00004160  32 34 2b 32 35 36 2c 74  73 70 72 69 74 65 25 2c  |24+256,tsprite%,|
00004170  74 73 70 72 69 74 65 24  20 b8 20 2c 2c 74 61 64  |tsprite$ . ,,tad|
00004180  64 72 25 0d 1b bc 1d e3  20 61 25 3d 34 34 20 b8  |dr%..... a%=44 .|
00004190  20 66 61 64 64 72 25 21  33 32 2d 34 20 88 20 34  | faddr%!32-4 . 4|
000041a0  0d 1b c6 19 20 20 74 61  64 64 72 25 21 61 25 3d  |....  taddr%!a%=|
000041b0  66 61 64 64 72 25 21 61  25 0d 1b d0 08 ed 20 61  |faddr%!a%..... a|
000041c0  25 0d 1b da 05 e1 0d 1b  e4 04 0d 1b ee 17 f4 20  |%.............. |
000041d0  2d 20 66 69 6c 65 20 68  61 6e 64 6c 69 6e 67 20  |- file handling |
000041e0  2d 0d 1b f8 04 0d 1c 02  16 dd 20 f2 66 69 6c 65  |-......... .file|
000041f0  69 6e 66 6f 28 66 69 6c  65 24 29 0d 1c 0c 2d c8  |info(file$)...-.|
00004200  99 22 4f 53 5f 46 69 6c  65 22 2c 35 2c 66 69 6c  |."OS_File",5,fil|
00004210  65 24 20 b8 20 65 78 69  73 74 25 2c 2c 2c 2c 66  |e$ . exist%,,,,f|
00004220  69 6c 65 73 69 7a 65 25  0d 1c 16 05 e1 0d 1c 20  |ilesize%....... |
00004230  04 0d 1c 2a 16 dd 20 a4  66 69 6c 65 73 69 7a 65  |...*.. .filesize|
00004240  28 66 69 6c 65 24 29 0d  1c 34 16 ea 20 65 78 69  |(file$)..4.. exi|
00004250  73 74 25 2c 66 69 6c 65  73 69 7a 65 25 0d 1c 3e  |st%,filesize%..>|
00004260  14 f2 66 69 6c 65 69 6e  66 6f 28 66 69 6c 65 24  |..fileinfo(file$|
00004270  29 0d 1c 48 0e 3d 66 69  6c 65 73 69 7a 65 25 0d  |)..H.=filesize%.|
00004280  1c 52 04 0d 1c 5c 17 dd  20 a4 66 69 6c 65 65 78  |.R...\.. .fileex|
00004290  69 73 74 28 66 69 6c 65  24 29 0d 1c 66 16 ea 20  |ist(file$)..f.. |
000042a0  65 78 69 73 74 25 2c 66  69 6c 65 73 69 7a 65 25  |exist%,filesize%|
000042b0  0d 1c 70 14 f2 66 69 6c  65 69 6e 66 6f 28 66 69  |..p..fileinfo(fi|
000042c0  6c 65 24 29 0d 1c 7a 0b  3d 65 78 69 73 74 25 0d  |le$)..z.=exist%.|
000042d0  1c 84 04 0d 1c 8e 1b dd  20 a4 6c 6f 61 64 74 65  |........ .loadte|
000042e0  6d 70 6c 61 74 65 28 74  69 74 6c 65 24 29 0d 1c  |mplate(title$)..|
000042f0  98 47 c8 99 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |.G.."Wimp_LoadTe|
00004300  6d 70 6c 61 74 65 22 2c  2c 62 6c 6b 25 2c 69 6e  |mplate",,blk%,in|
00004310  64 25 2c 69 6e 64 65 6e  64 25 2c 66 6f 6e 74 74  |d%,indend%,fontt|
00004320  61 62 6c 65 25 2c 74 69  74 6c 65 24 20 b8 20 2c  |able%,title$ . ,|
00004330  2c 69 6e 64 25 0d 1c a2  25 e7 20 73 70 72 69 74  |,ind%...%. sprit|
00004340  65 73 25 3c 3e 2d 31 20  8c 20 62 6c 6b 25 21 36  |es%<>-1 . blk%!6|
00004350  34 3d 73 70 72 69 74 65  73 25 0d 1c ac 27 c8 99  |4=sprites%...'..|
00004360  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00004370  6f 77 22 2c 2c 62 6c 6b  25 20 b8 20 77 69 6e 64  |ow",,blk% . wind|
00004380  25 0d 1c b6 0a 3d 77 69  6e 64 25 0d 1c c0 04 0d  |%....=wind%.....|
00004390  1c ca 14 dd 20 a4 6e 61  6d 65 6f 6b 28 66 69 6c  |.... .nameok(fil|
000043a0  65 24 29 0d 1c d4 0d 72  65 73 75 6c 74 25 3d b9  |e$)....result%=.|
000043b0  0d 1c de 39 e7 20 a7 66  69 6c 65 24 2c 22 3a 22  |...9. .file$,":"|
000043c0  29 2b a7 66 69 6c 65 24  2c 22 2e 22 29 3d 30 20  |)+.file$,".")=0 |
000043d0  80 20 66 69 6c 65 24 3c  3e 22 3c 57 69 6d 70 24  |. file$<>"<Wimp$|
000043e0  53 63 72 61 70 3e 22 20  8c 0d 1c e8 38 f2 72 65  |Scrap>" ....8.re|
000043f0  70 6f 72 74 28 22 54 6f  20 73 61 76 65 2c 20 64  |port("To save, d|
00004400  72 61 67 20 69 63 6f 6e  20 74 6f 20 61 20 64 69  |rag icon to a di|
00004410  72 65 63 74 6f 72 79 20  76 69 65 77 65 72 2e 22  |rectory viewer."|
00004420  29 0d 1c f2 0d 72 65 73  75 6c 74 25 3d a3 0d 1c  |)....result%=...|
00004430  fc 05 cd 0d 1d 06 0c 3d  72 65 73 75 6c 74 25 0d  |.......=result%.|
00004440  1d 10 04 0d 1d 1a 0f f4  20 2d 20 6d 65 6e 75 73  |........ - menus|
00004450  20 2d 0d 1d 24 04 0d 1d  2e 22 dd 20 f2 74 69 63  | -..$....". .tic|
00004460  6b 6d 65 6e 75 28 6d 65  6e 75 25 2c 69 74 65 6d  |kmenu(menu%,item|
00004470  25 2c 74 69 63 6b 25 29  0d 1d 38 18 70 25 3d 6d  |%,tick%)..8.p%=m|
00004480  65 6e 75 25 2b 32 38 2b  69 74 65 6d 25 2a 32 34  |enu%+28+item%*24|
00004490  0d 1d 42 26 e7 20 74 69  63 6b 25 20 8c 20 21 70  |..B&. tick% . !p|
000044a0  25 3d 21 70 25 20 84 31  20 8b 20 21 70 25 3d 21  |%=!p% .1 . !p%=!|
000044b0  70 25 20 80 ac 31 0d 1d  4c 05 e1 0d 1d 56 04 0d  |p% ..1..L....V..|
000044c0  1d 60 23 dd 20 f2 6d 65  6e 75 74 69 74 6c 65 28  |.`#. .menutitle(|
000044d0  74 69 74 6c 65 24 2c f8  20 6d 65 6e 75 70 74 72  |title$,. menuptr|
000044e0  25 29 0d 1d 6a 14 6f 6c  64 70 74 72 25 3d 6d 65  |%)..j.oldptr%=me|
000044f0  6e 75 70 74 72 25 0d 1d  74 14 24 6d 65 6e 75 70  |nuptr%..t.$menup|
00004500  74 72 25 3d 74 69 74 6c  65 24 0d 1d 7e 10 6d 61  |tr%=title$..~.ma|
00004510  78 25 3d a9 74 69 74 6c  65 24 0d 1d 88 16 6d 65  |x%=.title$....me|
00004520  6e 75 70 74 72 25 21 31  32 3d 26 37 30 32 30 37  |nuptr%!12=&70207|
00004530  0d 1d 92 12 6d 65 6e 75  70 74 72 25 21 32 30 3d  |....menuptr%!20=|
00004540  34 34 0d 1d 9c 11 6d 65  6e 75 70 74 72 25 21 32  |44....menuptr%!2|
00004550  34 3d 30 0d 1d a6 0f 6d  65 6e 75 70 74 72 25 2b  |4=0....menuptr%+|
00004560  3d 34 0d 1d b0 05 e1 0d  1d ba 04 0d 1d c4 23 dd  |=4............#.|
00004570  20 f2 6d 65 6e 75 69 74  65 6d 28 f8 20 74 65 78  | .menuitem(. tex|
00004580  74 24 2c f8 20 6d 65 6e  75 70 74 72 25 29 0d 1d  |t$,. menuptr%)..|
00004590  ce 10 6d 65 6e 75 70 74  72 25 2b 3d 32 34 0d 1d  |..menuptr%+=24..|
000045a0  d8 0f 21 6d 65 6e 75 70  74 72 25 3d 30 0d 1d e2  |..!menuptr%=0...|
000045b0  10 6d 65 6e 75 70 74 72  25 21 34 3d 30 0d 1d ec  |.menuptr%!4=0...|
000045c0  1a 77 6f 72 64 24 3d a4  6e 65 78 74 77 6f 72 64  |.word$=.nextword|
000045d0  28 74 65 78 74 24 29 0d  1d f6 18 74 6f 6b 65 6e  |(text$)....token|
000045e0  24 3d a4 74 6f 6b 65 6e  28 77 6f 72 64 24 29 0d  |$=.token(word$).|
000045f0  1e 00 0a 69 31 25 3d 2d  31 0d 1e 0a 11 c8 95 20  |...i1%=-1...... |
00004600  74 6f 6b 65 6e 24 3c 3e  22 22 0d 1e 14 0f c8 8e  |token$<>""......|
00004610  20 74 6f 6b 65 6e 24 20  ca 0d 1e 1e 2a c9 20 22  | token$ ....*. "|
00004620  3e 22 20 3a 20 6d 65 6e  75 70 74 72 25 21 34 3d  |>" : menuptr%!4=|
00004630  a0 28 a4 6e 65 78 74 77  6f 72 64 28 74 65 78 74  |.(.nextword(text|
00004640  24 29 29 0d 1e 28 23 c9  20 22 2f 22 20 3a 20 21  |$))..(#. "/" : !|
00004650  6d 65 6e 75 70 74 72 25  3d 21 6d 65 6e 75 70 74  |menuptr%=!menupt|
00004660  72 25 20 84 20 31 0d 1e  32 23 c9 20 22 2d 22 20  |r% . 1..2#. "-" |
00004670  3a 20 21 6d 65 6e 75 70  74 72 25 3d 21 6d 65 6e  |: !menuptr%=!men|
00004680  75 70 74 72 25 20 84 20  32 0d 1e 3c 09 c9 20 22  |uptr% . 2..<.. "|
00004690  21 22 0d 1e 46 1d 20 20  21 6d 65 6e 75 70 74 72  |!"..F.  !menuptr|
000046a0  25 3d 21 6d 65 6e 75 70  74 72 25 20 84 20 34 0d  |%=!menuptr% . 4.|
000046b0  1e 50 1d 20 20 76 61 6c  69 64 24 3d a4 6e 65 78  |.P.  valid$=.nex|
000046c0  74 77 6f 72 64 28 74 65  78 74 24 29 0d 1e 5a 11  |tword(text$)..Z.|
000046d0  20 20 e7 20 a9 76 61 6c  69 64 24 20 8c 0d 1e 64  |  . .valid$ ...d|
000046e0  15 20 20 de 20 69 31 25  20 a9 76 61 6c 69 64 24  |.  . i1% .valid$|
000046f0  2b 31 0d 1e 6e 11 20 20  24 69 31 25 3d 76 61 6c  |+1..n.  $i1%=val|
00004700  69 64 24 0d 1e 78 07 20  20 cd 0d 1e 82 05 cb 0d  |id$..x.  .......|
00004710  1e 8c 18 74 6f 6b 65 6e  24 3d a4 74 6f 6b 65 6e  |...token$=.token|
00004720  28 77 6f 72 64 24 29 0d  1e 96 05 ce 0d 1e a0 1f  |(word$).........|
00004730  6d 65 6e 75 70 74 72 25  21 38 3d 28 37 3c 3c 32  |menuptr%!8=(7<<2|
00004740  34 29 20 84 20 25 31 30  30 30 31 0d 1e aa 22 e7  |4) . %10001...".|
00004750  20 21 6d 65 6e 75 70 74  72 25 20 80 20 34 20 84  | !menuptr% . 4 .|
00004760  20 74 6f 6b 65 6e 24 3d  22 23 22 20 8c 0d 1e b4  | token$="#" ....|
00004770  2e f2 69 6e 64 69 74 65  6d 28 a0 28 a4 6e 65 78  |..inditem(.(.nex|
00004780  74 77 6f 72 64 28 74 65  78 74 24 29 29 2c 69 31  |tword(text$)),i1|
00004790  25 2c a0 28 77 6f 72 64  24 29 29 0d 1e be 05 cc  |%,.(word$)).....|
000047a0  0d 1e c8 12 e7 20 a9 77  6f 72 64 24 3c 3d 31 32  |..... .word$<=12|
000047b0  20 8c 0d 1e d2 18 24 28  6d 65 6e 75 70 74 72 25  | .....$(menuptr%|
000047c0  2b 31 32 29 3d 77 6f 72  64 24 0d 1e dc 05 cc 0d  |+12)=word$......|
000047d0  1e e6 12 de 20 69 30 25  20 a9 77 6f 72 64 24 2b  |.... i0% .word$+|
000047e0  31 0d 1e f0 0e 24 69 30  25 3d 77 6f 72 64 24 0d  |1....$i0%=word$.|
000047f0  1e fa 1d f2 69 6e 64 69  74 65 6d 28 69 30 25 2c  |....inditem(i0%,|
00004800  2d 31 2c a9 77 6f 72 64  24 2b 31 29 0d 1f 04 05  |-1,.word$+1)....|
00004810  cd 0d 1f 0e 1f e7 20 a9  77 6f 72 64 24 3e 6d 61  |...... .word$>ma|
00004820  78 25 20 8c 20 6d 61 78  25 3d a9 77 6f 72 64 24  |x% . max%=.word$|
00004830  0d 1f 18 05 cd 0d 1f 22  05 e1 0d 1f 2c 04 0d 1f  |......."....,...|
00004840  36 1a dd 20 f2 65 6e 64  6d 65 6e 75 28 f8 20 6d  |6.. .endmenu(. m|
00004850  65 6e 75 70 74 72 25 29  0d 1f 40 1d 21 6d 65 6e  |enuptr%)..@.!men|
00004860  75 70 74 72 25 3d 21 6d  65 6e 75 70 74 72 25 20  |uptr%=!menuptr% |
00004870  84 20 26 38 30 0d 1f 4a  10 6d 65 6e 75 70 74 72  |. &80..J.menuptr|
00004880  25 2b 3d 32 34 0d 1f 54  19 6f 6c 64 70 74 72 25  |%+=24..T.oldptr%|
00004890  21 31 36 3d 6d 61 78 25  2a 31 36 2b 31 32 0d 1f  |!16=max%*16+12..|
000048a0  5e 05 e1 0d 1f 68 04 0d  1f 72 12 dd 20 a4 6d 65  |^....h...r.. .me|
000048b0  6e 75 28 74 65 78 74 24  29 0d 1f 7c 10 73 74 65  |nu(text$)..|.ste|
000048c0  78 74 24 3d 74 65 78 74  24 0d 1f 86 0c 69 74 65  |xt$=text$....ite|
000048d0  6d 73 25 3d 30 0d 1f 90  0e 74 65 78 74 24 2b 3d  |ms%=0....text$+=|
000048e0  22 2c 22 0d 1f 9a 1b 74  69 74 6c 65 24 3d a4 6e  |","....title$=.n|
000048f0  65 78 74 77 6f 72 64 28  74 65 78 74 24 29 0d 1f  |extword(text$)..|
00004900  a4 1f f2 6d 65 6e 75 74  69 74 6c 65 28 74 69 74  |...menutitle(tit|
00004910  6c 65 24 2c 6d 65 6e 75  70 74 72 25 29 0d 1f ae  |le$,menuptr%)...|
00004920  10 c8 95 20 74 65 78 74  24 3c 3e 22 22 0d 1f b8  |... text$<>""...|
00004930  0d 69 74 65 6d 73 25 2b  3d 31 0d 1f c2 1d f2 6d  |.items%+=1.....m|
00004940  65 6e 75 69 74 65 6d 28  74 65 78 74 24 2c 6d 65  |enuitem(text$,me|
00004950  6e 75 70 74 72 25 29 0d  1f cc 05 ce 0d 1f d6 16  |nuptr%).........|
00004960  f2 65 6e 64 6d 65 6e 75  28 6d 65 6e 75 70 74 72  |.endmenu(menuptr|
00004970  25 29 0d 1f e0 0c 3d 6f  6c 64 70 74 72 25 0d 1f  |%)....=oldptr%..|
00004980  ea 04 0d 1f f4 1b dd 20  f2 69 6e 64 69 74 65 6d  |....... .inditem|
00004990  28 69 30 25 2c 69 31 25  2c 69 32 25 29 0d 1f fe  |(i0%,i1%,i2%)...|
000049a0  20 6d 65 6e 75 70 74 72  25 21 38 3d 6d 65 6e 75  | menuptr%!8=menu|
000049b0  70 74 72 25 21 38 20 84  20 31 3c 3c 38 0d 20 08  |ptr%!8 . 1<<8. .|
000049c0  13 6d 65 6e 75 70 74 72  25 21 31 32 3d 69 30 25  |.menuptr%!12=i0%|
000049d0  0d 20 12 13 6d 65 6e 75  70 74 72 25 21 31 36 3d  |. ..menuptr%!16=|
000049e0  69 31 25 0d 20 1c 13 6d  65 6e 75 70 74 72 25 21  |i1%. ..menuptr%!|
000049f0  32 30 3d 69 32 25 0d 20  26 31 e7 20 69 32 25 2d  |20=i2%. &1. i2%-|
00004a00  31 3e 6d 61 78 25 20 80  20 28 21 6d 65 6e 75 70  |1>max% . (!menup|
00004a10  74 72 25 20 80 20 34 29  3d 30 20 8c 20 6d 61 78  |tr% . 4)=0 . max|
00004a20  25 3d 69 32 25 2d 31 0d  20 30 05 e1 0d 20 3a 04  |%=i2%-1. 0... :.|
00004a30  0d 20 44 15 dd 20 a4 74  6f 6b 65 6e 28 f8 20 77  |. D.. .token(. w|
00004a40  6f 72 64 24 29 0d 20 4e  0d 74 6f 6b 65 6e 24 3d  |ord$). N.token$=|
00004a50  22 22 0d 20 58 19 e7 20  a7 22 3e 2f 21 23 2d 22  |"". X.. .">/!#-"|
00004a60  2c c2 77 6f 72 64 24 29  29 20 8c 0d 20 62 14 74  |,.word$)) .. b.t|
00004a70  6f 6b 65 6e 24 3d c2 77  6f 72 64 24 2c 31 29 0d  |oken$=.word$,1).|
00004a80  20 6c 1a 77 6f 72 64 24  3d c0 77 6f 72 64 24 2c  | l.word$=.word$,|
00004a90  a9 77 6f 72 64 24 2d 31  29 0d 20 76 05 cd 0d 20  |.word$-1). v... |
00004aa0  80 0b 3d 74 6f 6b 65 6e  24 0d 20 8a 04 0d 20 94  |..=token$. ... .|
00004ab0  18 dd 20 a4 6e 65 78 74  77 6f 72 64 28 f8 20 74  |.. .nextword(. t|
00004ac0  65 78 74 24 29 0d 20 9e  10 ea 20 77 6f 72 64 24  |ext$). ... word$|
00004ad0  2c 70 6f 73 25 0d 20 a8  14 70 6f 73 25 3d a7 74  |,pos%. ..pos%=.t|
00004ae0  65 78 74 24 2c 22 2c 22  29 0d 20 b2 18 77 6f 72  |ext$,","). ..wor|
00004af0  64 24 3d c0 74 65 78 74  24 2c 70 6f 73 25 2d 31  |d$=.text$,pos%-1|
00004b00  29 0d 20 bc 18 74 65 78  74 24 3d c1 74 65 78 74  |). ..text$=.text|
00004b10  24 2c 70 6f 73 25 2b 31  29 0d 20 c6 0a 3d 77 6f  |$,pos%+1). ..=wo|
00004b20  72 64 24 0d 20 d0 04 0d  20 da 10 dd 20 f2 63 6c  |rd$. ... ... .cl|
00004b30  6f 73 65 6d 65 6e 75 0d  20 e4 1b c8 99 22 57 69  |osemenu. ...."Wi|
00004b40  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00004b50  2d 31 0d 20 ee 05 e1 0d  20 f8 04 0d 21 02 0f f4  |-1. .... ...!...|
00004b60  20 2d 20 69 63 6f 6e 73  20 2d 0d 21 0c 04 0d 21  | - icons -.!...!|
00004b70  16 21 dd 20 f2 73 68 61  64 65 69 63 6f 6e 28 21  |.!. .shadeicon(!|
00004b80  71 25 2c 71 25 21 34 2c  73 68 61 64 65 25 29 0d  |q%,q%!4,shade%).|
00004b90  21 20 22 e7 20 73 68 61  64 65 25 20 8c 20 71 25  |! ". shade% . q%|
00004ba0  21 38 3d 31 3c 3c 32 32  20 8b 20 71 25 21 38 3d  |!8=1<<22 . q%!8=|
00004bb0  30 0d 21 2a 0f 71 25 21  31 32 3d 31 3c 3c 32 32  |0.!*.q%!12=1<<22|
00004bc0  0d 21 34 1d c8 99 22 57  69 6d 70 5f 53 65 74 49  |.!4..."Wimp_SetI|
00004bd0  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 0d 21 3e  |conState",,q%.!>|
00004be0  05 e1 0d 21 48 04 0d 21  52 19 dd 20 a4 69 63 6f  |...!H..!R.. .ico|
00004bf0  6e 74 65 78 74 28 21 71  25 2c 71 25 21 34 29 0d  |ntext(!q%,q%!4).|
00004c00  21 5c 1d c8 99 22 57 69  6d 70 5f 47 65 74 49 63  |!\..."Wimp_GetIc|
00004c10  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 21 66 34  |onState",,q%.!f4|
00004c20  e7 20 71 25 21 32 34 80  28 31 3c 3c 38 29 20 8c  |. q%!24.(1<<8) .|
00004c30  20 74 65 78 74 24 3d 24  28 71 25 21 32 38 29 20  | text$=$(q%!28) |
00004c40  8b 20 74 65 78 74 24 3d  24 28 71 25 2b 32 38 29  |. text$=$(q%+28)|
00004c50  0d 21 70 0a 3d 74 65 78  74 24 0d 21 7a 04 0d 21  |.!p.=text$.!z..!|
00004c60  84 18 dd 20 a4 69 63 6f  6e 76 61 6c 28 21 71 25  |... .iconval(!q%|
00004c70  2c 71 25 21 34 29 0d 21  8e 1b 3d bb 28 a4 69 63  |,q%!4).!..=.(.ic|
00004c80  6f 6e 74 65 78 74 28 21  71 25 2c 71 25 21 34 29  |ontext(!q%,q%!4)|
00004c90  29 0d 21 98 04 0d 21 a2  19 dd 20 f2 72 65 64 6f  |).!...!... .redo|
00004ca0  69 63 6f 6e 28 21 71 25  2c 71 25 21 34 29 0d 21  |icon(!q%,q%!4).!|
00004cb0  ac 1d c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |...."Wimp_GetIco|
00004cc0  6e 53 74 61 74 65 22 2c  2c 71 25 0d 21 b6 33 c8  |nState",,q%.!.3.|
00004cd0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00004ce0  61 77 22 2c 21 71 25 2c  71 25 21 38 2c 71 25 21  |aw",!q%,q%!8,q%!|
00004cf0  31 32 2c 71 25 21 31 36  2c 71 25 21 32 30 0d 21  |12,q%!16,q%!20.!|
00004d00  c0 05 e1 0d 21 ca 04 0d  21 d4 1b dd 20 f2 64 65  |....!...!... .de|
00004d10  6c 65 74 65 69 63 6f 6e  28 21 71 25 2c 71 25 21  |leteicon(!q%,q%!|
00004d20  34 29 0d 21 de 1b c8 99  22 57 69 6d 70 5f 44 65  |4).!...."Wimp_De|
00004d30  6c 65 74 65 49 63 6f 6e  22 2c 2c 71 25 0d 21 e8  |leteIcon",,q%.!.|
00004d40  05 e1 0d 21 f2 04 0d 21  fc 1c dd 20 f2 69 63 6f  |...!...!... .ico|
00004d50  6e 69 6e 66 6f 28 77 69  6e 64 25 2c 69 63 6f 6e  |ninfo(wind%,icon|
00004d60  25 29 0d 22 06 0f 21 62  6c 6b 25 3d 77 69 6e 64  |%)."..!blk%=wind|
00004d70  25 0d 22 10 10 62 6c 6b  25 21 34 3d 69 63 6f 6e  |%."..blk%!4=icon|
00004d80  25 0d 22 1a 1f c8 99 22  57 69 6d 70 5f 47 65 74  |%."...."Wimp_Get|
00004d90  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |IconState",,blk%|
00004da0  0d 22 24 05 e1 0d 22 2e  04 0d 22 38 19 dd 20 a4  |."$..."..."8.. .|
00004db0  73 65 6c 65 63 74 65 64  28 21 71 25 2c 71 25 21  |selected(!q%,q%!|
00004dc0  34 29 0d 22 42 1d c8 99  22 57 69 6d 70 5f 47 65  |4)."B..."Wimp_Ge|
00004dd0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00004de0  22 4c 1a 3d 28 28 28 71  25 21 32 34 29 80 28 31  |"L.=(((q%!24).(1|
00004df0  3c 3c 32 31 29 29 3e 30  29 0d 22 56 04 0d 22 60  |<<21))>0)."V.."`|
00004e00  37 dd 20 a4 63 72 69 63  6f 6e 28 21 71 25 2c 71  |7. .cricon(!q%,q|
00004e10  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00004e20  25 21 31 36 2c 71 25 21  32 30 2c 24 28 71 25 2b  |%!16,q%!20,$(q%+|
00004e30  32 34 29 29 0d 22 6a 23  c8 99 22 57 69 6d 70 5f  |24))."j#.."Wimp_|
00004e40  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 71 25 20  |CreateIcon",,q% |
00004e50  b8 20 69 63 6f 6e 25 0d  22 74 0a 3d 69 63 6f 6e  |. icon%."t.=icon|
00004e60  25 0d 22 7e 04 0d 22 88  18 dd 20 a4 62 75 74 74  |%."~.."... .butt|
00004e70  79 70 65 28 21 71 25 2c  71 25 21 34 29 0d 22 92  |ype(!q%,q%!4).".|
00004e80  33 e7 20 71 25 21 34 3e  3d 30 20 8c 20 c8 99 22  |3. q%!4>=0 . .."|
00004e90  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00004ea0  65 22 2c 2c 71 25 20 8b  20 71 25 21 32 34 3d 30  |e",,q% . q%!24=0|
00004eb0  0d 22 9c 15 3d 28 28 71  25 21 32 34 29 3e 3e 31  |."..=((q%!24)>>1|
00004ec0  32 29 80 31 35 0d 22 a6  04 0d 22 b0 23 dd 20 f2  |2).15."...".#. .|
00004ed0  73 65 6c 65 63 74 69 63  6f 6e 28 21 71 25 2c 71  |selecticon(!q%,q|
00004ee0  25 21 34 2c 73 65 6c 65  63 74 25 29 0d 22 ba 1d  |%!4,select%)."..|
00004ef0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00004f00  74 61 74 65 22 2c 2c 71  25 0d 22 c4 23 e7 20 73  |tate",,q%.".#. s|
00004f10  65 6c 65 63 74 25 20 8c  20 71 25 21 38 3d 31 3c  |elect% . q%!8=1<|
00004f20  3c 32 31 20 8b 20 71 25  21 38 3d 30 0d 22 ce 0f  |<21 . q%!8=0."..|
00004f30  71 25 21 31 32 3d 31 3c  3c 32 31 0d 22 d8 37 e7  |q%!12=1<<21.".7.|
00004f40  20 28 71 25 21 32 34 20  80 20 71 25 21 31 32 29  | (q%!24 . q%!12)|
00004f50  3c 3e 71 25 21 38 20 8c  20 c8 99 22 57 69 6d 70  |<>q%!8 . .."Wimp|
00004f60  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004f70  71 25 0d 22 e2 05 e1 0d  22 ec 04 0d 22 f6 1f dd  |q%."...."..."...|
00004f80  20 f2 73 65 74 69 63 6f  6e 66 63 28 21 71 25 2c  | .seticonfc(!q%,|
00004f90  71 25 21 34 2c 63 6f 6c  25 29 0d 23 00 1d c8 99  |q%!4,col%).#....|
00004fa0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004fb0  74 65 22 2c 2c 71 25 0d  23 0a 11 71 25 21 38 3d  |te",,q%.#..q%!8=|
00004fc0  63 6f 6c 25 3c 3c 32 34  0d 23 14 10 71 25 21 31  |col%<<24.#..q%!1|
00004fd0  32 3d 31 35 3c 3c 32 34  0d 23 1e 37 e7 20 28 71  |2=15<<24.#.7. (q|
00004fe0  25 21 32 34 20 80 20 71  25 21 31 32 29 3c 3e 71  |%!24 . q%!12)<>q|
00004ff0  25 21 38 20 8c 20 c8 99  22 57 69 6d 70 5f 53 65  |%!8 . .."Wimp_Se|
00005000  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00005010  23 28 05 e1 0d 23 32 04  0d 23 3c 20 dd 20 f2 73  |#(...#2..#< . .s|
00005020  65 74 69 63 6f 6e 76 61  6c 28 21 71 25 2c 71 25  |eticonval(!q%,q%|
00005030  21 34 2c 76 61 6c 25 29  0d 23 46 22 f2 73 65 74  |!4,val%).#F".set|
00005040  69 63 6f 6e 74 65 78 74  28 21 71 25 2c 71 25 21  |icontext(!q%,q%!|
00005050  34 2c c3 28 76 61 6c 25  29 29 0d 23 50 05 e1 0d  |4,.(val%)).#P...|
00005060  23 5a 04 0d 23 64 22 dd  20 f2 73 65 74 69 63 6f  |#Z..#d". .setico|
00005070  6e 74 65 78 74 28 21 71  25 2c 71 25 21 34 2c 74  |ntext(!q%,q%!4,t|
00005080  65 78 74 24 29 0d 23 6e  1d c8 99 22 57 69 6d 70  |ext$).#n..."Wimp|
00005090  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000050a0  71 25 0d 23 78 19 74 65  78 74 24 3d c0 74 65 78  |q%.#x.text$=.tex|
000050b0  74 24 2c 71 25 21 33 36  2d 31 29 0d 23 82 17 e7  |t$,q%!36-1).#...|
000050c0  20 24 28 71 25 21 32 38  29 3c 3e 74 65 78 74 24  | $(q%!28)<>text$|
000050d0  20 8c 0d 23 8c 12 24 28  71 25 21 32 38 29 3d 74  | ..#..$(q%!28)=t|
000050e0  65 78 74 24 0d 23 96 0a  71 25 21 38 3d 30 0d 23  |ext$.#..q%!8=0.#|
000050f0  a0 0b 71 25 21 31 32 3d  30 0d 23 aa 1d c8 99 22  |..q%!12=0.#...."|
00005100  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00005110  65 22 2c 2c 71 25 0d 23  b4 05 cd 0d 23 be 05 e1  |e",,q%.#....#...|
00005120  0d 23 c8 04 0d 23 d2 17  dd 20 a4 69 63 6f 6e 74  |.#...#... .icont|
00005130  70 28 21 71 25 2c 71 25  21 34 29 0d 23 dc 1d c8  |p(!q%,q%!4).#...|
00005140  99 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  |."Wimp_GetIconSt|
00005150  61 74 65 22 2c 2c 71 25  0d 23 e6 0a 3d 71 25 21  |ate",,q%.#..=q%!|
00005160  32 38 0d 23 f0 04 0d 23  fa 1b dd 20 f2 73 74 61  |28.#...#... .sta|
00005170  72 74 64 72 61 67 28 69  64 25 2c 69 63 6f 6e 25  |rtdrag(id%,icon%|
00005180  29 0d 24 04 0f 64 72 61  67 69 64 25 3d 69 64 25  |).$..dragid%=id%|
00005190  0d 24 0e 13 64 72 61 67  69 63 6f 6e 25 3d 69 63  |.$..dragicon%=ic|
000051a0  6f 6e 25 0d 24 18 15 77  69 6e 64 25 3d 77 25 28  |on%.$..wind%=w%(|
000051b0  64 72 61 67 69 64 25 29  0d 24 22 16 f2 77 69 6e  |dragid%).$"..win|
000051c0  64 6f 77 69 6e 66 6f 28  77 69 6e 64 25 29 0d 24  |dowinfo(wind%).$|
000051d0  2c 0f 21 62 6c 6b 25 3d  77 69 6e 64 25 0d 24 36  |,.!blk%=wind%.$6|
000051e0  10 62 6c 6b 25 21 34 3d  69 63 6f 6e 25 0d 24 40  |.blk%!4=icon%.$@|
000051f0  1f c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |..."Wimp_GetIcon|
00005200  53 74 61 74 65 22 2c 2c  62 6c 6b 25 0d 24 4a 0b  |State",,blk%.$J.|
00005210  21 62 6c 6b 25 3d 30 0d  24 54 0c 62 6c 6b 25 21  |!blk%=0.$T.blk%!|
00005220  34 3d 35 0d 24 5e 0f 62  6c 6b 25 21 38 2b 3d 77  |4=5.$^.blk%!8+=w|
00005230  78 25 0d 24 68 10 62 6c  6b 25 21 31 32 2b 3d 77  |x%.$h.blk%!12+=w|
00005240  79 25 0d 24 72 10 62 6c  6b 25 21 31 36 2b 3d 77  |y%.$r.blk%!16+=w|
00005250  78 25 0d 24 7c 10 62 6c  6b 25 21 32 30 2b 3d 77  |x%.$|.blk%!20+=w|
00005260  79 25 0d 24 86 0d 62 6c  6b 25 21 32 34 3d 30 0d  |y%.$..blk%!24=0.|
00005270  24 90 0d 62 6c 6b 25 21  32 38 3d 30 0d 24 9a 10  |$..blk%!28=0.$..|
00005280  62 6c 6b 25 21 33 32 3d  73 63 78 25 0d 24 a4 10  |blk%!32=scx%.$..|
00005290  62 6c 6b 25 21 33 36 3d  73 63 79 25 0d 24 ae 0d  |blk%!36=scy%.$..|
000052a0  e7 20 64 72 61 67 25 20  8c 0d 24 b8 45 c8 99 22  |. drag% ..$.E.."|
000052b0  44 72 61 67 41 53 70 72  69 74 65 5f 53 74 61 72  |DragASprite_Star|
000052c0  74 22 2c 31 39 37 2c 31  2c a4 69 63 6f 6e 74 65  |t",197,1,.iconte|
000052d0  78 74 28 77 69 6e 64 25  2c 69 63 6f 6e 25 29 2c  |xt(wind%,icon%),|
000052e0  62 6c 6b 25 2b 38 2c 62  6c 6b 25 2b 32 34 0d 24  |blk%+8,blk%+24.$|
000052f0  c2 05 cc 0d 24 cc 1a c8  99 22 57 69 6d 70 5f 44  |....$...."Wimp_D|
00005300  72 61 67 42 6f 78 22 2c  2c 62 6c 6b 25 0d 24 d6  |ragBox",,blk%.$.|
00005310  05 cd 0d 24 e0 05 e1 0d  24 ea 04 0d 24 f4 1b f4  |...$....$...$...|
00005320  20 2d 20 75 73 65 72 20  69 6e 74 65 72 6f 67 61  | - user interoga|
00005330  74 69 6f 6e 20 2d 0d 24  fe 04 0d 25 08 16 dd 20  |tion -.$...%... |
00005340  a4 63 68 65 63 6b 28 6d  65 73 73 61 67 65 24 29  |.check(message$)|
00005350  0d 25 12 17 c8 99 22 57  69 6d 70 5f 44 72 61 67  |.%...."Wimp_Drag|
00005360  42 6f 78 22 2c 2c 30 0d  25 1c 09 21 71 25 3d 30  |Box",,0.%..!q%=0|
00005370  0d 25 26 14 24 28 71 25  2b 34 29 3d 6d 65 73 73  |.%&.$(q%+4)=mess|
00005380  61 67 65 24 0d 25 30 42  c8 99 22 57 69 6d 70 5f  |age$.%0B.."Wimp_|
00005390  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 71 25 2c  |ReportError",q%,|
000053a0  31 39 2c 22 4d 65 73 73  61 67 65 20 66 72 6f 6d  |19,"Message from|
000053b0  20 22 2b 70 72 6f 67 72  61 6d 24 20 b8 20 2c 61  | "+program$ . ,a|
000053c0  6e 73 77 65 72 25 0d 25  3a 19 e7 20 61 6e 73 77  |nswer%.%:.. answ|
000053d0  65 72 25 3d 31 20 8c 20  3d b9 20 8b 20 3d a3 0d  |er%=1 . =. . =..|
000053e0  25 44 04 0d 25 4e 17 dd  20 f2 72 65 70 6f 72 74  |%D..%N.. .report|
000053f0  28 6d 65 73 73 61 67 65  24 29 0d 25 58 25 64 25  |(message$).%X%d%|
00005400  3d a4 71 75 65 73 74 69  6f 6e 28 6d 65 73 73 61  |=.question(messa|
00005410  67 65 24 2c 22 4f 4b 22  2c 22 22 2c 22 22 29 0d  |ge$,"OK","","").|
00005420  25 62 05 e1 0d 25 6c 04  0d 25 76 30 dd 20 a4 71  |%b...%l..%v0. .q|
00005430  75 65 73 74 69 6f 6e 28  61 6e 73 24 28 30 29 2c  |uestion(ans$(0),|
00005440  61 6e 73 24 28 31 29 2c  61 6e 73 24 28 32 29 2c  |ans$(1),ans$(2),|
00005450  61 6e 73 24 28 33 29 29  0d 25 80 0d ea 20 73 74  |ans$(3)).%... st|
00005460  61 74 75 73 25 0d 25 8a  0d 73 74 61 74 75 73 25  |atus%.%..status%|
00005470  3d 32 0d 25 94 0e f2 63  6c 6f 73 65 6d 65 6e 75  |=2.%...closemenu|
00005480  0d 25 9e 0e e3 20 69 25  3d 30 20 b8 20 33 0d 25  |.%... i%=0 . 3.%|
00005490  a8 15 20 20 e7 20 61 6e  73 24 28 69 25 29 3d 22  |..  . ans$(i%)="|
000054a0  22 20 8c 0d 25 b2 23 20  20 20 20 f2 72 65 6d 6f  |" ..%.#    .remo|
000054b0  76 65 69 63 6f 6e 28 77  25 28 72 65 70 6f 72 74  |veicon(w%(report|
000054c0  25 29 2c 69 25 29 0d 25  bc 07 20 20 cc 0d 25 c6  |%),i%).%..  ..%.|
000054d0  23 20 20 20 20 f2 72 65  69 6e 69 74 69 63 6f 6e  |#    .reiniticon|
000054e0  28 77 25 28 72 65 70 6f  72 74 25 29 2c 69 25 29  |(w%(report%),i%)|
000054f0  0d 25 d0 2d 20 20 20 20  f2 73 65 74 69 63 6f 6e  |.%.-    .seticon|
00005500  74 65 78 74 28 77 25 28  72 65 70 6f 72 74 25 29  |text(w%(report%)|
00005510  2c 69 25 2c 61 6e 73 24  28 69 25 29 29 0d 25 da  |,i%,ans$(i%)).%.|
00005520  07 20 20 cd 0d 25 e4 08  ed 20 69 25 0d 25 ee 0e  |.  ..%... i%.%..|
00005530  f2 6c 6f 73 65 63 61 72  65 74 0d 25 f8 1e f2 6f  |.losecaret.%...o|
00005540  70 65 6e 69 6e 63 65 6e  74 72 65 28 77 25 28 72  |penincentre(w%(r|
00005550  65 70 6f 72 74 25 29 29  0d 26 02 11 e7 20 62 65  |eport%)).&... be|
00005560  65 70 25 20 8c 20 ef 20  37 0d 26 0c 0d 61 6e 73  |ep% . . 7.&..ans|
00005570  77 65 72 25 3d 30 0d 26  16 05 f5 0d 26 20 24 20  |wer%=0.&....& $ |
00005580  20 c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 31  | .."Wimp_Poll",1|
00005590  2c 62 6c 6b 25 20 b8 20  72 65 61 73 6f 6e 25 0d  |,blk% . reason%.|
000055a0  26 2a 12 20 20 c8 8e 20  72 65 61 73 6f 6e 25 20  |&*.  .. reason% |
000055b0  ca 0d 26 34 13 20 20 20  20 c9 20 31 3a f2 72 65  |..&4.    . 1:.re|
000055c0  64 72 61 77 0d 26 3e 40  20 20 20 20 c9 20 36 3a  |draw.&>@    . 6:|
000055d0  e7 20 62 6c 6b 25 21 31  32 3d 77 25 28 72 65 70  |. blk%!12=w%(rep|
000055e0  6f 72 74 25 29 20 80 20  62 6c 6b 25 21 31 36 3e  |ort%) . blk%!16>|
000055f0  2d 31 20 8c 20 61 6e 73  77 65 72 25 3d 62 6c 6b  |-1 . answer%=blk|
00005600  25 21 31 36 0d 26 48 2f  20 20 20 20 c9 20 31 37  |%!16.&H/    . 17|
00005610  2c 31 38 3a f2 6d 65 73  73 61 67 65 28 62 6c 6b  |,18:.message(blk|
00005620  25 21 34 2c 62 6c 6b 25  21 38 2c 62 6c 6b 25 21  |%!4,blk%!8,blk%!|
00005630  31 36 29 0d 26 52 07 20  20 cb 0d 26 5c 0d fd 20  |16).&R.  ..&\.. |
00005640  61 6e 73 77 65 72 25 0d  26 66 1d f2 63 6c 6f 73  |answer%.&f..clos|
00005650  65 77 69 6e 64 6f 77 28  77 25 28 72 65 70 6f 72  |ewindow(w%(repor|
00005660  74 25 29 29 0d 26 70 0c  3d 61 6e 73 77 65 72 25  |t%)).&p.=answer%|
00005670  0d 26 7a 04 0d 26 84 0e  f4 20 2d 20 6d 69 73 63  |.&z..&... - misc|
00005680  20 2d 0d 26 8e 04 0d 26  98 0b dd 20 f2 71 75 69  | -.&...&... .qui|
00005690  74 0d 26 a2 0e f2 63 6c  6f 73 65 64 6f 77 6e 0d  |t.&...closedown.|
000056a0  26 ac 05 e1 0d 26 b6 04  0d 26 c0 10 dd 20 f2 63  |&....&...&... .c|
000056b0  6c 6f 73 65 64 6f 77 6e  0d 26 ca 0e f2 72 65 73  |losedown.&...res|
000056c0  65 74 73 6c 6f 74 0d 26  d4 10 e3 20 69 25 3d 31  |etslot.&... i%=1|
000056d0  20 b8 20 32 35 35 0d 26  de 14 c8 95 20 66 6f 6e  | . 255.&.... fon|
000056e0  74 74 61 62 6c 65 25 3f  69 25 0d 26 e8 18 c8 99  |ttable%?i%.&....|
000056f0  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
00005700  69 25 0d 26 f2 14 66 6f  6e 74 74 61 62 6c 65 25  |i%.&..fonttable%|
00005710  3f 69 25 2d 3d 31 0d 26  fc 05 ce 0d 27 06 08 ed  |?i%-=1.&....'...|
00005720  20 69 25 0d 27 10 1e c8  99 22 57 69 6d 70 5f 43  | i%.'...."Wimp_C|
00005730  6c 6f 73 65 44 6f 77 6e  22 2c 6d 79 74 61 73 6b  |loseDown",mytask|
00005740  25 0d 27 1a 05 e0 0d 27  24 05 e1 0d 27 2e 04 0d  |%.'....'$...'...|
00005750  27 38 1a dd 20 a4 6d 6f  64 65 76 61 72 28 6d 6f  |'8.. .modevar(mo|
00005760  64 65 25 2c 76 61 72 25  29 0d 27 42 2f c8 99 22  |de%,var%).'B/.."|
00005770  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00005780  62 6c 65 22 2c 6d 6f 64  65 25 2c 76 61 72 25 20  |ble",mode%,var% |
00005790  b8 20 2c 2c 76 61 6c 25  0d 27 4c 09 3d 76 61 6c  |. ,,val%.'L.=val|
000057a0  25 0d 27 56 04 0d 27 60  15 dd 20 f2 73 65 74 66  |%.'V..'`.. .setf|
000057b0  6f 6e 74 63 6f 6c 6f 75  72 73 0d 27 6a 0e c8 8e  |ontcolours.'j...|
000057c0  20 63 6f 6c 73 25 20 ca  0d 27 74 2a 20 20 c9 20  | cols% ..'t*  . |
000057d0  31 20 3a 20 c8 99 22 46  6f 6e 74 5f 53 65 74 46  |1 : .."Font_SetF|
000057e0  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 2c 30 2c 31  |ontColours",,0,1|
000057f0  2c 30 0d 27 7e 2a 20 20  c9 20 33 20 3a 20 c8 99  |,0.'~*  . 3 : ..|
00005800  22 46 6f 6e 74 5f 53 65  74 46 6f 6e 74 43 6f 6c  |"Font_SetFontCol|
00005810  6f 75 72 73 22 2c 2c 30  2c 31 2c 32 0d 27 88 2b  |ours",,0,1,2.'.+|
00005820  20 20 c9 20 31 35 20 3a  20 c8 99 22 46 6f 6e 74  |  . 15 : .."Font|
00005830  5f 53 65 74 46 6f 6e 74  43 6f 6c 6f 75 72 73 22  |_SetFontColours"|
00005840  2c 2c 30 2c 31 2c 36 0d  27 92 3a 20 20 c9 20 31  |,,0,1,6.'.:  . 1|
00005850  35 20 3a 20 c8 99 22 46  6f 6e 74 5f 53 65 74 46  |5 : .."Font_SetF|
00005860  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 2c 30 2c 31  |ontColours",,0,1|
00005870  2c 31 34 2c 21 70 61 6c  25 2c 70 61 6c 25 21 32  |,14,!pal%,pal%!2|
00005880  38 0d 27 9c 05 cb 0d 27  a6 05 e1 0d 27 b0 04 0d  |8.'....'....'...|
00005890  27 ba 11 dd 20 a4 73 74  72 69 6e 67 28 62 25 29  |'... .string(b%)|
000058a0  0d 27 c4 08 ea 20 73 24  0d 27 ce 09 73 24 3d 22  |.'... s$.'..s$="|
000058b0  22 0d 27 d8 0d c8 95 20  3f 62 25 3e 33 31 0d 27  |".'.... ?b%>31.'|
000058c0  e2 0e 73 24 2b 3d bd 28  3f 62 25 29 0d 27 ec 09  |..s$+=.(?b%).'..|
000058d0  62 25 2b 3d 31 0d 27 f6  05 ce 0d 28 00 07 3d 73  |b%+=1.'....(..=s|
000058e0  24 0d 28 0a 04 0d 28 14  11 f4 20 2d 20 77 69 6e  |$.(...(... - win|
000058f0  64 6f 77 73 20 2d 0d 28  1e 04 0d 28 28 31 dd 20  |dows -.(...((1. |
00005900  f2 73 65 74 77 69 6e 64  6f 77 65 78 74 65 6e 74  |.setwindowextent|
00005910  28 77 69 6e 64 25 2c 21  71 25 2c 71 25 21 34 2c  |(wind%,!q%,q%!4,|
00005920  71 25 21 38 2c 71 25 21  31 32 29 0d 28 32 1f c8  |q%!8,q%!12).(2..|
00005930  99 22 57 69 6d 70 5f 53  65 74 45 78 74 65 6e 74  |."Wimp_SetExtent|
00005940  22 2c 77 69 6e 64 25 2c  71 25 0d 28 3c 05 e1 0d  |",wind%,q%.(<...|
00005950  28 46 04 0d 28 50 1a dd  20 f2 6f 70 65 6e 69 6e  |(F..(P.. .openin|
00005960  63 65 6e 74 72 65 28 21  62 6c 6b 25 29 0d 28 5a  |centre(!blk%).(Z|
00005970  21 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |!.."Wimp_GetWind|
00005980  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 28  |owState",,blk%.(|
00005990  64 16 6d 31 25 3d 62 6c  6b 25 21 31 32 2d 62 6c  |d.m1%=blk%!12-bl|
000059a0  6b 25 21 34 0d 28 6e 16  6d 32 25 3d 62 6c 6b 25  |k%!4.(n.m2%=blk%|
000059b0  21 31 36 2d 62 6c 6b 25  21 38 0d 28 78 18 62 6c  |!16-blk%!8.(x.bl|
000059c0  6b 25 21 34 3d 28 73 63  78 25 2d 6d 31 25 29 3e  |k%!4=(scx%-m1%)>|
000059d0  3e 31 0d 28 82 18 62 6c  6b 25 21 38 3d 28 73 63  |>1.(..blk%!8=(sc|
000059e0  79 25 2d 6d 32 25 29 3e  3e 31 0d 28 8c 19 62 6c  |y%-m2%)>>1.(..bl|
000059f0  6b 25 21 31 32 3d 28 73  63 78 25 2b 6d 31 25 29  |k%!12=(scx%+m1%)|
00005a00  3e 3e 31 0d 28 96 19 62  6c 6b 25 21 31 36 3d 28  |>>1.(..blk%!16=(|
00005a10  73 63 79 25 2b 6d 32 25  29 3e 3e 31 0d 28 a0 0e  |scy%+m2%)>>1.(..|
00005a20  62 6c 6b 25 21 32 38 3d  2d 31 0d 28 aa 0f f2 6f  |blk%!28=-1.(...o|
00005a30  70 65 6e 77 69 6e 64 6f  77 0d 28 b4 05 e1 0d 28  |penwindow.(....(|
00005a40  be 04 0d 28 c8 1d dd 20  f2 6e 65 77 74 69 74 6c  |...(... .newtitl|
00005a50  65 28 21 62 6c 6b 25 2c  74 69 74 6c 65 24 29 0d  |e(!blk%,title$).|
00005a60  28 d2 20 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |(. .."Wimp_GetWi|
00005a70  6e 64 6f 77 49 6e 66 6f  22 2c 2c 62 6c 6b 25 0d  |ndowInfo",,blk%.|
00005a80  28 dc 1a e7 20 24 28 62  6c 6b 25 21 37 36 29 3c  |(... $(blk%!76)<|
00005a90  3e 74 69 74 6c 65 24 20  8c 0d 28 e6 15 24 28 62  |>title$ ..(..$(b|
00005aa0  6c 6b 25 21 37 36 29 3d  74 69 74 6c 65 24 0d 28  |lk%!76)=title$.(|
00005ab0  f0 1b e7 20 61 63 74 69  76 65 25 28 a4 69 64 28  |... active%(.id(|
00005ac0  21 62 6c 6b 25 29 29 20  8c 0d 28 fa 25 20 20 c8  |!blk%)) ..(.%  .|
00005ad0  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00005ae0  4f 75 74 6c 69 6e 65 22  2c 2c 62 6c 6b 25 0d 29  |Outline",,blk%.)|
00005af0  04 3f 20 20 c8 99 22 57  69 6d 70 5f 46 6f 72 63  |.?  .."Wimp_Forc|
00005b00  65 52 65 64 72 61 77 22  2c 2d 31 2c 62 6c 6b 25  |eRedraw",-1,blk%|
00005b10  21 34 2c 62 6c 6b 25 21  31 36 2d 34 34 2c 62 6c  |!4,blk%!16-44,bl|
00005b20  6b 25 21 31 32 2c 62 6c  6b 25 21 31 36 0d 29 0e  |k%!12,blk%!16.).|
00005b30  05 cd 0d 29 18 05 cd 0d  29 22 05 e1 0d 29 2c 04  |...)....)"...),.|
00005b40  0d 29 36 19 dd 20 f2 66  6f 72 63 65 72 65 64 72  |.)6.. .forceredr|
00005b50  61 77 28 21 62 6c 6b 25  29 0d 29 40 20 c8 99 22  |aw(!blk%).)@ .."|
00005b60  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00005b70  66 6f 22 2c 2c 62 6c 6b  25 0d 29 4a 3e c8 99 22  |fo",,blk%.)J>.."|
00005b80  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00005b90  22 2c 21 62 6c 6b 25 2c  62 6c 6b 25 21 34 34 2c  |",!blk%,blk%!44,|
00005ba0  62 6c 6b 25 21 34 38 2c  62 6c 6b 25 21 35 32 2c  |blk%!48,blk%!52,|
00005bb0  62 6c 6b 25 21 35 36 0d  29 54 05 e1 0d 29 5e 04  |blk%!56.)T...)^.|
00005bc0  0d 29 68 1a dd 20 f2 75  70 64 61 74 65 77 69 6e  |.)h.. .updatewin|
00005bd0  64 6f 77 28 21 62 6c 6b  25 29 0d 29 72 20 c8 99  |dow(!blk%).)r ..|
00005be0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00005bf0  6e 66 6f 22 2c 2c 62 6c  6b 25 0d 29 7c 12 62 6c  |nfo",,blk%.)|.bl|
00005c00  6b 25 21 34 3d 62 6c 6b  25 21 34 34 0d 29 86 12  |k%!4=blk%!44.)..|
00005c10  62 6c 6b 25 21 38 3d 62  6c 6b 25 21 34 38 0d 29  |blk%!8=blk%!48.)|
00005c20  90 13 62 6c 6b 25 21 31  32 3d 62 6c 6b 25 21 35  |..blk%!12=blk%!5|
00005c30  32 0d 29 9a 13 62 6c 6b  25 21 31 36 3d 62 6c 6b  |2.)..blk%!16=blk|
00005c40  25 21 35 36 0d 29 a4 27  c8 99 22 57 69 6d 70 5f  |%!56.).'.."Wimp_|
00005c50  55 70 64 61 74 65 57 69  6e 64 6f 77 22 2c 2c 62  |UpdateWindow",,b|
00005c60  6c 6b 25 20 b8 20 6d 6f  72 65 25 0d 29 ae 05 e1  |lk% . more%.)...|
00005c70  0d 29 b8 04 0d 29 c2 1c  dd 20 f2 6f 70 65 6e 66  |.)...)... .openf|
00005c80  75 6c 6c 79 28 21 62 6c  6b 25 2c 74 6f 70 25 29  |ully(!blk%,top%)|
00005c90  0d 29 cc 20 c8 99 22 57  69 6d 70 5f 47 65 74 57  |.). .."Wimp_GetW|
00005ca0  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 62 6c 6b 25  |indowInfo",,blk%|
00005cb0  0d 29 d6 24 62 6c 6b 25  21 31 32 3d 62 6c 6b 25  |.).$blk%!12=blk%|
00005cc0  21 34 2b 28 62 6c 6b 25  21 35 32 2d 62 6c 6b 25  |!4+(blk%!52-blk%|
00005cd0  21 34 34 29 0d 29 e0 24  62 6c 6b 25 21 38 3d 62  |!44).).$blk%!8=b|
00005ce0  6c 6b 25 21 31 36 2d 28  62 6c 6b 25 21 35 36 2d  |lk%!16-(blk%!56-|
00005cf0  62 6c 6b 25 21 34 38 29  0d 29 ea 17 e7 20 74 6f  |blk%!48).)... to|
00005d00  70 25 20 8c 20 62 6c 6b  25 21 32 38 3d 2d 31 0d  |p% . blk%!28=-1.|
00005d10  29 f4 0f f2 6f 70 65 6e  77 69 6e 64 6f 77 0d 29  |)...openwindow.)|
00005d20  fe 05 e1 0d 2a 08 04 0d  2a 12 19 dd 20 f2 63 6c  |....*...*... .cl|
00005d30  6f 73 65 77 69 6e 64 6f  77 28 77 69 6e 64 25 29  |osewindow(wind%)|
00005d40  0d 2a 1c 11 ea 20 63 69  64 25 2c 63 6c 6f 73 65  |.*... cid%,close|
00005d50  25 0d 2a 26 13 63 69 64  25 3d a4 69 64 28 77 69  |%.*&.cid%=.id(wi|
00005d60  6e 64 25 29 0d 2a 30 42  e7 20 73 79 73 66 6c 61  |nd%).*0B. sysfla|
00005d70  67 73 25 28 63 69 64 25  29 80 32 20 8c 20 63 6c  |gs%(cid%).2 . cl|
00005d80  6f 73 65 25 3d a0 28 22  46 4e 63 6c 6f 73 65 22  |ose%=.("FNclose"|
00005d90  2b 69 64 24 28 63 69 64  25 29 29 20 8b 20 63 6c  |+id$(cid%)) . cl|
00005da0  6f 73 65 25 3d b9 0d 2a  3a 0e e7 20 63 6c 6f 73  |ose%=..*:.. clos|
00005db0  65 25 20 8c 0d 2a 44 15  20 20 61 63 74 69 76 65  |e% ..*D.  active|
00005dc0  25 28 63 69 64 25 29 3d  a3 0d 2a 4e 21 20 20 f2  |%(cid%)=..*N!  .|
00005dd0  71 75 69 63 6b 63 6c 6f  73 65 77 69 6e 64 6f 77  |quickclosewindow|
00005de0  28 77 25 28 63 69 64 25  29 29 0d 2a 58 05 cd 0d  |(w%(cid%)).*X...|
00005df0  2a 62 05 e1 0d 2a 6c 04  0d 2a 76 1c dd 20 f2 71  |*b...*l..*v.. .q|
00005e00  75 69 63 6b 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |uickclosewindow(|
00005e10  21 71 25 29 0d 2a 80 1c  c8 99 22 57 69 6d 70 5f  |!q%).*...."Wimp_|
00005e20  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 71 25  |CloseWindow",,q%|
00005e30  0d 2a 8a 05 e1 0d 2a 94  04 0d 2a 9e 14 dd 20 f2  |.*....*...*... .|
00005e40  72 65 6f 70 65 6e 28 21  62 6c 6b 25 29 0d 2a a8  |reopen(!blk%).*.|
00005e50  21 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |!.."Wimp_GetWind|
00005e60  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 2a  |owState",,blk%.*|
00005e70  b2 0f f2 6f 70 65 6e 77  69 6e 64 6f 77 0d 2a bc  |...openwindow.*.|
00005e80  17 f2 66 6f 72 63 65 72  65 64 72 61 77 28 21 62  |..forceredraw(!b|
00005e90  6c 6b 25 29 0d 2a c6 05  e1 0d 2a d0 04 0d 2a da  |lk%).*....*...*.|
00005ea0  18 dd 20 f2 77 69 6e 64  6f 77 69 6e 66 6f 28 77  |.. .windowinfo(w|
00005eb0  69 6e 64 25 29 0d 2a e4  0f 21 62 6c 6b 25 3d 77  |ind%).*..!blk%=w|
00005ec0  69 6e 64 25 0d 2a ee 20  c8 99 22 57 69 6d 70 5f  |ind%.*. .."Wimp_|
00005ed0  47 65 74 57 69 6e 64 6f  77 49 6e 66 6f 22 2c 2c  |GetWindowInfo",,|
00005ee0  62 6c 6b 25 0d 2a f8 16  77 78 25 3d 62 6c 6b 25  |blk%.*..wx%=blk%|
00005ef0  21 34 2d 62 6c 6b 25 21  32 30 0d 2b 02 17 77 79  |!4-blk%!20.+..wy|
00005f00  25 3d 62 6c 6b 25 21 31  36 2d 62 6c 6b 25 21 32  |%=blk%!16-blk%!2|
00005f10  34 0d 2b 0c 16 77 77 25  3d 62 6c 6b 25 21 31 32  |4.+..ww%=blk%!12|
00005f20  2d 62 6c 6b 25 21 34 0d  2b 16 16 77 68 25 3d 62  |-blk%!4.+..wh%=b|
00005f30  6c 6b 25 21 31 36 2d 62  6c 6b 25 21 38 0d 2b 20  |lk%!16-blk%!8.+ |
00005f40  05 e1 0d 2b 2a 04 0d 2b  34 23 dd 20 a4 73 61 76  |...+*..+4#. .sav|
00005f50  65 62 6f 78 28 66 69 6c  65 74 79 70 65 25 2c 73  |ebox(filetype%,s|
00005f60  74 61 6e 64 61 72 64 24  29 0d 2b 3e 24 77 69 6e  |tandard$).+>$win|
00005f70  64 25 3d a4 77 69 6e 64  6f 77 28 22 73 61 76 65  |d%=.window("save|
00005f80  22 2c 22 73 61 76 65 22  2c 30 2c 30 29 0d 2b 48  |","save",0,0).+H|
00005f90  3c f2 73 65 74 69 63 6f  6e 74 65 78 74 28 77 25  |<.seticontext(w%|
00005fa0  28 77 69 6e 64 25 29 2c  33 2c 22 66 69 6c 65 5f  |(wind%),3,"file_|
00005fb0  22 2b c2 22 30 30 22 2b  c3 7e 28 66 69 6c 65 74  |"+."00"+.~(filet|
00005fc0  79 70 65 25 29 2c 33 29  29 0d 2b 52 27 f2 73 65  |ype%),3)).+R'.se|
00005fd0  74 69 63 6f 6e 74 65 78  74 28 77 25 28 77 69 6e  |ticontext(w%(win|
00005fe0  64 25 29 2c 31 2c 73 74  61 6e 64 61 72 64 24 29  |d%),1,standard$)|
00005ff0  0d 2b 5c 1a 6d 69 73 63  25 28 77 69 6e 64 25 29  |.+\.misc%(wind%)|
00006000  3d 66 69 6c 65 74 79 70  65 25 0d 2b 66 0a 3d 77  |=filetype%.+f.=w|
00006010  69 6e 64 25 0d 2b 70 04  0d 2b 7a 15 dd 20 a4 6c  |ind%.+p..+z.. .l|
00006020  61 73 74 62 69 74 28 66  69 6c 65 24 29 0d 2b 84  |astbit(file$).+.|
00006030  12 c8 95 20 a7 66 69 6c  65 24 2c 22 2e 22 29 0d  |... .file$,".").|
00006040  2b 8e 1f 66 69 6c 65 24  3d c1 66 69 6c 65 24 2c  |+..file$=.file$,|
00006050  a7 66 69 6c 65 24 2c 22  2e 22 29 2b 31 29 0d 2b  |.file$,".")+1).+|
00006060  98 05 ce 0d 2b a2 0a 3d  66 69 6c 65 24 0d 2b ac  |....+..=file$.+.|
00006070  04 0d 2b b6 10 dd 20 f2  6d 6f 75 73 65 69 6e 66  |..+... .mouseinf|
00006080  6f 0d 2b c0 1f c8 99 22  57 69 6d 70 5f 47 65 74  |o.+...."Wimp_Get|
00006090  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
000060a0  0d 2b ca 0b 6d 78 25 3d  21 71 25 0d 2b d4 0c 6d  |.+..mx%=!q%.+..m|
000060b0  79 25 3d 71 25 21 34 0d  2b de 0d 62 75 74 25 3d  |y%=q%!4.+..but%=|
000060c0  71 25 21 38 0d 2b e8 0f  77 69 6e 64 25 3d 71 25  |q%!8.+..wind%=q%|
000060d0  21 31 32 0d 2b f2 0f 69  63 6f 6e 25 3d 71 25 21  |!12.+..icon%=q%!|
000060e0  31 36 0d 2b fc 05 e1 0d  2c 06 04 0d 2c 10 23 dd  |16.+....,...,.#.|
000060f0  20 f2 73 65 74 66 69 6c  65 74 79 70 65 28 66 69  | .setfiletype(fi|
00006100  6c 65 24 2c 66 69 6c 65  74 79 70 65 25 29 0d 2c  |le$,filetype%).,|
00006110  1a 23 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 26 31  |.#.."OS_File",&1|
00006120  32 2c 66 69 6c 65 24 2c  66 69 6c 65 74 79 70 65  |2,file$,filetype|
00006130  25 0d 2c 24 05 e1 0d 2c  2e 04 0d 2c 38 24 dd 20  |%.,$...,...,8$. |
00006140  f2 73 68 61 64 65 6d 65  6e 75 28 6d 65 6e 75 25  |.shademenu(menu%|
00006150  2c 69 74 65 6d 25 2c 73  68 61 64 65 25 29 0d 2c  |,item%,shade%).,|
00006160  42 18 70 25 3d 6d 65 6e  75 25 2b 33 36 2b 69 74  |B.p%=menu%+36+it|
00006170  65 6d 25 2a 32 34 0d 2c  4c 15 21 70 25 3d 21 70  |em%*24.,L.!p%=!p|
00006180  25 20 80 ac 28 31 3c 3c  32 32 29 0d 2c 56 1f e7  |% ..(1<<22).,V..|
00006190  20 73 68 61 64 65 25 20  8c 20 21 70 25 3d 21 70  | shade% . !p%=!p|
000061a0  25 20 84 28 31 3c 3c 32  32 29 0d 2c 60 05 e1 0d  |% .(1<<22).,`...|
000061b0  2c 6a 04 0d 2c 74 0f dd  20 f2 67 65 74 63 61 72  |,j..,t.. .getcar|
000061c0  65 74 0d 2c 7e 21 c8 99  22 57 69 6d 70 5f 47 65  |et.,~!.."Wimp_Ge|
000061d0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000061e0  2c 71 25 0d 2c 88 0e 63  77 69 6e 64 25 3d 21 71  |,q%.,..cwind%=!q|
000061f0  25 0d 2c 92 0f 63 69 63  6f 6e 25 3d 71 25 21 34  |%.,..cicon%=q%!4|
00006200  0d 2c 9c 0f 63 78 6f 66  66 25 3d 71 25 21 38 0d  |.,..cxoff%=q%!8.|
00006210  2c a6 10 63 79 6f 66 66  25 3d 71 25 21 31 32 0d  |,..cyoff%=q%!12.|
00006220  2c b0 12 63 68 65 69 67  68 74 25 3d 71 25 21 31  |,..cheight%=q%!1|
00006230  36 0d 2c ba 11 63 69 6e  64 65 78 25 3d 71 25 21  |6.,..cindex%=q%!|
00006240  32 30 0d 2c c4 05 e1 0d  2c ce 04 0d 2c d8 23 dd  |20.,....,...,.#.|
00006250  20 f2 70 75 74 63 61 72  65 74 28 77 69 6e 64 25  | .putcaret(wind%|
00006260  2c 69 63 6f 6e 25 2c 69  6e 64 65 78 25 29 0d 2c  |,icon%,index%).,|
00006270  e2 20 6c 65 6e 25 3d a9  a4 69 63 6f 6e 74 65 78  |. len%=..icontex|
00006280  74 28 77 69 6e 64 25 2c  69 63 6f 6e 25 29 0d 2c  |t(wind%,icon%).,|
00006290  ec 1f e7 20 69 6e 64 65  78 25 3e 6c 65 6e 25 20  |... index%>len% |
000062a0  8c 20 69 6e 64 65 78 25  3d 6c 65 6e 25 0d 2c f6  |. index%=len%.,.|
000062b0  35 c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |5.."Wimp_SetCare|
000062c0  74 50 6f 73 69 74 69 6f  6e 22 2c 77 69 6e 64 25  |tPosition",wind%|
000062d0  2c 69 63 6f 6e 25 2c 2c  2c 2d 31 2c 69 6e 64 65  |,icon%,,,-1,inde|
000062e0  78 25 0d 2d 00 05 e1 0d  2d 0a 04 0d 2d 14 1e dd  |x%.-....-...-...|
000062f0  20 f2 72 65 73 65 74 63  61 72 65 74 28 77 69 6e  | .resetcaret(win|
00006300  64 25 2c 69 63 6f 6e 25  29 0d 2d 1e 21 c8 99 22  |d%,icon%).-.!.."|
00006310  57 69 6d 70 5f 47 65 74  43 61 72 65 74 50 6f 73  |Wimp_GetCaretPos|
00006320  69 74 69 6f 6e 22 2c 2c  71 25 0d 2d 28 20 e7 20  |ition",,q%.-( . |
00006330  28 21 71 25 3d 77 69 6e  64 25 20 80 20 71 25 21  |(!q%=wind% . q%!|
00006340  34 3d 69 63 6f 6e 25 29  20 8c 0d 2d 32 12 20 20  |4=icon%) ..-2.  |
00006350  69 6e 64 65 78 25 3d 71  25 21 32 30 0d 2d 3c 22  |index%=q%!20.-<"|
00006360  20 20 6c 65 6e 25 3d a9  a4 69 63 6f 6e 74 65 78  |  len%=..icontex|
00006370  74 28 77 69 6e 64 25 2c  69 63 6f 6e 25 29 0d 2d  |t(wind%,icon%).-|
00006380  46 21 20 20 e7 20 69 6e  64 65 78 25 3e 6c 65 6e  |F!  . index%>len|
00006390  25 20 8c 20 69 6e 64 65  78 25 3d 6c 65 6e 25 0d  |% . index%=len%.|
000063a0  2d 50 37 20 20 c8 99 22  57 69 6d 70 5f 53 65 74  |-P7  .."Wimp_Set|
000063b0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 77  |CaretPosition",w|
000063c0  69 6e 64 25 2c 69 63 6f  6e 25 2c 2c 2c 2d 31 2c  |ind%,icon%,,,-1,|
000063d0  69 6e 64 65 78 25 0d 2d  5a 05 cd 0d 2d 64 49 e7  |index%.-Z...-dI.|
000063e0  20 77 69 6e 64 25 3d 30  20 8c 20 c8 99 22 57 69  | wind%=0 . .."Wi|
000063f0  6d 70 5f 53 65 74 43 61  72 65 74 50 6f 73 69 74  |mp_SetCaretPosit|
00006400  69 6f 6e 22 2c 21 71 25  2c 71 25 21 34 2c 71 25  |ion",!q%,q%!4,q%|
00006410  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 2c 71  |!8,q%!12,q%!16,q|
00006420  25 21 32 30 0d 2d 6e 05  e1 0d 2d 78 04 0d 2d 82  |%!20.-n...-x..-.|
00006430  10 dd 20 f2 6c 6f 73 65  63 61 72 65 74 0d 2d 8c  |.. .losecaret.-.|
00006440  2d e7 20 6d 79 63 61 72  65 74 25 20 8c 20 c8 99  |-. mycaret% . ..|
00006450  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00006460  73 69 74 69 6f 6e 22 2c  2d 31 0d 2d 96 05 e1 0d  |sition",-1.-....|
00006470  2d a0 04 0d 2d aa 1a dd  20 f2 66 6c 61 73 68 69  |-...-... .flashi|
00006480  63 6f 6e 28 21 71 25 2c  71 25 21 34 29 0d 2d b4  |con(!q%,q%!4).-.|
00006490  0e e3 20 66 25 3d 31 20  b8 20 33 0d 2d be 09 c8  |.. f%=1 . 3.-...|
000064a0  96 3a c8 96 0d 2d c8 1b  f2 73 65 6c 65 63 74 69  |.:...-...selecti|
000064b0  63 6f 6e 28 21 71 25 2c  71 25 21 34 2c a3 29 0d  |con(!q%,q%!4,.).|
000064c0  2d d2 09 c8 96 3a c8 96  0d 2d dc 1b f2 73 65 6c  |-....:...-...sel|
000064d0  65 63 74 69 63 6f 6e 28  21 71 25 2c 71 25 21 34  |ecticon(!q%,q%!4|
000064e0  2c b9 29 0d 2d e6 08 ed  20 66 25 0d 2d f0 05 e1  |,.).-... f%.-...|
000064f0  0d 2d fa 04 0d 2e 04 23  dd 20 f2 6f 70 65 6e 69  |.-.....#. .openi|
00006500  63 6f 6e 6d 65 6e 75 28  21 71 25 2c 71 25 21 34  |conmenu(!q%,q%!4|
00006510  2c 77 69 6e 64 25 29 0d  2e 0e 13 6f 70 65 6e 6d  |,wind%)....openm|
00006520  65 6e 75 25 3d 77 69 6e  64 25 0d 2e 18 1d c8 99  |enu%=wind%......|
00006530  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00006540  74 65 22 2c 2c 71 25 0d  2e 22 10 6d 65 6e 75 78  |te",,q%..".menux|
00006550  25 3d 71 25 21 31 36 0d  2e 2c 10 6d 65 6e 75 79  |%=q%!16..,.menuy|
00006560  25 3d 71 25 21 32 30 0d  2e 36 14 f2 77 69 6e 64  |%=q%!20..6..wind|
00006570  6f 77 69 6e 66 6f 28 21  71 25 29 0d 2e 40 0f 6d  |owinfo(!q%)..@.m|
00006580  65 6e 75 78 25 2b 3d 77  78 25 0d 2e 4a 0f 6d 65  |enux%+=wx%..J.me|
00006590  6e 75 79 25 2b 3d 77 79  25 0d 2e 54 30 c8 99 22  |nuy%+=wy%..T0.."|
000065a0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000065b0  2c 2c 6f 70 65 6e 6d 65  6e 75 25 2c 6d 65 6e 75  |,,openmenu%,menu|
000065c0  78 25 2c 6d 65 6e 75 79  25 0d 2e 5e 05 e1 0d 2e  |x%,menuy%..^....|
000065d0  68 04 0d 2e 72 22 dd 20  a4 69 6e 66 6f 77 69 6e  |h...r". .infowin|
000065e0  64 6f 77 28 69 31 24 2c  69 32 24 2c 69 33 24 2c  |dow(i1$,i2$,i3$,|
000065f0  69 34 24 29 0d 2e 7c 20  77 69 6e 64 25 3d a4 77  |i4$)..| wind%=.w|
00006600  69 6e 64 6f 77 28 22 69  6e 66 6f 22 2c 22 22 2c  |indow("info","",|
00006610  30 2c 30 29 0d 2e 86 21  f2 73 65 74 69 63 6f 6e  |0,0)...!.seticon|
00006620  74 65 78 74 28 77 25 28  77 69 6e 64 25 29 2c 31  |text(w%(wind%),1|
00006630  2c 69 31 24 29 0d 2e 90  21 f2 73 65 74 69 63 6f  |,i1$)...!.setico|
00006640  6e 74 65 78 74 28 77 25  28 77 69 6e 64 25 29 2c  |ntext(w%(wind%),|
00006650  32 2c 69 32 24 29 0d 2e  9a 21 f2 73 65 74 69 63  |2,i2$)...!.setic|
00006660  6f 6e 74 65 78 74 28 77  25 28 77 69 6e 64 25 29  |ontext(w%(wind%)|
00006670  2c 33 2c 69 33 24 29 0d  2e a4 21 f2 73 65 74 69  |,3,i3$)...!.seti|
00006680  63 6f 6e 74 65 78 74 28  77 25 28 77 69 6e 64 25  |context(w%(wind%|
00006690  29 2c 34 2c 69 34 24 29  0d 2e ae 0a 3d 77 69 6e  |),4,i4$)....=win|
000066a0  64 25 0d 2e b8 04 0d 2e  c2 2f dd 20 f2 77 69 6d  |d%......./. .wim|
000066b0  70 69 6e 69 74 28 6e 61  6d 65 24 2c 73 70 72 69  |pinit(name$,spri|
000066c0  74 65 24 2c 77 6f 72 6b  24 2c 6e 6f 25 2c 69 73  |te$,work$,no%,is|
000066d0  69 7a 65 25 29 0d 2e cc  0e 63 68 61 6e 67 65 64  |ize%)....changed|
000066e0  25 3d a3 0d 2e d6 1d c8  99 22 4f 53 5f 47 65 74  |%=......."OS_Get|
000066f0  45 6e 76 22 20 b8 20 61  75 74 6f 6c 6f 61 64 24  |Env" . autoload$|
00006700  0d 2e e0 3d 61 75 74 6f  6c 6f 61 64 24 3d c1 61  |...=autoload$=.a|
00006710  75 74 6f 6c 6f 61 64 24  2c a7 61 75 74 6f 6c 6f  |utoload$,.autolo|
00006720  61 64 24 2c bd 33 34 2c  a7 61 75 74 6f 6c 6f 61  |ad$,.34,.autoloa|
00006730  64 24 2c bd 33 34 29 2b  31 29 2b 32 29 0d 2e ea  |d$,.34)+1)+2)...|
00006740  0d 73 74 61 74 75 73 25  3d 30 0d 2e f4 0e 6d 79  |.status%=0....my|
00006750  63 61 72 65 74 25 3d a3  0d 2e fe 12 77 69 6e 64  |caret%=.....wind|
00006760  6f 77 73 25 3d 6e 6f 25  2b 33 0d 2f 08 12 70 72  |ows%=no%+3./..pr|
00006770  6f 67 72 61 6d 24 3d 6e  61 6d 65 24 0d 2f 12 2b  |ogram$=name$./.+|
00006780  de 20 62 6c 6b 25 20 32  30 30 30 2c 71 25 20 32  |. blk% 2000,q% 2|
00006790  35 36 2c 69 6e 64 25 20  69 73 69 7a 65 25 2c 70  |56,ind% isize%,p|
000067a0  61 6c 25 20 32 35 36 0d  2f 1c 17 69 6e 64 65 6e  |al% 256./..inden|
000067b0  64 25 3d 69 6e 64 25 2b  69 73 69 7a 65 25 0d 2f  |d%=ind%+isize%./|
000067c0  26 10 24 62 6c 6b 25 3d  22 54 41 53 4b 22 0d 2f  |&.$blk%="TASK"./|
000067d0  30 35 c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |05.."Wimp_Initia|
000067e0  6c 69 73 65 22 2c 32 30  30 2c 21 62 6c 6b 25 2c  |lise",200,!blk%,|
000067f0  70 72 6f 67 72 61 6d 24  20 b8 20 2c 6d 79 74 61  |program$ . ,myta|
00006800  73 6b 25 0d 2f 3a 30 69  63 6f 6e 62 61 72 25 3d  |sk%./:0iconbar%=|
00006810  a4 63 72 69 63 6f 6e 28  2d 31 2c 30 2c 30 2c 36  |.cricon(-1,0,0,6|
00006820  38 2c 36 38 2c 26 32 30  30 32 2c 73 70 72 69 74  |8,68,&2002,sprit|
00006830  65 24 29 0d 2f 44 14 24  71 25 3d 77 6f 72 6b 24  |e$)./D.$q%=work$|
00006840  2b 22 24 44 69 72 22 0d  2f 4e 2e c8 99 22 4f 53  |+"$Dir"./N..."OS|
00006850  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 71 25 2c  |_ReadVarVal",q%,|
00006860  62 6c 6b 25 2c 32 35 36  2c 30 2c 33 20 b8 20 2c  |blk%,256,0,3 . ,|
00006870  2c 6c 65 6e 25 0d 2f 58  10 62 6c 6b 25 3f 6c 65  |,len%./X.blk%?le|
00006880  6e 25 3d 31 33 0d 2f 62  0e 64 69 72 24 3d 24 62  |n%=13./b.dir$=$b|
00006890  6c 6b 25 0d 2f 6c 3d c8  99 22 58 4f 53 5f 53 57  |lk%./l=.."XOS_SW|
000068a0  49 4e 75 6d 62 65 72 46  72 6f 6d 53 74 72 69 6e  |INumberFromStrin|
000068b0  67 22 2c 2c 22 44 72 61  67 41 53 70 72 69 74 65  |g",,"DragASprite|
000068c0  5f 53 74 61 72 74 22 20  b8 20 3b 64 72 61 67 25  |_Start" . ;drag%|
000068d0  0d 2f 76 17 64 72 61 67  25 3d 28 64 72 61 67 25  |./v.drag%=(drag%|
000068e0  20 80 20 31 29 3d 30 0d  2f 80 1f c8 99 22 4f 53  | . 1)=0./...."OS|
000068f0  5f 42 79 74 65 22 2c 31  36 31 2c 32 38 20 b8 20  |_Byte",161,28 . |
00006900  2c 2c 62 69 74 25 0d 2f  8a 1c e7 20 28 62 69 74  |,,bit%./... (bit|
00006910  25 20 80 20 32 29 3d 30  20 8c 20 64 72 61 67 25  |% . 2)=0 . drag%|
00006920  3d a3 0d 2f 94 26 c8 99  22 57 69 6d 70 5f 53 6c  |=../.&.."Wimp_Sl|
00006930  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
00006940  61 70 70 73 69 7a 65 25  0d 2f 9e 10 f2 6c 6f 61  |appsize%./...loa|
00006950  64 73 70 72 69 74 65 73  0d 2f a8 0d 74 66 74 25  |dsprites./..tft%|
00006960  3d 26 46 46 46 0d 2f b2  0d 64 66 74 25 3d 26 41  |=&FFF./..dft%=&A|
00006970  46 46 0d 2f bc 0d 73 66  74 25 3d 26 46 46 39 0d  |FF./..sft%=&FF9.|
00006980  2f c6 0a 65 78 69 74 3d  a3 0d 2f d0 3d de 20 67  |/..exit=../.=. g|
00006990  63 6f 6c 25 20 32 35 36  2c 70 61 6c 25 20 38 30  |col% 256,pal% 80|
000069a0  2c 70 61 6c 32 25 20 38  30 2c 70 61 6c 34 25 20  |,pal2% 80,pal4% |
000069b0  38 30 2c 73 70 70 61 6c  25 20 38 30 2c 73 63 61  |80,sppal% 80,sca|
000069c0  6c 65 25 20 31 36 0d 2f  da 0e e3 20 69 25 3d 30  |le% 16./... i%=0|
000069d0  20 b8 20 31 0d 2f e4 26  20 20 70 61 6c 32 25 21  | . 1./.&  pal2%!|
000069e0  28 34 2a 28 31 2d 69 25  29 29 3d 28 26 46 30 46  |(4*(1-i%))=(&F0F|
000069f0  30 46 30 2a 69 25 29 3c  3c 38 0d 2f ee 08 ed 20  |0F0*i%)<<8./... |
00006a00  69 25 0d 2f f8 0e e3 20  69 25 3d 30 20 b8 20 33  |i%./... i%=0 . 3|
00006a10  0d 30 02 26 20 20 70 61  6c 34 25 21 28 34 2a 28  |.0.&  pal4%!(4*(|
00006a20  33 2d 69 25 29 29 3d 28  26 35 30 35 30 35 30 2a  |3-i%))=(&505050*|
00006a30  69 25 29 3c 3c 38 0d 30  0c 08 ed 20 69 25 0d 30  |i%)<<8.0... i%.0|
00006a40  16 0c f2 6e 65 77 6d 6f  64 65 0d 30 20 25 de 20  |...newmode.0 %. |
00006a50  6d 65 6e 75 62 75 66 66  65 72 25 20 32 30 30 30  |menubuffer% 2000|
00006a60  2c 66 6f 6e 74 74 61 62  6c 65 25 20 32 35 36 0d  |,fonttable% 256.|
00006a70  30 2a 0c 74 77 69 6e 64  25 3d 30 0d 30 34 7b de  |0*.twind%=0.04{.|
00006a80  20 77 25 28 77 69 6e 64  6f 77 73 25 29 2c 6d 65  | w%(windows%),me|
00006a90  6e 75 25 28 77 69 6e 64  6f 77 73 25 29 2c 69 64  |nu%(windows%),id|
00006aa0  24 28 77 69 6e 64 6f 77  73 25 29 2c 6d 69 73 63  |$(windows%),misc|
00006ab0  25 28 77 69 6e 64 6f 77  73 25 29 2c 61 63 74 69  |%(windows%),acti|
00006ac0  76 65 25 28 77 69 6e 64  6f 77 73 25 29 2c 64 65  |ve%(windows%),de|
00006ad0  66 61 75 6c 74 25 28 35  2c 77 69 6e 64 6f 77 73  |fault%(5,windows|
00006ae0  25 29 2c 73 79 73 66 6c  61 67 73 25 28 77 69 6e  |%),sysflags%(win|
00006af0  64 6f 77 73 25 29 0d 30  3e 18 6d 65 6e 75 70 74  |dows%).0>.menupt|
00006b00  72 25 3d 6d 65 6e 75 62  75 66 66 65 72 25 0d 30  |r%=menubuffer%.0|
00006b10  48 10 e3 20 69 25 3d 31  20 b8 20 32 35 35 0d 30  |H.. i%=1 . 255.0|
00006b20  52 13 66 6f 6e 74 74 61  62 6c 65 25 3f 69 25 3d  |R.fonttable%?i%=|
00006b30  30 0d 30 5c 08 ed 20 69  25 0d 30 66 1d 77 25 28  |0.0\.. i%.0f.w%(|
00006b40  30 29 3d 2d 32 3a 69 64  24 28 30 29 3d 22 69 63  |0)=-2:id$(0)="ic|
00006b50  6f 6e 62 61 72 22 0d 30  70 2c c8 99 22 57 69 6d  |onbar".0p,.."Wim|
00006b60  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
00006b70  2c 64 69 72 24 2b 22 2e  54 65 6d 70 6c 61 74 65  |,dir$+".Template|
00006b80  73 22 0d 30 7a 10 f2 69  6e 69 74 77 69 6e 64 6f  |s".0z..initwindo|
00006b90  77 73 0d 30 84 2a 72 65  70 6f 72 74 25 3d a4 77  |ws.0.*report%=.w|
00006ba0  69 6e 64 6f 77 28 22 72  65 70 6f 72 74 22 2c 22  |indow("report","|
00006bb0  72 65 70 6f 72 74 22 2c  30 2c 30 29 0d 30 8e 1a  |report",0,0).0..|
00006bc0  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |.."Wimp_CloseTem|
00006bd0  70 6c 61 74 65 22 0d 30  98 0d de 20 61 6e 73 24  |plate".0... ans$|
00006be0  28 33 29 0d 30 a2 0b 62  65 65 70 25 3d b9 0d 30  |(3).0..beep%=..0|
00006bf0  ac 05 e1 0d 30 b6 04 0d  30 c0 21 f4 20 3d 3d 3d  |....0...0.!. ===|
00006c00  3d 20 6d 65 6d 6f 72 79  20 6d 61 6e 61 67 65 6d  |= memory managem|
00006c10  65 6e 74 20 3d 3d 3d 3d  0d 30 ca 04 0d 30 d4 13  |ent ====.0...0..|
00006c20  dd 20 a4 73 70 61 63 65  28 73 69 7a 65 25 29 0d  |. .space(size%).|
00006c30  30 de 37 c8 99 22 58 57  69 6d 70 5f 53 6c 6f 74  |0.7.."XWimp_Slot|
00006c40  53 69 7a 65 22 2c 61 70  70 73 69 7a 65 25 2b 73  |Size",appsize%+s|
00006c50  69 7a 65 25 2c 2d 31 20  b8 20 6e 65 77 25 3b 6e  |ize%,-1 . new%;n|
00006c60  6f 72 6f 6f 6d 25 0d 30  e8 19 72 6f 6f 6d 25 3d  |oroom%.0..room%=|
00006c70  28 28 6e 6f 72 6f 6f 6d  25 80 31 29 3d 30 29 0d  |((noroom%.1)=0).|
00006c80  30 f2 23 e7 20 6e 65 77  25 3c 61 70 70 73 69 7a  |0.#. new%<appsiz|
00006c90  65 25 2b 73 69 7a 65 25  20 8c 20 72 6f 6f 6d 25  |e%+size% . room%|
00006ca0  3d a3 0d 30 fc 23 e7 20  72 6f 6f 6d 25 20 8c 20  |=..0.#. room% . |
00006cb0  61 70 70 69 6e 63 25 3d  6e 65 77 25 2d 61 70 70  |appinc%=new%-app|
00006cc0  73 69 7a 65 25 0d 31 06  0a 3d 72 6f 6f 6d 25 0d  |size%.1..=room%.|
00006cd0  31 10 04 0d 31 1a 0f dd  20 f2 69 6e 69 74 68 65  |1...1... .inithe|
00006ce0  61 70 0d 31 24 0b 68 65  61 70 25 3d 93 0d 31 2e  |ap.1$.heap%=..1.|
00006cf0  14 68 65 61 70 73 69 7a  65 25 3d 38 2a 31 30 32  |.heapsize%=8*102|
00006d00  34 0d 31 38 19 e7 20 a4  73 70 61 63 65 28 68 65  |4.18.. .space(he|
00006d10  61 70 73 69 7a 65 25 29  20 8c 0d 31 42 24 20 20  |apsize%) ..1B$  |
00006d20  c8 99 22 4f 53 5f 48 65  61 70 22 2c 30 2c 68 65  |.."OS_Heap",0,he|
00006d30  61 70 25 2c 2c 68 65 61  70 73 69 7a 65 25 0d 31  |ap%,,heapsize%.1|
00006d40  4c 05 cc 0d 31 56 1c 20  20 f2 65 72 72 6f 72 28  |L...1V.  .error(|
00006d50  22 4f 75 74 20 6f 66 20  72 6f 6f 6d 2e 22 29 0d  |"Out of room.").|
00006d60  31 60 05 cd 0d 31 6a 05  e1 0d 31 74 04 0d 31 7e  |1`...1j...1t..1~|
00006d70  13 dd 20 a4 6c 61 72 67  65 73 74 62 6c 6f 63 6b  |.. .largestblock|
00006d80  0d 31 88 24 c8 99 22 4f  53 5f 48 65 61 70 22 2c  |.1.$.."OS_Heap",|
00006d90  31 2c 68 65 61 70 25 20  b8 20 2c 2c 6c 61 72 67  |1,heap% . ,,larg|
00006da0  65 73 74 25 0d 31 92 0d  3d 6c 61 72 67 65 73 74  |est%.1..=largest|
00006db0  25 0d 31 9c 04 0d 31 a6  16 dd 20 a4 67 65 74 62  |%.1...1... .getb|
00006dc0  6c 6f 63 6b 28 73 69 7a  65 25 29 0d 31 b0 09 ea  |lock(size%).1...|
00006dd0  20 6f 6b 25 0d 31 ba 09  6f 6b 25 3d b9 0d 31 c4  | ok%.1..ok%=..1.|
00006de0  20 c8 95 20 6f 6b 25 20  80 20 a4 6c 61 72 67 65  | .. ok% . .large|
00006df0  73 74 62 6c 6f 63 6b 3c  73 69 7a 65 25 0d 31 ce  |stblock<size%.1.|
00006e00  1d 20 20 6f 6b 25 3d a4  65 78 74 65 6e 64 68 65  |.  ok%=.extendhe|
00006e10  61 70 28 38 2a 31 30 32  34 29 0d 31 d8 05 ce 0d  |ap(8*1024).1....|
00006e20  31 e2 0b e7 20 6f 6b 25  20 8c 0d 31 ec 2b 20 20  |1... ok% ..1.+  |
00006e30  c8 99 22 4f 53 5f 48 65  61 70 22 2c 32 2c 68 65  |.."OS_Heap",2,he|
00006e40  61 70 25 2c 2c 73 69 7a  65 25 20 b8 20 2c 2c 62  |ap%,,size% . ,,b|
00006e50  6c 6f 63 6b 25 0d 31 f6  05 cc 0d 32 00 0f 20 20  |lock%.1....2..  |
00006e60  62 6c 6f 63 6b 25 3d 2d  31 0d 32 0a 05 cd 0d 32  |block%=-1.2....2|
00006e70  14 0b 3d 62 6c 6f 63 6b  25 0d 32 1e 04 0d 32 28  |..=block%.2...2(|
00006e80  1a dd 20 f2 6c 6f 73 65  62 6c 6f 63 6b 28 f8 20  |.. .loseblock(. |
00006e90  62 6c 6f 63 6b 25 29 0d  32 32 2c e7 20 62 6c 6f  |block%).22,. blo|
00006ea0  63 6b 25 3e 2d 31 20 8c  20 c8 99 22 4f 53 5f 48  |ck%>-1 . .."OS_H|
00006eb0  65 61 70 22 2c 33 2c 68  65 61 70 25 2c 62 6c 6f  |eap",3,heap%,blo|
00006ec0  63 6b 25 0d 32 3c 0d 62  6c 6f 63 6b 25 3d 2d 31  |ck%.2<.block%=-1|
00006ed0  0d 32 46 0f f2 73 68 72  69 6e 6b 68 65 61 70 0d  |.2F..shrinkheap.|
00006ee0  32 50 05 e1 0d 32 5a 04  0d 32 64 11 dd 20 f2 73  |2P...2Z..2d.. .s|
00006ef0  68 72 69 6e 6b 68 65 61  70 0d 32 6e 0f ea 20 6f  |hrinkheap.2n.. o|
00006f00  6b 25 2c 73 69 7a 65 25  0d 32 78 09 6f 6b 25 3d  |k%,size%.2x.ok%=|
00006f10  b9 0d 32 82 0f 73 69 7a  65 25 3d 2d 31 30 32 34  |..2..size%=-1024|
00006f20  0d 32 8c 0a c8 95 20 6f  6b 25 0d 32 96 28 20 20  |.2.... ok%.2.(  |
00006f30  c8 99 22 58 4f 53 5f 48  65 61 70 22 2c 35 2c 68  |.."XOS_Heap",5,h|
00006f40  65 61 70 25 2c 2c 73 69  7a 65 25 20 b8 20 3b 6f  |eap%,,size% . ;o|
00006f50  6b 25 0d 32 a0 15 20 20  6f 6b 25 3d 28 28 6f 6b  |k%.2..  ok%=((ok|
00006f60  25 80 31 29 3d 30 29 0d  32 aa 0d 20 20 e7 20 6f  |%.1)=0).2..  . o|
00006f70  6b 25 20 8c 0d 32 b4 1a  20 20 20 20 68 65 61 70  |k% ..2..    heap|
00006f80  73 69 7a 65 25 3d 68 65  61 70 25 21 31 32 0d 32  |size%=heap%!12.2|
00006f90  be 1d 20 20 20 20 6f 6b  25 3d a4 73 70 61 63 65  |..    ok%=.space|
00006fa0  28 68 65 61 70 73 69 7a  65 25 29 0d 32 c8 07 20  |(heapsize%).2.. |
00006fb0  20 cd 0d 32 d2 05 ce 0d  32 dc 05 e1 0d 32 e6 04  | ..2....2....2..|
00006fc0  0d 32 f0 18 dd 20 a4 65  78 74 65 6e 64 68 65 61  |.2... .extendhea|
00006fd0  70 28 73 69 7a 65 25 29  0d 32 fa 09 ea 20 6f 6b  |p(size%).2... ok|
00006fe0  25 0d 33 04 1f 6f 6b 25  3d a4 73 70 61 63 65 28  |%.3..ok%=.space(|
00006ff0  68 65 61 70 73 69 7a 65  25 2b 73 69 7a 65 25 29  |heapsize%+size%)|
00007000  0d 33 0e 0b e7 20 6f 6b  25 20 8c 0d 33 18 20 20  |.3... ok% ..3.  |
00007010  20 c8 99 22 4f 53 5f 48  65 61 70 22 2c 35 2c 68  | .."OS_Heap",5,h|
00007020  65 61 70 25 2c 2c 73 69  7a 65 25 0d 33 22 18 20  |eap%,,size%.3". |
00007030  20 68 65 61 70 73 69 7a  65 25 3d 68 65 61 70 25  | heapsize%=heap%|
00007040  21 31 32 0d 33 2c 05 cd  0d 33 36 08 3d 6f 6b 25  |!12.3,...36.=ok%|
00007050  0d 33 40 04 0d 33 4a 10  dd 20 f2 72 65 73 65 74  |.3@..3J.. .reset|
00007060  73 6c 6f 74 0d 33 54 21  c8 99 22 57 69 6d 70 5f  |slot.3T!.."Wimp_|
00007070  53 6c 6f 74 53 69 7a 65  22 2c 61 70 70 73 69 7a  |SlotSize",appsiz|
00007080  65 25 2c 2d 31 0d 33 5e  0d 61 70 70 69 6e 63 25  |e%,-1.3^.appinc%|
00007090  3d 30 0d 33 68 05 e1 0d  33 72 04 0d 33 7c 26 f4  |=0.3h...3r..3|&.|
000070a0  20 3d 3d 3d 3d 20 66 69  6c 69 6e 67 20 73 79 73  | ==== filing sys|
000070b0  74 65 6d 20 72 6f 75 74  69 6e 65 73 20 3d 3d 3d  |tem routines ===|
000070c0  3d 0d 33 86 04 0d 33 90  1e dd 20 a4 73 74 61 6e  |=.3...3... .stan|
000070d0  64 61 72 64 66 69 6c 65  6e 61 6d 65 28 77 69 6e  |dardfilename(win|
000070e0  64 25 29 0d 33 9a 17 3d  a4 69 63 6f 6e 74 65 78  |d%).3..=.icontex|
000070f0  74 28 77 69 6e 64 25 2c  31 29 0d 33 a4 04 0d 33  |t(wind%,1).3...3|
00007100  ae 20 dd 20 f2 73 61 76  65 28 69 64 25 2c 66 69  |. . .save(id%,fi|
00007110  6c 65 24 2c 70 72 65 70  61 72 65 64 25 29 0d 33  |le$,prepared%).3|
00007120  b8 13 66 69 6c 65 6e 61  6d 65 24 3d 66 69 6c 65  |..filename$=file|
00007130  24 0d 33 c2 0c 73 61 76  65 64 25 3d a3 0d 33 cc  |$.3..saved%=..3.|
00007140  1a e7 20 a4 6e 61 6d 65  6f 6b 28 66 69 6c 65 6e  |.. .nameok(filen|
00007150  61 6d 65 24 29 20 8c 0d  33 d6 3b e7 20 70 72 65  |ame$) ..3.;. pre|
00007160  70 61 72 65 64 25 3d a3  20 8c 20 70 72 65 70 61  |pared%=. . prepa|
00007170  72 65 64 25 3d a0 28 22  46 4e 70 72 65 70 61 72  |red%=.("FNprepar|
00007180  65 22 2b c3 7e 28 6d 69  73 63 25 28 69 64 25 29  |e"+.~(misc%(id%)|
00007190  29 29 0d 33 e0 12 c8 8e  20 70 72 65 70 61 72 65  |)).3.... prepare|
000071a0  64 25 20 ca 0d 33 ea 0a  20 20 c9 20 2d 31 0d 33  |d% ..3..  . -1.3|
000071b0  f4 4a 20 20 20 20 c8 99  22 4f 53 5f 46 69 6c 65  |.J    .."OS_File|
000071c0  22 2c 31 30 2c 66 69 6c  65 6e 61 6d 65 24 2c 6d  |",10,filename$,m|
000071d0  69 73 63 25 28 69 64 25  29 2c 2c 73 61 76 65 62  |isc%(id%),,saveb|
000071e0  75 66 66 25 2c 73 61 76  65 62 75 66 66 25 2b 66  |uff%,savebuff%+f|
000071f0  69 6c 65 73 69 7a 65 25  0d 33 fe 26 20 20 20 20  |ilesize%.3.&    |
00007200  64 25 3d a0 28 22 46 4e  73 61 76 65 64 22 2b c3  |d%=.("FNsaved"+.|
00007210  7e 28 6d 69 73 63 25 28  69 64 25 29 29 29 0d 34  |~(misc%(id%))).4|
00007220  08 0a 20 20 c9 20 2d 32  0d 34 12 25 20 20 20 20  |..  . -2.4.%    |
00007230  64 25 3d a0 28 22 46 4e  73 61 76 65 22 2b c3 7e  |d%=.("FNsave"+.~|
00007240  28 6d 69 73 63 25 28 69  64 25 29 29 29 0d 34 1c  |(misc%(id%))).4.|
00007250  05 cb 0d 34 26 0e f2 63  6c 6f 73 65 6d 65 6e 75  |...4&..closemenu|
00007260  0d 34 30 25 f2 73 65 74  69 63 6f 6e 74 65 78 74  |.40%.seticontext|
00007270  28 77 25 28 69 64 25 29  2c 32 2c 66 69 6c 65 6e  |(w%(id%),2,filen|
00007280  61 6d 65 24 29 0d 34 3a  0c 73 61 76 65 64 25 3d  |ame$).4:.saved%=|
00007290  b9 0d 34 44 05 cd 0d 34  4e 05 cd 0d 34 58 05 e1  |..4D...4N...4X..|
000072a0  0d 34 62 04 0d 34 6c 1d  f4 20 3d 3d 3d 3d 20 6d  |.4b..4l.. ==== m|
000072b0  65 6e 75 20 72 6f 75 74  69 6e 65 73 20 3d 3d 3d  |enu routines ===|
000072c0  3d 0d 34 76 04 0d 34 80  20 dd 20 f2 6f 70 65 6e  |=.4v..4. . .open|
000072d0  77 69 6e 64 6f 77 61 73  6d 65 6e 75 28 77 69 6e  |windowasmenu(win|
000072e0  64 6f 77 25 29 0d 34 8a  18 f2 77 69 6e 64 6f 77  |dow%).4...window|
000072f0  69 6e 66 6f 28 77 69 6e  64 6f 77 25 29 0d 34 94  |info(window%).4.|
00007300  0e f2 6d 6f 75 73 65 69  6e 66 6f 0d 34 9e 14 6d  |..mouseinfo.4..m|
00007310  65 6e 75 78 25 3d 6d 78  25 2d 77 77 25 2f 32 0d  |enux%=mx%-ww%/2.|
00007320  34 a8 14 6d 65 6e 75 79  25 3d 6d 79 25 2b 77 68  |4..menuy%=my%+wh|
00007330  25 2f 32 0d 34 b2 15 6f  70 65 6e 6d 65 6e 75 25  |%/2.4..openmenu%|
00007340  3d 77 69 6e 64 6f 77 25  0d 34 bc 14 69 64 25 3d  |=window%.4..id%=|
00007350  a4 69 64 28 77 69 6e 64  6f 77 25 29 0d 34 c6 0f  |.id(window%).4..|
00007360  f2 72 65 6f 70 65 6e 6d  65 6e 75 0d 34 d0 05 e1  |.reopenmenu.4...|
00007370  0d 34 da 04 0d 34 e4 19  dd 20 f2 69 63 6f 6e 62  |.4...4... .iconb|
00007380  61 72 6d 65 6e 75 28 74  65 78 74 24 29 0d 34 ee  |armenu(text$).4.|
00007390  19 6d 65 6e 75 25 28 30  29 3d a4 6d 65 6e 75 28  |.menu%(0)=.menu(|
000073a0  74 65 78 74 24 29 0d 34  f8 1b 62 61 72 68 65 69  |text$).4..barhei|
000073b0  67 68 74 25 3d 69 74 65  6d 73 25 2a 34 34 2b 39  |ght%=items%*44+9|
000073c0  36 0d 35 02 05 e1 0d 35  0c 04 0d 35 16 11 dd 20  |6.5....5...5... |
000073d0  f2 6d 65 6e 75 73 65 6c  65 63 74 0d 35 20 1f 64  |.menuselect.5 .d|
000073e0  25 3d a0 28 22 46 4e 6d  65 6e 75 22 2b 69 64 24  |%=.("FNmenu"+id$|
000073f0  28 6d 65 6e 75 69 64 25  29 29 0d 35 2a 0e f2 6d  |(menuid%)).5*..m|
00007400  6f 75 73 65 69 6e 66 6f  0d 35 34 1a e7 20 62 75  |ouseinfo.54.. bu|
00007410  74 25 3d 31 20 8c 20 f2  72 65 6f 70 65 6e 6d 65  |t%=1 . .reopenme|
00007420  6e 75 0d 35 3e 05 e1 0d  35 48 04 0d 35 52 11 dd  |nu.5>...5H..5R..|
00007430  20 f2 72 65 6f 70 65 6e  6d 65 6e 75 0d 35 5c 33  | .reopenmenu.5\3|
00007440  e7 20 73 79 73 66 6c 61  67 73 25 28 69 64 25 29  |. sysflags%(id%)|
00007450  80 34 20 8c 20 64 25 3d  a0 28 22 46 4e 70 72 65  |.4 . d%=.("FNpre|
00007460  6d 65 6e 75 22 2b 69 64  24 28 69 64 25 29 29 0d  |menu"+id$(id%)).|
00007470  35 66 30 c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |5f0.."Wimp_Creat|
00007480  65 4d 65 6e 75 22 2c 2c  6f 70 65 6e 6d 65 6e 75  |eMenu",,openmenu|
00007490  25 2c 6d 65 6e 75 78 25  2c 6d 65 6e 75 79 25 0d  |%,menux%,menuy%.|
000074a0  35 70 05 e1 0d 35 7a 04  0d 35 84 14 dd 20 f2 6f  |5p...5z..5... .o|
000074b0  70 65 6e 6d 65 6e 75 28  69 64 25 29 0d 35 8e 12  |penmenu(id%).5..|
000074c0  e7 20 6d 65 6e 75 25 28  69 64 25 29 20 8c 0d 35  |. menu%(id%) ..5|
000074d0  98 0f 6d 65 6e 75 69 64  25 3d 69 64 25 0d 35 a2  |..menuid%=id%.5.|
000074e0  18 6f 70 65 6e 6d 65 6e  75 25 3d 6d 65 6e 75 25  |.openmenu%=menu%|
000074f0  28 69 64 25 29 0d 35 ac  2c e7 20 69 64 25 3d 30  |(id%).5.,. id%=0|
00007500  20 8c 20 6d 65 6e 75 79  25 3d 62 61 72 68 65 69  | . menuy%=barhei|
00007510  67 68 74 25 20 8b 20 6d  65 6e 75 79 25 3d 6d 79  |ght% . menuy%=my|
00007520  25 0d 35 b6 22 6d 65 6e  75 78 25 3d 6d 78 25 2d  |%.5."menux%=mx%-|
00007530  28 6f 70 65 6e 6d 65 6e  75 25 21 31 36 29 2f 32  |(openmenu%!16)/2|
00007540  2d 31 36 0d 35 c0 0f f2  72 65 6f 70 65 6e 6d 65  |-16.5...reopenme|
00007550  6e 75 0d 35 ca 05 cd 0d  35 d4 05 e1 0d 35 de 04  |nu.5....5....5..|
00007560  0d 35 e8 1f f4 20 3d 3d  3d 3d 20 77 69 6e 64 6f  |.5... ==== windo|
00007570  77 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 0d  |w routines ====.|
00007580  35 f2 04 0d 35 fc 27 dd  20 a4 77 69 6e 64 6f 77  |5...5.'. .window|
00007590  28 77 69 6e 64 24 2c 6e  61 6d 65 24 2c 6d 65 6e  |(wind$,name$,men|
000075a0  75 25 2c 66 6c 61 67 73  25 29 0d 36 06 0d 74 77  |u%,flags%).6..tw|
000075b0  69 6e 64 25 2b 3d 31 0d  36 10 23 77 25 28 74 77  |ind%+=1.6.#w%(tw|
000075c0  69 6e 64 25 29 3d a4 6c  6f 61 64 74 65 6d 70 6c  |ind%)=.loadtempl|
000075d0  61 74 65 28 77 69 6e 64  24 29 0d 36 1a 1b f2 77  |ate(wind$).6...w|
000075e0  69 6e 64 6f 77 69 6e 66  6f 28 77 25 28 74 77 69  |indowinfo(w%(twi|
000075f0  6e 64 25 29 29 0d 36 24  0e e3 20 64 25 3d 30 20  |nd%)).6$.. d%=0 |
00007600  b8 20 35 0d 36 2e 29 64  65 66 61 75 6c 74 25 28  |. 5.6.)default%(|
00007610  64 25 2c 74 77 69 6e 64  25 29 3d 21 28 62 6c 6b  |d%,twind%)=!(blk|
00007620  25 2b 28 64 25 3c 3c 32  29 2b 34 29 0d 36 38 08  |%+(d%<<2)+4).68.|
00007630  ed 20 64 25 0d 36 42 15  69 64 24 28 74 77 69 6e  |. d%.6B.id$(twin|
00007640  64 25 29 3d 6e 61 6d 65  24 0d 36 4c 17 6d 65 6e  |d%)=name$.6L.men|
00007650  75 25 28 74 77 69 6e 64  25 29 3d 6d 65 6e 75 25  |u%(twind%)=menu%|
00007660  0d 36 56 1c 73 79 73 66  6c 61 67 73 25 28 74 77  |.6V.sysflags%(tw|
00007670  69 6e 64 25 29 3d 66 6c  61 67 73 25 0d 36 60 0b  |ind%)=flags%.6`.|
00007680  3d 74 77 69 6e 64 25 0d  36 6a 04 0d 36 74 0d dd  |=twind%.6j..6t..|
00007690  20 f2 72 65 64 72 61 77  0d 36 7e 12 69 64 25 3d  | .redraw.6~.id%=|
000076a0  a4 69 64 28 21 62 6c 6b  25 29 0d 36 88 16 f2 77  |.id(!blk%).6...w|
000076b0  69 6e 64 6f 77 69 6e 66  6f 28 21 62 6c 6b 25 29  |indowinfo(!blk%)|
000076c0  0d 36 92 27 c8 99 22 57  69 6d 70 5f 52 65 64 72  |.6.'.."Wimp_Redr|
000076d0  61 77 57 69 6e 64 6f 77  22 2c 2c 62 6c 6b 25 20  |awWindow",,blk% |
000076e0  b8 20 6d 6f 72 65 25 0d  36 9c 0c c8 95 20 6d 6f  |. more%.6.... mo|
000076f0  72 65 25 0d 36 a6 13 78  30 25 3d 62 6c 6b 25 21  |re%.6..x0%=blk%!|
00007700  32 38 2d 77 78 25 0d 36  b0 13 79 30 25 3d 62 6c  |28-wx%.6..y0%=bl|
00007710  6b 25 21 33 32 2d 77 79  25 0d 36 ba 13 78 31 25  |k%!32-wy%.6..x1%|
00007720  3d 62 6c 6b 25 21 33 36  2d 77 78 25 0d 36 c4 13  |=blk%!36-wx%.6..|
00007730  79 31 25 3d 62 6c 6b 25  21 34 30 2d 77 79 25 0d  |y1%=blk%!40-wy%.|
00007740  36 ce 1d 64 25 3d a0 28  22 46 4e 72 65 64 72 61  |6..d%=.("FNredra|
00007750  77 22 2b 69 64 24 28 69  64 25 29 29 0d 36 d8 27  |w"+id$(id%)).6.'|
00007760  c8 99 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |.."Wimp_GetRecta|
00007770  6e 67 6c 65 22 2c 2c 62  6c 6b 25 20 b8 20 6d 6f  |ngle",,blk% . mo|
00007780  72 65 25 0d 36 e2 05 ce  0d 36 ec 05 e1 0d 36 f6  |re%.6....6....6.|
00007790  04 0d 37 00 10 dd 20 a4  69 64 28 66 69 6e 64 25  |..7... .id(find%|
000077a0  29 0d 37 0a 13 66 6f 75  6e 64 25 3d 77 69 6e 64  |).7..found%=wind|
000077b0  6f 77 73 25 0d 37 14 15  e3 20 69 25 3d 30 20 b8  |ows%.7... i%=0 .|
000077c0  20 77 69 6e 64 6f 77 73  25 0d 37 1e 1e e7 20 77  | windows%.7... w|
000077d0  25 28 69 25 29 3d 66 69  6e 64 25 20 8c 20 66 6f  |%(i%)=find% . fo|
000077e0  75 6e 64 25 3d 69 25 0d  37 28 08 ed 20 69 25 0d  |und%=i%.7(.. i%.|
000077f0  37 32 0b 3d 66 6f 75 6e  64 25 0d 37 3c 04 0d 37  |72.=found%.7<..7|
00007800  46 14 dd 20 f2 6f 70 65  6e 75 70 28 77 69 6e 64  |F.. .openup(wind|
00007810  25 29 0d 37 50 0f 21 62  6c 6b 25 3d 77 69 6e 64  |%).7P.!blk%=wind|
00007820  25 0d 37 5a 12 69 64 25  3d a4 69 64 28 77 69 6e  |%.7Z.id%=.id(win|
00007830  64 25 29 0d 37 64 15 e7  20 ac 61 63 74 69 76 65  |d%).7d.. .active|
00007840  25 28 69 64 25 29 20 8c  0d 37 6e 0e e3 20 64 25  |%(id%) ..7n.. d%|
00007850  3d 30 20 b8 20 35 0d 37  78 26 21 28 62 6c 6b 25  |=0 . 5.7x&!(blk%|
00007860  2b 28 64 25 3c 3c 32 29  2b 34 29 3d 64 65 66 61  |+(d%<<2)+4)=defa|
00007870  75 6c 74 25 28 64 25 2c  69 64 25 29 0d 37 82 08  |ult%(d%,id%).7..|
00007880  ed 20 64 25 0d 37 8c 05  cc 0d 37 96 21 c8 99 22  |. d%.7....7.!.."|
00007890  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000078a0  61 74 65 22 2c 2c 62 6c  6b 25 0d 37 a0 05 cd 0d  |ate",,blk%.7....|
000078b0  37 aa 0e 62 6c 6b 25 21  32 38 3d 2d 31 0d 37 b4  |7..blk%!28=-1.7.|
000078c0  0f f2 6f 70 65 6e 77 69  6e 64 6f 77 0d 37 be 05  |..openwindow.7..|
000078d0  e1 0d 37 c8 04 0d 37 d2  11 dd 20 f2 6f 70 65 6e  |..7...7... .open|
000078e0  77 69 6e 64 6f 77 0d 37  dc 12 69 64 25 3d a4 69  |window.7..id%=.i|
000078f0  64 28 21 62 6c 6b 25 29  0d 37 e6 1d c8 99 22 57  |d(!blk%).7...."W|
00007900  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00007910  2c 62 6c 6b 25 0d 37 f0  12 61 63 74 69 76 65 25  |,blk%.7..active%|
00007920  28 69 64 25 29 3d b9 0d  37 fa 30 e7 20 73 79 73  |(id%)=..7.0. sys|
00007930  66 6c 61 67 73 25 28 69  64 25 29 80 31 20 8c 20  |flags%(id%).1 . |
00007940  64 25 3d a0 28 22 46 4e  6f 70 65 6e 22 2b 69 64  |d%=.("FNopen"+id|
00007950  24 28 69 64 25 29 29 0d  38 04 05 e1 0d 38 0e 04  |$(id%)).8....8..|
00007960  0d 38 18 1d dd 20 f2 66  72 6f 6e 74 6f 70 65 6e  |.8... .frontopen|
00007970  77 69 6e 64 6f 77 28 21  62 6c 6b 25 29 0d 38 22  |window(!blk%).8"|
00007980  21 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |!.."Wimp_GetWind|
00007990  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6b 25 0d 38  |owState",,blk%.8|
000079a0  2c 0e 62 6c 6b 25 21 32  38 3d 2d 31 0d 38 36 0f  |,.blk%!28=-1.86.|
000079b0  f2 6f 70 65 6e 77 69 6e  64 6f 77 0d 38 40 05 e1  |.openwindow.8@..|
000079c0  0d 38 4a 04 0d 38 54 25  dd 20 f2 72 65 64 6f 62  |.8J..8T%. .redob|
000079d0  6f 78 28 77 69 6e 64 25  2c 78 30 25 2c 79 30 25  |ox(wind%,x0%,y0%|
000079e0  2c 78 31 25 2c 79 31 25  29 0d 38 5e 1a e7 20 78  |,x1%,y1%).8^.. x|
000079f0  31 25 3c 78 30 25 20 8c  20 c8 94 20 78 30 25 2c  |1%<x0% . .. x0%,|
00007a00  78 31 25 0d 38 68 1a e7  20 79 31 25 3c 79 30 25  |x1%.8h.. y1%<y0%|
00007a10  20 8c 20 c8 94 20 79 30  25 2c 79 31 25 0d 38 72  | . .. y0%,y1%.8r|
00007a20  2e c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |..."Wimp_ForceRe|
00007a30  64 72 61 77 22 2c 77 69  6e 64 25 2c 78 30 25 2c  |draw",wind%,x0%,|
00007a40  79 30 25 2c 78 31 25 2c  79 31 25 0d 38 7c 05 e1  |y0%,x1%,y1%.8|..|
00007a50  0d 38 86 04 0d 38 90 1a  dd 20 f2 64 65 6c 65 74  |.8...8... .delet|
00007a60  65 77 69 6e 64 6f 77 28  f8 20 21 71 25 29 0d 38  |ewindow(. !q%).8|
00007a70  9a 1d c8 99 22 57 69 6d  70 5f 44 65 6c 65 74 65  |...."Wimp_Delete|
00007a80  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 38 a4 09 21  |Window",,q%.8..!|
00007a90  71 25 3d 30 0d 38 ae 05  e1 0d 38 b8 04 0d 38 c2  |q%=0.8....8...8.|
00007aa0  1d f4 20 3d 3d 3d 3d 20  69 63 6f 6e 20 72 6f 75  |.. ==== icon rou|
00007ab0  74 69 6e 65 73 20 3d 3d  3d 3d 0d 38 cc 04 0d 38  |tines ====.8...8|
00007ac0  d6 26 dd 20 f2 63 6c 69  63 6b 28 6d 78 25 2c 6d  |.&. .click(mx%,m|
00007ad0  79 25 2c 62 75 74 25 2c  77 69 6e 64 25 2c 69 63  |y%,but%,wind%,ic|
00007ae0  6f 6e 25 29 0d 38 e0 37  e7 20 a4 62 75 74 74 79  |on%).8.7. .butty|
00007af0  70 65 28 77 69 6e 64 25  2c 69 63 6f 6e 25 29 3d  |pe(wind%,icon%)=|
00007b00  39 20 8c 20 f2 66 6c 61  73 68 69 63 6f 6e 28 77  |9 . .flashicon(w|
00007b10  69 6e 64 25 2c 69 63 6f  6e 25 29 0d 38 ea 12 69  |ind%,icon%).8..i|
00007b20  64 25 3d a4 69 64 28 77  69 6e 64 25 29 0d 38 f4  |d%=.id(wind%).8.|
00007b30  0d c8 8e 20 62 75 74 25  20 ca 0d 38 fe 08 c9 20  |... but% ..8... |
00007b40  36 34 0d 39 08 22 20 20  c8 8e 20 a4 62 75 74 74  |64.9."  .. .butt|
00007b50  79 70 65 28 77 25 28 69  64 25 29 2c 69 63 6f 6e  |ype(w%(id%),icon|
00007b60  25 29 20 ca 0d 39 12 2d  20 20 20 20 c9 20 36 2c  |%) ..9.-    . 6,|
00007b70  37 2c 38 2c 31 30 2c 31  34 20 3a 20 f2 73 74 61  |7,8,10,14 : .sta|
00007b80  72 74 64 72 61 67 28 69  64 25 2c 69 63 6f 6e 25  |rtdrag(id%,icon%|
00007b90  29 0d 39 1c 07 20 20 cb  0d 39 26 18 c9 20 32 20  |).9..  ..9&.. 2 |
00007ba0  3a 20 f2 6f 70 65 6e 6d  65 6e 75 28 69 64 25 29  |: .openmenu(id%)|
00007bb0  0d 39 30 05 7f 0d 39 3a  1c 64 25 3d a0 28 22 46  |.90...9:.d%=.("F|
00007bc0  4e 63 6c 69 63 6b 22 2b  69 64 24 28 69 64 25 29  |Nclick"+id$(id%)|
00007bd0  29 0d 39 44 05 cb 0d 39  4e 05 e1 0d 39 58 04 0d  |).9D...9N...9X..|
00007be0  39 62 0e dd 20 f2 65 6e  64 64 72 61 67 0d 39 6c  |9b.. .enddrag.9l|
00007bf0  0e f2 6d 6f 75 73 65 69  6e 66 6f 0d 39 76 22 e7  |..mouseinfo.9v".|
00007c00  20 64 72 61 67 25 20 8c  20 c8 99 22 44 72 61 67  | drag% . .."Drag|
00007c10  41 53 70 72 69 74 65 5f  53 74 6f 70 22 0d 39 80  |ASprite_Stop".9.|
00007c20  1f 64 25 3d a0 28 22 46  4e 64 72 6f 70 22 2b 69  |.d%=.("FNdrop"+i|
00007c30  64 24 28 64 72 61 67 69  64 25 29 29 0d 39 8a 05  |d$(dragid%)).9..|
00007c40  e1 0d 39 94 04 0d 39 9e  4c dd 20 f2 73 74 61 72  |..9...9.L. .star|
00007c50  74 64 72 61 67 62 6f 78  28 21 71 25 2c 71 25 21  |tdragbox(!q%,q%!|
00007c60  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00007c70  31 36 2c 71 25 21 32 30  2c 71 25 21 32 34 2c 71  |16,q%!20,q%!24,q|
00007c80  25 21 32 38 2c 71 25 21  33 32 2c 71 25 21 33 36  |%!28,q%!32,q%!36|
00007c90  29 0d 39 a8 18 c8 99 22  57 69 6d 70 5f 44 72 61  |).9...."Wimp_Dra|
00007ca0  67 42 6f 78 22 2c 2c 71  25 0d 39 b2 05 e1 0d 39  |gBox",,q%.9....9|
00007cb0  bc 04 0d 39 c6 22 dd 20  f2 6b 65 79 28 77 69 6e  |...9.". .key(win|
00007cc0  64 25 2c 69 63 6f 6e 25  2c 78 70 6f 73 25 2c 6b  |d%,icon%,xpos%,k|
00007cd0  65 79 25 29 0d 39 d0 24  74 61 6b 65 6e 3d a0 28  |ey%).9.$taken=.(|
00007ce0  22 46 4e 6b 65 79 22 2b  69 64 24 28 a4 69 64 28  |"FNkey"+id$(.id(|
00007cf0  77 69 6e 64 25 29 29 29  0d 39 da 28 e7 20 74 61  |wind%))).9.(. ta|
00007d00  6b 65 6e 3d a3 20 8c 20  c8 99 22 57 69 6d 70 5f  |ken=. . .."Wimp_|
00007d10  50 72 6f 63 65 73 73 4b  65 79 22 2c 6b 65 79 25  |ProcessKey",key%|
00007d20  0d 39 e4 05 e1 0d 39 ee  04 0d 39 f8 28 dd 20 a4  |.9....9...9.(. .|
00007d30  69 6e 63 69 63 6f 6e 28  69 69 63 6f 6e 25 2c 64  |incicon(iicon%,d|
00007d40  65 63 25 2c 69 6e 63 25  2c 6c 62 25 2c 75 62 25  |ec%,inc%,lb%,ub%|
00007d50  29 0d 3a 02 0d 63 68 61  6e 67 65 25 3d a3 0d 3a  |).:..change%=..:|
00007d60  0c 1f e7 20 69 63 6f 6e  25 3d 64 65 63 25 20 84  |... icon%=dec% .|
00007d70  20 69 63 6f 6e 25 3d 69  6e 63 25 20 8c 0d 3a 16  | icon%=inc% ..:.|
00007d80  21 76 61 6c 25 3d bb a4  69 63 6f 6e 74 65 78 74  |!val%=..icontext|
00007d90  28 77 69 6e 64 25 2c 69  69 63 6f 6e 25 29 0d 3a  |(wind%,iicon%).:|
00007da0  20 1a 76 61 6c 25 2b 3d  28 69 63 6f 6e 25 3d 64  | .val%+=(icon%=d|
00007db0  65 63 25 29 2a 32 2b 31  0d 3a 2a 31 e7 20 76 61  |ec%)*2+1.:*1. va|
00007dc0  6c 25 3e 75 62 25 20 8c  20 76 61 6c 25 3d 75 62  |l%>ub% . val%=ub|
00007dd0  25 20 8b 20 e7 20 76 61  6c 25 3c 6c 62 25 20 8c  |% . . val%<lb% .|
00007de0  20 76 61 6c 25 3d 6c 62  25 0d 3a 34 26 f2 73 65  | val%=lb%.:4&.se|
00007df0  74 69 63 6f 6e 74 65 78  74 28 77 69 6e 64 25 2c  |ticontext(wind%,|
00007e00  69 69 63 6f 6e 25 2c c3  28 76 61 6c 25 29 29 0d  |iicon%,.(val%)).|
00007e10  3a 3e 1d f2 72 65 73 65  74 63 61 72 65 74 28 77  |:>..resetcaret(w|
00007e20  69 6e 64 25 2c 69 69 63  6f 6e 25 29 0d 3a 48 0d  |ind%,iicon%).:H.|
00007e30  63 68 61 6e 67 65 25 3d  b9 0d 3a 52 05 cd 0d 3a  |change%=..:R...:|
00007e40  5c 05 cd 0d 3a 66 0c 3d  63 68 61 6e 67 65 25 0d  |\...:f.=change%.|
00007e50  3a 70 04 0d 3a 7a 1b dd  20 f2 72 65 6d 6f 76 65  |:p..:z.. .remove|
00007e60  69 63 6f 6e 28 21 71 25  2c 71 25 21 34 29 0d 3a  |icon(!q%,q%!4).:|
00007e70  84 10 71 25 21 38 3d 28  31 3c 3c 32 34 29 0d 3a  |..q%!8=(1<<24).:|
00007e80  8e 29 71 25 21 31 32 3d  28 31 3c 3c 32 29 84 28  |.)q%!12=(1<<2).(|
00007e90  31 3c 3c 35 29 84 28 31  35 3c 3c 32 34 29 84 28  |1<<5).(15<<24).(|
00007ea0  31 35 3c 3c 31 32 29 0d  3a 98 1d c8 99 22 57 69  |15<<12).:...."Wi|
00007eb0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00007ec0  2c 2c 71 25 0d 3a a2 05  e1 0d 3a ac 04 0d 3a b6  |,,q%.:....:...:.|
00007ed0  1b dd 20 f2 72 65 69 6e  69 74 69 63 6f 6e 28 21  |.. .reiniticon(!|
00007ee0  71 25 2c 71 25 21 34 29  0d 3a c0 26 71 25 21 38  |q%,q%!4).:.&q%!8|
00007ef0  3d 28 31 3c 3c 32 29 84  28 31 3c 3c 35 29 84 28  |=(1<<2).(1<<5).(|
00007f00  37 3c 3c 32 34 29 84 28  33 3c 3c 31 32 29 0d 3a  |7<<24).(3<<12).:|
00007f10  ca 29 71 25 21 31 32 3d  28 31 3c 3c 32 29 84 28  |.)q%!12=(1<<2).(|
00007f20  31 3c 3c 35 29 84 28 31  35 3c 3c 31 32 29 84 28  |1<<5).(15<<12).(|
00007f30  31 35 3c 3c 32 34 29 0d  3a d4 1d c8 99 22 57 69  |15<<24).:...."Wi|
00007f40  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00007f50  2c 2c 71 25 0d 3a de 05  e1 0d 3a e8 04 0d 3a f2  |,,q%.:....:...:.|
00007f60  16 dd 20 a4 69 63 6f 6e  6b 65 79 73 28 64 61 74  |.. .iconkeys(dat|
00007f70  61 25 29 0d 3a fc 0b 74  61 6b 65 6e 3d b9 0d 3b  |a%).:..taken=..;|
00007f80  06 0c 69 63 6f 6e 73 25  3d 30 0d 3b 10 17 c8 95  |..icons%=0.;....|
00007f90  20 64 61 74 61 25 3f 69  63 6f 6e 73 25 3c 32 35  | data%?icons%<25|
00007fa0  35 0d 3b 1a 0f 20 20 69  63 6f 6e 73 25 2b 3d 31  |5.;..  icons%+=1|
00007fb0  0d 3b 24 05 ce 0d 3b 2e  0d 69 63 6f 6e 73 25 2d  |.;$...;..icons%-|
00007fc0  3d 31 0d 3b 38 0d 66 6f  75 6e 64 25 3d 2d 31 0d  |=1.;8.found%=-1.|
00007fd0  3b 42 13 e3 20 70 25 3d  30 20 b8 20 69 63 6f 6e  |;B.. p%=0 . icon|
00007fe0  73 25 0d 3b 4c 22 20 20  e7 20 64 61 74 61 25 3f  |s%.;L"  . data%?|
00007ff0  70 25 3d 69 63 6f 6e 25  20 8c 20 66 6f 75 6e 64  |p%=icon% . found|
00008000  25 3d 70 25 0d 3b 56 08  ed 20 70 25 0d 3b 60 0f  |%=p%.;V.. p%.;`.|
00008010  6e 65 77 69 63 6f 6e 25  3d 2d 31 0d 3b 6a 11 e7  |newicon%=-1.;j..|
00008020  20 66 6f 75 6e 64 25 3e  3d 30 20 8c 0d 3b 74 0f  | found%>=0 ..;t.|
00008030  20 20 c8 8e 20 6b 65 79  25 20 ca 0d 3b 7e 20 20  |  .. key% ..;~  |
00008040  20 20 20 c9 20 31 33 20  3a 20 6e 65 77 69 63 6f  |   . 13 : newico|
00008050  6e 25 3d 66 6f 75 6e 64  25 2b 31 0d 3b 88 34 20  |n%=found%+1.;.4 |
00008060  20 20 20 c9 20 26 31 38  45 20 3a 20 e7 20 66 6f  |   . &18E : . fo|
00008070  75 6e 64 25 3c 69 63 6f  6e 73 25 20 8c 20 6e 65  |und%<icons% . ne|
00008080  77 69 63 6f 6e 25 3d 66  6f 75 6e 64 25 2b 31 0d  |wicon%=found%+1.|
00008090  3b 92 2f 20 20 20 20 c9  20 26 31 38 46 20 3a 20  |;./    . &18F : |
000080a0  e7 20 66 6f 75 6e 64 25  3e 30 20 8c 20 6e 65 77  |. found%>0 . new|
000080b0  69 63 6f 6e 25 3d 66 6f  75 6e 64 25 2d 31 0d 3b  |icon%=found%-1.;|
000080c0  9c 2a 20 20 20 20 c9 20  26 31 39 45 2c 26 31 41  |.*    . &19E,&1A|
000080d0  45 2c 26 31 42 45 20 3a  20 6e 65 77 69 63 6f 6e  |E,&1BE : newicon|
000080e0  25 3d 69 63 6f 6e 73 25  0d 3b a6 25 20 20 20 20  |%=icons%.;.%    |
000080f0  c9 20 26 31 39 46 2c 26  31 41 46 2c 26 31 42 46  |. &19F,&1AF,&1BF|
00008100  20 3a 20 6e 65 77 69 63  6f 6e 25 3d 30 0d 3b b0  | : newicon%=0.;.|
00008110  07 20 20 7f 0d 3b ba 0f  20 20 20 20 74 61 6b 65  |.  ..;..    take|
00008120  6e 3d a3 0d 3b c4 07 20  20 cb 0d 3b ce 05 cd 0d  |n=..;..  ..;....|
00008130  3b d8 2c e7 20 6e 65 77  69 63 6f 6e 25 3e 69 63  |;.,. newicon%>ic|
00008140  6f 6e 73 25 20 8c 20 74  61 6b 65 6e 3d 2d 32 3a  |ons% . taken=-2:|
00008150  6e 65 77 69 63 6f 6e 25  3d 2d 31 0d 3b e2 13 e7  |newicon%=-1.;...|
00008160  20 6e 65 77 69 63 6f 6e  25 3e 3d 30 20 8c 0d 3b  | newicon%>=0 ..;|
00008170  ec 0f 20 20 f2 67 65 74  63 61 72 65 74 0d 3b f6  |..  .getcaret.;.|
00008180  2d 20 20 f2 70 75 74 63  61 72 65 74 28 77 69 6e  |-  .putcaret(win|
00008190  64 25 2c 64 61 74 61 25  3f 6e 65 77 69 63 6f 6e  |d%,data%?newicon|
000081a0  25 2c 63 69 6e 64 65 78  25 29 0d 3c 00 05 cd 0d  |%,cindex%).<....|
000081b0  3c 0a 0a 3d 74 61 6b 65  6e 0d 3c 14 04 0d 3c 1e  |<..=taken.<...<.|
000081c0  1c f4 20 3d 3d 3d 3d 20  61 6e 64 20 74 68 65 20  |.. ==== and the |
000081d0  72 65 73 74 20 3d 3d 3d  3d 0d 3c 28 04 0d 3c 32  |rest ====.<(..<2|
000081e0  0e dd 20 a4 63 6c 69 63  6b 3d 30 0d 3c 3c 04 0d  |.. .click=0.<<..|
000081f0  3c 46 0f dd 20 a4 72 65  64 72 61 77 3d 30 0d 3c  |<F.. .redraw=0.<|
00008200  50 04 0d 3c 5a 0c dd 20  a4 6b 65 79 3d 30 0d 3c  |P..<Z.. .key=0.<|
00008210  64 04 0d 3c 6e 0d dd 20  a4 64 72 6f 70 3d 30 0d  |d..<n.. .drop=0.|
00008220  3c 78 04 0d 3c 82 10 dd  20 f2 74 65 6d 70 28 73  |<x..<... .temp(s|
00008230  74 24 29 0d 3c 8c 11 e3  20 61 25 3d 31 20 b8 20  |t$).<... a%=1 . |
00008240  a9 73 74 24 0d 3c 96 12  20 20 f1 97 c1 73 74 24  |.st$.<..  ...st$|
00008250  2c 61 25 2c 31 29 0d 3c  a0 08 ed 20 61 25 0d 3c  |,a%,1).<... a%.<|
00008260  aa 05 e1 0d 3c b4 04 0d  3c be 14 dd 20 f2 65 72  |....<...<... .er|
00008270  72 6f 72 28 65 72 72 6f  72 24 29 0d 3c c8 17 c8  |ror(error$).<...|
00008280  99 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  |."Hourglass_Smas|
00008290  68 22 0d 3c d2 10 c8 8e  20 73 74 61 74 75 73 25  |h".<.... status%|
000082a0  20 ca 0d 3c dc 09 20 20  c9 20 31 0d 3c e6 19 20  | ..<..  . 1.<.. |
000082b0  20 20 20 e7 20 70 72 69  6e 74 20 8c 20 d9 23 70  |   . print . .#p|
000082c0  72 69 6e 74 0d 3c f0 2e  20 20 20 20 72 65 70 6f  |rint.<..    repo|
000082d0  72 74 24 3d 22 50 72 69  6e 74 20 65 72 72 6f 72  |rt$="Print error|
000082e0  2c 20 70 72 69 6e 74 20  63 61 6e 63 65 6c 6c 65  |, print cancelle|
000082f0  64 22 0d 3c fa 05 7f 0d  3d 04 53 20 20 72 65 70  |d".<....=.S  rep|
00008300  6f 72 74 24 3d 22 41 6e  20 75 6e 63 6f 6e 74 72  |ort$="An uncontr|
00008310  6f 6c 61 62 6c 65 20 65  72 72 6f 72 20 68 61 73  |olable error has|
00008320  20 6f 63 63 75 72 65 64  20 28 22 2b 65 72 72 6f  | occured ("+erro|
00008330  72 24 2b c3 28 9e 29 2b  22 29 2c 20 73 68 61 6c  |r$+.(.)+"), shal|
00008340  6c 20 49 20 65 78 69 74  3f 22 0d 3d 0e 05 cb 0d  |l I exit?".=....|
00008350  3d 18 18 65 78 69 74 3d  a4 63 68 65 63 6b 28 72  |=..exit=.check(r|
00008360  65 70 6f 72 74 24 29 0d  3d 22 0d 73 74 61 74 75  |eport$).=".statu|
00008370  73 25 3d 30 0d 3d 2c 05  e1 0d 3d 36 04 0d 3d 40  |s%=0.=,...=6..=@|
00008380  12 dd 20 a4 77 70 61 6c  28 6d 6f 64 65 25 29 0d  |.. .wpal(mode%).|
00008390  3d 4a 1a c8 8e 20 a4 6d  6f 64 65 76 61 72 28 6d  |=J... .modevar(m|
000083a0  6f 64 65 25 2c 33 29 20  ca 0d 3d 54 0f 20 20 c9  |ode%,3) ..=T.  .|
000083b0  20 36 33 3a 70 25 3d 30  0d 3d 5e 12 20 20 c9 20  | 63:p%=0.=^.  . |
000083c0  31 35 3a 70 25 3d 70 61  6c 25 0d 3d 68 12 20 20  |15:p%=pal%.=h.  |
000083d0  c9 20 33 3a 70 25 3d 70  61 6c 34 25 0d 3d 72 12  |. 3:p%=pal4%.=r.|
000083e0  20 20 c9 20 31 3a 70 25  3d 70 61 6c 32 25 0d 3d  |  . 1:p%=pal2%.=|
000083f0  7c 05 cb 0d 3d 86 07 3d  70 25 0d 3d 90 04 0d 3d  ||...=..=p%.=...=|
00008400  9a 0f dd 20 a4 64 72 6f  70 73 61 76 65 0d 3d a4  |... .dropsave.=.|
00008410  1c 66 69 6c 65 74 79 70  65 25 3d 6d 69 73 63 25  |.filetype%=misc%|
00008420  28 64 72 61 67 69 64 25  29 0d 3d ae 2a 70 72 65  |(dragid%).=.*pre|
00008430  70 61 72 65 64 25 3d a0  28 22 46 4e 70 72 65 70  |pared%=.("FNprep|
00008440  61 72 65 22 2b c3 7e 28  66 69 6c 65 74 79 70 65  |are"+.~(filetype|
00008450  25 29 29 0d 3d b8 49 e7  20 70 72 65 70 61 72 65  |%)).=.I. prepare|
00008460  64 25 20 8c 20 f2 64 72  6f 70 66 69 6c 65 28 a4  |d% . .dropfile(.|
00008470  69 63 6f 6e 74 65 78 74  28 77 25 28 64 72 61 67  |icontext(w%(drag|
00008480  69 64 25 29 2c 32 29 2c  66 69 6c 65 74 79 70 65  |id%),2),filetype|
00008490  25 2c 66 69 6c 65 73 69  7a 65 25 29 0d 3d c2 06  |%,filesize%).=..|
000084a0  3d 30 0d 3d cc 04 0d 3d  d6 10 dd 20 a4 63 6c 69  |=0.=...=... .cli|
000084b0  63 6b 73 61 76 65 0d 3d  e0 2f e7 20 69 63 6f 6e  |cksave.=./. icon|
000084c0  25 3d 30 20 8c 20 f2 73  61 76 65 28 69 64 25 2c  |%=0 . .save(id%,|
000084d0  a4 69 63 6f 6e 74 65 78  74 28 77 69 6e 64 25 2c  |.icontext(wind%,|
000084e0  32 29 2c a3 29 0d 3d ea  06 3d 30 0d 3d f4 04 0d  |2),.).=..=0.=...|
000084f0  3d fe 0e dd 20 a4 6b 65  79 73 61 76 65 0d 3e 08  |=... .keysave.>.|
00008500  32 e7 20 6b 65 79 25 3d  31 33 20 8c 20 f2 73 61  |2. key%=13 . .sa|
00008510  76 65 28 69 64 25 2c a4  69 63 6f 6e 74 65 78 74  |ve(id%,.icontext|
00008520  28 77 69 6e 64 25 2c 32  29 2c a3 29 3a 3d b9 0d  |(wind%,2),.):=..|
00008530  3e 12 06 3d 30 0d 3e 1c  04 0d 3e 26 22 dd 20 a4  |>..=0.>...>&". .|
00008540  73 70 72 69 74 65 6e 61  6d 65 28 73 70 72 69 74  |spritename(sprit|
00008550  65 25 2c 6e 75 6d 62 65  72 25 29 0d 3e 30 3b c8  |e%,number%).>0;.|
00008560  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 31  |."OS_SpriteOp",1|
00008570  33 2b 32 35 36 2c 73 70  72 69 74 65 25 2c 71 25  |3+256,sprite%,q%|
00008580  2c 32 35 36 2c 6e 75 6d  62 65 72 25 20 b8 20 2c  |,256,number% . ,|
00008590  2c 2c 6c 65 6e 25 0d 3e  3a 0e 71 25 3f 6c 65 6e  |,,len%.>:.q%?len|
000085a0  25 3d 31 33 0d 3e 44 08  3d 24 71 25 0d 3e 4e 04  |%=13.>D.=$q%.>N.|
000085b0  0d 3e 58 1c dd 20 f2 6c  6f 61 64 28 66 69 6c 65  |.>X.. .load(file|
000085c0  24 2c 66 69 6c 65 74 79  70 65 25 29 0d 3e 62 1c  |$,filetype%).>b.|
000085d0  6f 6b 25 3d a4 66 69 6c  65 6f 6b 61 79 28 66 69  |ok%=.fileokay(fi|
000085e0  6c 65 74 79 70 65 25 29  0d 3e 6c 21 e7 20 6f 6b  |letype%).>l!. ok|
000085f0  25 20 8c 20 6f 6b 25 3d  a4 66 69 6c 65 65 78 69  |% . ok%=.fileexi|
00008600  73 74 28 66 69 6c 65 24  29 0d 3e 76 0b e7 20 6f  |st(file$).>v.. o|
00008610  6b 25 20 8c 0d 3e 80 12  20 20 f2 72 65 70 6c 79  |k% ..>..  .reply|
00008620  28 31 38 2c 34 29 0d 3e  8a 2c 20 20 64 25 3d a0  |(18,4).>.,  d%=.|
00008630  28 22 46 4e 6c 6f 61 64  22 2b c3 7e 28 66 69 6c  |("FNload"+.~(fil|
00008640  65 74 79 70 65 25 29 2b  22 28 66 69 6c 65 24 29  |etype%)+"(file$)|
00008650  22 29 0d 3e 94 24 20 20  64 25 3d a0 28 22 46 4e  |").>.$  d%=.("FN|
00008660  6c 6f 61 64 65 64 22 2b  c3 7e 28 66 69 6c 65 74  |loaded"+.~(filet|
00008670  79 70 65 25 29 29 0d 3e  9e 05 cc 0d 3e a8 15 20  |ype%)).>....>.. |
00008680  20 e7 20 6d 65 73 73 61  67 65 25 3c 3e 35 20 8c  | . message%<>5 .|
00008690  0d 3e b2 14 20 20 20 20  f2 72 65 70 6c 79 28 31  |.>..    .reply(1|
000086a0  38 2c 34 29 0d 3e bc 29  20 20 20 20 f2 72 65 70  |8,4).>.)    .rep|
000086b0  6f 72 74 28 22 43 61 6e  6e 6f 74 20 6c 6f 61 64  |ort("Cannot load|
000086c0  20 74 68 69 73 20 66 69  6c 65 2e 22 29 0d 3e c6  | this file.").>.|
000086d0  07 20 20 cd 0d 3e d0 05  cd 0d 3e da 05 e1 0d ff  |.  ..>....>.....|
000086e0