� >WavePlayer:!RunImage
(� � 1997, Matthew Wilson of Paradise
(6��,"Error whilst initialising - "+�$+" @ "+�(�)
</ș&400C0,200,&4B534154,"Wave Player"�,task%
P&quit%=�:pollfast%=0:quit_finish%=�
Z0script_file%=0:script_adding%=�:script_np%=0
dvidc_tv=1000000
n vidc_vga=1000000*25175/24000
xvidc_ms=1500000
�ispc%=4*1024
��w_warn%(2)
��sicon%64,caret%64
�0�q%256,temp1%8*1024,temp2%8*1024,icons%ispc%
�
!caret%=0
��init_iconbar
��init_sprites
��init_windows
��init_slider
��init_volume
��init_code

�init_menus

�init_vidc

"ș&10�env$

,I%=�env$,"-file")

6�I%=0�I%=�env$,"-auto")

@
�I%>0�

J#ș&8,5,�env$,I%+6)�type%,,load%

T
�type%=2�

^q%!40=&1000

h�

rq%!40=(load%�&FFF00)>>8

|�

�#�wimp_message_load(�env$,I%+6))

��

� �wind_opencentre(wind_info%)

�+ș&400D4,,wind_info%,temp1%!4,temp1%!16

�ș&42�info_c%

�info_c%+=1000

�ș&406C2

�*Set WavePlayer$Running yes

���error
�
�pollfast%>0�
&pollfast%-=1
0ș&400C7,,q%�R%
:�
D(�code_status%=0�delay%=5�delay%=1000
Nș&42�time%
X@�time%>info_c%� info_c%>0�info_c%=-1:�wind_close(wind_info%)
b ș&400E1,,q%,time%+delay%�R%
l�
v�slider_np%>0�
�slider_np%-=1
�"�slider_np%=0��code_action(-1)
��
��setbuff_np%>0�
�setbuff_np%-=1:pollfast%+=1
��setbuff_np%=0�
�$A%=code_buffsize%:�code_setbuff%
��code_final%
��code_init%
��
��
��script_np%>0�
�script_np%-=1:pollfast%+=1
�script_np%=0�
�misc_close(script_file%)
script_adding%=�
 ����(-1)
*'*Filer_Run <Wimp$ScrapDir>.WPScript
4�
>�
R	ȎR%�
\�0
f5�code_status%=0� slider_np%=0��slider_d%��vol_d%�
popx%=slider_px%�2
z*pos%=�(code_readpos%)+code_counterpos%
�slider_px%=pos%/slider_s
�npx%=slider_px%�2
�+�opx%<>npx%��icon_update(wind_cont%,12)
��slider_px%>slider_sx%�
�)�quit_finish%�quit%=���code_action(3)
��
��
�+�vol_d%�(time%� 3)=0��volume_dragset(�)
��1:�wimp_redraw(!q%)
��2:ș&400C5,,q%
��3
�ș&400C6,,q%
3�!q%=wind_buff%�!q%=wind_form%��code_action(99)
"�!q%=wind_vol%�!q%=wind_cont%�
!�icon_select(wind_cont%,14,0)
$�wind_close(wind_vol%)
.�
8&�!q%=wind_vidc%��icon_restorecaret
L#�4:�!q%=wind_info%�ș&400C6,,q%
V�6
`�q%!8=2�
j�wimp_makemenu(q%!12,q%!16)
t�
~!�wimp_click(q%!12,q%!16,q%!8)
��
��7:�wimp_enddrag
��8
��!q%=wind_vidc%� q%!4=7�
�wind%=wind_vidc%
��wimp_clickvidc(-1,4)
��
��9:�wimp_menureply
��17,18:�wimp_message(q%!16)
��
�
�quit%

skip%=�

�skip%=�
(�skip%�
2�code_action(5)
<�code_final%
Fș&1E,7,,code%
P�misc_close(script_file%)
Z�quit_finish%=-2�
dș&42682
n�
xF%=�("WavePlayer:!Options")
�
�#F%,vidc
��#F%
��
�*Unset WavePlayer$Running
��
���init_iconbar
temp1%!0=-1
temp1%!4=0
temp1%!8=0
"temp1%!12=34*2
,temp1%!16=17*4
6&temp1%!20=(&17<<24)�(3<<12)�%11010
@!$(temp1%+24)="!waveplay"+�(0)
Jș&400C2,,temp1%�ibar1%
^temp1%!0=-1
htemp1%!4=0
rtemp1%!8=0
|temp1%!12=18*2
�temp1%!16=17*4
�&temp1%!20=(&17<<24)�(3<<12)�%11010
�$(temp1%+24)="volume!"+�(0)
�ș&400C2,,temp1%�ibar2%
��
���init_sprites
�	�len%
�(ș&8,5,"WavePlayer:Sprites"�,,,,len%
��sprs%len%+16
�sprs%!0=len%+16
sprs%!8=16
)ș&2E,&10A,sprs%,"WavePlayer:Sprites"
�
D+��init_loadwindow(name$,�winhan%,sprs%)
N0ș&400DB,,temp1%,free%,end%,-1,name$�,,free%
Xtemp1%!64=sprs%
bș&400C1,,temp1%�winhan%
l�
���init_windows
��N%
�$ș&400D9,,"WavePlayer:Templates"
�!free%=icons%:end%=free%+ispc%
�1�init_loadwindow("controls",wind_cont%,sprs%)
�4�init_loadwindow("opts_buffer",wind_buff%,sprs%)
�4�init_loadwindow("opts_format",wind_form%,sprs%)
�-�init_loadwindow("info",wind_info%,sprs%)
�.�init_loadwindow("volume",wind_vol%,sprs%)
�2�init_loadwindow("vidcspeed",wind_vidc%,sprs%)
/�init_loadwindow("warn_1",w_warn%(0),sprs%)
/�init_loadwindow("warn_2",w_warn%(1),sprs%)
/�init_loadwindow("warn_3",w_warn%(2),sprs%)
*ș&400DA
4�
\��init_menus
f	�len%
p&ș&8,5,"WavePlayer:Menus"�,,,,len%
z�menus%len%
��menus%<=0�
�/���,"Not enough memory to start up (menus)"
��
�&ș&8,&FF,"WavePlayer:Menus",menus%
�menu_ib%=menus%+0
�menu_bits%=menus%+256
�menu_type%=menus%+512
��
���init_slider
�#sicon%!0=wind_cont%:sicon%!4=12
	ș&400CE,,sicon%
	slider_x%=sicon%!8
	slider_y%=sicon%!20-32
	$%slider_sx%=sicon%!16-slider_x%-64
	.slider_px%=0
	8slider_d%=�
	Bslider_s=1
	Lslider_np%=0
	`"temp1%!0=wind_cont%:temp1%!4=7
	jș&400C4,,temp1%
	t�
	���init_volume
	��V%
	�!temp1%!0=wind_vol%:temp1%!4=2
	�ș&400CE,,temp1%
	�vol_x%=temp1%!8
	�vol_y%=temp1%!12
	�!vol_size%=temp1%!20-vol_y%-48
	�vol_d%=�
	�!temp1%!0=wind_vol%:temp1%!4=1
ș&400C4,,temp1%

�
2��init_code
<	�len%
F%ș&8,5,"WavePlayer:Code"�,,,,len%
Pș&1E,6,,,len%�,,code%
Z$ș&8,&FF,"WavePlayer:Code",code%
dcode_init%=code%+0
ncode_final%=code%+4
xcode_open%=code%+8
�code_close%=code%+12
�code_restart%=code%+16
�code_pause%=code%+20
�code_unpause%=code%+24
�code_setbuff%=code%+28
�code_readpos%=code%+32
�code_status%=-1
�code_loaded%=�
�code_file%=0
�code_buffsize%=63*1024
�setbuff_np%=0
��code_action(5)
$A%=code_buffsize%:�code_setbuff%
�code_init%
�
@��init_vidc
J�F%
TF%=�("WavePlayer:!Options")
^
�F%=0�
hF%=�("WavePlayer:!Options")
rvidc=1000000
|
�#F%,vidc
��
�
�#F%,vidc
��
��#F%
�Ȏvidc�
�)�vidc_tv:�icon_select(wind_vidc%,2,1)
�*�vidc_vga:�icon_select(wind_vidc%,3,1)
�)�vidc_ms:�icon_select(wind_vidc%,4,1)
�
� �icon_select(wind_vidc%,5,1)
�4�icon_text(wind_vidc%,7,�(�(.5+24000*vidc/1E6)))
��
��
:ݤmisc_findfile(dir$,�N%)
D�R%
N1ș&2000C,10,dir$,temp1%,1,N%,256,"*"�,,,R%,N%
X�R%<>1�=""
b*�temp1%!16<>1�=�misc_findfile(dir$,N%)
l=�misc_str(temp1%+20)
���misc_poll(�R%)
�
�more%
�ș&400C7,,temp2%�R%
�	ȎR%�
��1
�ș&400C8,,temp2%�more%
�ȕmore%
�ș&400CA,,temp2%�more%
��
��17,18:�temp2%!16=0�quit%=�
��

�

*ݤmisc_str(adr%)

4	�str$

>ș256,adr%�str$

H	=str$

pݤmisc_leaf(fn$)

z�I%

�ȕ�fn$,".")>0��fn$,":")>0

�%I%=�fn$,"."):�I%>0�fn$=�fn$,I%+1)

�%I%=�fn$,":"):�I%>0�fn$=�fn$,I%+1)

��

�I%=�fn$," -")

��I%>0�fn$=�fn$,I%)

�=fn$

�ݤmisc_numstr(num)

��str$,I%

�str$=�(num):I%=�str$,".")
�I%��str$,I%,1)="�"
	=str$
8��misc_close(�handle%)
B"�handle%<>0�ș&2000D,0,handle%
L
handle%=0
V�
~ݤmisc_realpath(path$)
��F%,npath$
�
?temp1%=0
�,ș&29,&25,path$,temp1%,,,255�,,npath$;F%
��F%� 1�npath$=path$
�=npath$
�ݤmisc_path(fn$)
�
�I%,F$
�
F$=fn$
��
I%=�fn$,".")

�I%>0�fn$=�fn$,I%+1)
	�I%=0
=�F$,�(F$)-�(fn$)-1)
Z��wind_opentop(winhan%)
d!temp1%=winhan%
nș&400CB,,temp1%
xtemp1%!28=-1
�ș&400C5,,temp1%
��
���wind_opencentre(winhan%)
��x%,a%,y%,b%,sx%,sy%
�ș&35,�,4�,,a%
�ș&35,�,5�,,b%
�ș&35,�,11�,,x%
�ș&35,�,12�,,y%
�x%=x%<<a%:y%=y%<<b%
�!temp1%=winhan%
ș&400CB,,temp1%
sx%=temp1%!12-temp1%!4
sy%=temp1%!16-temp1%!8
"+temp1%!4=(x%-sx%)/2:temp1%!8=(y%-sy%)/2
,-temp1%!12=(x%+sx%)/2:temp1%!16=(y%+sy%)/2
6temp1%!28=-1
@ș&400C5,,temp1%
J�
r��wind_openhere(winhan%)
|�x%,y%,b%,sx%,sy%
�ȗx%,y%,b%
�!temp1%=winhan%
�ș&400CB,,temp1%
�sx%=(temp1%!12-temp1%!4)
�sy%=(temp1%!16-temp1%!8)
�temp1%!4=x%-sx%/2
�temp1%!8=y%-sy%*2/3
�temp1%!12=x%+sx%/2
�temp1%!16=y%+sy%/3
�temp1%!28=-1
�ș&400C5,,temp1%
��
��wind_openover(old%,new%)
&!temp1%=old%
0ș&400CB,,temp1%
:ș&400C6,,temp1%
D!temp1%=new%
Nș&400C5,,temp1%
X�
���wind_close(winhan%)
�!temp1%=winhan%
�ș&400C6,,temp1%
��
�$��icon_select(win%,icon%,state%)
��eor%,bic%
�
bic%=1
�eor%=-(state%<>0)
�state%=2�bic%=0:eor%=1
temp1%!0=win%
temp1%!4=icon%
 temp1%!8=eor%<<21
*temp1%!12=bic%<<21
4ș&400CD,,temp1%
>�
fݤicon_select(win%,icon%)
p�state%
ztemp1%!0=win%
�temp1%!4=icon%
�ș&400CE,,temp1%
�=(temp1%!24�(1<<21))>>21
�!��icon_text(win%,icon%,text$)
�temp1%!0=win%
�temp1%!4=icon%
�ș&400CE,,temp1%
��(temp1%!24�(1<<8))=0��
�$$(temp1%!28)=�text$,temp1%!36-1)
temp1%!0=win%
temp1%!4=icon%
temp1%!8=0
$temp1%!12=0
.ș&400CD,,temp1%
8�
`ݤicon_text(win%,icon%)
jtemp1%!0=win%
ttemp1%!4=icon%
~ș&400CE,,temp1%
�=�misc_str(temp1%!28)
�ݤicon_eval(win%,icon%)
�
�str$,num
�temp1%!0=win%
�temp1%!4=icon%
�ș&400CE,,temp1%
�str$=�misc_str(temp1%!28)
��
���:=0
num=�(str$)

��
=num
<'��icon_val(win%,icon%,val$,update%)
Ftemp1%!0=win%
Ptemp1%!4=icon%
Zș&400CE,,temp1%
d�(temp1%!24�(1<<8))=0��
n$(temp1%!32)=val$
x�update%=0��
�temp1%!0=win%
�temp1%!4=icon%
�temp1%!8=0
�temp1%!12=0
�ș&400CD,,temp1%
��
���icon_update(win%,icon%)
�temp1%!0=win%
�temp1%!4=icon%
temp1%!8=0
temp1%!12=0
ș&400CD,,temp1%
"�
J��icon_clearall(win%)
T�N%
^$ș&400D6,win%,temp2%,1<<21,1<<21
h
N%=temp2%
rȕ!N%>-1
|�icon_select(win%,!N%,0)
�	N%+=4
��
��
���icon_selectall(win%)
��N%
�$ș&400D6,win%,temp2%,1<<21,0<<21
�
N%=temp2%
�ȕ!N%>-1
��icon_select(win%,!N%,1)
�	N%+=4
�
�
:ݤicon_nextsel(win%)
D$ș&400D6,win%,temp2%,1<<21,1<<21
N=!temp2%
v;��icon_pos(win%,icon%,�minx%,�miny%,�maxx%,�maxy%,loc%)
�
�x%,y%
��loc%=0�
�loc%=temp1%:loc%!0=win%
�ș&400CB,,loc%
��
�(x%=loc%!4-loc%!20:y%=loc%!16-loc%!24
�temp1%!0=win%
�temp1%!4=icon%
�ș&400CE,,temp1%
�temp1%!8+=x%:temp1%!16+=x%
�temp1%!12+=y%:temp1%!20+=y%
�"minx%=temp1%!8:miny%=temp1%!12
�#maxx%=temp1%!16:maxy%=temp1%!20
�
*$��icon_setcaret(win%,icon%,pos%)
4�pos%<0�
> temp1%!0=win%:temp1%!4=icon%
Hș&400CE,,temp1%
R pos%=�(�misc_str(temp1%!28))
\�
f%ș&400D2,win%,icon%,-1,-1,-1,pos%
p�
�&��icon_storecaret(win%,icon%,pos%)
��pos%<0�
� temp1%!0=win%:temp1%!4=icon%
�ș&400CE,,temp1%
� pos%=�(�misc_str(temp1%!28))
��
�ș&400D3,,caret%
�%ș&400D2,win%,icon%,-1,-1,-1,pos%
��
��icon_restorecaret
R�caret%!0<>0�ș&600D2,caret%!0,caret%!4,caret%!8,caret%!12,caret%!16,caret%!20
$caret%!0=0
.�
jݤwarn_message(messcode%)
t2�type%,s1%,s2%,s3%,s1$,s2$,s3$,mess$,ret%,esc%
~Ȏmesscode%�
��0
�Xmess$="Drag a sample file or a script file to the Wave Player icon to begin playing"
�s1$="OK":s1%=�"O"
�type%=1:ret%=1:esc%=1
��1
Ămess$="There is a sample still playing - are you sure you want to quit, or do you want to wait until the sample has finished?"
�s1$="Continue":s1%=�"C"
�s2$="Wait":s2%=�"W"
�s3$="Quit":s3%=�"Q"
�type%=3:ret%=1:esc%=2
�2

�mess$="This storage media is very slow, and so playing the sample could halt the whole machine. Hold down Control and Escape if this happens"
s1$="Stop":s1%=�"S"
s2$="Play":s2%=�"P"
(type%=2:ret%=1:esc%=1
<�3
F�mess$="StrongHelp has been located, but the help files have not been installed, or have been deleted. Run the help file installation program provided in the 'Help' directory."
Ps1$="OK":s1%=�"O"
Ztype%=1:ret%=1:esc%=1
n�4
x�mess$="StrongHelp cannot be located, but the help files have been installed. Try opening the filer window containing the application '!StrongHlp'."
�s1$="OK":s1%=�"O"
�type%=1:ret%=1:esc%=1
��5
��mess$="The installation of the StrongHelp help files has been reported to have failed or aborted. Try re-running 'Install' provided in the 'Help' directory."
�s1$="OK":s1%=�"O"
�type%=1:ret%=1:esc%=1
��6
ܥmess$="The installation of the StrongHelp help files has previously failed. However, the help files seem to be present - do you want to try to start StrongHelp?"
�s1$="Start":s1%=�"S"
�s2$="Cancel":s2%=�"C"
�type%=2:ret%=1:esc%=2
�7
�mess$="This storage media may be too slow, and so playing the sample could halt the whole machine, or make it very slow. Hold down Control and Escape if this happens"
"s1$="Stop":s1%=�"S"
,s2$="Play":s2%=�"P"
6type%=2:ret%=1:esc%=1
J�8
TLmess$="To access the help, please look in the directory 'Help.TextHelp'"
^s1$="OK":s1%=�"O"
htype%=1:ret%=1:esc%=1
|�9
�=mess$="This sample does not appear to be "+type$+" file."
�s1$="OK":s1%=�"O"
�type%=1:ret%=1:esc%=1
��254
�+mess$="External error - "+�$+" @ "+�(�)
�/s1$="Continue":s1%=�"C":s2$="Quit":s2%=�"Q"
�type%=2:ret%=1:esc%=2
��255
�*mess$="Program error - "+�$+" @ "+�(�)
�/s1$="Continue":s1%=�"C":s2$="Quit":s2%=�"Q"
�type%=2:ret%=1:esc%=2
��
Ȏtype%�
(�1:=�warn_1(mess$,s1$,s1%,ret%,esc%)
0�2:=�warn_2(mess$,s1$,s1%,s2$,s2%,ret%,esc%)
&8�3:=�warn_3(mess$,s1$,s1%,s2$,s2%,s3$,s3%,ret%,esc%)
0�
:=0
b$ݤwarn_1(str$,s1$,s1%,ret%,esc%)
l
�W%,R%,S%
vW%=w_warn%(0)
��icon_text(W%,0,str$)
��icon_text(W%,1,s1$)
��S%=15�1�-1
��misc_poll(R%)
��
��wind_opencentre(W%)
�ș&400D3,,temp1%
�ș&400D2,W%,-1,20,20,-1,-1
��
��misc_poll(R%)
�3�(R%=6� temp2%!12=W%� temp2%!8<>2)�S%=temp2%!16
�%�(R%=8�(temp2%!24� 223)=s1%)�S%=1
�"�(R%=8� temp2%!24=&0D)�S%=ret%
"�(R%=8� temp2%!24=&1B)�S%=esc%
�S%<0�S%=0
"�S%=0�(R%=2�R%=3�R%=6�R%=8)��7
 
�S%�quit%
*
�quit%�=0
4Eș&400D2,temp1%!0,temp1%!4,temp1%!8,temp1%!12,temp1%!16,temp1%!20
> �R%<>6��icon_select(W%,S%,1)
H�wind_close(W%)
R�icon_select(W%,S%,0)
\=S%
�,ݤwarn_2(str$,s1$,s1%,s2$,s2%,ret%,esc%)
�
�W%,R%,S%
�W%=w_warn%(1)
��icon_text(W%,0,str$)
��icon_text(W%,1,s1$)
��icon_text(W%,2,s2$)
��S%=15�1�-1
��misc_poll(R%)
��
��wind_opencentre(W%)
�ș&400D3,,temp1%
�ș&400D2,W%,-1,20,20,-1,-1
��
�misc_poll(R%)
3�(R%=6� temp2%!12=W%� temp2%!8<>2)�S%=temp2%!16
%�(R%=8�(temp2%!24� 223)=s1%)�S%=1
$%�(R%=8�(temp2%!24� 223)=s2%)�S%=2
."�(R%=8� temp2%!24=&0D)�S%=ret%
8"�(R%=8� temp2%!24=&1B)�S%=esc%
B�S%<0�S%=0
L"�S%=0�(R%=2�R%=3�R%=6�R%=8)��7
V�(-99)��(-2)��
`
�S%�quit%
j
�quit%�=0
tEș&400D2,temp1%!0,temp1%!4,temp1%!8,temp1%!12,temp1%!16,temp1%!20
~ �R%<>6��icon_select(W%,S%,1)
��wind_close(W%)
��icon_select(W%,S%,0)
�=S%
�4ݤwarn_3(str$,s1$,s1%,s2$,s2%,s3$,s3%,ret%,esc%)
�
�W%,R%,S%
�W%=w_warn%(2)
��icon_text(W%,0,str$)
��icon_text(W%,1,s1$)
��icon_text(W%,2,s2$)
�icon_text(W%,3,s3$)

�S%=15�1�-1
�misc_poll(R%)
�
(�wind_opencentre(W%)
2ș&400D3,,temp1%
<ș&400D2,W%,-1,20,20,-1,-1
F�
P�misc_poll(R%)
Z3�(R%=6� temp2%!12=W%� temp2%!8<>2)�S%=temp2%!16
d%�(R%=8�(temp2%!24� 223)=s1%)�S%=1
n%�(R%=8�(temp2%!24� 223)=s2%)�S%=2
x%�(R%=8�(temp2%!24� 223)=s3%)�S%=3
�"�(R%=8� temp2%!24=&0D)�S%=ret%
�"�(R%=8� temp2%!24=&1B)�S%=esc%
��S%<0�S%=0
�"�S%=0�(R%=2�R%=3�R%=6�R%=8)��7
�
�S%�quit%
�
�quit%�=0
�Eș&400D2,temp1%!0,temp1%!4,temp1%!8,temp1%!12,temp1%!16,temp1%!20
� �R%<>6��icon_select(W%,S%,1)
��wind_close(W%)
��icon_select(W%,S%,0)
�=S%
"*��drag_solid(win%,icon%,sprite$,sprs%)
,
�x%,y%
@temp1%!0=win%
Jș&400CB,,temp1%
T0x%=temp1%!4-temp1%!20:y%=temp1%!16-temp1%!24
^temp1%!4=icon%
hș&400CE,,temp1%
rtemp1%!8+=x%:temp1%!16+=x%
|temp1%!12+=y%:temp1%!20+=y%
�temp1%!24=0:temp1%!28=0
�+temp1%!32=&7FFFFFFF:temp1%!36=&7FFFFFFF
�ș&6,1,1
�1ș&42400,&01,sprs%,sprite$,temp1%+8,temp1%+24
��
�?��drag_slider(win%,parent%,cx%,cy%,csx%,csy%,sprite$,sprs%)
��x%,y%,px1%,py1%,px2%,py2%
�temp1%!0=win%
�ș&400CB,,temp1%
 0x%=temp1%!4-temp1%!20:y%=temp1%!16-temp1%!24
 temp1%!4=parent%
 &ș&400CE,,temp1%
 0*px1%=temp1%!8+x%+4:py1%=temp1%!12+y%+4
 :+px2%=temp1%!16+x%-4:py2%=temp1%!20+y%-4
 N)temp1%!8=x%+cx%:temp1%!16=x%+cx%+csx%
 X*temp1%!12=y%+cy%:temp1%!20=y%+cy%+csy%
 b!temp1%!24=px1%:temp1%!28=py1%
 l!temp1%!32=px2%:temp1%!36=py2%
 �ș&6,1,1
 �1ș&42400,&20,sprs%,sprite$,temp1%+8,temp1%+24
 ��
 ���wimp_redraw(wind%)
 ��more%,draw%
 �ș&400C8,,q%�more%
!�wind%=wind_cont%�
!draw%=�slider_d%
!!temp1%!0=slider_px%+slider_x%
! temp1%!4=slider_y%
!*temp1%!8=temp1%!0+64
!4temp1%!12=temp1%!4+32
!>temp1%!16=&102
!Htemp1%!20=temp1%+64
!Rtemp1%!24=sprs%
!\temp1%!28=12
!f$(temp1%+64)="slider"+�(0)
!p�
!z�wind%=wind_vol%�
!�draw%=�vol_d%
!�temp1%!0=vol_x%
!�temp1%!4=vol_y%+vol_pos
!�temp1%!8=vol_x%+32
!�temp1%!12=vol_y%+vol_pos+48
!�temp1%!16=&102
!�temp1%!20=temp1%+64
!�temp1%!24=sprs%
!�temp1%!28=12
!�$(temp1%+64)="vslider"+�(0)
!��
!�ȕmore%
"�draw%�ș&400E2,,temp1%
"ș&400CA,,q%�more%
"�
"$�
"L#��wimp_click(wind%,icon%,butt%)
"VȎwind%�
"`�-2:�wimp_clickibar(icon%)
"j,�wind_cont%:�wimp_clickcont(icon%,butt%)
"t,�wind_buff%:�wimp_clickbuff(icon%,butt%)
"~,�wind_form%:�wimp_clickform(icon%,butt%)
"�"�wind_info%:�wind_close(wind%)
"�*�wind_vol%:�wimp_clickvol(icon%,butt%)
"�,�wind_vidc%:�wimp_clickvidc(icon%,butt%)
"��
"��
"���wimp_clickibar(icon%)
"�
�x%,y%
"�Ȏicon%�
"��ibar1%
#�code_loaded%�
#
�wind_opentop(wind_cont%)
#�
#W%=�warn_message(0)
#(�
#2�ibar2%
#<�volume_getstate
#F&!temp1%=wind_vol%:ș&400CB,,temp1%
#P"x%=q%!0-(temp1%!12-temp1%!4)/2
#Zy%=96+(temp1%!16-temp1%!8)
#dș&400D4,,wind_vol%,x%,y%
#n�
#x�
#�!��wimp_clickcont(icon%,butt%)
#��x%,sx%,sy%,old%
#��wind_opentop(wind%)
#�Ȏicon%�
#� �0,3,4,5:�code_action(icon%)
#��1
#�-�slider_px%>=8�slider_px%-=8�slider_px%=0
#��icon_update(wind%,12)
#�slider_np%=10
$�2
$�slider_px%<=slider_sx%-8�
$"slider_px%+=8
$,�
$6slider_px%=slider_sx%
$@�
$J�icon_update(wind%,12)
$Tslider_np%=10
$h	�6,12
$r�code_status%=4�
$|old%=slider_px%
$��code_action(3)
$�slider_px%=old%
$��
$�temp1%!0=wind%
$�ș&400CB,,temp1%
$�)x%=q%!0-temp1%!4-slider_px%-slider_x%
$��x%<0�x%>=64�
$�slider_px%+=x%-32
$��slider_px%<0�slider_px%=0
$�0�slider_px%>slider_sx%�slider_px%=slider_sx%
$��
$��icon_update(wind%,12)
$�N�drag_slider(wind%,6,slider_x%+slider_px%,slider_y%,64,32,"pslider",sprs%)
%slider_d%=�
%slider_dx%=q%!0
%&�14
%0�icon_select(wind%,14)�
%:�wind_close(wind_vol%)
%D�icon_select(wind%,14,0)
%N�
%X&!temp1%=wind_vol%:ș&400CB,,temp1%
%b"!temp2%=wind%:ș&400CB,,temp2%
%l1sx%=temp1%!12-temp1%!4:sy%=temp1%!16-temp1%!8
%v/temp1%!4=temp2%!12+2:temp1%!8=temp2%!16-sy%
%�.temp1%!12=temp1%!4+sx%:temp1%!16=temp2%!16
%�temp1%!28=-1
%�ș&400C5,,temp1%
%��icon_select(wind%,14,1)
%��
%��
%��
%�!��wimp_clickbuff(icon%,butt%)
%�-�@%,step%,time%,himem%,nt%,speed,x%,y%,z%
%�Ȏicon%�
&�6
&step%=-1+7*�(-1)
&3code_buffsize%=1024*(step%+code_buffsize%�1024)
& 0�code_buffsize%<8*1024�code_buffsize%=8*1024
&*@%="+f10.3"
&49�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
&>setbuff_np%=2
&R�7
&\step%=1-7*�(-1)
&f3code_buffsize%=1024*(step%+code_buffsize%�1024)
&p@%="+f10.3"
&z9�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
&�setbuff_np%=2
&��8
&�code_buffsize%=vidc/D%
&�,�C%�%1000�code_buffsize%+=code_buffsize%
&�,�C%�%0001�code_buffsize%+=code_buffsize%
&�@%="+f10.3"
&�9�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
&�setbuff_np%=2
&��9
&�code_buffsize%=2*vidc/D%
&�,�C%�%1000�code_buffsize%+=code_buffsize%
',�C%�%0001�code_buffsize%+=code_buffsize%
'@%="+f10.3"
'9�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
'$setbuff_np%=2
'8
�10,11
'B�icon%=10�time%=10�time%=50
'Lhimem%=�
'V�=himem%+130*1024
'`�=0
'j.ș&C,3,code_file%,himem%,128*1024,0�,,,nt%
't�=0��=1
'~speed=�/(128*1024-nt%)
'��=himem%
'�*code_buffsize%=256*((time%/speed)�256)
'�@%="+f10.3"
'�9�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
'�setbuff_np%=2
'�-�16:�wind_openover(wind_buff%,wind_form%)
'��17
'��wind_close(wind_form%)
'��wind_close(wind_buff%)
'��code_action(99)
'��18:�code_beginplay(�)
(�19:�code_beginplay(�)
(�20
(%�icon_pos(wind%,20,z%,z%,x%,y%,0)
((ș&400D4,,menu_type%,x%,y%
(2menu_c%=menu_type%
(F�
(P�
(x!��wimp_clickform(icon%,butt%)
(��x%,y%,z%,step%
(�Ȏicon%�
(��6
(�$�icon_pos(wind%,6,z%,z%,x%,y%,0)
(�ș&400D4,,menu_bits%,x%,y%
(�menu_c%=menu_bits%
(��8,9
(�step%=1-7*�(-1)
(�D%-=(icon%*2-17)*step%
(��D%<10�D%=10
(��D%>200�D%=200
(�@%="+g10.9"
)(�icon_text(wind%,7,�(vidc�D%)+" Hz")
)
�10,11
)"!C%=(C%�%1011)�((icon%-10)<<2)
),(�icon_select(wind%,10,(icon%=10)� 1)
)6(�icon_select(wind%,11,(icon%=11)� 1)
)J
�12,13
)T!C%=(C%�%1101)�((icon%-12)<<1)
)^(�icon_select(wind%,12,(icon%=12)� 1)
)h(�icon_select(wind%,13,(icon%=13)� 1)
)|
�14,15
)�!C%=(C%�%1110)�((icon%-14)<<0)
)�(�icon_select(wind%,14,(icon%=14)� 1)
)�(�icon_select(wind%,15,(icon%=15)� 1)
)�-�16:�wind_openover(wind_form%,wind_buff%)
)��17
)��wind_close(wind_form%)
)��wind_close(wind_buff%)
)��code_action(99)
)��18:�code_beginplay(�)
)��19:�code_beginplay(�)
)��20
*%�icon_pos(wind%,20,z%,z%,x%,y%,0)
*ș&400D4,,menu_type%,x%,y%
*menu_c%=menu_type%
*0�
*:�
*b��wimp_clickvol(icon%,but%)
*lȎicon%�
*v�9
*��icon_select(wind%,9)�
*��volume_set
*��
*�ș&40180,1
*��
*�)�10:ș&40143,�icon_select(wind%,10)+1
*��
*��icon%<>2��
*��y%
*�temp1%!0=wind%
+ș&400CB,,temp1%
+$y%=q%!4-temp1%!16-vol_y%-vol_pos
+�y%<0�y%>=48�
+ vol_pos+=y%-24
+*�vol_pos<0�vol_pos=0
+4(�vol_pos>vol_size%�vol_pos=vol_size%
+>�
+H�icon_update(wind%,2)
+RF�drag_slider(wind%,0,vol_x%,vol_y%+vol_pos,32,48,"pvslider",sprs%)
+\vol_d%=�
+fvol_dy%=q%!4
+p�
+�!��wimp_clickvidc(icon%,butt%)
+�Ȏicon%�
+�&�2:vidc=vidc_tv:�icon_restorecaret
+�'�3:vidc=vidc_vga:�icon_restorecaret
+�&�4:vidc=vidc_ms:�icon_restorecaret
+��5
+�"vidc=�icon_eval(wind%,7)/0.024
+� �icon_storecaret(wind%,7,-1)
+��-1
+�"vidc=�icon_eval(wind%,7)/0.024
+��icon_restorecaret
,icon%=5
,�
,�icon_clearall(wind%)
,$�icon_select(wind%,icon%,1)
,.�
,V ��wimp_makemenu(wind%,icon%)
,`Ȏwind%�
,j�-2
,t"ș&400D4,,menu_ib%,q%!0-64,274
,~menu_c%=menu_ib%
,��wind_cont%
,��wind_buff%
,��wind_form%
,��
,��
,���wimp_enddrag
,��V%
,��slider_d%�
,�slider_d%=�
-ș&400CF,,temp1%
-
#slider_px%+=temp1%!0-slider_dx%
-�icon_update(wind_cont%,12)
-slider_np%=2
-(�
-<�vol_d%�
-Fvol_d%=�
-P�volume_dragset(�)
-Z�
-d�
-���wimp_menureply
-�Ȏmenu_c%�
-� �menu_ib%:�wimp_menureply_ib
-�$�menu_bits%:�wimp_menureply_bits
-�$�menu_type%:�wimp_menureply_type
-��
-��
-���wimp_menureply_ib
-�
Ȏ!q%�
.#�0:�wind_opencentre(wind_info%)
.�1:�help
.#�2:�wind_opencentre(wind_vidc%)
."�3:quit%=�wimp_prequit
.,�
.6�
.^��wimp_menureply_bits
.h�!q%=1�
.rC%=C%�%1000
.|&�icon_text(wind_form%,5,"16 bits")
.��
.�C%=C%�%0111
.�%�icon_text(wind_form%,5,"8 bits")
.��
.��
.���wimp_menureply_type
.�
�type$
.�
Ȏ!q%�
.�,�0:W%=�code_type_D3C:type$="an Armadeus"
.�*�1:W%=�code_type_ED0:type$="a DS Edit"
/=�2:W%=�code_type_CB5:type$="a Desktop Tracker or Tracker"
/*�3:W%=�code_type_FB1:type$="an MS WAV"
/-�4:W%=�code_type_38D:type$="a SuperSonic"
/&�
/0,�W%=���code_fillinfo�W%=�warn_message(9)
/:�
/b��wimp_message(mc%)
/l�shutdown%
/v
Ȏmc%�
/��0:quit%=�
/�+�3:�wimp_message_load(�misc_str(q%+44))
/��5
/�1�q%!40=&FB1�q%!40=&D3C�q%!40=&CB5�q%!40=&38D�
/�q%!12=q%!8
/�ș&400E7,17,q%,q%!4
/� �code_load(�misc_str(q%+44))
/��
/��q%!40=&0F0�
/�q%!12=q%!8
/�ș&400E7,17,q%,q%!4
/�(�wimp_message_load(�misc_str(q%+44))
/��
0�8
0shutdown%=q%!20
0 q%!12=q%!8
0*ș&400E7,17,q%,q%!4
04�wimp_prequit�
0>quit%=�
0H�shutdown%=0�ș&42682
0R�
0\.�quit_finish%� shutdown%=0�quit_finish%=-2
0f�
0p�
0���wimp_message_load(fn$)
0�
�t$,N%
0�Ȏq%!40�
0�	�&0F0
0��misc_close(script_file%)
0�script_file%=�(fn$)
0�script_fn$=fn$
0��#script_file%>0�
0��code_load(�#script_file%)
0��
0��misc_close(script_file%)
1�
1
�&1000
1$�misc_close(script_file%)
1.ș&406C3,1
18)script_fn$="<Wimp$ScrapDir>.WPScript"
1Bscript_file%=�(script_fn$)
1LN%=0
1V�
1`t$=�misc_findfile(fn$,N%)
1j%�t$<>""��#script_file%,fn$+"."+t$
1t
�t$=""
1~�misc_close(script_file%)
1�q%!40=&0F0
1�"�wimp_message_load(script_fn$)
1�ș&406C2
1�
1��script_adding%��(-1)�
1��script_adding%�
1��#script_file%,fn$
1�script_np%=2:pollfast%=1
1��
1��misc_close(script_file%)
1�)script_fn$="<Wimp$ScrapDir>.WPScript"
2script_file%=�(script_fn$)
2
ș&8,&12,script_fn$,&0F0
2�#script_file%,fn$
2script_adding%=�
2(script_np%=2:pollfast%=1
22�
2<�
2F�misc_close(script_file%)
2P�code_load(fn$)
2Z�
2d�
2n�
2�ݤwimp_prequit
2�"�code_loaded%� code_status%=0�
2�W%=�warn_message(1)
2��W%=2�quit_finish%=�
2�=(W%=3)
2��
2�=�
2��
3��code_action(act%)
3"
�os%,ptr%
3,
�act%=99�
36
act%=5
3@�
3J�code_loaded%�act%=5
3T�code_status%=act%��
3^�code_status%=3� act%=4��
3h�
3|os%=code_status%
3�
�act%>=0�
3�+�icon_select(wind_cont%,code_status%,0)
3�#�icon_select(wind_cont%,act%,1)
3�code_status%=act%
3��
3�Ȏact%�
3��0
3�(�os%=4��code_unpause%��code_restart%
3��3
3��code_pause%
3��#code_file%=code_header%
4code_counterpos%=0
4slider_px%=0
4�icon_update(wind_cont%,12)
4&�script_file%>0� paused%=0�
4:��#script_file%�
4D�misc_close(script_file%)
4N)ș&20008,6,"<Wimp$ScrapDir>.WPScript"
4X�
4b�code_load(�#script_file%)
4l�
4v�
4��4:�code_pause%
4��5
4��code_close%
4�(�misc_close(code_file%):code_file%=0
4�code_loaded%=�
4��script_file%=0�R%=6�
4��wind_close(wind_cont%)
4��wind_close(wind_form%)
4��wind_close(wind_buff%)
4��
5�-1
5"ptr%=4*(slider_s*slider_px%�4)
5&�(code_header%+ptr%)>�#code_file%�
5 $ptr%=�#code_file%-code_header%-4
5*�
54(�ptr%<code_header%�ptr%=code_header%
5>"�#code_file%=code_header%+ptr%
5Hcode_counterpos%=ptr%
5R�os%=0��code_restart%
5\�
5f�
5���code_load(fn$)
5�*�type%,play%,unk%,@%,t$,obj%,I%,pause%
5�ș&406C0
5�script_adding%=�
5��code_action(5)
5�@�fn$,1)="."� script_file%<>0�fn$=�misc_path(script_fn$)+fn$
5�I%=�fn$,"-buffersize=")
5�
�I%>0�
5�t$=�fn$,I%+12)
6I%=�t$," -")
6�I%>0�t$=�t$,I%)
6 code_buffsize%=1024*�(�(t$))
6$$A%=code_buffsize%:�code_setbuff%
6.�code_final%
68�code_init%
6B�
6VI%=�fn$,"-pause")
6`�I%>0�pause%=��pause%=�(-3)
6tI%=�fn$,"-volume=")
6~
�I%>0�
6�t$=�fn$,I%+8)
6�I%=�t$," -")
6��I%>0�t$=�t$,I%)
6�vol_pos=�(t$)*2.56
6��volume_set
6��
6�ș&8,5,fn$�obj%,,type%
6��obj%<>1�ș&406C2:�
6�type%=type%>>8
6��(type%�&FFF000)=&FFF000�
7type%=type%�&FFF
7
�
7type%=0
7�
72code_file%=�(fn$)
7<�code_file%=0�ș&406C2:�
7Punk%=�:play%=�
7Z�
7d��:unk%=�
7n�unk%�
7xcode_name$=�misc_leaf(fn$)
7�5code_loaded%=�("FNcode_type_"+�"00"+�~(type%),3))
7��code_loaded%=��;;
7���
7�play%=(��(-2))� play%
7��
7�play%=�
7�code_type$="unknown"
7�B%=�#code_file%
7�C%=%0000
7�D%=48*vidc/1000000
7�code_header%=0
7��
8�play%�
8�code_beginplay(pause%)
8�
8"�code_fillinfo
86�wind_close(wind_cont%)
8@ �wind_opencentre(wind_form%)
8Jcode_loaded%=�
8Tslider_px%=0
8^�
8hș&406C1
8r�
8���code_fillinfo
8��@%
8�'�icon_text(wind_form%,2,code_type$)
8�&�C%�%1000�t$="16 bits"�t$="8 bits"
8��icon_text(wind_form%,5,t$)
8�@%="+g10.9"
8�-�icon_text(wind_form%,7,�(vidc�D%)+" Hz")
8�/�icon_select(wind_form%,10,((C%>>2)� 1)� 1)
8�,�icon_select(wind_form%,11,((C%>>2)� 1))
8�/�icon_select(wind_form%,12,((C%>>1)� 1)� 1)
8�,�icon_select(wind_form%,13,((C%>>1)� 1))
9*�icon_select(wind_form%,14,(C%� 1)� 1)
9'�icon_select(wind_form%,15,(C%� 1))
9&'�icon_text(wind_buff%,2,code_type$)
90@%="+f10.3"
9:9�icon_text(wind_buff%,5,�(code_buffsize%/1024)+" Kb")
9D�
9lݤcode_type_FB1
9v�channels%,bits%,freq%,nt%
9�!ș&C,3,code_file%,temp1%,64,0
9�/�temp1%!0<>&46464952�temp1%!8<>&45564157�=�
9�channels%=(temp1%!20)>>16
9�freq%=temp1%!24
9�bits%=(temp1%!32)>>16
9�"�channels%=2�C%=%0001�C%=%0000
9�$�bits%=8�C%=C%�%0010�C%=C%�%1000
9�D%=vidc/freq%
9��#code_file%=16+3
9�temp1%?4=13
:�
:�#code_file%=�#code_file%-3
:ș&C,4,code_file%,temp1%,4
: �$temp1%="data"
:*ș&C,4,code_file%,temp1%,4
:4code_header%=�#code_file%
:>B%=!temp1%+�#code_file%
:Hcode_total=B%/freq%
:Rcode_type$="MS WAV"
:f�#code_file%=B%
:ptemp1%?4=13
:z�
:��#code_file%=�#code_file%-3
:�%ș&C,4,code_file%,temp1%,4�,,,nt%
:��$temp1%="DISP"�
:�ș&C,4,code_file%,temp1%,4
:�%�#code_file%=�#code_file%+!temp1%
:��
:��$temp1%="ISBJ"�nt%>0
:��$temp1%="ISBJ"�
:�ș&C,4,code_file%,temp1%,4
:�&ș&C,4,code_file%,temp1%+4,!temp1%
:�?(temp1%+4+!temp1%)=13
:�code_name$=$(temp1%+4)
:��
;�#code_file%=code_header%
;=�
;Bݤcode_type_D3C
;C�#code_file%=0
;LB%=�#code_file%
;VC%=%0000
;`"D%=(vidc*�#code_file%)/1000000
;jcode_header%=1
;tcode_type$="Armadeus"
;~code_total=B%*D%/vidc
;�=�
;�ݤcode_type_38D
;� ș&C,3,code_file%,temp1%,4,0
;��temp1%!0<>&53505553�=�
;��#code_file%=4
;�C%=%0000
;��#code_file%=0�C%=C%�%0100
;�!�#code_file%=&80�C%=C%�%0010
;��#code_file%=1�C%=C%�%0001
<"D%=(vidc*�#code_file%)/1000000
<
!ș&C,3,code_file%,temp1%,56,8
< code_name$=�misc_str(temp1%)
<code_type$="SuperSonic"
<(B%=�#code_file%-64
<2code_header%=64
<<=�
<dݤcode_type_CB5
<n�t$
<x ș&C,3,code_file%,temp1%,4,0
<�temp1%?4=13
<��$temp1%="SAMP"�
<�#ș&C,3,code_file%,temp1%,16,&10
<�"ș&C,3,code_file%,temp1%,4,&38
<�B%=!temp1%+&60
<�code_header%=&60
<��#code_file%=&60
<�C%=%0100
<�
D%=100
<�D%=(vidc*50)/1000000
<�code_type$="Tracker"
<�=�
=�
=2�$temp1%="DskS"�$temp1%="DSMP"�$temp1%="DSmp"�
=!ș&C,3,code_file%,temp1%,64,0
="t$=�misc_str(temp1%+&20)
=,$�t$<>"<Undefined>"�code_name$=t$
=6B%=temp1%!&1C+&40
=@code_header%=&40
=J�#code_file%=&40
=TC%=%0100
=^%D%=(temp1%!&8/&4000)*vidc/1000000
=h code_type$="Desktop Tracker"
=r=�
=|�
=�=�
=�ݤcode_type_ED0
=�code_header%=0
=��#code_file%=0
=�B%=�#code_file%
=�C%=%0010
=�D%=48*vidc/1000000
=�code_type$="DS Edit"
=�play%=�
=�=�
>&��code_beginplay(paused%)
>0�t1%,t2%,tp%,tl%,op%
>DA%=code_file%
>N�code_open%
>bop%=�#code_file%
>l
ș&42�t1%
>v0ș&C,3,code_file%,temp1%,4*1024,code_header%
>�
ș&42�t2%
>�tl%=t2%-t1%
>��#code_file%=op%
>�slider_s=B%/slider_sx%
>��#code_file%=code_header%
>�code_counterpos%=0
>��C%�%0001�
>�Ƞ2
>�Ȣ1,-127
>�Ȣ2,+127
>��
?Ƞ1
?	Ȣ1,0
?�
?*@%="+f10.2"
?4(code_total=(B%-code_header%)*D%/vidc
?>%�C%�%1000�code_total=code_total/2
?H%�C%�%0001�code_total=code_total/2
?R7�icon_text(wind_cont%,9,�misc_numstr(code_total/3))
?\:�icon_text(wind_cont%,10,�misc_numstr(2*code_total/3))
?f6�icon_text(wind_cont%,11,�misc_numstr(code_total))
?p-�icon_text(wind_cont%,13,�code_name$,63))
?�"tp%=(4*1024/B%)*code_total*100
?�
�tl%>tp%�
?�ș&406C2
?�:�(tl%/tp%)>1.3�W%=�warn_message(2)�W%=�warn_message(7)
?�
�W%=1�
?��code_action(99)
?��wind_close(wind_form%)
?��wind_close(wind_buff%)
?��wind_close(wind_cont%)
?��misc_close(script_file%)
?��
?��
?�
paused%=�
?��
@,�paused%��code_action(3)��code_action(0)
@!�script_file%=0�R%=6�paused%�
@$�wind_opentop(wind_cont%)
@.�
@8�wind_close(wind_form%)
@B�wind_close(wind_buff%)
@Lcode_loaded%=�
@V�
@���volume_dragset(temp%)
@��oldpos%
@��temp%�oldpos%=vol_pos
@�ș&400CF,,temp1%
@�vol_pos+=temp1%!4-vol_dy%
@�%�temp%��icon_update(wind_vol%,2)
@���volume_set
@�
�V%,S%
@�temp%=temp%
@��vol_pos<0�vol_pos=0
A�vol_pos>256�vol_pos=256
A
V%=127*�(vol_pos/256)
A�V%<1�V%=1
A�V%>127�V%=127
A(ș&40180,V%
A2�temp%�vol_pos=oldpos%
A<<�icon_select(wind_vol%,9)=0��icon_select(wind_vol%,9,1)
AF�
An��volume_getstate
Ax
�V%,S%
A�ș&40180,0�V%
A�9�icon_select(wind_vol%,9)�vol_pos=256*((V%/127)^2)+2
A��icon_update(wind_vol%,2)
A�ș&40143�S%
A�#�icon_select(wind_vol%,10,S%-1)
A��
B"
��help
B,#�shs%,shf%,E%,F%,path$,helpdir$
B@(ș&20023,"StrongHelp$Dir",,-1�,,shs%
B^1ș&20008,5,"WavePlayer:!SHFlag"�E%,,,,shf%;F%
Bh�(F%� 1)�E%<>1�shf%=-1
Br�shf%>1�
B�shf%=+1
B�F%=�("WavePlayer:!SHFlag")
B�path$=�#F%
B��#F%
B�/�shs%=0��"Set StrongHelp$Dir "+path$:shs%=�
B��
B�3helpdir$="<StrongHelp$Dir>.HelpData.WavePlayer"
B�
�shs%<>0�
B�
shs%=�
B�;ș&20008,5,"<StrongHelp$Dir>.HelpData.WavePlayer"�E%;F%
B��F%� 1�E%=0
C
�E%=0�
C:ș&20008,5,"<StrongHelp$Dir>.Manuals.WavePlayer"�E%;F%
C�F%� 1�E%=0
C&9�E%<>0�helpdir$="<StrongHelp$Dir>.Manuals.WavePlayer"
C0�
C:�
CDhpp%=(E%<>0)
CN�
CX
hpp%=�
Cb�
C�*�shs%=0� shf%=+1�W%=�warn_message(4):�
C�)�shf%=0� hpp%=0�W%=�warn_message(5):�
C�'�shs%� hpp%=0�W%=�warn_message(3):�
C��shs%� shf%=0� hpp%�
C�W%=�warn_message(6)
C��W%=2��
C�shf%=+1
C�,ș&8,&A,"WavePlayer:!SHFlag",&FFD,,�,�+1
D�
D �shs%� shf%=+1� hpp%�
D*Dș&20005,"RMEnsure StrongHelp 0 Filer_Run <StrongHelp$Dir>.!Run"
D4"path$=�misc_realpath(helpdir$)
D>ș&20005,"Filer_Run "+path$
DH*ș&20008,5,"WavePlayer:!SHFlag"�,,,,E%
DR�E%<=1�
D\F%=�("WavePlayer:!SHFlag")
Df+�#F%,�misc_realpath("<StrongHelp$Dir>")
Dp�#F%
Dz�
D��
D��shs%=0�
D�W%=�warn_message(8)
D��
D��
D���error
D��
D�P�ꅢ�,"Error in error trap - "+�$+" @ "+�(�)+" - original error - "+oldrep$
Eoldrep$=�$+" @ "+�(�)
E�warn_message(255)=1�
E$��
E.�
E8�
EBquit%=�
EL�
�

00000000  0d 00 0a 1b f4 20 3e 57  61 76 65 50 6c 61 79 65  |..... >WavePlaye|
00000010  72 3a 21 52 75 6e 49 6d  61 67 65 0d 00 0b 28 f4  |r:!RunImage...(.|
00000020  20 a9 20 31 39 39 37 2c  20 4d 61 74 74 68 65 77  | . 1997, Matthew|
00000030  20 57 69 6c 73 6f 6e 20  6f 66 20 50 61 72 61 64  | Wilson of Parad|
00000040  69 73 65 0d 00 28 36 ee  85 85 a2 9f 2c 22 45 72  |ise..(6.....,"Er|
00000050  72 6f 72 20 77 68 69 6c  73 74 20 69 6e 69 74 69  |ror whilst initi|
00000060  61 6c 69 73 69 6e 67 20  2d 20 22 2b f6 24 2b 22  |alising - "+.$+"|
00000070  20 40 20 22 2b c3 28 9e  29 0d 00 3c 2f c8 99 26  | @ "+.(.)..</..&|
00000080  34 30 30 43 30 2c 32 30  30 2c 26 34 42 35 33 34  |400C0,200,&4B534|
00000090  31 35 34 2c 22 57 61 76  65 20 50 6c 61 79 65 72  |154,"Wave Player|
000000a0  22 b8 2c 74 61 73 6b 25  0d 00 50 26 71 75 69 74  |".,task%..P&quit|
000000b0  25 3d a3 3a 70 6f 6c 6c  66 61 73 74 25 3d 30 3a  |%=.:pollfast%=0:|
000000c0  71 75 69 74 5f 66 69 6e  69 73 68 25 3d a3 0d 00  |quit_finish%=...|
000000d0  5a 30 73 63 72 69 70 74  5f 66 69 6c 65 25 3d 30  |Z0script_file%=0|
000000e0  3a 73 63 72 69 70 74 5f  61 64 64 69 6e 67 25 3d  |:script_adding%=|
000000f0  a3 3a 73 63 72 69 70 74  5f 6e 70 25 3d 30 0d 00  |.:script_np%=0..|
00000100  64 13 76 69 64 63 5f 74  76 3d 31 30 30 30 30 30  |d.vidc_tv=100000|
00000110  30 0d 00 6e 20 76 69 64  63 5f 76 67 61 3d 31 30  |0..n vidc_vga=10|
00000120  30 30 30 30 30 2a 32 35  31 37 35 2f 32 34 30 30  |00000*25175/2400|
00000130  30 0d 00 78 13 76 69 64  63 5f 6d 73 3d 31 35 30  |0..x.vidc_ms=150|
00000140  30 30 30 30 0d 00 8c 10  69 73 70 63 25 3d 34 2a  |0000....ispc%=4*|
00000150  31 30 32 34 0d 00 96 0f  de 77 5f 77 61 72 6e 25  |1024.....w_warn%|
00000160  28 32 29 0d 00 a0 16 de  73 69 63 6f 6e 25 36 34  |(2).....sicon%64|
00000170  2c 63 61 72 65 74 25 36  34 0d 00 aa 30 de 71 25  |,caret%64...0.q%|
00000180  32 35 36 2c 74 65 6d 70  31 25 38 2a 31 30 32 34  |256,temp1%8*1024|
00000190  2c 74 65 6d 70 32 25 38  2a 31 30 32 34 2c 69 63  |,temp2%8*1024,ic|
000001a0  6f 6e 73 25 69 73 70 63  25 0d 00 b4 0d 21 63 61  |ons%ispc%....!ca|
000001b0  72 65 74 25 3d 30 0d 00  c8 11 f2 69 6e 69 74 5f  |ret%=0.....init_|
000001c0  69 63 6f 6e 62 61 72 0d  00 d2 11 f2 69 6e 69 74  |iconbar.....init|
000001d0  5f 73 70 72 69 74 65 73  0d 00 dc 11 f2 69 6e 69  |_sprites.....ini|
000001e0  74 5f 77 69 6e 64 6f 77  73 0d 00 e6 10 f2 69 6e  |t_windows.....in|
000001f0  69 74 5f 73 6c 69 64 65  72 0d 00 f0 10 f2 69 6e  |it_slider.....in|
00000200  69 74 5f 76 6f 6c 75 6d  65 0d 00 fa 0e f2 69 6e  |it_volume.....in|
00000210  69 74 5f 63 6f 64 65 0d  01 04 0f f2 69 6e 69 74  |it_code.....init|
00000220  5f 6d 65 6e 75 73 0d 01  0e 0e f2 69 6e 69 74 5f  |_menus.....init_|
00000230  76 69 64 63 0d 01 22 0e  c8 99 26 31 30 b8 65 6e  |vidc.."...&10.en|
00000240  76 24 0d 01 2c 15 49 25  3d a7 65 6e 76 24 2c 22  |v$..,.I%=.env$,"|
00000250  2d 66 69 6c 65 22 29 0d  01 36 1b e7 49 25 3d 30  |-file")..6..I%=0|
00000260  8c 49 25 3d a7 65 6e 76  24 2c 22 2d 61 75 74 6f  |.I%=.env$,"-auto|
00000270  22 29 0d 01 40 0a e7 49  25 3e 30 8c 0d 01 4a 23  |")..@..I%>0...J#|
00000280  c8 99 26 38 2c 35 2c c1  65 6e 76 24 2c 49 25 2b  |..&8,5,.env$,I%+|
00000290  36 29 b8 74 79 70 65 25  2c 2c 6c 6f 61 64 25 0d  |6).type%,,load%.|
000002a0  01 54 0d e7 74 79 70 65  25 3d 32 8c 0d 01 5e 0f  |.T..type%=2...^.|
000002b0  71 25 21 34 30 3d 26 31  30 30 30 0d 01 68 05 cc  |q%!40=&1000..h..|
000002c0  0d 01 72 1b 71 25 21 34  30 3d 28 6c 6f 61 64 25  |..r.q%!40=(load%|
000002d0  80 26 46 46 46 30 30 29  3e 3e 38 0d 01 7c 05 cd  |.&FFF00)>>8..|..|
000002e0  0d 01 86 23 f2 77 69 6d  70 5f 6d 65 73 73 61 67  |...#.wimp_messag|
000002f0  65 5f 6c 6f 61 64 28 c1  65 6e 76 24 2c 49 25 2b  |e_load(.env$,I%+|
00000300  36 29 29 0d 01 90 05 cd  0d 01 a4 20 f2 77 69 6e  |6))........ .win|
00000310  64 5f 6f 70 65 6e 63 65  6e 74 72 65 28 77 69 6e  |d_opencentre(win|
00000320  64 5f 69 6e 66 6f 25 29  0d 01 ae 2b c8 99 26 34  |d_info%)...+..&4|
00000330  30 30 44 34 2c 2c 77 69  6e 64 5f 69 6e 66 6f 25  |00D4,,wind_info%|
00000340  2c 74 65 6d 70 31 25 21  34 2c 74 65 6d 70 31 25  |,temp1%!4,temp1%|
00000350  21 31 36 0d 01 b8 11 c8  99 26 34 32 b8 69 6e 66  |!16......&42.inf|
00000360  6f 5f 63 25 0d 01 c2 11  69 6e 66 6f 5f 63 25 2b  |o_c%....info_c%+|
00000370  3d 31 30 30 30 0d 01 d6  0c c8 99 26 34 30 36 43  |=1000......&406C|
00000380  32 0d 01 ea 1f 2a 53 65  74 20 57 61 76 65 50 6c  |2....*Set WavePl|
00000390  61 79 65 72 24 52 75 6e  6e 69 6e 67 20 79 65 73  |ayer$Running yes|
000003a0  0d 01 fe 0c ee 85 f2 65  72 72 6f 72 0d 02 12 05  |.......error....|
000003b0  f5 0d 02 1c 11 e7 70 6f  6c 6c 66 61 73 74 25 3e  |......pollfast%>|
000003c0  30 8c 0d 02 26 10 70 6f  6c 6c 66 61 73 74 25 2d  |0...&.pollfast%-|
000003d0  3d 31 0d 02 30 13 c8 99  26 34 30 30 43 37 2c 2c  |=1..0...&400C7,,|
000003e0  71 25 b8 52 25 0d 02 3a  05 cc 0d 02 44 28 e7 63  |q%.R%..:....D(.c|
000003f0  6f 64 65 5f 73 74 61 74  75 73 25 3d 30 8c 64 65  |ode_status%=0.de|
00000400  6c 61 79 25 3d 35 8b 64  65 6c 61 79 25 3d 31 30  |lay%=5.delay%=10|
00000410  30 30 0d 02 4e 0f c8 99  26 34 32 b8 74 69 6d 65  |00..N...&42.time|
00000420  25 0d 02 58 40 e7 74 69  6d 65 25 3e 69 6e 66 6f  |%..X@.time%>info|
00000430  5f 63 25 80 20 69 6e 66  6f 5f 63 25 3e 30 8c 69  |_c%. info_c%>0.i|
00000440  6e 66 6f 5f 63 25 3d 2d  31 3a f2 77 69 6e 64 5f  |nfo_c%=-1:.wind_|
00000450  63 6c 6f 73 65 28 77 69  6e 64 5f 69 6e 66 6f 25  |close(wind_info%|
00000460  29 0d 02 62 20 c8 99 26  34 30 30 45 31 2c 2c 71  |)..b ..&400E1,,q|
00000470  25 2c 74 69 6d 65 25 2b  64 65 6c 61 79 25 b8 52  |%,time%+delay%.R|
00000480  25 0d 02 6c 05 cd 0d 02  76 12 e7 73 6c 69 64 65  |%..l....v..slide|
00000490  72 5f 6e 70 25 3e 30 8c  0d 02 80 11 73 6c 69 64  |r_np%>0.....slid|
000004a0  65 72 5f 6e 70 25 2d 3d  31 0d 02 8a 22 e7 73 6c  |er_np%-=1...".sl|
000004b0  69 64 65 72 5f 6e 70 25  3d 30 8c f2 63 6f 64 65  |ider_np%=0..code|
000004c0  5f 61 63 74 69 6f 6e 28  2d 31 29 0d 02 94 05 cd  |_action(-1).....|
000004d0  0d 02 9e 13 e7 73 65 74  62 75 66 66 5f 6e 70 25  |.....setbuff_np%|
000004e0  3e 30 8c 0d 02 a8 1f 73  65 74 62 75 66 66 5f 6e  |>0.....setbuff_n|
000004f0  70 25 2d 3d 31 3a 70 6f  6c 6c 66 61 73 74 25 2b  |p%-=1:pollfast%+|
00000500  3d 31 0d 02 b2 13 e7 73  65 74 62 75 66 66 5f 6e  |=1.....setbuff_n|
00000510  70 25 3d 30 8c 0d 02 bc  24 41 25 3d 63 6f 64 65  |p%=0....$A%=code|
00000520  5f 62 75 66 66 73 69 7a  65 25 3a d6 63 6f 64 65  |_buffsize%:.code|
00000530  5f 73 65 74 62 75 66 66  25 0d 02 c6 10 d6 63 6f  |_setbuff%.....co|
00000540  64 65 5f 66 69 6e 61 6c  25 0d 02 d0 0f d6 63 6f  |de_final%.....co|
00000550  64 65 5f 69 6e 69 74 25  0d 02 da 05 cd 0d 02 e4  |de_init%........|
00000560  05 cd 0d 02 ee 12 e7 73  63 72 69 70 74 5f 6e 70  |.......script_np|
00000570  25 3e 30 8c 0d 02 f8 1e  73 63 72 69 70 74 5f 6e  |%>0.....script_n|
00000580  70 25 2d 3d 31 3a 70 6f  6c 6c 66 61 73 74 25 2b  |p%-=1:pollfast%+|
00000590  3d 31 0d 03 02 12 e7 73  63 72 69 70 74 5f 6e 70  |=1.....script_np|
000005a0  25 3d 30 8c 0d 03 0c 1d  f2 6d 69 73 63 5f 63 6c  |%=0......misc_cl|
000005b0  6f 73 65 28 73 63 72 69  70 74 5f 66 69 6c 65 25  |ose(script_file%|
000005c0  29 0d 03 16 14 73 63 72  69 70 74 5f 61 64 64 69  |)....script_addi|
000005d0  6e 67 25 3d a3 0d 03 20  0c f5 fd ac a6 28 2d 31  |ng%=... .....(-1|
000005e0  29 0d 03 2a 27 2a 46 69  6c 65 72 5f 52 75 6e 20  |)..*'*Filer_Run |
000005f0  3c 57 69 6d 70 24 53 63  72 61 70 44 69 72 3e 2e  |<Wimp$ScrapDir>.|
00000600  57 50 53 63 72 69 70 74  0d 03 34 05 cd 0d 03 3e  |WPScript..4....>|
00000610  05 cd 0d 03 52 09 c8 8e  52 25 ca 0d 03 5c 06 c9  |....R...R%...\..|
00000620  30 0d 03 66 35 e7 63 6f  64 65 5f 73 74 61 74 75  |0..f5.code_statu|
00000630  73 25 3d 30 80 20 73 6c  69 64 65 72 5f 6e 70 25  |s%=0. slider_np%|
00000640  3d 30 80 ac 73 6c 69 64  65 72 5f 64 25 80 ac 76  |=0..slider_d%..v|
00000650  6f 6c 5f 64 25 8c 0d 03  70 15 6f 70 78 25 3d 73  |ol_d%...p.opx%=s|
00000660  6c 69 64 65 72 5f 70 78  25 81 32 0d 03 7a 2a 70  |lider_px%.2..z*p|
00000670  6f 73 25 3d ba 28 63 6f  64 65 5f 72 65 61 64 70  |os%=.(code_readp|
00000680  6f 73 25 29 2b 63 6f 64  65 5f 63 6f 75 6e 74 65  |os%)+code_counte|
00000690  72 70 6f 73 25 0d 03 84  1c 73 6c 69 64 65 72 5f  |rpos%....slider_|
000006a0  70 78 25 3d 70 6f 73 25  2f 73 6c 69 64 65 72 5f  |px%=pos%/slider_|
000006b0  73 0d 03 8e 15 6e 70 78  25 3d 73 6c 69 64 65 72  |s....npx%=slider|
000006c0  5f 70 78 25 81 32 0d 03  98 2b e7 6f 70 78 25 3c  |_px%.2...+.opx%<|
000006d0  3e 6e 70 78 25 8c f2 69  63 6f 6e 5f 75 70 64 61  |>npx%..icon_upda|
000006e0  74 65 28 77 69 6e 64 5f  63 6f 6e 74 25 2c 31 32  |te(wind_cont%,12|
000006f0  29 0d 03 a2 1b e7 73 6c  69 64 65 72 5f 70 78 25  |).....slider_px%|
00000700  3e 73 6c 69 64 65 72 5f  73 78 25 8c 0d 03 ac 29  |>slider_sx%....)|
00000710  e7 71 75 69 74 5f 66 69  6e 69 73 68 25 8c 71 75  |.quit_finish%.qu|
00000720  69 74 25 3d b9 8b f2 63  6f 64 65 5f 61 63 74 69  |it%=...code_acti|
00000730  6f 6e 28 33 29 0d 03 b6  05 cd 0d 03 c0 05 cd 0d  |on(3)...........|
00000740  03 ca 2b e7 76 6f 6c 5f  64 25 80 28 74 69 6d 65  |..+.vol_d%.(time|
00000750  25 80 20 33 29 3d 30 8c  f2 76 6f 6c 75 6d 65 5f  |%. 3)=0..volume_|
00000760  64 72 61 67 73 65 74 28  b9 29 0d 03 de 18 c9 31  |dragset(.).....1|
00000770  3a f2 77 69 6d 70 5f 72  65 64 72 61 77 28 21 71  |:.wimp_redraw(!q|
00000780  25 29 0d 03 e8 13 c9 32  3a c8 99 26 34 30 30 43  |%).....2:..&400C|
00000790  35 2c 2c 71 25 0d 03 f2  06 c9 33 0d 03 fc 10 c8  |5,,q%.....3.....|
000007a0  99 26 34 30 30 43 36 2c  2c 71 25 0d 04 06 33 e7  |.&400C6,,q%...3.|
000007b0  21 71 25 3d 77 69 6e 64  5f 62 75 66 66 25 84 21  |!q%=wind_buff%.!|
000007c0  71 25 3d 77 69 6e 64 5f  66 6f 72 6d 25 8c f2 63  |q%=wind_form%..c|
000007d0  6f 64 65 5f 61 63 74 69  6f 6e 28 39 39 29 0d 04  |ode_action(99)..|
000007e0  10 22 e7 21 71 25 3d 77  69 6e 64 5f 76 6f 6c 25  |.".!q%=wind_vol%|
000007f0  84 21 71 25 3d 77 69 6e  64 5f 63 6f 6e 74 25 8c  |.!q%=wind_cont%.|
00000800  0d 04 1a 21 f2 69 63 6f  6e 5f 73 65 6c 65 63 74  |...!.icon_select|
00000810  28 77 69 6e 64 5f 63 6f  6e 74 25 2c 31 34 2c 30  |(wind_cont%,14,0|
00000820  29 0d 04 24 1a f2 77 69  6e 64 5f 63 6c 6f 73 65  |)..$..wind_close|
00000830  28 77 69 6e 64 5f 76 6f  6c 25 29 0d 04 2e 05 cd  |(wind_vol%).....|
00000840  0d 04 38 26 e7 21 71 25  3d 77 69 6e 64 5f 76 69  |..8&.!q%=wind_vi|
00000850  64 63 25 8c f2 69 63 6f  6e 5f 72 65 73 74 6f 72  |dc%..icon_restor|
00000860  65 63 61 72 65 74 0d 04  4c 23 c9 34 3a e7 21 71  |ecaret..L#.4:.!q|
00000870  25 3d 77 69 6e 64 5f 69  6e 66 6f 25 8c c8 99 26  |%=wind_info%...&|
00000880  34 30 30 43 36 2c 2c 71  25 0d 04 56 06 c9 36 0d  |400C6,,q%..V..6.|
00000890  04 60 0c e7 71 25 21 38  3d 32 8c 0d 04 6a 1f f2  |.`..q%!8=2...j..|
000008a0  77 69 6d 70 5f 6d 61 6b  65 6d 65 6e 75 28 71 25  |wimp_makemenu(q%|
000008b0  21 31 32 2c 71 25 21 31  36 29 0d 04 74 05 cc 0d  |!12,q%!16)..t...|
000008c0  04 7e 21 f2 77 69 6d 70  5f 63 6c 69 63 6b 28 71  |.~!.wimp_click(q|
000008d0  25 21 31 32 2c 71 25 21  31 36 2c 71 25 21 38 29  |%!12,q%!16,q%!8)|
000008e0  0d 04 88 05 cd 0d 04 9c  14 c9 37 3a f2 77 69 6d  |..........7:.wim|
000008f0  70 5f 65 6e 64 64 72 61  67 0d 04 a6 06 c9 38 0d  |p_enddrag.....8.|
00000900  04 b0 1c e7 21 71 25 3d  77 69 6e 64 5f 76 69 64  |....!q%=wind_vid|
00000910  63 25 80 20 71 25 21 34  3d 37 8c 0d 04 ba 14 77  |c%. q%!4=7.....w|
00000920  69 6e 64 25 3d 77 69 6e  64 5f 76 69 64 63 25 0d  |ind%=wind_vidc%.|
00000930  04 c4 19 f2 77 69 6d 70  5f 63 6c 69 63 6b 76 69  |....wimp_clickvi|
00000940  64 63 28 2d 31 2c 34 29  0d 04 ce 05 cd 0d 04 d8  |dc(-1,4)........|
00000950  16 c9 39 3a f2 77 69 6d  70 5f 6d 65 6e 75 72 65  |..9:.wimp_menure|
00000960  70 6c 79 0d 04 e2 1f c9  31 37 2c 31 38 3a f2 77  |ply.....17,18:.w|
00000970  69 6d 70 5f 6d 65 73 73  61 67 65 28 71 25 21 31  |imp_message(q%!1|
00000980  36 29 0d 04 ec 05 cb 0d  04 f6 0a fd 71 75 69 74  |6)..........quit|
00000990  25 0d 05 0a 0b 73 6b 69  70 25 3d a3 0d 05 14 0d  |%....skip%=.....|
000009a0  ee 85 73 6b 69 70 25 3d  b9 0d 05 28 0c e7 ac 73  |..skip%=...(...s|
000009b0  6b 69 70 25 8c 0d 05 32  13 f2 63 6f 64 65 5f 61  |kip%...2..code_a|
000009c0  63 74 69 6f 6e 28 35 29  0d 05 3c 10 d6 63 6f 64  |ction(5)..<..cod|
000009d0  65 5f 66 69 6e 61 6c 25  0d 05 46 12 c8 99 26 31  |e_final%..F...&1|
000009e0  45 2c 37 2c 2c 63 6f 64  65 25 0d 05 50 1d f2 6d  |E,7,,code%..P..m|
000009f0  69 73 63 5f 63 6c 6f 73  65 28 73 63 72 69 70 74  |isc_close(script|
00000a00  5f 66 69 6c 65 25 29 0d  05 5a 15 e7 71 75 69 74  |_file%)..Z..quit|
00000a10  5f 66 69 6e 69 73 68 25  3d 2d 32 8c 0d 05 64 0c  |_finish%=-2...d.|
00000a20  c8 99 26 34 32 36 38 32  0d 05 6e 05 cd 0d 05 78  |..&42682..n....x|
00000a30  1f 46 25 3d ae 28 22 57  61 76 65 50 6c 61 79 65  |.F%=.("WavePlaye|
00000a40  72 3a 21 4f 70 74 69 6f  6e 73 22 29 0d 05 82 0d  |r:!Options")....|
00000a50  f1 23 46 25 2c 76 69 64  63 0d 05 8c 08 d9 23 46  |.#F%,vidc.....#F|
00000a60  25 0d 05 96 05 cd 0d 05  aa 1d 2a 55 6e 73 65 74  |%.........*Unset|
00000a70  20 57 61 76 65 50 6c 61  79 65 72 24 52 75 6e 6e  | WavePlayer$Runn|
00000a80  69 6e 67 0d 05 be 05 e0  0d 05 fa 12 dd f2 69 6e  |ing...........in|
00000a90  69 74 5f 69 63 6f 6e 62  61 72 0d 06 04 0f 74 65  |it_iconbar....te|
00000aa0  6d 70 31 25 21 30 3d 2d  31 0d 06 0e 0e 74 65 6d  |mp1%!0=-1....tem|
00000ab0  70 31 25 21 34 3d 30 0d  06 18 0e 74 65 6d 70 31  |p1%!4=0....temp1|
00000ac0  25 21 38 3d 30 0d 06 22  12 74 65 6d 70 31 25 21  |%!8=0..".temp1%!|
00000ad0  31 32 3d 33 34 2a 32 0d  06 2c 12 74 65 6d 70 31  |12=34*2..,.temp1|
00000ae0  25 21 31 36 3d 31 37 2a  34 0d 06 36 26 74 65 6d  |%!16=17*4..6&tem|
00000af0  70 31 25 21 32 30 3d 28  26 31 37 3c 3c 32 34 29  |p1%!20=(&17<<24)|
00000b00  84 28 33 3c 3c 31 32 29  84 25 31 31 30 31 30 0d  |.(3<<12).%11010.|
00000b10  06 40 21 24 28 74 65 6d  70 31 25 2b 32 34 29 3d  |.@!$(temp1%+24)=|
00000b20  22 21 77 61 76 65 70 6c  61 79 22 2b bd 28 30 29  |"!waveplay"+.(0)|
00000b30  0d 06 4a 1b c8 99 26 34  30 30 43 32 2c 2c 74 65  |..J...&400C2,,te|
00000b40  6d 70 31 25 b8 69 62 61  72 31 25 0d 06 5e 0f 74  |mp1%.ibar1%..^.t|
00000b50  65 6d 70 31 25 21 30 3d  2d 31 0d 06 68 0e 74 65  |emp1%!0=-1..h.te|
00000b60  6d 70 31 25 21 34 3d 30  0d 06 72 0e 74 65 6d 70  |mp1%!4=0..r.temp|
00000b70  31 25 21 38 3d 30 0d 06  7c 12 74 65 6d 70 31 25  |1%!8=0..|.temp1%|
00000b80  21 31 32 3d 31 38 2a 32  0d 06 86 12 74 65 6d 70  |!12=18*2....temp|
00000b90  31 25 21 31 36 3d 31 37  2a 34 0d 06 90 26 74 65  |1%!16=17*4...&te|
00000ba0  6d 70 31 25 21 32 30 3d  28 26 31 37 3c 3c 32 34  |mp1%!20=(&17<<24|
00000bb0  29 84 28 33 3c 3c 31 32  29 84 25 31 31 30 31 30  |).(3<<12).%11010|
00000bc0  0d 06 9a 1f 24 28 74 65  6d 70 31 25 2b 32 34 29  |....$(temp1%+24)|
00000bd0  3d 22 76 6f 6c 75 6d 65  21 22 2b bd 28 30 29 0d  |="volume!"+.(0).|
00000be0  06 a4 1b c8 99 26 34 30  30 43 32 2c 2c 74 65 6d  |.....&400C2,,tem|
00000bf0  70 31 25 b8 69 62 61 72  32 25 0d 06 ae 05 e1 0d  |p1%.ibar2%......|
00000c00  06 d6 12 dd f2 69 6e 69  74 5f 73 70 72 69 74 65  |.....init_sprite|
00000c10  73 0d 06 e0 09 ea 6c 65  6e 25 0d 06 ea 28 c8 99  |s.....len%...(..|
00000c20  26 38 2c 35 2c 22 57 61  76 65 50 6c 61 79 65 72  |&8,5,"WavePlayer|
00000c30  3a 53 70 72 69 74 65 73  22 b8 2c 2c 2c 2c 6c 65  |:Sprites".,,,,le|
00000c40  6e 25 0d 06 f4 11 de 73  70 72 73 25 6c 65 6e 25  |n%.....sprs%len%|
00000c50  2b 31 36 0d 06 fe 13 73  70 72 73 25 21 30 3d 6c  |+16....sprs%!0=l|
00000c60  65 6e 25 2b 31 36 0d 07  08 0e 73 70 72 73 25 21  |en%+16....sprs%!|
00000c70  38 3d 31 36 0d 07 12 29  c8 99 26 32 45 2c 26 31  |8=16...)..&2E,&1|
00000c80  30 41 2c 73 70 72 73 25  2c 22 57 61 76 65 50 6c  |0A,sprs%,"WavePl|
00000c90  61 79 65 72 3a 53 70 72  69 74 65 73 22 0d 07 1c  |ayer:Sprites"...|
00000ca0  05 e1 0d 07 44 2b dd f2  69 6e 69 74 5f 6c 6f 61  |....D+..init_loa|
00000cb0  64 77 69 6e 64 6f 77 28  6e 61 6d 65 24 2c f8 77  |dwindow(name$,.w|
00000cc0  69 6e 68 61 6e 25 2c 73  70 72 73 25 29 0d 07 4e  |inhan%,sprs%)..N|
00000cd0  30 c8 99 26 34 30 30 44  42 2c 2c 74 65 6d 70 31  |0..&400DB,,temp1|
00000ce0  25 2c 66 72 65 65 25 2c  65 6e 64 25 2c 2d 31 2c  |%,free%,end%,-1,|
00000cf0  6e 61 6d 65 24 b8 2c 2c  66 72 65 65 25 0d 07 58  |name$.,,free%..X|
00000d00  13 74 65 6d 70 31 25 21  36 34 3d 73 70 72 73 25  |.temp1%!64=sprs%|
00000d10  0d 07 62 1c c8 99 26 34  30 30 43 31 2c 2c 74 65  |..b...&400C1,,te|
00000d20  6d 70 31 25 b8 77 69 6e  68 61 6e 25 0d 07 6c 05  |mp1%.winhan%..l.|
00000d30  e1 0d 07 94 12 dd f2 69  6e 69 74 5f 77 69 6e 64  |.......init_wind|
00000d40  6f 77 73 0d 07 9e 07 ea  4e 25 0d 07 a8 24 c8 99  |ows.....N%...$..|
00000d50  26 34 30 30 44 39 2c 2c  22 57 61 76 65 50 6c 61  |&400D9,,"WavePla|
00000d60  79 65 72 3a 54 65 6d 70  6c 61 74 65 73 22 0d 07  |yer:Templates"..|
00000d70  b2 21 66 72 65 65 25 3d  69 63 6f 6e 73 25 3a 65  |.!free%=icons%:e|
00000d80  6e 64 25 3d 66 72 65 65  25 2b 69 73 70 63 25 0d  |nd%=free%+ispc%.|
00000d90  07 bc 31 f2 69 6e 69 74  5f 6c 6f 61 64 77 69 6e  |..1.init_loadwin|
00000da0  64 6f 77 28 22 63 6f 6e  74 72 6f 6c 73 22 2c 77  |dow("controls",w|
00000db0  69 6e 64 5f 63 6f 6e 74  25 2c 73 70 72 73 25 29  |ind_cont%,sprs%)|
00000dc0  0d 07 c6 34 f2 69 6e 69  74 5f 6c 6f 61 64 77 69  |...4.init_loadwi|
00000dd0  6e 64 6f 77 28 22 6f 70  74 73 5f 62 75 66 66 65  |ndow("opts_buffe|
00000de0  72 22 2c 77 69 6e 64 5f  62 75 66 66 25 2c 73 70  |r",wind_buff%,sp|
00000df0  72 73 25 29 0d 07 d0 34  f2 69 6e 69 74 5f 6c 6f  |rs%)...4.init_lo|
00000e00  61 64 77 69 6e 64 6f 77  28 22 6f 70 74 73 5f 66  |adwindow("opts_f|
00000e10  6f 72 6d 61 74 22 2c 77  69 6e 64 5f 66 6f 72 6d  |ormat",wind_form|
00000e20  25 2c 73 70 72 73 25 29  0d 07 da 2d f2 69 6e 69  |%,sprs%)...-.ini|
00000e30  74 5f 6c 6f 61 64 77 69  6e 64 6f 77 28 22 69 6e  |t_loadwindow("in|
00000e40  66 6f 22 2c 77 69 6e 64  5f 69 6e 66 6f 25 2c 73  |fo",wind_info%,s|
00000e50  70 72 73 25 29 0d 07 e4  2e f2 69 6e 69 74 5f 6c  |prs%).....init_l|
00000e60  6f 61 64 77 69 6e 64 6f  77 28 22 76 6f 6c 75 6d  |oadwindow("volum|
00000e70  65 22 2c 77 69 6e 64 5f  76 6f 6c 25 2c 73 70 72  |e",wind_vol%,spr|
00000e80  73 25 29 0d 07 ee 32 f2  69 6e 69 74 5f 6c 6f 61  |s%)...2.init_loa|
00000e90  64 77 69 6e 64 6f 77 28  22 76 69 64 63 73 70 65  |dwindow("vidcspe|
00000ea0  65 64 22 2c 77 69 6e 64  5f 76 69 64 63 25 2c 73  |ed",wind_vidc%,s|
00000eb0  70 72 73 25 29 0d 08 02  2f f2 69 6e 69 74 5f 6c  |prs%).../.init_l|
00000ec0  6f 61 64 77 69 6e 64 6f  77 28 22 77 61 72 6e 5f  |oadwindow("warn_|
00000ed0  31 22 2c 77 5f 77 61 72  6e 25 28 30 29 2c 73 70  |1",w_warn%(0),sp|
00000ee0  72 73 25 29 0d 08 0c 2f  f2 69 6e 69 74 5f 6c 6f  |rs%).../.init_lo|
00000ef0  61 64 77 69 6e 64 6f 77  28 22 77 61 72 6e 5f 32  |adwindow("warn_2|
00000f00  22 2c 77 5f 77 61 72 6e  25 28 31 29 2c 73 70 72  |",w_warn%(1),spr|
00000f10  73 25 29 0d 08 16 2f f2  69 6e 69 74 5f 6c 6f 61  |s%).../.init_loa|
00000f20  64 77 69 6e 64 6f 77 28  22 77 61 72 6e 5f 33 22  |dwindow("warn_3"|
00000f30  2c 77 5f 77 61 72 6e 25  28 32 29 2c 73 70 72 73  |,w_warn%(2),sprs|
00000f40  25 29 0d 08 2a 0c c8 99  26 34 30 30 44 41 0d 08  |%)..*...&400DA..|
00000f50  34 05 e1 0d 08 5c 10 dd  f2 69 6e 69 74 5f 6d 65  |4....\...init_me|
00000f60  6e 75 73 0d 08 66 09 ea  6c 65 6e 25 0d 08 70 26  |nus..f..len%..p&|
00000f70  c8 99 26 38 2c 35 2c 22  57 61 76 65 50 6c 61 79  |..&8,5,"WavePlay|
00000f80  65 72 3a 4d 65 6e 75 73  22 b8 2c 2c 2c 2c 6c 65  |er:Menus".,,,,le|
00000f90  6e 25 0d 08 7a 0f de 6d  65 6e 75 73 25 6c 65 6e  |n%..z..menus%len|
00000fa0  25 0d 08 84 0f e7 6d 65  6e 75 73 25 3c 3d 30 8c  |%.....menus%<=0.|
00000fb0  0d 08 8e 2f 85 a2 9f 2c  22 4e 6f 74 20 65 6e 6f  |.../...,"Not eno|
00000fc0  75 67 68 20 6d 65 6d 6f  72 79 20 74 6f 20 73 74  |ugh memory to st|
00000fd0  61 72 74 20 75 70 20 28  6d 65 6e 75 73 29 22 0d  |art up (menus)".|
00000fe0  08 98 05 cd 0d 08 a2 26  c8 99 26 38 2c 26 46 46  |.......&..&8,&FF|
00000ff0  2c 22 57 61 76 65 50 6c  61 79 65 72 3a 4d 65 6e  |,"WavePlayer:Men|
00001000  75 73 22 2c 6d 65 6e 75  73 25 0d 08 ac 15 6d 65  |us",menus%....me|
00001010  6e 75 5f 69 62 25 3d 6d  65 6e 75 73 25 2b 30 0d  |nu_ib%=menus%+0.|
00001020  08 b6 19 6d 65 6e 75 5f  62 69 74 73 25 3d 6d 65  |...menu_bits%=me|
00001030  6e 75 73 25 2b 32 35 36  0d 08 c0 19 6d 65 6e 75  |nus%+256....menu|
00001040  5f 74 79 70 65 25 3d 6d  65 6e 75 73 25 2b 35 31  |_type%=menus%+51|
00001050  32 0d 08 ca 05 e1 0d 08  f2 11 dd f2 69 6e 69 74  |2...........init|
00001060  5f 73 6c 69 64 65 72 0d  08 fc 23 73 69 63 6f 6e  |_slider...#sicon|
00001070  25 21 30 3d 77 69 6e 64  5f 63 6f 6e 74 25 3a 73  |%!0=wind_cont%:s|
00001080  69 63 6f 6e 25 21 34 3d  31 32 0d 09 06 14 c8 99  |icon%!4=12......|
00001090  26 34 30 30 43 45 2c 2c  73 69 63 6f 6e 25 0d 09  |&400CE,,sicon%..|
000010a0  10 16 73 6c 69 64 65 72  5f 78 25 3d 73 69 63 6f  |..slider_x%=sico|
000010b0  6e 25 21 38 0d 09 1a 1a  73 6c 69 64 65 72 5f 79  |n%!8....slider_y|
000010c0  25 3d 73 69 63 6f 6e 25  21 32 30 2d 33 32 0d 09  |%=sicon%!20-32..|
000010d0  24 25 73 6c 69 64 65 72  5f 73 78 25 3d 73 69 63  |$%slider_sx%=sic|
000010e0  6f 6e 25 21 31 36 2d 73  6c 69 64 65 72 5f 78 25  |on%!16-slider_x%|
000010f0  2d 36 34 0d 09 2e 10 73  6c 69 64 65 72 5f 70 78  |-64....slider_px|
00001100  25 3d 30 0d 09 38 0f 73  6c 69 64 65 72 5f 64 25  |%=0..8.slider_d%|
00001110  3d a3 0d 09 42 0e 73 6c  69 64 65 72 5f 73 3d 31  |=...B.slider_s=1|
00001120  0d 09 4c 10 73 6c 69 64  65 72 5f 6e 70 25 3d 30  |..L.slider_np%=0|
00001130  0d 09 60 22 74 65 6d 70  31 25 21 30 3d 77 69 6e  |..`"temp1%!0=win|
00001140  64 5f 63 6f 6e 74 25 3a  74 65 6d 70 31 25 21 34  |d_cont%:temp1%!4|
00001150  3d 37 0d 09 6a 14 c8 99  26 34 30 30 43 34 2c 2c  |=7..j...&400C4,,|
00001160  74 65 6d 70 31 25 0d 09  74 05 e1 0d 09 9c 11 dd  |temp1%..t.......|
00001170  f2 69 6e 69 74 5f 76 6f  6c 75 6d 65 0d 09 a6 07  |.init_volume....|
00001180  ea 56 25 0d 09 b0 21 74  65 6d 70 31 25 21 30 3d  |.V%...!temp1%!0=|
00001190  77 69 6e 64 5f 76 6f 6c  25 3a 74 65 6d 70 31 25  |wind_vol%:temp1%|
000011a0  21 34 3d 32 0d 09 ba 14  c8 99 26 34 30 30 43 45  |!4=2......&400CE|
000011b0  2c 2c 74 65 6d 70 31 25  0d 09 c4 13 76 6f 6c 5f  |,,temp1%....vol_|
000011c0  78 25 3d 74 65 6d 70 31  25 21 38 0d 09 ce 14 76  |x%=temp1%!8....v|
000011d0  6f 6c 5f 79 25 3d 74 65  6d 70 31 25 21 31 32 0d  |ol_y%=temp1%!12.|
000011e0  09 d8 21 76 6f 6c 5f 73  69 7a 65 25 3d 74 65 6d  |..!vol_size%=tem|
000011f0  70 31 25 21 32 30 2d 76  6f 6c 5f 79 25 2d 34 38  |p1%!20-vol_y%-48|
00001200  0d 09 e2 0c 76 6f 6c 5f  64 25 3d a3 0d 09 f6 21  |....vol_d%=....!|
00001210  74 65 6d 70 31 25 21 30  3d 77 69 6e 64 5f 76 6f  |temp1%!0=wind_vo|
00001220  6c 25 3a 74 65 6d 70 31  25 21 34 3d 31 0d 0a 00  |l%:temp1%!4=1...|
00001230  14 c8 99 26 34 30 30 43  34 2c 2c 74 65 6d 70 31  |...&400C4,,temp1|
00001240  25 0d 0a 0a 05 e1 0d 0a  32 0f dd f2 69 6e 69 74  |%.......2...init|
00001250  5f 63 6f 64 65 0d 0a 3c  09 ea 6c 65 6e 25 0d 0a  |_code..<..len%..|
00001260  46 25 c8 99 26 38 2c 35  2c 22 57 61 76 65 50 6c  |F%..&8,5,"WavePl|
00001270  61 79 65 72 3a 43 6f 64  65 22 b8 2c 2c 2c 2c 6c  |ayer:Code".,,,,l|
00001280  65 6e 25 0d 0a 50 1a c8  99 26 31 45 2c 36 2c 2c  |en%..P...&1E,6,,|
00001290  2c 6c 65 6e 25 b8 2c 2c  63 6f 64 65 25 0d 0a 5a  |,len%.,,code%..Z|
000012a0  24 c8 99 26 38 2c 26 46  46 2c 22 57 61 76 65 50  |$..&8,&FF,"WaveP|
000012b0  6c 61 79 65 72 3a 43 6f  64 65 22 2c 63 6f 64 65  |layer:Code",code|
000012c0  25 0d 0a 64 16 63 6f 64  65 5f 69 6e 69 74 25 3d  |%..d.code_init%=|
000012d0  63 6f 64 65 25 2b 30 0d  0a 6e 17 63 6f 64 65 5f  |code%+0..n.code_|
000012e0  66 69 6e 61 6c 25 3d 63  6f 64 65 25 2b 34 0d 0a  |final%=code%+4..|
000012f0  78 16 63 6f 64 65 5f 6f  70 65 6e 25 3d 63 6f 64  |x.code_open%=cod|
00001300  65 25 2b 38 0d 0a 82 18  63 6f 64 65 5f 63 6c 6f  |e%+8....code_clo|
00001310  73 65 25 3d 63 6f 64 65  25 2b 31 32 0d 0a 8c 1a  |se%=code%+12....|
00001320  63 6f 64 65 5f 72 65 73  74 61 72 74 25 3d 63 6f  |code_restart%=co|
00001330  64 65 25 2b 31 36 0d 0a  96 18 63 6f 64 65 5f 70  |de%+16....code_p|
00001340  61 75 73 65 25 3d 63 6f  64 65 25 2b 32 30 0d 0a  |ause%=code%+20..|
00001350  a0 1a 63 6f 64 65 5f 75  6e 70 61 75 73 65 25 3d  |..code_unpause%=|
00001360  63 6f 64 65 25 2b 32 34  0d 0a aa 1a 63 6f 64 65  |code%+24....code|
00001370  5f 73 65 74 62 75 66 66  25 3d 63 6f 64 65 25 2b  |_setbuff%=code%+|
00001380  32 38 0d 0a b4 1a 63 6f  64 65 5f 72 65 61 64 70  |28....code_readp|
00001390  6f 73 25 3d 63 6f 64 65  25 2b 33 32 0d 0a c8 13  |os%=code%+32....|
000013a0  63 6f 64 65 5f 73 74 61  74 75 73 25 3d 2d 31 0d  |code_status%=-1.|
000013b0  0a d2 12 63 6f 64 65 5f  6c 6f 61 64 65 64 25 3d  |...code_loaded%=|
000013c0  a3 0d 0a dc 10 63 6f 64  65 5f 66 69 6c 65 25 3d  |.....code_file%=|
000013d0  30 0d 0a e6 1a 63 6f 64  65 5f 62 75 66 66 73 69  |0....code_buffsi|
000013e0  7a 65 25 3d 36 33 2a 31  30 32 34 0d 0a f0 11 73  |ze%=63*1024....s|
000013f0  65 74 62 75 66 66 5f 6e  70 25 3d 30 0d 0a fa 13  |etbuff_np%=0....|
00001400  f2 63 6f 64 65 5f 61 63  74 69 6f 6e 28 35 29 0d  |.code_action(5).|
00001410  0b 04 24 41 25 3d 63 6f  64 65 5f 62 75 66 66 73  |..$A%=code_buffs|
00001420  69 7a 65 25 3a d6 63 6f  64 65 5f 73 65 74 62 75  |ize%:.code_setbu|
00001430  66 66 25 0d 0b 0e 0f d6  63 6f 64 65 5f 69 6e 69  |ff%.....code_ini|
00001440  74 25 0d 0b 18 05 e1 0d  0b 40 0f dd f2 69 6e 69  |t%.......@...ini|
00001450  74 5f 76 69 64 63 0d 0b  4a 07 ea 46 25 0d 0b 54  |t_vidc..J..F%..T|
00001460  1f 46 25 3d 8e 28 22 57  61 76 65 50 6c 61 79 65  |.F%=.("WavePlaye|
00001470  72 3a 21 4f 70 74 69 6f  6e 73 22 29 0d 0b 5e 0a  |r:!Options")..^.|
00001480  e7 46 25 3d 30 8c 0d 0b  68 1f 46 25 3d ae 28 22  |.F%=0...h.F%=.("|
00001490  57 61 76 65 50 6c 61 79  65 72 3a 21 4f 70 74 69  |WavePlayer:!Opti|
000014a0  6f 6e 73 22 29 0d 0b 72  10 76 69 64 63 3d 31 30  |ons")..r.vidc=10|
000014b0  30 30 30 30 30 0d 0b 7c  0d f1 23 46 25 2c 76 69  |00000..|..#F%,vi|
000014c0  64 63 0d 0b 86 05 cc 0d  0b 90 0d e8 23 46 25 2c  |dc..........#F%,|
000014d0  76 69 64 63 0d 0b 9a 05  cd 0d 0b a4 08 d9 23 46  |vidc..........#F|
000014e0  25 0d 0b ae 0b c8 8e 76  69 64 63 ca 0d 0b b8 29  |%......vidc....)|
000014f0  c9 76 69 64 63 5f 74 76  3a f2 69 63 6f 6e 5f 73  |.vidc_tv:.icon_s|
00001500  65 6c 65 63 74 28 77 69  6e 64 5f 76 69 64 63 25  |elect(wind_vidc%|
00001510  2c 32 2c 31 29 0d 0b c2  2a c9 76 69 64 63 5f 76  |,2,1)...*.vidc_v|
00001520  67 61 3a f2 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |ga:.icon_select(|
00001530  77 69 6e 64 5f 76 69 64  63 25 2c 33 2c 31 29 0d  |wind_vidc%,3,1).|
00001540  0b cc 29 c9 76 69 64 63  5f 6d 73 3a f2 69 63 6f  |..).vidc_ms:.ico|
00001550  6e 5f 73 65 6c 65 63 74  28 77 69 6e 64 5f 76 69  |n_select(wind_vi|
00001560  64 63 25 2c 34 2c 31 29  0d 0b d6 05 7f 0d 0b e0  |dc%,4,1)........|
00001570  20 f2 69 63 6f 6e 5f 73  65 6c 65 63 74 28 77 69  | .icon_select(wi|
00001580  6e 64 5f 76 69 64 63 25  2c 35 2c 31 29 0d 0b ea  |nd_vidc%,5,1)...|
00001590  34 f2 69 63 6f 6e 5f 74  65 78 74 28 77 69 6e 64  |4.icon_text(wind|
000015a0  5f 76 69 64 63 25 2c 37  2c c3 28 a8 28 2e 35 2b  |_vidc%,7,.(.(.5+|
000015b0  32 34 30 30 30 2a 76 69  64 63 2f 31 45 36 29 29  |24000*vidc/1E6))|
000015c0  29 0d 0b f4 05 cb 0d 0b  fe 05 e1 0d 0c 3a 1d dd  |)............:..|
000015d0  a4 6d 69 73 63 5f 66 69  6e 64 66 69 6c 65 28 64  |.misc_findfile(d|
000015e0  69 72 24 2c f8 4e 25 29  0d 0c 44 07 ea 52 25 0d  |ir$,.N%)..D..R%.|
000015f0  0c 4e 31 c8 99 26 32 30  30 30 43 2c 31 30 2c 64  |.N1..&2000C,10,d|
00001600  69 72 24 2c 74 65 6d 70  31 25 2c 31 2c 4e 25 2c  |ir$,temp1%,1,N%,|
00001610  32 35 36 2c 22 2a 22 b8  2c 2c 2c 52 25 2c 4e 25  |256,"*".,,,R%,N%|
00001620  0d 0c 58 0e e7 52 25 3c  3e 31 8c 3d 22 22 0d 0c  |..X..R%<>1.=""..|
00001630  62 2a e7 74 65 6d 70 31  25 21 31 36 3c 3e 31 8c  |b*.temp1%!16<>1.|
00001640  3d a4 6d 69 73 63 5f 66  69 6e 64 66 69 6c 65 28  |=.misc_findfile(|
00001650  64 69 72 24 2c 4e 25 29  0d 0c 6c 19 3d a4 6d 69  |dir$,N%)..l.=.mi|
00001660  73 63 5f 73 74 72 28 74  65 6d 70 31 25 2b 32 30  |sc_str(temp1%+20|
00001670  29 0d 0c 94 14 dd f2 6d  69 73 63 5f 70 6f 6c 6c  |)......misc_poll|
00001680  28 f8 52 25 29 0d 0c 9e  0a ea 6d 6f 72 65 25 0d  |(.R%).....more%.|
00001690  0c a8 17 c8 99 26 34 30  30 43 37 2c 2c 74 65 6d  |.....&400C7,,tem|
000016a0  70 32 25 b8 52 25 0d 0c  b2 09 c8 8e 52 25 ca 0d  |p2%.R%......R%..|
000016b0  0c bc 06 c9 31 0d 0c c6  1a c8 99 26 34 30 30 43  |....1......&400C|
000016c0  38 2c 2c 74 65 6d 70 32  25 b8 6d 6f 72 65 25 0d  |8,,temp2%.more%.|
000016d0  0c d0 0b c8 95 6d 6f 72  65 25 0d 0c da 1a c8 99  |.....more%......|
000016e0  26 34 30 30 43 41 2c 2c  74 65 6d 70 32 25 b8 6d  |&400CA,,temp2%.m|
000016f0  6f 72 65 25 0d 0c e4 05  ce 0d 0c ee 1f c9 31 37  |ore%..........17|
00001700  2c 31 38 3a e7 74 65 6d  70 32 25 21 31 36 3d 30  |,18:.temp2%!16=0|
00001710  8c 71 75 69 74 25 3d b9  0d 0c f8 05 cb 0d 0d 02  |.quit%=.........|
00001720  05 e1 0d 0d 2a 14 dd a4  6d 69 73 63 5f 73 74 72  |....*...misc_str|
00001730  28 61 64 72 25 29 0d 0d  34 09 ea 73 74 72 24 0d  |(adr%)..4..str$.|
00001740  0d 3e 13 c8 99 32 35 36  2c 61 64 72 25 b8 73 74  |.>...256,adr%.st|
00001750  72 24 0d 0d 48 09 3d 73  74 72 24 0d 0d 70 14 dd  |r$..H.=str$..p..|
00001760  a4 6d 69 73 63 5f 6c 65  61 66 28 66 6e 24 29 0d  |.misc_leaf(fn$).|
00001770  0d 7a 07 ea 49 25 0d 0d  84 1d c8 95 a7 66 6e 24  |.z..I%.......fn$|
00001780  2c 22 2e 22 29 3e 30 84  a7 66 6e 24 2c 22 3a 22  |,".")>0..fn$,":"|
00001790  29 3e 30 0d 0d 8e 25 49  25 3d a7 66 6e 24 2c 22  |)>0...%I%=.fn$,"|
000017a0  2e 22 29 3a e7 49 25 3e  30 8c 66 6e 24 3d c1 66  |."):.I%>0.fn$=.f|
000017b0  6e 24 2c 49 25 2b 31 29  0d 0d 98 25 49 25 3d a7  |n$,I%+1)...%I%=.|
000017c0  66 6e 24 2c 22 3a 22 29  3a e7 49 25 3e 30 8c 66  |fn$,":"):.I%>0.f|
000017d0  6e 24 3d c1 66 6e 24 2c  49 25 2b 31 29 0d 0d a2  |n$=.fn$,I%+1)...|
000017e0  05 ce 0d 0d ac 11 49 25  3d a7 66 6e 24 2c 22 20  |......I%=.fn$," |
000017f0  2d 22 29 0d 0d b6 16 e7  49 25 3e 30 8c 66 6e 24  |-").....I%>0.fn$|
00001800  3d c0 66 6e 24 2c 49 25  29 0d 0d c0 08 3d 66 6e  |=.fn$,I%)....=fn|
00001810  24 0d 0d e8 16 dd a4 6d  69 73 63 5f 6e 75 6d 73  |$......misc_nums|
00001820  74 72 28 6e 75 6d 29 0d  0d f2 0c ea 73 74 72 24  |tr(num).....str$|
00001830  2c 49 25 0d 0d fc 1d 73  74 72 24 3d c3 28 6e 75  |,I%....str$=.(nu|
00001840  6d 29 3a 49 25 3d a7 73  74 72 24 2c 22 2e 22 29  |m):I%=.str$,".")|
00001850  0d 0e 06 17 e7 49 25 8c  c1 73 74 72 24 2c 49 25  |.....I%..str$,I%|
00001860  2c 31 29 3d 22 b7 22 0d  0e 10 09 3d 73 74 72 24  |,1)="."....=str$|
00001870  0d 0e 38 1a dd f2 6d 69  73 63 5f 63 6c 6f 73 65  |..8...misc_close|
00001880  28 f8 68 61 6e 64 6c 65  25 29 0d 0e 42 22 e7 68  |(.handle%)..B".h|
00001890  61 6e 64 6c 65 25 3c 3e  30 8c c8 99 26 32 30 30  |andle%<>0...&200|
000018a0  30 44 2c 30 2c 68 61 6e  64 6c 65 25 0d 0e 4c 0d  |0D,0,handle%..L.|
000018b0  68 61 6e 64 6c 65 25 3d  30 0d 0e 56 05 e1 0d 0e  |handle%=0..V....|
000018c0  7e 1a dd a4 6d 69 73 63  5f 72 65 61 6c 70 61 74  |~...misc_realpat|
000018d0  68 28 70 61 74 68 24 29  0d 0e 88 0e ea 46 25 2c  |h(path$).....F%,|
000018e0  6e 70 61 74 68 24 0d 0e  92 0d 3f 74 65 6d 70 31  |npath$....?temp1|
000018f0  25 3d 30 0d 0e 9c 2c c8  99 26 32 39 2c 26 32 35  |%=0...,..&29,&25|
00001900  2c 70 61 74 68 24 2c 74  65 6d 70 31 25 2c 2c 2c  |,path$,temp1%,,,|
00001910  32 35 35 b8 2c 2c 6e 70  61 74 68 24 3b 46 25 0d  |255.,,npath$;F%.|
00001920  0e a6 17 e7 46 25 80 20  31 8c 6e 70 61 74 68 24  |....F%. 1.npath$|
00001930  3d 70 61 74 68 24 0d 0e  b0 0b 3d 6e 70 61 74 68  |=path$....=npath|
00001940  24 0d 0e d8 14 dd a4 6d  69 73 63 5f 70 61 74 68  |$......misc_path|
00001950  28 66 6e 24 29 0d 0e e2  0a ea 49 25 2c 46 24 0d  |(fn$).....I%,F$.|
00001960  0e ec 0a 46 24 3d 66 6e  24 0d 0e f6 05 f5 0d 0f  |...F$=fn$.......|
00001970  00 10 49 25 3d a7 66 6e  24 2c 22 2e 22 29 0d 0f  |..I%=.fn$,".")..|
00001980  0a 18 e7 49 25 3e 30 8c  66 6e 24 3d c1 66 6e 24  |...I%>0.fn$=.fn$|
00001990  2c 49 25 2b 31 29 0d 0f  14 09 fd 49 25 3d 30 0d  |,I%+1).....I%=0.|
000019a0  0f 1e 18 3d c0 46 24 2c  a9 28 46 24 29 2d a9 28  |...=.F$,.(F$)-.(|
000019b0  66 6e 24 29 2d 31 29 0d  0f 5a 1b dd f2 77 69 6e  |fn$)-1)..Z...win|
000019c0  64 5f 6f 70 65 6e 74 6f  70 28 77 69 6e 68 61 6e  |d_opentop(winhan|
000019d0  25 29 0d 0f 64 13 21 74  65 6d 70 31 25 3d 77 69  |%)..d.!temp1%=wi|
000019e0  6e 68 61 6e 25 0d 0f 6e  14 c8 99 26 34 30 30 43  |nhan%..n...&400C|
000019f0  42 2c 2c 74 65 6d 70 31  25 0d 0f 78 10 74 65 6d  |B,,temp1%..x.tem|
00001a00  70 31 25 21 32 38 3d 2d  31 0d 0f 82 14 c8 99 26  |p1%!28=-1......&|
00001a10  34 30 30 43 35 2c 2c 74  65 6d 70 31 25 0d 0f 8c  |400C5,,temp1%...|
00001a20  05 e1 0d 0f b4 1e dd f2  77 69 6e 64 5f 6f 70 65  |........wind_ope|
00001a30  6e 63 65 6e 74 72 65 28  77 69 6e 68 61 6e 25 29  |ncentre(winhan%)|
00001a40  0d 0f be 18 ea 78 25 2c  61 25 2c 79 25 2c 62 25  |.....x%,a%,y%,b%|
00001a50  2c 73 78 25 2c 73 79 25  0d 0f c8 12 c8 99 26 33  |,sx%,sy%......&3|
00001a60  35 2c eb 2c 34 b8 2c 2c  61 25 0d 0f d2 12 c8 99  |5,.,4.,,a%......|
00001a70  26 33 35 2c eb 2c 35 b8  2c 2c 62 25 0d 0f dc 13  |&35,.,5.,,b%....|
00001a80  c8 99 26 33 35 2c eb 2c  31 31 b8 2c 2c 78 25 0d  |..&35,.,11.,,x%.|
00001a90  0f e6 13 c8 99 26 33 35  2c eb 2c 31 32 b8 2c 2c  |.....&35,.,12.,,|
00001aa0  79 25 0d 0f f0 17 78 25  3d 78 25 3c 3c 61 25 3a  |y%....x%=x%<<a%:|
00001ab0  79 25 3d 79 25 3c 3c 62  25 0d 0f fa 13 21 74 65  |y%=y%<<b%....!te|
00001ac0  6d 70 31 25 3d 77 69 6e  68 61 6e 25 0d 10 04 14  |mp1%=winhan%....|
00001ad0  c8 99 26 34 30 30 43 42  2c 2c 74 65 6d 70 31 25  |..&400CB,,temp1%|
00001ae0  0d 10 0e 1a 73 78 25 3d  74 65 6d 70 31 25 21 31  |....sx%=temp1%!1|
00001af0  32 2d 74 65 6d 70 31 25  21 34 0d 10 18 1a 73 79  |2-temp1%!4....sy|
00001b00  25 3d 74 65 6d 70 31 25  21 31 36 2d 74 65 6d 70  |%=temp1%!16-temp|
00001b10  31 25 21 38 0d 10 22 2b  74 65 6d 70 31 25 21 34  |1%!8.."+temp1%!4|
00001b20  3d 28 78 25 2d 73 78 25  29 2f 32 3a 74 65 6d 70  |=(x%-sx%)/2:temp|
00001b30  31 25 21 38 3d 28 79 25  2d 73 79 25 29 2f 32 0d  |1%!8=(y%-sy%)/2.|
00001b40  10 2c 2d 74 65 6d 70 31  25 21 31 32 3d 28 78 25  |.,-temp1%!12=(x%|
00001b50  2b 73 78 25 29 2f 32 3a  74 65 6d 70 31 25 21 31  |+sx%)/2:temp1%!1|
00001b60  36 3d 28 79 25 2b 73 79  25 29 2f 32 0d 10 36 10  |6=(y%+sy%)/2..6.|
00001b70  74 65 6d 70 31 25 21 32  38 3d 2d 31 0d 10 40 14  |temp1%!28=-1..@.|
00001b80  c8 99 26 34 30 30 43 35  2c 2c 74 65 6d 70 31 25  |..&400C5,,temp1%|
00001b90  0d 10 4a 05 e1 0d 10 72  1c dd f2 77 69 6e 64 5f  |..J....r...wind_|
00001ba0  6f 70 65 6e 68 65 72 65  28 77 69 6e 68 61 6e 25  |openhere(winhan%|
00001bb0  29 0d 10 7c 15 ea 78 25  2c 79 25 2c 62 25 2c 73  |)..|..x%,y%,b%,s|
00001bc0  78 25 2c 73 79 25 0d 10  86 0e c8 97 78 25 2c 79  |x%,sy%......x%,y|
00001bd0  25 2c 62 25 0d 10 90 13  21 74 65 6d 70 31 25 3d  |%,b%....!temp1%=|
00001be0  77 69 6e 68 61 6e 25 0d  10 9a 14 c8 99 26 34 30  |winhan%......&40|
00001bf0  30 43 42 2c 2c 74 65 6d  70 31 25 0d 10 a4 1c 73  |0CB,,temp1%....s|
00001c00  78 25 3d 28 74 65 6d 70  31 25 21 31 32 2d 74 65  |x%=(temp1%!12-te|
00001c10  6d 70 31 25 21 34 29 0d  10 ae 1c 73 79 25 3d 28  |mp1%!4)....sy%=(|
00001c20  74 65 6d 70 31 25 21 31  36 2d 74 65 6d 70 31 25  |temp1%!16-temp1%|
00001c30  21 38 29 0d 10 b8 15 74  65 6d 70 31 25 21 34 3d  |!8)....temp1%!4=|
00001c40  78 25 2d 73 78 25 2f 32  0d 10 c2 17 74 65 6d 70  |x%-sx%/2....temp|
00001c50  31 25 21 38 3d 79 25 2d  73 79 25 2a 32 2f 33 0d  |1%!8=y%-sy%*2/3.|
00001c60  10 cc 16 74 65 6d 70 31  25 21 31 32 3d 78 25 2b  |...temp1%!12=x%+|
00001c70  73 78 25 2f 32 0d 10 d6  16 74 65 6d 70 31 25 21  |sx%/2....temp1%!|
00001c80  31 36 3d 79 25 2b 73 79  25 2f 33 0d 10 e0 10 74  |16=y%+sy%/3....t|
00001c90  65 6d 70 31 25 21 32 38  3d 2d 31 0d 10 ea 14 c8  |emp1%!28=-1.....|
00001ca0  99 26 34 30 30 43 35 2c  2c 74 65 6d 70 31 25 0d  |.&400C5,,temp1%.|
00001cb0  10 f4 05 e1 0d 11 1c 1e  dd f2 77 69 6e 64 5f 6f  |..........wind_o|
00001cc0  70 65 6e 6f 76 65 72 28  6f 6c 64 25 2c 6e 65 77  |penover(old%,new|
00001cd0  25 29 0d 11 26 10 21 74  65 6d 70 31 25 3d 6f 6c  |%)..&.!temp1%=ol|
00001ce0  64 25 0d 11 30 14 c8 99  26 34 30 30 43 42 2c 2c  |d%..0...&400CB,,|
00001cf0  74 65 6d 70 31 25 0d 11  3a 14 c8 99 26 34 30 30  |temp1%..:...&400|
00001d00  43 36 2c 2c 74 65 6d 70  31 25 0d 11 44 10 21 74  |C6,,temp1%..D.!t|
00001d10  65 6d 70 31 25 3d 6e 65  77 25 0d 11 4e 14 c8 99  |emp1%=new%..N...|
00001d20  26 34 30 30 43 35 2c 2c  74 65 6d 70 31 25 0d 11  |&400C5,,temp1%..|
00001d30  58 05 e1 0d 11 80 19 dd  f2 77 69 6e 64 5f 63 6c  |X........wind_cl|
00001d40  6f 73 65 28 77 69 6e 68  61 6e 25 29 0d 11 8a 13  |ose(winhan%)....|
00001d50  21 74 65 6d 70 31 25 3d  77 69 6e 68 61 6e 25 0d  |!temp1%=winhan%.|
00001d60  11 94 14 c8 99 26 34 30  30 43 36 2c 2c 74 65 6d  |.....&400C6,,tem|
00001d70  70 31 25 0d 11 9e 05 e1  0d 11 da 24 dd f2 69 63  |p1%........$..ic|
00001d80  6f 6e 5f 73 65 6c 65 63  74 28 77 69 6e 25 2c 69  |on_select(win%,i|
00001d90  63 6f 6e 25 2c 73 74 61  74 65 25 29 0d 11 e4 0e  |con%,state%)....|
00001da0  ea 65 6f 72 25 2c 62 69  63 25 0d 11 ee 0a 62 69  |.eor%,bic%....bi|
00001db0  63 25 3d 31 0d 11 f8 15  65 6f 72 25 3d 2d 28 73  |c%=1....eor%=-(s|
00001dc0  74 61 74 65 25 3c 3e 30  29 0d 12 02 1b e7 73 74  |tate%<>0).....st|
00001dd0  61 74 65 25 3d 32 8c 62  69 63 25 3d 30 3a 65 6f  |ate%=2.bic%=0:eo|
00001de0  72 25 3d 31 0d 12 0c 11  74 65 6d 70 31 25 21 30  |r%=1....temp1%!0|
00001df0  3d 77 69 6e 25 0d 12 16  12 74 65 6d 70 31 25 21  |=win%....temp1%!|
00001e00  34 3d 69 63 6f 6e 25 0d  12 20 15 74 65 6d 70 31  |4=icon%.. .temp1|
00001e10  25 21 38 3d 65 6f 72 25  3c 3c 32 31 0d 12 2a 16  |%!8=eor%<<21..*.|
00001e20  74 65 6d 70 31 25 21 31  32 3d 62 69 63 25 3c 3c  |temp1%!12=bic%<<|
00001e30  32 31 0d 12 34 14 c8 99  26 34 30 30 43 44 2c 2c  |21..4...&400CD,,|
00001e40  74 65 6d 70 31 25 0d 12  3e 05 e1 0d 12 66 1d dd  |temp1%..>....f..|
00001e50  a4 69 63 6f 6e 5f 73 65  6c 65 63 74 28 77 69 6e  |.icon_select(win|
00001e60  25 2c 69 63 6f 6e 25 29  0d 12 70 0b ea 73 74 61  |%,icon%)..p..sta|
00001e70  74 65 25 0d 12 7a 11 74  65 6d 70 31 25 21 30 3d  |te%..z.temp1%!0=|
00001e80  77 69 6e 25 0d 12 84 12  74 65 6d 70 31 25 21 34  |win%....temp1%!4|
00001e90  3d 69 63 6f 6e 25 0d 12  8e 14 c8 99 26 34 30 30  |=icon%......&400|
00001ea0  43 45 2c 2c 74 65 6d 70  31 25 0d 12 98 1c 3d 28  |CE,,temp1%....=(|
00001eb0  74 65 6d 70 31 25 21 32  34 80 28 31 3c 3c 32 31  |temp1%!24.(1<<21|
00001ec0  29 29 3e 3e 32 31 0d 12  c0 21 dd f2 69 63 6f 6e  |))>>21...!..icon|
00001ed0  5f 74 65 78 74 28 77 69  6e 25 2c 69 63 6f 6e 25  |_text(win%,icon%|
00001ee0  2c 74 65 78 74 24 29 0d  12 ca 11 74 65 6d 70 31  |,text$)....temp1|
00001ef0  25 21 30 3d 77 69 6e 25  0d 12 d4 12 74 65 6d 70  |%!0=win%....temp|
00001f00  31 25 21 34 3d 69 63 6f  6e 25 0d 12 de 14 c8 99  |1%!4=icon%......|
00001f10  26 34 30 30 43 45 2c 2c  74 65 6d 70 31 25 0d 12  |&400CE,,temp1%..|
00001f20  e8 1b e7 28 74 65 6d 70  31 25 21 32 34 80 28 31  |...(temp1%!24.(1|
00001f30  3c 3c 38 29 29 3d 30 8c  e1 0d 12 f2 24 24 28 74  |<<8))=0.....$$(t|
00001f40  65 6d 70 31 25 21 32 38  29 3d c0 74 65 78 74 24  |emp1%!28)=.text$|
00001f50  2c 74 65 6d 70 31 25 21  33 36 2d 31 29 0d 13 06  |,temp1%!36-1)...|
00001f60  11 74 65 6d 70 31 25 21  30 3d 77 69 6e 25 0d 13  |.temp1%!0=win%..|
00001f70  10 12 74 65 6d 70 31 25  21 34 3d 69 63 6f 6e 25  |..temp1%!4=icon%|
00001f80  0d 13 1a 0e 74 65 6d 70  31 25 21 38 3d 30 0d 13  |....temp1%!8=0..|
00001f90  24 0f 74 65 6d 70 31 25  21 31 32 3d 30 0d 13 2e  |$.temp1%!12=0...|
00001fa0  14 c8 99 26 34 30 30 43  44 2c 2c 74 65 6d 70 31  |...&400CD,,temp1|
00001fb0  25 0d 13 38 05 e1 0d 13  60 1b dd a4 69 63 6f 6e  |%..8....`...icon|
00001fc0  5f 74 65 78 74 28 77 69  6e 25 2c 69 63 6f 6e 25  |_text(win%,icon%|
00001fd0  29 0d 13 6a 11 74 65 6d  70 31 25 21 30 3d 77 69  |)..j.temp1%!0=wi|
00001fe0  6e 25 0d 13 74 12 74 65  6d 70 31 25 21 34 3d 69  |n%..t.temp1%!4=i|
00001ff0  63 6f 6e 25 0d 13 7e 14  c8 99 26 34 30 30 43 45  |con%..~...&400CE|
00002000  2c 2c 74 65 6d 70 31 25  0d 13 88 19 3d a4 6d 69  |,,temp1%....=.mi|
00002010  73 63 5f 73 74 72 28 74  65 6d 70 31 25 21 32 38  |sc_str(temp1%!28|
00002020  29 0d 13 b0 1b dd a4 69  63 6f 6e 5f 65 76 61 6c  |)......icon_eval|
00002030  28 77 69 6e 25 2c 69 63  6f 6e 25 29 0d 13 ba 0d  |(win%,icon%)....|
00002040  ea 73 74 72 24 2c 6e 75  6d 0d 13 c4 11 74 65 6d  |.str$,num....tem|
00002050  70 31 25 21 30 3d 77 69  6e 25 0d 13 ce 12 74 65  |p1%!0=win%....te|
00002060  6d 70 31 25 21 34 3d 69  63 6f 6e 25 0d 13 d8 14  |mp1%!4=icon%....|
00002070  c8 99 26 34 30 30 43 45  2c 2c 74 65 6d 70 31 25  |..&400CE,,temp1%|
00002080  0d 13 e2 1d 73 74 72 24  3d a4 6d 69 73 63 5f 73  |....str$=.misc_s|
00002090  74 72 28 74 65 6d 70 31  25 21 32 38 29 0d 13 ec  |tr(temp1%!28)...|
000020a0  06 ea 85 0d 13 f6 0c ee  85 ea f7 85 3a 3d 30 0d  |............:=0.|
000020b0  14 00 0f 6e 75 6d 3d a0  28 73 74 72 24 29 0d 14  |...num=.(str$)..|
000020c0  0a 06 f7 85 0d 14 14 08  3d 6e 75 6d 0d 14 3c 27  |........=num..<'|
000020d0  dd f2 69 63 6f 6e 5f 76  61 6c 28 77 69 6e 25 2c  |..icon_val(win%,|
000020e0  69 63 6f 6e 25 2c 76 61  6c 24 2c 75 70 64 61 74  |icon%,val$,updat|
000020f0  65 25 29 0d 14 46 11 74  65 6d 70 31 25 21 30 3d  |e%)..F.temp1%!0=|
00002100  77 69 6e 25 0d 14 50 12  74 65 6d 70 31 25 21 34  |win%..P.temp1%!4|
00002110  3d 69 63 6f 6e 25 0d 14  5a 14 c8 99 26 34 30 30  |=icon%..Z...&400|
00002120  43 45 2c 2c 74 65 6d 70  31 25 0d 14 64 1b e7 28  |CE,,temp1%..d..(|
00002130  74 65 6d 70 31 25 21 32  34 80 28 31 3c 3c 38 29  |temp1%!24.(1<<8)|
00002140  29 3d 30 8c e1 0d 14 6e  15 24 28 74 65 6d 70 31  |)=0....n.$(temp1|
00002150  25 21 33 32 29 3d 76 61  6c 24 0d 14 78 10 e7 75  |%!32)=val$..x..u|
00002160  70 64 61 74 65 25 3d 30  8c e1 0d 14 8c 11 74 65  |pdate%=0......te|
00002170  6d 70 31 25 21 30 3d 77  69 6e 25 0d 14 96 12 74  |mp1%!0=win%....t|
00002180  65 6d 70 31 25 21 34 3d  69 63 6f 6e 25 0d 14 a0  |emp1%!4=icon%...|
00002190  0e 74 65 6d 70 31 25 21  38 3d 30 0d 14 aa 0f 74  |.temp1%!8=0....t|
000021a0  65 6d 70 31 25 21 31 32  3d 30 0d 14 b4 14 c8 99  |emp1%!12=0......|
000021b0  26 34 30 30 43 44 2c 2c  74 65 6d 70 31 25 0d 14  |&400CD,,temp1%..|
000021c0  be 05 e1 0d 14 e6 1d dd  f2 69 63 6f 6e 5f 75 70  |.........icon_up|
000021d0  64 61 74 65 28 77 69 6e  25 2c 69 63 6f 6e 25 29  |date(win%,icon%)|
000021e0  0d 14 f0 11 74 65 6d 70  31 25 21 30 3d 77 69 6e  |....temp1%!0=win|
000021f0  25 0d 14 fa 12 74 65 6d  70 31 25 21 34 3d 69 63  |%....temp1%!4=ic|
00002200  6f 6e 25 0d 15 04 0e 74  65 6d 70 31 25 21 38 3d  |on%....temp1%!8=|
00002210  30 0d 15 0e 0f 74 65 6d  70 31 25 21 31 32 3d 30  |0....temp1%!12=0|
00002220  0d 15 18 14 c8 99 26 34  30 30 43 44 2c 2c 74 65  |......&400CD,,te|
00002230  6d 70 31 25 0d 15 22 05  e1 0d 15 4a 19 dd f2 69  |mp1%.."....J...i|
00002240  63 6f 6e 5f 63 6c 65 61  72 61 6c 6c 28 77 69 6e  |con_clearall(win|
00002250  25 29 0d 15 54 07 ea 4e  25 0d 15 5e 24 c8 99 26  |%)..T..N%..^$..&|
00002260  34 30 30 44 36 2c 77 69  6e 25 2c 74 65 6d 70 32  |400D6,win%,temp2|
00002270  25 2c 31 3c 3c 32 31 2c  31 3c 3c 32 31 0d 15 68  |%,1<<21,1<<21..h|
00002280  0d 4e 25 3d 74 65 6d 70  32 25 0d 15 72 0c c8 95  |.N%=temp2%..r...|
00002290  21 4e 25 3e 2d 31 0d 15  7c 1c f2 69 63 6f 6e 5f  |!N%>-1..|..icon_|
000022a0  73 65 6c 65 63 74 28 77  69 6e 25 2c 21 4e 25 2c  |select(win%,!N%,|
000022b0  30 29 0d 15 86 09 4e 25  2b 3d 34 0d 15 90 05 ce  |0)....N%+=4.....|
000022c0  0d 15 9a 05 e1 0d 15 c2  1a dd f2 69 63 6f 6e 5f  |...........icon_|
000022d0  73 65 6c 65 63 74 61 6c  6c 28 77 69 6e 25 29 0d  |selectall(win%).|
000022e0  15 cc 07 ea 4e 25 0d 15  d6 24 c8 99 26 34 30 30  |....N%...$..&400|
000022f0  44 36 2c 77 69 6e 25 2c  74 65 6d 70 32 25 2c 31  |D6,win%,temp2%,1|
00002300  3c 3c 32 31 2c 30 3c 3c  32 31 0d 15 e0 0d 4e 25  |<<21,0<<21....N%|
00002310  3d 74 65 6d 70 32 25 0d  15 ea 0c c8 95 21 4e 25  |=temp2%......!N%|
00002320  3e 2d 31 0d 15 f4 1c f2  69 63 6f 6e 5f 73 65 6c  |>-1.....icon_sel|
00002330  65 63 74 28 77 69 6e 25  2c 21 4e 25 2c 31 29 0d  |ect(win%,!N%,1).|
00002340  15 fe 09 4e 25 2b 3d 34  0d 16 08 05 ce 0d 16 12  |...N%+=4........|
00002350  05 e1 0d 16 3a 18 dd a4  69 63 6f 6e 5f 6e 65 78  |....:...icon_nex|
00002360  74 73 65 6c 28 77 69 6e  25 29 0d 16 44 24 c8 99  |tsel(win%)..D$..|
00002370  26 34 30 30 44 36 2c 77  69 6e 25 2c 74 65 6d 70  |&400D6,win%,temp|
00002380  32 25 2c 31 3c 3c 32 31  2c 31 3c 3c 32 31 0d 16  |2%,1<<21,1<<21..|
00002390  4e 0c 3d 21 74 65 6d 70  32 25 0d 16 76 3b dd f2  |N.=!temp2%..v;..|
000023a0  69 63 6f 6e 5f 70 6f 73  28 77 69 6e 25 2c 69 63  |icon_pos(win%,ic|
000023b0  6f 6e 25 2c f8 6d 69 6e  78 25 2c f8 6d 69 6e 79  |on%,.minx%,.miny|
000023c0  25 2c f8 6d 61 78 78 25  2c f8 6d 61 78 79 25 2c  |%,.maxx%,.maxy%,|
000023d0  6c 6f 63 25 29 0d 16 80  0a ea 78 25 2c 79 25 0d  |loc%).....x%,y%.|
000023e0  16 8a 0c e7 6c 6f 63 25  3d 30 8c 0d 16 94 1b 6c  |....loc%=0.....l|
000023f0  6f 63 25 3d 74 65 6d 70  31 25 3a 6c 6f 63 25 21  |oc%=temp1%:loc%!|
00002400  30 3d 77 69 6e 25 0d 16  9e 12 c8 99 26 34 30 30  |0=win%......&400|
00002410  43 42 2c 2c 6c 6f 63 25  0d 16 a8 05 cd 0d 16 b2  |CB,,loc%........|
00002420  28 78 25 3d 6c 6f 63 25  21 34 2d 6c 6f 63 25 21  |(x%=loc%!4-loc%!|
00002430  32 30 3a 79 25 3d 6c 6f  63 25 21 31 36 2d 6c 6f  |20:y%=loc%!16-lo|
00002440  63 25 21 32 34 0d 16 bc  11 74 65 6d 70 31 25 21  |c%!24....temp1%!|
00002450  30 3d 77 69 6e 25 0d 16  c6 12 74 65 6d 70 31 25  |0=win%....temp1%|
00002460  21 34 3d 69 63 6f 6e 25  0d 16 d0 14 c8 99 26 34  |!4=icon%......&4|
00002470  30 30 43 45 2c 2c 74 65  6d 70 31 25 0d 16 da 1e  |00CE,,temp1%....|
00002480  74 65 6d 70 31 25 21 38  2b 3d 78 25 3a 74 65 6d  |temp1%!8+=x%:tem|
00002490  70 31 25 21 31 36 2b 3d  78 25 0d 16 e4 1f 74 65  |p1%!16+=x%....te|
000024a0  6d 70 31 25 21 31 32 2b  3d 79 25 3a 74 65 6d 70  |mp1%!12+=y%:temp|
000024b0  31 25 21 32 30 2b 3d 79  25 0d 16 ee 22 6d 69 6e  |1%!20+=y%..."min|
000024c0  78 25 3d 74 65 6d 70 31  25 21 38 3a 6d 69 6e 79  |x%=temp1%!8:miny|
000024d0  25 3d 74 65 6d 70 31 25  21 31 32 0d 16 f8 23 6d  |%=temp1%!12...#m|
000024e0  61 78 78 25 3d 74 65 6d  70 31 25 21 31 36 3a 6d  |axx%=temp1%!16:m|
000024f0  61 78 79 25 3d 74 65 6d  70 31 25 21 32 30 0d 17  |axy%=temp1%!20..|
00002500  02 05 e1 0d 17 2a 24 dd  f2 69 63 6f 6e 5f 73 65  |.....*$..icon_se|
00002510  74 63 61 72 65 74 28 77  69 6e 25 2c 69 63 6f 6e  |tcaret(win%,icon|
00002520  25 2c 70 6f 73 25 29 0d  17 34 0c e7 70 6f 73 25  |%,pos%)..4..pos%|
00002530  3c 30 8c 0d 17 3e 20 74  65 6d 70 31 25 21 30 3d  |<0...> temp1%!0=|
00002540  77 69 6e 25 3a 74 65 6d  70 31 25 21 34 3d 69 63  |win%:temp1%!4=ic|
00002550  6f 6e 25 0d 17 48 14 c8  99 26 34 30 30 43 45 2c  |on%..H...&400CE,|
00002560  2c 74 65 6d 70 31 25 0d  17 52 20 70 6f 73 25 3d  |,temp1%..R pos%=|
00002570  a9 28 a4 6d 69 73 63 5f  73 74 72 28 74 65 6d 70  |.(.misc_str(temp|
00002580  31 25 21 32 38 29 29 0d  17 5c 05 cd 0d 17 66 25  |1%!28))..\....f%|
00002590  c8 99 26 34 30 30 44 32  2c 77 69 6e 25 2c 69 63  |..&400D2,win%,ic|
000025a0  6f 6e 25 2c 2d 31 2c 2d  31 2c 2d 31 2c 70 6f 73  |on%,-1,-1,-1,pos|
000025b0  25 0d 17 70 05 e1 0d 17  98 26 dd f2 69 63 6f 6e  |%..p.....&..icon|
000025c0  5f 73 74 6f 72 65 63 61  72 65 74 28 77 69 6e 25  |_storecaret(win%|
000025d0  2c 69 63 6f 6e 25 2c 70  6f 73 25 29 0d 17 a2 0c  |,icon%,pos%)....|
000025e0  e7 70 6f 73 25 3c 30 8c  0d 17 ac 20 74 65 6d 70  |.pos%<0.... temp|
000025f0  31 25 21 30 3d 77 69 6e  25 3a 74 65 6d 70 31 25  |1%!0=win%:temp1%|
00002600  21 34 3d 69 63 6f 6e 25  0d 17 b6 14 c8 99 26 34  |!4=icon%......&4|
00002610  30 30 43 45 2c 2c 74 65  6d 70 31 25 0d 17 c0 20  |00CE,,temp1%... |
00002620  70 6f 73 25 3d a9 28 a4  6d 69 73 63 5f 73 74 72  |pos%=.(.misc_str|
00002630  28 74 65 6d 70 31 25 21  32 38 29 29 0d 17 ca 05  |(temp1%!28))....|
00002640  cd 0d 17 d4 14 c8 99 26  34 30 30 44 33 2c 2c 63  |.......&400D3,,c|
00002650  61 72 65 74 25 0d 17 de  25 c8 99 26 34 30 30 44  |aret%...%..&400D|
00002660  32 2c 77 69 6e 25 2c 69  63 6f 6e 25 2c 2d 31 2c  |2,win%,icon%,-1,|
00002670  2d 31 2c 2d 31 2c 70 6f  73 25 0d 17 e8 05 e1 0d  |-1,-1,pos%......|
00002680  18 10 17 dd f2 69 63 6f  6e 5f 72 65 73 74 6f 72  |.....icon_restor|
00002690  65 63 61 72 65 74 0d 18  1a 52 e7 63 61 72 65 74  |ecaret...R.caret|
000026a0  25 21 30 3c 3e 30 8c c8  99 26 36 30 30 44 32 2c  |%!0<>0...&600D2,|
000026b0  63 61 72 65 74 25 21 30  2c 63 61 72 65 74 25 21  |caret%!0,caret%!|
000026c0  34 2c 63 61 72 65 74 25  21 38 2c 63 61 72 65 74  |4,caret%!8,caret|
000026d0  25 21 31 32 2c 63 61 72  65 74 25 21 31 36 2c 63  |%!12,caret%!16,c|
000026e0  61 72 65 74 25 21 32 30  0d 18 24 0e 63 61 72 65  |aret%!20..$.care|
000026f0  74 25 21 30 3d 30 0d 18  2e 05 e1 0d 18 6a 1d dd  |t%!0=0.......j..|
00002700  a4 77 61 72 6e 5f 6d 65  73 73 61 67 65 28 6d 65  |.warn_message(me|
00002710  73 73 63 6f 64 65 25 29  0d 18 74 32 ea 74 79 70  |sscode%)..t2.typ|
00002720  65 25 2c 73 31 25 2c 73  32 25 2c 73 33 25 2c 73  |e%,s1%,s2%,s3%,s|
00002730  31 24 2c 73 32 24 2c 73  33 24 2c 6d 65 73 73 24  |1$,s2$,s3$,mess$|
00002740  2c 72 65 74 25 2c 65 73  63 25 0d 18 7e 10 c8 8e  |,ret%,esc%..~...|
00002750  6d 65 73 73 63 6f 64 65  25 ca 0d 18 88 06 c9 30  |messcode%......0|
00002760  0d 18 92 58 6d 65 73 73  24 3d 22 44 72 61 67 20  |...Xmess$="Drag |
00002770  61 20 73 61 6d 70 6c 65  20 66 69 6c 65 20 6f 72  |a sample file or|
00002780  20 61 20 73 63 72 69 70  74 20 66 69 6c 65 20 74  | a script file t|
00002790  6f 20 74 68 65 20 57 61  76 65 20 50 6c 61 79 65  |o the Wave Playe|
000027a0  72 20 69 63 6f 6e 20 74  6f 20 62 65 67 69 6e 20  |r icon to begin |
000027b0  70 6c 61 79 69 6e 67 22  0d 18 9c 15 73 31 24 3d  |playing"....s1$=|
000027c0  22 4f 4b 22 3a 73 31 25  3d 97 22 4f 22 0d 18 a6  |"OK":s1%=."O"...|
000027d0  19 74 79 70 65 25 3d 31  3a 72 65 74 25 3d 31 3a  |.type%=1:ret%=1:|
000027e0  65 73 63 25 3d 31 0d 18  ba 06 c9 31 0d 18 c4 82  |esc%=1.....1....|
000027f0  6d 65 73 73 24 3d 22 54  68 65 72 65 20 69 73 20  |mess$="There is |
00002800  61 20 73 61 6d 70 6c 65  20 73 74 69 6c 6c 20 70  |a sample still p|
00002810  6c 61 79 69 6e 67 20 2d  20 61 72 65 20 79 6f 75  |laying - are you|
00002820  20 73 75 72 65 20 79 6f  75 20 77 61 6e 74 20 74  | sure you want t|
00002830  6f 20 71 75 69 74 2c 20  6f 72 20 64 6f 20 79 6f  |o quit, or do yo|
00002840  75 20 77 61 6e 74 20 74  6f 20 77 61 69 74 20 75  |u want to wait u|
00002850  6e 74 69 6c 20 74 68 65  20 73 61 6d 70 6c 65 20  |ntil the sample |
00002860  68 61 73 20 66 69 6e 69  73 68 65 64 3f 22 0d 18  |has finished?"..|
00002870  ce 1b 73 31 24 3d 22 43  6f 6e 74 69 6e 75 65 22  |..s1$="Continue"|
00002880  3a 73 31 25 3d 97 22 43  22 0d 18 d8 17 73 32 24  |:s1%=."C"....s2$|
00002890  3d 22 57 61 69 74 22 3a  73 32 25 3d 97 22 57 22  |="Wait":s2%=."W"|
000028a0  0d 18 e2 17 73 33 24 3d  22 51 75 69 74 22 3a 73  |....s3$="Quit":s|
000028b0  33 25 3d 97 22 51 22 0d  18 ec 19 74 79 70 65 25  |3%=."Q"....type%|
000028c0  3d 33 3a 72 65 74 25 3d  31 3a 65 73 63 25 3d 32  |=3:ret%=1:esc%=2|
000028d0  0d 19 00 06 c9 32 0d 19  0a 91 6d 65 73 73 24 3d  |.....2....mess$=|
000028e0  22 54 68 69 73 20 73 74  6f 72 61 67 65 20 6d 65  |"This storage me|
000028f0  64 69 61 20 69 73 20 76  65 72 79 20 73 6c 6f 77  |dia is very slow|
00002900  2c 20 61 6e 64 20 73 6f  20 70 6c 61 79 69 6e 67  |, and so playing|
00002910  20 74 68 65 20 73 61 6d  70 6c 65 20 63 6f 75 6c  | the sample coul|
00002920  64 20 68 61 6c 74 20 74  68 65 20 77 68 6f 6c 65  |d halt the whole|
00002930  20 6d 61 63 68 69 6e 65  2e 20 48 6f 6c 64 20 64  | machine. Hold d|
00002940  6f 77 6e 20 43 6f 6e 74  72 6f 6c 20 61 6e 64 20  |own Control and |
00002950  45 73 63 61 70 65 20 69  66 20 74 68 69 73 20 68  |Escape if this h|
00002960  61 70 70 65 6e 73 22 0d  19 14 17 73 31 24 3d 22  |appens"....s1$="|
00002970  53 74 6f 70 22 3a 73 31  25 3d 97 22 53 22 0d 19  |Stop":s1%=."S"..|
00002980  1e 17 73 32 24 3d 22 50  6c 61 79 22 3a 73 32 25  |..s2$="Play":s2%|
00002990  3d 97 22 50 22 0d 19 28  19 74 79 70 65 25 3d 32  |=."P"..(.type%=2|
000029a0  3a 72 65 74 25 3d 31 3a  65 73 63 25 3d 31 0d 19  |:ret%=1:esc%=1..|
000029b0  3c 06 c9 33 0d 19 46 b3  6d 65 73 73 24 3d 22 53  |<..3..F.mess$="S|
000029c0  74 72 6f 6e 67 48 65 6c  70 20 68 61 73 20 62 65  |trongHelp has be|
000029d0  65 6e 20 6c 6f 63 61 74  65 64 2c 20 62 75 74 20  |en located, but |
000029e0  74 68 65 20 68 65 6c 70  20 66 69 6c 65 73 20 68  |the help files h|
000029f0  61 76 65 20 6e 6f 74 20  62 65 65 6e 20 69 6e 73  |ave not been ins|
00002a00  74 61 6c 6c 65 64 2c 20  6f 72 20 68 61 76 65 20  |talled, or have |
00002a10  62 65 65 6e 20 64 65 6c  65 74 65 64 2e 20 52 75  |been deleted. Ru|
00002a20  6e 20 74 68 65 20 68 65  6c 70 20 66 69 6c 65 20  |n the help file |
00002a30  69 6e 73 74 61 6c 6c 61  74 69 6f 6e 20 70 72 6f  |installation pro|
00002a40  67 72 61 6d 20 70 72 6f  76 69 64 65 64 20 69 6e  |gram provided in|
00002a50  20 74 68 65 20 27 48 65  6c 70 27 20 64 69 72 65  | the 'Help' dire|
00002a60  63 74 6f 72 79 2e 22 0d  19 50 15 73 31 24 3d 22  |ctory."..P.s1$="|
00002a70  4f 4b 22 3a 73 31 25 3d  97 22 4f 22 0d 19 5a 19  |OK":s1%=."O"..Z.|
00002a80  74 79 70 65 25 3d 31 3a  72 65 74 25 3d 31 3a 65  |type%=1:ret%=1:e|
00002a90  73 63 25 3d 31 0d 19 6e  06 c9 34 0d 19 78 97 6d  |sc%=1..n..4..x.m|
00002aa0  65 73 73 24 3d 22 53 74  72 6f 6e 67 48 65 6c 70  |ess$="StrongHelp|
00002ab0  20 63 61 6e 6e 6f 74 20  62 65 20 6c 6f 63 61 74  | cannot be locat|
00002ac0  65 64 2c 20 62 75 74 20  74 68 65 20 68 65 6c 70  |ed, but the help|
00002ad0  20 66 69 6c 65 73 20 68  61 76 65 20 62 65 65 6e  | files have been|
00002ae0  20 69 6e 73 74 61 6c 6c  65 64 2e 20 54 72 79 20  | installed. Try |
00002af0  6f 70 65 6e 69 6e 67 20  74 68 65 20 66 69 6c 65  |opening the file|
00002b00  72 20 77 69 6e 64 6f 77  20 63 6f 6e 74 61 69 6e  |r window contain|
00002b10  69 6e 67 20 74 68 65 20  61 70 70 6c 69 63 61 74  |ing the applicat|
00002b20  69 6f 6e 20 27 21 53 74  72 6f 6e 67 48 6c 70 27  |ion '!StrongHlp'|
00002b30  2e 22 0d 19 82 15 73 31  24 3d 22 4f 4b 22 3a 73  |."....s1$="OK":s|
00002b40  31 25 3d 97 22 4f 22 0d  19 8c 19 74 79 70 65 25  |1%=."O"....type%|
00002b50  3d 31 3a 72 65 74 25 3d  31 3a 65 73 63 25 3d 31  |=1:ret%=1:esc%=1|
00002b60  0d 19 a0 06 c9 35 0d 19  aa a1 6d 65 73 73 24 3d  |.....5....mess$=|
00002b70  22 54 68 65 20 69 6e 73  74 61 6c 6c 61 74 69 6f  |"The installatio|
00002b80  6e 20 6f 66 20 74 68 65  20 53 74 72 6f 6e 67 48  |n of the StrongH|
00002b90  65 6c 70 20 68 65 6c 70  20 66 69 6c 65 73 20 68  |elp help files h|
00002ba0  61 73 20 62 65 65 6e 20  72 65 70 6f 72 74 65 64  |as been reported|
00002bb0  20 74 6f 20 68 61 76 65  20 66 61 69 6c 65 64 20  | to have failed |
00002bc0  6f 72 20 61 62 6f 72 74  65 64 2e 20 54 72 79 20  |or aborted. Try |
00002bd0  72 65 2d 72 75 6e 6e 69  6e 67 20 27 49 6e 73 74  |re-running 'Inst|
00002be0  61 6c 6c 27 20 70 72 6f  76 69 64 65 64 20 69 6e  |all' provided in|
00002bf0  20 74 68 65 20 27 48 65  6c 70 27 20 64 69 72 65  | the 'Help' dire|
00002c00  63 74 6f 72 79 2e 22 0d  19 b4 15 73 31 24 3d 22  |ctory."....s1$="|
00002c10  4f 4b 22 3a 73 31 25 3d  97 22 4f 22 0d 19 be 19  |OK":s1%=."O"....|
00002c20  74 79 70 65 25 3d 31 3a  72 65 74 25 3d 31 3a 65  |type%=1:ret%=1:e|
00002c30  73 63 25 3d 31 0d 19 d2  06 c9 36 0d 19 dc a5 6d  |sc%=1.....6....m|
00002c40  65 73 73 24 3d 22 54 68  65 20 69 6e 73 74 61 6c  |ess$="The instal|
00002c50  6c 61 74 69 6f 6e 20 6f  66 20 74 68 65 20 53 74  |lation of the St|
00002c60  72 6f 6e 67 48 65 6c 70  20 68 65 6c 70 20 66 69  |rongHelp help fi|
00002c70  6c 65 73 20 68 61 73 20  70 72 65 76 69 6f 75 73  |les has previous|
00002c80  6c 79 20 66 61 69 6c 65  64 2e 20 48 6f 77 65 76  |ly failed. Howev|
00002c90  65 72 2c 20 74 68 65 20  68 65 6c 70 20 66 69 6c  |er, the help fil|
00002ca0  65 73 20 73 65 65 6d 20  74 6f 20 62 65 20 70 72  |es seem to be pr|
00002cb0  65 73 65 6e 74 20 2d 20  64 6f 20 79 6f 75 20 77  |esent - do you w|
00002cc0  61 6e 74 20 74 6f 20 74  72 79 20 74 6f 20 73 74  |ant to try to st|
00002cd0  61 72 74 20 53 74 72 6f  6e 67 48 65 6c 70 3f 22  |art StrongHelp?"|
00002ce0  0d 19 e6 18 73 31 24 3d  22 53 74 61 72 74 22 3a  |....s1$="Start":|
00002cf0  73 31 25 3d 97 22 53 22  0d 19 f0 19 73 32 24 3d  |s1%=."S"....s2$=|
00002d00  22 43 61 6e 63 65 6c 22  3a 73 32 25 3d 97 22 43  |"Cancel":s2%=."C|
00002d10  22 0d 19 fa 19 74 79 70  65 25 3d 32 3a 72 65 74  |"....type%=2:ret|
00002d20  25 3d 31 3a 65 73 63 25  3d 32 0d 1a 0e 06 c9 37  |%=1:esc%=2.....7|
00002d30  0d 1a 18 aa 6d 65 73 73  24 3d 22 54 68 69 73 20  |....mess$="This |
00002d40  73 74 6f 72 61 67 65 20  6d 65 64 69 61 20 6d 61  |storage media ma|
00002d50  79 20 62 65 20 74 6f 6f  20 73 6c 6f 77 2c 20 61  |y be too slow, a|
00002d60  6e 64 20 73 6f 20 70 6c  61 79 69 6e 67 20 74 68  |nd so playing th|
00002d70  65 20 73 61 6d 70 6c 65  20 63 6f 75 6c 64 20 68  |e sample could h|
00002d80  61 6c 74 20 74 68 65 20  77 68 6f 6c 65 20 6d 61  |alt the whole ma|
00002d90  63 68 69 6e 65 2c 20 6f  72 20 6d 61 6b 65 20 69  |chine, or make i|
00002da0  74 20 76 65 72 79 20 73  6c 6f 77 2e 20 48 6f 6c  |t very slow. Hol|
00002db0  64 20 64 6f 77 6e 20 43  6f 6e 74 72 6f 6c 20 61  |d down Control a|
00002dc0  6e 64 20 45 73 63 61 70  65 20 69 66 20 74 68 69  |nd Escape if thi|
00002dd0  73 20 68 61 70 70 65 6e  73 22 0d 1a 22 17 73 31  |s happens"..".s1|
00002de0  24 3d 22 53 74 6f 70 22  3a 73 31 25 3d 97 22 53  |$="Stop":s1%=."S|
00002df0  22 0d 1a 2c 17 73 32 24  3d 22 50 6c 61 79 22 3a  |"..,.s2$="Play":|
00002e00  73 32 25 3d 97 22 50 22  0d 1a 36 19 74 79 70 65  |s2%=."P"..6.type|
00002e10  25 3d 32 3a 72 65 74 25  3d 31 3a 65 73 63 25 3d  |%=2:ret%=1:esc%=|
00002e20  31 0d 1a 4a 06 c9 38 0d  1a 54 4c 6d 65 73 73 24  |1..J..8..TLmess$|
00002e30  3d 22 54 6f 20 61 63 63  65 73 73 20 74 68 65 20  |="To access the |
00002e40  68 65 6c 70 2c 20 70 6c  65 61 73 65 20 6c 6f 6f  |help, please loo|
00002e50  6b 20 69 6e 20 74 68 65  20 64 69 72 65 63 74 6f  |k in the directo|
00002e60  72 79 20 27 48 65 6c 70  2e 54 65 78 74 48 65 6c  |ry 'Help.TextHel|
00002e70  70 27 22 0d 1a 5e 15 73  31 24 3d 22 4f 4b 22 3a  |p'"..^.s1$="OK":|
00002e80  73 31 25 3d 97 22 4f 22  0d 1a 68 19 74 79 70 65  |s1%=."O"..h.type|
00002e90  25 3d 31 3a 72 65 74 25  3d 31 3a 65 73 63 25 3d  |%=1:ret%=1:esc%=|
00002ea0  31 0d 1a 7c 06 c9 39 0d  1a 86 3d 6d 65 73 73 24  |1..|..9...=mess$|
00002eb0  3d 22 54 68 69 73 20 73  61 6d 70 6c 65 20 64 6f  |="This sample do|
00002ec0  65 73 20 6e 6f 74 20 61  70 70 65 61 72 20 74 6f  |es not appear to|
00002ed0  20 62 65 20 22 2b 74 79  70 65 24 2b 22 20 66 69  | be "+type$+" fi|
00002ee0  6c 65 2e 22 0d 1a 90 15  73 31 24 3d 22 4f 4b 22  |le."....s1$="OK"|
00002ef0  3a 73 31 25 3d 97 22 4f  22 0d 1a 9a 19 74 79 70  |:s1%=."O"....typ|
00002f00  65 25 3d 31 3a 72 65 74  25 3d 31 3a 65 73 63 25  |e%=1:ret%=1:esc%|
00002f10  3d 31 0d 1a ae 08 c9 32  35 34 0d 1a b8 2b 6d 65  |=1.....254...+me|
00002f20  73 73 24 3d 22 45 78 74  65 72 6e 61 6c 20 65 72  |ss$="External er|
00002f30  72 6f 72 20 2d 20 22 2b  f6 24 2b 22 20 40 20 22  |ror - "+.$+" @ "|
00002f40  2b c3 28 9e 29 0d 1a c2  2f 73 31 24 3d 22 43 6f  |+.(.).../s1$="Co|
00002f50  6e 74 69 6e 75 65 22 3a  73 31 25 3d 97 22 43 22  |ntinue":s1%=."C"|
00002f60  3a 73 32 24 3d 22 51 75  69 74 22 3a 73 32 25 3d  |:s2$="Quit":s2%=|
00002f70  97 22 51 22 0d 1a cc 19  74 79 70 65 25 3d 32 3a  |."Q"....type%=2:|
00002f80  72 65 74 25 3d 31 3a 65  73 63 25 3d 32 0d 1a d6  |ret%=1:esc%=2...|
00002f90  08 c9 32 35 35 0d 1a e0  2a 6d 65 73 73 24 3d 22  |..255...*mess$="|
00002fa0  50 72 6f 67 72 61 6d 20  65 72 72 6f 72 20 2d 20  |Program error - |
00002fb0  22 2b f6 24 2b 22 20 40  20 22 2b c3 28 9e 29 0d  |"+.$+" @ "+.(.).|
00002fc0  1a ea 2f 73 31 24 3d 22  43 6f 6e 74 69 6e 75 65  |../s1$="Continue|
00002fd0  22 3a 73 31 25 3d 97 22  43 22 3a 73 32 24 3d 22  |":s1%=."C":s2$="|
00002fe0  51 75 69 74 22 3a 73 32  25 3d 97 22 51 22 0d 1a  |Quit":s2%=."Q"..|
00002ff0  f4 19 74 79 70 65 25 3d  32 3a 72 65 74 25 3d 31  |..type%=2:ret%=1|
00003000  3a 65 73 63 25 3d 32 0d  1a fe 05 cb 0d 1b 08 0c  |:esc%=2.........|
00003010  c8 8e 74 79 70 65 25 ca  0d 1b 12 28 c9 31 3a 3d  |..type%....(.1:=|
00003020  a4 77 61 72 6e 5f 31 28  6d 65 73 73 24 2c 73 31  |.warn_1(mess$,s1|
00003030  24 2c 73 31 25 2c 72 65  74 25 2c 65 73 63 25 29  |$,s1%,ret%,esc%)|
00003040  0d 1b 1c 30 c9 32 3a 3d  a4 77 61 72 6e 5f 32 28  |...0.2:=.warn_2(|
00003050  6d 65 73 73 24 2c 73 31  24 2c 73 31 25 2c 73 32  |mess$,s1$,s1%,s2|
00003060  24 2c 73 32 25 2c 72 65  74 25 2c 65 73 63 25 29  |$,s2%,ret%,esc%)|
00003070  0d 1b 26 38 c9 33 3a 3d  a4 77 61 72 6e 5f 33 28  |..&8.3:=.warn_3(|
00003080  6d 65 73 73 24 2c 73 31  24 2c 73 31 25 2c 73 32  |mess$,s1$,s1%,s2|
00003090  24 2c 73 32 25 2c 73 33  24 2c 73 33 25 2c 72 65  |$,s2%,s3$,s3%,re|
000030a0  74 25 2c 65 73 63 25 29  0d 1b 30 05 cb 0d 1b 3a  |t%,esc%)..0....:|
000030b0  06 3d 30 0d 1b 62 24 dd  a4 77 61 72 6e 5f 31 28  |.=0..b$..warn_1(|
000030c0  73 74 72 24 2c 73 31 24  2c 73 31 25 2c 72 65 74  |str$,s1$,s1%,ret|
000030d0  25 2c 65 73 63 25 29 0d  1b 6c 0d ea 57 25 2c 52  |%,esc%)..l..W%,R|
000030e0  25 2c 53 25 0d 1b 76 11  57 25 3d 77 5f 77 61 72  |%,S%..v.W%=w_war|
000030f0  6e 25 28 30 29 0d 1b 80  19 f2 69 63 6f 6e 5f 74  |n%(0).....icon_t|
00003100  65 78 74 28 57 25 2c 30  2c 73 74 72 24 29 0d 1b  |ext(W%,0,str$)..|
00003110  8a 18 f2 69 63 6f 6e 5f  74 65 78 74 28 57 25 2c  |...icon_text(W%,|
00003120  31 2c 73 31 24 29 0d 1b  94 0f e3 53 25 3d 31 35  |1,s1$).....S%=15|
00003130  b8 31 88 2d 31 0d 1b 9e  12 f2 6d 69 73 63 5f 70  |.1.-1.....misc_p|
00003140  6f 6c 6c 28 52 25 29 0d  1b a8 05 ed 0d 1b b2 18  |oll(R%).........|
00003150  f2 77 69 6e 64 5f 6f 70  65 6e 63 65 6e 74 72 65  |.wind_opencentre|
00003160  28 57 25 29 0d 1b bc 14  c8 99 26 34 30 30 44 33  |(W%)......&400D3|
00003170  2c 2c 74 65 6d 70 31 25  0d 1b c6 1e c8 99 26 34  |,,temp1%......&4|
00003180  30 30 44 32 2c 57 25 2c  2d 31 2c 32 30 2c 32 30  |00D2,W%,-1,20,20|
00003190  2c 2d 31 2c 2d 31 0d 1b  d0 05 f5 0d 1b da 12 f2  |,-1,-1..........|
000031a0  6d 69 73 63 5f 70 6f 6c  6c 28 52 25 29 0d 1b e4  |misc_poll(R%)...|
000031b0  33 e7 28 52 25 3d 36 80  20 74 65 6d 70 32 25 21  |3.(R%=6. temp2%!|
000031c0  31 32 3d 57 25 80 20 74  65 6d 70 32 25 21 38 3c  |12=W%. temp2%!8<|
000031d0  3e 32 29 8c 53 25 3d 74  65 6d 70 32 25 21 31 36  |>2).S%=temp2%!16|
000031e0  0d 1b ee 25 e7 28 52 25  3d 38 80 28 74 65 6d 70  |...%.(R%=8.(temp|
000031f0  32 25 21 32 34 80 20 32  32 33 29 3d 73 31 25 29  |2%!24. 223)=s1%)|
00003200  8c 53 25 3d 31 0d 1b f8  22 e7 28 52 25 3d 38 80  |.S%=1...".(R%=8.|
00003210  20 74 65 6d 70 32 25 21  32 34 3d 26 30 44 29 8c  | temp2%!24=&0D).|
00003220  53 25 3d 72 65 74 25 0d  1c 02 22 e7 28 52 25 3d  |S%=ret%...".(R%=|
00003230  38 80 20 74 65 6d 70 32  25 21 32 34 3d 26 31 42  |8. temp2%!24=&1B|
00003240  29 8c 53 25 3d 65 73 63  25 0d 1c 0c 0e e7 53 25  |).S%=esc%.....S%|
00003250  3c 30 8c 53 25 3d 30 0d  1c 16 22 e7 53 25 3d 30  |<0.S%=0...".S%=0|
00003260  80 28 52 25 3d 32 84 52  25 3d 33 84 52 25 3d 36  |.(R%=2.R%=3.R%=6|
00003270  84 52 25 3d 38 29 8c ef  37 0d 1c 20 0d fd 53 25  |.R%=8)..7.. ..S%|
00003280  84 71 75 69 74 25 0d 1c  2a 0d e7 71 75 69 74 25  |.quit%..*..quit%|
00003290  8c 3d 30 0d 1c 34 45 c8  99 26 34 30 30 44 32 2c  |.=0..4E..&400D2,|
000032a0  74 65 6d 70 31 25 21 30  2c 74 65 6d 70 31 25 21  |temp1%!0,temp1%!|
000032b0  34 2c 74 65 6d 70 31 25  21 38 2c 74 65 6d 70 31  |4,temp1%!8,temp1|
000032c0  25 21 31 32 2c 74 65 6d  70 31 25 21 31 36 2c 74  |%!12,temp1%!16,t|
000032d0  65 6d 70 31 25 21 32 30  0d 1c 3e 20 e7 52 25 3c  |emp1%!20..> .R%<|
000032e0  3e 36 8c f2 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |>6..icon_select(|
000032f0  57 25 2c 53 25 2c 31 29  0d 1c 48 13 f2 77 69 6e  |W%,S%,1)..H..win|
00003300  64 5f 63 6c 6f 73 65 28  57 25 29 0d 1c 52 19 f2  |d_close(W%)..R..|
00003310  69 63 6f 6e 5f 73 65 6c  65 63 74 28 57 25 2c 53  |icon_select(W%,S|
00003320  25 2c 30 29 0d 1c 5c 07  3d 53 25 0d 1c 84 2c dd  |%,0)..\.=S%...,.|
00003330  a4 77 61 72 6e 5f 32 28  73 74 72 24 2c 73 31 24  |.warn_2(str$,s1$|
00003340  2c 73 31 25 2c 73 32 24  2c 73 32 25 2c 72 65 74  |,s1%,s2$,s2%,ret|
00003350  25 2c 65 73 63 25 29 0d  1c 8e 0d ea 57 25 2c 52  |%,esc%).....W%,R|
00003360  25 2c 53 25 0d 1c 98 11  57 25 3d 77 5f 77 61 72  |%,S%....W%=w_war|
00003370  6e 25 28 31 29 0d 1c a2  19 f2 69 63 6f 6e 5f 74  |n%(1).....icon_t|
00003380  65 78 74 28 57 25 2c 30  2c 73 74 72 24 29 0d 1c  |ext(W%,0,str$)..|
00003390  ac 18 f2 69 63 6f 6e 5f  74 65 78 74 28 57 25 2c  |...icon_text(W%,|
000033a0  31 2c 73 31 24 29 0d 1c  b6 18 f2 69 63 6f 6e 5f  |1,s1$).....icon_|
000033b0  74 65 78 74 28 57 25 2c  32 2c 73 32 24 29 0d 1c  |text(W%,2,s2$)..|
000033c0  c0 0f e3 53 25 3d 31 35  b8 31 88 2d 31 0d 1c ca  |...S%=15.1.-1...|
000033d0  12 f2 6d 69 73 63 5f 70  6f 6c 6c 28 52 25 29 0d  |..misc_poll(R%).|
000033e0  1c d4 05 ed 0d 1c de 18  f2 77 69 6e 64 5f 6f 70  |.........wind_op|
000033f0  65 6e 63 65 6e 74 72 65  28 57 25 29 0d 1c e8 14  |encentre(W%)....|
00003400  c8 99 26 34 30 30 44 33  2c 2c 74 65 6d 70 31 25  |..&400D3,,temp1%|
00003410  0d 1c f2 1e c8 99 26 34  30 30 44 32 2c 57 25 2c  |......&400D2,W%,|
00003420  2d 31 2c 32 30 2c 32 30  2c 2d 31 2c 2d 31 0d 1c  |-1,20,20,-1,-1..|
00003430  fc 05 f5 0d 1d 06 12 f2  6d 69 73 63 5f 70 6f 6c  |........misc_pol|
00003440  6c 28 52 25 29 0d 1d 10  33 e7 28 52 25 3d 36 80  |l(R%)...3.(R%=6.|
00003450  20 74 65 6d 70 32 25 21  31 32 3d 57 25 80 20 74  | temp2%!12=W%. t|
00003460  65 6d 70 32 25 21 38 3c  3e 32 29 8c 53 25 3d 74  |emp2%!8<>2).S%=t|
00003470  65 6d 70 32 25 21 31 36  0d 1d 1a 25 e7 28 52 25  |emp2%!16...%.(R%|
00003480  3d 38 80 28 74 65 6d 70  32 25 21 32 34 80 20 32  |=8.(temp2%!24. 2|
00003490  32 33 29 3d 73 31 25 29  8c 53 25 3d 31 0d 1d 24  |23)=s1%).S%=1..$|
000034a0  25 e7 28 52 25 3d 38 80  28 74 65 6d 70 32 25 21  |%.(R%=8.(temp2%!|
000034b0  32 34 80 20 32 32 33 29  3d 73 32 25 29 8c 53 25  |24. 223)=s2%).S%|
000034c0  3d 32 0d 1d 2e 22 e7 28  52 25 3d 38 80 20 74 65  |=2...".(R%=8. te|
000034d0  6d 70 32 25 21 32 34 3d  26 30 44 29 8c 53 25 3d  |mp2%!24=&0D).S%=|
000034e0  72 65 74 25 0d 1d 38 22  e7 28 52 25 3d 38 80 20  |ret%..8".(R%=8. |
000034f0  74 65 6d 70 32 25 21 32  34 3d 26 31 42 29 8c 53  |temp2%!24=&1B).S|
00003500  25 3d 65 73 63 25 0d 1d  42 0e e7 53 25 3c 30 8c  |%=esc%..B..S%<0.|
00003510  53 25 3d 30 0d 1d 4c 22  e7 53 25 3d 30 80 28 52  |S%=0..L".S%=0.(R|
00003520  25 3d 32 84 52 25 3d 33  84 52 25 3d 36 84 52 25  |%=2.R%=3.R%=6.R%|
00003530  3d 38 29 8c ef 37 0d 1d  56 13 e7 a6 28 2d 39 39  |=8)..7..V...(-99|
00003540  29 80 a6 28 2d 32 29 8c  e0 0d 1d 60 0d fd 53 25  |)..(-2)....`..S%|
00003550  84 71 75 69 74 25 0d 1d  6a 0d e7 71 75 69 74 25  |.quit%..j..quit%|
00003560  8c 3d 30 0d 1d 74 45 c8  99 26 34 30 30 44 32 2c  |.=0..tE..&400D2,|
00003570  74 65 6d 70 31 25 21 30  2c 74 65 6d 70 31 25 21  |temp1%!0,temp1%!|
00003580  34 2c 74 65 6d 70 31 25  21 38 2c 74 65 6d 70 31  |4,temp1%!8,temp1|
00003590  25 21 31 32 2c 74 65 6d  70 31 25 21 31 36 2c 74  |%!12,temp1%!16,t|
000035a0  65 6d 70 31 25 21 32 30  0d 1d 7e 20 e7 52 25 3c  |emp1%!20..~ .R%<|
000035b0  3e 36 8c f2 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |>6..icon_select(|
000035c0  57 25 2c 53 25 2c 31 29  0d 1d 88 13 f2 77 69 6e  |W%,S%,1).....win|
000035d0  64 5f 63 6c 6f 73 65 28  57 25 29 0d 1d 92 19 f2  |d_close(W%).....|
000035e0  69 63 6f 6e 5f 73 65 6c  65 63 74 28 57 25 2c 53  |icon_select(W%,S|
000035f0  25 2c 30 29 0d 1d 9c 07  3d 53 25 0d 1d c4 34 dd  |%,0)....=S%...4.|
00003600  a4 77 61 72 6e 5f 33 28  73 74 72 24 2c 73 31 24  |.warn_3(str$,s1$|
00003610  2c 73 31 25 2c 73 32 24  2c 73 32 25 2c 73 33 24  |,s1%,s2$,s2%,s3$|
00003620  2c 73 33 25 2c 72 65 74  25 2c 65 73 63 25 29 0d  |,s3%,ret%,esc%).|
00003630  1d ce 0d ea 57 25 2c 52  25 2c 53 25 0d 1d d8 11  |....W%,R%,S%....|
00003640  57 25 3d 77 5f 77 61 72  6e 25 28 32 29 0d 1d e2  |W%=w_warn%(2)...|
00003650  19 f2 69 63 6f 6e 5f 74  65 78 74 28 57 25 2c 30  |..icon_text(W%,0|
00003660  2c 73 74 72 24 29 0d 1d  ec 18 f2 69 63 6f 6e 5f  |,str$).....icon_|
00003670  74 65 78 74 28 57 25 2c  31 2c 73 31 24 29 0d 1d  |text(W%,1,s1$)..|
00003680  f6 18 f2 69 63 6f 6e 5f  74 65 78 74 28 57 25 2c  |...icon_text(W%,|
00003690  32 2c 73 32 24 29 0d 1e  00 18 f2 69 63 6f 6e 5f  |2,s2$).....icon_|
000036a0  74 65 78 74 28 57 25 2c  33 2c 73 33 24 29 0d 1e  |text(W%,3,s3$)..|
000036b0  0a 0f e3 53 25 3d 31 35  b8 31 88 2d 31 0d 1e 14  |...S%=15.1.-1...|
000036c0  12 f2 6d 69 73 63 5f 70  6f 6c 6c 28 52 25 29 0d  |..misc_poll(R%).|
000036d0  1e 1e 05 ed 0d 1e 28 18  f2 77 69 6e 64 5f 6f 70  |......(..wind_op|
000036e0  65 6e 63 65 6e 74 72 65  28 57 25 29 0d 1e 32 14  |encentre(W%)..2.|
000036f0  c8 99 26 34 30 30 44 33  2c 2c 74 65 6d 70 31 25  |..&400D3,,temp1%|
00003700  0d 1e 3c 1e c8 99 26 34  30 30 44 32 2c 57 25 2c  |..<...&400D2,W%,|
00003710  2d 31 2c 32 30 2c 32 30  2c 2d 31 2c 2d 31 0d 1e  |-1,20,20,-1,-1..|
00003720  46 05 f5 0d 1e 50 12 f2  6d 69 73 63 5f 70 6f 6c  |F....P..misc_pol|
00003730  6c 28 52 25 29 0d 1e 5a  33 e7 28 52 25 3d 36 80  |l(R%)..Z3.(R%=6.|
00003740  20 74 65 6d 70 32 25 21  31 32 3d 57 25 80 20 74  | temp2%!12=W%. t|
00003750  65 6d 70 32 25 21 38 3c  3e 32 29 8c 53 25 3d 74  |emp2%!8<>2).S%=t|
00003760  65 6d 70 32 25 21 31 36  0d 1e 64 25 e7 28 52 25  |emp2%!16..d%.(R%|
00003770  3d 38 80 28 74 65 6d 70  32 25 21 32 34 80 20 32  |=8.(temp2%!24. 2|
00003780  32 33 29 3d 73 31 25 29  8c 53 25 3d 31 0d 1e 6e  |23)=s1%).S%=1..n|
00003790  25 e7 28 52 25 3d 38 80  28 74 65 6d 70 32 25 21  |%.(R%=8.(temp2%!|
000037a0  32 34 80 20 32 32 33 29  3d 73 32 25 29 8c 53 25  |24. 223)=s2%).S%|
000037b0  3d 32 0d 1e 78 25 e7 28  52 25 3d 38 80 28 74 65  |=2..x%.(R%=8.(te|
000037c0  6d 70 32 25 21 32 34 80  20 32 32 33 29 3d 73 33  |mp2%!24. 223)=s3|
000037d0  25 29 8c 53 25 3d 33 0d  1e 82 22 e7 28 52 25 3d  |%).S%=3...".(R%=|
000037e0  38 80 20 74 65 6d 70 32  25 21 32 34 3d 26 30 44  |8. temp2%!24=&0D|
000037f0  29 8c 53 25 3d 72 65 74  25 0d 1e 8c 22 e7 28 52  |).S%=ret%...".(R|
00003800  25 3d 38 80 20 74 65 6d  70 32 25 21 32 34 3d 26  |%=8. temp2%!24=&|
00003810  31 42 29 8c 53 25 3d 65  73 63 25 0d 1e 96 0e e7  |1B).S%=esc%.....|
00003820  53 25 3c 30 8c 53 25 3d  30 0d 1e a0 22 e7 53 25  |S%<0.S%=0...".S%|
00003830  3d 30 80 28 52 25 3d 32  84 52 25 3d 33 84 52 25  |=0.(R%=2.R%=3.R%|
00003840  3d 36 84 52 25 3d 38 29  8c ef 37 0d 1e aa 0d fd  |=6.R%=8)..7.....|
00003850  53 25 84 71 75 69 74 25  0d 1e b4 0d e7 71 75 69  |S%.quit%.....qui|
00003860  74 25 8c 3d 30 0d 1e be  45 c8 99 26 34 30 30 44  |t%.=0...E..&400D|
00003870  32 2c 74 65 6d 70 31 25  21 30 2c 74 65 6d 70 31  |2,temp1%!0,temp1|
00003880  25 21 34 2c 74 65 6d 70  31 25 21 38 2c 74 65 6d  |%!4,temp1%!8,tem|
00003890  70 31 25 21 31 32 2c 74  65 6d 70 31 25 21 31 36  |p1%!12,temp1%!16|
000038a0  2c 74 65 6d 70 31 25 21  32 30 0d 1e c8 20 e7 52  |,temp1%!20... .R|
000038b0  25 3c 3e 36 8c f2 69 63  6f 6e 5f 73 65 6c 65 63  |%<>6..icon_selec|
000038c0  74 28 57 25 2c 53 25 2c  31 29 0d 1e d2 13 f2 77  |t(W%,S%,1).....w|
000038d0  69 6e 64 5f 63 6c 6f 73  65 28 57 25 29 0d 1e dc  |ind_close(W%)...|
000038e0  19 f2 69 63 6f 6e 5f 73  65 6c 65 63 74 28 57 25  |..icon_select(W%|
000038f0  2c 53 25 2c 30 29 0d 1e  e6 07 3d 53 25 0d 1f 22  |,S%,0)....=S%.."|
00003900  2a dd f2 64 72 61 67 5f  73 6f 6c 69 64 28 77 69  |*..drag_solid(wi|
00003910  6e 25 2c 69 63 6f 6e 25  2c 73 70 72 69 74 65 24  |n%,icon%,sprite$|
00003920  2c 73 70 72 73 25 29 0d  1f 2c 0a ea 78 25 2c 79  |,sprs%)..,..x%,y|
00003930  25 0d 1f 40 11 74 65 6d  70 31 25 21 30 3d 77 69  |%..@.temp1%!0=wi|
00003940  6e 25 0d 1f 4a 14 c8 99  26 34 30 30 43 42 2c 2c  |n%..J...&400CB,,|
00003950  74 65 6d 70 31 25 0d 1f  54 30 78 25 3d 74 65 6d  |temp1%..T0x%=tem|
00003960  70 31 25 21 34 2d 74 65  6d 70 31 25 21 32 30 3a  |p1%!4-temp1%!20:|
00003970  79 25 3d 74 65 6d 70 31  25 21 31 36 2d 74 65 6d  |y%=temp1%!16-tem|
00003980  70 31 25 21 32 34 0d 1f  5e 12 74 65 6d 70 31 25  |p1%!24..^.temp1%|
00003990  21 34 3d 69 63 6f 6e 25  0d 1f 68 14 c8 99 26 34  |!4=icon%..h...&4|
000039a0  30 30 43 45 2c 2c 74 65  6d 70 31 25 0d 1f 72 1e  |00CE,,temp1%..r.|
000039b0  74 65 6d 70 31 25 21 38  2b 3d 78 25 3a 74 65 6d  |temp1%!8+=x%:tem|
000039c0  70 31 25 21 31 36 2b 3d  78 25 0d 1f 7c 1f 74 65  |p1%!16+=x%..|.te|
000039d0  6d 70 31 25 21 31 32 2b  3d 79 25 3a 74 65 6d 70  |mp1%!12+=y%:temp|
000039e0  31 25 21 32 30 2b 3d 79  25 0d 1f 86 1b 74 65 6d  |1%!20+=y%....tem|
000039f0  70 31 25 21 32 34 3d 30  3a 74 65 6d 70 31 25 21  |p1%!24=0:temp1%!|
00003a00  32 38 3d 30 0d 1f 90 2b  74 65 6d 70 31 25 21 33  |28=0...+temp1%!3|
00003a10  32 3d 26 37 46 46 46 46  46 46 46 3a 74 65 6d 70  |2=&7FFFFFFF:temp|
00003a20  31 25 21 33 36 3d 26 37  46 46 46 46 46 46 46 0d  |1%!36=&7FFFFFFF.|
00003a30  1f 9a 0c c8 99 26 36 2c  31 2c 31 0d 1f a4 31 c8  |.....&6,1,1...1.|
00003a40  99 26 34 32 34 30 30 2c  26 30 31 2c 73 70 72 73  |.&42400,&01,sprs|
00003a50  25 2c 73 70 72 69 74 65  24 2c 74 65 6d 70 31 25  |%,sprite$,temp1%|
00003a60  2b 38 2c 74 65 6d 70 31  25 2b 32 34 0d 1f ae 05  |+8,temp1%+24....|
00003a70  e1 0d 1f d6 3f dd f2 64  72 61 67 5f 73 6c 69 64  |....?..drag_slid|
00003a80  65 72 28 77 69 6e 25 2c  70 61 72 65 6e 74 25 2c  |er(win%,parent%,|
00003a90  63 78 25 2c 63 79 25 2c  63 73 78 25 2c 63 73 79  |cx%,cy%,csx%,csy|
00003aa0  25 2c 73 70 72 69 74 65  24 2c 73 70 72 73 25 29  |%,sprite$,sprs%)|
00003ab0  0d 1f e0 1e ea 78 25 2c  79 25 2c 70 78 31 25 2c  |.....x%,y%,px1%,|
00003ac0  70 79 31 25 2c 70 78 32  25 2c 70 79 32 25 0d 1f  |py1%,px2%,py2%..|
00003ad0  f4 11 74 65 6d 70 31 25  21 30 3d 77 69 6e 25 0d  |..temp1%!0=win%.|
00003ae0  1f fe 14 c8 99 26 34 30  30 43 42 2c 2c 74 65 6d  |.....&400CB,,tem|
00003af0  70 31 25 0d 20 08 30 78  25 3d 74 65 6d 70 31 25  |p1%. .0x%=temp1%|
00003b00  21 34 2d 74 65 6d 70 31  25 21 32 30 3a 79 25 3d  |!4-temp1%!20:y%=|
00003b10  74 65 6d 70 31 25 21 31  36 2d 74 65 6d 70 31 25  |temp1%!16-temp1%|
00003b20  21 32 34 0d 20 1c 14 74  65 6d 70 31 25 21 34 3d  |!24. ..temp1%!4=|
00003b30  70 61 72 65 6e 74 25 0d  20 26 14 c8 99 26 34 30  |parent%. &...&40|
00003b40  30 43 45 2c 2c 74 65 6d  70 31 25 0d 20 30 2a 70  |0CE,,temp1%. 0*p|
00003b50  78 31 25 3d 74 65 6d 70  31 25 21 38 2b 78 25 2b  |x1%=temp1%!8+x%+|
00003b60  34 3a 70 79 31 25 3d 74  65 6d 70 31 25 21 31 32  |4:py1%=temp1%!12|
00003b70  2b 79 25 2b 34 0d 20 3a  2b 70 78 32 25 3d 74 65  |+y%+4. :+px2%=te|
00003b80  6d 70 31 25 21 31 36 2b  78 25 2d 34 3a 70 79 32  |mp1%!16+x%-4:py2|
00003b90  25 3d 74 65 6d 70 31 25  21 32 30 2b 79 25 2d 34  |%=temp1%!20+y%-4|
00003ba0  0d 20 4e 29 74 65 6d 70  31 25 21 38 3d 78 25 2b  |. N)temp1%!8=x%+|
00003bb0  63 78 25 3a 74 65 6d 70  31 25 21 31 36 3d 78 25  |cx%:temp1%!16=x%|
00003bc0  2b 63 78 25 2b 63 73 78  25 0d 20 58 2a 74 65 6d  |+cx%+csx%. X*tem|
00003bd0  70 31 25 21 31 32 3d 79  25 2b 63 79 25 3a 74 65  |p1%!12=y%+cy%:te|
00003be0  6d 70 31 25 21 32 30 3d  79 25 2b 63 79 25 2b 63  |mp1%!20=y%+cy%+c|
00003bf0  73 79 25 0d 20 62 21 74  65 6d 70 31 25 21 32 34  |sy%. b!temp1%!24|
00003c00  3d 70 78 31 25 3a 74 65  6d 70 31 25 21 32 38 3d  |=px1%:temp1%!28=|
00003c10  70 79 31 25 0d 20 6c 21  74 65 6d 70 31 25 21 33  |py1%. l!temp1%!3|
00003c20  32 3d 70 78 32 25 3a 74  65 6d 70 31 25 21 33 36  |2=px2%:temp1%!36|
00003c30  3d 70 79 32 25 0d 20 80  0c c8 99 26 36 2c 31 2c  |=py2%. ....&6,1,|
00003c40  31 0d 20 8a 31 c8 99 26  34 32 34 30 30 2c 26 32  |1. .1..&42400,&2|
00003c50  30 2c 73 70 72 73 25 2c  73 70 72 69 74 65 24 2c  |0,sprs%,sprite$,|
00003c60  74 65 6d 70 31 25 2b 38  2c 74 65 6d 70 31 25 2b  |temp1%+8,temp1%+|
00003c70  32 34 0d 20 94 05 e1 0d  20 d0 18 dd f2 77 69 6d  |24. .... ....wim|
00003c80  70 5f 72 65 64 72 61 77  28 77 69 6e 64 25 29 0d  |p_redraw(wind%).|
00003c90  20 da 10 ea 6d 6f 72 65  25 2c 64 72 61 77 25 0d  | ...more%,draw%.|
00003ca0  20 ee 16 c8 99 26 34 30  30 43 38 2c 2c 71 25 b8  | ....&400C8,,q%.|
00003cb0  6d 6f 72 65 25 0d 21 02  16 e7 77 69 6e 64 25 3d  |more%.!...wind%=|
00003cc0  77 69 6e 64 5f 63 6f 6e  74 25 8c 0d 21 0c 14 64  |wind_cont%..!..d|
00003cd0  72 61 77 25 3d ac 73 6c  69 64 65 72 5f 64 25 0d  |raw%=.slider_d%.|
00003ce0  21 16 21 74 65 6d 70 31  25 21 30 3d 73 6c 69 64  |!.!temp1%!0=slid|
00003cf0  65 72 5f 70 78 25 2b 73  6c 69 64 65 72 5f 78 25  |er_px%+slider_x%|
00003d00  0d 21 20 16 74 65 6d 70  31 25 21 34 3d 73 6c 69  |.! .temp1%!4=sli|
00003d10  64 65 72 5f 79 25 0d 21  2a 18 74 65 6d 70 31 25  |der_y%.!*.temp1%|
00003d20  21 38 3d 74 65 6d 70 31  25 21 30 2b 36 34 0d 21  |!8=temp1%!0+64.!|
00003d30  34 19 74 65 6d 70 31 25  21 31 32 3d 74 65 6d 70  |4.temp1%!12=temp|
00003d40  31 25 21 34 2b 33 32 0d  21 3e 12 74 65 6d 70 31  |1%!4+32.!>.temp1|
00003d50  25 21 31 36 3d 26 31 30  32 0d 21 48 17 74 65 6d  |%!16=&102.!H.tem|
00003d60  70 31 25 21 32 30 3d 74  65 6d 70 31 25 2b 36 34  |p1%!20=temp1%+64|
00003d70  0d 21 52 13 74 65 6d 70  31 25 21 32 34 3d 73 70  |.!R.temp1%!24=sp|
00003d80  72 73 25 0d 21 5c 10 74  65 6d 70 31 25 21 32 38  |rs%.!\.temp1%!28|
00003d90  3d 31 32 0d 21 66 1e 24  28 74 65 6d 70 31 25 2b  |=12.!f.$(temp1%+|
00003da0  36 34 29 3d 22 73 6c 69  64 65 72 22 2b bd 28 30  |64)="slider"+.(0|
00003db0  29 0d 21 70 05 cd 0d 21  7a 15 e7 77 69 6e 64 25  |).!p...!z..wind%|
00003dc0  3d 77 69 6e 64 5f 76 6f  6c 25 8c 0d 21 84 11 64  |=wind_vol%..!..d|
00003dd0  72 61 77 25 3d ac 76 6f  6c 5f 64 25 0d 21 8e 13  |raw%=.vol_d%.!..|
00003de0  74 65 6d 70 31 25 21 30  3d 76 6f 6c 5f 78 25 0d  |temp1%!0=vol_x%.|
00003df0  21 98 1b 74 65 6d 70 31  25 21 34 3d 76 6f 6c 5f  |!..temp1%!4=vol_|
00003e00  79 25 2b 76 6f 6c 5f 70  6f 73 0d 21 a2 16 74 65  |y%+vol_pos.!..te|
00003e10  6d 70 31 25 21 38 3d 76  6f 6c 5f 78 25 2b 33 32  |mp1%!8=vol_x%+32|
00003e20  0d 21 ac 1f 74 65 6d 70  31 25 21 31 32 3d 76 6f  |.!..temp1%!12=vo|
00003e30  6c 5f 79 25 2b 76 6f 6c  5f 70 6f 73 2b 34 38 0d  |l_y%+vol_pos+48.|
00003e40  21 b6 12 74 65 6d 70 31  25 21 31 36 3d 26 31 30  |!..temp1%!16=&10|
00003e50  32 0d 21 c0 17 74 65 6d  70 31 25 21 32 30 3d 74  |2.!..temp1%!20=t|
00003e60  65 6d 70 31 25 2b 36 34  0d 21 ca 13 74 65 6d 70  |emp1%+64.!..temp|
00003e70  31 25 21 32 34 3d 73 70  72 73 25 0d 21 d4 10 74  |1%!24=sprs%.!..t|
00003e80  65 6d 70 31 25 21 32 38  3d 31 32 0d 21 de 1f 24  |emp1%!28=12.!..$|
00003e90  28 74 65 6d 70 31 25 2b  36 34 29 3d 22 76 73 6c  |(temp1%+64)="vsl|
00003ea0  69 64 65 72 22 2b bd 28  30 29 0d 21 e8 05 cd 0d  |ider"+.(0).!....|
00003eb0  21 fc 0b c8 95 6d 6f 72  65 25 0d 22 06 1b e7 64  |!....more%."...d|
00003ec0  72 61 77 25 8c c8 99 26  34 30 30 45 32 2c 2c 74  |raw%...&400E2,,t|
00003ed0  65 6d 70 31 25 0d 22 10  16 c8 99 26 34 30 30 43  |emp1%."....&400C|
00003ee0  41 2c 2c 71 25 b8 6d 6f  72 65 25 0d 22 1a 05 ce  |A,,q%.more%."...|
00003ef0  0d 22 24 05 e1 0d 22 4c  23 dd f2 77 69 6d 70 5f  |."$..."L#..wimp_|
00003f00  63 6c 69 63 6b 28 77 69  6e 64 25 2c 69 63 6f 6e  |click(wind%,icon|
00003f10  25 2c 62 75 74 74 25 29  0d 22 56 0c c8 8e 77 69  |%,butt%)."V...wi|
00003f20  6e 64 25 ca 0d 22 60 1e  c9 2d 32 3a f2 77 69 6d  |nd%.."`..-2:.wim|
00003f30  70 5f 63 6c 69 63 6b 69  62 61 72 28 69 63 6f 6e  |p_clickibar(icon|
00003f40  25 29 0d 22 6a 2c c9 77  69 6e 64 5f 63 6f 6e 74  |%)."j,.wind_cont|
00003f50  25 3a f2 77 69 6d 70 5f  63 6c 69 63 6b 63 6f 6e  |%:.wimp_clickcon|
00003f60  74 28 69 63 6f 6e 25 2c  62 75 74 74 25 29 0d 22  |t(icon%,butt%)."|
00003f70  74 2c c9 77 69 6e 64 5f  62 75 66 66 25 3a f2 77  |t,.wind_buff%:.w|
00003f80  69 6d 70 5f 63 6c 69 63  6b 62 75 66 66 28 69 63  |imp_clickbuff(ic|
00003f90  6f 6e 25 2c 62 75 74 74  25 29 0d 22 7e 2c c9 77  |on%,butt%)."~,.w|
00003fa0  69 6e 64 5f 66 6f 72 6d  25 3a f2 77 69 6d 70 5f  |ind_form%:.wimp_|
00003fb0  63 6c 69 63 6b 66 6f 72  6d 28 69 63 6f 6e 25 2c  |clickform(icon%,|
00003fc0  62 75 74 74 25 29 0d 22  88 22 c9 77 69 6e 64 5f  |butt%).".".wind_|
00003fd0  69 6e 66 6f 25 3a f2 77  69 6e 64 5f 63 6c 6f 73  |info%:.wind_clos|
00003fe0  65 28 77 69 6e 64 25 29  0d 22 92 2a c9 77 69 6e  |e(wind%).".*.win|
00003ff0  64 5f 76 6f 6c 25 3a f2  77 69 6d 70 5f 63 6c 69  |d_vol%:.wimp_cli|
00004000  63 6b 76 6f 6c 28 69 63  6f 6e 25 2c 62 75 74 74  |ckvol(icon%,butt|
00004010  25 29 0d 22 9c 2c c9 77  69 6e 64 5f 76 69 64 63  |%).".,.wind_vidc|
00004020  25 3a f2 77 69 6d 70 5f  63 6c 69 63 6b 76 69 64  |%:.wimp_clickvid|
00004030  63 28 69 63 6f 6e 25 2c  62 75 74 74 25 29 0d 22  |c(icon%,butt%)."|
00004040  a6 05 cb 0d 22 b0 05 e1  0d 22 d8 1b dd f2 77 69  |...."...."....wi|
00004050  6d 70 5f 63 6c 69 63 6b  69 62 61 72 28 69 63 6f  |mp_clickibar(ico|
00004060  6e 25 29 0d 22 e2 0a ea  78 25 2c 79 25 0d 22 ec  |n%)."...x%,y%.".|
00004070  0c c8 8e 69 63 6f 6e 25  ca 0d 22 f6 0b c9 69 62  |...icon%.."...ib|
00004080  61 72 31 25 0d 23 00 12  e7 63 6f 64 65 5f 6c 6f  |ar1%.#...code_lo|
00004090  61 64 65 64 25 8c 0d 23  0a 1d f2 77 69 6e 64 5f  |aded%..#...wind_|
000040a0  6f 70 65 6e 74 6f 70 28  77 69 6e 64 5f 63 6f 6e  |opentop(wind_con|
000040b0  74 25 29 0d 23 14 05 cc  0d 23 1e 17 57 25 3d a4  |t%).#....#..W%=.|
000040c0  77 61 72 6e 5f 6d 65 73  73 61 67 65 28 30 29 0d  |warn_message(0).|
000040d0  23 28 05 cd 0d 23 32 0b  c9 69 62 61 72 32 25 0d  |#(...#2..ibar2%.|
000040e0  23 3c 14 f2 76 6f 6c 75  6d 65 5f 67 65 74 73 74  |#<..volume_getst|
000040f0  61 74 65 0d 23 46 26 21  74 65 6d 70 31 25 3d 77  |ate.#F&!temp1%=w|
00004100  69 6e 64 5f 76 6f 6c 25  3a c8 99 26 34 30 30 43  |ind_vol%:..&400C|
00004110  42 2c 2c 74 65 6d 70 31  25 0d 23 50 22 78 25 3d  |B,,temp1%.#P"x%=|
00004120  71 25 21 30 2d 28 74 65  6d 70 31 25 21 31 32 2d  |q%!0-(temp1%!12-|
00004130  74 65 6d 70 31 25 21 34  29 2f 32 0d 23 5a 1e 79  |temp1%!4)/2.#Z.y|
00004140  25 3d 39 36 2b 28 74 65  6d 70 31 25 21 31 36 2d  |%=96+(temp1%!16-|
00004150  74 65 6d 70 31 25 21 38  29 0d 23 64 1d c8 99 26  |temp1%!8).#d...&|
00004160  34 30 30 44 34 2c 2c 77  69 6e 64 5f 76 6f 6c 25  |400D4,,wind_vol%|
00004170  2c 78 25 2c 79 25 0d 23  6e 05 cb 0d 23 78 05 e1  |,x%,y%.#n...#x..|
00004180  0d 23 a0 21 dd f2 77 69  6d 70 5f 63 6c 69 63 6b  |.#.!..wimp_click|
00004190  63 6f 6e 74 28 69 63 6f  6e 25 2c 62 75 74 74 25  |cont(icon%,butt%|
000041a0  29 0d 23 aa 14 ea 78 25  2c 73 78 25 2c 73 79 25  |).#...x%,sx%,sy%|
000041b0  2c 6f 6c 64 25 0d 23 b4  18 f2 77 69 6e 64 5f 6f  |,old%.#...wind_o|
000041c0  70 65 6e 74 6f 70 28 77  69 6e 64 25 29 0d 23 be  |pentop(wind%).#.|
000041d0  0c c8 8e 69 63 6f 6e 25  ca 0d 23 c8 20 c9 30 2c  |...icon%..#. .0,|
000041e0  33 2c 34 2c 35 3a f2 63  6f 64 65 5f 61 63 74 69  |3,4,5:.code_acti|
000041f0  6f 6e 28 69 63 6f 6e 25  29 0d 23 dc 06 c9 31 0d  |on(icon%).#...1.|
00004200  23 e6 2d e7 73 6c 69 64  65 72 5f 70 78 25 3e 3d  |#.-.slider_px%>=|
00004210  38 8c 73 6c 69 64 65 72  5f 70 78 25 2d 3d 38 8b  |8.slider_px%-=8.|
00004220  73 6c 69 64 65 72 5f 70  78 25 3d 30 0d 23 f0 1a  |slider_px%=0.#..|
00004230  f2 69 63 6f 6e 5f 75 70  64 61 74 65 28 77 69 6e  |.icon_update(win|
00004240  64 25 2c 31 32 29 0d 23  fa 11 73 6c 69 64 65 72  |d%,12).#..slider|
00004250  5f 6e 70 25 3d 31 30 0d  24 0e 06 c9 32 0d 24 18  |_np%=10.$...2.$.|
00004260  1e e7 73 6c 69 64 65 72  5f 70 78 25 3c 3d 73 6c  |..slider_px%<=sl|
00004270  69 64 65 72 5f 73 78 25  2d 38 8c 0d 24 22 11 73  |ider_sx%-8..$".s|
00004280  6c 69 64 65 72 5f 70 78  25 2b 3d 38 0d 24 2c 05  |lider_px%+=8.$,.|
00004290  cc 0d 24 36 19 73 6c 69  64 65 72 5f 70 78 25 3d  |..$6.slider_px%=|
000042a0  73 6c 69 64 65 72 5f 73  78 25 0d 24 40 05 cd 0d  |slider_sx%.$@...|
000042b0  24 4a 1a f2 69 63 6f 6e  5f 75 70 64 61 74 65 28  |$J..icon_update(|
000042c0  77 69 6e 64 25 2c 31 32  29 0d 24 54 11 73 6c 69  |wind%,12).$T.sli|
000042d0  64 65 72 5f 6e 70 25 3d  31 30 0d 24 68 09 c9 36  |der_np%=10.$h..6|
000042e0  2c 31 32 0d 24 72 14 e7  63 6f 64 65 5f 73 74 61  |,12.$r..code_sta|
000042f0  74 75 73 25 3d 34 8c 0d  24 7c 13 6f 6c 64 25 3d  |tus%=4..$|.old%=|
00004300  73 6c 69 64 65 72 5f 70  78 25 0d 24 86 13 f2 63  |slider_px%.$...c|
00004310  6f 64 65 5f 61 63 74 69  6f 6e 28 33 29 0d 24 90  |ode_action(3).$.|
00004320  13 73 6c 69 64 65 72 5f  70 78 25 3d 6f 6c 64 25  |.slider_px%=old%|
00004330  0d 24 9a 05 cd 0d 24 a4  12 74 65 6d 70 31 25 21  |.$....$..temp1%!|
00004340  30 3d 77 69 6e 64 25 0d  24 ae 14 c8 99 26 34 30  |0=wind%.$....&40|
00004350  30 43 42 2c 2c 74 65 6d  70 31 25 0d 24 b8 29 78  |0CB,,temp1%.$.)x|
00004360  25 3d 71 25 21 30 2d 74  65 6d 70 31 25 21 34 2d  |%=q%!0-temp1%!4-|
00004370  73 6c 69 64 65 72 5f 70  78 25 2d 73 6c 69 64 65  |slider_px%-slide|
00004380  72 5f 78 25 0d 24 c2 11  e7 78 25 3c 30 84 78 25  |r_x%.$...x%<0.x%|
00004390  3e 3d 36 34 8c 0d 24 cc  15 73 6c 69 64 65 72 5f  |>=64..$..slider_|
000043a0  70 78 25 2b 3d 78 25 2d  33 32 0d 24 d6 1e e7 73  |px%+=x%-32.$...s|
000043b0  6c 69 64 65 72 5f 70 78  25 3c 30 8c 73 6c 69 64  |lider_px%<0.slid|
000043c0  65 72 5f 70 78 25 3d 30  0d 24 e0 30 e7 73 6c 69  |er_px%=0.$.0.sli|
000043d0  64 65 72 5f 70 78 25 3e  73 6c 69 64 65 72 5f 73  |der_px%>slider_s|
000043e0  78 25 8c 73 6c 69 64 65  72 5f 70 78 25 3d 73 6c  |x%.slider_px%=sl|
000043f0  69 64 65 72 5f 73 78 25  0d 24 ea 05 cd 0d 24 f4  |ider_sx%.$....$.|
00004400  1a f2 69 63 6f 6e 5f 75  70 64 61 74 65 28 77 69  |..icon_update(wi|
00004410  6e 64 25 2c 31 32 29 0d  24 fe 4e f2 64 72 61 67  |nd%,12).$.N.drag|
00004420  5f 73 6c 69 64 65 72 28  77 69 6e 64 25 2c 36 2c  |_slider(wind%,6,|
00004430  73 6c 69 64 65 72 5f 78  25 2b 73 6c 69 64 65 72  |slider_x%+slider|
00004440  5f 70 78 25 2c 73 6c 69  64 65 72 5f 79 25 2c 36  |_px%,slider_y%,6|
00004450  34 2c 33 32 2c 22 70 73  6c 69 64 65 72 22 2c 73  |4,32,"pslider",s|
00004460  70 72 73 25 29 0d 25 08  0f 73 6c 69 64 65 72 5f  |prs%).%..slider_|
00004470  64 25 3d b9 0d 25 12 13  73 6c 69 64 65 72 5f 64  |d%=..%..slider_d|
00004480  78 25 3d 71 25 21 30 0d  25 26 07 c9 31 34 0d 25  |x%=q%!0.%&..14.%|
00004490  30 1c e7 a4 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |0...icon_select(|
000044a0  77 69 6e 64 25 2c 31 34  29 8c 0d 25 3a 1a f2 77  |wind%,14)..%:..w|
000044b0  69 6e 64 5f 63 6c 6f 73  65 28 77 69 6e 64 5f 76  |ind_close(wind_v|
000044c0  6f 6c 25 29 0d 25 44 1c  f2 69 63 6f 6e 5f 73 65  |ol%).%D..icon_se|
000044d0  6c 65 63 74 28 77 69 6e  64 25 2c 31 34 2c 30 29  |lect(wind%,14,0)|
000044e0  0d 25 4e 05 cc 0d 25 58  26 21 74 65 6d 70 31 25  |.%N...%X&!temp1%|
000044f0  3d 77 69 6e 64 5f 76 6f  6c 25 3a c8 99 26 34 30  |=wind_vol%:..&40|
00004500  30 43 42 2c 2c 74 65 6d  70 31 25 0d 25 62 22 21  |0CB,,temp1%.%b"!|
00004510  74 65 6d 70 32 25 3d 77  69 6e 64 25 3a c8 99 26  |temp2%=wind%:..&|
00004520  34 30 30 43 42 2c 2c 74  65 6d 70 32 25 0d 25 6c  |400CB,,temp2%.%l|
00004530  31 73 78 25 3d 74 65 6d  70 31 25 21 31 32 2d 74  |1sx%=temp1%!12-t|
00004540  65 6d 70 31 25 21 34 3a  73 79 25 3d 74 65 6d 70  |emp1%!4:sy%=temp|
00004550  31 25 21 31 36 2d 74 65  6d 70 31 25 21 38 0d 25  |1%!16-temp1%!8.%|
00004560  76 2f 74 65 6d 70 31 25  21 34 3d 74 65 6d 70 32  |v/temp1%!4=temp2|
00004570  25 21 31 32 2b 32 3a 74  65 6d 70 31 25 21 38 3d  |%!12+2:temp1%!8=|
00004580  74 65 6d 70 32 25 21 31  36 2d 73 79 25 0d 25 80  |temp2%!16-sy%.%.|
00004590  2e 74 65 6d 70 31 25 21  31 32 3d 74 65 6d 70 31  |.temp1%!12=temp1|
000045a0  25 21 34 2b 73 78 25 3a  74 65 6d 70 31 25 21 31  |%!4+sx%:temp1%!1|
000045b0  36 3d 74 65 6d 70 32 25  21 31 36 0d 25 8a 10 74  |6=temp2%!16.%..t|
000045c0  65 6d 70 31 25 21 32 38  3d 2d 31 0d 25 94 14 c8  |emp1%!28=-1.%...|
000045d0  99 26 34 30 30 43 35 2c  2c 74 65 6d 70 31 25 0d  |.&400C5,,temp1%.|
000045e0  25 9e 1c f2 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |%...icon_select(|
000045f0  77 69 6e 64 25 2c 31 34  2c 31 29 0d 25 a8 05 cd  |wind%,14,1).%...|
00004600  0d 25 b2 05 cb 0d 25 bc  05 e1 0d 25 e4 21 dd f2  |.%....%....%.!..|
00004610  77 69 6d 70 5f 63 6c 69  63 6b 62 75 66 66 28 69  |wimp_clickbuff(i|
00004620  63 6f 6e 25 2c 62 75 74  74 25 29 0d 25 ee 2d ea  |con%,butt%).%.-.|
00004630  40 25 2c 73 74 65 70 25  2c 74 69 6d 65 25 2c 68  |@%,step%,time%,h|
00004640  69 6d 65 6d 25 2c 6e 74  25 2c 73 70 65 65 64 2c  |imem%,nt%,speed,|
00004650  78 25 2c 79 25 2c 7a 25  0d 25 f8 0c c8 8e 69 63  |x%,y%,z%.%....ic|
00004660  6f 6e 25 ca 0d 26 02 06  c9 36 0d 26 0c 14 73 74  |on%..&...6.&..st|
00004670  65 70 25 3d 2d 31 2b 37  2a a6 28 2d 31 29 0d 26  |ep%=-1+7*.(-1).&|
00004680  16 33 63 6f 64 65 5f 62  75 66 66 73 69 7a 65 25  |.3code_buffsize%|
00004690  3d 31 30 32 34 2a 28 73  74 65 70 25 2b 63 6f 64  |=1024*(step%+cod|
000046a0  65 5f 62 75 66 66 73 69  7a 65 25 81 31 30 32 34  |e_buffsize%.1024|
000046b0  29 0d 26 20 30 e7 63 6f  64 65 5f 62 75 66 66 73  |).& 0.code_buffs|
000046c0  69 7a 65 25 3c 38 2a 31  30 32 34 8c 63 6f 64 65  |ize%<8*1024.code|
000046d0  5f 62 75 66 66 73 69 7a  65 25 3d 38 2a 31 30 32  |_buffsize%=8*102|
000046e0  34 0d 26 2a 0f 40 25 3d  22 2b 66 31 30 2e 33 22  |4.&*.@%="+f10.3"|
000046f0  0d 26 34 39 f2 69 63 6f  6e 5f 74 65 78 74 28 77  |.&49.icon_text(w|
00004700  69 6e 64 5f 62 75 66 66  25 2c 35 2c c3 28 63 6f  |ind_buff%,5,.(co|
00004710  64 65 5f 62 75 66 66 73  69 7a 65 25 2f 31 30 32  |de_buffsize%/102|
00004720  34 29 2b 22 20 4b 62 22  29 0d 26 3e 11 73 65 74  |4)+" Kb").&>.set|
00004730  62 75 66 66 5f 6e 70 25  3d 32 0d 26 52 06 c9 37  |buff_np%=2.&R..7|
00004740  0d 26 5c 13 73 74 65 70  25 3d 31 2d 37 2a a6 28  |.&\.step%=1-7*.(|
00004750  2d 31 29 0d 26 66 33 63  6f 64 65 5f 62 75 66 66  |-1).&f3code_buff|
00004760  73 69 7a 65 25 3d 31 30  32 34 2a 28 73 74 65 70  |size%=1024*(step|
00004770  25 2b 63 6f 64 65 5f 62  75 66 66 73 69 7a 65 25  |%+code_buffsize%|
00004780  81 31 30 32 34 29 0d 26  70 0f 40 25 3d 22 2b 66  |.1024).&p.@%="+f|
00004790  31 30 2e 33 22 0d 26 7a  39 f2 69 63 6f 6e 5f 74  |10.3".&z9.icon_t|
000047a0  65 78 74 28 77 69 6e 64  5f 62 75 66 66 25 2c 35  |ext(wind_buff%,5|
000047b0  2c c3 28 63 6f 64 65 5f  62 75 66 66 73 69 7a 65  |,.(code_buffsize|
000047c0  25 2f 31 30 32 34 29 2b  22 20 4b 62 22 29 0d 26  |%/1024)+" Kb").&|
000047d0  84 11 73 65 74 62 75 66  66 5f 6e 70 25 3d 32 0d  |..setbuff_np%=2.|
000047e0  26 98 06 c9 38 0d 26 a2  1a 63 6f 64 65 5f 62 75  |&...8.&..code_bu|
000047f0  66 66 73 69 7a 65 25 3d  76 69 64 63 2f 44 25 0d  |ffsize%=vidc/D%.|
00004800  26 ac 2c e7 43 25 80 25  31 30 30 30 8c 63 6f 64  |&.,.C%.%1000.cod|
00004810  65 5f 62 75 66 66 73 69  7a 65 25 2b 3d 63 6f 64  |e_buffsize%+=cod|
00004820  65 5f 62 75 66 66 73 69  7a 65 25 0d 26 b6 2c e7  |e_buffsize%.&.,.|
00004830  43 25 80 25 30 30 30 31  8c 63 6f 64 65 5f 62 75  |C%.%0001.code_bu|
00004840  66 66 73 69 7a 65 25 2b  3d 63 6f 64 65 5f 62 75  |ffsize%+=code_bu|
00004850  66 66 73 69 7a 65 25 0d  26 c0 0f 40 25 3d 22 2b  |ffsize%.&..@%="+|
00004860  66 31 30 2e 33 22 0d 26  ca 39 f2 69 63 6f 6e 5f  |f10.3".&.9.icon_|
00004870  74 65 78 74 28 77 69 6e  64 5f 62 75 66 66 25 2c  |text(wind_buff%,|
00004880  35 2c c3 28 63 6f 64 65  5f 62 75 66 66 73 69 7a  |5,.(code_buffsiz|
00004890  65 25 2f 31 30 32 34 29  2b 22 20 4b 62 22 29 0d  |e%/1024)+" Kb").|
000048a0  26 d4 11 73 65 74 62 75  66 66 5f 6e 70 25 3d 32  |&..setbuff_np%=2|
000048b0  0d 26 e8 06 c9 39 0d 26  f2 1c 63 6f 64 65 5f 62  |.&...9.&..code_b|
000048c0  75 66 66 73 69 7a 65 25  3d 32 2a 76 69 64 63 2f  |uffsize%=2*vidc/|
000048d0  44 25 0d 26 fc 2c e7 43  25 80 25 31 30 30 30 8c  |D%.&.,.C%.%1000.|
000048e0  63 6f 64 65 5f 62 75 66  66 73 69 7a 65 25 2b 3d  |code_buffsize%+=|
000048f0  63 6f 64 65 5f 62 75 66  66 73 69 7a 65 25 0d 27  |code_buffsize%.'|
00004900  06 2c e7 43 25 80 25 30  30 30 31 8c 63 6f 64 65  |.,.C%.%0001.code|
00004910  5f 62 75 66 66 73 69 7a  65 25 2b 3d 63 6f 64 65  |_buffsize%+=code|
00004920  5f 62 75 66 66 73 69 7a  65 25 0d 27 10 0f 40 25  |_buffsize%.'..@%|
00004930  3d 22 2b 66 31 30 2e 33  22 0d 27 1a 39 f2 69 63  |="+f10.3".'.9.ic|
00004940  6f 6e 5f 74 65 78 74 28  77 69 6e 64 5f 62 75 66  |on_text(wind_buf|
00004950  66 25 2c 35 2c c3 28 63  6f 64 65 5f 62 75 66 66  |f%,5,.(code_buff|
00004960  73 69 7a 65 25 2f 31 30  32 34 29 2b 22 20 4b 62  |size%/1024)+" Kb|
00004970  22 29 0d 27 24 11 73 65  74 62 75 66 66 5f 6e 70  |").'$.setbuff_np|
00004980  25 3d 32 0d 27 38 0a c9  31 30 2c 31 31 0d 27 42  |%=2.'8..10,11.'B|
00004990  1f e7 69 63 6f 6e 25 3d  31 30 8c 74 69 6d 65 25  |..icon%=10.time%|
000049a0  3d 31 30 8b 74 69 6d 65  25 3d 35 30 0d 27 4c 0c  |=10.time%=50.'L.|
000049b0  68 69 6d 65 6d 25 3d 93  0d 27 56 15 e0 3d 68 69  |himem%=..'V..=hi|
000049c0  6d 65 6d 25 2b 31 33 30  2a 31 30 32 34 0d 27 60  |mem%+130*1024.'`|
000049d0  07 d1 3d 30 0d 27 6a 2e  c8 99 26 43 2c 33 2c 63  |..=0.'j...&C,3,c|
000049e0  6f 64 65 5f 66 69 6c 65  25 2c 68 69 6d 65 6d 25  |ode_file%,himem%|
000049f0  2c 31 32 38 2a 31 30 32  34 2c 30 b8 2c 2c 2c 6e  |,128*1024,0.,,,n|
00004a00  74 25 0d 27 74 0c e7 91  3d 30 8c d1 3d 31 0d 27  |t%.'t...=0..=1.'|
00004a10  7e 1a 73 70 65 65 64 3d  91 2f 28 31 32 38 2a 31  |~.speed=./(128*1|
00004a20  30 32 34 2d 6e 74 25 29  0d 27 88 0c e0 3d 68 69  |024-nt%).'...=hi|
00004a30  6d 65 6d 25 0d 27 92 2a  63 6f 64 65 5f 62 75 66  |mem%.'.*code_buf|
00004a40  66 73 69 7a 65 25 3d 32  35 36 2a 28 28 74 69 6d  |fsize%=256*((tim|
00004a50  65 25 2f 73 70 65 65 64  29 81 32 35 36 29 0d 27  |e%/speed).256).'|
00004a60  9c 0f 40 25 3d 22 2b 66  31 30 2e 33 22 0d 27 a6  |..@%="+f10.3".'.|
00004a70  39 f2 69 63 6f 6e 5f 74  65 78 74 28 77 69 6e 64  |9.icon_text(wind|
00004a80  5f 62 75 66 66 25 2c 35  2c c3 28 63 6f 64 65 5f  |_buff%,5,.(code_|
00004a90  62 75 66 66 73 69 7a 65  25 2f 31 30 32 34 29 2b  |buffsize%/1024)+|
00004aa0  22 20 4b 62 22 29 0d 27  b0 11 73 65 74 62 75 66  |" Kb").'..setbuf|
00004ab0  66 5f 6e 70 25 3d 32 0d  27 c4 2d c9 31 36 3a f2  |f_np%=2.'.-.16:.|
00004ac0  77 69 6e 64 5f 6f 70 65  6e 6f 76 65 72 28 77 69  |wind_openover(wi|
00004ad0  6e 64 5f 62 75 66 66 25  2c 77 69 6e 64 5f 66 6f  |nd_buff%,wind_fo|
00004ae0  72 6d 25 29 0d 27 ce 07  c9 31 37 0d 27 d8 1b f2  |rm%).'...17.'...|
00004af0  77 69 6e 64 5f 63 6c 6f  73 65 28 77 69 6e 64 5f  |wind_close(wind_|
00004b00  66 6f 72 6d 25 29 0d 27  e2 1b f2 77 69 6e 64 5f  |form%).'...wind_|
00004b10  63 6c 6f 73 65 28 77 69  6e 64 5f 62 75 66 66 25  |close(wind_buff%|
00004b20  29 0d 27 ec 14 f2 63 6f  64 65 5f 61 63 74 69 6f  |).'...code_actio|
00004b30  6e 28 39 39 29 0d 27 f6  1a c9 31 38 3a f2 63 6f  |n(99).'...18:.co|
00004b40  64 65 5f 62 65 67 69 6e  70 6c 61 79 28 b9 29 0d  |de_beginplay(.).|
00004b50  28 00 1a c9 31 39 3a f2  63 6f 64 65 5f 62 65 67  |(...19:.code_beg|
00004b60  69 6e 70 6c 61 79 28 a3  29 0d 28 14 07 c9 32 30  |inplay(.).(...20|
00004b70  0d 28 1e 25 f2 69 63 6f  6e 5f 70 6f 73 28 77 69  |.(.%.icon_pos(wi|
00004b80  6e 64 25 2c 32 30 2c 7a  25 2c 7a 25 2c 78 25 2c  |nd%,20,z%,z%,x%,|
00004b90  79 25 2c 30 29 0d 28 28  1e c8 99 26 34 30 30 44  |y%,0).((...&400D|
00004ba0  34 2c 2c 6d 65 6e 75 5f  74 79 70 65 25 2c 78 25  |4,,menu_type%,x%|
00004bb0  2c 79 25 0d 28 32 16 6d  65 6e 75 5f 63 25 3d 6d  |,y%.(2.menu_c%=m|
00004bc0  65 6e 75 5f 74 79 70 65  25 0d 28 46 05 cb 0d 28  |enu_type%.(F...(|
00004bd0  50 05 e1 0d 28 78 21 dd  f2 77 69 6d 70 5f 63 6c  |P...(x!..wimp_cl|
00004be0  69 63 6b 66 6f 72 6d 28  69 63 6f 6e 25 2c 62 75  |ickform(icon%,bu|
00004bf0  74 74 25 29 0d 28 82 13  ea 78 25 2c 79 25 2c 7a  |tt%).(...x%,y%,z|
00004c00  25 2c 73 74 65 70 25 0d  28 8c 0c c8 8e 69 63 6f  |%,step%.(....ico|
00004c10  6e 25 ca 0d 28 96 06 c9  36 0d 28 a0 24 f2 69 63  |n%..(...6.(.$.ic|
00004c20  6f 6e 5f 70 6f 73 28 77  69 6e 64 25 2c 36 2c 7a  |on_pos(wind%,6,z|
00004c30  25 2c 7a 25 2c 78 25 2c  79 25 2c 30 29 0d 28 aa  |%,z%,x%,y%,0).(.|
00004c40  1e c8 99 26 34 30 30 44  34 2c 2c 6d 65 6e 75 5f  |...&400D4,,menu_|
00004c50  62 69 74 73 25 2c 78 25  2c 79 25 0d 28 b4 16 6d  |bits%,x%,y%.(..m|
00004c60  65 6e 75 5f 63 25 3d 6d  65 6e 75 5f 62 69 74 73  |enu_c%=menu_bits|
00004c70  25 0d 28 c8 08 c9 38 2c  39 0d 28 d2 13 73 74 65  |%.(...8,9.(..ste|
00004c80  70 25 3d 31 2d 37 2a a6  28 2d 31 29 0d 28 dc 1a  |p%=1-7*.(-1).(..|
00004c90  44 25 2d 3d 28 69 63 6f  6e 25 2a 32 2d 31 37 29  |D%-=(icon%*2-17)|
00004ca0  2a 73 74 65 70 25 0d 28  e6 10 e7 44 25 3c 31 30  |*step%.(...D%<10|
00004cb0  8c 44 25 3d 31 30 0d 28  f0 12 e7 44 25 3e 32 30  |.D%=10.(...D%>20|
00004cc0  30 8c 44 25 3d 32 30 30  0d 28 fa 0f 40 25 3d 22  |0.D%=200.(..@%="|
00004cd0  2b 67 31 30 2e 39 22 0d  29 04 28 f2 69 63 6f 6e  |+g10.9".).(.icon|
00004ce0  5f 74 65 78 74 28 77 69  6e 64 25 2c 37 2c c3 28  |_text(wind%,7,.(|
00004cf0  76 69 64 63 81 44 25 29  2b 22 20 48 7a 22 29 0d  |vidc.D%)+" Hz").|
00004d00  29 18 0a c9 31 30 2c 31  31 0d 29 22 21 43 25 3d  |)...10,11.)"!C%=|
00004d10  28 43 25 80 25 31 30 31  31 29 84 28 28 69 63 6f  |(C%.%1011).((ico|
00004d20  6e 25 2d 31 30 29 3c 3c  32 29 0d 29 2c 28 f2 69  |n%-10)<<2).),(.i|
00004d30  63 6f 6e 5f 73 65 6c 65  63 74 28 77 69 6e 64 25  |con_select(wind%|
00004d40  2c 31 30 2c 28 69 63 6f  6e 25 3d 31 30 29 80 20  |,10,(icon%=10). |
00004d50  31 29 0d 29 36 28 f2 69  63 6f 6e 5f 73 65 6c 65  |1).)6(.icon_sele|
00004d60  63 74 28 77 69 6e 64 25  2c 31 31 2c 28 69 63 6f  |ct(wind%,11,(ico|
00004d70  6e 25 3d 31 31 29 80 20  31 29 0d 29 4a 0a c9 31  |n%=11). 1).)J..1|
00004d80  32 2c 31 33 0d 29 54 21  43 25 3d 28 43 25 80 25  |2,13.)T!C%=(C%.%|
00004d90  31 31 30 31 29 84 28 28  69 63 6f 6e 25 2d 31 32  |1101).((icon%-12|
00004da0  29 3c 3c 31 29 0d 29 5e  28 f2 69 63 6f 6e 5f 73  |)<<1).)^(.icon_s|
00004db0  65 6c 65 63 74 28 77 69  6e 64 25 2c 31 32 2c 28  |elect(wind%,12,(|
00004dc0  69 63 6f 6e 25 3d 31 32  29 80 20 31 29 0d 29 68  |icon%=12). 1).)h|
00004dd0  28 f2 69 63 6f 6e 5f 73  65 6c 65 63 74 28 77 69  |(.icon_select(wi|
00004de0  6e 64 25 2c 31 33 2c 28  69 63 6f 6e 25 3d 31 33  |nd%,13,(icon%=13|
00004df0  29 80 20 31 29 0d 29 7c  0a c9 31 34 2c 31 35 0d  |). 1).)|..14,15.|
00004e00  29 86 21 43 25 3d 28 43  25 80 25 31 31 31 30 29  |).!C%=(C%.%1110)|
00004e10  84 28 28 69 63 6f 6e 25  2d 31 34 29 3c 3c 30 29  |.((icon%-14)<<0)|
00004e20  0d 29 90 28 f2 69 63 6f  6e 5f 73 65 6c 65 63 74  |.).(.icon_select|
00004e30  28 77 69 6e 64 25 2c 31  34 2c 28 69 63 6f 6e 25  |(wind%,14,(icon%|
00004e40  3d 31 34 29 80 20 31 29  0d 29 9a 28 f2 69 63 6f  |=14). 1).).(.ico|
00004e50  6e 5f 73 65 6c 65 63 74  28 77 69 6e 64 25 2c 31  |n_select(wind%,1|
00004e60  35 2c 28 69 63 6f 6e 25  3d 31 35 29 80 20 31 29  |5,(icon%=15). 1)|
00004e70  0d 29 ae 2d c9 31 36 3a  f2 77 69 6e 64 5f 6f 70  |.).-.16:.wind_op|
00004e80  65 6e 6f 76 65 72 28 77  69 6e 64 5f 66 6f 72 6d  |enover(wind_form|
00004e90  25 2c 77 69 6e 64 5f 62  75 66 66 25 29 0d 29 b8  |%,wind_buff%).).|
00004ea0  07 c9 31 37 0d 29 c2 1b  f2 77 69 6e 64 5f 63 6c  |..17.)...wind_cl|
00004eb0  6f 73 65 28 77 69 6e 64  5f 66 6f 72 6d 25 29 0d  |ose(wind_form%).|
00004ec0  29 cc 1b f2 77 69 6e 64  5f 63 6c 6f 73 65 28 77  |)...wind_close(w|
00004ed0  69 6e 64 5f 62 75 66 66  25 29 0d 29 d6 14 f2 63  |ind_buff%).)...c|
00004ee0  6f 64 65 5f 61 63 74 69  6f 6e 28 39 39 29 0d 29  |ode_action(99).)|
00004ef0  e0 1a c9 31 38 3a f2 63  6f 64 65 5f 62 65 67 69  |...18:.code_begi|
00004f00  6e 70 6c 61 79 28 b9 29  0d 29 ea 1a c9 31 39 3a  |nplay(.).)...19:|
00004f10  f2 63 6f 64 65 5f 62 65  67 69 6e 70 6c 61 79 28  |.code_beginplay(|
00004f20  a3 29 0d 29 fe 07 c9 32  30 0d 2a 08 25 f2 69 63  |.).)...20.*.%.ic|
00004f30  6f 6e 5f 70 6f 73 28 77  69 6e 64 25 2c 32 30 2c  |on_pos(wind%,20,|
00004f40  7a 25 2c 7a 25 2c 78 25  2c 79 25 2c 30 29 0d 2a  |z%,z%,x%,y%,0).*|
00004f50  12 1e c8 99 26 34 30 30  44 34 2c 2c 6d 65 6e 75  |....&400D4,,menu|
00004f60  5f 74 79 70 65 25 2c 78  25 2c 79 25 0d 2a 1c 16  |_type%,x%,y%.*..|
00004f70  6d 65 6e 75 5f 63 25 3d  6d 65 6e 75 5f 74 79 70  |menu_c%=menu_typ|
00004f80  65 25 0d 2a 30 05 cb 0d  2a 3a 05 e1 0d 2a 62 1f  |e%.*0...*:...*b.|
00004f90  dd f2 77 69 6d 70 5f 63  6c 69 63 6b 76 6f 6c 28  |..wimp_clickvol(|
00004fa0  69 63 6f 6e 25 2c 62 75  74 25 29 0d 2a 6c 0c c8  |icon%,but%).*l..|
00004fb0  8e 69 63 6f 6e 25 ca 0d  2a 76 06 c9 39 0d 2a 80  |.icon%..*v..9.*.|
00004fc0  1b e7 a4 69 63 6f 6e 5f  73 65 6c 65 63 74 28 77  |...icon_select(w|
00004fd0  69 6e 64 25 2c 39 29 8c  0d 2a 8a 0f f2 76 6f 6c  |ind%,9)..*...vol|
00004fe0  75 6d 65 5f 73 65 74 0d  2a 94 05 cc 0d 2a 9e 0e  |ume_set.*....*..|
00004ff0  c8 99 26 34 30 31 38 30  2c 31 0d 2a a8 05 cd 0d  |..&40180,1.*....|
00005000  2a bc 29 c9 31 30 3a c8  99 26 34 30 31 34 33 2c  |*.).10:..&40143,|
00005010  a4 69 63 6f 6e 5f 73 65  6c 65 63 74 28 77 69 6e  |.icon_select(win|
00005020  64 25 2c 31 30 29 2b 31  0d 2a c6 05 cb 0d 2a da  |d%,10)+1.*....*.|
00005030  0f e7 69 63 6f 6e 25 3c  3e 32 8c e1 0d 2a ee 07  |..icon%<>2...*..|
00005040  ea 79 25 0d 2a f8 12 74  65 6d 70 31 25 21 30 3d  |.y%.*..temp1%!0=|
00005050  77 69 6e 64 25 0d 2b 02  14 c8 99 26 34 30 30 43  |wind%.+....&400C|
00005060  42 2c 2c 74 65 6d 70 31  25 0d 2b 0c 24 79 25 3d  |B,,temp1%.+.$y%=|
00005070  71 25 21 34 2d 74 65 6d  70 31 25 21 31 36 2d 76  |q%!4-temp1%!16-v|
00005080  6f 6c 5f 79 25 2d 76 6f  6c 5f 70 6f 73 0d 2b 16  |ol_y%-vol_pos.+.|
00005090  11 e7 79 25 3c 30 84 79  25 3e 3d 34 38 8c 0d 2b  |..y%<0.y%>=48..+|
000050a0  20 12 76 6f 6c 5f 70 6f  73 2b 3d 79 25 2d 32 34  | .vol_pos+=y%-24|
000050b0  0d 2b 2a 18 e7 76 6f 6c  5f 70 6f 73 3c 30 8c 76  |.+*..vol_pos<0.v|
000050c0  6f 6c 5f 70 6f 73 3d 30  0d 2b 34 28 e7 76 6f 6c  |ol_pos=0.+4(.vol|
000050d0  5f 70 6f 73 3e 76 6f 6c  5f 73 69 7a 65 25 8c 76  |_pos>vol_size%.v|
000050e0  6f 6c 5f 70 6f 73 3d 76  6f 6c 5f 73 69 7a 65 25  |ol_pos=vol_size%|
000050f0  0d 2b 3e 05 cd 0d 2b 48  19 f2 69 63 6f 6e 5f 75  |.+>...+H..icon_u|
00005100  70 64 61 74 65 28 77 69  6e 64 25 2c 32 29 0d 2b  |pdate(wind%,2).+|
00005110  52 46 f2 64 72 61 67 5f  73 6c 69 64 65 72 28 77  |RF.drag_slider(w|
00005120  69 6e 64 25 2c 30 2c 76  6f 6c 5f 78 25 2c 76 6f  |ind%,0,vol_x%,vo|
00005130  6c 5f 79 25 2b 76 6f 6c  5f 70 6f 73 2c 33 32 2c  |l_y%+vol_pos,32,|
00005140  34 38 2c 22 70 76 73 6c  69 64 65 72 22 2c 73 70  |48,"pvslider",sp|
00005150  72 73 25 29 0d 2b 5c 0c  76 6f 6c 5f 64 25 3d b9  |rs%).+\.vol_d%=.|
00005160  0d 2b 66 10 76 6f 6c 5f  64 79 25 3d 71 25 21 34  |.+f.vol_dy%=q%!4|
00005170  0d 2b 70 05 e1 0d 2b 98  21 dd f2 77 69 6d 70 5f  |.+p...+.!..wimp_|
00005180  63 6c 69 63 6b 76 69 64  63 28 69 63 6f 6e 25 2c  |clickvidc(icon%,|
00005190  62 75 74 74 25 29 0d 2b  a2 0c c8 8e 69 63 6f 6e  |butt%).+....icon|
000051a0  25 ca 0d 2b ac 26 c9 32  3a 76 69 64 63 3d 76 69  |%..+.&.2:vidc=vi|
000051b0  64 63 5f 74 76 3a f2 69  63 6f 6e 5f 72 65 73 74  |dc_tv:.icon_rest|
000051c0  6f 72 65 63 61 72 65 74  0d 2b b6 27 c9 33 3a 76  |orecaret.+.'.3:v|
000051d0  69 64 63 3d 76 69 64 63  5f 76 67 61 3a f2 69 63  |idc=vidc_vga:.ic|
000051e0  6f 6e 5f 72 65 73 74 6f  72 65 63 61 72 65 74 0d  |on_restorecaret.|
000051f0  2b c0 26 c9 34 3a 76 69  64 63 3d 76 69 64 63 5f  |+.&.4:vidc=vidc_|
00005200  6d 73 3a f2 69 63 6f 6e  5f 72 65 73 74 6f 72 65  |ms:.icon_restore|
00005210  63 61 72 65 74 0d 2b ca  06 c9 35 0d 2b d4 22 76  |caret.+...5.+."v|
00005220  69 64 63 3d a4 69 63 6f  6e 5f 65 76 61 6c 28 77  |idc=.icon_eval(w|
00005230  69 6e 64 25 2c 37 29 2f  30 2e 30 32 34 0d 2b de  |ind%,7)/0.024.+.|
00005240  20 f2 69 63 6f 6e 5f 73  74 6f 72 65 63 61 72 65  | .icon_storecare|
00005250  74 28 77 69 6e 64 25 2c  37 2c 2d 31 29 0d 2b e8  |t(wind%,7,-1).+.|
00005260  07 c9 2d 31 0d 2b f2 22  76 69 64 63 3d a4 69 63  |..-1.+."vidc=.ic|
00005270  6f 6e 5f 65 76 61 6c 28  77 69 6e 64 25 2c 37 29  |on_eval(wind%,7)|
00005280  2f 30 2e 30 32 34 0d 2b  fc 16 f2 69 63 6f 6e 5f  |/0.024.+...icon_|
00005290  72 65 73 74 6f 72 65 63  61 72 65 74 0d 2c 06 0b  |restorecaret.,..|
000052a0  69 63 6f 6e 25 3d 35 0d  2c 10 05 cb 0d 2c 1a 19  |icon%=5.,....,..|
000052b0  f2 69 63 6f 6e 5f 63 6c  65 61 72 61 6c 6c 28 77  |.icon_clearall(w|
000052c0  69 6e 64 25 29 0d 2c 24  1f f2 69 63 6f 6e 5f 73  |ind%).,$..icon_s|
000052d0  65 6c 65 63 74 28 77 69  6e 64 25 2c 69 63 6f 6e  |elect(wind%,icon|
000052e0  25 2c 31 29 0d 2c 2e 05  e1 0d 2c 56 20 dd f2 77  |%,1).,....,V ..w|
000052f0  69 6d 70 5f 6d 61 6b 65  6d 65 6e 75 28 77 69 6e  |imp_makemenu(win|
00005300  64 25 2c 69 63 6f 6e 25  29 0d 2c 60 0c c8 8e 77  |d%,icon%).,`...w|
00005310  69 6e 64 25 ca 0d 2c 6a  07 c9 2d 32 0d 2c 74 22  |ind%..,j..-2.,t"|
00005320  c8 99 26 34 30 30 44 34  2c 2c 6d 65 6e 75 5f 69  |..&400D4,,menu_i|
00005330  62 25 2c 71 25 21 30 2d  36 34 2c 32 37 34 0d 2c  |b%,q%!0-64,274.,|
00005340  7e 14 6d 65 6e 75 5f 63  25 3d 6d 65 6e 75 5f 69  |~.menu_c%=menu_i|
00005350  62 25 0d 2c 88 0f c9 77  69 6e 64 5f 63 6f 6e 74  |b%.,...wind_cont|
00005360  25 0d 2c 92 0f c9 77 69  6e 64 5f 62 75 66 66 25  |%.,...wind_buff%|
00005370  0d 2c 9c 0f c9 77 69 6e  64 5f 66 6f 72 6d 25 0d  |.,...wind_form%.|
00005380  2c a6 05 cb 0d 2c b0 05  e1 0d 2c d8 12 dd f2 77  |,....,....,....w|
00005390  69 6d 70 5f 65 6e 64 64  72 61 67 0d 2c e2 07 ea  |imp_enddrag.,...|
000053a0  56 25 0d 2c ec 0f e7 73  6c 69 64 65 72 5f 64 25  |V%.,...slider_d%|
000053b0  8c 0d 2c f6 0f 73 6c 69  64 65 72 5f 64 25 3d a3  |..,..slider_d%=.|
000053c0  0d 2d 00 14 c8 99 26 34  30 30 43 46 2c 2c 74 65  |.-....&400CF,,te|
000053d0  6d 70 31 25 0d 2d 0a 23  73 6c 69 64 65 72 5f 70  |mp1%.-.#slider_p|
000053e0  78 25 2b 3d 74 65 6d 70  31 25 21 30 2d 73 6c 69  |x%+=temp1%!0-sli|
000053f0  64 65 72 5f 64 78 25 0d  2d 14 1f f2 69 63 6f 6e  |der_dx%.-...icon|
00005400  5f 75 70 64 61 74 65 28  77 69 6e 64 5f 63 6f 6e  |_update(wind_con|
00005410  74 25 2c 31 32 29 0d 2d  1e 10 73 6c 69 64 65 72  |t%,12).-..slider|
00005420  5f 6e 70 25 3d 32 0d 2d  28 05 cd 0d 2d 3c 0c e7  |_np%=2.-(...-<..|
00005430  76 6f 6c 5f 64 25 8c 0d  2d 46 0c 76 6f 6c 5f 64  |vol_d%..-F.vol_d|
00005440  25 3d a3 0d 2d 50 16 f2  76 6f 6c 75 6d 65 5f 64  |%=..-P..volume_d|
00005450  72 61 67 73 65 74 28 a3  29 0d 2d 5a 05 cd 0d 2d  |ragset(.).-Z...-|
00005460  64 05 e1 0d 2d 8c 14 dd  f2 77 69 6d 70 5f 6d 65  |d...-....wimp_me|
00005470  6e 75 72 65 70 6c 79 0d  2d 96 0e c8 8e 6d 65 6e  |nureply.-....men|
00005480  75 5f 63 25 ca 0d 2d a0  20 c9 6d 65 6e 75 5f 69  |u_c%..-. .menu_i|
00005490  62 25 3a f2 77 69 6d 70  5f 6d 65 6e 75 72 65 70  |b%:.wimp_menurep|
000054a0  6c 79 5f 69 62 0d 2d aa  24 c9 6d 65 6e 75 5f 62  |ly_ib.-.$.menu_b|
000054b0  69 74 73 25 3a f2 77 69  6d 70 5f 6d 65 6e 75 72  |its%:.wimp_menur|
000054c0  65 70 6c 79 5f 62 69 74  73 0d 2d b4 24 c9 6d 65  |eply_bits.-.$.me|
000054d0  6e 75 5f 74 79 70 65 25  3a f2 77 69 6d 70 5f 6d  |nu_type%:.wimp_m|
000054e0  65 6e 75 72 65 70 6c 79  5f 74 79 70 65 0d 2d be  |enureply_type.-.|
000054f0  05 cb 0d 2d c8 05 e1 0d  2d f0 17 dd f2 77 69 6d  |...-....-....wim|
00005500  70 5f 6d 65 6e 75 72 65  70 6c 79 5f 69 62 0d 2d  |p_menureply_ib.-|
00005510  fa 0a c8 8e 21 71 25 ca  0d 2e 04 23 c9 30 3a f2  |....!q%....#.0:.|
00005520  77 69 6e 64 5f 6f 70 65  6e 63 65 6e 74 72 65 28  |wind_opencentre(|
00005530  77 69 6e 64 5f 69 6e 66  6f 25 29 0d 2e 0e 0c c9  |wind_info%).....|
00005540  31 3a f2 68 65 6c 70 0d  2e 18 23 c9 32 3a f2 77  |1:.help...#.2:.w|
00005550  69 6e 64 5f 6f 70 65 6e  63 65 6e 74 72 65 28 77  |ind_opencentre(w|
00005560  69 6e 64 5f 76 69 64 63  25 29 0d 2e 22 1a c9 33  |ind_vidc%).."..3|
00005570  3a 71 75 69 74 25 3d a4  77 69 6d 70 5f 70 72 65  |:quit%=.wimp_pre|
00005580  71 75 69 74 0d 2e 2c 05  cb 0d 2e 36 05 e1 0d 2e  |quit..,....6....|
00005590  5e 19 dd f2 77 69 6d 70  5f 6d 65 6e 75 72 65 70  |^...wimp_menurep|
000055a0  6c 79 5f 62 69 74 73 0d  2e 68 0b e7 21 71 25 3d  |ly_bits..h..!q%=|
000055b0  31 8c 0d 2e 72 0f 43 25  3d 43 25 84 25 31 30 30  |1...r.C%=C%.%100|
000055c0  30 0d 2e 7c 26 f2 69 63  6f 6e 5f 74 65 78 74 28  |0..|&.icon_text(|
000055d0  77 69 6e 64 5f 66 6f 72  6d 25 2c 35 2c 22 31 36  |wind_form%,5,"16|
000055e0  20 62 69 74 73 22 29 0d  2e 86 05 cc 0d 2e 90 0f  | bits").........|
000055f0  43 25 3d 43 25 80 25 30  31 31 31 0d 2e 9a 25 f2  |C%=C%.%0111...%.|
00005600  69 63 6f 6e 5f 74 65 78  74 28 77 69 6e 64 5f 66  |icon_text(wind_f|
00005610  6f 72 6d 25 2c 35 2c 22  38 20 62 69 74 73 22 29  |orm%,5,"8 bits")|
00005620  0d 2e a4 05 cd 0d 2e ae  05 e1 0d 2e d6 19 dd f2  |................|
00005630  77 69 6d 70 5f 6d 65 6e  75 72 65 70 6c 79 5f 74  |wimp_menureply_t|
00005640  79 70 65 0d 2e e0 0a ea  74 79 70 65 24 0d 2e ea  |ype.....type$...|
00005650  0a c8 8e 21 71 25 ca 0d  2e f4 2c c9 30 3a 57 25  |...!q%....,.0:W%|
00005660  3d a4 63 6f 64 65 5f 74  79 70 65 5f 44 33 43 3a  |=.code_type_D3C:|
00005670  74 79 70 65 24 3d 22 61  6e 20 41 72 6d 61 64 65  |type$="an Armade|
00005680  75 73 22 0d 2e fe 2a c9  31 3a 57 25 3d a4 63 6f  |us"...*.1:W%=.co|
00005690  64 65 5f 74 79 70 65 5f  45 44 30 3a 74 79 70 65  |de_type_ED0:type|
000056a0  24 3d 22 61 20 44 53 20  45 64 69 74 22 0d 2f 08  |$="a DS Edit"./.|
000056b0  3d c9 32 3a 57 25 3d a4  63 6f 64 65 5f 74 79 70  |=.2:W%=.code_typ|
000056c0  65 5f 43 42 35 3a 74 79  70 65 24 3d 22 61 20 44  |e_CB5:type$="a D|
000056d0  65 73 6b 74 6f 70 20 54  72 61 63 6b 65 72 20 6f  |esktop Tracker o|
000056e0  72 20 54 72 61 63 6b 65  72 22 0d 2f 12 2a c9 33  |r Tracker"./.*.3|
000056f0  3a 57 25 3d a4 63 6f 64  65 5f 74 79 70 65 5f 46  |:W%=.code_type_F|
00005700  42 31 3a 74 79 70 65 24  3d 22 61 6e 20 4d 53 20  |B1:type$="an MS |
00005710  57 41 56 22 0d 2f 1c 2d  c9 34 3a 57 25 3d a4 63  |WAV"./.-.4:W%=.c|
00005720  6f 64 65 5f 74 79 70 65  5f 33 38 44 3a 74 79 70  |ode_type_38D:typ|
00005730  65 24 3d 22 61 20 53 75  70 65 72 53 6f 6e 69 63  |e$="a SuperSonic|
00005740  22 0d 2f 26 05 cb 0d 2f  30 2c e7 57 25 3d b9 8c  |"./&.../0,.W%=..|
00005750  f2 63 6f 64 65 5f 66 69  6c 6c 69 6e 66 6f 8b 57  |.code_fillinfo.W|
00005760  25 3d a4 77 61 72 6e 5f  6d 65 73 73 61 67 65 28  |%=.warn_message(|
00005770  39 29 0d 2f 3a 05 e1 0d  2f 62 17 dd f2 77 69 6d  |9)./:.../b...wim|
00005780  70 5f 6d 65 73 73 61 67  65 28 6d 63 25 29 0d 2f  |p_message(mc%)./|
00005790  6c 0e ea 73 68 75 74 64  6f 77 6e 25 0d 2f 76 0a  |l..shutdown%./v.|
000057a0  c8 8e 6d 63 25 ca 0d 2f  80 0e c9 30 3a 71 75 69  |..mc%../...0:qui|
000057b0  74 25 3d b9 0d 2f 8a 2b  c9 33 3a f2 77 69 6d 70  |t%=../.+.3:.wimp|
000057c0  5f 6d 65 73 73 61 67 65  5f 6c 6f 61 64 28 a4 6d  |_message_load(.m|
000057d0  69 73 63 5f 73 74 72 28  71 25 2b 34 34 29 29 0d  |isc_str(q%+44)).|
000057e0  2f 94 06 c9 35 0d 2f 9e  31 e7 71 25 21 34 30 3d  |/...5./.1.q%!40=|
000057f0  26 46 42 31 84 71 25 21  34 30 3d 26 44 33 43 84  |&FB1.q%!40=&D3C.|
00005800  71 25 21 34 30 3d 26 43  42 35 84 71 25 21 34 30  |q%!40=&CB5.q%!40|
00005810  3d 26 33 38 44 8c 0d 2f  a8 0e 71 25 21 31 32 3d  |=&38D../..q%!12=|
00005820  71 25 21 38 0d 2f b2 17  c8 99 26 34 30 30 45 37  |q%!8./....&400E7|
00005830  2c 31 37 2c 71 25 2c 71  25 21 34 0d 2f bc 20 f2  |,17,q%,q%!4./. .|
00005840  63 6f 64 65 5f 6c 6f 61  64 28 a4 6d 69 73 63 5f  |code_load(.misc_|
00005850  73 74 72 28 71 25 2b 34  34 29 29 0d 2f c6 05 cd  |str(q%+44))./...|
00005860  0d 2f d0 10 e7 71 25 21  34 30 3d 26 30 46 30 8c  |./...q%!40=&0F0.|
00005870  0d 2f da 0e 71 25 21 31  32 3d 71 25 21 38 0d 2f  |./..q%!12=q%!8./|
00005880  e4 17 c8 99 26 34 30 30  45 37 2c 31 37 2c 71 25  |....&400E7,17,q%|
00005890  2c 71 25 21 34 0d 2f ee  28 f2 77 69 6d 70 5f 6d  |,q%!4./.(.wimp_m|
000058a0  65 73 73 61 67 65 5f 6c  6f 61 64 28 a4 6d 69 73  |essage_load(.mis|
000058b0  63 5f 73 74 72 28 71 25  2b 34 34 29 29 0d 2f f8  |c_str(q%+44))./.|
000058c0  05 cd 0d 30 0c 06 c9 38  0d 30 16 13 73 68 75 74  |...0...8.0..shut|
000058d0  64 6f 77 6e 25 3d 71 25  21 32 30 0d 30 20 0e 71  |down%=q%!20.0 .q|
000058e0  25 21 31 32 3d 71 25 21  38 0d 30 2a 17 c8 99 26  |%!12=q%!8.0*...&|
000058f0  34 30 30 45 37 2c 31 37  2c 71 25 2c 71 25 21 34  |400E7,17,q%,q%!4|
00005900  0d 30 34 13 e7 a4 77 69  6d 70 5f 70 72 65 71 75  |.04...wimp_prequ|
00005910  69 74 8c 0d 30 3e 0b 71  75 69 74 25 3d b9 0d 30  |it..0>.quit%=..0|
00005920  48 19 e7 73 68 75 74 64  6f 77 6e 25 3d 30 8c c8  |H..shutdown%=0..|
00005930  99 26 34 32 36 38 32 0d  30 52 05 cd 0d 30 5c 2e  |.&42682.0R...0\.|
00005940  e7 71 75 69 74 5f 66 69  6e 69 73 68 25 80 20 73  |.quit_finish%. s|
00005950  68 75 74 64 6f 77 6e 25  3d 30 8c 71 75 69 74 5f  |hutdown%=0.quit_|
00005960  66 69 6e 69 73 68 25 3d  2d 32 0d 30 66 05 cb 0d  |finish%=-2.0f...|
00005970  30 70 05 e1 0d 30 98 1c  dd f2 77 69 6d 70 5f 6d  |0p...0....wimp_m|
00005980  65 73 73 61 67 65 5f 6c  6f 61 64 28 66 6e 24 29  |essage_load(fn$)|
00005990  0d 30 a2 0a ea 74 24 2c  4e 25 0d 30 ac 0c c8 8e  |.0...t$,N%.0....|
000059a0  71 25 21 34 30 ca 0d 30  b6 09 c9 26 30 46 30 0d  |q%!40..0...&0F0.|
000059b0  30 c0 1d f2 6d 69 73 63  5f 63 6c 6f 73 65 28 73  |0...misc_close(s|
000059c0  63 72 69 70 74 5f 66 69  6c 65 25 29 0d 30 ca 17  |cript_file%).0..|
000059d0  73 63 72 69 70 74 5f 66  69 6c 65 25 3d 8e 28 66  |script_file%=.(f|
000059e0  6e 24 29 0d 30 d4 12 73  63 72 69 70 74 5f 66 6e  |n$).0..script_fn|
000059f0  24 3d 66 6e 24 0d 30 de  16 e7 a2 23 73 63 72 69  |$=fn$.0....#scri|
00005a00  70 74 5f 66 69 6c 65 25  3e 30 8c 0d 30 e8 1e f2  |pt_file%>0..0...|
00005a10  63 6f 64 65 5f 6c 6f 61  64 28 be 23 73 63 72 69  |code_load(.#scri|
00005a20  70 74 5f 66 69 6c 65 25  29 0d 30 f2 05 cc 0d 30  |pt_file%).0....0|
00005a30  fc 1d f2 6d 69 73 63 5f  63 6c 6f 73 65 28 73 63  |...misc_close(sc|
00005a40  72 69 70 74 5f 66 69 6c  65 25 29 0d 31 06 05 cd  |ript_file%).1...|
00005a50  0d 31 1a 0a c9 26 31 30  30 30 0d 31 24 1d f2 6d  |.1...&1000.1$..m|
00005a60  69 73 63 5f 63 6c 6f 73  65 28 73 63 72 69 70 74  |isc_close(script|
00005a70  5f 66 69 6c 65 25 29 0d  31 2e 0e c8 99 26 34 30  |_file%).1....&40|
00005a80  36 43 33 2c 31 0d 31 38  29 73 63 72 69 70 74 5f  |6C3,1.18)script_|
00005a90  66 6e 24 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |fn$="<Wimp$Scrap|
00005aa0  44 69 72 3e 2e 57 50 53  63 72 69 70 74 22 0d 31  |Dir>.WPScript".1|
00005ab0  42 1e 73 63 72 69 70 74  5f 66 69 6c 65 25 3d ae  |B.script_file%=.|
00005ac0  28 73 63 72 69 70 74 5f  66 6e 24 29 0d 31 4c 08  |(script_fn$).1L.|
00005ad0  4e 25 3d 30 0d 31 56 05  f5 0d 31 60 1d 74 24 3d  |N%=0.1V...1`.t$=|
00005ae0  a4 6d 69 73 63 5f 66 69  6e 64 66 69 6c 65 28 66  |.misc_findfile(f|
00005af0  6e 24 2c 4e 25 29 0d 31  6a 25 e7 74 24 3c 3e 22  |n$,N%).1j%.t$<>"|
00005b00  22 8c d5 23 73 63 72 69  70 74 5f 66 69 6c 65 25  |"..#script_file%|
00005b10  2c 66 6e 24 2b 22 2e 22  2b 74 24 0d 31 74 0a fd  |,fn$+"."+t$.1t..|
00005b20  74 24 3d 22 22 0d 31 7e  1d f2 6d 69 73 63 5f 63  |t$="".1~..misc_c|
00005b30  6c 6f 73 65 28 73 63 72  69 70 74 5f 66 69 6c 65  |lose(script_file|
00005b40  25 29 0d 31 88 0e 71 25  21 34 30 3d 26 30 46 30  |%).1..q%!40=&0F0|
00005b50  0d 31 92 22 f2 77 69 6d  70 5f 6d 65 73 73 61 67  |.1.".wimp_messag|
00005b60  65 5f 6c 6f 61 64 28 73  63 72 69 70 74 5f 66 6e  |e_load(script_fn|
00005b70  24 29 0d 31 9c 0c c8 99  26 34 30 36 43 32 0d 31  |$).1....&406C2.1|
00005b80  b0 05 7f 0d 31 ba 1a e7  73 63 72 69 70 74 5f 61  |....1...script_a|
00005b90  64 64 69 6e 67 25 84 a6  28 2d 31 29 8c 0d 31 c4  |dding%..(-1)..1.|
00005ba0  14 e7 73 63 72 69 70 74  5f 61 64 64 69 6e 67 25  |..script_adding%|
00005bb0  8c 0d 31 ce 16 d5 23 73  63 72 69 70 74 5f 66 69  |..1...#script_fi|
00005bc0  6c 65 25 2c 66 6e 24 0d  31 d8 1c 73 63 72 69 70  |le%,fn$.1..scrip|
00005bd0  74 5f 6e 70 25 3d 32 3a  70 6f 6c 6c 66 61 73 74  |t_np%=2:pollfast|
00005be0  25 3d 31 0d 31 e2 05 cc  0d 31 ec 1d f2 6d 69 73  |%=1.1....1...mis|
00005bf0  63 5f 63 6c 6f 73 65 28  73 63 72 69 70 74 5f 66  |c_close(script_f|
00005c00  69 6c 65 25 29 0d 31 f6  29 73 63 72 69 70 74 5f  |ile%).1.)script_|
00005c10  66 6e 24 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |fn$="<Wimp$Scrap|
00005c20  44 69 72 3e 2e 57 50 53  63 72 69 70 74 22 0d 32  |Dir>.WPScript".2|
00005c30  00 1e 73 63 72 69 70 74  5f 66 69 6c 65 25 3d ae  |..script_file%=.|
00005c40  28 73 63 72 69 70 74 5f  66 6e 24 29 0d 32 0a 1c  |(script_fn$).2..|
00005c50  c8 99 26 38 2c 26 31 32  2c 73 63 72 69 70 74 5f  |..&8,&12,script_|
00005c60  66 6e 24 2c 26 30 46 30  0d 32 14 16 d5 23 73 63  |fn$,&0F0.2...#sc|
00005c70  72 69 70 74 5f 66 69 6c  65 25 2c 66 6e 24 0d 32  |ript_file%,fn$.2|
00005c80  1e 14 73 63 72 69 70 74  5f 61 64 64 69 6e 67 25  |..script_adding%|
00005c90  3d b9 0d 32 28 1c 73 63  72 69 70 74 5f 6e 70 25  |=..2(.script_np%|
00005ca0  3d 32 3a 70 6f 6c 6c 66  61 73 74 25 3d 31 0d 32  |=2:pollfast%=1.2|
00005cb0  32 05 cd 0d 32 3c 05 cc  0d 32 46 1d f2 6d 69 73  |2...2<...2F..mis|
00005cc0  63 5f 63 6c 6f 73 65 28  73 63 72 69 70 74 5f 66  |c_close(script_f|
00005cd0  69 6c 65 25 29 0d 32 50  13 f2 63 6f 64 65 5f 6c  |ile%).2P..code_l|
00005ce0  6f 61 64 28 66 6e 24 29  0d 32 5a 05 cd 0d 32 64  |oad(fn$).2Z...2d|
00005cf0  05 cb 0d 32 6e 05 e1 0d  32 96 12 dd a4 77 69 6d  |...2n...2....wim|
00005d00  70 5f 70 72 65 71 75 69  74 0d 32 a0 22 e7 63 6f  |p_prequit.2.".co|
00005d10  64 65 5f 6c 6f 61 64 65  64 25 80 20 63 6f 64 65  |de_loaded%. code|
00005d20  5f 73 74 61 74 75 73 25  3d 30 8c 0d 32 aa 17 57  |_status%=0..2..W|
00005d30  25 3d a4 77 61 72 6e 5f  6d 65 73 73 61 67 65 28  |%=.warn_message(|
00005d40  31 29 0d 32 b4 18 e7 57  25 3d 32 8c 71 75 69 74  |1).2...W%=2.quit|
00005d50  5f 66 69 6e 69 73 68 25  3d b9 0d 32 be 0b 3d 28  |_finish%=..2..=(|
00005d60  57 25 3d 33 29 0d 32 c8  05 cc 0d 32 d2 06 3d b9  |W%=3).2....2..=.|
00005d70  0d 32 dc 05 cd 0d 33 18  17 dd f2 63 6f 64 65 5f  |.2....3....code_|
00005d80  61 63 74 69 6f 6e 28 61  63 74 25 29 0d 33 22 0d  |action(act%).3".|
00005d90  ea 6f 73 25 2c 70 74 72  25 0d 33 2c 0d e7 61 63  |.os%,ptr%.3,..ac|
00005da0  74 25 3d 39 39 8c 0d 33  36 0a 61 63 74 25 3d 35  |t%=99..36.act%=5|
00005db0  0d 33 40 05 cc 0d 33 4a  19 e7 ac 63 6f 64 65 5f  |.3@...3J...code_|
00005dc0  6c 6f 61 64 65 64 25 8c  61 63 74 25 3d 35 0d 33  |loaded%.act%=5.3|
00005dd0  54 18 e7 63 6f 64 65 5f  73 74 61 74 75 73 25 3d  |T..code_status%=|
00005de0  61 63 74 25 8c e1 0d 33  5e 1d e7 63 6f 64 65 5f  |act%...3^..code_|
00005df0  73 74 61 74 75 73 25 3d  33 80 20 61 63 74 25 3d  |status%=3. act%=|
00005e00  34 8c e1 0d 33 68 05 cd  0d 33 7c 14 6f 73 25 3d  |4...3h...3|.os%=|
00005e10  63 6f 64 65 5f 73 74 61  74 75 73 25 0d 33 86 0d  |code_status%.3..|
00005e20  e7 61 63 74 25 3e 3d 30  8c 0d 33 90 2b f2 69 63  |.act%>=0..3.+.ic|
00005e30  6f 6e 5f 73 65 6c 65 63  74 28 77 69 6e 64 5f 63  |on_select(wind_c|
00005e40  6f 6e 74 25 2c 63 6f 64  65 5f 73 74 61 74 75 73  |ont%,code_status|
00005e50  25 2c 30 29 0d 33 9a 23  f2 69 63 6f 6e 5f 73 65  |%,0).3.#.icon_se|
00005e60  6c 65 63 74 28 77 69 6e  64 5f 63 6f 6e 74 25 2c  |lect(wind_cont%,|
00005e70  61 63 74 25 2c 31 29 0d  33 a4 15 63 6f 64 65 5f  |act%,1).3..code_|
00005e80  73 74 61 74 75 73 25 3d  61 63 74 25 0d 33 ae 05  |status%=act%.3..|
00005e90  cd 0d 33 c2 0b c8 8e 61  63 74 25 ca 0d 33 cc 06  |..3....act%..3..|
00005ea0  c9 30 0d 33 d6 28 e7 6f  73 25 3d 34 8c d6 63 6f  |.0.3.(.os%=4..co|
00005eb0  64 65 5f 75 6e 70 61 75  73 65 25 8b d6 63 6f 64  |de_unpause%..cod|
00005ec0  65 5f 72 65 73 74 61 72  74 25 0d 33 ea 06 c9 33  |e_restart%.3...3|
00005ed0  0d 33 f4 10 d6 63 6f 64  65 5f 70 61 75 73 65 25  |.3...code_pause%|
00005ee0  0d 33 fe 1d cf 23 63 6f  64 65 5f 66 69 6c 65 25  |.3...#code_file%|
00005ef0  3d 63 6f 64 65 5f 68 65  61 64 65 72 25 0d 34 08  |=code_header%.4.|
00005f00  16 63 6f 64 65 5f 63 6f  75 6e 74 65 72 70 6f 73  |.code_counterpos|
00005f10  25 3d 30 0d 34 12 10 73  6c 69 64 65 72 5f 70 78  |%=0.4..slider_px|
00005f20  25 3d 30 0d 34 1c 1f f2  69 63 6f 6e 5f 75 70 64  |%=0.4...icon_upd|
00005f30  61 74 65 28 77 69 6e 64  5f 63 6f 6e 74 25 2c 31  |ate(wind_cont%,1|
00005f40  32 29 0d 34 26 1f e7 73  63 72 69 70 74 5f 66 69  |2).4&..script_fi|
00005f50  6c 65 25 3e 30 80 20 70  61 75 73 65 64 25 3d 30  |le%>0. paused%=0|
00005f60  8c 0d 34 3a 14 e7 c5 23  73 63 72 69 70 74 5f 66  |..4:...#script_f|
00005f70  69 6c 65 25 8c 0d 34 44  1d f2 6d 69 73 63 5f 63  |ile%..4D..misc_c|
00005f80  6c 6f 73 65 28 73 63 72  69 70 74 5f 66 69 6c 65  |lose(script_file|
00005f90  25 29 0d 34 4e 29 c8 99  26 32 30 30 30 38 2c 36  |%).4N)..&20008,6|
00005fa0  2c 22 3c 57 69 6d 70 24  53 63 72 61 70 44 69 72  |,"<Wimp$ScrapDir|
00005fb0  3e 2e 57 50 53 63 72 69  70 74 22 0d 34 58 05 cc  |>.WPScript".4X..|
00005fc0  0d 34 62 1e f2 63 6f 64  65 5f 6c 6f 61 64 28 be  |.4b..code_load(.|
00005fd0  23 73 63 72 69 70 74 5f  66 69 6c 65 25 29 0d 34  |#script_file%).4|
00005fe0  6c 05 cd 0d 34 76 05 cd  0d 34 8a 13 c9 34 3a d6  |l...4v...4...4:.|
00005ff0  63 6f 64 65 5f 70 61 75  73 65 25 0d 34 9e 06 c9  |code_pause%.4...|
00006000  35 0d 34 a8 10 d6 63 6f  64 65 5f 63 6c 6f 73 65  |5.4...code_close|
00006010  25 0d 34 b2 28 f2 6d 69  73 63 5f 63 6c 6f 73 65  |%.4.(.misc_close|
00006020  28 63 6f 64 65 5f 66 69  6c 65 25 29 3a 63 6f 64  |(code_file%):cod|
00006030  65 5f 66 69 6c 65 25 3d  30 0d 34 bc 12 63 6f 64  |e_file%=0.4..cod|
00006040  65 5f 6c 6f 61 64 65 64  25 3d a3 0d 34 c6 19 e7  |e_loaded%=..4...|
00006050  73 63 72 69 70 74 5f 66  69 6c 65 25 3d 30 84 52  |script_file%=0.R|
00006060  25 3d 36 8c 0d 34 d0 1b  f2 77 69 6e 64 5f 63 6c  |%=6..4...wind_cl|
00006070  6f 73 65 28 77 69 6e 64  5f 63 6f 6e 74 25 29 0d  |ose(wind_cont%).|
00006080  34 da 1b f2 77 69 6e 64  5f 63 6c 6f 73 65 28 77  |4...wind_close(w|
00006090  69 6e 64 5f 66 6f 72 6d  25 29 0d 34 e4 1b f2 77  |ind_form%).4...w|
000060a0  69 6e 64 5f 63 6c 6f 73  65 28 77 69 6e 64 5f 62  |ind_close(wind_b|
000060b0  75 66 66 25 29 0d 34 ee  05 cd 0d 35 02 07 c9 2d  |uff%).4....5...-|
000060c0  31 0d 35 0c 22 70 74 72  25 3d 34 2a 28 73 6c 69  |1.5."ptr%=4*(sli|
000060d0  64 65 72 5f 73 2a 73 6c  69 64 65 72 5f 70 78 25  |der_s*slider_px%|
000060e0  81 34 29 0d 35 16 26 e7  28 63 6f 64 65 5f 68 65  |.4).5.&.(code_he|
000060f0  61 64 65 72 25 2b 70 74  72 25 29 3e a2 23 63 6f  |ader%+ptr%)>.#co|
00006100  64 65 5f 66 69 6c 65 25  8c 0d 35 20 24 70 74 72  |de_file%..5 $ptr|
00006110  25 3d a2 23 63 6f 64 65  5f 66 69 6c 65 25 2d 63  |%=.#code_file%-c|
00006120  6f 64 65 5f 68 65 61 64  65 72 25 2d 34 0d 35 2a  |ode_header%-4.5*|
00006130  05 cd 0d 35 34 28 e7 70  74 72 25 3c 63 6f 64 65  |...54(.ptr%<code|
00006140  5f 68 65 61 64 65 72 25  8c 70 74 72 25 3d 63 6f  |_header%.ptr%=co|
00006150  64 65 5f 68 65 61 64 65  72 25 0d 35 3e 22 cf 23  |de_header%.5>".#|
00006160  63 6f 64 65 5f 66 69 6c  65 25 3d 63 6f 64 65 5f  |code_file%=code_|
00006170  68 65 61 64 65 72 25 2b  70 74 72 25 0d 35 48 19  |header%+ptr%.5H.|
00006180  63 6f 64 65 5f 63 6f 75  6e 74 65 72 70 6f 73 25  |code_counterpos%|
00006190  3d 70 74 72 25 0d 35 52  19 e7 6f 73 25 3d 30 8c  |=ptr%.5R..os%=0.|
000061a0  d6 63 6f 64 65 5f 72 65  73 74 61 72 74 25 0d 35  |.code_restart%.5|
000061b0  5c 05 cb 0d 35 66 05 e1  0d 35 8e 14 dd f2 63 6f  |\...5f...5....co|
000061c0  64 65 5f 6c 6f 61 64 28  66 6e 24 29 0d 35 98 2a  |de_load(fn$).5.*|
000061d0  ea 74 79 70 65 25 2c 70  6c 61 79 25 2c 75 6e 6b  |.type%,play%,unk|
000061e0  25 2c 40 25 2c 74 24 2c  6f 62 6a 25 2c 49 25 2c  |%,@%,t$,obj%,I%,|
000061f0  70 61 75 73 65 25 0d 35  ac 0c c8 99 26 34 30 36  |pause%.5....&406|
00006200  43 30 0d 35 b6 14 73 63  72 69 70 74 5f 61 64 64  |C0.5..script_add|
00006210  69 6e 67 25 3d a3 0d 35  c0 13 f2 63 6f 64 65 5f  |ing%=..5...code_|
00006220  61 63 74 69 6f 6e 28 35  29 0d 35 d4 40 e7 c0 66  |action(5).5.@..f|
00006230  6e 24 2c 31 29 3d 22 2e  22 80 20 73 63 72 69 70  |n$,1)=".". scrip|
00006240  74 5f 66 69 6c 65 25 3c  3e 30 8c 66 6e 24 3d a4  |t_file%<>0.fn$=.|
00006250  6d 69 73 63 5f 70 61 74  68 28 73 63 72 69 70 74  |misc_path(script|
00006260  5f 66 6e 24 29 2b 66 6e  24 0d 35 e8 1b 49 25 3d  |_fn$)+fn$.5..I%=|
00006270  a7 66 6e 24 2c 22 2d 62  75 66 66 65 72 73 69 7a  |.fn$,"-buffersiz|
00006280  65 3d 22 29 0d 35 f2 0a  e7 49 25 3e 30 8c 0d 35  |e=").5...I%>0..5|
00006290  fc 12 74 24 3d c1 66 6e  24 2c 49 25 2b 31 32 29  |..t$=.fn$,I%+12)|
000062a0  0d 36 06 10 49 25 3d a7  74 24 2c 22 20 2d 22 29  |.6..I%=.t$," -")|
000062b0  0d 36 10 14 e7 49 25 3e  30 8c 74 24 3d c0 74 24  |.6...I%>0.t$=.t$|
000062c0  2c 49 25 29 0d 36 1a 20  63 6f 64 65 5f 62 75 66  |,I%).6. code_buf|
000062d0  66 73 69 7a 65 25 3d 31  30 32 34 2a a8 28 a0 28  |fsize%=1024*.(.(|
000062e0  74 24 29 29 0d 36 24 24  41 25 3d 63 6f 64 65 5f  |t$)).6$$A%=code_|
000062f0  62 75 66 66 73 69 7a 65  25 3a d6 63 6f 64 65 5f  |buffsize%:.code_|
00006300  73 65 74 62 75 66 66 25  0d 36 2e 10 d6 63 6f 64  |setbuff%.6...cod|
00006310  65 5f 66 69 6e 61 6c 25  0d 36 38 0f d6 63 6f 64  |e_final%.68..cod|
00006320  65 5f 69 6e 69 74 25 0d  36 42 05 cd 0d 36 56 15  |e_init%.6B...6V.|
00006330  49 25 3d a7 66 6e 24 2c  22 2d 70 61 75 73 65 22  |I%=.fn$,"-pause"|
00006340  29 0d 36 60 1f e7 49 25  3e 30 8c 70 61 75 73 65  |).6`..I%>0.pause|
00006350  25 3d b9 8b 70 61 75 73  65 25 3d a6 28 2d 33 29  |%=..pause%=.(-3)|
00006360  0d 36 74 17 49 25 3d a7  66 6e 24 2c 22 2d 76 6f  |.6t.I%=.fn$,"-vo|
00006370  6c 75 6d 65 3d 22 29 0d  36 7e 0a e7 49 25 3e 30  |lume=").6~..I%>0|
00006380  8c 0d 36 88 11 74 24 3d  c1 66 6e 24 2c 49 25 2b  |..6..t$=.fn$,I%+|
00006390  38 29 0d 36 92 10 49 25  3d a7 74 24 2c 22 20 2d  |8).6..I%=.t$," -|
000063a0  22 29 0d 36 9c 14 e7 49  25 3e 30 8c 74 24 3d c0  |").6...I%>0.t$=.|
000063b0  74 24 2c 49 25 29 0d 36  a6 16 76 6f 6c 5f 70 6f  |t$,I%).6..vol_po|
000063c0  73 3d a0 28 74 24 29 2a  32 2e 35 36 0d 36 b0 0f  |s=.(t$)*2.56.6..|
000063d0  f2 76 6f 6c 75 6d 65 5f  73 65 74 0d 36 ba 05 cd  |.volume_set.6...|
000063e0  0d 36 ce 1a c8 99 26 38  2c 35 2c 66 6e 24 b8 6f  |.6....&8,5,fn$.o|
000063f0  62 6a 25 2c 2c 74 79 70  65 25 0d 36 d8 17 e7 6f  |bj%,,type%.6...o|
00006400  62 6a 25 3c 3e 31 8c c8  99 26 34 30 36 43 32 3a  |bj%<>1...&406C2:|
00006410  e1 0d 36 ec 12 74 79 70  65 25 3d 74 79 70 65 25  |..6..type%=type%|
00006420  3e 3e 38 0d 36 f6 1d e7  28 74 79 70 65 25 80 26  |>>8.6...(type%.&|
00006430  46 46 46 30 30 30 29 3d  26 46 46 46 30 30 30 8c  |FFF000)=&FFF000.|
00006440  0d 37 00 14 74 79 70 65  25 3d 74 79 70 65 25 80  |.7..type%=type%.|
00006450  26 46 46 46 0d 37 0a 05  cc 0d 37 14 0b 74 79 70  |&FFF.7....7..typ|
00006460  65 25 3d 30 0d 37 1e 05  cd 0d 37 32 15 63 6f 64  |e%=0.7....72.cod|
00006470  65 5f 66 69 6c 65 25 3d  8e 28 66 6e 24 29 0d 37  |e_file%=.(fn$).7|
00006480  3c 1c e7 63 6f 64 65 5f  66 69 6c 65 25 3d 30 8c  |<..code_file%=0.|
00006490  c8 99 26 34 30 36 43 32  3a e1 0d 37 50 12 75 6e  |..&406C2:..7P.un|
000064a0  6b 25 3d a3 3a 70 6c 61  79 25 3d b9 0d 37 5a 06  |k%=.:play%=..7Z.|
000064b0  ea 85 0d 37 64 10 ee 85  ea f7 85 3a 75 6e 6b 25  |...7d......:unk%|
000064c0  3d b9 0d 37 6e 0b e7 ac  75 6e 6b 25 8c 0d 37 78  |=..7n...unk%..7x|
000064d0  1e 63 6f 64 65 5f 6e 61  6d 65 24 3d a4 6d 69 73  |.code_name$=.mis|
000064e0  63 5f 6c 65 61 66 28 66  6e 24 29 0d 37 82 35 63  |c_leaf(fn$).7.5c|
000064f0  6f 64 65 5f 6c 6f 61 64  65 64 25 3d a0 28 22 46  |ode_loaded%=.("F|
00006500  4e 63 6f 64 65 5f 74 79  70 65 5f 22 2b c2 22 30  |Ncode_type_"+."0|
00006510  30 22 2b c3 7e 28 74 79  70 65 25 29 2c 33 29 29  |0"+.~(type%),3))|
00006520  0d 37 8c 16 e7 63 6f 64  65 5f 6c 6f 61 64 65 64  |.7...code_loaded|
00006530  25 3d a3 8c 3b 3b 0d 37  96 06 f7 85 0d 37 a0 19  |%=..;;.7.....7..|
00006540  70 6c 61 79 25 3d 28 ac  a6 28 2d 32 29 29 80 20  |play%=(..(-2)). |
00006550  70 6c 61 79 25 0d 37 aa  05 cc 0d 37 b4 0b 70 6c  |play%.7....7..pl|
00006560  61 79 25 3d a3 0d 37 be  18 63 6f 64 65 5f 74 79  |ay%=..7..code_ty|
00006570  70 65 24 3d 22 75 6e 6b  6e 6f 77 6e 22 0d 37 c8  |pe$="unknown".7.|
00006580  13 42 25 3d a2 23 63 6f  64 65 5f 66 69 6c 65 25  |.B%=.#code_file%|
00006590  0d 37 d2 0c 43 25 3d 25  30 30 30 30 0d 37 dc 16  |.7..C%=%0000.7..|
000065a0  44 25 3d 34 38 2a 76 69  64 63 2f 31 30 30 30 30  |D%=48*vidc/10000|
000065b0  30 30 0d 37 e6 12 63 6f  64 65 5f 68 65 61 64 65  |00.7..code_heade|
000065c0  72 25 3d 30 0d 37 f0 05  cd 0d 38 04 0b e7 70 6c  |r%=0.7....8...pl|
000065d0  61 79 25 8c 0d 38 0e 1b  f2 63 6f 64 65 5f 62 65  |ay%..8...code_be|
000065e0  67 69 6e 70 6c 61 79 28  70 61 75 73 65 25 29 0d  |ginplay(pause%).|
000065f0  38 18 05 cc 0d 38 22 12  f2 63 6f 64 65 5f 66 69  |8....8"..code_fi|
00006600  6c 6c 69 6e 66 6f 0d 38  36 1b f2 77 69 6e 64 5f  |llinfo.86..wind_|
00006610  63 6c 6f 73 65 28 77 69  6e 64 5f 63 6f 6e 74 25  |close(wind_cont%|
00006620  29 0d 38 40 20 f2 77 69  6e 64 5f 6f 70 65 6e 63  |).8@ .wind_openc|
00006630  65 6e 74 72 65 28 77 69  6e 64 5f 66 6f 72 6d 25  |entre(wind_form%|
00006640  29 0d 38 4a 12 63 6f 64  65 5f 6c 6f 61 64 65 64  |).8J.code_loaded|
00006650  25 3d a3 0d 38 54 10 73  6c 69 64 65 72 5f 70 78  |%=..8T.slider_px|
00006660  25 3d 30 0d 38 5e 05 cd  0d 38 68 0c c8 99 26 34  |%=0.8^...8h...&4|
00006670  30 36 43 31 0d 38 72 05  e1 0d 38 9a 13 dd f2 63  |06C1.8r...8....c|
00006680  6f 64 65 5f 66 69 6c 6c  69 6e 66 6f 0d 38 a4 07  |ode_fillinfo.8..|
00006690  ea 40 25 0d 38 ae 27 f2  69 63 6f 6e 5f 74 65 78  |.@%.8.'.icon_tex|
000066a0  74 28 77 69 6e 64 5f 66  6f 72 6d 25 2c 32 2c 63  |t(wind_form%,2,c|
000066b0  6f 64 65 5f 74 79 70 65  24 29 0d 38 b8 26 e7 43  |ode_type$).8.&.C|
000066c0  25 80 25 31 30 30 30 8c  74 24 3d 22 31 36 20 62  |%.%1000.t$="16 b|
000066d0  69 74 73 22 8b 74 24 3d  22 38 20 62 69 74 73 22  |its".t$="8 bits"|
000066e0  0d 38 c2 1f f2 69 63 6f  6e 5f 74 65 78 74 28 77  |.8...icon_text(w|
000066f0  69 6e 64 5f 66 6f 72 6d  25 2c 35 2c 74 24 29 0d  |ind_form%,5,t$).|
00006700  38 cc 0f 40 25 3d 22 2b  67 31 30 2e 39 22 0d 38  |8..@%="+g10.9".8|
00006710  d6 2d f2 69 63 6f 6e 5f  74 65 78 74 28 77 69 6e  |.-.icon_text(win|
00006720  64 5f 66 6f 72 6d 25 2c  37 2c c3 28 76 69 64 63  |d_form%,7,.(vidc|
00006730  81 44 25 29 2b 22 20 48  7a 22 29 0d 38 e0 2f f2  |.D%)+" Hz").8./.|
00006740  69 63 6f 6e 5f 73 65 6c  65 63 74 28 77 69 6e 64  |icon_select(wind|
00006750  5f 66 6f 72 6d 25 2c 31  30 2c 28 28 43 25 3e 3e  |_form%,10,((C%>>|
00006760  32 29 80 20 31 29 82 20  31 29 0d 38 ea 2c f2 69  |2). 1). 1).8.,.i|
00006770  63 6f 6e 5f 73 65 6c 65  63 74 28 77 69 6e 64 5f  |con_select(wind_|
00006780  66 6f 72 6d 25 2c 31 31  2c 28 28 43 25 3e 3e 32  |form%,11,((C%>>2|
00006790  29 80 20 31 29 29 0d 38  f4 2f f2 69 63 6f 6e 5f  |). 1)).8./.icon_|
000067a0  73 65 6c 65 63 74 28 77  69 6e 64 5f 66 6f 72 6d  |select(wind_form|
000067b0  25 2c 31 32 2c 28 28 43  25 3e 3e 31 29 80 20 31  |%,12,((C%>>1). 1|
000067c0  29 82 20 31 29 0d 38 fe  2c f2 69 63 6f 6e 5f 73  |). 1).8.,.icon_s|
000067d0  65 6c 65 63 74 28 77 69  6e 64 5f 66 6f 72 6d 25  |elect(wind_form%|
000067e0  2c 31 33 2c 28 28 43 25  3e 3e 31 29 80 20 31 29  |,13,((C%>>1). 1)|
000067f0  29 0d 39 08 2a f2 69 63  6f 6e 5f 73 65 6c 65 63  |).9.*.icon_selec|
00006800  74 28 77 69 6e 64 5f 66  6f 72 6d 25 2c 31 34 2c  |t(wind_form%,14,|
00006810  28 43 25 80 20 31 29 82  20 31 29 0d 39 12 27 f2  |(C%. 1). 1).9.'.|
00006820  69 63 6f 6e 5f 73 65 6c  65 63 74 28 77 69 6e 64  |icon_select(wind|
00006830  5f 66 6f 72 6d 25 2c 31  35 2c 28 43 25 80 20 31  |_form%,15,(C%. 1|
00006840  29 29 0d 39 26 27 f2 69  63 6f 6e 5f 74 65 78 74  |)).9&'.icon_text|
00006850  28 77 69 6e 64 5f 62 75  66 66 25 2c 32 2c 63 6f  |(wind_buff%,2,co|
00006860  64 65 5f 74 79 70 65 24  29 0d 39 30 0f 40 25 3d  |de_type$).90.@%=|
00006870  22 2b 66 31 30 2e 33 22  0d 39 3a 39 f2 69 63 6f  |"+f10.3".9:9.ico|
00006880  6e 5f 74 65 78 74 28 77  69 6e 64 5f 62 75 66 66  |n_text(wind_buff|
00006890  25 2c 35 2c c3 28 63 6f  64 65 5f 62 75 66 66 73  |%,5,.(code_buffs|
000068a0  69 7a 65 25 2f 31 30 32  34 29 2b 22 20 4b 62 22  |ize%/1024)+" Kb"|
000068b0  29 0d 39 44 05 e1 0d 39  6c 13 dd a4 63 6f 64 65  |).9D...9l...code|
000068c0  5f 74 79 70 65 5f 46 42  31 0d 39 76 1e ea 63 68  |_type_FB1.9v..ch|
000068d0  61 6e 6e 65 6c 73 25 2c  62 69 74 73 25 2c 66 72  |annels%,bits%,fr|
000068e0  65 71 25 2c 6e 74 25 0d  39 8a 21 c8 99 26 43 2c  |eq%,nt%.9.!..&C,|
000068f0  33 2c 63 6f 64 65 5f 66  69 6c 65 25 2c 74 65 6d  |3,code_file%,tem|
00006900  70 31 25 2c 36 34 2c 30  0d 39 94 2f e7 74 65 6d  |p1%,64,0.9./.tem|
00006910  70 31 25 21 30 3c 3e 26  34 36 34 36 34 39 35 32  |p1%!0<>&46464952|
00006920  84 74 65 6d 70 31 25 21  38 3c 3e 26 34 35 35 36  |.temp1%!8<>&4556|
00006930  34 31 35 37 8c 3d a3 0d  39 9e 1d 63 68 61 6e 6e  |4157.=..9..chann|
00006940  65 6c 73 25 3d 28 74 65  6d 70 31 25 21 32 30 29  |els%=(temp1%!20)|
00006950  3e 3e 31 36 0d 39 a8 13  66 72 65 71 25 3d 74 65  |>>16.9..freq%=te|
00006960  6d 70 31 25 21 32 34 0d  39 b2 19 62 69 74 73 25  |mp1%!24.9..bits%|
00006970  3d 28 74 65 6d 70 31 25  21 33 32 29 3e 3e 31 36  |=(temp1%!32)>>16|
00006980  0d 39 c6 22 e7 63 68 61  6e 6e 65 6c 73 25 3d 32  |.9.".channels%=2|
00006990  8c 43 25 3d 25 30 30 30  31 8b 43 25 3d 25 30 30  |.C%=%0001.C%=%00|
000069a0  30 30 0d 39 d0 24 e7 62  69 74 73 25 3d 38 8c 43  |00.9.$.bits%=8.C|
000069b0  25 3d 43 25 84 25 30 30  31 30 8b 43 25 3d 43 25  |%=C%.%0010.C%=C%|
000069c0  84 25 31 30 30 30 0d 39  da 11 44 25 3d 76 69 64  |.%1000.9..D%=vid|
000069d0  63 2f 66 72 65 71 25 0d  39 ee 15 cf 23 63 6f 64  |c/freq%.9...#cod|
000069e0  65 5f 66 69 6c 65 25 3d  31 36 2b 33 0d 39 f8 0f  |e_file%=16+3.9..|
000069f0  74 65 6d 70 31 25 3f 34  3d 31 33 0d 3a 02 05 f5  |temp1%?4=13.:...|
00006a00  0d 3a 0c 1f cf 23 63 6f  64 65 5f 66 69 6c 65 25  |.:...#code_file%|
00006a10  3d 8f 23 63 6f 64 65 5f  66 69 6c 65 25 2d 33 0d  |=.#code_file%-3.|
00006a20  3a 16 1e c8 99 26 43 2c  34 2c 63 6f 64 65 5f 66  |:....&C,4,code_f|
00006a30  69 6c 65 25 2c 74 65 6d  70 31 25 2c 34 0d 3a 20  |ile%,temp1%,4.: |
00006a40  13 fd 24 74 65 6d 70 31  25 3d 22 64 61 74 61 22  |..$temp1%="data"|
00006a50  0d 3a 2a 1e c8 99 26 43  2c 34 2c 63 6f 64 65 5f  |.:*...&C,4,code_|
00006a60  66 69 6c 65 25 2c 74 65  6d 70 31 25 2c 34 0d 3a  |file%,temp1%,4.:|
00006a70  34 1d 63 6f 64 65 5f 68  65 61 64 65 72 25 3d 8f  |4.code_header%=.|
00006a80  23 63 6f 64 65 5f 66 69  6c 65 25 0d 3a 3e 1b 42  |#code_file%.:>.B|
00006a90  25 3d 21 74 65 6d 70 31  25 2b 8f 23 63 6f 64 65  |%=!temp1%+.#code|
00006aa0  5f 66 69 6c 65 25 0d 3a  48 17 63 6f 64 65 5f 74  |_file%.:H.code_t|
00006ab0  6f 74 61 6c 3d 42 25 2f  66 72 65 71 25 0d 3a 52  |otal=B%/freq%.:R|
00006ac0  17 63 6f 64 65 5f 74 79  70 65 24 3d 22 4d 53 20  |.code_type$="MS |
00006ad0  57 41 56 22 0d 3a 66 13  cf 23 63 6f 64 65 5f 66  |WAV".:f..#code_f|
00006ae0  69 6c 65 25 3d 42 25 0d  3a 70 0f 74 65 6d 70 31  |ile%=B%.:p.temp1|
00006af0  25 3f 34 3d 31 33 0d 3a  7a 05 f5 0d 3a 84 1f cf  |%?4=13.:z...:...|
00006b00  23 63 6f 64 65 5f 66 69  6c 65 25 3d 8f 23 63 6f  |#code_file%=.#co|
00006b10  64 65 5f 66 69 6c 65 25  2d 33 0d 3a 8e 25 c8 99  |de_file%-3.:.%..|
00006b20  26 43 2c 34 2c 63 6f 64  65 5f 66 69 6c 65 25 2c  |&C,4,code_file%,|
00006b30  74 65 6d 70 31 25 2c 34  b8 2c 2c 2c 6e 74 25 0d  |temp1%,4.,,,nt%.|
00006b40  3a 98 14 e7 24 74 65 6d  70 31 25 3d 22 44 49 53  |:...$temp1%="DIS|
00006b50  50 22 8c 0d 3a a2 1e c8  99 26 43 2c 34 2c 63 6f  |P"..:....&C,4,co|
00006b60  64 65 5f 66 69 6c 65 25  2c 74 65 6d 70 31 25 2c  |de_file%,temp1%,|
00006b70  34 0d 3a ac 25 cf 23 63  6f 64 65 5f 66 69 6c 65  |4.:.%.#code_file|
00006b80  25 3d 8f 23 63 6f 64 65  5f 66 69 6c 65 25 2b 21  |%=.#code_file%+!|
00006b90  74 65 6d 70 31 25 0d 3a  b6 05 cd 0d 3a c0 19 fd  |temp1%.:....:...|
00006ba0  24 74 65 6d 70 31 25 3d  22 49 53 42 4a 22 84 6e  |$temp1%="ISBJ".n|
00006bb0  74 25 3e 30 0d 3a ca 14  e7 24 74 65 6d 70 31 25  |t%>0.:...$temp1%|
00006bc0  3d 22 49 53 42 4a 22 8c  0d 3a d4 1e c8 99 26 43  |="ISBJ"..:....&C|
00006bd0  2c 34 2c 63 6f 64 65 5f  66 69 6c 65 25 2c 74 65  |,4,code_file%,te|
00006be0  6d 70 31 25 2c 34 0d 3a  de 26 c8 99 26 43 2c 34  |mp1%,4.:.&..&C,4|
00006bf0  2c 63 6f 64 65 5f 66 69  6c 65 25 2c 74 65 6d 70  |,code_file%,temp|
00006c00  31 25 2b 34 2c 21 74 65  6d 70 31 25 0d 3a e8 1a  |1%+4,!temp1%.:..|
00006c10  3f 28 74 65 6d 70 31 25  2b 34 2b 21 74 65 6d 70  |?(temp1%+4+!temp|
00006c20  31 25 29 3d 31 33 0d 3a  f2 1a 63 6f 64 65 5f 6e  |1%)=13.:..code_n|
00006c30  61 6d 65 24 3d 24 28 74  65 6d 70 31 25 2b 34 29  |ame$=$(temp1%+4)|
00006c40  0d 3a fc 05 cd 0d 3b 10  1d cf 23 63 6f 64 65 5f  |.:....;...#code_|
00006c50  66 69 6c 65 25 3d 63 6f  64 65 5f 68 65 61 64 65  |file%=code_heade|
00006c60  72 25 0d 3b 1a 06 3d b9  0d 3b 42 13 dd a4 63 6f  |r%.;..=..;B...co|
00006c70  64 65 5f 74 79 70 65 5f  44 33 43 0d 3b 43 12 cf  |de_type_D3C.;C..|
00006c80  23 63 6f 64 65 5f 66 69  6c 65 25 3d 30 0d 3b 4c  |#code_file%=0.;L|
00006c90  13 42 25 3d a2 23 63 6f  64 65 5f 66 69 6c 65 25  |.B%=.#code_file%|
00006ca0  0d 3b 56 0c 43 25 3d 25  30 30 30 30 0d 3b 60 22  |.;V.C%=%0000.;`"|
00006cb0  44 25 3d 28 76 69 64 63  2a 9a 23 63 6f 64 65 5f  |D%=(vidc*.#code_|
00006cc0  66 69 6c 65 25 29 2f 31  30 30 30 30 30 30 0d 3b  |file%)/1000000.;|
00006cd0  6a 12 63 6f 64 65 5f 68  65 61 64 65 72 25 3d 31  |j.code_header%=1|
00006ce0  0d 3b 74 19 63 6f 64 65  5f 74 79 70 65 24 3d 22  |.;t.code_type$="|
00006cf0  41 72 6d 61 64 65 75 73  22 0d 3b 7e 19 63 6f 64  |Armadeus".;~.cod|
00006d00  65 5f 74 6f 74 61 6c 3d  42 25 2a 44 25 2f 76 69  |e_total=B%*D%/vi|
00006d10  64 63 0d 3b 88 06 3d b9  0d 3b b0 13 dd a4 63 6f  |dc.;..=..;....co|
00006d20  64 65 5f 74 79 70 65 5f  33 38 44 0d 3b ba 20 c8  |de_type_38D.;. .|
00006d30  99 26 43 2c 33 2c 63 6f  64 65 5f 66 69 6c 65 25  |.&C,3,code_file%|
00006d40  2c 74 65 6d 70 31 25 2c  34 2c 30 0d 3b c4 1b e7  |,temp1%,4,0.;...|
00006d50  74 65 6d 70 31 25 21 30  3c 3e 26 35 33 35 30 35  |temp1%!0<>&53505|
00006d60  35 35 33 8c 3d a3 0d 3b  ce 12 cf 23 63 6f 64 65  |553.=..;...#code|
00006d70  5f 66 69 6c 65 25 3d 34  0d 3b d8 0c 43 25 3d 25  |_file%=4.;..C%=%|
00006d80  30 30 30 30 0d 3b e2 1f  e7 9a 23 63 6f 64 65 5f  |0000.;....#code_|
00006d90  66 69 6c 65 25 3d 30 8c  43 25 3d 43 25 84 25 30  |file%=0.C%=C%.%0|
00006da0  31 30 30 0d 3b ec 21 e7  9a 23 63 6f 64 65 5f 66  |100.;.!..#code_f|
00006db0  69 6c 65 25 3d 26 38 30  8c 43 25 3d 43 25 84 25  |ile%=&80.C%=C%.%|
00006dc0  30 30 31 30 0d 3b f6 1f  e7 9a 23 63 6f 64 65 5f  |0010.;....#code_|
00006dd0  66 69 6c 65 25 3d 31 8c  43 25 3d 43 25 84 25 30  |file%=1.C%=C%.%0|
00006de0  30 30 31 0d 3c 00 22 44  25 3d 28 76 69 64 63 2a  |001.<."D%=(vidc*|
00006df0  9a 23 63 6f 64 65 5f 66  69 6c 65 25 29 2f 31 30  |.#code_file%)/10|
00006e00  30 30 30 30 30 0d 3c 0a  21 c8 99 26 43 2c 33 2c  |00000.<.!..&C,3,|
00006e10  63 6f 64 65 5f 66 69 6c  65 25 2c 74 65 6d 70 31  |code_file%,temp1|
00006e20  25 2c 35 36 2c 38 0d 3c  14 20 63 6f 64 65 5f 6e  |%,56,8.<. code_n|
00006e30  61 6d 65 24 3d a4 6d 69  73 63 5f 73 74 72 28 74  |ame$=.misc_str(t|
00006e40  65 6d 70 31 25 29 0d 3c  1e 1b 63 6f 64 65 5f 74  |emp1%).<..code_t|
00006e50  79 70 65 24 3d 22 53 75  70 65 72 53 6f 6e 69 63  |ype$="SuperSonic|
00006e60  22 0d 3c 28 16 42 25 3d  a2 23 63 6f 64 65 5f 66  |".<(.B%=.#code_f|
00006e70  69 6c 65 25 2d 36 34 0d  3c 32 13 63 6f 64 65 5f  |ile%-64.<2.code_|
00006e80  68 65 61 64 65 72 25 3d  36 34 0d 3c 3c 06 3d b9  |header%=64.<<.=.|
00006e90  0d 3c 64 13 dd a4 63 6f  64 65 5f 74 79 70 65 5f  |.<d...code_type_|
00006ea0  43 42 35 0d 3c 6e 07 ea  74 24 0d 3c 78 20 c8 99  |CB5.<n..t$.<x ..|
00006eb0  26 43 2c 33 2c 63 6f 64  65 5f 66 69 6c 65 25 2c  |&C,3,code_file%,|
00006ec0  74 65 6d 70 31 25 2c 34  2c 30 0d 3c 82 0f 74 65  |temp1%,4,0.<..te|
00006ed0  6d 70 31 25 3f 34 3d 31  33 0d 3c 8c 14 e7 24 74  |mp1%?4=13.<...$t|
00006ee0  65 6d 70 31 25 3d 22 53  41 4d 50 22 8c 0d 3c 96  |emp1%="SAMP"..<.|
00006ef0  23 c8 99 26 43 2c 33 2c  63 6f 64 65 5f 66 69 6c  |#..&C,3,code_fil|
00006f00  65 25 2c 74 65 6d 70 31  25 2c 31 36 2c 26 31 30  |e%,temp1%,16,&10|
00006f10  0d 3c aa 22 c8 99 26 43  2c 33 2c 63 6f 64 65 5f  |.<."..&C,3,code_|
00006f20  66 69 6c 65 25 2c 74 65  6d 70 31 25 2c 34 2c 26  |file%,temp1%,4,&|
00006f30  33 38 0d 3c b4 12 42 25  3d 21 74 65 6d 70 31 25  |38.<..B%=!temp1%|
00006f40  2b 26 36 30 0d 3c be 14  63 6f 64 65 5f 68 65 61  |+&60.<..code_hea|
00006f50  64 65 72 25 3d 26 36 30  0d 3c c8 14 cf 23 63 6f  |der%=&60.<...#co|
00006f60  64 65 5f 66 69 6c 65 25  3d 26 36 30 0d 3c d2 0c  |de_file%=&60.<..|
00006f70  43 25 3d 25 30 31 30 30  0d 3c dc 0a 44 25 3d 31  |C%=%0100.<..D%=1|
00006f80  30 30 0d 3c e6 18 44 25  3d 28 76 69 64 63 2a 35  |00.<..D%=(vidc*5|
00006f90  30 29 2f 31 30 30 30 30  30 30 0d 3c f0 18 63 6f  |0)/1000000.<..co|
00006fa0  64 65 5f 74 79 70 65 24  3d 22 54 72 61 63 6b 65  |de_type$="Tracke|
00006fb0  72 22 0d 3c fa 06 3d b9  0d 3d 04 05 cd 0d 3d 0e  |r".<..=..=....=.|
00006fc0  32 e7 24 74 65 6d 70 31  25 3d 22 44 73 6b 53 22  |2.$temp1%="DskS"|
00006fd0  84 24 74 65 6d 70 31 25  3d 22 44 53 4d 50 22 84  |.$temp1%="DSMP".|
00006fe0  24 74 65 6d 70 31 25 3d  22 44 53 6d 70 22 8c 0d  |$temp1%="DSmp"..|
00006ff0  3d 18 21 c8 99 26 43 2c  33 2c 63 6f 64 65 5f 66  |=.!..&C,3,code_f|
00007000  69 6c 65 25 2c 74 65 6d  70 31 25 2c 36 34 2c 30  |ile%,temp1%,64,0|
00007010  0d 3d 22 1c 74 24 3d a4  6d 69 73 63 5f 73 74 72  |.=".t$=.misc_str|
00007020  28 74 65 6d 70 31 25 2b  26 32 30 29 0d 3d 2c 24  |(temp1%+&20).=,$|
00007030  e7 74 24 3c 3e 22 3c 55  6e 64 65 66 69 6e 65 64  |.t$<>"<Undefined|
00007040  3e 22 8c 63 6f 64 65 5f  6e 61 6d 65 24 3d 74 24  |>".code_name$=t$|
00007050  0d 3d 36 15 42 25 3d 74  65 6d 70 31 25 21 26 31  |.=6.B%=temp1%!&1|
00007060  43 2b 26 34 30 0d 3d 40  14 63 6f 64 65 5f 68 65  |C+&40.=@.code_he|
00007070  61 64 65 72 25 3d 26 34  30 0d 3d 4a 14 cf 23 63  |ader%=&40.=J..#c|
00007080  6f 64 65 5f 66 69 6c 65  25 3d 26 34 30 0d 3d 54  |ode_file%=&40.=T|
00007090  0c 43 25 3d 25 30 31 30  30 0d 3d 5e 25 44 25 3d  |.C%=%0100.=^%D%=|
000070a0  28 74 65 6d 70 31 25 21  26 38 2f 26 34 30 30 30  |(temp1%!&8/&4000|
000070b0  29 2a 76 69 64 63 2f 31  30 30 30 30 30 30 0d 3d  |)*vidc/1000000.=|
000070c0  68 20 63 6f 64 65 5f 74  79 70 65 24 3d 22 44 65  |h code_type$="De|
000070d0  73 6b 74 6f 70 20 54 72  61 63 6b 65 72 22 0d 3d  |sktop Tracker".=|
000070e0  72 06 3d b9 0d 3d 7c 05  cd 0d 3d 86 06 3d a3 0d  |r.=..=|...=..=..|
000070f0  3d ae 13 dd a4 63 6f 64  65 5f 74 79 70 65 5f 45  |=....code_type_E|
00007100  44 30 0d 3d b8 12 63 6f  64 65 5f 68 65 61 64 65  |D0.=..code_heade|
00007110  72 25 3d 30 0d 3d c2 12  cf 23 63 6f 64 65 5f 66  |r%=0.=...#code_f|
00007120  69 6c 65 25 3d 30 0d 3d  cc 13 42 25 3d a2 23 63  |ile%=0.=..B%=.#c|
00007130  6f 64 65 5f 66 69 6c 65  25 0d 3d d6 0c 43 25 3d  |ode_file%.=..C%=|
00007140  25 30 30 31 30 0d 3d e0  16 44 25 3d 34 38 2a 76  |%0010.=..D%=48*v|
00007150  69 64 63 2f 31 30 30 30  30 30 30 0d 3d ea 18 63  |idc/1000000.=..c|
00007160  6f 64 65 5f 74 79 70 65  24 3d 22 44 53 20 45 64  |ode_type$="DS Ed|
00007170  69 74 22 0d 3d f4 0b 70  6c 61 79 25 3d a3 0d 3d  |it".=..play%=..=|
00007180  fe 06 3d b9 0d 3e 26 1d  dd f2 63 6f 64 65 5f 62  |..=..>&...code_b|
00007190  65 67 69 6e 70 6c 61 79  28 70 61 75 73 65 64 25  |eginplay(paused%|
000071a0  29 0d 3e 30 18 ea 74 31  25 2c 74 32 25 2c 74 70  |).>0..t1%,t2%,tp|
000071b0  25 2c 74 6c 25 2c 6f 70  25 0d 3e 44 11 41 25 3d  |%,tl%,op%.>D.A%=|
000071c0  63 6f 64 65 5f 66 69 6c  65 25 0d 3e 4e 0f d6 63  |code_file%.>N..c|
000071d0  6f 64 65 5f 6f 70 65 6e  25 0d 3e 62 14 6f 70 25  |ode_open%.>b.op%|
000071e0  3d 8f 23 63 6f 64 65 5f  66 69 6c 65 25 0d 3e 6c  |=.#code_file%.>l|
000071f0  0d c8 99 26 34 32 b8 74  31 25 0d 3e 76 30 c8 99  |...&42.t1%.>v0..|
00007200  26 43 2c 33 2c 63 6f 64  65 5f 66 69 6c 65 25 2c  |&C,3,code_file%,|
00007210  74 65 6d 70 31 25 2c 34  2a 31 30 32 34 2c 63 6f  |temp1%,4*1024,co|
00007220  64 65 5f 68 65 61 64 65  72 25 0d 3e 80 0d c8 99  |de_header%.>....|
00007230  26 34 32 b8 74 32 25 0d  3e 8a 0f 74 6c 25 3d 74  |&42.t2%.>..tl%=t|
00007240  32 25 2d 74 31 25 0d 3e  94 14 cf 23 63 6f 64 65  |2%-t1%.>...#code|
00007250  5f 66 69 6c 65 25 3d 6f  70 25 0d 3e a8 1a 73 6c  |_file%=op%.>..sl|
00007260  69 64 65 72 5f 73 3d 42  25 2f 73 6c 69 64 65 72  |ider_s=B%/slider|
00007270  5f 73 78 25 0d 3e b2 1d  cf 23 63 6f 64 65 5f 66  |_sx%.>...#code_f|
00007280  69 6c 65 25 3d 63 6f 64  65 5f 68 65 61 64 65 72  |ile%=code_header|
00007290  25 0d 3e bc 16 63 6f 64  65 5f 63 6f 75 6e 74 65  |%.>..code_counte|
000072a0  72 70 6f 73 25 3d 30 0d  3e d0 0e e7 43 25 80 25  |rpos%=0.>...C%.%|
000072b0  30 30 30 31 8c 0d 3e da  07 c8 a0 32 0d 3e e4 0c  |0001..>....2.>..|
000072c0  c8 a2 31 2c 2d 31 32 37  0d 3e ee 0c c8 a2 32 2c  |..1,-127.>....2,|
000072d0  2b 31 32 37 0d 3e f8 05  cc 0d 3f 02 07 c8 a0 31  |+127.>....?....1|
000072e0  0d 3f 0c 09 c8 a2 31 2c  30 0d 3f 16 05 cd 0d 3f  |.?....1,0.?....?|
000072f0  2a 0f 40 25 3d 22 2b 66  31 30 2e 32 22 0d 3f 34  |*.@%="+f10.2".?4|
00007300  28 63 6f 64 65 5f 74 6f  74 61 6c 3d 28 42 25 2d  |(code_total=(B%-|
00007310  63 6f 64 65 5f 68 65 61  64 65 72 25 29 2a 44 25  |code_header%)*D%|
00007320  2f 76 69 64 63 0d 3f 3e  25 e7 43 25 80 25 31 30  |/vidc.?>%.C%.%10|
00007330  30 30 8c 63 6f 64 65 5f  74 6f 74 61 6c 3d 63 6f  |00.code_total=co|
00007340  64 65 5f 74 6f 74 61 6c  2f 32 0d 3f 48 25 e7 43  |de_total/2.?H%.C|
00007350  25 80 25 30 30 30 31 8c  63 6f 64 65 5f 74 6f 74  |%.%0001.code_tot|
00007360  61 6c 3d 63 6f 64 65 5f  74 6f 74 61 6c 2f 32 0d  |al=code_total/2.|
00007370  3f 52 37 f2 69 63 6f 6e  5f 74 65 78 74 28 77 69  |?R7.icon_text(wi|
00007380  6e 64 5f 63 6f 6e 74 25  2c 39 2c a4 6d 69 73 63  |nd_cont%,9,.misc|
00007390  5f 6e 75 6d 73 74 72 28  63 6f 64 65 5f 74 6f 74  |_numstr(code_tot|
000073a0  61 6c 2f 33 29 29 0d 3f  5c 3a f2 69 63 6f 6e 5f  |al/3)).?\:.icon_|
000073b0  74 65 78 74 28 77 69 6e  64 5f 63 6f 6e 74 25 2c  |text(wind_cont%,|
000073c0  31 30 2c a4 6d 69 73 63  5f 6e 75 6d 73 74 72 28  |10,.misc_numstr(|
000073d0  32 2a 63 6f 64 65 5f 74  6f 74 61 6c 2f 33 29 29  |2*code_total/3))|
000073e0  0d 3f 66 36 f2 69 63 6f  6e 5f 74 65 78 74 28 77  |.?f6.icon_text(w|
000073f0  69 6e 64 5f 63 6f 6e 74  25 2c 31 31 2c a4 6d 69  |ind_cont%,11,.mi|
00007400  73 63 5f 6e 75 6d 73 74  72 28 63 6f 64 65 5f 74  |sc_numstr(code_t|
00007410  6f 74 61 6c 29 29 0d 3f  70 2d f2 69 63 6f 6e 5f  |otal)).?p-.icon_|
00007420  74 65 78 74 28 77 69 6e  64 5f 63 6f 6e 74 25 2c  |text(wind_cont%,|
00007430  31 33 2c c0 63 6f 64 65  5f 6e 61 6d 65 24 2c 36  |13,.code_name$,6|
00007440  33 29 29 0d 3f 84 22 74  70 25 3d 28 34 2a 31 30  |3)).?."tp%=(4*10|
00007450  32 34 2f 42 25 29 2a 63  6f 64 65 5f 74 6f 74 61  |24/B%)*code_tota|
00007460  6c 2a 31 30 30 0d 3f 8e  0d e7 74 6c 25 3e 74 70  |l*100.?...tl%>tp|
00007470  25 8c 0d 3f 98 0c c8 99  26 34 30 36 43 32 0d 3f  |%..?....&406C2.?|
00007480  a2 3a e7 28 74 6c 25 2f  74 70 25 29 3e 31 2e 33  |.:.(tl%/tp%)>1.3|
00007490  8c 57 25 3d a4 77 61 72  6e 5f 6d 65 73 73 61 67  |.W%=.warn_messag|
000074a0  65 28 32 29 8b 57 25 3d  a4 77 61 72 6e 5f 6d 65  |e(2).W%=.warn_me|
000074b0  73 73 61 67 65 28 37 29  0d 3f ac 0a e7 57 25 3d  |ssage(7).?...W%=|
000074c0  31 8c 0d 3f b6 14 f2 63  6f 64 65 5f 61 63 74 69  |1..?...code_acti|
000074d0  6f 6e 28 39 39 29 0d 3f  c0 1b f2 77 69 6e 64 5f  |on(99).?...wind_|
000074e0  63 6c 6f 73 65 28 77 69  6e 64 5f 66 6f 72 6d 25  |close(wind_form%|
000074f0  29 0d 3f ca 1b f2 77 69  6e 64 5f 63 6c 6f 73 65  |).?...wind_close|
00007500  28 77 69 6e 64 5f 62 75  66 66 25 29 0d 3f d4 1b  |(wind_buff%).?..|
00007510  f2 77 69 6e 64 5f 63 6c  6f 73 65 28 77 69 6e 64  |.wind_close(wind|
00007520  5f 63 6f 6e 74 25 29 0d  3f d5 1d f2 6d 69 73 63  |_cont%).?...misc|
00007530  5f 63 6c 6f 73 65 28 73  63 72 69 70 74 5f 66 69  |_close(script_fi|
00007540  6c 65 25 29 0d 3f de 05  e1 0d 3f e8 05 cd 0d 3f  |le%).?....?....?|
00007550  f2 0d 70 61 75 73 65 64  25 3d b9 0d 3f fc 05 cd  |..paused%=..?...|
00007560  0d 40 10 2c e7 70 61 75  73 65 64 25 8c f2 63 6f  |.@.,.paused%..co|
00007570  64 65 5f 61 63 74 69 6f  6e 28 33 29 8b f2 63 6f  |de_action(3)..co|
00007580  64 65 5f 61 63 74 69 6f  6e 28 30 29 0d 40 1a 21  |de_action(0).@.!|
00007590  e7 73 63 72 69 70 74 5f  66 69 6c 65 25 3d 30 84  |.script_file%=0.|
000075a0  52 25 3d 36 84 70 61 75  73 65 64 25 8c 0d 40 24  |R%=6.paused%..@$|
000075b0  1d f2 77 69 6e 64 5f 6f  70 65 6e 74 6f 70 28 77  |..wind_opentop(w|
000075c0  69 6e 64 5f 63 6f 6e 74  25 29 0d 40 2e 05 cd 0d  |ind_cont%).@....|
000075d0  40 38 1b f2 77 69 6e 64  5f 63 6c 6f 73 65 28 77  |@8..wind_close(w|
000075e0  69 6e 64 5f 66 6f 72 6d  25 29 0d 40 42 1b f2 77  |ind_form%).@B..w|
000075f0  69 6e 64 5f 63 6c 6f 73  65 28 77 69 6e 64 5f 62  |ind_close(wind_b|
00007600  75 66 66 25 29 0d 40 4c  12 63 6f 64 65 5f 6c 6f  |uff%).@L.code_lo|
00007610  61 64 65 64 25 3d b9 0d  40 56 05 e1 0d 40 92 1b  |aded%=..@V...@..|
00007620  dd f2 76 6f 6c 75 6d 65  5f 64 72 61 67 73 65 74  |..volume_dragset|
00007630  28 74 65 6d 70 25 29 0d  40 9c 0c ea 6f 6c 64 70  |(temp%).@...oldp|
00007640  6f 73 25 0d 40 a6 1a e7  74 65 6d 70 25 8c 6f 6c  |os%.@...temp%.ol|
00007650  64 70 6f 73 25 3d 76 6f  6c 5f 70 6f 73 0d 40 b0  |dpos%=vol_pos.@.|
00007660  14 c8 99 26 34 30 30 43  46 2c 2c 74 65 6d 70 31  |...&400CF,,temp1|
00007670  25 0d 40 ba 1d 76 6f 6c  5f 70 6f 73 2b 3d 74 65  |%.@..vol_pos+=te|
00007680  6d 70 31 25 21 34 2d 76  6f 6c 5f 64 79 25 0d 40  |mp1%!4-vol_dy%.@|
00007690  c4 25 e7 ac 74 65 6d 70  25 8c f2 69 63 6f 6e 5f  |.%..temp%..icon_|
000076a0  75 70 64 61 74 65 28 77  69 6e 64 5f 76 6f 6c 25  |update(wind_vol%|
000076b0  2c 32 29 0d 40 d8 10 dd  f2 76 6f 6c 75 6d 65 5f  |,2).@....volume_|
000076c0  73 65 74 0d 40 e2 0a ea  56 25 2c 53 25 0d 40 ec  |set.@...V%,S%.@.|
000076d0  0f 74 65 6d 70 25 3d 74  65 6d 70 25 0d 40 f6 18  |.temp%=temp%.@..|
000076e0  e7 76 6f 6c 5f 70 6f 73  3c 30 8c 76 6f 6c 5f 70  |.vol_pos<0.vol_p|
000076f0  6f 73 3d 30 0d 41 00 1c  e7 76 6f 6c 5f 70 6f 73  |os=0.A...vol_pos|
00007700  3e 32 35 36 8c 76 6f 6c  5f 70 6f 73 3d 32 35 36  |>256.vol_pos=256|
00007710  0d 41 0a 19 56 25 3d 31  32 37 2a b6 28 76 6f 6c  |.A..V%=127*.(vol|
00007720  5f 70 6f 73 2f 32 35 36  29 0d 41 14 0e e7 56 25  |_pos/256).A...V%|
00007730  3c 31 8c 56 25 3d 31 0d  41 1e 12 e7 56 25 3e 31  |<1.V%=1.A...V%>1|
00007740  32 37 8c 56 25 3d 31 32  37 0d 41 28 0f c8 99 26  |27.V%=127.A(...&|
00007750  34 30 31 38 30 2c 56 25  0d 41 32 1a e7 74 65 6d  |40180,V%.A2..tem|
00007760  70 25 8c 76 6f 6c 5f 70  6f 73 3d 6f 6c 64 70 6f  |p%.vol_pos=oldpo|
00007770  73 25 0d 41 3c 3c e7 a4  69 63 6f 6e 5f 73 65 6c  |s%.A<<..icon_sel|
00007780  65 63 74 28 77 69 6e 64  5f 76 6f 6c 25 2c 39 29  |ect(wind_vol%,9)|
00007790  3d 30 8c f2 69 63 6f 6e  5f 73 65 6c 65 63 74 28  |=0..icon_select(|
000077a0  77 69 6e 64 5f 76 6f 6c  25 2c 39 2c 31 29 0d 41  |wind_vol%,9,1).A|
000077b0  46 05 e1 0d 41 6e 15 dd  f2 76 6f 6c 75 6d 65 5f  |F...An...volume_|
000077c0  67 65 74 73 74 61 74 65  0d 41 78 0a ea 56 25 2c  |getstate.Ax..V%,|
000077d0  53 25 0d 41 82 11 c8 99  26 34 30 31 38 30 2c 30  |S%.A....&40180,0|
000077e0  b8 56 25 0d 41 8c 39 e7  a4 69 63 6f 6e 5f 73 65  |.V%.A.9..icon_se|
000077f0  6c 65 63 74 28 77 69 6e  64 5f 76 6f 6c 25 2c 39  |lect(wind_vol%,9|
00007800  29 8c 76 6f 6c 5f 70 6f  73 3d 32 35 36 2a 28 28  |).vol_pos=256*((|
00007810  56 25 2f 31 32 37 29 5e  32 29 2b 32 0d 41 96 1d  |V%/127)^2)+2.A..|
00007820  f2 69 63 6f 6e 5f 75 70  64 61 74 65 28 77 69 6e  |.icon_update(win|
00007830  64 5f 76 6f 6c 25 2c 32  29 0d 41 a0 0f c8 99 26  |d_vol%,2).A....&|
00007840  34 30 31 34 33 b8 53 25  0d 41 aa 23 f2 69 63 6f  |40143.S%.A.#.ico|
00007850  6e 5f 73 65 6c 65 63 74  28 77 69 6e 64 5f 76 6f  |n_select(wind_vo|
00007860  6c 25 2c 31 30 2c 53 25  2d 31 29 0d 41 b4 05 e1  |l%,10,S%-1).A...|
00007870  0d 42 22 0a dd f2 68 65  6c 70 0d 42 2c 23 ea 73  |.B"...help.B,#.s|
00007880  68 73 25 2c 73 68 66 25  2c 45 25 2c 46 25 2c 70  |hs%,shf%,E%,F%,p|
00007890  61 74 68 24 2c 68 65 6c  70 64 69 72 24 0d 42 40  |ath$,helpdir$.B@|
000078a0  28 c8 99 26 32 30 30 32  33 2c 22 53 74 72 6f 6e  |(..&20023,"Stron|
000078b0  67 48 65 6c 70 24 44 69  72 22 2c 2c 2d 31 b8 2c  |gHelp$Dir",,-1.,|
000078c0  2c 73 68 73 25 0d 42 5e  31 c8 99 26 32 30 30 30  |,shs%.B^1..&2000|
000078d0  38 2c 35 2c 22 57 61 76  65 50 6c 61 79 65 72 3a  |8,5,"WavePlayer:|
000078e0  21 53 48 46 6c 61 67 22  b8 45 25 2c 2c 2c 2c 73  |!SHFlag".E%,,,,s|
000078f0  68 66 25 3b 46 25 0d 42  68 1a e7 28 46 25 80 20  |hf%;F%.Bh..(F%. |
00007900  31 29 84 45 25 3c 3e 31  8c 73 68 66 25 3d 2d 31  |1).E%<>1.shf%=-1|
00007910  0d 42 72 0c e7 73 68 66  25 3e 31 8c 0d 42 86 0b  |.Br..shf%>1..B..|
00007920  73 68 66 25 3d 2b 31 0d  42 90 1e 46 25 3d 8e 28  |shf%=+1.B..F%=.(|
00007930  22 57 61 76 65 50 6c 61  79 65 72 3a 21 53 48 46  |"WavePlayer:!SHF|
00007940  6c 61 67 22 29 0d 42 9a  0e 70 61 74 68 24 3d be  |lag").B..path$=.|
00007950  23 46 25 0d 42 a4 08 d9  23 46 25 0d 42 ae 2f e7  |#F%.B...#F%.B./.|
00007960  73 68 73 25 3d 30 8c ff  22 53 65 74 20 53 74 72  |shs%=0.."Set Str|
00007970  6f 6e 67 48 65 6c 70 24  44 69 72 20 22 2b 70 61  |ongHelp$Dir "+pa|
00007980  74 68 24 3a 73 68 73 25  3d b9 0d 42 b8 05 cd 0d  |th$:shs%=..B....|
00007990  42 d6 33 68 65 6c 70 64  69 72 24 3d 22 3c 53 74  |B.3helpdir$="<St|
000079a0  72 6f 6e 67 48 65 6c 70  24 44 69 72 3e 2e 48 65  |rongHelp$Dir>.He|
000079b0  6c 70 44 61 74 61 2e 57  61 76 65 50 6c 61 79 65  |lpData.WavePlaye|
000079c0  72 22 0d 42 e0 0d e7 73  68 73 25 3c 3e 30 8c 0d  |r".B...shs%<>0..|
000079d0  42 ea 0a 73 68 73 25 3d  b9 0d 42 f4 3b c8 99 26  |B..shs%=..B.;..&|
000079e0  32 30 30 30 38 2c 35 2c  22 3c 53 74 72 6f 6e 67  |20008,5,"<Strong|
000079f0  48 65 6c 70 24 44 69 72  3e 2e 48 65 6c 70 44 61  |Help$Dir>.HelpDa|
00007a00  74 61 2e 57 61 76 65 50  6c 61 79 65 72 22 b8 45  |ta.WavePlayer".E|
00007a10  25 3b 46 25 0d 42 fe 0f  e7 46 25 80 20 31 8c 45  |%;F%.B...F%. 1.E|
00007a20  25 3d 30 0d 43 08 0a e7  45 25 3d 30 8c 0d 43 12  |%=0.C...E%=0..C.|
00007a30  3a c8 99 26 32 30 30 30  38 2c 35 2c 22 3c 53 74  |:..&20008,5,"<St|
00007a40  72 6f 6e 67 48 65 6c 70  24 44 69 72 3e 2e 4d 61  |rongHelp$Dir>.Ma|
00007a50  6e 75 61 6c 73 2e 57 61  76 65 50 6c 61 79 65 72  |nuals.WavePlayer|
00007a60  22 b8 45 25 3b 46 25 0d  43 1c 0f e7 46 25 80 20  |".E%;F%.C...F%. |
00007a70  31 8c 45 25 3d 30 0d 43  26 39 e7 45 25 3c 3e 30  |1.E%=0.C&9.E%<>0|
00007a80  8c 68 65 6c 70 64 69 72  24 3d 22 3c 53 74 72 6f  |.helpdir$="<Stro|
00007a90  6e 67 48 65 6c 70 24 44  69 72 3e 2e 4d 61 6e 75  |ngHelp$Dir>.Manu|
00007aa0  61 6c 73 2e 57 61 76 65  50 6c 61 79 65 72 22 0d  |als.WavePlayer".|
00007ab0  43 30 05 cc 0d 43 3a 05  cd 0d 43 44 10 68 70 70  |C0...C:...CD.hpp|
00007ac0  25 3d 28 45 25 3c 3e 30  29 0d 43 4e 05 cc 0d 43  |%=(E%<>0).CN...C|
00007ad0  58 0a 68 70 70 25 3d a3  0d 43 62 05 cd 0d 43 b2  |X.hpp%=..Cb...C.|
00007ae0  2a e7 73 68 73 25 3d 30  80 20 73 68 66 25 3d 2b  |*.shs%=0. shf%=+|
00007af0  31 8c 57 25 3d a4 77 61  72 6e 5f 6d 65 73 73 61  |1.W%=.warn_messa|
00007b00  67 65 28 34 29 3a e1 0d  43 bc 29 e7 73 68 66 25  |ge(4):..C.).shf%|
00007b10  3d 30 80 20 68 70 70 25  3d 30 8c 57 25 3d a4 77  |=0. hpp%=0.W%=.w|
00007b20  61 72 6e 5f 6d 65 73 73  61 67 65 28 35 29 3a e1  |arn_message(5):.|
00007b30  0d 43 c6 27 e7 73 68 73  25 80 20 68 70 70 25 3d  |.C.'.shs%. hpp%=|
00007b40  30 8c 57 25 3d a4 77 61  72 6e 5f 6d 65 73 73 61  |0.W%=.warn_messa|
00007b50  67 65 28 33 29 3a e1 0d  43 d0 18 e7 73 68 73 25  |ge(3):..C...shs%|
00007b60  80 20 73 68 66 25 3d 30  80 20 68 70 70 25 8c 0d  |. shf%=0. hpp%..|
00007b70  43 da 17 57 25 3d a4 77  61 72 6e 5f 6d 65 73 73  |C..W%=.warn_mess|
00007b80  61 67 65 28 36 29 0d 43  e4 0b e7 57 25 3d 32 8c  |age(6).C...W%=2.|
00007b90  e1 0d 43 ee 0b 73 68 66  25 3d 2b 31 0d 43 f8 2c  |..C..shf%=+1.C.,|
00007ba0  c8 99 26 38 2c 26 41 2c  22 57 61 76 65 50 6c 61  |..&8,&A,"WavePla|
00007bb0  79 65 72 3a 21 53 48 46  6c 61 67 22 2c 26 46 46  |yer:!SHFlag",&FF|
00007bc0  44 2c 2c 90 2c 90 2b 31  0d 44 02 05 cd 0d 44 20  |D,,.,.+1.D....D |
00007bd0  19 e7 73 68 73 25 80 20  73 68 66 25 3d 2b 31 80  |..shs%. shf%=+1.|
00007be0  20 68 70 70 25 8c 0d 44  2a 44 c8 99 26 32 30 30  | hpp%..D*D..&200|
00007bf0  30 35 2c 22 52 4d 45 6e  73 75 72 65 20 53 74 72  |05,"RMEnsure Str|
00007c00  6f 6e 67 48 65 6c 70 20  30 20 46 69 6c 65 72 5f  |ongHelp 0 Filer_|
00007c10  52 75 6e 20 3c 53 74 72  6f 6e 67 48 65 6c 70 24  |Run <StrongHelp$|
00007c20  44 69 72 3e 2e 21 52 75  6e 22 0d 44 34 22 70 61  |Dir>.!Run".D4"pa|
00007c30  74 68 24 3d a4 6d 69 73  63 5f 72 65 61 6c 70 61  |th$=.misc_realpa|
00007c40  74 68 28 68 65 6c 70 64  69 72 24 29 0d 44 3e 1f  |th(helpdir$).D>.|
00007c50  c8 99 26 32 30 30 30 35  2c 22 46 69 6c 65 72 5f  |..&20005,"Filer_|
00007c60  52 75 6e 20 22 2b 70 61  74 68 24 0d 44 48 2a c8  |Run "+path$.DH*.|
00007c70  99 26 32 30 30 30 38 2c  35 2c 22 57 61 76 65 50  |.&20008,5,"WaveP|
00007c80  6c 61 79 65 72 3a 21 53  48 46 6c 61 67 22 b8 2c  |layer:!SHFlag".,|
00007c90  2c 2c 2c 45 25 0d 44 52  0b e7 45 25 3c 3d 31 8c  |,,,E%.DR..E%<=1.|
00007ca0  0d 44 5c 1e 46 25 3d ae  28 22 57 61 76 65 50 6c  |.D\.F%=.("WavePl|
00007cb0  61 79 65 72 3a 21 53 48  46 6c 61 67 22 29 0d 44  |ayer:!SHFlag").D|
00007cc0  66 2b d5 23 46 25 2c a4  6d 69 73 63 5f 72 65 61  |f+.#F%,.misc_rea|
00007cd0  6c 70 61 74 68 28 22 3c  53 74 72 6f 6e 67 48 65  |lpath("<StrongHe|
00007ce0  6c 70 24 44 69 72 3e 22  29 0d 44 70 08 d9 23 46  |lp$Dir>").Dp..#F|
00007cf0  25 0d 44 7a 05 cd 0d 44  84 05 cd 0d 44 8e 0c e7  |%.Dz...D....D...|
00007d00  73 68 73 25 3d 30 8c 0d  44 98 17 57 25 3d a4 77  |shs%=0..D..W%=.w|
00007d10  61 72 6e 5f 6d 65 73 73  61 67 65 28 38 29 0d 44  |arn_message(8).D|
00007d20  a2 05 cd 0d 44 ac 05 e1  0d 44 e8 0b dd f2 65 72  |....D....D....er|
00007d30  72 6f 72 0d 44 f2 06 ea  85 0d 44 fc 50 ee 85 ea  |ror.D.....D.P...|
00007d40  85 a2 9f 2c 22 45 72 72  6f 72 20 69 6e 20 65 72  |...,"Error in er|
00007d50  72 6f 72 20 74 72 61 70  20 2d 20 22 2b f6 24 2b  |ror trap - "+.$+|
00007d60  22 20 40 20 22 2b c3 28  9e 29 2b 22 20 2d 20 6f  |" @ "+.(.)+" - o|
00007d70  72 69 67 69 6e 61 6c 20  65 72 72 6f 72 20 2d 20  |riginal error - |
00007d80  22 2b 6f 6c 64 72 65 70  24 0d 45 06 19 6f 6c 64  |"+oldrep$.E..old|
00007d90  72 65 70 24 3d f6 24 2b  22 20 40 20 22 2b c3 28  |rep$=.$+" @ "+.(|
00007da0  9e 29 0d 45 1a 1a e7 a4  77 61 72 6e 5f 6d 65 73  |.).E....warn_mes|
00007db0  73 61 67 65 28 32 35 35  29 3d 31 8c 0d 45 24 06  |sage(255)=1..E$.|
00007dc0  f7 85 0d 45 2e 05 e1 0d  45 38 05 cd 0d 45 42 0b  |...E....E8...EB.|
00007dd0  71 75 69 74 25 3d b9 0d  45 4c 05 e1 0d ff        |quit%=..EL....|
00007dde