)� � � 12:�$+" at line "+�(�):�':�:�
:
checkval=�(0)
(:
2ș &00000010 � env$
<� �env$," -quit ") �
F5doubleclick$=�env$,�env$,�(34),�env$,�(34))+1)+1)
P�
Z:
dname$="Rodent"
n"purpose$="Extra mouse control"
x version$="v1.01a (20-09-93)"
�dir$="<Rodent$Dir>"
�:
�)ș &00000006,129,0,&FF � ,os_version%
�Ȏ os_version% �
�
� &A3,&A4
�dragicon%=�
�
�dragicon%=�
��
�:
�� block% 4096
�� block2% 4096
�7ș &000400C0,200,&4B534154,name$ � wimpversion%,th%

�initialisevars

�initsprites

�initwindows

"�initmenus

,:

6�iconputtext(info%,0,name$)

@"�iconputtext(info%,1,purpose$)

J"�iconputtext(info%,3,version$)

T:

^ih%=�iconbar("!"+name$,-1)

h:

r� doubleclick$<>" " �

|block%!40=&352

��load(doubleclick$)

��

�:

�� checkval=9 �

�
exit=�

��

�:

�R�set(mouseleft,mouseright,mouseup,mousedown,mouseselect,mousemenu,mouseadjust)

�:

��

�:

�*ș &000400C7,0,block% � reason%,block%

�:
Ȏ reason% �
� 0
	�null
&� 1
0�redrawwindow(0)
:� 2
D�openwindow(0)
N� 3
X�closewindow(0)
b� 4
l�pointerleave
v� 5
��pointerenter
�� 6
��mouseclick
�� 7
��userdragbox
�� 8
��keypressed
�� 9
��menuselection
�� 10
��scrollrequest
�� 11
��losecaret
� 12
�gaincaret
� 17
 �usermessage
*� 18
4�usermessagerecorded
>� 19
H�usermessageacknowledge
R�
\:
f
� exit
p�
z:
�ș &000400DD,th%,&4B534154
��
�:
���initialisevars
�
exit=�
�draggedwindow%=-1
�x=1
�y=1
�:
�	ux1=2
�	uy1=2
�	ux2=6
�	uy2=6
:
currentuser=-1
:
$mouseselect=&27
.mousemenu=&28
8mouseadjust=&29
Bmouseup=&59
Lmousedown=&63
Vmouseleft=&62
`mouseright=&64
j:
tu1mouseselect=&1F
~u1mousemenu=&20
�u1mouseadjust=&21
�u1mouseup=&59
�u1mousedown=&63
�u1mouseleft=&62
�u1mouseright=&64
�:
�u2mouseselect=&23
�u2mousemenu=&24
�u2mouseadjust=&25
�u2mouseup=&38
�u2mousedown=&5b
�u2mouseleft=&48
u2mouseright=&4a

:

setting=1
:
(slidewindow%=-1
2slideicon%=-1
<slidesize%=-1
Foldworkx%=-1
Prrange%=-1
Zsizemaxx%=-1
dsizeminx%=-1
n�
x:
���initsprites
�ș &00000035,-1,5 � ,,yeig%
�5� yeig%<2 � sprite$="Sprites" � sprite$="Sprites"
�7ș &00000008,17,dir$+"."+sprite$ � type%,,,,length%
�8� type%<>1 � � 0,"Incorrect or missing Sprites file"
�� sprite% length%+4
�!sprite%=length%+4
�-ș &0000002E,266,sprite%,dir$+"."+sprite$
��
�:
���initwindows
�� win% 8096
�� ind% 8096
#ș &000400D9,,dir$+".Templates"
!info%=�window("info",sprite%)
!step%=�window("step",sprite%)
"!keys%=�window("keys",sprite%)
,#mouse%=�window("mouse",sprite%)
6 saveas%=�window("saveas",-1)
@ș &000400DA
J�
T:
^ݤwindow(wname$,spr%)
h:ș &000400DB,,win%,ind%,ind%+8096,-1,wname$,0 � ,,ind%
r� spr%<>-1 � win%!64=spr%
|ș &000400C1,,win% � han%
�	=han%
�:
���initmenus
�Wmainmenu%=�createmenu(name$,5,"-Info>info%|Speed|-Keyboard|-Save>saveas%|Quit",150)
��
�:
�
��null
�E� slideicon%=7 � �doslide(slidewindow%,slideicon%,slidesize%,�,9)
�F� slideicon%=14 � �doslide(slidewindow%,slideicon%,slidesize%,�,9)
��
�:
���redrawwindow(wind%)
�� wind%<>0 �
block%!0=wind%
�
 ș &000400C8,,block% � flag%
&ȕ flag%
0 ș &000400CA,,block% � flag%
:�
D�
N:
X��openwindow(wind%)
b� wind%<>0 �
lblock%!0=wind%
vș &000400CB,,block%
��
�� block%!0=keys% �
�mainminx%=block%!4
�mainminy%=block%!8
�mainmaxx%=block%!12
�mainmaxy%=block%!16
�mainscrollx%=block%!20
�mainscrolly%=block%!24
�backhand%=block%!28
�block%!0=mouse%
�ș &400cb,,block%
�block%!0=mouse%
�block%!4=mainmaxx%+2
block%!8=mainminy%-200
block%!12=mainmaxx%+412+2
block%!16=mainmaxy%
 block%!28=backhand%
*ș &400C5,,block%
4block%!0=keys%
>block%!4=mainminx%
Hblock%!8=mainminy%
Rblock%!12=mainmaxx%
\block%!16=mainmaxy%
fblock%!20=mainscrollx%
pblock%!24=mainscrolly%
zblock%!28=mouse%
��
�ș &000400C5,,block%
��
�:
���closewindow(wind%)
�� wind%<>0 �
�block%!0=wind%
��
�� block%!0=keys% �
�block%!0=mouse%
�ș &000400C6,,block%
�block%!0=keys%
��
	ș &000400C6,,block%
	�
	:
	$��pointerleave
	.�
	8:
	B��pointerenter
	L�
	V:
	`��mouseclick
	j0� mousex%,mousey%,mousebutton%,window%,icon%
	tmousex%=block%!0
	~mousey%=block%!4
	�mousebutton%=block%!8
	�window%=block%!12
	�icon%=block%!16
	�:
	�Ȏ mousebutton% �
	�� 1
	�!� window%=saveas% � icon%=2 �
	�$� ��icontext(saveas%,1),".")=0 �
	�]�alert("Message from Rodent","To save, drag the file icon to a directory viewer.",%10001)
	��
	�draggedwindow%=saveas%
	��save(�icontext(saveas%,1))
�

�
� window%=-2 � �openkeys
'� window%=step% � �clickstep(icon%)
()� window%=mouse% � �clickmouse(icon%)
2'� window%=keys% � �clickkeys(icon%)
<� 2
F� window%=-2 �
P*ș &000400D4,,mainmenu%,mousex%-68,388
Zmenu%=mainmenu%
d�
n� 4
x!� window%=saveas% � icon%=2 �
�$� ��icontext(saveas%,1),".")=0 �
�]�alert("Message from Rodent","To save, drag the file icon to a directory viewer.",%10001)
�ș&000400D4,-1
��
�draggedwindow%=saveas%
��save(�icontext(saveas%,1))
�ș&000400D4,-1
��
��
�� window%=-2 � �openstep
�'� window%=step% � �clickstep(icon%)
�)� window%=mouse% � �clickmouse(icon%)
�'� window%=keys% � �clickkeys(icon%)
� 16,64
!� window%=saveas% � icon%=0 �
draggedwindow%=window%
"I� dragicon% � �drawbox(saveas%,0,"file_352") � �drawbox(saveas%,0,"")
,�
6�
@�
J:
T��userdragbox
^7� slidewindow%>-1 � slideicon%>-1 � slidesize%>-1 �
hsize%=sizemaxx%-sizeminx%
rppos%=(oldworkx%-sizeminx%)
|num%=(rrange%/size%)*ppos%
�Ȏ slideicon% �
�� 7
�"x=�(�getbarvalue(step%,7,6,9))
�� 14
�$y=�(�getbarvalue(step%,14,13,9))
��
�ȗ � x+1,y+1
�:
�slidewindow%=-1
�slideicon%=-1
�slidesize%=-1
��
�:
tt%=block%+256
ș&000400CF,,tt%

xx%=tt%!0
&
yy%=tt%!4
0
bb%=tt%!8
:wind%=tt%!12
Dicon%=tt%!16
NȎ draggedwindow% �
X
� saveas%
bblock%!0=256
lblock%!12=0
vblock%!16=1
�block%!20=wind%
�block%!24=icon%
�block%!28=xx%
�block%!32=yy%
�block%!36=1
�block%!40=&ccc
�bblock%=block%+256
�bblock%!0=saveas%
�bblock%!4=1
�ș&000400CE,0,bblock%
�text%=bblock%!28
�w$=�gLn($text%)
�$(block%+44)=w$+�0

%ș&000400E7,17,block%,wind%,icon%

%� wind%<>saveas% � ș&000400D4,-1

�

 �

*:

4��keypressed

>wind%=block%!0

Hicon%=block%!4

Rkey%=block%!24

\
Ȏ key% �

f� 398,13

p� wind%=saveas% �

z$� ��icontext(saveas%,1),".")=0 �

�]�alert("Message from Rodent","To save, drag the file icon to a directory viewer.",%10001)

�ș&000400D4,-1

��

�draggedwindow%=saveas%

��save(�icontext(saveas%,1))

�ș&000400D4,,-1

��

��

��

�:

���menuselection

�� menu%=mainmenu% �

�Ȏ block%!0 �
� 1 : �openstep
� 2 : �openkeys
� 4 : exit=�
$�
.�
8ș&000400CF,,block%+256
Bbrr%=block%+256
Lbutton%=brr%!8
V� button%=1 �
`=� menu%=mainmenu% � ș &000400D4,,mainmenu%,brr%!0-68,388
j�
t�
~:
���scrollrequest
��
�:
���losecaret
��
�:
���gaincaret
��
�:
���usermessage
�Ȏ block%!16 �
�� 0

exit=�

� 2
 �save(�getstring(block%+44))
�
(�
2:
<��usermessagerecorded
FȎ block%!16 �
P� 0
Z
exit=�
d� 3
n �load(�getstring(block%+44))
x� 5
�� block%!40=&352 �
�block%!12=block%!8
�#ș&000600E7,17,block%,block%!20
� �load(�getstring(block%+44))
��
��
��
�:
���usermessageacknowledge
��
�:
�ݤparseWord(� A$,B$)
�,� C$,D%,E%,F$:D%=1:E%=�(A$):C$=�A$,D%,1)
0ȕ (�B$,C$)=0)�(D%<=E%):D%+=1:C$=�A$,D%,1):�
8F$=�A$,D%-1):A$=�A$,D%+1):E%=�(A$):D%=1:C$=�A$,D%,1)
0ȕ (�B$,C$)>0)�(D%<=E%):D%+=1:C$=�A$,D%,1):�
"A$=�A$,D%)
,=F$
6:
@ݤparseLine(A$,B$(),C$)
J� D%,E%:D%=�(B$(),1)
Tȕ (A$<>"")�(E%<=D%)
^B$(E%)=�parseWord(A$,C$)
h	E%+=1
r�
|=E%
�:
�2� �createmenu(title$,entries%,entries$,width%)
�� menu%,word$()
�� menu% 24+entries%*24
�� word$(entries%)
�(tr%=�parseLine(entries$,word$(),"|")
�
tr%-=1
�$(menu%+0)=title$+�0
�menu%!12=7
�menu%!13=2
�menu%!14=7
�menu%!15=0
�menu%!16=width%
menu%!20=44
menu%!24=0
� loop%=0 � tr%
&p%=(loop%*24)+28
02� loop%=entries%-1 � menu%!p%=128 � menu%!p%=0
:� �word$(loop%),1,1)="-" �
Dmenu%!p%+=2
N�
X&� title$="Filetypes" � menu%!p%+=8
b	p%+=4
l� �word$(loop%),">") = 0 �
vmenu%!p%=-1
��
�3menu%!p%=�(�word$(loop%),�word$(loop%),">")+1))
��
�	p%+=4
�menu%!p%=&7009031
�	p%+=4
�� �word$(loop%),">") = 0 �
�� �word$(loop%),1,1)="-" �
� $(menu%+p%)=�word$(loop%),2)
��
�$(menu%+p%)=word$(loop%)
��
��
� �word$(loop%),1,1)="-" �
5$(menu%+p%)=�word$(loop%),2,�word$(loop%),">")-2)
�
 5$(menu%+p%)=�word$(loop%),1,�word$(loop%),">")-1)
*�
4�
>
�loop%
H
=menu%
R:
\� �icontext(window%,icon%)
f%block%!0=window% : block%!4=icon%
pș &000400CE,,block%
z8� ((block%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(block%!28)
�:
�'� �iconputtext(window%,icon%,text$)
�%block%!0=window% : block%!4=icon%
�ș &000400CE,,block%
�8� ((block%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(block%!28)=text$
�%block%!0=window% : block%!4=icon%
�block%!8=0 : block%!12=0
�ș &000400CD,,block%
��
�:
���sicon(wind%,icon%)
block%!0=wind%
block%!4=icon%
%block%!8=%10000000000000000000000
$&block%!12=%10000000000000000000000
.ș &400CD,,block%
8�
B:
L��usicon(wind%,icon%)
Vblock%!0=wind%
`block%!4=icon%
jblock%!8=0
t&block%!12=%10000000000000000000000
~ș &400CD,,block%
��
�:
���selicon(wind%,icon%)
�block%!0=wind%
�block%!4=icon%
�$block%!8=%1000000000000000000000
�%block%!12=%1000000000000000000000
�ș &400CD,,block%
��
�:
���uselicon(wind%,icon%)
�block%!0=wind%
block%!4=icon%

block%!8=0
%block%!12=%1000000000000000000000
ș &400CD,,block%
(�
2:
<��tmi(m%,i%)
Fui=m%+(28+(24*i%))
P!ui=!ui � %1
Z�
d:
n��utmi(m%,i%)
xui=m%+(28+(24*i%))
�!ui=!ui �� %1
��
�:
���smi(m%,i%)
�ui=m%+(36+(24*i%))
�&!ui=!ui � %10000000000000000000000
��
�:
���usmi(m%,i%)
�ui=m%+(36+(24*i%))
�'!ui=!ui �� %10000000000000000000000
��
�:
� �getstring(array%)
� path$,pointer%
path$=""
"pointer%=array%
,�
6path$+=�?pointer%
@pointer%+=1
J � ?pointer%=0 � ?pointer%=13
T
=path$
^:
h ��changebcolour(wi%,ic%,co%)
rblock%!0=wi%
|block%!4=ic%
�block%!8=(co%<<28)
�block%!12=(%1111<<28)
�ș &400CD,,block%
��
�:
�
ݤgLn(A$)
�� B%
�� �A$,".")=0 � =A$
�� �A$,".")>0 �
�
B%=�A$
�ȕ(�A$,B%,1)<>".")�(B%>0)
�	B%-=1
��
=�A$,�A$-B%)
:
� �iconbar(Sprite$,side%)
&� icon%
0block%!0=side%
:block%!4=0
Dblock%!8=0
Nblock%!12=21*2
Xblock%!16=34*2
bblock%!20=&3002
l$(block%+24)=Sprite$
v ș &000400C2,,block% � icon%
�
=icon%
�:
�.��dragslidericon(win%,dragicon%,sizeicon%)
�block%!0=win%
�block%!4=sizeicon%
�ș &000400CE,,block%
�sminx%=block%!8
�sminy%=block%!12
�smaxx%=block%!16
�smaxy%=block%!20
�ȗ mx%,my%,mb%
�block%!0=win%
�ș &000400CC,,block%
/calcx%=(mx%-(block%!4-block%!20))+block%!44
)iconminx%=sminx%+(block%!4-block%!20)
'iconmaxx%=iconminx%+(smaxx%-sminx%)
 *iconminy%=sminy%+(block%!16-block%!24)
*ș &35,�,5 � ,,yfact%
43iconmaxy%=iconminy%+(smaxy%-sminy%)-(1<<yfact%)
>block%!0=win%
Hblock%!4=7
Rblock%!8=iconminx%
\block%!12=iconminy%
fblock%!16=iconmaxx%
pblock%!20=iconmaxy%
zblock%!24=block%!8
�block%!28=block%!12
�block%!32=block%!16
�block%!36=block%!20
�ș &000400D0,,block%
�slidewindow%=win%
�slideicon%=dragicon%
�slidesize%=sizeicon%
�block%!0=win%
�block%!4=dragicon%
�ș &000400CE,,block%
�oldworkx%=block%!16
��
�:
5��doslide(win%,dragicon%,sizeicon%,const%,range%)
block%!0=win%
block%!4=sizeicon%
$ș &000400CE,,block%
.sizeminx%=block%!8
8sizeminy%=block%!12
Bsizemaxx%=block%!16
Lsizemaxy%=block%!20
Vȗ mx%,my%,mb%
`block%!0=win%
jș &000400CC,,block%
tminx%=block%!4
~scrx%=block%!20
�newx%=mx%-(minx%-scrx%)
�� newx%<>oldworkx% �
�block%!0=win%
�block%!4=dragicon%
�ș &000400CE,,block%
�block%!16=newx%
�block%!0=win%
�block%!4=dragicon%
�ș &000400C4,,block%
�block%!4=win%
�ș &000400C2,,block%+4
�newblock%=block%+4
� oldworkx%<newx% �

newblock%!4=sizeminx%
�
newblock%!4=newx%
(�
2newblock%!8=sizeminy%
<� oldworkx%>newx% �
Fnewblock%!12=sizemaxx%
P�
Znewblock%!12=newx%
d�
nnewblock%!16=sizemaxy%
x"ș &000400C9,,newblock% � flag
�ȕ flag
�"ș &000400CA,,newblock% � flag
��
�� const% �
�size%=sizemaxx%-sizeminx%
�ppos%=(newx%-sizeminx%)
� number%=(range%/size%)*ppos%
�:
�Ȏ slideicon% �
�� 7
�&�iconputtext(step%,3,�(number%+1))
�� 14
�'�iconputtext(step%,10,�(number%+1))
�
�
�
"oldworkx%=newx%
,�
6rrange%=range%
@�
J:
T5��setbar(win%,dragicon%,sizeicon%,range%,number%)
^� number%<0 � number%=0
h%� number%>range% � number%=range%
rblock%!0=win%
|block%!4=sizeicon%
�ș &000400CE,,block%
�sizeminx%=block%!8
�sizeminy%=block%!12
�sizemaxx%=block%!16
�sizemaxy%=block%!20
�<newx%=sizeminx%+(number%/(range%/(sizemaxx%-sizeminx%)))
�block%!0=win%
�block%!4=dragicon%
�ș &000400CE,,block%
�block%!16=newx%
�block%!0=win%
�block%!4=dragicon%
�ș &000400C4,,block%
block%!4=win%
ș &000400C2,,block%+4
newblock%=block%+4
&newblock%!4=sizeminx%
0newblock%!8=sizeminy%
:newblock%!12=sizemaxx%
Dnewblock%!16=sizemaxy%
N"ș &000400C9,,newblock% � flag
Xȕ flag
b"ș &000400CA,,newblock% � flag
l�
voldworkx%=newx%
��
�:
�2ݤgetbarvalue(win%,dragicon%,sizeicon%,range%)
�block%!0=win%
�block%!4=sizeicon%
�ș &000400CE,,block%
�sizeminx%=block%!8
�sizemaxx%=block%!16
�block%!0=win%
�block%!4=dragicon%
�ș &000400CE,,block%
�8=(range%/(sizemaxx%-sizeminx%))*(block%!16-block%!8)
�:
��openstep
�setbar(step%,7,6,9,x)
�setbar(step%,14,13,9,y)
  �iconputtext(step%,3,�(x+1))
*!�iconputtext(step%,10,�(y+1))
4ȗ � x+1,y+1
>� � �isopen(step%) �
H�centrewindow(step%)
R�
\�top(step%)
f�
p�
z:
���clickstep(ic%)
�Ȏ ic% �
�� 17
�	ux1=x
�	uy1=y
�� 19
�	ux2=x
�	uy2=y
�� 16
�	x=ux1
�	y=uy1
��setbar(step%,7,6,9,x)
� �iconputtext(step%,3,�(x+1))
�setbar(step%,14,13,9,y)
!�iconputtext(step%,10,�(y+1))
ȗ � x+1,y+1
$� 20
.	x=ux2
8	y=uy2
B�setbar(step%,7,6,9,x)
L �iconputtext(step%,3,�(x+1))
V�setbar(step%,14,13,9,y)
`!�iconputtext(step%,10,�(y+1))
jȗ � x+1,y+1
t� 4
~x-=1
�� x<0 � x=0
��setbar(step%,7,6,9,x)
� �iconputtext(step%,3,�(x+1))
�ȗ � x+1,y+1
�� 8
�x+=1
�� x>9 � x=9
��setbar(step%,7,6,9,x)
� �iconputtext(step%,3,�(x+1))
�ȗ � x+1,y+1
�� 11
�y-=1
� y<0 � y=0

