� > !RunImage

� Taipei Desktop Game
� by Andrew Ferguson
,� Adapted for the DeskTop environment by
( � Alex Hopkins � August 1990
2:
<Taskid$="Game of Taipei"
F:
P7ș "Wimp_Initialise",200,&4B534154,Taskid$ � ,Task%
Z(� � �error : ș "Wimp_CloseDown" : �
d
�setup
n� � �error : Quit=�
x:
��
��poll(�poll(0))
�
� Quit
�ș "Wimp_CloseDown"
��
�:
�� �setup
�8� block &2000,menu 150,template% &2000,buffer% &1000
�+� Sprites &8000,factor% 15,pixtrans% 15
�4� I%(144,5),Select%(2),Sel%(144),P%(144),C%(144)
�\� board%(144),start%(12,8,4),current%(12,8,4),edge%(12,8,4),position%(12,8,4),extras%(4)
�ș "Hourglass_On"
�>!Sprites=&8000 : Sprites!4=0 : Sprites!8=16 : Sprites!12=0

7ș "OS_SpriteOp",266,Sprites,"<Taipei$Dir>.Sprites"

)Icon=�iconbar : Quit=� : ErrorMsg$=""

6oi%=-1 : omenu%=-1 : auto%=� : replay%=� : hint%=�

":pfirst%=0 : psecond%=0 : Total%=144 : Go%=1 : hints%=5

,0�getModeInfo : �loadTemplates : �defineMenus

6�setupBoard : �updateWindow

@ș "Hourglass_Smash"

J�

T:

^� �getModeInfo

h?ș "Wimp_ReadPixTrans",256,Sprites,"1",,,,factor%,pixtrans%

r�

|:

�� �loadTemplates

�4ș "Wimp_OpenTemplate",,"<Taipei$Dir>.Templates"

�InfoW%=�window("info")

�MainW%=�window("main")

�ș "Wimp_CloseTemplate"

�Taipei%=MainW%

��

�:

�� �window(a$)

�end%=template%+&2000

�Lș "Wimp_LoadTemplate",,block,template%,end%,-1,a$,0 � ,,template%,,,,c%

�block!64=Sprites

�&ș "Wimp_CreateWindow",,block � c%
=c%
:
� �poll(mask%)
&block!0=mask%
0ș "Wimp_Poll",0,block � a%
:=a%
D:
N� �poll(reason%)
XȎ reason% �
b� 0 : � auto% � �autoplay
l#       : � Go%=3 � �checkSelect
v       : � hint%=� �
�       : � �>100 �
�>       : �selIcon(MainW%,h) : �selIcon(MainW%,i) : hint%=�
�9       : hints%-=1 : �indirIcon(MainW%,148,�(hints%))
��   : �
��
��
� � 2 : �openWindow(block!0,�)
�� 3 : �closeWindow(block!0)
�� 6 : �buttonClick(block)
�� 9 : �menuSelect(block)
�� 17,18 : �message(block)
��
��
:
� �message(h%)
� h%!4=Task% � �
 Ȏ h%!16 �
*� 0 : Quit=�
4� &502 : �help(h%)
>� &400C1 : �getModeInfo
H�
R�
\:
f� �acknowledge(ref%)
p+block!0=20 : block!12=ref% : block!16=4
z"ș "Wimp_SendMessage",17,block
��
�:
�� �openWindow(h%,full%)
�
!block=h%
�>� � full% � ș "Wimp_GetWindowState",0,block : block!28=-1
� ș "Wimp_OpenWindow",0,block
��
�:
�� �closeWindow(h%)
�block!0=h%
�!ș "Wimp_CloseWindow",0,block
��
�:
� �updateWindow
!� a=1 � 144 : P%(a)=board%(a)
 �redoIcon(MainW%,a,�(P%(a)))
$!� : �indirIcon(MainW%,150,"")
.ș "Hourglass_Off"
8�
B:
L� �recreateWindow
V!� a=1 � 144 : P%(a)=board%(a)
`�deleteIcon(MainW%,a)
j$�recreateIcon(MainW%,a,�(P%(a)))
t#�unselIcon(MainW%,a) : Sel%()=0
~9� : �indirIcon(MainW%,150,"") : Total%=144 : Hints%=5
�$�indirIcon(MainW%,149,�(Total%))
�ș "Hourglass_Off"
��
�:
�� �buttonClick(block)
�/button%=block!8 : h%=block!12 : i%=block!16
�#ș "Wimp_GetPointerInfo",,block
�mx%=!block : my%=block!4
�!� button% � 2 � �menu(h%) : �
�1� h%=-2 � i%=Icon � �openWindow(MainW%,�) : �
�0block!0=h% : ș "Wimp_GetWindowInfo",0,block
�Ȏ h% �
 � MainW% : � i%>0 � i%<145 �

*     : �selIcon(h%,i%) : OK=�check(i%)
     : � � OK �
/     : �indirIcon(h%,150,"TILE NOT FREE!!")
(*     : � 7 : Ȗ : Ȗ : �selIcon(h%,i%)
2 � : Select%(Go%)=i% : Go%+=1
<#     : �getIconInfo(MainW%,150)
F1     : � data$>"" � �indirIcon(MainW%,150,"")
P�
Z�
d�
n�
x:
�� �checkSelect
�� Select%(1)=Select%(2) �
�(     : �unselIcon(MainW%,Select%(1))
�"     : Go%=1 : Select%()=0 : �
��
�� �checkMatch=� �
�7     : �pause : P%(Select%(1))=0 : P%(Select%(2))=0
�)     : �deleteIcon(MainW%,Select%(1))
�)     : �deleteIcon(MainW%,Select%(2))
�7     : Total%-=2 : �indirIcon(MainW%,149,�(Total%))
�4� : �indirIcon(MainW%,150,"TILES DON'T MATCH!!")
�,     : � 7 : �selIcon(MainW%,Select%(1))
�&     : �selIcon(MainW%,Select%(2))
�
Go%=1 : Select%()=0
@� Total%=0 � �indirIcon(MainW%,150,"COMPLETED - WELL DONE!")
"�
,:
6� �pause
@�=0 : � � �>100
J�
T:
^� �menuSelect(block)
h(m1=block!0 : m2=block!4 : m3=block!8
r� not working .....
|;� SYS "Wimp_DecodeMenu",omenu%,block,buffer% TO ,,menu$
�Ȏ omenu% �
�� MainM% : Ȏ m1 �
�� 0 : �checkEnd
�� 1 : �hint
�/� 2 : �closeWindow(MainW%) : MainW%=Taipei%
�B       : �setupBoard : �recreateWindow : �openWindow(MainW%,�)
�8� 3 : �closeWindow(MainW%) : replay%=� : �setupBoard
�@       : replay%=� : �recreateWindow : �openWindow(MainW%,�)
��
�� IconM% : Ȏ m1 �
�2� 0 : ș "Wimp_StartTask","<Taipei$Dir>.!Help"
�� 1 : �openWindow(InfoW%,�)
�� 2 : Quit=�
�
�
�
&:
0� �defineMenus
:� t$ : � �
D� menufree% &2000
Nptr%=menufree%
X'�+1 : � t$ : IconM%=�createMenu(t$)
b,� "#TaiPei,Game Help,Info#>InfoW%,Quit")
l!� t$ : MainM%=�createMenu(t$)
v2�"#TaiPei,End Check,Hint,New Game,Start Over")
��
�:
�� �menu(h%)
�Ȏ h% �
�� -2 : �pop(IconM%)
�� MainW% : �pop(MainM%)
��
��
�:
�� �par(t$,s$,� i%)
�a%=i%+1 : i%=�t$+s$,s$,a%)
�=�t$,a%,i%-a%)
�:
� �createMenu(m$)
ptr%=menufree%
i%=0
 � �m$,1)="#" �
*(     : i%=1 : title$=�par(m$,",",i%)
4� : title$=""
>�
H$ptr%=title$
R1ptr%?12=7 : ptr%?13=2 : ptr%?14=7 : ptr%?15=0
\+ptr%!16=196-24 : ptr%!20=44 : ptr%!24=0
fptr%+=28 : maxx%=� title$
p�
z,item$=�par(m$,",",i%) : �menuItem(item$)
�� item$=""
�&m%=menufree% : m%!16=(maxx%*8+6)*2
�menufree%=ptr%
�=m%
�:
�� �menuItem(text$)
�.� text$="" � ptr%!-24=(ptr%!-24) � &80 : �
�� i%,flag%
�flag%=&00 : i%=�text$,">")
�� i%>0 �
�5     : subptr%=��text$,i%+1) : text$=�text$,i%-1)
�� : subptr%=-1
��
	i%=�text$,"}")
	� i%>0 �
	5     : subptr%=��text$,i%+1) : text$=�text$,i%-1)
	$     : flag%+=&08
	.�
	80� �text$,1)="#" � text$=�text$) : flag%+=&02
	B4ptr%!0=flag% : ptr%!4=subptr% : ptr%!8=&07000021
	L� �text$,1)="$" �
	V5     : !ptr%+=&04 : ptr%!8+=&100 : i%=�text$,"(")
	`     : � i%>0 �
	j0     : L%=��text$,i%+1) : text$=�text$,i%-1)
	t
� : L%=12
	~�
	�7     : ptr%!12=��text$,2) : ptr%!16=-1 : ptr%!20=L%
	�     : text$=�L%," ")
	�� : � �text$<=12 �
	�     : $(ptr%+12)=text$
	�(� : I%=�worksp(�text$+1) : $I%=text$
	�5     : ptr%!12=I% : ptr%!16=-1 : ptr%!20=�text$+1
	�     : ptr%!8=ptr%!8 � &100
	��
	�@     : � �text$-(subptr%>0)>maxx% � maxx%=�text$-(subptr%>0)
	��
	�ptr%+=24
	��
:

� �tick(m%,mi%)
'm%!(28+24*mi%)=m%!(28+24*mi%) � &01
�
(:
2� �worksp(L%)
<buffer%+=L%
F=buffer%-L%
P:
Z� �pop(menu%)
d� menu%<0 � �
n� menu%=IconM% � my%=220
x-ș "Wimp_CreateMenu",,menu%,mx%-64,my%+32
�omenu%=menu%
��
�:
�� �closeMenu
�ș "Wimp_CreateMenu",-1
��
�:
�� �getIconInfo(h%,i%)
�block!0=h% : block!4=i%
�!ș "Wimp_GetIconState",,block
�@ix0%=block!8 : iy0%=block!12 : ix1%=block!16 : iy1%=block!20
�f%=block!24
�� (f% � &100)>0 �
     : data$=$block!28
� : data$=$(block+28)
�
"�
,:
6� �deleteIcon(h%,i%)
@�getIconInfo(h%,i%)
J!block=h% : block!4=i%
Tș "Wimp_DeleteIcon",,block
^0ș "Wimp_ForceRedraw",h%,ix0%,iy0%,ix1%,iy1%
h�
r:
|� �redoIcon(h%,i%,t$)
�,�getIconInfo(h%,i%) : �deleteIcon(h%,i%)
�-i%=�sprIcon(h%,ix0%,iy0%,ix1%,iy1%,f%,t$)
�1I%(i%,1)=ix0% : I%(i%,2)=iy0% : I%(i%,3)=ix1%
�I%(i%,4)=iy1% : I%(i%,5)=f%
��
�:
�� �recreateIcon(h%,i%,t$)
�Ci%=�sprIcon(h%,I%(i%,1),I%(i%,2),I%(i%,3),I%(i%,4),I%(i%,5),t$)
��
�:
�� �indirIcon(h%,i%,text$)
��getIconInfo(h%,i%)
�$block!28=text$
�setIcon(h%,i%,0,0)
�
:
& � �setIcon(h%,i%,eor%,mask%)
0!block=h% : block!4=i%
:#block!8=eor%   : block!12=mask%
D!ș "Wimp_SetIconState",,block
N�
X:
b� �selIcon(h%,i%)
l� Sel%(i%)=1 �
v2     : �setIcon(h%,i%,&0,&200000) : Sel%(i%)=0
�4� : �setIcon(h%,i%,&200000,&200000) : Sel%(i%)=1
��
��
�:
�� �unselIcon(h%,i%)
�+�setIcon(h%,i%,&0,&200000) : Sel%(i%)=0
��
�:
�/� �sprIcon(h%,ix0%,iy0%,ix1%,iy1%,f%,data$)
�+!block=h% : block!4=ix0% : block!8=iy0%
�/block!12=ix1% : block!16=iy1% : block!20=f%
�$(block+24)=data$
�$ș "Wimp_CreateIcon",,block � i%

=i%

:

� �iconbar

 %!block=-1 : block!4=0 : block!8=0

*.block!12=68 : block!16=68 : block!20=&3102

4data$="!taipei"

>.� block!24 (� data$+1) : $(block!24)=data$

H#block!28=1 : block!32=� data$+1

R&ș "Wimp_CreateIcon",,block � icon

\	=icon

f:

p� �check(i%)

zȎ i% �

�� 2,3,4,5,6,7,8,9,10,11 :

�)     : � P%(i%+1)>0 � P%(i%-1)>0 � =�

�� 14,15,16,17,18,19 :

�9     : � P%(i%+74)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�

�� 23,24,25,26,27,28 :

�9     : � P%(i%+71)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�

�� 36,37,38,39,40,41 :

�9     : � P%(i%+64)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�

�
� 44 :

�'     : � (P%(43)>0 � P%(57)>0) � =�

�
� 45 :

�'     : � (P%(32)>0 � P%(46)>0) � =�

�� 48,49,50,51,52,53 :
9     : � P%(i%+58)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
� 60,61,62,63,64,65 :
9     : � P%(i%+52)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
$4� 22,29,32,33,34,35,42,43,46,47,54,55,56,59,66 :
.)     : � P%(i%+1)>0 � P%(i%-1)>0 � =�
8� 69,70,71,72,73,74 :
B9     : � P%(i%+49)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
L1� 77,78,79,80,81,82,83,84,85,86,89,90,91,92 :
V)     : � P%(i%+1)>0 � P%(i%-1)>0 � =�
`� 95,96,97,98 :
j9     : � P%(i%+29)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
t� 101,102,103,104 :
~9     : � P%(i%+27)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
�� 107,108,109,110 :
�9     : � P%(i%+25)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
�� 113,114,115,116 :
�9     : � P%(i%+23)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
�'� 119,120,121,122,125,126,137,138 :
�)     : � P%(i%+1)>0 � P%(i%-1)>0 � =�
�� 129,130 :
�9     : � P%(i%+11)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
�� 133,134 :
�8     : � P%(i%+9)>0 � (P%(i%+1)>0 � P%(i%-1)>0) � =�
�� 140,141,142,143 :
�     : � P%(144)>0 � =�
�

=�
:
� �checkMatch
((� P%(Select%(1))=P%(Select%(2)) � =�
2Ȏ P%(Select%(1)) �
<� 20,40,41,42 :
F_     : � P%(Select%(2))=20 � P%(Select%(2))=40 � P%(Select%(2))=41 � P%(Select%(2))=42 � =�
P� 18,37,38,39 :
Z_     : � P%(Select%(2))=18 � P%(Select%(2))=37 � P%(Select%(2))=38 � P%(Select%(2))=39 � =�
d�
n=�
x:
�� �hint
�� hints%<1 �
�3     : �indirIcon(MainW%,150,"NO HINTS LEFT!!")
�     : � 7 : �
��
�"�closeMenu : ș "Hourglass_On"
�"� h=144 � 1 � -1 : � P%(h)>0 �
�      : a=�check(h) : � a=� �
�*     : Select%(1)=h : � i=h-1 � 1 � -1
�      : b=�check(i) : � b=� �
�+     : Select%(2)=i : � �checkMatch=� �
�2     : �selIcon(MainW%,h) : �selIcon(MainW%,i)
�3     : ș "Hourglass_Smash" : hint%=� : �=0 : �
�
�
� i
"�
,�
6� h
@ș "Hourglass_Off"
J@� h=0 � i<1 � � 7 : �indirIcon(MainW%,150,"NO FREE TILES!!")
T�
^:
h� �checkEnd
rC%()=P%() : Count%=0
|ș "Hourglass_On"
�"� h=144 � 1 � -1 : � C%(h)>0 �
�      : a=�check(h) : � a=� �
�*     : Select%(1)=h : � i=h-1 � 1 � -1
�      : b=�check(i) : � b=� �
�+     : Select%(2)=i : � �checkMatch=� �
�(     : C%(h)=0 : C%(i)=0 : Count%+=1
��
��
�� i
��
��
�� h
�ș "Hourglass_Off"
� Count%>0 �
=     : �indirIcon(MainW%,150,"TILES FREE = "+�(Count%*2))
0� : �indirIcon(MainW%,150,"NO TILES FREE!!")
&�
0�
::
D� �localError
Nș "Wimp_DragBox",,-1
X&!block=� : $(block+4)=ErrorMsg$+�0
b:ș "Wimp_ReportError",block,17,"Message from "+Taskid$
l�
v:
�� �errCheck(Err$,box%)
�ș "Wimp_DragBox",,-1
�!!block=0 : $(block+4)=Err$+�0
�4ș "Wimp_ReportError",block,box%,Taskid$ � ,err%
�=err%=1
�:
�� �error
�ș "Wimp_DragBox",,-1
�.!block=� : $(block+4)=�$+" at line "+Þ+�0
�)ș "Wimp_ReportError",block,1,Taskid$
��
�:
�� �setupBoard
ș "Hourglass_On"
/� �D~S : � K=1 � 4 : � J=1 � 8 : � I=1 � 12
� start%(I,J,K) : � ,,
 *� replay% � B%=�(-A%) � A%=�:B%=�(-A%)
*board%()=0
4� I=1 � 36
>
Ȏ I �
H3� 20 : � J=1 � 4 : � : W=�(144) : � board%(W)=0
R
Ȏ J �
\� 1 : board%(W)=20
f� 2 : board%(W)=40
p� 3 : board%(W)=41
z� 4 : board%(W)=42
��
�� J
�3� 18 : � J=1 � 4 : � : W=�(144) : � board%(W)=0
�
Ȏ J �
�� 1 : board%(W)=18
�� 2 : board%(W)=37
�� 3 : board%(W)=38
�� 4 : board%(W)=39
��
�� J
�0 : � J=1 � 4 : � : W=�(144) : � board%(W)=0
�!          : board%(W)=I : � J
��
� I
4current%()=start%() : position%()=0 : position=1
&� K=1 � 4 : � J=1 � 8 : � I=1 � 12
$� current%(I,J,K)<>0 �
.+     : current%(I,J,K)=board%(position)
82     : position%(I,J,K)=position : position+=1
B�
L� ,,
V=� I=1 � 4 : extras%(I)=board%(position) : position+=1 : �
`end%=� : auto%=� : hints%=5
j�
t:
~� data for bottom layer
�� 1,1,1,1,1,1,1,1,1,1,1,1
�� 0,0,1,1,1,1,1,1,1,1,0,0
�� 0,1,1,1,1,1,1,1,1,1,1,0
�� 1,1,1,1,1,1,1,1,1,1,1,1
�� 1,1,1,1,1,1,1,1,1,1,1,1
�� 0,1,1,1,1,1,1,1,1,1,1,0
�� 0,0,1,1,1,1,1,1,1,1,0,0
�� 1,1,1,1,1,1,1,1,1,1,1,1
�� data for second layer
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,1,1,1,1,1,1,0,0,0
�� 0,0,0,1,1,1,1,1,1,0,0,0
� 0,0,0,1,1,1,1,1,1,0,0,0

