� � �12:�$;" at line ";�:�
� ><Locate$Dir>.!RunImage
:
(t=�(-�)
2:
<� window% 4096,newdim 255
F$� menus 256,block% 2048,blk% 200
P� cols(8),quik(8)
Zwindowend%=window%+4096
d:
nerror_flag%=1
x
ox=0:oy=0
�score=0
�	t=100
�start%=�
�
exs=30
�
eys=20
�icon%=0
�
cols(1)=1
�
cols(2)=1
�
cols(3)=1
�
cols(4)=1
�:
�9ș "Wimp_Initialise",200,&4B534154,"Locate" � ,taskh%
�:

4ș "Wimp_OpenTemplate",,"<locate$Dir>.Templates"

info%=�createwindow("info")

neww%=�createwindow("neww")

"�create

,ș "Wimp_CloseTemplate"

6:

@�make_menu

J:

T:baricon%=�createicon(-1,0,0,36*2,18*4,&3002,"!Locate")

^:

h
� �error

r�openwindow(board%)

|�openwindow(main%)

�:

�
next=2

��setnext(next)

��seticontext(main%,1," ")

�:

��

�$ș "Wimp_Poll",,block% � reason%

�Ȏ reason% �

�!� 0    : � �-t>100 � �newtime

�� 1    : �redraw

�)� 2    : ș "Wimp_OpenWindow",,block%

�*� 3    : ș "Wimp_CloseWindow",,block%

�� 6    : �mouse
� 8    : �key
� 9    : �decodemenu
� 17,18: �message(reason%)
&�
0� �
:�closedown
D�
N:
X� �createmenu(x%,y%)
b%ș "Wimp_CreateMenu",,menus,x%,y%
l�
v:
�� �mouse
�buttons%=block%!8
�window%=block%!12
�icon%=block%!16
�Ȏ window% �
�	� -2:
�Ȏ icon% �
�� baricon%:
�Ȏ buttons% �
�#� 2:�createmenu(!block%-72,184)
�� 4:�openwindow(board%)
��openwindow(main%)
��
�
� main%:�click_in_window
� neww%:�new_board_window
 � board% :
*� buttons%=2 �
4$�createmenu(!block%-72,block%!4)
>�
H
Ȏ next �
R� 0 : �click_on_board
\7� 1 : �inform("You must click on the 'Next' icon.")
fN� 2 : �inform("You must click on the 'New game' icon before you can play")
p�
z�
��
��
�:
�� �decodemenu
�0ș "Wimp_DecodeMenu",,menus,block%,block%+16
�choice$=�var(block%+16)
�Ȏ choice$ �
� � "New board" :�newboardinit
�� "Quit":�closedown:�
��
��
�:
�� �var(ptr%)

� string$
string$=""
ȕ ?ptr%>31
$string$+=�?ptr%
.ptr%+=1
8�
B=string$
L:
V
� �key
`�
j:
t� �createwindow(tempname$)
~� hand%
�Nș "Wimp_LoadTemplate",,block%,window%,windowend%,-1,tempname$ � ,,window%
�*ș "Wimp_CreateWindow",,block% � hand%
�
=hand%
�:
�� �openwindow(windhand%)
�!block%=windhand%
�$ș "Wimp_GetWindowState",,block%
�block%!28=-1
� ș "Wimp_OpenWindow",,block%
��
�:
�� �closewindow(windhand%)
!block%=windhand%

!ș "Wimp_CloseWindow",,block%
�
:
(E� �createicon(windhand%,xmin%,ymin%,xmax%,ymax%,flags%,iconname$)
2!block%=windhand%
<block%!4=xmin%
Fblock%!8=ymin%
Pblock%!12=xmax%
Zblock%!16=ymax%
dblock%!20=flags%
n$(block%+24)=iconname$
x,ș "Wimp_CreateIcon",,block% � iconhand%
�=iconhand%
�:
�	� �bi
��
�:
� � �textaddr(windhand%,icon%)
�!�geticoninfo(windhand%,icon%)
�=block%!28
�:
�#� �geticoninfo(windhand%,icon%)
�!block%=windhand%
�block%!4=icon%
�"ș "Wimp_GetIconState",,block%
�
:
� �closedown
"(ș "Wimp_CloseDown",taskh%,&4B534154
,�
6:
@
� �redraw
Jș &400C8,,block% � flag%
Tȕ flag%
^ș &400CA,,block% � flag%
h�
r�
|0� sys &81681 = Interface 'Wimp_BorderWindow'
�:
�� �message(reason%)
�
� ref%
�ref%=block%!8
�Ȏ block%!16 �
�� 0:�closedown:�
�� &502:�be_helpful
��
��
�:
�� �error
�� error_flag%=3 �
�]�errorbox("Unexpected error - "+�$+" (IEC "+� �+") - (Click Cancel to quit application)")
�
�errorbox(�$)
�
&error_flag%=3
0�
::
D
� �ok(e$)
Nerror_flag%=1
X
� 1,e$
b�
l:
v� �fatal(e$)
�error_flag%=2
�
� 1,e$
��
�:
�� �errorbox(r$)
�� r%
�!block%=�:$(block%+4)=r$+�0
�<ș "Wimp_ReportError",block%,error_flag%,"!Locate" � ,r%
�� r%=2 �closedown:�
��
�:
���click_in_window
�5� buttons%=2 � �createmenu(!block%-72,block%!4):�
Ȏ icon% �
	� 0 :

Ȏ next �
 '� 0 : next=1:�setnext(next):�giveup
**� 1 : next=0:�setnext(next):�nextblock
4*� 2 : next=0:�setnext(next):�nextblock
>�
H�
R�
\:
f��click_on_board
pmx=block%!0
zmy=block%!4:block%!0=board%
�$ș "Wimp_GetWindowState",,block%
�mx=mx-(block%!4-block%!20)
�my=my-(block%!16-block%!24)
�D� IF mx=ox AND my=oy THEN ox=RND(100):OSCLI("error ox!"):ENDPROC
�mx=�(mx/32):my=�(my/32)
�gx=mx:mx=mx*32
�gy=my:my=my*32
�+� gx<1 � gy<1 � gx>xdm-2 � gy>ydm-2 � �
�8ș "OS_SpriteOp",&13C,sprites%,"spr",0 � r0,r1,r2,r3
�� 7
�ȓ mx-32,my-32,94
�ȓ mx-30,my-32,94
� ș "OS_SpriteOp",r0,r1,r2,r3
	
	8ș "Wimp_ForceRedraw",board%,mx-32,my-32,mx+96,my+96
	ox=mx:oy=my
	$�checksquare(gx,gy)
	.�
	8:
	B(��seticontext(wh%,iconnumber%,text$)
	L!block%=wh%
	Vblock%!4=iconnumber%
	`"ș "Wimp_GetIconState",,block%
	j"$block%!28=�text$,block%!36-1)
	tblock%!8=0
	~block%!12=0 : � probably
	�"ș "Wimp_SetIconState",,block%
	��
	�:
	���create
	�:
	�ș "Hourglass_On"
	�:
	�
xdm=30
	�
ydm=20
	�xsize=xdm*32
	�ysize=ydm*32
	�� board(31,21)
:

� sprites% 94600
!sprites%=94600
sprites%!4=0
(sprites%!8=16
2sprites%!12=16
<"ș "OS_SpriteOp",&109,sprites%
FCș "OS_SpriteOp",&10A,sprites%,"<locate$dir>.Sprites":� 480,160
P� a=1 � 159
Z0ș "OS_SpriteOp",&11F,sprites%,"spr",a:� row
d�
n� a=1 � 479
x0ș "OS_SpriteOp",&12D,sprites%,"spr",a:� col
��
�:
�Lș "Wimp_LoadTemplate",,block%,window%,windowend%,-1,"board" � ,,window%
�block%!64=sprites%
�+ș "Wimp_CreateWindow",,block% � board%
�Kș "Wimp_LoadTemplate",,block%,window%,windowend%,-1,"main" � ,,window%
�block%!64=sprites%
�*ș "Wimp_CreateWindow",,block% � main%
�Kș "Wimp_LoadTemplate",,block%,window%,windowend%,-1,"neww" � ,,window%
�block%!64=sprites%
�*ș "Wimp_CreateWindow",,block% � neww%
�:
�ș "Hourglass_Smash"

�initgame
:
block%!0=board%
"block%!4=icon%
,ș"Wimp_DeleteIcon",,block%
6!block%=board%
@block%!4=0
Jblock%!8=0
Tblock%!12=xsize
^block%!16=ysize
h/block%!20=%11000111000000000110000000000010
r$(block%+24)="spr"
|%ș"Wimp_CreateIcon",,block%�icon%
�:
�!block%=main%
�block%!4=10
�block%!8=-120
�block%!12=150
�block%!16=-20
�block%!20=&C700601A
�$(block%+24)="square"
�'ș"Wimp_CreateIcon",,block%�square%
�� PROCnx:PROCny
�:
��
�:
��initgame
:
Jselect=cols(1)+cols(2)+cols(3)+cols(4)+cols(5)+cols(6)+cols(7)+cols(8)
&]� select=0 � cols(1)=1:select=1:�inform("You have to have at least one colour selected!")
0:
:
counter=0
D:
N� e=1 � select
X�
bcounter=counter+1
lquik(e)=counter
v!� cols(counter)=1 � counter=9
��
�:
�quik(0)=quik(1)
�:
�8ș "OS_SpriteOp",&13C,sprites%,"spr",0 � r0,r1,r2,r3
�:� a=0 � xdm:� b=0 � ydm:r=�(select):board(a,b)=quik(r)
�� quik(r)+7
�ȓ Ȑ a*32,b*32,30,28
��,
� ș "OS_SpriteOp",r0,r1,r2,r3
�:
�block%!0=0
�block%!4=0

block%!8=xsize

block%!12=ysize

%ș "Wimp_SetExtent",board%,block%

 start%=�

*�nextblock

4:

>�

H:

R��nextblock

\xpos=�(xdm-2)

fypos=�(ydm-2)

p� xdm=3 � xpos=1

z� ydm=3 � ypos=1

�;ș "OS_SpriteOp",&13C,sprites%,"square",0 � r0,r1,r2,r3

�� a=-1 � 1

�� b=-1 � 1

�� board(a+xpos,b+ypos)+7

�� start%=� � � 1

�ȓ Ȑ a*32+32,b*32+32,30,28

��,

� ș "OS_SpriteOp",r0,r1,r2,r3

�:

�8ș "OS_SpriteOp",&13C,sprites%,"spr",0 � r0,r1,r2,r3

�� a=0 � xdm

�� b=0 � ydm

�� board(a,b)+7
ȓ Ȑ a*32,b*32,30,28
�,
 ș "OS_SpriteOp",r0,r1,r2,r3
