� � �4,2);�;�$:�QUIT
+� block% &100,scoreW% &100,scoreI% &100
#� hiscoreW% &600,hiscoreI% &800
(� infoW% &200,infoI% &200
2� mainW% &100,mainI% &100
<� keysW% &300,keysI% &300
F� icont% &100,icons% 16
P� menu% &100
Z� sprites% &1800
d � mblock% 16,mreserved% &100
n� coltrans% 64,scale% 16
x$� map%(12,27),copy%(12,27),b%(3)
�� hiscore%(11),hiscore$(11)
�	�INIT
�� � �ERROR
��
�	�POLL
�� quit%
�	�QUIT
�
�
��POLL
�#ș"Wimp_Poll",,block% � reason%
�Ȏ reason% �
�� 0 :�NULL
�� 1 :�redraw(block%!0)

� 2

!  ș"Wimp_OpenWindow",,block%

� 3

""  ș"Wimp_CloseWindow",,block%

,  � !block%=main% �

6H    state%=0:menu%!124=1:ș"Wimp_SetCaretPosition",-1,-1,-1,-1,-1,-1

@    menu%!132=&07400001

J  �

T� 6 :�MC

^
� 8 :�KEY

h� 9 :�MENU

r� 17,18 :�MESSAGE

|�

��

�

�
��NULL

�%ș"Wimp_GetCaretPosition",,block%

�)�!block%<>main% �state%=0:menu%!124=1

��game%=1 �

�� state%=1 �PLAY

�� state%=2 �DROP

�� state%=0 �WAIT

��

��

�

���MC
Ȏ block%!12 �
� -2
  Ȏ block%!16 �
&  � icon% :�ICON
0  �
:� main%
D  Ȏ block%!16 �
N
  � -1
X    � block%!8 =2 �
b+      menux%=!block%-90:menuy%=block%!4
l2      ș"Wimp_CreateMenu",,menu%,menux%,menuy%
v      menuop%=-1
�	    �
�    � block%!8 =4 �
�     �game%<>0 �
�      �state%=1 �state%=2 �
�L        state%=0:menu%!124=1:ș"Wimp_SetCaretPosition",-1,-1,-1,-1,-1,-1
�
        �
�O        state%=1:menu%!124=0:ș"Wimp_SetCaretPosition",main%,-1,-1,-1,-1,-1
�      �
�
     �
�	    �
�  �
�� keys%
�  Ȏ block%!16 �

  � 10
$    ș"Wimp_CloseWindow",,keysW%
    �READKEYS
 
  � 11
*$    ș"Wimp_CloseWindow",,keysW%
4    �SETKEYS
>  �
H�
R%ș"Wimp_GetCaretPosition",,block%
\)�!block%<>main% �state%=0:menu%!124=1
f�
p
z
��ICON
�� block%!8 � 4 �
�mainW%!28=-1
�ș"Wimp_OpenWindow",,mainW%
�#�game%<>0 � menu%!132=&07000001
��
�� block%!8 � 2 �
�!menux%=block%!0-90:menuy%=430
�,ș"Wimp_CreateMenu",,menu%,menux%,menuy%
�menuop%=-1
��
��
�
�
��MENU

menuop%=0
'ș"Wimp_GetPointerInfo",,block%+100
Ȏ block%!0 �
$$� 1 :ș"Wimp_OpenWindow",,keysW%
.2  ș"Wimp_SetCaretPosition",keys%,6,-1,-1,-1,0
8  state%=0:menu%!124=1
B%� 2 :ș"Wimp_OpenWindow",,scoreW%
L'� 3 :ș"Wimp_OpenWindow",,hiscoreW%
V� 4
`  �state%=1 �state%=2 �
jF  state%=0:menu%!124=1:ș"Wimp_SetCaretPosition",-1,-1,-1,-1,-1,-1
t  �
~I  state%=1:menu%!124=0:ș"Wimp_SetCaretPosition",main%,-1,-1,-1,-1,-1
�  �
�� 5 :�NEWGAME
�� 6 :quit%=�
��
�� block%!108 � 1 �
�ș"Wimp_CreateMenu",,menu%
�menuop%=-1
��
��
�
�
��MESSAGE
�Ȏ block%!16 �
� 0 :quit%=�

� &502 :�INTERACTIVE
�
�
(
2��INTERACTIVE
<Ȏ block%!32 �
F"� main% :�SENDHELP("HelpMain")
P"� keys% :�SENDHELP("HelpKeys")
Z(� hiscore% :�SENDHELP("HelpHiscore")
d$� score% :�SENDHELP("HelpScore")
n"� info% :�SENDHELP("HelpInfo")
x� -2
�  Ȏ block%!36 �
�%   � icon% :�SENDHELP("HelpIcon")
�  �
�
�; ș"Wimp_GetMenuState",1,block%+200,block%!32,block%!36
� Ȏ block%!200 �
�# � 0 :�SENDHELP("HelpMenuInfo")
�# � 1 :�SENDHELP("HelpMenuKeys")
�$ � 2 :�SENDHELP("HelpMenuScore")
�& � 3 :�SENDHELP("HelpMenuHiscore")
�$ � 4 :�SENDHELP("HelpMenuPause")
�& � 5 :�SENDHELP("HelpMenuNewgame")
�# � 6 :�SENDHELP("HelpMenuQuit")
 
 �SENDHELP("HelpMenu")
 �
"�
,�
6
@��SENDHELP(A$)
JA$=�readmessage(A$)
T$(block%+20)=A$
^!block%=20+(�(A$)+4)��3
hblock%!12=block%!8
rblock%!16=&503
|+ș"Wimp_SendMessage",17,block%,block%!4
��
�
�	��KEY
�Ȏ block%!0 �
�� main%
�
 �game% �
�  ș"OS_Byte",21,0
�  key%=�uc(block%!24)
�  Ȏ key% �
�   � lk% :�LEFT
�   � rk% :�RIGHT
�   � ck% :�CYCLE
�   � dk% :�DROPIT
  
$   ș"Wimp_ProcessKey",block%!24
  �
& �
0#  ș"Wimp_ProcessKey",block%!24
: �
D� keys%
N  Ȏ block%!24 �
X*    � 27 :ș"Wimp_CloseWindow",,keysW%
b4    � 13 :ș"Wimp_CloseWindow",,keysW%:�READKEYS
l  
v%    ș"Wimp_ProcessKey",block%!24
�  �
�� hiscore%
�  Ȏ block%!24 �
�    �hi% �
�<    � 13,27 :�ENTER(hi%):ș"Wimp_CloseWindow",,hiscoreW%
�	    �
�  
�%    ș"Wimp_ProcessKey",block%!24
�  �
�
�#  ș"Wimp_ProcessKey",block%!24
��
��


��INIT
!!sprites%=&1800:sprites%!8=16
 !ș"OS_SpriteOp",&109,sprites%
*6ș"OS_SpriteOp",&10A,sprites%,"<Trio$DIR>.Sprites"
4
>6ș"OS_File",5,"<Trio$Dir>.Messages" � ,,,,mlength%
H� mdata% mlength%+4
RBș"MessageTrans_OpenFile",mblock%,"<Trio$Dir>.Messages",mdata%
\$block% = "TASK"
fblock%!4=&502
pblock%!8=0
z=ș "Wimp_Initialise",310,!block%,"Trio",block%+4 � ,task%
�$icont%="":$icons%="S!Trio"
�Xicon%=�createicon(-1,0,-16,84,84,%00010111000000000011000100011011,icont%,icons%,12)
�1ș"Wimp_OpenTemplate",,"<Trio$Dir>.Templates"
�@ș"Wimp_LoadTemplate",,mainW%+4,mainI%,mainI%+&100,-1,"main"
�Dș"Wimp_LoadTemplate",,scoreW%+4,scoreI%,scoreI%+&100,-1,"score"
�Lș"Wimp_LoadTemplate",,hiscoreW%+4,hiscoreI%,hiscoreI%+&800,-1,"hiscore"
�@ș"Wimp_LoadTemplate",,infoW%+4,infoI%,infoI%+&200,-1,"info"
�@ș"Wimp_LoadTemplate",,keysW%+4,keysI%,keysI%+&300,-1,"keys"
�ș"Wimp_CloseTemplate"
�+ș"Wimp_CreateWindow",,mainW%+4 � main%
�+ș"Wimp_CreateWindow",,infoW%+4 � info%
�-ș"Wimp_CreateWindow",,scoreW%+4 � score%
�1ș"Wimp_CreateWindow",,hiscoreW%+4 � hiscore%
	+ș"Wimp_CreateWindow",,keysW%+4 � keys%
	C!mainW%=main%:!infoW%=info%:!scoreW%=score%:!hiscoreW%=hiscore%
	;mainW%!28=-1:infoW%!28=-1:scoreW%!28=-1:hiscoreW%!28=-1
	$keysW%!28=-1:!keysW%=keys%
	.ș"Wimp_OpenWindow",,mainW%
	8 ș"Wimp_OpenWindow",,scoreW%
	BEquit%=0:menux%=0:menuy%=0:lk%=0:rk%=0:ck%=0:dk%=0:menuop%=0:hi%=0
	L�LOADHISCORES
	VZ�changeicon(info%,0,�readmessage("Name")):�changeicon(info%,1,�readmessage("Purpose"))
	`\�changeicon(info%,2,�readmessage("Author")):�changeicon(info%,3,�readmessage("Version"))
	j�update(info%)
	t$menu%="Trio"
	~/menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0
	�'menu%!16=180:menu%!20=44:menu%!24=0
	�Umenu%!28=0:menu%!32=info%:menu%!36=&07000001:$(menu%+40)=�readmessage("MenuInfo")
	�Rmenu%!52=0:menu%!56=-1:menu%!60=&07000001:$(menu%+64)=�readmessage("MenuKeys")
	�Smenu%!76=0:menu%!80=-1:menu%!84=&07000001:$(menu%+88)=�readmessage("MenuScore")
	�Ymenu%!100=0:menu%!104=-1:menu%!108=&07000001:$(menu%+112)=�readmessage("MenuHiscore")
	�Wmenu%!124=0:menu%!128=-1:menu%!132=&07000001:$(menu%+136)=�readmessage("MenuPause")
	�Ymenu%!148=2:menu%!152=-1:menu%!156=&07000001:$(menu%+160)=�readmessage("MenuNewgame")
	�Xmenu%!172=128:menu%!176=-1:menu%!180=&07000001:$(menu%+184)=�readmessage("MenuQuit")
	�
	��NEWGAME
	�
�READKEYS
	�2ș"Wimp_SetCaretPosition",main%,-1,-1,-1,-1,-1
�


��ERROR
ș "Hourglass_Smash"
(
!block%=�
2$(block%+4)=�$+" "+Þ
<*ș "Wimp_ReportError",block%,%1,"Trio"
F�
P
Z
��QUIT
d&ș"MessageTrans_CloseFile",mblock%
n*|UNSET Trio$Dir
xș "Wimp_CloseDown"
�ș "OS_Exit"
��
��
�
�Lݤcreateicon(window%,x0%,y0%,x1%,y1%,flags%,buffer%,validation%,length%)
�� icon%
�!block%=window%
�block%!4=x0%
�block%!8=y0%
�block%!12=x1%
�block%!16=y1%
�block%!20=flags%
�block%!24=buffer%
block%!28=validation%
block%!32=length%
(ș "Wimp_CreateIcon",,block% � icon%
"
=icon%
,
6'��changeicon(window%,icon%,string$)
@"!block%=window%:block%!4=icon%
J"ș "Wimp_GetIconState",,block%
T$(block%!28)=string$
^�
h
rݤreadmessage(token$)
|
�p%,q%
�Cș"MessageTrans_Lookup",mblock%,token$,mreserved%,255 � ,,p%,q%
�
P$=$p%
�=�P$,q%)
�
�ݤreadicon(window%,icon%)
�"!block%=window%:block%!4=icon%
�"ș "Wimp_GetIconState",,block%
�=$(block%!28)
�
���update(window%)
�Bș"ColourTrans_SelectTable",sprites%,"1",-1,-1,coltrans%,0,0,0
�I!scale%=2:scale%!4=4:scale%!8=1<<�modevar(4):scale%!12=1<<�modevar(5)
�)�DRAWBLOCK(0,-1023,1279,0,window%,-1)
�

��redraw(window%)
&Bș"ColourTrans_SelectTable",sprites%,"1",-1,-1,coltrans%,0,0,0
0I!scale%=2:scale%!4=4:scale%!8=1<<�modevar(4):scale%!12=1<<�modevar(5)
:� R%
D!block%=window%
N&ș"Wimp_RedrawWindow",,block% � R%
X	ȕ R%
b�window%=main% � �BATHERS
l'ș"Wimp_GetRectangle",0,block% � R%
v�
��
�
�/��DRAWBLOCK(lx%,ly%,hx%,hy%,window%,valid%)
�Bș"ColourTrans_SelectTable",sprites%,"1",-1,-1,coltrans%,0,0,0
�I!scale%=2:scale%!4=4:scale%!8=1<<�modevar(4):scale%!12=1<<�modevar(5)
�� R%
�I!block%=window%:block%!4=lx%:block%!8=ly%:block%!12=hx%:block%!16=hy%
�&ș"Wimp_UpdateWindow",,block% � R%
�	ȕ R%
��window%=main% �
�!  � valid% �BATHERS � �BATHER
��
�'ș"Wimp_GetRectangle",0,block% � R%

�

�



 
��BATHERS

*
�X%,Y%,I%

4&�I%=1�11:�J%=1�22:map%=map%(I%,J%)

>1X%=block%!4+(I%*32)-32:Y%=block%!8+(J%*32)-32

HG�X%>=block%!28-32 �X%<=block%!36 �Y%>=block%!32-32 �Y%<=block%!40 �

RDș"OS_SpriteOp",256+52,sprites%,�(map%),X%,Y%,0,scale%,coltrans%

\�

f�:�

p�I%=0�3

zuș"OS_SpriteOp",256+52,sprites%,�(b%(I%)),block%!4+(fallx%*32)-32,block%!8+((fally%+I%)*32)-32,0,scale%,coltrans%

��

��

���BATHER

��I%

��I%=0�3

�uș"OS_SpriteOp",256+52,sprites%,�(b%(I%)),block%!4+(fallx%*32)-32,block%!8+((fally%+I%)*32)-32,0,scale%,coltrans%

��

��

�

�
��NEWGAME

�
�I%,J%

�'�I%=1�11:�J%=1�27:map%(I%,J%)=0:�:�

�&SCORE%=0:speed%=25:game%=1:time%=�

�NEWBLOCK
3�changeicon(score%,0,�(SCORE%)):�update(score%)
ș"Wimp_OpenWindow",,mainW%
$Gstate%=1:menu%!124=0:ș"Wimp_SetCaretPosition",main%,-1,-1,-1,-1,-1
.menu%!132=&07000001
8�redraw(main%)
B�
L
V��NEWBLOCK
`
�I%,J%
jJ%=4
t�SCORE%>80 J%=5
~�SCORE%>120 J%=6
��SCORE%>160 J%=7
��SCORE%>200 J%=8
��I%=0�2:b%(I%)=�(J%):�
��(20)=1 �
� b%(�(3)-1)=254
��
��SCORE%>100 �
� �speed%>0 ��(3)=1 �
�  speed%=speed%-1
� �
��
�fally%=23:fallx%=6
�


��READKEYS
&lk%=�uc(�(��readicon(keys%,6),1)))
(&rk%=�uc(�(��readicon(keys%,7),1)))
2&ck%=�uc(�(��readicon(keys%,8),1)))
<&dk%=�uc(�(��readicon(keys%,9),1)))
F�SETKEYS
P�
Z
��SETKEYS
d�changeicon(keys%,6,�(lk%))
n�changeicon(keys%,7,�(rk%))
x�changeicon(keys%,8,�(ck%))
��changeicon(keys%,9,�(dk%))
��
�
�
� �uc(a%)
�"� a%>=�"a" � a%<=�"z" � =a%-32
�=a%
�
���SCORE(s%)
�SCORE%=SCORE%+s%
�3�changeicon(score%,0,�(SCORE%)):�update(score%)
��
�
�
��PLAY
�� �-time%>speed% �
�
�DROPONCE
�time%=�
��
�


��WAIT
"�
,
6
��DROP
@�
J
�DROPONCE
T�fally%=23
^state%=1
h�
r
|��DROPONCE
�)� map%(fallx%,fally%-1)>0 �fally%=1 �
�, �I%=0�2:map%(fallx%,fally%+I%)=b%(I%):�
�
 fallx%=0
� �CHECKLINES
�S �DRAWBLOCK((fallx%-1)*32,(fally%-1)*32-704,(fallx%)*32,(fally%+3)*32,main%,-1)
� � fally%>19 �
�
  game%=0
�  menu%!132=&07400001
�#  � SCORE%>hiscore%(10) ��TABLE
� �
�  �NEWBLOCK
� �
��
 fally%=fally%-1
V �DRAWBLOCK((fallx%-1)*32,(fally%-1)*32-704,(fallx%)*32,(fally%+3)*32-704,main%,0)
�
&�
0
:
��LEFT
D^�fallx%>1 �map%(fallx%-1,fally%)=0 �map%(fallx%-1,fally%+1)=0 �map%(fallx%-1,fally%+2)=0 �
Nfallx%=fallx%-1
XX�DRAWBLOCK((fallx%-1)*32,(fally%-1)*32-704,(fallx%+1)*32,(fally%+3)*32-704,main%,-1)
b�
l	�PLAY
v�
�
���RIGHT
�_�fallx%<11 �map%(fallx%+1,fally%)=0 �map%(fallx%+1,fally%+1)=0 �map%(fallx%+1,fally%+2)=0 �
�fallx%=fallx%+1
�V�DRAWBLOCK((fallx%-2)*32,(fally%-1)*32-704,(fallx%)*32,(fally%+3)*32-704,main%,-1)
��
�	�PLAY
��
�
���CYCLE
�Ȕb%(0),b%(2):Ȕb%(0),b%(1)
�U�DRAWBLOCK((fallx%-1)*32,(fally%-1)*32-704,(fallx%)*32,(fally%+2)*32-704,main%,0)
��

��DROPIT
state%=2
 �
*
4��CHECKLINES
>� more%
H�
Rmore%=0
\�PRODUCECOPY
f
�CHECKALL
p�REPLACEORIGINAL
z�more% ��REMOVESMILIES
��more%=0
��
�
���PRODUCECOPY
��I%=1�11:�J%=1�27
�copy%(I%,J%)=map%(I%,J%)
��:�
��
���REPLACEORIGINAL
��I%=1�11:�J%=1�27
�map%(I%,J%)=copy%(I%,J%)
��:�
��

��CHECKALL
�I%,J%,m%,K%
$�I%=1�11:�J%=1�22
.m%=map%(I%,J%)
8�m%>0 �
B �I%<11 �I%>1 �
L+  �m%=map%(I%-1,J%) �m%=map%(I%+1,J%) �
VF   copy%(I%-1,J%)=255:copy%(I%,J%)=255:copy%(I%+1,J%)=255:more%=-1
`  �
j �
t �J%<22 �J%>1 �
~+  �m%=map%(I%,J%-1) �m%=map%(I%,J%+1) �
�F   copy%(I%,J%-1)=255:copy%(I%,J%)=255:copy%(I%,J%+1)=255:more%=-1
�  �
� �
�! �J%<22 �J%>1 �I%<11 � I%>1 �
�/  �m%=map%(I%-1,J%-1) �m%=map%(I%+1,J%+1) �
�J   copy%(I%-1,J%-1)=255:copy%(I%+1,J%+1)=255:copy%(I%,J%)=255:more%=-1
�  �
�/  �m%=map%(I%-1,J%+1) �m%=map%(I%+1,J%-1) �
�J   copy%(I%-1,J%+1)=255:copy%(I%,J%)=255:copy%(I%+1,J%-1)=255:more%=-1
�  �
� �
��

