)�>Develop.BlindBuff.!BlindMans.RunBMB
� Touch sense feedback
� Version 1.0 By Mike Cook
(� All rights reserved
2� � �errorbox
<
F� taskid%4:$taskid%="TASK"
P<� PORT%(3), Pin$(2,7),PinN$(2,7),PinIO$(2,7),intmess% 20
ZIintmess%!0=1:intmess%!4=2:intmess%!8=3:intmess%!12=&502:intmess%!16=0
dTș "Wimp_Initialise",300,!taskid%,"BlindMan'sBuff",intmess% � version%,taskhand%
nN� q% &300,qc% 80, Wn% &300,temp% 256,buffers% 512,menu% 256,SW% 256,cb% 18
xM� IsName% 256, Wmenu% 512, TextWarn% 100, ww% 256, TgSIZE%(7), Cmenu% 256
�4� sizemenu% 512,gmenu% 512,Imenu% 256,Smenu% 256
�0� Room%(11,11),Man%(4),Gname$(8),PosX%(1,10)
�1ș "Wimp_OpenTemplate",,"<BMB$Dir>.Templates"
�)� � ș "Wimp_CloseTemplate":�errorbox
�:ș "Wimp_LoadTemplate",,q%,temp%,temp%+256,-1,"Info",0
�&ș "Wimp_CreateWindow",,q% � info%
�=ș "Wimp_LoadTemplate",,Wn%+4,SW%,SW%+256,-1,"Pallette",0
�)ș "Wimp_CreateWindow",,Wn%+4 � monW%
�Wn%!0=monW%:Wn%!28=-1
�
�9ș "Wimp_LoadTemplate",,q%,ww%,ww%+256,-1,"Warning",0
�)q%!108=TextWarn%:q%!112=-1:q%!116=300
� XQ%=q%!8-q%!0:YQ%=q%!12-q%!4

*ș "Wimp_CreateWindow",,q% � warningW%

ș "Wimp_CloseTemplate"


ref%=0

"cpL%=0:cpR%=0

,smpicon%=�icon

6wopen%=�:warnOn%=�

@gSIZE%=2

JCol%=0:Timer%=0

T
GameNo%=0

^"SeeEn%=�:SoundEn%=�:TouchEn%=�

hGrid%=8

rNoXs%=0

|WipeMan%=�

�A%=�(-�)

�

�;� See if we need to load in module to have SYS parallel

�+� commands with a single direction port

�ș"OS_ReadSysInfo",2 � ,F%

�� (F% � 1)=0 �

�!�("*RMLOAD <BMB$Dir>.Mono_D")

��

�

�ș"Parallel_Op",2,0,&DF

�ș"Parallel_Op",1,0

��setupmenu

�
�_tabInit

�_Init
Ƞ 4
*CHANNELVOICE 1 Newstrin
&*CHANNELVOICE 2 SBANG
0*CHANNELVOICE 3 Alan-Mon
:*CHANNELVOICE 4 trumpet2
D
N�
X ș "Wimp_Poll",0,q% � A%
b
  Ȏ A% �
l   � 0:�_Null
v   � 1:�_doWindow
�z   � 2:ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%: ș "Wimp_OpenWindow",,q%:ș"Wimp_SetCaretPosition",monW%,-1,0,0,0,0
�   � 3:�_close
�!   � 4:InWin%=�:LX%=-1:LY%=-1
�   � 5:InWin%=�
�   � 6:�_do_click(q%)
�   � 7:
�   � 8:�_KeyPress
�   � 9:�_SORT_Menu
�   � 17,18:�receive(q%)
�   �
� � �
�
��

� �_Null
� A%,B%,C%
 � wopen% � �>Timer% �
*Timer%=�+1
4!ș"Wimp_GetCaretPosition",,q%
>� !q%=monW% �
H
kpress%=0
R!ș"OS_Byte",129,&C6,&FF � ,A%
\#� A%=&FF � Man%(1)+=4:kpress%=8
f!ș"OS_Byte",129,&D6,&FF � ,A%
p#� A%=&FF � Man%(1)-=4:kpress%=4
z
�!ș"OS_Byte",129,&86,&FF � ,A%
�-� A%=&FF � Man%(0)+=4:kpress%=kpress% � 2
�!ș"OS_Byte",129,&E6,&FF � ,A%
�-� A%=&FF � Man%(0)-=4:kpress%=kpress% � 1
�+� Man%(0)<>Man%(2) � Man%(1)<>Man%(3) �
�"�_Touch(Man%(0)-32,Man%(1)-46)
�X� Col%<>0 � Man%(0)=Man%(2):Man%(1)=Man%(3) � �_UpM: Man%(2)=Man%(0):Man%(3)=Man%(1)
��
��
��
��
�
�
� �_spath(n$)
ȕ �n$,".")
n$=�n$,�(n$)-1)
$�
.� �(n$)>10 � n$=�n$,10)
8=n$
B
L� �_SORT_Menu
V� A%
` � !q%=1 � IconMenu%=� � �die
j� !q%=5 � �die
t%� !q%=4 � �_tabInit:�drawup:�_UpM
~
� !q%=3 �
�      Ȏ q%!4 �
�#  � 0:  Smenu%!28=Smenu%!28 � 1
�           SeeEn%=�(SeeEn%)
�           �_UpIcon
�           WipeMan%=�
�           �_UpM
�           WipeMan%=�
�#  � 1:  Smenu%!52=Smenu%!52 � 1
�#           SoundEn%=�(SoundEn%)
�#  � 2:  Smenu%!76=Smenu%!76 � 1
�#           TouchEn%=�(TouchEn%)
�
     �
�


� !q%=1 �
B           gmenu%!(28+GameNo%*24)=gmenu%!(28+GameNo%*24) � &FE
           GameNo%=q%!4
(@           gmenu%!(28+GameNo%*24)=gmenu%!(28+GameNo%*24) � 1
25           ș"Wimp_ForceRedraw",monW%,0,-40,600,0
<           �_tabInit
F           �drawup:�_UpM
P�
Z
d
� !q%=2 �
n;sizemenu%!(28+gSIZE%*24)=sizemenu%!(28+gSIZE%*24) � &FE
xgSIZE%=q%!4
�9sizemenu%!(28+gSIZE%*24)=sizemenu%!(28+gSIZE%*24) � 1
�Grid%=gSIZE%+5
�
�_tabInit
��drawup:�_UpM
��
�
�ș"Wimp_GetPointerInfo",,q%
�6� q%!8=1 � ș"Wimp_CreateMenu",,menu%,q%!0-94,q%!4
��
�
�
� �_close
�_� q%!0=monW% � ș"Wimp_GetWindowInfo",,Wn%:wopen%=�:ș"Wimp_SetCaretPosition",-1,-1,0,0,0,0
� � q%!0=warningW% � warnOn%=�
ș "Wimp_CloseWindow",,q%
�

"� �_do_click(q%)
,i%=q%!16
6Ȏ q%!12 �
@(� warningW%: q%!0=warningW% :�_close
J
T(� -2: � Look first at Icon Bar Click
^        � q%!16=smpicon% �
hK        � q%!8=2 � IconMenu%=�: ș"Wimp_CreateMenu",,Imenu%,q%!0-64,190
r        � q%!8=4 � �_Open
|
        �
�
�� monW%:  
�'              � q%!8=4 � �_MonClick
�P              � q%!8=2 � IconMenu%=�:ș"Wimp_CreateMenu",,menu%,q%!0-94,q%!4
��
��
�
�
�� �_MonClick
�� X%,Y%,D%,V%,B%
�&� Do the action for a window click
�.ș"Wimp_SetCaretPosition",monW%,-1,0,0,0,0
��_Trans(monW%)
ș"Wimp_GetPointerInfo",,q%
X%=q%!0-xo%
Y%=q%!4-yo%
&Ȏ GameNo% �
0� 0: �_Cell(X%,Y%):�_UpM
:,� 4: � X%>32 � Y%>46 � X%<548 � Y%<562 �
D         Man%(0)=X%
N         Man%(1)=Y%
X+         �_Touch(Man%(0)-32,Man%(1)-46)
b         �_UpM
l         �
v         � 7
�
        �
�   �
��
�
�� �_Open
�.ș"OS_ReadModeVariable",-1,3 � ,,Ncolours%
�� OPEN UP WINDOW HERE
�� wopen% �
�q%!0=monW%
�ș"Wimp_GetWindowState",,q%
�6  � q%!28<>-1 � q%!28=-1: ș "Wimp_OpenWindow",,q%
��
�ș "Wimp_OpenWindow",,Wn%
wopen%=�
�
.ș"Wimp_SetCaretPosition",monW%,-1,0,0,0,0
 �
*
4� �_doWindow
>  � A%,I%,L%
H
R   �_Trans(monW%)
\)   ș "Wimp_RedrawWindow",,q% � flag%
f     ȕ flag%
p
z     �drawframe
�     �_UpMd
�+     ș "Wimp_GetRectangle",,q% � flag%
�
     �
�  
�  �
�  
�
�� �drawframe
�� W%,L%,A%,B%,C%,X%,Y%
�L%=540:W%=10:A%=34
�X%=xo%+20:Y%=yo%+34
�Mz%=544/Grid%
�ș"Wimp_SetColour",1
	ȓȐ X%,Y%,544,544
	
	ș"Wimp_SetColour",7
	$ȓȐ X%,Y%,L%,W%
	.ȓȐ X%,Y%+540,L%+W%,W%
	8ȓȐ X%,Y%,W%,L%
	BȓȐ X%+L%,Y%,W%,L%
	LL%=Mz%:W%=10
	V� A%=1 � Grid%-1
	`� B%=1 � Grid%-1
	j� Room%(A%,B%)<>0 �
	t"ȓȐ X%+B%*Mz%,Y%+A%*Mz%,W%,W%
	~C%=Room%(A%,B%)
	�2� (C% � 8)<>0 � ȓȐ X%+B%*Mz%,Y%+A%*Mz%,L%,W%
	�3� (C% � 4)<>0 � ȓȐ X%+B%*Mz%,Y%+A%*Mz%,-L%,W%
	�6� (C% � 2)<>0 � ȓȐ X%+B%*Mz%,Y%+W%+A%*Mz%,W%,-L%
	�2� (C% � 1)<>0 � ȓȐ X%+B%*Mz%,Y%+A%*Mz%,W%,L%
	��
	��
	��
	�A%=NoXs%:B%=0
	�ȕ A%>0
	�$� PosX%(0,B%)<&FF � GameNo%<>5 �
	�1�x(X%+Mz%*PosX%(0,B%),Y%+Mz%*PosX%(1,B%),Mz%)
	��
A%-=1:B%+=1