�setbar(step%,14,13,9,y)
!�iconputtext(step%,10,�(y+1))
ȗ � x+1,y+1
(� 15
2y+=1
<� y>9 � y=9
F�setbar(step%,14,13,9,y)
P!�iconputtext(step%,10,�(y+1))
Zȗ � x+1,y+1
d	� 7,6
n�dragslidericon(step%,7,6)
x� 14,13
� �dragslidericon(step%,14,13)
�� 18
�x=1
�y=1
��setbar(step%,7,6,9,x)
��setbar(step%,14,13,9,y)
� �iconputtext(step%,3,�(x+1))
�!�iconputtext(step%,10,�(y+1))
�ȗ � x+1,y+1
��
��
�:
���centrewindow(win%)
#ș &00000035,�,11 � ,,xpixlimit
#ș &00000035,�,12 � ,,ypixlimit
ș &00000035,�,4 � ,,xfact
"ș &00000035,�,5 � ,,yfact
,maxX=(xpixlimit+1)<<xfact
6maxY=(ypixlimit+1)<<yfact
@:
Jblock%!0=win%
Tș &000400CB,,block%
^:
hwx%=block%!12-block%!4
rwx2%=wx% � 2
|cX=maxX � 2
�block%!4=cX-wx2%
� � win%=keys% � block%!4-=128
�block%!12=block%!4+wx%
�wy%=block%!16-block%!8
�wy2%=wy% � 2
�cY=maxY � 2
�block%!8=cY-wy2%
�block%!16=block%!8+wy%
�:
�ș &000400C5,,block%
��
�:
���set(l,r,u,d,bl,bm,br)
 � �
 f� � � �alert("Message from Rodent","I cant find the MouseCTRL module. Settings ignored.",%10001):�
 &�("SETEVAL MouseCTRL$Left "+�(bl))
 &'�("SETEVAL MouseCTRL$Right "+�(br))
 0(�("SETEVAL MouseCTRL$Middle "+�(bm))
 :&�("SETEVAL MouseCTRL$CLeft "+�(l))
 D'�("SETEVAL MouseCTRL$CRight "+�(r))
 N$�("SETEVAL MouseCTRL$CUp "+�(u))
 X&�("SETEVAL MouseCTRL$CDown "+�(d))
 b�("RMREINIT MouseCTRL")
 l�
 v:
 ���openkeys
 �
�seticons
 ��dosettingicon(setting)
 �� � �isopen(keys%) �
 ��centrewindow(keys%)
 ��openwindow(keys%)
 ��openwindow(keys%)
 ��
 ��top(keys%)
 ��openwindow(keys%)
 ��openwindow(keys%)
 ��
 ��
!:
!��seticons
!!�setvalid(keys%,mouseup,"R2")
! $�changebcolour(keys%,mouseup,14)
!*#�setvalid(keys%,mousedown,"R2")
!4&�changebcolour(keys%,mousedown,14)
!>#�setvalid(keys%,mouseleft,"R2")
!H&�changebcolour(keys%,mouseleft,14)
!R$�setvalid(keys%,mouseright,"R2")
!\'�changebcolour(keys%,mouseright,14)
!f%�setvalid(keys%,mouseselect,"R2")
!p(�changebcolour(keys%,mouseselect,14)
!z#�setvalid(keys%,mousemenu,"R2")
!�&�changebcolour(keys%,mousemenu,14)
!�%�setvalid(keys%,mouseadjust,"R2")
!�(�changebcolour(keys%,mouseadjust,14)
!��
!�:
!���dosettingicon(s)
!�
Ȏ s �
!�� -1
!�-�iconputtext(mouse%,11,"Setting nothing")
!�� 1
!�,�iconputtext(mouse%,11,"Setting select")
!�(�changebcolour(keys%,mouseselect,10)
!�&�changebcolour(keys%,mousemenu,14)
"(�changebcolour(keys%,mouseadjust,14)
"$�changebcolour(keys%,mouseup,14)
"&�changebcolour(keys%,mousedown,14)
"$&�changebcolour(keys%,mouseleft,14)
".'�changebcolour(keys%,mouseright,14)
"8%�setvalid(keys%,mouseselect,"R2")
"B(�changebcolour(keys%,mouseselect,10)
"L� 2
"V*�iconputtext(mouse%,11,"Setting menu")
"`(�changebcolour(keys%,mouseselect,14)
"j&�changebcolour(keys%,mousemenu,10)
"t(�changebcolour(keys%,mouseadjust,14)
"~$�changebcolour(keys%,mouseup,14)
"�&�changebcolour(keys%,mousedown,14)
"�&�changebcolour(keys%,mouseleft,14)
"�'�changebcolour(keys%,mouseright,14)
"�#�setvalid(keys%,mousemenu,"R2")
"�&�changebcolour(keys%,mousemenu,10)
"�� 3
"�,�iconputtext(mouse%,11,"Setting adjust")
"�(�changebcolour(keys%,mouseselect,14)
"�&�changebcolour(keys%,mousemenu,14)
"�(�changebcolour(keys%,mouseadjust,10)
"�$�changebcolour(keys%,mouseup,14)
"�&�changebcolour(keys%,mousedown,14)
#&�changebcolour(keys%,mouseleft,14)
#
'�changebcolour(keys%,mouseright,14)
#%�setvalid(keys%,mouseadjust,"R2")
#(�changebcolour(keys%,mouseadjust,10)
#(� 4
#2(�iconputtext(mouse%,11,"Setting up")
#<(�changebcolour(keys%,mouseselect,14)
#F&�changebcolour(keys%,mousemenu,14)
#P(�changebcolour(keys%,mouseadjust,14)
#Z$�changebcolour(keys%,mouseup,10)
#d&�changebcolour(keys%,mousedown,14)
#n&�changebcolour(keys%,mouseleft,14)
#x'�changebcolour(keys%,mouseright,14)
#�!�setvalid(keys%,mouseup,"R2")
#�$�changebcolour(keys%,mouseup,10)
#�� 5
#�*�iconputtext(mouse%,11,"Setting left")
#�(�changebcolour(keys%,mouseselect,14)
#�&�changebcolour(keys%,mousemenu,14)
#�(�changebcolour(keys%,mouseadjust,14)
#�$�changebcolour(keys%,mouseup,14)
#�&�changebcolour(keys%,mousedown,14)
#�&�changebcolour(keys%,mouseleft,10)
#�'�changebcolour(keys%,mouseright,14)
#�#�setvalid(keys%,mouseleft,"R2")
#�&�changebcolour(keys%,mouseleft,10)
$� 6
$*�iconputtext(mouse%,11,"Setting down")
$(�changebcolour(keys%,mouseselect,14)
$"&�changebcolour(keys%,mousemenu,14)
$,(�changebcolour(keys%,mouseadjust,14)
$6$�changebcolour(keys%,mouseup,14)
$@&�changebcolour(keys%,mousedown,10)
$J&�changebcolour(keys%,mouseleft,14)
$T'�changebcolour(keys%,mouseright,14)
$^#�setvalid(keys%,mousedown,"R2")
$h&�changebcolour(keys%,mousedown,10)
$r� 7
$|+�iconputtext(mouse%,11,"Setting right")
$�(�changebcolour(keys%,mouseselect,14)
$�&�changebcolour(keys%,mousemenu,14)
$�(�changebcolour(keys%,mouseadjust,14)
$�$�changebcolour(keys%,mouseup,14)
$�&�changebcolour(keys%,mousedown,14)
$�&�changebcolour(keys%,mouseleft,14)
$�'�changebcolour(keys%,mouseright,10)
$�$�setvalid(keys%,mouseright,"R2")
$�'�changebcolour(keys%,mouseright,10)
$��
$��
$�:
$���setvalid(win%,ic%,s$)
%block%!0=win%
%block%!4=ic%
%ș &000400CE,,block%
%&$block%!32=s$
%0block%!0=win%
%:block%!8=0
%Dblock%!12=0
%Nș &000400CD,,block%
%X�
%b:
%lݤgetvalid(win%,ic%)
%vblock%!0=win%
%�block%!4=ic%
%�ș &000400CE,,block%
%�=$block%!32
%�:
%���clickmouse(ic%)
%�Ȏ ic% �
%�� 13
%�� currentuser<>1 �
%�'�changebcolour(keys%,mouseselect,1)
%�%�changebcolour(keys%,mousemenu,1)
%�'�changebcolour(keys%,mouseadjust,1)
%�#�changebcolour(keys%,mouseup,1)
%�%�changebcolour(keys%,mousedown,1)
&%�changebcolour(keys%,mouseleft,1)
&&�changebcolour(keys%,mouseright,1)
&%�setvalid(keys%,mouseselect,"R5")
& #�setvalid(keys%,mousemenu,"R5")
&*%�setvalid(keys%,mouseadjust,"R5")
&4!�setvalid(keys%,mouseup,"R5")
&>#�setvalid(keys%,mouseleft,"R5")
&H#�setvalid(keys%,mousedown,"R5")
&R$�setvalid(keys%,mouseright,"R5")
&\mouseselect=u1mouseselect
&fmousemenu=u1mousemenu
&pmouseadjust=u1mouseadjust
&zmouseup=u1mouseup
&�mousedown=u1mousedown
&�mouseleft=u1mouseleft
&�mouseright=u1mouseright
&�
�seticons
&��dosettingicon(setting)
&�R�set(mouseleft,mouseright,mouseup,mousedown,mouseselect,mousemenu,mouseadjust)
&�currentuser=1
&��
&�� 14
&�� currentuser<>2 �
&�'�changebcolour(keys%,mouseselect,1)
&�%�changebcolour(keys%,mousemenu,1)
&�'�changebcolour(keys%,mouseadjust,1)
'#�changebcolour(keys%,mouseup,1)
'%�changebcolour(keys%,mousedown,1)
'%�changebcolour(keys%,mouseleft,1)
'$&�changebcolour(keys%,mouseright,1)
'.%�setvalid(keys%,mouseselect,"R5")
'8#�setvalid(keys%,mousemenu,"R5")
'B%�setvalid(keys%,mouseadjust,"R5")
'L!�setvalid(keys%,mouseup,"R5")
'V#�setvalid(keys%,mouseleft,"R5")
'`#�setvalid(keys%,mousedown,"R5")
'j$�setvalid(keys%,mouseright,"R5")
'tmouseselect=u2mouseselect
'~mousemenu=u2mousemenu
'�mouseadjust=u2mouseadjust
'�mouseup=u2mouseup
'�mousedown=u2mousedown
'�mouseleft=u2mouseleft
'�mouseright=u2mouseright
'�
�seticons
'��dosettingicon(setting)
'�R�set(mouseleft,mouseright,mouseup,mousedown,mouseselect,mousemenu,mouseadjust)
'�currentuser=2
'��
'�� 15
'�u1mouseselect=mouseselect
(u1mousemenu=mousemenu
(
u1mouseadjust=mouseadjust
(u1mouseup=mouseup
(u1mousedown=mousedown
((u1mouseleft=mouseleft
(2u1mouseright=mouseright
(<� 16
(Fu2mouseselect=mouseselect
(Pu2mousemenu=mousemenu
(Zu2mouseadjust=mouseadjust
(du2mouseup=mouseup
(nu2mousedown=mousedown
(xu2mouseleft=mouseleft
(�u2mouseright=mouseright
(�� 17
(�'�changebcolour(keys%,mouseselect,1)
(�%�changebcolour(keys%,mousemenu,1)
(�'�changebcolour(keys%,mouseadjust,1)
(�#�changebcolour(keys%,mouseup,1)
(�%�changebcolour(keys%,mousedown,1)
(�%�changebcolour(keys%,mouseleft,1)
(�&�changebcolour(keys%,mouseright,1)
(�%�setvalid(keys%,mouseselect,"R5")
(�#�setvalid(keys%,mousemenu,"R5")
(�%�setvalid(keys%,mouseadjust,"R5")
(�!�setvalid(keys%,mouseup,"R5")
)#�setvalid(keys%,mouseleft,"R5")
)#�setvalid(keys%,mousedown,"R5")
)$�setvalid(keys%,mouseright,"R5")
)"mouseselect=&27
),mousemenu=&28
)6mouseadjust=&29
)@mouseup=&59
)Jmousedown=&63
)Tmouseleft=&62
)^mouseright=&64
)h
�seticons
)r�dosettingicon(setting)
)|R�set(mouseleft,mouseright,mouseup,mousedown,mouseselect,mousemenu,mouseadjust)
)�currentuser=-1
)�� 4
)�,�iconputtext(mouse%,11,"Setting select")
)�(�changebcolour(keys%,mouseselect,10)
)�&�changebcolour(keys%,mousemenu,14)
)�(�changebcolour(keys%,mouseadjust,14)
)�$�changebcolour(keys%,mouseup,14)
)�&�changebcolour(keys%,mousedown,14)
)�&�changebcolour(keys%,mouseleft,14)
)�'�changebcolour(keys%,mouseright,14)
)�
setting=1
)�� 5
)�*�iconputtext(mouse%,11,"Setting menu")
*(�changebcolour(keys%,mouseselect,14)
*&�changebcolour(keys%,mousemenu,10)
*(�changebcolour(keys%,mouseadjust,14)
*&$�changebcolour(keys%,mouseup,14)
*0&�changebcolour(keys%,mousedown,14)
*:&�changebcolour(keys%,mouseleft,14)
*D'�changebcolour(keys%,mouseright,14)
*N
setting=2
*X� 6
*b,�iconputtext(mouse%,11,"Setting adjust")
*l(�changebcolour(keys%,mouseselect,14)
*v&�changebcolour(keys%,mousemenu,14)
*�(�changebcolour(keys%,mouseadjust,10)
*�$�changebcolour(keys%,mouseup,14)
*�&�changebcolour(keys%,mousedown,14)
*�&�changebcolour(keys%,mouseleft,14)
*�'�changebcolour(keys%,mouseright,14)
*�
setting=3
*�� 7
*�(�iconputtext(mouse%,11,"Setting up")
*�(�changebcolour(keys%,mouseselect,14)
*�&�changebcolour(keys%,mousemenu,14)
*�(�changebcolour(keys%,mouseadjust,14)
*�$�changebcolour(keys%,mouseup,10)
*�&�changebcolour(keys%,mousedown,14)
+&�changebcolour(keys%,mouseleft,14)
+'�changebcolour(keys%,mouseright,14)
+
setting=4
+ � 10
+**�iconputtext(mouse%,11,"Setting left")
+4(�changebcolour(keys%,mouseselect,14)
+>&�changebcolour(keys%,mousemenu,14)
+H(�changebcolour(keys%,mouseadjust,14)
+R$�changebcolour(keys%,mouseup,14)
+\&�changebcolour(keys%,mousedown,14)
+f&�changebcolour(keys%,mouseleft,10)
+p'�changebcolour(keys%,mouseright,14)
+z
setting=5
+�� 8
+�*�iconputtext(mouse%,11,"Setting down")
+�(�changebcolour(keys%,mouseselect,14)
+�&�changebcolour(keys%,mousemenu,14)
+�(�changebcolour(keys%,mouseadjust,14)
+�$�changebcolour(keys%,mouseup,14)
+�&�changebcolour(keys%,mousedown,10)
+�&�changebcolour(keys%,mouseleft,14)
+�'�changebcolour(keys%,mouseright,14)
+�
setting=6
+�� 9
+�+�iconputtext(mouse%,11,"Setting right")
+�(�changebcolour(keys%,mouseselect,14)
,&�changebcolour(keys%,mousemenu,14)
,(�changebcolour(keys%,mouseadjust,14)
,$�changebcolour(keys%,mouseup,14)
,$&�changebcolour(keys%,mousedown,14)
,.&�changebcolour(keys%,mouseleft,14)
,8'�changebcolour(keys%,mouseright,10)
,B
setting=7
,L�
,V�
,`:
,j��clickkeys(ic%)
,tB� (ic%>=0 � ic%<=&72) � ic%<>77 � �getvalid(keys%,ic%)<>"R2" �
,~Ȏ setting �
,�� 1
,�%�setvalid(keys%,mouseselect,"R5")
,�'�changebcolour(keys%,mouseselect,1)
,�mouseselect=ic%
,�%�setvalid(keys%,mouseselect,"R2")
,�(�changebcolour(keys%,mouseselect,10)
,�� 2
,�#�setvalid(keys%,mousemenu,"R5")
,�%�changebcolour(keys%,mousemenu,1)
,�mousemenu=ic%
,�#�setvalid(keys%,mousemenu,"R2")
,�&�changebcolour(keys%,mousemenu,10)
-� 3
-
%�setvalid(keys%,mouseadjust,"R5")
-'�changebcolour(keys%,mouseadjust,1)
-mouseadjust=ic%
-(%�setvalid(keys%,mouseadjust,"R2")
-2(�changebcolour(keys%,mouseadjust,10)
-<� 4
-F!�setvalid(keys%,mouseup,"R5")
-P#�changebcolour(keys%,mouseup,1)
-Zmouseup=ic%
-d!�setvalid(keys%,mouseup,"R2")
-n$�changebcolour(keys%,mouseup,10)
-x� 5
-�#�setvalid(keys%,mouseleft,"R5")
-�%�changebcolour(keys%,mouseleft,1)
-�mouseleft=ic%
-�#�setvalid(keys%,mouseleft,"R2")
-�&�changebcolour(keys%,mouseleft,10)
-�� 6
-�#�setvalid(keys%,mousedown,"R5")
-�%�changebcolour(keys%,mousedown,1)
-�mousedown=ic%
-�#�setvalid(keys%,mousedown,"R2")
-�&�changebcolour(keys%,mousedown,10)
-�� 7
-�$�setvalid(keys%,mouseright,"R5")
.&�changebcolour(keys%,mouseright,1)
.mouseright=ic%
.$�setvalid(keys%,mouseright,"R2")
."'�changebcolour(keys%,mouseright,10)
.,�
.6R�set(mouseleft,mouseright,mouseup,mousedown,mouseselect,mousemenu,mouseadjust)
.@currentuser=-1
.J�
.T�
.^:
.h$��alert(title$,message$,button%)
.r$(block%+4)=message$
.|3ș &000400DF,block%,button%,title$ � ,response%
.��
.�:
.���drawbox(wi%,ic%,sn$)
.�#ș &00000035,�,11 � ,,xpixlimit
.�#ș &00000035,�,12 � ,,ypixlimit
.�ș &00000035,�,4 � ,,xfact
.�ș &00000035,�,5 � ,,yfact
.�maxX=(xpixlimit+1)<<xfact
.�maxY=(ypixlimit+1)<<yfact
.�block%!0=wi%
.�ș&000400CB,,block%
.�2ys%=block%!16-block%!8:X%=block%!4:Y%=block%!8
.�yoff%=block%!24
/block%!0=wi%:block%!4=ic%
/ș&000400CE,,block%
/block%!8+=X%
/&block%!12+=Y%+ys%-yoff%
/0block%!16+=X%
/:block%!20+=Y%+ys%-yoff%
/Dblock%!4=5
/Nș&000400CF,,block2%
/X$block%!24=0-(block2%!0-block%!8)
/b%block%!28=0-(block2%!4-block%!12)
/l*block%!32=maxX+(block%!16-block2%!0)-2
/v*block%!36=maxY+(block%!20-block2%!4)-4
/�block%!0=ic%
/�� sn$="" �
/�ș&000400D0,,block%
/��
/�)ș &00042400,%11000101,1,sn$,block%+8
/��
/�draggedwindow%=wi%
/��
/�:
/���error
/�,�alert("Messgage from Rodent",�$,%10010)
/�� #0
/��
0:
0��save(path$)
0� �
0 � � � �error:�
0*Ȏ draggedwindow% �
04
� saveas%
0>response%=1
0HX%=�(path$)
0R� X%>0 �
0\Y�alert("Message from Rodent","A file of the name already exists. Overwrite ?",%10011)
0f	� #X%
0p�
0z� response%=1 �
0�X%=�(path$)
0�� #X%,x
0�� #X%,y
0�� #X%,setting
0�
� #X%,ux1
0�
� #X%,uy1
0�
� #X%,ux2
0�
� #X%,uy2
0�� #X%,mouseselect
0�� #X%,mousemenu
0�� #X%,mouseadjust
0�� #X%,mouseup
0�� #X%,mousedown
1� #X%,mouseleft
1� #X%,mouseright
1:
1$� #X%,u1mouseselect
1.� #X%,u1mousemenu
18� #X%,u1mouseadjust
1B� #X%,u1mouseup
1L� #X%,u1mousedown
1V� #X%,u1mouseleft
1`� #X%,u1mouseright
1j:
1t� #X%,u2mouseselect
1~� #X%,u2mousemenu
1�� #X%,u2mouseadjust
1�� #X%,u2mouseup
1�� #X%,u2mousedown
1�� #X%,u2mouseleft
1�� #X%,u2mouseright
1�	� #X%
1��("SETTYPE "+path$+" &352")
1�!�iconputtext(saveas%,1,path$)
1��
1��
1��
1�:
2��load(path$)
2
� �
2� � � �error:�
2� block%!40=&352 �
2('�changebcolour(keys%,mouseselect,1)
22%�changebcolour(keys%,mousemenu,1)
2<'�changebcolour(keys%,mouseadjust,1)
2F#�changebcolour(keys%,mouseup,1)
2P%�changebcolour(keys%,mousedown,1)
2Z%�changebcolour(keys%,mouseleft,1)
2d&�changebcolour(keys%,mouseright,1)
2n%�setvalid(keys%,mouseselect,"R5")
2x#�setvalid(keys%,mousemenu,"R5")
2�%�setvalid(keys%,mouseadjust,"R5")
2�!�setvalid(keys%,mouseup,"R5")
2�#�setvalid(keys%,mouseleft,"R5")
2�#�setvalid(keys%,mousedown,"R5")
2�$�setvalid(keys%,mouseright,"R5")
2�X%=�(path$)
2�� #X%,x
2�� #X%,y
2�� #X%,setting
2�
� #X%,ux1
2�
� #X%,uy1
2�
� #X%,ux2
2�
� #X%,uy2
3� #X%,mouseselect
3� #X%,mousemenu
3� #X%,mouseadjust
3"� #X%,mouseup
3,� #X%,mousedown
36� #X%,mouseleft
3@� #X%,mouseright
3J:
3T� #X%,u1mouseselect
3^� #X%,u1mousemenu
3h� #X%,u1mouseadjust
3r� #X%,u1mouseup
3|� #X%,u1mousedown
3�� #X%,u1mouseleft
3�� #X%,u1mouseright
3�:
3�� #X%,u2mouseselect
3�� #X%,u2mousemenu
3�� #X%,u2mouseadjust
3�� #X%,u2mouseup
3�� #X%,u2mousedown
3�� #X%,u2mouseleft
3�� #X%,u2mouseright
3�	� #X%
3�!�iconputtext(saveas%,1,path$)
3��dosettingicon(setting)
4�setbar(step%,7,6,9,x)
4�setbar(step%,14,13,9,y)
4 �iconputtext(step%,3,�(x+1))
4&!�iconputtext(step%,10,�(y+1))
40ȗ � x+1,y+1
4:�
4DP�alert("Message from Rodent","I can't understand this file! Nutter!",%10010)
4N�
4X�
4b:
4lݤisopen(win%)
4vblock%!0=win%
4�ș &000400CB,,block%
4�winflags%=block%!32
4�0� (winflags% � %10000000000000000) = 65536 �
4�=�
4��
4�=�
4��
4�:
4���top(window%)
4�!block%=window%
4�ș &000400CB,,block%
4�block%!28=-1
4�ș &000400C5,,block%
5�
�

00000000  0d 00 0a 29 ee 20 85 20  eb 20 31 32 3a f1 f6 24  |...). . . 12:..$|
00000010  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 9e  |+" at line "+.(.|
00000020  29 3a f1 27 3a f1 9f 3a  e0 0d 00 14 05 3a 0d 00  |):.':..:.....:..|
00000030  1e 11 63 68 65 63 6b 76  61 6c 3d a6 28 30 29 0d  |..checkval=.(0).|
00000040  00 28 05 3a 0d 00 32 17  c8 99 20 26 30 30 30 30  |.(.:..2... &0000|
00000050  30 30 31 30 20 b8 20 65  6e 76 24 0d 00 3c 18 e7  |0010 . env$..<..|
00000060  20 a7 65 6e 76 24 2c 22  20 2d 71 75 69 74 20 22  | .env$," -quit "|
00000070  29 20 8c 0d 00 46 35 64  6f 75 62 6c 65 63 6c 69  |) ...F5doublecli|
00000080  63 6b 24 3d c1 65 6e 76  24 2c a7 65 6e 76 24 2c  |ck$=.env$,.env$,|
00000090  bd 28 33 34 29 2c a7 65  6e 76 24 2c bd 28 33 34  |.(34),.env$,.(34|
000000a0  29 29 2b 31 29 2b 31 29  0d 00 50 05 cd 0d 00 5a  |))+1)+1)..P....Z|
000000b0  05 3a 0d 00 64 12 6e 61  6d 65 24 3d 22 52 6f 64  |.:..d.name$="Rod|
000000c0  65 6e 74 22 0d 00 6e 22  70 75 72 70 6f 73 65 24  |ent"..n"purpose$|
000000d0  3d 22 45 78 74 72 61 20  6d 6f 75 73 65 20 63 6f  |="Extra mouse co|
000000e0  6e 74 72 6f 6c 22 0d 00  78 20 76 65 72 73 69 6f  |ntrol"..x versio|
000000f0  6e 24 3d 22 76 31 2e 30  31 61 20 28 32 30 2d 30  |n$="v1.01a (20-0|
00000100  39 2d 39 33 29 22 0d 00  82 17 64 69 72 24 3d 22  |9-93)"....dir$="|
00000110  3c 52 6f 64 65 6e 74 24  44 69 72 3e 22 0d 00 8c  |<Rodent$Dir>"...|
00000120  05 3a 0d 00 96 29 c8 99  20 26 30 30 30 30 30 30  |.:...).. &000000|
00000130  30 36 2c 31 32 39 2c 30  2c 26 46 46 20 b8 20 2c  |06,129,0,&FF . ,|
00000140  6f 73 5f 76 65 72 73 69  6f 6e 25 0d 00 a0 14 c8  |os_version%.....|
00000150  8e 20 6f 73 5f 76 65 72  73 69 6f 6e 25 20 ca 0d  |. os_version% ..|
00000160  00 aa 0d c9 20 26 41 33  2c 26 41 34 0d 00 b4 0f  |.... &A3,&A4....|
00000170  64 72 61 67 69 63 6f 6e  25 3d b9 0d 00 be 05 7f  |dragicon%=......|
00000180  0d 00 c8 0f 64 72 61 67  69 63 6f 6e 25 3d a3 0d  |....dragicon%=..|
00000190  00 d2 05 cb 0d 00 dc 05  3a 0d 00 e6 11 de 20 62  |........:..... b|
000001a0  6c 6f 63 6b 25 20 34 30  39 36 0d 00 f0 12 de 20  |lock% 4096..... |
000001b0  62 6c 6f 63 6b 32 25 20  34 30 39 36 0d 00 fa 37  |block2% 4096...7|
000001c0  c8 99 20 26 30 30 30 34  30 30 43 30 2c 32 30 30  |.. &000400C0,200|
000001d0  2c 26 34 42 35 33 34 31  35 34 2c 6e 61 6d 65 24  |,&4B534154,name$|
000001e0  20 b8 20 77 69 6d 70 76  65 72 73 69 6f 6e 25 2c  | . wimpversion%,|
000001f0  74 68 25 0d 01 04 13 f2  69 6e 69 74 69 61 6c 69  |th%.....initiali|
00000200  73 65 76 61 72 73 0d 01  0e 10 f2 69 6e 69 74 73  |sevars.....inits|
00000210  70 72 69 74 65 73 0d 01  18 10 f2 69 6e 69 74 77  |prites.....initw|
00000220  69 6e 64 6f 77 73 0d 01  22 0e f2 69 6e 69 74 6d  |indows.."..initm|
00000230  65 6e 75 73 0d 01 2c 05  3a 0d 01 36 1f f2 69 63  |enus..,.:..6..ic|
00000240  6f 6e 70 75 74 74 65 78  74 28 69 6e 66 6f 25 2c  |onputtext(info%,|
00000250  30 2c 6e 61 6d 65 24 29  0d 01 40 22 f2 69 63 6f  |0,name$)..@".ico|
00000260  6e 70 75 74 74 65 78 74  28 69 6e 66 6f 25 2c 31  |nputtext(info%,1|
00000270  2c 70 75 72 70 6f 73 65  24 29 0d 01 4a 22 f2 69  |,purpose$)..J".i|
00000280  63 6f 6e 70 75 74 74 65  78 74 28 69 6e 66 6f 25  |conputtext(info%|
00000290  2c 33 2c 76 65 72 73 69  6f 6e 24 29 0d 01 54 05  |,3,version$)..T.|
000002a0  3a 0d 01 5e 1e 69 68 25  3d a4 69 63 6f 6e 62 61  |:..^.ih%=.iconba|
000002b0  72 28 22 21 22 2b 6e 61  6d 65 24 2c 2d 31 29 0d  |r("!"+name$,-1).|
000002c0  01 68 05 3a 0d 01 72 19  e7 20 64 6f 75 62 6c 65  |.h.:..r.. double|
000002d0  63 6c 69 63 6b 24 3c 3e  22 20 22 20 8c 0d 01 7c  |click$<>" " ...||
000002e0  12 62 6c 6f 63 6b 25 21  34 30 3d 26 33 35 32 0d  |.block%!40=&352.|
000002f0  01 86 17 f2 6c 6f 61 64  28 64 6f 75 62 6c 65 63  |....load(doublec|
00000300  6c 69 63 6b 24 29 0d 01  90 05 cd 0d 01 9a 05 3a  |lick$).........:|
00000310  0d 01 a4 12 e7 20 63 68  65 63 6b 76 61 6c 3d 39  |..... checkval=9|
00000320  20 8c 0d 01 ae 0a 65 78  69 74 3d b9 0d 01 b8 05  | .....exit=.....|
00000330  cc 0d 01 c2 05 3a 0d 01  cc 52 f2 73 65 74 28 6d  |.....:...R.set(m|
00000340  6f 75 73 65 6c 65 66 74  2c 6d 6f 75 73 65 72 69  |ouseleft,mouseri|
00000350  67 68 74 2c 6d 6f 75 73  65 75 70 2c 6d 6f 75 73  |ght,mouseup,mous|
00000360  65 64 6f 77 6e 2c 6d 6f  75 73 65 73 65 6c 65 63  |edown,mouseselec|
00000370  74 2c 6d 6f 75 73 65 6d  65 6e 75 2c 6d 6f 75 73  |t,mousemenu,mous|
00000380  65 61 64 6a 75 73 74 29  0d 01 d6 05 3a 0d 01 e0  |eadjust)....:...|
00000390  05 f5 0d 01 ea 05 3a 0d  01 f4 2a c8 99 20 26 30  |......:...*.. &0|
000003a0  30 30 34 30 30 43 37 2c  30 2c 62 6c 6f 63 6b 25  |00400C7,0,block%|
000003b0  20 b8 20 72 65 61 73 6f  6e 25 2c 62 6c 6f 63 6b  | . reason%,block|
000003c0  25 0d 01 fe 05 3a 0d 02  08 10 c8 8e 20 72 65 61  |%....:...... rea|
000003d0  73 6f 6e 25 20 ca 0d 02  12 07 c9 20 30 0d 02 1c  |son% ...... 0...|
000003e0  09 f2 6e 75 6c 6c 0d 02  26 07 c9 20 31 0d 02 30  |..null..&.. 1..0|
000003f0  14 f2 72 65 64 72 61 77  77 69 6e 64 6f 77 28 30  |..redrawwindow(0|
00000400  29 0d 02 3a 07 c9 20 32  0d 02 44 12 f2 6f 70 65  |)..:.. 2..D..ope|
00000410  6e 77 69 6e 64 6f 77 28  30 29 0d 02 4e 07 c9 20  |nwindow(0)..N.. |
00000420  33 0d 02 58 13 f2 63 6c  6f 73 65 77 69 6e 64 6f  |3..X..closewindo|
00000430  77 28 30 29 0d 02 62 07  c9 20 34 0d 02 6c 11 f2  |w(0)..b.. 4..l..|
00000440  70 6f 69 6e 74 65 72 6c  65 61 76 65 0d 02 76 07  |pointerleave..v.|
00000450  c9 20 35 0d 02 80 11 f2  70 6f 69 6e 74 65 72 65  |. 5.....pointere|
00000460  6e 74 65 72 0d 02 8a 07  c9 20 36 0d 02 94 0f f2  |nter..... 6.....|
00000470  6d 6f 75 73 65 63 6c 69  63 6b 0d 02 9e 07 c9 20  |mouseclick..... |
00000480  37 0d 02 a8 10 f2 75 73  65 72 64 72 61 67 62 6f  |7.....userdragbo|
00000490  78 0d 02 b2 07 c9 20 38  0d 02 bc 0f f2 6b 65 79  |x..... 8.....key|
000004a0  70 72 65 73 73 65 64 0d  02 c6 07 c9 20 39 0d 02  |pressed..... 9..|
000004b0  d0 12 f2 6d 65 6e 75 73  65 6c 65 63 74 69 6f 6e  |...menuselection|
000004c0  0d 02 da 08 c9 20 31 30  0d 02 e4 12 f2 73 63 72  |..... 10.....scr|
000004d0  6f 6c 6c 72 65 71 75 65  73 74 0d 02 ee 08 c9 20  |ollrequest..... |
000004e0  31 31 0d 02 f8 0e f2 6c  6f 73 65 63 61 72 65 74  |11.....losecaret|
000004f0  0d 03 02 08 c9 20 31 32  0d 03 0c 0e f2 67 61 69  |..... 12.....gai|
00000500  6e 63 61 72 65 74 0d 03  16 08 c9 20 31 37 0d 03  |ncaret..... 17..|
00000510  20 10 f2 75 73 65 72 6d  65 73 73 61 67 65 0d 03  | ..usermessage..|
00000520  2a 08 c9 20 31 38 0d 03  34 18 f2 75 73 65 72 6d  |*.. 18..4..userm|
00000530  65 73 73 61 67 65 72 65  63 6f 72 64 65 64 0d 03  |essagerecorded..|
00000540  3e 08 c9 20 31 39 0d 03  48 1b f2 75 73 65 72 6d  |>.. 19..H..userm|
00000550  65 73 73 61 67 65 61 63  6b 6e 6f 77 6c 65 64 67  |essageacknowledg|
00000560  65 0d 03 52 05 cb 0d 03  5c 05 3a 0d 03 66 0a fd  |e..R....\.:..f..|
00000570  20 65 78 69 74 0d 03 70  05 cd 0d 03 7a 05 3a 0d  | exit..p....z.:.|
00000580  03 84 1e c8 99 20 26 30  30 30 34 30 30 44 44 2c  |..... &000400DD,|
00000590  74 68 25 2c 26 34 42 35  33 34 31 35 34 0d 03 8e  |th%,&4B534154...|
000005a0  05 e0 0d 03 98 05 3a 0d  03 a2 14 dd f2 69 6e 69  |......:......ini|
000005b0  74 69 61 6c 69 73 65 76  61 72 73 0d 03 ac 0a 65  |tialisevars....e|
000005c0  78 69 74 3d a3 0d 03 b6  15 64 72 61 67 67 65 64  |xit=.....dragged|
000005d0  77 69 6e 64 6f 77 25 3d  2d 31 0d 03 c0 07 78 3d  |window%=-1....x=|
000005e0  31 0d 03 ca 07 79 3d 31  0d 03 d4 05 3a 0d 03 de  |1....y=1....:...|
000005f0  09 75 78 31 3d 32 0d 03  e8 09 75 79 31 3d 32 0d  |.ux1=2....uy1=2.|
00000600  03 f2 09 75 78 32 3d 36  0d 03 fc 09 75 79 32 3d  |...ux2=6....uy2=|
00000610  36 0d 04 06 05 3a 0d 04  10 12 63 75 72 72 65 6e  |6....:....curren|
00000620  74 75 73 65 72 3d 2d 31  0d 04 1a 05 3a 0d 04 24  |tuser=-1....:..$|
00000630  13 6d 6f 75 73 65 73 65  6c 65 63 74 3d 26 32 37  |.mouseselect=&27|
00000640  0d 04 2e 11 6d 6f 75 73  65 6d 65 6e 75 3d 26 32  |....mousemenu=&2|
00000650  38 0d 04 38 13 6d 6f 75  73 65 61 64 6a 75 73 74  |8..8.mouseadjust|
00000660  3d 26 32 39 0d 04 42 0f  6d 6f 75 73 65 75 70 3d  |=&29..B.mouseup=|
00000670  26 35 39 0d 04 4c 11 6d  6f 75 73 65 64 6f 77 6e  |&59..L.mousedown|
00000680  3d 26 36 33 0d 04 56 11  6d 6f 75 73 65 6c 65 66  |=&63..V.mouselef|
00000690  74 3d 26 36 32 0d 04 60  12 6d 6f 75 73 65 72 69  |t=&62..`.mouseri|
000006a0  67 68 74 3d 26 36 34 0d  04 6a 05 3a 0d 04 74 15  |ght=&64..j.:..t.|
000006b0  75 31 6d 6f 75 73 65 73  65 6c 65 63 74 3d 26 31  |u1mouseselect=&1|
000006c0  46 0d 04 7e 13 75 31 6d  6f 75 73 65 6d 65 6e 75  |F..~.u1mousemenu|
000006d0  3d 26 32 30 0d 04 88 15  75 31 6d 6f 75 73 65 61  |=&20....u1mousea|
000006e0  64 6a 75 73 74 3d 26 32  31 0d 04 92 11 75 31 6d  |djust=&21....u1m|
000006f0  6f 75 73 65 75 70 3d 26  35 39 0d 04 9c 13 75 31  |ouseup=&59....u1|
00000700  6d 6f 75 73 65 64 6f 77  6e 3d 26 36 33 0d 04 a6  |mousedown=&63...|
00000710  13 75 31 6d 6f 75 73 65  6c 65 66 74 3d 26 36 32  |.u1mouseleft=&62|
00000720  0d 04 b0 14 75 31 6d 6f  75 73 65 72 69 67 68 74  |....u1mouseright|
00000730  3d 26 36 34 0d 04 ba 05  3a 0d 04 c4 15 75 32 6d  |=&64....:....u2m|
00000740  6f 75 73 65 73 65 6c 65  63 74 3d 26 32 33 0d 04  |ouseselect=&23..|
00000750  ce 13 75 32 6d 6f 75 73  65 6d 65 6e 75 3d 26 32  |..u2mousemenu=&2|
00000760  34 0d 04 d8 15 75 32 6d  6f 75 73 65 61 64 6a 75  |4....u2mouseadju|
00000770  73 74 3d 26 32 35 0d 04  e2 11 75 32 6d 6f 75 73  |st=&25....u2mous|
00000780  65 75 70 3d 26 33 38 0d  04 ec 13 75 32 6d 6f 75  |eup=&38....u2mou|
00000790  73 65 64 6f 77 6e 3d 26  35 62 0d 04 f6 13 75 32  |sedown=&5b....u2|
000007a0  6d 6f 75 73 65 6c 65 66  74 3d 26 34 38 0d 05 00  |mouseleft=&48...|
000007b0  14 75 32 6d 6f 75 73 65  72 69 67 68 74 3d 26 34  |.u2mouseright=&4|
000007c0  61 0d 05 0a 05 3a 0d 05  14 0d 73 65 74 74 69 6e  |a....:....settin|
000007d0  67 3d 31 0d 05 1e 05 3a  0d 05 28 13 73 6c 69 64  |g=1....:..(.slid|
000007e0  65 77 69 6e 64 6f 77 25  3d 2d 31 0d 05 32 11 73  |ewindow%=-1..2.s|
000007f0  6c 69 64 65 69 63 6f 6e  25 3d 2d 31 0d 05 3c 11  |lideicon%=-1..<.|
00000800  73 6c 69 64 65 73 69 7a  65 25 3d 2d 31 0d 05 46  |slidesize%=-1..F|
00000810  10 6f 6c 64 77 6f 72 6b  78 25 3d 2d 31 0d 05 50  |.oldworkx%=-1..P|
00000820  0e 72 72 61 6e 67 65 25  3d 2d 31 0d 05 5a 10 73  |.rrange%=-1..Z.s|
00000830  69 7a 65 6d 61 78 78 25  3d 2d 31 0d 05 64 10 73  |izemaxx%=-1..d.s|
00000840  69 7a 65 6d 69 6e 78 25  3d 2d 31 0d 05 6e 05 e1  |izeminx%=-1..n..|
00000850  0d 05 78 05 3a 0d 05 82  11 dd f2 69 6e 69 74 73  |..x.:......inits|
00000860  70 72 69 74 65 73 0d 05  8c 1f c8 99 20 26 30 30  |prites...... &00|
00000870  30 30 30 30 33 35 2c 2d  31 2c 35 20 b8 20 2c 2c  |000035,-1,5 . ,,|
00000880  79 65 69 67 25 0d 05 96  35 e7 20 79 65 69 67 25  |yeig%...5. yeig%|
00000890  3c 32 20 8c 20 73 70 72  69 74 65 24 3d 22 53 70  |<2 . sprite$="Sp|
000008a0  72 69 74 65 73 22 20 8b  20 73 70 72 69 74 65 24  |rites" . sprite$|
000008b0  3d 22 53 70 72 69 74 65  73 22 0d 05 a0 37 c8 99  |="Sprites"...7..|
000008c0  20 26 30 30 30 30 30 30  30 38 2c 31 37 2c 64 69  | &00000008,17,di|
000008d0  72 24 2b 22 2e 22 2b 73  70 72 69 74 65 24 20 b8  |r$+"."+sprite$ .|
000008e0  20 74 79 70 65 25 2c 2c  2c 2c 6c 65 6e 67 74 68  | type%,,,,length|
000008f0  25 0d 05 aa 38 e7 20 74  79 70 65 25 3c 3e 31 20  |%...8. type%<>1 |
00000900  8c 20 85 20 30 2c 22 49  6e 63 6f 72 72 65 63 74  |. . 0,"Incorrect|
00000910  20 6f 72 20 6d 69 73 73  69 6e 67 20 53 70 72 69  | or missing Spri|
00000920  74 65 73 20 66 69 6c 65  22 0d 05 b4 17 de 20 73  |tes file"..... s|
00000930  70 72 69 74 65 25 20 6c  65 6e 67 74 68 25 2b 34  |prite% length%+4|
00000940  0d 05 be 16 21 73 70 72  69 74 65 25 3d 6c 65 6e  |....!sprite%=len|
00000950  67 74 68 25 2b 34 0d 05  c8 2d c8 99 20 26 30 30  |gth%+4...-.. &00|
00000960  30 30 30 30 32 45 2c 32  36 36 2c 73 70 72 69 74  |00002E,266,sprit|
00000970  65 25 2c 64 69 72 24 2b  22 2e 22 2b 73 70 72 69  |e%,dir$+"."+spri|
00000980  74 65 24 0d 05 d2 05 e1  0d 05 dc 05 3a 0d 05 e6  |te$.........:...|
00000990  11 dd f2 69 6e 69 74 77  69 6e 64 6f 77 73 0d 05  |...initwindows..|
000009a0  f0 0f de 20 77 69 6e 25  20 38 30 39 36 0d 05 fa  |... win% 8096...|
000009b0  0f de 20 69 6e 64 25 20  38 30 39 36 0d 06 04 23  |.. ind% 8096...#|
000009c0  c8 99 20 26 30 30 30 34  30 30 44 39 2c 2c 64 69  |.. &000400D9,,di|
000009d0  72 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |r$+".Templates".|
000009e0  06 0e 21 69 6e 66 6f 25  3d a4 77 69 6e 64 6f 77  |..!info%=.window|
000009f0  28 22 69 6e 66 6f 22 2c  73 70 72 69 74 65 25 29  |("info",sprite%)|
00000a00  0d 06 18 21 73 74 65 70  25 3d a4 77 69 6e 64 6f  |...!step%=.windo|
00000a10  77 28 22 73 74 65 70 22  2c 73 70 72 69 74 65 25  |w("step",sprite%|
00000a20  29 0d 06 22 21 6b 65 79  73 25 3d a4 77 69 6e 64  |).."!keys%=.wind|
00000a30  6f 77 28 22 6b 65 79 73  22 2c 73 70 72 69 74 65  |ow("keys",sprite|
00000a40  25 29 0d 06 2c 23 6d 6f  75 73 65 25 3d a4 77 69  |%)..,#mouse%=.wi|
00000a50  6e 64 6f 77 28 22 6d 6f  75 73 65 22 2c 73 70 72  |ndow("mouse",spr|
00000a60  69 74 65 25 29 0d 06 36  20 73 61 76 65 61 73 25  |ite%)..6 saveas%|
00000a70  3d a4 77 69 6e 64 6f 77  28 22 73 61 76 65 61 73  |=.window("saveas|
00000a80  22 2c 2d 31 29 0d 06 40  10 c8 99 20 26 30 30 30  |",-1)..@... &000|
00000a90  34 30 30 44 41 0d 06 4a  05 e1 0d 06 54 05 3a 0d  |400DA..J....T.:.|
00000aa0  06 5e 19 dd a4 77 69 6e  64 6f 77 28 77 6e 61 6d  |.^...window(wnam|
00000ab0  65 24 2c 73 70 72 25 29  0d 06 68 3a c8 99 20 26  |e$,spr%)..h:.. &|
00000ac0  30 30 30 34 30 30 44 42  2c 2c 77 69 6e 25 2c 69  |000400DB,,win%,i|
00000ad0  6e 64 25 2c 69 6e 64 25  2b 38 30 39 36 2c 2d 31  |nd%,ind%+8096,-1|
00000ae0  2c 77 6e 61 6d 65 24 2c  30 20 b8 20 2c 2c 69 6e  |,wname$,0 . ,,in|
00000af0  64 25 0d 06 72 1d e7 20  73 70 72 25 3c 3e 2d 31  |d%..r.. spr%<>-1|
00000b00  20 8c 20 77 69 6e 25 21  36 34 3d 73 70 72 25 0d  | . win%!64=spr%.|
00000b10  06 7c 1d c8 99 20 26 30  30 30 34 30 30 43 31 2c  |.|... &000400C1,|
00000b20  2c 77 69 6e 25 20 b8 20  68 61 6e 25 0d 06 86 09  |,win% . han%....|
00000b30  3d 68 61 6e 25 0d 06 90  05 3a 0d 06 9a 0f dd f2  |=han%....:......|
00000b40  69 6e 69 74 6d 65 6e 75  73 0d 06 a4 57 6d 61 69  |initmenus...Wmai|
00000b50  6e 6d 65 6e 75 25 3d a4  63 72 65 61 74 65 6d 65  |nmenu%=.createme|
00000b60  6e 75 28 6e 61 6d 65 24  2c 35 2c 22 2d 49 6e 66  |nu(name$,5,"-Inf|
00000b70  6f 3e 69 6e 66 6f 25 7c  53 70 65 65 64 7c 2d 4b  |o>info%|Speed|-K|
00000b80  65 79 62 6f 61 72 64 7c  2d 53 61 76 65 3e 73 61  |eyboard|-Save>sa|
00000b90  76 65 61 73 25 7c 51 75  69 74 22 2c 31 35 30 29  |veas%|Quit",150)|
00000ba0  0d 06 ae 05 e1 0d 06 b8  05 3a 0d 06 c2 0a dd f2  |.........:......|
00000bb0  6e 75 6c 6c 0d 06 cc 45  e7 20 73 6c 69 64 65 69  |null...E. slidei|
00000bc0  63 6f 6e 25 3d 37 20 8c  20 f2 64 6f 73 6c 69 64  |con%=7 . .doslid|
00000bd0  65 28 73 6c 69 64 65 77  69 6e 64 6f 77 25 2c 73  |e(slidewindow%,s|
00000be0  6c 69 64 65 69 63 6f 6e  25 2c 73 6c 69 64 65 73  |lideicon%,slides|
00000bf0  69 7a 65 25 2c b9 2c 39  29 0d 06 d6 46 e7 20 73  |ize%,.,9)...F. s|
00000c00  6c 69 64 65 69 63 6f 6e  25 3d 31 34 20 8c 20 f2  |lideicon%=14 . .|
00000c10  64 6f 73 6c 69 64 65 28  73 6c 69 64 65 77 69 6e  |doslide(slidewin|
00000c20  64 6f 77 25 2c 73 6c 69  64 65 69 63 6f 6e 25 2c  |dow%,slideicon%,|
00000c30  73 6c 69 64 65 73 69 7a  65 25 2c b9 2c 39 29 0d  |slidesize%,.,9).|
00000c40  06 e0 05 e1 0d 06 ea 05  3a 0d 06 f4 19 dd f2 72  |........:......r|
00000c50  65 64 72 61 77 77 69 6e  64 6f 77 28 77 69 6e 64  |edrawwindow(wind|
00000c60  25 29 0d 06 fe 10 e7 20  77 69 6e 64 25 3c 3e 30  |%)..... wind%<>0|
00000c70  20 8c 0d 07 08 12 62 6c  6f 63 6b 25 21 30 3d 77  | .....block%!0=w|
00000c80  69 6e 64 25 0d 07 12 05  cd 0d 07 1c 20 c8 99 20  |ind%........ .. |
00000c90  26 30 30 30 34 30 30 43  38 2c 2c 62 6c 6f 63 6b  |&000400C8,,block|
00000ca0  25 20 b8 20 66 6c 61 67  25 0d 07 26 0c c8 95 20  |% . flag%..&... |
00000cb0  66 6c 61 67 25 0d 07 30  20 c8 99 20 26 30 30 30  |flag%..0 .. &000|
00000cc0  34 30 30 43 41 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |400CA,,block% . |
00000cd0  66 6c 61 67 25 0d 07 3a  05 ce 0d 07 44 05 e1 0d  |flag%..:....D...|
00000ce0  07 4e 05 3a 0d 07 58 17  dd f2 6f 70 65 6e 77 69  |.N.:..X...openwi|
00000cf0  6e 64 6f 77 28 77 69 6e  64 25 29 0d 07 62 10 e7  |ndow(wind%)..b..|
00000d00  20 77 69 6e 64 25 3c 3e  30 20 8c 0d 07 6c 12 62  | wind%<>0 ...l.b|
00000d10  6c 6f 63 6b 25 21 30 3d  77 69 6e 64 25 0d 07 76  |lock%!0=wind%..v|
00000d20  18 c8 99 20 26 30 30 30  34 30 30 43 42 2c 2c 62  |... &000400CB,,b|
00000d30  6c 6f 63 6b 25 0d 07 80  05 cd 0d 07 8a 16 e7 20  |lock%.......... |
00000d40  62 6c 6f 63 6b 25 21 30  3d 6b 65 79 73 25 20 8c  |block%!0=keys% .|
00000d50  0d 07 94 16 6d 61 69 6e  6d 69 6e 78 25 3d 62 6c  |....mainminx%=bl|
00000d60  6f 63 6b 25 21 34 0d 07  9e 16 6d 61 69 6e 6d 69  |ock%!4....mainmi|
00000d70  6e 79 25 3d 62 6c 6f 63  6b 25 21 38 0d 07 a8 17  |ny%=block%!8....|
00000d80  6d 61 69 6e 6d 61 78 78  25 3d 62 6c 6f 63 6b 25  |mainmaxx%=block%|
00000d90  21 31 32 0d 07 b2 17 6d  61 69 6e 6d 61 78 79 25  |!12....mainmaxy%|
00000da0  3d 62 6c 6f 63 6b 25 21  31 36 0d 07 bc 1a 6d 61  |=block%!16....ma|
00000db0  69 6e 73 63 72 6f 6c 6c  78 25 3d 62 6c 6f 63 6b  |inscrollx%=block|
00000dc0  25 21 32 30 0d 07 c6 1a  6d 61 69 6e 73 63 72 6f  |%!20....mainscro|
00000dd0  6c 6c 79 25 3d 62 6c 6f  63 6b 25 21 32 34 0d 07  |lly%=block%!24..|
00000de0  d0 17 62 61 63 6b 68 61  6e 64 25 3d 62 6c 6f 63  |..backhand%=bloc|
00000df0  6b 25 21 32 38 0d 07 da  13 62 6c 6f 63 6b 25 21  |k%!28....block%!|
00000e00  30 3d 6d 6f 75 73 65 25  0d 07 e4 15 c8 99 20 26  |0=mouse%...... &|
00000e10  34 30 30 63 62 2c 2c 62  6c 6f 63 6b 25 0d 07 ee  |400cb,,block%...|
00000e20  13 62 6c 6f 63 6b 25 21  30 3d 6d 6f 75 73 65 25  |.block%!0=mouse%|
00000e30  0d 07 f8 18 62 6c 6f 63  6b 25 21 34 3d 6d 61 69  |....block%!4=mai|
00000e40  6e 6d 61 78 78 25 2b 32  0d 08 02 1a 62 6c 6f 63  |nmaxx%+2....bloc|
00000e50  6b 25 21 38 3d 6d 61 69  6e 6d 69 6e 79 25 2d 32  |k%!8=mainminy%-2|
00000e60  30 30 0d 08 0c 1d 62 6c  6f 63 6b 25 21 31 32 3d  |00....block%!12=|
00000e70  6d 61 69 6e 6d 61 78 78  25 2b 34 31 32 2b 32 0d  |mainmaxx%+412+2.|
00000e80  08 16 17 62 6c 6f 63 6b  25 21 31 36 3d 6d 61 69  |...block%!16=mai|
00000e90  6e 6d 61 78 79 25 0d 08  20 17 62 6c 6f 63 6b 25  |nmaxy%.. .block%|
00000ea0  21 32 38 3d 62 61 63 6b  68 61 6e 64 25 0d 08 2a  |!28=backhand%..*|
00000eb0  15 c8 99 20 26 34 30 30  43 35 2c 2c 62 6c 6f 63  |... &400C5,,bloc|
00000ec0  6b 25 0d 08 34 12 62 6c  6f 63 6b 25 21 30 3d 6b  |k%..4.block%!0=k|
00000ed0  65 79 73 25 0d 08 3e 16  62 6c 6f 63 6b 25 21 34  |eys%..>.block%!4|
00000ee0  3d 6d 61 69 6e 6d 69 6e  78 25 0d 08 48 16 62 6c  |=mainminx%..H.bl|
00000ef0  6f 63 6b 25 21 38 3d 6d  61 69 6e 6d 69 6e 79 25  |ock%!8=mainminy%|
00000f00  0d 08 52 17 62 6c 6f 63  6b 25 21 31 32 3d 6d 61  |..R.block%!12=ma|
00000f10  69 6e 6d 61 78 78 25 0d  08 5c 17 62 6c 6f 63 6b  |inmaxx%..\.block|
00000f20  25 21 31 36 3d 6d 61 69  6e 6d 61 78 79 25 0d 08  |%!16=mainmaxy%..|
00000f30  66 1a 62 6c 6f 63 6b 25  21 32 30 3d 6d 61 69 6e  |f.block%!20=main|
00000f40  73 63 72 6f 6c 6c 78 25  0d 08 70 1a 62 6c 6f 63  |scrollx%..p.bloc|
00000f50  6b 25 21 32 34 3d 6d 61  69 6e 73 63 72 6f 6c 6c  |k%!24=mainscroll|
00000f60  79 25 0d 08 7a 14 62 6c  6f 63 6b 25 21 32 38 3d  |y%..z.block%!28=|
00000f70  6d 6f 75 73 65 25 0d 08  84 05 cd 0d 08 8e 18 c8  |mouse%..........|
00000f80  99 20 26 30 30 30 34 30  30 43 35 2c 2c 62 6c 6f  |. &000400C5,,blo|
00000f90  63 6b 25 0d 08 98 05 e1  0d 08 a2 05 3a 0d 08 ac  |ck%.........:...|
00000fa0  18 dd f2 63 6c 6f 73 65  77 69 6e 64 6f 77 28 77  |...closewindow(w|
00000fb0  69 6e 64 25 29 0d 08 b6  10 e7 20 77 69 6e 64 25  |ind%)..... wind%|
00000fc0  3c 3e 30 20 8c 0d 08 c0  12 62 6c 6f 63 6b 25 21  |<>0 .....block%!|
00000fd0  30 3d 77 69 6e 64 25 0d  08 ca 05 cd 0d 08 d4 16  |0=wind%.........|
00000fe0  e7 20 62 6c 6f 63 6b 25  21 30 3d 6b 65 79 73 25  |. block%!0=keys%|
00000ff0  20 8c 0d 08 de 13 62 6c  6f 63 6b 25 21 30 3d 6d  | .....block%!0=m|
00001000  6f 75 73 65 25 0d 08 e8  18 c8 99 20 26 30 30 30  |ouse%...... &000|
00001010  34 30 30 43 36 2c 2c 62  6c 6f 63 6b 25 0d 08 f2  |400C6,,block%...|
00001020  12 62 6c 6f 63 6b 25 21  30 3d 6b 65 79 73 25 0d  |.block%!0=keys%.|
00001030  08 fc 05 cd 0d 09 06 18  c8 99 20 26 30 30 30 34  |.......... &0004|
00001040  30 30 43 36 2c 2c 62 6c  6f 63 6b 25 0d 09 10 05  |00C6,,block%....|
00001050  e1 0d 09 1a 05 3a 0d 09  24 12 dd f2 70 6f 69 6e  |.....:..$...poin|
00001060  74 65 72 6c 65 61 76 65  0d 09 2e 05 e1 0d 09 38  |terleave.......8|
00001070  05 3a 0d 09 42 12 dd f2  70 6f 69 6e 74 65 72 65  |.:..B...pointere|
00001080  6e 74 65 72 0d 09 4c 05  e1 0d 09 56 05 3a 0d 09  |nter..L....V.:..|
00001090  60 10 dd f2 6d 6f 75 73  65 63 6c 69 63 6b 0d 09  |`...mouseclick..|
000010a0  6a 30 ea 20 6d 6f 75 73  65 78 25 2c 6d 6f 75 73  |j0. mousex%,mous|
000010b0  65 79 25 2c 6d 6f 75 73  65 62 75 74 74 6f 6e 25  |ey%,mousebutton%|
000010c0  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 0d 09  |,window%,icon%..|
000010d0  74 14 6d 6f 75 73 65 78  25 3d 62 6c 6f 63 6b 25  |t.mousex%=block%|
000010e0  21 30 0d 09 7e 14 6d 6f  75 73 65 79 25 3d 62 6c  |!0..~.mousey%=bl|
000010f0  6f 63 6b 25 21 34 0d 09  88 19 6d 6f 75 73 65 62  |ock%!4....mouseb|
00001100  75 74 74 6f 6e 25 3d 62  6c 6f 63 6b 25 21 38 0d  |utton%=block%!8.|
00001110  09 92 15 77 69 6e 64 6f  77 25 3d 62 6c 6f 63 6b  |...window%=block|
00001120  25 21 31 32 0d 09 9c 13  69 63 6f 6e 25 3d 62 6c  |%!12....icon%=bl|
00001130  6f 63 6b 25 21 31 36 0d  09 a6 05 3a 0d 09 b0 15  |ock%!16....:....|
00001140  c8 8e 20 6d 6f 75 73 65  62 75 74 74 6f 6e 25 20  |.. mousebutton% |
00001150  ca 0d 09 ba 07 c9 20 31  0d 09 c4 21 e7 20 77 69  |...... 1...!. wi|
00001160  6e 64 6f 77 25 3d 73 61  76 65 61 73 25 20 80 20  |ndow%=saveas% . |
00001170  69 63 6f 6e 25 3d 32 20  8c 0d 09 ce 24 e7 20 a7  |icon%=2 ....$. .|
00001180  a4 69 63 6f 6e 74 65 78  74 28 73 61 76 65 61 73  |.icontext(saveas|
00001190  25 2c 31 29 2c 22 2e 22  29 3d 30 20 8c 0d 09 d8  |%,1),".")=0 ....|
000011a0  5d f2 61 6c 65 72 74 28  22 4d 65 73 73 61 67 65  |].alert("Message|
000011b0  20 66 72 6f 6d 20 52 6f  64 65 6e 74 22 2c 22 54  | from Rodent","T|
000011c0  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
000011d0  20 66 69 6c 65 20 69 63  6f 6e 20 74 6f 20 61 20  | file icon to a |
000011e0  64 69 72 65 63 74 6f 72  79 20 76 69 65 77 65 72  |directory viewer|
000011f0  2e 22 2c 25 31 30 30 30  31 29 0d 09 e2 05 cc 0d  |.",%10001)......|
00001200  09 ec 1a 64 72 61 67 67  65 64 77 69 6e 64 6f 77  |...draggedwindow|
00001210  25 3d 73 61 76 65 61 73  25 0d 09 f6 1f f2 73 61  |%=saveas%.....sa|
00001220  76 65 28 a4 69 63 6f 6e  74 65 78 74 28 73 61 76  |ve(.icontext(sav|
00001230  65 61 73 25 2c 31 29 29  0d 0a 00 05 cd 0d 0a 0a  |eas%,1))........|
00001240  05 cd 0d 0a 14 1c e7 20  77 69 6e 64 6f 77 25 3d  |....... window%=|
00001250  2d 32 20 8c 20 f2 6f 70  65 6e 6b 65 79 73 0d 0a  |-2 . .openkeys..|
00001260  1e 27 e7 20 77 69 6e 64  6f 77 25 3d 73 74 65 70  |.'. window%=step|
00001270  25 20 8c 20 f2 63 6c 69  63 6b 73 74 65 70 28 69  |% . .clickstep(i|
00001280  63 6f 6e 25 29 0d 0a 28  29 e7 20 77 69 6e 64 6f  |con%)..(). windo|
00001290  77 25 3d 6d 6f 75 73 65  25 20 8c 20 f2 63 6c 69  |w%=mouse% . .cli|
000012a0  63 6b 6d 6f 75 73 65 28  69 63 6f 6e 25 29 0d 0a  |ckmouse(icon%)..|
000012b0  32 27 e7 20 77 69 6e 64  6f 77 25 3d 6b 65 79 73  |2'. window%=keys|
000012c0  25 20 8c 20 f2 63 6c 69  63 6b 6b 65 79 73 28 69  |% . .clickkeys(i|
000012d0  63 6f 6e 25 29 0d 0a 3c  07 c9 20 32 0d 0a 46 12  |con%)..<.. 2..F.|
000012e0  e7 20 77 69 6e 64 6f 77  25 3d 2d 32 20 8c 0d 0a  |. window%=-2 ...|
000012f0  50 2a c8 99 20 26 30 30  30 34 30 30 44 34 2c 2c  |P*.. &000400D4,,|
00001300  6d 61 69 6e 6d 65 6e 75  25 2c 6d 6f 75 73 65 78  |mainmenu%,mousex|
00001310  25 2d 36 38 2c 33 38 38  0d 0a 5a 13 6d 65 6e 75  |%-68,388..Z.menu|
00001320  25 3d 6d 61 69 6e 6d 65  6e 75 25 0d 0a 64 05 cd  |%=mainmenu%..d..|
00001330  0d 0a 6e 07 c9 20 34 0d  0a 78 21 e7 20 77 69 6e  |..n.. 4..x!. win|
00001340  64 6f 77 25 3d 73 61 76  65 61 73 25 20 80 20 69  |dow%=saveas% . i|
00001350  63 6f 6e 25 3d 32 20 8c  0d 0a 82 24 e7 20 a7 a4  |con%=2 ....$. ..|
00001360  69 63 6f 6e 74 65 78 74  28 73 61 76 65 61 73 25  |icontext(saveas%|
00001370  2c 31 29 2c 22 2e 22 29  3d 30 20 8c 0d 0a 8c 5d  |,1),".")=0 ....]|
00001380  f2 61 6c 65 72 74 28 22  4d 65 73 73 61 67 65 20  |.alert("Message |
00001390  66 72 6f 6d 20 52 6f 64  65 6e 74 22 2c 22 54 6f  |from Rodent","To|
000013a0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
000013b0  66 69 6c 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  |file icon to a d|
000013c0  69 72 65 63 74 6f 72 79  20 76 69 65 77 65 72 2e  |irectory viewer.|
000013d0  22 2c 25 31 30 30 30 31  29 0d 0a 96 12 c8 99 26  |",%10001)......&|
000013e0  30 30 30 34 30 30 44 34  2c 2d 31 0d 0a a0 05 cc  |000400D4,-1.....|
000013f0  0d 0a aa 1a 64 72 61 67  67 65 64 77 69 6e 64 6f  |....draggedwindo|
00001400  77 25 3d 73 61 76 65 61  73 25 0d 0a b4 1f f2 73  |w%=saveas%.....s|
00001410  61 76 65 28 a4 69 63 6f  6e 74 65 78 74 28 73 61  |ave(.icontext(sa|
00001420  76 65 61 73 25 2c 31 29  29 0d 0a be 12 c8 99 26  |veas%,1))......&|
00001430  30 30 30 34 30 30 44 34  2c 2d 31 0d 0a c8 05 cd  |000400D4,-1.....|
00001440  0d 0a d2 05 cd 0d 0a dc  1c e7 20 77 69 6e 64 6f  |.......... windo|
00001450  77 25 3d 2d 32 20 8c 20  f2 6f 70 65 6e 73 74 65  |w%=-2 . .openste|
00001460  70 0d 0a e6 27 e7 20 77  69 6e 64 6f 77 25 3d 73  |p...'. window%=s|
00001470  74 65 70 25 20 8c 20 f2  63 6c 69 63 6b 73 74 65  |tep% . .clickste|
00001480  70 28 69 63 6f 6e 25 29  0d 0a f0 29 e7 20 77 69  |p(icon%)...). wi|
00001490  6e 64 6f 77 25 3d 6d 6f  75 73 65 25 20 8c 20 f2  |ndow%=mouse% . .|
000014a0  63 6c 69 63 6b 6d 6f 75  73 65 28 69 63 6f 6e 25  |clickmouse(icon%|
000014b0  29 0d 0a fa 27 e7 20 77  69 6e 64 6f 77 25 3d 6b  |)...'. window%=k|
000014c0  65 79 73 25 20 8c 20 f2  63 6c 69 63 6b 6b 65 79  |eys% . .clickkey|
000014d0  73 28 69 63 6f 6e 25 29  0d 0b 04 0b c9 20 31 36  |s(icon%)..... 16|
000014e0  2c 36 34 0d 0b 0e 21 e7  20 77 69 6e 64 6f 77 25  |,64...!. window%|
000014f0  3d 73 61 76 65 61 73 25  20 80 20 69 63 6f 6e 25  |=saveas% . icon%|
00001500  3d 30 20 8c 0d 0b 18 1a  64 72 61 67 67 65 64 77  |=0 .....draggedw|
00001510  69 6e 64 6f 77 25 3d 77  69 6e 64 6f 77 25 0d 0b  |indow%=window%..|
00001520  22 49 e7 20 64 72 61 67  69 63 6f 6e 25 20 8c 20  |"I. dragicon% . |
00001530  f2 64 72 61 77 62 6f 78  28 73 61 76 65 61 73 25  |.drawbox(saveas%|
00001540  2c 30 2c 22 66 69 6c 65  5f 33 35 32 22 29 20 8b  |,0,"file_352") .|
00001550  20 f2 64 72 61 77 62 6f  78 28 73 61 76 65 61 73  | .drawbox(saveas|
00001560  25 2c 30 2c 22 22 29 0d  0b 2c 05 cd 0d 0b 36 05  |%,0,"")..,....6.|
00001570  cb 0d 0b 40 05 e1 0d 0b  4a 05 3a 0d 0b 54 11 dd  |...@....J.:..T..|
00001580  f2 75 73 65 72 64 72 61  67 62 6f 78 0d 0b 5e 37  |.userdragbox..^7|
00001590  e7 20 73 6c 69 64 65 77  69 6e 64 6f 77 25 3e 2d  |. slidewindow%>-|
000015a0  31 20 80 20 73 6c 69 64  65 69 63 6f 6e 25 3e 2d  |1 . slideicon%>-|
000015b0  31 20 80 20 73 6c 69 64  65 73 69 7a 65 25 3e 2d  |1 . slidesize%>-|
000015c0  31 20 8c 0d 0b 68 1d 73  69 7a 65 25 3d 73 69 7a  |1 ...h.size%=siz|
000015d0  65 6d 61 78 78 25 2d 73  69 7a 65 6d 69 6e 78 25  |emaxx%-sizeminx%|
000015e0  0d 0b 72 1f 70 70 6f 73  25 3d 28 6f 6c 64 77 6f  |..r.ppos%=(oldwo|
000015f0  72 6b 78 25 2d 73 69 7a  65 6d 69 6e 78 25 29 0d  |rkx%-sizeminx%).|
00001600  0b 7c 1e 6e 75 6d 25 3d  28 72 72 61 6e 67 65 25  |.|.num%=(rrange%|
00001610  2f 73 69 7a 65 25 29 2a  70 70 6f 73 25 0d 0b 86  |/size%)*ppos%...|
00001620  13 c8 8e 20 73 6c 69 64  65 69 63 6f 6e 25 20 ca  |... slideicon% .|
00001630  0d 0b 90 07 c9 20 37 0d  0b 9a 22 78 3d a8 28 a4  |..... 7..."x=.(.|
00001640  67 65 74 62 61 72 76 61  6c 75 65 28 73 74 65 70  |getbarvalue(step|
00001650  25 2c 37 2c 36 2c 39 29  29 0d 0b a4 08 c9 20 31  |%,7,6,9))..... 1|
00001660  34 0d 0b ae 24 79 3d a8  28 a4 67 65 74 62 61 72  |4...$y=.(.getbar|
00001670  76 61 6c 75 65 28 73 74  65 70 25 2c 31 34 2c 31  |value(step%,14,1|
00001680  33 2c 39 29 29 0d 0b b8  05 cb 0d 0b c2 10 c8 97  |3,9))...........|
00001690  20 88 20 78 2b 31 2c 79  2b 31 0d 0b cc 05 3a 0d  | . x+1,y+1....:.|
000016a0  0b d6 13 73 6c 69 64 65  77 69 6e 64 6f 77 25 3d  |...slidewindow%=|
000016b0  2d 31 0d 0b e0 11 73 6c  69 64 65 69 63 6f 6e 25  |-1....slideicon%|
000016c0  3d 2d 31 0d 0b ea 11 73  6c 69 64 65 73 69 7a 65  |=-1....slidesize|
000016d0  25 3d 2d 31 0d 0b f4 05  cd 0d 0b fe 05 3a 0d 0c  |%=-1.........:..|
000016e0  08 12 74 74 25 3d 62 6c  6f 63 6b 25 2b 32 35 36  |..tt%=block%+256|
000016f0  0d 0c 12 14 c8 99 26 30  30 30 34 30 30 43 46 2c  |......&000400CF,|
00001700  2c 74 74 25 0d 0c 1c 0d  78 78 25 3d 74 74 25 21  |,tt%....xx%=tt%!|
00001710  30 0d 0c 26 0d 79 79 25  3d 74 74 25 21 34 0d 0c  |0..&.yy%=tt%!4..|
00001720  30 0d 62 62 25 3d 74 74  25 21 38 0d 0c 3a 10 77  |0.bb%=tt%!8..:.w|
00001730  69 6e 64 25 3d 74 74 25  21 31 32 0d 0c 44 10 69  |ind%=tt%!12..D.i|
00001740  63 6f 6e 25 3d 74 74 25  21 31 36 0d 0c 4e 17 c8  |con%=tt%!16..N..|
00001750  8e 20 64 72 61 67 67 65  64 77 69 6e 64 6f 77 25  |. draggedwindow%|
00001760  20 ca 0d 0c 58 0d c9 20  73 61 76 65 61 73 25 0d  | ...X.. saveas%.|
00001770  0c 62 10 62 6c 6f 63 6b  25 21 30 3d 32 35 36 0d  |.b.block%!0=256.|
00001780  0c 6c 0f 62 6c 6f 63 6b  25 21 31 32 3d 30 0d 0c  |.l.block%!12=0..|
00001790  76 0f 62 6c 6f 63 6b 25  21 31 36 3d 31 0d 0c 80  |v.block%!16=1...|
000017a0  13 62 6c 6f 63 6b 25 21  32 30 3d 77 69 6e 64 25  |.block%!20=wind%|
000017b0  0d 0c 8a 13 62 6c 6f 63  6b 25 21 32 34 3d 69 63  |....block%!24=ic|
000017c0  6f 6e 25 0d 0c 94 11 62  6c 6f 63 6b 25 21 32 38  |on%....block%!28|
000017d0  3d 78 78 25 0d 0c 9e 11  62 6c 6f 63 6b 25 21 33  |=xx%....block%!3|
000017e0  32 3d 79 79 25 0d 0c a8  0f 62 6c 6f 63 6b 25 21  |2=yy%....block%!|
000017f0  33 36 3d 31 0d 0c b2 12  62 6c 6f 63 6b 25 21 34  |36=1....block%!4|
00001800  30 3d 26 63 63 63 0d 0c  bc 16 62 62 6c 6f 63 6b  |0=&ccc....bblock|
00001810  25 3d 62 6c 6f 63 6b 25  2b 32 35 36 0d 0c c6 15  |%=block%+256....|
00001820  62 62 6c 6f 63 6b 25 21  30 3d 73 61 76 65 61 73  |bblock%!0=saveas|
00001830  25 0d 0c d0 0f 62 62 6c  6f 63 6b 25 21 34 3d 31  |%....bblock%!4=1|
00001840  0d 0c da 19 c8 99 26 30  30 30 34 30 30 43 45 2c  |......&000400CE,|
00001850  30 2c 62 62 6c 6f 63 6b  25 0d 0c e4 14 74 65 78  |0,bblock%....tex|
00001860  74 25 3d 62 62 6c 6f 63  6b 25 21 32 38 0d 0c ee  |t%=bblock%!28...|
00001870  13 77 24 3d a4 67 4c 6e  28 24 74 65 78 74 25 29  |.w$=.gLn($text%)|
00001880  0d 0c f8 16 24 28 62 6c  6f 63 6b 25 2b 34 34 29  |....$(block%+44)|
00001890  3d 77 24 2b bd 30 0d 0d  02 25 c8 99 26 30 30 30  |=w$+.0...%..&000|
000018a0  34 30 30 45 37 2c 31 37  2c 62 6c 6f 63 6b 25 2c  |400E7,17,block%,|
000018b0  77 69 6e 64 25 2c 69 63  6f 6e 25 0d 0d 0c 25 e7  |wind%,icon%...%.|
000018c0  20 77 69 6e 64 25 3c 3e  73 61 76 65 61 73 25 20  | wind%<>saveas% |
000018d0  8c 20 c8 99 26 30 30 30  34 30 30 44 34 2c 2d 31  |. ..&000400D4,-1|
000018e0  0d 0d 16 05 cb 0d 0d 20  05 e1 0d 0d 2a 05 3a 0d  |....... ....*.:.|
000018f0  0d 34 10 dd f2 6b 65 79  70 72 65 73 73 65 64 0d  |.4...keypressed.|
00001900  0d 3e 12 77 69 6e 64 25  3d 62 6c 6f 63 6b 25 21  |.>.wind%=block%!|
00001910  30 0d 0d 48 12 69 63 6f  6e 25 3d 62 6c 6f 63 6b  |0..H.icon%=block|
00001920  25 21 34 0d 0d 52 12 6b  65 79 25 3d 62 6c 6f 63  |%!4..R.key%=bloc|
00001930  6b 25 21 32 34 0d 0d 5c  0d c8 8e 20 6b 65 79 25  |k%!24..\... key%|
00001940  20 ca 0d 0d 66 0c c9 20  33 39 38 2c 31 33 0d 0d  | ...f.. 398,13..|
00001950  70 15 e7 20 77 69 6e 64  25 3d 73 61 76 65 61 73  |p.. wind%=saveas|
00001960  25 20 8c 0d 0d 7a 24 e7  20 a7 a4 69 63 6f 6e 74  |% ...z$. ..icont|
00001970  65 78 74 28 73 61 76 65  61 73 25 2c 31 29 2c 22  |ext(saveas%,1),"|
00001980  2e 22 29 3d 30 20 8c 0d  0d 84 5d f2 61 6c 65 72  |.")=0 ....].aler|
00001990  74 28 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 20  |t("Message from |
000019a0  52 6f 64 65 6e 74 22 2c  22 54 6f 20 73 61 76 65  |Rodent","To save|
000019b0  2c 20 64 72 61 67 20 74  68 65 20 66 69 6c 65 20  |, drag the file |
000019c0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
000019d0  6f 72 79 20 76 69 65 77  65 72 2e 22 2c 25 31 30  |ory viewer.",%10|
000019e0  30 30 31 29 0d 0d 8e 12  c8 99 26 30 30 30 34 30  |001)......&00040|
000019f0  30 44 34 2c 2d 31 0d 0d  98 05 cc 0d 0d a2 1a 64  |0D4,-1.........d|
00001a00  72 61 67 67 65 64 77 69  6e 64 6f 77 25 3d 73 61  |raggedwindow%=sa|
00001a10  76 65 61 73 25 0d 0d ac  1f f2 73 61 76 65 28 a4  |veas%.....save(.|
00001a20  69 63 6f 6e 74 65 78 74  28 73 61 76 65 61 73 25  |icontext(saveas%|
00001a30  2c 31 29 29 0d 0d b6 13  c8 99 26 30 30 30 34 30  |,1))......&00040|
00001a40  30 44 34 2c 2c 2d 31 0d  0d c0 05 cd 0d 0d ca 05  |0D4,,-1.........|
00001a50  cb 0d 0d d4 05 e1 0d 0d  de 05 3a 0d 0d e8 13 dd  |..........:.....|
00001a60  f2 6d 65 6e 75 73 65 6c  65 63 74 69 6f 6e 0d 0d  |.menuselection..|
00001a70  f2 17 e7 20 6d 65 6e 75  25 3d 6d 61 69 6e 6d 65  |... menu%=mainme|
00001a80  6e 75 25 20 8c 0d 0d fc  11 c8 8e 20 62 6c 6f 63  |nu% ....... bloc|
00001a90  6b 25 21 30 20 ca 0d 0e  06 13 c9 20 31 20 3a 20  |k%!0 ...... 1 : |
00001aa0  f2 6f 70 65 6e 73 74 65  70 0d 0e 10 13 c9 20 32  |.openstep..... 2|
00001ab0  20 3a 20 f2 6f 70 65 6e  6b 65 79 73 0d 0e 1a 10  | : .openkeys....|
00001ac0  c9 20 34 20 3a 20 65 78  69 74 3d b9 0d 0e 24 05  |. 4 : exit=...$.|
00001ad0  cb 0d 0e 2e 05 cd 0d 0e  38 1b c8 99 26 30 30 30  |........8...&000|
00001ae0  34 30 30 43 46 2c 2c 62  6c 6f 63 6b 25 2b 32 35  |400CF,,block%+25|
00001af0  36 0d 0e 42 13 62 72 72  25 3d 62 6c 6f 63 6b 25  |6..B.brr%=block%|
00001b00  2b 32 35 36 0d 0e 4c 12  62 75 74 74 6f 6e 25 3d  |+256..L.button%=|
00001b10  62 72 72 25 21 38 0d 0e  56 11 e7 20 62 75 74 74  |brr%!8..V.. butt|
00001b20  6f 6e 25 3d 31 20 8c 0d  0e 60 3d e7 20 6d 65 6e  |on%=1 ...`=. men|
00001b30  75 25 3d 6d 61 69 6e 6d  65 6e 75 25 20 8c 20 c8  |u%=mainmenu% . .|
00001b40  99 20 26 30 30 30 34 30  30 44 34 2c 2c 6d 61 69  |. &000400D4,,mai|
00001b50  6e 6d 65 6e 75 25 2c 62  72 72 25 21 30 2d 36 38  |nmenu%,brr%!0-68|
00001b60  2c 33 38 38 0d 0e 6a 05  cd 0d 0e 74 05 e1 0d 0e  |,388..j....t....|
00001b70  7e 05 3a 0d 0e 88 13 dd  f2 73 63 72 6f 6c 6c 72  |~.:......scrollr|
00001b80  65 71 75 65 73 74 0d 0e  92 05 e1 0d 0e 9c 05 3a  |equest.........:|
00001b90  0d 0e a6 0f dd f2 6c 6f  73 65 63 61 72 65 74 0d  |......losecaret.|
00001ba0  0e b0 05 e1 0d 0e ba 05  3a 0d 0e c4 0f dd f2 67  |........:......g|
00001bb0  61 69 6e 63 61 72 65 74  0d 0e ce 05 e1 0d 0e d8  |aincaret........|
00001bc0  05 3a 0d 0e e2 11 dd f2  75 73 65 72 6d 65 73 73  |.:......usermess|
00001bd0  61 67 65 0d 0e ec 12 c8  8e 20 62 6c 6f 63 6b 25  |age...... block%|
00001be0  21 31 36 20 ca 0d 0e f6  07 c9 20 30 0d 0f 00 0a  |!16 ...... 0....|
00001bf0  65 78 69 74 3d b9 0d 0f  0a 07 c9 20 32 0d 0f 14  |exit=...... 2...|
00001c00  20 f2 73 61 76 65 28 a4  67 65 74 73 74 72 69 6e  | .save(.getstrin|
00001c10  67 28 62 6c 6f 63 6b 25  2b 34 34 29 29 0d 0f 1e  |g(block%+44))...|
00001c20  05 cb 0d 0f 28 05 e1 0d  0f 32 05 3a 0d 0f 3c 19  |....(....2.:..<.|
00001c30  dd f2 75 73 65 72 6d 65  73 73 61 67 65 72 65 63  |..usermessagerec|
00001c40  6f 72 64 65 64 0d 0f 46  12 c8 8e 20 62 6c 6f 63  |orded..F... bloc|
00001c50  6b 25 21 31 36 20 ca 0d  0f 50 07 c9 20 30 0d 0f  |k%!16 ...P.. 0..|
00001c60  5a 0a 65 78 69 74 3d b9  0d 0f 64 07 c9 20 33 0d  |Z.exit=...d.. 3.|
00001c70  0f 6e 20 f2 6c 6f 61 64  28 a4 67 65 74 73 74 72  |.n .load(.getstr|
00001c80  69 6e 67 28 62 6c 6f 63  6b 25 2b 34 34 29 29 0d  |ing(block%+44)).|
00001c90  0f 78 07 c9 20 35 0d 0f  82 16 e7 20 62 6c 6f 63  |.x.. 5..... bloc|
00001ca0  6b 25 21 34 30 3d 26 33  35 32 20 8c 0d 0f 8c 16  |k%!40=&352 .....|
00001cb0  62 6c 6f 63 6b 25 21 31  32 3d 62 6c 6f 63 6b 25  |block%!12=block%|
00001cc0  21 38 0d 0f 96 23 c8 99  26 30 30 30 36 30 30 45  |!8...#..&000600E|
00001cd0  37 2c 31 37 2c 62 6c 6f  63 6b 25 2c 62 6c 6f 63  |7,17,block%,bloc|
00001ce0  6b 25 21 32 30 0d 0f a0  20 f2 6c 6f 61 64 28 a4  |k%!20... .load(.|
00001cf0  67 65 74 73 74 72 69 6e  67 28 62 6c 6f 63 6b 25  |getstring(block%|
00001d00  2b 34 34 29 29 0d 0f aa  05 cd 0d 0f b4 05 cb 0d  |+44))...........|
00001d10  0f be 05 e1 0d 0f c8 05  3a 0d 0f d2 1c dd f2 75  |........:......u|
00001d20  73 65 72 6d 65 73 73 61  67 65 61 63 6b 6e 6f 77  |sermessageacknow|
00001d30  6c 65 64 67 65 0d 0f dc  05 e1 0d 0f e6 05 3a 0d  |ledge.........:.|
00001d40  0f f0 18 dd a4 70 61 72  73 65 57 6f 72 64 28 f8  |.....parseWord(.|
00001d50  20 41 24 2c 42 24 29 0d  0f fa 2c ea 20 43 24 2c  | A$,B$)...,. C$,|
00001d60  44 25 2c 45 25 2c 46 24  3a 44 25 3d 31 3a 45 25  |D%,E%,F$:D%=1:E%|
00001d70  3d a9 28 41 24 29 3a 43  24 3d c1 41 24 2c 44 25  |=.(A$):C$=.A$,D%|
00001d80  2c 31 29 0d 10 04 30 c8  95 20 28 a7 42 24 2c 43  |,1)...0.. (.B$,C|
00001d90  24 29 3d 30 29 80 28 44  25 3c 3d 45 25 29 3a 44  |$)=0).(D%<=E%):D|
00001da0  25 2b 3d 31 3a 43 24 3d  c1 41 24 2c 44 25 2c 31  |%+=1:C$=.A$,D%,1|
00001db0  29 3a ce 0d 10 0e 38 46  24 3d c0 41 24 2c 44 25  |):....8F$=.A$,D%|
00001dc0  2d 31 29 3a 41 24 3d c1  41 24 2c 44 25 2b 31 29  |-1):A$=.A$,D%+1)|
00001dd0  3a 45 25 3d a9 28 41 24  29 3a 44 25 3d 31 3a 43  |:E%=.(A$):D%=1:C|
00001de0  24 3d c1 41 24 2c 44 25  2c 31 29 0d 10 18 30 c8  |$=.A$,D%,1)...0.|
00001df0  95 20 28 a7 42 24 2c 43  24 29 3e 30 29 80 28 44  |. (.B$,C$)>0).(D|
00001e00  25 3c 3d 45 25 29 3a 44  25 2b 3d 31 3a 43 24 3d  |%<=E%):D%+=1:C$=|
00001e10  c1 41 24 2c 44 25 2c 31  29 3a ce 0d 10 22 0e 41  |.A$,D%,1):...".A|
00001e20  24 3d c1 41 24 2c 44 25  29 0d 10 2c 07 3d 46 24  |$=.A$,D%)..,.=F$|
00001e30  0d 10 36 05 3a 0d 10 40  1b dd a4 70 61 72 73 65  |..6.:..@...parse|
00001e40  4c 69 6e 65 28 41 24 2c  42 24 28 29 2c 43 24 29  |Line(A$,B$(),C$)|
00001e50  0d 10 4a 18 ea 20 44 25  2c 45 25 3a 44 25 3d de  |..J.. D%,E%:D%=.|
00001e60  28 42 24 28 29 2c 31 29  0d 10 54 18 c8 95 20 28  |(B$(),1)..T... (|
00001e70  41 24 3c 3e 22 22 29 80  28 45 25 3c 3d 44 25 29  |A$<>"").(E%<=D%)|
00001e80  0d 10 5e 1c 42 24 28 45  25 29 3d a4 70 61 72 73  |..^.B$(E%)=.pars|
00001e90  65 57 6f 72 64 28 41 24  2c 43 24 29 0d 10 68 09  |eWord(A$,C$)..h.|
00001ea0  45 25 2b 3d 31 0d 10 72  05 ce 0d 10 7c 07 3d 45  |E%+=1..r....|.=E|
00001eb0  25 0d 10 86 05 3a 0d 10  90 32 dd 20 a4 63 72 65  |%....:...2. .cre|
00001ec0  61 74 65 6d 65 6e 75 28  74 69 74 6c 65 24 2c 65  |atemenu(title$,e|
00001ed0  6e 74 72 69 65 73 25 2c  65 6e 74 72 69 65 73 24  |ntries%,entries$|
00001ee0  2c 77 69 64 74 68 25 29  0d 10 9a 13 ea 20 6d 65  |,width%)..... me|
00001ef0  6e 75 25 2c 77 6f 72 64  24 28 29 0d 10 a4 1a de  |nu%,word$().....|
00001f00  20 6d 65 6e 75 25 20 32  34 2b 65 6e 74 72 69 65  | menu% 24+entrie|
00001f10  73 25 2a 32 34 0d 10 ae  15 de 20 77 6f 72 64 24  |s%*24..... word$|
00001f20  28 65 6e 74 72 69 65 73  25 29 0d 10 b8 28 74 72  |(entries%)...(tr|
00001f30  25 3d a4 70 61 72 73 65  4c 69 6e 65 28 65 6e 74  |%=.parseLine(ent|
00001f40  72 69 65 73 24 2c 77 6f  72 64 24 28 29 2c 22 7c  |ries$,word$(),"||
00001f50  22 29 0d 10 c2 0a 74 72  25 2d 3d 31 0d 10 cc 18  |")....tr%-=1....|
00001f60  24 28 6d 65 6e 75 25 2b  30 29 3d 74 69 74 6c 65  |$(menu%+0)=title|
00001f70  24 2b bd 30 0d 10 d6 0e  6d 65 6e 75 25 21 31 32  |$+.0....menu%!12|
00001f80  3d 37 0d 10 e0 0e 6d 65  6e 75 25 21 31 33 3d 32  |=7....menu%!13=2|
00001f90  0d 10 ea 0e 6d 65 6e 75  25 21 31 34 3d 37 0d 10  |....menu%!14=7..|
00001fa0  f4 0e 6d 65 6e 75 25 21  31 35 3d 30 0d 10 fe 13  |..menu%!15=0....|
00001fb0  6d 65 6e 75 25 21 31 36  3d 77 69 64 74 68 25 0d  |menu%!16=width%.|
00001fc0  11 08 0f 6d 65 6e 75 25  21 32 30 3d 34 34 0d 11  |...menu%!20=44..|
00001fd0  12 0e 6d 65 6e 75 25 21  32 34 3d 30 0d 11 1c 13  |..menu%!24=0....|
00001fe0  e3 20 6c 6f 6f 70 25 3d  30 20 b8 20 74 72 25 0d  |. loop%=0 . tr%.|
00001ff0  11 26 14 70 25 3d 28 6c  6f 6f 70 25 2a 32 34 29  |.&.p%=(loop%*24)|
00002000  2b 32 38 0d 11 30 32 e7  20 6c 6f 6f 70 25 3d 65  |+28..02. loop%=e|
00002010  6e 74 72 69 65 73 25 2d  31 20 8c 20 6d 65 6e 75  |ntries%-1 . menu|
00002020  25 21 70 25 3d 31 32 38  20 8b 20 6d 65 6e 75 25  |%!p%=128 . menu%|
00002030  21 70 25 3d 30 0d 11 3a  1e e7 20 c1 77 6f 72 64  |!p%=0..:.. .word|
00002040  24 28 6c 6f 6f 70 25 29  2c 31 2c 31 29 3d 22 2d  |$(loop%),1,1)="-|
00002050  22 20 8c 0d 11 44 0f 6d  65 6e 75 25 21 70 25 2b  |" ...D.menu%!p%+|
00002060  3d 32 0d 11 4e 05 cd 0d  11 58 26 e7 20 74 69 74  |=2..N....X&. tit|
00002070  6c 65 24 3d 22 46 69 6c  65 74 79 70 65 73 22 20  |le$="Filetypes" |
00002080  8c 20 6d 65 6e 75 25 21  70 25 2b 3d 38 0d 11 62  |. menu%!p%+=8..b|
00002090  09 70 25 2b 3d 34 0d 11  6c 1e e7 20 a7 77 6f 72  |.p%+=4..l.. .wor|
000020a0  64 24 28 6c 6f 6f 70 25  29 2c 22 3e 22 29 20 3d  |d$(loop%),">") =|
000020b0  20 30 20 8c 0d 11 76 0f  6d 65 6e 75 25 21 70 25  | 0 ...v.menu%!p%|
000020c0  3d 2d 31 0d 11 80 05 cc  0d 11 8a 33 6d 65 6e 75  |=-1........3menu|
000020d0  25 21 70 25 3d a0 28 c1  77 6f 72 64 24 28 6c 6f  |%!p%=.(.word$(lo|
000020e0  6f 70 25 29 2c a7 77 6f  72 64 24 28 6c 6f 6f 70  |op%),.word$(loop|
000020f0  25 29 2c 22 3e 22 29 2b  31 29 29 0d 11 94 05 cd  |%),">")+1)).....|
00002100  0d 11 9e 09 70 25 2b 3d  34 0d 11 a8 15 6d 65 6e  |....p%+=4....men|
00002110  75 25 21 70 25 3d 26 37  30 30 39 30 33 31 0d 11  |u%!p%=&7009031..|
00002120  b2 09 70 25 2b 3d 34 0d  11 bc 1e e7 20 a7 77 6f  |..p%+=4..... .wo|
00002130  72 64 24 28 6c 6f 6f 70  25 29 2c 22 3e 22 29 20  |rd$(loop%),">") |
00002140  3d 20 30 20 8c 0d 11 c6  1e e7 20 c1 77 6f 72 64  |= 0 ...... .word|
00002150  24 28 6c 6f 6f 70 25 29  2c 31 2c 31 29 3d 22 2d  |$(loop%),1,1)="-|
00002160  22 20 8c 0d 11 d0 20 24  28 6d 65 6e 75 25 2b 70  |" .... $(menu%+p|
00002170  25 29 3d c1 77 6f 72 64  24 28 6c 6f 6f 70 25 29  |%)=.word$(loop%)|
00002180  2c 32 29 0d 11 da 05 cc  0d 11 e4 1c 24 28 6d 65  |,2).........$(me|
00002190  6e 75 25 2b 70 25 29 3d  77 6f 72 64 24 28 6c 6f  |nu%+p%)=word$(lo|
000021a0  6f 70 25 29 0d 11 ee 05  cd 0d 11 f8 05 cc 0d 12  |op%)............|
000021b0  02 1e e7 20 c1 77 6f 72  64 24 28 6c 6f 6f 70 25  |... .word$(loop%|
000021c0  29 2c 31 2c 31 29 3d 22  2d 22 20 8c 0d 12 0c 35  |),1,1)="-" ....5|
000021d0  24 28 6d 65 6e 75 25 2b  70 25 29 3d c1 77 6f 72  |$(menu%+p%)=.wor|
000021e0  64 24 28 6c 6f 6f 70 25  29 2c 32 2c a7 77 6f 72  |d$(loop%),2,.wor|
000021f0  64 24 28 6c 6f 6f 70 25  29 2c 22 3e 22 29 2d 32  |d$(loop%),">")-2|
00002200  29 0d 12 16 05 cc 0d 12  20 35 24 28 6d 65 6e 75  |)....... 5$(menu|
00002210  25 2b 70 25 29 3d c1 77  6f 72 64 24 28 6c 6f 6f  |%+p%)=.word$(loo|
00002220  70 25 29 2c 31 2c a7 77  6f 72 64 24 28 6c 6f 6f  |p%),1,.word$(loo|
00002230  70 25 29 2c 22 3e 22 29  2d 31 29 0d 12 2a 05 cd  |p%),">")-1)..*..|
00002240  0d 12 34 05 cd 0d 12 3e  0a ed 6c 6f 6f 70 25 0d  |..4....>..loop%.|
00002250  12 48 0a 3d 6d 65 6e 75  25 0d 12 52 05 3a 0d 12  |.H.=menu%..R.:..|
00002260  5c 1e dd 20 a4 69 63 6f  6e 74 65 78 74 28 77 69  |\.. .icontext(wi|
00002270  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 12 66 25  |ndow%,icon%)..f%|
00002280  62 6c 6f 63 6b 25 21 30  3d 77 69 6e 64 6f 77 25  |block%!0=window%|
00002290  20 3a 20 62 6c 6f 63 6b  25 21 34 3d 69 63 6f 6e  | : block%!4=icon|
000022a0  25 0d 12 70 18 c8 99 20  26 30 30 30 34 30 30 43  |%..p... &000400C|
000022b0  45 2c 2c 62 6c 6f 63 6b  25 0d 12 7a 38 e7 20 28  |E,,block%..z8. (|
000022c0  28 62 6c 6f 63 6b 25 21  32 34 29 20 80 20 26 31  |(block%!24) . &1|
000022d0  30 30 29 3d 30 20 85 20  31 2c 22 49 63 6f 6e 20  |00)=0 . 1,"Icon |
000022e0  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
000022f0  22 0d 12 84 11 3d 24 28  62 6c 6f 63 6b 25 21 32  |"....=$(block%!2|
00002300  38 29 0d 12 8e 05 3a 0d  12 98 27 dd 20 f2 69 63  |8)....:...'. .ic|
00002310  6f 6e 70 75 74 74 65 78  74 28 77 69 6e 64 6f 77  |onputtext(window|
00002320  25 2c 69 63 6f 6e 25 2c  74 65 78 74 24 29 0d 12  |%,icon%,text$)..|
00002330  a2 25 62 6c 6f 63 6b 25  21 30 3d 77 69 6e 64 6f  |.%block%!0=windo|
00002340  77 25 20 3a 20 62 6c 6f  63 6b 25 21 34 3d 69 63  |w% : block%!4=ic|
00002350  6f 6e 25 0d 12 ac 18 c8  99 20 26 30 30 30 34 30  |on%...... &00040|
00002360  30 43 45 2c 2c 62 6c 6f  63 6b 25 0d 12 b6 38 e7  |0CE,,block%...8.|
00002370  20 28 28 62 6c 6f 63 6b  25 21 32 34 29 20 80 20  | ((block%!24) . |
00002380  26 31 30 30 29 3d 30 20  85 20 31 2c 22 49 63 6f  |&100)=0 . 1,"Ico|
00002390  6e 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |n isn't indirect|
000023a0  65 64 22 0d 12 c0 16 24  28 62 6c 6f 63 6b 25 21  |ed"....$(block%!|
000023b0  32 38 29 3d 74 65 78 74  24 0d 12 ca 25 62 6c 6f  |28)=text$...%blo|
000023c0  63 6b 25 21 30 3d 77 69  6e 64 6f 77 25 20 3a 20  |ck%!0=window% : |
000023d0  62 6c 6f 63 6b 25 21 34  3d 69 63 6f 6e 25 0d 12  |block%!4=icon%..|
000023e0  d4 1c 62 6c 6f 63 6b 25  21 38 3d 30 20 3a 20 62  |..block%!8=0 : b|
000023f0  6c 6f 63 6b 25 21 31 32  3d 30 0d 12 de 18 c8 99  |lock%!12=0......|
00002400  20 26 30 30 30 34 30 30  43 44 2c 2c 62 6c 6f 63  | &000400CD,,bloc|
00002410  6b 25 0d 12 e8 05 e1 0d  12 f2 05 3a 0d 12 fc 18  |k%.........:....|
00002420  dd f2 73 69 63 6f 6e 28  77 69 6e 64 25 2c 69 63  |..sicon(wind%,ic|
00002430  6f 6e 25 29 0d 13 06 12  62 6c 6f 63 6b 25 21 30  |on%)....block%!0|
00002440  3d 77 69 6e 64 25 0d 13  10 12 62 6c 6f 63 6b 25  |=wind%....block%|
00002450  21 34 3d 69 63 6f 6e 25  0d 13 1a 25 62 6c 6f 63  |!4=icon%...%bloc|
00002460  6b 25 21 38 3d 25 31 30  30 30 30 30 30 30 30 30  |k%!8=%1000000000|
00002470  30 30 30 30 30 30 30 30  30 30 30 30 30 0d 13 24  |0000000000000..$|
00002480  26 62 6c 6f 63 6b 25 21  31 32 3d 25 31 30 30 30  |&block%!12=%1000|
00002490  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
000024a0  30 30 30 0d 13 2e 15 c8  99 20 26 34 30 30 43 44  |000...... &400CD|
000024b0  2c 2c 62 6c 6f 63 6b 25  0d 13 38 05 e1 0d 13 42  |,,block%..8....B|
000024c0  05 3a 0d 13 4c 19 dd f2  75 73 69 63 6f 6e 28 77  |.:..L...usicon(w|
000024d0  69 6e 64 25 2c 69 63 6f  6e 25 29 0d 13 56 12 62  |ind%,icon%)..V.b|
000024e0  6c 6f 63 6b 25 21 30 3d  77 69 6e 64 25 0d 13 60  |lock%!0=wind%..`|
000024f0  12 62 6c 6f 63 6b 25 21  34 3d 69 63 6f 6e 25 0d  |.block%!4=icon%.|
00002500  13 6a 0e 62 6c 6f 63 6b  25 21 38 3d 30 0d 13 74  |.j.block%!8=0..t|
00002510  26 62 6c 6f 63 6b 25 21  31 32 3d 25 31 30 30 30  |&block%!12=%1000|
00002520  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
00002530  30 30 30 0d 13 7e 15 c8  99 20 26 34 30 30 43 44  |000..~... &400CD|
00002540  2c 2c 62 6c 6f 63 6b 25  0d 13 88 05 e1 0d 13 92  |,,block%........|
00002550  05 3a 0d 13 9c 1a dd f2  73 65 6c 69 63 6f 6e 28  |.:......selicon(|
00002560  77 69 6e 64 25 2c 69 63  6f 6e 25 29 0d 13 a6 12  |wind%,icon%)....|
00002570  62 6c 6f 63 6b 25 21 30  3d 77 69 6e 64 25 0d 13  |block%!0=wind%..|
00002580  b0 12 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |..block%!4=icon%|
00002590  0d 13 ba 24 62 6c 6f 63  6b 25 21 38 3d 25 31 30  |...$block%!8=%10|
000025a0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |0000000000000000|
000025b0  30 30 30 30 0d 13 c4 25  62 6c 6f 63 6b 25 21 31  |0000...%block%!1|
000025c0  32 3d 25 31 30 30 30 30  30 30 30 30 30 30 30 30  |2=%1000000000000|
000025d0  30 30 30 30 30 30 30 30  30 0d 13 ce 15 c8 99 20  |000000000...... |
000025e0  26 34 30 30 43 44 2c 2c  62 6c 6f 63 6b 25 0d 13  |&400CD,,block%..|
000025f0  d8 05 e1 0d 13 e2 05 3a  0d 13 ec 1b dd f2 75 73  |.......:......us|
00002600  65 6c 69 63 6f 6e 28 77  69 6e 64 25 2c 69 63 6f  |elicon(wind%,ico|
00002610  6e 25 29 0d 13 f6 12 62  6c 6f 63 6b 25 21 30 3d  |n%)....block%!0=|
00002620  77 69 6e 64 25 0d 14 00  12 62 6c 6f 63 6b 25 21  |wind%....block%!|
00002630  34 3d 69 63 6f 6e 25 0d  14 0a 0e 62 6c 6f 63 6b  |4=icon%....block|
00002640  25 21 38 3d 30 0d 14 14  25 62 6c 6f 63 6b 25 21  |%!8=0...%block%!|
00002650  31 32 3d 25 31 30 30 30  30 30 30 30 30 30 30 30  |12=%100000000000|
00002660  30 30 30 30 30 30 30 30  30 30 0d 14 1e 15 c8 99  |0000000000......|
00002670  20 26 34 30 30 43 44 2c  2c 62 6c 6f 63 6b 25 0d  | &400CD,,block%.|
00002680  14 28 05 e1 0d 14 32 05  3a 0d 14 3c 10 dd f2 74  |.(....2.:..<...t|
00002690  6d 69 28 6d 25 2c 69 25  29 0d 14 46 16 75 69 3d  |mi(m%,i%)..F.ui=|
000026a0  6d 25 2b 28 32 38 2b 28  32 34 2a 69 25 29 29 0d  |m%+(28+(24*i%)).|
000026b0  14 50 10 21 75 69 3d 21  75 69 20 84 20 25 31 0d  |.P.!ui=!ui . %1.|
000026c0  14 5a 05 e1 0d 14 64 05  3a 0d 14 6e 11 dd f2 75  |.Z....d.:..n...u|
000026d0  74 6d 69 28 6d 25 2c 69  25 29 0d 14 78 16 75 69  |tmi(m%,i%)..x.ui|
000026e0  3d 6d 25 2b 28 32 38 2b  28 32 34 2a 69 25 29 29  |=m%+(28+(24*i%))|
000026f0  0d 14 82 11 21 75 69 3d  21 75 69 20 80 ac 20 25  |....!ui=!ui .. %|
00002700  31 0d 14 8c 05 e1 0d 14  96 05 3a 0d 14 a0 10 dd  |1.........:.....|
00002710  f2 73 6d 69 28 6d 25 2c  69 25 29 0d 14 aa 16 75  |.smi(m%,i%)....u|
00002720  69 3d 6d 25 2b 28 33 36  2b 28 32 34 2a 69 25 29  |i=m%+(36+(24*i%)|
00002730  29 0d 14 b4 26 21 75 69  3d 21 75 69 20 84 20 25  |)...&!ui=!ui . %|
00002740  31 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30  |1000000000000000|
00002750  30 30 30 30 30 30 30 0d  14 be 05 e1 0d 14 c8 05  |0000000.........|
00002760  3a 0d 14 d2 11 dd f2 75  73 6d 69 28 6d 25 2c 69  |:......usmi(m%,i|
00002770  25 29 0d 14 dc 16 75 69  3d 6d 25 2b 28 33 36 2b  |%)....ui=m%+(36+|
00002780  28 32 34 2a 69 25 29 29  0d 14 e6 27 21 75 69 3d  |(24*i%))...'!ui=|
00002790  21 75 69 20 80 ac 20 25  31 30 30 30 30 30 30 30  |!ui .. %10000000|
000027a0  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 0d  |000000000000000.|
000027b0  14 f0 05 e1 0d 14 fa 05  3a 0d 15 04 18 dd 20 a4  |........:..... .|
000027c0  67 65 74 73 74 72 69 6e  67 28 61 72 72 61 79 25  |getstring(array%|
000027d0  29 0d 15 0e 14 ea 20 70  61 74 68 24 2c 70 6f 69  |)..... path$,poi|
000027e0  6e 74 65 72 25 0d 15 18  0c 70 61 74 68 24 3d 22  |nter%....path$="|
000027f0  22 0d 15 22 13 70 6f 69  6e 74 65 72 25 3d 61 72  |"..".pointer%=ar|
00002800  72 61 79 25 0d 15 2c 05  f5 0d 15 36 15 70 61 74  |ray%..,....6.pat|
00002810  68 24 2b 3d bd 3f 70 6f  69 6e 74 65 72 25 0d 15  |h$+=.?pointer%..|
00002820  40 0f 70 6f 69 6e 74 65  72 25 2b 3d 31 0d 15 4a  |@.pointer%+=1..J|
00002830  20 fd 20 3f 70 6f 69 6e  74 65 72 25 3d 30 20 84  | . ?pointer%=0 .|
00002840  20 3f 70 6f 69 6e 74 65  72 25 3d 31 33 0d 15 54  | ?pointer%=13..T|
00002850  0a 3d 70 61 74 68 24 0d  15 5e 05 3a 0d 15 68 20  |.=path$..^.:..h |
00002860  dd f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |..changebcolour(|
00002870  77 69 25 2c 69 63 25 2c  63 6f 25 29 0d 15 72 10  |wi%,ic%,co%)..r.|
00002880  62 6c 6f 63 6b 25 21 30  3d 77 69 25 0d 15 7c 10  |block%!0=wi%..|.|
00002890  62 6c 6f 63 6b 25 21 34  3d 69 63 25 0d 15 86 16  |block%!4=ic%....|
000028a0  62 6c 6f 63 6b 25 21 38  3d 28 63 6f 25 3c 3c 32  |block%!8=(co%<<2|
000028b0  38 29 0d 15 90 19 62 6c  6f 63 6b 25 21 31 32 3d  |8)....block%!12=|
000028c0  28 25 31 31 31 31 3c 3c  32 38 29 0d 15 9a 15 c8  |(%1111<<28).....|
000028d0  99 20 26 34 30 30 43 44  2c 2c 62 6c 6f 63 6b 25  |. &400CD,,block%|
000028e0  0d 15 a4 05 e1 0d 15 ae  05 3a 0d 15 b8 0d dd a4  |.........:......|
000028f0  67 4c 6e 28 41 24 29 0d  15 c2 08 ea 20 42 25 0d  |gLn(A$)..... B%.|
00002900  15 cc 16 e7 20 a7 41 24  2c 22 2e 22 29 3d 30 20  |.... .A$,".")=0 |
00002910  8c 20 3d 41 24 0d 15 d6  12 e7 20 a7 41 24 2c 22  |. =A$..... .A$,"|
00002920  2e 22 29 3e 30 20 8c 0d  15 e0 0a 42 25 3d a9 41  |.")>0 .....B%=.A|
00002930  24 0d 15 ea 1d c8 95 28  c1 41 24 2c 42 25 2c 31  |$......(.A$,B%,1|
00002940  29 3c 3e 22 2e 22 29 80  28 42 25 3e 30 29 0d 15  |)<>".").(B%>0)..|
00002950  f4 09 42 25 2d 3d 31 0d  15 fe 05 ce 0d 16 08 10  |..B%-=1.........|
00002960  3d c2 41 24 2c a9 41 24  2d 42 25 29 0d 16 12 05  |=.A$,.A$-B%)....|
00002970  3a 0d 16 1c 1d dd 20 a4  69 63 6f 6e 62 61 72 28  |:..... .iconbar(|
00002980  53 70 72 69 74 65 24 2c  73 69 64 65 25 29 0d 16  |Sprite$,side%)..|
00002990  26 0b ea 20 69 63 6f 6e  25 0d 16 30 12 62 6c 6f  |&.. icon%..0.blo|
000029a0  63 6b 25 21 30 3d 73 69  64 65 25 0d 16 3a 0e 62  |ck%!0=side%..:.b|
000029b0  6c 6f 63 6b 25 21 34 3d  30 0d 16 44 0e 62 6c 6f  |lock%!4=0..D.blo|
000029c0  63 6b 25 21 38 3d 30 0d  16 4e 12 62 6c 6f 63 6b  |ck%!8=0..N.block|
000029d0  25 21 31 32 3d 32 31 2a  32 0d 16 58 12 62 6c 6f  |%!12=21*2..X.blo|
000029e0  63 6b 25 21 31 36 3d 33  34 2a 32 0d 16 62 13 62  |ck%!16=34*2..b.b|
000029f0  6c 6f 63 6b 25 21 32 30  3d 26 33 30 30 32 0d 16  |lock%!20=&3002..|
00002a00  6c 18 24 28 62 6c 6f 63  6b 25 2b 32 34 29 3d 53  |l.$(block%+24)=S|
00002a10  70 72 69 74 65 24 0d 16  76 20 c8 99 20 26 30 30  |prite$..v .. &00|
00002a20  30 34 30 30 43 32 2c 2c  62 6c 6f 63 6b 25 20 b8  |0400C2,,block% .|
00002a30  20 69 63 6f 6e 25 0d 16  80 0a 3d 69 63 6f 6e 25  | icon%....=icon%|
00002a40  0d 16 8a 05 3a 0d 16 94  2e dd f2 64 72 61 67 73  |....:......drags|
00002a50  6c 69 64 65 72 69 63 6f  6e 28 77 69 6e 25 2c 64  |lidericon(win%,d|
00002a60  72 61 67 69 63 6f 6e 25  2c 73 69 7a 65 69 63 6f  |ragicon%,sizeico|
00002a70  6e 25 29 0d 16 9e 11 62  6c 6f 63 6b 25 21 30 3d  |n%)....block%!0=|
00002a80  77 69 6e 25 0d 16 a8 16  62 6c 6f 63 6b 25 21 34  |win%....block%!4|
00002a90  3d 73 69 7a 65 69 63 6f  6e 25 0d 16 b2 18 c8 99  |=sizeicon%......|
00002aa0  20 26 30 30 30 34 30 30  43 45 2c 2c 62 6c 6f 63  | &000400CE,,bloc|
00002ab0  6b 25 0d 16 bc 13 73 6d  69 6e 78 25 3d 62 6c 6f  |k%....sminx%=blo|
00002ac0  63 6b 25 21 38 0d 16 c6  14 73 6d 69 6e 79 25 3d  |ck%!8....sminy%=|
00002ad0  62 6c 6f 63 6b 25 21 31  32 0d 16 d0 14 73 6d 61  |block%!12....sma|
00002ae0  78 78 25 3d 62 6c 6f 63  6b 25 21 31 36 0d 16 da  |xx%=block%!16...|
00002af0  14 73 6d 61 78 79 25 3d  62 6c 6f 63 6b 25 21 32  |.smaxy%=block%!2|
00002b00  30 0d 16 e4 12 c8 97 20  6d 78 25 2c 6d 79 25 2c  |0...... mx%,my%,|
00002b10  6d 62 25 0d 16 ee 11 62  6c 6f 63 6b 25 21 30 3d  |mb%....block%!0=|
00002b20  77 69 6e 25 0d 16 f8 18  c8 99 20 26 30 30 30 34  |win%...... &0004|
00002b30  30 30 43 43 2c 2c 62 6c  6f 63 6b 25 0d 17 02 2f  |00CC,,block%.../|
00002b40  63 61 6c 63 78 25 3d 28  6d 78 25 2d 28 62 6c 6f  |calcx%=(mx%-(blo|
00002b50  63 6b 25 21 34 2d 62 6c  6f 63 6b 25 21 32 30 29  |ck%!4-block%!20)|
00002b60  29 2b 62 6c 6f 63 6b 25  21 34 34 0d 17 0c 29 69  |)+block%!44...)i|
00002b70  63 6f 6e 6d 69 6e 78 25  3d 73 6d 69 6e 78 25 2b  |conminx%=sminx%+|
00002b80  28 62 6c 6f 63 6b 25 21  34 2d 62 6c 6f 63 6b 25  |(block%!4-block%|
00002b90  21 32 30 29 0d 17 16 27  69 63 6f 6e 6d 61 78 78  |!20)...'iconmaxx|
00002ba0  25 3d 69 63 6f 6e 6d 69  6e 78 25 2b 28 73 6d 61  |%=iconminx%+(sma|
00002bb0  78 78 25 2d 73 6d 69 6e  78 25 29 0d 17 20 2a 69  |xx%-sminx%).. *i|
00002bc0  63 6f 6e 6d 69 6e 79 25  3d 73 6d 69 6e 79 25 2b  |conminy%=sminy%+|
00002bd0  28 62 6c 6f 63 6b 25 21  31 36 2d 62 6c 6f 63 6b  |(block%!16-block|
00002be0  25 21 32 34 29 0d 17 2a  19 c8 99 20 26 33 35 2c  |%!24)..*... &35,|
00002bf0  eb 2c 35 20 b8 20 2c 2c  79 66 61 63 74 25 0d 17  |.,5 . ,,yfact%..|
00002c00  34 33 69 63 6f 6e 6d 61  78 79 25 3d 69 63 6f 6e  |43iconmaxy%=icon|
00002c10  6d 69 6e 79 25 2b 28 73  6d 61 78 79 25 2d 73 6d  |miny%+(smaxy%-sm|
00002c20  69 6e 79 25 29 2d 28 31  3c 3c 79 66 61 63 74 25  |iny%)-(1<<yfact%|
00002c30  29 0d 17 3e 11 62 6c 6f  63 6b 25 21 30 3d 77 69  |)..>.block%!0=wi|
00002c40  6e 25 0d 17 48 0e 62 6c  6f 63 6b 25 21 34 3d 37  |n%..H.block%!4=7|
00002c50  0d 17 52 16 62 6c 6f 63  6b 25 21 38 3d 69 63 6f  |..R.block%!8=ico|
00002c60  6e 6d 69 6e 78 25 0d 17  5c 17 62 6c 6f 63 6b 25  |nminx%..\.block%|
00002c70  21 31 32 3d 69 63 6f 6e  6d 69 6e 79 25 0d 17 66  |!12=iconminy%..f|
00002c80  17 62 6c 6f 63 6b 25 21  31 36 3d 69 63 6f 6e 6d  |.block%!16=iconm|
00002c90  61 78 78 25 0d 17 70 17  62 6c 6f 63 6b 25 21 32  |axx%..p.block%!2|
00002ca0  30 3d 69 63 6f 6e 6d 61  78 79 25 0d 17 7a 16 62  |0=iconmaxy%..z.b|
00002cb0  6c 6f 63 6b 25 21 32 34  3d 62 6c 6f 63 6b 25 21  |lock%!24=block%!|
00002cc0  38 0d 17 84 17 62 6c 6f  63 6b 25 21 32 38 3d 62  |8....block%!28=b|
00002cd0  6c 6f 63 6b 25 21 31 32  0d 17 8e 17 62 6c 6f 63  |lock%!12....bloc|
00002ce0  6b 25 21 33 32 3d 62 6c  6f 63 6b 25 21 31 36 0d  |k%!32=block%!16.|
00002cf0  17 98 17 62 6c 6f 63 6b  25 21 33 36 3d 62 6c 6f  |...block%!36=blo|
00002d00  63 6b 25 21 32 30 0d 17  a2 18 c8 99 20 26 30 30  |ck%!20...... &00|
00002d10  30 34 30 30 44 30 2c 2c  62 6c 6f 63 6b 25 0d 17  |0400D0,,block%..|
00002d20  ac 15 73 6c 69 64 65 77  69 6e 64 6f 77 25 3d 77  |..slidewindow%=w|
00002d30  69 6e 25 0d 17 b6 18 73  6c 69 64 65 69 63 6f 6e  |in%....slideicon|
00002d40  25 3d 64 72 61 67 69 63  6f 6e 25 0d 17 c0 18 73  |%=dragicon%....s|
00002d50  6c 69 64 65 73 69 7a 65  25 3d 73 69 7a 65 69 63  |lidesize%=sizeic|
00002d60  6f 6e 25 0d 17 ca 11 62  6c 6f 63 6b 25 21 30 3d  |on%....block%!0=|
00002d70  77 69 6e 25 0d 17 d4 16  62 6c 6f 63 6b 25 21 34  |win%....block%!4|
00002d80  3d 64 72 61 67 69 63 6f  6e 25 0d 17 de 18 c8 99  |=dragicon%......|
00002d90  20 26 30 30 30 34 30 30  43 45 2c 2c 62 6c 6f 63  | &000400CE,,bloc|
00002da0  6b 25 0d 17 e8 17 6f 6c  64 77 6f 72 6b 78 25 3d  |k%....oldworkx%=|
00002db0  62 6c 6f 63 6b 25 21 31  36 0d 17 f2 05 e1 0d 17  |block%!16.......|
00002dc0  fc 05 3a 0d 18 06 35 dd  f2 64 6f 73 6c 69 64 65  |..:...5..doslide|
00002dd0  28 77 69 6e 25 2c 64 72  61 67 69 63 6f 6e 25 2c  |(win%,dragicon%,|
00002de0  73 69 7a 65 69 63 6f 6e  25 2c 63 6f 6e 73 74 25  |sizeicon%,const%|
00002df0  2c 72 61 6e 67 65 25 29  0d 18 10 11 62 6c 6f 63  |,range%)....bloc|
00002e00  6b 25 21 30 3d 77 69 6e  25 0d 18 1a 16 62 6c 6f  |k%!0=win%....blo|
00002e10  63 6b 25 21 34 3d 73 69  7a 65 69 63 6f 6e 25 0d  |ck%!4=sizeicon%.|
00002e20  18 24 18 c8 99 20 26 30  30 30 34 30 30 43 45 2c  |.$... &000400CE,|
00002e30  2c 62 6c 6f 63 6b 25 0d  18 2e 16 73 69 7a 65 6d  |,block%....sizem|
00002e40  69 6e 78 25 3d 62 6c 6f  63 6b 25 21 38 0d 18 38  |inx%=block%!8..8|
00002e50  17 73 69 7a 65 6d 69 6e  79 25 3d 62 6c 6f 63 6b  |.sizeminy%=block|
00002e60  25 21 31 32 0d 18 42 17  73 69 7a 65 6d 61 78 78  |%!12..B.sizemaxx|
00002e70  25 3d 62 6c 6f 63 6b 25  21 31 36 0d 18 4c 17 73  |%=block%!16..L.s|
00002e80  69 7a 65 6d 61 78 79 25  3d 62 6c 6f 63 6b 25 21  |izemaxy%=block%!|
00002e90  32 30 0d 18 56 12 c8 97  20 6d 78 25 2c 6d 79 25  |20..V... mx%,my%|
00002ea0  2c 6d 62 25 0d 18 60 11  62 6c 6f 63 6b 25 21 30  |,mb%..`.block%!0|
00002eb0  3d 77 69 6e 25 0d 18 6a  18 c8 99 20 26 30 30 30  |=win%..j... &000|
00002ec0  34 30 30 43 43 2c 2c 62  6c 6f 63 6b 25 0d 18 74  |400CC,,block%..t|
00002ed0  12 6d 69 6e 78 25 3d 62  6c 6f 63 6b 25 21 34 0d  |.minx%=block%!4.|
00002ee0  18 7e 13 73 63 72 78 25  3d 62 6c 6f 63 6b 25 21  |.~.scrx%=block%!|
00002ef0  32 30 0d 18 88 1b 6e 65  77 78 25 3d 6d 78 25 2d  |20....newx%=mx%-|
00002f00  28 6d 69 6e 78 25 2d 73  63 72 78 25 29 0d 18 92  |(minx%-scrx%)...|
00002f10  18 e7 20 6e 65 77 78 25  3c 3e 6f 6c 64 77 6f 72  |.. newx%<>oldwor|
00002f20  6b 78 25 20 8c 0d 18 9c  11 62 6c 6f 63 6b 25 21  |kx% .....block%!|
00002f30  30 3d 77 69 6e 25 0d 18  a6 16 62 6c 6f 63 6b 25  |0=win%....block%|
00002f40  21 34 3d 64 72 61 67 69  63 6f 6e 25 0d 18 b0 18  |!4=dragicon%....|
00002f50  c8 99 20 26 30 30 30 34  30 30 43 45 2c 2c 62 6c  |.. &000400CE,,bl|
00002f60  6f 63 6b 25 0d 18 ba 13  62 6c 6f 63 6b 25 21 31  |ock%....block%!1|
00002f70  36 3d 6e 65 77 78 25 0d  18 c4 11 62 6c 6f 63 6b  |6=newx%....block|
00002f80  25 21 30 3d 77 69 6e 25  0d 18 ce 16 62 6c 6f 63  |%!0=win%....bloc|
00002f90  6b 25 21 34 3d 64 72 61  67 69 63 6f 6e 25 0d 18  |k%!4=dragicon%..|
00002fa0  d8 18 c8 99 20 26 30 30  30 34 30 30 43 34 2c 2c  |.... &000400C4,,|
00002fb0  62 6c 6f 63 6b 25 0d 18  e2 11 62 6c 6f 63 6b 25  |block%....block%|
00002fc0  21 34 3d 77 69 6e 25 0d  18 ec 1a c8 99 20 26 30  |!4=win%...... &0|
00002fd0  30 30 34 30 30 43 32 2c  2c 62 6c 6f 63 6b 25 2b  |00400C2,,block%+|
00002fe0  34 0d 18 f6 16 6e 65 77  62 6c 6f 63 6b 25 3d 62  |4....newblock%=b|
00002ff0  6c 6f 63 6b 25 2b 34 0d  19 00 17 e7 20 6f 6c 64  |lock%+4..... old|
00003000  77 6f 72 6b 78 25 3c 6e  65 77 78 25 20 8c 0d 19  |workx%<newx% ...|
00003010  0a 19 6e 65 77 62 6c 6f  63 6b 25 21 34 3d 73 69  |..newblock%!4=si|
00003020  7a 65 6d 69 6e 78 25 0d  19 14 05 cc 0d 19 1e 15  |zeminx%.........|
00003030  6e 65 77 62 6c 6f 63 6b  25 21 34 3d 6e 65 77 78  |newblock%!4=newx|
00003040  25 0d 19 28 05 cd 0d 19  32 19 6e 65 77 62 6c 6f  |%..(....2.newblo|
00003050  63 6b 25 21 38 3d 73 69  7a 65 6d 69 6e 79 25 0d  |ck%!8=sizeminy%.|
00003060  19 3c 17 e7 20 6f 6c 64  77 6f 72 6b 78 25 3e 6e  |.<.. oldworkx%>n|
00003070  65 77 78 25 20 8c 0d 19  46 1a 6e 65 77 62 6c 6f  |ewx% ...F.newblo|
00003080  63 6b 25 21 31 32 3d 73  69 7a 65 6d 61 78 78 25  |ck%!12=sizemaxx%|
00003090  0d 19 50 05 cc 0d 19 5a  16 6e 65 77 62 6c 6f 63  |..P....Z.newbloc|
000030a0  6b 25 21 31 32 3d 6e 65  77 78 25 0d 19 64 05 cd  |k%!12=newx%..d..|
000030b0  0d 19 6e 1a 6e 65 77 62  6c 6f 63 6b 25 21 31 36  |..n.newblock%!16|
000030c0  3d 73 69 7a 65 6d 61 78  79 25 0d 19 78 22 c8 99  |=sizemaxy%..x"..|
000030d0  20 26 30 30 30 34 30 30  43 39 2c 2c 6e 65 77 62  | &000400C9,,newb|
000030e0  6c 6f 63 6b 25 20 b8 20  66 6c 61 67 0d 19 82 0b  |lock% . flag....|
000030f0  c8 95 20 66 6c 61 67 0d  19 8c 22 c8 99 20 26 30  |.. flag...".. &0|
00003100  30 30 34 30 30 43 41 2c  2c 6e 65 77 62 6c 6f 63  |00400CA,,newbloc|
00003110  6b 25 20 b8 20 66 6c 61  67 0d 19 96 05 ce 0d 19  |k% . flag.......|
00003120  a0 0e e7 20 63 6f 6e 73  74 25 20 8c 0d 19 aa 1d  |... const% .....|
00003130  73 69 7a 65 25 3d 73 69  7a 65 6d 61 78 78 25 2d  |size%=sizemaxx%-|
00003140  73 69 7a 65 6d 69 6e 78  25 0d 19 b4 1b 70 70 6f  |sizeminx%....ppo|
00003150  73 25 3d 28 6e 65 77 78  25 2d 73 69 7a 65 6d 69  |s%=(newx%-sizemi|
00003160  6e 78 25 29 0d 19 be 20  6e 75 6d 62 65 72 25 3d  |nx%)... number%=|
00003170  28 72 61 6e 67 65 25 2f  73 69 7a 65 25 29 2a 70  |(range%/size%)*p|
00003180  70 6f 73 25 0d 19 c8 05  3a 0d 19 d2 13 c8 8e 20  |pos%....:...... |
00003190  73 6c 69 64 65 69 63 6f  6e 25 20 ca 0d 19 dc 07  |slideicon% .....|
000031a0  c9 20 37 0d 19 e6 26 f2  69 63 6f 6e 70 75 74 74  |. 7...&.iconputt|
000031b0  65 78 74 28 73 74 65 70  25 2c 33 2c c3 28 6e 75  |ext(step%,3,.(nu|
000031c0  6d 62 65 72 25 2b 31 29  29 0d 19 f0 08 c9 20 31  |mber%+1))..... 1|
000031d0  34 0d 19 fa 27 f2 69 63  6f 6e 70 75 74 74 65 78  |4...'.iconputtex|
000031e0  74 28 73 74 65 70 25 2c  31 30 2c c3 28 6e 75 6d  |t(step%,10,.(num|
000031f0  62 65 72 25 2b 31 29 29  0d 1a 04 05 cd 0d 1a 0e  |ber%+1))........|
00003200  05 cb 0d 1a 18 05 cd 0d  1a 22 13 6f 6c 64 77 6f  |.........".oldwo|
00003210  72 6b 78 25 3d 6e 65 77  78 25 0d 1a 2c 05 cd 0d  |rkx%=newx%..,...|
00003220  1a 36 12 72 72 61 6e 67  65 25 3d 72 61 6e 67 65  |.6.rrange%=range|
00003230  25 0d 1a 40 05 e1 0d 1a  4a 05 3a 0d 1a 54 35 dd  |%..@....J.:..T5.|
00003240  f2 73 65 74 62 61 72 28  77 69 6e 25 2c 64 72 61  |.setbar(win%,dra|
00003250  67 69 63 6f 6e 25 2c 73  69 7a 65 69 63 6f 6e 25  |gicon%,sizeicon%|
00003260  2c 72 61 6e 67 65 25 2c  6e 75 6d 62 65 72 25 29  |,range%,number%)|
00003270  0d 1a 5e 1b e7 20 6e 75  6d 62 65 72 25 3c 30 20  |..^.. number%<0 |
00003280  8c 20 6e 75 6d 62 65 72  25 3d 30 0d 1a 68 25 e7  |. number%=0..h%.|
00003290  20 6e 75 6d 62 65 72 25  3e 72 61 6e 67 65 25 20  | number%>range% |
000032a0  8c 20 6e 75 6d 62 65 72  25 3d 72 61 6e 67 65 25  |. number%=range%|
000032b0  0d 1a 72 11 62 6c 6f 63  6b 25 21 30 3d 77 69 6e  |..r.block%!0=win|
000032c0  25 0d 1a 7c 16 62 6c 6f  63 6b 25 21 34 3d 73 69  |%..|.block%!4=si|
000032d0  7a 65 69 63 6f 6e 25 0d  1a 86 18 c8 99 20 26 30  |zeicon%...... &0|
000032e0  30 30 34 30 30 43 45 2c  2c 62 6c 6f 63 6b 25 0d  |00400CE,,block%.|
000032f0  1a 90 16 73 69 7a 65 6d  69 6e 78 25 3d 62 6c 6f  |...sizeminx%=blo|
00003300  63 6b 25 21 38 0d 1a 9a  17 73 69 7a 65 6d 69 6e  |ck%!8....sizemin|
00003310  79 25 3d 62 6c 6f 63 6b  25 21 31 32 0d 1a a4 17  |y%=block%!12....|
00003320  73 69 7a 65 6d 61 78 78  25 3d 62 6c 6f 63 6b 25  |sizemaxx%=block%|
00003330  21 31 36 0d 1a ae 17 73  69 7a 65 6d 61 78 79 25  |!16....sizemaxy%|
00003340  3d 62 6c 6f 63 6b 25 21  32 30 0d 1a b8 3c 6e 65  |=block%!20...<ne|
00003350  77 78 25 3d 73 69 7a 65  6d 69 6e 78 25 2b 28 6e  |wx%=sizeminx%+(n|
00003360  75 6d 62 65 72 25 2f 28  72 61 6e 67 65 25 2f 28  |umber%/(range%/(|
00003370  73 69 7a 65 6d 61 78 78  25 2d 73 69 7a 65 6d 69  |sizemaxx%-sizemi|
00003380  6e 78 25 29 29 29 0d 1a  c2 11 62 6c 6f 63 6b 25  |nx%)))....block%|
00003390  21 30 3d 77 69 6e 25 0d  1a cc 16 62 6c 6f 63 6b  |!0=win%....block|
000033a0  25 21 34 3d 64 72 61 67  69 63 6f 6e 25 0d 1a d6  |%!4=dragicon%...|
000033b0  18 c8 99 20 26 30 30 30  34 30 30 43 45 2c 2c 62  |... &000400CE,,b|
000033c0  6c 6f 63 6b 25 0d 1a e0  13 62 6c 6f 63 6b 25 21  |lock%....block%!|
000033d0  31 36 3d 6e 65 77 78 25  0d 1a ea 11 62 6c 6f 63  |16=newx%....bloc|
000033e0  6b 25 21 30 3d 77 69 6e  25 0d 1a f4 16 62 6c 6f  |k%!0=win%....blo|
000033f0  63 6b 25 21 34 3d 64 72  61 67 69 63 6f 6e 25 0d  |ck%!4=dragicon%.|
00003400  1a fe 18 c8 99 20 26 30  30 30 34 30 30 43 34 2c  |..... &000400C4,|
00003410  2c 62 6c 6f 63 6b 25 0d  1b 08 11 62 6c 6f 63 6b  |,block%....block|
00003420  25 21 34 3d 77 69 6e 25  0d 1b 12 1a c8 99 20 26  |%!4=win%...... &|
00003430  30 30 30 34 30 30 43 32  2c 2c 62 6c 6f 63 6b 25  |000400C2,,block%|
00003440  2b 34 0d 1b 1c 16 6e 65  77 62 6c 6f 63 6b 25 3d  |+4....newblock%=|
00003450  62 6c 6f 63 6b 25 2b 34  0d 1b 26 19 6e 65 77 62  |block%+4..&.newb|
00003460  6c 6f 63 6b 25 21 34 3d  73 69 7a 65 6d 69 6e 78  |lock%!4=sizeminx|
00003470  25 0d 1b 30 19 6e 65 77  62 6c 6f 63 6b 25 21 38  |%..0.newblock%!8|
00003480  3d 73 69 7a 65 6d 69 6e  79 25 0d 1b 3a 1a 6e 65  |=sizeminy%..:.ne|
00003490  77 62 6c 6f 63 6b 25 21  31 32 3d 73 69 7a 65 6d  |wblock%!12=sizem|
000034a0  61 78 78 25 0d 1b 44 1a  6e 65 77 62 6c 6f 63 6b  |axx%..D.newblock|
000034b0  25 21 31 36 3d 73 69 7a  65 6d 61 78 79 25 0d 1b  |%!16=sizemaxy%..|
000034c0  4e 22 c8 99 20 26 30 30  30 34 30 30 43 39 2c 2c  |N".. &000400C9,,|
000034d0  6e 65 77 62 6c 6f 63 6b  25 20 b8 20 66 6c 61 67  |newblock% . flag|
000034e0  0d 1b 58 0b c8 95 20 66  6c 61 67 0d 1b 62 22 c8  |..X... flag..b".|
000034f0  99 20 26 30 30 30 34 30  30 43 41 2c 2c 6e 65 77  |. &000400CA,,new|
00003500  62 6c 6f 63 6b 25 20 b8  20 66 6c 61 67 0d 1b 6c  |block% . flag..l|
00003510  05 ce 0d 1b 76 13 6f 6c  64 77 6f 72 6b 78 25 3d  |....v.oldworkx%=|
00003520  6e 65 77 78 25 0d 1b 80  05 e1 0d 1b 8a 05 3a 0d  |newx%.........:.|
00003530  1b 94 32 dd a4 67 65 74  62 61 72 76 61 6c 75 65  |..2..getbarvalue|
00003540  28 77 69 6e 25 2c 64 72  61 67 69 63 6f 6e 25 2c  |(win%,dragicon%,|
00003550  73 69 7a 65 69 63 6f 6e  25 2c 72 61 6e 67 65 25  |sizeicon%,range%|
00003560  29 0d 1b 9e 11 62 6c 6f  63 6b 25 21 30 3d 77 69  |)....block%!0=wi|
00003570  6e 25 0d 1b a8 16 62 6c  6f 63 6b 25 21 34 3d 73  |n%....block%!4=s|
00003580  69 7a 65 69 63 6f 6e 25  0d 1b b2 18 c8 99 20 26  |izeicon%...... &|
00003590  30 30 30 34 30 30 43 45  2c 2c 62 6c 6f 63 6b 25  |000400CE,,block%|
000035a0  0d 1b bc 16 73 69 7a 65  6d 69 6e 78 25 3d 62 6c  |....sizeminx%=bl|
000035b0  6f 63 6b 25 21 38 0d 1b  c6 17 73 69 7a 65 6d 61  |ock%!8....sizema|
000035c0  78 78 25 3d 62 6c 6f 63  6b 25 21 31 36 0d 1b d0  |xx%=block%!16...|
000035d0  11 62 6c 6f 63 6b 25 21  30 3d 77 69 6e 25 0d 1b  |.block%!0=win%..|
000035e0  da 16 62 6c 6f 63 6b 25  21 34 3d 64 72 61 67 69  |..block%!4=dragi|
000035f0  63 6f 6e 25 0d 1b e4 18  c8 99 20 26 30 30 30 34  |con%...... &0004|
00003600  30 30 43 45 2c 2c 62 6c  6f 63 6b 25 0d 1b ee 38  |00CE,,block%...8|
00003610  3d 28 72 61 6e 67 65 25  2f 28 73 69 7a 65 6d 61  |=(range%/(sizema|
00003620  78 78 25 2d 73 69 7a 65  6d 69 6e 78 25 29 29 2a  |xx%-sizeminx%))*|
00003630  28 62 6c 6f 63 6b 25 21  31 36 2d 62 6c 6f 63 6b  |(block%!16-block|
00003640  25 21 38 29 0d 1b f8 05  3a 0d 1c 02 0e dd f2 6f  |%!8)....:......o|
00003650  70 65 6e 73 74 65 70 0d  1c 0c 1a f2 73 65 74 62  |penstep.....setb|
00003660  61 72 28 73 74 65 70 25  2c 37 2c 36 2c 39 2c 78  |ar(step%,7,6,9,x|
00003670  29 0d 1c 16 1c f2 73 65  74 62 61 72 28 73 74 65  |).....setbar(ste|
00003680  70 25 2c 31 34 2c 31 33  2c 39 2c 79 29 0d 1c 20  |p%,14,13,9,y).. |
00003690  20 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 73 74  | .iconputtext(st|
000036a0  65 70 25 2c 33 2c c3 28  78 2b 31 29 29 0d 1c 2a  |ep%,3,.(x+1))..*|
000036b0  21 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 73 74  |!.iconputtext(st|
000036c0  65 70 25 2c 31 30 2c c3  28 79 2b 31 29 29 0d 1c  |ep%,10,.(y+1))..|
000036d0  34 10 c8 97 20 88 20 78  2b 31 2c 79 2b 31 0d 1c  |4... . x+1,y+1..|
000036e0  3e 18 e7 20 ac 20 a4 69  73 6f 70 65 6e 28 73 74  |>.. . .isopen(st|
000036f0  65 70 25 29 20 8c 0d 1c  48 18 f2 63 65 6e 74 72  |ep%) ...H..centr|
00003700  65 77 69 6e 64 6f 77 28  73 74 65 70 25 29 0d 1c  |ewindow(step%)..|
00003710  52 05 cc 0d 1c 5c 0f f2  74 6f 70 28 73 74 65 70  |R....\..top(step|
00003720  25 29 0d 1c 66 05 cd 0d  1c 70 05 e1 0d 1c 7a 05  |%)..f....p....z.|
00003730  3a 0d 1c 84 14 dd f2 63  6c 69 63 6b 73 74 65 70  |:......clickstep|
00003740  28 69 63 25 29 0d 1c 8e  0c c8 8e 20 69 63 25 20  |(ic%)...... ic% |
00003750  ca 0d 1c 98 08 c9 20 31  37 0d 1c a2 09 75 78 31  |...... 17....ux1|
00003760  3d 78 0d 1c ac 09 75 79  31 3d 79 0d 1c b6 08 c9  |=x....uy1=y.....|
00003770  20 31 39 0d 1c c0 09 75  78 32 3d 78 0d 1c ca 09  | 19....ux2=x....|
00003780  75 79 32 3d 79 0d 1c d4  08 c9 20 31 36 0d 1c de  |uy2=y..... 16...|
00003790  09 78 3d 75 78 31 0d 1c  e8 09 79 3d 75 79 31 0d  |.x=ux1....y=uy1.|
000037a0  1c f2 1a f2 73 65 74 62  61 72 28 73 74 65 70 25  |....setbar(step%|
000037b0  2c 37 2c 36 2c 39 2c 78  29 0d 1c fc 20 f2 69 63  |,7,6,9,x)... .ic|
000037c0  6f 6e 70 75 74 74 65 78  74 28 73 74 65 70 25 2c  |onputtext(step%,|
000037d0  33 2c c3 28 78 2b 31 29  29 0d 1d 06 1c f2 73 65  |3,.(x+1)).....se|
000037e0  74 62 61 72 28 73 74 65  70 25 2c 31 34 2c 31 33  |tbar(step%,14,13|
000037f0  2c 39 2c 79 29 0d 1d 10  21 f2 69 63 6f 6e 70 75  |,9,y)...!.iconpu|
00003800  74 74 65 78 74 28 73 74  65 70 25 2c 31 30 2c c3  |ttext(step%,10,.|
00003810  28 79 2b 31 29 29 0d 1d  1a 10 c8 97 20 88 20 78  |(y+1))...... . x|
00003820  2b 31 2c 79 2b 31 0d 1d  24 08 c9 20 32 30 0d 1d  |+1,y+1..$.. 20..|
00003830  2e 09 78 3d 75 78 32 0d  1d 38 09 79 3d 75 79 32  |..x=ux2..8.y=uy2|
00003840  0d 1d 42 1a f2 73 65 74  62 61 72 28 73 74 65 70  |..B..setbar(step|
00003850  25 2c 37 2c 36 2c 39 2c  78 29 0d 1d 4c 20 f2 69  |%,7,6,9,x)..L .i|
00003860  63 6f 6e 70 75 74 74 65  78 74 28 73 74 65 70 25  |conputtext(step%|
00003870  2c 33 2c c3 28 78 2b 31  29 29 0d 1d 56 1c f2 73  |,3,.(x+1))..V..s|
00003880  65 74 62 61 72 28 73 74  65 70 25 2c 31 34 2c 31  |etbar(step%,14,1|
00003890  33 2c 39 2c 79 29 0d 1d  60 21 f2 69 63 6f 6e 70  |3,9,y)..`!.iconp|
000038a0  75 74 74 65 78 74 28 73  74 65 70 25 2c 31 30 2c  |uttext(step%,10,|
000038b0  c3 28 79 2b 31 29 29 0d  1d 6a 10 c8 97 20 88 20  |.(y+1))..j... . |
000038c0  78 2b 31 2c 79 2b 31 0d  1d 74 07 c9 20 34 0d 1d  |x+1,y+1..t.. 4..|
000038d0  7e 08 78 2d 3d 31 0d 1d  88 0f e7 20 78 3c 30 20  |~.x-=1..... x<0 |
000038e0  8c 20 78 3d 30 0d 1d 92  1a f2 73 65 74 62 61 72  |. x=0.....setbar|
000038f0  28 73 74 65 70 25 2c 37  2c 36 2c 39 2c 78 29 0d  |(step%,7,6,9,x).|
00003900  1d 9c 20 f2 69 63 6f 6e  70 75 74 74 65 78 74 28  |.. .iconputtext(|
00003910  73 74 65 70 25 2c 33 2c  c3 28 78 2b 31 29 29 0d  |step%,3,.(x+1)).|
00003920  1d a6 10 c8 97 20 88 20  78 2b 31 2c 79 2b 31 0d  |..... . x+1,y+1.|
00003930  1d b0 07 c9 20 38 0d 1d  ba 08 78 2b 3d 31 0d 1d  |.... 8....x+=1..|
00003940  c4 0f e7 20 78 3e 39 20  8c 20 78 3d 39 0d 1d ce  |... x>9 . x=9...|
00003950  1a f2 73 65 74 62 61 72  28 73 74 65 70 25 2c 37  |..setbar(step%,7|
00003960  2c 36 2c 39 2c 78 29 0d  1d d8 20 f2 69 63 6f 6e  |,6,9,x)... .icon|
00003970  70 75 74 74 65 78 74 28  73 74 65 70 25 2c 33 2c  |puttext(step%,3,|
00003980  c3 28 78 2b 31 29 29 0d  1d e2 10 c8 97 20 88 20  |.(x+1))...... . |
00003990  78 2b 31 2c 79 2b 31 0d  1d ec 08 c9 20 31 31 0d  |x+1,y+1..... 11.|
000039a0  1d f6 08 79 2d 3d 31 0d  1e 00 0f e7 20 79 3c 30  |...y-=1..... y<0|
000039b0  20 8c 20 79 3d 30 0d 1e  0a 1c f2 73 65 74 62 61  | . y=0.....setba|
000039c0  72 28 73 74 65 70 25 2c  31 34 2c 31 33 2c 39 2c  |r(step%,14,13,9,|
000039d0  79 29 0d 1e 14 21 f2 69  63 6f 6e 70 75 74 74 65  |y)...!.iconputte|
000039e0  78 74 28 73 74 65 70 25  2c 31 30 2c c3 28 79 2b  |xt(step%,10,.(y+|
000039f0  31 29 29 0d 1e 1e 10 c8  97 20 88 20 78 2b 31 2c  |1))...... . x+1,|
00003a00  79 2b 31 0d 1e 28 08 c9  20 31 35 0d 1e 32 08 79  |y+1..(.. 15..2.y|
00003a10  2b 3d 31 0d 1e 3c 0f e7  20 79 3e 39 20 8c 20 79  |+=1..<.. y>9 . y|
00003a20  3d 39 0d 1e 46 1c f2 73  65 74 62 61 72 28 73 74  |=9..F..setbar(st|
00003a30  65 70 25 2c 31 34 2c 31  33 2c 39 2c 79 29 0d 1e  |ep%,14,13,9,y)..|
00003a40  50 21 f2 69 63 6f 6e 70  75 74 74 65 78 74 28 73  |P!.iconputtext(s|
00003a50  74 65 70 25 2c 31 30 2c  c3 28 79 2b 31 29 29 0d  |tep%,10,.(y+1)).|
00003a60  1e 5a 10 c8 97 20 88 20  78 2b 31 2c 79 2b 31 0d  |.Z... . x+1,y+1.|
00003a70  1e 64 09 c9 20 37 2c 36  0d 1e 6e 1e f2 64 72 61  |.d.. 7,6..n..dra|
00003a80  67 73 6c 69 64 65 72 69  63 6f 6e 28 73 74 65 70  |gslidericon(step|
00003a90  25 2c 37 2c 36 29 0d 1e  78 0b c9 20 31 34 2c 31  |%,7,6)..x.. 14,1|
00003aa0  33 0d 1e 82 20 f2 64 72  61 67 73 6c 69 64 65 72  |3... .dragslider|
00003ab0  69 63 6f 6e 28 73 74 65  70 25 2c 31 34 2c 31 33  |icon(step%,14,13|
00003ac0  29 0d 1e 8c 08 c9 20 31  38 0d 1e 96 07 78 3d 31  |)..... 18....x=1|
00003ad0  0d 1e a0 07 79 3d 31 0d  1e aa 1a f2 73 65 74 62  |....y=1.....setb|
00003ae0  61 72 28 73 74 65 70 25  2c 37 2c 36 2c 39 2c 78  |ar(step%,7,6,9,x|
00003af0  29 0d 1e b4 1c f2 73 65  74 62 61 72 28 73 74 65  |).....setbar(ste|
00003b00  70 25 2c 31 34 2c 31 33  2c 39 2c 79 29 0d 1e be  |p%,14,13,9,y)...|
00003b10  20 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 73 74  | .iconputtext(st|
00003b20  65 70 25 2c 33 2c c3 28  78 2b 31 29 29 0d 1e c8  |ep%,3,.(x+1))...|
00003b30  21 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 73 74  |!.iconputtext(st|
00003b40  65 70 25 2c 31 30 2c c3  28 79 2b 31 29 29 0d 1e  |ep%,10,.(y+1))..|
00003b50  d2 10 c8 97 20 88 20 78  2b 31 2c 79 2b 31 0d 1e  |.... . x+1,y+1..|
00003b60  dc 05 cb 0d 1e e6 05 e1  0d 1e f0 05 3a 0d 1e fa  |............:...|
00003b70  18 dd f2 63 65 6e 74 72  65 77 69 6e 64 6f 77 28  |...centrewindow(|
00003b80  77 69 6e 25 29 0d 1f 04  23 c8 99 20 26 30 30 30  |win%)...#.. &000|
00003b90  30 30 30 33 35 2c eb 2c  31 31 20 b8 20 2c 2c 78  |00035,.,11 . ,,x|
00003ba0  70 69 78 6c 69 6d 69 74  0d 1f 0e 23 c8 99 20 26  |pixlimit...#.. &|
00003bb0  30 30 30 30 30 30 33 35  2c eb 2c 31 32 20 b8 20  |00000035,.,12 . |
00003bc0  2c 2c 79 70 69 78 6c 69  6d 69 74 0d 1f 18 1e c8  |,,ypixlimit.....|
00003bd0  99 20 26 30 30 30 30 30  30 33 35 2c eb 2c 34 20  |. &00000035,.,4 |
00003be0  b8 20 2c 2c 78 66 61 63  74 0d 1f 22 1e c8 99 20  |. ,,xfact.."... |
00003bf0  26 30 30 30 30 30 30 33  35 2c eb 2c 35 20 b8 20  |&00000035,.,5 . |
00003c00  2c 2c 79 66 61 63 74 0d  1f 2c 1d 6d 61 78 58 3d  |,,yfact..,.maxX=|
00003c10  28 78 70 69 78 6c 69 6d  69 74 2b 31 29 3c 3c 78  |(xpixlimit+1)<<x|
00003c20  66 61 63 74 0d 1f 36 1d  6d 61 78 59 3d 28 79 70  |fact..6.maxY=(yp|
00003c30  69 78 6c 69 6d 69 74 2b  31 29 3c 3c 79 66 61 63  |ixlimit+1)<<yfac|
00003c40  74 0d 1f 40 05 3a 0d 1f  4a 11 62 6c 6f 63 6b 25  |t..@.:..J.block%|
00003c50  21 30 3d 77 69 6e 25 0d  1f 54 18 c8 99 20 26 30  |!0=win%..T... &0|
00003c60  30 30 34 30 30 43 42 2c  2c 62 6c 6f 63 6b 25 0d  |00400CB,,block%.|
00003c70  1f 5e 05 3a 0d 1f 68 1a  77 78 25 3d 62 6c 6f 63  |.^.:..h.wx%=bloc|
00003c80  6b 25 21 31 32 2d 62 6c  6f 63 6b 25 21 34 0d 1f  |k%!12-block%!4..|
00003c90  72 10 77 78 32 25 3d 77  78 25 20 81 20 32 0d 1f  |r.wx2%=wx% . 2..|
00003ca0  7c 0f 63 58 3d 6d 61 78  58 20 81 20 32 0d 1f 86  ||.cX=maxX . 2...|
00003cb0  14 62 6c 6f 63 6b 25 21  34 3d 63 58 2d 77 78 32  |.block%!4=cX-wx2|
00003cc0  25 0d 1f 90 20 e7 20 77  69 6e 25 3d 6b 65 79 73  |%... . win%=keys|
00003cd0  25 20 8c 20 62 6c 6f 63  6b 25 21 34 2d 3d 31 32  |% . block%!4-=12|
00003ce0  38 0d 1f 9a 1a 62 6c 6f  63 6b 25 21 31 32 3d 62  |8....block%!12=b|
00003cf0  6c 6f 63 6b 25 21 34 2b  77 78 25 0d 1f a4 1a 77  |lock%!4+wx%....w|
00003d00  79 25 3d 62 6c 6f 63 6b  25 21 31 36 2d 62 6c 6f  |y%=block%!16-blo|
00003d10  63 6b 25 21 38 0d 1f ae  10 77 79 32 25 3d 77 79  |ck%!8....wy2%=wy|
00003d20  25 20 81 20 32 0d 1f b8  0f 63 59 3d 6d 61 78 59  |% . 2....cY=maxY|
00003d30  20 81 20 32 0d 1f c2 14  62 6c 6f 63 6b 25 21 38  | . 2....block%!8|
00003d40  3d 63 59 2d 77 79 32 25  0d 1f cc 1a 62 6c 6f 63  |=cY-wy2%....bloc|
00003d50  6b 25 21 31 36 3d 62 6c  6f 63 6b 25 21 38 2b 77  |k%!16=block%!8+w|
00003d60  79 25 0d 1f d6 05 3a 0d  1f e0 18 c8 99 20 26 30  |y%....:...... &0|
00003d70  30 30 34 30 30 43 35 2c  2c 62 6c 6f 63 6b 25 0d  |00400C5,,block%.|
00003d80  1f ea 05 e1 0d 1f f4 05  3a 0d 1f fe 1b dd f2 73  |........:......s|
00003d90  65 74 28 6c 2c 72 2c 75  2c 64 2c 62 6c 2c 62 6d  |et(l,r,u,d,bl,bm|
00003da0  2c 62 72 29 0d 20 08 07  ea 20 85 0d 20 12 66 ee  |,br). ... .. .f.|
00003db0  20 85 20 ea 20 f2 61 6c  65 72 74 28 22 4d 65 73  | . . .alert("Mes|
00003dc0  73 61 67 65 20 66 72 6f  6d 20 52 6f 64 65 6e 74  |sage from Rodent|
00003dd0  22 2c 22 49 20 63 61 6e  74 20 66 69 6e 64 20 74  |","I cant find t|
00003de0  68 65 20 4d 6f 75 73 65  43 54 52 4c 20 6d 6f 64  |he MouseCTRL mod|
00003df0  75 6c 65 2e 20 53 65 74  74 69 6e 67 73 20 69 67  |ule. Settings ig|
00003e00  6e 6f 72 65 64 2e 22 2c  25 31 30 30 30 31 29 3a  |nored.",%10001):|
00003e10  e1 0d 20 1c 26 ff 28 22  53 45 54 45 56 41 4c 20  |.. .&.("SETEVAL |
00003e20  4d 6f 75 73 65 43 54 52  4c 24 4c 65 66 74 20 22  |MouseCTRL$Left "|
00003e30  2b c3 28 62 6c 29 29 0d  20 26 27 ff 28 22 53 45  |+.(bl)). &'.("SE|
00003e40  54 45 56 41 4c 20 4d 6f  75 73 65 43 54 52 4c 24  |TEVAL MouseCTRL$|
00003e50  52 69 67 68 74 20 22 2b  c3 28 62 72 29 29 0d 20  |Right "+.(br)). |
00003e60  30 28 ff 28 22 53 45 54  45 56 41 4c 20 4d 6f 75  |0(.("SETEVAL Mou|
00003e70  73 65 43 54 52 4c 24 4d  69 64 64 6c 65 20 22 2b  |seCTRL$Middle "+|
00003e80  c3 28 62 6d 29 29 0d 20  3a 26 ff 28 22 53 45 54  |.(bm)). :&.("SET|
00003e90  45 56 41 4c 20 4d 6f 75  73 65 43 54 52 4c 24 43  |EVAL MouseCTRL$C|
00003ea0  4c 65 66 74 20 22 2b c3  28 6c 29 29 0d 20 44 27  |Left "+.(l)). D'|
00003eb0  ff 28 22 53 45 54 45 56  41 4c 20 4d 6f 75 73 65  |.("SETEVAL Mouse|
00003ec0  43 54 52 4c 24 43 52 69  67 68 74 20 22 2b c3 28  |CTRL$CRight "+.(|
00003ed0  72 29 29 0d 20 4e 24 ff  28 22 53 45 54 45 56 41  |r)). N$.("SETEVA|
00003ee0  4c 20 4d 6f 75 73 65 43  54 52 4c 24 43 55 70 20  |L MouseCTRL$CUp |
00003ef0  22 2b c3 28 75 29 29 0d  20 58 26 ff 28 22 53 45  |"+.(u)). X&.("SE|
00003f00  54 45 56 41 4c 20 4d 6f  75 73 65 43 54 52 4c 24  |TEVAL MouseCTRL$|
00003f10  43 44 6f 77 6e 20 22 2b  c3 28 64 29 29 0d 20 62  |CDown "+.(d)). b|
00003f20  1b ff 28 22 52 4d 52 45  49 4e 49 54 20 4d 6f 75  |..("RMREINIT Mou|
00003f30  73 65 43 54 52 4c 22 29  0d 20 6c 05 e1 0d 20 76  |seCTRL"). l... v|
00003f40  05 3a 0d 20 80 0e dd f2  6f 70 65 6e 6b 65 79 73  |.:. ....openkeys|
00003f50  0d 20 8a 0d f2 73 65 74  69 63 6f 6e 73 0d 20 94  |. ...seticons. .|
00003f60  1b f2 64 6f 73 65 74 74  69 6e 67 69 63 6f 6e 28  |..dosettingicon(|
00003f70  73 65 74 74 69 6e 67 29  0d 20 9e 18 e7 20 ac 20  |setting). ... . |
00003f80  a4 69 73 6f 70 65 6e 28  6b 65 79 73 25 29 20 8c  |.isopen(keys%) .|
00003f90  0d 20 a8 18 f2 63 65 6e  74 72 65 77 69 6e 64 6f  |. ...centrewindo|
00003fa0  77 28 6b 65 79 73 25 29  0d 20 b2 16 f2 6f 70 65  |w(keys%). ...ope|
00003fb0  6e 77 69 6e 64 6f 77 28  6b 65 79 73 25 29 0d 20  |nwindow(keys%). |
00003fc0  bc 16 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 6b 65  |...openwindow(ke|
00003fd0  79 73 25 29 0d 20 c6 05  cc 0d 20 d0 0f f2 74 6f  |ys%). .... ...to|
00003fe0  70 28 6b 65 79 73 25 29  0d 20 da 16 f2 6f 70 65  |p(keys%). ...ope|
00003ff0  6e 77 69 6e 64 6f 77 28  6b 65 79 73 25 29 0d 20  |nwindow(keys%). |
00004000  e4 16 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 6b 65  |...openwindow(ke|
00004010  79 73 25 29 0d 20 ee 05  cd 0d 20 f8 05 e1 0d 21  |ys%). .... ....!|
00004020  02 05 3a 0d 21 0c 0e dd  f2 73 65 74 69 63 6f 6e  |..:.!....seticon|
00004030  73 0d 21 16 21 f2 73 65  74 76 61 6c 69 64 28 6b  |s.!.!.setvalid(k|
00004040  65 79 73 25 2c 6d 6f 75  73 65 75 70 2c 22 52 32  |eys%,mouseup,"R2|
00004050  22 29 0d 21 20 24 f2 63  68 61 6e 67 65 62 63 6f  |").! $.changebco|
00004060  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00004070  75 70 2c 31 34 29 0d 21  2a 23 f2 73 65 74 76 61  |up,14).!*#.setva|
00004080  6c 69 64 28 6b 65 79 73  25 2c 6d 6f 75 73 65 64  |lid(keys%,moused|
00004090  6f 77 6e 2c 22 52 32 22  29 0d 21 34 26 f2 63 68  |own,"R2").!4&.ch|
000040a0  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
000040b0  25 2c 6d 6f 75 73 65 64  6f 77 6e 2c 31 34 29 0d  |%,mousedown,14).|
000040c0  21 3e 23 f2 73 65 74 76  61 6c 69 64 28 6b 65 79  |!>#.setvalid(key|
000040d0  73 25 2c 6d 6f 75 73 65  6c 65 66 74 2c 22 52 32  |s%,mouseleft,"R2|
000040e0  22 29 0d 21 48 26 f2 63  68 61 6e 67 65 62 63 6f  |").!H&.changebco|
000040f0  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00004100  6c 65 66 74 2c 31 34 29  0d 21 52 24 f2 73 65 74  |left,14).!R$.set|
00004110  76 61 6c 69 64 28 6b 65  79 73 25 2c 6d 6f 75 73  |valid(keys%,mous|
00004120  65 72 69 67 68 74 2c 22  52 32 22 29 0d 21 5c 27  |eright,"R2").!\'|
00004130  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
00004140  65 79 73 25 2c 6d 6f 75  73 65 72 69 67 68 74 2c  |eys%,mouseright,|
00004150  31 34 29 0d 21 66 25 f2  73 65 74 76 61 6c 69 64  |14).!f%.setvalid|
00004160  28 6b 65 79 73 25 2c 6d  6f 75 73 65 73 65 6c 65  |(keys%,mousesele|
00004170  63 74 2c 22 52 32 22 29  0d 21 70 28 f2 63 68 61  |ct,"R2").!p(.cha|
00004180  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00004190  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 31 34 29  |,mouseselect,14)|
000041a0  0d 21 7a 23 f2 73 65 74  76 61 6c 69 64 28 6b 65  |.!z#.setvalid(ke|
000041b0  79 73 25 2c 6d 6f 75 73  65 6d 65 6e 75 2c 22 52  |ys%,mousemenu,"R|
000041c0  32 22 29 0d 21 84 26 f2  63 68 61 6e 67 65 62 63  |2").!.&.changebc|
000041d0  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000041e0  65 6d 65 6e 75 2c 31 34  29 0d 21 8e 25 f2 73 65  |emenu,14).!.%.se|
000041f0  74 76 61 6c 69 64 28 6b  65 79 73 25 2c 6d 6f 75  |tvalid(keys%,mou|
00004200  73 65 61 64 6a 75 73 74  2c 22 52 32 22 29 0d 21  |seadjust,"R2").!|
00004210  98 28 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.(.changebcolour|
00004220  28 6b 65 79 73 25 2c 6d  6f 75 73 65 61 64 6a 75  |(keys%,mouseadju|
00004230  73 74 2c 31 34 29 0d 21  a2 05 e1 0d 21 ac 05 3a  |st,14).!....!..:|
00004240  0d 21 b6 16 dd f2 64 6f  73 65 74 74 69 6e 67 69  |.!....dosettingi|
00004250  63 6f 6e 28 73 29 0d 21  c0 0a c8 8e 20 73 20 ca  |con(s).!.... s .|
00004260  0d 21 ca 08 c9 20 2d 31  0d 21 d4 2d f2 69 63 6f  |.!... -1.!.-.ico|
00004270  6e 70 75 74 74 65 78 74  28 6d 6f 75 73 65 25 2c  |nputtext(mouse%,|
00004280  31 31 2c 22 53 65 74 74  69 6e 67 20 6e 6f 74 68  |11,"Setting noth|
00004290  69 6e 67 22 29 0d 21 de  07 c9 20 31 0d 21 e8 2c  |ing").!... 1.!.,|
000042a0  f2 69 63 6f 6e 70 75 74  74 65 78 74 28 6d 6f 75  |.iconputtext(mou|
000042b0  73 65 25 2c 31 31 2c 22  53 65 74 74 69 6e 67 20  |se%,11,"Setting |
000042c0  73 65 6c 65 63 74 22 29  0d 21 f2 28 f2 63 68 61  |select").!.(.cha|
000042d0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000042e0  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 31 30 29  |,mouseselect,10)|
000042f0  0d 21 fc 26 f2 63 68 61  6e 67 65 62 63 6f 6c 6f  |.!.&.changebcolo|
00004300  75 72 28 6b 65 79 73 25  2c 6d 6f 75 73 65 6d 65  |ur(keys%,mouseme|
00004310  6e 75 2c 31 34 29 0d 22  06 28 f2 63 68 61 6e 67  |nu,14).".(.chang|
00004320  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00004330  6f 75 73 65 61 64 6a 75  73 74 2c 31 34 29 0d 22  |ouseadjust,14)."|
00004340  10 24 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.$.changebcolour|
00004350  28 6b 65 79 73 25 2c 6d  6f 75 73 65 75 70 2c 31  |(keys%,mouseup,1|
00004360  34 29 0d 22 1a 26 f2 63  68 61 6e 67 65 62 63 6f  |4).".&.changebco|
00004370  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00004380  64 6f 77 6e 2c 31 34 29  0d 22 24 26 f2 63 68 61  |down,14)."$&.cha|
00004390  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000043a0  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 34 29 0d 22  |,mouseleft,14)."|
000043b0  2e 27 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.'.changebcolour|
000043c0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 72 69 67 68  |(keys%,mouserigh|
000043d0  74 2c 31 34 29 0d 22 38  25 f2 73 65 74 76 61 6c  |t,14)."8%.setval|
000043e0  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 73 65  |id(keys%,mousese|
000043f0  6c 65 63 74 2c 22 52 32  22 29 0d 22 42 28 f2 63  |lect,"R2")."B(.c|
00004400  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00004410  73 25 2c 6d 6f 75 73 65  73 65 6c 65 63 74 2c 31  |s%,mouseselect,1|
00004420  30 29 0d 22 4c 07 c9 20  32 0d 22 56 2a f2 69 63  |0)."L.. 2."V*.ic|
00004430  6f 6e 70 75 74 74 65 78  74 28 6d 6f 75 73 65 25  |onputtext(mouse%|
00004440  2c 31 31 2c 22 53 65 74  74 69 6e 67 20 6d 65 6e  |,11,"Setting men|
00004450  75 22 29 0d 22 60 28 f2  63 68 61 6e 67 65 62 63  |u")."`(.changebc|
00004460  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
00004470  65 73 65 6c 65 63 74 2c  31 34 29 0d 22 6a 26 f2  |eselect,14)."j&.|
00004480  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
00004490  79 73 25 2c 6d 6f 75 73  65 6d 65 6e 75 2c 31 30  |ys%,mousemenu,10|
000044a0  29 0d 22 74 28 f2 63 68  61 6e 67 65 62 63 6f 6c  |)."t(.changebcol|
000044b0  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 61  |our(keys%,mousea|
000044c0  64 6a 75 73 74 2c 31 34  29 0d 22 7e 24 f2 63 68  |djust,14)."~$.ch|
000044d0  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
000044e0  25 2c 6d 6f 75 73 65 75  70 2c 31 34 29 0d 22 88  |%,mouseup,14).".|
000044f0  26 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |&.changebcolour(|
00004500  6b 65 79 73 25 2c 6d 6f  75 73 65 64 6f 77 6e 2c  |keys%,mousedown,|
00004510  31 34 29 0d 22 92 26 f2  63 68 61 6e 67 65 62 63  |14).".&.changebc|
00004520  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
00004530  65 6c 65 66 74 2c 31 34  29 0d 22 9c 27 f2 63 68  |eleft,14).".'.ch|
00004540  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
00004550  25 2c 6d 6f 75 73 65 72  69 67 68 74 2c 31 34 29  |%,mouseright,14)|
00004560  0d 22 a6 23 f2 73 65 74  76 61 6c 69 64 28 6b 65  |.".#.setvalid(ke|
00004570  79 73 25 2c 6d 6f 75 73  65 6d 65 6e 75 2c 22 52  |ys%,mousemenu,"R|
00004580  32 22 29 0d 22 b0 26 f2  63 68 61 6e 67 65 62 63  |2").".&.changebc|
00004590  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000045a0  65 6d 65 6e 75 2c 31 30  29 0d 22 ba 07 c9 20 33  |emenu,10)."... 3|
000045b0  0d 22 c4 2c f2 69 63 6f  6e 70 75 74 74 65 78 74  |.".,.iconputtext|
000045c0  28 6d 6f 75 73 65 25 2c  31 31 2c 22 53 65 74 74  |(mouse%,11,"Sett|
000045d0  69 6e 67 20 61 64 6a 75  73 74 22 29 0d 22 ce 28  |ing adjust").".(|
000045e0  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
000045f0  65 79 73 25 2c 6d 6f 75  73 65 73 65 6c 65 63 74  |eys%,mouseselect|
00004600  2c 31 34 29 0d 22 d8 26  f2 63 68 61 6e 67 65 62  |,14).".&.changeb|
00004610  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00004620  73 65 6d 65 6e 75 2c 31  34 29 0d 22 e2 28 f2 63  |semenu,14).".(.c|
00004630  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00004640  73 25 2c 6d 6f 75 73 65  61 64 6a 75 73 74 2c 31  |s%,mouseadjust,1|
00004650  30 29 0d 22 ec 24 f2 63  68 61 6e 67 65 62 63 6f  |0).".$.changebco|
00004660  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00004670  75 70 2c 31 34 29 0d 22  f6 26 f2 63 68 61 6e 67  |up,14).".&.chang|
00004680  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00004690  6f 75 73 65 64 6f 77 6e  2c 31 34 29 0d 23 00 26  |ousedown,14).#.&|
000046a0  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
000046b0  65 79 73 25 2c 6d 6f 75  73 65 6c 65 66 74 2c 31  |eys%,mouseleft,1|
000046c0  34 29 0d 23 0a 27 f2 63  68 61 6e 67 65 62 63 6f  |4).#.'.changebco|
000046d0  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
000046e0  72 69 67 68 74 2c 31 34  29 0d 23 14 25 f2 73 65  |right,14).#.%.se|
000046f0  74 76 61 6c 69 64 28 6b  65 79 73 25 2c 6d 6f 75  |tvalid(keys%,mou|
00004700  73 65 61 64 6a 75 73 74  2c 22 52 32 22 29 0d 23  |seadjust,"R2").#|
00004710  1e 28 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.(.changebcolour|
00004720  28 6b 65 79 73 25 2c 6d  6f 75 73 65 61 64 6a 75  |(keys%,mouseadju|
00004730  73 74 2c 31 30 29 0d 23  28 07 c9 20 34 0d 23 32  |st,10).#(.. 4.#2|
00004740  28 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 6d 6f  |(.iconputtext(mo|
00004750  75 73 65 25 2c 31 31 2c  22 53 65 74 74 69 6e 67  |use%,11,"Setting|
00004760  20 75 70 22 29 0d 23 3c  28 f2 63 68 61 6e 67 65  | up").#<(.change|
00004770  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00004780  75 73 65 73 65 6c 65 63  74 2c 31 34 29 0d 23 46  |useselect,14).#F|
00004790  26 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |&.changebcolour(|
000047a0  6b 65 79 73 25 2c 6d 6f  75 73 65 6d 65 6e 75 2c  |keys%,mousemenu,|
000047b0  31 34 29 0d 23 50 28 f2  63 68 61 6e 67 65 62 63  |14).#P(.changebc|
000047c0  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000047d0  65 61 64 6a 75 73 74 2c  31 34 29 0d 23 5a 24 f2  |eadjust,14).#Z$.|
000047e0  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
000047f0  79 73 25 2c 6d 6f 75 73  65 75 70 2c 31 30 29 0d  |ys%,mouseup,10).|
00004800  23 64 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |#d&.changebcolou|
00004810  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 64 6f 77  |r(keys%,mousedow|
00004820  6e 2c 31 34 29 0d 23 6e  26 f2 63 68 61 6e 67 65  |n,14).#n&.change|
00004830  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00004840  75 73 65 6c 65 66 74 2c  31 34 29 0d 23 78 27 f2  |useleft,14).#x'.|
00004850  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
00004860  79 73 25 2c 6d 6f 75 73  65 72 69 67 68 74 2c 31  |ys%,mouseright,1|
00004870  34 29 0d 23 82 21 f2 73  65 74 76 61 6c 69 64 28  |4).#.!.setvalid(|
00004880  6b 65 79 73 25 2c 6d 6f  75 73 65 75 70 2c 22 52  |keys%,mouseup,"R|
00004890  32 22 29 0d 23 8c 24 f2  63 68 61 6e 67 65 62 63  |2").#.$.changebc|
000048a0  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000048b0  65 75 70 2c 31 30 29 0d  23 96 07 c9 20 35 0d 23  |eup,10).#... 5.#|
000048c0  a0 2a f2 69 63 6f 6e 70  75 74 74 65 78 74 28 6d  |.*.iconputtext(m|
000048d0  6f 75 73 65 25 2c 31 31  2c 22 53 65 74 74 69 6e  |ouse%,11,"Settin|
000048e0  67 20 6c 65 66 74 22 29  0d 23 aa 28 f2 63 68 61  |g left").#.(.cha|
000048f0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00004900  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 31 34 29  |,mouseselect,14)|
00004910  0d 23 b4 26 f2 63 68 61  6e 67 65 62 63 6f 6c 6f  |.#.&.changebcolo|
00004920  75 72 28 6b 65 79 73 25  2c 6d 6f 75 73 65 6d 65  |ur(keys%,mouseme|
00004930  6e 75 2c 31 34 29 0d 23  be 28 f2 63 68 61 6e 67  |nu,14).#.(.chang|
00004940  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00004950  6f 75 73 65 61 64 6a 75  73 74 2c 31 34 29 0d 23  |ouseadjust,14).#|
00004960  c8 24 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.$.changebcolour|
00004970  28 6b 65 79 73 25 2c 6d  6f 75 73 65 75 70 2c 31  |(keys%,mouseup,1|
00004980  34 29 0d 23 d2 26 f2 63  68 61 6e 67 65 62 63 6f  |4).#.&.changebco|
00004990  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
000049a0  64 6f 77 6e 2c 31 34 29  0d 23 dc 26 f2 63 68 61  |down,14).#.&.cha|
000049b0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000049c0  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 30 29 0d 23  |,mouseleft,10).#|
000049d0  e6 27 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.'.changebcolour|
000049e0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 72 69 67 68  |(keys%,mouserigh|
000049f0  74 2c 31 34 29 0d 23 f0  23 f2 73 65 74 76 61 6c  |t,14).#.#.setval|
00004a00  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 6c 65  |id(keys%,mousele|
00004a10  66 74 2c 22 52 32 22 29  0d 23 fa 26 f2 63 68 61  |ft,"R2").#.&.cha|
00004a20  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00004a30  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 30 29 0d 24  |,mouseleft,10).$|
00004a40  04 07 c9 20 36 0d 24 0e  2a f2 69 63 6f 6e 70 75  |... 6.$.*.iconpu|
00004a50  74 74 65 78 74 28 6d 6f  75 73 65 25 2c 31 31 2c  |ttext(mouse%,11,|
00004a60  22 53 65 74 74 69 6e 67  20 64 6f 77 6e 22 29 0d  |"Setting down").|
00004a70  24 18 28 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |$.(.changebcolou|
00004a80  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 73 65 6c  |r(keys%,mousesel|
00004a90  65 63 74 2c 31 34 29 0d  24 22 26 f2 63 68 61 6e  |ect,14).$"&.chan|
00004aa0  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00004ab0  6d 6f 75 73 65 6d 65 6e  75 2c 31 34 29 0d 24 2c  |mousemenu,14).$,|
00004ac0  28 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |(.changebcolour(|
00004ad0  6b 65 79 73 25 2c 6d 6f  75 73 65 61 64 6a 75 73  |keys%,mouseadjus|
00004ae0  74 2c 31 34 29 0d 24 36  24 f2 63 68 61 6e 67 65  |t,14).$6$.change|
00004af0  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00004b00  75 73 65 75 70 2c 31 34  29 0d 24 40 26 f2 63 68  |useup,14).$@&.ch|
00004b10  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
00004b20  25 2c 6d 6f 75 73 65 64  6f 77 6e 2c 31 30 29 0d  |%,mousedown,10).|
00004b30  24 4a 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |$J&.changebcolou|
00004b40  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 6c 65 66  |r(keys%,mouselef|
00004b50  74 2c 31 34 29 0d 24 54  27 f2 63 68 61 6e 67 65  |t,14).$T'.change|
00004b60  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00004b70  75 73 65 72 69 67 68 74  2c 31 34 29 0d 24 5e 23  |useright,14).$^#|
00004b80  f2 73 65 74 76 61 6c 69  64 28 6b 65 79 73 25 2c  |.setvalid(keys%,|
00004b90  6d 6f 75 73 65 64 6f 77  6e 2c 22 52 32 22 29 0d  |mousedown,"R2").|
00004ba0  24 68 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |$h&.changebcolou|
00004bb0  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 64 6f 77  |r(keys%,mousedow|
00004bc0  6e 2c 31 30 29 0d 24 72  07 c9 20 37 0d 24 7c 2b  |n,10).$r.. 7.$|+|
00004bd0  f2 69 63 6f 6e 70 75 74  74 65 78 74 28 6d 6f 75  |.iconputtext(mou|
00004be0  73 65 25 2c 31 31 2c 22  53 65 74 74 69 6e 67 20  |se%,11,"Setting |
00004bf0  72 69 67 68 74 22 29 0d  24 86 28 f2 63 68 61 6e  |right").$.(.chan|
00004c00  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00004c10  6d 6f 75 73 65 73 65 6c  65 63 74 2c 31 34 29 0d  |mouseselect,14).|
00004c20  24 90 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |$.&.changebcolou|
00004c30  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 6d 65 6e  |r(keys%,mousemen|
00004c40  75 2c 31 34 29 0d 24 9a  28 f2 63 68 61 6e 67 65  |u,14).$.(.change|
00004c50  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00004c60  75 73 65 61 64 6a 75 73  74 2c 31 34 29 0d 24 a4  |useadjust,14).$.|
00004c70  24 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |$.changebcolour(|
00004c80  6b 65 79 73 25 2c 6d 6f  75 73 65 75 70 2c 31 34  |keys%,mouseup,14|
00004c90  29 0d 24 ae 26 f2 63 68  61 6e 67 65 62 63 6f 6c  |).$.&.changebcol|
00004ca0  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 64  |our(keys%,moused|
00004cb0  6f 77 6e 2c 31 34 29 0d  24 b8 26 f2 63 68 61 6e  |own,14).$.&.chan|
00004cc0  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00004cd0  6d 6f 75 73 65 6c 65 66  74 2c 31 34 29 0d 24 c2  |mouseleft,14).$.|
00004ce0  27 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |'.changebcolour(|
00004cf0  6b 65 79 73 25 2c 6d 6f  75 73 65 72 69 67 68 74  |keys%,mouseright|
00004d00  2c 31 30 29 0d 24 cc 24  f2 73 65 74 76 61 6c 69  |,10).$.$.setvali|
00004d10  64 28 6b 65 79 73 25 2c  6d 6f 75 73 65 72 69 67  |d(keys%,mouserig|
00004d20  68 74 2c 22 52 32 22 29  0d 24 d6 27 f2 63 68 61  |ht,"R2").$.'.cha|
00004d30  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00004d40  2c 6d 6f 75 73 65 72 69  67 68 74 2c 31 30 29 0d  |,mouseright,10).|
00004d50  24 e0 05 cb 0d 24 ea 05  e1 0d 24 f4 05 3a 0d 24  |$....$....$..:.$|
00004d60  fe 1b dd f2 73 65 74 76  61 6c 69 64 28 77 69 6e  |....setvalid(win|
00004d70  25 2c 69 63 25 2c 73 24  29 0d 25 08 11 62 6c 6f  |%,ic%,s$).%..blo|
00004d80  63 6b 25 21 30 3d 77 69  6e 25 0d 25 12 10 62 6c  |ck%!0=win%.%..bl|
00004d90  6f 63 6b 25 21 34 3d 69  63 25 0d 25 1c 18 c8 99  |ock%!4=ic%.%....|
00004da0  20 26 30 30 30 34 30 30  43 45 2c 2c 62 6c 6f 63  | &000400CE,,bloc|
00004db0  6b 25 0d 25 26 11 24 62  6c 6f 63 6b 25 21 33 32  |k%.%&.$block%!32|
00004dc0  3d 73 24 0d 25 30 11 62  6c 6f 63 6b 25 21 30 3d  |=s$.%0.block%!0=|
00004dd0  77 69 6e 25 0d 25 3a 0e  62 6c 6f 63 6b 25 21 38  |win%.%:.block%!8|
00004de0  3d 30 0d 25 44 0f 62 6c  6f 63 6b 25 21 31 32 3d  |=0.%D.block%!12=|
00004df0  30 0d 25 4e 18 c8 99 20  26 30 30 30 34 30 30 43  |0.%N... &000400C|
00004e00  44 2c 2c 62 6c 6f 63 6b  25 0d 25 58 05 e1 0d 25  |D,,block%.%X...%|
00004e10  62 05 3a 0d 25 6c 18 dd  a4 67 65 74 76 61 6c 69  |b.:.%l...getvali|
00004e20  64 28 77 69 6e 25 2c 69  63 25 29 0d 25 76 11 62  |d(win%,ic%).%v.b|
00004e30  6c 6f 63 6b 25 21 30 3d  77 69 6e 25 0d 25 80 10  |lock%!0=win%.%..|
00004e40  62 6c 6f 63 6b 25 21 34  3d 69 63 25 0d 25 8a 18  |block%!4=ic%.%..|
00004e50  c8 99 20 26 30 30 30 34  30 30 43 45 2c 2c 62 6c  |.. &000400CE,,bl|
00004e60  6f 63 6b 25 0d 25 94 0f  3d 24 62 6c 6f 63 6b 25  |ock%.%..=$block%|
00004e70  21 33 32 0d 25 9e 05 3a  0d 25 a8 15 dd f2 63 6c  |!32.%..:.%....cl|
00004e80  69 63 6b 6d 6f 75 73 65  28 69 63 25 29 0d 25 b2  |ickmouse(ic%).%.|
00004e90  0c c8 8e 20 69 63 25 20  ca 0d 25 bc 08 c9 20 31  |... ic% ..%... 1|
00004ea0  33 0d 25 c6 16 e7 20 63  75 72 72 65 6e 74 75 73  |3.%... currentus|
00004eb0  65 72 3c 3e 31 20 8c 0d  25 d0 27 f2 63 68 61 6e  |er<>1 ..%.'.chan|
00004ec0  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00004ed0  6d 6f 75 73 65 73 65 6c  65 63 74 2c 31 29 0d 25  |mouseselect,1).%|
00004ee0  da 25 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.%.changebcolour|
00004ef0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 6d 65 6e 75  |(keys%,mousemenu|
00004f00  2c 31 29 0d 25 e4 27 f2  63 68 61 6e 67 65 62 63  |,1).%.'.changebc|
00004f10  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
00004f20  65 61 64 6a 75 73 74 2c  31 29 0d 25 ee 23 f2 63  |eadjust,1).%.#.c|
00004f30  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00004f40  73 25 2c 6d 6f 75 73 65  75 70 2c 31 29 0d 25 f8  |s%,mouseup,1).%.|
00004f50  25 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |%.changebcolour(|
00004f60  6b 65 79 73 25 2c 6d 6f  75 73 65 64 6f 77 6e 2c  |keys%,mousedown,|
00004f70  31 29 0d 26 02 25 f2 63  68 61 6e 67 65 62 63 6f  |1).&.%.changebco|
00004f80  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00004f90  6c 65 66 74 2c 31 29 0d  26 0c 26 f2 63 68 61 6e  |left,1).&.&.chan|
00004fa0  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00004fb0  6d 6f 75 73 65 72 69 67  68 74 2c 31 29 0d 26 16  |mouseright,1).&.|
00004fc0  25 f2 73 65 74 76 61 6c  69 64 28 6b 65 79 73 25  |%.setvalid(keys%|
00004fd0  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 22 52 35  |,mouseselect,"R5|
00004fe0  22 29 0d 26 20 23 f2 73  65 74 76 61 6c 69 64 28  |").& #.setvalid(|
00004ff0  6b 65 79 73 25 2c 6d 6f  75 73 65 6d 65 6e 75 2c  |keys%,mousemenu,|
00005000  22 52 35 22 29 0d 26 2a  25 f2 73 65 74 76 61 6c  |"R5").&*%.setval|
00005010  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 61 64  |id(keys%,mousead|
00005020  6a 75 73 74 2c 22 52 35  22 29 0d 26 34 21 f2 73  |just,"R5").&4!.s|
00005030  65 74 76 61 6c 69 64 28  6b 65 79 73 25 2c 6d 6f  |etvalid(keys%,mo|
00005040  75 73 65 75 70 2c 22 52  35 22 29 0d 26 3e 23 f2  |useup,"R5").&>#.|
00005050  73 65 74 76 61 6c 69 64  28 6b 65 79 73 25 2c 6d  |setvalid(keys%,m|
00005060  6f 75 73 65 6c 65 66 74  2c 22 52 35 22 29 0d 26  |ouseleft,"R5").&|
00005070  48 23 f2 73 65 74 76 61  6c 69 64 28 6b 65 79 73  |H#.setvalid(keys|
00005080  25 2c 6d 6f 75 73 65 64  6f 77 6e 2c 22 52 35 22  |%,mousedown,"R5"|
00005090  29 0d 26 52 24 f2 73 65  74 76 61 6c 69 64 28 6b  |).&R$.setvalid(k|
000050a0  65 79 73 25 2c 6d 6f 75  73 65 72 69 67 68 74 2c  |eys%,mouseright,|
000050b0  22 52 35 22 29 0d 26 5c  1d 6d 6f 75 73 65 73 65  |"R5").&\.mousese|
000050c0  6c 65 63 74 3d 75 31 6d  6f 75 73 65 73 65 6c 65  |lect=u1mousesele|
000050d0  63 74 0d 26 66 19 6d 6f  75 73 65 6d 65 6e 75 3d  |ct.&f.mousemenu=|
000050e0  75 31 6d 6f 75 73 65 6d  65 6e 75 0d 26 70 1d 6d  |u1mousemenu.&p.m|
000050f0  6f 75 73 65 61 64 6a 75  73 74 3d 75 31 6d 6f 75  |ouseadjust=u1mou|
00005100  73 65 61 64 6a 75 73 74  0d 26 7a 15 6d 6f 75 73  |seadjust.&z.mous|
00005110  65 75 70 3d 75 31 6d 6f  75 73 65 75 70 0d 26 84  |eup=u1mouseup.&.|
00005120  19 6d 6f 75 73 65 64 6f  77 6e 3d 75 31 6d 6f 75  |.mousedown=u1mou|
00005130  73 65 64 6f 77 6e 0d 26  8e 19 6d 6f 75 73 65 6c  |sedown.&..mousel|
00005140  65 66 74 3d 75 31 6d 6f  75 73 65 6c 65 66 74 0d  |eft=u1mouseleft.|
00005150  26 98 1b 6d 6f 75 73 65  72 69 67 68 74 3d 75 31  |&..mouseright=u1|
00005160  6d 6f 75 73 65 72 69 67  68 74 0d 26 a2 0d f2 73  |mouseright.&...s|
00005170  65 74 69 63 6f 6e 73 0d  26 ac 1b f2 64 6f 73 65  |eticons.&...dose|
00005180  74 74 69 6e 67 69 63 6f  6e 28 73 65 74 74 69 6e  |ttingicon(settin|
00005190  67 29 0d 26 b6 52 f2 73  65 74 28 6d 6f 75 73 65  |g).&.R.set(mouse|
000051a0  6c 65 66 74 2c 6d 6f 75  73 65 72 69 67 68 74 2c  |left,mouseright,|
000051b0  6d 6f 75 73 65 75 70 2c  6d 6f 75 73 65 64 6f 77  |mouseup,mousedow|
000051c0  6e 2c 6d 6f 75 73 65 73  65 6c 65 63 74 2c 6d 6f  |n,mouseselect,mo|
000051d0  75 73 65 6d 65 6e 75 2c  6d 6f 75 73 65 61 64 6a  |usemenu,mouseadj|
000051e0  75 73 74 29 0d 26 c0 11  63 75 72 72 65 6e 74 75  |ust).&..currentu|
000051f0  73 65 72 3d 31 0d 26 ca  05 cd 0d 26 d4 08 c9 20  |ser=1.&....&... |
00005200  31 34 0d 26 de 16 e7 20  63 75 72 72 65 6e 74 75  |14.&... currentu|
00005210  73 65 72 3c 3e 32 20 8c  0d 26 e8 27 f2 63 68 61  |ser<>2 ..&.'.cha|
00005220  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00005230  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 31 29 0d  |,mouseselect,1).|
00005240  26 f2 25 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |&.%.changebcolou|
00005250  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 6d 65 6e  |r(keys%,mousemen|
00005260  75 2c 31 29 0d 26 fc 27  f2 63 68 61 6e 67 65 62  |u,1).&.'.changeb|
00005270  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00005280  73 65 61 64 6a 75 73 74  2c 31 29 0d 27 06 23 f2  |seadjust,1).'.#.|
00005290  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
000052a0  79 73 25 2c 6d 6f 75 73  65 75 70 2c 31 29 0d 27  |ys%,mouseup,1).'|
000052b0  10 25 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.%.changebcolour|
000052c0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 64 6f 77 6e  |(keys%,mousedown|
000052d0  2c 31 29 0d 27 1a 25 f2  63 68 61 6e 67 65 62 63  |,1).'.%.changebc|
000052e0  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000052f0  65 6c 65 66 74 2c 31 29  0d 27 24 26 f2 63 68 61  |eleft,1).'$&.cha|
00005300  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00005310  2c 6d 6f 75 73 65 72 69  67 68 74 2c 31 29 0d 27  |,mouseright,1).'|
00005320  2e 25 f2 73 65 74 76 61  6c 69 64 28 6b 65 79 73  |.%.setvalid(keys|
00005330  25 2c 6d 6f 75 73 65 73  65 6c 65 63 74 2c 22 52  |%,mouseselect,"R|
00005340  35 22 29 0d 27 38 23 f2  73 65 74 76 61 6c 69 64  |5").'8#.setvalid|
00005350  28 6b 65 79 73 25 2c 6d  6f 75 73 65 6d 65 6e 75  |(keys%,mousemenu|
00005360  2c 22 52 35 22 29 0d 27  42 25 f2 73 65 74 76 61  |,"R5").'B%.setva|
00005370  6c 69 64 28 6b 65 79 73  25 2c 6d 6f 75 73 65 61  |lid(keys%,mousea|
00005380  64 6a 75 73 74 2c 22 52  35 22 29 0d 27 4c 21 f2  |djust,"R5").'L!.|
00005390  73 65 74 76 61 6c 69 64  28 6b 65 79 73 25 2c 6d  |setvalid(keys%,m|
000053a0  6f 75 73 65 75 70 2c 22  52 35 22 29 0d 27 56 23  |ouseup,"R5").'V#|
000053b0  f2 73 65 74 76 61 6c 69  64 28 6b 65 79 73 25 2c  |.setvalid(keys%,|
000053c0  6d 6f 75 73 65 6c 65 66  74 2c 22 52 35 22 29 0d  |mouseleft,"R5").|
000053d0  27 60 23 f2 73 65 74 76  61 6c 69 64 28 6b 65 79  |'`#.setvalid(key|
000053e0  73 25 2c 6d 6f 75 73 65  64 6f 77 6e 2c 22 52 35  |s%,mousedown,"R5|
000053f0  22 29 0d 27 6a 24 f2 73  65 74 76 61 6c 69 64 28  |").'j$.setvalid(|
00005400  6b 65 79 73 25 2c 6d 6f  75 73 65 72 69 67 68 74  |keys%,mouseright|
00005410  2c 22 52 35 22 29 0d 27  74 1d 6d 6f 75 73 65 73  |,"R5").'t.mouses|
00005420  65 6c 65 63 74 3d 75 32  6d 6f 75 73 65 73 65 6c  |elect=u2mousesel|
00005430  65 63 74 0d 27 7e 19 6d  6f 75 73 65 6d 65 6e 75  |ect.'~.mousemenu|
00005440  3d 75 32 6d 6f 75 73 65  6d 65 6e 75 0d 27 88 1d  |=u2mousemenu.'..|
00005450  6d 6f 75 73 65 61 64 6a  75 73 74 3d 75 32 6d 6f  |mouseadjust=u2mo|
00005460  75 73 65 61 64 6a 75 73  74 0d 27 92 15 6d 6f 75  |useadjust.'..mou|
00005470  73 65 75 70 3d 75 32 6d  6f 75 73 65 75 70 0d 27  |seup=u2mouseup.'|
00005480  9c 19 6d 6f 75 73 65 64  6f 77 6e 3d 75 32 6d 6f  |..mousedown=u2mo|
00005490  75 73 65 64 6f 77 6e 0d  27 a6 19 6d 6f 75 73 65  |usedown.'..mouse|
000054a0  6c 65 66 74 3d 75 32 6d  6f 75 73 65 6c 65 66 74  |left=u2mouseleft|
000054b0  0d 27 b0 1b 6d 6f 75 73  65 72 69 67 68 74 3d 75  |.'..mouseright=u|
000054c0  32 6d 6f 75 73 65 72 69  67 68 74 0d 27 ba 0d f2  |2mouseright.'...|
000054d0  73 65 74 69 63 6f 6e 73  0d 27 c4 1b f2 64 6f 73  |seticons.'...dos|
000054e0  65 74 74 69 6e 67 69 63  6f 6e 28 73 65 74 74 69  |ettingicon(setti|
000054f0  6e 67 29 0d 27 ce 52 f2  73 65 74 28 6d 6f 75 73  |ng).'.R.set(mous|
00005500  65 6c 65 66 74 2c 6d 6f  75 73 65 72 69 67 68 74  |eleft,mouseright|
00005510  2c 6d 6f 75 73 65 75 70  2c 6d 6f 75 73 65 64 6f  |,mouseup,mousedo|
00005520  77 6e 2c 6d 6f 75 73 65  73 65 6c 65 63 74 2c 6d  |wn,mouseselect,m|
00005530  6f 75 73 65 6d 65 6e 75  2c 6d 6f 75 73 65 61 64  |ousemenu,mousead|
00005540  6a 75 73 74 29 0d 27 d8  11 63 75 72 72 65 6e 74  |just).'..current|
00005550  75 73 65 72 3d 32 0d 27  e2 05 cd 0d 27 ec 08 c9  |user=2.'....'...|
00005560  20 31 35 0d 27 f6 1d 75  31 6d 6f 75 73 65 73 65  | 15.'..u1mousese|
00005570  6c 65 63 74 3d 6d 6f 75  73 65 73 65 6c 65 63 74  |lect=mouseselect|
00005580  0d 28 00 19 75 31 6d 6f  75 73 65 6d 65 6e 75 3d  |.(..u1mousemenu=|
00005590  6d 6f 75 73 65 6d 65 6e  75 0d 28 0a 1d 75 31 6d  |mousemenu.(..u1m|
000055a0  6f 75 73 65 61 64 6a 75  73 74 3d 6d 6f 75 73 65  |ouseadjust=mouse|
000055b0  61 64 6a 75 73 74 0d 28  14 15 75 31 6d 6f 75 73  |adjust.(..u1mous|
000055c0  65 75 70 3d 6d 6f 75 73  65 75 70 0d 28 1e 19 75  |eup=mouseup.(..u|
000055d0  31 6d 6f 75 73 65 64 6f  77 6e 3d 6d 6f 75 73 65  |1mousedown=mouse|
000055e0  64 6f 77 6e 0d 28 28 19  75 31 6d 6f 75 73 65 6c  |down.((.u1mousel|
000055f0  65 66 74 3d 6d 6f 75 73  65 6c 65 66 74 0d 28 32  |eft=mouseleft.(2|
00005600  1b 75 31 6d 6f 75 73 65  72 69 67 68 74 3d 6d 6f  |.u1mouseright=mo|
00005610  75 73 65 72 69 67 68 74  0d 28 3c 08 c9 20 31 36  |useright.(<.. 16|
00005620  0d 28 46 1d 75 32 6d 6f  75 73 65 73 65 6c 65 63  |.(F.u2mouseselec|
00005630  74 3d 6d 6f 75 73 65 73  65 6c 65 63 74 0d 28 50  |t=mouseselect.(P|
00005640  19 75 32 6d 6f 75 73 65  6d 65 6e 75 3d 6d 6f 75  |.u2mousemenu=mou|
00005650  73 65 6d 65 6e 75 0d 28  5a 1d 75 32 6d 6f 75 73  |semenu.(Z.u2mous|
00005660  65 61 64 6a 75 73 74 3d  6d 6f 75 73 65 61 64 6a  |eadjust=mouseadj|
00005670  75 73 74 0d 28 64 15 75  32 6d 6f 75 73 65 75 70  |ust.(d.u2mouseup|
00005680  3d 6d 6f 75 73 65 75 70  0d 28 6e 19 75 32 6d 6f  |=mouseup.(n.u2mo|
00005690  75 73 65 64 6f 77 6e 3d  6d 6f 75 73 65 64 6f 77  |usedown=mousedow|
000056a0  6e 0d 28 78 19 75 32 6d  6f 75 73 65 6c 65 66 74  |n.(x.u2mouseleft|
000056b0  3d 6d 6f 75 73 65 6c 65  66 74 0d 28 82 1b 75 32  |=mouseleft.(..u2|
000056c0  6d 6f 75 73 65 72 69 67  68 74 3d 6d 6f 75 73 65  |mouseright=mouse|
000056d0  72 69 67 68 74 0d 28 8c  08 c9 20 31 37 0d 28 96  |right.(... 17.(.|
000056e0  27 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |'.changebcolour(|
000056f0  6b 65 79 73 25 2c 6d 6f  75 73 65 73 65 6c 65 63  |keys%,mouseselec|
00005700  74 2c 31 29 0d 28 a0 25  f2 63 68 61 6e 67 65 62  |t,1).(.%.changeb|
00005710  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00005720  73 65 6d 65 6e 75 2c 31  29 0d 28 aa 27 f2 63 68  |semenu,1).(.'.ch|
00005730  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
00005740  25 2c 6d 6f 75 73 65 61  64 6a 75 73 74 2c 31 29  |%,mouseadjust,1)|
00005750  0d 28 b4 23 f2 63 68 61  6e 67 65 62 63 6f 6c 6f  |.(.#.changebcolo|
00005760  75 72 28 6b 65 79 73 25  2c 6d 6f 75 73 65 75 70  |ur(keys%,mouseup|
00005770  2c 31 29 0d 28 be 25 f2  63 68 61 6e 67 65 62 63  |,1).(.%.changebc|
00005780  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
00005790  65 64 6f 77 6e 2c 31 29  0d 28 c8 25 f2 63 68 61  |edown,1).(.%.cha|
000057a0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000057b0  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 29 0d 28 d2  |,mouseleft,1).(.|
000057c0  26 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |&.changebcolour(|
000057d0  6b 65 79 73 25 2c 6d 6f  75 73 65 72 69 67 68 74  |keys%,mouseright|
000057e0  2c 31 29 0d 28 dc 25 f2  73 65 74 76 61 6c 69 64  |,1).(.%.setvalid|
000057f0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 73 65 6c 65  |(keys%,mousesele|
00005800  63 74 2c 22 52 35 22 29  0d 28 e6 23 f2 73 65 74  |ct,"R5").(.#.set|
00005810  76 61 6c 69 64 28 6b 65  79 73 25 2c 6d 6f 75 73  |valid(keys%,mous|
00005820  65 6d 65 6e 75 2c 22 52  35 22 29 0d 28 f0 25 f2  |emenu,"R5").(.%.|
00005830  73 65 74 76 61 6c 69 64  28 6b 65 79 73 25 2c 6d  |setvalid(keys%,m|
00005840  6f 75 73 65 61 64 6a 75  73 74 2c 22 52 35 22 29  |ouseadjust,"R5")|
00005850  0d 28 fa 21 f2 73 65 74  76 61 6c 69 64 28 6b 65  |.(.!.setvalid(ke|
00005860  79 73 25 2c 6d 6f 75 73  65 75 70 2c 22 52 35 22  |ys%,mouseup,"R5"|
00005870  29 0d 29 04 23 f2 73 65  74 76 61 6c 69 64 28 6b  |).).#.setvalid(k|
00005880  65 79 73 25 2c 6d 6f 75  73 65 6c 65 66 74 2c 22  |eys%,mouseleft,"|
00005890  52 35 22 29 0d 29 0e 23  f2 73 65 74 76 61 6c 69  |R5").).#.setvali|
000058a0  64 28 6b 65 79 73 25 2c  6d 6f 75 73 65 64 6f 77  |d(keys%,mousedow|
000058b0  6e 2c 22 52 35 22 29 0d  29 18 24 f2 73 65 74 76  |n,"R5").).$.setv|
000058c0  61 6c 69 64 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |alid(keys%,mouse|
000058d0  72 69 67 68 74 2c 22 52  35 22 29 0d 29 22 13 6d  |right,"R5").)".m|
000058e0  6f 75 73 65 73 65 6c 65  63 74 3d 26 32 37 0d 29  |ouseselect=&27.)|
000058f0  2c 11 6d 6f 75 73 65 6d  65 6e 75 3d 26 32 38 0d  |,.mousemenu=&28.|
00005900  29 36 13 6d 6f 75 73 65  61 64 6a 75 73 74 3d 26  |)6.mouseadjust=&|
00005910  32 39 0d 29 40 0f 6d 6f  75 73 65 75 70 3d 26 35  |29.)@.mouseup=&5|
00005920  39 0d 29 4a 11 6d 6f 75  73 65 64 6f 77 6e 3d 26  |9.)J.mousedown=&|
00005930  36 33 0d 29 54 11 6d 6f  75 73 65 6c 65 66 74 3d  |63.)T.mouseleft=|
00005940  26 36 32 0d 29 5e 12 6d  6f 75 73 65 72 69 67 68  |&62.)^.mouserigh|
00005950  74 3d 26 36 34 0d 29 68  0d f2 73 65 74 69 63 6f  |t=&64.)h..setico|
00005960  6e 73 0d 29 72 1b f2 64  6f 73 65 74 74 69 6e 67  |ns.)r..dosetting|
00005970  69 63 6f 6e 28 73 65 74  74 69 6e 67 29 0d 29 7c  |icon(setting).)||
00005980  52 f2 73 65 74 28 6d 6f  75 73 65 6c 65 66 74 2c  |R.set(mouseleft,|
00005990  6d 6f 75 73 65 72 69 67  68 74 2c 6d 6f 75 73 65  |mouseright,mouse|
000059a0  75 70 2c 6d 6f 75 73 65  64 6f 77 6e 2c 6d 6f 75  |up,mousedown,mou|
000059b0  73 65 73 65 6c 65 63 74  2c 6d 6f 75 73 65 6d 65  |seselect,mouseme|
000059c0  6e 75 2c 6d 6f 75 73 65  61 64 6a 75 73 74 29 0d  |nu,mouseadjust).|
000059d0  29 86 12 63 75 72 72 65  6e 74 75 73 65 72 3d 2d  |)..currentuser=-|
000059e0  31 0d 29 90 07 c9 20 34  0d 29 9a 2c f2 69 63 6f  |1.)... 4.).,.ico|
000059f0  6e 70 75 74 74 65 78 74  28 6d 6f 75 73 65 25 2c  |nputtext(mouse%,|
00005a00  31 31 2c 22 53 65 74 74  69 6e 67 20 73 65 6c 65  |11,"Setting sele|
00005a10  63 74 22 29 0d 29 a4 28  f2 63 68 61 6e 67 65 62  |ct").).(.changeb|
00005a20  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00005a30  73 65 73 65 6c 65 63 74  2c 31 30 29 0d 29 ae 26  |seselect,10).).&|
00005a40  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
00005a50  65 79 73 25 2c 6d 6f 75  73 65 6d 65 6e 75 2c 31  |eys%,mousemenu,1|
00005a60  34 29 0d 29 b8 28 f2 63  68 61 6e 67 65 62 63 6f  |4).).(.changebco|
00005a70  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00005a80  61 64 6a 75 73 74 2c 31  34 29 0d 29 c2 24 f2 63  |adjust,14).).$.c|
00005a90  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00005aa0  73 25 2c 6d 6f 75 73 65  75 70 2c 31 34 29 0d 29  |s%,mouseup,14).)|
00005ab0  cc 26 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.&.changebcolour|
00005ac0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 64 6f 77 6e  |(keys%,mousedown|
00005ad0  2c 31 34 29 0d 29 d6 26  f2 63 68 61 6e 67 65 62  |,14).).&.changeb|
00005ae0  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00005af0  73 65 6c 65 66 74 2c 31  34 29 0d 29 e0 27 f2 63  |seleft,14).).'.c|
00005b00  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00005b10  73 25 2c 6d 6f 75 73 65  72 69 67 68 74 2c 31 34  |s%,mouseright,14|
00005b20  29 0d 29 ea 0d 73 65 74  74 69 6e 67 3d 31 0d 29  |).)..setting=1.)|
00005b30  f4 07 c9 20 35 0d 29 fe  2a f2 69 63 6f 6e 70 75  |... 5.).*.iconpu|
00005b40  74 74 65 78 74 28 6d 6f  75 73 65 25 2c 31 31 2c  |ttext(mouse%,11,|
00005b50  22 53 65 74 74 69 6e 67  20 6d 65 6e 75 22 29 0d  |"Setting menu").|
00005b60  2a 08 28 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |*.(.changebcolou|
00005b70  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 73 65 6c  |r(keys%,mousesel|
00005b80  65 63 74 2c 31 34 29 0d  2a 12 26 f2 63 68 61 6e  |ect,14).*.&.chan|
00005b90  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00005ba0  6d 6f 75 73 65 6d 65 6e  75 2c 31 30 29 0d 2a 1c  |mousemenu,10).*.|
00005bb0  28 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |(.changebcolour(|
00005bc0  6b 65 79 73 25 2c 6d 6f  75 73 65 61 64 6a 75 73  |keys%,mouseadjus|
00005bd0  74 2c 31 34 29 0d 2a 26  24 f2 63 68 61 6e 67 65  |t,14).*&$.change|
00005be0  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00005bf0  75 73 65 75 70 2c 31 34  29 0d 2a 30 26 f2 63 68  |useup,14).*0&.ch|
00005c00  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
00005c10  25 2c 6d 6f 75 73 65 64  6f 77 6e 2c 31 34 29 0d  |%,mousedown,14).|
00005c20  2a 3a 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |*:&.changebcolou|
00005c30  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 6c 65 66  |r(keys%,mouselef|
00005c40  74 2c 31 34 29 0d 2a 44  27 f2 63 68 61 6e 67 65  |t,14).*D'.change|
00005c50  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00005c60  75 73 65 72 69 67 68 74  2c 31 34 29 0d 2a 4e 0d  |useright,14).*N.|
00005c70  73 65 74 74 69 6e 67 3d  32 0d 2a 58 07 c9 20 36  |setting=2.*X.. 6|
00005c80  0d 2a 62 2c f2 69 63 6f  6e 70 75 74 74 65 78 74  |.*b,.iconputtext|
00005c90  28 6d 6f 75 73 65 25 2c  31 31 2c 22 53 65 74 74  |(mouse%,11,"Sett|
00005ca0  69 6e 67 20 61 64 6a 75  73 74 22 29 0d 2a 6c 28  |ing adjust").*l(|
00005cb0  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
00005cc0  65 79 73 25 2c 6d 6f 75  73 65 73 65 6c 65 63 74  |eys%,mouseselect|
00005cd0  2c 31 34 29 0d 2a 76 26  f2 63 68 61 6e 67 65 62  |,14).*v&.changeb|
00005ce0  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00005cf0  73 65 6d 65 6e 75 2c 31  34 29 0d 2a 80 28 f2 63  |semenu,14).*.(.c|
00005d00  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00005d10  73 25 2c 6d 6f 75 73 65  61 64 6a 75 73 74 2c 31  |s%,mouseadjust,1|
00005d20  30 29 0d 2a 8a 24 f2 63  68 61 6e 67 65 62 63 6f  |0).*.$.changebco|
00005d30  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00005d40  75 70 2c 31 34 29 0d 2a  94 26 f2 63 68 61 6e 67  |up,14).*.&.chang|
00005d50  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00005d60  6f 75 73 65 64 6f 77 6e  2c 31 34 29 0d 2a 9e 26  |ousedown,14).*.&|
00005d70  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
00005d80  65 79 73 25 2c 6d 6f 75  73 65 6c 65 66 74 2c 31  |eys%,mouseleft,1|
00005d90  34 29 0d 2a a8 27 f2 63  68 61 6e 67 65 62 63 6f  |4).*.'.changebco|
00005da0  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00005db0  72 69 67 68 74 2c 31 34  29 0d 2a b2 0d 73 65 74  |right,14).*..set|
00005dc0  74 69 6e 67 3d 33 0d 2a  bc 07 c9 20 37 0d 2a c6  |ting=3.*... 7.*.|
00005dd0  28 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 6d 6f  |(.iconputtext(mo|
00005de0  75 73 65 25 2c 31 31 2c  22 53 65 74 74 69 6e 67  |use%,11,"Setting|
00005df0  20 75 70 22 29 0d 2a d0  28 f2 63 68 61 6e 67 65  | up").*.(.change|
00005e00  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00005e10  75 73 65 73 65 6c 65 63  74 2c 31 34 29 0d 2a da  |useselect,14).*.|
00005e20  26 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |&.changebcolour(|
00005e30  6b 65 79 73 25 2c 6d 6f  75 73 65 6d 65 6e 75 2c  |keys%,mousemenu,|
00005e40  31 34 29 0d 2a e4 28 f2  63 68 61 6e 67 65 62 63  |14).*.(.changebc|
00005e50  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
00005e60  65 61 64 6a 75 73 74 2c  31 34 29 0d 2a ee 24 f2  |eadjust,14).*.$.|
00005e70  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
00005e80  79 73 25 2c 6d 6f 75 73  65 75 70 2c 31 30 29 0d  |ys%,mouseup,10).|
00005e90  2a f8 26 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |*.&.changebcolou|
00005ea0  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 64 6f 77  |r(keys%,mousedow|
00005eb0  6e 2c 31 34 29 0d 2b 02  26 f2 63 68 61 6e 67 65  |n,14).+.&.change|
00005ec0  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00005ed0  75 73 65 6c 65 66 74 2c  31 34 29 0d 2b 0c 27 f2  |useleft,14).+.'.|
00005ee0  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
00005ef0  79 73 25 2c 6d 6f 75 73  65 72 69 67 68 74 2c 31  |ys%,mouseright,1|
00005f00  34 29 0d 2b 16 0d 73 65  74 74 69 6e 67 3d 34 0d  |4).+..setting=4.|
00005f10  2b 20 08 c9 20 31 30 0d  2b 2a 2a f2 69 63 6f 6e  |+ .. 10.+**.icon|
00005f20  70 75 74 74 65 78 74 28  6d 6f 75 73 65 25 2c 31  |puttext(mouse%,1|
00005f30  31 2c 22 53 65 74 74 69  6e 67 20 6c 65 66 74 22  |1,"Setting left"|
00005f40  29 0d 2b 34 28 f2 63 68  61 6e 67 65 62 63 6f 6c  |).+4(.changebcol|
00005f50  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 73  |our(keys%,mouses|
00005f60  65 6c 65 63 74 2c 31 34  29 0d 2b 3e 26 f2 63 68  |elect,14).+>&.ch|
00005f70  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
00005f80  25 2c 6d 6f 75 73 65 6d  65 6e 75 2c 31 34 29 0d  |%,mousemenu,14).|
00005f90  2b 48 28 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |+H(.changebcolou|
00005fa0  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 61 64 6a  |r(keys%,mouseadj|
00005fb0  75 73 74 2c 31 34 29 0d  2b 52 24 f2 63 68 61 6e  |ust,14).+R$.chan|
00005fc0  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00005fd0  6d 6f 75 73 65 75 70 2c  31 34 29 0d 2b 5c 26 f2  |mouseup,14).+\&.|
00005fe0  63 68 61 6e 67 65 62 63  6f 6c 6f 75 72 28 6b 65  |changebcolour(ke|
00005ff0  79 73 25 2c 6d 6f 75 73  65 64 6f 77 6e 2c 31 34  |ys%,mousedown,14|
00006000  29 0d 2b 66 26 f2 63 68  61 6e 67 65 62 63 6f 6c  |).+f&.changebcol|
00006010  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 6c  |our(keys%,mousel|
00006020  65 66 74 2c 31 30 29 0d  2b 70 27 f2 63 68 61 6e  |eft,10).+p'.chan|
00006030  67 65 62 63 6f 6c 6f 75  72 28 6b 65 79 73 25 2c  |gebcolour(keys%,|
00006040  6d 6f 75 73 65 72 69 67  68 74 2c 31 34 29 0d 2b  |mouseright,14).+|
00006050  7a 0d 73 65 74 74 69 6e  67 3d 35 0d 2b 84 07 c9  |z.setting=5.+...|
00006060  20 38 0d 2b 8e 2a f2 69  63 6f 6e 70 75 74 74 65  | 8.+.*.iconputte|
00006070  78 74 28 6d 6f 75 73 65  25 2c 31 31 2c 22 53 65  |xt(mouse%,11,"Se|
00006080  74 74 69 6e 67 20 64 6f  77 6e 22 29 0d 2b 98 28  |tting down").+.(|
00006090  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
000060a0  65 79 73 25 2c 6d 6f 75  73 65 73 65 6c 65 63 74  |eys%,mouseselect|
000060b0  2c 31 34 29 0d 2b a2 26  f2 63 68 61 6e 67 65 62  |,14).+.&.changeb|
000060c0  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
000060d0  73 65 6d 65 6e 75 2c 31  34 29 0d 2b ac 28 f2 63  |semenu,14).+.(.c|
000060e0  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
000060f0  73 25 2c 6d 6f 75 73 65  61 64 6a 75 73 74 2c 31  |s%,mouseadjust,1|
00006100  34 29 0d 2b b6 24 f2 63  68 61 6e 67 65 62 63 6f  |4).+.$.changebco|
00006110  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00006120  75 70 2c 31 34 29 0d 2b  c0 26 f2 63 68 61 6e 67  |up,14).+.&.chang|
00006130  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00006140  6f 75 73 65 64 6f 77 6e  2c 31 30 29 0d 2b ca 26  |ousedown,10).+.&|
00006150  f2 63 68 61 6e 67 65 62  63 6f 6c 6f 75 72 28 6b  |.changebcolour(k|
00006160  65 79 73 25 2c 6d 6f 75  73 65 6c 65 66 74 2c 31  |eys%,mouseleft,1|
00006170  34 29 0d 2b d4 27 f2 63  68 61 6e 67 65 62 63 6f  |4).+.'.changebco|
00006180  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00006190  72 69 67 68 74 2c 31 34  29 0d 2b de 0d 73 65 74  |right,14).+..set|
000061a0  74 69 6e 67 3d 36 0d 2b  e8 07 c9 20 39 0d 2b f2  |ting=6.+... 9.+.|
000061b0  2b f2 69 63 6f 6e 70 75  74 74 65 78 74 28 6d 6f  |+.iconputtext(mo|
000061c0  75 73 65 25 2c 31 31 2c  22 53 65 74 74 69 6e 67  |use%,11,"Setting|
000061d0  20 72 69 67 68 74 22 29  0d 2b fc 28 f2 63 68 61  | right").+.(.cha|
000061e0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000061f0  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 31 34 29  |,mouseselect,14)|
00006200  0d 2c 06 26 f2 63 68 61  6e 67 65 62 63 6f 6c 6f  |.,.&.changebcolo|
00006210  75 72 28 6b 65 79 73 25  2c 6d 6f 75 73 65 6d 65  |ur(keys%,mouseme|
00006220  6e 75 2c 31 34 29 0d 2c  10 28 f2 63 68 61 6e 67  |nu,14).,.(.chang|
00006230  65 62 63 6f 6c 6f 75 72  28 6b 65 79 73 25 2c 6d  |ebcolour(keys%,m|
00006240  6f 75 73 65 61 64 6a 75  73 74 2c 31 34 29 0d 2c  |ouseadjust,14).,|
00006250  1a 24 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |.$.changebcolour|
00006260  28 6b 65 79 73 25 2c 6d  6f 75 73 65 75 70 2c 31  |(keys%,mouseup,1|
00006270  34 29 0d 2c 24 26 f2 63  68 61 6e 67 65 62 63 6f  |4).,$&.changebco|
00006280  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00006290  64 6f 77 6e 2c 31 34 29  0d 2c 2e 26 f2 63 68 61  |down,14).,.&.cha|
000062a0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000062b0  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 34 29 0d 2c  |,mouseleft,14).,|
000062c0  38 27 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |8'.changebcolour|
000062d0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 72 69 67 68  |(keys%,mouserigh|
000062e0  74 2c 31 30 29 0d 2c 42  0d 73 65 74 74 69 6e 67  |t,10).,B.setting|
000062f0  3d 37 0d 2c 4c 05 cb 0d  2c 56 05 e1 0d 2c 60 05  |=7.,L...,V...,`.|
00006300  3a 0d 2c 6a 14 dd f2 63  6c 69 63 6b 6b 65 79 73  |:.,j...clickkeys|
00006310  28 69 63 25 29 0d 2c 74  42 e7 20 28 69 63 25 3e  |(ic%).,tB. (ic%>|
00006320  3d 30 20 80 20 69 63 25  3c 3d 26 37 32 29 20 80  |=0 . ic%<=&72) .|
00006330  20 69 63 25 3c 3e 37 37  20 80 20 a4 67 65 74 76  | ic%<>77 . .getv|
00006340  61 6c 69 64 28 6b 65 79  73 25 2c 69 63 25 29 3c  |alid(keys%,ic%)<|
00006350  3e 22 52 32 22 20 8c 0d  2c 7e 10 c8 8e 20 73 65  |>"R2" ..,~... se|
00006360  74 74 69 6e 67 20 ca 0d  2c 88 07 c9 20 31 0d 2c  |tting ..,... 1.,|
00006370  92 25 f2 73 65 74 76 61  6c 69 64 28 6b 65 79 73  |.%.setvalid(keys|
00006380  25 2c 6d 6f 75 73 65 73  65 6c 65 63 74 2c 22 52  |%,mouseselect,"R|
00006390  35 22 29 0d 2c 9c 27 f2  63 68 61 6e 67 65 62 63  |5").,.'.changebc|
000063a0  6f 6c 6f 75 72 28 6b 65  79 73 25 2c 6d 6f 75 73  |olour(keys%,mous|
000063b0  65 73 65 6c 65 63 74 2c  31 29 0d 2c a6 13 6d 6f  |eselect,1).,..mo|
000063c0  75 73 65 73 65 6c 65 63  74 3d 69 63 25 0d 2c b0  |useselect=ic%.,.|
000063d0  25 f2 73 65 74 76 61 6c  69 64 28 6b 65 79 73 25  |%.setvalid(keys%|
000063e0  2c 6d 6f 75 73 65 73 65  6c 65 63 74 2c 22 52 32  |,mouseselect,"R2|
000063f0  22 29 0d 2c ba 28 f2 63  68 61 6e 67 65 62 63 6f  |").,.(.changebco|
00006400  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
00006410  73 65 6c 65 63 74 2c 31  30 29 0d 2c c4 07 c9 20  |select,10).,... |
00006420  32 0d 2c ce 23 f2 73 65  74 76 61 6c 69 64 28 6b  |2.,.#.setvalid(k|
00006430  65 79 73 25 2c 6d 6f 75  73 65 6d 65 6e 75 2c 22  |eys%,mousemenu,"|
00006440  52 35 22 29 0d 2c d8 25  f2 63 68 61 6e 67 65 62  |R5").,.%.changeb|
00006450  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
00006460  73 65 6d 65 6e 75 2c 31  29 0d 2c e2 11 6d 6f 75  |semenu,1).,..mou|
00006470  73 65 6d 65 6e 75 3d 69  63 25 0d 2c ec 23 f2 73  |semenu=ic%.,.#.s|
00006480  65 74 76 61 6c 69 64 28  6b 65 79 73 25 2c 6d 6f  |etvalid(keys%,mo|
00006490  75 73 65 6d 65 6e 75 2c  22 52 32 22 29 0d 2c f6  |usemenu,"R2").,.|
000064a0  26 f2 63 68 61 6e 67 65  62 63 6f 6c 6f 75 72 28  |&.changebcolour(|
000064b0  6b 65 79 73 25 2c 6d 6f  75 73 65 6d 65 6e 75 2c  |keys%,mousemenu,|
000064c0  31 30 29 0d 2d 00 07 c9  20 33 0d 2d 0a 25 f2 73  |10).-... 3.-.%.s|
000064d0  65 74 76 61 6c 69 64 28  6b 65 79 73 25 2c 6d 6f  |etvalid(keys%,mo|
000064e0  75 73 65 61 64 6a 75 73  74 2c 22 52 35 22 29 0d  |useadjust,"R5").|
000064f0  2d 14 27 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |-.'.changebcolou|
00006500  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 61 64 6a  |r(keys%,mouseadj|
00006510  75 73 74 2c 31 29 0d 2d  1e 13 6d 6f 75 73 65 61  |ust,1).-..mousea|
00006520  64 6a 75 73 74 3d 69 63  25 0d 2d 28 25 f2 73 65  |djust=ic%.-(%.se|
00006530  74 76 61 6c 69 64 28 6b  65 79 73 25 2c 6d 6f 75  |tvalid(keys%,mou|
00006540  73 65 61 64 6a 75 73 74  2c 22 52 32 22 29 0d 2d  |seadjust,"R2").-|
00006550  32 28 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |2(.changebcolour|
00006560  28 6b 65 79 73 25 2c 6d  6f 75 73 65 61 64 6a 75  |(keys%,mouseadju|
00006570  73 74 2c 31 30 29 0d 2d  3c 07 c9 20 34 0d 2d 46  |st,10).-<.. 4.-F|
00006580  21 f2 73 65 74 76 61 6c  69 64 28 6b 65 79 73 25  |!.setvalid(keys%|
00006590  2c 6d 6f 75 73 65 75 70  2c 22 52 35 22 29 0d 2d  |,mouseup,"R5").-|
000065a0  50 23 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |P#.changebcolour|
000065b0  28 6b 65 79 73 25 2c 6d  6f 75 73 65 75 70 2c 31  |(keys%,mouseup,1|
000065c0  29 0d 2d 5a 0f 6d 6f 75  73 65 75 70 3d 69 63 25  |).-Z.mouseup=ic%|
000065d0  0d 2d 64 21 f2 73 65 74  76 61 6c 69 64 28 6b 65  |.-d!.setvalid(ke|
000065e0  79 73 25 2c 6d 6f 75 73  65 75 70 2c 22 52 32 22  |ys%,mouseup,"R2"|
000065f0  29 0d 2d 6e 24 f2 63 68  61 6e 67 65 62 63 6f 6c  |).-n$.changebcol|
00006600  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 75  |our(keys%,mouseu|
00006610  70 2c 31 30 29 0d 2d 78  07 c9 20 35 0d 2d 82 23  |p,10).-x.. 5.-.#|
00006620  f2 73 65 74 76 61 6c 69  64 28 6b 65 79 73 25 2c  |.setvalid(keys%,|
00006630  6d 6f 75 73 65 6c 65 66  74 2c 22 52 35 22 29 0d  |mouseleft,"R5").|
00006640  2d 8c 25 f2 63 68 61 6e  67 65 62 63 6f 6c 6f 75  |-.%.changebcolou|
00006650  72 28 6b 65 79 73 25 2c  6d 6f 75 73 65 6c 65 66  |r(keys%,mouselef|
00006660  74 2c 31 29 0d 2d 96 11  6d 6f 75 73 65 6c 65 66  |t,1).-..mouselef|
00006670  74 3d 69 63 25 0d 2d a0  23 f2 73 65 74 76 61 6c  |t=ic%.-.#.setval|
00006680  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 6c 65  |id(keys%,mousele|
00006690  66 74 2c 22 52 32 22 29  0d 2d aa 26 f2 63 68 61  |ft,"R2").-.&.cha|
000066a0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
000066b0  2c 6d 6f 75 73 65 6c 65  66 74 2c 31 30 29 0d 2d  |,mouseleft,10).-|
000066c0  b4 07 c9 20 36 0d 2d be  23 f2 73 65 74 76 61 6c  |... 6.-.#.setval|
000066d0  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 64 6f  |id(keys%,mousedo|
000066e0  77 6e 2c 22 52 35 22 29  0d 2d c8 25 f2 63 68 61  |wn,"R5").-.%.cha|
000066f0  6e 67 65 62 63 6f 6c 6f  75 72 28 6b 65 79 73 25  |ngebcolour(keys%|
00006700  2c 6d 6f 75 73 65 64 6f  77 6e 2c 31 29 0d 2d d2  |,mousedown,1).-.|
00006710  11 6d 6f 75 73 65 64 6f  77 6e 3d 69 63 25 0d 2d  |.mousedown=ic%.-|
00006720  dc 23 f2 73 65 74 76 61  6c 69 64 28 6b 65 79 73  |.#.setvalid(keys|
00006730  25 2c 6d 6f 75 73 65 64  6f 77 6e 2c 22 52 32 22  |%,mousedown,"R2"|
00006740  29 0d 2d e6 26 f2 63 68  61 6e 67 65 62 63 6f 6c  |).-.&.changebcol|
00006750  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 64  |our(keys%,moused|
00006760  6f 77 6e 2c 31 30 29 0d  2d f0 07 c9 20 37 0d 2d  |own,10).-... 7.-|
00006770  fa 24 f2 73 65 74 76 61  6c 69 64 28 6b 65 79 73  |.$.setvalid(keys|
00006780  25 2c 6d 6f 75 73 65 72  69 67 68 74 2c 22 52 35  |%,mouseright,"R5|
00006790  22 29 0d 2e 04 26 f2 63  68 61 6e 67 65 62 63 6f  |")...&.changebco|
000067a0  6c 6f 75 72 28 6b 65 79  73 25 2c 6d 6f 75 73 65  |lour(keys%,mouse|
000067b0  72 69 67 68 74 2c 31 29  0d 2e 0e 12 6d 6f 75 73  |right,1)....mous|
000067c0  65 72 69 67 68 74 3d 69  63 25 0d 2e 18 24 f2 73  |eright=ic%...$.s|
000067d0  65 74 76 61 6c 69 64 28  6b 65 79 73 25 2c 6d 6f  |etvalid(keys%,mo|
000067e0  75 73 65 72 69 67 68 74  2c 22 52 32 22 29 0d 2e  |useright,"R2")..|
000067f0  22 27 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |"'.changebcolour|
00006800  28 6b 65 79 73 25 2c 6d  6f 75 73 65 72 69 67 68  |(keys%,mouserigh|
00006810  74 2c 31 30 29 0d 2e 2c  05 cb 0d 2e 36 52 f2 73  |t,10)..,....6R.s|
00006820  65 74 28 6d 6f 75 73 65  6c 65 66 74 2c 6d 6f 75  |et(mouseleft,mou|
00006830  73 65 72 69 67 68 74 2c  6d 6f 75 73 65 75 70 2c  |seright,mouseup,|
00006840  6d 6f 75 73 65 64 6f 77  6e 2c 6d 6f 75 73 65 73  |mousedown,mouses|
00006850  65 6c 65 63 74 2c 6d 6f  75 73 65 6d 65 6e 75 2c  |elect,mousemenu,|
00006860  6d 6f 75 73 65 61 64 6a  75 73 74 29 0d 2e 40 12  |mouseadjust)..@.|
00006870  63 75 72 72 65 6e 74 75  73 65 72 3d 2d 31 0d 2e  |currentuser=-1..|
00006880  4a 05 cd 0d 2e 54 05 e1  0d 2e 5e 05 3a 0d 2e 68  |J....T....^.:..h|
00006890  24 dd f2 61 6c 65 72 74  28 74 69 74 6c 65 24 2c  |$..alert(title$,|
000068a0  6d 65 73 73 61 67 65 24  2c 62 75 74 74 6f 6e 25  |message$,button%|
000068b0  29 0d 2e 72 18 24 28 62  6c 6f 63 6b 25 2b 34 29  |)..r.$(block%+4)|
000068c0  3d 6d 65 73 73 61 67 65  24 0d 2e 7c 33 c8 99 20  |=message$..|3.. |
000068d0  26 30 30 30 34 30 30 44  46 2c 62 6c 6f 63 6b 25  |&000400DF,block%|
000068e0  2c 62 75 74 74 6f 6e 25  2c 74 69 74 6c 65 24 20  |,button%,title$ |
000068f0  b8 20 2c 72 65 73 70 6f  6e 73 65 25 0d 2e 86 05  |. ,response%....|
00006900  e1 0d 2e 90 05 3a 0d 2e  9a 1a dd f2 64 72 61 77  |.....:......draw|
00006910  62 6f 78 28 77 69 25 2c  69 63 25 2c 73 6e 24 29  |box(wi%,ic%,sn$)|
00006920  0d 2e a4 23 c8 99 20 26  30 30 30 30 30 30 33 35  |...#.. &00000035|
00006930  2c eb 2c 31 31 20 b8 20  2c 2c 78 70 69 78 6c 69  |,.,11 . ,,xpixli|
00006940  6d 69 74 0d 2e ae 23 c8  99 20 26 30 30 30 30 30  |mit...#.. &00000|
00006950  30 33 35 2c eb 2c 31 32  20 b8 20 2c 2c 79 70 69  |035,.,12 . ,,ypi|
00006960  78 6c 69 6d 69 74 0d 2e  b8 1e c8 99 20 26 30 30  |xlimit...... &00|
00006970  30 30 30 30 33 35 2c eb  2c 34 20 b8 20 2c 2c 78  |000035,.,4 . ,,x|
00006980  66 61 63 74 0d 2e c2 1e  c8 99 20 26 30 30 30 30  |fact...... &0000|
00006990  30 30 33 35 2c eb 2c 35  20 b8 20 2c 2c 79 66 61  |0035,.,5 . ,,yfa|
000069a0  63 74 0d 2e cc 1d 6d 61  78 58 3d 28 78 70 69 78  |ct....maxX=(xpix|
000069b0  6c 69 6d 69 74 2b 31 29  3c 3c 78 66 61 63 74 0d  |limit+1)<<xfact.|
000069c0  2e d6 1d 6d 61 78 59 3d  28 79 70 69 78 6c 69 6d  |...maxY=(ypixlim|
000069d0  69 74 2b 31 29 3c 3c 79  66 61 63 74 0d 2e e0 10  |it+1)<<yfact....|
000069e0  62 6c 6f 63 6b 25 21 30  3d 77 69 25 0d 2e ea 17  |block%!0=wi%....|
000069f0  c8 99 26 30 30 30 34 30  30 43 42 2c 2c 62 6c 6f  |..&000400CB,,blo|
00006a00  63 6b 25 0d 2e f4 32 79  73 25 3d 62 6c 6f 63 6b  |ck%...2ys%=block|
00006a10  25 21 31 36 2d 62 6c 6f  63 6b 25 21 38 3a 58 25  |%!16-block%!8:X%|
00006a20  3d 62 6c 6f 63 6b 25 21  34 3a 59 25 3d 62 6c 6f  |=block%!4:Y%=blo|
00006a30  63 6b 25 21 38 0d 2e fe  13 79 6f 66 66 25 3d 62  |ck%!8....yoff%=b|
00006a40  6c 6f 63 6b 25 21 32 34  0d 2f 08 1d 62 6c 6f 63  |lock%!24./..bloc|
00006a50  6b 25 21 30 3d 77 69 25  3a 62 6c 6f 63 6b 25 21  |k%!0=wi%:block%!|
00006a60  34 3d 69 63 25 0d 2f 12  17 c8 99 26 30 30 30 34  |4=ic%./....&0004|
00006a70  30 30 43 45 2c 2c 62 6c  6f 63 6b 25 0d 2f 1c 10  |00CE,,block%./..|
00006a80  62 6c 6f 63 6b 25 21 38  2b 3d 58 25 0d 2f 26 1b  |block%!8+=X%./&.|
00006a90  62 6c 6f 63 6b 25 21 31  32 2b 3d 59 25 2b 79 73  |block%!12+=Y%+ys|
00006aa0  25 2d 79 6f 66 66 25 0d  2f 30 11 62 6c 6f 63 6b  |%-yoff%./0.block|
00006ab0  25 21 31 36 2b 3d 58 25  0d 2f 3a 1b 62 6c 6f 63  |%!16+=X%./:.bloc|
00006ac0  6b 25 21 32 30 2b 3d 59  25 2b 79 73 25 2d 79 6f  |k%!20+=Y%+ys%-yo|
00006ad0  66 66 25 0d 2f 44 0e 62  6c 6f 63 6b 25 21 34 3d  |ff%./D.block%!4=|
00006ae0  35 0d 2f 4e 18 c8 99 26  30 30 30 34 30 30 43 46  |5./N...&000400CF|
00006af0  2c 2c 62 6c 6f 63 6b 32  25 0d 2f 58 24 62 6c 6f  |,,block2%./X$blo|
00006b00  63 6b 25 21 32 34 3d 30  2d 28 62 6c 6f 63 6b 32  |ck%!24=0-(block2|
00006b10  25 21 30 2d 62 6c 6f 63  6b 25 21 38 29 0d 2f 62  |%!0-block%!8)./b|
00006b20  25 62 6c 6f 63 6b 25 21  32 38 3d 30 2d 28 62 6c  |%block%!28=0-(bl|
00006b30  6f 63 6b 32 25 21 34 2d  62 6c 6f 63 6b 25 21 31  |ock2%!4-block%!1|
00006b40  32 29 0d 2f 6c 2a 62 6c  6f 63 6b 25 21 33 32 3d  |2)./l*block%!32=|
00006b50  6d 61 78 58 2b 28 62 6c  6f 63 6b 25 21 31 36 2d  |maxX+(block%!16-|
00006b60  62 6c 6f 63 6b 32 25 21  30 29 2d 32 0d 2f 76 2a  |block2%!0)-2./v*|
00006b70  62 6c 6f 63 6b 25 21 33  36 3d 6d 61 78 59 2b 28  |block%!36=maxY+(|
00006b80  62 6c 6f 63 6b 25 21 32  30 2d 62 6c 6f 63 6b 32  |block%!20-block2|
00006b90  25 21 34 29 2d 34 0d 2f  80 10 62 6c 6f 63 6b 25  |%!4)-4./..block%|
00006ba0  21 30 3d 69 63 25 0d 2f  8a 0e e7 20 73 6e 24 3d  |!0=ic%./... sn$=|
00006bb0  22 22 20 8c 0d 2f 94 17  c8 99 26 30 30 30 34 30  |"" ../....&00040|
00006bc0  30 44 30 2c 2c 62 6c 6f  63 6b 25 0d 2f 9e 05 cc  |0D0,,block%./...|
00006bd0  0d 2f a8 29 c8 99 20 26  30 30 30 34 32 34 30 30  |./.).. &00042400|
00006be0  2c 25 31 31 30 30 30 31  30 31 2c 31 2c 73 6e 24  |,%11000101,1,sn$|
00006bf0  2c 62 6c 6f 63 6b 25 2b  38 0d 2f b2 05 cd 0d 2f  |,block%+8./..../|
00006c00  bc 16 64 72 61 67 67 65  64 77 69 6e 64 6f 77 25  |..draggedwindow%|
00006c10  3d 77 69 25 0d 2f c6 05  e1 0d 2f d0 05 3a 0d 2f  |=wi%./..../..:./|
00006c20  da 0b dd f2 65 72 72 6f  72 0d 2f e4 2c f2 61 6c  |....error./.,.al|
00006c30  65 72 74 28 22 4d 65 73  73 67 61 67 65 20 66 72  |ert("Messgage fr|
00006c40  6f 6d 20 52 6f 64 65 6e  74 22 2c f6 24 2c 25 31  |om Rodent",.$,%1|
00006c50  30 30 31 30 29 0d 2f ee  08 d9 20 23 30 0d 2f f8  |0010)./... #0./.|
00006c60  05 e1 0d 30 02 05 3a 0d  30 0c 11 dd f2 73 61 76  |...0..:.0....sav|
00006c70  65 28 70 61 74 68 24 29  0d 30 16 07 ea 20 85 0d  |e(path$).0... ..|
00006c80  30 20 12 ee 20 85 20 ea  20 f2 65 72 72 6f 72 3a  |0 .. . . .error:|
00006c90  e1 0d 30 2a 17 c8 8e 20  64 72 61 67 67 65 64 77  |..0*... draggedw|
00006ca0  69 6e 64 6f 77 25 20 ca  0d 30 34 0d c9 20 73 61  |indow% ..04.. sa|
00006cb0  76 65 61 73 25 0d 30 3e  0f 72 65 73 70 6f 6e 73  |veas%.0>.respons|
00006cc0  65 25 3d 31 0d 30 48 0f  58 25 3d 8e 28 70 61 74  |e%=1.0H.X%=.(pat|
00006cd0  68 24 29 0d 30 52 0c e7  20 58 25 3e 30 20 8c 0d  |h$).0R.. X%>0 ..|
00006ce0  30 5c 59 f2 61 6c 65 72  74 28 22 4d 65 73 73 61  |0\Y.alert("Messa|
00006cf0  67 65 20 66 72 6f 6d 20  52 6f 64 65 6e 74 22 2c  |ge from Rodent",|
00006d00  22 41 20 66 69 6c 65 20  6f 66 20 74 68 65 20 6e  |"A file of the n|
00006d10  61 6d 65 20 61 6c 72 65  61 64 79 20 65 78 69 73  |ame already exis|
00006d20  74 73 2e 20 4f 76 65 72  77 72 69 74 65 20 3f 22  |ts. Overwrite ?"|
00006d30  2c 25 31 30 30 31 31 29  0d 30 66 09 d9 20 23 58  |,%10011).0f.. #X|
00006d40  25 0d 30 70 05 cd 0d 30  7a 13 e7 20 72 65 73 70  |%.0p...0z.. resp|
00006d50  6f 6e 73 65 25 3d 31 20  8c 0d 30 84 0f 58 25 3d  |onse%=1 ..0..X%=|
00006d60  ae 28 70 61 74 68 24 29  0d 30 8e 0b f1 20 23 58  |.(path$).0... #X|
00006d70  25 2c 78 0d 30 98 0b f1  20 23 58 25 2c 79 0d 30  |%,x.0... #X%,y.0|
00006d80  a2 11 f1 20 23 58 25 2c  73 65 74 74 69 6e 67 0d  |... #X%,setting.|
00006d90  30 ac 0d f1 20 23 58 25  2c 75 78 31 0d 30 b6 0d  |0... #X%,ux1.0..|
00006da0  f1 20 23 58 25 2c 75 79  31 0d 30 c0 0d f1 20 23  |. #X%,uy1.0... #|
00006db0  58 25 2c 75 78 32 0d 30  ca 0d f1 20 23 58 25 2c  |X%,ux2.0... #X%,|
00006dc0  75 79 32 0d 30 d4 15 f1  20 23 58 25 2c 6d 6f 75  |uy2.0... #X%,mou|
00006dd0  73 65 73 65 6c 65 63 74  0d 30 de 13 f1 20 23 58  |seselect.0... #X|
00006de0  25 2c 6d 6f 75 73 65 6d  65 6e 75 0d 30 e8 15 f1  |%,mousemenu.0...|
00006df0  20 23 58 25 2c 6d 6f 75  73 65 61 64 6a 75 73 74  | #X%,mouseadjust|
00006e00  0d 30 f2 11 f1 20 23 58  25 2c 6d 6f 75 73 65 75  |.0... #X%,mouseu|
00006e10  70 0d 30 fc 13 f1 20 23  58 25 2c 6d 6f 75 73 65  |p.0... #X%,mouse|
00006e20  64 6f 77 6e 0d 31 06 13  f1 20 23 58 25 2c 6d 6f  |down.1... #X%,mo|
00006e30  75 73 65 6c 65 66 74 0d  31 10 14 f1 20 23 58 25  |useleft.1... #X%|
00006e40  2c 6d 6f 75 73 65 72 69  67 68 74 0d 31 1a 05 3a  |,mouseright.1..:|
00006e50  0d 31 24 17 f1 20 23 58  25 2c 75 31 6d 6f 75 73  |.1$.. #X%,u1mous|
00006e60  65 73 65 6c 65 63 74 0d  31 2e 15 f1 20 23 58 25  |eselect.1... #X%|
00006e70  2c 75 31 6d 6f 75 73 65  6d 65 6e 75 0d 31 38 17  |,u1mousemenu.18.|
00006e80  f1 20 23 58 25 2c 75 31  6d 6f 75 73 65 61 64 6a  |. #X%,u1mouseadj|
00006e90  75 73 74 0d 31 42 13 f1  20 23 58 25 2c 75 31 6d  |ust.1B.. #X%,u1m|
00006ea0  6f 75 73 65 75 70 0d 31  4c 15 f1 20 23 58 25 2c  |ouseup.1L.. #X%,|
00006eb0  75 31 6d 6f 75 73 65 64  6f 77 6e 0d 31 56 15 f1  |u1mousedown.1V..|
00006ec0  20 23 58 25 2c 75 31 6d  6f 75 73 65 6c 65 66 74  | #X%,u1mouseleft|
00006ed0  0d 31 60 16 f1 20 23 58  25 2c 75 31 6d 6f 75 73  |.1`.. #X%,u1mous|
00006ee0  65 72 69 67 68 74 0d 31  6a 05 3a 0d 31 74 17 f1  |eright.1j.:.1t..|
00006ef0  20 23 58 25 2c 75 32 6d  6f 75 73 65 73 65 6c 65  | #X%,u2mousesele|
00006f00  63 74 0d 31 7e 15 f1 20  23 58 25 2c 75 32 6d 6f  |ct.1~.. #X%,u2mo|
00006f10  75 73 65 6d 65 6e 75 0d  31 88 17 f1 20 23 58 25  |usemenu.1... #X%|
00006f20  2c 75 32 6d 6f 75 73 65  61 64 6a 75 73 74 0d 31  |,u2mouseadjust.1|
00006f30  92 13 f1 20 23 58 25 2c  75 32 6d 6f 75 73 65 75  |... #X%,u2mouseu|
00006f40  70 0d 31 9c 15 f1 20 23  58 25 2c 75 32 6d 6f 75  |p.1... #X%,u2mou|
00006f50  73 65 64 6f 77 6e 0d 31  a6 15 f1 20 23 58 25 2c  |sedown.1... #X%,|
00006f60  75 32 6d 6f 75 73 65 6c  65 66 74 0d 31 b0 16 f1  |u2mouseleft.1...|
00006f70  20 23 58 25 2c 75 32 6d  6f 75 73 65 72 69 67 68  | #X%,u2mouserigh|
00006f80  74 0d 31 ba 09 d9 20 23  58 25 0d 31 c4 1f ff 28  |t.1... #X%.1...(|
00006f90  22 53 45 54 54 59 50 45  20 22 2b 70 61 74 68 24  |"SETTYPE "+path$|
00006fa0  2b 22 20 26 33 35 32 22  29 0d 31 ce 21 f2 69 63  |+" &352").1.!.ic|
00006fb0  6f 6e 70 75 74 74 65 78  74 28 73 61 76 65 61 73  |onputtext(saveas|
00006fc0  25 2c 31 2c 70 61 74 68  24 29 0d 31 d8 05 cd 0d  |%,1,path$).1....|
00006fd0  31 e2 05 cb 0d 31 ec 05  e1 0d 31 f6 05 3a 0d 32  |1....1....1..:.2|
00006fe0  00 11 dd f2 6c 6f 61 64  28 70 61 74 68 24 29 0d  |....load(path$).|
00006ff0  32 0a 07 ea 20 85 0d 32  14 12 ee 20 85 20 ea 20  |2... ..2... . . |
00007000  f2 65 72 72 6f 72 3a e1  0d 32 1e 16 e7 20 62 6c  |.error:..2... bl|
00007010  6f 63 6b 25 21 34 30 3d  26 33 35 32 20 8c 0d 32  |ock%!40=&352 ..2|
00007020  28 27 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |('.changebcolour|
00007030  28 6b 65 79 73 25 2c 6d  6f 75 73 65 73 65 6c 65  |(keys%,mousesele|
00007040  63 74 2c 31 29 0d 32 32  25 f2 63 68 61 6e 67 65  |ct,1).22%.change|
00007050  62 63 6f 6c 6f 75 72 28  6b 65 79 73 25 2c 6d 6f  |bcolour(keys%,mo|
00007060  75 73 65 6d 65 6e 75 2c  31 29 0d 32 3c 27 f2 63  |usemenu,1).2<'.c|
00007070  68 61 6e 67 65 62 63 6f  6c 6f 75 72 28 6b 65 79  |hangebcolour(key|
00007080  73 25 2c 6d 6f 75 73 65  61 64 6a 75 73 74 2c 31  |s%,mouseadjust,1|
00007090  29 0d 32 46 23 f2 63 68  61 6e 67 65 62 63 6f 6c  |).2F#.changebcol|
000070a0  6f 75 72 28 6b 65 79 73  25 2c 6d 6f 75 73 65 75  |our(keys%,mouseu|
000070b0  70 2c 31 29 0d 32 50 25  f2 63 68 61 6e 67 65 62  |p,1).2P%.changeb|
000070c0  63 6f 6c 6f 75 72 28 6b  65 79 73 25 2c 6d 6f 75  |colour(keys%,mou|
000070d0  73 65 64 6f 77 6e 2c 31  29 0d 32 5a 25 f2 63 68  |sedown,1).2Z%.ch|
000070e0  61 6e 67 65 62 63 6f 6c  6f 75 72 28 6b 65 79 73  |angebcolour(keys|
000070f0  25 2c 6d 6f 75 73 65 6c  65 66 74 2c 31 29 0d 32  |%,mouseleft,1).2|
00007100  64 26 f2 63 68 61 6e 67  65 62 63 6f 6c 6f 75 72  |d&.changebcolour|
00007110  28 6b 65 79 73 25 2c 6d  6f 75 73 65 72 69 67 68  |(keys%,mouserigh|
00007120  74 2c 31 29 0d 32 6e 25  f2 73 65 74 76 61 6c 69  |t,1).2n%.setvali|
00007130  64 28 6b 65 79 73 25 2c  6d 6f 75 73 65 73 65 6c  |d(keys%,mousesel|
00007140  65 63 74 2c 22 52 35 22  29 0d 32 78 23 f2 73 65  |ect,"R5").2x#.se|
00007150  74 76 61 6c 69 64 28 6b  65 79 73 25 2c 6d 6f 75  |tvalid(keys%,mou|
00007160  73 65 6d 65 6e 75 2c 22  52 35 22 29 0d 32 82 25  |semenu,"R5").2.%|
00007170  f2 73 65 74 76 61 6c 69  64 28 6b 65 79 73 25 2c  |.setvalid(keys%,|
00007180  6d 6f 75 73 65 61 64 6a  75 73 74 2c 22 52 35 22  |mouseadjust,"R5"|
00007190  29 0d 32 8c 21 f2 73 65  74 76 61 6c 69 64 28 6b  |).2.!.setvalid(k|
000071a0  65 79 73 25 2c 6d 6f 75  73 65 75 70 2c 22 52 35  |eys%,mouseup,"R5|
000071b0  22 29 0d 32 96 23 f2 73  65 74 76 61 6c 69 64 28  |").2.#.setvalid(|
000071c0  6b 65 79 73 25 2c 6d 6f  75 73 65 6c 65 66 74 2c  |keys%,mouseleft,|
000071d0  22 52 35 22 29 0d 32 a0  23 f2 73 65 74 76 61 6c  |"R5").2.#.setval|
000071e0  69 64 28 6b 65 79 73 25  2c 6d 6f 75 73 65 64 6f  |id(keys%,mousedo|
000071f0  77 6e 2c 22 52 35 22 29  0d 32 aa 24 f2 73 65 74  |wn,"R5").2.$.set|
00007200  76 61 6c 69 64 28 6b 65  79 73 25 2c 6d 6f 75 73  |valid(keys%,mous|
00007210  65 72 69 67 68 74 2c 22  52 35 22 29 0d 32 b4 0f  |eright,"R5").2..|
00007220  58 25 3d 8e 28 70 61 74  68 24 29 0d 32 be 0b e8  |X%=.(path$).2...|
00007230  20 23 58 25 2c 78 0d 32  c8 0b e8 20 23 58 25 2c  | #X%,x.2... #X%,|
00007240  79 0d 32 d2 11 e8 20 23  58 25 2c 73 65 74 74 69  |y.2... #X%,setti|
00007250  6e 67 0d 32 dc 0d e8 20  23 58 25 2c 75 78 31 0d  |ng.2... #X%,ux1.|
00007260  32 e6 0d e8 20 23 58 25  2c 75 79 31 0d 32 f0 0d  |2... #X%,uy1.2..|
00007270  e8 20 23 58 25 2c 75 78  32 0d 32 fa 0d e8 20 23  |. #X%,ux2.2... #|
00007280  58 25 2c 75 79 32 0d 33  04 15 e8 20 23 58 25 2c  |X%,uy2.3... #X%,|
00007290  6d 6f 75 73 65 73 65 6c  65 63 74 0d 33 0e 13 e8  |mouseselect.3...|
000072a0  20 23 58 25 2c 6d 6f 75  73 65 6d 65 6e 75 0d 33  | #X%,mousemenu.3|
000072b0  18 15 e8 20 23 58 25 2c  6d 6f 75 73 65 61 64 6a  |... #X%,mouseadj|
000072c0  75 73 74 0d 33 22 11 e8  20 23 58 25 2c 6d 6f 75  |ust.3".. #X%,mou|
000072d0  73 65 75 70 0d 33 2c 13  e8 20 23 58 25 2c 6d 6f  |seup.3,.. #X%,mo|
000072e0  75 73 65 64 6f 77 6e 0d  33 36 13 e8 20 23 58 25  |usedown.36.. #X%|
000072f0  2c 6d 6f 75 73 65 6c 65  66 74 0d 33 40 14 e8 20  |,mouseleft.3@.. |
00007300  23 58 25 2c 6d 6f 75 73  65 72 69 67 68 74 0d 33  |#X%,mouseright.3|
00007310  4a 05 3a 0d 33 54 17 e8  20 23 58 25 2c 75 31 6d  |J.:.3T.. #X%,u1m|
00007320  6f 75 73 65 73 65 6c 65  63 74 0d 33 5e 15 e8 20  |ouseselect.3^.. |
00007330  23 58 25 2c 75 31 6d 6f  75 73 65 6d 65 6e 75 0d  |#X%,u1mousemenu.|
00007340  33 68 17 e8 20 23 58 25  2c 75 31 6d 6f 75 73 65  |3h.. #X%,u1mouse|
00007350  61 64 6a 75 73 74 0d 33  72 13 e8 20 23 58 25 2c  |adjust.3r.. #X%,|
00007360  75 31 6d 6f 75 73 65 75  70 0d 33 7c 15 e8 20 23  |u1mouseup.3|.. #|
00007370  58 25 2c 75 31 6d 6f 75  73 65 64 6f 77 6e 0d 33  |X%,u1mousedown.3|
00007380  86 15 e8 20 23 58 25 2c  75 31 6d 6f 75 73 65 6c  |... #X%,u1mousel|
00007390  65 66 74 0d 33 90 16 e8  20 23 58 25 2c 75 31 6d  |eft.3... #X%,u1m|
000073a0  6f 75 73 65 72 69 67 68  74 0d 33 9a 05 3a 0d 33  |ouseright.3..:.3|
000073b0  a4 17 e8 20 23 58 25 2c  75 32 6d 6f 75 73 65 73  |... #X%,u2mouses|
000073c0  65 6c 65 63 74 0d 33 ae  15 e8 20 23 58 25 2c 75  |elect.3... #X%,u|
000073d0  32 6d 6f 75 73 65 6d 65  6e 75 0d 33 b8 17 e8 20  |2mousemenu.3... |
000073e0  23 58 25 2c 75 32 6d 6f  75 73 65 61 64 6a 75 73  |#X%,u2mouseadjus|
000073f0  74 0d 33 c2 13 e8 20 23  58 25 2c 75 32 6d 6f 75  |t.3... #X%,u2mou|
00007400  73 65 75 70 0d 33 cc 15  e8 20 23 58 25 2c 75 32  |seup.3... #X%,u2|
00007410  6d 6f 75 73 65 64 6f 77  6e 0d 33 d6 15 e8 20 23  |mousedown.3... #|
00007420  58 25 2c 75 32 6d 6f 75  73 65 6c 65 66 74 0d 33  |X%,u2mouseleft.3|
00007430  e0 16 e8 20 23 58 25 2c  75 32 6d 6f 75 73 65 72  |... #X%,u2mouser|
00007440  69 67 68 74 0d 33 ea 09  d9 20 23 58 25 0d 33 f4  |ight.3... #X%.3.|
00007450  21 f2 69 63 6f 6e 70 75  74 74 65 78 74 28 73 61  |!.iconputtext(sa|
00007460  76 65 61 73 25 2c 31 2c  70 61 74 68 24 29 0d 33  |veas%,1,path$).3|
00007470  fe 1b f2 64 6f 73 65 74  74 69 6e 67 69 63 6f 6e  |...dosettingicon|
00007480  28 73 65 74 74 69 6e 67  29 0d 34 08 1a f2 73 65  |(setting).4...se|
00007490  74 62 61 72 28 73 74 65  70 25 2c 37 2c 36 2c 39  |tbar(step%,7,6,9|
000074a0  2c 78 29 0d 34 12 1c f2  73 65 74 62 61 72 28 73  |,x).4...setbar(s|
000074b0  74 65 70 25 2c 31 34 2c  31 33 2c 39 2c 79 29 0d  |tep%,14,13,9,y).|
000074c0  34 1c 20 f2 69 63 6f 6e  70 75 74 74 65 78 74 28  |4. .iconputtext(|
000074d0  73 74 65 70 25 2c 33 2c  c3 28 78 2b 31 29 29 0d  |step%,3,.(x+1)).|
000074e0  34 26 21 f2 69 63 6f 6e  70 75 74 74 65 78 74 28  |4&!.iconputtext(|
000074f0  73 74 65 70 25 2c 31 30  2c c3 28 79 2b 31 29 29  |step%,10,.(y+1))|
00007500  0d 34 30 10 c8 97 20 88  20 78 2b 31 2c 79 2b 31  |.40... . x+1,y+1|
00007510  0d 34 3a 05 cc 0d 34 44  50 f2 61 6c 65 72 74 28  |.4:...4DP.alert(|
00007520  22 4d 65 73 73 61 67 65  20 66 72 6f 6d 20 52 6f  |"Message from Ro|
00007530  64 65 6e 74 22 2c 22 49  20 63 61 6e 27 74 20 75  |dent","I can't u|
00007540  6e 64 65 72 73 74 61 6e  64 20 74 68 69 73 20 66  |nderstand this f|
00007550  69 6c 65 21 20 4e 75 74  74 65 72 21 22 2c 25 31  |ile! Nutter!",%1|
00007560  30 30 31 30 29 0d 34 4e  05 cd 0d 34 58 05 e1 0d  |0010).4N...4X...|
00007570  34 62 05 3a 0d 34 6c 12  dd a4 69 73 6f 70 65 6e  |4b.:.4l...isopen|
00007580  28 77 69 6e 25 29 0d 34  76 11 62 6c 6f 63 6b 25  |(win%).4v.block%|
00007590  21 30 3d 77 69 6e 25 0d  34 80 18 c8 99 20 26 30  |!0=win%.4.... &0|
000075a0  30 30 34 30 30 43 42 2c  2c 62 6c 6f 63 6b 25 0d  |00400CB,,block%.|
000075b0  34 8a 17 77 69 6e 66 6c  61 67 73 25 3d 62 6c 6f  |4..winflags%=blo|
000075c0  63 6b 25 21 33 32 0d 34  94 30 e7 20 28 77 69 6e  |ck%!32.4.0. (win|
000075d0  66 6c 61 67 73 25 20 80  20 25 31 30 30 30 30 30  |flags% . %100000|
000075e0  30 30 30 30 30 30 30 30  30 30 30 29 20 3d 20 36  |00000000000) = 6|
000075f0  35 35 33 36 20 8c 0d 34  9e 06 3d b9 0d 34 a8 05  |5536 ..4..=..4..|
00007600  cc 0d 34 b2 06 3d a3 0d  34 bc 05 cd 0d 34 c6 05  |..4..=..4....4..|
00007610  3a 0d 34 d0 12 dd f2 74  6f 70 28 77 69 6e 64 6f  |:.4....top(windo|
00007620  77 25 29 0d 34 da 13 21  62 6c 6f 63 6b 25 3d 77  |w%).4..!block%=w|
00007630  69 6e 64 6f 77 25 0d 34  e4 18 c8 99 20 26 30 30  |indow%.4.... &00|
00007640  30 34 30 30 43 42 2c 2c  62 6c 6f 63 6b 25 0d 34  |0400CB,,block%.4|
00007650  ee 10 62 6c 6f 63 6b 25  21 32 38 3d 2d 31 0d 34  |..block%!28=-1.4|
00007660  f8 18 c8 99 20 26 30 30  30 34 30 30 43 35 2c 2c  |.... &000400C5,,|
00007670  62 6c 6f 63 6b 25 0d 35  02 05 e1 0d ff           |block%.5.....|
0000767d