�m%=254 �


 more%=-1

 �K%=1�11
 �copy%(K%,J%) �
(  copy%(K%,J%)=253
2 �
< �
F�
P�:�
Z�
d
n)�DRAWBLOCK(0,-1023,1279,0,window%,-1)
x
���REMOVESMILIES
��I%,J%,K%,S%
�S%=0
�
�DRAWMAIN
��I%=1�11
� J%=1:ȕJ%<27
�  �map%(I%,J%)=255 �
�   map%(I%,J%)=0
�   �K%=J%�26
�!    map%(I%,K%)=map%(I%,K%+1)
�   �
�   S%=S%+1
�   J%=J%-1
  �
  �map%(I%,J%)=253 �
   map%(I%,J%)=0
"    �K%=J%�26
,!    map%(I%,K%)=map%(I%,K%+1)
6   �
@   J%=J%-1
J  �
T
  J%=J%+1
^ �
h�
r�SCORE(S%*S%)
|
�DRAWMAIN
��
�
���LOADHISCORES
��I%,file%,A$
�"file%=�("<Trio$Dir>.Hiscores")
��I%=1�10
�#hiscore$(I%)=�readstring(file%)
�&hiscore%(I%)=�(�readstring(file%))
�)�changeicon(hiscore%,I%,hiscore$(I%))
�/�changeicon(hiscore%,I%+10,�(hiscore%(I%)))
��
��#file%
��

ݤreadstring(J%)
	=�#J%
&
0��SAVEHISCORES
:�I%,file%,A$
D"file%=�("<Trio$Dir>.Hiscores")
N�I%=1�10
X$�writestring(hiscore$(I%),file%)
b'�writestring(�(hiscore%(I%)),file%)
l�
v�#file%
��
�
���writestring(A$,J%)
��#J%,A$
��
�
���TABLE
�
�I%,J%
�hiscoreW%!28=-1
�"ș"Wimp_OpenWindow",,hiscoreW%
��I%=10�1 �-1
��SCORE%>hiscore%(I%) J%=I%
��
�J%<10 �
 �I%=10�J% �-1
 �I%+1<11 �
 !  hiscore%(I%+1)=hiscore%(I%)