�
ș"Wimp_SetColour",8
�5
(� xo%+20,yo%+620
2�Gname$(GameNo%)
<�4
F�
P
Z� �x(X%,Y%,S%)
dX%+=18:Y%+=18:S%-=28
n� X%,Y%
x� 0,0,5
�� 0,5,-5 :� 0,S%-5,-5+S%
�� 113,-5,5
�� X%,Y%
�� 0,S%-6,0
�� 0,6,6 :� 0,-S%+6,S%-6
�� 113,-6,-6
��
�
�
� �drawup
�� A%,B%,X%,Y%
� �drawframe
��
�
� �_UpP
� T%,A%,E%,Nw%
�_Trans(monW%)
"1q%!0=monW%:q%!4=0:q%!8=-602:q%!12=650:q%!16=0
,'  ș"Wimp_UpdateWindow",,q% � More%
6
@
 ȕ More%
J
T
  �drawup
^'  ș"Wimp_GetRectangle",,q% � More%
h �
r�
|
�� �_UpM
�� T%,A%,E%,Nw%
��_Trans(monW%)
�1q%!0=monW%:q%!4=0:q%!8=-602:q%!12=650:q%!16=0
�'  ș"Wimp_UpdateWindow",,q% � More%
�
�
 ȕ More%
�  �_UpMd
�'  ș"Wimp_GetRectangle",,q% � More%
� �
��
�
�� �_UpMd
� SeeEn% � WipeMan% �
ș"Wimp_SetColour",1
&ȓȐ Man%(2)+xo%,Man%(3)+yo%,10,10
&�
0� SeeEn% �
:ș"Wimp_SetColour",11
D&ȓȐ Man%(0)+xo%,Man%(1)+yo%,10,10
N�
X�
b
l� �vic(A%,B%)
v� More%
��_Trans(monW%)
�1q%!0=monW%:q%!4=0:q%!8=-602:q%!12=650:q%!16=0
�'  ș"Wimp_UpdateWindow",,q% � More%
�
�
 ȕ More%
�  �vicd(A%,B%)
�'  ș"Wimp_GetRectangle",,q% � More%
� �
��
�
�� �_Trans(wh%)
�!q%=wh%
� ș "Wimp_GetWindowState",,q%

&xo%=q%!4-q%!20:yo%=q%!16-q%!24-630

XO%=q%!4:YO%=q%!16

�

 

*��setupmenu

4� m%

>

H$sizemenu%="Size"

Rsizemenu%?12=7

\sizemenu%?13=2

fsizemenu%?14=7

psizemenu%?15=0

zsizemenu%!16=128

�sizemenu%!20=40

�sizemenu%!24=0

�m%=sizemenu%+28

�

�
m%!0=0

�
m%!4=0

�m%!8=(7<<24)� %10001

�$(m%+12)="5 X 5"

�

�
m%+=24

�
m%!0=0

�
m%!4=0

�m%!8=(7<<24)� %10001
$(m%+12)="6 X 6"

m%+=24

m%!0=1
$
m%!4=0
.m%!8=(7<<24)� %10001
8$(m%+12)="7 X 7"
B
m%+=24
L
m%!0=0
V
m%!4=0
`m%!8=(7<<24)� %10001
j$(m%+12)="8 X 8"
t
m%+=24
~
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="9 X 9"
�
m%+=24
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="10 X 10"
�
�$gmenu%="Rules"
�gmenu%?12=7
�gmenu%?13=2
gmenu%?14=7

gmenu%?15=0
gmenu%!16=128
gmenu%!20=40
(gmenu%!24=0
2m%=gmenu%+28
<
F
m%!0=1
P
m%!4=0
Zm%!8=(7<<24)� %10001
d$(m%+12)="Game 1"
n
x
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Game 2"
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Game 3"
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
$(m%+12)="Game 4"

m%+=24

m%!0=0
"
m%!4=0
,m%!8=(7<<24)� %10001
6$(m%+12)="Game 5"
@
m%+=24
Jm%!0=&80
T
m%!4=0
^m%!8=(7<<24)� %10001
h$(m%+12)="Game 6"
r
|$menu%="Buff"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=128
�menu%!20=40
�menu%!24=0
�m%=menu%+28
�
m%!0=0
�m%!4=info%
�m%!8=(7<<24)� %10001
�$(m%+12)="Info"
�

m%+=24

m%!0=0
m%!4=gmenu%
&m%!8=(7<<24)� %10001
0$(m%+12)="Rules"
:
D
m%+=24
N
m%!0=0
Xm%!4=sizemenu%
bm%!8=(7<<24)� %10001
l$(m%+12)="Size"
v
�
m%+=24
�
m%!0=0
�m%!4=Smenu%
�m%!8=(7<<24)� %10001
�$(m%+12)="Sense"
�
�
m%+=24
�
m%!0=0
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="New"
�
�
m%+=24
m%!0=&80

m%!4=0
m%!8=(7<<24)� %10001
 $(m%+12)="Quit"
*
4$Imenu%="Buff"
>Imenu%?12=7
HImenu%?13=2
RImenu%?14=7
\Imenu%?15=0
fImenu%!16=128
pImenu%!20=40
zImenu%!24=0
�m%=Imenu%+28
�
m%!0=0
�m%!4=info%
�m%!8=(7<<24)� %10001
�$(m%+12)="Info"
�
m%+=24
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Quit"
�
�$Smenu%="Sense"
�Smenu%?12=7
Smenu%?13=2
Smenu%?14=7
Smenu%?15=0
$Smenu%!16=128
.Smenu%!20=40
8Smenu%!24=0
Bm%=Smenu%+28
L
m%!0=0
V
m%!4=0
`m%!8=(7<<24)� %10001
j$(m%+12)="Sight"
t
m%+=24
~
�
m%!0=1
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Sound"
�
m%+=24
�
�m%!0=&80
�
m%!4=0
�m%!8=(7<<24)� %10001
�$(m%+12)="Touch"
�
��


� �receive(q%)
� A%
A%=q%!16
(Ȏ A% �
2� 0:�die
<� &502:   Ȏ � �
Fq             � q%!32=-2 � q%!36=smpicon%:mes$="This is the Blind Man's Buff icon.|MNavigate a maze by touch."
P             :mes$=""
Z             �
d    � mes$<>"" �
n    q%!12=q%!8
x    $(q%+20)=mes$+�0
�    q%!0=(20+�mes$+4)� � 3
�    q%!16=&503
�(    ș "Wimp_SendMessage",18,q%,q%!4
��
��
�
�� �_Dack
�sendth%=q%!4
�myref%=q%!8
�"ș "Wimp_GetPointerInfo",,q%+8
�q%!28=q%!8
�q%!32=q%!12
�q%!0=(44+�n$+4)� � 3
q%!12=myref%
q%!16=4
q%!36=-1
"q%!40=&FF9
,$(q%+44)=n$+�0
6'ș "Wimp_SendMessage",17,q%,sendth%
@�
J�
T
^ݤsget(x%)
h� x$
rȕ ?x% x$+=�(?x%):x%+=1:�
|=x$
�
�
ݤicon
�q%!0=-1
�
q%!4=0
�q%!8=0 : � Y DIRECTION
�q%!12=70 : � X DIRECTION
�q%!16=96
�q%!20=&2002
�$(q%+24)="!BlindMansc"
�$ș "Wimp_CreateIcon",,q% � icon%
�
=icon%
�
�� �_UpIcon
� ticon%
q%!0=-3

q%!4=0
&q%!8=0 : � Y DIRECTION
0q%!12=70 : � X DIRECTION
:q%!16=96
Dq%!20=&2002
N=� SeeEn% � $(q%+24)="!BlindMans" � $(q%+24)="!BlindMansc"
X-ș "Wimp_CreateIcon",smpicon%,q% � ticon%
bq%!0=-2
lq%!4=smpicon%
vș "Wimp_DeleteIcon",,q%
�smpicon%=ticon%
��
�
�� �_setupW(t$)
�X!q%=warningW%:q%!4=200:q%!8=200:q%!12=200+XQ%:q%!16=200+YQ%:q%!20=0:q%!24=0:q%!28=-1
�$TextWarn%=t$
�TextWarn%?�(t$)=0
�� 7
�
warnOn%=�
�ș "Wimp_OpenWindow",,q%
��
�
�� �errorbox
ș "Wimp_DragBox",,-1
2!buffers%=�:$(buffers%+4)=�$+" at line "+Þ+�0
6ș "Wimp_ReportError",buffers%,1,"Blind Mans Buff"
 �die
*�
4
>	��die
H*ș "Wimp_CloseDown",taskhand%,!taskid%
R�
\�
f
p� �getw(handle%)
z8!q%=handle%:ș "Wimp_GetWindowState",,q%:�info(q%+4)
��
�� �geti(h%,i%)
�-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%
�.ix0%=q%!8:iy0%=q%!12:ix1%=q%!16:iy1%=q%!20
�iflags%=q%!24:idata%=q%+28
��
�
�� �info(p%)
�
� x0%,y0%
�'x0%=!p%:y0%=p%!4:x1%=p%!8:y1%=p%!12
�5scx%=p%!16:scy%=p%!20:bhandle%=p%!24:flags%=p%!28
�bx%=x0%-scx%:by%=y1%-scy%
��

� �_KeyPress

Ȏ q%!0 �
$ : ș"Wimp_ProcessKey",q%!24
.�
8�
B
L� �_Init
V� A%
`� A%=0 � 5
j� Gname$(A%)
t�
~�� Game 1 Find your man,Game 2 Find X Start bottom left,Game 3 Find X,Game 4 Find all Xs,Game 5 Find Xs - Click to position,Game 6 Find hidden Xs
��
�
�� �_tabInit
�� A%,B%,G%,C%,D%,F%
��_Trans(monW%)
�
Room%()=0
�G%=Grid%
�A%=G%-1
�B%=�(A%)
�
  D%=2
�  �me(D%,A%,B%)
�!Room%(A%,B%)=Room%(A%,B%) � 1
A%=1:C%=0:D%=1

/�:B%=�(G%-1):C%+=1:� Room%(A%,B%)=0 � C%>10
9� C%<10 � �me(D%,A%,B%):Room%(A%,B%)=Room%(A%,B%) � 2

(B%=G%-1:D%=4:C%=0
2/�:A%=�(G%-1):C%+=1:� Room%(A%,B%)=0 � C%>10
<9� C%<10 � �me(D%,A%,B%):Room%(A%,B%)=Room%(A%,B%) � 8
F
PB%=1:D%=8:C%=0
Z/�:A%=�(G%-1):C%+=1:� Room%(A%,B%)=0 � C%>10
d9� C%<10 � �me(D%,A%,B%):Room%(A%,B%)=Room%(A%,B%) � 4
n
xF%=0
�a� GameNo%=5 � Gname$(5)="Game 6 Find hidden Xs       ":ș"Wimp_ForceRedraw",monW%,0,-40,600,0
��
�A%=�(G%)
�B%=�(G%)
�  D%=1<<(�(4)-1)
�  �me(D%,A%,B%)
�� F%>150
�
�� Put in backwards points
�� A%=1 � G%
�� B%=1 � G%
�C%=Room%(A%,B%)
�5� (C% � 1)<>0 � Room%(A%+1,B%)=Room%(A%+1,B%) � 2
5� (C% � 2)<>0 � Room%(A%-1,B%)=Room%(A%-1,B%) � 1
5� (C% � 4)<>0 � Room%(A%,B%-1)=Room%(A%,B%-1) � 8
5� (C% � 8)<>0 � Room%(A%,B%+1)=Room%(A%,B%+1) � 4
"�:�
,
6
A%=544/G%
@D%=�(G%-1):F%=�(G%-1)
J3Man%(0)=10+(A%/2)+A%*D%:Man%(1)=(24+A%/2)+A%*F%
T5� GameNo%=1 � Man%(0)=10+(A%/2):Man%(1)=(24+A%/2)
^#Man%(2)=Man%(0):Man%(3)=Man%(1)
h
rPosX%()=&FF
|)� GameNo%>2 � NoXs%=�(G%)+1 � NoXs%=1
�� GameNo%<>0 �
�� A%=0 � NoXs%-1
��
�PosX%(0,A%)=�(G%-1)
�PosX%(1,A%)=�(G%-1)
�(� �(PosX%(0,A%)=D% � PosX%(1,A%)=F%)
��
��
�NoXs%=0
��
��
�
�� �me(D%,A%,B%)
� C%,An%,Bn%
C%=0
 �
&  An%=0:Bn%=0
0
  Ȏ D% �
:  � 1:An%=1
D  � 2:An%=-1
N  � 4:Bn%=-1
X  � 8:Bn%=1
b  �
l  An%+=A%:Bn%+=B%
v � An%>=0 � Bn%>=0 �
�<  � Room%(An%,Bn%)=0 � An%>0 � Bn%>0 � Bn%<G% � An%<G% �
�$  Room%(A%,B%)=Room%(A%,B%) � D%
�  A%=An%:B%=Bn%
�%  Room%(A%,B%)=Room%(A%,B%) � &10
�  �
�  C%+=1
�  F%+=1
�  �
� �
�  C%+=1
�  D%=1<<(�(4)-1)
�� C%>20
��

� �_Touch(X%,Y%)
"� A%,B%,C%,D%,E%,F%,G%,W1%,W2%
 
Col%=0
*� X%<0 � Col%=1
4� X%>516 � Col%=2
>� Y%>516 � Col%=Col% � 8
H� Y%<0 � Col%=Col% � 4
R� Col%=0 �
\X%+=12:Y%+=12
fD%=544/Grid%
pA%=X% � D%
zB%=(X% � D%)
�E%=(Y% � D%)
�
� A%<12 �
�W1%=Room%(E%+1,B%) � 2
�W2%=Room%(E%,B%) � 1
�'� (W1%<>0 � W2%<>0) � Col%=Col% � 1
��
�� (D%-A%)<12 �
�W1%=Room%(E%+1,B%+1) � 2
�W2%=Room%(E%,B%+1) � 1
�%� W1%<>0 � W2%<>0 � Col%=Col% � 2
��
�
�G%=Y% � D%

� G%<12 �
W1%=Room%(E%,B%+1) � 4
W2%=Room%(E%,B%) � 8
$%� W1%<>0 � W2%<>0 � Col%=Col% � 4
.�
8� (D%-G%)<12 �
BW1%=Room%(E%+1,B%+1) � 4
LW2%=Room%(E%+1,B%) � 8
V%� W1%<>0 � W2%<>0 � Col%=Col% � 8
`�
j
t� Col%=0 �
~	W1%=0
�-� A%<12 � G%<12 � Room%(E%,B%)<>0 � W1%=1
�4� (D%-G%)<12 � A%<12 � Room%(E%+1,B%)<>0 � W1%=1
�4� (D%-A%)<12 � G%<12 � Room%(E%,B%+1)<>0 � W1%=1
�;� (D%-A%)<12 � (D%-G%)<12 � Room%(E%+1,B%+1)<>0 � W1%=1
�� W1%=1 � Col%=kpress%
��
�
� � Col%=0 �
� A%=NoXs%:D%=0
� ȕ A%>0
�3 � PosX%(0,D%)=B% � PosX%(1,D%)=E% � �wipeX(D%)
� A%-=1:D%+=1
 �

 �

�
('� Col%<>0 � (TouchEn% � SoundEn%) �
2� SoundEn% �
<"� (Col% � 1)<>0 � � 1,-13,10,4
F"� (Col% � 2)<>0 � � 1,-13,60,4
P"� (Col% � 4)<>0 � � 4,-13,10,4
Z"� (Col% � 8)<>0 � � 4,-13,50,4
d�
n� TouchEn% � 
xA%=�+30
�� � �>A%
�$� TouchEn% � ș"Parallel_Op",1,0
��
��
�
�� �wipeX(A%)
�� B%,C%
�%�vic(PosX%(0,A%)+1,PosX%(1,A%)+1)
�#PosX%(0,A%)=&FF:PosX%(1,A%)=&FF
�� GameNo%=5 �
�C%=0
�� B%=0 � 10
�� PosX%(0,B%)<&FF � C%+=1
�
4Gname$(5)="Game 6 Find hidden Xs "+�(C%)+" left"
*ș"Wimp_ForceRedraw",monW%,0,-40,600,0
"�
,�
6
@� �_Cell(X%,Y%)
J� A%,B%,D%,Mx%,My%
TX%-=20:Y%-=34
^D%=544/Grid%
hA%=(X% � D%)+1
rB%=(Y% � D%)+1
|Mx%=((Man%(0)-20) � D%)+1
�My%=((Man%(1)-34) � D%)+1
�#� Mx%=A% � My%=B% � �vic(A%,B%)
��
�
�� �vicd(A%,B%)
�� T%,V%
�A%-=1:B%-=1
�X%=xo%+36:Y%=yo%+50
�Mz%=544/Grid%
�� V%=1 � 10
�M� (V% � 1) =0 � ș"Wimp_SetColour",7 :�3,-11,50,2 � ș"Wimp_SetColour",12
�
�*ȓȐ X%+A%*Mz%,Y%+B%*Mz%,Mz%-24,Mz%-24
 T%=�+2*(11-V%)
 � � �>T%
 �
 &� 2,-13,80,20
 0ș"Wimp_SetColour",1
 :*ȓȐ X%+A%*Mz%,Y%+B%*Mz%,Mz%-24,Mz%-24
 D�
�

00000000  0d 00 0a 29 f4 3e 44 65  76 65 6c 6f 70 2e 42 6c  |...).>Develop.Bl|
00000010  69 6e 64 42 75 66 66 2e  21 42 6c 69 6e 64 4d 61  |indBuff.!BlindMa|
00000020  6e 73 2e 52 75 6e 42 4d  42 0d 00 14 1a f4 20 54  |ns.RunBMB..... T|
00000030  6f 75 63 68 20 73 65 6e  73 65 20 66 65 65 64 62  |ouch sense feedb|
00000040  61 63 6b 0d 00 1e 1e f4  20 56 65 72 73 69 6f 6e  |ack..... Version|
00000050  20 31 2e 30 20 42 79 20  4d 69 6b 65 20 43 6f 6f  | 1.0 By Mike Coo|
00000060  6b 0d 00 28 19 f4 20 41  6c 6c 20 72 69 67 68 74  |k..(.. All right|
00000070  73 20 72 65 73 65 72 76  65 64 0d 00 32 11 ee 20  |s reserved..2.. |
00000080  85 20 f2 65 72 72 6f 72  62 6f 78 0d 00 3c 04 0d  |. .errorbox..<..|
00000090  00 46 1e de 20 74 61 73  6b 69 64 25 34 3a 24 74  |.F.. taskid%4:$t|
000000a0  61 73 6b 69 64 25 3d 22  54 41 53 4b 22 0d 00 50  |askid%="TASK"..P|
000000b0  3c de 20 50 4f 52 54 25  28 33 29 2c 20 50 69 6e  |<. PORT%(3), Pin|
000000c0  24 28 32 2c 37 29 2c 50  69 6e 4e 24 28 32 2c 37  |$(2,7),PinN$(2,7|
000000d0  29 2c 50 69 6e 49 4f 24  28 32 2c 37 29 2c 69 6e  |),PinIO$(2,7),in|
000000e0  74 6d 65 73 73 25 20 32  30 0d 00 5a 49 69 6e 74  |tmess% 20..ZIint|
000000f0  6d 65 73 73 25 21 30 3d  31 3a 69 6e 74 6d 65 73  |mess%!0=1:intmes|
00000100  73 25 21 34 3d 32 3a 69  6e 74 6d 65 73 73 25 21  |s%!4=2:intmess%!|
00000110  38 3d 33 3a 69 6e 74 6d  65 73 73 25 21 31 32 3d  |8=3:intmess%!12=|
00000120  26 35 30 32 3a 69 6e 74  6d 65 73 73 25 21 31 36  |&502:intmess%!16|
00000130  3d 30 0d 00 64 54 c8 99  20 22 57 69 6d 70 5f 49  |=0..dT.. "Wimp_I|
00000140  6e 69 74 69 61 6c 69 73  65 22 2c 33 30 30 2c 21  |nitialise",300,!|
00000150  74 61 73 6b 69 64 25 2c  22 42 6c 69 6e 64 4d 61  |taskid%,"BlindMa|
00000160  6e 27 73 42 75 66 66 22  2c 69 6e 74 6d 65 73 73  |n'sBuff",intmess|
00000170  25 20 b8 20 76 65 72 73  69 6f 6e 25 2c 74 61 73  |% . version%,tas|
00000180  6b 68 61 6e 64 25 0d 00  6e 4e de 20 71 25 20 26  |khand%..nN. q% &|
00000190  33 30 30 2c 71 63 25 20  38 30 2c 20 57 6e 25 20  |300,qc% 80, Wn% |
000001a0  26 33 30 30 2c 74 65 6d  70 25 20 32 35 36 2c 62  |&300,temp% 256,b|
000001b0  75 66 66 65 72 73 25 20  35 31 32 2c 6d 65 6e 75  |uffers% 512,menu|
000001c0  25 20 32 35 36 2c 53 57  25 20 32 35 36 2c 63 62  |% 256,SW% 256,cb|
000001d0  25 20 31 38 0d 00 78 4d  de 20 49 73 4e 61 6d 65  |% 18..xM. IsName|
000001e0  25 20 32 35 36 2c 20 57  6d 65 6e 75 25 20 35 31  |% 256, Wmenu% 51|
000001f0  32 2c 20 54 65 78 74 57  61 72 6e 25 20 31 30 30  |2, TextWarn% 100|
00000200  2c 20 77 77 25 20 32 35  36 2c 20 54 67 53 49 5a  |, ww% 256, TgSIZ|
00000210  45 25 28 37 29 2c 20 43  6d 65 6e 75 25 20 32 35  |E%(7), Cmenu% 25|
00000220  36 0d 00 82 34 de 20 73  69 7a 65 6d 65 6e 75 25  |6...4. sizemenu%|
00000230  20 35 31 32 2c 67 6d 65  6e 75 25 20 35 31 32 2c  | 512,gmenu% 512,|
00000240  49 6d 65 6e 75 25 20 32  35 36 2c 53 6d 65 6e 75  |Imenu% 256,Smenu|
00000250  25 20 32 35 36 0d 00 8c  30 de 20 52 6f 6f 6d 25  |% 256...0. Room%|
00000260  28 31 31 2c 31 31 29 2c  4d 61 6e 25 28 34 29 2c  |(11,11),Man%(4),|
00000270  47 6e 61 6d 65 24 28 38  29 2c 50 6f 73 58 25 28  |Gname$(8),PosX%(|
00000280  31 2c 31 30 29 0d 00 96  31 c8 99 20 22 57 69 6d  |1,10)...1.. "Wim|
00000290  70 5f 4f 70 65 6e 54 65  6d 70 6c 61 74 65 22 2c  |p_OpenTemplate",|
000002a0  2c 22 3c 42 4d 42 24 44  69 72 3e 2e 54 65 6d 70  |,"<BMB$Dir>.Temp|
000002b0  6c 61 74 65 73 22 0d 00  a0 29 ee 20 85 20 c8 99  |lates"...). . ..|
000002c0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 54 65 6d 70  | "Wimp_CloseTemp|
000002d0  6c 61 74 65 22 3a f2 65  72 72 6f 72 62 6f 78 0d  |late":.errorbox.|
000002e0  00 aa 3a c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..:.. "Wimp_Load|
000002f0  54 65 6d 70 6c 61 74 65  22 2c 2c 71 25 2c 74 65  |Template",,q%,te|
00000300  6d 70 25 2c 74 65 6d 70  25 2b 32 35 36 2c 2d 31  |mp%,temp%+256,-1|
00000310  2c 22 49 6e 66 6f 22 2c  30 0d 00 b4 26 c8 99 20  |,"Info",0...&.. |
00000320  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000330  6f 77 22 2c 2c 71 25 20  b8 20 69 6e 66 6f 25 0d  |ow",,q% . info%.|
00000340  00 be 3d c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..=.. "Wimp_Load|
00000350  54 65 6d 70 6c 61 74 65  22 2c 2c 57 6e 25 2b 34  |Template",,Wn%+4|
00000360  2c 53 57 25 2c 53 57 25  2b 32 35 36 2c 2d 31 2c  |,SW%,SW%+256,-1,|
00000370  22 50 61 6c 6c 65 74 74  65 22 2c 30 0d 00 c8 29  |"Pallette",0...)|
00000380  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000390  69 6e 64 6f 77 22 2c 2c  57 6e 25 2b 34 20 b8 20  |indow",,Wn%+4 . |
000003a0  6d 6f 6e 57 25 0d 00 d2  19 57 6e 25 21 30 3d 6d  |monW%....Wn%!0=m|
000003b0  6f 6e 57 25 3a 57 6e 25  21 32 38 3d 2d 31 0d 00  |onW%:Wn%!28=-1..|
000003c0  dc 04 0d 00 e6 39 c8 99  20 22 57 69 6d 70 5f 4c  |.....9.. "Wimp_L|
000003d0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 25  |oadTemplate",,q%|
000003e0  2c 77 77 25 2c 77 77 25  2b 32 35 36 2c 2d 31 2c  |,ww%,ww%+256,-1,|
000003f0  22 57 61 72 6e 69 6e 67  22 2c 30 0d 00 f0 29 71  |"Warning",0...)q|
00000400  25 21 31 30 38 3d 54 65  78 74 57 61 72 6e 25 3a  |%!108=TextWarn%:|
00000410  71 25 21 31 31 32 3d 2d  31 3a 71 25 21 31 31 36  |q%!112=-1:q%!116|
00000420  3d 33 30 30 0d 00 fa 20  58 51 25 3d 71 25 21 38  |=300... XQ%=q%!8|
00000430  2d 71 25 21 30 3a 59 51  25 3d 71 25 21 31 32 2d  |-q%!0:YQ%=q%!12-|
00000440  71 25 21 34 0d 01 04 2a  c8 99 20 22 57 69 6d 70  |q%!4...*.. "Wimp|
00000450  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
00000460  71 25 20 b8 20 77 61 72  6e 69 6e 67 57 25 0d 01  |q% . warningW%..|
00000470  0e 1b c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.... "Wimp_Close|
00000480  54 65 6d 70 6c 61 74 65  22 0d 01 18 0a 72 65 66  |Template"....ref|
00000490  25 3d 30 0d 01 22 11 63  70 4c 25 3d 30 3a 63 70  |%=0..".cpL%=0:cp|
000004a0  52 25 3d 30 0d 01 2c 12  73 6d 70 69 63 6f 6e 25  |R%=0..,.smpicon%|
000004b0  3d a4 69 63 6f 6e 0d 01  36 16 77 6f 70 65 6e 25  |=.icon..6.wopen%|
000004c0  3d a3 3a 77 61 72 6e 4f  6e 25 3d a3 0d 01 40 0c  |=.:warnOn%=...@.|
000004d0  67 53 49 5a 45 25 3d 32  0d 01 4a 13 43 6f 6c 25  |gSIZE%=2..J.Col%|
000004e0  3d 30 3a 54 69 6d 65 72  25 3d 30 0d 01 54 0d 47  |=0:Timer%=0..T.G|
000004f0  61 6d 65 4e 6f 25 3d 30  0d 01 5e 22 53 65 65 45  |ameNo%=0..^"SeeE|
00000500  6e 25 3d a3 3a 53 6f 75  6e 64 45 6e 25 3d b9 3a  |n%=.:SoundEn%=.:|
00000510  54 6f 75 63 68 45 6e 25  3d a3 0d 01 68 0b 47 72  |TouchEn%=...h.Gr|
00000520  69 64 25 3d 38 0d 01 72  0b 4e 6f 58 73 25 3d 30  |id%=8..r.NoXs%=0|
00000530  0d 01 7c 0e 57 69 70 65  4d 61 6e 25 3d a3 0d 01  |..|.WipeMan%=...|
00000540  86 0c 41 25 3d b3 28 2d  91 29 0d 01 90 04 0d 01  |..A%=.(-.)......|
00000550  9a 3b f4 20 53 65 65 20  69 66 20 77 65 20 6e 65  |.;. See if we ne|
00000560  65 64 20 74 6f 20 6c 6f  61 64 20 69 6e 20 6d 6f  |ed to load in mo|
00000570  64 75 6c 65 20 74 6f 20  68 61 76 65 20 53 59 53  |dule to have SYS|
00000580  20 70 61 72 61 6c 6c 65  6c 0d 01 a4 2b f4 20 63  | parallel...+. c|
00000590  6f 6d 6d 61 6e 64 73 20  77 69 74 68 20 61 20 73  |ommands with a s|
000005a0  69 6e 67 6c 65 20 64 69  72 65 63 74 69 6f 6e 20  |ingle direction |
000005b0  70 6f 72 74 0d 01 ae 1e  c8 99 22 4f 53 5f 52 65  |port......"OS_Re|
000005c0  61 64 53 79 73 49 6e 66  6f 22 2c 32 20 b8 20 2c  |adSysInfo",2 . ,|
000005d0  46 25 0d 01 b8 12 e7 20  28 46 25 20 80 20 31 29  |F%..... (F% . 1)|
000005e0  3d 30 20 8c 0d 01 c2 21  ff 28 22 2a 52 4d 4c 4f  |=0 ....!.("*RMLO|
000005f0  41 44 20 3c 42 4d 42 24  44 69 72 3e 2e 4d 6f 6e  |AD <BMB$Dir>.Mon|
00000600  6f 5f 44 22 29 0d 01 cc  05 cd 0d 01 d6 04 0d 01  |o_D")...........|
00000610  e0 1b c8 99 22 50 61 72  61 6c 6c 65 6c 5f 4f 70  |...."Parallel_Op|
00000620  22 2c 32 2c 30 2c 26 44  46 0d 01 ea 17 c8 99 22  |",2,0,&DF......"|
00000630  50 61 72 61 6c 6c 65 6c  5f 4f 70 22 2c 31 2c 30  |Parallel_Op",1,0|
00000640  0d 01 f4 0e f2 73 65 74  75 70 6d 65 6e 75 0d 01  |.....setupmenu..|
00000650  fe 0d f2 5f 74 61 62 49  6e 69 74 0d 02 08 0a f2  |..._tabInit.....|
00000660  5f 49 6e 69 74 0d 02 12  08 c8 a0 20 34 0d 02 1c  |_Init...... 4...|
00000670  1c 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
00000680  20 4e 65 77 73 74 72 69  6e 0d 02 26 19 2a 43 48  | Newstrin..&.*CH|
00000690  41 4e 4e 45 4c 56 4f 49  43 45 20 32 20 53 42 41  |ANNELVOICE 2 SBA|
000006a0  4e 47 0d 02 30 1c 2a 43  48 41 4e 4e 45 4c 56 4f  |NG..0.*CHANNELVO|
000006b0  49 43 45 20 33 20 41 6c  61 6e 2d 4d 6f 6e 0d 02  |ICE 3 Alan-Mon..|
000006c0  3a 1c 2a 43 48 41 4e 4e  45 4c 56 4f 49 43 45 20  |:.*CHANNELVOICE |
000006d0  34 20 74 72 75 6d 70 65  74 32 0d 02 44 04 0d 02  |4 trumpet2..D...|
000006e0  4e 05 f5 0d 02 58 1d 20  c8 99 20 22 57 69 6d 70  |N....X. .. "Wimp|
000006f0  5f 50 6f 6c 6c 22 2c 30  2c 71 25 20 b8 20 41 25  |_Poll",0,q% . A%|
00000700  0d 02 62 0d 20 20 c8 8e  20 41 25 20 ca 0d 02 6c  |..b.  .. A% ...l|
00000710  11 20 20 20 c9 20 30 3a  f2 5f 4e 75 6c 6c 0d 02  |.   . 0:._Null..|
00000720  76 15 20 20 20 c9 20 31  3a f2 5f 64 6f 57 69 6e  |v.   . 1:._doWin|
00000730  64 6f 77 0d 02 80 7a 20  20 20 c9 20 32 3a c8 99  |dow...z   . 2:..|
00000740  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00000750  61 62 6c 65 22 2c 2d 31  2c 33 20 b8 20 2c 2c 4e  |able",-1,3 . ,,N|
00000760  63 6f 6c 6f 75 72 73 25  3a 20 c8 99 20 22 57 69  |colours%: .. "Wi|
00000770  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000780  71 25 3a c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |q%:.."Wimp_SetCa|
00000790  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 6d 6f 6e  |retPosition",mon|
000007a0  57 25 2c 2d 31 2c 30 2c  30 2c 30 2c 30 0d 02 8a  |W%,-1,0,0,0,0...|
000007b0  12 20 20 20 c9 20 33 3a  f2 5f 63 6c 6f 73 65 0d  |.   . 3:._close.|
000007c0  02 94 21 20 20 20 c9 20  34 3a 49 6e 57 69 6e 25  |..!   . 4:InWin%|
000007d0  3d a3 3a 4c 58 25 3d 2d  31 3a 4c 59 25 3d 2d 31  |=.:LX%=-1:LY%=-1|
000007e0  0d 02 9e 13 20 20 20 c9  20 35 3a 49 6e 57 69 6e  |....   . 5:InWin|
000007f0  25 3d b9 0d 02 a8 19 20  20 20 c9 20 36 3a f2 5f  |%=.....   . 6:._|
00000800  64 6f 5f 63 6c 69 63 6b  28 71 25 29 0d 02 b2 0b  |do_click(q%)....|
00000810  20 20 20 c9 20 37 3a 0d  02 bc 15 20 20 20 c9 20  |   . 7:....   . |
00000820  38 3a f2 5f 4b 65 79 50  72 65 73 73 0d 02 c6 16  |8:._KeyPress....|
00000830  20 20 20 c9 20 39 3a f2  5f 53 4f 52 54 5f 4d 65  |   . 9:._SORT_Me|
00000840  6e 75 0d 02 d0 1b 20 20  20 c9 20 31 37 2c 31 38  |nu....   . 17,18|
00000850  3a f2 72 65 63 65 69 76  65 28 71 25 29 0d 02 da  |:.receive(q%)...|
00000860  08 20 20 20 cb 0d 02 e4  08 20 fd 20 a3 0d 02 ee  |.   ..... . ....|
00000870  04 0d 02 f8 05 e0 0d 03  02 04 0d 03 0c 0c dd 20  |............... |
00000880  f2 5f 4e 75 6c 6c 0d 03  16 0e ea 20 41 25 2c 42  |._Null..... A%,B|
00000890  25 2c 43 25 0d 03 20 19  e7 20 77 6f 70 65 6e 25  |%,C%.. .. wopen%|
000008a0  20 80 20 91 3e 54 69 6d  65 72 25 20 8c 0d 03 2a  | . .>Timer% ...*|
000008b0  0e 54 69 6d 65 72 25 3d  91 2b 31 0d 03 34 21 c8  |.Timer%=.+1..4!.|
000008c0  99 22 57 69 6d 70 5f 47  65 74 43 61 72 65 74 50  |."Wimp_GetCaretP|
000008d0  6f 73 69 74 69 6f 6e 22  2c 2c 71 25 0d 03 3e 11  |osition",,q%..>.|
000008e0  e7 20 21 71 25 3d 6d 6f  6e 57 25 20 8c 0d 03 48  |. !q%=monW% ...H|
000008f0  0d 6b 70 72 65 73 73 25  3d 30 0d 03 52 21 c8 99  |.kpress%=0..R!..|
00000900  22 4f 53 5f 42 79 74 65  22 2c 31 32 39 2c 26 43  |"OS_Byte",129,&C|
00000910  36 2c 26 46 46 20 b8 20  2c 41 25 0d 03 5c 23 e7  |6,&FF . ,A%..\#.|
00000920  20 41 25 3d 26 46 46 20  8c 20 4d 61 6e 25 28 31  | A%=&FF . Man%(1|
00000930  29 2b 3d 34 3a 6b 70 72  65 73 73 25 3d 38 0d 03  |)+=4:kpress%=8..|
00000940  66 21 c8 99 22 4f 53 5f  42 79 74 65 22 2c 31 32  |f!.."OS_Byte",12|
00000950  39 2c 26 44 36 2c 26 46  46 20 b8 20 2c 41 25 0d  |9,&D6,&FF . ,A%.|
00000960  03 70 23 e7 20 41 25 3d  26 46 46 20 8c 20 4d 61  |.p#. A%=&FF . Ma|
00000970  6e 25 28 31 29 2d 3d 34  3a 6b 70 72 65 73 73 25  |n%(1)-=4:kpress%|
00000980  3d 34 0d 03 7a 04 0d 03  84 21 c8 99 22 4f 53 5f  |=4..z....!.."OS_|
00000990  42 79 74 65 22 2c 31 32  39 2c 26 38 36 2c 26 46  |Byte",129,&86,&F|
000009a0  46 20 b8 20 2c 41 25 0d  03 8e 2d e7 20 41 25 3d  |F . ,A%...-. A%=|
000009b0  26 46 46 20 8c 20 4d 61  6e 25 28 30 29 2b 3d 34  |&FF . Man%(0)+=4|
000009c0  3a 6b 70 72 65 73 73 25  3d 6b 70 72 65 73 73 25  |:kpress%=kpress%|
000009d0  20 84 20 32 0d 03 98 21  c8 99 22 4f 53 5f 42 79  | . 2...!.."OS_By|
000009e0  74 65 22 2c 31 32 39 2c  26 45 36 2c 26 46 46 20  |te",129,&E6,&FF |
000009f0  b8 20 2c 41 25 0d 03 a2  2d e7 20 41 25 3d 26 46  |. ,A%...-. A%=&F|
00000a00  46 20 8c 20 4d 61 6e 25  28 30 29 2d 3d 34 3a 6b  |F . Man%(0)-=4:k|
00000a10  70 72 65 73 73 25 3d 6b  70 72 65 73 73 25 20 84  |press%=kpress% .|
00000a20  20 31 0d 03 ac 2b e7 20  4d 61 6e 25 28 30 29 3c  | 1...+. Man%(0)<|
00000a30  3e 4d 61 6e 25 28 32 29  20 84 20 4d 61 6e 25 28  |>Man%(2) . Man%(|
00000a40  31 29 3c 3e 4d 61 6e 25  28 33 29 20 8c 0d 03 b6  |1)<>Man%(3) ....|
00000a50  22 f2 5f 54 6f 75 63 68  28 4d 61 6e 25 28 30 29  |"._Touch(Man%(0)|
00000a60  2d 33 32 2c 4d 61 6e 25  28 31 29 2d 34 36 29 0d  |-32,Man%(1)-46).|
00000a70  03 c0 58 e7 20 43 6f 6c  25 3c 3e 30 20 8c 20 4d  |..X. Col%<>0 . M|
00000a80  61 6e 25 28 30 29 3d 4d  61 6e 25 28 32 29 3a 4d  |an%(0)=Man%(2):M|
00000a90  61 6e 25 28 31 29 3d 4d  61 6e 25 28 33 29 20 8b  |an%(1)=Man%(3) .|
00000aa0  20 f2 5f 55 70 4d 3a 20  4d 61 6e 25 28 32 29 3d  | ._UpM: Man%(2)=|
00000ab0  4d 61 6e 25 28 30 29 3a  4d 61 6e 25 28 33 29 3d  |Man%(0):Man%(3)=|
00000ac0  4d 61 6e 25 28 31 29 0d  03 ca 05 cd 0d 03 d4 05  |Man%(1).........|
00000ad0  cd 0d 03 de 05 cd 0d 03  e8 05 e1 0d 03 f2 04 0d  |................|
00000ae0  03 fc 04 0d 04 06 11 dd  20 a4 5f 73 70 61 74 68  |........ ._spath|
00000af0  28 6e 24 29 0d 04 10 0f  c8 95 20 a7 6e 24 2c 22  |(n$)...... .n$,"|
00000b00  2e 22 29 0d 04 1a 13 6e  24 3d c2 6e 24 2c a9 28  |.")....n$=.n$,.(|
00000b10  6e 24 29 2d 31 29 0d 04  24 05 ce 0d 04 2e 1b e7  |n$)-1)..$.......|
00000b20  20 a9 28 6e 24 29 3e 31  30 20 8c 20 6e 24 3d c2  | .(n$)>10 . n$=.|
00000b30  6e 24 2c 31 30 29 0d 04  38 07 3d 6e 24 0d 04 42  |n$,10)..8.=n$..B|
00000b40  04 0d 04 4c 11 dd 20 f2  5f 53 4f 52 54 5f 4d 65  |...L.. ._SORT_Me|
00000b50  6e 75 0d 04 56 08 ea 20  41 25 0d 04 60 20 e7 20  |nu..V.. A%..` . |
00000b60  21 71 25 3d 31 20 80 20  49 63 6f 6e 4d 65 6e 75  |!q%=1 . IconMenu|
00000b70  25 3d b9 20 8c 20 f2 64  69 65 0d 04 6a 12 e7 20  |%=. . .die..j.. |
00000b80  21 71 25 3d 35 20 8c 20  f2 64 69 65 0d 04 74 25  |!q%=5 . .die..t%|
00000b90  e7 20 21 71 25 3d 34 20  8c 20 f2 5f 74 61 62 49  |. !q%=4 . ._tabI|
00000ba0  6e 69 74 3a f2 64 72 61  77 75 70 3a f2 5f 55 70  |nit:.drawup:._Up|
00000bb0  4d 0d 04 7e 0d e7 20 21  71 25 3d 33 20 8c 0d 04  |M..~.. !q%=3 ...|
00000bc0  88 13 20 20 20 20 20 20  c8 8e 20 71 25 21 34 20  |..      .. q%!4 |
00000bd0  ca 0d 04 92 23 20 20 c9  20 30 3a 20 20 53 6d 65  |....#  . 0:  Sme|
00000be0  6e 75 25 21 32 38 3d 53  6d 65 6e 75 25 21 32 38  |nu%!28=Smenu%!28|
00000bf0  20 82 20 31 0d 04 9c 1f  20 20 20 20 20 20 20 20  | . 1....        |
00000c00  20 20 20 53 65 65 45 6e  25 3d ac 28 53 65 65 45  |   SeeEn%=.(SeeE|
00000c10  6e 25 29 0d 04 a6 17 20  20 20 20 20 20 20 20 20  |n%)....         |
00000c20  20 20 f2 5f 55 70 49 63  6f 6e 0d 04 b0 19 20 20  |  ._UpIcon....  |
00000c30  20 20 20 20 20 20 20 20  20 57 69 70 65 4d 61 6e  |         WipeMan|
00000c40  25 3d b9 0d 04 ba 14 20  20 20 20 20 20 20 20 20  |%=.....         |
00000c50  20 20 f2 5f 55 70 4d 0d  04 c4 19 20 20 20 20 20  |  ._UpM....     |
00000c60  20 20 20 20 20 20 57 69  70 65 4d 61 6e 25 3d a3  |      WipeMan%=.|
00000c70  0d 04 ce 23 20 20 c9 20  31 3a 20 20 53 6d 65 6e  |...#  . 1:  Smen|
00000c80  75 25 21 35 32 3d 53 6d  65 6e 75 25 21 35 32 20  |u%!52=Smenu%!52 |
00000c90  82 20 31 0d 04 d8 23 20  20 20 20 20 20 20 20 20  |. 1...#         |
00000ca0  20 20 53 6f 75 6e 64 45  6e 25 3d ac 28 53 6f 75  |  SoundEn%=.(Sou|
00000cb0  6e 64 45 6e 25 29 0d 04  e2 23 20 20 c9 20 32 3a  |ndEn%)...#  . 2:|
00000cc0  20 20 53 6d 65 6e 75 25  21 37 36 3d 53 6d 65 6e  |  Smenu%!76=Smen|
00000cd0  75 25 21 37 36 20 82 20  31 0d 04 ec 23 20 20 20  |u%!76 . 1...#   |
00000ce0  20 20 20 20 20 20 20 20  54 6f 75 63 68 45 6e 25  |        TouchEn%|
00000cf0  3d ac 28 54 6f 75 63 68  45 6e 25 29 0d 04 f6 0a  |=.(TouchEn%)....|
00000d00  20 20 20 20 20 cb 0d 05  00 05 cd 0d 05 0a 0d e7  |     ...........|
00000d10  20 21 71 25 3d 31 20 8c  0d 05 14 42 20 20 20 20  | !q%=1 ....B    |
00000d20  20 20 20 20 20 20 20 67  6d 65 6e 75 25 21 28 32  |       gmenu%!(2|
00000d30  38 2b 47 61 6d 65 4e 6f  25 2a 32 34 29 3d 67 6d  |8+GameNo%*24)=gm|
00000d40  65 6e 75 25 21 28 32 38  2b 47 61 6d 65 4e 6f 25  |enu%!(28+GameNo%|
00000d50  2a 32 34 29 20 80 20 26  46 45 0d 05 1e 1b 20 20  |*24) . &FE....  |
00000d60  20 20 20 20 20 20 20 20  20 47 61 6d 65 4e 6f 25  |         GameNo%|
00000d70  3d 71 25 21 34 0d 05 28  40 20 20 20 20 20 20 20  |=q%!4..(@       |
00000d80  20 20 20 20 67 6d 65 6e  75 25 21 28 32 38 2b 47  |    gmenu%!(28+G|
00000d90  61 6d 65 4e 6f 25 2a 32  34 29 3d 67 6d 65 6e 75  |ameNo%*24)=gmenu|
00000da0  25 21 28 32 38 2b 47 61  6d 65 4e 6f 25 2a 32 34  |%!(28+GameNo%*24|
00000db0  29 20 84 20 31 0d 05 32  35 20 20 20 20 20 20 20  |) . 1..25       |
00000dc0  20 20 20 20 c8 99 22 57  69 6d 70 5f 46 6f 72 63  |    .."Wimp_Forc|
00000dd0  65 52 65 64 72 61 77 22  2c 6d 6f 6e 57 25 2c 30  |eRedraw",monW%,0|
00000de0  2c 2d 34 30 2c 36 30 30  2c 30 0d 05 3c 18 20 20  |,-40,600,0..<.  |
00000df0  20 20 20 20 20 20 20 20  20 f2 5f 74 61 62 49 6e  |         ._tabIn|
00000e00  69 74 0d 05 46 1c 20 20  20 20 20 20 20 20 20 20  |it..F.          |
00000e10  20 f2 64 72 61 77 75 70  3a f2 5f 55 70 4d 0d 05  | .drawup:._UpM..|
00000e20  50 05 cd 0d 05 5a 04 0d  05 64 0d e7 20 21 71 25  |P....Z...d.. !q%|
00000e30  3d 32 20 8c 0d 05 6e 3b  73 69 7a 65 6d 65 6e 75  |=2 ...n;sizemenu|
00000e40  25 21 28 32 38 2b 67 53  49 5a 45 25 2a 32 34 29  |%!(28+gSIZE%*24)|
00000e50  3d 73 69 7a 65 6d 65 6e  75 25 21 28 32 38 2b 67  |=sizemenu%!(28+g|
00000e60  53 49 5a 45 25 2a 32 34  29 20 80 20 26 46 45 0d  |SIZE%*24) . &FE.|
00000e70  05 78 0f 67 53 49 5a 45  25 3d 71 25 21 34 0d 05  |.x.gSIZE%=q%!4..|
00000e80  82 39 73 69 7a 65 6d 65  6e 75 25 21 28 32 38 2b  |.9sizemenu%!(28+|
00000e90  67 53 49 5a 45 25 2a 32  34 29 3d 73 69 7a 65 6d  |gSIZE%*24)=sizem|
00000ea0  65 6e 75 25 21 28 32 38  2b 67 53 49 5a 45 25 2a  |enu%!(28+gSIZE%*|
00000eb0  32 34 29 20 84 20 31 0d  05 8c 12 47 72 69 64 25  |24) . 1....Grid%|
00000ec0  3d 67 53 49 5a 45 25 2b  35 0d 05 96 0d f2 5f 74  |=gSIZE%+5....._t|
00000ed0  61 62 49 6e 69 74 0d 05  a0 11 f2 64 72 61 77 75  |abInit.....drawu|
00000ee0  70 3a f2 5f 55 70 4d 0d  05 aa 05 cd 0d 05 b4 04  |p:._UpM.........|
00000ef0  0d 05 be 1f c8 99 22 57  69 6d 70 5f 47 65 74 50  |......"Wimp_GetP|
00000f00  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 71 25 0d  |ointerInfo",,q%.|
00000f10  05 c8 36 e7 20 71 25 21  38 3d 31 20 8c 20 c8 99  |..6. q%!8=1 . ..|
00000f20  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000f30  22 2c 2c 6d 65 6e 75 25  2c 71 25 21 30 2d 39 34  |",,menu%,q%!0-94|
00000f40  2c 71 25 21 34 0d 05 d2  05 e1 0d 05 dc 04 0d 05  |,q%!4...........|
00000f50  e6 0d dd 20 f2 5f 63 6c  6f 73 65 0d 05 f0 5f e7  |... ._close..._.|
00000f60  20 71 25 21 30 3d 6d 6f  6e 57 25 20 8c 20 c8 99  | q%!0=monW% . ..|
00000f70  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00000f80  6e 66 6f 22 2c 2c 57 6e  25 3a 77 6f 70 65 6e 25  |nfo",,Wn%:wopen%|
00000f90  3d a3 3a c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |=.:.."Wimp_SetCa|
00000fa0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 2c  |retPosition",-1,|
00000fb0  2d 31 2c 30 2c 30 2c 30  2c 30 0d 05 fa 20 e7 20  |-1,0,0,0,0... . |
00000fc0  71 25 21 30 3d 77 61 72  6e 69 6e 67 57 25 20 8c  |q%!0=warningW% .|
00000fd0  20 77 61 72 6e 4f 6e 25  3d a3 0d 06 04 1d c8 99  | warnOn%=.......|
00000fe0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00000ff0  6f 77 22 2c 2c 71 25 0d  06 0e 05 e1 0d 06 18 04  |ow",,q%.........|
00001000  0d 06 22 14 dd 20 f2 5f  64 6f 5f 63 6c 69 63 6b  |..".. ._do_click|
00001010  28 71 25 29 0d 06 2c 0c  69 25 3d 71 25 21 31 36  |(q%)..,.i%=q%!16|
00001020  0d 06 36 0e c8 8e 20 71  25 21 31 32 20 ca 0d 06  |..6... q%!12 ...|
00001030  40 28 c9 20 77 61 72 6e  69 6e 67 57 25 3a 20 71  |@(. warningW%: q|
00001040  25 21 30 3d 77 61 72 6e  69 6e 67 57 25 20 3a f2  |%!0=warningW% :.|
00001050  5f 63 6c 6f 73 65 0d 06  4a 04 0d 06 54 28 c9 20  |_close..J...T(. |
00001060  2d 32 3a 20 f4 20 4c 6f  6f 6b 20 66 69 72 73 74  |-2: . Look first|
00001070  20 61 74 20 49 63 6f 6e  20 42 61 72 20 43 6c 69  | at Icon Bar Cli|
00001080  63 6b 0d 06 5e 1e 20 20  20 20 20 20 20 20 e7 20  |ck..^.        . |
00001090  71 25 21 31 36 3d 73 6d  70 69 63 6f 6e 25 20 8c  |q%!16=smpicon% .|
000010a0  0d 06 68 4b 20 20 20 20  20 20 20 20 e7 20 71 25  |..hK        . q%|
000010b0  21 38 3d 32 20 8c 20 49  63 6f 6e 4d 65 6e 75 25  |!8=2 . IconMenu%|
000010c0  3d b9 3a 20 c8 99 22 57  69 6d 70 5f 43 72 65 61  |=.: .."Wimp_Crea|
000010d0  74 65 4d 65 6e 75 22 2c  2c 49 6d 65 6e 75 25 2c  |teMenu",,Imenu%,|
000010e0  71 25 21 30 2d 36 34 2c  31 39 30 0d 06 72 1d 20  |q%!0-64,190..r. |
000010f0  20 20 20 20 20 20 20 e7  20 71 25 21 38 3d 34 20  |       . q%!8=4 |
00001100  8c 20 f2 5f 4f 70 65 6e  0d 06 7c 0d 20 20 20 20  |. ._Open..|.    |
00001110  20 20 20 20 cd 0d 06 86  04 0d 06 90 0e c9 20 6d  |    .......... m|
00001120  6f 6e 57 25 3a 20 20 0d  06 9a 27 20 20 20 20 20  |onW%:  ...'     |
00001130  20 20 20 20 20 20 20 20  20 e7 20 71 25 21 38 3d  |         . q%!8=|
00001140  34 20 8c 20 f2 5f 4d 6f  6e 43 6c 69 63 6b 0d 06  |4 . ._MonClick..|
00001150  a4 50 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.P              |
00001160  e7 20 71 25 21 38 3d 32  20 8c 20 49 63 6f 6e 4d  |. q%!8=2 . IconM|
00001170  65 6e 75 25 3d a3 3a c8  99 22 57 69 6d 70 5f 43  |enu%=.:.."Wimp_C|
00001180  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00001190  25 2c 71 25 21 30 2d 39  34 2c 71 25 21 34 0d 06  |%,q%!0-94,q%!4..|
000011a0  ae 05 cb 0d 06 b8 05 e1  0d 06 c2 04 0d 06 cc 04  |................|
000011b0  0d 06 d6 10 dd 20 f2 5f  4d 6f 6e 43 6c 69 63 6b  |..... ._MonClick|
000011c0  0d 06 e0 14 ea 20 58 25  2c 59 25 2c 44 25 2c 56  |..... X%,Y%,D%,V|
000011d0  25 2c 42 25 0d 06 ea 26  f4 20 44 6f 20 74 68 65  |%,B%...&. Do the|
000011e0  20 61 63 74 69 6f 6e 20  66 6f 72 20 61 20 77 69  | action for a wi|
000011f0  6e 64 6f 77 20 63 6c 69  63 6b 0d 06 f4 2e c8 99  |ndow click......|
00001200  22 57 69 6d 70 5f 53 65  74 43 61 72 65 74 50 6f  |"Wimp_SetCaretPo|
00001210  73 69 74 69 6f 6e 22 2c  6d 6f 6e 57 25 2c 2d 31  |sition",monW%,-1|
00001220  2c 30 2c 30 2c 30 2c 30  0d 06 fe 12 f2 5f 54 72  |,0,0,0,0....._Tr|
00001230  61 6e 73 28 6d 6f 6e 57  25 29 0d 07 08 1f c8 99  |ans(monW%)......|
00001240  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
00001250  49 6e 66 6f 22 2c 2c 71  25 0d 07 12 0f 58 25 3d  |Info",,q%....X%=|
00001260  71 25 21 30 2d 78 6f 25  0d 07 1c 0f 59 25 3d 71  |q%!0-xo%....Y%=q|
00001270  25 21 34 2d 79 6f 25 0d  07 26 10 c8 8e 20 47 61  |%!4-yo%..&... Ga|
00001280  6d 65 4e 6f 25 20 ca 0d  07 30 1c c9 20 30 3a 20  |meNo% ...0.. 0: |
00001290  f2 5f 43 65 6c 6c 28 58  25 2c 59 25 29 3a f2 5f  |._Cell(X%,Y%):._|
000012a0  55 70 4d 0d 07 3a 2c c9  20 34 3a 20 e7 20 58 25  |UpM..:,. 4: . X%|
000012b0  3e 33 32 20 80 20 59 25  3e 34 36 20 80 20 58 25  |>32 . Y%>46 . X%|
000012c0  3c 35 34 38 20 80 20 59  25 3c 35 36 32 20 8c 0d  |<548 . Y%<562 ..|
000012d0  07 44 17 20 20 20 20 20  20 20 20 20 4d 61 6e 25  |.D.         Man%|
000012e0  28 30 29 3d 58 25 0d 07  4e 17 20 20 20 20 20 20  |(0)=X%..N.      |
000012f0  20 20 20 4d 61 6e 25 28  31 29 3d 59 25 0d 07 58  |   Man%(1)=Y%..X|
00001300  2b 20 20 20 20 20 20 20  20 20 f2 5f 54 6f 75 63  |+         ._Touc|
00001310  68 28 4d 61 6e 25 28 30  29 2d 33 32 2c 4d 61 6e  |h(Man%(0)-32,Man|
00001320  25 28 31 29 2d 34 36 29  0d 07 62 12 20 20 20 20  |%(1)-46)..b.    |
00001330  20 20 20 20 20 f2 5f 55  70 4d 0d 07 6c 0e 20 20  |     ._UpM..l.  |
00001340  20 20 20 20 20 20 20 cc  0d 07 76 10 20 20 20 20  |       ...v.    |
00001350  20 20 20 20 20 ef 20 37  0d 07 80 0d 20 20 20 20  |     . 7....    |
00001360  20 20 20 20 cd 0d 07 8a  08 20 20 20 cb 0d 07 94  |    .....   ....|
00001370  05 e1 0d 07 9e 04 0d 07  a8 0c dd 20 f2 5f 4f 70  |........... ._Op|
00001380  65 6e 0d 07 b2 2e c8 99  22 4f 53 5f 52 65 61 64  |en......"OS_Read|
00001390  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000013a0  2c 33 20 b8 20 2c 2c 4e  63 6f 6c 6f 75 72 73 25  |,3 . ,,Ncolours%|
000013b0  0d 07 bc 19 f4 20 4f 50  45 4e 20 55 50 20 57 49  |..... OPEN UP WI|
000013c0  4e 44 4f 57 20 48 45 52  45 0d 07 c6 0e e7 20 77  |NDOW HERE..... w|
000013d0  6f 70 65 6e 25 20 8c 0d  07 d0 0e 71 25 21 30 3d  |open% .....q%!0=|
000013e0  6d 6f 6e 57 25 0d 07 da  1f c8 99 22 57 69 6d 70  |monW%......"Wimp|
000013f0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001400  2c 2c 71 25 0d 07 e4 36  20 20 e7 20 71 25 21 32  |,,q%...6  . q%!2|
00001410  38 3c 3e 2d 31 20 8c 20  71 25 21 32 38 3d 2d 31  |8<>-1 . q%!28=-1|
00001420  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
00001430  69 6e 64 6f 77 22 2c 2c  71 25 0d 07 ee 05 cc 0d  |indow",,q%......|
00001440  07 f8 1d c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00001450  57 69 6e 64 6f 77 22 2c  2c 57 6e 25 0d 08 02 0c  |Window",,Wn%....|
00001460  77 6f 70 65 6e 25 3d b9  0d 08 0c 05 cd 0d 08 16  |wopen%=.........|
00001470  2e c8 99 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |..."Wimp_SetCare|
00001480  74 50 6f 73 69 74 69 6f  6e 22 2c 6d 6f 6e 57 25  |tPosition",monW%|
00001490  2c 2d 31 2c 30 2c 30 2c  30 2c 30 0d 08 20 05 e1  |,-1,0,0,0,0.. ..|
000014a0  0d 08 2a 04 0d 08 34 10  dd 20 f2 5f 64 6f 57 69  |..*...4.. ._doWi|
000014b0  6e 64 6f 77 0d 08 3e 10  20 20 ea 20 41 25 2c 49  |ndow..>.  . A%,I|
000014c0  25 2c 4c 25 0d 08 48 04  0d 08 52 15 20 20 20 f2  |%,L%..H...R.   .|
000014d0  5f 54 72 61 6e 73 28 6d  6f 6e 57 25 29 0d 08 5c  |_Trans(monW%)..\|
000014e0  29 20 20 20 c8 99 20 22  57 69 6d 70 5f 52 65 64  |)   .. "Wimp_Red|
000014f0  72 61 77 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |rawWindow",,q% .|
00001500  20 66 6c 61 67 25 0d 08  66 11 20 20 20 20 20 c8  | flag%..f.     .|
00001510  95 20 66 6c 61 67 25 0d  08 70 04 0d 08 7a 13 20  |. flag%..p...z. |
00001520  20 20 20 20 f2 64 72 61  77 66 72 61 6d 65 0d 08  |    .drawframe..|
00001530  84 0f 20 20 20 20 20 f2  5f 55 70 4d 64 0d 08 8e  |..     ._UpMd...|
00001540  2b 20 20 20 20 20 c8 99  20 22 57 69 6d 70 5f 47  |+     .. "Wimp_G|
00001550  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00001560  20 b8 20 66 6c 61 67 25  0d 08 98 0a 20 20 20 20  | . flag%....    |
00001570  20 ce 0d 08 a2 06 20 20  0d 08 ac 07 20 20 e1 0d  | .....  ....  ..|
00001580  08 b6 06 20 20 0d 08 c0  04 0d 08 ca 10 dd 20 f2  |...  ......... .|
00001590  64 72 61 77 66 72 61 6d  65 0d 08 d4 1a ea 20 57  |drawframe..... W|
000015a0  25 2c 4c 25 2c 41 25 2c  42 25 2c 43 25 2c 58 25  |%,L%,A%,B%,C%,X%|
000015b0  2c 59 25 0d 08 de 16 4c  25 3d 35 34 30 3a 57 25  |,Y%....L%=540:W%|
000015c0  3d 31 30 3a 41 25 3d 33  34 0d 08 e8 17 58 25 3d  |=10:A%=34....X%=|
000015d0  78 6f 25 2b 32 30 3a 59  25 3d 79 6f 25 2b 33 34  |xo%+20:Y%=yo%+34|
000015e0  0d 08 f2 11 4d 7a 25 3d  35 34 34 2f 47 72 69 64  |....Mz%=544/Grid|
000015f0  25 0d 08 fc 18 c8 99 22  57 69 6d 70 5f 53 65 74  |%......"Wimp_Set|
00001600  43 6f 6c 6f 75 72 22 2c  31 0d 09 06 16 c8 93 c8  |Colour",1.......|
00001610  90 20 58 25 2c 59 25 2c  35 34 34 2c 35 34 34 0d  |. X%,Y%,544,544.|
00001620  09 10 04 0d 09 1a 18 c8  99 22 57 69 6d 70 5f 53  |........."Wimp_S|
00001630  65 74 43 6f 6c 6f 75 72  22 2c 37 0d 09 24 14 c8  |etColour",7..$..|
00001640  93 c8 90 20 58 25 2c 59  25 2c 4c 25 2c 57 25 0d  |... X%,Y%,L%,W%.|
00001650  09 2e 1b c8 93 c8 90 20  58 25 2c 59 25 2b 35 34  |....... X%,Y%+54|
00001660  30 2c 4c 25 2b 57 25 2c  57 25 0d 09 38 14 c8 93  |0,L%+W%,W%..8...|
00001670  c8 90 20 58 25 2c 59 25  2c 57 25 2c 4c 25 0d 09  |.. X%,Y%,W%,L%..|
00001680  42 17 c8 93 c8 90 20 58  25 2b 4c 25 2c 59 25 2c  |B..... X%+L%,Y%,|
00001690  57 25 2c 4c 25 0d 09 4c  10 4c 25 3d 4d 7a 25 3a  |W%,L%..L.L%=Mz%:|
000016a0  57 25 3d 31 30 0d 09 56  14 e3 20 41 25 3d 31 20  |W%=10..V.. A%=1 |
000016b0  b8 20 47 72 69 64 25 2d  31 0d 09 60 14 e3 20 42  |. Grid%-1..`.. B|
000016c0  25 3d 31 20 b8 20 47 72  69 64 25 2d 31 0d 09 6a  |%=1 . Grid%-1..j|
000016d0  17 e7 20 52 6f 6f 6d 25  28 41 25 2c 42 25 29 3c  |.. Room%(A%,B%)<|
000016e0  3e 30 20 8c 0d 09 74 22  c8 93 c8 90 20 58 25 2b  |>0 ...t".... X%+|
000016f0  42 25 2a 4d 7a 25 2c 59  25 2b 41 25 2a 4d 7a 25  |B%*Mz%,Y%+A%*Mz%|
00001700  2c 57 25 2c 57 25 0d 09  7e 13 43 25 3d 52 6f 6f  |,W%,W%..~.C%=Roo|
00001710  6d 25 28 41 25 2c 42 25  29 0d 09 88 32 e7 20 28  |m%(A%,B%)...2. (|
00001720  43 25 20 80 20 38 29 3c  3e 30 20 8c 20 c8 93 c8  |C% . 8)<>0 . ...|
00001730  90 20 58 25 2b 42 25 2a  4d 7a 25 2c 59 25 2b 41  |. X%+B%*Mz%,Y%+A|
00001740  25 2a 4d 7a 25 2c 4c 25  2c 57 25 0d 09 92 33 e7  |%*Mz%,L%,W%...3.|
00001750  20 28 43 25 20 80 20 34  29 3c 3e 30 20 8c 20 c8  | (C% . 4)<>0 . .|
00001760  93 c8 90 20 58 25 2b 42  25 2a 4d 7a 25 2c 59 25  |... X%+B%*Mz%,Y%|
00001770  2b 41 25 2a 4d 7a 25 2c  2d 4c 25 2c 57 25 0d 09  |+A%*Mz%,-L%,W%..|
00001780  9c 36 e7 20 28 43 25 20  80 20 32 29 3c 3e 30 20  |.6. (C% . 2)<>0 |
00001790  8c 20 c8 93 c8 90 20 58  25 2b 42 25 2a 4d 7a 25  |. .... X%+B%*Mz%|
000017a0  2c 59 25 2b 57 25 2b 41  25 2a 4d 7a 25 2c 57 25  |,Y%+W%+A%*Mz%,W%|
000017b0  2c 2d 4c 25 0d 09 a6 32  e7 20 28 43 25 20 80 20  |,-L%...2. (C% . |
000017c0  31 29 3c 3e 30 20 8c 20  c8 93 c8 90 20 58 25 2b  |1)<>0 . .... X%+|
000017d0  42 25 2a 4d 7a 25 2c 59  25 2b 41 25 2a 4d 7a 25  |B%*Mz%,Y%+A%*Mz%|
000017e0  2c 57 25 2c 4c 25 0d 09  b0 05 cd 0d 09 ba 05 ed  |,W%,L%..........|
000017f0  0d 09 c4 05 ed 0d 09 ce  11 41 25 3d 4e 6f 58 73  |.........A%=NoXs|
00001800  25 3a 42 25 3d 30 0d 09  d8 0b c8 95 20 41 25 3e  |%:B%=0...... A%>|
00001810  30 0d 09 e2 24 e7 20 50  6f 73 58 25 28 30 2c 42  |0...$. PosX%(0,B|
00001820  25 29 3c 26 46 46 20 80  20 47 61 6d 65 4e 6f 25  |%)<&FF . GameNo%|
00001830  3c 3e 35 20 8c 0d 09 ec  31 f2 78 28 58 25 2b 4d  |<>5 ....1.x(X%+M|
00001840  7a 25 2a 50 6f 73 58 25  28 30 2c 42 25 29 2c 59  |z%*PosX%(0,B%),Y|
00001850  25 2b 4d 7a 25 2a 50 6f  73 58 25 28 31 2c 42 25  |%+Mz%*PosX%(1,B%|
00001860  29 2c 4d 7a 25 29 0d 09  f6 05 cd 0d 0a 00 0f 41  |),Mz%).........A|
00001870  25 2d 3d 31 3a 42 25 2b  3d 31 0d 0a 0a 05 ce 0d  |%-=1:B%+=1......|
00001880  0a 14 18 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |....."Wimp_SetCo|
00001890  6c 6f 75 72 22 2c 38 0d  0a 1e 06 ef 35 0d 0a 28  |lour",8.....5..(|
000018a0  14 ec 20 78 6f 25 2b 32  30 2c 79 6f 25 2b 36 32  |.. xo%+20,yo%+62|
000018b0  30 0d 0a 32 14 f1 47 6e  61 6d 65 24 28 47 61 6d  |0..2..Gname$(Gam|
000018c0  65 4e 6f 25 29 0d 0a 3c  06 ef 34 0d 0a 46 05 e1  |eNo%)..<..4..F..|
000018d0  0d 0a 50 04 0d 0a 5a 12  dd 20 f2 78 28 58 25 2c  |..P...Z.. .x(X%,|
000018e0  59 25 2c 53 25 29 0d 0a  64 18 58 25 2b 3d 31 38  |Y%,S%)..d.X%+=18|
000018f0  3a 59 25 2b 3d 31 38 3a  53 25 2d 3d 32 38 0d 0a  |:Y%+=18:S%-=28..|
00001900  6e 0b ec 20 58 25 2c 59  25 0d 0a 78 0b f0 20 30  |n.. X%,Y%..x.. 0|
00001910  2c 30 2c 35 0d 0a 82 1c  f0 20 30 2c 35 2c 2d 35  |,0,5..... 0,5,-5|
00001920  20 3a f0 20 30 2c 53 25  2d 35 2c 2d 35 2b 53 25  | :. 0,S%-5,-5+S%|
00001930  0d 0a 8c 0e f0 20 31 31  33 2c 2d 35 2c 35 0d 0a  |..... 113,-5,5..|
00001940  96 0b ec 20 58 25 2c 59  25 0d 0a a0 0e f0 20 30  |... X%,Y%..... 0|
00001950  2c 53 25 2d 36 2c 30 0d  0a aa 1b f0 20 30 2c 36  |,S%-6,0..... 0,6|
00001960  2c 36 20 3a f0 20 30 2c  2d 53 25 2b 36 2c 53 25  |,6 :. 0,-S%+6,S%|
00001970  2d 36 0d 0a b4 0f f0 20  31 31 33 2c 2d 36 2c 2d  |-6..... 113,-6,-|
00001980  36 0d 0a be 05 e1 0d 0a  c8 04 0d 0a d2 0d dd 20  |6.............. |
00001990  f2 64 72 61 77 75 70 0d  0a dc 11 ea 20 41 25 2c  |.drawup..... A%,|
000019a0  42 25 2c 58 25 2c 59 25  0d 0a e6 0f 20 f2 64 72  |B%,X%,Y%.... .dr|
000019b0  61 77 66 72 61 6d 65 0d  0a f0 05 e1 0d 0a fa 04  |awframe.........|
000019c0  0d 0b 04 0b dd 20 f2 5f  55 70 50 0d 0b 0e 12 ea  |..... ._UpP.....|
000019d0  20 54 25 2c 41 25 2c 45  25 2c 4e 77 25 0d 0b 18  | T%,A%,E%,Nw%...|
000019e0  12 f2 5f 54 72 61 6e 73  28 6d 6f 6e 57 25 29 0d  |.._Trans(monW%).|
000019f0  0b 22 31 71 25 21 30 3d  6d 6f 6e 57 25 3a 71 25  |."1q%!0=monW%:q%|
00001a00  21 34 3d 30 3a 71 25 21  38 3d 2d 36 30 32 3a 71  |!4=0:q%!8=-602:q|
00001a10  25 21 31 32 3d 36 35 30  3a 71 25 21 31 36 3d 30  |%!12=650:q%!16=0|
00001a20  0d 0b 2c 27 20 20 c8 99  22 57 69 6d 70 5f 55 70  |..,'  .."Wimp_Up|
00001a30  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 71 25 20  |dateWindow",,q% |
00001a40  b8 20 4d 6f 72 65 25 0d  0b 36 04 0d 0b 40 0d 20  |. More%..6...@. |
00001a50  c8 95 20 4d 6f 72 65 25  0d 0b 4a 04 0d 0b 54 0d  |.. More%..J...T.|
00001a60  20 20 f2 64 72 61 77 75  70 0d 0b 5e 27 20 20 c8  |  .drawup..^'  .|
00001a70  99 22 57 69 6d 70 5f 47  65 74 52 65 63 74 61 6e  |."Wimp_GetRectan|
00001a80  67 6c 65 22 2c 2c 71 25  20 b8 20 4d 6f 72 65 25  |gle",,q% . More%|
00001a90  0d 0b 68 06 20 ce 0d 0b  72 05 e1 0d 0b 7c 04 0d  |..h. ...r....|..|
00001aa0  0b 86 0b dd 20 f2 5f 55  70 4d 0d 0b 90 12 ea 20  |.... ._UpM..... |
00001ab0  54 25 2c 41 25 2c 45 25  2c 4e 77 25 0d 0b 9a 12  |T%,A%,E%,Nw%....|
00001ac0  f2 5f 54 72 61 6e 73 28  6d 6f 6e 57 25 29 0d 0b  |._Trans(monW%)..|
00001ad0  a4 31 71 25 21 30 3d 6d  6f 6e 57 25 3a 71 25 21  |.1q%!0=monW%:q%!|
00001ae0  34 3d 30 3a 71 25 21 38  3d 2d 36 30 32 3a 71 25  |4=0:q%!8=-602:q%|
00001af0  21 31 32 3d 36 35 30 3a  71 25 21 31 36 3d 30 0d  |!12=650:q%!16=0.|
00001b00  0b ae 27 20 20 c8 99 22  57 69 6d 70 5f 55 70 64  |..'  .."Wimp_Upd|
00001b10  61 74 65 57 69 6e 64 6f  77 22 2c 2c 71 25 20 b8  |ateWindow",,q% .|
00001b20  20 4d 6f 72 65 25 0d 0b  b8 04 0d 0b c2 0d 20 c8  | More%........ .|
00001b30  95 20 4d 6f 72 65 25 0d  0b cc 0c 20 20 f2 5f 55  |. More%....  ._U|
00001b40  70 4d 64 0d 0b d6 27 20  20 c8 99 22 57 69 6d 70  |pMd...'  .."Wimp|
00001b50  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
00001b60  71 25 20 b8 20 4d 6f 72  65 25 0d 0b e0 06 20 ce  |q% . More%.... .|
00001b70  0d 0b ea 05 e1 0d 0b f4  04 0d 0b fe 0c dd 20 f2  |.............. .|
00001b80  5f 55 70 4d 64 0d 0c 08  19 e7 20 53 65 65 45 6e  |_UpMd..... SeeEn|
00001b90  25 20 84 20 57 69 70 65  4d 61 6e 25 20 8c 0d 0c  |% . WipeMan% ...|
00001ba0  12 18 c8 99 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |...."Wimp_SetCol|
00001bb0  6f 75 72 22 2c 31 0d 0c  1c 26 c8 93 c8 90 20 4d  |our",1...&.... M|
00001bc0  61 6e 25 28 32 29 2b 78  6f 25 2c 4d 61 6e 25 28  |an%(2)+xo%,Man%(|
00001bd0  33 29 2b 79 6f 25 2c 31  30 2c 31 30 0d 0c 26 05  |3)+yo%,10,10..&.|
00001be0  cd 0d 0c 30 0e e7 20 53  65 65 45 6e 25 20 8c 0d  |...0.. SeeEn% ..|
00001bf0  0c 3a 19 c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |.:..."Wimp_SetCo|
00001c00  6c 6f 75 72 22 2c 31 31  0d 0c 44 26 c8 93 c8 90  |lour",11..D&....|
00001c10  20 4d 61 6e 25 28 30 29  2b 78 6f 25 2c 4d 61 6e  | Man%(0)+xo%,Man|
00001c20  25 28 31 29 2b 79 6f 25  2c 31 30 2c 31 30 0d 0c  |%(1)+yo%,10,10..|
00001c30  4e 05 cd 0d 0c 58 05 e1  0d 0c 62 04 0d 0c 6c 11  |N....X....b...l.|
00001c40  dd 20 f2 76 69 63 28 41  25 2c 42 25 29 0d 0c 76  |. .vic(A%,B%)..v|
00001c50  0b ea 20 4d 6f 72 65 25  0d 0c 80 12 f2 5f 54 72  |.. More%....._Tr|
00001c60  61 6e 73 28 6d 6f 6e 57  25 29 0d 0c 8a 31 71 25  |ans(monW%)...1q%|
00001c70  21 30 3d 6d 6f 6e 57 25  3a 71 25 21 34 3d 30 3a  |!0=monW%:q%!4=0:|
00001c80  71 25 21 38 3d 2d 36 30  32 3a 71 25 21 31 32 3d  |q%!8=-602:q%!12=|
00001c90  36 35 30 3a 71 25 21 31  36 3d 30 0d 0c 94 27 20  |650:q%!16=0...' |
00001ca0  20 c8 99 22 57 69 6d 70  5f 55 70 64 61 74 65 57  | .."Wimp_UpdateW|
00001cb0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 4d 6f 72  |indow",,q% . Mor|
00001cc0  65 25 0d 0c 9e 04 0d 0c  a8 0d 20 c8 95 20 4d 6f  |e%........ .. Mo|
00001cd0  72 65 25 0d 0c b2 12 20  20 f2 76 69 63 64 28 41  |re%....  .vicd(A|
00001ce0  25 2c 42 25 29 0d 0c bc  27 20 20 c8 99 22 57 69  |%,B%)...'  .."Wi|
00001cf0  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00001d00  2c 2c 71 25 20 b8 20 4d  6f 72 65 25 0d 0c c6 06  |,,q% . More%....|
00001d10  20 ce 0d 0c d0 05 e1 0d  0c da 04 0d 0c e4 12 dd  | ...............|
00001d20  20 f2 5f 54 72 61 6e 73  28 77 68 25 29 0d 0c ee  | ._Trans(wh%)...|
00001d30  0b 21 71 25 3d 77 68 25  0d 0c f8 20 c8 99 20 22  |.!q%=wh%... .. "|
00001d40  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001d50  61 74 65 22 2c 2c 71 25  0d 0d 02 26 78 6f 25 3d  |ate",,q%...&xo%=|
00001d60  71 25 21 34 2d 71 25 21  32 30 3a 79 6f 25 3d 71  |q%!4-q%!20:yo%=q|
00001d70  25 21 31 36 2d 71 25 21  32 34 2d 36 33 30 0d 0d  |%!16-q%!24-630..|
00001d80  0c 16 58 4f 25 3d 71 25  21 34 3a 59 4f 25 3d 71  |..XO%=q%!4:YO%=q|
00001d90  25 21 31 36 0d 0d 16 05  e1 0d 0d 20 04 0d 0d 2a  |%!16....... ...*|
00001da0  0f dd f2 73 65 74 75 70  6d 65 6e 75 0d 0d 34 08  |...setupmenu..4.|
00001db0  ea 20 6d 25 0d 0d 3e 04  0d 0d 48 15 24 73 69 7a  |. m%..>...H.$siz|
00001dc0  65 6d 65 6e 75 25 3d 22  53 69 7a 65 22 0d 0d 52  |emenu%="Size"..R|
00001dd0  12 73 69 7a 65 6d 65 6e  75 25 3f 31 32 3d 37 0d  |.sizemenu%?12=7.|
00001de0  0d 5c 12 73 69 7a 65 6d  65 6e 75 25 3f 31 33 3d  |.\.sizemenu%?13=|
00001df0  32 0d 0d 66 12 73 69 7a  65 6d 65 6e 75 25 3f 31  |2..f.sizemenu%?1|
00001e00  34 3d 37 0d 0d 70 12 73  69 7a 65 6d 65 6e 75 25  |4=7..p.sizemenu%|
00001e10  3f 31 35 3d 30 0d 0d 7a  14 73 69 7a 65 6d 65 6e  |?15=0..z.sizemen|
00001e20  75 25 21 31 36 3d 31 32  38 0d 0d 84 13 73 69 7a  |u%!16=128....siz|
00001e30  65 6d 65 6e 75 25 21 32  30 3d 34 30 0d 0d 8e 12  |emenu%!20=40....|
00001e40  73 69 7a 65 6d 65 6e 75  25 21 32 34 3d 30 0d 0d  |sizemenu%!24=0..|
00001e50  98 13 6d 25 3d 73 69 7a  65 6d 65 6e 75 25 2b 32  |..m%=sizemenu%+2|
00001e60  38 0d 0d a2 04 0d 0d ac  0a 6d 25 21 30 3d 30 0d  |8........m%!0=0.|
00001e70  0d b6 0a 6d 25 21 34 3d  30 0d 0d c0 18 6d 25 21  |...m%!4=0....m%!|
00001e80  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
00001e90  31 0d 0d ca 14 24 28 6d  25 2b 31 32 29 3d 22 35  |1....$(m%+12)="5|
00001ea0  20 58 20 35 22 0d 0d d4  04 0d 0d de 0a 6d 25 2b  | X 5"........m%+|
00001eb0  3d 32 34 0d 0d e8 0a 6d  25 21 30 3d 30 0d 0d f2  |=24....m%!0=0...|
00001ec0  0a 6d 25 21 34 3d 30 0d  0d fc 18 6d 25 21 38 3d  |.m%!4=0....m%!8=|
00001ed0  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00001ee0  0e 06 14 24 28 6d 25 2b  31 32 29 3d 22 36 20 58  |...$(m%+12)="6 X|
00001ef0  20 36 22 0d 0e 10 0a 6d  25 2b 3d 32 34 0d 0e 1a  | 6"....m%+=24...|
00001f00  0a 6d 25 21 30 3d 31 0d  0e 24 0a 6d 25 21 34 3d  |.m%!0=1..$.m%!4=|
00001f10  30 0d 0e 2e 18 6d 25 21  38 3d 28 37 3c 3c 32 34  |0....m%!8=(7<<24|
00001f20  29 84 20 25 31 30 30 30  31 0d 0e 38 14 24 28 6d  |). %10001..8.$(m|
00001f30  25 2b 31 32 29 3d 22 37  20 58 20 37 22 0d 0e 42  |%+12)="7 X 7"..B|
00001f40  0a 6d 25 2b 3d 32 34 0d  0e 4c 0a 6d 25 21 30 3d  |.m%+=24..L.m%!0=|
00001f50  30 0d 0e 56 0a 6d 25 21  34 3d 30 0d 0e 60 18 6d  |0..V.m%!4=0..`.m|
00001f60  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
00001f70  30 30 31 0d 0e 6a 14 24  28 6d 25 2b 31 32 29 3d  |001..j.$(m%+12)=|
00001f80  22 38 20 58 20 38 22 0d  0e 74 0a 6d 25 2b 3d 32  |"8 X 8"..t.m%+=2|
00001f90  34 0d 0e 7e 0a 6d 25 21  30 3d 30 0d 0e 88 0a 6d  |4..~.m%!0=0....m|
00001fa0  25 21 34 3d 30 0d 0e 92  18 6d 25 21 38 3d 28 37  |%!4=0....m%!8=(7|
00001fb0  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 0e 9c  |<<24). %10001...|
00001fc0  14 24 28 6d 25 2b 31 32  29 3d 22 39 20 58 20 39  |.$(m%+12)="9 X 9|
00001fd0  22 0d 0e a6 0a 6d 25 2b  3d 32 34 0d 0e b0 0c 6d  |"....m%+=24....m|
00001fe0  25 21 30 3d 26 38 30 0d  0e ba 0a 6d 25 21 34 3d  |%!0=&80....m%!4=|
00001ff0  30 0d 0e c4 18 6d 25 21  38 3d 28 37 3c 3c 32 34  |0....m%!8=(7<<24|
00002000  29 84 20 25 31 30 30 30  31 0d 0e ce 16 24 28 6d  |). %10001....$(m|
00002010  25 2b 31 32 29 3d 22 31  30 20 58 20 31 30 22 0d  |%+12)="10 X 10".|
00002020  0e d8 04 0d 0e e2 13 24  67 6d 65 6e 75 25 3d 22  |.......$gmenu%="|
00002030  52 75 6c 65 73 22 0d 0e  ec 0f 67 6d 65 6e 75 25  |Rules"....gmenu%|
00002040  3f 31 32 3d 37 0d 0e f6  0f 67 6d 65 6e 75 25 3f  |?12=7....gmenu%?|
00002050  31 33 3d 32 0d 0f 00 0f  67 6d 65 6e 75 25 3f 31  |13=2....gmenu%?1|
00002060  34 3d 37 0d 0f 0a 0f 67  6d 65 6e 75 25 3f 31 35  |4=7....gmenu%?15|
00002070  3d 30 0d 0f 14 11 67 6d  65 6e 75 25 21 31 36 3d  |=0....gmenu%!16=|
00002080  31 32 38 0d 0f 1e 10 67  6d 65 6e 75 25 21 32 30  |128....gmenu%!20|
00002090  3d 34 30 0d 0f 28 0f 67  6d 65 6e 75 25 21 32 34  |=40..(.gmenu%!24|
000020a0  3d 30 0d 0f 32 10 6d 25  3d 67 6d 65 6e 75 25 2b  |=0..2.m%=gmenu%+|
000020b0  32 38 0d 0f 3c 04 0d 0f  46 0a 6d 25 21 30 3d 31  |28..<...F.m%!0=1|
000020c0  0d 0f 50 0a 6d 25 21 34  3d 30 0d 0f 5a 18 6d 25  |..P.m%!4=0..Z.m%|
000020d0  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
000020e0  30 31 0d 0f 64 15 24 28  6d 25 2b 31 32 29 3d 22  |01..d.$(m%+12)="|
000020f0  47 61 6d 65 20 31 22 0d  0f 6e 04 0d 0f 78 0a 6d  |Game 1"..n...x.m|
00002100  25 2b 3d 32 34 0d 0f 82  0a 6d 25 21 30 3d 30 0d  |%+=24....m%!0=0.|
00002110  0f 8c 0a 6d 25 21 34 3d  30 0d 0f 96 18 6d 25 21  |...m%!4=0....m%!|
00002120  38 3d 28 37 3c 3c 32 34  29 84 20 25 31 30 30 30  |8=(7<<24). %1000|
00002130  31 0d 0f a0 15 24 28 6d  25 2b 31 32 29 3d 22 47  |1....$(m%+12)="G|
00002140  61 6d 65 20 32 22 0d 0f  aa 0a 6d 25 2b 3d 32 34  |ame 2"....m%+=24|
00002150  0d 0f b4 0a 6d 25 21 30  3d 30 0d 0f be 0a 6d 25  |....m%!0=0....m%|
00002160  21 34 3d 30 0d 0f c8 18  6d 25 21 38 3d 28 37 3c  |!4=0....m%!8=(7<|
00002170  3c 32 34 29 84 20 25 31  30 30 30 31 0d 0f d2 15  |<24). %10001....|
00002180  24 28 6d 25 2b 31 32 29  3d 22 47 61 6d 65 20 33  |$(m%+12)="Game 3|
00002190  22 0d 0f dc 0a 6d 25 2b  3d 32 34 0d 0f e6 0a 6d  |"....m%+=24....m|
000021a0  25 21 30 3d 30 0d 0f f0  0a 6d 25 21 34 3d 30 0d  |%!0=0....m%!4=0.|
000021b0  0f fa 18 6d 25 21 38 3d  28 37 3c 3c 32 34 29 84  |...m%!8=(7<<24).|
000021c0  20 25 31 30 30 30 31 0d  10 04 15 24 28 6d 25 2b  | %10001....$(m%+|
000021d0  31 32 29 3d 22 47 61 6d  65 20 34 22 0d 10 0e 0a  |12)="Game 4"....|
000021e0  6d 25 2b 3d 32 34 0d 10  18 0a 6d 25 21 30 3d 30  |m%+=24....m%!0=0|
000021f0  0d 10 22 0a 6d 25 21 34  3d 30 0d 10 2c 18 6d 25  |..".m%!4=0..,.m%|
00002200  21 38 3d 28 37 3c 3c 32  34 29 84 20 25 31 30 30  |!8=(7<<24). %100|
00002210  30 31 0d 10 36 15 24 28  6d 25 2b 31 32 29 3d 22  |01..6.$(m%+12)="|
00002220  47 61 6d 65 20 35 22 0d  10 40 0a 6d 25 2b 3d 32  |Game 5"..@.m%+=2|
00002230  34 0d 10 4a 0c 6d 25 21  30 3d 26 38 30 0d 10 54  |4..J.m%!0=&80..T|
00002240  0a 6d 25 21 34 3d 30 0d  10 5e 18 6d 25 21 38 3d  |.m%!4=0..^.m%!8=|
00002250  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00002260  10 68 15 24 28 6d 25 2b  31 32 29 3d 22 47 61 6d  |.h.$(m%+12)="Gam|
00002270  65 20 36 22 0d 10 72 04  0d 10 7c 11 24 6d 65 6e  |e 6"..r...|.$men|
00002280  75 25 3d 22 42 75 66 66  22 0d 10 86 0e 6d 65 6e  |u%="Buff"....men|
00002290  75 25 3f 31 32 3d 37 0d  10 90 0e 6d 65 6e 75 25  |u%?12=7....menu%|
000022a0  3f 31 33 3d 32 0d 10 9a  0e 6d 65 6e 75 25 3f 31  |?13=2....menu%?1|
000022b0  34 3d 37 0d 10 a4 0e 6d  65 6e 75 25 3f 31 35 3d  |4=7....menu%?15=|
000022c0  30 0d 10 ae 10 6d 65 6e  75 25 21 31 36 3d 31 32  |0....menu%!16=12|
000022d0  38 0d 10 b8 0f 6d 65 6e  75 25 21 32 30 3d 34 30  |8....menu%!20=40|
000022e0  0d 10 c2 0e 6d 65 6e 75  25 21 32 34 3d 30 0d 10  |....menu%!24=0..|
000022f0  cc 0f 6d 25 3d 6d 65 6e  75 25 2b 32 38 0d 10 d6  |..m%=menu%+28...|
00002300  0a 6d 25 21 30 3d 30 0d  10 e0 0e 6d 25 21 34 3d  |.m%!0=0....m%!4=|
00002310  69 6e 66 6f 25 0d 10 ea  18 6d 25 21 38 3d 28 37  |info%....m%!8=(7|
00002320  3c 3c 32 34 29 84 20 25  31 30 30 30 31 0d 10 f4  |<<24). %10001...|
00002330  13 24 28 6d 25 2b 31 32  29 3d 22 49 6e 66 6f 22  |.$(m%+12)="Info"|
00002340  0d 10 fe 04 0d 11 08 0a  6d 25 2b 3d 32 34 0d 11  |........m%+=24..|
00002350  12 0a 6d 25 21 30 3d 30  0d 11 1c 0f 6d 25 21 34  |..m%!0=0....m%!4|
00002360  3d 67 6d 65 6e 75 25 0d  11 26 18 6d 25 21 38 3d  |=gmenu%..&.m%!8=|
00002370  28 37 3c 3c 32 34 29 84  20 25 31 30 30 30 31 0d  |(7<<24). %10001.|
00002380  11 30 14 24 28 6d 25 2b  31 32 29 3d 22 52 75 6c  |.0.$(m%+12)="Rul|
00002390  65 73 22 0d 11 3a 04 0d  11 44 0a 6d 25 2b 3d 32  |es"..:...D.m%+=2|
000023a0  34 0d 11 4e 0a 6d 25 21  30 3d 30 0d 11 58 12 6d  |4..N.m%!0=0..X.m|
000023b0  25 21 34 3d 73 69 7a 65  6d 65 6e 75 25 0d 11 62  |%!4=sizemenu%..b|
000023c0  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
000023d0  31 30 30 30 31 0d 11 6c  13 24 28 6d 25 2b 31 32  |10001..l.$(m%+12|
000023e0  29 3d 22 53 69 7a 65 22  0d 11 76 04 0d 11 80 0a  |)="Size"..v.....|
000023f0  6d 25 2b 3d 32 34 0d 11  8a 0a 6d 25 21 30 3d 30  |m%+=24....m%!0=0|
00002400  0d 11 94 0f 6d 25 21 34  3d 53 6d 65 6e 75 25 0d  |....m%!4=Smenu%.|
00002410  11 9e 18 6d 25 21 38 3d  28 37 3c 3c 32 34 29 84  |...m%!8=(7<<24).|
00002420  20 25 31 30 30 30 31 0d  11 a8 14 24 28 6d 25 2b  | %10001....$(m%+|
00002430  31 32 29 3d 22 53 65 6e  73 65 22 0d 11 b2 04 0d  |12)="Sense".....|
00002440  11 bc 0a 6d 25 2b 3d 32  34 0d 11 c6 0a 6d 25 21  |...m%+=24....m%!|
00002450  30 3d 30 0d 11 d0 0a 6d  25 21 34 3d 30 0d 11 da  |0=0....m%!4=0...|
00002460  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
00002470  31 30 30 30 31 0d 11 e4  12 24 28 6d 25 2b 31 32  |10001....$(m%+12|
00002480  29 3d 22 4e 65 77 22 0d  11 ee 04 0d 11 f8 0a 6d  |)="New"........m|
00002490  25 2b 3d 32 34 0d 12 02  0c 6d 25 21 30 3d 26 38  |%+=24....m%!0=&8|
000024a0  30 0d 12 0c 0a 6d 25 21  34 3d 30 0d 12 16 18 6d  |0....m%!4=0....m|
000024b0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
000024c0  30 30 31 0d 12 20 13 24  28 6d 25 2b 31 32 29 3d  |001.. .$(m%+12)=|
000024d0  22 51 75 69 74 22 0d 12  2a 04 0d 12 34 12 24 49  |"Quit"..*...4.$I|
000024e0  6d 65 6e 75 25 3d 22 42  75 66 66 22 0d 12 3e 0f  |menu%="Buff"..>.|
000024f0  49 6d 65 6e 75 25 3f 31  32 3d 37 0d 12 48 0f 49  |Imenu%?12=7..H.I|
00002500  6d 65 6e 75 25 3f 31 33  3d 32 0d 12 52 0f 49 6d  |menu%?13=2..R.Im|
00002510  65 6e 75 25 3f 31 34 3d  37 0d 12 5c 0f 49 6d 65  |enu%?14=7..\.Ime|
00002520  6e 75 25 3f 31 35 3d 30  0d 12 66 11 49 6d 65 6e  |nu%?15=0..f.Imen|
00002530  75 25 21 31 36 3d 31 32  38 0d 12 70 10 49 6d 65  |u%!16=128..p.Ime|
00002540  6e 75 25 21 32 30 3d 34  30 0d 12 7a 0f 49 6d 65  |nu%!20=40..z.Ime|
00002550  6e 75 25 21 32 34 3d 30  0d 12 84 10 6d 25 3d 49  |nu%!24=0....m%=I|
00002560  6d 65 6e 75 25 2b 32 38  0d 12 8e 0a 6d 25 21 30  |menu%+28....m%!0|
00002570  3d 30 0d 12 98 0e 6d 25  21 34 3d 69 6e 66 6f 25  |=0....m%!4=info%|
00002580  0d 12 a2 18 6d 25 21 38  3d 28 37 3c 3c 32 34 29  |....m%!8=(7<<24)|
00002590  84 20 25 31 30 30 30 31  0d 12 ac 13 24 28 6d 25  |. %10001....$(m%|
000025a0  2b 31 32 29 3d 22 49 6e  66 6f 22 0d 12 b6 0a 6d  |+12)="Info"....m|
000025b0  25 2b 3d 32 34 0d 12 c0  0c 6d 25 21 30 3d 26 38  |%+=24....m%!0=&8|
000025c0  30 0d 12 ca 0a 6d 25 21  34 3d 30 0d 12 d4 18 6d  |0....m%!4=0....m|
000025d0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
000025e0  30 30 31 0d 12 de 13 24  28 6d 25 2b 31 32 29 3d  |001....$(m%+12)=|
000025f0  22 51 75 69 74 22 0d 12  e8 04 0d 12 f2 13 24 53  |"Quit"........$S|
00002600  6d 65 6e 75 25 3d 22 53  65 6e 73 65 22 0d 12 fc  |menu%="Sense"...|
00002610  0f 53 6d 65 6e 75 25 3f  31 32 3d 37 0d 13 06 0f  |.Smenu%?12=7....|
00002620  53 6d 65 6e 75 25 3f 31  33 3d 32 0d 13 10 0f 53  |Smenu%?13=2....S|
00002630  6d 65 6e 75 25 3f 31 34  3d 37 0d 13 1a 0f 53 6d  |menu%?14=7....Sm|
00002640  65 6e 75 25 3f 31 35 3d  30 0d 13 24 11 53 6d 65  |enu%?15=0..$.Sme|
00002650  6e 75 25 21 31 36 3d 31  32 38 0d 13 2e 10 53 6d  |nu%!16=128....Sm|
00002660  65 6e 75 25 21 32 30 3d  34 30 0d 13 38 0f 53 6d  |enu%!20=40..8.Sm|
00002670  65 6e 75 25 21 32 34 3d  30 0d 13 42 10 6d 25 3d  |enu%!24=0..B.m%=|
00002680  53 6d 65 6e 75 25 2b 32  38 0d 13 4c 0a 6d 25 21  |Smenu%+28..L.m%!|
00002690  30 3d 30 0d 13 56 0a 6d  25 21 34 3d 30 0d 13 60  |0=0..V.m%!4=0..`|
000026a0  18 6d 25 21 38 3d 28 37  3c 3c 32 34 29 84 20 25  |.m%!8=(7<<24). %|
000026b0  31 30 30 30 31 0d 13 6a  14 24 28 6d 25 2b 31 32  |10001..j.$(m%+12|
000026c0  29 3d 22 53 69 67 68 74  22 0d 13 74 0a 6d 25 2b  |)="Sight"..t.m%+|
000026d0  3d 32 34 0d 13 7e 04 0d  13 88 0a 6d 25 21 30 3d  |=24..~.....m%!0=|
000026e0  31 0d 13 92 0a 6d 25 21  34 3d 30 0d 13 9c 18 6d  |1....m%!4=0....m|
000026f0  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
00002700  30 30 31 0d 13 a6 14 24  28 6d 25 2b 31 32 29 3d  |001....$(m%+12)=|
00002710  22 53 6f 75 6e 64 22 0d  13 b0 0a 6d 25 2b 3d 32  |"Sound"....m%+=2|
00002720  34 0d 13 ba 04 0d 13 c4  0c 6d 25 21 30 3d 26 38  |4........m%!0=&8|
00002730  30 0d 13 ce 0a 6d 25 21  34 3d 30 0d 13 d8 18 6d  |0....m%!4=0....m|
00002740  25 21 38 3d 28 37 3c 3c  32 34 29 84 20 25 31 30  |%!8=(7<<24). %10|
00002750  30 30 31 0d 13 e2 14 24  28 6d 25 2b 31 32 29 3d  |001....$(m%+12)=|
00002760  22 54 6f 75 63 68 22 0d  13 ec 04 0d 13 f6 05 e1  |"Touch".........|
00002770  0d 14 00 04 0d 14 0a 12  dd 20 f2 72 65 63 65 69  |......... .recei|
00002780  76 65 28 71 25 29 0d 14  14 08 ea 20 41 25 0d 14  |ve(q%)..... A%..|
00002790  1e 0c 41 25 3d 71 25 21  31 36 0d 14 28 0b c8 8e  |..A%=q%!16..(...|
000027a0  20 41 25 20 ca 0d 14 32  0c c9 20 30 3a f2 64 69  | A% ...2.. 0:.di|
000027b0  65 0d 14 3c 14 c9 20 26  35 30 32 3a 20 20 20 c8  |e..<.. &502:   .|
000027c0  8e 20 b9 20 ca 0d 14 46  71 20 20 20 20 20 20 20  |. . ...Fq       |
000027d0  20 20 20 20 20 20 c9 20  71 25 21 33 32 3d 2d 32  |      . q%!32=-2|
000027e0  20 80 20 71 25 21 33 36  3d 73 6d 70 69 63 6f 6e  | . q%!36=smpicon|
000027f0  25 3a 6d 65 73 24 3d 22  54 68 69 73 20 69 73 20  |%:mes$="This is |
00002800  74 68 65 20 42 6c 69 6e  64 20 4d 61 6e 27 73 20  |the Blind Man's |
00002810  42 75 66 66 20 69 63 6f  6e 2e 7c 4d 4e 61 76 69  |Buff icon.|MNavi|
00002820  67 61 74 65 20 61 20 6d  61 7a 65 20 62 79 20 74  |gate a maze by t|
00002830  6f 75 63 68 2e 22 0d 14  50 1a 20 20 20 20 20 20  |ouch."..P.      |
00002840  20 20 20 20 20 20 20 7f  3a 6d 65 73 24 3d 22 22  |       .:mes$=""|
00002850  0d 14 5a 12 20 20 20 20  20 20 20 20 20 20 20 20  |..Z.            |
00002860  20 cb 0d 14 64 14 20 20  20 20 e7 20 6d 65 73 24  | ...d.    . mes$|
00002870  3c 3e 22 22 20 8c 0d 14  6e 12 20 20 20 20 71 25  |<>"" ...n.    q%|
00002880  21 31 32 3d 71 25 21 38  0d 14 78 18 20 20 20 20  |!12=q%!8..x.    |
00002890  24 28 71 25 2b 32 30 29  3d 6d 65 73 24 2b bd 30  |$(q%+20)=mes$+.0|
000028a0  0d 14 82 1e 20 20 20 20  71 25 21 30 3d 28 32 30  |....    q%!0=(20|
000028b0  2b a9 6d 65 73 24 2b 34  29 80 20 ac 20 33 0d 14  |+.mes$+4). . 3..|
000028c0  8c 12 20 20 20 20 71 25  21 31 36 3d 26 35 30 33  |..    q%!16=&503|
000028d0  0d 14 96 28 20 20 20 20  c8 99 20 22 57 69 6d 70  |...(    .. "Wimp|
000028e0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 38  |_SendMessage",18|
000028f0  2c 71 25 2c 71 25 21 34  0d 14 a0 05 cb 0d 14 aa  |,q%,q%!4........|
00002900  05 e1 0d 14 b4 04 0d 14  be 0c dd 20 f2 5f 44 61  |........... ._Da|
00002910  63 6b 0d 14 c8 10 73 65  6e 64 74 68 25 3d 71 25  |ck....sendth%=q%|
00002920  21 34 0d 14 d2 0f 6d 79  72 65 66 25 3d 71 25 21  |!4....myref%=q%!|
00002930  38 0d 14 dc 22 c8 99 20  22 57 69 6d 70 5f 47 65  |8...".. "Wimp_Ge|
00002940  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 71  |tPointerInfo",,q|
00002950  25 2b 38 0d 14 e6 0e 71  25 21 32 38 3d 71 25 21  |%+8....q%!28=q%!|
00002960  38 0d 14 f0 0f 71 25 21  33 32 3d 71 25 21 31 32  |8....q%!32=q%!12|
00002970  0d 14 fa 18 71 25 21 30  3d 28 34 34 2b a9 6e 24  |....q%!0=(44+.n$|
00002980  2b 34 29 80 20 ac 20 33  0d 15 04 10 71 25 21 31  |+4). . 3....q%!1|
00002990  32 3d 6d 79 72 65 66 25  0d 15 0e 0b 71 25 21 31  |2=myref%....q%!1|
000029a0  36 3d 34 0d 15 18 0c 71  25 21 33 36 3d 2d 31 0d  |6=4....q%!36=-1.|
000029b0  15 22 0e 71 25 21 34 30  3d 26 46 46 39 0d 15 2c  |.".q%!40=&FF9..,|
000029c0  12 24 28 71 25 2b 34 34  29 3d 6e 24 2b bd 30 0d  |.$(q%+44)=n$+.0.|
000029d0  15 36 27 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.6'.. "Wimp_Send|
000029e0  4d 65 73 73 61 67 65 22  2c 31 37 2c 71 25 2c 73  |Message",17,q%,s|
000029f0  65 6e 64 74 68 25 0d 15  40 05 cd 0d 15 4a 05 e1  |endth%..@....J..|
00002a00  0d 15 54 04 0d 15 5e 0e  dd a4 73 67 65 74 28 78  |..T...^...sget(x|
00002a10  25 29 0d 15 68 08 ea 20  78 24 0d 15 72 1d c8 95  |%)..h.. x$..r...|
00002a20  20 3f 78 25 20 78 24 2b  3d bd 28 3f 78 25 29 3a  | ?x% x$+=.(?x%):|
00002a30  78 25 2b 3d 31 3a ce 0d  15 7c 07 3d 78 24 0d 15  |x%+=1:...|.=x$..|
00002a40  86 04 0d 15 90 0a dd a4  69 63 6f 6e 0d 15 9a 0b  |........icon....|
00002a50  71 25 21 30 3d 2d 31 0d  15 a4 0a 71 25 21 34 3d  |q%!0=-1....q%!4=|
00002a60  30 0d 15 ae 1a 71 25 21  38 3d 30 20 3a 20 f4 20  |0....q%!8=0 : . |
00002a70  59 20 44 49 52 45 43 54  49 4f 4e 0d 15 b8 1c 71  |Y DIRECTION....q|
00002a80  25 21 31 32 3d 37 30 20  3a 20 f4 20 58 20 44 49  |%!12=70 : . X DI|
00002a90  52 45 43 54 49 4f 4e 0d  15 c2 0c 71 25 21 31 36  |RECTION....q%!16|
00002aa0  3d 39 36 0d 15 cc 0f 71  25 21 32 30 3d 26 32 30  |=96....q%!20=&20|
00002ab0  30 32 0d 15 d6 1a 24 28  71 25 2b 32 34 29 3d 22  |02....$(q%+24)="|
00002ac0  21 42 6c 69 6e 64 4d 61  6e 73 63 22 0d 15 e0 24  |!BlindMansc"...$|
00002ad0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00002ae0  63 6f 6e 22 2c 2c 71 25  20 b8 20 69 63 6f 6e 25  |con",,q% . icon%|
00002af0  0d 15 ea 0a 3d 69 63 6f  6e 25 0d 15 f4 04 0d 15  |....=icon%......|
00002b00  fe 0e dd 20 f2 5f 55 70  49 63 6f 6e 0d 16 08 0c  |... ._UpIcon....|
00002b10  ea 20 74 69 63 6f 6e 25  0d 16 12 0b 71 25 21 30  |. ticon%....q%!0|
00002b20  3d 2d 33 0d 16 1c 0a 71  25 21 34 3d 30 0d 16 26  |=-3....q%!4=0..&|
00002b30  1a 71 25 21 38 3d 30 20  3a 20 f4 20 59 20 44 49  |.q%!8=0 : . Y DI|
00002b40  52 45 43 54 49 4f 4e 0d  16 30 1c 71 25 21 31 32  |RECTION..0.q%!12|
00002b50  3d 37 30 20 3a 20 f4 20  58 20 44 49 52 45 43 54  |=70 : . X DIRECT|
00002b60  49 4f 4e 0d 16 3a 0c 71  25 21 31 36 3d 39 36 0d  |ION..:.q%!16=96.|
00002b70  16 44 0f 71 25 21 32 30  3d 26 32 30 30 32 0d 16  |.D.q%!20=&2002..|
00002b80  4e 3d e7 20 53 65 65 45  6e 25 20 8c 20 24 28 71  |N=. SeeEn% . $(q|
00002b90  25 2b 32 34 29 3d 22 21  42 6c 69 6e 64 4d 61 6e  |%+24)="!BlindMan|
00002ba0  73 22 20 8b 20 24 28 71  25 2b 32 34 29 3d 22 21  |s" . $(q%+24)="!|
00002bb0  42 6c 69 6e 64 4d 61 6e  73 63 22 0d 16 58 2d c8  |BlindMansc"..X-.|
00002bc0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00002bd0  6f 6e 22 2c 73 6d 70 69  63 6f 6e 25 2c 71 25 20  |on",smpicon%,q% |
00002be0  b8 20 74 69 63 6f 6e 25  0d 16 62 0b 71 25 21 30  |. ticon%..b.q%!0|
00002bf0  3d 2d 32 0d 16 6c 11 71  25 21 34 3d 73 6d 70 69  |=-2..l.q%!4=smpi|
00002c00  63 6f 6e 25 0d 16 76 1c  c8 99 20 22 57 69 6d 70  |con%..v... "Wimp|
00002c10  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 71 25  |_DeleteIcon",,q%|
00002c20  0d 16 80 13 73 6d 70 69  63 6f 6e 25 3d 74 69 63  |....smpicon%=tic|
00002c30  6f 6e 25 0d 16 8a 05 e1  0d 16 94 04 0d 16 9e 12  |on%.............|
00002c40  dd 20 f2 5f 73 65 74 75  70 57 28 74 24 29 0d 16  |. ._setupW(t$)..|
00002c50  a8 58 21 71 25 3d 77 61  72 6e 69 6e 67 57 25 3a  |.X!q%=warningW%:|
00002c60  71 25 21 34 3d 32 30 30  3a 71 25 21 38 3d 32 30  |q%!4=200:q%!8=20|
00002c70  30 3a 71 25 21 31 32 3d  32 30 30 2b 58 51 25 3a  |0:q%!12=200+XQ%:|
00002c80  71 25 21 31 36 3d 32 30  30 2b 59 51 25 3a 71 25  |q%!16=200+YQ%:q%|
00002c90  21 32 30 3d 30 3a 71 25  21 32 34 3d 30 3a 71 25  |!20=0:q%!24=0:q%|
00002ca0  21 32 38 3d 2d 31 0d 16  b2 11 24 54 65 78 74 57  |!28=-1....$TextW|
00002cb0  61 72 6e 25 3d 74 24 0d  16 bc 15 54 65 78 74 57  |arn%=t$....TextW|
00002cc0  61 72 6e 25 3f a9 28 74  24 29 3d 30 0d 16 c6 07  |arn%?.(t$)=0....|
00002cd0  ef 20 37 0d 16 d0 0d 77  61 72 6e 4f 6e 25 3d b9  |. 7....warnOn%=.|
00002ce0  0d 16 da 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
00002cf0  6e 57 69 6e 64 6f 77 22  2c 2c 71 25 0d 16 e4 05  |nWindow",,q%....|
00002d00  e1 0d 16 ee 04 0d 16 f8  0f dd 20 f2 65 72 72 6f  |.......... .erro|
00002d10  72 62 6f 78 0d 17 02 19  c8 99 20 22 57 69 6d 70  |rbox...... "Wimp|
00002d20  5f 44 72 61 67 42 6f 78  22 2c 2c 2d 31 0d 17 0c  |_DragBox",,-1...|
00002d30  32 21 62 75 66 66 65 72  73 25 3d 9f 3a 24 28 62  |2!buffers%=.:$(b|
00002d40  75 66 66 65 72 73 25 2b  34 29 3d f6 24 2b 22 20  |uffers%+4)=.$+" |
00002d50  61 74 20 6c 69 6e 65 20  22 2b c3 9e 2b bd 30 0d  |at line "+..+.0.|
00002d60  17 16 36 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..6.. "Wimp_Repo|
00002d70  72 74 45 72 72 6f 72 22  2c 62 75 66 66 65 72 73  |rtError",buffers|
00002d80  25 2c 31 2c 22 42 6c 69  6e 64 20 4d 61 6e 73 20  |%,1,"Blind Mans |
00002d90  42 75 66 66 22 0d 17 20  08 f2 64 69 65 0d 17 2a  |Buff".. ..die..*|
00002da0  05 e1 0d 17 34 04 0d 17  3e 09 dd f2 64 69 65 0d  |....4...>...die.|
00002db0  17 48 2a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.H*.. "Wimp_Clos|
00002dc0  65 44 6f 77 6e 22 2c 74  61 73 6b 68 61 6e 64 25  |eDown",taskhand%|
00002dd0  2c 21 74 61 73 6b 69 64  25 0d 17 52 05 e0 0d 17  |,!taskid%..R....|
00002de0  5c 05 e1 0d 17 66 04 0d  17 70 14 dd 20 f2 67 65  |\....f...p.. .ge|
00002df0  74 77 28 68 61 6e 64 6c  65 25 29 0d 17 7a 38 21  |tw(handle%)..z8!|
00002e00  71 25 3d 68 61 6e 64 6c  65 25 3a c8 99 20 22 57  |q%=handle%:.. "W|
00002e10  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002e20  74 65 22 2c 2c 71 25 3a  f2 69 6e 66 6f 28 71 25  |te",,q%:.info(q%|
00002e30  2b 34 29 0d 17 84 05 e1  0d 17 8e 12 dd 20 f2 67  |+4).......... .g|
00002e40  65 74 69 28 68 25 2c 69  25 29 0d 17 98 2d 21 71  |eti(h%,i%)...-!q|
00002e50  25 3d 68 25 3a 71 25 21  34 3d 69 25 3a c8 99 20  |%=h%:q%!4=i%:.. |
00002e60  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00002e70  74 65 22 2c 2c 71 25 0d  17 a2 2e 69 78 30 25 3d  |te",,q%....ix0%=|
00002e80  71 25 21 38 3a 69 79 30  25 3d 71 25 21 31 32 3a  |q%!8:iy0%=q%!12:|
00002e90  69 78 31 25 3d 71 25 21  31 36 3a 69 79 31 25 3d  |ix1%=q%!16:iy1%=|
00002ea0  71 25 21 32 30 0d 17 ac  1e 69 66 6c 61 67 73 25  |q%!20....iflags%|
00002eb0  3d 71 25 21 32 34 3a 69  64 61 74 61 25 3d 71 25  |=q%!24:idata%=q%|
00002ec0  2b 32 38 0d 17 b6 05 e1  0d 17 c0 04 0d 17 ca 0f  |+28.............|
00002ed0  dd 20 f2 69 6e 66 6f 28  70 25 29 0d 17 d4 0d ea  |. .info(p%).....|
00002ee0  20 78 30 25 2c 79 30 25  0d 17 de 27 78 30 25 3d  | x0%,y0%...'x0%=|
00002ef0  21 70 25 3a 79 30 25 3d  70 25 21 34 3a 78 31 25  |!p%:y0%=p%!4:x1%|
00002f00  3d 70 25 21 38 3a 79 31  25 3d 70 25 21 31 32 0d  |=p%!8:y1%=p%!12.|
00002f10  17 e8 35 73 63 78 25 3d  70 25 21 31 36 3a 73 63  |..5scx%=p%!16:sc|
00002f20  79 25 3d 70 25 21 32 30  3a 62 68 61 6e 64 6c 65  |y%=p%!20:bhandle|
00002f30  25 3d 70 25 21 32 34 3a  66 6c 61 67 73 25 3d 70  |%=p%!24:flags%=p|
00002f40  25 21 32 38 0d 17 f2 1d  62 78 25 3d 78 30 25 2d  |%!28....bx%=x0%-|
00002f50  73 63 78 25 3a 62 79 25  3d 79 31 25 2d 73 63 79  |scx%:by%=y1%-scy|
00002f60  25 0d 17 fc 05 e1 0d 18  06 04 0d 18 10 10 dd 20  |%.............. |
00002f70  f2 5f 4b 65 79 50 72 65  73 73 0d 18 1a 0d c8 8e  |._KeyPress......|
00002f80  20 71 25 21 30 20 ca 0d  18 24 20 7f 3a 20 c8 99  | q%!0 ...$ .: ..|
00002f90  22 57 69 6d 70 5f 50 72  6f 63 65 73 73 4b 65 79  |"Wimp_ProcessKey|
00002fa0  22 2c 71 25 21 32 34 0d  18 2e 05 cb 0d 18 38 05  |",q%!24.......8.|
00002fb0  e1 0d 18 42 04 0d 18 4c  0c dd 20 f2 5f 49 6e 69  |...B...L.. ._Ini|
00002fc0  74 0d 18 56 08 ea 20 41  25 0d 18 60 0e e3 20 41  |t..V.. A%..`.. A|
00002fd0  25 3d 30 20 b8 20 35 0d  18 6a 10 f3 20 47 6e 61  |%=0 . 5..j.. Gna|
00002fe0  6d 65 24 28 41 25 29 0d  18 74 05 ed 0d 18 7e 94  |me$(A%)..t....~.|
00002ff0  dc 20 47 61 6d 65 20 31  20 46 69 6e 64 20 79 6f  |. Game 1 Find yo|
00003000  75 72 20 6d 61 6e 2c 47  61 6d 65 20 32 20 46 69  |ur man,Game 2 Fi|
00003010  6e 64 20 58 20 53 74 61  72 74 20 62 6f 74 74 6f  |nd X Start botto|
00003020  6d 20 6c 65 66 74 2c 47  61 6d 65 20 33 20 46 69  |m left,Game 3 Fi|
00003030  6e 64 20 58 2c 47 61 6d  65 20 34 20 46 69 6e 64  |nd X,Game 4 Find|
00003040  20 61 6c 6c 20 58 73 2c  47 61 6d 65 20 35 20 46  | all Xs,Game 5 F|
00003050  69 6e 64 20 58 73 20 2d  20 43 6c 69 63 6b 20 74  |ind Xs - Click t|
00003060  6f 20 70 6f 73 69 74 69  6f 6e 2c 47 61 6d 65 20  |o position,Game |
00003070  36 20 46 69 6e 64 20 68  69 64 64 65 6e 20 58 73  |6 Find hidden Xs|
00003080  0d 18 88 05 e1 0d 18 92  04 0d 18 9c 0f dd 20 f2  |.............. .|
00003090  5f 74 61 62 49 6e 69 74  0d 18 a6 17 ea 20 41 25  |_tabInit..... A%|
000030a0  2c 42 25 2c 47 25 2c 43  25 2c 44 25 2c 46 25 0d  |,B%,G%,C%,D%,F%.|
000030b0  18 b0 12 f2 5f 54 72 61  6e 73 28 6d 6f 6e 57 25  |...._Trans(monW%|
000030c0  29 0d 18 ba 0d 52 6f 6f  6d 25 28 29 3d 30 0d 18  |)....Room%()=0..|
000030d0  c4 0c 47 25 3d 47 72 69  64 25 0d 18 ce 0b 41 25  |..G%=Grid%....A%|
000030e0  3d 47 25 2d 31 0d 18 d8  0c 42 25 3d b3 28 41 25  |=G%-1....B%=.(A%|
000030f0  29 0d 18 e2 0a 20 20 44  25 3d 32 0d 18 ec 13 20  |)....  D%=2.... |
00003100  20 f2 6d 65 28 44 25 2c  41 25 2c 42 25 29 0d 18  | .me(D%,A%,B%)..|
00003110  f6 21 52 6f 6f 6d 25 28  41 25 2c 42 25 29 3d 52  |.!Room%(A%,B%)=R|
00003120  6f 6f 6d 25 28 41 25 2c  42 25 29 20 84 20 31 0d  |oom%(A%,B%) . 1.|
00003130  19 00 12 41 25 3d 31 3a  43 25 3d 30 3a 44 25 3d  |...A%=1:C%=0:D%=|
00003140  31 0d 19 0a 2f f5 3a 42  25 3d b3 28 47 25 2d 31  |1.../.:B%=.(G%-1|
00003150  29 3a 43 25 2b 3d 31 3a  fd 20 52 6f 6f 6d 25 28  |):C%+=1:. Room%(|
00003160  41 25 2c 42 25 29 3d 30  20 84 20 43 25 3e 31 30  |A%,B%)=0 . C%>10|
00003170  0d 19 14 39 e7 20 43 25  3c 31 30 20 8c 20 f2 6d  |...9. C%<10 . .m|
00003180  65 28 44 25 2c 41 25 2c  42 25 29 3a 52 6f 6f 6d  |e(D%,A%,B%):Room|
00003190  25 28 41 25 2c 42 25 29  3d 52 6f 6f 6d 25 28 41  |%(A%,B%)=Room%(A|
000031a0  25 2c 42 25 29 20 84 20  32 0d 19 1e 04 0d 19 28  |%,B%) . 2......(|
000031b0  15 42 25 3d 47 25 2d 31  3a 44 25 3d 34 3a 43 25  |.B%=G%-1:D%=4:C%|
000031c0  3d 30 0d 19 32 2f f5 3a  41 25 3d b3 28 47 25 2d  |=0..2/.:A%=.(G%-|
000031d0  31 29 3a 43 25 2b 3d 31  3a fd 20 52 6f 6f 6d 25  |1):C%+=1:. Room%|
000031e0  28 41 25 2c 42 25 29 3d  30 20 84 20 43 25 3e 31  |(A%,B%)=0 . C%>1|
000031f0  30 0d 19 3c 39 e7 20 43  25 3c 31 30 20 8c 20 f2  |0..<9. C%<10 . .|
00003200  6d 65 28 44 25 2c 41 25  2c 42 25 29 3a 52 6f 6f  |me(D%,A%,B%):Roo|
00003210  6d 25 28 41 25 2c 42 25  29 3d 52 6f 6f 6d 25 28  |m%(A%,B%)=Room%(|
00003220  41 25 2c 42 25 29 20 84  20 38 0d 19 46 04 0d 19  |A%,B%) . 8..F...|
00003230  50 12 42 25 3d 31 3a 44  25 3d 38 3a 43 25 3d 30  |P.B%=1:D%=8:C%=0|
00003240  0d 19 5a 2f f5 3a 41 25  3d b3 28 47 25 2d 31 29  |..Z/.:A%=.(G%-1)|
00003250  3a 43 25 2b 3d 31 3a fd  20 52 6f 6f 6d 25 28 41  |:C%+=1:. Room%(A|
00003260  25 2c 42 25 29 3d 30 20  84 20 43 25 3e 31 30 0d  |%,B%)=0 . C%>10.|
00003270  19 64 39 e7 20 43 25 3c  31 30 20 8c 20 f2 6d 65  |.d9. C%<10 . .me|
00003280  28 44 25 2c 41 25 2c 42  25 29 3a 52 6f 6f 6d 25  |(D%,A%,B%):Room%|
00003290  28 41 25 2c 42 25 29 3d  52 6f 6f 6d 25 28 41 25  |(A%,B%)=Room%(A%|
000032a0  2c 42 25 29 20 84 20 34  0d 19 6e 04 0d 19 78 08  |,B%) . 4..n...x.|
000032b0  46 25 3d 30 0d 19 82 61  e7 20 47 61 6d 65 4e 6f  |F%=0...a. GameNo|
000032c0  25 3d 35 20 8c 20 47 6e  61 6d 65 24 28 35 29 3d  |%=5 . Gname$(5)=|
000032d0  22 47 61 6d 65 20 36 20  46 69 6e 64 20 68 69 64  |"Game 6 Find hid|
000032e0  64 65 6e 20 58 73 20 20  20 20 20 20 20 22 3a c8  |den Xs       ":.|
000032f0  99 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  |."Wimp_ForceRedr|
00003300  61 77 22 2c 6d 6f 6e 57  25 2c 30 2c 2d 34 30 2c  |aw",monW%,0,-40,|
00003310  36 30 30 2c 30 0d 19 8c  05 f5 0d 19 96 0c 41 25  |600,0.........A%|
00003320  3d b3 28 47 25 29 0d 19  a0 0c 42 25 3d b3 28 47  |=.(G%)....B%=.(G|
00003330  25 29 0d 19 aa 14 20 20  44 25 3d 31 3c 3c 28 b3  |%)....  D%=1<<(.|
00003340  28 34 29 2d 31 29 0d 19  b4 13 20 20 f2 6d 65 28  |(4)-1)....  .me(|
00003350  44 25 2c 41 25 2c 42 25  29 0d 19 be 0c fd 20 46  |D%,A%,B%)..... F|
00003360  25 3e 31 35 30 0d 19 c8  04 0d 19 d2 1d f4 20 50  |%>150......... P|
00003370  75 74 20 69 6e 20 62 61  63 6b 77 61 72 64 73 20  |ut in backwards |
00003380  70 6f 69 6e 74 73 0d 19  dc 0f e3 20 41 25 3d 31  |points..... A%=1|
00003390  20 b8 20 47 25 0d 19 e6  0f e3 20 42 25 3d 31 20  | . G%..... B%=1 |
000033a0  b8 20 47 25 0d 19 f0 13  43 25 3d 52 6f 6f 6d 25  |. G%....C%=Room%|
000033b0  28 41 25 2c 42 25 29 0d  19 fa 35 e7 20 28 43 25  |(A%,B%)...5. (C%|
000033c0  20 80 20 31 29 3c 3e 30  20 8c 20 52 6f 6f 6d 25  | . 1)<>0 . Room%|
000033d0  28 41 25 2b 31 2c 42 25  29 3d 52 6f 6f 6d 25 28  |(A%+1,B%)=Room%(|
000033e0  41 25 2b 31 2c 42 25 29  20 84 20 32 0d 1a 04 35  |A%+1,B%) . 2...5|
000033f0  e7 20 28 43 25 20 80 20  32 29 3c 3e 30 20 8c 20  |. (C% . 2)<>0 . |
00003400  52 6f 6f 6d 25 28 41 25  2d 31 2c 42 25 29 3d 52  |Room%(A%-1,B%)=R|
00003410  6f 6f 6d 25 28 41 25 2d  31 2c 42 25 29 20 84 20  |oom%(A%-1,B%) . |
00003420  31 0d 1a 0e 35 e7 20 28  43 25 20 80 20 34 29 3c  |1...5. (C% . 4)<|
00003430  3e 30 20 8c 20 52 6f 6f  6d 25 28 41 25 2c 42 25  |>0 . Room%(A%,B%|
00003440  2d 31 29 3d 52 6f 6f 6d  25 28 41 25 2c 42 25 2d  |-1)=Room%(A%,B%-|
00003450  31 29 20 84 20 38 0d 1a  18 35 e7 20 28 43 25 20  |1) . 8...5. (C% |
00003460  80 20 38 29 3c 3e 30 20  8c 20 52 6f 6f 6d 25 28  |. 8)<>0 . Room%(|
00003470  41 25 2c 42 25 2b 31 29  3d 52 6f 6f 6d 25 28 41  |A%,B%+1)=Room%(A|
00003480  25 2c 42 25 2b 31 29 20  84 20 34 0d 1a 22 07 ed  |%,B%+1) . 4.."..|
00003490  3a ed 0d 1a 2c 04 0d 1a  36 0d 41 25 3d 35 34 34  |:...,...6.A%=544|
000034a0  2f 47 25 0d 1a 40 19 44  25 3d b3 28 47 25 2d 31  |/G%..@.D%=.(G%-1|
000034b0  29 3a 46 25 3d b3 28 47  25 2d 31 29 0d 1a 4a 33  |):F%=.(G%-1)..J3|
000034c0  4d 61 6e 25 28 30 29 3d  31 30 2b 28 41 25 2f 32  |Man%(0)=10+(A%/2|
000034d0  29 2b 41 25 2a 44 25 3a  4d 61 6e 25 28 31 29 3d  |)+A%*D%:Man%(1)=|
000034e0  28 32 34 2b 41 25 2f 32  29 2b 41 25 2a 46 25 0d  |(24+A%/2)+A%*F%.|
000034f0  1a 54 35 e7 20 47 61 6d  65 4e 6f 25 3d 31 20 8c  |.T5. GameNo%=1 .|
00003500  20 4d 61 6e 25 28 30 29  3d 31 30 2b 28 41 25 2f  | Man%(0)=10+(A%/|
00003510  32 29 3a 4d 61 6e 25 28  31 29 3d 28 32 34 2b 41  |2):Man%(1)=(24+A|
00003520  25 2f 32 29 0d 1a 5e 23  4d 61 6e 25 28 32 29 3d  |%/2)..^#Man%(2)=|
00003530  4d 61 6e 25 28 30 29 3a  4d 61 6e 25 28 33 29 3d  |Man%(0):Man%(3)=|
00003540  4d 61 6e 25 28 31 29 0d  1a 68 04 0d 1a 72 0f 50  |Man%(1)..h...r.P|
00003550  6f 73 58 25 28 29 3d 26  46 46 0d 1a 7c 29 e7 20  |osX%()=&FF..|). |
00003560  47 61 6d 65 4e 6f 25 3e  32 20 8c 20 4e 6f 58 73  |GameNo%>2 . NoXs|
00003570  25 3d b3 28 47 25 29 2b  31 20 8b 20 4e 6f 58 73  |%=.(G%)+1 . NoXs|
00003580  25 3d 31 0d 1a 86 12 e7  20 47 61 6d 65 4e 6f 25  |%=1..... GameNo%|
00003590  3c 3e 30 20 8c 0d 1a 90  14 e3 20 41 25 3d 30 20  |<>0 ...... A%=0 |
000035a0  b8 20 4e 6f 58 73 25 2d  31 0d 1a 9a 05 f5 0d 1a  |. NoXs%-1.......|
000035b0  a4 17 50 6f 73 58 25 28  30 2c 41 25 29 3d b3 28  |..PosX%(0,A%)=.(|
000035c0  47 25 2d 31 29 0d 1a ae  17 50 6f 73 58 25 28 31  |G%-1)....PosX%(1|
000035d0  2c 41 25 29 3d b3 28 47  25 2d 31 29 0d 1a b8 28  |,A%)=.(G%-1)...(|
000035e0  fd 20 ac 28 50 6f 73 58  25 28 30 2c 41 25 29 3d  |. .(PosX%(0,A%)=|
000035f0  44 25 20 80 20 50 6f 73  58 25 28 31 2c 41 25 29  |D% . PosX%(1,A%)|
00003600  3d 46 25 29 0d 1a c2 05  ed 0d 1a cc 05 cc 0d 1a  |=F%)............|
00003610  d6 0b 4e 6f 58 73 25 3d  30 0d 1a e0 05 cd 0d 1a  |..NoXs%=0.......|
00003620  ea 05 e1 0d 1a f4 04 0d  1a fe 13 dd 20 f2 6d 65  |............ .me|
00003630  28 44 25 2c 41 25 2c 42  25 29 0d 1b 08 10 ea 20  |(D%,A%,B%)..... |
00003640  43 25 2c 41 6e 25 2c 42  6e 25 0d 1b 12 08 43 25  |C%,An%,Bn%....C%|
00003650  3d 30 0d 1b 1c 06 20 f5  0d 1b 26 11 20 20 41 6e  |=0.... ...&.  An|
00003660  25 3d 30 3a 42 6e 25 3d  30 0d 1b 30 0d 20 20 c8  |%=0:Bn%=0..0.  .|
00003670  8e 20 44 25 20 ca 0d 1b  3a 0f 20 20 c9 20 31 3a  |. D% ...:.  . 1:|
00003680  41 6e 25 3d 31 0d 1b 44  10 20 20 c9 20 32 3a 41  |An%=1..D.  . 2:A|
00003690  6e 25 3d 2d 31 0d 1b 4e  10 20 20 c9 20 34 3a 42  |n%=-1..N.  . 4:B|
000036a0  6e 25 3d 2d 31 0d 1b 58  0f 20 20 c9 20 38 3a 42  |n%=-1..X.  . 8:B|
000036b0  6e 25 3d 31 0d 1b 62 07  20 20 cb 0d 1b 6c 15 20  |n%=1..b.  ...l. |
000036c0  20 41 6e 25 2b 3d 41 25  3a 42 6e 25 2b 3d 42 25  | An%+=A%:Bn%+=B%|
000036d0  0d 1b 76 18 20 e7 20 41  6e 25 3e 3d 30 20 80 20  |..v. . An%>=0 . |
000036e0  42 6e 25 3e 3d 30 20 8c  0d 1b 80 3c 20 20 e7 20  |Bn%>=0 ....<  . |
000036f0  52 6f 6f 6d 25 28 41 6e  25 2c 42 6e 25 29 3d 30  |Room%(An%,Bn%)=0|
00003700  20 80 20 41 6e 25 3e 30  20 80 20 42 6e 25 3e 30  | . An%>0 . Bn%>0|
00003710  20 80 20 42 6e 25 3c 47  25 20 80 20 41 6e 25 3c  | . Bn%<G% . An%<|
00003720  47 25 20 8c 0d 1b 8a 24  20 20 52 6f 6f 6d 25 28  |G% ....$  Room%(|
00003730  41 25 2c 42 25 29 3d 52  6f 6f 6d 25 28 41 25 2c  |A%,B%)=Room%(A%,|
00003740  42 25 29 20 84 20 44 25  0d 1b 94 13 20 20 41 25  |B%) . D%....  A%|
00003750  3d 41 6e 25 3a 42 25 3d  42 6e 25 0d 1b 9e 25 20  |=An%:B%=Bn%...% |
00003760  20 52 6f 6f 6d 25 28 41  25 2c 42 25 29 3d 52 6f  | Room%(A%,B%)=Ro|
00003770  6f 6d 25 28 41 25 2c 42  25 29 20 84 20 26 31 30  |om%(A%,B%) . &10|
00003780  0d 1b a8 07 20 20 cc 0d  1b b2 0b 20 20 43 25 2b  |....  .....  C%+|
00003790  3d 31 0d 1b bc 0b 20 20  46 25 2b 3d 31 0d 1b c6  |=1....  F%+=1...|
000037a0  07 20 20 cd 0d 1b d0 06  20 cd 0d 1b da 0b 20 20  |.  ..... .....  |
000037b0  43 25 2b 3d 31 0d 1b e4  14 20 20 44 25 3d 31 3c  |C%+=1....  D%=1<|
000037c0  3c 28 b3 28 34 29 2d 31  29 0d 1b ee 0b fd 20 43  |<(.(4)-1)..... C|
000037d0  25 3e 32 30 0d 1b f8 05  e1 0d 1c 02 04 0d 1c 0c  |%>20............|
000037e0  14 dd 20 f2 5f 54 6f 75  63 68 28 58 25 2c 59 25  |.. ._Touch(X%,Y%|
000037f0  29 0d 1c 16 22 ea 20 41  25 2c 42 25 2c 43 25 2c  |)...". A%,B%,C%,|
00003800  44 25 2c 45 25 2c 46 25  2c 47 25 2c 57 31 25 2c  |D%,E%,F%,G%,W1%,|
00003810  57 32 25 0d 1c 20 0a 43  6f 6c 25 3d 30 0d 1c 2a  |W2%.. .Col%=0..*|
00003820  13 e7 20 58 25 3c 30 20  8c 20 43 6f 6c 25 3d 31  |.. X%<0 . Col%=1|
00003830  0d 1c 34 15 e7 20 58 25  3e 35 31 36 20 8c 20 43  |..4.. X%>516 . C|
00003840  6f 6c 25 3d 32 0d 1c 3e  1c e7 20 59 25 3e 35 31  |ol%=2..>.. Y%>51|
00003850  36 20 8c 20 43 6f 6c 25  3d 43 6f 6c 25 20 84 20  |6 . Col%=Col% . |
00003860  38 0d 1c 48 1a e7 20 59  25 3c 30 20 8c 20 43 6f  |8..H.. Y%<0 . Co|
00003870  6c 25 3d 43 6f 6c 25 20  84 20 34 0d 1c 52 0e e7  |l%=Col% . 4..R..|
00003880  20 43 6f 6c 25 3d 30 20  8c 0d 1c 5c 11 58 25 2b  | Col%=0 ...\.X%+|
00003890  3d 31 32 3a 59 25 2b 3d  31 32 0d 1c 66 10 44 25  |=12:Y%+=12..f.D%|
000038a0  3d 35 34 34 2f 47 72 69  64 25 0d 1c 70 0e 41 25  |=544/Grid%..p.A%|
000038b0  3d 58 25 20 83 20 44 25  0d 1c 7a 10 42 25 3d 28  |=X% . D%..z.B%=(|
000038c0  58 25 20 81 20 44 25 29  0d 1c 84 10 45 25 3d 28  |X% . D%)....E%=(|
000038d0  59 25 20 81 20 44 25 29  0d 1c 8e 0d e7 20 41 25  |Y% . D%)..... A%|
000038e0  3c 31 32 20 8c 0d 1c 98  1a 57 31 25 3d 52 6f 6f  |<12 .....W1%=Roo|
000038f0  6d 25 28 45 25 2b 31 2c  42 25 29 20 80 20 32 0d  |m%(E%+1,B%) . 2.|
00003900  1c a2 18 57 32 25 3d 52  6f 6f 6d 25 28 45 25 2c  |...W2%=Room%(E%,|
00003910  42 25 29 20 80 20 31 0d  1c ac 27 e7 20 28 57 31  |B%) . 1...'. (W1|
00003920  25 3c 3e 30 20 84 20 57  32 25 3c 3e 30 29 20 8c  |%<>0 . W2%<>0) .|
00003930  20 43 6f 6c 25 3d 43 6f  6c 25 20 84 20 31 0d 1c  | Col%=Col% . 1..|
00003940  b6 05 cd 0d 1c c0 12 e7  20 28 44 25 2d 41 25 29  |........ (D%-A%)|
00003950  3c 31 32 20 8c 0d 1c ca  1c 57 31 25 3d 52 6f 6f  |<12 .....W1%=Roo|
00003960  6d 25 28 45 25 2b 31 2c  42 25 2b 31 29 20 80 20  |m%(E%+1,B%+1) . |
00003970  32 0d 1c d4 1a 57 32 25  3d 52 6f 6f 6d 25 28 45  |2....W2%=Room%(E|
00003980  25 2c 42 25 2b 31 29 20  80 20 31 0d 1c de 25 e7  |%,B%+1) . 1...%.|
00003990  20 57 31 25 3c 3e 30 20  84 20 57 32 25 3c 3e 30  | W1%<>0 . W2%<>0|
000039a0  20 8c 20 43 6f 6c 25 3d  43 6f 6c 25 20 84 20 32  | . Col%=Col% . 2|
000039b0  0d 1c e8 05 cd 0d 1c f2  04 0d 1c fc 0e 47 25 3d  |.............G%=|
000039c0  59 25 20 83 20 44 25 0d  1d 06 0d e7 20 47 25 3c  |Y% . D%..... G%<|
000039d0  31 32 20 8c 0d 1d 10 1a  57 31 25 3d 52 6f 6f 6d  |12 .....W1%=Room|
000039e0  25 28 45 25 2c 42 25 2b  31 29 20 80 20 34 0d 1d  |%(E%,B%+1) . 4..|
000039f0  1a 18 57 32 25 3d 52 6f  6f 6d 25 28 45 25 2c 42  |..W2%=Room%(E%,B|
00003a00  25 29 20 80 20 38 0d 1d  24 25 e7 20 57 31 25 3c  |%) . 8..$%. W1%<|
00003a10  3e 30 20 84 20 57 32 25  3c 3e 30 20 8c 20 43 6f  |>0 . W2%<>0 . Co|
00003a20  6c 25 3d 43 6f 6c 25 20  84 20 34 0d 1d 2e 05 cd  |l%=Col% . 4.....|
00003a30  0d 1d 38 12 e7 20 28 44  25 2d 47 25 29 3c 31 32  |..8.. (D%-G%)<12|
00003a40  20 8c 0d 1d 42 1c 57 31  25 3d 52 6f 6f 6d 25 28  | ...B.W1%=Room%(|
00003a50  45 25 2b 31 2c 42 25 2b  31 29 20 80 20 34 0d 1d  |E%+1,B%+1) . 4..|
00003a60  4c 1a 57 32 25 3d 52 6f  6f 6d 25 28 45 25 2b 31  |L.W2%=Room%(E%+1|
00003a70  2c 42 25 29 20 80 20 38  0d 1d 56 25 e7 20 57 31  |,B%) . 8..V%. W1|
00003a80  25 3c 3e 30 20 84 20 57  32 25 3c 3e 30 20 8c 20  |%<>0 . W2%<>0 . |
00003a90  43 6f 6c 25 3d 43 6f 6c  25 20 84 20 38 0d 1d 60  |Col%=Col% . 8..`|
00003aa0  05 cd 0d 1d 6a 04 0d 1d  74 0e e7 20 43 6f 6c 25  |....j...t.. Col%|
00003ab0  3d 30 20 8c 0d 1d 7e 09  57 31 25 3d 30 0d 1d 88  |=0 ...~.W1%=0...|
00003ac0  2d e7 20 41 25 3c 31 32  20 80 20 47 25 3c 31 32  |-. A%<12 . G%<12|
00003ad0  20 80 20 52 6f 6f 6d 25  28 45 25 2c 42 25 29 3c  | . Room%(E%,B%)<|
00003ae0  3e 30 20 8c 20 57 31 25  3d 31 0d 1d 92 34 e7 20  |>0 . W1%=1...4. |
00003af0  28 44 25 2d 47 25 29 3c  31 32 20 80 20 41 25 3c  |(D%-G%)<12 . A%<|
00003b00  31 32 20 80 20 52 6f 6f  6d 25 28 45 25 2b 31 2c  |12 . Room%(E%+1,|
00003b10  42 25 29 3c 3e 30 20 8c  20 57 31 25 3d 31 0d 1d  |B%)<>0 . W1%=1..|
00003b20  9c 34 e7 20 28 44 25 2d  41 25 29 3c 31 32 20 80  |.4. (D%-A%)<12 .|
00003b30  20 47 25 3c 31 32 20 80  20 52 6f 6f 6d 25 28 45  | G%<12 . Room%(E|
00003b40  25 2c 42 25 2b 31 29 3c  3e 30 20 8c 20 57 31 25  |%,B%+1)<>0 . W1%|
00003b50  3d 31 0d 1d a6 3b e7 20  28 44 25 2d 41 25 29 3c  |=1...;. (D%-A%)<|
00003b60  31 32 20 80 20 28 44 25  2d 47 25 29 3c 31 32 20  |12 . (D%-G%)<12 |
00003b70  80 20 52 6f 6f 6d 25 28  45 25 2b 31 2c 42 25 2b  |. Room%(E%+1,B%+|
00003b80  31 29 3c 3e 30 20 8c 20  57 31 25 3d 31 0d 1d b0  |1)<>0 . W1%=1...|
00003b90  1a e7 20 57 31 25 3d 31  20 8c 20 43 6f 6c 25 3d  |.. W1%=1 . Col%=|
00003ba0  6b 70 72 65 73 73 25 0d  1d ba 05 cd 0d 1d c4 04  |kpress%.........|
00003bb0  0d 1d ce 0f 20 e7 20 43  6f 6c 25 3d 30 20 8c 0d  |.... . Col%=0 ..|
00003bc0  1d d8 12 20 41 25 3d 4e  6f 58 73 25 3a 44 25 3d  |... A%=NoXs%:D%=|
00003bd0  30 0d 1d e2 0c 20 c8 95  20 41 25 3e 30 0d 1d ec  |0.... .. A%>0...|
00003be0  33 20 e7 20 50 6f 73 58  25 28 30 2c 44 25 29 3d  |3 . PosX%(0,D%)=|
00003bf0  42 25 20 80 20 50 6f 73  58 25 28 31 2c 44 25 29  |B% . PosX%(1,D%)|
00003c00  3d 45 25 20 8c 20 f2 77  69 70 65 58 28 44 25 29  |=E% . .wipeX(D%)|
00003c10  0d 1d f6 10 20 41 25 2d  3d 31 3a 44 25 2b 3d 31  |.... A%-=1:D%+=1|
00003c20  0d 1e 00 06 20 ce 0d 1e  0a 06 20 cd 0d 1e 14 04  |.... ..... .....|
00003c30  0d 1e 1e 05 cd 0d 1e 28  27 e7 20 43 6f 6c 25 3c  |.......('. Col%<|
00003c40  3e 30 20 80 20 28 54 6f  75 63 68 45 6e 25 20 84  |>0 . (TouchEn% .|
00003c50  20 53 6f 75 6e 64 45 6e  25 29 20 8c 0d 1e 32 10  | SoundEn%) ...2.|
00003c60  e7 20 53 6f 75 6e 64 45  6e 25 20 8c 0d 1e 3c 22  |. SoundEn% ...<"|
00003c70  e7 20 28 43 6f 6c 25 20  80 20 31 29 3c 3e 30 20  |. (Col% . 1)<>0 |
00003c80  8c 20 d4 20 31 2c 2d 31  33 2c 31 30 2c 34 0d 1e  |. . 1,-13,10,4..|
00003c90  46 22 e7 20 28 43 6f 6c  25 20 80 20 32 29 3c 3e  |F". (Col% . 2)<>|
00003ca0  30 20 8c 20 d4 20 31 2c  2d 31 33 2c 36 30 2c 34  |0 . . 1,-13,60,4|
00003cb0  0d 1e 50 22 e7 20 28 43  6f 6c 25 20 80 20 34 29  |..P". (Col% . 4)|
00003cc0  3c 3e 30 20 8c 20 d4 20  34 2c 2d 31 33 2c 31 30  |<>0 . . 4,-13,10|
00003cd0  2c 34 0d 1e 5a 22 e7 20  28 43 6f 6c 25 20 80 20  |,4..Z". (Col% . |
00003ce0  38 29 3c 3e 30 20 8c 20  d4 20 34 2c 2d 31 33 2c  |8)<>0 . . 4,-13,|
00003cf0  35 30 2c 34 0d 1e 64 05  cd 0d 1e 6e 11 e7 20 54  |50,4..d....n.. T|
00003d00  6f 75 63 68 45 6e 25 20  8c 20 0d 1e 78 0b 41 25  |ouchEn% . ..x.A%|
00003d10  3d 91 2b 33 30 0d 1e 82  0c f5 20 fd 20 91 3e 41  |=.+30..... . .>A|
00003d20  25 0d 1e 8c 24 e7 20 54  6f 75 63 68 45 6e 25 20  |%...$. TouchEn% |
00003d30  8c 20 c8 99 22 50 61 72  61 6c 6c 65 6c 5f 4f 70  |. .."Parallel_Op|
00003d40  22 2c 31 2c 30 0d 1e 96  05 cd 0d 1e a0 05 e1 0d  |",1,0...........|
00003d50  1e aa 04 0d 1e b4 10 dd  20 f2 77 69 70 65 58 28  |........ .wipeX(|
00003d60  41 25 29 0d 1e be 0b ea  20 42 25 2c 43 25 0d 1e  |A%)..... B%,C%..|
00003d70  c8 25 f2 76 69 63 28 50  6f 73 58 25 28 30 2c 41  |.%.vic(PosX%(0,A|
00003d80  25 29 2b 31 2c 50 6f 73  58 25 28 31 2c 41 25 29  |%)+1,PosX%(1,A%)|
00003d90  2b 31 29 0d 1e d2 23 50  6f 73 58 25 28 30 2c 41  |+1)...#PosX%(0,A|
00003da0  25 29 3d 26 46 46 3a 50  6f 73 58 25 28 31 2c 41  |%)=&FF:PosX%(1,A|
00003db0  25 29 3d 26 46 46 0d 1e  dc 11 e7 20 47 61 6d 65  |%)=&FF..... Game|
00003dc0  4e 6f 25 3d 35 20 8c 0d  1e e6 08 43 25 3d 30 0d  |No%=5 .....C%=0.|
00003dd0  1e f0 0f e3 20 42 25 3d  30 20 b8 20 31 30 0d 1e  |.... B%=0 . 10..|
00003de0  fa 1d e7 20 50 6f 73 58  25 28 30 2c 42 25 29 3c  |... PosX%(0,B%)<|
00003df0  26 46 46 20 8c 20 43 25  2b 3d 31 0d 1f 04 05 ed  |&FF . C%+=1.....|
00003e00  0d 1f 0e 34 47 6e 61 6d  65 24 28 35 29 3d 22 47  |...4Gname$(5)="G|
00003e10  61 6d 65 20 36 20 46 69  6e 64 20 68 69 64 64 65  |ame 6 Find hidde|
00003e20  6e 20 58 73 20 22 2b c3  28 43 25 29 2b 22 20 6c  |n Xs "+.(C%)+" l|
00003e30  65 66 74 22 0d 1f 18 2a  c8 99 22 57 69 6d 70 5f  |eft"...*.."Wimp_|
00003e40  46 6f 72 63 65 52 65 64  72 61 77 22 2c 6d 6f 6e  |ForceRedraw",mon|
00003e50  57 25 2c 30 2c 2d 34 30  2c 36 30 30 2c 30 0d 1f  |W%,0,-40,600,0..|
00003e60  22 05 cd 0d 1f 2c 05 e1  0d 1f 36 04 0d 1f 40 13  |"....,....6...@.|
00003e70  dd 20 f2 5f 43 65 6c 6c  28 58 25 2c 59 25 29 0d  |. ._Cell(X%,Y%).|
00003e80  1f 4a 16 ea 20 41 25 2c  42 25 2c 44 25 2c 4d 78  |.J.. A%,B%,D%,Mx|
00003e90  25 2c 4d 79 25 0d 1f 54  11 58 25 2d 3d 32 30 3a  |%,My%..T.X%-=20:|
00003ea0  59 25 2d 3d 33 34 0d 1f  5e 10 44 25 3d 35 34 34  |Y%-=34..^.D%=544|
00003eb0  2f 47 72 69 64 25 0d 1f  68 12 41 25 3d 28 58 25  |/Grid%..h.A%=(X%|
00003ec0  20 81 20 44 25 29 2b 31  0d 1f 72 12 42 25 3d 28  | . D%)+1..r.B%=(|
00003ed0  59 25 20 81 20 44 25 29  2b 31 0d 1f 7c 1d 4d 78  |Y% . D%)+1..|.Mx|
00003ee0  25 3d 28 28 4d 61 6e 25  28 30 29 2d 32 30 29 20  |%=((Man%(0)-20) |
00003ef0  81 20 44 25 29 2b 31 0d  1f 86 1d 4d 79 25 3d 28  |. D%)+1....My%=(|
00003f00  28 4d 61 6e 25 28 31 29  2d 33 34 29 20 81 20 44  |(Man%(1)-34) . D|
00003f10  25 29 2b 31 0d 1f 90 23  e7 20 4d 78 25 3d 41 25  |%)+1...#. Mx%=A%|
00003f20  20 80 20 4d 79 25 3d 42  25 20 8c 20 f2 76 69 63  | . My%=B% . .vic|
00003f30  28 41 25 2c 42 25 29 0d  1f 9a 05 e1 0d 1f a4 04  |(A%,B%).........|
00003f40  0d 1f ae 12 dd 20 f2 76  69 63 64 28 41 25 2c 42  |..... .vicd(A%,B|
00003f50  25 29 0d 1f b8 0b ea 20  54 25 2c 56 25 0d 1f c2  |%)..... T%,V%...|
00003f60  0f 41 25 2d 3d 31 3a 42  25 2d 3d 31 0d 1f cc 17  |.A%-=1:B%-=1....|
00003f70  58 25 3d 78 6f 25 2b 33  36 3a 59 25 3d 79 6f 25  |X%=xo%+36:Y%=yo%|
00003f80  2b 35 30 0d 1f d6 11 4d  7a 25 3d 35 34 34 2f 47  |+50....Mz%=544/G|
00003f90  72 69 64 25 0d 1f e0 0f  e3 20 56 25 3d 31 20 b8  |rid%..... V%=1 .|
00003fa0  20 31 30 0d 1f ea 4d e7  20 28 56 25 20 80 20 31  | 10...M. (V% . 1|
00003fb0  29 20 3d 30 20 8c 20 c8  99 22 57 69 6d 70 5f 53  |) =0 . .."Wimp_S|
00003fc0  65 74 43 6f 6c 6f 75 72  22 2c 37 20 3a d4 33 2c  |etColour",7 :.3,|
00003fd0  2d 31 31 2c 35 30 2c 32  20 8b 20 c8 99 22 57 69  |-11,50,2 . .."Wi|
00003fe0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 31 32  |mp_SetColour",12|
00003ff0  0d 1f f4 04 0d 1f fe 2a  c8 93 c8 90 20 58 25 2b  |.......*.... X%+|
00004000  41 25 2a 4d 7a 25 2c 59  25 2b 42 25 2a 4d 7a 25  |A%*Mz%,Y%+B%*Mz%|
00004010  2c 4d 7a 25 2d 32 34 2c  4d 7a 25 2d 32 34 0d 20  |,Mz%-24,Mz%-24. |
00004020  08 12 54 25 3d 91 2b 32  2a 28 31 31 2d 56 25 29  |..T%=.+2*(11-V%)|
00004030  0d 20 12 0c f5 20 fd 20  91 3e 54 25 0d 20 1c 05  |. ... . .>T%. ..|
00004040  ed 0d 20 26 11 d4 20 32  2c 2d 31 33 2c 38 30 2c  |.. &.. 2,-13,80,|
00004050  32 30 0d 20 30 18 c8 99  22 57 69 6d 70 5f 53 65  |20. 0..."Wimp_Se|
00004060  74 43 6f 6c 6f 75 72 22  2c 31 0d 20 3a 2a c8 93  |tColour",1. :*..|
00004070  c8 90 20 58 25 2b 41 25  2a 4d 7a 25 2c 59 25 2b  |.. X%+A%*Mz%,Y%+|
00004080  42 25 2a 4d 7a 25 2c 4d  7a 25 2d 32 34 2c 4d 7a  |B%*Mz%,Mz%-24,Mz|
00004090  25 2d 32 34 0d 20 44 05  e1 0d ff                 |%-24. D....|
0000409b