� !RunImage
� By Philip Mellor
:
(AppName$="Whack-A-Mole"
2%version$="1.00 (23rd March 1998)"
<:
F� � �4:�:�" - ";�:�
P:
Z8ș "Wimp_Initialise",200,&4B534154,AppName$ � ,task%
d
n	�init
x�createiconbar
�:
�� mt%(9),mb%(9),mc%(9)
�:
�pausetime%=0
��set_gameover
�2�set_icon_string(whack%,19,"Whack - A - Mole")
��open_centre(whack%)
�playing%=�
�
�dummy=�(-�)
�:
�� � � �error � �close:�
�:

�

	�poll

� quit%

"� MOUSE STEP 2,2

,
�close

6�

@:

J;� =====================================================

T&�   MODIFIED WIMP LIBRARY ROUTINES

^;� =====================================================

h:

r� �createiconbar

|7!b%=-1:b%!4=0:b%!8=0:b%!12=100:b%!16=68:b%!20=&3002

�7$(b%+24)="!whakamole":ș "Wimp_CreateIcon",,b% � i%

��

�:

�� �mouseclick

�window%=b%!12

�icon%=b%!16

�button%=b%!8

�Ȏ window% �

�

�	 � -2

�  Ȏ button% �

�.   � 2:�showmenu(mainmenu%,!b%-64,96+2*44)

�   � 4:�open_centre(whack%)
   �


 � whack%
&  Ȏ button% �
0+   � 2:�showmenu(mainmenu%,!b%-64,b%!4)
:  
D   Ȏ icon% �
N<    � 2,3,4,5,6,7,8,9,10:� playing% �click_mole(icon%-1)
X4    � 20:ș "OS_ReadMonotonicTime" � pausetime2%
b<            � pausetime2%-pausetime%>50 �set_game:�start
l   �
v  �
�
��
��
�:
�� �start
�'playing%=�:hits%=0:miss%=0:total%=0
�� mole%=1 � 9
�mt%(mole%)=0
�@� PROCset_icon_string2(whack%,mole%+1,"mole"+STR$mt%(mole%))
��
�� PROCupdate_icon(whack%,0)
�
�total
�	�hits
	�miss
)ș "OS_ReadMonotonicTime" � oldtime1%
oldtime%=-1
 starttime%=oldtime1%
*oldtime2%=oldtime1%+25
4nexttime%=�(50)+50
>� MOUSE STEP 1,1
H�
R:
\� �total
f(�set_icon_string(whack%,13,� total%)
p�
z:
�� �hits
�'�set_icon_string(whack%,15,� hits%)
��
�:
�� �miss
�'�set_icon_string(whack%,17,� miss%)
��
�:
�� �click_mole(mole%)
�)ș "OS_ReadMonotonicTime" � newtime2%
�C� mt%(mole%)=0 � mt%(mole%)=2 � miss%+=1:total%-=3:�miss:�total
�� mt%(mole%)=1 � mt%(mole%)=2:�set_icon_string(whack%,mole%+1,"mole2"):mc%(mole%)=50:mb%(mole%)=newtime2%:hits%+=1:total%+=5:�hits:�total
��
:
� �play_loop
)ș "OS_ReadMonotonicTime" � newtime1%
$)ș "OS_ReadMonotonicTime" � newtime2%
.)ș "OS_ReadMonotonicTime" � newtime3%
8)time%=16-((newtime3%-starttime%)/100)
Br� time%<0 time%=0:playing%=�:�set_gameover:pausetime%=newtime3%:�set_icon_string(whack%,19,"T I M E    U P !")
LJ� time%<>oldtime% � �set_icon_string(whack%,11,� time%):oldtime%=time%
V%� newtime1%-oldtime1%>nexttime% �
`oldtime1%=newtime1%
j nexttime%=�(60)+10+(time%*3)
t� �(6)=1 nexttime%=�(80)+50
~mole%=�(9)
�t� mt%(mole%)=0 � mt%(mole%)=1:�set_icon_string(whack%,mole%+1,"mole1"):mc%(mole%)=60+�(100):mb%(mole%)=newtime2%
��
�� mole%=1 � 9
�� mt%(mole%)>0 �
�'� newtime2%>mb%(mole%)+mc%(mole%) �
�#� mt%(mole%)=1 total%-=2:�total
�9mt%(mole%)=0:�set_icon_string(whack%,mole%+1,"mole0")
��
��
��
��
�:
� �set_game

!�set_icon_bit(whack%,19,�,23)
!�set_icon_bit(whack%,20,�,23)
� a=2 � 10
( �set_icon_bit(whack%,a,�,23)
2&�set_icon_string(whack%,a,"mole0")
<�
F� PROCupdate_icon(whack%,0)
P�
Z:
d� �set_gameover
n� a=2 � 10
x �set_icon_bit(whack%,a,�,23)
��
�!�set_icon_bit(whack%,19,�,23)
�!�set_icon_bit(whack%,20,�,23)
�� PROCupdate_icon(whack%,0)
��
�:
�� �processkey
�key=b%!24:win%=!b%:ic%=b%!4
�
process=�
�&� process ș "Wimp_ProcessKey",key
��
�:
�� �load_templates
2ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
>ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"whack",0 � ,,ws%
'ș "Wimp_CreateWindow",,b% � whack%
"@ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"options",0 � ,,ws%
,)ș "Wimp_CreateWindow",,b% � options%
6>ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"score",0 � ,,ws%
@'ș "Wimp_CreateWindow",,b% � score%
J=ș "Wimp_LoadTemplate",,b%,ws%,wsend%,-1,"info",0 � ,,ws%
T&ș "Wimp_CreateWindow",,b% � info%
^ș "Wimp_CloseTemplate"
h�
r:
|� �menu_warning
�submenu_ptr=b%!20
�win_x=b%!24
�win_y=b%!28
�.ș "Wimp_CreateSubMenu",,b%!20,b%!24,b%!28
��
�:
�� �save_data(filename$)
�)�set_icon_string(saveas%,2,filename$)
�� *** SAVE DATA HERE ***
��saved_message
��
�:
�0� �load_data(window,icon,filename$,filetype)
"� *** CHECK/LOAD DATA HERE ***
)�set_icon_string(saveas%,2,filename$)
�
&:
0
� �helpme
:window%=b%!32
Dicon%=b%!36
N1help$="This is the "+AppName$+" application."
X
bȎ window% �
l	 � -2
v,  help$="This is the "+AppName$+" icon."
�
� � info%
�  help$=""
�  Ȏ icon% �
�5   � 0,1:help$="This is the name of the program."
�8   � 2,3:help$="This is the purpose of the program."
�7   � 4,5:help$="This is the author of the program."
�?   � 6,7:help$="This is the version number of the program."
�  �
�
��
�:
�b%!00 = 256
b%!12 = b%!8
b%!16 = &0503
$(b%+20)= help$
 $ș "Wimp_SendMessage",17,b%,b%!4
*�
4
>:
H;� =====================================================
R&�   STANDARD WIMP LIBRARY ROUTINES
\;� =====================================================
f:
p� �close
z� MOUSE STEP 2,2
�'ș "Wimp_CloseDown",task%,&4B534154
��
�:
�� �poll
�ș "Wimp_Poll",,b% � r%
�Ȏ r% �
�� 0:� playing% �play_loop
� � 2:ș "Wimp_OpenWindow",,b%
�!� 3:ș "Wimp_CloseWindow",,b%
�� 6:�mouseclick
�� 7:�dragend
�� 8:�processkey
�� 9:�menuclick
	� 17,18:�receive
	�
	�
	$:
	.� �receive
	8Ȏ b%!16 �
	B� 0:quit%=�
	L� 1:�datasave
	V
� 2:�save
	`
� 3:�load
	j� &502:�helpme
	t� &400C0:�menu_warning
	~�
	��
	�:
	�� �datasave
	��term(b%+44)
	�name$=$(b%+44)
	�$(b%+44)="<Wimp$Scrap>"+�0
	�'b%!36=-1 : � saved file is "unsafe"
	�b%!0=256
	�b%!12=b%!8
	�b%!16=2
	�$ș "Wimp_SendMessage",17,b%,b%!4
	��
:

!� �update_icon(window%,icon%)
b%!0=window%
   b%!4=icon%
(
   b%!8=0
2   b%!12=0
<!   ș "Wimp_SetIconState",,b%
F�
P:
Z,� �get_origin(handle%,� xorig%,� yorig%)
d� c%
n
c%=b%+800
x!c%=handle%
� ș "Wimp_GetWindowState",,c%
�xorig%=c%!4-c%!20
�yorig%=c%!16-c%!24
��
�
�(� �set_icon_bit(!b%,b%!4,tf%,stbit%)
�state%=0
�� tf% state%=1
�b%!8=state%<<stbit%
�b%!12=1<<stbit%
�ș "Wimp_SetIconState",,b%
��
�:
� �attach(menu%,item%,sub%)
!(menu%+28+item%*24+4)=sub%
�
":
,� �make_menu
6start%=menspc%
@� title$
J$(start%)=title$
Tstart%?12=7
^start%?13=2
hstart%?14=7
rstart%?15=0
|start%!20=44
�start%!24=0
�� start%!16=160
�width%=�(title$)-3
�menspc%+=28
��
�� item$
�� item$<>"*" �
�!menspc%=0
�writeable%=�
�ul%=�item$,"_")
�� ul% �
�tail$=�item$,�(item$)-ul%)
�.� �tail$,"T") !menspc%=!menspc% � 1:� tick
5� �tail$,"D") !menspc%=!menspc% � 2:� dotted line
X� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%:� writable icon
:� �tail$,"M") !menspc%=!menspc% � 8:� generate message
&item$=�item$,ul%-1)
0�
:#� � item$>width% width%=� item$
Dmenspc%!4=-1
N� writeable% �
XZmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
b�
l� � item$<12 �
v+menspc%!8=&07000021:$(menspc%+12)=item$
��
�Imenspc%!8=&07000121:menspc%!12=ws%:menspc%!16=-1:menspc%!20=� item$+1
�$ws%=item$:ws%+=� item$+1
��
��
�menspc%+=24
��
�� item$="*"
�start%!16=width%*16+32
�%!(menspc%-24)=!(menspc%-24) � &80
�mptr%=menspc%
�=start%
�:

� �showmenu(menu%,x%,y%)

$topmenu%=menu%:topx%=x%:topy%=y%

%ș "Wimp_CreateMenu",,menu%,x%,y%

 �

*:

4� �ungrey(menu%,item%)

>?menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (� (1<<22))

H�

R:

\� �grey(menu%,item%)

f;menu%!(28+item%*24+8)=(menu%!(28+item%*24+8)) � (1<<22)

p�

z:

� � �icon_state(window%,icon%)

�� c%

�
c%=b%+900

�!c%=window%

�c%!4=icon%

�ș "Wimp_GetIconState",,c%

�=((c%!24) � (1<<21))<>0

�:

�!� �string_addr(window%,icon%)

�!chappy%=window%

�chappy%!4=icon%

�#ș "Wimp_GetIconState",,chappy%