$:
.$�seticontext(main%,1,"Find it!")
8:
B0ș "Wimp_ForceRedraw",board%,0,0,xsize,ysize
L,ș "Wimp_ForceRedraw",main%,0,-240,360,0
V:
`start%=0
j�
t:
~��checksquare(a,b)
��:ȗ x,y,z:�z=0
�true=-1
�:
�� x=-1 � 1
�� y=-1 � 1
�3� board(xpos+x,ypos+y)<>board(a+x,b+y) � true=0
��,
�:
�� true � �true � �wrong
��
�:
�
��true
score$="� Right �"

 �seticontext(main%,1,score$)
next=1:�setnext(next)
�:ȗ x,y,z:�z=0:Ȗ:Ȗ:Ȗ
(t=�
2�1,-10,150,2
<�
F:
P��wrong
Zscore$="x Wrong x"
d �seticontext(main%,1,score$)
n� 1,-10,20,7
x�
�:
���setnext(next)
�
Ȏ next �
�1� 0 : �seticontext(main%,0,"Give Up"):time=-1
�.� 1 : �seticontext(main%,0,"Next"):time=-2
�2� 2 : �seticontext(main%,0,"New Game"):time=-3
��
��
�:
���make_menu
�:
��init("!Locate")
�:
�item("Info",%0,info%)
�item("New board",%0,neww%)
�item("Quit",%10000000,-1)
":
,�
6:
@��init(title$)
Jlen=�title$
T$menus=title$
^menus?12=7
hmenus?13=2
rmenus?14=7
|menus?15=0
�menus!16=(len)*16
�menus!20=40
�menus!24=0
�p=menus+28
��
�:
���item(text$,flags%,link%)
�>p!0=flags%�255:p!4=link%:p!8=&07000021:$(p+12)=text$:p+=24
�2� �text$>len � len=�text$: menus!16=(len+1)*16
��
�:
�!��createmenu(mousex%,mousey%)
�:
=ș "Wimp_CreateMenu",,menus,mousex%-80,mousey%+48+size*36
�
:
&!ݤisitselected(window%,icon%)
0block%!0=window%
:block%!4=icon%
D"ș "Wimp_GetIconState",,block%
N$� (block%!24 � 2^21)=0 � =1 � =0
X:
b��readradios
l
� a=1 � 8
v%cols(a)=�isitselected(neww%,a+17)
��
��
�:
�� �newboardinit
�:
�xdm=exs
�ydm=eys
�xsize=xdm*32
�ysize=ydm*32
�block%!0=neww%
�!ș "Wimp_CloseWindow",,block%
��readradios
�#�initgame:next=2:�setnext(next)
block%!0=board%
!ș "Wimp_CloseWindow",,block%
�openwindow(board%)
 :
*�openwindow(main%)
4:
>�
H
R��giveup
\mx=xpos:my=ypos
fmx=mx*32
pmy=my*32
z8ș "OS_SpriteOp",&13C,sprites%,"spr",0 � r0,r1,r2,r3
�� 15
�ȓ mx-32,my-32,94
�ȓ mx-30,my-32,94
� ș "OS_SpriteOp",r0,r1,r2,r3
�8ș "Wimp_ForceRedraw",board%,mx-32,my-32,mx+96,my+96
��
�:
�� PROCnx,PROCny
�� �new_board_window
�:
�Ȏ icon% �
�� 0 : �newboardinit
� � 2 : eys-=1:� eys<4 � eys=4
�seticontext(neww%,7,�eys)
 � 3 : exs-=1:� exs<6 � exs=6
�seticontext(neww%,6,�exs)
$"� 4 : eys+=1:� eys>20 � eys=20
.�seticontext(neww%,7,�eys)
8"� 5 : exs+=1:� exs>30 � exs=30
B�seticontext(neww%,6,�exs)
L�
V�
`:
j� �newtime
tt=�
~� time>=-1 � time=time+1
�5� time>=-1 � �seticontext(main%,4,�"00"+�time,3))
�+� time=-3 � �seticontext(main%,4,"---")
��
�:
�� �be_helpful
�f=block%!8
�g=block%!4
�$ș "Wimp_GetPointerInfo",,block%
�window%=block%!12
�icon%=block%!16
�Ȏ window% �
�b� main% : �help("This is the status window. It shows the 3x3 square that you have to locate.")
q� board%: �help("This is the main board.|MSomewhere on the board is the 3x3 square that you have to locate.")