*!  hiscore$(I%+1)=hiscore$(I%)
4/  �changeicon(hiscore%,I%+1,hiscore$(I%+1))
>3  �changeicon(hiscore%,I%+11,�(hiscore%(I%+1)))
H �
R �
\�
fn�changeicon(hiscore%,J%,""):hiscore$(J%)="The Shy One":�changeicon(hiscore%,J%+10,�(SCORE%)):�SAVEHISCORES
phiscore%(J%)=SCORE%
z�update(hiscore%)
�4ș"Wimp_SetCaretPosition",hiscore%,J%,-1,-1,-1,0
�
hi%=J%
��
�
���ENTER(J%)
�'hiscore$(J%)=�readicon(hiscore%,J%)
�	hi%=0
��SAVEHISCORES
��
�
�ݤmodevar(V%)
�(ș"OS_ReadModeVariable",-1,V% � ,,V%
�=V%

��DRAWMAIN
�DODRAW(1):�DODRAW(11)
$�DODRAW(2):�DODRAW(10)
.�DODRAW(3):�DODRAW(9)
8�DODRAW(4):�DODRAW(8)
B�DODRAW(5):�DODRAW(7)
L�DODRAW(6)
V�
`
j��DODRAW(X%)
t� R%,I%
~Bș"ColourTrans_SelectTable",sprites%,"1",-1,-1,coltrans%,0,0,0
�I!scale%=2:scale%!4=4:scale%!8=1<<�modevar(4):scale%!12=1<<�modevar(5)
�N!block%=main%:block%!4=(X%-1)*32:block%!8=-704:block%!12=X%*32:block%!16=0
�&ș"Wimp_UpdateWindow",,block% � R%
�	ȕ R%
�x�I%=1�22:ș"OS_SpriteOp",256+52,sprites%,�(map%(X%,I%)),block%!4+(X%*32)-32,block%!8+(I%*32)-32,0,scale%,coltrans%:�
�'ș"Wimp_GetRectangle",0,block% � R%
��
��
�

00000000  0d 00 0a 19 ee 20 85 20  f1 8a 34 2c 32 29 3b 9e  |..... . ..4,2);.|
00000010  3b f6 24 3a f2 51 55 49  54 0d 00 14 2b de 20 62  |;.$:.QUIT...+. b|
00000020  6c 6f 63 6b 25 20 26 31  30 30 2c 73 63 6f 72 65  |lock% &100,score|
00000030  57 25 20 26 31 30 30 2c  73 63 6f 72 65 49 25 20  |W% &100,scoreI% |
00000040  26 31 30 30 0d 00 1e 23  de 20 68 69 73 63 6f 72  |&100...#. hiscor|
00000050  65 57 25 20 26 36 30 30  2c 68 69 73 63 6f 72 65  |eW% &600,hiscore|
00000060  49 25 20 26 38 30 30 0d  00 28 1d de 20 69 6e 66  |I% &800..(.. inf|
00000070  6f 57 25 20 26 32 30 30  2c 69 6e 66 6f 49 25 20  |oW% &200,infoI% |
00000080  26 32 30 30 0d 00 32 1d  de 20 6d 61 69 6e 57 25  |&200..2.. mainW%|
00000090  20 26 31 30 30 2c 6d 61  69 6e 49 25 20 26 31 30  | &100,mainI% &10|
000000a0  30 0d 00 3c 1d de 20 6b  65 79 73 57 25 20 26 33  |0..<.. keysW% &3|
000000b0  30 30 2c 6b 65 79 73 49  25 20 26 33 30 30 0d 00  |00,keysI% &300..|
000000c0  46 1b de 20 69 63 6f 6e  74 25 20 26 31 30 30 2c  |F.. icont% &100,|
000000d0  69 63 6f 6e 73 25 20 31  36 0d 00 50 10 de 20 6d  |icons% 16..P.. m|
000000e0  65 6e 75 25 20 26 31 30  30 0d 00 5a 14 de 20 73  |enu% &100..Z.. s|
000000f0  70 72 69 74 65 73 25 20  26 31 38 30 30 0d 00 64  |prites% &1800..d|
00000100  20 de 20 6d 62 6c 6f 63  6b 25 20 31 36 2c 6d 72  | . mblock% 16,mr|
00000110  65 73 65 72 76 65 64 25  20 26 31 30 30 0d 00 6e  |eserved% &100..n|
00000120  1c de 20 63 6f 6c 74 72  61 6e 73 25 20 36 34 2c  |.. coltrans% 64,|
00000130  73 63 61 6c 65 25 20 31  36 0d 00 78 24 de 20 6d  |scale% 16..x$. m|
00000140  61 70 25 28 31 32 2c 32  37 29 2c 63 6f 70 79 25  |ap%(12,27),copy%|
00000150  28 31 32 2c 32 37 29 2c  62 25 28 33 29 0d 00 82  |(12,27),b%(3)...|
00000160  1f de 20 68 69 73 63 6f  72 65 25 28 31 31 29 2c  |.. hiscore%(11),|
00000170  68 69 73 63 6f 72 65 24  28 31 31 29 0d 00 8c 09  |hiscore$(11)....|
00000180  f2 49 4e 49 54 0d 00 96  0e ee 20 85 20 f2 45 52  |.INIT..... . .ER|
00000190  52 4f 52 0d 00 a0 05 f5  0d 00 aa 09 f2 50 4f 4c  |ROR..........POL|
000001a0  4c 0d 00 b4 0b fd 20 71  75 69 74 25 0d 00 be 09  |L..... quit%....|
000001b0  f2 51 55 49 54 0d 00 c8  04 0d 00 d2 0a dd f2 50  |.QUIT..........P|
000001c0  4f 4c 4c 0d 00 dc 23 c8  99 22 57 69 6d 70 5f 50  |OLL...#.."Wimp_P|
000001d0  6f 6c 6c 22 2c 2c 62 6c  6f 63 6b 25 20 b8 20 72  |oll",,block% . r|
000001e0  65 61 73 6f 6e 25 0d 00  e6 10 c8 8e 20 72 65 61  |eason%...... rea|
000001f0  73 6f 6e 25 20 ca 0d 00  f0 0e c9 20 30 20 3a f2  |son% ...... 0 :.|
00000200  4e 55 4c 4c 0d 00 fa 1a  c9 20 31 20 3a f2 72 65  |NULL..... 1 :.re|
00000210  64 72 61 77 28 62 6c 6f  63 6b 25 21 30 29 0d 01  |draw(block%!0)..|
00000220  04 07 c9 20 32 0d 01 0e  21 20 20 c8 99 22 57 69  |... 2...!  .."Wi|
00000230  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000240  62 6c 6f 63 6b 25 0d 01  18 07 c9 20 33 0d 01 22  |block%..... 3.."|
00000250  22 20 20 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |"  .."Wimp_Close|
00000260  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00000270  01 2c 17 20 20 e7 20 21  62 6c 6f 63 6b 25 3d 6d  |.,.  . !block%=m|
00000280  61 69 6e 25 20 8c 0d 01  36 48 20 20 20 20 73 74  |ain% ...6H    st|
00000290  61 74 65 25 3d 30 3a 6d  65 6e 75 25 21 31 32 34  |ate%=0:menu%!124|
000002a0  3d 31 3a c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |=1:.."Wimp_SetCa|
000002b0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 2c  |retPosition",-1,|
000002c0  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 2c 2d 31 0d 01  |-1,-1,-1,-1,-1..|
000002d0  40 1b 20 20 20 20 6d 65  6e 75 25 21 31 33 32 3d  |@.    menu%!132=|
000002e0  26 30 37 34 30 30 30 30  31 0d 01 4a 07 20 20 cd  |&07400001..J.  .|
000002f0  0d 01 54 0c c9 20 36 20  3a f2 4d 43 0d 01 5e 0d  |..T.. 6 :.MC..^.|
00000300  c9 20 38 20 3a f2 4b 45  59 0d 01 68 0e c9 20 39  |. 8 :.KEY..h.. 9|
00000310  20 3a f2 4d 45 4e 55 0d  01 72 15 c9 20 31 37 2c  | :.MENU..r.. 17,|
00000320  31 38 20 3a f2 4d 45 53  53 41 47 45 0d 01 7c 05  |18 :.MESSAGE..|.|
00000330  cb 0d 01 86 05 e1 0d 01  90 04 0d 01 9a 0a dd f2  |................|
00000340  4e 55 4c 4c 0d 01 a4 25  c8 99 22 57 69 6d 70 5f  |NULL...%.."Wimp_|
00000350  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
00000360  22 2c 2c 62 6c 6f 63 6b  25 0d 01 ae 29 e7 21 62  |",,block%...).!b|
00000370  6c 6f 63 6b 25 3c 3e 6d  61 69 6e 25 20 8c 73 74  |lock%<>main% .st|
00000380  61 74 65 25 3d 30 3a 6d  65 6e 75 25 21 31 32 34  |ate%=0:menu%!124|
00000390  3d 31 0d 01 b8 0e e7 67  61 6d 65 25 3d 31 20 8c  |=1.....game%=1 .|
000003a0  0d 01 c2 14 e7 20 73 74  61 74 65 25 3d 31 20 f2  |..... state%=1 .|
000003b0  50 4c 41 59 0d 01 cc 14  e7 20 73 74 61 74 65 25  |PLAY..... state%|
000003c0  3d 32 20 f2 44 52 4f 50  0d 01 d6 14 e7 20 73 74  |=2 .DROP..... st|
000003d0  61 74 65 25 3d 30 20 f2  57 41 49 54 0d 01 e0 05  |ate%=0 .WAIT....|
000003e0  cd 0d 01 ea 05 e1 0d 01  f4 04 0d 01 fe 08 dd f2  |................|
000003f0  4d 43 0d 02 08 12 c8 8e  20 62 6c 6f 63 6b 25 21  |MC...... block%!|
00000400  31 32 20 ca 0d 02 12 08  c9 20 2d 32 0d 02 1c 14  |12 ...... -2....|
00000410  20 20 c8 8e 20 62 6c 6f  63 6b 25 21 31 36 20 ca  |  .. block%!16 .|
00000420  0d 02 26 14 20 20 c9 20  69 63 6f 6e 25 20 3a f2  |..&.  . icon% :.|
00000430  49 43 4f 4e 0d 02 30 07  20 20 cb 0d 02 3a 0b c9  |ICON..0.  ...:..|
00000440  20 6d 61 69 6e 25 0d 02  44 14 20 20 c8 8e 20 62  | main%..D.  .. b|
00000450  6c 6f 63 6b 25 21 31 36  20 ca 0d 02 4e 0a 20 20  |lock%!16 ...N.  |
00000460  c9 20 2d 31 0d 02 58 17  20 20 20 20 e7 20 62 6c  |. -1..X.    . bl|
00000470  6f 63 6b 25 21 38 20 3d  32 20 8c 0d 02 62 2b 20  |ock%!8 =2 ...b+ |
00000480  20 20 20 20 20 6d 65 6e  75 78 25 3d 21 62 6c 6f  |     menux%=!blo|
00000490  63 6b 25 2d 39 30 3a 6d  65 6e 75 79 25 3d 62 6c  |ck%-90:menuy%=bl|
000004a0  6f 63 6b 25 21 34 0d 02  6c 32 20 20 20 20 20 20  |ock%!4..l2      |
000004b0  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |.."Wimp_CreateMe|
000004c0  6e 75 22 2c 2c 6d 65 6e  75 25 2c 6d 65 6e 75 78  |nu",,menu%,menux|
000004d0  25 2c 6d 65 6e 75 79 25  0d 02 76 14 20 20 20 20  |%,menuy%..v.    |
000004e0  20 20 6d 65 6e 75 6f 70  25 3d 2d 31 0d 02 80 09  |  menuop%=-1....|
000004f0  20 20 20 20 cd 0d 02 8a  17 20 20 20 20 e7 20 62  |    .....    . b|
00000500  6c 6f 63 6b 25 21 38 20  3d 34 20 8c 0d 02 94 14  |lock%!8 =4 .....|
00000510  20 20 20 20 20 e7 67 61  6d 65 25 3c 3e 30 20 8c  |     .game%<>0 .|
00000520  0d 02 9e 1f 20 20 20 20  20 20 e7 73 74 61 74 65  |....      .state|
00000530  25 3d 31 20 84 73 74 61  74 65 25 3d 32 20 8c 0d  |%=1 .state%=2 ..|
00000540  02 a8 4c 20 20 20 20 20  20 20 20 73 74 61 74 65  |..L        state|
00000550  25 3d 30 3a 6d 65 6e 75  25 21 31 32 34 3d 31 3a  |%=0:menu%!124=1:|
00000560  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
00000570  50 6f 73 69 74 69 6f 6e  22 2c 2d 31 2c 2d 31 2c  |Position",-1,-1,|
00000580  2d 31 2c 2d 31 2c 2d 31  2c 2d 31 0d 02 b2 0d 20  |-1,-1,-1,-1.... |
00000590  20 20 20 20 20 20 20 cc  0d 02 bc 4f 20 20 20 20  |       ....O    |
000005a0  20 20 20 20 73 74 61 74  65 25 3d 31 3a 6d 65 6e  |    state%=1:men|
000005b0  75 25 21 31 32 34 3d 30  3a c8 99 22 57 69 6d 70  |u%!124=0:.."Wimp|
000005c0  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
000005d0  6e 22 2c 6d 61 69 6e 25  2c 2d 31 2c 2d 31 2c 2d  |n",main%,-1,-1,-|
000005e0  31 2c 2d 31 2c 2d 31 0d  02 c6 0b 20 20 20 20 20  |1,-1,-1....     |
000005f0  20 cd 0d 02 d0 0a 20 20  20 20 20 cd 0d 02 da 09  | .....     .....|
00000600  20 20 20 20 cd 0d 02 e4  07 20 20 cb 0d 02 ee 0b  |    .....  .....|
00000610  c9 20 6b 65 79 73 25 0d  02 f8 14 20 20 c8 8e 20  |. keys%....  .. |
00000620  62 6c 6f 63 6b 25 21 31  36 20 ca 0d 03 02 0a 20  |block%!16 ..... |
00000630  20 c9 20 31 30 0d 03 0c  24 20 20 20 20 c8 99 22  | . 10...$    .."|
00000640  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000650  22 2c 2c 6b 65 79 73 57  25 0d 03 16 11 20 20 20  |",,keysW%....   |
00000660  20 f2 52 45 41 44 4b 45  59 53 0d 03 20 0a 20 20  | .READKEYS.. .  |
00000670  c9 20 31 31 0d 03 2a 24  20 20 20 20 c8 99 22 57  |. 11..*$    .."W|
00000680  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00000690  2c 2c 6b 65 79 73 57 25  0d 03 34 10 20 20 20 20  |,,keysW%..4.    |
000006a0  f2 53 45 54 4b 45 59 53  0d 03 3e 07 20 20 cb 0d  |.SETKEYS..>.  ..|
000006b0  03 48 05 cb 0d 03 52 25  c8 99 22 57 69 6d 70 5f  |.H....R%.."Wimp_|
000006c0  47 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |GetCaretPosition|
000006d0  22 2c 2c 62 6c 6f 63 6b  25 0d 03 5c 29 e7 21 62  |",,block%..\).!b|
000006e0  6c 6f 63 6b 25 3c 3e 6d  61 69 6e 25 20 8c 73 74  |lock%<>main% .st|
000006f0  61 74 65 25 3d 30 3a 6d  65 6e 75 25 21 31 32 34  |ate%=0:menu%!124|
00000700  3d 31 0d 03 66 05 e1 0d  03 70 04 0d 03 7a 0a dd  |=1..f....p...z..|
00000710  f2 49 43 4f 4e 0d 03 84  14 e7 20 62 6c 6f 63 6b  |.ICON..... block|
00000720  25 21 38 20 80 20 34 20  8c 0d 03 8e 10 6d 61 69  |%!8 . 4 .....mai|
00000730  6e 57 25 21 32 38 3d 2d  31 0d 03 98 1f c8 99 22  |nW%!28=-1......"|
00000740  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000750  2c 2c 6d 61 69 6e 57 25  0d 03 a2 23 e7 67 61 6d  |,,mainW%...#.gam|
00000760  65 25 3c 3e 30 20 8c 20  6d 65 6e 75 25 21 31 33  |e%<>0 . menu%!13|
00000770  32 3d 26 30 37 30 30 30  30 30 31 0d 03 ac 05 cd  |2=&07000001.....|
00000780  0d 03 b6 14 e7 20 62 6c  6f 63 6b 25 21 38 20 80  |..... block%!8 .|
00000790  20 32 20 8c 0d 03 c0 21  6d 65 6e 75 78 25 3d 62  | 2 ....!menux%=b|
000007a0  6c 6f 63 6b 25 21 30 2d  39 30 3a 6d 65 6e 75 79  |lock%!0-90:menuy|
000007b0  25 3d 34 33 30 0d 03 ca  2c c8 99 22 57 69 6d 70  |%=430...,.."Wimp|
000007c0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 6d 65  |_CreateMenu",,me|
000007d0  6e 75 25 2c 6d 65 6e 75  78 25 2c 6d 65 6e 75 79  |nu%,menux%,menuy|
000007e0  25 0d 03 d4 0e 6d 65 6e  75 6f 70 25 3d 2d 31 0d  |%....menuop%=-1.|
000007f0  03 de 05 cd 0d 03 e8 05  e1 0d 03 f2 04 0d 03 fc  |................|
00000800  0a dd f2 4d 45 4e 55 0d  04 06 0d 6d 65 6e 75 6f  |...MENU....menuo|
00000810  70 25 3d 30 0d 04 10 27  c8 99 22 57 69 6d 70 5f  |p%=0...'.."Wimp_|
00000820  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000830  2c 62 6c 6f 63 6b 25 2b  31 30 30 0d 04 1a 11 c8  |,block%+100.....|
00000840  8e 20 62 6c 6f 63 6b 25  21 30 20 ca 0d 04 24 24  |. block%!0 ...$$|
00000850  c9 20 31 20 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |. 1 :.."Wimp_Ope|
00000860  6e 57 69 6e 64 6f 77 22  2c 2c 6b 65 79 73 57 25  |nWindow",,keysW%|
00000870  0d 04 2e 32 20 20 c8 99  22 57 69 6d 70 5f 53 65  |...2  .."Wimp_Se|
00000880  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00000890  6b 65 79 73 25 2c 36 2c  2d 31 2c 2d 31 2c 2d 31  |keys%,6,-1,-1,-1|
000008a0  2c 30 0d 04 38 1a 20 20  73 74 61 74 65 25 3d 30  |,0..8.  state%=0|
000008b0  3a 6d 65 6e 75 25 21 31  32 34 3d 31 0d 04 42 25  |:menu%!124=1..B%|
000008c0  c9 20 32 20 3a c8 99 22  57 69 6d 70 5f 4f 70 65  |. 2 :.."Wimp_Ope|
000008d0  6e 57 69 6e 64 6f 77 22  2c 2c 73 63 6f 72 65 57  |nWindow",,scoreW|
000008e0  25 0d 04 4c 27 c9 20 33  20 3a c8 99 22 57 69 6d  |%..L'. 3 :.."Wim|
000008f0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 68  |p_OpenWindow",,h|
00000900  69 73 63 6f 72 65 57 25  0d 04 56 07 c9 20 34 0d  |iscoreW%..V.. 4.|
00000910  04 60 1b 20 20 e7 73 74  61 74 65 25 3d 31 20 84  |.`.  .state%=1 .|
00000920  73 74 61 74 65 25 3d 32  20 8c 0d 04 6a 46 20 20  |state%=2 ...jF  |
00000930  73 74 61 74 65 25 3d 30  3a 6d 65 6e 75 25 21 31  |state%=0:menu%!1|
00000940  32 34 3d 31 3a c8 99 22  57 69 6d 70 5f 53 65 74  |24=1:.."Wimp_Set|
00000950  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2d  |CaretPosition",-|
00000960  31 2c 2d 31 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |1,-1,-1,-1,-1,-1|
00000970  0d 04 74 07 20 20 cc 0d  04 7e 49 20 20 73 74 61  |..t.  ...~I  sta|
00000980  74 65 25 3d 31 3a 6d 65  6e 75 25 21 31 32 34 3d  |te%=1:menu%!124=|
00000990  30 3a c8 99 22 57 69 6d  70 5f 53 65 74 43 61 72  |0:.."Wimp_SetCar|
000009a0  65 74 50 6f 73 69 74 69  6f 6e 22 2c 6d 61 69 6e  |etPosition",main|
000009b0  25 2c 2d 31 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |%,-1,-1,-1,-1,-1|
000009c0  0d 04 88 07 20 20 cd 0d  04 92 11 c9 20 35 20 3a  |....  ...... 5 :|
000009d0  f2 4e 45 57 47 41 4d 45  0d 04 9c 10 c9 20 36 20  |.NEWGAME..... 6 |
000009e0  3a 71 75 69 74 25 3d b9  0d 04 a6 05 cb 0d 04 b0  |:quit%=.........|
000009f0  16 e7 20 62 6c 6f 63 6b  25 21 31 30 38 20 80 20  |.. block%!108 . |
00000a00  31 20 8c 0d 04 ba 1e c8  99 22 57 69 6d 70 5f 43  |1 ......."Wimp_C|
00000a10  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00000a20  25 0d 04 c4 0e 6d 65 6e  75 6f 70 25 3d 2d 31 0d  |%....menuop%=-1.|
00000a30  04 ce 05 cd 0d 04 d8 05  e1 0d 04 e2 04 0d 04 ec  |................|
00000a40  0d dd f2 4d 45 53 53 41  47 45 0d 04 f6 12 c8 8e  |...MESSAGE......|
00000a50  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 05 00 10  | block%!16 .....|
00000a60  c9 20 30 20 3a 71 75 69  74 25 3d b9 0d 05 0a 18  |. 0 :quit%=.....|
00000a70  c9 20 26 35 30 32 20 3a  f2 49 4e 54 45 52 41 43  |. &502 :.INTERAC|
00000a80  54 49 56 45 0d 05 14 05  cb 0d 05 1e 05 e1 0d 05  |TIVE............|
00000a90  28 04 0d 05 32 11 dd f2  49 4e 54 45 52 41 43 54  |(...2...INTERACT|
00000aa0  49 56 45 0d 05 3c 12 c8  8e 20 62 6c 6f 63 6b 25  |IVE..<... block%|
00000ab0  21 33 32 20 ca 0d 05 46  22 c9 20 6d 61 69 6e 25  |!32 ...F". main%|
00000ac0  20 3a f2 53 45 4e 44 48  45 4c 50 28 22 48 65 6c  | :.SENDHELP("Hel|
00000ad0  70 4d 61 69 6e 22 29 0d  05 50 22 c9 20 6b 65 79  |pMain")..P". key|
00000ae0  73 25 20 3a f2 53 45 4e  44 48 45 4c 50 28 22 48  |s% :.SENDHELP("H|
00000af0  65 6c 70 4b 65 79 73 22  29 0d 05 5a 28 c9 20 68  |elpKeys")..Z(. h|
00000b00  69 73 63 6f 72 65 25 20  3a f2 53 45 4e 44 48 45  |iscore% :.SENDHE|
00000b10  4c 50 28 22 48 65 6c 70  48 69 73 63 6f 72 65 22  |LP("HelpHiscore"|
00000b20  29 0d 05 64 24 c9 20 73  63 6f 72 65 25 20 3a f2  |)..d$. score% :.|
00000b30  53 45 4e 44 48 45 4c 50  28 22 48 65 6c 70 53 63  |SENDHELP("HelpSc|
00000b40  6f 72 65 22 29 0d 05 6e  22 c9 20 69 6e 66 6f 25  |ore")..n". info%|
00000b50  20 3a f2 53 45 4e 44 48  45 4c 50 28 22 48 65 6c  | :.SENDHELP("Hel|
00000b60  70 49 6e 66 6f 22 29 0d  05 78 08 c9 20 2d 32 0d  |pInfo")..x.. -2.|
00000b70  05 82 14 20 20 c8 8e 20  62 6c 6f 63 6b 25 21 33  |...  .. block%!3|
00000b80  36 20 ca 0d 05 8c 25 20  20 20 c9 20 69 63 6f 6e  |6 ....%   . icon|
00000b90  25 20 3a f2 53 45 4e 44  48 45 4c 50 28 22 48 65  |% :.SENDHELP("He|
00000ba0  6c 70 49 63 6f 6e 22 29  0d 05 96 07 20 20 cb 0d  |lpIcon")....  ..|
00000bb0  05 a0 05 7f 0d 05 aa 3b  20 c8 99 22 57 69 6d 70  |.......; .."Wimp|
00000bc0  5f 47 65 74 4d 65 6e 75  53 74 61 74 65 22 2c 31  |_GetMenuState",1|
00000bd0  2c 62 6c 6f 63 6b 25 2b  32 30 30 2c 62 6c 6f 63  |,block%+200,bloc|
00000be0  6b 25 21 33 32 2c 62 6c  6f 63 6b 25 21 33 36 0d  |k%!32,block%!36.|
00000bf0  05 b4 14 20 c8 8e 20 62  6c 6f 63 6b 25 21 32 30  |... .. block%!20|
00000c00  30 20 ca 0d 05 be 23 20  c9 20 30 20 3a f2 53 45  |0 ....# . 0 :.SE|
00000c10  4e 44 48 45 4c 50 28 22  48 65 6c 70 4d 65 6e 75  |NDHELP("HelpMenu|
00000c20  49 6e 66 6f 22 29 0d 05  c8 23 20 c9 20 31 20 3a  |Info")...# . 1 :|
00000c30  f2 53 45 4e 44 48 45 4c  50 28 22 48 65 6c 70 4d  |.SENDHELP("HelpM|
00000c40  65 6e 75 4b 65 79 73 22  29 0d 05 d2 24 20 c9 20  |enuKeys")...$ . |
00000c50  32 20 3a f2 53 45 4e 44  48 45 4c 50 28 22 48 65  |2 :.SENDHELP("He|
00000c60  6c 70 4d 65 6e 75 53 63  6f 72 65 22 29 0d 05 dc  |lpMenuScore")...|
00000c70  26 20 c9 20 33 20 3a f2  53 45 4e 44 48 45 4c 50  |& . 3 :.SENDHELP|
00000c80  28 22 48 65 6c 70 4d 65  6e 75 48 69 73 63 6f 72  |("HelpMenuHiscor|
00000c90  65 22 29 0d 05 e6 24 20  c9 20 34 20 3a f2 53 45  |e")...$ . 4 :.SE|
00000ca0  4e 44 48 45 4c 50 28 22  48 65 6c 70 4d 65 6e 75  |NDHELP("HelpMenu|
00000cb0  50 61 75 73 65 22 29 0d  05 f0 26 20 c9 20 35 20  |Pause")...& . 5 |
00000cc0  3a f2 53 45 4e 44 48 45  4c 50 28 22 48 65 6c 70  |:.SENDHELP("Help|
00000cd0  4d 65 6e 75 4e 65 77 67  61 6d 65 22 29 0d 05 fa  |MenuNewgame")...|
00000ce0  23 20 c9 20 36 20 3a f2  53 45 4e 44 48 45 4c 50  |# . 6 :.SENDHELP|
00000cf0  28 22 48 65 6c 70 4d 65  6e 75 51 75 69 74 22 29  |("HelpMenuQuit")|
00000d00  0d 06 04 06 20 7f 0d 06  0e 1a 20 f2 53 45 4e 44  |.... ..... .SEND|
00000d10  48 45 4c 50 28 22 48 65  6c 70 4d 65 6e 75 22 29  |HELP("HelpMenu")|
00000d20  0d 06 18 06 20 cb 0d 06  22 05 cb 0d 06 2c 05 e1  |.... ..."....,..|
00000d30  0d 06 36 04 0d 06 40 12  dd f2 53 45 4e 44 48 45  |..6...@...SENDHE|
00000d40  4c 50 28 41 24 29 0d 06  4a 17 41 24 3d a4 72 65  |LP(A$)..J.A$=.re|
00000d50  61 64 6d 65 73 73 61 67  65 28 41 24 29 0d 06 54  |admessage(A$)..T|
00000d60  13 24 28 62 6c 6f 63 6b  25 2b 32 30 29 3d 41 24  |.$(block%+20)=A$|
00000d70  0d 06 5e 1b 21 62 6c 6f  63 6b 25 3d 32 30 2b 28  |..^.!block%=20+(|
00000d80  a9 28 41 24 29 2b 34 29  80 ac 33 0d 06 68 16 62  |.(A$)+4)..3..h.b|
00000d90  6c 6f 63 6b 25 21 31 32  3d 62 6c 6f 63 6b 25 21  |lock%!12=block%!|
00000da0  38 0d 06 72 12 62 6c 6f  63 6b 25 21 31 36 3d 26  |8..r.block%!16=&|
00000db0  35 30 33 0d 06 7c 2b c8  99 22 57 69 6d 70 5f 53  |503..|+.."Wimp_S|
00000dc0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 62  |endMessage",17,b|
00000dd0  6c 6f 63 6b 25 2c 62 6c  6f 63 6b 25 21 34 0d 06  |lock%,block%!4..|
00000de0  86 05 e1 0d 06 90 04 0d  06 9a 09 dd f2 4b 45 59  |.............KEY|
00000df0  0d 06 a4 11 c8 8e 20 62  6c 6f 63 6b 25 21 30 20  |...... block%!0 |
00000e00  ca 0d 06 ae 0b c9 20 6d  61 69 6e 25 0d 06 b8 0d  |...... main%....|
00000e10  20 e7 67 61 6d 65 25 20  8c 0d 06 c2 16 20 20 c8  | .game% .....  .|
00000e20  99 22 4f 53 5f 42 79 74  65 22 2c 32 31 2c 30 0d  |."OS_Byte",21,0.|
00000e30  06 cc 19 20 20 6b 65 79  25 3d a4 75 63 28 62 6c  |...  key%=.uc(bl|
00000e40  6f 63 6b 25 21 32 34 29  0d 06 d6 0f 20 20 c8 8e  |ock%!24)....  ..|
00000e50  20 6b 65 79 25 20 ca 0d  06 e0 13 20 20 20 c9 20  | key% .....   . |
00000e60  6c 6b 25 20 3a f2 4c 45  46 54 0d 06 ea 14 20 20  |lk% :.LEFT....  |
00000e70  20 c9 20 72 6b 25 20 3a  f2 52 49 47 48 54 0d 06  | . rk% :.RIGHT..|
00000e80  f4 14 20 20 20 c9 20 63  6b 25 20 3a f2 43 59 43  |..   . ck% :.CYC|
00000e90  4c 45 0d 06 fe 15 20 20  20 c9 20 64 6b 25 20 3a  |LE....   . dk% :|
00000ea0  f2 44 52 4f 50 49 54 0d  07 08 07 20 20 7f 0d 07  |.DROPIT....  ...|
00000eb0  12 24 20 20 20 c8 99 22  57 69 6d 70 5f 50 72 6f  |.$   .."Wimp_Pro|
00000ec0  63 65 73 73 4b 65 79 22  2c 62 6c 6f 63 6b 25 21  |cessKey",block%!|
00000ed0  32 34 0d 07 1c 07 20 20  cb 0d 07 26 06 20 cc 0d  |24....  ...&. ..|
00000ee0  07 30 23 20 20 c8 99 22  57 69 6d 70 5f 50 72 6f  |.0#  .."Wimp_Pro|
00000ef0  63 65 73 73 4b 65 79 22  2c 62 6c 6f 63 6b 25 21  |cessKey",block%!|
00000f00  32 34 0d 07 3a 06 20 cd  0d 07 44 0b c9 20 6b 65  |24..:. ...D.. ke|
00000f10  79 73 25 0d 07 4e 14 20  20 c8 8e 20 62 6c 6f 63  |ys%..N.  .. bloc|
00000f20  6b 25 21 32 34 20 ca 0d  07 58 2a 20 20 20 20 c9  |k%!24 ...X*    .|
00000f30  20 32 37 20 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  | 27 :.."Wimp_Clo|
00000f40  73 65 57 69 6e 64 6f 77  22 2c 2c 6b 65 79 73 57  |seWindow",,keysW|
00000f50  25 0d 07 62 34 20 20 20  20 c9 20 31 33 20 3a c8  |%..b4    . 13 :.|
00000f60  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
00000f70  6f 77 22 2c 2c 6b 65 79  73 57 25 3a f2 52 45 41  |ow",,keysW%:.REA|
00000f80  44 4b 45 59 53 0d 07 6c  07 20 20 7f 0d 07 76 25  |DKEYS..l.  ...v%|
00000f90  20 20 20 20 c8 99 22 57  69 6d 70 5f 50 72 6f 63  |    .."Wimp_Proc|
00000fa0  65 73 73 4b 65 79 22 2c  62 6c 6f 63 6b 25 21 32  |essKey",block%!2|
00000fb0  34 0d 07 80 07 20 20 cb  0d 07 8a 0e c9 20 68 69  |4....  ...... hi|
00000fc0  73 63 6f 72 65 25 0d 07  94 14 20 20 c8 8e 20 62  |score%....  .. b|
00000fd0  6c 6f 63 6b 25 21 32 34  20 ca 0d 07 9e 0e 20 20  |lock%!24 .....  |
00000fe0  20 20 e7 68 69 25 20 8c  0d 07 a8 3c 20 20 20 20  |  .hi% ....<    |
00000ff0  c9 20 31 33 2c 32 37 20  3a f2 45 4e 54 45 52 28  |. 13,27 :.ENTER(|
00001000  68 69 25 29 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |hi%):.."Wimp_Clo|
00001010  73 65 57 69 6e 64 6f 77  22 2c 2c 68 69 73 63 6f  |seWindow",,hisco|
00001020  72 65 57 25 0d 07 b2 09  20 20 20 20 cd 0d 07 bc  |reW%....    ....|
00001030  07 20 20 7f 0d 07 c6 25  20 20 20 20 c8 99 22 57  |.  ....%    .."W|
00001040  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
00001050  62 6c 6f 63 6b 25 21 32  34 0d 07 d0 07 20 20 cb  |block%!24....  .|
00001060  0d 07 da 05 7f 0d 07 e4  23 20 20 c8 99 22 57 69  |........#  .."Wi|
00001070  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 62  |mp_ProcessKey",b|
00001080  6c 6f 63 6b 25 21 32 34  0d 07 ee 05 cb 0d 07 f8  |lock%!24........|
00001090  05 e1 0d 08 02 04 0d 08  0c 0a dd f2 49 4e 49 54  |............INIT|
000010a0  0d 08 16 21 21 73 70 72  69 74 65 73 25 3d 26 31  |...!!sprites%=&1|
000010b0  38 30 30 3a 73 70 72 69  74 65 73 25 21 38 3d 31  |800:sprites%!8=1|
000010c0  36 0d 08 20 21 c8 99 22  4f 53 5f 53 70 72 69 74  |6.. !.."OS_Sprit|
000010d0  65 4f 70 22 2c 26 31 30  39 2c 73 70 72 69 74 65  |eOp",&109,sprite|
000010e0  73 25 0d 08 2a 36 c8 99  22 4f 53 5f 53 70 72 69  |s%..*6.."OS_Spri|
000010f0  74 65 4f 70 22 2c 26 31  30 41 2c 73 70 72 69 74  |teOp",&10A,sprit|
00001100  65 73 25 2c 22 3c 54 72  69 6f 24 44 49 52 3e 2e  |es%,"<Trio$DIR>.|
00001110  53 70 72 69 74 65 73 22  0d 08 34 04 0d 08 3e 36  |Sprites"..4...>6|
00001120  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 22 3c  |.."OS_File",5,"<|
00001130  54 72 69 6f 24 44 69 72  3e 2e 4d 65 73 73 61 67  |Trio$Dir>.Messag|
00001140  65 73 22 20 b8 20 2c 2c  2c 2c 6d 6c 65 6e 67 74  |es" . ,,,,mlengt|
00001150  68 25 0d 08 48 17 de 20  6d 64 61 74 61 25 20 6d  |h%..H.. mdata% m|
00001160  6c 65 6e 67 74 68 25 2b  34 0d 08 52 42 c8 99 22  |length%+4..RB.."|
00001170  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4f 70 65  |MessageTrans_Ope|
00001180  6e 46 69 6c 65 22 2c 6d  62 6c 6f 63 6b 25 2c 22  |nFile",mblock%,"|
00001190  3c 54 72 69 6f 24 44 69  72 3e 2e 4d 65 73 73 61  |<Trio$Dir>.Messa|
000011a0  67 65 73 22 2c 6d 64 61  74 61 25 0d 08 5c 14 24  |ges",mdata%..\.$|
000011b0  62 6c 6f 63 6b 25 20 3d  20 22 54 41 53 4b 22 0d  |block% = "TASK".|
000011c0  08 66 11 62 6c 6f 63 6b  25 21 34 3d 26 35 30 32  |.f.block%!4=&502|
000011d0  0d 08 70 0e 62 6c 6f 63  6b 25 21 38 3d 30 0d 08  |..p.block%!8=0..|
000011e0  7a 3d c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |z=.. "Wimp_Initi|
000011f0  61 6c 69 73 65 22 2c 33  31 30 2c 21 62 6c 6f 63  |alise",310,!bloc|
00001200  6b 25 2c 22 54 72 69 6f  22 2c 62 6c 6f 63 6b 25  |k%,"Trio",block%|
00001210  2b 34 20 b8 20 2c 74 61  73 6b 25 0d 08 84 1f 24  |+4 . ,task%....$|
00001220  69 63 6f 6e 74 25 3d 22  22 3a 24 69 63 6f 6e 73  |icont%="":$icons|
00001230  25 3d 22 53 21 54 72 69  6f 22 0d 08 8e 58 69 63  |%="S!Trio"...Xic|
00001240  6f 6e 25 3d a4 63 72 65  61 74 65 69 63 6f 6e 28  |on%=.createicon(|
00001250  2d 31 2c 30 2c 2d 31 36  2c 38 34 2c 38 34 2c 25  |-1,0,-16,84,84,%|
00001260  30 30 30 31 30 31 31 31  30 30 30 30 30 30 30 30  |0001011100000000|
00001270  30 30 31 31 30 30 30 31  30 30 30 31 31 30 31 31  |0011000100011011|
00001280  2c 69 63 6f 6e 74 25 2c  69 63 6f 6e 73 25 2c 31  |,icont%,icons%,1|
00001290  32 29 0d 08 98 31 c8 99  22 57 69 6d 70 5f 4f 70  |2)...1.."Wimp_Op|
000012a0  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 54  |enTemplate",,"<T|
000012b0  72 69 6f 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |rio$Dir>.Templat|
000012c0  65 73 22 0d 08 a2 40 c8  99 22 57 69 6d 70 5f 4c  |es"...@.."Wimp_L|
000012d0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 6d 61  |oadTemplate",,ma|
000012e0  69 6e 57 25 2b 34 2c 6d  61 69 6e 49 25 2c 6d 61  |inW%+4,mainI%,ma|
000012f0  69 6e 49 25 2b 26 31 30  30 2c 2d 31 2c 22 6d 61  |inI%+&100,-1,"ma|
00001300  69 6e 22 0d 08 ac 44 c8  99 22 57 69 6d 70 5f 4c  |in"...D.."Wimp_L|
00001310  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 73 63  |oadTemplate",,sc|
00001320  6f 72 65 57 25 2b 34 2c  73 63 6f 72 65 49 25 2c  |oreW%+4,scoreI%,|
00001330  73 63 6f 72 65 49 25 2b  26 31 30 30 2c 2d 31 2c  |scoreI%+&100,-1,|
00001340  22 73 63 6f 72 65 22 0d  08 b6 4c c8 99 22 57 69  |"score"...L.."Wi|
00001350  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00001360  2c 2c 68 69 73 63 6f 72  65 57 25 2b 34 2c 68 69  |,,hiscoreW%+4,hi|
00001370  73 63 6f 72 65 49 25 2c  68 69 73 63 6f 72 65 49  |scoreI%,hiscoreI|
00001380  25 2b 26 38 30 30 2c 2d  31 2c 22 68 69 73 63 6f  |%+&800,-1,"hisco|
00001390  72 65 22 0d 08 c0 40 c8  99 22 57 69 6d 70 5f 4c  |re"...@.."Wimp_L|
000013a0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 69 6e  |oadTemplate",,in|
000013b0  66 6f 57 25 2b 34 2c 69  6e 66 6f 49 25 2c 69 6e  |foW%+4,infoI%,in|
000013c0  66 6f 49 25 2b 26 32 30  30 2c 2d 31 2c 22 69 6e  |foI%+&200,-1,"in|
000013d0  66 6f 22 0d 08 ca 40 c8  99 22 57 69 6d 70 5f 4c  |fo"...@.."Wimp_L|
000013e0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 6b 65  |oadTemplate",,ke|
000013f0  79 73 57 25 2b 34 2c 6b  65 79 73 49 25 2c 6b 65  |ysW%+4,keysI%,ke|
00001400  79 73 49 25 2b 26 33 30  30 2c 2d 31 2c 22 6b 65  |ysI%+&300,-1,"ke|
00001410  79 73 22 0d 08 d4 1a c8  99 22 57 69 6d 70 5f 43  |ys"......"Wimp_C|
00001420  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 08 de  |loseTemplate"...|
00001430  2b c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |+.."Wimp_CreateW|
00001440  69 6e 64 6f 77 22 2c 2c  6d 61 69 6e 57 25 2b 34  |indow",,mainW%+4|
00001450  20 b8 20 6d 61 69 6e 25  0d 08 e8 2b c8 99 22 57  | . main%...+.."W|
00001460  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001470  22 2c 2c 69 6e 66 6f 57  25 2b 34 20 b8 20 69 6e  |",,infoW%+4 . in|
00001480  66 6f 25 0d 08 f2 2d c8  99 22 57 69 6d 70 5f 43  |fo%...-.."Wimp_C|
00001490  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 73 63  |reateWindow",,sc|
000014a0  6f 72 65 57 25 2b 34 20  b8 20 73 63 6f 72 65 25  |oreW%+4 . score%|
000014b0  0d 08 fc 31 c8 99 22 57  69 6d 70 5f 43 72 65 61  |...1.."Wimp_Crea|
000014c0  74 65 57 69 6e 64 6f 77  22 2c 2c 68 69 73 63 6f  |teWindow",,hisco|
000014d0  72 65 57 25 2b 34 20 b8  20 68 69 73 63 6f 72 65  |reW%+4 . hiscore|
000014e0  25 0d 09 06 2b c8 99 22  57 69 6d 70 5f 43 72 65  |%...+.."Wimp_Cre|
000014f0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 6b 65 79 73  |ateWindow",,keys|
00001500  57 25 2b 34 20 b8 20 6b  65 79 73 25 0d 09 10 43  |W%+4 . keys%...C|
00001510  21 6d 61 69 6e 57 25 3d  6d 61 69 6e 25 3a 21 69  |!mainW%=main%:!i|
00001520  6e 66 6f 57 25 3d 69 6e  66 6f 25 3a 21 73 63 6f  |nfoW%=info%:!sco|
00001530  72 65 57 25 3d 73 63 6f  72 65 25 3a 21 68 69 73  |reW%=score%:!his|
00001540  63 6f 72 65 57 25 3d 68  69 73 63 6f 72 65 25 0d  |coreW%=hiscore%.|
00001550  09 1a 3b 6d 61 69 6e 57  25 21 32 38 3d 2d 31 3a  |..;mainW%!28=-1:|
00001560  69 6e 66 6f 57 25 21 32  38 3d 2d 31 3a 73 63 6f  |infoW%!28=-1:sco|
00001570  72 65 57 25 21 32 38 3d  2d 31 3a 68 69 73 63 6f  |reW%!28=-1:hisco|
00001580  72 65 57 25 21 32 38 3d  2d 31 0d 09 24 1e 6b 65  |reW%!28=-1..$.ke|
00001590  79 73 57 25 21 32 38 3d  2d 31 3a 21 6b 65 79 73  |ysW%!28=-1:!keys|
000015a0  57 25 3d 6b 65 79 73 25  0d 09 2e 1f c8 99 22 57  |W%=keys%......"W|
000015b0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000015c0  2c 6d 61 69 6e 57 25 0d  09 38 20 c8 99 22 57 69  |,mainW%..8 .."Wi|
000015d0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000015e0  73 63 6f 72 65 57 25 0d  09 42 45 71 75 69 74 25  |scoreW%..BEquit%|
000015f0  3d 30 3a 6d 65 6e 75 78  25 3d 30 3a 6d 65 6e 75  |=0:menux%=0:menu|
00001600  79 25 3d 30 3a 6c 6b 25  3d 30 3a 72 6b 25 3d 30  |y%=0:lk%=0:rk%=0|
00001610  3a 63 6b 25 3d 30 3a 64  6b 25 3d 30 3a 6d 65 6e  |:ck%=0:dk%=0:men|
00001620  75 6f 70 25 3d 30 3a 68  69 25 3d 30 0d 09 4c 11  |uop%=0:hi%=0..L.|
00001630  f2 4c 4f 41 44 48 49 53  43 4f 52 45 53 0d 09 56  |.LOADHISCORES..V|
00001640  5a f2 63 68 61 6e 67 65  69 63 6f 6e 28 69 6e 66  |Z.changeicon(inf|
00001650  6f 25 2c 30 2c a4 72 65  61 64 6d 65 73 73 61 67  |o%,0,.readmessag|
00001660  65 28 22 4e 61 6d 65 22  29 29 3a f2 63 68 61 6e  |e("Name")):.chan|
00001670  67 65 69 63 6f 6e 28 69  6e 66 6f 25 2c 31 2c a4  |geicon(info%,1,.|
00001680  72 65 61 64 6d 65 73 73  61 67 65 28 22 50 75 72  |readmessage("Pur|
00001690  70 6f 73 65 22 29 29 0d  09 60 5c f2 63 68 61 6e  |pose"))..`\.chan|
000016a0  67 65 69 63 6f 6e 28 69  6e 66 6f 25 2c 32 2c a4  |geicon(info%,2,.|
000016b0  72 65 61 64 6d 65 73 73  61 67 65 28 22 41 75 74  |readmessage("Aut|
000016c0  68 6f 72 22 29 29 3a f2  63 68 61 6e 67 65 69 63  |hor")):.changeic|
000016d0  6f 6e 28 69 6e 66 6f 25  2c 33 2c a4 72 65 61 64  |on(info%,3,.read|
000016e0  6d 65 73 73 61 67 65 28  22 56 65 72 73 69 6f 6e  |message("Version|
000016f0  22 29 29 0d 09 6a 12 f2  75 70 64 61 74 65 28 69  |"))..j..update(i|
00001700  6e 66 6f 25 29 0d 09 74  11 24 6d 65 6e 75 25 3d  |nfo%)..t.$menu%=|
00001710  22 54 72 69 6f 22 0d 09  7e 2f 6d 65 6e 75 25 3f  |"Trio"..~/menu%?|
00001720  31 32 3d 37 3a 6d 65 6e  75 25 3f 31 33 3d 32 3a  |12=7:menu%?13=2:|
00001730  6d 65 6e 75 25 3f 31 34  3d 37 3a 6d 65 6e 75 25  |menu%?14=7:menu%|
00001740  3f 31 35 3d 30 0d 09 88  27 6d 65 6e 75 25 21 31  |?15=0...'menu%!1|
00001750  36 3d 31 38 30 3a 6d 65  6e 75 25 21 32 30 3d 34  |6=180:menu%!20=4|
00001760  34 3a 6d 65 6e 75 25 21  32 34 3d 30 0d 09 92 55  |4:menu%!24=0...U|
00001770  6d 65 6e 75 25 21 32 38  3d 30 3a 6d 65 6e 75 25  |menu%!28=0:menu%|
00001780  21 33 32 3d 69 6e 66 6f  25 3a 6d 65 6e 75 25 21  |!32=info%:menu%!|
00001790  33 36 3d 26 30 37 30 30  30 30 30 31 3a 24 28 6d  |36=&07000001:$(m|
000017a0  65 6e 75 25 2b 34 30 29  3d a4 72 65 61 64 6d 65  |enu%+40)=.readme|
000017b0  73 73 61 67 65 28 22 4d  65 6e 75 49 6e 66 6f 22  |ssage("MenuInfo"|
000017c0  29 0d 09 9c 52 6d 65 6e  75 25 21 35 32 3d 30 3a  |)...Rmenu%!52=0:|
000017d0  6d 65 6e 75 25 21 35 36  3d 2d 31 3a 6d 65 6e 75  |menu%!56=-1:menu|
000017e0  25 21 36 30 3d 26 30 37  30 30 30 30 30 31 3a 24  |%!60=&07000001:$|
000017f0  28 6d 65 6e 75 25 2b 36  34 29 3d a4 72 65 61 64  |(menu%+64)=.read|
00001800  6d 65 73 73 61 67 65 28  22 4d 65 6e 75 4b 65 79  |message("MenuKey|
00001810  73 22 29 0d 09 a6 53 6d  65 6e 75 25 21 37 36 3d  |s")...Smenu%!76=|
00001820  30 3a 6d 65 6e 75 25 21  38 30 3d 2d 31 3a 6d 65  |0:menu%!80=-1:me|
00001830  6e 75 25 21 38 34 3d 26  30 37 30 30 30 30 30 31  |nu%!84=&07000001|
00001840  3a 24 28 6d 65 6e 75 25  2b 38 38 29 3d a4 72 65  |:$(menu%+88)=.re|
00001850  61 64 6d 65 73 73 61 67  65 28 22 4d 65 6e 75 53  |admessage("MenuS|
00001860  63 6f 72 65 22 29 0d 09  b0 59 6d 65 6e 75 25 21  |core")...Ymenu%!|
00001870  31 30 30 3d 30 3a 6d 65  6e 75 25 21 31 30 34 3d  |100=0:menu%!104=|
00001880  2d 31 3a 6d 65 6e 75 25  21 31 30 38 3d 26 30 37  |-1:menu%!108=&07|
00001890  30 30 30 30 30 31 3a 24  28 6d 65 6e 75 25 2b 31  |000001:$(menu%+1|
000018a0  31 32 29 3d a4 72 65 61  64 6d 65 73 73 61 67 65  |12)=.readmessage|
000018b0  28 22 4d 65 6e 75 48 69  73 63 6f 72 65 22 29 0d  |("MenuHiscore").|
000018c0  09 ba 57 6d 65 6e 75 25  21 31 32 34 3d 30 3a 6d  |..Wmenu%!124=0:m|
000018d0  65 6e 75 25 21 31 32 38  3d 2d 31 3a 6d 65 6e 75  |enu%!128=-1:menu|
000018e0  25 21 31 33 32 3d 26 30  37 30 30 30 30 30 31 3a  |%!132=&07000001:|
000018f0  24 28 6d 65 6e 75 25 2b  31 33 36 29 3d a4 72 65  |$(menu%+136)=.re|
00001900  61 64 6d 65 73 73 61 67  65 28 22 4d 65 6e 75 50  |admessage("MenuP|
00001910  61 75 73 65 22 29 0d 09  c4 59 6d 65 6e 75 25 21  |ause")...Ymenu%!|
00001920  31 34 38 3d 32 3a 6d 65  6e 75 25 21 31 35 32 3d  |148=2:menu%!152=|
00001930  2d 31 3a 6d 65 6e 75 25  21 31 35 36 3d 26 30 37  |-1:menu%!156=&07|
00001940  30 30 30 30 30 31 3a 24  28 6d 65 6e 75 25 2b 31  |000001:$(menu%+1|
00001950  36 30 29 3d a4 72 65 61  64 6d 65 73 73 61 67 65  |60)=.readmessage|
00001960  28 22 4d 65 6e 75 4e 65  77 67 61 6d 65 22 29 0d  |("MenuNewgame").|
00001970  09 ce 58 6d 65 6e 75 25  21 31 37 32 3d 31 32 38  |..Xmenu%!172=128|
00001980  3a 6d 65 6e 75 25 21 31  37 36 3d 2d 31 3a 6d 65  |:menu%!176=-1:me|
00001990  6e 75 25 21 31 38 30 3d  26 30 37 30 30 30 30 30  |nu%!180=&0700000|
000019a0  31 3a 24 28 6d 65 6e 75  25 2b 31 38 34 29 3d a4  |1:$(menu%+184)=.|
000019b0  72 65 61 64 6d 65 73 73  61 67 65 28 22 4d 65 6e  |readmessage("Men|
000019c0  75 51 75 69 74 22 29 0d  09 d8 04 0d 09 e2 0c f2  |uQuit").........|
000019d0  4e 45 57 47 41 4d 45 0d  09 ec 0d f2 52 45 41 44  |NEWGAME.....READ|
000019e0  4b 45 59 53 0d 09 f6 32  c8 99 22 57 69 6d 70 5f  |KEYS...2.."Wimp_|
000019f0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00001a00  22 2c 6d 61 69 6e 25 2c  2d 31 2c 2d 31 2c 2d 31  |",main%,-1,-1,-1|
00001a10  2c 2d 31 2c 2d 31 0d 0a  00 05 e1 0d 0a 0a 04 0d  |,-1,-1..........|
00001a20  0a 14 0b dd f2 45 52 52  4f 52 0d 0a 1e 18 c8 99  |.....ERROR......|
00001a30  20 22 48 6f 75 72 67 6c  61 73 73 5f 53 6d 61 73  | "Hourglass_Smas|
00001a40  68 22 0d 0a 28 0d 21 62  6c 6f 63 6b 25 3d 9f 0d  |h"..(.!block%=..|
00001a50  0a 32 19 24 28 62 6c 6f  63 6b 25 2b 34 29 3d f6  |.2.$(block%+4)=.|
00001a60  24 2b 22 20 22 2b c3 9e  0d 0a 3c 2a c8 99 20 22  |$+" "+....<*.. "|
00001a70  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001a80  22 2c 62 6c 6f 63 6b 25  2c 25 31 2c 22 54 72 69  |",block%,%1,"Tri|
00001a90  6f 22 0d 0a 46 05 e1 0d  0a 50 04 0d 0a 5a 0a dd  |o"..F....P...Z..|
00001aa0  f2 51 55 49 54 0d 0a 64  26 c8 99 22 4d 65 73 73  |.QUIT..d&.."Mess|
00001ab0  61 67 65 54 72 61 6e 73  5f 43 6c 6f 73 65 46 69  |ageTrans_CloseFi|
00001ac0  6c 65 22 2c 6d 62 6c 6f  63 6b 25 0d 0a 6e 14 2a  |le",mblock%..n.*|
00001ad0  7c 55 4e 53 45 54 20 54  72 69 6f 24 44 69 72 0d  ||UNSET Trio$Dir.|
00001ae0  0a 78 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.x... "Wimp_Clos|
00001af0  65 44 6f 77 6e 22 0d 0a  82 10 c8 99 20 22 4f 53  |eDown"...... "OS|
00001b00  5f 45 78 69 74 22 0d 0a  8c 05 e0 0d 0a 96 05 e1  |_Exit"..........|
00001b10  0d 0a a0 04 0d 0a aa 4c  dd a4 63 72 65 61 74 65  |.......L..create|
00001b20  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c 78 30 25  |icon(window%,x0%|
00001b30  2c 79 30 25 2c 78 31 25  2c 79 31 25 2c 66 6c 61  |,y0%,x1%,y1%,fla|
00001b40  67 73 25 2c 62 75 66 66  65 72 25 2c 76 61 6c 69  |gs%,buffer%,vali|
00001b50  64 61 74 69 6f 6e 25 2c  6c 65 6e 67 74 68 25 29  |dation%,length%)|
00001b60  0d 0a b4 0b ea 20 69 63  6f 6e 25 0d 0a be 13 21  |..... icon%....!|
00001b70  62 6c 6f 63 6b 25 3d 77  69 6e 64 6f 77 25 0d 0a  |block%=window%..|
00001b80  c8 10 62 6c 6f 63 6b 25  21 34 3d 78 30 25 0d 0a  |..block%!4=x0%..|
00001b90  d2 10 62 6c 6f 63 6b 25  21 38 3d 79 30 25 0d 0a  |..block%!8=y0%..|
00001ba0  dc 11 62 6c 6f 63 6b 25  21 31 32 3d 78 31 25 0d  |..block%!12=x1%.|
00001bb0  0a e6 11 62 6c 6f 63 6b  25 21 31 36 3d 79 31 25  |...block%!16=y1%|
00001bc0  0d 0a f0 14 62 6c 6f 63  6b 25 21 32 30 3d 66 6c  |....block%!20=fl|
00001bd0  61 67 73 25 0d 0a fa 15  62 6c 6f 63 6b 25 21 32  |ags%....block%!2|
00001be0  34 3d 62 75 66 66 65 72  25 0d 0b 04 19 62 6c 6f  |4=buffer%....blo|
00001bf0  63 6b 25 21 32 38 3d 76  61 6c 69 64 61 74 69 6f  |ck%!28=validatio|
00001c00  6e 25 0d 0b 0e 15 62 6c  6f 63 6b 25 21 33 32 3d  |n%....block%!32=|
00001c10  6c 65 6e 67 74 68 25 0d  0b 18 28 c8 99 20 22 57  |length%...(.. "W|
00001c20  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001c30  2c 62 6c 6f 63 6b 25 20  b8 20 69 63 6f 6e 25 0d  |,block% . icon%.|
00001c40  0b 22 0a 3d 69 63 6f 6e  25 0d 0b 2c 04 0d 0b 36  |.".=icon%..,...6|
00001c50  27 dd f2 63 68 61 6e 67  65 69 63 6f 6e 28 77 69  |'..changeicon(wi|
00001c60  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 73 74 72 69  |ndow%,icon%,stri|
00001c70  6e 67 24 29 0d 0b 40 22  21 62 6c 6f 63 6b 25 3d  |ng$)..@"!block%=|
00001c80  77 69 6e 64 6f 77 25 3a  62 6c 6f 63 6b 25 21 34  |window%:block%!4|
00001c90  3d 69 63 6f 6e 25 0d 0b  4a 22 c8 99 20 22 57 69  |=icon%..J".. "Wi|
00001ca0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001cb0  2c 2c 62 6c 6f 63 6b 25  0d 0b 54 18 24 28 62 6c  |,,block%..T.$(bl|
00001cc0  6f 63 6b 25 21 32 38 29  3d 73 74 72 69 6e 67 24  |ock%!28)=string$|
00001cd0  0d 0b 5e 05 e1 0d 0b 68  04 0d 0b 72 19 dd a4 72  |..^....h...r...r|
00001ce0  65 61 64 6d 65 73 73 61  67 65 28 74 6f 6b 65 6e  |eadmessage(token|
00001cf0  24 29 0d 0b 7c 0a ea 70  25 2c 71 25 0d 0b 86 43  |$)..|..p%,q%...C|
00001d00  c8 99 22 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |.."MessageTrans_|
00001d10  4c 6f 6f 6b 75 70 22 2c  6d 62 6c 6f 63 6b 25 2c  |Lookup",mblock%,|
00001d20  74 6f 6b 65 6e 24 2c 6d  72 65 73 65 72 76 65 64  |token$,mreserved|
00001d30  25 2c 32 35 35 20 b8 20  2c 2c 70 25 2c 71 25 0d  |%,255 . ,,p%,q%.|
00001d40  0b 90 0a 50 24 3d 24 70  25 0d 0b 9a 0c 3d c0 50  |...P$=$p%....=.P|
00001d50  24 2c 71 25 29 0d 0b a4  04 0d 0b ae 1d dd a4 72  |$,q%)..........r|
00001d60  65 61 64 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |eadicon(window%,|
00001d70  69 63 6f 6e 25 29 0d 0b  b8 22 21 62 6c 6f 63 6b  |icon%)..."!block|
00001d80  25 3d 77 69 6e 64 6f 77  25 3a 62 6c 6f 63 6b 25  |%=window%:block%|
00001d90  21 34 3d 69 63 6f 6e 25  0d 0b c2 22 c8 99 20 22  |!4=icon%...".. "|
00001da0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001db0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 0b cc 11 3d 24  |e",,block%....=$|
00001dc0  28 62 6c 6f 63 6b 25 21  32 38 29 0d 0b d6 04 0d  |(block%!28).....|
00001dd0  0b e0 15 dd f2 75 70 64  61 74 65 28 77 69 6e 64  |.....update(wind|
00001de0  6f 77 25 29 0d 0b ea 42  c8 99 22 43 6f 6c 6f 75  |ow%)...B.."Colou|
00001df0  72 54 72 61 6e 73 5f 53  65 6c 65 63 74 54 61 62  |rTrans_SelectTab|
00001e00  6c 65 22 2c 73 70 72 69  74 65 73 25 2c 22 31 22  |le",sprites%,"1"|
00001e10  2c 2d 31 2c 2d 31 2c 63  6f 6c 74 72 61 6e 73 25  |,-1,-1,coltrans%|
00001e20  2c 30 2c 30 2c 30 0d 0b  f4 49 21 73 63 61 6c 65  |,0,0,0...I!scale|
00001e30  25 3d 32 3a 73 63 61 6c  65 25 21 34 3d 34 3a 73  |%=2:scale%!4=4:s|
00001e40  63 61 6c 65 25 21 38 3d  31 3c 3c a4 6d 6f 64 65  |cale%!8=1<<.mode|
00001e50  76 61 72 28 34 29 3a 73  63 61 6c 65 25 21 31 32  |var(4):scale%!12|
00001e60  3d 31 3c 3c a4 6d 6f 64  65 76 61 72 28 35 29 0d  |=1<<.modevar(5).|
00001e70  0b fe 29 f2 44 52 41 57  42 4c 4f 43 4b 28 30 2c  |..).DRAWBLOCK(0,|
00001e80  2d 31 30 32 33 2c 31 32  37 39 2c 30 2c 77 69 6e  |-1023,1279,0,win|
00001e90  64 6f 77 25 2c 2d 31 29  0d 0c 08 05 e1 0d 0c 12  |dow%,-1)........|
00001ea0  04 0d 0c 1c 15 dd f2 72  65 64 72 61 77 28 77 69  |.......redraw(wi|
00001eb0  6e 64 6f 77 25 29 0d 0c  26 42 c8 99 22 43 6f 6c  |ndow%)..&B.."Col|
00001ec0  6f 75 72 54 72 61 6e 73  5f 53 65 6c 65 63 74 54  |ourTrans_SelectT|
00001ed0  61 62 6c 65 22 2c 73 70  72 69 74 65 73 25 2c 22  |able",sprites%,"|
00001ee0  31 22 2c 2d 31 2c 2d 31  2c 63 6f 6c 74 72 61 6e  |1",-1,-1,coltran|
00001ef0  73 25 2c 30 2c 30 2c 30  0d 0c 30 49 21 73 63 61  |s%,0,0,0..0I!sca|
00001f00  6c 65 25 3d 32 3a 73 63  61 6c 65 25 21 34 3d 34  |le%=2:scale%!4=4|
00001f10  3a 73 63 61 6c 65 25 21  38 3d 31 3c 3c a4 6d 6f  |:scale%!8=1<<.mo|
00001f20  64 65 76 61 72 28 34 29  3a 73 63 61 6c 65 25 21  |devar(4):scale%!|
00001f30  31 32 3d 31 3c 3c a4 6d  6f 64 65 76 61 72 28 35  |12=1<<.modevar(5|
00001f40  29 0d 0c 3a 08 ea 20 52  25 0d 0c 44 13 21 62 6c  |)..:.. R%..D.!bl|
00001f50  6f 63 6b 25 3d 77 69 6e  64 6f 77 25 0d 0c 4e 26  |ock%=window%..N&|
00001f60  c8 99 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |.."Wimp_RedrawWi|
00001f70  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00001f80  52 25 0d 0c 58 09 c8 95  20 52 25 0d 0c 62 1d e7  |R%..X... R%..b..|
00001f90  77 69 6e 64 6f 77 25 3d  6d 61 69 6e 25 20 8c 20  |window%=main% . |
00001fa0  f2 42 41 54 48 45 52 53  0d 0c 6c 27 c8 99 22 57  |.BATHERS..l'.."W|
00001fb0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00001fc0  22 2c 30 2c 62 6c 6f 63  6b 25 20 b8 20 52 25 0d  |",0,block% . R%.|
00001fd0  0c 76 05 ce 0d 0c 80 05  e1 0d 0c 8a 04 0d 0c 94  |.v..............|
00001fe0  2f dd f2 44 52 41 57 42  4c 4f 43 4b 28 6c 78 25  |/..DRAWBLOCK(lx%|
00001ff0  2c 6c 79 25 2c 68 78 25  2c 68 79 25 2c 77 69 6e  |,ly%,hx%,hy%,win|
00002000  64 6f 77 25 2c 76 61 6c  69 64 25 29 0d 0c 9e 42  |dow%,valid%)...B|
00002010  c8 99 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |.."ColourTrans_S|
00002020  65 6c 65 63 74 54 61 62  6c 65 22 2c 73 70 72 69  |electTable",spri|
00002030  74 65 73 25 2c 22 31 22  2c 2d 31 2c 2d 31 2c 63  |tes%,"1",-1,-1,c|
00002040  6f 6c 74 72 61 6e 73 25  2c 30 2c 30 2c 30 0d 0c  |oltrans%,0,0,0..|
00002050  a8 49 21 73 63 61 6c 65  25 3d 32 3a 73 63 61 6c  |.I!scale%=2:scal|
00002060  65 25 21 34 3d 34 3a 73  63 61 6c 65 25 21 38 3d  |e%!4=4:scale%!8=|
00002070  31 3c 3c a4 6d 6f 64 65  76 61 72 28 34 29 3a 73  |1<<.modevar(4):s|
00002080  63 61 6c 65 25 21 31 32  3d 31 3c 3c a4 6d 6f 64  |cale%!12=1<<.mod|
00002090  65 76 61 72 28 35 29 0d  0c b2 08 ea 20 52 25 0d  |evar(5)..... R%.|
000020a0  0c bc 49 21 62 6c 6f 63  6b 25 3d 77 69 6e 64 6f  |..I!block%=windo|
000020b0  77 25 3a 62 6c 6f 63 6b  25 21 34 3d 6c 78 25 3a  |w%:block%!4=lx%:|
000020c0  62 6c 6f 63 6b 25 21 38  3d 6c 79 25 3a 62 6c 6f  |block%!8=ly%:blo|
000020d0  63 6b 25 21 31 32 3d 68  78 25 3a 62 6c 6f 63 6b  |ck%!12=hx%:block|
000020e0  25 21 31 36 3d 68 79 25  0d 0c c6 26 c8 99 22 57  |%!16=hy%...&.."W|
000020f0  69 6d 70 5f 55 70 64 61  74 65 57 69 6e 64 6f 77  |imp_UpdateWindow|
00002100  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 52 25 0d 0c  |",,block% . R%..|
00002110  d0 09 c8 95 20 52 25 0d  0c da 14 e7 77 69 6e 64  |.... R%.....wind|
00002120  6f 77 25 3d 6d 61 69 6e  25 20 8c 0d 0c e4 21 20  |ow%=main% ....! |
00002130  20 e7 20 76 61 6c 69 64  25 20 f2 42 41 54 48 45  | . valid% .BATHE|
00002140  52 53 20 8b 20 f2 42 41  54 48 45 52 0d 0c ee 05  |RS . .BATHER....|
00002150  cd 0d 0c f8 27 c8 99 22  57 69 6d 70 5f 47 65 74  |....'.."Wimp_Get|
00002160  52 65 63 74 61 6e 67 6c  65 22 2c 30 2c 62 6c 6f  |Rectangle",0,blo|
00002170  63 6b 25 20 b8 20 52 25  0d 0d 02 05 ce 0d 0d 0c  |ck% . R%........|
00002180  05 e1 0d 0d 16 04 0d 0d  20 0d dd f2 42 41 54 48  |........ ...BATH|
00002190  45 52 53 0d 0d 2a 0d ea  58 25 2c 59 25 2c 49 25  |ERS..*..X%,Y%,I%|
000021a0  0d 0d 34 26 e3 49 25 3d  31 b8 31 31 3a e3 4a 25  |..4&.I%=1.11:.J%|
000021b0  3d 31 b8 32 32 3a 6d 61  70 25 3d 6d 61 70 25 28  |=1.22:map%=map%(|
000021c0  49 25 2c 4a 25 29 0d 0d  3e 31 58 25 3d 62 6c 6f  |I%,J%)..>1X%=blo|
000021d0  63 6b 25 21 34 2b 28 49  25 2a 33 32 29 2d 33 32  |ck%!4+(I%*32)-32|
000021e0  3a 59 25 3d 62 6c 6f 63  6b 25 21 38 2b 28 4a 25  |:Y%=block%!8+(J%|
000021f0  2a 33 32 29 2d 33 32 0d  0d 48 47 e7 58 25 3e 3d  |*32)-32..HG.X%>=|
00002200  62 6c 6f 63 6b 25 21 32  38 2d 33 32 20 80 58 25  |block%!28-32 .X%|
00002210  3c 3d 62 6c 6f 63 6b 25  21 33 36 20 80 59 25 3e  |<=block%!36 .Y%>|
00002220  3d 62 6c 6f 63 6b 25 21  33 32 2d 33 32 20 80 59  |=block%!32-32 .Y|
00002230  25 3c 3d 62 6c 6f 63 6b  25 21 34 30 20 8c 0d 0d  |%<=block%!40 ...|
00002240  52 44 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |RD.."OS_SpriteOp|
00002250  22 2c 32 35 36 2b 35 32  2c 73 70 72 69 74 65 73  |",256+52,sprites|
00002260  25 2c c3 28 6d 61 70 25  29 2c 58 25 2c 59 25 2c  |%,.(map%),X%,Y%,|
00002270  30 2c 73 63 61 6c 65 25  2c 63 6f 6c 74 72 61 6e  |0,scale%,coltran|
00002280  73 25 0d 0d 5c 05 cd 0d  0d 66 07 ed 3a ed 0d 0d  |s%..\....f..:...|
00002290  70 0b e3 49 25 3d 30 b8  33 0d 0d 7a 75 c8 99 22  |p..I%=0.3..zu.."|
000022a0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
000022b0  2b 35 32 2c 73 70 72 69  74 65 73 25 2c c3 28 62  |+52,sprites%,.(b|
000022c0  25 28 49 25 29 29 2c 62  6c 6f 63 6b 25 21 34 2b  |%(I%)),block%!4+|
000022d0  28 66 61 6c 6c 78 25 2a  33 32 29 2d 33 32 2c 62  |(fallx%*32)-32,b|
000022e0  6c 6f 63 6b 25 21 38 2b  28 28 66 61 6c 6c 79 25  |lock%!8+((fally%|
000022f0  2b 49 25 29 2a 33 32 29  2d 33 32 2c 30 2c 73 63  |+I%)*32)-32,0,sc|
00002300  61 6c 65 25 2c 63 6f 6c  74 72 61 6e 73 25 0d 0d  |ale%,coltrans%..|
00002310  84 05 ed 0d 0d 8e 05 e1  0d 0d 98 0c dd f2 42 41  |..............BA|
00002320  54 48 45 52 0d 0d a2 07  ea 49 25 0d 0d ac 0b e3  |THER.....I%.....|
00002330  49 25 3d 30 b8 33 0d 0d  b6 75 c8 99 22 4f 53 5f  |I%=0.3...u.."OS_|
00002340  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 35 32  |SpriteOp",256+52|
00002350  2c 73 70 72 69 74 65 73  25 2c c3 28 62 25 28 49  |,sprites%,.(b%(I|
00002360  25 29 29 2c 62 6c 6f 63  6b 25 21 34 2b 28 66 61  |%)),block%!4+(fa|
00002370  6c 6c 78 25 2a 33 32 29  2d 33 32 2c 62 6c 6f 63  |llx%*32)-32,bloc|
00002380  6b 25 21 38 2b 28 28 66  61 6c 6c 79 25 2b 49 25  |k%!8+((fally%+I%|
00002390  29 2a 33 32 29 2d 33 32  2c 30 2c 73 63 61 6c 65  |)*32)-32,0,scale|
000023a0  25 2c 63 6f 6c 74 72 61  6e 73 25 0d 0d c0 05 ed  |%,coltrans%.....|
000023b0  0d 0d ca 05 e1 0d 0d d4  04 0d 0d de 0d dd f2 4e  |...............N|
000023c0  45 57 47 41 4d 45 0d 0d  e8 0a ea 49 25 2c 4a 25  |EWGAME.....I%,J%|
000023d0  0d 0d f2 27 e3 49 25 3d  31 b8 31 31 3a e3 4a 25  |...'.I%=1.11:.J%|
000023e0  3d 31 b8 32 37 3a 6d 61  70 25 28 49 25 2c 4a 25  |=1.27:map%(I%,J%|
000023f0  29 3d 30 3a ed 3a ed 0d  0d fc 26 53 43 4f 52 45  |)=0:.:....&SCORE|
00002400  25 3d 30 3a 73 70 65 65  64 25 3d 32 35 3a 67 61  |%=0:speed%=25:ga|
00002410  6d 65 25 3d 31 3a 74 69  6d 65 25 3d 91 0d 0e 06  |me%=1:time%=....|
00002420  0d f2 4e 45 57 42 4c 4f  43 4b 0d 0e 10 33 f2 63  |..NEWBLOCK...3.c|
00002430  68 61 6e 67 65 69 63 6f  6e 28 73 63 6f 72 65 25  |hangeicon(score%|
00002440  2c 30 2c c3 28 53 43 4f  52 45 25 29 29 3a f2 75  |,0,.(SCORE%)):.u|
00002450  70 64 61 74 65 28 73 63  6f 72 65 25 29 0d 0e 1a  |pdate(score%)...|
00002460  1f c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00002470  64 6f 77 22 2c 2c 6d 61  69 6e 57 25 0d 0e 24 47  |dow",,mainW%..$G|
00002480  73 74 61 74 65 25 3d 31  3a 6d 65 6e 75 25 21 31  |state%=1:menu%!1|
00002490  32 34 3d 30 3a c8 99 22  57 69 6d 70 5f 53 65 74  |24=0:.."Wimp_Set|
000024a0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 6d  |CaretPosition",m|
000024b0  61 69 6e 25 2c 2d 31 2c  2d 31 2c 2d 31 2c 2d 31  |ain%,-1,-1,-1,-1|
000024c0  2c 2d 31 0d 0e 2e 17 6d  65 6e 75 25 21 31 33 32  |,-1....menu%!132|
000024d0  3d 26 30 37 30 30 30 30  30 31 0d 0e 38 12 f2 72  |=&07000001..8..r|
000024e0  65 64 72 61 77 28 6d 61  69 6e 25 29 0d 0e 42 05  |edraw(main%)..B.|
000024f0  e1 0d 0e 4c 04 0d 0e 56  0e dd f2 4e 45 57 42 4c  |...L...V...NEWBL|
00002500  4f 43 4b 0d 0e 60 0a ea  49 25 2c 4a 25 0d 0e 6a  |OCK..`..I%,J%..j|
00002510  08 4a 25 3d 34 0d 0e 74  13 e7 53 43 4f 52 45 25  |.J%=4..t..SCORE%|
00002520  3e 38 30 20 4a 25 3d 35  0d 0e 7e 14 e7 53 43 4f  |>80 J%=5..~..SCO|
00002530  52 45 25 3e 31 32 30 20  4a 25 3d 36 0d 0e 88 14  |RE%>120 J%=6....|
00002540  e7 53 43 4f 52 45 25 3e  31 36 30 20 4a 25 3d 37  |.SCORE%>160 J%=7|
00002550  0d 0e 92 14 e7 53 43 4f  52 45 25 3e 32 30 30 20  |.....SCORE%>200 |
00002560  4a 25 3d 38 0d 0e 9c 1a  e3 49 25 3d 30 b8 32 3a  |J%=8.....I%=0.2:|
00002570  62 25 28 49 25 29 3d b3  28 4a 25 29 3a ed 0d 0e  |b%(I%)=.(J%):...|
00002580  a6 0e e7 b3 28 32 30 29  3d 31 20 8c 0d 0e b0 13  |....(20)=1 .....|
00002590  20 62 25 28 b3 28 33 29  2d 31 29 3d 32 35 34 0d  | b%(.(3)-1)=254.|
000025a0  0e ba 05 cd 0d 0e c4 11  e7 53 43 4f 52 45 25 3e  |.........SCORE%>|
000025b0  31 30 30 20 8c 0d 0e ce  18 20 e7 73 70 65 65 64  |100 ..... .speed|
000025c0  25 3e 30 20 80 b3 28 33  29 3d 31 20 8c 0d 0e d8  |%>0 ..(3)=1 ....|
000025d0  15 20 20 73 70 65 65 64  25 3d 73 70 65 65 64 25  |.  speed%=speed%|
000025e0  2d 31 0d 0e e2 06 20 cd  0d 0e ec 05 cd 0d 0e f6  |-1.... .........|
000025f0  16 66 61 6c 6c 79 25 3d  32 33 3a 66 61 6c 6c 78  |.fally%=23:fallx|
00002600  25 3d 36 0d 0f 00 05 e1  0d 0f 0a 04 0d 0f 14 0e  |%=6.............|
00002610  dd f2 52 45 41 44 4b 45  59 53 0d 0f 1e 26 6c 6b  |..READKEYS...&lk|
00002620  25 3d a4 75 63 28 97 28  c0 a4 72 65 61 64 69 63  |%=.uc(.(..readic|
00002630  6f 6e 28 6b 65 79 73 25  2c 36 29 2c 31 29 29 29  |on(keys%,6),1)))|
00002640  0d 0f 28 26 72 6b 25 3d  a4 75 63 28 97 28 c0 a4  |..(&rk%=.uc(.(..|
00002650  72 65 61 64 69 63 6f 6e  28 6b 65 79 73 25 2c 37  |readicon(keys%,7|
00002660  29 2c 31 29 29 29 0d 0f  32 26 63 6b 25 3d a4 75  |),1)))..2&ck%=.u|
00002670  63 28 97 28 c0 a4 72 65  61 64 69 63 6f 6e 28 6b  |c(.(..readicon(k|
00002680  65 79 73 25 2c 38 29 2c  31 29 29 29 0d 0f 3c 26  |eys%,8),1)))..<&|
00002690  64 6b 25 3d a4 75 63 28  97 28 c0 a4 72 65 61 64  |dk%=.uc(.(..read|
000026a0  69 63 6f 6e 28 6b 65 79  73 25 2c 39 29 2c 31 29  |icon(keys%,9),1)|
000026b0  29 29 0d 0f 46 0c f2 53  45 54 4b 45 59 53 0d 0f  |))..F..SETKEYS..|
000026c0  50 05 e1 0d 0f 5a 0d dd  f2 53 45 54 4b 45 59 53  |P....Z...SETKEYS|
000026d0  0d 0f 64 1f f2 63 68 61  6e 67 65 69 63 6f 6e 28  |..d..changeicon(|
000026e0  6b 65 79 73 25 2c 36 2c  bd 28 6c 6b 25 29 29 0d  |keys%,6,.(lk%)).|
000026f0  0f 6e 1f f2 63 68 61 6e  67 65 69 63 6f 6e 28 6b  |.n..changeicon(k|
00002700  65 79 73 25 2c 37 2c bd  28 72 6b 25 29 29 0d 0f  |eys%,7,.(rk%))..|
00002710  78 1f f2 63 68 61 6e 67  65 69 63 6f 6e 28 6b 65  |x..changeicon(ke|
00002720  79 73 25 2c 38 2c bd 28  63 6b 25 29 29 0d 0f 82  |ys%,8,.(ck%))...|
00002730  1f f2 63 68 61 6e 67 65  69 63 6f 6e 28 6b 65 79  |..changeicon(key|
00002740  73 25 2c 39 2c bd 28 64  6b 25 29 29 0d 0f 8c 05  |s%,9,.(dk%))....|
00002750  e1 0d 0f 8d 04 0d 0f 8e  0d dd 20 a4 75 63 28 61  |.......... .uc(a|
00002760  25 29 0d 0f 8f 22 e7 20  61 25 3e 3d 97 22 61 22  |%)...". a%>=."a"|
00002770  20 80 20 61 25 3c 3d 97  22 7a 22 20 8c 20 3d 61  | . a%<=."z" . =a|
00002780  25 2d 33 32 0d 0f 90 07  3d 61 25 0d 0f 96 04 0d  |%-32....=a%.....|
00002790  0f a0 0f dd f2 53 43 4f  52 45 28 73 25 29 0d 0f  |.....SCORE(s%)..|
000027a0  aa 14 53 43 4f 52 45 25  3d 53 43 4f 52 45 25 2b  |..SCORE%=SCORE%+|
000027b0  73 25 0d 0f b4 33 f2 63  68 61 6e 67 65 69 63 6f  |s%...3.changeico|
000027c0  6e 28 73 63 6f 72 65 25  2c 30 2c c3 28 53 43 4f  |n(score%,0,.(SCO|
000027d0  52 45 25 29 29 3a f2 75  70 64 61 74 65 28 73 63  |RE%)):.update(sc|
000027e0  6f 72 65 25 29 0d 0f be  05 e1 0d 0f c8 04 0d 0f  |ore%)...........|
000027f0  d2 0a dd f2 50 4c 41 59  0d 0f dc 16 e7 20 91 2d  |....PLAY..... .-|
00002800  74 69 6d 65 25 3e 73 70  65 65 64 25 20 8c 0d 0f  |time%>speed% ...|
00002810  e6 0d f2 44 52 4f 50 4f  4e 43 45 0d 0f f0 0b 74  |...DROPONCE....t|
00002820  69 6d 65 25 3d 91 0d 0f  fa 05 cd 0d 10 04 05 e1  |ime%=...........|
00002830  0d 10 0e 04 0d 10 18 0a  dd f2 57 41 49 54 0d 10  |..........WAIT..|
00002840  22 05 e1 0d 10 2c 04 0d  10 36 0a dd f2 44 52 4f  |"....,...6...DRO|
00002850  50 0d 10 40 05 f5 0d 10  4a 0d f2 44 52 4f 50 4f  |P..@....J..DROPO|
00002860  4e 43 45 0d 10 54 0e fd  66 61 6c 6c 79 25 3d 32  |NCE..T..fally%=2|
00002870  33 0d 10 5e 0c 73 74 61  74 65 25 3d 31 0d 10 68  |3..^.state%=1..h|
00002880  05 e1 0d 10 72 04 0d 10  7c 0e dd f2 44 52 4f 50  |....r...|...DROP|
00002890  4f 4e 43 45 0d 10 86 29  e7 20 6d 61 70 25 28 66  |ONCE...). map%(f|
000028a0  61 6c 6c 78 25 2c 66 61  6c 6c 79 25 2d 31 29 3e  |allx%,fally%-1)>|
000028b0  30 20 84 66 61 6c 6c 79  25 3d 31 20 8c 0d 10 90  |0 .fally%=1 ....|
000028c0  2c 20 e3 49 25 3d 30 b8  32 3a 6d 61 70 25 28 66  |, .I%=0.2:map%(f|
000028d0  61 6c 6c 78 25 2c 66 61  6c 6c 79 25 2b 49 25 29  |allx%,fally%+I%)|
000028e0  3d 62 25 28 49 25 29 3a  ed 0d 10 9a 0d 20 66 61  |=b%(I%):..... fa|
000028f0  6c 6c 78 25 3d 30 0d 10  a4 10 20 f2 43 48 45 43  |llx%=0.... .CHEC|
00002900  4b 4c 49 4e 45 53 0d 10  ae 53 20 f2 44 52 41 57  |KLINES...S .DRAW|
00002910  42 4c 4f 43 4b 28 28 66  61 6c 6c 78 25 2d 31 29  |BLOCK((fallx%-1)|
00002920  2a 33 32 2c 28 66 61 6c  6c 79 25 2d 31 29 2a 33  |*32,(fally%-1)*3|
00002930  32 2d 37 30 34 2c 28 66  61 6c 6c 78 25 29 2a 33  |2-704,(fallx%)*3|
00002940  32 2c 28 66 61 6c 6c 79  25 2b 33 29 2a 33 32 2c  |2,(fally%+3)*32,|
00002950  6d 61 69 6e 25 2c 2d 31  29 0d 10 b8 12 20 e7 20  |main%,-1).... . |
00002960  66 61 6c 6c 79 25 3e 31  39 20 8c 0d 10 c2 0d 20  |fally%>19 ..... |
00002970  20 67 61 6d 65 25 3d 30  0d 10 cc 19 20 20 6d 65  | game%=0....  me|
00002980  6e 75 25 21 31 33 32 3d  26 30 37 34 30 30 30 30  |nu%!132=&0740000|
00002990  31 0d 10 d6 23 20 20 e7  20 53 43 4f 52 45 25 3e  |1...#  . SCORE%>|
000029a0  68 69 73 63 6f 72 65 25  28 31 30 29 20 8c f2 54  |hiscore%(10) ..T|
000029b0  41 42 4c 45 0d 10 e0 06  20 cc 0d 10 ea 0f 20 20  |ABLE.... .....  |
000029c0  f2 4e 45 57 42 4c 4f 43  4b 0d 10 f4 06 20 cd 0d  |.NEWBLOCK.... ..|
000029d0  10 fe 05 cc 0d 11 08 14  20 66 61 6c 6c 79 25 3d  |........ fally%=|
000029e0  66 61 6c 6c 79 25 2d 31  0d 11 12 56 20 f2 44 52  |fally%-1...V .DR|
000029f0  41 57 42 4c 4f 43 4b 28  28 66 61 6c 6c 78 25 2d  |AWBLOCK((fallx%-|
00002a00  31 29 2a 33 32 2c 28 66  61 6c 6c 79 25 2d 31 29  |1)*32,(fally%-1)|
00002a10  2a 33 32 2d 37 30 34 2c  28 66 61 6c 6c 78 25 29  |*32-704,(fallx%)|
00002a20  2a 33 32 2c 28 66 61 6c  6c 79 25 2b 33 29 2a 33  |*32,(fally%+3)*3|
00002a30  32 2d 37 30 34 2c 6d 61  69 6e 25 2c 30 29 0d 11  |2-704,main%,0)..|
00002a40  1c 05 cd 0d 11 26 05 e1  0d 11 30 04 0d 11 3a 0a  |.....&....0...:.|
00002a50  dd f2 4c 45 46 54 0d 11  44 5e e7 66 61 6c 6c 78  |..LEFT..D^.fallx|
00002a60  25 3e 31 20 80 6d 61 70  25 28 66 61 6c 6c 78 25  |%>1 .map%(fallx%|
00002a70  2d 31 2c 66 61 6c 6c 79  25 29 3d 30 20 80 6d 61  |-1,fally%)=0 .ma|
00002a80  70 25 28 66 61 6c 6c 78  25 2d 31 2c 66 61 6c 6c  |p%(fallx%-1,fall|
00002a90  79 25 2b 31 29 3d 30 20  80 6d 61 70 25 28 66 61  |y%+1)=0 .map%(fa|
00002aa0  6c 6c 78 25 2d 31 2c 66  61 6c 6c 79 25 2b 32 29  |llx%-1,fally%+2)|
00002ab0  3d 30 20 8c 0d 11 4e 13  66 61 6c 6c 78 25 3d 66  |=0 ...N.fallx%=f|
00002ac0  61 6c 6c 78 25 2d 31 0d  11 58 58 f2 44 52 41 57  |allx%-1..XX.DRAW|
00002ad0  42 4c 4f 43 4b 28 28 66  61 6c 6c 78 25 2d 31 29  |BLOCK((fallx%-1)|
00002ae0  2a 33 32 2c 28 66 61 6c  6c 79 25 2d 31 29 2a 33  |*32,(fally%-1)*3|
00002af0  32 2d 37 30 34 2c 28 66  61 6c 6c 78 25 2b 31 29  |2-704,(fallx%+1)|
00002b00  2a 33 32 2c 28 66 61 6c  6c 79 25 2b 33 29 2a 33  |*32,(fally%+3)*3|
00002b10  32 2d 37 30 34 2c 6d 61  69 6e 25 2c 2d 31 29 0d  |2-704,main%,-1).|
00002b20  11 62 05 cd 0d 11 6c 09  f2 50 4c 41 59 0d 11 76  |.b....l..PLAY..v|
00002b30  05 e1 0d 11 80 04 0d 11  8a 0b dd f2 52 49 47 48  |............RIGH|
00002b40  54 0d 11 94 5f e7 66 61  6c 6c 78 25 3c 31 31 20  |T..._.fallx%<11 |
00002b50  80 6d 61 70 25 28 66 61  6c 6c 78 25 2b 31 2c 66  |.map%(fallx%+1,f|
00002b60  61 6c 6c 79 25 29 3d 30  20 80 6d 61 70 25 28 66  |ally%)=0 .map%(f|
00002b70  61 6c 6c 78 25 2b 31 2c  66 61 6c 6c 79 25 2b 31  |allx%+1,fally%+1|
00002b80  29 3d 30 20 80 6d 61 70  25 28 66 61 6c 6c 78 25  |)=0 .map%(fallx%|
00002b90  2b 31 2c 66 61 6c 6c 79  25 2b 32 29 3d 30 20 8c  |+1,fally%+2)=0 .|
00002ba0  0d 11 9e 13 66 61 6c 6c  78 25 3d 66 61 6c 6c 78  |....fallx%=fallx|
00002bb0  25 2b 31 0d 11 a8 56 f2  44 52 41 57 42 4c 4f 43  |%+1...V.DRAWBLOC|
00002bc0  4b 28 28 66 61 6c 6c 78  25 2d 32 29 2a 33 32 2c  |K((fallx%-2)*32,|
00002bd0  28 66 61 6c 6c 79 25 2d  31 29 2a 33 32 2d 37 30  |(fally%-1)*32-70|
00002be0  34 2c 28 66 61 6c 6c 78  25 29 2a 33 32 2c 28 66  |4,(fallx%)*32,(f|
00002bf0  61 6c 6c 79 25 2b 33 29  2a 33 32 2d 37 30 34 2c  |ally%+3)*32-704,|
00002c00  6d 61 69 6e 25 2c 2d 31  29 0d 11 b2 05 cd 0d 11  |main%,-1).......|
00002c10  bc 09 f2 50 4c 41 59 0d  11 c6 05 e1 0d 11 d0 04  |...PLAY.........|
00002c20  0d 11 da 0b dd f2 43 59  43 4c 45 0d 11 e4 1f c8  |......CYCLE.....|
00002c30  94 62 25 28 30 29 2c 62  25 28 32 29 3a c8 94 62  |.b%(0),b%(2):..b|
00002c40  25 28 30 29 2c 62 25 28  31 29 0d 11 ee 55 f2 44  |%(0),b%(1)...U.D|
00002c50  52 41 57 42 4c 4f 43 4b  28 28 66 61 6c 6c 78 25  |RAWBLOCK((fallx%|
00002c60  2d 31 29 2a 33 32 2c 28  66 61 6c 6c 79 25 2d 31  |-1)*32,(fally%-1|
00002c70  29 2a 33 32 2d 37 30 34  2c 28 66 61 6c 6c 78 25  |)*32-704,(fallx%|
00002c80  29 2a 33 32 2c 28 66 61  6c 6c 79 25 2b 32 29 2a  |)*32,(fally%+2)*|
00002c90  33 32 2d 37 30 34 2c 6d  61 69 6e 25 2c 30 29 0d  |32-704,main%,0).|
00002ca0  11 f8 05 e1 0d 12 02 04  0d 12 0c 0c dd f2 44 52  |..............DR|
00002cb0  4f 50 49 54 0d 12 16 0c  73 74 61 74 65 25 3d 32  |OPIT....state%=2|
00002cc0  0d 12 20 05 e1 0d 12 2a  04 0d 12 34 10 dd f2 43  |.. ....*...4...C|
00002cd0  48 45 43 4b 4c 49 4e 45  53 0d 12 3e 0b ea 20 6d  |HECKLINES..>.. m|
00002ce0  6f 72 65 25 0d 12 48 05  f5 0d 12 52 0b 6d 6f 72  |ore%..H....R.mor|
00002cf0  65 25 3d 30 0d 12 5c 10  f2 50 52 4f 44 55 43 45  |e%=0..\..PRODUCE|
00002d00  43 4f 50 59 0d 12 66 0d  f2 43 48 45 43 4b 41 4c  |COPY..f..CHECKAL|
00002d10  4c 0d 12 70 14 f2 52 45  50 4c 41 43 45 4f 52 49  |L..p..REPLACEORI|
00002d20  47 49 4e 41 4c 0d 12 7a  1a e7 6d 6f 72 65 25 20  |GINAL..z..more% |
00002d30  8c f2 52 45 4d 4f 56 45  53 4d 49 4c 49 45 53 0d  |..REMOVESMILIES.|
00002d40  12 84 0c fd 6d 6f 72 65  25 3d 30 0d 12 8e 05 e1  |....more%=0.....|
00002d50  0d 12 98 04 0d 12 a2 11  dd f2 50 52 4f 44 55 43  |..........PRODUC|
00002d60  45 43 4f 50 59 0d 12 ac  15 e3 49 25 3d 31 b8 31  |ECOPY.....I%=1.1|
00002d70  31 3a e3 4a 25 3d 31 b8  32 37 0d 12 b6 1c 63 6f  |1:.J%=1.27....co|
00002d80  70 79 25 28 49 25 2c 4a  25 29 3d 6d 61 70 25 28  |py%(I%,J%)=map%(|
00002d90  49 25 2c 4a 25 29 0d 12  c0 07 ed 3a ed 0d 12 ca  |I%,J%).....:....|
00002da0  05 e1 0d 12 d4 15 dd f2  52 45 50 4c 41 43 45 4f  |........REPLACEO|
00002db0  52 49 47 49 4e 41 4c 0d  12 de 15 e3 49 25 3d 31  |RIGINAL.....I%=1|
00002dc0  b8 31 31 3a e3 4a 25 3d  31 b8 32 37 0d 12 e8 1c  |.11:.J%=1.27....|
00002dd0  6d 61 70 25 28 49 25 2c  4a 25 29 3d 63 6f 70 79  |map%(I%,J%)=copy|
00002de0  25 28 49 25 2c 4a 25 29  0d 12 f2 07 ed 3a ed 0d  |%(I%,J%).....:..|
00002df0  12 fc 05 e1 0d 13 06 04  0d 13 10 0e dd f2 43 48  |..............CH|
00002e00  45 43 4b 41 4c 4c 0d 13  1a 10 ea 49 25 2c 4a 25  |ECKALL.....I%,J%|
00002e10  2c 6d 25 2c 4b 25 0d 13  24 15 e3 49 25 3d 31 b8  |,m%,K%..$..I%=1.|
00002e20  31 31 3a e3 4a 25 3d 31  b8 32 32 0d 13 2e 12 6d  |11:.J%=1.22....m|
00002e30  25 3d 6d 61 70 25 28 49  25 2c 4a 25 29 0d 13 38  |%=map%(I%,J%)..8|
00002e40  0b e7 6d 25 3e 30 20 8c  0d 13 42 13 20 e7 49 25  |..m%>0 ...B. .I%|
00002e50  3c 31 31 20 80 49 25 3e  31 20 8c 0d 13 4c 2b 20  |<11 .I%>1 ...L+ |
00002e60  20 e7 6d 25 3d 6d 61 70  25 28 49 25 2d 31 2c 4a  | .m%=map%(I%-1,J|
00002e70  25 29 20 80 6d 25 3d 6d  61 70 25 28 49 25 2b 31  |%) .m%=map%(I%+1|
00002e80  2c 4a 25 29 20 8c 0d 13  56 46 20 20 20 63 6f 70  |,J%) ...VF   cop|
00002e90  79 25 28 49 25 2d 31 2c  4a 25 29 3d 32 35 35 3a  |y%(I%-1,J%)=255:|
00002ea0  63 6f 70 79 25 28 49 25  2c 4a 25 29 3d 32 35 35  |copy%(I%,J%)=255|
00002eb0  3a 63 6f 70 79 25 28 49  25 2b 31 2c 4a 25 29 3d  |:copy%(I%+1,J%)=|
00002ec0  32 35 35 3a 6d 6f 72 65  25 3d 2d 31 0d 13 60 07  |255:more%=-1..`.|
00002ed0  20 20 cd 0d 13 6a 06 20  cd 0d 13 74 13 20 e7 4a  |  ...j. ...t. .J|
00002ee0  25 3c 32 32 20 80 4a 25  3e 31 20 8c 0d 13 7e 2b  |%<22 .J%>1 ...~+|
00002ef0  20 20 e7 6d 25 3d 6d 61  70 25 28 49 25 2c 4a 25  |  .m%=map%(I%,J%|
00002f00  2d 31 29 20 80 6d 25 3d  6d 61 70 25 28 49 25 2c  |-1) .m%=map%(I%,|
00002f10  4a 25 2b 31 29 20 8c 0d  13 88 46 20 20 20 63 6f  |J%+1) ....F   co|
00002f20  70 79 25 28 49 25 2c 4a  25 2d 31 29 3d 32 35 35  |py%(I%,J%-1)=255|
00002f30  3a 63 6f 70 79 25 28 49  25 2c 4a 25 29 3d 32 35  |:copy%(I%,J%)=25|
00002f40  35 3a 63 6f 70 79 25 28  49 25 2c 4a 25 2b 31 29  |5:copy%(I%,J%+1)|
00002f50  3d 32 35 35 3a 6d 6f 72  65 25 3d 2d 31 0d 13 92  |=255:more%=-1...|
00002f60  07 20 20 cd 0d 13 9c 06  20 cd 0d 13 a6 21 20 e7  |.  ..... ....! .|
00002f70  4a 25 3c 32 32 20 80 4a  25 3e 31 20 80 49 25 3c  |J%<22 .J%>1 .I%<|
00002f80  31 31 20 80 20 49 25 3e  31 20 8c 0d 13 b0 2f 20  |11 . I%>1 ..../ |
00002f90  20 e7 6d 25 3d 6d 61 70  25 28 49 25 2d 31 2c 4a  | .m%=map%(I%-1,J|
00002fa0  25 2d 31 29 20 80 6d 25  3d 6d 61 70 25 28 49 25  |%-1) .m%=map%(I%|
00002fb0  2b 31 2c 4a 25 2b 31 29  20 8c 0d 13 ba 4a 20 20  |+1,J%+1) ....J  |
00002fc0  20 63 6f 70 79 25 28 49  25 2d 31 2c 4a 25 2d 31  | copy%(I%-1,J%-1|
00002fd0  29 3d 32 35 35 3a 63 6f  70 79 25 28 49 25 2b 31  |)=255:copy%(I%+1|
00002fe0  2c 4a 25 2b 31 29 3d 32  35 35 3a 63 6f 70 79 25  |,J%+1)=255:copy%|
00002ff0  28 49 25 2c 4a 25 29 3d  32 35 35 3a 6d 6f 72 65  |(I%,J%)=255:more|
00003000  25 3d 2d 31 0d 13 c4 07  20 20 cd 0d 13 ce 2f 20  |%=-1....  ..../ |
00003010  20 e7 6d 25 3d 6d 61 70  25 28 49 25 2d 31 2c 4a  | .m%=map%(I%-1,J|
00003020  25 2b 31 29 20 80 6d 25  3d 6d 61 70 25 28 49 25  |%+1) .m%=map%(I%|
00003030  2b 31 2c 4a 25 2d 31 29  20 8c 0d 13 d8 4a 20 20  |+1,J%-1) ....J  |
00003040  20 63 6f 70 79 25 28 49  25 2d 31 2c 4a 25 2b 31  | copy%(I%-1,J%+1|
00003050  29 3d 32 35 35 3a 63 6f  70 79 25 28 49 25 2c 4a  |)=255:copy%(I%,J|
00003060  25 29 3d 32 35 35 3a 63  6f 70 79 25 28 49 25 2b  |%)=255:copy%(I%+|
00003070  31 2c 4a 25 2d 31 29 3d  32 35 35 3a 6d 6f 72 65  |1,J%-1)=255:more|
00003080  25 3d 2d 31 0d 13 e2 07  20 20 cd 0d 13 ec 06 20  |%=-1....  ..... |
00003090  cd 0d 13 f6 05 cd 0d 14  00 0d e7 6d 25 3d 32 35  |...........m%=25|
000030a0  34 20 8c 0d 14 0a 0d 20  6d 6f 72 65 25 3d 2d 31  |4 ..... more%=-1|
000030b0  0d 14 14 0d 20 e3 4b 25  3d 31 b8 31 31 0d 14 1e  |.... .K%=1.11...|
000030c0  14 20 e7 63 6f 70 79 25  28 4b 25 2c 4a 25 29 20  |. .copy%(K%,J%) |
000030d0  8c 0d 14 28 16 20 20 63  6f 70 79 25 28 4b 25 2c  |...(.  copy%(K%,|
000030e0  4a 25 29 3d 32 35 33 0d  14 32 06 20 cd 0d 14 3c  |J%)=253..2. ...<|
000030f0  06 20 ed 0d 14 46 05 cd  0d 14 50 07 ed 3a ed 0d  |. ...F....P..:..|
00003100  14 5a 05 e1 0d 14 64 04  0d 14 6e 29 f2 44 52 41  |.Z....d...n).DRA|
00003110  57 42 4c 4f 43 4b 28 30  2c 2d 31 30 32 33 2c 31  |WBLOCK(0,-1023,1|
00003120  32 37 39 2c 30 2c 77 69  6e 64 6f 77 25 2c 2d 31  |279,0,window%,-1|
00003130  29 0d 14 78 04 0d 14 82  13 dd f2 52 45 4d 4f 56  |)..x.......REMOV|
00003140  45 53 4d 49 4c 49 45 53  0d 14 8c 10 ea 49 25 2c  |ESMILIES.....I%,|
00003150  4a 25 2c 4b 25 2c 53 25  0d 14 96 08 53 25 3d 30  |J%,K%,S%....S%=0|
00003160  0d 14 a0 0d f2 44 52 41  57 4d 41 49 4e 0d 14 aa  |.....DRAWMAIN...|
00003170  0c e3 49 25 3d 31 b8 31  31 0d 14 b4 11 20 4a 25  |..I%=1.11.... J%|
00003180  3d 31 3a c8 95 4a 25 3c  32 37 0d 14 be 18 20 20  |=1:..J%<27....  |
00003190  e7 6d 61 70 25 28 49 25  2c 4a 25 29 3d 32 35 35  |.map%(I%,J%)=255|
000031a0  20 8c 0d 14 c8 14 20 20  20 6d 61 70 25 28 49 25  | .....   map%(I%|
000031b0  2c 4a 25 29 3d 30 0d 14  d2 10 20 20 20 e3 4b 25  |,J%)=0....   .K%|
000031c0  3d 4a 25 b8 32 36 0d 14  dc 21 20 20 20 20 6d 61  |=J%.26...!    ma|
000031d0  70 25 28 49 25 2c 4b 25  29 3d 6d 61 70 25 28 49  |p%(I%,K%)=map%(I|
000031e0  25 2c 4b 25 2b 31 29 0d  14 e6 08 20 20 20 ed 0d  |%,K%+1)....   ..|
000031f0  14 f0 0e 20 20 20 53 25  3d 53 25 2b 31 0d 14 fa  |...   S%=S%+1...|
00003200  0e 20 20 20 4a 25 3d 4a  25 2d 31 0d 15 04 07 20  |.   J%=J%-1.... |
00003210  20 cd 0d 15 0e 18 20 20  e7 6d 61 70 25 28 49 25  | .....  .map%(I%|
00003220  2c 4a 25 29 3d 32 35 33  20 8c 0d 15 18 14 20 20  |,J%)=253 .....  |
00003230  20 6d 61 70 25 28 49 25  2c 4a 25 29 3d 30 0d 15  | map%(I%,J%)=0..|
00003240  22 11 20 20 20 20 e3 4b  25 3d 4a 25 b8 32 36 0d  |".    .K%=J%.26.|
00003250  15 2c 21 20 20 20 20 6d  61 70 25 28 49 25 2c 4b  |.,!    map%(I%,K|
00003260  25 29 3d 6d 61 70 25 28  49 25 2c 4b 25 2b 31 29  |%)=map%(I%,K%+1)|
00003270  0d 15 36 08 20 20 20 ed  0d 15 40 0e 20 20 20 4a  |..6.   ...@.   J|
00003280  25 3d 4a 25 2d 31 0d 15  4a 07 20 20 cd 0d 15 54  |%=J%-1..J.  ...T|
00003290  0d 20 20 4a 25 3d 4a 25  2b 31 0d 15 5e 06 20 ce  |.  J%=J%+1..^. .|
000032a0  0d 15 68 05 ed 0d 15 72  11 f2 53 43 4f 52 45 28  |..h....r..SCORE(|
000032b0  53 25 2a 53 25 29 0d 15  7c 0d f2 44 52 41 57 4d  |S%*S%)..|..DRAWM|
000032c0  41 49 4e 0d 15 86 05 e1  0d 15 90 04 0d 15 9a 12  |AIN.............|
000032d0  dd f2 4c 4f 41 44 48 49  53 43 4f 52 45 53 0d 15  |..LOADHISCORES..|
000032e0  a4 10 ea 49 25 2c 66 69  6c 65 25 2c 41 24 0d 15  |...I%,file%,A$..|
000032f0  ae 22 66 69 6c 65 25 3d  8e 28 22 3c 54 72 69 6f  |."file%=.("<Trio|
00003300  24 44 69 72 3e 2e 48 69  73 63 6f 72 65 73 22 29  |$Dir>.Hiscores")|
00003310  0d 15 b8 0c e3 49 25 3d  31 b8 31 30 0d 15 c2 23  |.....I%=1.10...#|
00003320  68 69 73 63 6f 72 65 24  28 49 25 29 3d a4 72 65  |hiscore$(I%)=.re|
00003330  61 64 73 74 72 69 6e 67  28 66 69 6c 65 25 29 0d  |adstring(file%).|
00003340  15 cc 26 68 69 73 63 6f  72 65 25 28 49 25 29 3d  |..&hiscore%(I%)=|
00003350  bb 28 a4 72 65 61 64 73  74 72 69 6e 67 28 66 69  |.(.readstring(fi|
00003360  6c 65 25 29 29 0d 15 d6  29 f2 63 68 61 6e 67 65  |le%))...).change|
00003370  69 63 6f 6e 28 68 69 73  63 6f 72 65 25 2c 49 25  |icon(hiscore%,I%|
00003380  2c 68 69 73 63 6f 72 65  24 28 49 25 29 29 0d 15  |,hiscore$(I%))..|
00003390  e0 2f f2 63 68 61 6e 67  65 69 63 6f 6e 28 68 69  |./.changeicon(hi|
000033a0  73 63 6f 72 65 25 2c 49  25 2b 31 30 2c c3 28 68  |score%,I%+10,.(h|
000033b0  69 73 63 6f 72 65 25 28  49 25 29 29 29 0d 15 ea  |iscore%(I%)))...|
000033c0  05 ed 0d 15 f4 0b d9 23  66 69 6c 65 25 0d 15 fe  |.......#file%...|
000033d0  05 e1 0d 16 08 04 0d 16  12 14 dd a4 72 65 61 64  |............read|
000033e0  73 74 72 69 6e 67 28 4a  25 29 0d 16 1c 09 3d be  |string(J%)....=.|
000033f0  23 4a 25 0d 16 26 04 0d  16 30 12 dd f2 53 41 56  |#J%..&...0...SAV|
00003400  45 48 49 53 43 4f 52 45  53 0d 16 3a 10 ea 49 25  |EHISCORES..:..I%|
00003410  2c 66 69 6c 65 25 2c 41  24 0d 16 44 22 66 69 6c  |,file%,A$..D"fil|
00003420  65 25 3d ae 28 22 3c 54  72 69 6f 24 44 69 72 3e  |e%=.("<Trio$Dir>|
00003430  2e 48 69 73 63 6f 72 65  73 22 29 0d 16 4e 0c e3  |.Hiscores")..N..|
00003440  49 25 3d 31 b8 31 30 0d  16 58 24 f2 77 72 69 74  |I%=1.10..X$.writ|
00003450  65 73 74 72 69 6e 67 28  68 69 73 63 6f 72 65 24  |estring(hiscore$|
00003460  28 49 25 29 2c 66 69 6c  65 25 29 0d 16 62 27 f2  |(I%),file%)..b'.|
00003470  77 72 69 74 65 73 74 72  69 6e 67 28 c3 28 68 69  |writestring(.(hi|
00003480  73 63 6f 72 65 25 28 49  25 29 29 2c 66 69 6c 65  |score%(I%)),file|
00003490  25 29 0d 16 6c 05 ed 0d  16 76 0b d9 23 66 69 6c  |%)..l....v..#fil|
000034a0  65 25 0d 16 80 05 e1 0d  16 8a 04 0d 16 94 18 dd  |e%..............|
000034b0  f2 77 72 69 74 65 73 74  72 69 6e 67 28 41 24 2c  |.writestring(A$,|
000034c0  4a 25 29 0d 16 9e 0b d5  23 4a 25 2c 41 24 0d 16  |J%).....#J%,A$..|
000034d0  a8 05 e1 0d 16 b2 04 0d  16 bc 0b dd f2 54 41 42  |.............TAB|
000034e0  4c 45 0d 16 c6 0a ea 49  25 2c 4a 25 0d 16 d0 13  |LE.....I%,J%....|
000034f0  68 69 73 63 6f 72 65 57  25 21 32 38 3d 2d 31 0d  |hiscoreW%!28=-1.|
00003500  16 da 22 c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |..".."Wimp_OpenW|
00003510  69 6e 64 6f 77 22 2c 2c  68 69 73 63 6f 72 65 57  |indow",,hiscoreW|
00003520  25 0d 16 e4 10 e3 49 25  3d 31 30 b8 31 20 88 2d  |%.....I%=10.1 .-|
00003530  31 0d 16 ee 1e e7 53 43  4f 52 45 25 3e 68 69 73  |1.....SCORE%>his|
00003540  63 6f 72 65 25 28 49 25  29 20 4a 25 3d 49 25 0d  |core%(I%) J%=I%.|
00003550  16 f8 05 ed 0d 17 02 0c  e7 4a 25 3c 31 30 20 8c  |.........J%<10 .|
00003560  0d 17 0c 12 20 e3 49 25  3d 31 30 b8 4a 25 20 88  |.... .I%=10.J% .|
00003570  2d 31 0d 17 16 0f 20 e7  49 25 2b 31 3c 31 31 20  |-1.... .I%+1<11 |
00003580  8c 0d 17 20 21 20 20 68  69 73 63 6f 72 65 25 28  |... !  hiscore%(|
00003590  49 25 2b 31 29 3d 68 69  73 63 6f 72 65 25 28 49  |I%+1)=hiscore%(I|
000035a0  25 29 0d 17 2a 21 20 20  68 69 73 63 6f 72 65 24  |%)..*!  hiscore$|
000035b0  28 49 25 2b 31 29 3d 68  69 73 63 6f 72 65 24 28  |(I%+1)=hiscore$(|
000035c0  49 25 29 0d 17 34 2f 20  20 f2 63 68 61 6e 67 65  |I%)..4/  .change|
000035d0  69 63 6f 6e 28 68 69 73  63 6f 72 65 25 2c 49 25  |icon(hiscore%,I%|
000035e0  2b 31 2c 68 69 73 63 6f  72 65 24 28 49 25 2b 31  |+1,hiscore$(I%+1|
000035f0  29 29 0d 17 3e 33 20 20  f2 63 68 61 6e 67 65 69  |))..>3  .changei|
00003600  63 6f 6e 28 68 69 73 63  6f 72 65 25 2c 49 25 2b  |con(hiscore%,I%+|
00003610  31 31 2c c3 28 68 69 73  63 6f 72 65 25 28 49 25  |11,.(hiscore%(I%|
00003620  2b 31 29 29 29 0d 17 48  06 20 cd 0d 17 52 06 20  |+1)))..H. ...R. |
00003630  ed 0d 17 5c 05 cd 0d 17  66 6e f2 63 68 61 6e 67  |...\....fn.chang|
00003640  65 69 63 6f 6e 28 68 69  73 63 6f 72 65 25 2c 4a  |eicon(hiscore%,J|
00003650  25 2c 22 22 29 3a 68 69  73 63 6f 72 65 24 28 4a  |%,""):hiscore$(J|
00003660  25 29 3d 22 54 68 65 20  53 68 79 20 4f 6e 65 22  |%)="The Shy One"|
00003670  3a f2 63 68 61 6e 67 65  69 63 6f 6e 28 68 69 73  |:.changeicon(his|
00003680  63 6f 72 65 25 2c 4a 25  2b 31 30 2c c3 28 53 43  |core%,J%+10,.(SC|
00003690  4f 52 45 25 29 29 3a f2  53 41 56 45 48 49 53 43  |ORE%)):.SAVEHISC|
000036a0  4f 52 45 53 0d 17 70 17  68 69 73 63 6f 72 65 25  |ORES..p.hiscore%|
000036b0  28 4a 25 29 3d 53 43 4f  52 45 25 0d 17 7a 15 f2  |(J%)=SCORE%..z..|
000036c0  75 70 64 61 74 65 28 68  69 73 63 6f 72 65 25 29  |update(hiscore%)|
000036d0  0d 17 84 34 c8 99 22 57  69 6d 70 5f 53 65 74 43  |...4.."Wimp_SetC|
000036e0  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 68 69  |aretPosition",hi|
000036f0  73 63 6f 72 65 25 2c 4a  25 2c 2d 31 2c 2d 31 2c  |score%,J%,-1,-1,|
00003700  2d 31 2c 30 0d 17 8e 0a  68 69 25 3d 4a 25 0d 17  |-1,0....hi%=J%..|
00003710  98 05 e1 0d 17 a2 04 0d  17 ac 0f dd f2 45 4e 54  |.............ENT|
00003720  45 52 28 4a 25 29 0d 17  b6 27 68 69 73 63 6f 72  |ER(J%)...'hiscor|
00003730  65 24 28 4a 25 29 3d a4  72 65 61 64 69 63 6f 6e  |e$(J%)=.readicon|
00003740  28 68 69 73 63 6f 72 65  25 2c 4a 25 29 0d 17 c0  |(hiscore%,J%)...|
00003750  09 68 69 25 3d 30 0d 17  ca 11 f2 53 41 56 45 48  |.hi%=0.....SAVEH|
00003760  49 53 43 4f 52 45 53 0d  17 d4 05 e1 0d 17 de 04  |ISCORES.........|
00003770  0d 17 e8 11 dd a4 6d 6f  64 65 76 61 72 28 56 25  |......modevar(V%|
00003780  29 0d 17 f2 28 c8 99 22  4f 53 5f 52 65 61 64 4d  |)...(.."OS_ReadM|
00003790  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
000037a0  56 25 20 b8 20 2c 2c 56  25 0d 17 fc 07 3d 56 25  |V% . ,,V%....=V%|
000037b0  0d 18 06 04 0d 18 10 0e  dd f2 44 52 41 57 4d 41  |..........DRAWMA|
000037c0  49 4e 0d 18 1a 1a f2 44  4f 44 52 41 57 28 31 29  |IN.....DODRAW(1)|
000037d0  3a f2 44 4f 44 52 41 57  28 31 31 29 0d 18 24 1a  |:.DODRAW(11)..$.|
000037e0  f2 44 4f 44 52 41 57 28  32 29 3a f2 44 4f 44 52  |.DODRAW(2):.DODR|
000037f0  41 57 28 31 30 29 0d 18  2e 19 f2 44 4f 44 52 41  |AW(10).....DODRA|
00003800  57 28 33 29 3a f2 44 4f  44 52 41 57 28 39 29 0d  |W(3):.DODRAW(9).|
00003810  18 38 19 f2 44 4f 44 52  41 57 28 34 29 3a f2 44  |.8..DODRAW(4):.D|
00003820  4f 44 52 41 57 28 38 29  0d 18 42 19 f2 44 4f 44  |ODRAW(8)..B..DOD|
00003830  52 41 57 28 35 29 3a f2  44 4f 44 52 41 57 28 37  |RAW(5):.DODRAW(7|
00003840  29 0d 18 4c 0e f2 44 4f  44 52 41 57 28 36 29 0d  |)..L..DODRAW(6).|
00003850  18 56 05 e1 0d 18 60 04  0d 18 6a 10 dd f2 44 4f  |.V....`...j...DO|
00003860  44 52 41 57 28 58 25 29  0d 18 74 0b ea 20 52 25  |DRAW(X%)..t.. R%|
00003870  2c 49 25 0d 18 7e 42 c8  99 22 43 6f 6c 6f 75 72  |,I%..~B.."Colour|
00003880  54 72 61 6e 73 5f 53 65  6c 65 63 74 54 61 62 6c  |Trans_SelectTabl|
00003890  65 22 2c 73 70 72 69 74  65 73 25 2c 22 31 22 2c  |e",sprites%,"1",|
000038a0  2d 31 2c 2d 31 2c 63 6f  6c 74 72 61 6e 73 25 2c  |-1,-1,coltrans%,|
000038b0  30 2c 30 2c 30 0d 18 88  49 21 73 63 61 6c 65 25  |0,0,0...I!scale%|
000038c0  3d 32 3a 73 63 61 6c 65  25 21 34 3d 34 3a 73 63  |=2:scale%!4=4:sc|
000038d0  61 6c 65 25 21 38 3d 31  3c 3c a4 6d 6f 64 65 76  |ale%!8=1<<.modev|
000038e0  61 72 28 34 29 3a 73 63  61 6c 65 25 21 31 32 3d  |ar(4):scale%!12=|
000038f0  31 3c 3c a4 6d 6f 64 65  76 61 72 28 35 29 0d 18  |1<<.modevar(5)..|
00003900  92 4e 21 62 6c 6f 63 6b  25 3d 6d 61 69 6e 25 3a  |.N!block%=main%:|
00003910  62 6c 6f 63 6b 25 21 34  3d 28 58 25 2d 31 29 2a  |block%!4=(X%-1)*|
00003920  33 32 3a 62 6c 6f 63 6b  25 21 38 3d 2d 37 30 34  |32:block%!8=-704|
00003930  3a 62 6c 6f 63 6b 25 21  31 32 3d 58 25 2a 33 32  |:block%!12=X%*32|
00003940  3a 62 6c 6f 63 6b 25 21  31 36 3d 30 0d 18 9c 26  |:block%!16=0...&|
00003950  c8 99 22 57 69 6d 70 5f  55 70 64 61 74 65 57 69  |.."Wimp_UpdateWi|
00003960  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00003970  52 25 0d 18 a6 09 c8 95  20 52 25 0d 18 b0 78 e3  |R%...... R%...x.|
00003980  49 25 3d 31 b8 32 32 3a  c8 99 22 4f 53 5f 53 70  |I%=1.22:.."OS_Sp|
00003990  72 69 74 65 4f 70 22 2c  32 35 36 2b 35 32 2c 73  |riteOp",256+52,s|
000039a0  70 72 69 74 65 73 25 2c  c3 28 6d 61 70 25 28 58  |prites%,.(map%(X|
000039b0  25 2c 49 25 29 29 2c 62  6c 6f 63 6b 25 21 34 2b  |%,I%)),block%!4+|
000039c0  28 58 25 2a 33 32 29 2d  33 32 2c 62 6c 6f 63 6b  |(X%*32)-32,block|
000039d0  25 21 38 2b 28 49 25 2a  33 32 29 2d 33 32 2c 30  |%!8+(I%*32)-32,0|
000039e0  2c 73 63 61 6c 65 25 2c  63 6f 6c 74 72 61 6e 73  |,scale%,coltrans|
000039f0  25 3a ed 0d 18 ba 27 c8  99 22 57 69 6d 70 5f 47  |%:....'.."Wimp_G|
00003a00  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 30 2c 62  |etRectangle",0,b|
00003a10  6c 6f 63 6b 25 20 b8 20  52 25 0d 18 c4 05 ce 0d  |lock% . R%......|
00003a20  18 ce 05 e1 0d ff                                 |......|
00003a26