� 0,0,0,1,1,1,1,1,1,0,0,0
� 0,0,0,1,1,1,1,1,1,0,0,0
� 0,0,0,1,1,1,1,1,1,0,0,0
(� 0,0,0,0,0,0,0,0,0,0,0,0
2� data for third layer
<� 0,0,0,0,0,0,0,0,0,0,0,0
F� 0,0,0,0,0,0,0,0,0,0,0,0
P� 0,0,0,0,1,1,1,1,0,0,0,0
Z� 0,0,0,0,1,1,1,1,0,0,0,0
d� 0,0,0,0,1,1,1,1,0,0,0,0
n� 0,0,0,0,1,1,1,1,0,0,0,0
x� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� data for fourth layer
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,1,1,0,0,0,0,0
�� 0,0,0,0,0,1,1,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0,0,0,0
�

00000000  0d 00 00 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 0a 19 f4 20 54  61 69 70 65 69 20 44 65  |e..... Taipei De|
00000020  73 6b 74 6f 70 20 47 61  6d 65 0d 00 14 18 f4 20  |sktop Game..... |
00000030  62 79 20 41 6e 64 72 65  77 20 46 65 72 67 75 73  |by Andrew Fergus|
00000040  6f 6e 0d 00 1e 2c f4 20  41 64 61 70 74 65 64 20  |on...,. Adapted |
00000050  66 6f 72 20 74 68 65 20  44 65 73 6b 54 6f 70 20  |for the DeskTop |
00000060  65 6e 76 69 72 6f 6e 6d  65 6e 74 20 62 79 0d 00  |environment by..|
00000070  28 20 f4 20 41 6c 65 78  20 48 6f 70 6b 69 6e 73  |( . Alex Hopkins|
00000080  20 a9 20 41 75 67 75 73  74 20 31 39 39 30 0d 00  | . August 1990..|
00000090  32 05 3a 0d 00 3c 1c 54  61 73 6b 69 64 24 3d 22  |2.:..<.Taskid$="|
000000a0  47 61 6d 65 20 6f 66 20  54 61 69 70 65 69 22 0d  |Game of Taipei".|
000000b0  00 46 05 3a 0d 00 50 37  c8 99 20 22 57 69 6d 70  |.F.:..P7.. "Wimp|
000000c0  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
000000d0  2c 26 34 42 35 33 34 31  35 34 2c 54 61 73 6b 69  |,&4B534154,Taski|
000000e0  64 24 20 b8 20 2c 54 61  73 6b 25 0d 00 5a 28 ee  |d$ . ,Task%..Z(.|
000000f0  20 85 20 f2 65 72 72 6f  72 20 3a 20 c8 99 20 22  | . .error : .. "|
00000100  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 20  |Wimp_CloseDown" |
00000110  3a 20 e0 0d 00 64 0a f2  73 65 74 75 70 0d 00 6e  |: ...d..setup..n|
00000120  17 ee 20 85 20 f2 65 72  72 6f 72 20 3a 20 51 75  |.. . .error : Qu|
00000130  69 74 3d b9 0d 00 78 05  3a 0d 00 82 05 f5 0d 00  |it=...x.:.......|
00000140  8c 13 f2 70 6f 6c 6c 28  a4 70 6f 6c 6c 28 30 29  |...poll(.poll(0)|
00000150  29 0d 00 96 0a fd 20 51  75 69 74 0d 00 a0 17 c8  |)..... Quit.....|
00000160  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000170  6e 22 0d 00 aa 05 e0 0d  00 b4 05 3a 0d 00 be 0c  |n".........:....|
00000180  dd 20 f2 73 65 74 75 70  0d 00 c8 38 de 20 62 6c  |. .setup...8. bl|
00000190  6f 63 6b 20 26 32 30 30  30 2c 6d 65 6e 75 20 31  |ock &2000,menu 1|
000001a0  35 30 2c 74 65 6d 70 6c  61 74 65 25 20 26 32 30  |50,template% &20|
000001b0  30 30 2c 62 75 66 66 65  72 25 20 26 31 30 30 30  |00,buffer% &1000|
000001c0  0d 00 d2 2b de 20 53 70  72 69 74 65 73 20 26 38  |...+. Sprites &8|
000001d0  30 30 30 2c 66 61 63 74  6f 72 25 20 31 35 2c 70  |000,factor% 15,p|
000001e0  69 78 74 72 61 6e 73 25  20 31 35 0d 00 dc 34 de  |ixtrans% 15...4.|
000001f0  20 49 25 28 31 34 34 2c  35 29 2c 53 65 6c 65 63  | I%(144,5),Selec|
00000200  74 25 28 32 29 2c 53 65  6c 25 28 31 34 34 29 2c  |t%(2),Sel%(144),|
00000210  50 25 28 31 34 34 29 2c  43 25 28 31 34 34 29 0d  |P%(144),C%(144).|
00000220  00 e6 5c de 20 62 6f 61  72 64 25 28 31 34 34 29  |..\. board%(144)|
00000230  2c 73 74 61 72 74 25 28  31 32 2c 38 2c 34 29 2c  |,start%(12,8,4),|
00000240  63 75 72 72 65 6e 74 25  28 31 32 2c 38 2c 34 29  |current%(12,8,4)|
00000250  2c 65 64 67 65 25 28 31  32 2c 38 2c 34 29 2c 70  |,edge%(12,8,4),p|
00000260  6f 73 69 74 69 6f 6e 25  28 31 32 2c 38 2c 34 29  |osition%(12,8,4)|
00000270  2c 65 78 74 72 61 73 25  28 34 29 0d 00 f0 15 c8  |,extras%(4).....|
00000280  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00000290  0d 00 fa 3e 21 53 70 72  69 74 65 73 3d 26 38 30  |...>!Sprites=&80|
000002a0  30 30 20 3a 20 53 70 72  69 74 65 73 21 34 3d 30  |00 : Sprites!4=0|
000002b0  20 3a 20 53 70 72 69 74  65 73 21 38 3d 31 36 20  | : Sprites!8=16 |
000002c0  3a 20 53 70 72 69 74 65  73 21 31 32 3d 30 0d 01  |: Sprites!12=0..|
000002d0  04 37 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.7.. "OS_SpriteO|
000002e0  70 22 2c 32 36 36 2c 53  70 72 69 74 65 73 2c 22  |p",266,Sprites,"|
000002f0  3c 54 61 69 70 65 69 24  44 69 72 3e 2e 53 70 72  |<Taipei$Dir>.Spr|
00000300  69 74 65 73 22 0d 01 0e  29 49 63 6f 6e 3d a4 69  |ites"...)Icon=.i|
00000310  63 6f 6e 62 61 72 20 3a  20 51 75 69 74 3d a3 20  |conbar : Quit=. |
00000320  3a 20 45 72 72 6f 72 4d  73 67 24 3d 22 22 0d 01  |: ErrorMsg$=""..|
00000330  18 36 6f 69 25 3d 2d 31  20 3a 20 6f 6d 65 6e 75  |.6oi%=-1 : omenu|
00000340  25 3d 2d 31 20 3a 20 61  75 74 6f 25 3d a3 20 3a  |%=-1 : auto%=. :|
00000350  20 72 65 70 6c 61 79 25  3d a3 20 3a 20 68 69 6e  | replay%=. : hin|
00000360  74 25 3d a3 0d 01 22 3a  70 66 69 72 73 74 25 3d  |t%=...":pfirst%=|
00000370  30 20 3a 20 70 73 65 63  6f 6e 64 25 3d 30 20 3a  |0 : psecond%=0 :|
00000380  20 54 6f 74 61 6c 25 3d  31 34 34 20 3a 20 47 6f  | Total%=144 : Go|
00000390  25 3d 31 20 3a 20 68 69  6e 74 73 25 3d 35 0d 01  |%=1 : hints%=5..|
000003a0  2c 30 f2 67 65 74 4d 6f  64 65 49 6e 66 6f 20 3a  |,0.getModeInfo :|
000003b0  20 f2 6c 6f 61 64 54 65  6d 70 6c 61 74 65 73 20  | .loadTemplates |
000003c0  3a 20 f2 64 65 66 69 6e  65 4d 65 6e 75 73 0d 01  |: .defineMenus..|
000003d0  36 1f f2 73 65 74 75 70  42 6f 61 72 64 20 3a 20  |6..setupBoard : |
000003e0  f2 75 70 64 61 74 65 57  69 6e 64 6f 77 0d 01 40  |.updateWindow..@|
000003f0  18 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 53  |... "Hourglass_S|
00000400  6d 61 73 68 22 0d 01 4a  05 e1 0d 01 54 05 3a 0d  |mash"..J....T.:.|
00000410  01 5e 12 dd 20 f2 67 65  74 4d 6f 64 65 49 6e 66  |.^.. .getModeInf|
00000420  6f 0d 01 68 3f c8 99 20  22 57 69 6d 70 5f 52 65  |o..h?.. "Wimp_Re|
00000430  61 64 50 69 78 54 72 61  6e 73 22 2c 32 35 36 2c  |adPixTrans",256,|
00000440  53 70 72 69 74 65 73 2c  22 31 22 2c 2c 2c 2c 66  |Sprites,"1",,,,f|
00000450  61 63 74 6f 72 25 2c 70  69 78 74 72 61 6e 73 25  |actor%,pixtrans%|
00000460  0d 01 72 05 e1 0d 01 7c  05 3a 0d 01 86 14 dd 20  |..r....|.:..... |
00000470  f2 6c 6f 61 64 54 65 6d  70 6c 61 74 65 73 0d 01  |.loadTemplates..|
00000480  90 34 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.4.. "Wimp_OpenT|
00000490  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 54 61 69 70  |emplate",,"<Taip|
000004a0  65 69 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |ei$Dir>.Template|
000004b0  73 22 0d 01 9a 1a 49 6e  66 6f 57 25 3d a4 77 69  |s"....InfoW%=.wi|
000004c0  6e 64 6f 77 28 22 69 6e  66 6f 22 29 0d 01 a4 1a  |ndow("info")....|
000004d0  4d 61 69 6e 57 25 3d a4  77 69 6e 64 6f 77 28 22  |MainW%=.window("|
000004e0  6d 61 69 6e 22 29 0d 01  ae 1b c8 99 20 22 57 69  |main")...... "Wi|
000004f0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00000500  22 0d 01 b8 12 54 61 69  70 65 69 25 3d 4d 61 69  |"....Taipei%=Mai|
00000510  6e 57 25 0d 01 c2 05 e1  0d 01 cc 05 3a 0d 01 d6  |nW%.........:...|
00000520  11 dd 20 a4 77 69 6e 64  6f 77 28 61 24 29 0d 01  |.. .window(a$)..|
00000530  e0 18 65 6e 64 25 3d 74  65 6d 70 6c 61 74 65 25  |..end%=template%|
00000540  2b 26 32 30 30 30 0d 01  ea 4c c8 99 20 22 57 69  |+&2000...L.. "Wi|
00000550  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000560  2c 2c 62 6c 6f 63 6b 2c  74 65 6d 70 6c 61 74 65  |,,block,template|
00000570  25 2c 65 6e 64 25 2c 2d  31 2c 61 24 2c 30 20 b8  |%,end%,-1,a$,0 .|
00000580  20 2c 2c 74 65 6d 70 6c  61 74 65 25 2c 2c 2c 2c  | ,,template%,,,,|
00000590  63 25 0d 01 f4 14 62 6c  6f 63 6b 21 36 34 3d 53  |c%....block!64=S|
000005a0  70 72 69 74 65 73 0d 01  fe 26 c8 99 20 22 57 69  |prites...&.. "Wi|
000005b0  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
000005c0  2c 2c 62 6c 6f 63 6b 20  b8 20 63 25 0d 02 08 07  |,,block . c%....|
000005d0  3d 63 25 0d 02 12 05 3a  0d 02 1c 12 dd 20 a4 70  |=c%....:..... .p|
000005e0  6f 6c 6c 28 6d 61 73 6b  25 29 0d 02 26 11 62 6c  |oll(mask%)..&.bl|
000005f0  6f 63 6b 21 30 3d 6d 61  73 6b 25 0d 02 30 1f c8  |ock!0=mask%..0..|
00000600  99 20 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 30 2c  |. "Wimp_Poll",0,|
00000610  62 6c 6f 63 6b 20 b8 20  61 25 0d 02 3a 07 3d 61  |block . a%..:.=a|
00000620  25 0d 02 44 05 3a 0d 02  4e 14 dd 20 f2 70 6f 6c  |%..D.:..N.. .pol|
00000630  6c 28 72 65 61 73 6f 6e  25 29 0d 02 58 10 c8 8e  |l(reason%)..X...|
00000640  20 72 65 61 73 6f 6e 25  20 ca 0d 02 62 1d c9 20  | reason% ...b.. |
00000650  30 20 3a 20 e7 20 61 75  74 6f 25 20 8c 20 f2 61  |0 : . auto% . .a|
00000660  75 74 6f 70 6c 61 79 0d  02 6c 23 20 20 20 20 20  |utoplay..l#     |
00000670  20 20 3a 20 e7 20 47 6f  25 3d 33 20 8c 20 f2 63  |  : . Go%=3 . .c|
00000680  68 65 63 6b 53 65 6c 65  63 74 0d 02 76 18 20 20  |heckSelect..v.  |
00000690  20 20 20 20 20 3a 20 e7  20 68 69 6e 74 25 3d b9  |     : . hint%=.|
000006a0  20 8c 0d 02 80 16 20 20  20 20 20 20 20 3a 20 e7  | .....       : .|
000006b0  20 91 3e 31 30 30 20 8c  0d 02 8a 3e 20 20 20 20  | .>100 ....>    |
000006c0  20 20 20 3a 20 f2 73 65  6c 49 63 6f 6e 28 4d 61  |   : .selIcon(Ma|
000006d0  69 6e 57 25 2c 68 29 20  3a 20 f2 73 65 6c 49 63  |inW%,h) : .selIc|
000006e0  6f 6e 28 4d 61 69 6e 57  25 2c 69 29 20 3a 20 68  |on(MainW%,i) : h|
000006f0  69 6e 74 25 3d a3 0d 02  94 39 20 20 20 20 20 20  |int%=....9      |
00000700  20 3a 20 68 69 6e 74 73  25 2d 3d 31 20 3a 20 f2  | : hints%-=1 : .|
00000710  69 6e 64 69 72 49 63 6f  6e 28 4d 61 69 6e 57 25  |indirIcon(MainW%|
00000720  2c 31 34 38 2c c3 28 68  69 6e 74 73 25 29 29 0d  |,148,.(hints%)).|
00000730  02 9e 0b cc 20 20 20 3a  20 e1 0d 02 a8 05 cd 0d  |....   : .......|
00000740  02 b2 05 cd 0d 02 bc 20  c9 20 32 20 3a 20 f2 6f  |....... . 2 : .o|
00000750  70 65 6e 57 69 6e 64 6f  77 28 62 6c 6f 63 6b 21  |penWindow(block!|
00000760  30 2c b9 29 0d 02 c6 1f  c9 20 33 20 3a 20 f2 63  |0,.)..... 3 : .c|
00000770  6c 6f 73 65 57 69 6e 64  6f 77 28 62 6c 6f 63 6b  |loseWindow(block|
00000780  21 30 29 0d 02 d0 1d c9  20 36 20 3a 20 f2 62 75  |!0)..... 6 : .bu|
00000790  74 74 6f 6e 43 6c 69 63  6b 28 62 6c 6f 63 6b 29  |ttonClick(block)|
000007a0  0d 02 da 1c c9 20 39 20  3a 20 f2 6d 65 6e 75 53  |..... 9 : .menuS|
000007b0  65 6c 65 63 74 28 62 6c  6f 63 6b 29 0d 02 e4 1d  |elect(block)....|
000007c0  c9 20 31 37 2c 31 38 20  3a 20 f2 6d 65 73 73 61  |. 17,18 : .messa|
000007d0  67 65 28 62 6c 6f 63 6b  29 0d 02 ee 05 cb 0d 02  |ge(block).......|
000007e0  f8 05 e1 0d 03 02 05 3a  0d 03 0c 12 dd 20 f2 6d  |.......:..... .m|
000007f0  65 73 73 61 67 65 28 68  25 29 0d 03 16 14 e7 20  |essage(h%)..... |
00000800  68 25 21 34 3d 54 61 73  6b 25 20 8c 20 e1 0d 03  |h%!4=Task% . ...|
00000810  20 0e c8 8e 20 68 25 21  31 36 20 ca 0d 03 2a 10  | ... h%!16 ...*.|
00000820  c9 20 30 20 3a 20 51 75  69 74 3d b9 0d 03 34 16  |. 0 : Quit=...4.|
00000830  c9 20 26 35 30 32 20 3a  20 f2 68 65 6c 70 28 68  |. &502 : .help(h|
00000840  25 29 0d 03 3e 1b c9 20  26 34 30 30 43 31 20 3a  |%)..>.. &400C1 :|
00000850  20 f2 67 65 74 4d 6f 64  65 49 6e 66 6f 0d 03 48  | .getModeInfo..H|
00000860  05 cb 0d 03 52 05 e1 0d  03 5c 05 3a 0d 03 66 18  |....R....\.:..f.|
00000870  dd 20 f2 61 63 6b 6e 6f  77 6c 65 64 67 65 28 72  |. .acknowledge(r|
00000880  65 66 25 29 0d 03 70 2b  62 6c 6f 63 6b 21 30 3d  |ef%)..p+block!0=|
00000890  32 30 20 3a 20 62 6c 6f  63 6b 21 31 32 3d 72 65  |20 : block!12=re|
000008a0  66 25 20 3a 20 62 6c 6f  63 6b 21 31 36 3d 34 0d  |f% : block!16=4.|
000008b0  03 7a 22 c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |.z".. "Wimp_Send|
000008c0  4d 65 73 73 61 67 65 22  2c 31 37 2c 62 6c 6f 63  |Message",17,bloc|
000008d0  6b 0d 03 84 05 e1 0d 03  8e 05 3a 0d 03 98 1b dd  |k.........:.....|
000008e0  20 f2 6f 70 65 6e 57 69  6e 64 6f 77 28 68 25 2c  | .openWindow(h%,|
000008f0  66 75 6c 6c 25 29 0d 03  a2 0d 21 62 6c 6f 63 6b  |full%)....!block|
00000900  3d 68 25 0d 03 ac 3e e7  20 ac 20 66 75 6c 6c 25  |=h%...>. . full%|
00000910  20 8c 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  | . .. "Wimp_GetW|
00000920  69 6e 64 6f 77 53 74 61  74 65 22 2c 30 2c 62 6c  |indowState",0,bl|
00000930  6f 63 6b 20 3a 20 62 6c  6f 63 6b 21 32 38 3d 2d  |ock : block!28=-|
00000940  31 0d 03 b6 20 c8 99 20  22 57 69 6d 70 5f 4f 70  |1... .. "Wimp_Op|
00000950  65 6e 57 69 6e 64 6f 77  22 2c 30 2c 62 6c 6f 63  |enWindow",0,bloc|
00000960  6b 0d 03 c0 05 e1 0d 03  ca 05 3a 0d 03 d4 16 dd  |k.........:.....|
00000970  20 f2 63 6c 6f 73 65 57  69 6e 64 6f 77 28 68 25  | .closeWindow(h%|
00000980  29 0d 03 de 0e 62 6c 6f  63 6b 21 30 3d 68 25 0d  |)....block!0=h%.|
00000990  03 e8 21 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..!.. "Wimp_Clos|
000009a0  65 57 69 6e 64 6f 77 22  2c 30 2c 62 6c 6f 63 6b  |eWindow",0,block|
000009b0  0d 03 f2 05 e1 0d 03 fc  05 3a 0d 04 06 13 dd 20  |.........:..... |
000009c0  f2 75 70 64 61 74 65 57  69 6e 64 6f 77 0d 04 10  |.updateWindow...|
000009d0  21 e3 20 61 3d 31 20 b8  20 31 34 34 20 3a 20 50  |!. a=1 . 144 : P|
000009e0  25 28 61 29 3d 62 6f 61  72 64 25 28 61 29 0d 04  |%(a)=board%(a)..|
000009f0  1a 20 f2 72 65 64 6f 49  63 6f 6e 28 4d 61 69 6e  |. .redoIcon(Main|
00000a00  57 25 2c 61 2c c3 28 50  25 28 61 29 29 29 0d 04  |W%,a,.(P%(a)))..|
00000a10  24 21 ed 20 3a 20 f2 69  6e 64 69 72 49 63 6f 6e  |$!. : .indirIcon|
00000a20  28 4d 61 69 6e 57 25 2c  31 35 30 2c 22 22 29 0d  |(MainW%,150,"").|
00000a30  04 2e 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00000a40  5f 4f 66 66 22 0d 04 38  05 e1 0d 04 42 05 3a 0d  |_Off"..8....B.:.|
00000a50  04 4c 15 dd 20 f2 72 65  63 72 65 61 74 65 57 69  |.L.. .recreateWi|
00000a60  6e 64 6f 77 0d 04 56 21  e3 20 61 3d 31 20 b8 20  |ndow..V!. a=1 . |
00000a70  31 34 34 20 3a 20 50 25  28 61 29 3d 62 6f 61 72  |144 : P%(a)=boar|
00000a80  64 25 28 61 29 0d 04 60  19 f2 64 65 6c 65 74 65  |d%(a)..`..delete|
00000a90  49 63 6f 6e 28 4d 61 69  6e 57 25 2c 61 29 0d 04  |Icon(MainW%,a)..|
00000aa0  6a 24 f2 72 65 63 72 65  61 74 65 49 63 6f 6e 28  |j$.recreateIcon(|
00000ab0  4d 61 69 6e 57 25 2c 61  2c c3 28 50 25 28 61 29  |MainW%,a,.(P%(a)|
00000ac0  29 29 0d 04 74 23 f2 75  6e 73 65 6c 49 63 6f 6e  |))..t#.unselIcon|
00000ad0  28 4d 61 69 6e 57 25 2c  61 29 20 3a 20 53 65 6c  |(MainW%,a) : Sel|
00000ae0  25 28 29 3d 30 0d 04 7e  39 ed 20 3a 20 f2 69 6e  |%()=0..~9. : .in|
00000af0  64 69 72 49 63 6f 6e 28  4d 61 69 6e 57 25 2c 31  |dirIcon(MainW%,1|
00000b00  35 30 2c 22 22 29 20 3a  20 54 6f 74 61 6c 25 3d  |50,"") : Total%=|
00000b10  31 34 34 20 3a 20 48 69  6e 74 73 25 3d 35 0d 04  |144 : Hints%=5..|
00000b20  88 24 f2 69 6e 64 69 72  49 63 6f 6e 28 4d 61 69  |.$.indirIcon(Mai|
00000b30  6e 57 25 2c 31 34 39 2c  c3 28 54 6f 74 61 6c 25  |nW%,149,.(Total%|
00000b40  29 29 0d 04 92 16 c8 99  20 22 48 6f 75 72 67 6c  |))...... "Hourgl|
00000b50  61 73 73 5f 4f 66 66 22  0d 04 9c 05 e1 0d 04 a6  |ass_Off"........|
00000b60  05 3a 0d 04 b0 19 dd 20  f2 62 75 74 74 6f 6e 43  |.:..... .buttonC|
00000b70  6c 69 63 6b 28 62 6c 6f  63 6b 29 0d 04 ba 2f 62  |lick(block).../b|
00000b80  75 74 74 6f 6e 25 3d 62  6c 6f 63 6b 21 38 20 3a  |utton%=block!8 :|
00000b90  20 68 25 3d 62 6c 6f 63  6b 21 31 32 20 3a 20 69  | h%=block!12 : i|
00000ba0  25 3d 62 6c 6f 63 6b 21  31 36 0d 04 c4 23 c8 99  |%=block!16...#..|
00000bb0  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000bc0  72 49 6e 66 6f 22 2c 2c  62 6c 6f 63 6b 0d 04 ce  |rInfo",,block...|
00000bd0  1c 6d 78 25 3d 21 62 6c  6f 63 6b 20 3a 20 6d 79  |.mx%=!block : my|
00000be0  25 3d 62 6c 6f 63 6b 21  34 0d 04 d8 21 e7 20 62  |%=block!4...!. b|
00000bf0  75 74 74 6f 6e 25 20 80  20 32 20 8c 20 f2 6d 65  |utton% . 2 . .me|
00000c00  6e 75 28 68 25 29 20 3a  20 e1 0d 04 e2 31 e7 20  |nu(h%) : ....1. |
00000c10  68 25 3d 2d 32 20 80 20  69 25 3d 49 63 6f 6e 20  |h%=-2 . i%=Icon |
00000c20  8c 20 f2 6f 70 65 6e 57  69 6e 64 6f 77 28 4d 61  |. .openWindow(Ma|
00000c30  69 6e 57 25 2c a3 29 20  3a 20 e1 0d 04 ec 30 62  |inW%,.) : ....0b|
00000c40  6c 6f 63 6b 21 30 3d 68  25 20 3a 20 c8 99 20 22  |lock!0=h% : .. "|
00000c50  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 49 6e  |Wimp_GetWindowIn|
00000c60  66 6f 22 2c 30 2c 62 6c  6f 63 6b 0d 04 f6 0b c8  |fo",0,block.....|
00000c70  8e 20 68 25 20 ca 0d 05  00 20 c9 20 4d 61 69 6e  |. h% .... . Main|
00000c80  57 25 20 3a 20 e7 20 69  25 3e 30 20 80 20 69 25  |W% : . i%>0 . i%|
00000c90  3c 31 34 35 20 8c 0d 05  0a 2a 20 20 20 20 20 3a  |<145 ....*     :|
00000ca0  20 f2 73 65 6c 49 63 6f  6e 28 68 25 2c 69 25 29  | .selIcon(h%,i%)|
00000cb0  20 3a 20 4f 4b 3d a4 63  68 65 63 6b 28 69 25 29  | : OK=.check(i%)|
00000cc0  0d 05 14 13 20 20 20 20  20 3a 20 e7 20 ac 20 4f  |....     : . . O|
00000cd0  4b 20 8c 0d 05 1e 2f 20  20 20 20 20 3a 20 f2 69  |K ..../     : .i|
00000ce0  6e 64 69 72 49 63 6f 6e  28 68 25 2c 31 35 30 2c  |ndirIcon(h%,150,|
00000cf0  22 54 49 4c 45 20 4e 4f  54 20 46 52 45 45 21 21  |"TILE NOT FREE!!|
00000d00  22 29 0d 05 28 2a 20 20  20 20 20 3a 20 ef 20 37  |")..(*     : . 7|
00000d10  20 3a 20 c8 96 20 3a 20  c8 96 20 3a 20 f2 73 65  | : .. : .. : .se|
00000d20  6c 49 63 6f 6e 28 68 25  2c 69 25 29 0d 05 32 20  |lIcon(h%,i%)..2 |
00000d30  cc 20 3a 20 53 65 6c 65  63 74 25 28 47 6f 25 29  |. : Select%(Go%)|
00000d40  3d 69 25 20 3a 20 47 6f  25 2b 3d 31 0d 05 3c 23  |=i% : Go%+=1..<#|
00000d50  20 20 20 20 20 3a 20 f2  67 65 74 49 63 6f 6e 49  |     : .getIconI|
00000d60  6e 66 6f 28 4d 61 69 6e  57 25 2c 31 35 30 29 0d  |nfo(MainW%,150).|
00000d70  05 46 31 20 20 20 20 20  3a 20 e7 20 64 61 74 61  |.F1     : . data|
00000d80  24 3e 22 22 20 8c 20 f2  69 6e 64 69 72 49 63 6f  |$>"" . .indirIco|
00000d90  6e 28 4d 61 69 6e 57 25  2c 31 35 30 2c 22 22 29  |n(MainW%,150,"")|
00000da0  0d 05 50 05 cd 0d 05 5a  05 cd 0d 05 64 05 cb 0d  |..P....Z....d...|
00000db0  05 6e 05 e1 0d 05 78 05  3a 0d 05 82 12 dd 20 f2  |.n....x.:..... .|
00000dc0  63 68 65 63 6b 53 65 6c  65 63 74 0d 05 8c 1d e7  |checkSelect.....|
00000dd0  20 53 65 6c 65 63 74 25  28 31 29 3d 53 65 6c 65  | Select%(1)=Sele|
00000de0  63 74 25 28 32 29 20 8c  0d 05 96 28 20 20 20 20  |ct%(2) ....(    |
00000df0  20 3a 20 f2 75 6e 73 65  6c 49 63 6f 6e 28 4d 61  | : .unselIcon(Ma|
00000e00  69 6e 57 25 2c 53 65 6c  65 63 74 25 28 31 29 29  |inW%,Select%(1))|
00000e10  0d 05 a0 22 20 20 20 20  20 3a 20 47 6f 25 3d 31  |..."     : Go%=1|
00000e20  20 3a 20 53 65 6c 65 63  74 25 28 29 3d 30 20 3a  | : Select%()=0 :|
00000e30  20 e1 0d 05 aa 05 cd 0d  05 b4 15 e7 20 a4 63 68  | ........... .ch|
00000e40  65 63 6b 4d 61 74 63 68  3d b9 20 8c 0d 05 be 37  |eckMatch=. ....7|
00000e50  20 20 20 20 20 3a 20 f2  70 61 75 73 65 20 3a 20  |     : .pause : |
00000e60  50 25 28 53 65 6c 65 63  74 25 28 31 29 29 3d 30  |P%(Select%(1))=0|
00000e70  20 3a 20 50 25 28 53 65  6c 65 63 74 25 28 32 29  | : P%(Select%(2)|
00000e80  29 3d 30 0d 05 c8 29 20  20 20 20 20 3a 20 f2 64  |)=0...)     : .d|
00000e90  65 6c 65 74 65 49 63 6f  6e 28 4d 61 69 6e 57 25  |eleteIcon(MainW%|
00000ea0  2c 53 65 6c 65 63 74 25  28 31 29 29 0d 05 d2 29  |,Select%(1))...)|
00000eb0  20 20 20 20 20 3a 20 f2  64 65 6c 65 74 65 49 63  |     : .deleteIc|
00000ec0  6f 6e 28 4d 61 69 6e 57  25 2c 53 65 6c 65 63 74  |on(MainW%,Select|
00000ed0  25 28 32 29 29 0d 05 dc  37 20 20 20 20 20 3a 20  |%(2))...7     : |
00000ee0  54 6f 74 61 6c 25 2d 3d  32 20 3a 20 f2 69 6e 64  |Total%-=2 : .ind|
00000ef0  69 72 49 63 6f 6e 28 4d  61 69 6e 57 25 2c 31 34  |irIcon(MainW%,14|
00000f00  39 2c c3 28 54 6f 74 61  6c 25 29 29 0d 05 e6 34  |9,.(Total%))...4|
00000f10  cc 20 3a 20 f2 69 6e 64  69 72 49 63 6f 6e 28 4d  |. : .indirIcon(M|
00000f20  61 69 6e 57 25 2c 31 35  30 2c 22 54 49 4c 45 53  |ainW%,150,"TILES|
00000f30  20 44 4f 4e 27 54 20 4d  41 54 43 48 21 21 22 29  | DON'T MATCH!!")|
00000f40  0d 05 f0 2c 20 20 20 20  20 3a 20 ef 20 37 20 3a  |...,     : . 7 :|
00000f50  20 f2 73 65 6c 49 63 6f  6e 28 4d 61 69 6e 57 25  | .selIcon(MainW%|
00000f60  2c 53 65 6c 65 63 74 25  28 31 29 29 0d 05 fa 26  |,Select%(1))...&|
00000f70  20 20 20 20 20 3a 20 f2  73 65 6c 49 63 6f 6e 28  |     : .selIcon(|
00000f80  4d 61 69 6e 57 25 2c 53  65 6c 65 63 74 25 28 32  |MainW%,Select%(2|
00000f90  29 29 0d 06 04 05 cd 0d  06 0e 17 47 6f 25 3d 31  |)).........Go%=1|
00000fa0  20 3a 20 53 65 6c 65 63  74 25 28 29 3d 30 0d 06  | : Select%()=0..|
00000fb0  18 40 e7 20 54 6f 74 61  6c 25 3d 30 20 8c 20 f2  |.@. Total%=0 . .|
00000fc0  69 6e 64 69 72 49 63 6f  6e 28 4d 61 69 6e 57 25  |indirIcon(MainW%|
00000fd0  2c 31 35 30 2c 22 43 4f  4d 50 4c 45 54 45 44 20  |,150,"COMPLETED |
00000fe0  2d 20 57 45 4c 4c 20 44  4f 4e 45 21 22 29 0d 06  |- WELL DONE!")..|
00000ff0  22 05 e1 0d 06 2c 05 3a  0d 06 36 0c dd 20 f2 70  |"....,.:..6.. .p|
00001000  61 75 73 65 0d 06 40 13  d1 3d 30 20 3a 20 f5 20  |ause..@..=0 : . |
00001010  fd 20 91 3e 31 30 30 0d  06 4a 05 e1 0d 06 54 05  |. .>100..J....T.|
00001020  3a 0d 06 5e 18 dd 20 f2  6d 65 6e 75 53 65 6c 65  |:..^.. .menuSele|
00001030  63 74 28 62 6c 6f 63 6b  29 0d 06 68 28 6d 31 3d  |ct(block)..h(m1=|
00001040  62 6c 6f 63 6b 21 30 20  3a 20 6d 32 3d 62 6c 6f  |block!0 : m2=blo|
00001050  63 6b 21 34 20 3a 20 6d  33 3d 62 6c 6f 63 6b 21  |ck!4 : m3=block!|
00001060  38 0d 06 72 17 f4 20 6e  6f 74 20 77 6f 72 6b 69  |8..r.. not worki|
00001070  6e 67 20 2e 2e 2e 2e 2e  0d 06 7c 3b f4 20 53 59  |ng .......|;. SY|
00001080  53 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |S "Wimp_DecodeMe|
00001090  6e 75 22 2c 6f 6d 65 6e  75 25 2c 62 6c 6f 63 6b  |nu",omenu%,block|
000010a0  2c 62 75 66 66 65 72 25  20 54 4f 20 2c 2c 6d 65  |,buffer% TO ,,me|
000010b0  6e 75 24 0d 06 86 0f c8  8e 20 6f 6d 65 6e 75 25  |nu$...... omenu%|
000010c0  20 ca 0d 06 90 16 c9 20  4d 61 69 6e 4d 25 20 3a  | ...... MainM% :|
000010d0  20 c8 8e 20 6d 31 20 ca  0d 06 9a 13 c9 20 30 20  | .. m1 ...... 0 |
000010e0  3a 20 f2 63 68 65 63 6b  45 6e 64 0d 06 a4 0f c9  |: .checkEnd.....|
000010f0  20 31 20 3a 20 f2 68 69  6e 74 0d 06 ae 2f c9 20  | 1 : .hint.../. |
00001100  32 20 3a 20 f2 63 6c 6f  73 65 57 69 6e 64 6f 77  |2 : .closeWindow|
00001110  28 4d 61 69 6e 57 25 29  20 3a 20 4d 61 69 6e 57  |(MainW%) : MainW|
00001120  25 3d 54 61 69 70 65 69  25 0d 06 b8 42 20 20 20  |%=Taipei%...B   |
00001130  20 20 20 20 3a 20 f2 73  65 74 75 70 42 6f 61 72  |    : .setupBoar|
00001140  64 20 3a 20 f2 72 65 63  72 65 61 74 65 57 69 6e  |d : .recreateWin|
00001150  64 6f 77 20 3a 20 f2 6f  70 65 6e 57 69 6e 64 6f  |dow : .openWindo|
00001160  77 28 4d 61 69 6e 57 25  2c a3 29 0d 06 c2 38 c9  |w(MainW%,.)...8.|
00001170  20 33 20 3a 20 f2 63 6c  6f 73 65 57 69 6e 64 6f  | 3 : .closeWindo|
00001180  77 28 4d 61 69 6e 57 25  29 20 3a 20 72 65 70 6c  |w(MainW%) : repl|
00001190  61 79 25 3d b9 20 3a 20  f2 73 65 74 75 70 42 6f  |ay%=. : .setupBo|
000011a0  61 72 64 0d 06 cc 40 20  20 20 20 20 20 20 3a 20  |ard...@       : |
000011b0  72 65 70 6c 61 79 25 3d  a3 20 3a 20 f2 72 65 63  |replay%=. : .rec|
000011c0  72 65 61 74 65 57 69 6e  64 6f 77 20 3a 20 f2 6f  |reateWindow : .o|
000011d0  70 65 6e 57 69 6e 64 6f  77 28 4d 61 69 6e 57 25  |penWindow(MainW%|
000011e0  2c a3 29 0d 06 d6 05 cb  0d 06 e0 16 c9 20 49 63  |,.).......... Ic|
000011f0  6f 6e 4d 25 20 3a 20 c8  8e 20 6d 31 20 ca 0d 06  |onM% : .. m1 ...|
00001200  ea 32 c9 20 30 20 3a 20  c8 99 20 22 57 69 6d 70  |.2. 0 : .. "Wimp|
00001210  5f 53 74 61 72 74 54 61  73 6b 22 2c 22 3c 54 61  |_StartTask","<Ta|
00001220  69 70 65 69 24 44 69 72  3e 2e 21 48 65 6c 70 22  |ipei$Dir>.!Help"|
00001230  0d 06 f4 1f c9 20 31 20  3a 20 f2 6f 70 65 6e 57  |..... 1 : .openW|
00001240  69 6e 64 6f 77 28 49 6e  66 6f 57 25 2c a3 29 0d  |indow(InfoW%,.).|
00001250  06 fe 10 c9 20 32 20 3a  20 51 75 69 74 3d b9 0d  |.... 2 : Quit=..|
00001260  07 08 05 cb 0d 07 12 05  cb 0d 07 1c 05 e1 0d 07  |................|
00001270  26 05 3a 0d 07 30 12 dd  20 f2 64 65 66 69 6e 65  |&.:..0.. .define|
00001280  4d 65 6e 75 73 0d 07 3a  0e ea 20 74 24 20 3a 20  |Menus..:.. t$ : |
00001290  ea 20 dc 0d 07 44 15 de  20 6d 65 6e 75 66 72 65  |. ...D.. menufre|
000012a0  65 25 20 26 32 30 30 30  0d 07 4e 12 70 74 72 25  |e% &2000..N.ptr%|
000012b0  3d 6d 65 6e 75 66 72 65  65 25 0d 07 58 27 f7 2b  |=menufree%..X'.+|
000012c0  31 20 3a 20 f3 20 74 24  20 3a 20 49 63 6f 6e 4d  |1 : . t$ : IconM|
000012d0  25 3d a4 63 72 65 61 74  65 4d 65 6e 75 28 74 24  |%=.createMenu(t$|
000012e0  29 0d 07 62 2c dc 20 22  23 54 61 69 50 65 69 2c  |)..b,. "#TaiPei,|
000012f0  47 61 6d 65 20 48 65 6c  70 2c 49 6e 66 6f 23 3e  |Game Help,Info#>|
00001300  49 6e 66 6f 57 25 2c 51  75 69 74 22 29 0d 07 6c  |InfoW%,Quit")..l|
00001310  21 f3 20 74 24 20 3a 20  4d 61 69 6e 4d 25 3d a4  |!. t$ : MainM%=.|
00001320  63 72 65 61 74 65 4d 65  6e 75 28 74 24 29 0d 07  |createMenu(t$)..|
00001330  76 32 dc 22 23 54 61 69  50 65 69 2c 45 6e 64 20  |v2."#TaiPei,End |
00001340  43 68 65 63 6b 2c 48 69  6e 74 2c 4e 65 77 20 47  |Check,Hint,New G|
00001350  61 6d 65 2c 53 74 61 72  74 20 4f 76 65 72 22 29  |ame,Start Over")|
00001360  0d 07 80 05 e1 0d 07 8a  05 3a 0d 07 94 0f dd 20  |.........:..... |
00001370  f2 6d 65 6e 75 28 68 25  29 0d 07 9e 0b c8 8e 20  |.menu(h%)...... |
00001380  68 25 20 ca 0d 07 a8 17  c9 20 2d 32 20 3a 20 f2  |h% ...... -2 : .|
00001390  70 6f 70 28 49 63 6f 6e  4d 25 29 0d 07 b2 1b c9  |pop(IconM%).....|
000013a0  20 4d 61 69 6e 57 25 20  3a 20 f2 70 6f 70 28 4d  | MainW% : .pop(M|
000013b0  61 69 6e 4d 25 29 0d 07  bc 05 cb 0d 07 c6 05 e1  |ainM%)..........|
000013c0  0d 07 d0 05 3a 0d 07 da  16 dd 20 a4 70 61 72 28  |....:..... .par(|
000013d0  74 24 2c 73 24 2c f8 20  69 25 29 0d 07 e4 1e 61  |t$,s$,. i%)....a|
000013e0  25 3d 69 25 2b 31 20 3a  20 69 25 3d a7 74 24 2b  |%=i%+1 : i%=.t$+|
000013f0  73 24 2c 73 24 2c 61 25  29 0d 07 ee 12 3d c1 74  |s$,s$,a%)....=.t|
00001400  24 2c 61 25 2c 69 25 2d  61 25 29 0d 07 f8 05 3a  |$,a%,i%-a%)....:|
00001410  0d 08 02 15 dd 20 a4 63  72 65 61 74 65 4d 65 6e  |..... .createMen|
00001420  75 28 6d 24 29 0d 08 0c  12 70 74 72 25 3d 6d 65  |u(m$)....ptr%=me|
00001430  6e 75 66 72 65 65 25 0d  08 16 08 69 25 3d 30 0d  |nufree%....i%=0.|
00001440  08 20 12 e7 20 c0 6d 24  2c 31 29 3d 22 23 22 20  |. .. .m$,1)="#" |
00001450  8c 0d 08 2a 28 20 20 20  20 20 3a 20 69 25 3d 31  |...*(     : i%=1|
00001460  20 3a 20 74 69 74 6c 65  24 3d a4 70 61 72 28 6d  | : title$=.par(m|
00001470  24 2c 22 2c 22 2c 69 25  29 0d 08 34 11 cc 20 3a  |$,",",i%)..4.. :|
00001480  20 74 69 74 6c 65 24 3d  22 22 0d 08 3e 05 cd 0d  | title$=""..>...|
00001490  08 48 10 24 70 74 72 25  3d 74 69 74 6c 65 24 0d  |.H.$ptr%=title$.|
000014a0  08 52 31 70 74 72 25 3f  31 32 3d 37 20 3a 20 70  |.R1ptr%?12=7 : p|
000014b0  74 72 25 3f 31 33 3d 32  20 3a 20 70 74 72 25 3f  |tr%?13=2 : ptr%?|
000014c0  31 34 3d 37 20 3a 20 70  74 72 25 3f 31 35 3d 30  |14=7 : ptr%?15=0|
000014d0  0d 08 5c 2b 70 74 72 25  21 31 36 3d 31 39 36 2d  |..\+ptr%!16=196-|
000014e0  32 34 20 3a 20 70 74 72  25 21 32 30 3d 34 34 20  |24 : ptr%!20=44 |
000014f0  3a 20 70 74 72 25 21 32  34 3d 30 0d 08 66 1d 70  |: ptr%!24=0..f.p|
00001500  74 72 25 2b 3d 32 38 20  3a 20 6d 61 78 78 25 3d  |tr%+=28 : maxx%=|
00001510  a9 20 74 69 74 6c 65 24  0d 08 70 05 f5 0d 08 7a  |. title$..p....z|
00001520  2c 69 74 65 6d 24 3d a4  70 61 72 28 6d 24 2c 22  |,item$=.par(m$,"|
00001530  2c 22 2c 69 25 29 20 3a  20 f2 6d 65 6e 75 49 74  |,",i%) : .menuIt|
00001540  65 6d 28 69 74 65 6d 24  29 0d 08 84 0e fd 20 69  |em(item$)..... i|
00001550  74 65 6d 24 3d 22 22 0d  08 8e 26 6d 25 3d 6d 65  |tem$=""...&m%=me|
00001560  6e 75 66 72 65 65 25 20  3a 20 6d 25 21 31 36 3d  |nufree% : m%!16=|
00001570  28 6d 61 78 78 25 2a 38  2b 36 29 2a 32 0d 08 98  |(maxx%*8+6)*2...|
00001580  12 6d 65 6e 75 66 72 65  65 25 3d 70 74 72 25 0d  |.menufree%=ptr%.|
00001590  08 a2 07 3d 6d 25 0d 08  ac 05 3a 0d 08 b6 16 dd  |...=m%....:.....|
000015a0  20 f2 6d 65 6e 75 49 74  65 6d 28 74 65 78 74 24  | .menuItem(text$|
000015b0  29 0d 08 c0 2e e7 20 74  65 78 74 24 3d 22 22 20  |)..... text$="" |
000015c0  8c 20 70 74 72 25 21 2d  32 34 3d 28 70 74 72 25  |. ptr%!-24=(ptr%|
000015d0  21 2d 32 34 29 20 84 20  26 38 30 20 3a 20 e1 0d  |!-24) . &80 : ..|
000015e0  08 ca 0e ea 20 69 25 2c  66 6c 61 67 25 0d 08 d4  |.... i%,flag%...|
000015f0  1e 66 6c 61 67 25 3d 26  30 30 20 3a 20 69 25 3d  |.flag%=&00 : i%=|
00001600  a7 74 65 78 74 24 2c 22  3e 22 29 0d 08 de 0c e7  |.text$,">").....|
00001610  20 69 25 3e 30 20 8c 0d  08 e8 35 20 20 20 20 20  | i%>0 ....5     |
00001620  3a 20 73 75 62 70 74 72  25 3d a0 c1 74 65 78 74  |: subptr%=..text|
00001630  24 2c 69 25 2b 31 29 20  3a 20 74 65 78 74 24 3d  |$,i%+1) : text$=|
00001640  c0 74 65 78 74 24 2c 69  25 2d 31 29 0d 08 f2 12  |.text$,i%-1)....|
00001650  cc 20 3a 20 73 75 62 70  74 72 25 3d 2d 31 0d 08  |. : subptr%=-1..|
00001660  fc 05 cd 0d 09 06 12 69  25 3d a7 74 65 78 74 24  |.......i%=.text$|
00001670  2c 22 7d 22 29 0d 09 10  0c e7 20 69 25 3e 30 20  |,"}")..... i%>0 |
00001680  8c 0d 09 1a 35 20 20 20  20 20 3a 20 73 75 62 70  |....5     : subp|
00001690  74 72 25 3d a0 c1 74 65  78 74 24 2c 69 25 2b 31  |tr%=..text$,i%+1|
000016a0  29 20 3a 20 74 65 78 74  24 3d c0 74 65 78 74 24  |) : text$=.text$|
000016b0  2c 69 25 2d 31 29 0d 09  24 15 20 20 20 20 20 3a  |,i%-1)..$.     :|
000016c0  20 66 6c 61 67 25 2b 3d  26 30 38 0d 09 2e 05 cd  | flag%+=&08.....|
000016d0  0d 09 38 30 e7 20 c2 74  65 78 74 24 2c 31 29 3d  |..80. .text$,1)=|
000016e0  22 23 22 20 8c 20 74 65  78 74 24 3d c0 74 65 78  |"#" . text$=.tex|
000016f0  74 24 29 20 3a 20 66 6c  61 67 25 2b 3d 26 30 32  |t$) : flag%+=&02|
00001700  0d 09 42 34 70 74 72 25  21 30 3d 66 6c 61 67 25  |..B4ptr%!0=flag%|
00001710  20 3a 20 70 74 72 25 21  34 3d 73 75 62 70 74 72  | : ptr%!4=subptr|
00001720  25 20 3a 20 70 74 72 25  21 38 3d 26 30 37 30 30  |% : ptr%!8=&0700|
00001730  30 30 32 31 0d 09 4c 15  e7 20 c0 74 65 78 74 24  |0021..L.. .text$|
00001740  2c 31 29 3d 22 24 22 20  8c 0d 09 56 35 20 20 20  |,1)="$" ...V5   |
00001750  20 20 3a 20 21 70 74 72  25 2b 3d 26 30 34 20 3a  |  : !ptr%+=&04 :|
00001760  20 70 74 72 25 21 38 2b  3d 26 31 30 30 20 3a 20  | ptr%!8+=&100 : |
00001770  69 25 3d a7 74 65 78 74  24 2c 22 28 22 29 0d 09  |i%=.text$,"(")..|
00001780  60 13 20 20 20 20 20 3a  20 e7 20 69 25 3e 30 20  |`.     : . i%>0 |
00001790  8c 0d 09 6a 30 20 20 20  20 20 3a 20 4c 25 3d bb  |...j0     : L%=.|
000017a0  c1 74 65 78 74 24 2c 69  25 2b 31 29 20 3a 20 74  |.text$,i%+1) : t|
000017b0  65 78 74 24 3d c0 74 65  78 74 24 2c 69 25 2d 31  |ext$=.text$,i%-1|
000017c0  29 0d 09 74 0d cc 20 3a  20 4c 25 3d 31 32 0d 09  |)..t.. : L%=12..|
000017d0  7e 05 cd 0d 09 88 37 20  20 20 20 20 3a 20 70 74  |~.....7     : pt|
000017e0  72 25 21 31 32 3d a0 c1  74 65 78 74 24 2c 32 29  |r%!12=..text$,2)|
000017f0  20 3a 20 70 74 72 25 21  31 36 3d 2d 31 20 3a 20  | : ptr%!16=-1 : |
00001800  70 74 72 25 21 32 30 3d  4c 25 0d 09 92 19 20 20  |ptr%!20=L%....  |
00001810  20 20 20 3a 20 74 65 78  74 24 3d c4 4c 25 2c 22  |   : text$=.L%,"|
00001820  20 22 29 0d 09 9c 16 cc  20 3a 20 e7 20 a9 74 65  | ")..... : . .te|
00001830  78 74 24 3c 3d 31 32 20  8c 0d 09 a6 1b 20 20 20  |xt$<=12 .....   |
00001840  20 20 3a 20 24 28 70 74  72 25 2b 31 32 29 3d 74  |  : $(ptr%+12)=t|
00001850  65 78 74 24 0d 09 b0 28  cc 20 3a 20 49 25 3d a4  |ext$...(. : I%=.|
00001860  77 6f 72 6b 73 70 28 a9  74 65 78 74 24 2b 31 29  |worksp(.text$+1)|
00001870  20 3a 20 24 49 25 3d 74  65 78 74 24 0d 09 ba 35  | : $I%=text$...5|
00001880  20 20 20 20 20 3a 20 70  74 72 25 21 31 32 3d 49  |     : ptr%!12=I|
00001890  25 20 3a 20 70 74 72 25  21 31 36 3d 2d 31 20 3a  |% : ptr%!16=-1 :|
000018a0  20 70 74 72 25 21 32 30  3d a9 74 65 78 74 24 2b  | ptr%!20=.text$+|
000018b0  31 0d 09 c4 1f 20 20 20  20 20 3a 20 70 74 72 25  |1....     : ptr%|
000018c0  21 38 3d 70 74 72 25 21  38 20 84 20 26 31 30 30  |!8=ptr%!8 . &100|
000018d0  0d 09 ce 05 cd 0d 09 d8  40 20 20 20 20 20 3a 20  |........@     : |
000018e0  e7 20 a9 74 65 78 74 24  2d 28 73 75 62 70 74 72  |. .text$-(subptr|
000018f0  25 3e 30 29 3e 6d 61 78  78 25 20 8c 20 6d 61 78  |%>0)>maxx% . max|
00001900  78 25 3d a9 74 65 78 74  24 2d 28 73 75 62 70 74  |x%=.text$-(subpt|
00001910  72 25 3e 30 29 0d 09 e2  05 cd 0d 09 ec 0c 70 74  |r%>0).........pt|
00001920  72 25 2b 3d 32 34 0d 09  f6 05 e1 0d 0a 00 05 3a  |r%+=24.........:|
00001930  0d 0a 0a 13 dd 20 f2 74  69 63 6b 28 6d 25 2c 6d  |..... .tick(m%,m|
00001940  69 25 29 0d 0a 14 27 6d  25 21 28 32 38 2b 32 34  |i%)...'m%!(28+24|
00001950  2a 6d 69 25 29 3d 6d 25  21 28 32 38 2b 32 34 2a  |*mi%)=m%!(28+24*|
00001960  6d 69 25 29 20 82 20 26  30 31 0d 0a 1e 05 e1 0d  |mi%) . &01......|
00001970  0a 28 05 3a 0d 0a 32 11  dd 20 a4 77 6f 72 6b 73  |.(.:..2.. .works|
00001980  70 28 4c 25 29 0d 0a 3c  0f 62 75 66 66 65 72 25  |p(L%)..<.buffer%|
00001990  2b 3d 4c 25 0d 0a 46 0f  3d 62 75 66 66 65 72 25  |+=L%..F.=buffer%|
000019a0  2d 4c 25 0d 0a 50 05 3a  0d 0a 5a 11 dd 20 f2 70  |-L%..P.:..Z.. .p|
000019b0  6f 70 28 6d 65 6e 75 25  29 0d 0a 64 11 e7 20 6d  |op(menu%)..d.. m|
000019c0  65 6e 75 25 3c 30 20 8c  20 e1 0d 0a 6e 1c e7 20  |enu%<0 . ...n.. |
000019d0  6d 65 6e 75 25 3d 49 63  6f 6e 4d 25 20 8c 20 6d  |menu%=IconM% . m|
000019e0  79 25 3d 32 32 30 0d 0a  78 2d c8 99 20 22 57 69  |y%=220..x-.. "Wi|
000019f0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001a00  6d 65 6e 75 25 2c 6d 78  25 2d 36 34 2c 6d 79 25  |menu%,mx%-64,my%|
00001a10  2b 33 32 0d 0a 82 10 6f  6d 65 6e 75 25 3d 6d 65  |+32....omenu%=me|
00001a20  6e 75 25 0d 0a 8c 05 e1  0d 0a 96 05 3a 0d 0a a0  |nu%.........:...|
00001a30  10 dd 20 f2 63 6c 6f 73  65 4d 65 6e 75 0d 0a aa  |.. .closeMenu...|
00001a40  1b c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00001a50  4d 65 6e 75 22 2c 2d 31  0d 0a b4 05 e1 0d 0a be  |Menu",-1........|
00001a60  05 3a 0d 0a c8 19 dd 20  f2 67 65 74 49 63 6f 6e  |.:..... .getIcon|
00001a70  49 6e 66 6f 28 68 25 2c  69 25 29 0d 0a d2 1b 62  |Info(h%,i%)....b|
00001a80  6c 6f 63 6b 21 30 3d 68  25 20 3a 20 62 6c 6f 63  |lock!0=h% : bloc|
00001a90  6b 21 34 3d 69 25 0d 0a  dc 21 c8 99 20 22 57 69  |k!4=i%...!.. "Wi|
00001aa0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001ab0  2c 2c 62 6c 6f 63 6b 0d  0a e6 40 69 78 30 25 3d  |,,block...@ix0%=|
00001ac0  62 6c 6f 63 6b 21 38 20  3a 20 69 79 30 25 3d 62  |block!8 : iy0%=b|
00001ad0  6c 6f 63 6b 21 31 32 20  3a 20 69 78 31 25 3d 62  |lock!12 : ix1%=b|
00001ae0  6c 6f 63 6b 21 31 36 20  3a 20 69 79 31 25 3d 62  |lock!16 : iy1%=b|
00001af0  6c 6f 63 6b 21 32 30 0d  0a f0 0f 66 25 3d 62 6c  |lock!20....f%=bl|
00001b00  6f 63 6b 21 32 34 0d 0a  fa 15 e7 20 28 66 25 20  |ock!24..... (f% |
00001b10  80 20 26 31 30 30 29 3e  30 20 8c 0d 0b 04 1a 20  |. &100)>0 ..... |
00001b20  20 20 20 20 3a 20 64 61  74 61 24 3d 24 62 6c 6f  |    : data$=$blo|
00001b30  63 6b 21 32 38 0d 0b 0e  19 cc 20 3a 20 64 61 74  |ck!28..... : dat|
00001b40  61 24 3d 24 28 62 6c 6f  63 6b 2b 32 38 29 0d 0b  |a$=$(block+28)..|
00001b50  18 05 cd 0d 0b 22 05 e1  0d 0b 2c 05 3a 0d 0b 36  |....."....,.:..6|
00001b60  18 dd 20 f2 64 65 6c 65  74 65 49 63 6f 6e 28 68  |.. .deleteIcon(h|
00001b70  25 2c 69 25 29 0d 0b 40  17 f2 67 65 74 49 63 6f  |%,i%)..@..getIco|
00001b80  6e 49 6e 66 6f 28 68 25  2c 69 25 29 0d 0b 4a 1a  |nInfo(h%,i%)..J.|
00001b90  21 62 6c 6f 63 6b 3d 68  25 20 3a 20 62 6c 6f 63  |!block=h% : bloc|
00001ba0  6b 21 34 3d 69 25 0d 0b  54 1f c8 99 20 22 57 69  |k!4=i%..T... "Wi|
00001bb0  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
00001bc0  62 6c 6f 63 6b 0d 0b 5e  30 c8 99 20 22 57 69 6d  |block..^0.. "Wim|
00001bd0  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 68  |p_ForceRedraw",h|
00001be0  25 2c 69 78 30 25 2c 69  79 30 25 2c 69 78 31 25  |%,ix0%,iy0%,ix1%|
00001bf0  2c 69 79 31 25 0d 0b 68  05 e1 0d 0b 72 05 3a 0d  |,iy1%..h....r.:.|
00001c00  0b 7c 19 dd 20 f2 72 65  64 6f 49 63 6f 6e 28 68  |.|.. .redoIcon(h|
00001c10  25 2c 69 25 2c 74 24 29  0d 0b 86 2c f2 67 65 74  |%,i%,t$)...,.get|
00001c20  49 63 6f 6e 49 6e 66 6f  28 68 25 2c 69 25 29 20  |IconInfo(h%,i%) |
00001c30  3a 20 f2 64 65 6c 65 74  65 49 63 6f 6e 28 68 25  |: .deleteIcon(h%|
00001c40  2c 69 25 29 0d 0b 90 2d  69 25 3d a4 73 70 72 49  |,i%)...-i%=.sprI|
00001c50  63 6f 6e 28 68 25 2c 69  78 30 25 2c 69 79 30 25  |con(h%,ix0%,iy0%|
00001c60  2c 69 78 31 25 2c 69 79  31 25 2c 66 25 2c 74 24  |,ix1%,iy1%,f%,t$|
00001c70  29 0d 0b 9a 31 49 25 28  69 25 2c 31 29 3d 69 78  |)...1I%(i%,1)=ix|
00001c80  30 25 20 3a 20 49 25 28  69 25 2c 32 29 3d 69 79  |0% : I%(i%,2)=iy|
00001c90  30 25 20 3a 20 49 25 28  69 25 2c 33 29 3d 69 78  |0% : I%(i%,3)=ix|
00001ca0  31 25 0d 0b a4 1f 49 25  28 69 25 2c 34 29 3d 69  |1%....I%(i%,4)=i|
00001cb0  79 31 25 20 3a 20 49 25  28 69 25 2c 35 29 3d 66  |y1% : I%(i%,5)=f|
00001cc0  25 0d 0b ae 05 e1 0d 0b  b8 05 3a 0d 0b c2 1d dd  |%.........:.....|
00001cd0  20 f2 72 65 63 72 65 61  74 65 49 63 6f 6e 28 68  | .recreateIcon(h|
00001ce0  25 2c 69 25 2c 74 24 29  0d 0b cc 43 69 25 3d a4  |%,i%,t$)...Ci%=.|
00001cf0  73 70 72 49 63 6f 6e 28  68 25 2c 49 25 28 69 25  |sprIcon(h%,I%(i%|
00001d00  2c 31 29 2c 49 25 28 69  25 2c 32 29 2c 49 25 28  |,1),I%(i%,2),I%(|
00001d10  69 25 2c 33 29 2c 49 25  28 69 25 2c 34 29 2c 49  |i%,3),I%(i%,4),I|
00001d20  25 28 69 25 2c 35 29 2c  74 24 29 0d 0b d6 05 e1  |%(i%,5),t$).....|
00001d30  0d 0b e0 05 3a 0d 0b ea  1d dd 20 f2 69 6e 64 69  |....:..... .indi|
00001d40  72 49 63 6f 6e 28 68 25  2c 69 25 2c 74 65 78 74  |rIcon(h%,i%,text|
00001d50  24 29 0d 0b f4 17 f2 67  65 74 49 63 6f 6e 49 6e  |$).....getIconIn|
00001d60  66 6f 28 68 25 2c 69 25  29 0d 0b fe 13 24 62 6c  |fo(h%,i%)....$bl|
00001d70  6f 63 6b 21 32 38 3d 74  65 78 74 24 0d 0c 08 17  |ock!28=text$....|
00001d80  f2 73 65 74 49 63 6f 6e  28 68 25 2c 69 25 2c 30  |.setIcon(h%,i%,0|
00001d90  2c 30 29 0d 0c 12 05 e1  0d 0c 1c 05 3a 0d 0c 26  |,0).........:..&|
00001da0  20 dd 20 f2 73 65 74 49  63 6f 6e 28 68 25 2c 69  | . .setIcon(h%,i|
00001db0  25 2c 65 6f 72 25 2c 6d  61 73 6b 25 29 0d 0c 30  |%,eor%,mask%)..0|
00001dc0  1a 21 62 6c 6f 63 6b 3d  68 25 20 3a 20 62 6c 6f  |.!block=h% : blo|
00001dd0  63 6b 21 34 3d 69 25 0d  0c 3a 23 62 6c 6f 63 6b  |ck!4=i%..:#block|
00001de0  21 38 3d 65 6f 72 25 20  20 20 3a 20 62 6c 6f 63  |!8=eor%   : bloc|
00001df0  6b 21 31 32 3d 6d 61 73  6b 25 0d 0c 44 21 c8 99  |k!12=mask%..D!..|
00001e00  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00001e10  61 74 65 22 2c 2c 62 6c  6f 63 6b 0d 0c 4e 05 e1  |ate",,block..N..|
00001e20  0d 0c 58 05 3a 0d 0c 62  15 dd 20 f2 73 65 6c 49  |..X.:..b.. .selI|
00001e30  63 6f 6e 28 68 25 2c 69  25 29 0d 0c 6c 12 e7 20  |con(h%,i%)..l.. |
00001e40  53 65 6c 25 28 69 25 29  3d 31 20 8c 0d 0c 76 32  |Sel%(i%)=1 ...v2|
00001e50  20 20 20 20 20 3a 20 f2  73 65 74 49 63 6f 6e 28  |     : .setIcon(|
00001e60  68 25 2c 69 25 2c 26 30  2c 26 32 30 30 30 30 30  |h%,i%,&0,&200000|
00001e70  29 20 3a 20 53 65 6c 25  28 69 25 29 3d 30 0d 0c  |) : Sel%(i%)=0..|
00001e80  80 34 cc 20 3a 20 f2 73  65 74 49 63 6f 6e 28 68  |.4. : .setIcon(h|
00001e90  25 2c 69 25 2c 26 32 30  30 30 30 30 2c 26 32 30  |%,i%,&200000,&20|
00001ea0  30 30 30 30 29 20 3a 20  53 65 6c 25 28 69 25 29  |0000) : Sel%(i%)|
00001eb0  3d 31 0d 0c 8a 05 cd 0d  0c 94 05 e1 0d 0c 9e 05  |=1..............|
00001ec0  3a 0d 0c a8 17 dd 20 f2  75 6e 73 65 6c 49 63 6f  |:..... .unselIco|
00001ed0  6e 28 68 25 2c 69 25 29  0d 0c b2 2b f2 73 65 74  |n(h%,i%)...+.set|
00001ee0  49 63 6f 6e 28 68 25 2c  69 25 2c 26 30 2c 26 32  |Icon(h%,i%,&0,&2|
00001ef0  30 30 30 30 30 29 20 3a  20 53 65 6c 25 28 69 25  |00000) : Sel%(i%|
00001f00  29 3d 30 0d 0c bc 05 e1  0d 0c c6 05 3a 0d 0c d0  |)=0.........:...|
00001f10  2f dd 20 a4 73 70 72 49  63 6f 6e 28 68 25 2c 69  |/. .sprIcon(h%,i|
00001f20  78 30 25 2c 69 79 30 25  2c 69 78 31 25 2c 69 79  |x0%,iy0%,ix1%,iy|
00001f30  31 25 2c 66 25 2c 64 61  74 61 24 29 0d 0c da 2b  |1%,f%,data$)...+|
00001f40  21 62 6c 6f 63 6b 3d 68  25 20 3a 20 62 6c 6f 63  |!block=h% : bloc|
00001f50  6b 21 34 3d 69 78 30 25  20 3a 20 62 6c 6f 63 6b  |k!4=ix0% : block|
00001f60  21 38 3d 69 79 30 25 0d  0c e4 2f 62 6c 6f 63 6b  |!8=iy0%.../block|
00001f70  21 31 32 3d 69 78 31 25  20 3a 20 62 6c 6f 63 6b  |!12=ix1% : block|
00001f80  21 31 36 3d 69 79 31 25  20 3a 20 62 6c 6f 63 6b  |!16=iy1% : block|
00001f90  21 32 30 3d 66 25 0d 0c  ee 15 24 28 62 6c 6f 63  |!20=f%....$(bloc|
00001fa0  6b 2b 32 34 29 3d 64 61  74 61 24 0d 0c f8 24 c8  |k+24)=data$...$.|
00001fb0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00001fc0  6f 6e 22 2c 2c 62 6c 6f  63 6b 20 b8 20 69 25 0d  |on",,block . i%.|
00001fd0  0d 02 07 3d 69 25 0d 0d  0c 05 3a 0d 0d 16 0e dd  |...=i%....:.....|
00001fe0  20 a4 69 63 6f 6e 62 61  72 0d 0d 20 25 21 62 6c  | .iconbar.. %!bl|
00001ff0  6f 63 6b 3d 2d 31 20 3a  20 62 6c 6f 63 6b 21 34  |ock=-1 : block!4|
00002000  3d 30 20 3a 20 62 6c 6f  63 6b 21 38 3d 30 0d 0d  |=0 : block!8=0..|
00002010  2a 2e 62 6c 6f 63 6b 21  31 32 3d 36 38 20 3a 20  |*.block!12=68 : |
00002020  62 6c 6f 63 6b 21 31 36  3d 36 38 20 3a 20 62 6c  |block!16=68 : bl|
00002030  6f 63 6b 21 32 30 3d 26  33 31 30 32 0d 0d 34 13  |ock!20=&3102..4.|
00002040  64 61 74 61 24 3d 22 21  74 61 69 70 65 69 22 0d  |data$="!taipei".|
00002050  0d 3e 2e de 20 62 6c 6f  63 6b 21 32 34 20 28 a9  |.>.. block!24 (.|
00002060  20 64 61 74 61 24 2b 31  29 20 3a 20 24 28 62 6c  | data$+1) : $(bl|
00002070  6f 63 6b 21 32 34 29 3d  64 61 74 61 24 0d 0d 48  |ock!24)=data$..H|
00002080  23 62 6c 6f 63 6b 21 32  38 3d 31 20 3a 20 62 6c  |#block!28=1 : bl|
00002090  6f 63 6b 21 33 32 3d a9  20 64 61 74 61 24 2b 31  |ock!32=. data$+1|
000020a0  0d 0d 52 26 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..R&.. "Wimp_Cre|
000020b0  61 74 65 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 20  |ateIcon",,block |
000020c0  b8 20 69 63 6f 6e 0d 0d  5c 09 3d 69 63 6f 6e 0d  |. icon..\.=icon.|
000020d0  0d 66 05 3a 0d 0d 70 10  dd 20 a4 63 68 65 63 6b  |.f.:..p.. .check|
000020e0  28 69 25 29 0d 0d 7a 0b  c8 8e 20 69 25 20 ca 0d  |(i%)..z... i% ..|
000020f0  0d 84 1d c9 20 32 2c 33  2c 34 2c 35 2c 36 2c 37  |.... 2,3,4,5,6,7|
00002100  2c 38 2c 39 2c 31 30 2c  31 31 20 3a 0d 0d 8e 29  |,8,9,10,11 :...)|
00002110  20 20 20 20 20 3a 20 e7  20 50 25 28 69 25 2b 31  |     : . P%(i%+1|
00002120  29 3e 30 20 80 20 50 25  28 69 25 2d 31 29 3e 30  |)>0 . P%(i%-1)>0|
00002130  20 8c 20 3d a3 0d 0d 98  19 c9 20 31 34 2c 31 35  | . =...... 14,15|
00002140  2c 31 36 2c 31 37 2c 31  38 2c 31 39 20 3a 0d 0d  |,16,17,18,19 :..|
00002150  a2 39 20 20 20 20 20 3a  20 e7 20 50 25 28 69 25  |.9     : . P%(i%|
00002160  2b 37 34 29 3e 30 20 84  20 28 50 25 28 69 25 2b  |+74)>0 . (P%(i%+|
00002170  31 29 3e 30 20 80 20 50  25 28 69 25 2d 31 29 3e  |1)>0 . P%(i%-1)>|
00002180  30 29 20 8c 20 3d a3 0d  0d ac 19 c9 20 32 33 2c  |0) . =...... 23,|
00002190  32 34 2c 32 35 2c 32 36  2c 32 37 2c 32 38 20 3a  |24,25,26,27,28 :|
000021a0  0d 0d b6 39 20 20 20 20  20 3a 20 e7 20 50 25 28  |...9     : . P%(|
000021b0  69 25 2b 37 31 29 3e 30  20 84 20 28 50 25 28 69  |i%+71)>0 . (P%(i|
000021c0  25 2b 31 29 3e 30 20 80  20 50 25 28 69 25 2d 31  |%+1)>0 . P%(i%-1|
000021d0  29 3e 30 29 20 8c 20 3d  a3 0d 0d c0 19 c9 20 33  |)>0) . =...... 3|
000021e0  36 2c 33 37 2c 33 38 2c  33 39 2c 34 30 2c 34 31  |6,37,38,39,40,41|
000021f0  20 3a 0d 0d ca 39 20 20  20 20 20 3a 20 e7 20 50  | :...9     : . P|
00002200  25 28 69 25 2b 36 34 29  3e 30 20 84 20 28 50 25  |%(i%+64)>0 . (P%|
00002210  28 69 25 2b 31 29 3e 30  20 80 20 50 25 28 69 25  |(i%+1)>0 . P%(i%|
00002220  2d 31 29 3e 30 29 20 8c  20 3d a3 0d 0d d4 0a c9  |-1)>0) . =......|
00002230  20 34 34 20 3a 0d 0d de  27 20 20 20 20 20 3a 20  | 44 :...'     : |
00002240  e7 20 28 50 25 28 34 33  29 3e 30 20 80 20 50 25  |. (P%(43)>0 . P%|
00002250  28 35 37 29 3e 30 29 20  8c 20 3d a3 0d 0d e8 0a  |(57)>0) . =.....|
00002260  c9 20 34 35 20 3a 0d 0d  f2 27 20 20 20 20 20 3a  |. 45 :...'     :|
00002270  20 e7 20 28 50 25 28 33  32 29 3e 30 20 80 20 50  | . (P%(32)>0 . P|
00002280  25 28 34 36 29 3e 30 29  20 8c 20 3d a3 0d 0d fc  |%(46)>0) . =....|
00002290  19 c9 20 34 38 2c 34 39  2c 35 30 2c 35 31 2c 35  |.. 48,49,50,51,5|
000022a0  32 2c 35 33 20 3a 0d 0e  06 39 20 20 20 20 20 3a  |2,53 :...9     :|
000022b0  20 e7 20 50 25 28 69 25  2b 35 38 29 3e 30 20 84  | . P%(i%+58)>0 .|
000022c0  20 28 50 25 28 69 25 2b  31 29 3e 30 20 80 20 50  | (P%(i%+1)>0 . P|
000022d0  25 28 69 25 2d 31 29 3e  30 29 20 8c 20 3d a3 0d  |%(i%-1)>0) . =..|
000022e0  0e 10 19 c9 20 36 30 2c  36 31 2c 36 32 2c 36 33  |.... 60,61,62,63|
000022f0  2c 36 34 2c 36 35 20 3a  0d 0e 1a 39 20 20 20 20  |,64,65 :...9    |
00002300  20 3a 20 e7 20 50 25 28  69 25 2b 35 32 29 3e 30  | : . P%(i%+52)>0|
00002310  20 84 20 28 50 25 28 69  25 2b 31 29 3e 30 20 80  | . (P%(i%+1)>0 .|
00002320  20 50 25 28 69 25 2d 31  29 3e 30 29 20 8c 20 3d  | P%(i%-1)>0) . =|
00002330  a3 0d 0e 24 34 c9 20 32  32 2c 32 39 2c 33 32 2c  |...$4. 22,29,32,|
00002340  33 33 2c 33 34 2c 33 35  2c 34 32 2c 34 33 2c 34  |33,34,35,42,43,4|
00002350  36 2c 34 37 2c 35 34 2c  35 35 2c 35 36 2c 35 39  |6,47,54,55,56,59|
00002360  2c 36 36 20 3a 0d 0e 2e  29 20 20 20 20 20 3a 20  |,66 :...)     : |
00002370  e7 20 50 25 28 69 25 2b  31 29 3e 30 20 80 20 50  |. P%(i%+1)>0 . P|
00002380  25 28 69 25 2d 31 29 3e  30 20 8c 20 3d a3 0d 0e  |%(i%-1)>0 . =...|
00002390  38 19 c9 20 36 39 2c 37  30 2c 37 31 2c 37 32 2c  |8.. 69,70,71,72,|
000023a0  37 33 2c 37 34 20 3a 0d  0e 42 39 20 20 20 20 20  |73,74 :..B9     |
000023b0  3a 20 e7 20 50 25 28 69  25 2b 34 39 29 3e 30 20  |: . P%(i%+49)>0 |
000023c0  84 20 28 50 25 28 69 25  2b 31 29 3e 30 20 80 20  |. (P%(i%+1)>0 . |
000023d0  50 25 28 69 25 2d 31 29  3e 30 29 20 8c 20 3d a3  |P%(i%-1)>0) . =.|
000023e0  0d 0e 4c 31 c9 20 37 37  2c 37 38 2c 37 39 2c 38  |..L1. 77,78,79,8|
000023f0  30 2c 38 31 2c 38 32 2c  38 33 2c 38 34 2c 38 35  |0,81,82,83,84,85|
00002400  2c 38 36 2c 38 39 2c 39  30 2c 39 31 2c 39 32 20  |,86,89,90,91,92 |
00002410  3a 0d 0e 56 29 20 20 20  20 20 3a 20 e7 20 50 25  |:..V)     : . P%|
00002420  28 69 25 2b 31 29 3e 30  20 80 20 50 25 28 69 25  |(i%+1)>0 . P%(i%|
00002430  2d 31 29 3e 30 20 8c 20  3d a3 0d 0e 60 13 c9 20  |-1)>0 . =...`.. |
00002440  39 35 2c 39 36 2c 39 37  2c 39 38 20 3a 0d 0e 6a  |95,96,97,98 :..j|
00002450  39 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |9     : . P%(i%+|
00002460  32 39 29 3e 30 20 84 20  28 50 25 28 69 25 2b 31  |29)>0 . (P%(i%+1|
00002470  29 3e 30 20 80 20 50 25  28 69 25 2d 31 29 3e 30  |)>0 . P%(i%-1)>0|
00002480  29 20 8c 20 3d a3 0d 0e  74 17 c9 20 31 30 31 2c  |) . =...t.. 101,|
00002490  31 30 32 2c 31 30 33 2c  31 30 34 20 3a 0d 0e 7e  |102,103,104 :..~|
000024a0  39 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |9     : . P%(i%+|
000024b0  32 37 29 3e 30 20 84 20  28 50 25 28 69 25 2b 31  |27)>0 . (P%(i%+1|
000024c0  29 3e 30 20 80 20 50 25  28 69 25 2d 31 29 3e 30  |)>0 . P%(i%-1)>0|
000024d0  29 20 8c 20 3d a3 0d 0e  88 17 c9 20 31 30 37 2c  |) . =...... 107,|
000024e0  31 30 38 2c 31 30 39 2c  31 31 30 20 3a 0d 0e 92  |108,109,110 :...|
000024f0  39 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |9     : . P%(i%+|
00002500  32 35 29 3e 30 20 84 20  28 50 25 28 69 25 2b 31  |25)>0 . (P%(i%+1|
00002510  29 3e 30 20 80 20 50 25  28 69 25 2d 31 29 3e 30  |)>0 . P%(i%-1)>0|
00002520  29 20 8c 20 3d a3 0d 0e  9c 17 c9 20 31 31 33 2c  |) . =...... 113,|
00002530  31 31 34 2c 31 31 35 2c  31 31 36 20 3a 0d 0e a6  |114,115,116 :...|
00002540  39 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |9     : . P%(i%+|
00002550  32 33 29 3e 30 20 84 20  28 50 25 28 69 25 2b 31  |23)>0 . (P%(i%+1|
00002560  29 3e 30 20 80 20 50 25  28 69 25 2d 31 29 3e 30  |)>0 . P%(i%-1)>0|
00002570  29 20 8c 20 3d a3 0d 0e  b0 27 c9 20 31 31 39 2c  |) . =....'. 119,|
00002580  31 32 30 2c 31 32 31 2c  31 32 32 2c 31 32 35 2c  |120,121,122,125,|
00002590  31 32 36 2c 31 33 37 2c  31 33 38 20 3a 0d 0e ba  |126,137,138 :...|
000025a0  29 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |)     : . P%(i%+|
000025b0  31 29 3e 30 20 80 20 50  25 28 69 25 2d 31 29 3e  |1)>0 . P%(i%-1)>|
000025c0  30 20 8c 20 3d a3 0d 0e  c4 0f c9 20 31 32 39 2c  |0 . =...... 129,|
000025d0  31 33 30 20 3a 0d 0e ce  39 20 20 20 20 20 3a 20  |130 :...9     : |
000025e0  e7 20 50 25 28 69 25 2b  31 31 29 3e 30 20 84 20  |. P%(i%+11)>0 . |
000025f0  28 50 25 28 69 25 2b 31  29 3e 30 20 80 20 50 25  |(P%(i%+1)>0 . P%|
00002600  28 69 25 2d 31 29 3e 30  29 20 8c 20 3d a3 0d 0e  |(i%-1)>0) . =...|
00002610  d8 0f c9 20 31 33 33 2c  31 33 34 20 3a 0d 0e e2  |... 133,134 :...|
00002620  38 20 20 20 20 20 3a 20  e7 20 50 25 28 69 25 2b  |8     : . P%(i%+|
00002630  39 29 3e 30 20 84 20 28  50 25 28 69 25 2b 31 29  |9)>0 . (P%(i%+1)|
00002640  3e 30 20 80 20 50 25 28  69 25 2d 31 29 3e 30 29  |>0 . P%(i%-1)>0)|
00002650  20 8c 20 3d a3 0d 0e ec  17 c9 20 31 34 30 2c 31  | . =...... 140,1|
00002660  34 31 2c 31 34 32 2c 31  34 33 20 3a 0d 0e f6 1b  |41,142,143 :....|
00002670  20 20 20 20 20 3a 20 e7  20 50 25 28 31 34 34 29  |     : . P%(144)|
00002680  3e 30 20 8c 20 3d a3 0d  0f 00 05 cb 0d 0f 0a 06  |>0 . =..........|
00002690  3d b9 0d 0f 14 05 3a 0d  0f 1e 11 dd 20 a4 63 68  |=.....:..... .ch|
000026a0  65 63 6b 4d 61 74 63 68  0d 0f 28 28 e7 20 50 25  |eckMatch..((. P%|
000026b0  28 53 65 6c 65 63 74 25  28 31 29 29 3d 50 25 28  |(Select%(1))=P%(|
000026c0  53 65 6c 65 63 74 25 28  32 29 29 20 8c 20 3d b9  |Select%(2)) . =.|
000026d0  0d 0f 32 17 c8 8e 20 50  25 28 53 65 6c 65 63 74  |..2... P%(Select|
000026e0  25 28 31 29 29 20 ca 0d  0f 3c 13 c9 20 32 30 2c  |%(1)) ...<.. 20,|
000026f0  34 30 2c 34 31 2c 34 32  20 3a 0d 0f 46 5f 20 20  |40,41,42 :..F_  |
00002700  20 20 20 3a 20 e7 20 50  25 28 53 65 6c 65 63 74  |   : . P%(Select|
00002710  25 28 32 29 29 3d 32 30  20 84 20 50 25 28 53 65  |%(2))=20 . P%(Se|
00002720  6c 65 63 74 25 28 32 29  29 3d 34 30 20 84 20 50  |lect%(2))=40 . P|
00002730  25 28 53 65 6c 65 63 74  25 28 32 29 29 3d 34 31  |%(Select%(2))=41|
00002740  20 84 20 50 25 28 53 65  6c 65 63 74 25 28 32 29  | . P%(Select%(2)|
00002750  29 3d 34 32 20 8c 20 3d  b9 0d 0f 50 13 c9 20 31  |)=42 . =...P.. 1|
00002760  38 2c 33 37 2c 33 38 2c  33 39 20 3a 0d 0f 5a 5f  |8,37,38,39 :..Z_|
00002770  20 20 20 20 20 3a 20 e7  20 50 25 28 53 65 6c 65  |     : . P%(Sele|
00002780  63 74 25 28 32 29 29 3d  31 38 20 84 20 50 25 28  |ct%(2))=18 . P%(|
00002790  53 65 6c 65 63 74 25 28  32 29 29 3d 33 37 20 84  |Select%(2))=37 .|
000027a0  20 50 25 28 53 65 6c 65  63 74 25 28 32 29 29 3d  | P%(Select%(2))=|
000027b0  33 38 20 84 20 50 25 28  53 65 6c 65 63 74 25 28  |38 . P%(Select%(|
000027c0  32 29 29 3d 33 39 20 8c  20 3d b9 0d 0f 64 05 cb  |2))=39 . =...d..|
000027d0  0d 0f 6e 06 3d a3 0d 0f  78 05 3a 0d 0f 82 0b dd  |..n.=...x.:.....|
000027e0  20 f2 68 69 6e 74 0d 0f  8c 10 e7 20 68 69 6e 74  | .hint..... hint|
000027f0  73 25 3c 31 20 8c 0d 0f  96 33 20 20 20 20 20 3a  |s%<1 ....3     :|
00002800  20 f2 69 6e 64 69 72 49  63 6f 6e 28 4d 61 69 6e  | .indirIcon(Main|
00002810  57 25 2c 31 35 30 2c 22  4e 4f 20 48 49 4e 54 53  |W%,150,"NO HINTS|
00002820  20 4c 45 46 54 21 21 22  29 0d 0f a0 12 20 20 20  | LEFT!!")....   |
00002830  20 20 3a 20 ef 20 37 20  3a 20 e1 0d 0f aa 05 cd  |  : . 7 : ......|
00002840  0d 0f b4 22 f2 63 6c 6f  73 65 4d 65 6e 75 20 3a  |...".closeMenu :|
00002850  20 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  | .. "Hourglass_O|
00002860  6e 22 0d 0f be 22 e3 20  68 3d 31 34 34 20 b8 20  |n"...". h=144 . |
00002870  31 20 88 20 2d 31 20 3a  20 e7 20 50 25 28 68 29  |1 . -1 : . P%(h)|
00002880  3e 30 20 8c 0d 0f c8 20  20 20 20 20 20 3a 20 61  |>0 ....      : a|
00002890  3d a4 63 68 65 63 6b 28  68 29 20 3a 20 e7 20 61  |=.check(h) : . a|
000028a0  3d b9 20 8c 0d 0f d2 2a  20 20 20 20 20 3a 20 53  |=. ....*     : S|
000028b0  65 6c 65 63 74 25 28 31  29 3d 68 20 3a 20 e3 20  |elect%(1)=h : . |
000028c0  69 3d 68 2d 31 20 b8 20  31 20 88 20 2d 31 0d 0f  |i=h-1 . 1 . -1..|
000028d0  dc 20 20 20 20 20 20 3a  20 62 3d a4 63 68 65 63  |.      : b=.chec|
000028e0  6b 28 69 29 20 3a 20 e7  20 62 3d b9 20 8c 0d 0f  |k(i) : . b=. ...|
000028f0  e6 2b 20 20 20 20 20 3a  20 53 65 6c 65 63 74 25  |.+     : Select%|
00002900  28 32 29 3d 69 20 3a 20  e7 20 a4 63 68 65 63 6b  |(2)=i : . .check|
00002910  4d 61 74 63 68 3d b9 20  8c 0d 0f f0 32 20 20 20  |Match=. ....2   |
00002920  20 20 3a 20 f2 73 65 6c  49 63 6f 6e 28 4d 61 69  |  : .selIcon(Mai|
00002930  6e 57 25 2c 68 29 20 3a  20 f2 73 65 6c 49 63 6f  |nW%,h) : .selIco|
00002940  6e 28 4d 61 69 6e 57 25  2c 69 29 0d 0f fa 33 20  |n(MainW%,i)...3 |
00002950  20 20 20 20 3a 20 c8 99  20 22 48 6f 75 72 67 6c  |    : .. "Hourgl|
00002960  61 73 73 5f 53 6d 61 73  68 22 20 3a 20 68 69 6e  |ass_Smash" : hin|
00002970  74 25 3d b9 20 3a 20 d1  3d 30 20 3a 20 e1 0d 10  |t%=. : .=0 : ...|
00002980  04 05 cd 0d 10 0e 05 cd  0d 10 18 07 ed 20 69 0d  |............. i.|
00002990  10 22 05 cd 0d 10 2c 05  cd 0d 10 36 07 ed 20 68  |."....,....6.. h|
000029a0  0d 10 40 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |..@... "Hourglas|
000029b0  73 5f 4f 66 66 22 0d 10  4a 40 e7 20 68 3d 30 20  |s_Off"..J@. h=0 |
000029c0  80 20 69 3c 31 20 8c 20  ef 20 37 20 3a 20 f2 69  |. i<1 . . 7 : .i|
000029d0  6e 64 69 72 49 63 6f 6e  28 4d 61 69 6e 57 25 2c  |ndirIcon(MainW%,|
000029e0  31 35 30 2c 22 4e 4f 20  46 52 45 45 20 54 49 4c  |150,"NO FREE TIL|
000029f0  45 53 21 21 22 29 0d 10  54 05 e1 0d 10 5e 05 3a  |ES!!")..T....^.:|
00002a00  0d 10 68 0f dd 20 f2 63  68 65 63 6b 45 6e 64 0d  |..h.. .checkEnd.|
00002a10  10 72 18 43 25 28 29 3d  50 25 28 29 20 3a 20 43  |.r.C%()=P%() : C|
00002a20  6f 75 6e 74 25 3d 30 0d  10 7c 15 c8 99 20 22 48  |ount%=0..|... "H|
00002a30  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 10 86 22  |ourglass_On"..."|
00002a40  e3 20 68 3d 31 34 34 20  b8 20 31 20 88 20 2d 31  |. h=144 . 1 . -1|
00002a50  20 3a 20 e7 20 43 25 28  68 29 3e 30 20 8c 0d 10  | : . C%(h)>0 ...|
00002a60  90 20 20 20 20 20 20 3a  20 61 3d a4 63 68 65 63  |.      : a=.chec|
00002a70  6b 28 68 29 20 3a 20 e7  20 61 3d b9 20 8c 0d 10  |k(h) : . a=. ...|
00002a80  9a 2a 20 20 20 20 20 3a  20 53 65 6c 65 63 74 25  |.*     : Select%|
00002a90  28 31 29 3d 68 20 3a 20  e3 20 69 3d 68 2d 31 20  |(1)=h : . i=h-1 |
00002aa0  b8 20 31 20 88 20 2d 31  0d 10 a4 20 20 20 20 20  |. 1 . -1...     |
00002ab0  20 3a 20 62 3d a4 63 68  65 63 6b 28 69 29 20 3a  | : b=.check(i) :|
00002ac0  20 e7 20 62 3d b9 20 8c  0d 10 ae 2b 20 20 20 20  | . b=. ....+    |
00002ad0  20 3a 20 53 65 6c 65 63  74 25 28 32 29 3d 69 20  | : Select%(2)=i |
00002ae0  3a 20 e7 20 a4 63 68 65  63 6b 4d 61 74 63 68 3d  |: . .checkMatch=|
00002af0  b9 20 8c 0d 10 b8 28 20  20 20 20 20 3a 20 43 25  |. ....(     : C%|
00002b00  28 68 29 3d 30 20 3a 20  43 25 28 69 29 3d 30 20  |(h)=0 : C%(i)=0 |
00002b10  3a 20 43 6f 75 6e 74 25  2b 3d 31 0d 10 c2 05 cd  |: Count%+=1.....|
00002b20  0d 10 cc 05 cd 0d 10 d6  07 ed 20 69 0d 10 e0 05  |.......... i....|
00002b30  cd 0d 10 ea 05 cd 0d 10  f4 07 ed 20 68 0d 10 fe  |........... h...|
00002b40  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00002b50  66 66 22 0d 11 08 10 e7  20 43 6f 75 6e 74 25 3e  |ff"..... Count%>|
00002b60  30 20 8c 0d 11 12 3d 20  20 20 20 20 3a 20 f2 69  |0 ....=     : .i|
00002b70  6e 64 69 72 49 63 6f 6e  28 4d 61 69 6e 57 25 2c  |ndirIcon(MainW%,|
00002b80  31 35 30 2c 22 54 49 4c  45 53 20 46 52 45 45 20  |150,"TILES FREE |
00002b90  3d 20 22 2b c3 28 43 6f  75 6e 74 25 2a 32 29 29  |= "+.(Count%*2))|
00002ba0  0d 11 1c 30 cc 20 3a 20  f2 69 6e 64 69 72 49 63  |...0. : .indirIc|
00002bb0  6f 6e 28 4d 61 69 6e 57  25 2c 31 35 30 2c 22 4e  |on(MainW%,150,"N|
00002bc0  4f 20 54 49 4c 45 53 20  46 52 45 45 21 21 22 29  |O TILES FREE!!")|
00002bd0  0d 11 26 05 cd 0d 11 30  05 e1 0d 11 3a 05 3a 0d  |..&....0....:.:.|
00002be0  11 44 11 dd 20 f2 6c 6f  63 61 6c 45 72 72 6f 72  |.D.. .localError|
00002bf0  0d 11 4e 19 c8 99 20 22  57 69 6d 70 5f 44 72 61  |..N... "Wimp_Dra|
00002c00  67 42 6f 78 22 2c 2c 2d  31 0d 11 58 26 21 62 6c  |gBox",,-1..X&!bl|
00002c10  6f 63 6b 3d 9f 20 3a 20  24 28 62 6c 6f 63 6b 2b  |ock=. : $(block+|
00002c20  34 29 3d 45 72 72 6f 72  4d 73 67 24 2b bd 30 0d  |4)=ErrorMsg$+.0.|
00002c30  11 62 3a c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |.b:.. "Wimp_Repo|
00002c40  72 74 45 72 72 6f 72 22  2c 62 6c 6f 63 6b 2c 31  |rtError",block,1|
00002c50  37 2c 22 4d 65 73 73 61  67 65 20 66 72 6f 6d 20  |7,"Message from |
00002c60  22 2b 54 61 73 6b 69 64  24 0d 11 6c 05 e1 0d 11  |"+Taskid$..l....|
00002c70  76 05 3a 0d 11 80 1a dd  20 a4 65 72 72 43 68 65  |v.:..... .errChe|
00002c80  63 6b 28 45 72 72 24 2c  62 6f 78 25 29 0d 11 8a  |ck(Err$,box%)...|
00002c90  19 c8 99 20 22 57 69 6d  70 5f 44 72 61 67 42 6f  |... "Wimp_DragBo|
00002ca0  78 22 2c 2c 2d 31 0d 11  94 21 21 62 6c 6f 63 6b  |x",,-1...!!block|
00002cb0  3d 30 20 3a 20 24 28 62  6c 6f 63 6b 2b 34 29 3d  |=0 : $(block+4)=|
00002cc0  45 72 72 24 2b bd 30 0d  11 9e 34 c8 99 20 22 57  |Err$+.0...4.. "W|
00002cd0  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00002ce0  2c 62 6c 6f 63 6b 2c 62  6f 78 25 2c 54 61 73 6b  |,block,box%,Task|
00002cf0  69 64 24 20 b8 20 2c 65  72 72 25 0d 11 a8 0b 3d  |id$ . ,err%....=|
00002d00  65 72 72 25 3d 31 0d 11  b2 05 3a 0d 11 bc 0c dd  |err%=1....:.....|
00002d10  20 f2 65 72 72 6f 72 0d  11 c6 19 c8 99 20 22 57  | .error...... "W|
00002d20  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 2d 31  |imp_DragBox",,-1|
00002d30  0d 11 d0 2e 21 62 6c 6f  63 6b 3d 9f 20 3a 20 24  |....!block=. : $|
00002d40  28 62 6c 6f 63 6b 2b 34  29 3d f6 24 2b 22 20 61  |(block+4)=.$+" a|
00002d50  74 20 6c 69 6e 65 20 22  2b c3 9e 2b bd 30 0d 11  |t line "+..+.0..|
00002d60  da 29 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.).. "Wimp_Repor|
00002d70  74 45 72 72 6f 72 22 2c  62 6c 6f 63 6b 2c 31 2c  |tError",block,1,|
00002d80  54 61 73 6b 69 64 24 0d  11 e4 05 e1 0d 11 ee 05  |Taskid$.........|
00002d90  3a 0d 11 f8 11 dd 20 f2  73 65 74 75 70 42 6f 61  |:..... .setupBoa|
00002da0  72 64 0d 12 02 15 c8 99  20 22 48 6f 75 72 67 6c  |rd...... "Hourgl|
00002db0  61 73 73 5f 4f 6e 22 0d  12 0c 2f f7 20 8d 44 7e  |ass_On".../. .D~|
00002dc0  53 20 3a 20 e3 20 4b 3d  31 20 b8 20 34 20 3a 20  |S : . K=1 . 4 : |
00002dd0  e3 20 4a 3d 31 20 b8 20  38 20 3a 20 e3 20 49 3d  |. J=1 . 8 : . I=|
00002de0  31 20 b8 20 31 32 0d 12  16 1a f3 20 73 74 61 72  |1 . 12..... star|
00002df0  74 25 28 49 2c 4a 2c 4b  29 20 3a 20 ed 20 2c 2c  |t%(I,J,K) : . ,,|
00002e00  0d 12 20 2a e7 20 72 65  70 6c 61 79 25 20 8c 20  |.. *. replay% . |
00002e10  42 25 3d b3 28 2d 41 25  29 20 8b 20 41 25 3d 91  |B%=.(-A%) . A%=.|
00002e20  3a 42 25 3d b3 28 2d 41  25 29 0d 12 2a 0e 62 6f  |:B%=.(-A%)..*.bo|
00002e30  61 72 64 25 28 29 3d 30  0d 12 34 0e e3 20 49 3d  |ard%()=0..4.. I=|
00002e40  31 20 b8 20 33 36 0d 12  3e 0a c8 8e 20 49 20 ca  |1 . 36..>... I .|
00002e50  0d 12 48 33 c9 20 32 30  20 3a 20 e3 20 4a 3d 31  |..H3. 20 : . J=1|
00002e60  20 b8 20 34 20 3a 20 f5  20 3a 20 57 3d b3 28 31  | . 4 : . : W=.(1|
00002e70  34 34 29 20 3a 20 fd 20  62 6f 61 72 64 25 28 57  |44) : . board%(W|
00002e80  29 3d 30 0d 12 52 0a c8  8e 20 4a 20 ca 0d 12 5c  |)=0..R... J ...\|
00002e90  16 c9 20 31 20 3a 20 62  6f 61 72 64 25 28 57 29  |.. 1 : board%(W)|
00002ea0  3d 32 30 0d 12 66 16 c9  20 32 20 3a 20 62 6f 61  |=20..f.. 2 : boa|
00002eb0  72 64 25 28 57 29 3d 34  30 0d 12 70 16 c9 20 33  |rd%(W)=40..p.. 3|
00002ec0  20 3a 20 62 6f 61 72 64  25 28 57 29 3d 34 31 0d  | : board%(W)=41.|
00002ed0  12 7a 16 c9 20 34 20 3a  20 62 6f 61 72 64 25 28  |.z.. 4 : board%(|
00002ee0  57 29 3d 34 32 0d 12 84  05 cb 0d 12 8e 07 ed 20  |W)=42.......... |
00002ef0  4a 0d 12 98 33 c9 20 31  38 20 3a 20 e3 20 4a 3d  |J...3. 18 : . J=|
00002f00  31 20 b8 20 34 20 3a 20  f5 20 3a 20 57 3d b3 28  |1 . 4 : . : W=.(|
00002f10  31 34 34 29 20 3a 20 fd  20 62 6f 61 72 64 25 28  |144) : . board%(|
00002f20  57 29 3d 30 0d 12 a2 0a  c8 8e 20 4a 20 ca 0d 12  |W)=0...... J ...|
00002f30  ac 16 c9 20 31 20 3a 20  62 6f 61 72 64 25 28 57  |... 1 : board%(W|
00002f40  29 3d 31 38 0d 12 b6 16  c9 20 32 20 3a 20 62 6f  |)=18..... 2 : bo|
00002f50  61 72 64 25 28 57 29 3d  33 37 0d 12 c0 16 c9 20  |ard%(W)=37..... |
00002f60  33 20 3a 20 62 6f 61 72  64 25 28 57 29 3d 33 38  |3 : board%(W)=38|
00002f70  0d 12 ca 16 c9 20 34 20  3a 20 62 6f 61 72 64 25  |..... 4 : board%|
00002f80  28 57 29 3d 33 39 0d 12  d4 05 cb 0d 12 de 07 ed  |(W)=39..........|
00002f90  20 4a 0d 12 e8 30 7f 20  3a 20 e3 20 4a 3d 31 20  | J...0. : . J=1 |
00002fa0  b8 20 34 20 3a 20 f5 20  3a 20 57 3d b3 28 31 34  |. 4 : . : W=.(14|
00002fb0  34 29 20 3a 20 fd 20 62  6f 61 72 64 25 28 57 29  |4) : . board%(W)|
00002fc0  3d 30 0d 12 f2 21 20 20  20 20 20 20 20 20 20 20  |=0...!          |
00002fd0  3a 20 62 6f 61 72 64 25  28 57 29 3d 49 20 3a 20  |: board%(W)=I : |
00002fe0  ed 20 4a 0d 12 fc 05 cb  0d 13 06 07 ed 20 49 0d  |. J.......... I.|
00002ff0  13 10 34 63 75 72 72 65  6e 74 25 28 29 3d 73 74  |..4current%()=st|
00003000  61 72 74 25 28 29 20 3a  20 70 6f 73 69 74 69 6f  |art%() : positio|
00003010  6e 25 28 29 3d 30 20 3a  20 70 6f 73 69 74 69 6f  |n%()=0 : positio|
00003020  6e 3d 31 0d 13 1a 26 e3  20 4b 3d 31 20 b8 20 34  |n=1...&. K=1 . 4|
00003030  20 3a 20 e3 20 4a 3d 31  20 b8 20 38 20 3a 20 e3  | : . J=1 . 8 : .|
00003040  20 49 3d 31 20 b8 20 31  32 0d 13 24 1a e7 20 63  | I=1 . 12..$.. c|
00003050  75 72 72 65 6e 74 25 28  49 2c 4a 2c 4b 29 3c 3e  |urrent%(I,J,K)<>|
00003060  30 20 8c 0d 13 2e 2b 20  20 20 20 20 3a 20 63 75  |0 ....+     : cu|
00003070  72 72 65 6e 74 25 28 49  2c 4a 2c 4b 29 3d 62 6f  |rrent%(I,J,K)=bo|
00003080  61 72 64 25 28 70 6f 73  69 74 69 6f 6e 29 0d 13  |ard%(position)..|
00003090  38 32 20 20 20 20 20 3a  20 70 6f 73 69 74 69 6f  |82     : positio|
000030a0  6e 25 28 49 2c 4a 2c 4b  29 3d 70 6f 73 69 74 69  |n%(I,J,K)=positi|
000030b0  6f 6e 20 3a 20 70 6f 73  69 74 69 6f 6e 2b 3d 31  |on : position+=1|
000030c0  0d 13 42 05 cd 0d 13 4c  08 ed 20 2c 2c 0d 13 56  |..B....L.. ,,..V|
000030d0  3d e3 20 49 3d 31 20 b8  20 34 20 3a 20 65 78 74  |=. I=1 . 4 : ext|
000030e0  72 61 73 25 28 49 29 3d  62 6f 61 72 64 25 28 70  |ras%(I)=board%(p|
000030f0  6f 73 69 74 69 6f 6e 29  20 3a 20 70 6f 73 69 74  |osition) : posit|
00003100  69 6f 6e 2b 3d 31 20 3a  20 ed 0d 13 60 1f 65 6e  |ion+=1 : ...`.en|
00003110  64 25 3d a3 20 3a 20 61  75 74 6f 25 3d a3 20 3a  |d%=. : auto%=. :|
00003120  20 68 69 6e 74 73 25 3d  35 0d 13 6a 05 e1 0d 13  | hints%=5..j....|
00003130  74 05 3a 0d 13 7e 1b f4  20 64 61 74 61 20 66 6f  |t.:..~.. data fo|
00003140  72 20 62 6f 74 74 6f 6d  20 6c 61 79 65 72 0d 13  |r bottom layer..|
00003150  88 1d dc 20 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |... 1,1,1,1,1,1,|
00003160  31 2c 31 2c 31 2c 31 2c  31 2c 31 0d 13 92 1d dc  |1,1,1,1,1,1.....|
00003170  20 30 2c 30 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  | 0,0,1,1,1,1,1,1|
00003180  2c 31 2c 31 2c 30 2c 30  0d 13 9c 1d dc 20 30 2c  |,1,1,0,0..... 0,|
00003190  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |1,1,1,1,1,1,1,1,|
000031a0  31 2c 31 2c 30 0d 13 a6  1d dc 20 31 2c 31 2c 31  |1,1,0..... 1,1,1|
000031b0  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |,1,1,1,1,1,1,1,1|
000031c0  2c 31 0d 13 b0 1d dc 20  31 2c 31 2c 31 2c 31 2c  |,1..... 1,1,1,1,|
000031d0  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 0d  |1,1,1,1,1,1,1,1.|
000031e0  13 ba 1d dc 20 30 2c 31  2c 31 2c 31 2c 31 2c 31  |.... 0,1,1,1,1,1|
000031f0  2c 31 2c 31 2c 31 2c 31  2c 31 2c 30 0d 13 c4 1d  |,1,1,1,1,1,0....|
00003200  dc 20 30 2c 30 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |. 0,0,1,1,1,1,1,|
00003210  31 2c 31 2c 31 2c 30 2c  30 0d 13 ce 1d dc 20 31  |1,1,1,0,0..... 1|
00003220  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |,1,1,1,1,1,1,1,1|
00003230  2c 31 2c 31 2c 31 0d 13  d8 1b f4 20 64 61 74 61  |,1,1,1..... data|
00003240  20 66 6f 72 20 73 65 63  6f 6e 64 20 6c 61 79 65  | for second laye|
00003250  72 0d 13 e2 1d dc 20 30  2c 30 2c 30 2c 30 2c 30  |r..... 0,0,0,0,0|
00003260  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 13  |,0,0,0,0,0,0,0..|
00003270  ec 1d dc 20 30 2c 30 2c  30 2c 31 2c 31 2c 31 2c  |... 0,0,0,1,1,1,|
00003280  31 2c 31 2c 31 2c 30 2c  30 2c 30 0d 13 f6 1d dc  |1,1,1,0,0,0.....|
00003290  20 30 2c 30 2c 30 2c 31  2c 31 2c 31 2c 31 2c 31  | 0,0,0,1,1,1,1,1|
000032a0  2c 31 2c 30 2c 30 2c 30  0d 14 00 1d dc 20 30 2c  |,1,0,0,0..... 0,|
000032b0  30 2c 30 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |0,0,1,1,1,1,1,1,|
000032c0  30 2c 30 2c 30 0d 14 0a  1d dc 20 30 2c 30 2c 30  |0,0,0..... 0,0,0|
000032d0  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 30 2c 30  |,1,1,1,1,1,1,0,0|
000032e0  2c 30 0d 14 14 1d dc 20  30 2c 30 2c 30 2c 31 2c  |,0..... 0,0,0,1,|
000032f0  31 2c 31 2c 31 2c 31 2c  31 2c 30 2c 30 2c 30 0d  |1,1,1,1,1,0,0,0.|
00003300  14 1e 1d dc 20 30 2c 30  2c 30 2c 31 2c 31 2c 31  |.... 0,0,0,1,1,1|
00003310  2c 31 2c 31 2c 31 2c 30  2c 30 2c 30 0d 14 28 1d  |,1,1,1,0,0,0..(.|
00003320  dc 20 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |. 0,0,0,0,0,0,0,|
00003330  30 2c 30 2c 30 2c 30 2c  30 0d 14 32 1a f4 20 64  |0,0,0,0,0..2.. d|
00003340  61 74 61 20 66 6f 72 20  74 68 69 72 64 20 6c 61  |ata for third la|
00003350  79 65 72 0d 14 3c 1d dc  20 30 2c 30 2c 30 2c 30  |yer..<.. 0,0,0,0|
00003360  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00003370  0d 14 46 1d dc 20 30 2c  30 2c 30 2c 30 2c 30 2c  |..F.. 0,0,0,0,0,|
00003380  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 14 50  |0,0,0,0,0,0,0..P|
00003390  1d dc 20 30 2c 30 2c 30  2c 30 2c 31 2c 31 2c 31  |.. 0,0,0,0,1,1,1|
000033a0  2c 31 2c 30 2c 30 2c 30  2c 30 0d 14 5a 1d dc 20  |,1,0,0,0,0..Z.. |
000033b0  30 2c 30 2c 30 2c 30 2c  31 2c 31 2c 31 2c 31 2c  |0,0,0,0,1,1,1,1,|
000033c0  30 2c 30 2c 30 2c 30 0d  14 64 1d dc 20 30 2c 30  |0,0,0,0..d.. 0,0|
000033d0  2c 30 2c 30 2c 31 2c 31  2c 31 2c 31 2c 30 2c 30  |,0,0,1,1,1,1,0,0|
000033e0  2c 30 2c 30 0d 14 6e 1d  dc 20 30 2c 30 2c 30 2c  |,0,0..n.. 0,0,0,|
000033f0  30 2c 31 2c 31 2c 31 2c  31 2c 30 2c 30 2c 30 2c  |0,1,1,1,1,0,0,0,|
00003400  30 0d 14 78 1d dc 20 30  2c 30 2c 30 2c 30 2c 30  |0..x.. 0,0,0,0,0|
00003410  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d 14  |,0,0,0,0,0,0,0..|
00003420  82 1d dc 20 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |... 0,0,0,0,0,0,|
00003430  30 2c 30 2c 30 2c 30 2c  30 2c 30 0d 14 8c 1b f4  |0,0,0,0,0,0.....|
00003440  20 64 61 74 61 20 66 6f  72 20 66 6f 75 72 74 68  | data for fourth|
00003450  20 6c 61 79 65 72 0d 14  96 1d dc 20 30 2c 30 2c  | layer..... 0,0,|
00003460  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003470  30 2c 30 0d 14 a0 1d dc  20 30 2c 30 2c 30 2c 30  |0,0..... 0,0,0,0|
00003480  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00003490  0d 14 aa 1d dc 20 30 2c  30 2c 30 2c 30 2c 30 2c  |..... 0,0,0,0,0,|
000034a0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 0d 14 b4  |0,0,0,0,0,0,0...|
000034b0  1d dc 20 30 2c 30 2c 30  2c 30 2c 30 2c 31 2c 31  |.. 0,0,0,0,0,1,1|
000034c0  2c 30 2c 30 2c 30 2c 30  2c 30 0d 14 be 1d dc 20  |,0,0,0,0,0..... |
000034d0  30 2c 30 2c 30 2c 30 2c  30 2c 31 2c 31 2c 30 2c  |0,0,0,0,0,1,1,0,|
000034e0  30 2c 30 2c 30 2c 30 0d  14 c8 1d dc 20 30 2c 30  |0,0,0,0..... 0,0|
000034f0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,0,0,0,0,0,0,0|
00003500  2c 30 2c 30 0d 14 d2 1d  dc 20 30 2c 30 2c 30 2c  |,0,0..... 0,0,0,|
00003510  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003520  30 0d 14 dc 1d dc 20 30  2c 30 2c 30 2c 30 2c 30  |0..... 0,0,0,0,0|
00003530  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 0d ff  |,0,0,0,0,0,0,0..|
00003540