�=chappy%!28
:
!� �icon_string(window%,icon%)
&�term(�string_addr(window%,icon%))
$!=$�string_addr(window%,icon%)
.�
8:
B)� �set_icon_string2(window%,icon%,a$)
L#$�string_addr(window%,icon%)=a$
V�
`:
j� �term(a%)
t� n%
~ȕ a%?n%>31
�	n%+=1
��
�a%?n%=13
��
�:
�� �open_window(win%)
�!b%=win%
� ș "Wimp_GetWindowState",,b%
�b%!28=-1
�ș "Wimp_OpenWindow",,b%
��
�:
� �open_centre(win%)

�get_screen_size
!b%=win%
 ș "Wimp_GetWindowState",,b%
(width%=(b%!12)-(b%!4)
2height%=(b%!16)-(b%!8)
<b%!4=(X2-width%) � 2
Fb%!8=(Y2-height%) � 2
Pb%!12=(b%!4)+width%
Zb%!16=(b%!8)+height%
db%!28=-1
nș "Wimp_OpenWindow",,b%
x�
�:
�� �close_window(win%)
�!b%=win%
�:ș "Wimp_GetWindowState",,b%:ș "Wimp_CloseWindow",,b%
��
�:
�� �error
�	!b%=�
�Ȏ !b% �
�"� 1<<30:err_str$="":box%=%1001
�):err_str$=" at line "+� �:box%=%1001
��
�$(b%+4)=�$+err_str$+�0
7ș "Wimp_ReportError",b%,box%,AppName$ � ,response%
=(response%=2)
:
"� �get_screen_size
,+ș"OS_ReadModeVariable",-1,4 � ,,Xfact%
6+ș"OS_ReadModeVariable",-1,5 � ,,Yfact%
@+ș"OS_ReadModeVariable",-1,11 � ,,XLim%
J+ș"OS_ReadModeVariable",-1,12 � ,,YLim%
TX2=XLim%<<Xfact%
^Y2=YLim%<<Yfact%
h�
r:
|� �capitals(t$)
�-� *** Converts all text to lower case ***
�
� I,l$
�
nt$=""
�� I=1 � � t$
�l$=�t$,I,1)
�2� �(l$)>=�("A") � �(l$)<=�("Z") l$=�(�(l$)+32)
�nt$+=l$
��
�=nt$
�:
�� �evaluate(ev$)
�4ș "XOS_EvaluateExpression",ev$,b%,256 � ,b%,len
�
�term(b%)
=�$b%,len)
:
%� �drag_a_spr(window%,icon%,spr$)
&� c%
0
c%=b%+900
:&�get_origin(window%,xorig%,yorig%)
D!c%=window%:c%!4=icon%
Nș "Wimp_GetIconState",,c%
X(xmin%=xorig%+c%!8:ymin%=yorig%+c%!12
b)xmax%=xorig%+c%!16:ymax%=yorig%+c%!20
l!c%=xmin%:c%!4=ymin%
vc%!8=xmax%:c%!12=ymax%
�.ș "DragASprite_Start",%10000101,1,spr$,c%
��
�:
�� �dragend
�a$=�icon_string(saveas%,2)
� ș "Wimp_GetPointerInfo",,b%
�b%!20=b%!12
�b%!24=b%!16
�b%!28=b%!0
�b%!32=b%!4
�b%!36=(filepos%-readsize%)
�b%!40=save_type%
�ȕ �a$,".")<>0
n%=�a$,".")
a$=�a$,n%+1)
�
 $(b%+44)=a$
*!b%=44+((� a$+1) � 4)*4
4� ((� a$+1) � 4)<>0 !b%+=4
>b%!12=0
Hb%!16=1
R+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
\�
f:
p� �save
z�term(b%+44)
�file$=$(b%+44)
��save_data(file$)
�ș "Wimp_CreateMenu",,-1
��
�:
�� �saved_message
�b%!12=b%!8
�b%!16=3
�!b%=256
�+ș "Wimp_SendMessage",18,b%,b%!20,b%!24
��
�:
�� �check_save
%� �file$,":")=0 � �file$,".")=0 �
 !b%=%1
@ $(b%+4)="To save, drag the icon to a directory display."+�0
$ box%=%11001
.F ș "Wimp_ReportError",b%,box%,"Error from "+AppName$ � ,response%
8
 saved%=�
B�
L
 saved%=�
V�
`�
j:
t� �load
~filetype=b%!40
�window=b%!20
�icon=b%!24
��term(b%+44)
�filename$=$(b%+44)
�.�load_data(window,icon,filename$,filetype)
��
�:
�;� =====================================================
�6�   INSERT WIMPHEAP/MESSAGETRANS ROUTINES BELOW...
�;� =====================================================
�:
�;� =====================================================
5�   EXTRA SOUND SYSTEM/MODIFIED ROUTINES BELOW...

)�                 William Curson 1998
;� =====================================================
:
(��soundinit
21*RMLoad <WhackAMole$Dir>.SoundSys.Sounds.Hit!
<Ƞ 2
F*ChannelVoice 2 Hit!
P7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
Z
�#h%=6
nmenudat$=�#h%
x�#h%
�7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
�
�#h%=4
�sounddat$=�#h%
��#h%
�� menudat$=sounddat$ �
�sound%=�
�� 
�sound%=�
��
��
�:
���soundupdate
�7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
I$=�#h%
�#h%
7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
"
�#h%=2
,O$=�#h%
6�#h%
@7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
J
�#h%=6
Tmenudat$=�#h%
^�#h%
h� menudat$="Y" �
r7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
|
�#h%=6
��#h%,O$
��#h%
�sound%=�
��
�7h%=� "<WhackAMole$Dir>.SoundSys.Resources.MoleData"
�
�#h%=6
��#h%,I$
��#h%
�sound%=�
��
��soundinit
��
�:
(� �set_icon_string(window%,icon%,a$)
#$�string_addr(window%,icon%)=a$
� a$="mole2" � sound%=� �
&ȡ 2,"Hit!"
0� 2,-15,53,20
:�
D�
N�update_icon(window%,icon%)
X�
b:
l� �init
v9� b% 2000,ws% 2000,menspc% 1000, temp% 32, chappy% 64
�wsend%=ws%+2000
�quit%=�
��soundinit
��load_templates
��main_menu
��attach(mainmenu%,0,info%)
�&�set_icon_string(info%,7,version$)
��
�:
�� �main_menu
�� +1
�5� Whack-A-Mole,Info,Sound On/Off,Sound Dir,Quit,*
�mainmenu%=�make_menu
�
:
� �menuclick
 � c%
*
c%=b%+900
4 ș "Wimp_GetPointerInfo",,c%
>adj%=(c%!8 � 1)
H(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
RȎ $c% �
\" � "Sound On/Off":�soundupdate
fB � "Sound Dir":*Filer_OpenDir <WhackAMole$Dir>.SoundSys.Sounds
p � "Quit":�shutdown
z�
�*� adj% �showmenu(topmenu%,topx%,topy%)
��
�:
���shutdown
�*RMKill Hit!
�quit%=�
��
�:  
�

00000000  0d 00 0a 0f f4 20 21 52  75 6e 49 6d 61 67 65 0d  |..... !RunImage.|
00000010  00 14 16 f4 20 42 79 20  50 68 69 6c 69 70 20 4d  |.... By Philip M|
00000020  65 6c 6c 6f 72 0d 00 1e  05 3a 0d 00 28 1b 41 70  |ellor....:..(.Ap|
00000030  70 4e 61 6d 65 24 3d 22  57 68 61 63 6b 2d 41 2d  |pName$="Whack-A-|
00000040  4d 6f 6c 65 22 0d 00 32  25 76 65 72 73 69 6f 6e  |Mole"..2%version|
00000050  24 3d 22 31 2e 30 30 20  28 32 33 72 64 20 4d 61  |$="1.00 (23rd Ma|
00000060  72 63 68 20 31 39 39 38  29 22 0d 00 3c 05 3a 0d  |rch 1998)"..<.:.|
00000070  00 46 17 ee 20 85 20 ef  34 3a f6 3a f1 22 20 2d  |.F.. . .4:.:." -|
00000080  20 22 3b 9e 3a e0 0d 00  50 05 3a 0d 00 5a 38 c8  | ";.:...P.:..Z8.|
00000090  99 20 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |. "Wimp_Initiali|
000000a0  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
000000b0  34 2c 41 70 70 4e 61 6d  65 24 20 b8 20 2c 74 61  |4,AppName$ . ,ta|
000000c0  73 6b 25 0d 00 64 04 0d  00 6e 09 f2 69 6e 69 74  |sk%..d...n..init|
000000d0  0d 00 78 12 f2 63 72 65  61 74 65 69 63 6f 6e 62  |..x..createiconb|
000000e0  61 72 0d 00 82 05 3a 0d  00 8c 1a de 20 6d 74 25  |ar....:..... mt%|
000000f0  28 39 29 2c 6d 62 25 28  39 29 2c 6d 63 25 28 39  |(9),mb%(9),mc%(9|
00000100  29 0d 00 96 05 3a 0d 00  a0 10 70 61 75 73 65 74  |)....:....pauset|
00000110  69 6d 65 25 3d 30 0d 00  aa 11 f2 73 65 74 5f 67  |ime%=0.....set_g|
00000120  61 6d 65 6f 76 65 72 0d  00 b4 32 f2 73 65 74 5f  |ameover...2.set_|
00000130  69 63 6f 6e 5f 73 74 72  69 6e 67 28 77 68 61 63  |icon_string(whac|
00000140  6b 25 2c 31 39 2c 22 57  68 61 63 6b 20 2d 20 41  |k%,19,"Whack - A|
00000150  20 2d 20 4d 6f 6c 65 22  29 0d 00 be 18 f2 6f 70  | - Mole").....op|
00000160  65 6e 5f 63 65 6e 74 72  65 28 77 68 61 63 6b 25  |en_centre(whack%|
00000170  29 0d 00 c8 0e 70 6c 61  79 69 6e 67 25 3d a3 0d  |)....playing%=..|
00000180  00 d2 04 0d 00 dc 0f 64  75 6d 6d 79 3d b3 28 2d  |.......dummy=.(-|
00000190  91 29 0d 00 e6 05 3a 0d  00 f0 1b ee 20 85 20 e7  |.)....:..... . .|
000001a0  20 a4 65 72 72 6f 72 20  8c 20 f2 63 6c 6f 73 65  | .error . .close|
000001b0  3a e0 0d 00 fa 05 3a 0d  01 04 05 f5 0d 01 0e 09  |:.....:.........|
000001c0  f2 70 6f 6c 6c 0d 01 18  0b fd 20 71 75 69 74 25  |.poll..... quit%|
000001d0  0d 01 22 14 f4 20 4d 4f  55 53 45 20 53 54 45 50  |..".. MOUSE STEP|
000001e0  20 32 2c 32 0d 01 2c 0a  f2 63 6c 6f 73 65 0d 01  | 2,2..,..close..|
000001f0  36 05 e0 0d 01 40 05 3a  0d 01 4a 3b f4 20 3d 3d  |6....@.:..J;. ==|
00000200  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000230  3d 3d 3d 0d 01 54 26 f4  20 20 20 4d 4f 44 49 46  |===..T&.   MODIF|
00000240  49 45 44 20 57 49 4d 50  20 4c 49 42 52 41 52 59  |IED WIMP LIBRARY|
00000250  20 52 4f 55 54 49 4e 45  53 0d 01 5e 3b f4 20 3d  | ROUTINES..^;. =|
00000260  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000290  3d 3d 3d 3d 0d 01 68 05  3a 0d 01 72 14 dd 20 f2  |====..h.:..r.. .|
000002a0  63 72 65 61 74 65 69 63  6f 6e 62 61 72 0d 01 7c  |createiconbar..||
000002b0  37 21 62 25 3d 2d 31 3a  62 25 21 34 3d 30 3a 62  |7!b%=-1:b%!4=0:b|
000002c0  25 21 38 3d 30 3a 62 25  21 31 32 3d 31 30 30 3a  |%!8=0:b%!12=100:|
000002d0  62 25 21 31 36 3d 36 38  3a 62 25 21 32 30 3d 26  |b%!16=68:b%!20=&|
000002e0  33 30 30 32 0d 01 86 37  24 28 62 25 2b 32 34 29  |3002...7$(b%+24)|
000002f0  3d 22 21 77 68 61 6b 61  6d 6f 6c 65 22 3a c8 99  |="!whakamole":..|
00000300  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00000310  6e 22 2c 2c 62 25 20 b8  20 69 25 0d 01 90 05 e1  |n",,b% . i%.....|
00000320  0d 01 9a 05 3a 0d 01 a4  11 dd 20 f2 6d 6f 75 73  |....:..... .mous|
00000330  65 63 6c 69 63 6b 0d 01  ae 11 77 69 6e 64 6f 77  |eclick....window|
00000340  25 3d 62 25 21 31 32 0d  01 b8 0f 69 63 6f 6e 25  |%=b%!12....icon%|
00000350  3d 62 25 21 31 36 0d 01  c2 10 62 75 74 74 6f 6e  |=b%!16....button|
00000360  25 3d 62 25 21 38 0d 01  cc 10 c8 8e 20 77 69 6e  |%=b%!8...... win|
00000370  64 6f 77 25 20 ca 0d 01  d6 04 0d 01 e0 09 20 c9  |dow% ......... .|
00000380  20 2d 32 0d 01 ea 12 20  20 c8 8e 20 62 75 74 74  | -2....  .. butt|
00000390  6f 6e 25 20 ca 0d 01 f4  2e 20 20 20 c9 20 32 3a  |on% .....   . 2:|
000003a0  f2 73 68 6f 77 6d 65 6e  75 28 6d 61 69 6e 6d 65  |.showmenu(mainme|
000003b0  6e 75 25 2c 21 62 25 2d  36 34 2c 39 36 2b 32 2a  |nu%,!b%-64,96+2*|
000003c0  34 34 29 0d 01 fe 1f 20  20 20 c9 20 34 3a f2 6f  |44)....   . 4:.o|
000003d0  70 65 6e 5f 63 65 6e 74  72 65 28 77 68 61 63 6b  |pen_centre(whack|
000003e0  25 29 0d 02 08 08 20 20  20 cb 0d 02 12 04 0d 02  |%)....   .......|
000003f0  1c 0d 20 c9 20 77 68 61  63 6b 25 0d 02 26 12 20  |.. . whack%..&. |
00000400  20 c8 8e 20 62 75 74 74  6f 6e 25 20 ca 0d 02 30  | .. button% ...0|
00000410  2b 20 20 20 c9 20 32 3a  f2 73 68 6f 77 6d 65 6e  |+   . 2:.showmen|
00000420  75 28 6d 61 69 6e 6d 65  6e 75 25 2c 21 62 25 2d  |u(mainmenu%,!b%-|
00000430  36 34 2c 62 25 21 34 29  0d 02 3a 07 20 20 7f 0d  |64,b%!4)..:.  ..|
00000440  02 44 11 20 20 20 c8 8e  20 69 63 6f 6e 25 20 ca  |.D.   .. icon% .|
00000450  0d 02 4e 3c 20 20 20 20  c9 20 32 2c 33 2c 34 2c  |..N<    . 2,3,4,|
00000460  35 2c 36 2c 37 2c 38 2c  39 2c 31 30 3a e7 20 70  |5,6,7,8,9,10:. p|
00000470  6c 61 79 69 6e 67 25 20  f2 63 6c 69 63 6b 5f 6d  |laying% .click_m|
00000480  6f 6c 65 28 69 63 6f 6e  25 2d 31 29 0d 02 58 34  |ole(icon%-1)..X4|
00000490  20 20 20 20 c9 20 32 30  3a c8 99 20 22 4f 53 5f  |    . 20:.. "OS_|
000004a0  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
000004b0  65 22 20 b8 20 70 61 75  73 65 74 69 6d 65 32 25  |e" . pausetime2%|
000004c0  0d 02 62 3c 20 20 20 20  20 20 20 20 20 20 20 20  |..b<            |
000004d0  e7 20 70 61 75 73 65 74  69 6d 65 32 25 2d 70 61  |. pausetime2%-pa|
000004e0  75 73 65 74 69 6d 65 25  3e 35 30 20 f2 73 65 74  |usetime%>50 .set|
000004f0  5f 67 61 6d 65 3a f2 73  74 61 72 74 0d 02 6c 08  |_game:.start..l.|
00000500  20 20 20 cb 0d 02 76 07  20 20 cb 0d 02 80 04 0d  |   ...v.  ......|
00000510  02 8a 05 cb 0d 02 94 05  e1 0d 02 9e 05 3a 0d 02  |.............:..|
00000520  a8 0c dd 20 f2 73 74 61  72 74 0d 02 b2 27 70 6c  |... .start...'pl|
00000530  61 79 69 6e 67 25 3d b9  3a 68 69 74 73 25 3d 30  |aying%=.:hits%=0|
00000540  3a 6d 69 73 73 25 3d 30  3a 74 6f 74 61 6c 25 3d  |:miss%=0:total%=|
00000550  30 0d 02 bc 11 e3 20 6d  6f 6c 65 25 3d 31 20 b8  |0..... mole%=1 .|
00000560  20 39 0d 02 c6 10 6d 74  25 28 6d 6f 6c 65 25 29  | 9....mt%(mole%)|
00000570  3d 30 0d 02 d0 40 f4 20  50 52 4f 43 73 65 74 5f  |=0...@. PROCset_|
00000580  69 63 6f 6e 5f 73 74 72  69 6e 67 32 28 77 68 61  |icon_string2(wha|
00000590  63 6b 25 2c 6d 6f 6c 65  25 2b 31 2c 22 6d 6f 6c  |ck%,mole%+1,"mol|
000005a0  65 22 2b 53 54 52 24 6d  74 25 28 6d 6f 6c 65 25  |e"+STR$mt%(mole%|
000005b0  29 29 0d 02 da 05 ed 0d  02 e4 1f f4 20 50 52 4f  |)).......... PRO|
000005c0  43 75 70 64 61 74 65 5f  69 63 6f 6e 28 77 68 61  |Cupdate_icon(wha|
000005d0  63 6b 25 2c 30 29 0d 02  ee 0a f2 74 6f 74 61 6c  |ck%,0).....total|
000005e0  0d 02 f8 09 f2 68 69 74  73 0d 03 02 09 f2 6d 69  |.....hits.....mi|
000005f0  73 73 0d 03 0c 29 c8 99  20 22 4f 53 5f 52 65 61  |ss...).. "OS_Rea|
00000600  64 4d 6f 6e 6f 74 6f 6e  69 63 54 69 6d 65 22 20  |dMonotonicTime" |
00000610  b8 20 6f 6c 64 74 69 6d  65 31 25 0d 03 16 0f 6f  |. oldtime1%....o|
00000620  6c 64 74 69 6d 65 25 3d  2d 31 0d 03 20 18 73 74  |ldtime%=-1.. .st|
00000630  61 72 74 74 69 6d 65 25  3d 6f 6c 64 74 69 6d 65  |arttime%=oldtime|
00000640  31 25 0d 03 2a 1a 6f 6c  64 74 69 6d 65 32 25 3d  |1%..*.oldtime2%=|
00000650  6f 6c 64 74 69 6d 65 31  25 2b 32 35 0d 03 34 16  |oldtime1%+25..4.|
00000660  6e 65 78 74 74 69 6d 65  25 3d b3 28 35 30 29 2b  |nexttime%=.(50)+|
00000670  35 30 0d 03 3e 14 f4 20  4d 4f 55 53 45 20 53 54  |50..>.. MOUSE ST|
00000680  45 50 20 31 2c 31 0d 03  48 05 e1 0d 03 52 05 3a  |EP 1,1..H....R.:|
00000690  0d 03 5c 0c dd 20 f2 74  6f 74 61 6c 0d 03 66 28  |..\.. .total..f(|
000006a0  f2 73 65 74 5f 69 63 6f  6e 5f 73 74 72 69 6e 67  |.set_icon_string|
000006b0  28 77 68 61 63 6b 25 2c  31 33 2c c3 20 74 6f 74  |(whack%,13,. tot|
000006c0  61 6c 25 29 0d 03 70 05  e1 0d 03 7a 05 3a 0d 03  |al%)..p....z.:..|
000006d0  84 0b dd 20 f2 68 69 74  73 0d 03 8e 27 f2 73 65  |... .hits...'.se|
000006e0  74 5f 69 63 6f 6e 5f 73  74 72 69 6e 67 28 77 68  |t_icon_string(wh|
000006f0  61 63 6b 25 2c 31 35 2c  c3 20 68 69 74 73 25 29  |ack%,15,. hits%)|
00000700  0d 03 98 05 e1 0d 03 a2  05 3a 0d 03 ac 0b dd 20  |.........:..... |
00000710  f2 6d 69 73 73 0d 03 b6  27 f2 73 65 74 5f 69 63  |.miss...'.set_ic|
00000720  6f 6e 5f 73 74 72 69 6e  67 28 77 68 61 63 6b 25  |on_string(whack%|
00000730  2c 31 37 2c c3 20 6d 69  73 73 25 29 0d 03 c0 05  |,17,. miss%)....|
00000740  e1 0d 03 ca 05 3a 0d 03  d4 18 dd 20 f2 63 6c 69  |.....:..... .cli|
00000750  63 6b 5f 6d 6f 6c 65 28  6d 6f 6c 65 25 29 0d 03  |ck_mole(mole%)..|
00000760  de 29 c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 6e  |.).. "OS_ReadMon|
00000770  6f 74 6f 6e 69 63 54 69  6d 65 22 20 b8 20 6e 65  |otonicTime" . ne|
00000780  77 74 69 6d 65 32 25 0d  03 e8 43 e7 20 6d 74 25  |wtime2%...C. mt%|
00000790  28 6d 6f 6c 65 25 29 3d  30 20 84 20 6d 74 25 28  |(mole%)=0 . mt%(|
000007a0  6d 6f 6c 65 25 29 3d 32  20 8c 20 6d 69 73 73 25  |mole%)=2 . miss%|
000007b0  2b 3d 31 3a 74 6f 74 61  6c 25 2d 3d 33 3a f2 6d  |+=1:total%-=3:.m|
000007c0  69 73 73 3a f2 74 6f 74  61 6c 0d 03 f2 8d e7 20  |iss:.total..... |
000007d0  6d 74 25 28 6d 6f 6c 65  25 29 3d 31 20 8c 20 6d  |mt%(mole%)=1 . m|
000007e0  74 25 28 6d 6f 6c 65 25  29 3d 32 3a f2 73 65 74  |t%(mole%)=2:.set|
000007f0  5f 69 63 6f 6e 5f 73 74  72 69 6e 67 28 77 68 61  |_icon_string(wha|
00000800  63 6b 25 2c 6d 6f 6c 65  25 2b 31 2c 22 6d 6f 6c  |ck%,mole%+1,"mol|
00000810  65 32 22 29 3a 6d 63 25  28 6d 6f 6c 65 25 29 3d  |e2"):mc%(mole%)=|
00000820  35 30 3a 6d 62 25 28 6d  6f 6c 65 25 29 3d 6e 65  |50:mb%(mole%)=ne|
00000830  77 74 69 6d 65 32 25 3a  68 69 74 73 25 2b 3d 31  |wtime2%:hits%+=1|
00000840  3a 74 6f 74 61 6c 25 2b  3d 35 3a f2 68 69 74 73  |:total%+=5:.hits|
00000850  3a f2 74 6f 74 61 6c 0d  03 fc 05 e1 0d 04 06 05  |:.total.........|
00000860  3a 0d 04 10 10 dd 20 f2  70 6c 61 79 5f 6c 6f 6f  |:..... .play_loo|
00000870  70 0d 04 1a 29 c8 99 20  22 4f 53 5f 52 65 61 64  |p...).. "OS_Read|
00000880  4d 6f 6e 6f 74 6f 6e 69  63 54 69 6d 65 22 20 b8  |MonotonicTime" .|
00000890  20 6e 65 77 74 69 6d 65  31 25 0d 04 24 29 c8 99  | newtime1%..$)..|
000008a0  20 22 4f 53 5f 52 65 61  64 4d 6f 6e 6f 74 6f 6e  | "OS_ReadMonoton|
000008b0  69 63 54 69 6d 65 22 20  b8 20 6e 65 77 74 69 6d  |icTime" . newtim|
000008c0  65 32 25 0d 04 2e 29 c8  99 20 22 4f 53 5f 52 65  |e2%...).. "OS_Re|
000008d0  61 64 4d 6f 6e 6f 74 6f  6e 69 63 54 69 6d 65 22  |adMonotonicTime"|
000008e0  20 b8 20 6e 65 77 74 69  6d 65 33 25 0d 04 38 29  | . newtime3%..8)|
000008f0  74 69 6d 65 25 3d 31 36  2d 28 28 6e 65 77 74 69  |time%=16-((newti|
00000900  6d 65 33 25 2d 73 74 61  72 74 74 69 6d 65 25 29  |me3%-starttime%)|
00000910  2f 31 30 30 29 0d 04 42  72 e7 20 74 69 6d 65 25  |/100)..Br. time%|
00000920  3c 30 20 74 69 6d 65 25  3d 30 3a 70 6c 61 79 69  |<0 time%=0:playi|
00000930  6e 67 25 3d a3 3a f2 73  65 74 5f 67 61 6d 65 6f  |ng%=.:.set_gameo|
00000940  76 65 72 3a 70 61 75 73  65 74 69 6d 65 25 3d 6e  |ver:pausetime%=n|
00000950  65 77 74 69 6d 65 33 25  3a f2 73 65 74 5f 69 63  |ewtime3%:.set_ic|
00000960  6f 6e 5f 73 74 72 69 6e  67 28 77 68 61 63 6b 25  |on_string(whack%|
00000970  2c 31 39 2c 22 54 20 49  20 4d 20 45 20 20 20 20  |,19,"T I M E    |
00000980  55 20 50 20 21 22 29 0d  04 4c 4a e7 20 74 69 6d  |U P !")..LJ. tim|
00000990  65 25 3c 3e 6f 6c 64 74  69 6d 65 25 20 8c 20 f2  |e%<>oldtime% . .|
000009a0  73 65 74 5f 69 63 6f 6e  5f 73 74 72 69 6e 67 28  |set_icon_string(|
000009b0  77 68 61 63 6b 25 2c 31  31 2c c3 20 74 69 6d 65  |whack%,11,. time|
000009c0  25 29 3a 6f 6c 64 74 69  6d 65 25 3d 74 69 6d 65  |%):oldtime%=time|
000009d0  25 0d 04 56 25 e7 20 6e  65 77 74 69 6d 65 31 25  |%..V%. newtime1%|
000009e0  2d 6f 6c 64 74 69 6d 65  31 25 3e 6e 65 78 74 74  |-oldtime1%>nextt|
000009f0  69 6d 65 25 20 8c 0d 04  60 17 6f 6c 64 74 69 6d  |ime% ...`.oldtim|
00000a00  65 31 25 3d 6e 65 77 74  69 6d 65 31 25 0d 04 6a  |e1%=newtime1%..j|
00000a10  20 6e 65 78 74 74 69 6d  65 25 3d b3 28 36 30 29  | nexttime%=.(60)|
00000a20  2b 31 30 2b 28 74 69 6d  65 25 2a 33 29 0d 04 74  |+10+(time%*3)..t|
00000a30  1f e7 20 b3 28 36 29 3d  31 20 6e 65 78 74 74 69  |.. .(6)=1 nextti|
00000a40  6d 65 25 3d b3 28 38 30  29 2b 35 30 0d 04 7e 0e  |me%=.(80)+50..~.|
00000a50  6d 6f 6c 65 25 3d b3 28  39 29 0d 04 88 74 e7 20  |mole%=.(9)...t. |
00000a60  6d 74 25 28 6d 6f 6c 65  25 29 3d 30 20 8c 20 6d  |mt%(mole%)=0 . m|
00000a70  74 25 28 6d 6f 6c 65 25  29 3d 31 3a f2 73 65 74  |t%(mole%)=1:.set|
00000a80  5f 69 63 6f 6e 5f 73 74  72 69 6e 67 28 77 68 61  |_icon_string(wha|
00000a90  63 6b 25 2c 6d 6f 6c 65  25 2b 31 2c 22 6d 6f 6c  |ck%,mole%+1,"mol|
00000aa0  65 31 22 29 3a 6d 63 25  28 6d 6f 6c 65 25 29 3d  |e1"):mc%(mole%)=|
00000ab0  36 30 2b b3 28 31 30 30  29 3a 6d 62 25 28 6d 6f  |60+.(100):mb%(mo|
00000ac0  6c 65 25 29 3d 6e 65 77  74 69 6d 65 32 25 0d 04  |le%)=newtime2%..|
00000ad0  92 05 cd 0d 04 9c 11 e3  20 6d 6f 6c 65 25 3d 31  |........ mole%=1|
00000ae0  20 b8 20 39 0d 04 a6 14  e7 20 6d 74 25 28 6d 6f  | . 9..... mt%(mo|
00000af0  6c 65 25 29 3e 30 20 8c  0d 04 b0 27 e7 20 6e 65  |le%)>0 ....'. ne|
00000b00  77 74 69 6d 65 32 25 3e  6d 62 25 28 6d 6f 6c 65  |wtime2%>mb%(mole|
00000b10  25 29 2b 6d 63 25 28 6d  6f 6c 65 25 29 20 8c 0d  |%)+mc%(mole%) ..|
00000b20  04 ba 23 e7 20 6d 74 25  28 6d 6f 6c 65 25 29 3d  |..#. mt%(mole%)=|
00000b30  31 20 74 6f 74 61 6c 25  2d 3d 32 3a f2 74 6f 74  |1 total%-=2:.tot|
00000b40  61 6c 0d 04 c4 39 6d 74  25 28 6d 6f 6c 65 25 29  |al...9mt%(mole%)|
00000b50  3d 30 3a f2 73 65 74 5f  69 63 6f 6e 5f 73 74 72  |=0:.set_icon_str|
00000b60  69 6e 67 28 77 68 61 63  6b 25 2c 6d 6f 6c 65 25  |ing(whack%,mole%|
00000b70  2b 31 2c 22 6d 6f 6c 65  30 22 29 0d 04 ce 05 cd  |+1,"mole0").....|
00000b80  0d 04 d8 05 cd 0d 04 e2  05 ed 0d 04 ec 05 e1 0d  |................|
00000b90  04 f6 05 3a 0d 05 00 0f  dd 20 f2 73 65 74 5f 67  |...:..... .set_g|
00000ba0  61 6d 65 0d 05 0a 21 f2  73 65 74 5f 69 63 6f 6e  |ame...!.set_icon|
00000bb0  5f 62 69 74 28 77 68 61  63 6b 25 2c 31 39 2c b9  |_bit(whack%,19,.|
00000bc0  2c 32 33 29 0d 05 14 21  f2 73 65 74 5f 69 63 6f  |,23)...!.set_ico|
00000bd0  6e 5f 62 69 74 28 77 68  61 63 6b 25 2c 32 30 2c  |n_bit(whack%,20,|
00000be0  b9 2c 32 33 29 0d 05 1e  0e e3 20 61 3d 32 20 b8  |.,23)..... a=2 .|
00000bf0  20 31 30 0d 05 28 20 f2  73 65 74 5f 69 63 6f 6e  | 10..( .set_icon|
00000c00  5f 62 69 74 28 77 68 61  63 6b 25 2c 61 2c a3 2c  |_bit(whack%,a,.,|
00000c10  32 33 29 0d 05 32 26 f2  73 65 74 5f 69 63 6f 6e  |23)..2&.set_icon|
00000c20  5f 73 74 72 69 6e 67 28  77 68 61 63 6b 25 2c 61  |_string(whack%,a|
00000c30  2c 22 6d 6f 6c 65 30 22  29 0d 05 3c 05 ed 0d 05  |,"mole0")..<....|
00000c40  46 1f f4 20 50 52 4f 43  75 70 64 61 74 65 5f 69  |F.. PROCupdate_i|
00000c50  63 6f 6e 28 77 68 61 63  6b 25 2c 30 29 0d 05 50  |con(whack%,0)..P|
00000c60  05 e1 0d 05 5a 05 3a 0d  05 64 13 dd 20 f2 73 65  |....Z.:..d.. .se|
00000c70  74 5f 67 61 6d 65 6f 76  65 72 0d 05 6e 0e e3 20  |t_gameover..n.. |
00000c80  61 3d 32 20 b8 20 31 30  0d 05 78 20 f2 73 65 74  |a=2 . 10..x .set|
00000c90  5f 69 63 6f 6e 5f 62 69  74 28 77 68 61 63 6b 25  |_icon_bit(whack%|
00000ca0  2c 61 2c b9 2c 32 33 29  0d 05 82 05 ed 0d 05 8c  |,a,.,23)........|
00000cb0  21 f2 73 65 74 5f 69 63  6f 6e 5f 62 69 74 28 77  |!.set_icon_bit(w|
00000cc0  68 61 63 6b 25 2c 31 39  2c a3 2c 32 33 29 0d 05  |hack%,19,.,23)..|
00000cd0  96 21 f2 73 65 74 5f 69  63 6f 6e 5f 62 69 74 28  |.!.set_icon_bit(|
00000ce0  77 68 61 63 6b 25 2c 32  30 2c a3 2c 32 33 29 0d  |whack%,20,.,23).|
00000cf0  05 a0 1f f4 20 50 52 4f  43 75 70 64 61 74 65 5f  |.... PROCupdate_|
00000d00  69 63 6f 6e 28 77 68 61  63 6b 25 2c 30 29 0d 05  |icon(whack%,0)..|
00000d10  aa 05 e1 0d 05 b4 05 3a  0d 05 be 11 dd 20 f2 70  |.......:..... .p|
00000d20  72 6f 63 65 73 73 6b 65  79 0d 05 c8 1f 6b 65 79  |rocesskey....key|
00000d30  3d 62 25 21 32 34 3a 77  69 6e 25 3d 21 62 25 3a  |=b%!24:win%=!b%:|
00000d40  69 63 25 3d 62 25 21 34  0d 05 d2 0d 70 72 6f 63  |ic%=b%!4....proc|
00000d50  65 73 73 3d b9 0d 05 dc  26 e7 20 70 72 6f 63 65  |ess=....&. proce|
00000d60  73 73 20 c8 99 20 22 57  69 6d 70 5f 50 72 6f 63  |ss .. "Wimp_Proc|
00000d70  65 73 73 4b 65 79 22 2c  6b 65 79 0d 05 e6 05 e1  |essKey",key.....|
00000d80  0d 05 f0 05 3a 0d 05 fa  15 dd 20 f2 6c 6f 61 64  |....:..... .load|
00000d90  5f 74 65 6d 70 6c 61 74  65 73 0d 06 04 32 c8 99  |_templates...2..|
00000da0  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00000db0  61 74 65 22 2c 2c 22 3c  4f 62 65 79 24 44 69 72  |ate",,"<Obey$Dir|
00000dc0  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 06 0e 3e  |>.Templates"...>|
00000dd0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000de0  70 6c 61 74 65 22 2c 2c  62 25 2c 77 73 25 2c 77  |plate",,b%,ws%,w|
00000df0  73 65 6e 64 25 2c 2d 31  2c 22 77 68 61 63 6b 22  |send%,-1,"whack"|
00000e00  2c 30 20 b8 20 2c 2c 77  73 25 0d 06 18 27 c8 99  |,0 . ,,ws%...'..|
00000e10  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000e20  64 6f 77 22 2c 2c 62 25  20 b8 20 77 68 61 63 6b  |dow",,b% . whack|
00000e30  25 0d 06 22 40 c8 99 20  22 57 69 6d 70 5f 4c 6f  |%.."@.. "Wimp_Lo|
00000e40  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 62 25 2c  |adTemplate",,b%,|
00000e50  77 73 25 2c 77 73 65 6e  64 25 2c 2d 31 2c 22 6f  |ws%,wsend%,-1,"o|
00000e60  70 74 69 6f 6e 73 22 2c  30 20 b8 20 2c 2c 77 73  |ptions",0 . ,,ws|
00000e70  25 0d 06 2c 29 c8 99 20  22 57 69 6d 70 5f 43 72  |%..,).. "Wimp_Cr|
00000e80  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 25 20  |eateWindow",,b% |
00000e90  b8 20 6f 70 74 69 6f 6e  73 25 0d 06 36 3e c8 99  |. options%..6>..|
00000ea0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
00000eb0  61 74 65 22 2c 2c 62 25  2c 77 73 25 2c 77 73 65  |ate",,b%,ws%,wse|
00000ec0  6e 64 25 2c 2d 31 2c 22  73 63 6f 72 65 22 2c 30  |nd%,-1,"score",0|
00000ed0  20 b8 20 2c 2c 77 73 25  0d 06 40 27 c8 99 20 22  | . ,,ws%..@'.. "|
00000ee0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000ef0  77 22 2c 2c 62 25 20 b8  20 73 63 6f 72 65 25 0d  |w",,b% . score%.|
00000f00  06 4a 3d c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |.J=.. "Wimp_Load|
00000f10  54 65 6d 70 6c 61 74 65  22 2c 2c 62 25 2c 77 73  |Template",,b%,ws|
00000f20  25 2c 77 73 65 6e 64 25  2c 2d 31 2c 22 69 6e 66  |%,wsend%,-1,"inf|
00000f30  6f 22 2c 30 20 b8 20 2c  2c 77 73 25 0d 06 54 26  |o",0 . ,,ws%..T&|
00000f40  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000f50  69 6e 64 6f 77 22 2c 2c  62 25 20 b8 20 69 6e 66  |indow",,b% . inf|
00000f60  6f 25 0d 06 5e 1b c8 99  20 22 57 69 6d 70 5f 43  |o%..^... "Wimp_C|
00000f70  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 06 68  |loseTemplate"..h|
00000f80  05 e1 0d 06 72 05 3a 0d  06 7c 13 dd 20 f2 6d 65  |....r.:..|.. .me|
00000f90  6e 75 5f 77 61 72 6e 69  6e 67 0d 06 86 15 73 75  |nu_warning....su|
00000fa0  62 6d 65 6e 75 5f 70 74  72 3d 62 25 21 32 30 0d  |bmenu_ptr=b%!20.|
00000fb0  06 90 0f 77 69 6e 5f 78  3d 62 25 21 32 34 0d 06  |...win_x=b%!24..|
00000fc0  9a 0f 77 69 6e 5f 79 3d  62 25 21 32 38 0d 06 a4  |..win_y=b%!28...|
00000fd0  2e c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00000fe0  53 75 62 4d 65 6e 75 22  2c 2c 62 25 21 32 30 2c  |SubMenu",,b%!20,|
00000ff0  62 25 21 32 34 2c 62 25  21 32 38 0d 06 ae 05 e1  |b%!24,b%!28.....|
00001000  0d 06 b8 05 3a 0d 06 c2  1b dd 20 f2 73 61 76 65  |....:..... .save|
00001010  5f 64 61 74 61 28 66 69  6c 65 6e 61 6d 65 24 29  |_data(filename$)|
00001020  0d 06 cc 29 f2 73 65 74  5f 69 63 6f 6e 5f 73 74  |...).set_icon_st|
00001030  72 69 6e 67 28 73 61 76  65 61 73 25 2c 32 2c 66  |ring(saveas%,2,f|
00001040  69 6c 65 6e 61 6d 65 24  29 0d 06 d6 1c f4 20 2a  |ilename$)..... *|
00001050  2a 2a 20 53 41 56 45 20  44 41 54 41 20 48 45 52  |** SAVE DATA HER|
00001060  45 20 2a 2a 2a 0d 06 e0  12 f2 73 61 76 65 64 5f  |E ***.....saved_|
00001070  6d 65 73 73 61 67 65 0d  06 ea 05 e1 0d 06 f4 05  |message.........|
00001080  3a 0d 06 fe 30 dd 20 f2  6c 6f 61 64 5f 64 61 74  |:...0. .load_dat|
00001090  61 28 77 69 6e 64 6f 77  2c 69 63 6f 6e 2c 66 69  |a(window,icon,fi|
000010a0  6c 65 6e 61 6d 65 24 2c  66 69 6c 65 74 79 70 65  |lename$,filetype|
000010b0  29 0d 07 08 22 f4 20 2a  2a 2a 20 43 48 45 43 4b  |)...". *** CHECK|
000010c0  2f 4c 4f 41 44 20 44 41  54 41 20 48 45 52 45 20  |/LOAD DATA HERE |
000010d0  2a 2a 2a 0d 07 12 29 f2  73 65 74 5f 69 63 6f 6e  |***...).set_icon|
000010e0  5f 73 74 72 69 6e 67 28  73 61 76 65 61 73 25 2c  |_string(saveas%,|
000010f0  32 2c 66 69 6c 65 6e 61  6d 65 24 29 0d 07 1c 05  |2,filename$)....|
00001100  e1 0d 07 26 05 3a 0d 07  30 0d dd 20 f2 68 65 6c  |...&.:..0.. .hel|
00001110  70 6d 65 0d 07 3a 11 77  69 6e 64 6f 77 25 3d 62  |pme..:.window%=b|
00001120  25 21 33 32 0d 07 44 0f  69 63 6f 6e 25 3d 62 25  |%!32..D.icon%=b%|
00001130  21 33 36 0d 07 4e 31 68  65 6c 70 24 3d 22 54 68  |!36..N1help$="Th|
00001140  69 73 20 69 73 20 74 68  65 20 22 2b 41 70 70 4e  |is is the "+AppN|
00001150  61 6d 65 24 2b 22 20 61  70 70 6c 69 63 61 74 69  |ame$+" applicati|
00001160  6f 6e 2e 22 0d 07 58 04  0d 07 62 10 c8 8e 20 77  |on."..X...b... w|
00001170  69 6e 64 6f 77 25 20 ca  0d 07 6c 09 20 c9 20 2d  |indow% ...l. . -|
00001180  32 0d 07 76 2c 20 20 68  65 6c 70 24 3d 22 54 68  |2..v,  help$="Th|
00001190  69 73 20 69 73 20 74 68  65 20 22 2b 41 70 70 4e  |is is the "+AppN|
000011a0  61 6d 65 24 2b 22 20 69  63 6f 6e 2e 22 0d 07 80  |ame$+" icon."...|
000011b0  04 0d 07 8a 0c 20 c9 20  69 6e 66 6f 25 0d 07 94  |..... . info%...|
000011c0  0e 20 20 68 65 6c 70 24  3d 22 22 0d 07 9e 10 20  |.  help$="".... |
000011d0  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 07 a8 35 20  | .. icon% ....5 |
000011e0  20 20 c9 20 30 2c 31 3a  68 65 6c 70 24 3d 22 54  |  . 0,1:help$="T|
000011f0  68 69 73 20 69 73 20 74  68 65 20 6e 61 6d 65 20  |his is the name |
00001200  6f 66 20 74 68 65 20 70  72 6f 67 72 61 6d 2e 22  |of the program."|
00001210  0d 07 b2 38 20 20 20 c9  20 32 2c 33 3a 68 65 6c  |...8   . 2,3:hel|
00001220  70 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |p$="This is the |
00001230  70 75 72 70 6f 73 65 20  6f 66 20 74 68 65 20 70  |purpose of the p|
00001240  72 6f 67 72 61 6d 2e 22  0d 07 bc 37 20 20 20 c9  |rogram."...7   .|
00001250  20 34 2c 35 3a 68 65 6c  70 24 3d 22 54 68 69 73  | 4,5:help$="This|
00001260  20 69 73 20 74 68 65 20  61 75 74 68 6f 72 20 6f  | is the author o|
00001270  66 20 74 68 65 20 70 72  6f 67 72 61 6d 2e 22 0d  |f the program.".|
00001280  07 c6 3f 20 20 20 c9 20  36 2c 37 3a 68 65 6c 70  |..?   . 6,7:help|
00001290  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 76  |$="This is the v|
000012a0  65 72 73 69 6f 6e 20 6e  75 6d 62 65 72 20 6f 66  |ersion number of|
000012b0  20 74 68 65 20 70 72 6f  67 72 61 6d 2e 22 0d 07  | the program."..|
000012c0  d0 07 20 20 cb 0d 07 da  04 0d 07 e4 05 cb 0d 07  |..  ............|
000012d0  ee 05 3a 0d 07 f8 0f 62  25 21 30 30 20 3d 20 32  |..:....b%!00 = 2|
000012e0  35 36 0d 08 02 10 62 25  21 31 32 20 3d 20 62 25  |56....b%!12 = b%|
000012f0  21 38 0d 08 0c 11 62 25  21 31 36 20 3d 20 26 30  |!8....b%!16 = &0|
00001300  35 30 33 0d 08 16 13 24  28 62 25 2b 32 30 29 3d  |503....$(b%+20)=|
00001310  20 68 65 6c 70 24 0d 08  20 24 c8 99 20 22 57 69  | help$.. $.. "Wi|
00001320  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001330  31 37 2c 62 25 2c 62 25  21 34 0d 08 2a 05 e1 0d  |17,b%,b%!4..*...|
00001340  08 34 04 0d 08 3e 05 3a  0d 08 48 3b f4 20 3d 3d  |.4...>.:..H;. ==|
00001350  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001380  3d 3d 3d 0d 08 52 26 f4  20 20 20 53 54 41 4e 44  |===..R&.   STAND|
00001390  41 52 44 20 57 49 4d 50  20 4c 49 42 52 41 52 59  |ARD WIMP LIBRARY|
000013a0  20 52 4f 55 54 49 4e 45  53 0d 08 5c 3b f4 20 3d  | ROUTINES..\;. =|
000013b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
000013e0  3d 3d 3d 3d 0d 08 66 05  3a 0d 08 70 0c dd 20 f2  |====..f.:..p.. .|
000013f0  63 6c 6f 73 65 0d 08 7a  14 f4 20 4d 4f 55 53 45  |close..z.. MOUSE|
00001400  20 53 54 45 50 20 32 2c  32 0d 08 84 27 c8 99 20  | STEP 2,2...'.. |
00001410  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00001420  2c 74 61 73 6b 25 2c 26  34 42 35 33 34 31 35 34  |,task%,&4B534154|
00001430  0d 08 8e 05 e1 0d 08 98  05 3a 0d 08 a2 0b dd 20  |.........:..... |
00001440  f2 70 6f 6c 6c 0d 08 ac  1b c8 99 20 22 57 69 6d  |.poll...... "Wim|
00001450  70 5f 50 6f 6c 6c 22 2c  2c 62 25 20 b8 20 72 25  |p_Poll",,b% . r%|
00001460  0d 08 b6 0b c8 8e 20 72  25 20 ca 0d 08 c0 1d c9  |...... r% ......|
00001470  20 30 3a e7 20 70 6c 61  79 69 6e 67 25 20 f2 70  | 0:. playing% .p|
00001480  6c 61 79 5f 6c 6f 6f 70  0d 08 ca 20 c9 20 32 3a  |lay_loop... . 2:|
00001490  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
000014a0  64 6f 77 22 2c 2c 62 25  0d 08 d4 21 c9 20 33 3a  |dow",,b%...!. 3:|
000014b0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
000014c0  6e 64 6f 77 22 2c 2c 62  25 0d 08 de 13 c9 20 36  |ndow",,b%..... 6|
000014d0  3a f2 6d 6f 75 73 65 63  6c 69 63 6b 0d 08 e8 10  |:.mouseclick....|
000014e0  c9 20 37 3a f2 64 72 61  67 65 6e 64 0d 08 f2 13  |. 7:.dragend....|
000014f0  c9 20 38 3a f2 70 72 6f  63 65 73 73 6b 65 79 0d  |. 8:.processkey.|
00001500  08 fc 12 c9 20 39 3a f2  6d 65 6e 75 63 6c 69 63  |.... 9:.menuclic|
00001510  6b 0d 09 06 14 c9 20 31  37 2c 31 38 3a f2 72 65  |k..... 17,18:.re|
00001520  63 65 69 76 65 0d 09 10  05 cb 0d 09 1a 05 e1 0d  |ceive...........|
00001530  09 24 05 3a 0d 09 2e 0e  dd 20 f2 72 65 63 65 69  |.$.:..... .recei|
00001540  76 65 0d 09 38 0e c8 8e  20 62 25 21 31 36 20 ca  |ve..8... b%!16 .|
00001550  0d 09 42 0f c9 20 30 3a  71 75 69 74 25 3d b9 0d  |..B.. 0:quit%=..|
00001560  09 4c 11 c9 20 31 3a f2  64 61 74 61 73 61 76 65  |.L.. 1:.datasave|
00001570  0d 09 56 0d c9 20 32 3a  f2 73 61 76 65 0d 09 60  |..V.. 2:.save..`|
00001580  0d c9 20 33 3a f2 6c 6f  61 64 0d 09 6a 12 c9 20  |.. 3:.load..j.. |
00001590  26 35 30 32 3a f2 68 65  6c 70 6d 65 0d 09 74 1a  |&502:.helpme..t.|
000015a0  c9 20 26 34 30 30 43 30  3a f2 6d 65 6e 75 5f 77  |. &400C0:.menu_w|
000015b0  61 72 6e 69 6e 67 0d 09  7e 05 cb 0d 09 88 05 e1  |arning..~.......|
000015c0  0d 09 92 05 3a 0d 09 9c  0f dd 20 f2 64 61 74 61  |....:..... .data|
000015d0  73 61 76 65 0d 09 a6 10  f2 74 65 72 6d 28 62 25  |save.....term(b%|
000015e0  2b 34 34 29 0d 09 b0 12  6e 61 6d 65 24 3d 24 28  |+44)....name$=$(|
000015f0  62 25 2b 34 34 29 0d 09  ba 1e 24 28 62 25 2b 34  |b%+44)....$(b%+4|
00001600  34 29 3d 22 3c 57 69 6d  70 24 53 63 72 61 70 3e  |4)="<Wimp$Scrap>|
00001610  22 2b bd 30 0d 09 c4 27  62 25 21 33 36 3d 2d 31  |"+.0...'b%!36=-1|
00001620  20 3a 20 f4 20 73 61 76  65 64 20 66 69 6c 65 20  | : . saved file |
00001630  69 73 20 22 75 6e 73 61  66 65 22 0d 09 ce 0c 62  |is "unsafe"....b|
00001640  25 21 30 3d 32 35 36 0d  09 d8 0e 62 25 21 31 32  |%!0=256....b%!12|
00001650  3d 62 25 21 38 0d 09 e2  0b 62 25 21 31 36 3d 32  |=b%!8....b%!16=2|
00001660  0d 09 ec 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...$.. "Wimp_Sen|
00001670  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 25 2c  |dMessage",17,b%,|
00001680  62 25 21 34 0d 09 f6 05  e1 0d 0a 00 05 3a 0d 0a  |b%!4.........:..|
00001690  0a 21 dd 20 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.!. .update_icon|
000016a0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000016b0  0a 14 10 62 25 21 30 3d  77 69 6e 64 6f 77 25 0d  |...b%!0=window%.|
000016c0  0a 1e 11 20 20 20 62 25  21 34 3d 69 63 6f 6e 25  |...   b%!4=icon%|
000016d0  0d 0a 28 0d 20 20 20 62  25 21 38 3d 30 0d 0a 32  |..(.   b%!8=0..2|
000016e0  0e 20 20 20 62 25 21 31  32 3d 30 0d 0a 3c 21 20  |.   b%!12=0..<! |
000016f0  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |  .. "Wimp_SetIc|
00001700  6f 6e 53 74 61 74 65 22  2c 2c 62 25 0d 0a 46 05  |onState",,b%..F.|
00001710  e1 0d 0a 50 05 3a 0d 0a  5a 2c dd 20 f2 67 65 74  |...P.:..Z,. .get|
00001720  5f 6f 72 69 67 69 6e 28  68 61 6e 64 6c 65 25 2c  |_origin(handle%,|
00001730  f8 20 78 6f 72 69 67 25  2c f8 20 79 6f 72 69 67  |. xorig%,. yorig|
00001740  25 29 0d 0a 64 08 ea 20  63 25 0d 0a 6e 0d 63 25  |%)..d.. c%..n.c%|
00001750  3d 62 25 2b 38 30 30 0d  0a 78 0f 21 63 25 3d 68  |=b%+800..x.!c%=h|
00001760  61 6e 64 6c 65 25 0d 0a  82 20 c8 99 20 22 57 69  |andle%... .. "Wi|
00001770  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00001780  65 22 2c 2c 63 25 0d 0a  8c 15 78 6f 72 69 67 25  |e",,c%....xorig%|
00001790  3d 63 25 21 34 2d 63 25  21 32 30 0d 0a 96 16 79  |=c%!4-c%!20....y|
000017a0  6f 72 69 67 25 3d 63 25  21 31 36 2d 63 25 21 32  |orig%=c%!16-c%!2|
000017b0  34 0d 0a a0 05 e1 0d 0a  aa 04 0d 0a b4 28 dd 20  |4............(. |
000017c0  f2 73 65 74 5f 69 63 6f  6e 5f 62 69 74 28 21 62  |.set_icon_bit(!b|
000017d0  25 2c 62 25 21 34 2c 74  66 25 2c 73 74 62 69 74  |%,b%!4,tf%,stbit|
000017e0  25 29 0d 0a be 0c 73 74  61 74 65 25 3d 30 0d 0a  |%)....state%=0..|
000017f0  c8 12 e7 20 74 66 25 20  73 74 61 74 65 25 3d 31  |... tf% state%=1|
00001800  0d 0a d2 17 62 25 21 38  3d 73 74 61 74 65 25 3c  |....b%!8=state%<|
00001810  3c 73 74 62 69 74 25 0d  0a dc 13 62 25 21 31 32  |<stbit%....b%!12|
00001820  3d 31 3c 3c 73 74 62 69  74 25 0d 0a e6 1e c8 99  |=1<<stbit%......|
00001830  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00001840  61 74 65 22 2c 2c 62 25  0d 0a f0 05 e1 0d 0a fa  |ate",,b%........|
00001850  05 3a 0d 0b 04 1f dd 20  f2 61 74 74 61 63 68 28  |.:..... .attach(|
00001860  6d 65 6e 75 25 2c 69 74  65 6d 25 2c 73 75 62 25  |menu%,item%,sub%|
00001870  29 0d 0b 0e 1f 21 28 6d  65 6e 75 25 2b 32 38 2b  |)....!(menu%+28+|
00001880  69 74 65 6d 25 2a 32 34  2b 34 29 3d 73 75 62 25  |item%*24+4)=sub%|
00001890  0d 0b 18 05 e1 0d 0b 22  05 3a 0d 0b 2c 10 dd 20  |.......".:..,.. |
000018a0  a4 6d 61 6b 65 5f 6d 65  6e 75 0d 0b 36 12 73 74  |.make_menu..6.st|
000018b0  61 72 74 25 3d 6d 65 6e  73 70 63 25 0d 0b 40 0c  |art%=menspc%..@.|
000018c0  f3 20 74 69 74 6c 65 24  0d 0b 4a 14 24 28 73 74  |. title$..J.$(st|
000018d0  61 72 74 25 29 3d 74 69  74 6c 65 24 0d 0b 54 0f  |art%)=title$..T.|
000018e0  73 74 61 72 74 25 3f 31  32 3d 37 0d 0b 5e 0f 73  |start%?12=7..^.s|
000018f0  74 61 72 74 25 3f 31 33  3d 32 0d 0b 68 0f 73 74  |tart%?13=2..h.st|
00001900  61 72 74 25 3f 31 34 3d  37 0d 0b 72 0f 73 74 61  |art%?14=7..r.sta|
00001910  72 74 25 3f 31 35 3d 30  0d 0b 7c 10 73 74 61 72  |rt%?15=0..|.star|
00001920  74 25 21 32 30 3d 34 34  0d 0b 86 0f 73 74 61 72  |t%!20=44....star|
00001930  74 25 21 32 34 3d 30 0d  0b 90 13 f4 20 73 74 61  |t%!24=0..... sta|
00001940  72 74 25 21 31 36 3d 31  36 30 0d 0b 9a 16 77 69  |rt%!16=160....wi|
00001950  64 74 68 25 3d a9 28 74  69 74 6c 65 24 29 2d 33  |dth%=.(title$)-3|
00001960  0d 0b a4 0f 6d 65 6e 73  70 63 25 2b 3d 32 38 0d  |....menspc%+=28.|
00001970  0b ae 05 f5 0d 0b b8 0b  f3 20 69 74 65 6d 24 0d  |......... item$.|
00001980  0b c2 12 e7 20 69 74 65  6d 24 3c 3e 22 2a 22 20  |.... item$<>"*" |
00001990  8c 0d 0b cc 0e 21 6d 65  6e 73 70 63 25 3d 30 0d  |.....!menspc%=0.|
000019a0  0b d6 10 77 72 69 74 65  61 62 6c 65 25 3d a3 0d  |...writeable%=..|
000019b0  0b e0 13 75 6c 25 3d a7  69 74 65 6d 24 2c 22 5f  |...ul%=.item$,"_|
000019c0  22 29 0d 0b ea 0b e7 20  75 6c 25 20 8c 0d 0b f4  |")..... ul% ....|
000019d0  1e 74 61 69 6c 24 3d c2  69 74 65 6d 24 2c a9 28  |.tail$=.item$,.(|
000019e0  69 74 65 6d 24 29 2d 75  6c 25 29 0d 0b fe 2e e7  |item$)-ul%).....|
000019f0  20 a7 74 61 69 6c 24 2c  22 54 22 29 20 21 6d 65  | .tail$,"T") !me|
00001a00  6e 73 70 63 25 3d 21 6d  65 6e 73 70 63 25 20 84  |nspc%=!menspc% .|
00001a10  20 31 3a f4 20 74 69 63  6b 0d 0c 08 35 e7 20 a7  | 1:. tick...5. .|
00001a20  74 61 69 6c 24 2c 22 44  22 29 20 21 6d 65 6e 73  |tail$,"D") !mens|
00001a30  70 63 25 3d 21 6d 65 6e  73 70 63 25 20 84 20 32  |pc%=!menspc% . 2|
00001a40  3a f4 20 64 6f 74 74 65  64 20 6c 69 6e 65 0d 0c  |:. dotted line..|
00001a50  12 58 e7 20 a7 74 61 69  6c 24 2c 22 57 22 29 20  |.X. .tail$,"W") |
00001a60  21 6d 65 6e 73 70 63 25  3d 21 6d 65 6e 73 70 63  |!menspc%=!menspc|
00001a70  25 20 84 20 34 3a 77 72  69 74 65 61 62 6c 65 25  |% . 4:writeable%|
00001a80  3d b9 3a f3 20 62 75 66  66 65 72 25 3a f3 20 62  |=.:. buffer%:. b|
00001a90  75 66 6c 65 6e 25 3a f4  20 77 72 69 74 61 62 6c  |uflen%:. writabl|
00001aa0  65 20 69 63 6f 6e 0d 0c  1c 3a e7 20 a7 74 61 69  |e icon...:. .tai|
00001ab0  6c 24 2c 22 4d 22 29 20  21 6d 65 6e 73 70 63 25  |l$,"M") !menspc%|
00001ac0  3d 21 6d 65 6e 73 70 63  25 20 84 20 38 3a f4 20  |=!menspc% . 8:. |
00001ad0  67 65 6e 65 72 61 74 65  20 6d 65 73 73 61 67 65  |generate message|
00001ae0  0d 0c 26 17 69 74 65 6d  24 3d c0 69 74 65 6d 24  |..&.item$=.item$|
00001af0  2c 75 6c 25 2d 31 29 0d  0c 30 05 cd 0d 0c 3a 23  |,ul%-1)..0....:#|
00001b00  e7 20 a9 20 69 74 65 6d  24 3e 77 69 64 74 68 25  |. . item$>width%|
00001b10  20 77 69 64 74 68 25 3d  a9 20 69 74 65 6d 24 0d  | width%=. item$.|
00001b20  0c 44 10 6d 65 6e 73 70  63 25 21 34 3d 2d 31 0d  |.D.menspc%!4=-1.|
00001b30  0c 4e 12 e7 20 77 72 69  74 65 61 62 6c 65 25 20  |.N.. writeable% |
00001b40  8c 0d 0c 58 5a 6d 65 6e  73 70 63 25 21 38 3d 26  |...XZmenspc%!8=&|
00001b50  30 37 30 30 46 31 32 31  3a 6d 65 6e 73 70 63 25  |0700F121:menspc%|
00001b60  21 31 32 3d 62 75 66 66  65 72 25 3a 6d 65 6e 73  |!12=buffer%:mens|
00001b70  70 63 25 21 31 36 3d 2d  31 3a 6d 65 6e 73 70 63  |pc%!16=-1:menspc|
00001b80  25 21 32 30 3d 62 75 66  6c 65 6e 25 3a 24 62 75  |%!20=buflen%:$bu|
00001b90  66 66 65 72 25 3d 69 74  65 6d 24 0d 0c 62 05 cc  |ffer%=item$..b..|
00001ba0  0d 0c 6c 12 e7 20 a9 20  69 74 65 6d 24 3c 31 32  |..l.. . item$<12|
00001bb0  20 8c 0d 0c 76 2b 6d 65  6e 73 70 63 25 21 38 3d  | ...v+menspc%!8=|
00001bc0  26 30 37 30 30 30 30 32  31 3a 24 28 6d 65 6e 73  |&07000021:$(mens|
00001bd0  70 63 25 2b 31 32 29 3d  69 74 65 6d 24 0d 0c 80  |pc%+12)=item$...|
00001be0  05 cc 0d 0c 8a 49 6d 65  6e 73 70 63 25 21 38 3d  |.....Imenspc%!8=|
00001bf0  26 30 37 30 30 30 31 32  31 3a 6d 65 6e 73 70 63  |&07000121:menspc|
00001c00  25 21 31 32 3d 77 73 25  3a 6d 65 6e 73 70 63 25  |%!12=ws%:menspc%|
00001c10  21 31 36 3d 2d 31 3a 6d  65 6e 73 70 63 25 21 32  |!16=-1:menspc%!2|
00001c20  30 3d a9 20 69 74 65 6d  24 2b 31 0d 0c 94 1d 24  |0=. item$+1....$|
00001c30  77 73 25 3d 69 74 65 6d  24 3a 77 73 25 2b 3d a9  |ws%=item$:ws%+=.|
00001c40  20 69 74 65 6d 24 2b 31  0d 0c 9e 05 cd 0d 0c a8  | item$+1........|
00001c50  05 cd 0d 0c b2 0f 6d 65  6e 73 70 63 25 2b 3d 32  |......menspc%+=2|
00001c60  34 0d 0c bc 05 cd 0d 0c  c6 0f fd 20 69 74 65 6d  |4.......... item|
00001c70  24 3d 22 2a 22 0d 0c d0  1a 73 74 61 72 74 25 21  |$="*"....start%!|
00001c80  31 36 3d 77 69 64 74 68  25 2a 31 36 2b 33 32 0d  |16=width%*16+32.|
00001c90  0c da 25 21 28 6d 65 6e  73 70 63 25 2d 32 34 29  |..%!(menspc%-24)|
00001ca0  3d 21 28 6d 65 6e 73 70  63 25 2d 32 34 29 20 84  |=!(menspc%-24) .|
00001cb0  20 26 38 30 0d 0c e4 11  6d 70 74 72 25 3d 6d 65  | &80....mptr%=me|
00001cc0  6e 73 70 63 25 0d 0c ee  0b 3d 73 74 61 72 74 25  |nspc%....=start%|
00001cd0  0d 0c f8 05 3a 0d 0d 02  1c dd 20 f2 73 68 6f 77  |....:..... .show|
00001ce0  6d 65 6e 75 28 6d 65 6e  75 25 2c 78 25 2c 79 25  |menu(menu%,x%,y%|
00001cf0  29 0d 0d 0c 24 74 6f 70  6d 65 6e 75 25 3d 6d 65  |)...$topmenu%=me|
00001d00  6e 75 25 3a 74 6f 70 78  25 3d 78 25 3a 74 6f 70  |nu%:topx%=x%:top|
00001d10  79 25 3d 79 25 0d 0d 16  25 c8 99 20 22 57 69 6d  |y%=y%...%.. "Wim|
00001d20  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00001d30  65 6e 75 25 2c 78 25 2c  79 25 0d 0d 20 05 e1 0d  |enu%,x%,y%.. ...|
00001d40  0d 2a 05 3a 0d 0d 34 1a  dd 20 f2 75 6e 67 72 65  |.*.:..4.. .ungre|
00001d50  79 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 0d  |y(menu%,item%)..|
00001d60  3e 3f 6d 65 6e 75 25 21  28 32 38 2b 69 74 65 6d  |>?menu%!(28+item|
00001d70  25 2a 32 34 2b 38 29 3d  28 6d 65 6e 75 25 21 28  |%*24+8)=(menu%!(|
00001d80  32 38 2b 69 74 65 6d 25  2a 32 34 2b 38 29 29 20  |28+item%*24+8)) |
00001d90  80 20 28 ac 20 28 31 3c  3c 32 32 29 29 0d 0d 48  |. (. (1<<22))..H|
00001da0  05 e1 0d 0d 52 05 3a 0d  0d 5c 18 dd 20 f2 67 72  |....R.:..\.. .gr|
00001db0  65 79 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ey(menu%,item%).|
00001dc0  0d 66 3b 6d 65 6e 75 25  21 28 32 38 2b 69 74 65  |.f;menu%!(28+ite|
00001dd0  6d 25 2a 32 34 2b 38 29  3d 28 6d 65 6e 75 25 21  |m%*24+8)=(menu%!|
00001de0  28 32 38 2b 69 74 65 6d  25 2a 32 34 2b 38 29 29  |(28+item%*24+8))|
00001df0  20 84 20 28 31 3c 3c 32  32 29 0d 0d 70 05 e1 0d  | . (1<<22)..p...|
00001e00  0d 7a 05 3a 0d 0d 84 20  dd 20 a4 69 63 6f 6e 5f  |.z.:... . .icon_|
00001e10  73 74 61 74 65 28 77 69  6e 64 6f 77 25 2c 69 63  |state(window%,ic|
00001e20  6f 6e 25 29 0d 0d 8e 08  ea 20 63 25 0d 0d 98 0d  |on%)..... c%....|
00001e30  63 25 3d 62 25 2b 39 30  30 0d 0d a2 0f 21 63 25  |c%=b%+900....!c%|
00001e40  3d 77 69 6e 64 6f 77 25  0d 0d ac 0e 63 25 21 34  |=window%....c%!4|
00001e50  3d 69 63 6f 6e 25 0d 0d  b6 1e c8 99 20 22 57 69  |=icon%...... "Wi|
00001e60  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001e70  2c 2c 63 25 0d 0d c0 1b  3d 28 28 63 25 21 32 34  |,,c%....=((c%!24|
00001e80  29 20 80 20 28 31 3c 3c  32 31 29 29 3c 3e 30 0d  |) . (1<<21))<>0.|
00001e90  0d ca 05 3a 0d 0d d4 21  dd 20 a4 73 74 72 69 6e  |...:...!. .strin|
00001ea0  67 5f 61 64 64 72 28 77  69 6e 64 6f 77 25 2c 69  |g_addr(window%,i|
00001eb0  63 6f 6e 25 29 0d 0d de  14 21 63 68 61 70 70 79  |con%)....!chappy|
00001ec0  25 3d 77 69 6e 64 6f 77  25 0d 0d e8 13 63 68 61  |%=window%....cha|
00001ed0  70 70 79 25 21 34 3d 69  63 6f 6e 25 0d 0d f2 23  |ppy%!4=icon%...#|
00001ee0  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001ef0  53 74 61 74 65 22 2c 2c  63 68 61 70 70 79 25 0d  |State",,chappy%.|
00001f00  0d fc 0f 3d 63 68 61 70  70 79 25 21 32 38 0d 0e  |...=chappy%!28..|
00001f10  06 05 3a 0d 0e 10 21 dd  20 a4 69 63 6f 6e 5f 73  |..:...!. .icon_s|
00001f20  74 72 69 6e 67 28 77 69  6e 64 6f 77 25 2c 69 63  |tring(window%,ic|
00001f30  6f 6e 25 29 0d 0e 1a 26  f2 74 65 72 6d 28 a4 73  |on%)...&.term(.s|
00001f40  74 72 69 6e 67 5f 61 64  64 72 28 77 69 6e 64 6f  |tring_addr(windo|
00001f50  77 25 2c 69 63 6f 6e 25  29 29 0d 0e 24 21 3d 24  |w%,icon%))..$!=$|
00001f60  a4 73 74 72 69 6e 67 5f  61 64 64 72 28 77 69 6e  |.string_addr(win|
00001f70  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 0e 2e 05 e1  |dow%,icon%).....|
00001f80  0d 0e 38 05 3a 0d 0e 42  29 dd 20 f2 73 65 74 5f  |..8.:..B). .set_|
00001f90  69 63 6f 6e 5f 73 74 72  69 6e 67 32 28 77 69 6e  |icon_string2(win|
00001fa0  64 6f 77 25 2c 69 63 6f  6e 25 2c 61 24 29 0d 0e  |dow%,icon%,a$)..|
00001fb0  4c 23 24 a4 73 74 72 69  6e 67 5f 61 64 64 72 28  |L#$.string_addr(|
00001fc0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 3d 61  |window%,icon%)=a|
00001fd0  24 0d 0e 56 05 e1 0d 0e  60 05 3a 0d 0e 6a 0f dd  |$..V....`.:..j..|
00001fe0  20 f2 74 65 72 6d 28 61  25 29 0d 0e 74 08 ea 20  | .term(a%)..t.. |
00001ff0  6e 25 0d 0e 7e 0f c8 95  20 61 25 3f 6e 25 3e 33  |n%..~... a%?n%>3|
00002000  31 0d 0e 88 09 6e 25 2b  3d 31 0d 0e 92 05 ce 0d  |1....n%+=1......|
00002010  0e 9c 0c 61 25 3f 6e 25  3d 31 33 0d 0e a6 05 e1  |...a%?n%=13.....|
00002020  0d 0e b0 05 3a 0d 0e ba  18 dd 20 f2 6f 70 65 6e  |....:..... .open|
00002030  5f 77 69 6e 64 6f 77 28  77 69 6e 25 29 0d 0e c4  |_window(win%)...|
00002040  0c 21 62 25 3d 77 69 6e  25 0d 0e ce 20 c8 99 20  |.!b%=win%... .. |
00002050  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002060  74 61 74 65 22 2c 2c 62  25 0d 0e d8 0c 62 25 21  |tate",,b%....b%!|
00002070  32 38 3d 2d 31 0d 0e e2  1c c8 99 20 22 57 69 6d  |28=-1...... "Wim|
00002080  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00002090  25 0d 0e ec 05 e1 0d 0e  f6 05 3a 0d 0f 00 18 dd  |%.........:.....|
000020a0  20 f2 6f 70 65 6e 5f 63  65 6e 74 72 65 28 77 69  | .open_centre(wi|
000020b0  6e 25 29 0d 0f 0a 14 f2  67 65 74 5f 73 63 72 65  |n%).....get_scre|
000020c0  65 6e 5f 73 69 7a 65 0d  0f 14 0c 21 62 25 3d 77  |en_size....!b%=w|
000020d0  69 6e 25 0d 0f 1e 20 c8  99 20 22 57 69 6d 70 5f  |in%... .. "Wimp_|
000020e0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000020f0  2c 62 25 0d 0f 28 19 77  69 64 74 68 25 3d 28 62  |,b%..(.width%=(b|
00002100  25 21 31 32 29 2d 28 62  25 21 34 29 0d 0f 32 1a  |%!12)-(b%!4)..2.|
00002110  68 65 69 67 68 74 25 3d  28 62 25 21 31 36 29 2d  |height%=(b%!16)-|
00002120  28 62 25 21 38 29 0d 0f  3c 18 62 25 21 34 3d 28  |(b%!8)..<.b%!4=(|
00002130  58 32 2d 77 69 64 74 68  25 29 20 81 20 32 0d 0f  |X2-width%) . 2..|
00002140  46 19 62 25 21 38 3d 28  59 32 2d 68 65 69 67 68  |F.b%!8=(Y2-heigh|
00002150  74 25 29 20 81 20 32 0d  0f 50 17 62 25 21 31 32  |t%) . 2..P.b%!12|
00002160  3d 28 62 25 21 34 29 2b  77 69 64 74 68 25 0d 0f  |=(b%!4)+width%..|
00002170  5a 18 62 25 21 31 36 3d  28 62 25 21 38 29 2b 68  |Z.b%!16=(b%!8)+h|
00002180  65 69 67 68 74 25 0d 0f  64 0c 62 25 21 32 38 3d  |eight%..d.b%!28=|
00002190  2d 31 0d 0f 6e 1c c8 99  20 22 57 69 6d 70 5f 4f  |-1..n... "Wimp_O|
000021a0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 25 0d 0f  |penWindow",,b%..|
000021b0  78 05 e1 0d 0f 82 05 3a  0d 0f 8c 19 dd 20 f2 63  |x......:..... .c|
000021c0  6c 6f 73 65 5f 77 69 6e  64 6f 77 28 77 69 6e 25  |lose_window(win%|
000021d0  29 0d 0f 96 0c 21 62 25  3d 77 69 6e 25 0d 0f a0  |)....!b%=win%...|
000021e0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
000021f0  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |dowState",,b%:..|
00002200  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00002210  6f 77 22 2c 2c 62 25 0d  0f aa 05 e1 0d 0f b4 05  |ow",,b%.........|
00002220  3a 0d 0f be 0c dd 20 a4  65 72 72 6f 72 0d 0f c8  |:..... .error...|
00002230  09 21 62 25 3d 9f 0d 0f  d2 0c c8 8e 20 21 62 25  |.!b%=....... !b%|
00002240  20 ca 0d 0f dc 22 c9 20  31 3c 3c 33 30 3a 65 72  | ....". 1<<30:er|
00002250  72 5f 73 74 72 24 3d 22  22 3a 62 6f 78 25 3d 25  |r_str$="":box%=%|
00002260  31 30 30 31 0d 0f e6 29  7f 3a 65 72 72 5f 73 74  |1001...).:err_st|
00002270  72 24 3d 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |r$=" at line "+.|
00002280  20 9e 3a 62 6f 78 25 3d  25 31 30 30 31 0d 0f f0  | .:box%=%1001...|
00002290  05 cb 0d 0f fa 1a 24 28  62 25 2b 34 29 3d f6 24  |......$(b%+4)=.$|
000022a0  2b 65 72 72 5f 73 74 72  24 2b bd 30 0d 10 04 37  |+err_str$+.0...7|
000022b0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000022c0  72 72 6f 72 22 2c 62 25  2c 62 6f 78 25 2c 41 70  |rror",b%,box%,Ap|
000022d0  70 4e 61 6d 65 24 20 b8  20 2c 72 65 73 70 6f 6e  |pName$ . ,respon|
000022e0  73 65 25 0d 10 0e 12 3d  28 72 65 73 70 6f 6e 73  |se%....=(respons|
000022f0  65 25 3d 32 29 0d 10 18  05 3a 0d 10 22 16 dd 20  |e%=2)....:..".. |
00002300  f2 67 65 74 5f 73 63 72  65 65 6e 5f 73 69 7a 65  |.get_screen_size|
00002310  0d 10 2c 2b c8 99 22 4f  53 5f 52 65 61 64 4d 6f  |..,+.."OS_ReadMo|
00002320  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 34  |deVariable",-1,4|
00002330  20 b8 20 2c 2c 58 66 61  63 74 25 0d 10 36 2b c8  | . ,,Xfact%..6+.|
00002340  99 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  |."OS_ReadModeVar|
00002350  69 61 62 6c 65 22 2c 2d  31 2c 35 20 b8 20 2c 2c  |iable",-1,5 . ,,|
00002360  59 66 61 63 74 25 0d 10  40 2b c8 99 22 4f 53 5f  |Yfact%..@+.."OS_|
00002370  52 65 61 64 4d 6f 64 65  56 61 72 69 61 62 6c 65  |ReadModeVariable|
00002380  22 2c 2d 31 2c 31 31 20  b8 20 2c 2c 58 4c 69 6d  |",-1,11 . ,,XLim|
00002390  25 0d 10 4a 2b c8 99 22  4f 53 5f 52 65 61 64 4d  |%..J+.."OS_ReadM|
000023a0  6f 64 65 56 61 72 69 61  62 6c 65 22 2c 2d 31 2c  |odeVariable",-1,|
000023b0  31 32 20 b8 20 2c 2c 59  4c 69 6d 25 0d 10 54 14  |12 . ,,YLim%..T.|
000023c0  58 32 3d 58 4c 69 6d 25  3c 3c 58 66 61 63 74 25  |X2=XLim%<<Xfact%|
000023d0  0d 10 5e 14 59 32 3d 59  4c 69 6d 25 3c 3c 59 66  |..^.Y2=YLim%<<Yf|
000023e0  61 63 74 25 0d 10 68 05  e1 0d 10 72 05 3a 0d 10  |act%..h....r.:..|
000023f0  7c 13 dd 20 a4 63 61 70  69 74 61 6c 73 28 74 24  ||.. .capitals(t$|
00002400  29 0d 10 86 2d f4 20 2a  2a 2a 20 43 6f 6e 76 65  |)...-. *** Conve|
00002410  72 74 73 20 61 6c 6c 20  74 65 78 74 20 74 6f 20  |rts all text to |
00002420  6c 6f 77 65 72 20 63 61  73 65 20 2a 2a 2a 0d 10  |lower case ***..|
00002430  90 0a ea 20 49 2c 6c 24  0d 10 9a 0a 6e 74 24 3d  |... I,l$....nt$=|
00002440  22 22 0d 10 a4 10 e3 20  49 3d 31 20 b8 20 a9 20  |""..... I=1 . . |
00002450  74 24 0d 10 ae 0f 6c 24  3d c1 74 24 2c 49 2c 31  |t$....l$=.t$,I,1|
00002460  29 0d 10 b8 32 e7 20 97  28 6c 24 29 3e 3d 97 28  |)...2. .(l$)>=.(|
00002470  22 41 22 29 20 80 20 97  28 6c 24 29 3c 3d 97 28  |"A") . .(l$)<=.(|
00002480  22 5a 22 29 20 6c 24 3d  bd 28 97 28 6c 24 29 2b  |"Z") l$=.(.(l$)+|
00002490  33 32 29 0d 10 c2 0b 6e  74 24 2b 3d 6c 24 0d 10  |32)....nt$+=l$..|
000024a0  cc 05 ed 0d 10 d6 08 3d  6e 74 24 0d 10 e0 05 3a  |.......=nt$....:|
000024b0  0d 10 ea 14 dd 20 a4 65  76 61 6c 75 61 74 65 28  |..... .evaluate(|
000024c0  65 76 24 29 0d 10 f4 34  c8 99 20 22 58 4f 53 5f  |ev$)...4.. "XOS_|
000024d0  45 76 61 6c 75 61 74 65  45 78 70 72 65 73 73 69  |EvaluateExpressi|
000024e0  6f 6e 22 2c 65 76 24 2c  62 25 2c 32 35 36 20 b8  |on",ev$,b%,256 .|
000024f0  20 2c 62 25 2c 6c 65 6e  0d 10 fe 0d f2 74 65 72  | ,b%,len.....ter|
00002500  6d 28 62 25 29 0d 11 08  0e 3d c0 24 62 25 2c 6c  |m(b%)....=.$b%,l|
00002510  65 6e 29 0d 11 12 05 3a  0d 11 1c 25 dd 20 f2 64  |en)....:...%. .d|
00002520  72 61 67 5f 61 5f 73 70  72 28 77 69 6e 64 6f 77  |rag_a_spr(window|
00002530  25 2c 69 63 6f 6e 25 2c  73 70 72 24 29 0d 11 26  |%,icon%,spr$)..&|
00002540  08 ea 20 63 25 0d 11 30  0d 63 25 3d 62 25 2b 39  |.. c%..0.c%=b%+9|
00002550  30 30 0d 11 3a 26 f2 67  65 74 5f 6f 72 69 67 69  |00..:&.get_origi|
00002560  6e 28 77 69 6e 64 6f 77  25 2c 78 6f 72 69 67 25  |n(window%,xorig%|
00002570  2c 79 6f 72 69 67 25 29  0d 11 44 1a 21 63 25 3d  |,yorig%)..D.!c%=|
00002580  77 69 6e 64 6f 77 25 3a  63 25 21 34 3d 69 63 6f  |window%:c%!4=ico|
00002590  6e 25 0d 11 4e 1e c8 99  20 22 57 69 6d 70 5f 47  |n%..N... "Wimp_G|
000025a0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 63 25  |etIconState",,c%|
000025b0  0d 11 58 28 78 6d 69 6e  25 3d 78 6f 72 69 67 25  |..X(xmin%=xorig%|
000025c0  2b 63 25 21 38 3a 79 6d  69 6e 25 3d 79 6f 72 69  |+c%!8:ymin%=yori|
000025d0  67 25 2b 63 25 21 31 32  0d 11 62 29 78 6d 61 78  |g%+c%!12..b)xmax|
000025e0  25 3d 78 6f 72 69 67 25  2b 63 25 21 31 36 3a 79  |%=xorig%+c%!16:y|
000025f0  6d 61 78 25 3d 79 6f 72  69 67 25 2b 63 25 21 32  |max%=yorig%+c%!2|
00002600  30 0d 11 6c 18 21 63 25  3d 78 6d 69 6e 25 3a 63  |0..l.!c%=xmin%:c|
00002610  25 21 34 3d 79 6d 69 6e  25 0d 11 76 1a 63 25 21  |%!4=ymin%..v.c%!|
00002620  38 3d 78 6d 61 78 25 3a  63 25 21 31 32 3d 79 6d  |8=xmax%:c%!12=ym|
00002630  61 78 25 0d 11 80 2e c8  99 20 22 44 72 61 67 41  |ax%...... "DragA|
00002640  53 70 72 69 74 65 5f 53  74 61 72 74 22 2c 25 31  |Sprite_Start",%1|
00002650  30 30 30 30 31 30 31 2c  31 2c 73 70 72 24 2c 63  |0000101,1,spr$,c|
00002660  25 0d 11 8a 05 e1 0d 11  94 05 3a 0d 11 9e 0e dd  |%.........:.....|
00002670  20 f2 64 72 61 67 65 6e  64 0d 11 a8 1e 61 24 3d  | .dragend....a$=|
00002680  a4 69 63 6f 6e 5f 73 74  72 69 6e 67 28 73 61 76  |.icon_string(sav|
00002690  65 61 73 25 2c 32 29 0d  11 b2 20 c8 99 20 22 57  |eas%,2)... .. "W|
000026a0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000026b0  66 6f 22 2c 2c 62 25 0d  11 bc 0f 62 25 21 32 30  |fo",,b%....b%!20|
000026c0  3d 62 25 21 31 32 0d 11  c6 0f 62 25 21 32 34 3d  |=b%!12....b%!24=|
000026d0  62 25 21 31 36 0d 11 d0  0e 62 25 21 32 38 3d 62  |b%!16....b%!28=b|
000026e0  25 21 30 0d 11 da 0e 62  25 21 33 32 3d 62 25 21  |%!0....b%!32=b%!|
000026f0  34 0d 11 e4 1e 62 25 21  33 36 3d 28 66 69 6c 65  |4....b%!36=(file|
00002700  70 6f 73 25 2d 72 65 61  64 73 69 7a 65 25 29 0d  |pos%-readsize%).|
00002710  11 ee 14 62 25 21 34 30  3d 73 61 76 65 5f 74 79  |...b%!40=save_ty|
00002720  70 65 25 0d 11 f8 12 c8  95 20 a7 61 24 2c 22 2e  |pe%...... .a$,".|
00002730  22 29 3c 3e 30 0d 12 02  0f 6e 25 3d a7 61 24 2c  |")<>0....n%=.a$,|
00002740  22 2e 22 29 0d 12 0c 10  61 24 3d c1 61 24 2c 6e  |".")....a$=.a$,n|
00002750  25 2b 31 29 0d 12 16 05  ce 0d 12 20 0f 24 28 62  |%+1)....... .$(b|
00002760  25 2b 34 34 29 3d 61 24  0d 12 2a 1b 21 62 25 3d  |%+44)=a$..*.!b%=|
00002770  34 34 2b 28 28 a9 20 61  24 2b 31 29 20 81 20 34  |44+((. a$+1) . 4|
00002780  29 2a 34 0d 12 34 1e e7  20 28 28 a9 20 61 24 2b  |)*4..4.. ((. a$+|
00002790  31 29 20 83 20 34 29 3c  3e 30 20 21 62 25 2b 3d  |1) . 4)<>0 !b%+=|
000027a0  34 0d 12 3e 0b 62 25 21  31 32 3d 30 0d 12 48 0b  |4..>.b%!12=0..H.|
000027b0  62 25 21 31 36 3d 31 0d  12 52 2b c8 99 20 22 57  |b%!16=1..R+.. "W|
000027c0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
000027d0  2c 31 38 2c 62 25 2c 62  25 21 32 30 2c 62 25 21  |,18,b%,b%!20,b%!|
000027e0  32 34 0d 12 5c 05 e1 0d  12 66 05 3a 0d 12 70 0b  |24..\....f.:..p.|
000027f0  dd 20 f2 73 61 76 65 0d  12 7a 10 f2 74 65 72 6d  |. .save..z..term|
00002800  28 62 25 2b 34 34 29 0d  12 84 12 66 69 6c 65 24  |(b%+44)....file$|
00002810  3d 24 28 62 25 2b 34 34  29 0d 12 8e 15 f2 73 61  |=$(b%+44).....sa|
00002820  76 65 5f 64 61 74 61 28  66 69 6c 65 24 29 0d 12  |ve_data(file$)..|
00002830  98 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.... "Wimp_Creat|
00002840  65 4d 65 6e 75 22 2c 2c  2d 31 0d 12 a2 05 e1 0d  |eMenu",,-1......|
00002850  12 ac 05 3a 0d 12 b6 14  dd 20 f2 73 61 76 65 64  |...:..... .saved|
00002860  5f 6d 65 73 73 61 67 65  0d 12 c0 0e 62 25 21 31  |_message....b%!1|
00002870  32 3d 62 25 21 38 0d 12  ca 0b 62 25 21 31 36 3d  |2=b%!8....b%!16=|
00002880  33 0d 12 d4 0b 21 62 25  3d 32 35 36 0d 12 de 2b  |3....!b%=256...+|
00002890  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000028a0  73 61 67 65 22 2c 31 38  2c 62 25 2c 62 25 21 32  |sage",18,b%,b%!2|
000028b0  30 2c 62 25 21 32 34 0d  12 e8 05 e1 0d 12 f2 05  |0,b%!24.........|
000028c0  3a 0d 12 fc 11 dd 20 f2  63 68 65 63 6b 5f 73 61  |:..... .check_sa|
000028d0  76 65 0d 13 06 25 e7 20  a7 66 69 6c 65 24 2c 22  |ve...%. .file$,"|
000028e0  3a 22 29 3d 30 20 84 20  a7 66 69 6c 65 24 2c 22  |:")=0 . .file$,"|
000028f0  2e 22 29 3d 30 20 8c 0d  13 10 0b 20 21 62 25 3d  |.")=0 ..... !b%=|
00002900  25 31 0d 13 1a 40 20 24  28 62 25 2b 34 29 3d 22  |%1...@ $(b%+4)="|
00002910  54 6f 20 73 61 76 65 2c  20 64 72 61 67 20 74 68  |To save, drag th|
00002920  65 20 69 63 6f 6e 20 74  6f 20 61 20 64 69 72 65  |e icon to a dire|
00002930  63 74 6f 72 79 20 64 69  73 70 6c 61 79 2e 22 2b  |ctory display."+|
00002940  bd 30 0d 13 24 10 20 62  6f 78 25 3d 25 31 31 30  |.0..$. box%=%110|
00002950  30 31 0d 13 2e 46 20 c8  99 20 22 57 69 6d 70 5f  |01...F .. "Wimp_|
00002960  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 62 25 2c  |ReportError",b%,|
00002970  62 6f 78 25 2c 22 45 72  72 6f 72 20 66 72 6f 6d  |box%,"Error from|
00002980  20 22 2b 41 70 70 4e 61  6d 65 24 20 b8 20 2c 72  | "+AppName$ . ,r|
00002990  65 73 70 6f 6e 73 65 25  0d 13 38 0d 20 73 61 76  |esponse%..8. sav|
000029a0  65 64 25 3d a3 0d 13 42  05 cc 0d 13 4c 0d 20 73  |ed%=...B....L. s|
000029b0  61 76 65 64 25 3d b9 0d  13 56 05 cd 0d 13 60 05  |aved%=...V....`.|
000029c0  e1 0d 13 6a 05 3a 0d 13  74 0b dd 20 f2 6c 6f 61  |...j.:..t.. .loa|
000029d0  64 0d 13 7e 12 66 69 6c  65 74 79 70 65 3d 62 25  |d..~.filetype=b%|
000029e0  21 34 30 0d 13 88 10 77  69 6e 64 6f 77 3d 62 25  |!40....window=b%|
000029f0  21 32 30 0d 13 92 0e 69  63 6f 6e 3d 62 25 21 32  |!20....icon=b%!2|
00002a00  34 0d 13 9c 10 f2 74 65  72 6d 28 62 25 2b 34 34  |4.....term(b%+44|
00002a10  29 0d 13 a6 16 66 69 6c  65 6e 61 6d 65 24 3d 24  |)....filename$=$|
00002a20  28 62 25 2b 34 34 29 0d  13 b0 2e f2 6c 6f 61 64  |(b%+44).....load|
00002a30  5f 64 61 74 61 28 77 69  6e 64 6f 77 2c 69 63 6f  |_data(window,ico|
00002a40  6e 2c 66 69 6c 65 6e 61  6d 65 24 2c 66 69 6c 65  |n,filename$,file|
00002a50  74 79 70 65 29 0d 13 ba  05 e1 0d 13 c4 05 3a 0d  |type).........:.|
00002a60  13 ce 3b f4 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..;. ===========|
00002a70  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002a90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 13 d8 36 f4 20  |==========...6. |
00002aa0  20 20 49 4e 53 45 52 54  20 57 49 4d 50 48 45 41  |  INSERT WIMPHEA|
00002ab0  50 2f 4d 45 53 53 41 47  45 54 52 41 4e 53 20 52  |P/MESSAGETRANS R|
00002ac0  4f 55 54 49 4e 45 53 20  42 45 4c 4f 57 2e 2e 2e  |OUTINES BELOW...|
00002ad0  0d 13 e2 3b f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...;. ==========|
00002ae0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002b00  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 13 ec 05 3a  |===========....:|
00002b10  0d 13 f6 3b f4 20 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |...;. ==========|
00002b20  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002b40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 14 00 35 f4  |===========...5.|
00002b50  20 20 20 45 58 54 52 41  20 53 4f 55 4e 44 20 53  |   EXTRA SOUND S|
00002b60  59 53 54 45 4d 2f 4d 4f  44 49 46 49 45 44 20 52  |YSTEM/MODIFIED R|
00002b70  4f 55 54 49 4e 45 53 20  42 45 4c 4f 57 2e 2e 2e  |OUTINES BELOW...|
00002b80  0d 14 0a 29 f4 20 20 20  20 20 20 20 20 20 20 20  |...).           |
00002b90  20 20 20 20 20 20 57 69  6c 6c 69 61 6d 20 43 75  |      William Cu|
00002ba0  72 73 6f 6e 20 31 39 39  38 0d 14 14 3b f4 20 3d  |rson 1998...;. =|
00002bb0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00002be0  3d 3d 3d 3d 0d 14 1e 05  3a 0d 14 28 0f dd f2 73  |====....:..(...s|
00002bf0  6f 75 6e 64 69 6e 69 74  0d 14 32 31 2a 52 4d 4c  |oundinit..21*RML|
00002c00  6f 61 64 20 3c 57 68 61  63 6b 41 4d 6f 6c 65 24  |oad <WhackAMole$|
00002c10  44 69 72 3e 2e 53 6f 75  6e 64 53 79 73 2e 53 6f  |Dir>.SoundSys.So|
00002c20  75 6e 64 73 2e 48 69 74  21 0d 14 3c 08 c8 a0 20  |unds.Hit!..<... |
00002c30  32 0d 14 46 18 2a 43 68  61 6e 6e 65 6c 56 6f 69  |2..F.*ChannelVoi|
00002c40  63 65 20 32 20 48 69 74  21 0d 14 50 37 68 25 3d  |ce 2 Hit!..P7h%=|
00002c50  8e 20 22 3c 57 68 61 63  6b 41 4d 6f 6c 65 24 44  |. "<WhackAMole$D|
00002c60  69 72 3e 2e 53 6f 75 6e  64 53 79 73 2e 52 65 73  |ir>.SoundSys.Res|
00002c70  6f 75 72 63 65 73 2e 4d  6f 6c 65 44 61 74 61 22  |ources.MoleData"|
00002c80  0d 14 5a 0a cf 23 68 25  3d 36 0d 14 6e 11 6d 65  |..Z..#h%=6..n.me|
00002c90  6e 75 64 61 74 24 3d be  23 68 25 0d 14 78 08 d9  |nudat$=.#h%..x..|
00002ca0  23 68 25 0d 14 82 37 68  25 3d 8e 20 22 3c 57 68  |#h%...7h%=. "<Wh|
00002cb0  61 63 6b 41 4d 6f 6c 65  24 44 69 72 3e 2e 53 6f  |ackAMole$Dir>.So|
00002cc0  75 6e 64 53 79 73 2e 52  65 73 6f 75 72 63 65 73  |undSys.Resources|
00002cd0  2e 4d 6f 6c 65 44 61 74  61 22 0d 14 8c 0a cf 23  |.MoleData".....#|
00002ce0  68 25 3d 34 0d 14 96 12  73 6f 75 6e 64 64 61 74  |h%=4....sounddat|
00002cf0  24 3d be 23 68 25 0d 14  a0 08 d9 23 68 25 0d 14  |$=.#h%.....#h%..|
00002d00  aa 1a e7 20 6d 65 6e 75  64 61 74 24 3d 73 6f 75  |... menudat$=sou|
00002d10  6e 64 64 61 74 24 20 8c  0d 14 b4 0c 73 6f 75 6e  |nddat$ .....soun|
00002d20  64 25 3d b9 0d 14 be 06  cc 20 0d 14 c8 0c 73 6f  |d%=...... ....so|
00002d30  75 6e 64 25 3d a3 0d 14  d2 05 cd 0d 14 dc 05 e1  |und%=...........|
00002d40  0d 14 e6 05 3a 0d 14 f0  11 dd f2 73 6f 75 6e 64  |....:......sound|
00002d50  75 70 64 61 74 65 0d 14  fa 37 68 25 3d ad 20 22  |update...7h%=. "|
00002d60  3c 57 68 61 63 6b 41 4d  6f 6c 65 24 44 69 72 3e  |<WhackAMole$Dir>|
00002d70  2e 53 6f 75 6e 64 53 79  73 2e 52 65 73 6f 75 72  |.SoundSys.Resour|
00002d80  63 65 73 2e 4d 6f 6c 65  44 61 74 61 22 0d 15 04  |ces.MoleData"...|
00002d90  0b 49 24 3d be 23 68 25  0d 15 0e 08 d9 23 68 25  |.I$=.#h%.....#h%|
00002da0  0d 15 18 37 68 25 3d ad  20 22 3c 57 68 61 63 6b  |...7h%=. "<Whack|
00002db0  41 4d 6f 6c 65 24 44 69  72 3e 2e 53 6f 75 6e 64  |AMole$Dir>.Sound|
00002dc0  53 79 73 2e 52 65 73 6f  75 72 63 65 73 2e 4d 6f  |Sys.Resources.Mo|
00002dd0  6c 65 44 61 74 61 22 0d  15 22 0a cf 23 68 25 3d  |leData".."..#h%=|
00002de0  32 0d 15 2c 0b 4f 24 3d  be 23 68 25 0d 15 36 08  |2..,.O$=.#h%..6.|
00002df0  d9 23 68 25 0d 15 40 37  68 25 3d 8e 20 22 3c 57  |.#h%..@7h%=. "<W|
00002e00  68 61 63 6b 41 4d 6f 6c  65 24 44 69 72 3e 2e 53  |hackAMole$Dir>.S|
00002e10  6f 75 6e 64 53 79 73 2e  52 65 73 6f 75 72 63 65  |oundSys.Resource|
00002e20  73 2e 4d 6f 6c 65 44 61  74 61 22 0d 15 4a 0a cf  |s.MoleData"..J..|
00002e30  23 68 25 3d 36 0d 15 54  11 6d 65 6e 75 64 61 74  |#h%=6..T.menudat|
00002e40  24 3d be 23 68 25 0d 15  5e 08 d9 23 68 25 0d 15  |$=.#h%..^..#h%..|
00002e50  68 14 e7 20 6d 65 6e 75  64 61 74 24 3d 22 59 22  |h.. menudat$="Y"|
00002e60  20 8c 0d 15 72 37 68 25  3d ad 20 22 3c 57 68 61  | ...r7h%=. "<Wha|
00002e70  63 6b 41 4d 6f 6c 65 24  44 69 72 3e 2e 53 6f 75  |ckAMole$Dir>.Sou|
00002e80  6e 64 53 79 73 2e 52 65  73 6f 75 72 63 65 73 2e  |ndSys.Resources.|
00002e90  4d 6f 6c 65 44 61 74 61  22 0d 15 7c 0a cf 23 68  |MoleData"..|..#h|
00002ea0  25 3d 36 0d 15 86 0b d5  23 68 25 2c 4f 24 0d 15  |%=6.....#h%,O$..|
00002eb0  90 08 d9 23 68 25 0d 15  9a 0c 73 6f 75 6e 64 25  |...#h%....sound%|
00002ec0  3d a3 0d 15 a4 05 cc 0d  15 ae 37 68 25 3d ad 20  |=.........7h%=. |
00002ed0  22 3c 57 68 61 63 6b 41  4d 6f 6c 65 24 44 69 72  |"<WhackAMole$Dir|
00002ee0  3e 2e 53 6f 75 6e 64 53  79 73 2e 52 65 73 6f 75  |>.SoundSys.Resou|
00002ef0  72 63 65 73 2e 4d 6f 6c  65 44 61 74 61 22 0d 15  |rces.MoleData"..|
00002f00  b8 0a cf 23 68 25 3d 36  0d 15 c2 0b d5 23 68 25  |...#h%=6.....#h%|
00002f10  2c 49 24 0d 15 cc 08 d9  23 68 25 0d 15 d6 0c 73  |,I$.....#h%....s|
00002f20  6f 75 6e 64 25 3d b9 0d  15 e0 05 cd 0d 15 ea 0e  |ound%=..........|
00002f30  f2 73 6f 75 6e 64 69 6e  69 74 0d 15 f4 05 e1 0d  |.soundinit......|
00002f40  15 fe 05 3a 0d 16 08 28  dd 20 f2 73 65 74 5f 69  |...:...(. .set_i|
00002f50  63 6f 6e 5f 73 74 72 69  6e 67 28 77 69 6e 64 6f  |con_string(windo|
00002f60  77 25 2c 69 63 6f 6e 25  2c 61 24 29 0d 16 12 23  |w%,icon%,a$)...#|
00002f70  24 a4 73 74 72 69 6e 67  5f 61 64 64 72 28 77 69  |$.string_addr(wi|
00002f80  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 3d 61 24 0d  |ndow%,icon%)=a$.|
00002f90  16 1c 1d e7 20 61 24 3d  22 6d 6f 6c 65 32 22 20  |.... a$="mole2" |
00002fa0  80 20 73 6f 75 6e 64 25  3d b9 20 8c 0d 16 26 0f  |. sound%=. ...&.|
00002fb0  c8 a1 20 32 2c 22 48 69  74 21 22 0d 16 30 11 d4  |.. 2,"Hit!"..0..|
00002fc0  20 32 2c 2d 31 35 2c 35  33 2c 32 30 0d 16 3a 05  | 2,-15,53,20..:.|
00002fd0  cc 0d 16 44 05 cd 0d 16  4e 1f f2 75 70 64 61 74  |...D....N..updat|
00002fe0  65 5f 69 63 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |e_icon(window%,i|
00002ff0  63 6f 6e 25 29 0d 16 58  05 e1 0d 16 62 05 3a 0d  |con%)..X....b.:.|
00003000  16 6c 0b dd 20 f2 69 6e  69 74 0d 16 76 39 de 20  |.l.. .init..v9. |
00003010  62 25 20 32 30 30 30 2c  77 73 25 20 32 30 30 30  |b% 2000,ws% 2000|
00003020  2c 6d 65 6e 73 70 63 25  20 31 30 30 30 2c 20 74  |,menspc% 1000, t|
00003030  65 6d 70 25 20 33 32 2c  20 63 68 61 70 70 79 25  |emp% 32, chappy%|
00003040  20 36 34 0d 16 80 13 77  73 65 6e 64 25 3d 77 73  | 64....wsend%=ws|
00003050  25 2b 32 30 30 30 0d 16  8a 0b 71 75 69 74 25 3d  |%+2000....quit%=|
00003060  a3 0d 16 94 0e f2 73 6f  75 6e 64 69 6e 69 74 0d  |......soundinit.|
00003070  16 9e 13 f2 6c 6f 61 64  5f 74 65 6d 70 6c 61 74  |....load_templat|
00003080  65 73 0d 16 a8 0e f2 6d  61 69 6e 5f 6d 65 6e 75  |es.....main_menu|
00003090  0d 16 b2 1e f2 61 74 74  61 63 68 28 6d 61 69 6e  |.....attach(main|
000030a0  6d 65 6e 75 25 2c 30 2c  69 6e 66 6f 25 29 0d 16  |menu%,0,info%)..|
000030b0  bc 26 f2 73 65 74 5f 69  63 6f 6e 5f 73 74 72 69  |.&.set_icon_stri|
000030c0  6e 67 28 69 6e 66 6f 25  2c 37 2c 76 65 72 73 69  |ng(info%,7,versi|
000030d0  6f 6e 24 29 0d 16 c6 05  e1 0d 16 d0 05 3a 0d 16  |on$).........:..|
000030e0  da 10 dd 20 f2 6d 61 69  6e 5f 6d 65 6e 75 0d 16  |... .main_menu..|
000030f0  e4 08 f7 20 2b 31 0d 16  ee 35 dc 20 57 68 61 63  |... +1...5. Whac|
00003100  6b 2d 41 2d 4d 6f 6c 65  2c 49 6e 66 6f 2c 53 6f  |k-A-Mole,Info,So|
00003110  75 6e 64 20 4f 6e 2f 4f  66 66 2c 53 6f 75 6e 64  |und On/Off,Sound|
00003120  20 44 69 72 2c 51 75 69  74 2c 2a 0d 16 f8 18 6d  | Dir,Quit,*....m|
00003130  61 69 6e 6d 65 6e 75 25  3d a4 6d 61 6b 65 5f 6d  |ainmenu%=.make_m|
00003140  65 6e 75 0d 17 02 05 e1  0d 17 0c 05 3a 0d 17 16  |enu.........:...|
00003150  10 dd 20 f2 6d 65 6e 75  63 6c 69 63 6b 0d 17 20  |.. .menuclick.. |
00003160  08 ea 20 63 25 0d 17 2a  0d 63 25 3d 62 25 2b 39  |.. c%..*.c%=b%+9|
00003170  30 30 0d 17 34 20 c8 99  20 22 57 69 6d 70 5f 47  |00..4 .. "Wimp_G|
00003180  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00003190  63 25 0d 17 3e 13 61 64  6a 25 3d 28 63 25 21 38  |c%..>.adj%=(c%!8|
000031a0  20 80 20 31 29 0d 17 48  28 c8 99 20 22 57 69 6d  | . 1)..H(.. "Wim|
000031b0  70 5f 44 65 63 6f 64 65  4d 65 6e 75 22 2c 2c 74  |p_DecodeMenu",,t|
000031c0  6f 70 6d 65 6e 75 25 2c  62 25 2c 63 25 0d 17 52  |opmenu%,b%,c%..R|
000031d0  0c c8 8e 20 24 63 25 20  ca 0d 17 5c 22 20 c9 20  |... $c% ...\" . |
000031e0  22 53 6f 75 6e 64 20 4f  6e 2f 4f 66 66 22 3a f2  |"Sound On/Off":.|
000031f0  73 6f 75 6e 64 75 70 64  61 74 65 0d 17 66 42 20  |soundupdate..fB |
00003200  c9 20 22 53 6f 75 6e 64  20 44 69 72 22 3a 2a 46  |. "Sound Dir":*F|
00003210  69 6c 65 72 5f 4f 70 65  6e 44 69 72 20 3c 57 68  |iler_OpenDir <Wh|
00003220  61 63 6b 41 4d 6f 6c 65  24 44 69 72 3e 2e 53 6f  |ackAMole$Dir>.So|
00003230  75 6e 64 53 79 73 2e 53  6f 75 6e 64 73 0d 17 70  |undSys.Sounds..p|
00003240  17 20 c9 20 22 51 75 69  74 22 3a f2 73 68 75 74  |. . "Quit":.shut|
00003250  64 6f 77 6e 0d 17 7a 05  cb 0d 17 84 2a e7 20 61  |down..z.....*. a|
00003260  64 6a 25 20 f2 73 68 6f  77 6d 65 6e 75 28 74 6f  |dj% .showmenu(to|
00003270  70 6d 65 6e 75 25 2c 74  6f 70 78 25 2c 74 6f 70  |pmenu%,topx%,top|
00003280  79 25 29 0d 17 8e 05 e1  0d 17 98 05 3a 0d 17 a2  |y%).........:...|
00003290  0e dd f2 73 68 75 74 64  6f 77 6e 0d 17 ac 10 2a  |...shutdown....*|
000032a0  52 4d 4b 69 6c 6c 20 48  69 74 21 0d 17 b6 0b 71  |RMKill Hit!....q|
000032b0  75 69 74 25 3d b9 0d 17  c0 05 e1 0d 17 ca 07 3a  |uit%=..........:|
000032c0  20 20 0d ff                                       |  ..|
000032c4