y� neww% : �help("This is the new board window.|MThere is a limit to the size of the new board (min 6x4, max 30x20).")
6� info% : �help("This is the information window.")
�
(�
2:
<��help(text$)
F-text$="This is a !Locate window.|M"+text$
P:
Z!block%=(�(text$)+25) � � 3
dblock%!12=f
n!(block%+16)=&503
x$(block%+20)=text$
�?(block%+20+�(text$)+1)=0
�%ș "Wimp_SendMessage",17,block%,g
��
�:
���inform(text$)
�
!block%=�
�$(block%+4)=text$+�0
�:
�2ș "Wimp_ReportError",block%,1,"!Locate" � ,r%
��
�

00000000  0d 00 0a 1f ee 20 85 20  eb 31 32 3a f1 f6 24 3b  |..... . .12:..$;|
00000010  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000020  00 14 1d f4 20 3e 3c 4c  6f 63 61 74 65 24 44 69  |.... ><Locate$Di|
00000030  72 3e 2e 21 52 75 6e 49  6d 61 67 65 0d 00 1e 05  |r>.!RunImage....|
00000040  3a 0d 00 28 0b 74 3d b3  28 2d 91 29 0d 00 32 05  |:..(.t=.(-.)..2.|
00000050  3a 0d 00 3c 1d de 20 77  69 6e 64 6f 77 25 20 34  |:..<.. window% 4|
00000060  30 39 36 2c 6e 65 77 64  69 6d 20 32 35 35 0d 00  |096,newdim 255..|
00000070  46 24 de 20 6d 65 6e 75  73 20 32 35 36 2c 62 6c  |F$. menus 256,bl|
00000080  6f 63 6b 25 20 32 30 34  38 2c 62 6c 6b 25 20 32  |ock% 2048,blk% 2|
00000090  30 30 0d 00 50 15 de 20  63 6f 6c 73 28 38 29 2c  |00..P.. cols(8),|
000000a0  71 75 69 6b 28 38 29 0d  00 5a 1b 77 69 6e 64 6f  |quik(8)..Z.windo|
000000b0  77 65 6e 64 25 3d 77 69  6e 64 6f 77 25 2b 34 30  |wend%=window%+40|
000000c0  39 36 0d 00 64 05 3a 0d  00 6e 11 65 72 72 6f 72  |96..d.:..n.error|
000000d0  5f 66 6c 61 67 25 3d 31  0d 00 78 0d 6f 78 3d 30  |_flag%=1..x.ox=0|
000000e0  3a 6f 79 3d 30 0d 00 82  0b 73 63 6f 72 65 3d 30  |:oy=0....score=0|
000000f0  0d 00 8c 09 74 3d 31 30  30 0d 00 96 0c 73 74 61  |....t=100....sta|
00000100  72 74 25 3d b9 0d 00 a0  0a 65 78 73 3d 33 30 0d  |rt%=.....exs=30.|
00000110  00 aa 0a 65 79 73 3d 32  30 0d 00 b4 0b 69 63 6f  |...eys=20....ico|
00000120  6e 25 3d 30 0d 00 be 0d  63 6f 6c 73 28 31 29 3d  |n%=0....cols(1)=|
00000130  31 0d 00 c8 0d 63 6f 6c  73 28 32 29 3d 31 0d 00  |1....cols(2)=1..|
00000140  d2 0d 63 6f 6c 73 28 33  29 3d 31 0d 00 dc 0d 63  |..cols(3)=1....c|
00000150  6f 6c 73 28 34 29 3d 31  0d 00 e6 05 3a 0d 00 f0  |ols(4)=1....:...|
00000160  39 c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |9.. "Wimp_Initia|
00000170  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00000180  31 35 34 2c 22 4c 6f 63  61 74 65 22 20 b8 20 2c  |154,"Locate" . ,|
00000190  74 61 73 6b 68 25 0d 00  fa 05 3a 0d 01 04 34 c8  |taskh%....:...4.|
000001a0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
000001b0  6c 61 74 65 22 2c 2c 22  3c 6c 6f 63 61 74 65 24  |late",,"<locate$|
000001c0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
000001d0  01 0e 1f 69 6e 66 6f 25  3d a4 63 72 65 61 74 65  |...info%=.create|
000001e0  77 69 6e 64 6f 77 28 22  69 6e 66 6f 22 29 0d 01  |window("info")..|
000001f0  18 1f 6e 65 77 77 25 3d  a4 63 72 65 61 74 65 77  |..neww%=.createw|
00000200  69 6e 64 6f 77 28 22 6e  65 77 77 22 29 0d 01 22  |indow("neww").."|
00000210  0b f2 63 72 65 61 74 65  0d 01 2c 1b c8 99 20 22  |..create..,... "|
00000220  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
00000230  74 65 22 0d 01 36 05 3a  0d 01 40 0e f2 6d 61 6b  |te"..6.:..@..mak|
00000240  65 5f 6d 65 6e 75 0d 01  4a 05 3a 0d 01 54 3a 62  |e_menu..J.:..T:b|
00000250  61 72 69 63 6f 6e 25 3d  a4 63 72 65 61 74 65 69  |aricon%=.createi|
00000260  63 6f 6e 28 2d 31 2c 30  2c 30 2c 33 36 2a 32 2c  |con(-1,0,0,36*2,|
00000270  31 38 2a 34 2c 26 33 30  30 32 2c 22 21 4c 6f 63  |18*4,&3002,"!Loc|
00000280  61 74 65 22 29 0d 01 5e  05 3a 0d 01 68 0d ee 85  |ate")..^.:..h...|
00000290  20 f2 65 72 72 6f 72 0d  01 72 17 f2 6f 70 65 6e  | .error..r..open|
000002a0  77 69 6e 64 6f 77 28 62  6f 61 72 64 25 29 0d 01  |window(board%)..|
000002b0  7c 16 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 6d 61  ||..openwindow(ma|
000002c0  69 6e 25 29 0d 01 86 05  3a 0d 01 90 0a 6e 65 78  |in%)....:....nex|
000002d0  74 3d 32 0d 01 9a 12 f2  73 65 74 6e 65 78 74 28  |t=2.....setnext(|
000002e0  6e 65 78 74 29 0d 01 a4  1d f2 73 65 74 69 63 6f  |next).....setico|
000002f0  6e 74 65 78 74 28 6d 61  69 6e 25 2c 31 2c 22 20  |ntext(main%,1," |
00000300  22 29 0d 01 ae 05 3a 0d  01 b8 05 f5 0d 01 c2 24  |")....:........$|
00000310  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |.. "Wimp_Poll",,|
00000320  62 6c 6f 63 6b 25 20 b8  20 72 65 61 73 6f 6e 25  |block% . reason%|
00000330  0d 01 cc 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |...... reason% .|
00000340  0d 01 d6 21 c9 20 30 20  20 20 20 3a 20 e7 20 91  |...!. 0    : . .|
00000350  2d 74 3e 31 30 30 20 8c  20 f2 6e 65 77 74 69 6d  |-t>100 . .newtim|
00000360  65 0d 01 e0 14 c9 20 31  20 20 20 20 3a 20 f2 72  |e..... 1    : .r|
00000370  65 64 72 61 77 0d 01 ea  29 c9 20 32 20 20 20 20  |edraw...). 2    |
00000380  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
00000390  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 01  |indow",,block%..|
000003a0  f4 2a c9 20 33 20 20 20  20 3a 20 c8 99 20 22 57  |.*. 3    : .. "W|
000003b0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000003c0  2c 2c 62 6c 6f 63 6b 25  0d 01 fe 13 c9 20 36 20  |,,block%..... 6 |
000003d0  20 20 20 3a 20 f2 6d 6f  75 73 65 0d 02 08 11 c9  |   : .mouse.....|
000003e0  20 38 20 20 20 20 3a 20  f2 6b 65 79 0d 02 12 18  | 8    : .key....|
000003f0  c9 20 39 20 20 20 20 3a  20 f2 64 65 63 6f 64 65  |. 9    : .decode|
00000400  6d 65 6e 75 0d 02 1c 1e  c9 20 31 37 2c 31 38 3a  |menu..... 17,18:|
00000410  20 f2 6d 65 73 73 61 67  65 28 72 65 61 73 6f 6e  | .message(reason|
00000420  25 29 0d 02 26 05 cb 0d  02 30 07 fd 20 a3 0d 02  |%)..&....0.. ...|
00000430  3a 0e f2 63 6c 6f 73 65  64 6f 77 6e 0d 02 44 05  |:..closedown..D.|
00000440  e0 0d 02 4e 05 3a 0d 02  58 18 dd 20 f2 63 72 65  |...N.:..X.. .cre|
00000450  61 74 65 6d 65 6e 75 28  78 25 2c 79 25 29 0d 02  |atemenu(x%,y%)..|
00000460  62 25 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |b%.. "Wimp_Creat|
00000470  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 73 2c 78 25  |eMenu",,menus,x%|
00000480  2c 79 25 0d 02 6c 05 e1  0d 02 76 05 3a 0d 02 80  |,y%..l....v.:...|
00000490  0c dd 20 f2 6d 6f 75 73  65 0d 02 8a 15 62 75 74  |.. .mouse....but|
000004a0  74 6f 6e 73 25 3d 62 6c  6f 63 6b 25 21 38 0d 02  |tons%=block%!8..|
000004b0  94 15 77 69 6e 64 6f 77  25 3d 62 6c 6f 63 6b 25  |..window%=block%|
000004c0  21 31 32 0d 02 9e 13 69  63 6f 6e 25 3d 62 6c 6f  |!12....icon%=blo|
000004d0  63 6b 25 21 31 36 0d 02  a8 10 c8 8e 20 77 69 6e  |ck%!16...... win|
000004e0  64 6f 77 25 20 ca 0d 02  b2 09 c9 20 2d 32 3a 0d  |dow% ...... -2:.|
000004f0  02 bc 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 02 c6  |..... icon% ....|
00000500  0f c9 20 62 61 72 69 63  6f 6e 25 3a 0d 02 d0 11  |.. baricon%:....|
00000510  c8 8e 20 62 75 74 74 6f  6e 73 25 20 ca 0d 02 da  |.. buttons% ....|
00000520  23 c9 20 32 3a f2 63 72  65 61 74 65 6d 65 6e 75  |#. 2:.createmenu|
00000530  28 21 62 6c 6f 63 6b 25  2d 37 32 2c 31 38 34 29  |(!block%-72,184)|
00000540  0d 02 e4 1b c9 20 34 3a  f2 6f 70 65 6e 77 69 6e  |..... 4:.openwin|
00000550  64 6f 77 28 62 6f 61 72  64 25 29 0d 02 ee 16 f2  |dow(board%).....|
00000560  6f 70 65 6e 77 69 6e 64  6f 77 28 6d 61 69 6e 25  |openwindow(main%|
00000570  29 0d 02 f8 05 cb 0d 03  02 05 cb 0d 03 0c 1c c9  |)...............|
00000580  20 6d 61 69 6e 25 3a f2  63 6c 69 63 6b 5f 69 6e  | main%:.click_in|
00000590  5f 77 69 6e 64 6f 77 0d  03 16 1d c9 20 6e 65 77  |_window..... new|
000005a0  77 25 3a f2 6e 65 77 5f  62 6f 61 72 64 5f 77 69  |w%:.new_board_wi|
000005b0  6e 64 6f 77 0d 03 20 0e  c9 20 62 6f 61 72 64 25  |ndow.. .. board%|
000005c0  20 3a 0d 03 2a 12 e7 20  62 75 74 74 6f 6e 73 25  | :..*.. buttons%|
000005d0  3d 32 20 8c 0d 03 34 24  f2 63 72 65 61 74 65 6d  |=2 ...4$.createm|
000005e0  65 6e 75 28 21 62 6c 6f  63 6b 25 2d 37 32 2c 62  |enu(!block%-72,b|
000005f0  6c 6f 63 6b 25 21 34 29  0d 03 3e 05 cc 0d 03 48  |lock%!4)..>....H|
00000600  0d c8 8e 20 6e 65 78 74  20 ca 0d 03 52 19 c9 20  |... next ...R.. |
00000610  30 20 3a 20 f2 63 6c 69  63 6b 5f 6f 6e 5f 62 6f  |0 : .click_on_bo|
00000620  61 72 64 0d 03 5c 37 c9  20 31 20 3a 20 f2 69 6e  |ard..\7. 1 : .in|
00000630  66 6f 72 6d 28 22 59 6f  75 20 6d 75 73 74 20 63  |form("You must c|
00000640  6c 69 63 6b 20 6f 6e 20  74 68 65 20 27 4e 65 78  |lick on the 'Nex|
00000650  74 27 20 69 63 6f 6e 2e  22 29 0d 03 66 4e c9 20  |t' icon.")..fN. |
00000660  32 20 3a 20 f2 69 6e 66  6f 72 6d 28 22 59 6f 75  |2 : .inform("You|
00000670  20 6d 75 73 74 20 63 6c  69 63 6b 20 6f 6e 20 74  | must click on t|
00000680  68 65 20 27 4e 65 77 20  67 61 6d 65 27 20 69 63  |he 'New game' ic|
00000690  6f 6e 20 62 65 66 6f 72  65 20 79 6f 75 20 63 61  |on before you ca|
000006a0  6e 20 70 6c 61 79 22 29  0d 03 70 05 cb 0d 03 7a  |n play")..p....z|
000006b0  05 cd 0d 03 84 05 cb 0d  03 8e 05 e1 0d 03 98 05  |................|
000006c0  3a 0d 03 a2 11 dd 20 f2  64 65 63 6f 64 65 6d 65  |:..... .decodeme|
000006d0  6e 75 0d 03 ac 30 c8 99  20 22 57 69 6d 70 5f 44  |nu...0.. "Wimp_D|
000006e0  65 63 6f 64 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |ecodeMenu",,menu|
000006f0  73 2c 62 6c 6f 63 6b 25  2c 62 6c 6f 63 6b 25 2b  |s,block%,block%+|
00000700  31 36 0d 03 b6 1b 63 68  6f 69 63 65 24 3d a4 76  |16....choice$=.v|
00000710  61 72 28 62 6c 6f 63 6b  25 2b 31 36 29 0d 03 c0  |ar(block%+16)...|
00000720  10 c8 8e 20 63 68 6f 69  63 65 24 20 ca 0d 03 ca  |... choice$ ....|
00000730  20 c9 20 22 4e 65 77 20  62 6f 61 72 64 22 20 3a  | . "New board" :|
00000740  f2 6e 65 77 62 6f 61 72  64 69 6e 69 74 0d 03 d4  |.newboardinit...|
00000750  19 c9 20 22 51 75 69 74  22 3a f2 63 6c 6f 73 65  |.. "Quit":.close|
00000760  64 6f 77 6e 3a e0 0d 03  de 05 cb 0d 03 e8 05 e1  |down:...........|
00000770  0d 03 f2 05 3a 0d 03 fc  10 dd 20 a4 76 61 72 28  |....:..... .var(|
00000780  70 74 72 25 29 0d 04 06  0d ea 20 73 74 72 69 6e  |ptr%)..... strin|
00000790  67 24 0d 04 10 0e 73 74  72 69 6e 67 24 3d 22 22  |g$....string$=""|
000007a0  0d 04 1a 0f c8 95 20 3f  70 74 72 25 3e 33 31 0d  |...... ?ptr%>31.|
000007b0  04 24 13 73 74 72 69 6e  67 24 2b 3d bd 3f 70 74  |.$.string$+=.?pt|
000007c0  72 25 0d 04 2e 0b 70 74  72 25 2b 3d 31 0d 04 38  |r%....ptr%+=1..8|
000007d0  05 ce 0d 04 42 0c 3d 73  74 72 69 6e 67 24 0d 04  |....B.=string$..|
000007e0  4c 05 3a 0d 04 56 0a dd  20 f2 6b 65 79 0d 04 60  |L.:..V.. .key..`|
000007f0  05 e1 0d 04 6a 05 3a 0d  04 74 1e dd 20 a4 63 72  |....j.:..t.. .cr|
00000800  65 61 74 65 77 69 6e 64  6f 77 28 74 65 6d 70 6e  |eatewindow(tempn|
00000810  61 6d 65 24 29 0d 04 7e  0b ea 20 68 61 6e 64 25  |ame$)..~.. hand%|
00000820  0d 04 88 4e c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...N.. "Wimp_Loa|
00000830  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00000840  6b 25 2c 77 69 6e 64 6f  77 25 2c 77 69 6e 64 6f  |k%,window%,windo|
00000850  77 65 6e 64 25 2c 2d 31  2c 74 65 6d 70 6e 61 6d  |wend%,-1,tempnam|
00000860  65 24 20 b8 20 2c 2c 77  69 6e 64 6f 77 25 0d 04  |e$ . ,,window%..|
00000870  92 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.*.. "Wimp_Creat|
00000880  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000890  20 b8 20 68 61 6e 64 25  0d 04 9c 0a 3d 68 61 6e  | . hand%....=han|
000008a0  64 25 0d 04 a6 05 3a 0d  04 b0 1c dd 20 f2 6f 70  |d%....:..... .op|
000008b0  65 6e 77 69 6e 64 6f 77  28 77 69 6e 64 68 61 6e  |enwindow(windhan|
000008c0  64 25 29 0d 04 ba 15 21  62 6c 6f 63 6b 25 3d 77  |d%)....!block%=w|
000008d0  69 6e 64 68 61 6e 64 25  0d 04 c4 24 c8 99 20 22  |indhand%...$.. "|
000008e0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
000008f0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 04 ce 10  |ate",,block%....|
00000900  62 6c 6f 63 6b 25 21 32  38 3d 2d 31 0d 04 d8 20  |block%!28=-1... |
00000910  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000920  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 04 e2 05  |dow",,block%....|
00000930  e1 0d 04 ec 05 3a 0d 04  f6 1d dd 20 f2 63 6c 6f  |.....:..... .clo|
00000940  73 65 77 69 6e 64 6f 77  28 77 69 6e 64 68 61 6e  |sewindow(windhan|
00000950  64 25 29 0d 05 00 15 21  62 6c 6f 63 6b 25 3d 77  |d%)....!block%=w|
00000960  69 6e 64 68 61 6e 64 25  0d 05 0a 21 c8 99 20 22  |indhand%...!.. "|
00000970  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000980  22 2c 2c 62 6c 6f 63 6b  25 0d 05 14 05 e1 0d 05  |",,block%.......|
00000990  1e 05 3a 0d 05 28 45 dd  20 a4 63 72 65 61 74 65  |..:..(E. .create|
000009a0  69 63 6f 6e 28 77 69 6e  64 68 61 6e 64 25 2c 78  |icon(windhand%,x|
000009b0  6d 69 6e 25 2c 79 6d 69  6e 25 2c 78 6d 61 78 25  |min%,ymin%,xmax%|
000009c0  2c 79 6d 61 78 25 2c 66  6c 61 67 73 25 2c 69 63  |,ymax%,flags%,ic|
000009d0  6f 6e 6e 61 6d 65 24 29  0d 05 32 15 21 62 6c 6f  |onname$)..2.!blo|
000009e0  63 6b 25 3d 77 69 6e 64  68 61 6e 64 25 0d 05 3c  |ck%=windhand%..<|
000009f0  12 62 6c 6f 63 6b 25 21  34 3d 78 6d 69 6e 25 0d  |.block%!4=xmin%.|
00000a00  05 46 12 62 6c 6f 63 6b  25 21 38 3d 79 6d 69 6e  |.F.block%!8=ymin|
00000a10  25 0d 05 50 13 62 6c 6f  63 6b 25 21 31 32 3d 78  |%..P.block%!12=x|
00000a20  6d 61 78 25 0d 05 5a 13  62 6c 6f 63 6b 25 21 31  |max%..Z.block%!1|
00000a30  36 3d 79 6d 61 78 25 0d  05 64 14 62 6c 6f 63 6b  |6=ymax%..d.block|
00000a40  25 21 32 30 3d 66 6c 61  67 73 25 0d 05 6e 1a 24  |%!20=flags%..n.$|
00000a50  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 69 63 6f 6e  |(block%+24)=icon|
00000a60  6e 61 6d 65 24 0d 05 78  2c c8 99 20 22 57 69 6d  |name$..x,.. "Wim|
00000a70  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 62  |p_CreateIcon",,b|
00000a80  6c 6f 63 6b 25 20 b8 20  69 63 6f 6e 68 61 6e 64  |lock% . iconhand|
00000a90  25 0d 05 82 0e 3d 69 63  6f 6e 68 61 6e 64 25 0d  |%....=iconhand%.|
00000aa0  05 8c 05 3a 0d 05 96 09  dd 20 f2 62 69 0d 05 a0  |...:..... .bi...|
00000ab0  05 e1 0d 05 aa 05 3a 0d  05 b4 20 dd 20 a4 74 65  |......:... . .te|
00000ac0  78 74 61 64 64 72 28 77  69 6e 64 68 61 6e 64 25  |xtaddr(windhand%|
00000ad0  2c 69 63 6f 6e 25 29 0d  05 be 21 f2 67 65 74 69  |,icon%)...!.geti|
00000ae0  63 6f 6e 69 6e 66 6f 28  77 69 6e 64 68 61 6e 64  |coninfo(windhand|
00000af0  25 2c 69 63 6f 6e 25 29  0d 05 c8 0e 3d 62 6c 6f  |%,icon%)....=blo|
00000b00  63 6b 25 21 32 38 0d 05  d2 05 3a 0d 05 dc 23 dd  |ck%!28....:...#.|
00000b10  20 f2 67 65 74 69 63 6f  6e 69 6e 66 6f 28 77 69  | .geticoninfo(wi|
00000b20  6e 64 68 61 6e 64 25 2c  69 63 6f 6e 25 29 0d 05  |ndhand%,icon%)..|
00000b30  e6 15 21 62 6c 6f 63 6b  25 3d 77 69 6e 64 68 61  |..!block%=windha|
00000b40  6e 64 25 0d 05 f0 12 62  6c 6f 63 6b 25 21 34 3d  |nd%....block%!4=|
00000b50  69 63 6f 6e 25 0d 05 fa  22 c8 99 20 22 57 69 6d  |icon%...".. "Wim|
00000b60  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000b70  2c 62 6c 6f 63 6b 25 0d  06 04 05 e1 0d 06 0e 05  |,block%.........|
00000b80  3a 0d 06 18 10 dd 20 f2  63 6c 6f 73 65 64 6f 77  |:..... .closedow|
00000b90  6e 0d 06 22 28 c8 99 20  22 57 69 6d 70 5f 43 6c  |n.."(.. "Wimp_Cl|
00000ba0  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 68 25 2c  |oseDown",taskh%,|
00000bb0  26 34 42 35 33 34 31 35  34 0d 06 2c 05 e1 0d 06  |&4B534154..,....|
00000bc0  36 05 3a 0d 06 40 0d dd  20 f2 72 65 64 72 61 77  |6.:..@.. .redraw|
00000bd0  0d 06 4a 1d c8 99 20 26  34 30 30 43 38 2c 2c 62  |..J... &400C8,,b|
00000be0  6c 6f 63 6b 25 20 b8 20  66 6c 61 67 25 0d 06 54  |lock% . flag%..T|
00000bf0  0c c8 95 20 66 6c 61 67  25 0d 06 5e 1d c8 99 20  |... flag%..^... |
00000c00  26 34 30 30 43 41 2c 2c  62 6c 6f 63 6b 25 20 b8  |&400CA,,block% .|
00000c10  20 66 6c 61 67 25 0d 06  68 05 ce 0d 06 72 05 e1  | flag%..h....r..|
00000c20  0d 06 7c 30 f4 20 73 79  73 20 26 38 31 36 38 31  |..|0. sys &81681|
00000c30  20 3d 20 49 6e 74 65 72  66 61 63 65 20 27 57 69  | = Interface 'Wi|
00000c40  6d 70 5f 42 6f 72 64 65  72 57 69 6e 64 6f 77 27  |mp_BorderWindow'|
00000c50  0d 06 86 05 3a 0d 06 90  17 dd 20 f2 6d 65 73 73  |....:..... .mess|
00000c60  61 67 65 28 72 65 61 73  6f 6e 25 29 0d 06 9a 0a  |age(reason%)....|
00000c70  ea 20 72 65 66 25 0d 06  a4 11 72 65 66 25 3d 62  |. ref%....ref%=b|
00000c80  6c 6f 63 6b 25 21 38 0d  06 ae 12 c8 8e 20 62 6c  |lock%!8...... bl|
00000c90  6f 63 6b 25 21 31 36 20  ca 0d 06 b8 14 c9 20 30  |ock%!16 ...... 0|
00000ca0  3a f2 63 6c 6f 73 65 64  6f 77 6e 3a e0 0d 06 c2  |:.closedown:....|
00000cb0  16 c9 20 26 35 30 32 3a  f2 62 65 5f 68 65 6c 70  |.. &502:.be_help|
00000cc0  66 75 6c 0d 06 cc 05 cb  0d 06 d6 05 e1 0d 06 e0  |ful.............|
00000cd0  05 3a 0d 06 ea 0c dd 20  f2 65 72 72 6f 72 0d 06  |.:..... .error..|
00000ce0  f4 15 e7 20 65 72 72 6f  72 5f 66 6c 61 67 25 3d  |... error_flag%=|
00000cf0  33 20 8c 0d 06 fe 5d f2  65 72 72 6f 72 62 6f 78  |3 ....].errorbox|
00000d00  28 22 55 6e 65 78 70 65  63 74 65 64 20 65 72 72  |("Unexpected err|
00000d10  6f 72 20 2d 20 22 2b f6  24 2b 22 20 28 49 45 43  |or - "+.$+" (IEC|
00000d20  20 22 2b c3 20 9e 2b 22  29 20 2d 20 28 43 6c 69  | "+. .+") - (Cli|
00000d30  63 6b 20 43 61 6e 63 65  6c 20 74 6f 20 71 75 69  |ck Cancel to qui|
00000d40  74 20 61 70 70 6c 69 63  61 74 69 6f 6e 29 22 29  |t application)")|
00000d50  0d 07 08 05 cc 0d 07 12  11 f2 65 72 72 6f 72 62  |..........errorb|
00000d60  6f 78 28 f6 24 29 0d 07  1c 05 cd 0d 07 26 11 65  |ox(.$).......&.e|
00000d70  72 72 6f 72 5f 66 6c 61  67 25 3d 33 0d 07 30 05  |rror_flag%=3..0.|
00000d80  e1 0d 07 3a 05 3a 0d 07  44 0d dd 20 f2 6f 6b 28  |...:.:..D.. .ok(|
00000d90  65 24 29 0d 07 4e 11 65  72 72 6f 72 5f 66 6c 61  |e$)..N.error_fla|
00000da0  67 25 3d 31 0d 07 58 0a  85 20 31 2c 65 24 0d 07  |g%=1..X.. 1,e$..|
00000db0  62 05 e1 0d 07 6c 05 3a  0d 07 76 10 dd 20 f2 66  |b....l.:..v.. .f|
00000dc0  61 74 61 6c 28 65 24 29  0d 07 80 11 65 72 72 6f  |atal(e$)....erro|
00000dd0  72 5f 66 6c 61 67 25 3d  32 0d 07 8a 0a 85 20 31  |r_flag%=2..... 1|
00000de0  2c 65 24 0d 07 94 05 e1  0d 07 9e 05 3a 0d 07 a8  |,e$.........:...|
00000df0  13 dd 20 f2 65 72 72 6f  72 62 6f 78 28 72 24 29  |.. .errorbox(r$)|
00000e00  0d 07 b2 08 ea 20 72 25  0d 07 bc 1f 21 62 6c 6f  |..... r%....!blo|
00000e10  63 6b 25 3d 9f 3a 24 28  62 6c 6f 63 6b 25 2b 34  |ck%=.:$(block%+4|
00000e20  29 3d 72 24 2b bd 30 0d  07 c6 3c c8 99 20 22 57  |)=r$+.0...<.. "W|
00000e30  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000e40  2c 62 6c 6f 63 6b 25 2c  65 72 72 6f 72 5f 66 6c  |,block%,error_fl|
00000e50  61 67 25 2c 22 21 4c 6f  63 61 74 65 22 20 b8 20  |ag%,"!Locate" . |
00000e60  2c 72 25 0d 07 d0 17 e7  20 72 25 3d 32 20 f2 63  |,r%..... r%=2 .c|
00000e70  6c 6f 73 65 64 6f 77 6e  3a e0 0d 07 da 05 e1 0d  |losedown:.......|
00000e80  07 e4 05 3a 0d 07 ee 15  dd f2 63 6c 69 63 6b 5f  |...:......click_|
00000e90  69 6e 5f 77 69 6e 64 6f  77 0d 07 f8 35 e7 20 62  |in_window...5. b|
00000ea0  75 74 74 6f 6e 73 25 3d  32 20 8c 20 f2 63 72 65  |uttons%=2 . .cre|
00000eb0  61 74 65 6d 65 6e 75 28  21 62 6c 6f 63 6b 25 2d  |atemenu(!block%-|
00000ec0  37 32 2c 62 6c 6f 63 6b  25 21 34 29 3a e1 0d 08  |72,block%!4):...|
00000ed0  02 0e c8 8e 20 69 63 6f  6e 25 20 ca 0d 08 0c 09  |.... icon% .....|
00000ee0  c9 20 30 20 3a 0d 08 16  0d c8 8e 20 6e 65 78 74  |. 0 :...... next|
00000ef0  20 ca 0d 08 20 27 c9 20  30 20 3a 20 6e 65 78 74  | ... '. 0 : next|
00000f00  3d 31 3a f2 73 65 74 6e  65 78 74 28 6e 65 78 74  |=1:.setnext(next|
00000f10  29 3a f2 67 69 76 65 75  70 0d 08 2a 2a c9 20 31  |):.giveup..**. 1|
00000f20  20 3a 20 6e 65 78 74 3d  30 3a f2 73 65 74 6e 65  | : next=0:.setne|
00000f30  78 74 28 6e 65 78 74 29  3a f2 6e 65 78 74 62 6c  |xt(next):.nextbl|
00000f40  6f 63 6b 0d 08 34 2a c9  20 32 20 3a 20 6e 65 78  |ock..4*. 2 : nex|
00000f50  74 3d 30 3a f2 73 65 74  6e 65 78 74 28 6e 65 78  |t=0:.setnext(nex|
00000f60  74 29 3a f2 6e 65 78 74  62 6c 6f 63 6b 0d 08 3e  |t):.nextblock..>|
00000f70  05 cb 0d 08 48 05 cb 0d  08 52 05 e1 0d 08 5c 05  |....H....R....\.|
00000f80  3a 0d 08 66 14 dd f2 63  6c 69 63 6b 5f 6f 6e 5f  |:..f...click_on_|
00000f90  62 6f 61 72 64 0d 08 70  0f 6d 78 3d 62 6c 6f 63  |board..p.mx=bloc|
00000fa0  6b 25 21 30 0d 08 7a 1f  6d 79 3d 62 6c 6f 63 6b  |k%!0..z.my=block|
00000fb0  25 21 34 3a 62 6c 6f 63  6b 25 21 30 3d 62 6f 61  |%!4:block%!0=boa|
00000fc0  72 64 25 0d 08 84 24 c8  99 20 22 57 69 6d 70 5f  |rd%...$.. "Wimp_|
00000fd0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000fe0  2c 62 6c 6f 63 6b 25 0d  08 8e 1e 6d 78 3d 6d 78  |,block%....mx=mx|
00000ff0  2d 28 62 6c 6f 63 6b 25  21 34 2d 62 6c 6f 63 6b  |-(block%!4-block|
00001000  25 21 32 30 29 0d 08 98  1f 6d 79 3d 6d 79 2d 28  |%!20)....my=my-(|
00001010  62 6c 6f 63 6b 25 21 31  36 2d 62 6c 6f 63 6b 25  |block%!16-block%|
00001020  21 32 34 29 0d 08 a2 44  f4 20 49 46 20 6d 78 3d  |!24)...D. IF mx=|
00001030  6f 78 20 41 4e 44 20 6d  79 3d 6f 79 20 54 48 45  |ox AND my=oy THE|
00001040  4e 20 6f 78 3d 52 4e 44  28 31 30 30 29 3a 4f 53  |N ox=RND(100):OS|
00001050  43 4c 49 28 22 65 72 72  6f 72 20 6f 78 21 22 29  |CLI("error ox!")|
00001060  3a 45 4e 44 50 52 4f 43  0d 08 ac 1b 6d 78 3d a8  |:ENDPROC....mx=.|
00001070  28 6d 78 2f 33 32 29 3a  6d 79 3d a8 28 6d 79 2f  |(mx/32):my=.(my/|
00001080  33 32 29 0d 08 b6 12 67  78 3d 6d 78 3a 6d 78 3d  |32)....gx=mx:mx=|
00001090  6d 78 2a 33 32 0d 08 c0  12 67 79 3d 6d 79 3a 6d  |mx*32....gy=my:m|
000010a0  79 3d 6d 79 2a 33 32 0d  08 ca 2b e7 20 67 78 3c  |y=my*32...+. gx<|
000010b0  31 20 84 20 67 79 3c 31  20 84 20 67 78 3e 78 64  |1 . gy<1 . gx>xd|
000010c0  6d 2d 32 20 84 20 67 79  3e 79 64 6d 2d 32 20 8c  |m-2 . gy>ydm-2 .|
000010d0  20 e1 0d 08 d4 38 c8 99  20 22 4f 53 5f 53 70 72  | ....8.. "OS_Spr|
000010e0  69 74 65 4f 70 22 2c 26  31 33 43 2c 73 70 72 69  |iteOp",&13C,spri|
000010f0  74 65 73 25 2c 22 73 70  72 22 2c 30 20 b8 20 72  |tes%,"spr",0 . r|
00001100  30 2c 72 31 2c 72 32 2c  72 33 0d 08 de 07 e6 20  |0,r1,r2,r3..... |
00001110  37 0d 08 e8 15 c8 93 20  6d 78 2d 33 32 2c 6d 79  |7...... mx-32,my|
00001120  2d 33 32 2c 39 34 0d 08  f2 15 c8 93 20 6d 78 2d  |-32,94...... mx-|
00001130  33 30 2c 6d 79 2d 33 32  2c 39 34 0d 08 fc 20 c8  |30,my-32,94... .|
00001140  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00001150  72 30 2c 72 31 2c 72 32  2c 72 33 0d 09 06 04 0d  |r0,r1,r2,r3.....|
00001160  09 10 38 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  |..8.. "Wimp_Forc|
00001170  65 52 65 64 72 61 77 22  2c 62 6f 61 72 64 25 2c  |eRedraw",board%,|
00001180  6d 78 2d 33 32 2c 6d 79  2d 33 32 2c 6d 78 2b 39  |mx-32,my-32,mx+9|
00001190  36 2c 6d 79 2b 39 36 0d  09 1a 0f 6f 78 3d 6d 78  |6,my+96....ox=mx|
000011a0  3a 6f 79 3d 6d 79 0d 09  24 17 f2 63 68 65 63 6b  |:oy=my..$..check|
000011b0  73 71 75 61 72 65 28 67  78 2c 67 79 29 0d 09 2e  |square(gx,gy)...|
000011c0  05 e1 0d 09 38 05 3a 0d  09 42 28 dd f2 73 65 74  |....8.:..B(..set|
000011d0  69 63 6f 6e 74 65 78 74  28 77 68 25 2c 69 63 6f  |icontext(wh%,ico|
000011e0  6e 6e 75 6d 62 65 72 25  2c 74 65 78 74 24 29 0d  |nnumber%,text$).|
000011f0  09 4c 0f 21 62 6c 6f 63  6b 25 3d 77 68 25 0d 09  |.L.!block%=wh%..|
00001200  56 18 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 6e  |V.block%!4=iconn|
00001210  75 6d 62 65 72 25 0d 09  60 22 c8 99 20 22 57 69  |umber%..`".. "Wi|
00001220  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001230  2c 2c 62 6c 6f 63 6b 25  0d 09 6a 22 24 62 6c 6f  |,,block%..j"$blo|
00001240  63 6b 25 21 32 38 3d c0  74 65 78 74 24 2c 62 6c  |ck%!28=.text$,bl|
00001250  6f 63 6b 25 21 33 36 2d  31 29 0d 09 74 0e 62 6c  |ock%!36-1)..t.bl|
00001260  6f 63 6b 25 21 38 3d 30  0d 09 7e 1c 62 6c 6f 63  |ock%!8=0..~.bloc|
00001270  6b 25 21 31 32 3d 30 20  3a 20 f4 20 70 72 6f 62  |k%!12=0 : . prob|
00001280  61 62 6c 79 0d 09 88 22  c8 99 20 22 57 69 6d 70  |ably...".. "Wimp|
00001290  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000012a0  62 6c 6f 63 6b 25 0d 09  92 05 e1 0d 09 9c 05 3a  |block%.........:|
000012b0  0d 09 a6 0c dd f2 63 72  65 61 74 65 0d 09 b0 05  |......create....|
000012c0  3a 0d 09 ba 15 c8 99 20  22 48 6f 75 72 67 6c 61  |:...... "Hourgla|
000012d0  73 73 5f 4f 6e 22 0d 09  c4 05 3a 0d 09 ce 0a 78  |ss_On"....:....x|
000012e0  64 6d 3d 33 30 0d 09 d8  0a 79 64 6d 3d 32 30 0d  |dm=30....ydm=20.|
000012f0  09 e2 10 78 73 69 7a 65  3d 78 64 6d 2a 33 32 0d  |...xsize=xdm*32.|
00001300  09 ec 10 79 73 69 7a 65  3d 79 64 6d 2a 33 32 0d  |...ysize=ydm*32.|
00001310  09 f6 12 de 20 62 6f 61  72 64 28 33 31 2c 32 31  |.... board(31,21|
00001320  29 0d 0a 00 05 3a 0d 0a  0a 14 de 20 73 70 72 69  |)....:..... spri|
00001330  74 65 73 25 20 39 34 36  30 30 0d 0a 14 13 21 73  |tes% 94600....!s|
00001340  70 72 69 74 65 73 25 3d  39 34 36 30 30 0d 0a 1e  |prites%=94600...|
00001350  10 73 70 72 69 74 65 73  25 21 34 3d 30 0d 0a 28  |.sprites%!4=0..(|
00001360  11 73 70 72 69 74 65 73  25 21 38 3d 31 36 0d 0a  |.sprites%!8=16..|
00001370  32 12 73 70 72 69 74 65  73 25 21 31 32 3d 31 36  |2.sprites%!12=16|
00001380  0d 0a 3c 22 c8 99 20 22  4f 53 5f 53 70 72 69 74  |..<".. "OS_Sprit|
00001390  65 4f 70 22 2c 26 31 30  39 2c 73 70 72 69 74 65  |eOp",&109,sprite|
000013a0  73 25 0d 0a 46 43 c8 99  20 22 4f 53 5f 53 70 72  |s%..FC.. "OS_Spr|
000013b0  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 70 72 69  |iteOp",&10A,spri|
000013c0  74 65 73 25 2c 22 3c 6c  6f 63 61 74 65 24 64 69  |tes%,"<locate$di|
000013d0  72 3e 2e 53 70 72 69 74  65 73 22 3a f4 20 34 38  |r>.Sprites":. 48|
000013e0  30 2c 31 36 30 0d 0a 50  0f e3 20 61 3d 31 20 b8  |0,160..P.. a=1 .|
000013f0  20 31 35 39 0d 0a 5a 30  c8 99 20 22 4f 53 5f 53  | 159..Z0.. "OS_S|
00001400  70 72 69 74 65 4f 70 22  2c 26 31 31 46 2c 73 70  |priteOp",&11F,sp|
00001410  72 69 74 65 73 25 2c 22  73 70 72 22 2c 61 3a f4  |rites%,"spr",a:.|
00001420  20 72 6f 77 0d 0a 64 05  ed 0d 0a 6e 0f e3 20 61  | row..d....n.. a|
00001430  3d 31 20 b8 20 34 37 39  0d 0a 78 30 c8 99 20 22  |=1 . 479..x0.. "|
00001440  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00001450  44 2c 73 70 72 69 74 65  73 25 2c 22 73 70 72 22  |D,sprites%,"spr"|
00001460  2c 61 3a f4 20 63 6f 6c  0d 0a 82 05 ed 0d 0a 8c  |,a:. col........|
00001470  05 3a 0d 0a 96 4c c8 99  20 22 57 69 6d 70 5f 4c  |.:...L.. "Wimp_L|
00001480  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 62 6c  |oadTemplate",,bl|
00001490  6f 63 6b 25 2c 77 69 6e  64 6f 77 25 2c 77 69 6e  |ock%,window%,win|
000014a0  64 6f 77 65 6e 64 25 2c  2d 31 2c 22 62 6f 61 72  |dowend%,-1,"boar|
000014b0  64 22 20 b8 20 2c 2c 77  69 6e 64 6f 77 25 0d 0a  |d" . ,,window%..|
000014c0  a0 16 62 6c 6f 63 6b 25  21 36 34 3d 73 70 72 69  |..block%!64=spri|
000014d0  74 65 73 25 0d 0a aa 2b  c8 99 20 22 57 69 6d 70  |tes%...+.. "Wimp|
000014e0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000014f0  62 6c 6f 63 6b 25 20 b8  20 62 6f 61 72 64 25 0d  |block% . board%.|
00001500  0a b4 4b c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..K.. "Wimp_Load|
00001510  54 65 6d 70 6c 61 74 65  22 2c 2c 62 6c 6f 63 6b  |Template",,block|
00001520  25 2c 77 69 6e 64 6f 77  25 2c 77 69 6e 64 6f 77  |%,window%,window|
00001530  65 6e 64 25 2c 2d 31 2c  22 6d 61 69 6e 22 20 b8  |end%,-1,"main" .|
00001540  20 2c 2c 77 69 6e 64 6f  77 25 0d 0a be 16 62 6c  | ,,window%....bl|
00001550  6f 63 6b 25 21 36 34 3d  73 70 72 69 74 65 73 25  |ock%!64=sprites%|
00001560  0d 0a c8 2a c8 99 20 22  57 69 6d 70 5f 43 72 65  |...*.. "Wimp_Cre|
00001570  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
00001580  6b 25 20 b8 20 6d 61 69  6e 25 0d 0a d2 4b c8 99  |k% . main%...K..|
00001590  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000015a0  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2c 77 69 6e  |ate",,block%,win|
000015b0  64 6f 77 25 2c 77 69 6e  64 6f 77 65 6e 64 25 2c  |dow%,windowend%,|
000015c0  2d 31 2c 22 6e 65 77 77  22 20 b8 20 2c 2c 77 69  |-1,"neww" . ,,wi|
000015d0  6e 64 6f 77 25 0d 0a dc  16 62 6c 6f 63 6b 25 21  |ndow%....block%!|
000015e0  36 34 3d 73 70 72 69 74  65 73 25 0d 0a e6 2a c8  |64=sprites%...*.|
000015f0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00001600  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00001610  6e 65 77 77 25 0d 0a f0  05 3a 0d 0a fa 18 c8 99  |neww%....:......|
00001620  20 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  | "Hourglass_Smas|
00001630  68 22 0d 0b 04 0d f2 69  6e 69 74 67 61 6d 65 0d  |h".....initgame.|
00001640  0b 0e 05 3a 0d 0b 18 13  62 6c 6f 63 6b 25 21 30  |...:....block%!0|
00001650  3d 62 6f 61 72 64 25 0d  0b 22 12 62 6c 6f 63 6b  |=board%..".block|
00001660  25 21 34 3d 69 63 6f 6e  25 0d 0b 2c 1f c8 99 22  |%!4=icon%..,..."|
00001670  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
00001680  2c 2c 62 6c 6f 63 6b 25  0d 0b 36 12 21 62 6c 6f  |,,block%..6.!blo|
00001690  63 6b 25 3d 62 6f 61 72  64 25 0d 0b 40 0e 62 6c  |ck%=board%..@.bl|
000016a0  6f 63 6b 25 21 34 3d 30  0d 0b 4a 0e 62 6c 6f 63  |ock%!4=0..J.bloc|
000016b0  6b 25 21 38 3d 30 0d 0b  54 13 62 6c 6f 63 6b 25  |k%!8=0..T.block%|
000016c0  21 31 32 3d 78 73 69 7a  65 0d 0b 5e 13 62 6c 6f  |!12=xsize..^.blo|
000016d0  63 6b 25 21 31 36 3d 79  73 69 7a 65 0d 0b 68 2f  |ck%!16=ysize..h/|
000016e0  62 6c 6f 63 6b 25 21 32  30 3d 25 31 31 30 30 30  |block%!20=%11000|
000016f0  31 31 31 30 30 30 30 30  30 30 30 30 31 31 30 30  |1110000000001100|
00001700  30 30 30 30 30 30 30 30  30 31 30 0d 0b 72 16 24  |00000000010..r.$|
00001710  28 62 6c 6f 63 6b 25 2b  32 34 29 3d 22 73 70 72  |(block%+24)="spr|
00001720  22 0d 0b 7c 25 c8 99 22  57 69 6d 70 5f 43 72 65  |"..|%.."Wimp_Cre|
00001730  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |ateIcon",,block%|
00001740  b8 69 63 6f 6e 25 0d 0b  86 05 3a 0d 0b 90 11 21  |.icon%....:....!|
00001750  62 6c 6f 63 6b 25 3d 6d  61 69 6e 25 0d 0b 9a 0f  |block%=main%....|
00001760  62 6c 6f 63 6b 25 21 34  3d 31 30 0d 0b a4 11 62  |block%!4=10....b|
00001770  6c 6f 63 6b 25 21 38 3d  2d 31 32 30 0d 0b ae 11  |lock%!8=-120....|
00001780  62 6c 6f 63 6b 25 21 31  32 3d 31 35 30 0d 0b b8  |block%!12=150...|
00001790  11 62 6c 6f 63 6b 25 21  31 36 3d 2d 32 30 0d 0b  |.block%!16=-20..|
000017a0  c2 17 62 6c 6f 63 6b 25  21 32 30 3d 26 43 37 30  |..block%!20=&C70|
000017b0  30 36 30 31 41 0d 0b cc  19 24 28 62 6c 6f 63 6b  |0601A....$(block|
000017c0  25 2b 32 34 29 3d 22 73  71 75 61 72 65 22 0d 0b  |%+24)="square"..|
000017d0  d6 27 c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |.'.."Wimp_Create|
000017e0  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 25 b8 73 71  |Icon",,block%.sq|
000017f0  75 61 72 65 25 0d 0b e0  13 f4 20 50 52 4f 43 6e  |uare%..... PROCn|
00001800  78 3a 50 52 4f 43 6e 79  0d 0b ea 05 3a 0d 0b f4  |x:PROCny....:...|
00001810  05 e1 0d 0b fe 05 3a 0d  0c 08 0e dd f2 69 6e 69  |......:......ini|
00001820  74 67 61 6d 65 0d 0c 12  05 3a 0d 0c 1c 4a 73 65  |tgame....:...Jse|
00001830  6c 65 63 74 3d 63 6f 6c  73 28 31 29 2b 63 6f 6c  |lect=cols(1)+col|
00001840  73 28 32 29 2b 63 6f 6c  73 28 33 29 2b 63 6f 6c  |s(2)+cols(3)+col|
00001850  73 28 34 29 2b 63 6f 6c  73 28 35 29 2b 63 6f 6c  |s(4)+cols(5)+col|
00001860  73 28 36 29 2b 63 6f 6c  73 28 37 29 2b 63 6f 6c  |s(6)+cols(7)+col|
00001870  73 28 38 29 0d 0c 26 5d  e7 20 73 65 6c 65 63 74  |s(8)..&]. select|
00001880  3d 30 20 8c 20 63 6f 6c  73 28 31 29 3d 31 3a 73  |=0 . cols(1)=1:s|
00001890  65 6c 65 63 74 3d 31 3a  f2 69 6e 66 6f 72 6d 28  |elect=1:.inform(|
000018a0  22 59 6f 75 20 68 61 76  65 20 74 6f 20 68 61 76  |"You have to hav|
000018b0  65 20 61 74 20 6c 65 61  73 74 20 6f 6e 65 20 63  |e at least one c|
000018c0  6f 6c 6f 75 72 20 73 65  6c 65 63 74 65 64 21 22  |olour selected!"|
000018d0  29 0d 0c 30 05 3a 0d 0c  3a 0d 63 6f 75 6e 74 65  |)..0.:..:.counte|
000018e0  72 3d 30 0d 0c 44 05 3a  0d 0c 4e 12 e3 20 65 3d  |r=0..D.:..N.. e=|
000018f0  31 20 b8 20 73 65 6c 65  63 74 0d 0c 58 05 f5 0d  |1 . select..X...|
00001900  0c 62 15 63 6f 75 6e 74  65 72 3d 63 6f 75 6e 74  |.b.counter=count|
00001910  65 72 2b 31 0d 0c 6c 13  71 75 69 6b 28 65 29 3d  |er+1..l.quik(e)=|
00001920  63 6f 75 6e 74 65 72 0d  0c 76 21 fd 20 63 6f 6c  |counter..v!. col|
00001930  73 28 63 6f 75 6e 74 65  72 29 3d 31 20 84 20 63  |s(counter)=1 . c|
00001940  6f 75 6e 74 65 72 3d 39  0d 0c 80 05 ed 0d 0c 8a  |ounter=9........|
00001950  05 3a 0d 0c 94 13 71 75  69 6b 28 30 29 3d 71 75  |.:....quik(0)=qu|
00001960  69 6b 28 31 29 0d 0c 9e  05 3a 0d 0c a8 38 c8 99  |ik(1)....:...8..|
00001970  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00001980  31 33 43 2c 73 70 72 69  74 65 73 25 2c 22 73 70  |13C,sprites%,"sp|
00001990  72 22 2c 30 20 b8 20 72  30 2c 72 31 2c 72 32 2c  |r",0 . r0,r1,r2,|
000019a0  72 33 0d 0c b2 3a e3 20  61 3d 30 20 b8 20 78 64  |r3...:. a=0 . xd|
000019b0  6d 3a e3 20 62 3d 30 20  b8 20 79 64 6d 3a 72 3d  |m:. b=0 . ydm:r=|
000019c0  b3 28 73 65 6c 65 63 74  29 3a 62 6f 61 72 64 28  |.(select):board(|
000019d0  61 2c 62 29 3d 71 75 69  6b 28 72 29 0d 0c bc 0f  |a,b)=quik(r)....|
000019e0  e6 20 71 75 69 6b 28 72  29 2b 37 0d 0c c6 19 c8  |. quik(r)+7.....|
000019f0  93 20 c8 90 20 61 2a 33  32 2c 62 2a 33 32 2c 33  |. .. a*32,b*32,3|
00001a00  30 2c 32 38 0d 0c d0 06  ed 2c 0d 0c da 20 c8 99  |0,28.....,... ..|
00001a10  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 72  | "OS_SpriteOp",r|
00001a20  30 2c 72 31 2c 72 32 2c  72 33 0d 0c e4 05 3a 0d  |0,r1,r2,r3....:.|
00001a30  0c ee 0e 62 6c 6f 63 6b  25 21 30 3d 30 0d 0c f8  |...block%!0=0...|
00001a40  0e 62 6c 6f 63 6b 25 21  34 3d 30 0d 0d 02 12 62  |.block%!4=0....b|
00001a50  6c 6f 63 6b 25 21 38 3d  78 73 69 7a 65 0d 0d 0c  |lock%!8=xsize...|
00001a60  13 62 6c 6f 63 6b 25 21  31 32 3d 79 73 69 7a 65  |.block%!12=ysize|
00001a70  0d 0d 16 25 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...%.. "Wimp_Set|
00001a80  45 78 74 65 6e 74 22 2c  62 6f 61 72 64 25 2c 62  |Extent",board%,b|
00001a90  6c 6f 63 6b 25 0d 0d 20  0c 73 74 61 72 74 25 3d  |lock%.. .start%=|
00001aa0  b9 0d 0d 2a 0e f2 6e 65  78 74 62 6c 6f 63 6b 0d  |...*..nextblock.|
00001ab0  0d 34 05 3a 0d 0d 3e 05  e1 0d 0d 48 05 3a 0d 0d  |.4.:..>....H.:..|
00001ac0  52 0f dd f2 6e 65 78 74  62 6c 6f 63 6b 0d 0d 5c  |R...nextblock..\|
00001ad0  11 78 70 6f 73 3d b3 28  78 64 6d 2d 32 29 0d 0d  |.xpos=.(xdm-2)..|
00001ae0  66 11 79 70 6f 73 3d b3  28 79 64 6d 2d 32 29 0d  |f.ypos=.(ydm-2).|
00001af0  0d 70 14 e7 20 78 64 6d  3d 33 20 8c 20 78 70 6f  |.p.. xdm=3 . xpo|
00001b00  73 3d 31 0d 0d 7a 14 e7  20 79 64 6d 3d 33 20 8c  |s=1..z.. ydm=3 .|
00001b10  20 79 70 6f 73 3d 31 0d  0d 84 3b c8 99 20 22 4f  | ypos=1...;.. "O|
00001b20  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00001b30  2c 73 70 72 69 74 65 73  25 2c 22 73 71 75 61 72  |,sprites%,"squar|
00001b40  65 22 2c 30 20 b8 20 72  30 2c 72 31 2c 72 32 2c  |e",0 . r0,r1,r2,|
00001b50  72 33 0d 0d 8e 0e e3 20  61 3d 2d 31 20 b8 20 31  |r3..... a=-1 . 1|
00001b60  0d 0d 98 0e e3 20 62 3d  2d 31 20 b8 20 31 0d 0d  |..... b=-1 . 1..|
00001b70  a2 1c e6 20 62 6f 61 72  64 28 61 2b 78 70 6f 73  |... board(a+xpos|
00001b80  2c 62 2b 79 70 6f 73 29  2b 37 0d 0d ac 14 e7 20  |,b+ypos)+7..... |
00001b90  73 74 61 72 74 25 3d b9  20 8c 20 e6 20 31 0d 0d  |start%=. . . 1..|
00001ba0  b6 1f c8 93 20 c8 90 20  61 2a 33 32 2b 33 32 2c  |.... .. a*32+32,|
00001bb0  62 2a 33 32 2b 33 32 2c  33 30 2c 32 38 0d 0d c0  |b*32+32,30,28...|
00001bc0  06 ed 2c 0d 0d ca 20 c8  99 20 22 4f 53 5f 53 70  |..,... .. "OS_Sp|
00001bd0  72 69 74 65 4f 70 22 2c  72 30 2c 72 31 2c 72 32  |riteOp",r0,r1,r2|
00001be0  2c 72 33 0d 0d d4 05 3a  0d 0d de 38 c8 99 20 22  |,r3....:...8.. "|
00001bf0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00001c00  43 2c 73 70 72 69 74 65  73 25 2c 22 73 70 72 22  |C,sprites%,"spr"|
00001c10  2c 30 20 b8 20 72 30 2c  72 31 2c 72 32 2c 72 33  |,0 . r0,r1,r2,r3|
00001c20  0d 0d e8 0f e3 20 61 3d  30 20 b8 20 78 64 6d 0d  |..... a=0 . xdm.|
00001c30  0d f2 0f e3 20 62 3d 30  20 b8 20 79 64 6d 0d 0d  |.... b=0 . ydm..|
00001c40  fc 12 e6 20 62 6f 61 72  64 28 61 2c 62 29 2b 37  |... board(a,b)+7|
00001c50  0d 0e 06 19 c8 93 20 c8  90 20 61 2a 33 32 2c 62  |...... .. a*32,b|
00001c60  2a 33 32 2c 33 30 2c 32  38 0d 0e 10 06 ed 2c 0d  |*32,30,28.....,.|
00001c70  0e 1a 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.. .. "OS_Sprite|
00001c80  4f 70 22 2c 72 30 2c 72  31 2c 72 32 2c 72 33 0d  |Op",r0,r1,r2,r3.|
00001c90  0e 24 05 3a 0d 0e 2e 24  f2 73 65 74 69 63 6f 6e  |.$.:...$.seticon|
00001ca0  74 65 78 74 28 6d 61 69  6e 25 2c 31 2c 22 46 69  |text(main%,1,"Fi|
00001cb0  6e 64 20 69 74 21 22 29  0d 0e 38 05 3a 0d 0e 42  |nd it!")..8.:..B|
00001cc0  30 c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |0.. "Wimp_ForceR|
00001cd0  65 64 72 61 77 22 2c 62  6f 61 72 64 25 2c 30 2c  |edraw",board%,0,|
00001ce0  30 2c 78 73 69 7a 65 2c  79 73 69 7a 65 0d 0e 4c  |0,xsize,ysize..L|
00001cf0  2c c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |,.. "Wimp_ForceR|
00001d00  65 64 72 61 77 22 2c 6d  61 69 6e 25 2c 30 2c 2d  |edraw",main%,0,-|
00001d10  32 34 30 2c 33 36 30 2c  30 0d 0e 56 05 3a 0d 0e  |240,360,0..V.:..|
00001d20  60 0c 73 74 61 72 74 25  3d 30 0d 0e 6a 05 e1 0d  |`.start%=0..j...|
00001d30  0e 74 05 3a 0d 0e 7e 16  dd f2 63 68 65 63 6b 73  |.t.:..~...checks|
00001d40  71 75 61 72 65 28 61 2c  62 29 0d 0e 88 13 f5 3a  |quare(a,b).....:|
00001d50  c8 97 20 78 2c 79 2c 7a  3a fd 7a 3d 30 0d 0e 92  |.. x,y,z:.z=0...|
00001d60  0b 74 72 75 65 3d 2d 31  0d 0e 9c 05 3a 0d 0e a6  |.true=-1....:...|
00001d70  0e e3 20 78 3d 2d 31 20  b8 20 31 0d 0e b0 0e e3  |.. x=-1 . 1.....|
00001d80  20 79 3d 2d 31 20 b8 20  31 0d 0e ba 33 e7 20 62  | y=-1 . 1...3. b|
00001d90  6f 61 72 64 28 78 70 6f  73 2b 78 2c 79 70 6f 73  |oard(xpos+x,ypos|
00001da0  2b 79 29 3c 3e 62 6f 61  72 64 28 61 2b 78 2c 62  |+y)<>board(a+x,b|
00001db0  2b 79 29 20 8c 20 74 72  75 65 3d 30 0d 0e c4 06  |+y) . true=0....|
00001dc0  ed 2c 0d 0e ce 05 3a 0d  0e d8 1b e7 20 74 72 75  |.,....:..... tru|
00001dd0  65 20 8c 20 f2 74 72 75  65 20 8b 20 f2 77 72 6f  |e . .true . .wro|
00001de0  6e 67 0d 0e e2 05 e1 0d  0e ec 05 3a 0d 0e f6 0a  |ng.........:....|
00001df0  dd f2 74 72 75 65 0d 0f  00 16 73 63 6f 72 65 24  |..true....score$|
00001e00  3d 22 80 20 52 69 67 68  74 20 80 22 0d 0f 0a 20  |=". Right ."... |
00001e10  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 6d 61 69  |.seticontext(mai|
00001e20  6e 25 2c 31 2c 73 63 6f  72 65 24 29 0d 0f 14 19  |n%,1,score$)....|
00001e30  6e 65 78 74 3d 31 3a f2  73 65 74 6e 65 78 74 28  |next=1:.setnext(|
00001e40  6e 65 78 74 29 0d 0f 1e  1c f5 3a c8 97 20 78 2c  |next).....:.. x,|
00001e50  79 2c 7a 3a fd 7a 3d 30  3a c8 96 3a c8 96 3a c8  |y,z:.z=0:..:..:.|
00001e60  96 0d 0f 28 07 74 3d 91  0d 0f 32 10 d4 31 2c 2d  |...(.t=...2..1,-|
00001e70  31 30 2c 31 35 30 2c 32  0d 0f 3c 05 e1 0d 0f 46  |10,150,2..<....F|
00001e80  05 3a 0d 0f 50 0b dd f2  77 72 6f 6e 67 0d 0f 5a  |.:..P...wrong..Z|
00001e90  16 73 63 6f 72 65 24 3d  22 78 20 57 72 6f 6e 67  |.score$="x Wrong|
00001ea0  20 78 22 0d 0f 64 20 f2  73 65 74 69 63 6f 6e 74  | x"..d .seticont|
00001eb0  65 78 74 28 6d 61 69 6e  25 2c 31 2c 73 63 6f 72  |ext(main%,1,scor|
00001ec0  65 24 29 0d 0f 6e 10 d4  20 31 2c 2d 31 30 2c 32  |e$)..n.. 1,-10,2|
00001ed0  30 2c 37 0d 0f 78 05 e1  0d 0f 82 05 3a 0d 0f 8c  |0,7..x......:...|
00001ee0  13 dd f2 73 65 74 6e 65  78 74 28 6e 65 78 74 29  |...setnext(next)|
00001ef0  0d 0f 96 0d c8 8e 20 6e  65 78 74 20 ca 0d 0f a0  |...... next ....|
00001f00  31 c9 20 30 20 3a 20 f2  73 65 74 69 63 6f 6e 74  |1. 0 : .seticont|
00001f10  65 78 74 28 6d 61 69 6e  25 2c 30 2c 22 47 69 76  |ext(main%,0,"Giv|
00001f20  65 20 55 70 22 29 3a 74  69 6d 65 3d 2d 31 0d 0f  |e Up"):time=-1..|
00001f30  aa 2e c9 20 31 20 3a 20  f2 73 65 74 69 63 6f 6e  |... 1 : .seticon|
00001f40  74 65 78 74 28 6d 61 69  6e 25 2c 30 2c 22 4e 65  |text(main%,0,"Ne|
00001f50  78 74 22 29 3a 74 69 6d  65 3d 2d 32 0d 0f b4 32  |xt"):time=-2...2|
00001f60  c9 20 32 20 3a 20 f2 73  65 74 69 63 6f 6e 74 65  |. 2 : .seticonte|
00001f70  78 74 28 6d 61 69 6e 25  2c 30 2c 22 4e 65 77 20  |xt(main%,0,"New |
00001f80  47 61 6d 65 22 29 3a 74  69 6d 65 3d 2d 33 0d 0f  |Game"):time=-3..|
00001f90  be 05 cb 0d 0f c8 05 e1  0d 0f d2 05 3a 0d 0f dc  |............:...|
00001fa0  0f dd f2 6d 61 6b 65 5f  6d 65 6e 75 0d 0f e6 05  |...make_menu....|
00001fb0  3a 0d 0f f0 14 f2 69 6e  69 74 28 22 21 4c 6f 63  |:.....init("!Loc|
00001fc0  61 74 65 22 29 0d 0f fa  05 3a 0d 10 04 1a f2 69  |ate")....:.....i|
00001fd0  74 65 6d 28 22 49 6e 66  6f 22 2c 25 30 2c 69 6e  |tem("Info",%0,in|
00001fe0  66 6f 25 29 0d 10 0e 1f  f2 69 74 65 6d 28 22 4e  |fo%).....item("N|
00001ff0  65 77 20 62 6f 61 72 64  22 2c 25 30 2c 6e 65 77  |ew board",%0,new|
00002000  77 25 29 0d 10 18 1e f2  69 74 65 6d 28 22 51 75  |w%).....item("Qu|
00002010  69 74 22 2c 25 31 30 30  30 30 30 30 30 2c 2d 31  |it",%10000000,-1|
00002020  29 0d 10 22 05 3a 0d 10  2c 05 e1 0d 10 36 05 3a  |)..".:..,....6.:|
00002030  0d 10 40 12 dd f2 69 6e  69 74 28 74 69 74 6c 65  |..@...init(title|
00002040  24 29 0d 10 4a 0f 6c 65  6e 3d a9 74 69 74 6c 65  |$)..J.len=.title|
00002050  24 0d 10 54 11 24 6d 65  6e 75 73 3d 74 69 74 6c  |$..T.$menus=titl|
00002060  65 24 0d 10 5e 0e 6d 65  6e 75 73 3f 31 32 3d 37  |e$..^.menus?12=7|
00002070  0d 10 68 0e 6d 65 6e 75  73 3f 31 33 3d 32 0d 10  |..h.menus?13=2..|
00002080  72 0e 6d 65 6e 75 73 3f  31 34 3d 37 0d 10 7c 0e  |r.menus?14=7..|.|
00002090  6d 65 6e 75 73 3f 31 35  3d 30 0d 10 86 15 6d 65  |menus?15=0....me|
000020a0  6e 75 73 21 31 36 3d 28  6c 65 6e 29 2a 31 36 0d  |nus!16=(len)*16.|
000020b0  10 90 0f 6d 65 6e 75 73  21 32 30 3d 34 30 0d 10  |...menus!20=40..|
000020c0  9a 0e 6d 65 6e 75 73 21  32 34 3d 30 0d 10 a4 0e  |..menus!24=0....|
000020d0  70 3d 6d 65 6e 75 73 2b  32 38 0d 10 ae 05 e1 0d  |p=menus+28......|
000020e0  10 b8 05 3a 0d 10 c2 1e  dd f2 69 74 65 6d 28 74  |...:......item(t|
000020f0  65 78 74 24 2c 66 6c 61  67 73 25 2c 6c 69 6e 6b  |ext$,flags%,link|
00002100  25 29 0d 10 cc 3e 70 21  30 3d 66 6c 61 67 73 25  |%)...>p!0=flags%|
00002110  80 32 35 35 3a 70 21 34  3d 6c 69 6e 6b 25 3a 70  |.255:p!4=link%:p|
00002120  21 38 3d 26 30 37 30 30  30 30 32 31 3a 24 28 70  |!8=&07000021:$(p|
00002130  2b 31 32 29 3d 74 65 78  74 24 3a 70 2b 3d 32 34  |+12)=text$:p+=24|
00002140  0d 10 d6 32 e7 20 a9 74  65 78 74 24 3e 6c 65 6e  |...2. .text$>len|
00002150  20 8c 20 6c 65 6e 3d a9  74 65 78 74 24 3a 20 6d  | . len=.text$: m|
00002160  65 6e 75 73 21 31 36 3d  28 6c 65 6e 2b 31 29 2a  |enus!16=(len+1)*|
00002170  31 36 0d 10 e0 05 e1 0d  10 ea 05 3a 0d 10 f4 21  |16.........:...!|
00002180  dd f2 63 72 65 61 74 65  6d 65 6e 75 28 6d 6f 75  |..createmenu(mou|
00002190  73 65 78 25 2c 6d 6f 75  73 65 79 25 29 0d 10 fe  |sex%,mousey%)...|
000021a0  05 3a 0d 11 08 3d c8 99  20 22 57 69 6d 70 5f 43  |.:...=.. "Wimp_C|
000021b0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
000021c0  73 2c 6d 6f 75 73 65 78  25 2d 38 30 2c 6d 6f 75  |s,mousex%-80,mou|
000021d0  73 65 79 25 2b 34 38 2b  73 69 7a 65 2a 33 36 0d  |sey%+48+size*36.|
000021e0  11 12 05 e1 0d 11 1c 05  3a 0d 11 26 21 dd a4 69  |........:..&!..i|
000021f0  73 69 74 73 65 6c 65 63  74 65 64 28 77 69 6e 64  |sitselected(wind|
00002200  6f 77 25 2c 69 63 6f 6e  25 29 0d 11 30 14 62 6c  |ow%,icon%)..0.bl|
00002210  6f 63 6b 25 21 30 3d 77  69 6e 64 6f 77 25 0d 11  |ock%!0=window%..|
00002220  3a 12 62 6c 6f 63 6b 25  21 34 3d 69 63 6f 6e 25  |:.block%!4=icon%|
00002230  0d 11 44 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..D".. "Wimp_Get|
00002240  49 63 6f 6e 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |IconState",,bloc|
00002250  6b 25 0d 11 4e 24 e7 20  28 62 6c 6f 63 6b 25 21  |k%..N$. (block%!|
00002260  32 34 20 80 20 32 5e 32  31 29 3d 30 20 8c 20 3d  |24 . 2^21)=0 . =|
00002270  31 20 8b 20 3d 30 0d 11  58 05 3a 0d 11 62 10 dd  |1 . =0..X.:..b..|
00002280  f2 72 65 61 64 72 61 64  69 6f 73 0d 11 6c 0d e3  |.readradios..l..|
00002290  20 61 3d 31 20 b8 20 38  0d 11 76 25 63 6f 6c 73  | a=1 . 8..v%cols|
000022a0  28 61 29 3d a4 69 73 69  74 73 65 6c 65 63 74 65  |(a)=.isitselecte|
000022b0  64 28 6e 65 77 77 25 2c  61 2b 31 37 29 0d 11 80  |d(neww%,a+17)...|
000022c0  05 ed 0d 11 8a 05 e1 0d  11 94 05 3a 0d 11 9e 13  |...........:....|
000022d0  dd 20 f2 6e 65 77 62 6f  61 72 64 69 6e 69 74 0d  |. .newboardinit.|
000022e0  11 a8 05 3a 0d 11 b2 0b  78 64 6d 3d 65 78 73 0d  |...:....xdm=exs.|
000022f0  11 bc 0b 79 64 6d 3d 65  79 73 0d 11 c6 10 78 73  |...ydm=eys....xs|
00002300  69 7a 65 3d 78 64 6d 2a  33 32 0d 11 d0 10 79 73  |ize=xdm*32....ys|
00002310  69 7a 65 3d 79 64 6d 2a  33 32 0d 11 da 12 62 6c  |ize=ydm*32....bl|
00002320  6f 63 6b 25 21 30 3d 6e  65 77 77 25 0d 11 e4 21  |ock%!0=neww%...!|
00002330  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00002340  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 11 ee  |ndow",,block%...|
00002350  0f f2 72 65 61 64 72 61  64 69 6f 73 0d 11 f8 23  |..readradios...#|
00002360  f2 69 6e 69 74 67 61 6d  65 3a 6e 65 78 74 3d 32  |.initgame:next=2|
00002370  3a f2 73 65 74 6e 65 78  74 28 6e 65 78 74 29 0d  |:.setnext(next).|
00002380  12 02 13 62 6c 6f 63 6b  25 21 30 3d 62 6f 61 72  |...block%!0=boar|
00002390  64 25 0d 12 0c 21 c8 99  20 22 57 69 6d 70 5f 43  |d%...!.. "Wimp_C|
000023a0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |loseWindow",,blo|
000023b0  63 6b 25 0d 12 16 17 f2  6f 70 65 6e 77 69 6e 64  |ck%.....openwind|
000023c0  6f 77 28 62 6f 61 72 64  25 29 0d 12 20 05 3a 0d  |ow(board%).. .:.|
000023d0  12 2a 16 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 6d  |.*..openwindow(m|
000023e0  61 69 6e 25 29 0d 12 34  05 3a 0d 12 3e 05 e1 0d  |ain%)..4.:..>...|
000023f0  12 48 04 0d 12 52 0c dd  f2 67 69 76 65 75 70 0d  |.H...R...giveup.|
00002400  12 5c 13 6d 78 3d 78 70  6f 73 3a 6d 79 3d 79 70  |.\.mx=xpos:my=yp|
00002410  6f 73 0d 12 66 0c 6d 78  3d 6d 78 2a 33 32 0d 12  |os..f.mx=mx*32..|
00002420  70 0c 6d 79 3d 6d 79 2a  33 32 0d 12 7a 38 c8 99  |p.my=my*32..z8..|
00002430  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00002440  31 33 43 2c 73 70 72 69  74 65 73 25 2c 22 73 70  |13C,sprites%,"sp|
00002450  72 22 2c 30 20 b8 20 72  30 2c 72 31 2c 72 32 2c  |r",0 . r0,r1,r2,|
00002460  72 33 0d 12 84 08 e6 20  31 35 0d 12 8e 15 c8 93  |r3..... 15......|
00002470  20 6d 78 2d 33 32 2c 6d  79 2d 33 32 2c 39 34 0d  | mx-32,my-32,94.|
00002480  12 98 15 c8 93 20 6d 78  2d 33 30 2c 6d 79 2d 33  |..... mx-30,my-3|
00002490  32 2c 39 34 0d 12 a2 20  c8 99 20 22 4f 53 5f 53  |2,94... .. "OS_S|
000024a0  70 72 69 74 65 4f 70 22  2c 72 30 2c 72 31 2c 72  |priteOp",r0,r1,r|
000024b0  32 2c 72 33 0d 12 ac 38  c8 99 20 22 57 69 6d 70  |2,r3...8.. "Wimp|
000024c0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 62 6f  |_ForceRedraw",bo|
000024d0  61 72 64 25 2c 6d 78 2d  33 32 2c 6d 79 2d 33 32  |ard%,mx-32,my-32|
000024e0  2c 6d 78 2b 39 36 2c 6d  79 2b 39 36 0d 12 b6 05  |,mx+96,my+96....|
000024f0  e1 0d 12 c0 05 3a 0d 12  ca 13 f4 20 50 52 4f 43  |.....:..... PROC|
00002500  6e 78 2c 50 52 4f 43 6e  79 0d 12 d4 17 dd 20 f2  |nx,PROCny..... .|
00002510  6e 65 77 5f 62 6f 61 72  64 5f 77 69 6e 64 6f 77  |new_board_window|
00002520  0d 12 de 05 3a 0d 12 e8  0e c8 8e 20 69 63 6f 6e  |....:...... icon|
00002530  25 20 ca 0d 12 f2 17 c9  20 30 20 3a 20 f2 6e 65  |% ...... 0 : .ne|
00002540  77 62 6f 61 72 64 69 6e  69 74 0d 12 fc 20 c9 20  |wboardinit... . |
00002550  32 20 3a 20 65 79 73 2d  3d 31 3a e7 20 65 79 73  |2 : eys-=1:. eys|
00002560  3c 34 20 8c 20 65 79 73  3d 34 0d 13 06 1e f2 73  |<4 . eys=4.....s|
00002570  65 74 69 63 6f 6e 74 65  78 74 28 6e 65 77 77 25  |eticontext(neww%|
00002580  2c 37 2c c3 65 79 73 29  0d 13 10 20 c9 20 33 20  |,7,.eys)... . 3 |
00002590  3a 20 65 78 73 2d 3d 31  3a e7 20 65 78 73 3c 36  |: exs-=1:. exs<6|
000025a0  20 8c 20 65 78 73 3d 36  0d 13 1a 1e f2 73 65 74  | . exs=6.....set|
000025b0  69 63 6f 6e 74 65 78 74  28 6e 65 77 77 25 2c 36  |icontext(neww%,6|
000025c0  2c c3 65 78 73 29 0d 13  24 22 c9 20 34 20 3a 20  |,.exs)..$". 4 : |
000025d0  65 79 73 2b 3d 31 3a e7  20 65 79 73 3e 32 30 20  |eys+=1:. eys>20 |
000025e0  8c 20 65 79 73 3d 32 30  0d 13 2e 1e f2 73 65 74  |. eys=20.....set|
000025f0  69 63 6f 6e 74 65 78 74  28 6e 65 77 77 25 2c 37  |icontext(neww%,7|
00002600  2c c3 65 79 73 29 0d 13  38 22 c9 20 35 20 3a 20  |,.eys)..8". 5 : |
00002610  65 78 73 2b 3d 31 3a e7  20 65 78 73 3e 33 30 20  |exs+=1:. exs>30 |
00002620  8c 20 65 78 73 3d 33 30  0d 13 42 1e f2 73 65 74  |. exs=30..B..set|
00002630  69 63 6f 6e 74 65 78 74  28 6e 65 77 77 25 2c 36  |icontext(neww%,6|
00002640  2c c3 65 78 73 29 0d 13  4c 05 cb 0d 13 56 05 e1  |,.exs)..L....V..|
00002650  0d 13 60 05 3a 0d 13 6a  0e dd 20 f2 6e 65 77 74  |..`.:..j.. .newt|
00002660  69 6d 65 0d 13 74 07 74  3d 91 0d 13 7e 1c e7 20  |ime..t.t=...~.. |
00002670  74 69 6d 65 3e 3d 2d 31  20 8c 20 74 69 6d 65 3d  |time>=-1 . time=|
00002680  74 69 6d 65 2b 31 0d 13  88 35 e7 20 74 69 6d 65  |time+1...5. time|
00002690  3e 3d 2d 31 20 8c 20 f2  73 65 74 69 63 6f 6e 74  |>=-1 . .seticont|
000026a0  65 78 74 28 6d 61 69 6e  25 2c 34 2c c2 22 30 30  |ext(main%,4,."00|
000026b0  22 2b c3 74 69 6d 65 2c  33 29 29 0d 13 92 2b e7  |"+.time,3))...+.|
000026c0  20 74 69 6d 65 3d 2d 33  20 8c 20 f2 73 65 74 69  | time=-3 . .seti|
000026d0  63 6f 6e 74 65 78 74 28  6d 61 69 6e 25 2c 34 2c  |context(main%,4,|
000026e0  22 2d 2d 2d 22 29 0d 13  9c 05 e1 0d 13 a6 05 3a  |"---").........:|
000026f0  0d 13 b0 11 dd 20 f2 62  65 5f 68 65 6c 70 66 75  |..... .be_helpfu|
00002700  6c 0d 13 ba 0e 66 3d 62  6c 6f 63 6b 25 21 38 0d  |l....f=block%!8.|
00002710  13 c4 0e 67 3d 62 6c 6f  63 6b 25 21 34 0d 13 ce  |...g=block%!4...|
00002720  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00002730  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00002740  25 0d 13 d8 15 77 69 6e  64 6f 77 25 3d 62 6c 6f  |%....window%=blo|
00002750  63 6b 25 21 31 32 0d 13  e2 13 69 63 6f 6e 25 3d  |ck%!12....icon%=|
00002760  62 6c 6f 63 6b 25 21 31  36 0d 13 ec 10 c8 8e 20  |block%!16...... |
00002770  77 69 6e 64 6f 77 25 20  ca 0d 13 f6 62 c9 20 6d  |window% ....b. m|
00002780  61 69 6e 25 20 3a 20 f2  68 65 6c 70 28 22 54 68  |ain% : .help("Th|
00002790  69 73 20 69 73 20 74 68  65 20 73 74 61 74 75 73  |is is the status|
000027a0  20 77 69 6e 64 6f 77 2e  20 49 74 20 73 68 6f 77  | window. It show|
000027b0  73 20 74 68 65 20 33 78  33 20 73 71 75 61 72 65  |s the 3x3 square|
000027c0  20 74 68 61 74 20 79 6f  75 20 68 61 76 65 20 74  | that you have t|
000027d0  6f 20 6c 6f 63 61 74 65  2e 22 29 0d 14 00 71 c9  |o locate.")...q.|
000027e0  20 62 6f 61 72 64 25 3a  20 f2 68 65 6c 70 28 22  | board%: .help("|
000027f0  54 68 69 73 20 69 73 20  74 68 65 20 6d 61 69 6e  |This is the main|
00002800  20 62 6f 61 72 64 2e 7c  4d 53 6f 6d 65 77 68 65  | board.|MSomewhe|
00002810  72 65 20 6f 6e 20 74 68  65 20 62 6f 61 72 64 20  |re on the board |
00002820  69 73 20 74 68 65 20 33  78 33 20 73 71 75 61 72  |is the 3x3 squar|
00002830  65 20 74 68 61 74 20 79  6f 75 20 68 61 76 65 20  |e that you have |
00002840  74 6f 20 6c 6f 63 61 74  65 2e 22 29 0d 14 0a 79  |to locate.")...y|
00002850  c9 20 6e 65 77 77 25 20  3a 20 f2 68 65 6c 70 28  |. neww% : .help(|
00002860  22 54 68 69 73 20 69 73  20 74 68 65 20 6e 65 77  |"This is the new|
00002870  20 62 6f 61 72 64 20 77  69 6e 64 6f 77 2e 7c 4d  | board window.|M|
00002880  54 68 65 72 65 20 69 73  20 61 20 6c 69 6d 69 74  |There is a limit|
00002890  20 74 6f 20 74 68 65 20  73 69 7a 65 20 6f 66 20  | to the size of |
000028a0  74 68 65 20 6e 65 77 20  62 6f 61 72 64 20 28 6d  |the new board (m|
000028b0  69 6e 20 36 78 34 2c 20  6d 61 78 20 33 30 78 32  |in 6x4, max 30x2|
000028c0  30 29 2e 22 29 0d 14 14  36 c9 20 69 6e 66 6f 25  |0).")...6. info%|
000028d0  20 3a 20 f2 68 65 6c 70  28 22 54 68 69 73 20 69  | : .help("This i|
000028e0  73 20 74 68 65 20 69 6e  66 6f 72 6d 61 74 69 6f  |s the informatio|
000028f0  6e 20 77 69 6e 64 6f 77  2e 22 29 0d 14 1e 05 cb  |n window.").....|
00002900  0d 14 28 05 e1 0d 14 32  05 3a 0d 14 3c 11 dd f2  |..(....2.:..<...|
00002910  68 65 6c 70 28 74 65 78  74 24 29 0d 14 46 2d 74  |help(text$)..F-t|
00002920  65 78 74 24 3d 22 54 68  69 73 20 69 73 20 61 20  |ext$="This is a |
00002930  21 4c 6f 63 61 74 65 20  77 69 6e 64 6f 77 2e 7c  |!Locate window.||
00002940  4d 22 2b 74 65 78 74 24  0d 14 50 05 3a 0d 14 5a  |M"+text$..P.:..Z|
00002950  1f 21 62 6c 6f 63 6b 25  3d 28 a9 28 74 65 78 74  |.!block%=(.(text|
00002960  24 29 2b 32 35 29 20 80  20 ac 20 33 0d 14 64 0f  |$)+25) . . 3..d.|
00002970  62 6c 6f 63 6b 25 21 31  32 3d 66 0d 14 6e 15 21  |block%!12=f..n.!|
00002980  28 62 6c 6f 63 6b 25 2b  31 36 29 3d 26 35 30 33  |(block%+16)=&503|
00002990  0d 14 78 16 24 28 62 6c  6f 63 6b 25 2b 32 30 29  |..x.$(block%+20)|
000029a0  3d 74 65 78 74 24 0d 14  82 1d 3f 28 62 6c 6f 63  |=text$....?(bloc|
000029b0  6b 25 2b 32 30 2b a9 28  74 65 78 74 24 29 2b 31  |k%+20+.(text$)+1|
000029c0  29 3d 30 0d 14 8c 25 c8  99 20 22 57 69 6d 70 5f  |)=0...%.. "Wimp_|
000029d0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
000029e0  62 6c 6f 63 6b 25 2c 67  0d 14 96 05 e1 0d 14 a0  |block%,g........|
000029f0  05 3a 0d 14 aa 13 dd f2  69 6e 66 6f 72 6d 28 74  |.:......inform(t|
00002a00  65 78 74 24 29 0d 14 b4  0d 21 62 6c 6f 63 6b 25  |ext$)....!block%|
00002a10  3d 9f 0d 14 be 18 24 28  62 6c 6f 63 6b 25 2b 34  |=.....$(block%+4|
00002a20  29 3d 74 65 78 74 24 2b  bd 30 0d 14 c8 05 3a 0d  |)=text$+.0....:.|
00002a30  14 d2 32 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |..2.. "Wimp_Repo|
00002a40  72 74 45 72 72 6f 72 22  2c 62 6c 6f 63 6b 25 2c  |rtError",block%,|
00002a50  31 2c 22 21 4c 6f 63 61  74 65 22 20 b8 20 2c 72  |1,"!Locate" . ,r|
00002a60  25 0d 14 dc 05 e1 0d ff                           |%.......|
00002a68