*� QTM Tracker player application v1.00
�
?� Take a look at the listing if you like, but don't copy it
(-�  - it'll benefit you in the long run...
2�
<� � 1994 Phoenix/Quantum
F:
Pș"OS_GetEnv" � env$
Zpos%=�(env$)-1:end$=""""
d�
n pos%-=1
x bit$=�env$,pos%,2)
� � bit$=""" " � �bit$,1)=""""
�@� bit$=""" " � load$=�env$,pos%+2,(�env$-1)-pos%) � load$=""
�:
��initdesk("QTM Player")
��rundesk
��closedown
��
�
�
���closedown
�� � �exiterror
�ș "Wimp_CloseDown"
�wimp_running%=�

2� killmusic% � ș"XOS_CLI","RMKill QTMTracker"

�



"

,� �initerror

6� wimp_running% �

@B �cancelbox("","Error while initialising: "+�$+" at line "+Þ)

J ș "Wimp_CloseDown"

T�

^ �:�" at line ";�/10

h�

r�

|

�

�� �exiterror

�� wimp_running% �

�/ �cancelbox("","Error while quitting: "+�$)

� ș "Wimp_CloseDown"

��

� �:�" at line ";�/10

��

��

�

�

�� �error

�f� click%=FNokcancelbox("",REPORT$+" at line "+STR$ERL+". Click OK to continue or Cancel to quit.")
Sclick%=�okcancelbox("",�$+". Click OK to continue or Cancel to quit. ("+Þ+")")
� click%=%10 � �closedown:�
�
&
0
:V� �okbox(boxtitle$,message$)       :� assumes it is an error, unless boxtitle$<>""
D$(block%+4)=message$+�0
NW� boxtitle$="" � boxtitle$=title$:!block%=�:flags%=%00001 � !block%=1:flags%=%10001
X:
b1ș "Wimp_ReportError",block%,flags%,boxtitle$
l�
v
�
�V� �cancelbox(boxtitle$,message$)   :� assumes it is an error, unless boxtitle$<>""
�$(block%+4)=message$+�0
�W� boxtitle$="" � boxtitle$=title$:!block%=�:flags%=%00010 � !block%=1:flags%=%10010
�:
�1ș "Wimp_ReportError",block%,flags%,boxtitle$
��
�
�
�X� �okcancelbox(boxtitle$,message$)   :� assumes it is an error, unless boxtitle$<>""
�$(block%+4)=message$+�0
�W� boxtitle$="" � boxtitle$=title$:!block%=�:flags%=%00011 � !block%=1:flags%=%10011
�:
>ș "Wimp_ReportError",block%,flags%,boxtitle$ � ,response%
=response%

 
*� �initdesk(app$)
4wimp_running%=�
>� � �initerror:�
Htitle$=app$
R:
\�loadsprites
f:
pblocklen%=1300
zquit%=�
�
riscos%=2
�:
�� block% blocklen%
�$block%="TASK"
�:
�Cș "Wimp_Initialise",riscos%*100,!block%,title$ � riscos%,task%
�wimp_running%=�
�:
��initother
��loadtemplates
��initicons
��initmenus
��initwindows
�initQTMstate
�

$
.� �loadsprites
8
� sprite$
B*ș "OS_ReadModeVariable",�,5 � ,,yeig%
LE� yeig%=2 � sprite$="Sprites" � sprite$="Sprites" :� no Sprites22
V:
`0file%=�("<QTMTrack$Dir>.Resources."+sprite$)
j%� file%=0 � sprite$="Sprites22" �
t sprite$="Sprites"
~1 file%=�("<QTMTrack$Dir>.Resources."+sprite$)
��
�spritelen%=�#file%
��#file%
�:
�� sprites% spritelen%+32
�!sprites%=spritelen%+32
�sprites%!8=16
�#ș "OS_SpriteOp",256+9,sprites%
�Dș "OS_SpriteOp",256+10,sprites%,"<Obey$Dir>.Resources."+sprite$
��
�
�
� �loadtemplates

>� template$,var$,opts3d%,id%,ind_len%,info_len%,panel_len%
:
template$="Templates"
(temps_3d=�
2:
<� 1=2 �
F � riscos%>=300 �
P  � opts3d% 60
ZD  ș "XOS_ReadVarVal","NewLook$Options",opts3d%,60,0,0 � ;flags%
d  � (flags% � 1)=0 �
n%   var$=�block_to_string(opts3d%)
x.   � �var$,"3DW")>0 � template$="Temps_3d"
�  �
� �
��
�:
�� riscos%>=300 �
� � opts3d% 60
�: ș "XOS_ReadVarVal","QTM$3D",opts3d%,60,0,0 � ;flags%
� � (flags% � 1)=0 �
�$  var$=�block_to_string(opts3d%)
�8  � �var$,"Yes")>0 � template$="Temps_3d":temps_3d=�
� �
��
�:
maxicons%=10
info_len%=170
opt_len%=220
":
,ind_len%=1300
6C� blocklen%<88+32*maxicons%+opt_len% � 255,"'block%' too small"
@� ind% ind_len%
J� id% 12
T:
^=ș "Wimp_OpenTemplate",,"<Obey$Dir>.Resources."+template$
h$id%="progInfo"
rSș "Wimp_LoadTemplate",,block%,ind%,ind%+ind_len%,-1,id%,0 � ,,remain%,,,,next%
|block%!64=sprites%
�-ș "Wimp_CreateWindow",,block% � infobox%
�$id%="control"
�Yș "Wimp_LoadTemplate",,block%,remain%,ind%+ind_len%,-1,id%,next% �,,remain%,,,,next%
�block%!64=sprites%
�-ș "Wimp_CreateWindow",,block% � control%
�$id%="prefs"
�Yș "Wimp_LoadTemplate",,block%,remain%,ind%+ind_len%,-1,id%,next% �,,remain%,,,,next%
�+ș "Wimp_CreateWindow",,block% � prefs%
�$id%="songinfo"
�Yș "Wimp_LoadTemplate",,block%,remain%,ind%+ind_len%,-1,id%,next% �,,remain%,,,,next%
�+ș "Wimp_CreateWindow",,block% � sinfo%
�$id%="slist"
�Yș "Wimp_LoadTemplate",,block%,remain%,ind%+ind_len%,-1,id%,next% �,,remain%,,,,next%
+ș "Wimp_CreateWindow",,block% � slist%
$id%="slistbit"
Yș "Wimp_LoadTemplate",,block%,remain%,ind%+ind_len%,-1,id%,next% �,,remain%,,,,next%
&.ș "Wimp_CreateWindow",,block% � slistbit%
0ș "Wimp_CloseTemplate"
:�
D
N
X� �initicons
b� iconname% 12
l$iconname%="!QTMTrack"
v:
�Ciconbaricon%=�create_icon(-1,0,0,72,68,&3102,"",iconname%,1,12)
�:
�maxseq_icon%=8
�crseq_icon%=7
�/maxseqs%=�findindstr(control%,maxseq_icon%)
�*seq%=�findindstr(control%,crseq_icon%)
�:
�rewind_icon%=1
�play_icon%=2
�fastf_icon%=3
�stop_icon%=4
�pause_icon%=5
�speaker_icon%=6
Pvolslide_icon%=�create_icon(control%,22,-374,608,20,(1<<1)+(6<<12),"",0,0,0)
:
volmultiply=64/(608-56)
 voldiv=(608-56)/64
* volbut_x%=�readvolume*voldiv
4volbut_y%=-374
>� volbut_ind% 20
H$volbut_ind%="butu"
Rzvolbut_icon%=�create_icon(control%,22+volbut_x%,volbut_y%,56,20,(1<<1)+(1<<8)+(6<<12),"",volbut_ind%,sprites%,�"butu")
\:
f8nameicon%=6  :nameind%=�findindstr(sinfo%,nameicon%)
p<authoricon%=7:authorind%=�findindstr(sinfo%,authoricon%)
z:stypeicon%=8 :stypeind%=�findindstr(sinfo%,stypeicon%)
�8playtime%=9  :timeind%=�findindstr(sinfo%,playtime%)
�5modlen%=11   :lenind%=�findindstr(sinfo%,modlen%)
�:corrupt%=13  :garbageind%=�findindstr(sinfo%,corrupt%)
�<crpttype%=4  :crpttypeind%=�findindstr(sinfo%,crpttype%)
�9ftype%=15    :filevalid%=�findvalidstr(sinfo%,ftype%)
�:
�
vhqual%=2
�hqual%=3
�mqual%=4
�lqual%=5
�userqual%=6
�<userentry%=7 :usersndind%=�findindstr(prefs%,userentry%)
�ctrlwinopen%=10
	quitkillm%=11
	
savep%=12
	cancelp%=13
	$
okp%=9
	.usersnd%=�
	8�
	B
	L
	V� �initmenus
	`S� iconbarmenu% 28+24*4                        : � 28+24*number of items in menu
	jS� songmenu% 28+24*4                           : � 28+24*number of items in menu
	t:
	~ctemp%=�createmenu(songmenu%,"Song,4,0,0,Controls,0,0,Information,0,0,Sample list,&80,-1,Clear")
	��ibmenu_len%=�createmenu(iconbarmenu%,"QTM Player,4,0,"+�(infobox%)+",Info,0,"+�(songmenu%)+",Song,0,0,Preferences,&80,-1,Quit")
	��
	�
	�
	�� �initwindows
	�)info_version%=�findindstr(infobox%,9)
	�'$info_version%="1.00 (20 Apr 1994)"
	�:
	�!block%=control%
	�#ș "Wimp_GetWindowInfo",,block%
	�ctrl_title%=block%!(72+4)
	�#$ctrl_title%="<no song loaded>"
:

� sampleic(31,7)
[� snames% 24*31, svols% 4*31, slengths% 8*31, sreplens% 8*31, srepoffs% 8*31, sft% 4*31
�resetsampinfos
(
smph=13*4
2smpy=-52
<"nonindic=(1<<0)+(3<<3)+(7<<24)
F(indic_l=(1<<0)+(1<<4)+(1<<8)+(7<<24)
P/indic_r=(1<<0)+(1<<4)+(1<<8)+(1<<9)+(7<<24)
Z� sample=1 � 31
da sampleic(sample,1)=�create_icon(slistbit%,18,smpy,16*2,8*4,nonindic,�"00"+�~sample,2),0,0,0)
no sampleic(sample,2)=�create_icon(slistbit%,16*4+12,smpy,23*16,8*4,indic_l,"",(snames%+(sample-1)*24),-1,24)
xk sampleic(sample,3)=�create_icon(slistbit%,16*29+4,smpy,18*2,8*4,indic_r,"",(svols%+(sample-1)*4),-1,3)
�q sampleic(sample,4)=�create_icon(slistbit%,16*31+10,smpy,16*7-4,8*4,indic_r,"",(slengths%+(sample-1)*8),-1,7)
�q sampleic(sample,5)=�create_icon(slistbit%,16*38+10,smpy,16*7-4,8*4,indic_r,"",(sreplens%+(sample-1)*8),-1,7)
�q sampleic(sample,6)=�create_icon(slistbit%,16*45+10,smpy,16*7-4,8*4,indic_r,"",(srepoffs%+(sample-1)*8),-1,7)
�l sampleic(sample,7)=�create_icon(slistbit%,16*55+10,smpy,16*3-4,8*4,indic_r,"",(sft%+(sample-1)*4),-1,3)
� smpy-=smph
��
��
�
�
�� �resetsampinfos
�� sample=1 � 31
�  $(snames%+(sample-1)*24)=""
� $(svols%+(sample-1)*4)="0"
" $(slengths%+(sample-1)*8)="0"
" $(sreplens%+(sample-1)*8)="0"
" $(srepoffs%+(sample-1)*8)="0"
" $(sft%+(sample-1)*4)="0"
,�
6� �checkwindow(slistbit%) �
@ !block%=slistbit%
J$ ș"Wimp_GetWindowState",,block%
T: ș"Wimp_ForceRedraw",slistbit%,0,-332+block%!24,950,0
^�
h�
r
|
�� �readsampinfos
�2� sample,name,length,repoff,replen,vol,ft,addr
�� sample=1 � 31
�L ș "QTM_ReadSampleTable",sample � name,length,repoff,replen,vol,ft,addr
�4 $(snames%+(sample-1)*24)=�block_to_string(name)
�  $(svols%+(sample-1)*4)=�vol
�& $(slengths%+(sample-1)*8)=�length
�& $(sreplens%+(sample-1)*8)=�replen
�& $(srepoffs%+(sample-1)*8)=�repoff
� $(sft%+(sample-1)*4)=�ft
��
�� �checkwindow(slistbit%) �
� !block%=slistbit%
$ ș"Wimp_GetWindowState",,block%
: ș"Wimp_ForceRedraw",slistbit%,0,-332+block%!24,950,0
�
&�
0
:
D� �rundesk
Nquit%=�
X:
b� � � �error
l:
vȕ � quit%
� �wimppoll
��
�:
��
�
�
�� �wimppoll
�%ș "Wimp_Poll",0,block% � reason%
�Ȏ reason% �
�# � 00 : � drag% � �continuedrag
�R           �updateseq                                     : � null reason code
�G � 01 : �redraw(!block%)                  : � redarw window request
�H � 02 : �reopenwindow(!block%)            : � re-open window request

F � 03 : �closewindow(!block%)             : � close window request

K � 04 :                                      : � pointer leaving window

L � 05 :                                      : � pointer entering window

 = � 06 : �click(block%!12)                 : � mouse click

*? � 07 : �enddrag                          : � user drag box

4= � 08 : �keypress(block%!24,!block%)      : � key pressed

>@ � 09 : �menuselect                       : � menu selection

HC � 10 :                                      : � scroll request

R? � 11 :                                      : � lose caret

\? � 12 :                                      : � gain caret

fV � 13 :                                      : � pollWord non-zero (Risc OS3 only)

pE � 14 :                                      : � *** reserved ***

zE � 15 :                                      : � *** reserved ***

�E � 16 :                                      : � *** reserved ***

�> � 17 : �receive                          : � user message

�G � 18 : �receive                          : � user message recorded

�N � 19 :                                      : � user message acknowledged

��

��

�

�

�Y� �create_icon(whand%,icon_x%,icon_y%,icon_w%,icon_h%,flags%,text$,ptr1%,ptr2%,ptr3%)

�block%!00=whand%

�block%!04=icon_x%

�block%!08=icon_y%

�block%!12=icon_w%+icon_x%
block%!16=icon_h%+icon_y%
Jblock%!20=flags%                :� see Wimp Prog pages 64+65 for flags
:
$� ptr1%=0 �
. $(block%+24)=text$
8�
BV block%!24=ptr1%                :� see Wimp Prog pages 67+68 for indirecting icons
LW block%!28=ptr2%                :� see Wimp Prog pages 75+76 for validation strings
V block%!32=ptr3%
`�
j:
t+ș "Wimp_CreateIcon",,block% � ihandle%
~
=ihandle%
�
�
�� �redraw(window%)
�Ȏ window% �
� � control% : �redrawctrl
��
��
�
�
�� �keypress(key%,window%)
�Ȏ window% �
�b � prefs% : � key%=13 � block%!4=userentry% �altersnd(userqual%):�losecaret(prefs%,userentry%)
  :ș "Wimp_ProcessKey",key%

�
�

(
2� �click(wind%)
<Ȏ wind% �
F$ � -2       : �iconbar(block%!8)
P  � control% : Ȏ block%!16 �
Z(  � speaker_icon%   : �toggalspeaker
d  � play_icon%      : �play
n  � stop_icon%      : �stop
x   � pause_icon%     : �pause
�!  � rewind_icon%    : �rewind
�   � fastf_icon%     : �fastf
�2  � volslide_icon%  : �voldrag(volslide_icon%)
�0  � volbut_icon%    : �voldrag(volbut_icon%)
� �
� � prefs% : Ȏ block%!16 �
�E  � vhqual%,hqual%,mqual%,lqual%,userqual% : �altersnd(block%!16)
�P  � quitkillm% : � �checkon(prefs%,quitkillm%) � killmusic%=� � killmusic%=�
�R  � ctrlwinopen% : � �checkon(prefs%,ctrlwinopen%) � openctrl%=� � openctrl%=�
�;  � okp% : !block%=prefs%:ș "Wimp_CloseWindow",,block%
�H  � savep% : �saveprefs:!block%=prefs%:ș "Wimp_CloseWindow",,block%
�'  � cancelp% : �closewindow(prefs%)
� �
�
�

"
,� �iconbar(button%)
6Ȏ button% �
@> � 2   : �showmenu(iconbarmenu%,!block%-64,96+ibmenu_len%)
J" � 4,1 : �openwindow(control%)
T�
^�
h
r
|&� �showmenu(menu%,menu_x%,menu_y%)
�menuopen%=menu%
�/ș "Wimp_CreateMenu",,menu%,menu_x%,menu_y%
��
�
�
�"� �createmenu(menu%,contents$)
�3� counter%,ptr%,tempwidth%,num_of_items%,title$
�:
�contents$=contents$+�0
�counter%=0
�:
�0�readstr(contents$,counter%,title$,counter%)
�7�readnum(contents$,counter%,num_of_items%,counter%)
$menu%=title$
maxwidth%=(�(title$)-2)*16
1menu%!12=&00070207            :� menu colours
&7menu%!20=44                   :� menu entry heights
04menu%!24=0                    :� menu entry gaps
:ptr%=menu%+28
Dmenu_len%=0
N:
X� items%=1 � num_of_items%
b6 �readnum(contents$,counter%,menu_flags%,counter%)
l2 �readnum(contents$,counter%,subptr%,counter%)
v0 �readstr(contents$,counter%,item$,counter%)
� !ptr%=menu_flags%
� ptr%!4=subptr%
� ptr%!8=&7000021
� $(ptr%+12)=item$
� tempwidth%=(�(item$)+1)*16
�2 � tempwidth%>maxwidth% � maxwidth%=tempwidth%
�
 ptr%+=24
� menu_len%+=44
��
�:
�menu%!16=maxwidth%
�=menu_len%
�

,��readstr(search$,pos%,� search$,� pos%)

� oldpos%
 oldpos%=pos%+1
*�
4 pos%+=1
>0� �search$,pos%,1)="," � �search$,pos%,1)=�0
H,search$=�search$,oldpos%,(pos%-oldpos%))
R�
\
f
p+��readnum(search$,pos%,� found%,� pos%)
z
� oldpos%
�oldpos%=pos%+1
��
� pos%+=1
�0� �search$,pos%,1)="," � �search$,pos%,1)=�0
�,search$=�search$,oldpos%,(pos%-oldpos%))
�found%=�(search$)
��
�
�
�P� �menuselect                              :� see page 98 for menu selecting
� sel1%=!block%:sel2%=block%!4
�"sel3%=block%!8:sel4%=block%!12
�:
$ș "Wimp_GetPointerInfo",,block%
button%=block%!8
:
$Ȏ menuopen% �
.  � iconbarmenu% : Ȏ sel1% �
8S  � 0 :                                      :� 0 is usually the 'Info >' entry
B  � 1 : Ȏ sel2% �
L"   � 0 : �openwindow(control%)
V    � 1 : �openwindow(sinfo%)
`    � 2 : �openwindow(slist%)
j   � 3 : �clearsong
t  �
~  � 2 : �openwindow(prefs%)
�F  � 3 : quit%=�                 :� The last one is the 'Quit' item
� �
��
�:
�*� button%=1 � �showmenu(menuopen%,0,0)
��
�
�
�� �tick_on(menu%,item%)
�ptr%=menu%+28
�ptr%=ptr%+24*item%
�?ptr%=?ptr% � 1
�



� �tick_off(menu%,item%)
(ptr%=menu%+28
2ptr%=ptr%+24*item%
<?ptr%=?ptr% � %11111110
F�
P
Z
d� �shade_on(menu%,item%)
nptr%=menu%+28
xptr%=ptr%+24*item%
�ptr%+=10
�?ptr%=?ptr% � %01000000
��
�
�
�� �shade_off(menu%,item%)
�ptr%=menu%+28
�ptr%=ptr%+24*item%
�ptr%+=10
�?ptr%=?ptr% � %10111111
��
�
�
� �dotted(menu%,item%,len%)
ptr%=menu%+28
ptr%=ptr%+24*item%
"?ptr%=?ptr% � 2
,=len%+24
6
@
J� �closewindow(window%)
TȎ window% �
^  � prefs% : �restoreoldprefs
h' � slist% : �closewindow(slistbit%)
r�
|:
�!block%=window%
�!ș "Wimp_CloseWindow",,block%
��
�
�
�U� �reopenwindow(window%)           :� don't alter block% before window opening!!!
�Ȏ window% �
� � slist% :
�!  minx=block%!4:miny=block%!8
�#  maxx=block%!12:maxy=block%!16
�  hand%=block%!28
�  !block%=slistbit%
�&  ș "Wimp_GetWindowState",,block%
#  lenx=952:� block%!12-block%!4
#  leny=328:� block%!16-block%!8
'  block%!4=minx+22:block%!8=miny+20
&3  block%!12=minx+22+lenx:block%!16=miny+20+leny
0  block%!28=hand%
:"  ș "Wimp_OpenWindow",,block%
D  !block%=slist%
N&  ș "Wimp_GetWindowState",,block%
X!  block%!4=minx:block%!8=miny
b#  block%!12=maxx:block%!16=maxy
c  block%!24=0
l  block%!28=slistbit%
v"  ș "Wimp_OpenWindow",,block%
�%  : ș "Wimp_OpenWindow",,block%
��
��
�
�
�� �openwindow(window%)
�Ȏ window% �
� � prefs% : �readoldprefs
��
�:
�!block%=window%
�$ș "Wimp_GetWindowState",,block%
Oblock%!28=-1                                    :� open window at the front
L� window%=slist% � �reopenwindow(window%) � ș "Wimp_OpenWindow",,block%
�
 
*
4� �receive
>Ȏ block%!16 �
HP � 0 : quit%=�                            :� message 0 = task manager > quit
RF � 3 : �dataload(block%!40)               :� message 3 = load data
\P � 5 : �dataload(block%!40)               :� message 5 = load 'double-click'
f�
p�
z
�
�� �dataload(type%)
�)pathname$=�block_to_string(block%+44)
�Ȏ type% �
�R � &1000 :                                   :� file type &1000 is a directory
�F � &000,&001,&CC5,&CB6 : �qtmload(pathname$,�) : �play : �initsong
�  : � block%!16=3 � �askload
��
��
�
�
�� �askload
�aclick%=�okcancelbox("Question from QTM","I don't recognise this file-type, shall I load it?")
� click%=%10 � � :� cancel
�qtmload(pathname$,�)
	�play
$
�initsong
.�
8
B
L� �block_to_string(pos%)
V
� string$
`�
jstring$+=�(?pos%)
tpos%+=1
~�?pos%=0
�=string$
�
�
� � �findindstr(window%,icon%)
�"!block%=window%:block%!4=icon%
�"ș "Wimp_GetIconState",,block%
�=block%!28
�
�
�"� �findvalidstr(window%,icon%)
�"!block%=window%:block%!4=icon%
�"ș "Wimp_GetIconState",,block%
=block%!32



� �checkon(window%,icon%)
(block%!0=window%
2block%!4=icon%
<"ș "Wimp_GetIconState",,block%
Fflags%=block%!24
P� flags% � 1<<21 � =�
Z=�
d
n
x � �selecticon(window%,icon%)
�block%!00=window%
�block%!04=icon%
�block%!08=1<<21
�block%!12=1<<21
�"ș "Wimp_SetIconState",,block%
��
�
�
�!� �disableicon(window%,icon%)
�block%!00=window%
�block%!04=icon%
�block%!08=0
�block%!12=1<<21
"ș "Wimp_SetIconState",,block%
�

"
,� �shadeicon(window%,icon%)
6block%!00=window%
@block%!04=icon%
Jblock%!08=1<<22
Tblock%!12=1<<22
^"ș "Wimp_SetIconState",,block%
h�
r
|
�!� �unshadeicon(window%,icon%)
�block%!00=window%
�block%!04=icon%
�block%!08=0
�block%!12=1<<22
�"ș "Wimp_SetIconState",,block%
��
�
�
� � �updateicon(window%,icon%)
�block%!00=window%
�block%!04=icon%
�block%!08=0
block%!12=0
"ș "Wimp_SetIconState",,block%
�
&
0
:� �checkwindow(window%)
D!block%=window%
N$ș "Wimp_GetWindowState",,block%
X)� ((block%!32) � %1<<16)=(1<<16) � =�
b=�
l
v
�� �flipicon
�B� $iconname%="icon1" � $iconname%="icon2" � $iconname%="icon1"
� �updateicon(-1,iconbaricon%)
��
�
�
�� �initother
�volspr_x=22+608-56
�volspr_y=-380
�drag%=�
��
�
�
� �initQTMstate

f_count=0

r_count=0
 currentseq=0
*
speaker=�
4%ș "Sound_Speaker",0 � newspeaker
>#� newspeaker=2 � �toggalspeaker
H:
R<� � �loadprefs � killmusic%=�:openctrl%=�:samplespeed=-1
\�updatesndqual(samplespeed)
fQ� killmusic% �selecticon(prefs%,quitkillm%) � �disableicon(prefs%,quitkillm%)
pT� openctrl% �selecticon(prefs%,ctrlwinopen%) � �disableicon(prefs%,ctrlwinopen%)
z:
�)� load$<>"" � �qtmload(load$,�):�play
�!ș "QTM_SongStatus" � loaded%
�<� (loaded% � 1)=1 � loaded%=� � loaded%=�:�resetsonginfo
�
�initsong
��
�
�
�� �initsong
�� � loaded% � �
�:
�Eș "XQTM_Info" � title,author,type,chans,length,garb,addr ;flags%
�� (flags% � 1)=1 �
�$ $ctrl_title%="<no song loaded>"
 loaded%=�
 state=0
 �updatestate
$ $maxseqs%="000"
. $seq%="000"
8' �updateicon(control%,maxseq_icon%)
B& �updateicon(control%,crseq_icon%)
L�
V) $ctrl_title%=�block_to_string(title)
`�
j!block%=control%
t$ș "Wimp_GetWindowState",,block%
~&� ((block%!32) � %1<<16)=(1<<16) �
�N ș "Wimp_ForceRedraw",-1,(block%!4)+84,block%!16,block%!12,(block%!16)+44
��
�:
�� � loaded% � �
�:
�(ș "QTM_ReadSongLength" � seqs,patts
�$maxseqs%=�"000"+�seqs,3)
�.ș "QTM_Pos",-1,-1 � currentseq,currentevt
�$seq%=�"000"+�currentseq,3)
�&�updateicon(control%,maxseq_icon%)
�%�updateicon(control%,crseq_icon%)
�:
)ș "QTM_ReadPlayingTime" � ,,esttotal

<$timeind%=�(esttotal � 60)+":"+�"00"+�(esttotal � 60),2)
%$nameind%=�block_to_string(title)
O� author=0 � $authorind%="<unknown>" � $authorind%=�block_to_string(author)
(@� type=0 � $stypeind%="Sound tracker 15 inst" :� compatible"
2@� type=1 � $stypeind%="Sound tracker 31 inst" :� compatible"
<5� type=2 � $stypeind%="Protracker 31 inst (M.K.)"
F8� type=3 � $stypeind%="Startrekker 4 channel (FLT4)"
P8� type=4 � $stypeind%="Startrekker 8 channel (FLT8)"
Z$garbageind%=Ô(garb)
d� garb<0 �
n[ � $crpttypeind%<>"Corrupted" � $crpttypeind%="Corrupted":�updateicon(sinfo%,crpttype%)
x�
�a � $crpttypeind%<>"Garbage data" � $crpttypeind%="Garbage data":�updateicon(sinfo%,crpttype%)
��
�:
�$lenind%=�length
�!�updateicon(sinfo%,nameicon%)
�#�updateicon(sinfo%,authoricon%)
�"�updateicon(sinfo%,stypeicon%)
�!�updateicon(sinfo%,playtime%)
� �updateicon(sinfo%,corrupt%)
��updateicon(sinfo%,modlen%)
�:
��readsampinfos
�:
ș "QTM_SongStatus" � state
/� (state � 1<<2)=(1<<2) � state=1 � state=0
�updatestate
"�
,
6
@� �resetsonginfo
J$timeind%="0:00"
T $nameind%="<no song loaded>"
^$authorind%="<unknown>"
h$stypeind%="Dunno?"
r$garbageind%="0"
| $crpttypeind%="Garbage data"
�$lenind%="0"
�!�updateicon(sinfo%,nameicon%)
�#�updateicon(sinfo%,authoricon%)
�"�updateicon(sinfo%,stypeicon%)
�!�updateicon(sinfo%,playtime%)
� �updateicon(sinfo%,corrupt%)
��updateicon(sinfo%,modlen%)
��
�
�
�� �altersnd(icon%)
�3� icon%=vhqual% � usersnd%=�:�updatesndqual(24)
�2� icon%=hqual% � usersnd%=�:�updatesndqual(32)
 2� icon%=mqual% � usersnd%=�:�updatesndqual(48)
 2� icon%=lqual% � usersnd%=�:�updatesndqual(64)
 B� icon%=userqual% � usersnd%=�:�updatesndqual(�($usersndind%))
 &�
 0
 :
 D� �updatesndqual(newspeed)
 N?� newspeed=-1 � ș "QTM_SetSampleSpeed",newspeed � newspeed
 Xsamplespeed=newspeed
 b'ș "QTM_SetSampleSpeed",samplespeed
 l$usersndind%=�samplespeed
 v� � usersnd% �
 �f � samplespeed<>24 � samplespeed<>32 � samplespeed<>48 � samplespeed<>64 � usersnd%=� � usersnd%=�
 ��
 �:
 �#� samplespeed=24 � � usersnd% �
 �= � � �checkon(prefs%,vhqual%) �selecticon(prefs%,vhqual%)
 ��
 �< � �checkon(prefs%,vhqual%) �disableicon(prefs%,vhqual%)
 ��
 �:
 �#� samplespeed=32 � � usersnd% �
 �; � � �checkon(prefs%,hqual%) �selecticon(prefs%,hqual%)
 ��
 �: � �checkon(prefs%,hqual%) �disableicon(prefs%,hqual%)
!�
!:
!#� samplespeed=48 � � usersnd% �
! ; � � �checkon(prefs%,mqual%) �selecticon(prefs%,mqual%)
!*�
!4: � �checkon(prefs%,mqual%) �disableicon(prefs%,mqual%)
!>�
!H:
!R#� samplespeed=64 � � usersnd% �
!\; � � �checkon(prefs%,lqual%) �selecticon(prefs%,lqual%)
!f�
!p: � �checkon(prefs%,lqual%) �disableicon(prefs%,lqual%)
!z�
!�:
!�� usersnd% �
!�A � � �checkon(prefs%,userqual%) �selecticon(prefs%,userqual%)
!�$ �unshadeicon(prefs%,userentry%)
!�" �gaincaret(prefs%,userentry%)
!��
!�@ � �checkon(prefs%,userqual%) �disableicon(prefs%,userqual%)
!�" �shadeicon(prefs%,userentry%)
!�" �losecaret(prefs%,userentry%)
!��
!��
!�
!�
"� �updateseq
"$ș "OS_ReadMonotonicTime" � time
"Z� �checkon(control%,rewind_icon%) � r_count<time � �disableicon(control%,rewind_icon%)
"$X� �checkon(control%,fastf_icon%) � f_count<time � �disableicon(control%,fastf_icon%)
"./ș "XQTM_Pos",-1,-1 � newseq,newevt ;flags%
"8"� (flags% � 1)=1 � �initsong:�
"B� newseq<>currentseq �
"L currentseq=newseq
"V  $seq%=�"000"+�currentseq,3)
"`& �updateicon(control%,crseq_icon%)
"j�
"t�
"~
"�
"�� �play
"�ș "XQTM_Start"
"�state=1
"��updatestate
"��
"�
"�
"�� �stop
"�ș "XQTM_Stop"
"�state=0
"��updatestate
#�
#

#
#� �pause
#(ș "XQTM_Pause"
#2state=2
#<�updatestate
#F�
#P
#Z
#d� �toggalspeaker
#nspeaker=-1-speaker
#xH� speaker � ș "Sound_Speaker",2:�selecticon(control%,speaker_icon%)
#�K� � speaker � ș "Sound_Speaker",1:�disableicon(control%,speaker_icon%)
#��
#�
#�
#�� �updatestate
#�1� state=0 � �checkon(control%,stop_icon%)=0 �
#�% �selecticon(control%,stop_icon%)
#�F � �checkon(control%,play_icon%) �disableicon(control%,play_icon%)
#�H � �checkon(control%,pause_icon%) �disableicon(control%,pause_icon%)
#��
#�1� state=1 � �checkon(control%,play_icon%)=0 �
#�% �selecticon(control%,play_icon%)
#�F � �checkon(control%,stop_icon%) �disableicon(control%,stop_icon%)
$H � �checkon(control%,pause_icon%) �disableicon(control%,pause_icon%)
$�
$2� state=2 � �checkon(control%,pause_icon%)=0 �
$"& �selecticon(control%,pause_icon%)
$,F � �checkon(control%,stop_icon%) �disableicon(control%,stop_icon%)
$6F � �checkon(control%,play_icon%) �disableicon(control%,play_icon%)
$@�
$J�
$T
$^
$h� �qtmload(filename$,mess%)
$r+ș "OS_File",5,filename$ � file%,,type%
$|type%=(type%>>8) � &FFF
$�ș "QTM_Load",filename$,0
$�
loaded%=�
$�M� mess% � block%!12=block%!8:block%!16=4:ș"Wimp_SendMessage",19,block%,0
$�'� openctrl% � �openwindow(control%)
$�� temps_3d �
$�. $filevalid%="r1;Sfile_"+�"000"+�~type%,3)
$��
$�+ $filevalid%="Sfile_"+�"000"+�~type%,3)
$��
$��updateicon(sinfo%,ftype%)
$��
$�
$�
%
� �rewind
%J� � �checkon(control%,rewind_icon%) �selecticon(control%,rewind_icon%)
%$ș "OS_ReadMonotonicTime" � time
%&r_count=time+50
%0#ș "XQTM_Pos",-1,-1 � s ;flags%
%:� (flags% � 1)=0 �
%D � s>0 � s-=1
%N ș "XQTM_Pos",s,0
%X�
%b�
%l
%v
%�� �fastf
%�H� � �checkon(control%,fastf_icon%) �selecticon(control%,fastf_icon%)
%�$ș "OS_ReadMonotonicTime" � time
%�f_count=time+50
%�#ș "XQTM_Pos",-1,-1 � s ;flags%
%�� (flags% � 1)=0 �
%�	 s+=1
%� ș "XQTM_Pos",s,0
%��
%��
%�
%�
%�� �voldrag(icon%)
&$ș "Wimp_GetPointerInfo",,block%
&mouse_x%=!block%
&mouse_y%=block%!4
& !block%=control%
&*$ș "Wimp_GetWindowState",,block%
&4minx=block%!4:miny=block%!8
&>!maxx=block%!12:maxy=block%!16
&H:
&R$volbut_ind%="butd"
&\&�updateicon(control%,volbut_icon%)
&f"�movebut((mouse_x%-minx)-56/2)
&p:
&zblock%!4=7
&�block%!8=0
&�block%!12=0
&�block%!16=0
&�block%!20=0
&�block%!24=minx+22
&�block%!28=maxy-316-8
&�block%!32=minx+22+606
&�block%!36=maxy-316-8
&�ș "Wimp_DragBox",,block%
&�drag_x%=mouse_x%
&�drag%=�
&��
&�
'
'� �continuedrag
'$ș "Wimp_GetPointerInfo",,block%
'$Ȏ block%!16 �
'.; � volslide_icon%,volbut_icon% : �draggingvol(block%!0)
'8�
'B�
'L
'V
'`� �draggingvol(mouse_x%)
'j� drag_x%<>mouse_x% �
't drag_x%=mouse_x%
'~ !block%=control%
'�% ș "Wimp_GetWindowState",,block%
'�  minx=block%!4:miny=block%!8
'�" maxx=block%!12:maxy=block%!16
'� :
'�# �movebut((mouse_x%-minx)-56/2)
'�) ș"QTM_Volume",volbut_x%*volmultiply
'��
'��
'�
'�
'�� �redrawctrl
'�*ș "Wimp_RedrawWindow",,block% � more%
(ȕ more%
(
+ ș "Wimp_GetRectangle",,block% � more%
(�
(�
((
(2
(<� �enddrag
(F*� drag% � ș "Wimp_DragBox",,0:drag%=�
(P(ș"QTM_Volume",volbut_x%*volmultiply
(Z$volbut_ind%="butu"
(d&�updateicon(control%,volbut_icon%)
(n�
(x
(�
(�� �movebut(xpos)
(�newbut_x%=xpos-22
(�� newbut_x%<0 � newbut_x%=0
(�)� newbut_x%>608-56 � newbut_x%=608-56
(�� newbut_x%=volbut_x% �
(�:
(�*!block%=control%:block%!4=volbut_icon%
(� ș "Wimp_DeleteIcon",,block%
(�$volbut_ind%="butd"
(�zvolbut_icon%=�create_icon(control%,newbut_x%+22,volbut_y%,56,20,(1<<1)+(1<<8)+(6<<12),"",volbut_ind%,sprites%,�"butd")
(�Vș "Wimp_ForceRedraw",control%,volbut_x%+22,volbut_y%,volbut_x%+56+22,volbut_y%+20
(�Vș "Wimp_ForceRedraw",control%,newbut_x%+22,volbut_y%,newbut_x%+56+22,volbut_y%+20
)volbut_x%=newbut_x%
)�
)
)"
),� �losecaret(window%,icon%)
)6%ș"Wimp_GetCaretPosition",,block%
)@(� !block%=window% � block%!4=icon% �
)J; � �checkwindow(window%) � ș"Wimp_SetCaretPosition",-1
)T�  
)^�
)h
)r
)|� �gaincaret(window%,icon%)
)�%ș"Wimp_GetCaretPosition",,block%
)�*� !block%<>window% � block%!4<>icon% �
)�P � �checkwindow(window%) �  ș"Wimp_SetCaretPosition",window%,icon%,0,0,-1,0
)��  
)��
)�
)�
)�� �saveprefs
)�%file%=�("<QTMTrack$Dir>.Choices")
)��#file%,killmusic%
)��#file%,openctrl%
)��#file%,samplespeed
)��#file%,usersnd%
*�#file%
**�"Settype <QTMTrack$Dir>.Choices Data"
*�
*&
*0
*:� �restoreoldprefs
*Dkillmusic%=old_killmusic%
*Nopenctrl%=old_openctrl%
*X:
*b� killmusic% �
*lE � � �checkon(prefs%,quitkillm%) � �selecticon(prefs%,quitkillm%)
*v�
*�D � �checkon(prefs%,quitkillm%) � �disableicon(prefs%,quitkillm%)
*��
*�:
*�� openctrl% �
*�I � � �checkon(prefs%,ctrlwinopen%) � �selecticon(prefs%,ctrlwinopen%)
*��
*�H � �checkon(prefs%,ctrlwinopen%) � �disableicon(prefs%,ctrlwinopen%)
*��
*�:
*�samplespeed=old_smpspeed%
*�usersnd%=old_usersnd%
*��updatesndqual(samplespeed)
*��
+
+
+� �loadprefs
+ %file%=�("<QTMTrack$Dir>.Choices")
+*� file%=0 � =�
+4�#file%,killmusic%
+>�#file%,openctrl%
+H�#file%,samplespeed
+R�#file%,usersnd%
+\�#file%
+f=�
+p
+z
+�� �readoldprefs
+�old_killmusic%=killmusic%
+�old_openctrl%=openctrl%
+�old_smpspeed%=samplespeed
+�old_usersnd%=usersnd%
+��
+�
+�
+�� �clearsong
+�	�stop
+��resetsampinfos
+��resetsonginfo
+�ș"XQTM_Clear"
,�
,
,
,$� �readvolume
,.	� vol
,8ș"XQTM_Volume",-1 � vol
,B=vol
�

00000000  0d 00 0a 2a f4 20 51 54  4d 20 54 72 61 63 6b 65  |...*. QTM Tracke|
00000010  72 20 70 6c 61 79 65 72  20 61 70 70 6c 69 63 61  |r player applica|
00000020  74 69 6f 6e 20 76 31 2e  30 30 0d 00 14 05 f4 0d  |tion v1.00......|
00000030  00 1e 3f f4 20 54 61 6b  65 20 61 20 6c 6f 6f 6b  |..?. Take a look|
00000040  20 61 74 20 74 68 65 20  6c 69 73 74 69 6e 67 20  | at the listing |
00000050  69 66 20 79 6f 75 20 6c  69 6b 65 2c 20 62 75 74  |if you like, but|
00000060  20 64 6f 6e 27 74 20 63  6f 70 79 20 69 74 0d 00  | don't copy it..|
00000070  28 2d f4 20 20 2d 20 69  74 27 6c 6c 20 62 65 6e  |(-.  - it'll ben|
00000080  65 66 69 74 20 79 6f 75  20 69 6e 20 74 68 65 20  |efit you in the |
00000090  6c 6f 6e 67 20 72 75 6e  2e 2e 2e 0d 00 32 05 f4  |long run.....2..|
000000a0  0d 00 3c 1c f4 20 a9 20  31 39 39 34 20 50 68 6f  |..<.. . 1994 Pho|
000000b0  65 6e 69 78 2f 51 75 61  6e 74 75 6d 0d 00 46 05  |enix/Quantum..F.|
000000c0  3a 0d 00 50 18 c8 99 22  4f 53 5f 47 65 74 45 6e  |:..P..."OS_GetEn|
000000d0  76 22 20 b8 20 65 6e 76  24 0d 00 5a 1c 70 6f 73  |v" . env$..Z.pos|
000000e0  25 3d a9 28 65 6e 76 24  29 2d 31 3a 65 6e 64 24  |%=.(env$)-1:end$|
000000f0  3d 22 22 22 22 0d 00 64  05 f5 0d 00 6e 0c 20 70  |=""""..d....n. p|
00000100  6f 73 25 2d 3d 31 0d 00  78 17 20 62 69 74 24 3d  |os%-=1..x. bit$=|
00000110  c1 65 6e 76 24 2c 70 6f  73 25 2c 32 29 0d 00 82  |.env$,pos%,2)...|
00000120  20 fd 20 62 69 74 24 3d  22 22 22 20 22 20 84 20  | . bit$=""" " . |
00000130  c2 62 69 74 24 2c 31 29  3d 22 22 22 22 0d 00 8c  |.bit$,1)=""""...|
00000140  40 e7 20 62 69 74 24 3d  22 22 22 20 22 20 8c 20  |@. bit$=""" " . |
00000150  6c 6f 61 64 24 3d c1 65  6e 76 24 2c 70 6f 73 25  |load$=.env$,pos%|
00000160  2b 32 2c 28 a9 65 6e 76  24 2d 31 29 2d 70 6f 73  |+2,(.env$-1)-pos|
00000170  25 29 20 8b 20 6c 6f 61  64 24 3d 22 22 0d 00 96  |%) . load$=""...|
00000180  05 3a 0d 00 a0 1b f2 69  6e 69 74 64 65 73 6b 28  |.:.....initdesk(|
00000190  22 51 54 4d 20 50 6c 61  79 65 72 22 29 0d 00 aa  |"QTM Player")...|
000001a0  0c f2 72 75 6e 64 65 73  6b 0d 00 b4 0e f2 63 6c  |..rundesk.....cl|
000001b0  6f 73 65 64 6f 77 6e 0d  00 be 05 e0 0d 00 c8 04  |osedown.........|
000001c0  0d 00 d2 04 0d 00 dc 0f  dd f2 63 6c 6f 73 65 64  |..........closed|
000001d0  6f 77 6e 0d 00 e6 12 ee  20 85 20 f2 65 78 69 74  |own..... . .exit|
000001e0  65 72 72 6f 72 0d 00 f0  17 c8 99 20 22 57 69 6d  |error...... "Wim|
000001f0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 00 fa 13  |p_CloseDown"....|
00000200  77 69 6d 70 5f 72 75 6e  6e 69 6e 67 25 3d a3 0d  |wimp_running%=..|
00000210  01 04 32 e7 20 6b 69 6c  6c 6d 75 73 69 63 25 20  |..2. killmusic% |
00000220  8c 20 c8 99 22 58 4f 53  5f 43 4c 49 22 2c 22 52  |. .."XOS_CLI","R|
00000230  4d 4b 69 6c 6c 20 51 54  4d 54 72 61 63 6b 65 72  |MKill QTMTracker|
00000240  22 0d 01 0e 05 e1 0d 01  18 04 0d 01 22 04 0d 01  |"..........."...|
00000250  2c 10 dd 20 f2 69 6e 69  74 65 72 72 6f 72 0d 01  |,.. .initerror..|
00000260  36 15 e7 20 77 69 6d 70  5f 72 75 6e 6e 69 6e 67  |6.. wimp_running|
00000270  25 20 8c 0d 01 40 42 20  f2 63 61 6e 63 65 6c 62  |% ...@B .cancelb|
00000280  6f 78 28 22 22 2c 22 45  72 72 6f 72 20 77 68 69  |ox("","Error whi|
00000290  6c 65 20 69 6e 69 74 69  61 6c 69 73 69 6e 67 3a  |le initialising:|
000002a0  20 22 2b f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  | "+.$+" at line |
000002b0  22 2b c3 9e 29 0d 01 4a  18 20 c8 99 20 22 57 69  |"+..)..J. .. "Wi|
000002c0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 01 54  |mp_CloseDown"..T|
000002d0  05 cc 0d 01 5e 18 20 f6  3a f1 22 20 61 74 20 6c  |....^. .:." at l|
000002e0  69 6e 65 20 22 3b 9e 2f  31 30 0d 01 68 05 cd 0d  |ine ";./10..h...|
000002f0  01 72 05 e0 0d 01 7c 04  0d 01 86 04 0d 01 90 10  |.r....|.........|
00000300  dd 20 f2 65 78 69 74 65  72 72 6f 72 0d 01 9a 15  |. .exiterror....|
00000310  e7 20 77 69 6d 70 5f 72  75 6e 6e 69 6e 67 25 20  |. wimp_running% |
00000320  8c 0d 01 a4 2f 20 f2 63  61 6e 63 65 6c 62 6f 78  |..../ .cancelbox|
00000330  28 22 22 2c 22 45 72 72  6f 72 20 77 68 69 6c 65  |("","Error while|
00000340  20 71 75 69 74 74 69 6e  67 3a 20 22 2b f6 24 29  | quitting: "+.$)|
00000350  0d 01 ae 18 20 c8 99 20  22 57 69 6d 70 5f 43 6c  |.... .. "Wimp_Cl|
00000360  6f 73 65 44 6f 77 6e 22  0d 01 b8 05 cc 0d 01 c2  |oseDown"........|
00000370  18 20 f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |. .:." at line "|
00000380  3b 9e 2f 31 30 0d 01 cc  05 cd 0d 01 d6 05 e0 0d  |;./10...........|
00000390  01 e0 04 0d 01 ea 04 0d  01 f4 0c dd 20 f2 65 72  |............ .er|
000003a0  72 6f 72 0d 01 fe 66 f4  20 63 6c 69 63 6b 25 3d  |ror...f. click%=|
000003b0  46 4e 6f 6b 63 61 6e 63  65 6c 62 6f 78 28 22 22  |FNokcancelbox(""|
000003c0  2c 52 45 50 4f 52 54 24  2b 22 20 61 74 20 6c 69  |,REPORT$+" at li|
000003d0  6e 65 20 22 2b 53 54 52  24 45 52 4c 2b 22 2e 20  |ne "+STR$ERL+". |
000003e0  43 6c 69 63 6b 20 4f 4b  20 74 6f 20 63 6f 6e 74  |Click OK to cont|
000003f0  69 6e 75 65 20 6f 72 20  43 61 6e 63 65 6c 20 74  |inue or Cancel t|
00000400  6f 20 71 75 69 74 2e 22  29 0d 02 08 53 63 6c 69  |o quit.")...Scli|
00000410  63 6b 25 3d a4 6f 6b 63  61 6e 63 65 6c 62 6f 78  |ck%=.okcancelbox|
00000420  28 22 22 2c f6 24 2b 22  2e 20 43 6c 69 63 6b 20  |("",.$+". Click |
00000430  4f 4b 20 74 6f 20 63 6f  6e 74 69 6e 75 65 20 6f  |OK to continue o|
00000440  72 20 43 61 6e 63 65 6c  20 74 6f 20 71 75 69 74  |r Cancel to quit|
00000450  2e 20 28 22 2b c3 9e 2b  22 29 22 29 0d 02 12 1f  |. ("+..+")")....|
00000460  e7 20 63 6c 69 63 6b 25  3d 25 31 30 20 8c 20 f2  |. click%=%10 . .|
00000470  63 6c 6f 73 65 64 6f 77  6e 3a e0 0d 02 1c 05 e1  |closedown:......|
00000480  0d 02 26 04 0d 02 30 04  0d 02 3a 56 dd 20 f2 6f  |..&...0...:V. .o|
00000490  6b 62 6f 78 28 62 6f 78  74 69 74 6c 65 24 2c 6d  |kbox(boxtitle$,m|
000004a0  65 73 73 61 67 65 24 29  20 20 20 20 20 20 20 3a  |essage$)       :|
000004b0  f4 20 61 73 73 75 6d 65  73 20 69 74 20 69 73 20  |. assumes it is |
000004c0  61 6e 20 65 72 72 6f 72  2c 20 75 6e 6c 65 73 73  |an error, unless|
000004d0  20 62 6f 78 74 69 74 6c  65 24 3c 3e 22 22 0d 02  | boxtitle$<>""..|
000004e0  44 1b 24 28 62 6c 6f 63  6b 25 2b 34 29 3d 6d 65  |D.$(block%+4)=me|
000004f0  73 73 61 67 65 24 2b bd  30 0d 02 4e 57 e7 20 62  |ssage$+.0..NW. b|
00000500  6f 78 74 69 74 6c 65 24  3d 22 22 20 8c 20 62 6f  |oxtitle$="" . bo|
00000510  78 74 69 74 6c 65 24 3d  74 69 74 6c 65 24 3a 21  |xtitle$=title$:!|
00000520  62 6c 6f 63 6b 25 3d 9f  3a 66 6c 61 67 73 25 3d  |block%=.:flags%=|
00000530  25 30 30 30 30 31 20 8b  20 21 62 6c 6f 63 6b 25  |%00001 . !block%|
00000540  3d 31 3a 66 6c 61 67 73  25 3d 25 31 30 30 30 31  |=1:flags%=%10001|
00000550  0d 02 58 05 3a 0d 02 62  31 c8 99 20 22 57 69 6d  |..X.:..b1.. "Wim|
00000560  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 62  |p_ReportError",b|
00000570  6c 6f 63 6b 25 2c 66 6c  61 67 73 25 2c 62 6f 78  |lock%,flags%,box|
00000580  74 69 74 6c 65 24 0d 02  6c 05 e1 0d 02 76 04 0d  |title$..l....v..|
00000590  02 80 04 0d 02 8a 56 dd  20 f2 63 61 6e 63 65 6c  |......V. .cancel|
000005a0  62 6f 78 28 62 6f 78 74  69 74 6c 65 24 2c 6d 65  |box(boxtitle$,me|
000005b0  73 73 61 67 65 24 29 20  20 20 3a f4 20 61 73 73  |ssage$)   :. ass|
000005c0  75 6d 65 73 20 69 74 20  69 73 20 61 6e 20 65 72  |umes it is an er|
000005d0  72 6f 72 2c 20 75 6e 6c  65 73 73 20 62 6f 78 74  |ror, unless boxt|
000005e0  69 74 6c 65 24 3c 3e 22  22 0d 02 94 1b 24 28 62  |itle$<>""....$(b|
000005f0  6c 6f 63 6b 25 2b 34 29  3d 6d 65 73 73 61 67 65  |lock%+4)=message|
00000600  24 2b bd 30 0d 02 9e 57  e7 20 62 6f 78 74 69 74  |$+.0...W. boxtit|
00000610  6c 65 24 3d 22 22 20 8c  20 62 6f 78 74 69 74 6c  |le$="" . boxtitl|
00000620  65 24 3d 74 69 74 6c 65  24 3a 21 62 6c 6f 63 6b  |e$=title$:!block|
00000630  25 3d 9f 3a 66 6c 61 67  73 25 3d 25 30 30 30 31  |%=.:flags%=%0001|
00000640  30 20 8b 20 21 62 6c 6f  63 6b 25 3d 31 3a 66 6c  |0 . !block%=1:fl|
00000650  61 67 73 25 3d 25 31 30  30 31 30 0d 02 a8 05 3a  |ags%=%10010....:|
00000660  0d 02 b2 31 c8 99 20 22  57 69 6d 70 5f 52 65 70  |...1.. "Wimp_Rep|
00000670  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
00000680  2c 66 6c 61 67 73 25 2c  62 6f 78 74 69 74 6c 65  |,flags%,boxtitle|
00000690  24 0d 02 bc 05 e1 0d 02  c6 04 0d 02 d0 04 0d 02  |$...............|
000006a0  da 58 dd 20 a4 6f 6b 63  61 6e 63 65 6c 62 6f 78  |.X. .okcancelbox|
000006b0  28 62 6f 78 74 69 74 6c  65 24 2c 6d 65 73 73 61  |(boxtitle$,messa|
000006c0  67 65 24 29 20 20 20 3a  f4 20 61 73 73 75 6d 65  |ge$)   :. assume|
000006d0  73 20 69 74 20 69 73 20  61 6e 20 65 72 72 6f 72  |s it is an error|
000006e0  2c 20 75 6e 6c 65 73 73  20 62 6f 78 74 69 74 6c  |, unless boxtitl|
000006f0  65 24 3c 3e 22 22 0d 02  e4 1b 24 28 62 6c 6f 63  |e$<>""....$(bloc|
00000700  6b 25 2b 34 29 3d 6d 65  73 73 61 67 65 24 2b bd  |k%+4)=message$+.|
00000710  30 0d 02 ee 57 e7 20 62  6f 78 74 69 74 6c 65 24  |0...W. boxtitle$|
00000720  3d 22 22 20 8c 20 62 6f  78 74 69 74 6c 65 24 3d  |="" . boxtitle$=|
00000730  74 69 74 6c 65 24 3a 21  62 6c 6f 63 6b 25 3d 9f  |title$:!block%=.|
00000740  3a 66 6c 61 67 73 25 3d  25 30 30 30 31 31 20 8b  |:flags%=%00011 .|
00000750  20 21 62 6c 6f 63 6b 25  3d 31 3a 66 6c 61 67 73  | !block%=1:flags|
00000760  25 3d 25 31 30 30 31 31  0d 02 f8 05 3a 0d 03 02  |%=%10011....:...|
00000770  3e c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |>.. "Wimp_Report|
00000780  45 72 72 6f 72 22 2c 62  6c 6f 63 6b 25 2c 66 6c  |Error",block%,fl|
00000790  61 67 73 25 2c 62 6f 78  74 69 74 6c 65 24 20 b8  |ags%,boxtitle$ .|
000007a0  20 2c 72 65 73 70 6f 6e  73 65 25 0d 03 0c 0e 3d  | ,response%....=|
000007b0  72 65 73 70 6f 6e 73 65  25 0d 03 16 04 0d 03 20  |response%...... |
000007c0  04 0d 03 2a 15 dd 20 f2  69 6e 69 74 64 65 73 6b  |...*.. .initdesk|
000007d0  28 61 70 70 24 29 0d 03  34 13 77 69 6d 70 5f 72  |(app$)..4.wimp_r|
000007e0  75 6e 6e 69 6e 67 25 3d  a3 0d 03 3e 14 ee 20 85  |unning%=...>.. .|
000007f0  20 f2 69 6e 69 74 65 72  72 6f 72 3a e0 0d 03 48  | .initerror:...H|
00000800  0f 74 69 74 6c 65 24 3d  61 70 70 24 0d 03 52 05  |.title$=app$..R.|
00000810  3a 0d 03 5c 10 f2 6c 6f  61 64 73 70 72 69 74 65  |:..\..loadsprite|
00000820  73 0d 03 66 05 3a 0d 03  70 12 62 6c 6f 63 6b 6c  |s..f.:..p.blockl|
00000830  65 6e 25 3d 31 33 30 30  0d 03 7a 0b 71 75 69 74  |en%=1300..z.quit|
00000840  25 3d a3 0d 03 84 0d 72  69 73 63 6f 73 25 3d 32  |%=.....riscos%=2|
00000850  0d 03 8e 05 3a 0d 03 98  16 de 20 62 6c 6f 63 6b  |....:..... block|
00000860  25 20 62 6c 6f 63 6b 6c  65 6e 25 0d 03 a2 12 24  |% blocklen%....$|
00000870  62 6c 6f 63 6b 25 3d 22  54 41 53 4b 22 0d 03 ac  |block%="TASK"...|
00000880  05 3a 0d 03 b6 43 c8 99  20 22 57 69 6d 70 5f 49  |.:...C.. "Wimp_I|
00000890  6e 69 74 69 61 6c 69 73  65 22 2c 72 69 73 63 6f  |nitialise",risco|
000008a0  73 25 2a 31 30 30 2c 21  62 6c 6f 63 6b 25 2c 74  |s%*100,!block%,t|
000008b0  69 74 6c 65 24 20 b8 20  72 69 73 63 6f 73 25 2c  |itle$ . riscos%,|
000008c0  74 61 73 6b 25 0d 03 c0  13 77 69 6d 70 5f 72 75  |task%....wimp_ru|
000008d0  6e 6e 69 6e 67 25 3d b9  0d 03 ca 05 3a 0d 03 d4  |nning%=.....:...|
000008e0  0e f2 69 6e 69 74 6f 74  68 65 72 0d 03 de 12 f2  |..initother.....|
000008f0  6c 6f 61 64 74 65 6d 70  6c 61 74 65 73 0d 03 e8  |loadtemplates...|
00000900  0e f2 69 6e 69 74 69 63  6f 6e 73 0d 03 f2 0e f2  |..initicons.....|
00000910  69 6e 69 74 6d 65 6e 75  73 0d 03 fc 10 f2 69 6e  |initmenus.....in|
00000920  69 74 77 69 6e 64 6f 77  73 0d 04 06 11 f2 69 6e  |itwindows.....in|
00000930  69 74 51 54 4d 73 74 61  74 65 0d 04 10 05 e1 0d  |itQTMstate......|
00000940  04 1a 04 0d 04 24 04 0d  04 2e 12 dd 20 f2 6c 6f  |.....$...... .lo|
00000950  61 64 73 70 72 69 74 65  73 0d 04 38 0d ea 20 73  |adsprites..8.. s|
00000960  70 72 69 74 65 24 0d 04  42 2a c8 99 20 22 4f 53  |prite$..B*.. "OS|
00000970  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000980  65 22 2c eb 2c 35 20 b8  20 2c 2c 79 65 69 67 25  |e",.,5 . ,,yeig%|
00000990  0d 04 4c 45 e7 20 79 65  69 67 25 3d 32 20 8c 20  |..LE. yeig%=2 . |
000009a0  73 70 72 69 74 65 24 3d  22 53 70 72 69 74 65 73  |sprite$="Sprites|
000009b0  22 20 8b 20 73 70 72 69  74 65 24 3d 22 53 70 72  |" . sprite$="Spr|
000009c0  69 74 65 73 22 20 3a f4  20 6e 6f 20 53 70 72 69  |ites" :. no Spri|
000009d0  74 65 73 32 32 0d 04 56  05 3a 0d 04 60 30 66 69  |tes22..V.:..`0fi|
000009e0  6c 65 25 3d 8e 28 22 3c  51 54 4d 54 72 61 63 6b  |le%=.("<QTMTrack|
000009f0  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000a00  22 2b 73 70 72 69 74 65  24 29 0d 04 6a 25 e7 20  |"+sprite$)..j%. |
00000a10  66 69 6c 65 25 3d 30 20  80 20 73 70 72 69 74 65  |file%=0 . sprite|
00000a20  24 3d 22 53 70 72 69 74  65 73 32 32 22 20 8c 0d  |$="Sprites22" ..|
00000a30  04 74 16 20 73 70 72 69  74 65 24 3d 22 53 70 72  |.t. sprite$="Spr|
00000a40  69 74 65 73 22 0d 04 7e  31 20 66 69 6c 65 25 3d  |ites"..~1 file%=|
00000a50  8e 28 22 3c 51 54 4d 54  72 61 63 6b 24 44 69 72  |.("<QTMTrack$Dir|
00000a60  3e 2e 52 65 73 6f 75 72  63 65 73 2e 22 2b 73 70  |>.Resources."+sp|
00000a70  72 69 74 65 24 29 0d 04  88 05 cd 0d 04 92 16 73  |rite$).........s|
00000a80  70 72 69 74 65 6c 65 6e  25 3d a2 23 66 69 6c 65  |pritelen%=.#file|
00000a90  25 0d 04 9c 0b d9 23 66  69 6c 65 25 0d 04 a6 05  |%.....#file%....|
00000aa0  3a 0d 04 b0 1c de 20 73  70 72 69 74 65 73 25 20  |:..... sprites% |
00000ab0  73 70 72 69 74 65 6c 65  6e 25 2b 33 32 0d 04 ba  |spritelen%+32...|
00000ac0  1b 21 73 70 72 69 74 65  73 25 3d 73 70 72 69 74  |.!sprites%=sprit|
00000ad0  65 6c 65 6e 25 2b 33 32  0d 04 c4 11 73 70 72 69  |elen%+32....spri|
00000ae0  74 65 73 25 21 38 3d 31  36 0d 04 ce 23 c8 99 20  |tes%!8=16...#.. |
00000af0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000b00  36 2b 39 2c 73 70 72 69  74 65 73 25 0d 04 d8 44  |6+9,sprites%...D|
00000b10  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000b20  2c 32 35 36 2b 31 30 2c  73 70 72 69 74 65 73 25  |,256+10,sprites%|
00000b30  2c 22 3c 4f 62 65 79 24  44 69 72 3e 2e 52 65 73  |,"<Obey$Dir>.Res|
00000b40  6f 75 72 63 65 73 2e 22  2b 73 70 72 69 74 65 24  |ources."+sprite$|
00000b50  0d 04 e2 05 e1 0d 04 ec  04 0d 04 f6 04 0d 05 00  |................|
00000b60  14 dd 20 f2 6c 6f 61 64  74 65 6d 70 6c 61 74 65  |.. .loadtemplate|
00000b70  73 0d 05 0a 3e ea 20 74  65 6d 70 6c 61 74 65 24  |s...>. template$|
00000b80  2c 76 61 72 24 2c 6f 70  74 73 33 64 25 2c 69 64  |,var$,opts3d%,id|
00000b90  25 2c 69 6e 64 5f 6c 65  6e 25 2c 69 6e 66 6f 5f  |%,ind_len%,info_|
00000ba0  6c 65 6e 25 2c 70 61 6e  65 6c 5f 6c 65 6e 25 0d  |len%,panel_len%.|
00000bb0  05 14 05 3a 0d 05 1e 19  74 65 6d 70 6c 61 74 65  |...:....template|
00000bc0  24 3d 22 54 65 6d 70 6c  61 74 65 73 22 0d 05 28  |$="Templates"..(|
00000bd0  0e 74 65 6d 70 73 5f 33  64 3d a3 0d 05 32 05 3a  |.temps_3d=...2.:|
00000be0  0d 05 3c 0b e7 20 31 3d  32 20 8c 0d 05 46 15 20  |..<.. 1=2 ...F. |
00000bf0  e7 20 72 69 73 63 6f 73  25 3e 3d 33 30 30 20 8c  |. riscos%>=300 .|
00000c00  0d 05 50 12 20 20 de 20  6f 70 74 73 33 64 25 20  |..P.  . opts3d% |
00000c10  36 30 0d 05 5a 44 20 20  c8 99 20 22 58 4f 53 5f  |60..ZD  .. "XOS_|
00000c20  52 65 61 64 56 61 72 56  61 6c 22 2c 22 4e 65 77  |ReadVarVal","New|
00000c30  4c 6f 6f 6b 24 4f 70 74  69 6f 6e 73 22 2c 6f 70  |Look$Options",op|
00000c40  74 73 33 64 25 2c 36 30  2c 30 2c 30 20 b8 20 3b  |ts3d%,60,0,0 . ;|
00000c50  66 6c 61 67 73 25 0d 05  64 18 20 20 e7 20 28 66  |flags%..d.  . (f|
00000c60  6c 61 67 73 25 20 80 20  31 29 3d 30 20 8c 0d 05  |lags% . 1)=0 ...|
00000c70  6e 25 20 20 20 76 61 72  24 3d a4 62 6c 6f 63 6b  |n%   var$=.block|
00000c80  5f 74 6f 5f 73 74 72 69  6e 67 28 6f 70 74 73 33  |_to_string(opts3|
00000c90  64 25 29 0d 05 78 2e 20  20 20 e7 20 a7 76 61 72  |d%)..x.   . .var|
00000ca0  24 2c 22 33 44 57 22 29  3e 30 20 8c 20 74 65 6d  |$,"3DW")>0 . tem|
00000cb0  70 6c 61 74 65 24 3d 22  54 65 6d 70 73 5f 33 64  |plate$="Temps_3d|
00000cc0  22 0d 05 82 07 20 20 cd  0d 05 8c 06 20 cd 0d 05  |"....  ..... ...|
00000cd0  96 05 cd 0d 05 a0 05 3a  0d 05 aa 14 e7 20 72 69  |.......:..... ri|
00000ce0  73 63 6f 73 25 3e 3d 33  30 30 20 8c 0d 05 b4 11  |scos%>=300 .....|
00000cf0  20 de 20 6f 70 74 73 33  64 25 20 36 30 0d 05 be  | . opts3d% 60...|
00000d00  3a 20 c8 99 20 22 58 4f  53 5f 52 65 61 64 56 61  |: .. "XOS_ReadVa|
00000d10  72 56 61 6c 22 2c 22 51  54 4d 24 33 44 22 2c 6f  |rVal","QTM$3D",o|
00000d20  70 74 73 33 64 25 2c 36  30 2c 30 2c 30 20 b8 20  |pts3d%,60,0,0 . |
00000d30  3b 66 6c 61 67 73 25 0d  05 c8 17 20 e7 20 28 66  |;flags%.... . (f|
00000d40  6c 61 67 73 25 20 80 20  31 29 3d 30 20 8c 0d 05  |lags% . 1)=0 ...|
00000d50  d2 24 20 20 76 61 72 24  3d a4 62 6c 6f 63 6b 5f  |.$  var$=.block_|
00000d60  74 6f 5f 73 74 72 69 6e  67 28 6f 70 74 73 33 64  |to_string(opts3d|
00000d70  25 29 0d 05 dc 38 20 20  e7 20 a7 76 61 72 24 2c  |%)...8  . .var$,|
00000d80  22 59 65 73 22 29 3e 30  20 8c 20 74 65 6d 70 6c  |"Yes")>0 . templ|
00000d90  61 74 65 24 3d 22 54 65  6d 70 73 5f 33 64 22 3a  |ate$="Temps_3d":|
00000da0  74 65 6d 70 73 5f 33 64  3d b9 0d 05 e6 06 20 cd  |temps_3d=..... .|
00000db0  0d 05 f0 05 cd 0d 05 fa  05 3a 0d 06 04 10 6d 61  |.........:....ma|
00000dc0  78 69 63 6f 6e 73 25 3d  31 30 0d 06 0e 11 69 6e  |xicons%=10....in|
00000dd0  66 6f 5f 6c 65 6e 25 3d  31 37 30 0d 06 18 10 6f  |fo_len%=170....o|
00000de0  70 74 5f 6c 65 6e 25 3d  32 32 30 0d 06 22 05 3a  |pt_len%=220..".:|
00000df0  0d 06 2c 11 69 6e 64 5f  6c 65 6e 25 3d 31 33 30  |..,.ind_len%=130|
00000e00  30 0d 06 36 43 e7 20 62  6c 6f 63 6b 6c 65 6e 25  |0..6C. blocklen%|
00000e10  3c 38 38 2b 33 32 2a 6d  61 78 69 63 6f 6e 73 25  |<88+32*maxicons%|
00000e20  2b 6f 70 74 5f 6c 65 6e  25 20 85 20 32 35 35 2c  |+opt_len% . 255,|
00000e30  22 27 62 6c 6f 63 6b 25  27 20 74 6f 6f 20 73 6d  |"'block%' too sm|
00000e40  61 6c 6c 22 0d 06 40 13  de 20 69 6e 64 25 20 69  |all"..@.. ind% i|
00000e50  6e 64 5f 6c 65 6e 25 0d  06 4a 0c de 20 69 64 25  |nd_len%..J.. id%|
00000e60  20 31 32 0d 06 54 05 3a  0d 06 5e 3d c8 99 20 22  | 12..T.:..^=.. "|
00000e70  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000e80  65 22 2c 2c 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |e",,"<Obey$Dir>.|
00000e90  52 65 73 6f 75 72 63 65  73 2e 22 2b 74 65 6d 70  |Resources."+temp|
00000ea0  6c 61 74 65 24 0d 06 68  13 24 69 64 25 3d 22 70  |late$..h.$id%="p|
00000eb0  72 6f 67 49 6e 66 6f 22  0d 06 72 53 c8 99 20 22  |rogInfo"..rS.. "|
00000ec0  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000ed0  65 22 2c 2c 62 6c 6f 63  6b 25 2c 69 6e 64 25 2c  |e",,block%,ind%,|
00000ee0  69 6e 64 25 2b 69 6e 64  5f 6c 65 6e 25 2c 2d 31  |ind%+ind_len%,-1|
00000ef0  2c 69 64 25 2c 30 20 b8  20 2c 2c 72 65 6d 61 69  |,id%,0 . ,,remai|
00000f00  6e 25 2c 2c 2c 2c 6e 65  78 74 25 0d 06 7c 16 62  |n%,,,,next%..|.b|
00000f10  6c 6f 63 6b 25 21 36 34  3d 73 70 72 69 74 65 73  |lock%!64=sprites|
00000f20  25 0d 06 86 2d c8 99 20  22 57 69 6d 70 5f 43 72  |%...-.. "Wimp_Cr|
00000f30  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |eateWindow",,blo|
00000f40  63 6b 25 20 b8 20 69 6e  66 6f 62 6f 78 25 0d 06  |ck% . infobox%..|
00000f50  90 12 24 69 64 25 3d 22  63 6f 6e 74 72 6f 6c 22  |..$id%="control"|
00000f60  0d 06 9a 59 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...Y.. "Wimp_Loa|
00000f70  64 54 65 6d 70 6c 61 74  65 22 2c 2c 62 6c 6f 63  |dTemplate",,bloc|
00000f80  6b 25 2c 72 65 6d 61 69  6e 25 2c 69 6e 64 25 2b  |k%,remain%,ind%+|
00000f90  69 6e 64 5f 6c 65 6e 25  2c 2d 31 2c 69 64 25 2c  |ind_len%,-1,id%,|
00000fa0  6e 65 78 74 25 20 b8 2c  2c 72 65 6d 61 69 6e 25  |next% .,,remain%|
00000fb0  2c 2c 2c 2c 6e 65 78 74  25 0d 06 a4 16 62 6c 6f  |,,,,next%....blo|
00000fc0  63 6b 25 21 36 34 3d 73  70 72 69 74 65 73 25 0d  |ck%!64=sprites%.|
00000fd0  06 ae 2d c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..-.. "Wimp_Crea|
00000fe0  74 65 57 69 6e 64 6f 77  22 2c 2c 62 6c 6f 63 6b  |teWindow",,block|
00000ff0  25 20 b8 20 63 6f 6e 74  72 6f 6c 25 0d 06 b8 10  |% . control%....|
00001000  24 69 64 25 3d 22 70 72  65 66 73 22 0d 06 c2 59  |$id%="prefs"...Y|
00001010  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00001020  70 6c 61 74 65 22 2c 2c  62 6c 6f 63 6b 25 2c 72  |plate",,block%,r|
00001030  65 6d 61 69 6e 25 2c 69  6e 64 25 2b 69 6e 64 5f  |emain%,ind%+ind_|
00001040  6c 65 6e 25 2c 2d 31 2c  69 64 25 2c 6e 65 78 74  |len%,-1,id%,next|
00001050  25 20 b8 2c 2c 72 65 6d  61 69 6e 25 2c 2c 2c 2c  |% .,,remain%,,,,|
00001060  6e 65 78 74 25 0d 06 cc  2b c8 99 20 22 57 69 6d  |next%...+.. "Wim|
00001070  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00001080  2c 62 6c 6f 63 6b 25 20  b8 20 70 72 65 66 73 25  |,block% . prefs%|
00001090  0d 06 d6 13 24 69 64 25  3d 22 73 6f 6e 67 69 6e  |....$id%="songin|
000010a0  66 6f 22 0d 06 e0 59 c8  99 20 22 57 69 6d 70 5f  |fo"...Y.. "Wimp_|
000010b0  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 62  |LoadTemplate",,b|
000010c0  6c 6f 63 6b 25 2c 72 65  6d 61 69 6e 25 2c 69 6e  |lock%,remain%,in|
000010d0  64 25 2b 69 6e 64 5f 6c  65 6e 25 2c 2d 31 2c 69  |d%+ind_len%,-1,i|
000010e0  64 25 2c 6e 65 78 74 25  20 b8 2c 2c 72 65 6d 61  |d%,next% .,,rema|
000010f0  69 6e 25 2c 2c 2c 2c 6e  65 78 74 25 0d 06 ea 2b  |in%,,,,next%...+|
00001100  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00001110  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |indow",,block% .|
00001120  20 73 69 6e 66 6f 25 0d  06 f4 10 24 69 64 25 3d  | sinfo%....$id%=|
00001130  22 73 6c 69 73 74 22 0d  06 fe 59 c8 99 20 22 57  |"slist"...Y.. "W|
00001140  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00001150  22 2c 2c 62 6c 6f 63 6b  25 2c 72 65 6d 61 69 6e  |",,block%,remain|
00001160  25 2c 69 6e 64 25 2b 69  6e 64 5f 6c 65 6e 25 2c  |%,ind%+ind_len%,|
00001170  2d 31 2c 69 64 25 2c 6e  65 78 74 25 20 b8 2c 2c  |-1,id%,next% .,,|
00001180  72 65 6d 61 69 6e 25 2c  2c 2c 2c 6e 65 78 74 25  |remain%,,,,next%|
00001190  0d 07 08 2b c8 99 20 22  57 69 6d 70 5f 43 72 65  |...+.. "Wimp_Cre|
000011a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |ateWindow",,bloc|
000011b0  6b 25 20 b8 20 73 6c 69  73 74 25 0d 07 12 13 24  |k% . slist%....$|
000011c0  69 64 25 3d 22 73 6c 69  73 74 62 69 74 22 0d 07  |id%="slistbit"..|
000011d0  1c 59 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |.Y.. "Wimp_LoadT|
000011e0  65 6d 70 6c 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |emplate",,block%|
000011f0  2c 72 65 6d 61 69 6e 25  2c 69 6e 64 25 2b 69 6e  |,remain%,ind%+in|
00001200  64 5f 6c 65 6e 25 2c 2d  31 2c 69 64 25 2c 6e 65  |d_len%,-1,id%,ne|
00001210  78 74 25 20 b8 2c 2c 72  65 6d 61 69 6e 25 2c 2c  |xt% .,,remain%,,|
00001220  2c 2c 6e 65 78 74 25 0d  07 26 2e c8 99 20 22 57  |,,next%..&... "W|
00001230  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001240  22 2c 2c 62 6c 6f 63 6b  25 20 b8 20 73 6c 69 73  |",,block% . slis|
00001250  74 62 69 74 25 0d 07 30  1b c8 99 20 22 57 69 6d  |tbit%..0... "Wim|
00001260  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00001270  0d 07 3a 05 e1 0d 07 44  04 0d 07 4e 04 0d 07 58  |..:....D...N...X|
00001280  10 dd 20 f2 69 6e 69 74  69 63 6f 6e 73 0d 07 62  |.. .initicons..b|
00001290  12 de 20 69 63 6f 6e 6e  61 6d 65 25 20 31 32 0d  |.. iconname% 12.|
000012a0  07 6c 1a 24 69 63 6f 6e  6e 61 6d 65 25 3d 22 21  |.l.$iconname%="!|
000012b0  51 54 4d 54 72 61 63 6b  22 0d 07 76 05 3a 0d 07  |QTMTrack"..v.:..|
000012c0  80 43 69 63 6f 6e 62 61  72 69 63 6f 6e 25 3d a4  |.Ciconbaricon%=.|
000012d0  63 72 65 61 74 65 5f 69  63 6f 6e 28 2d 31 2c 30  |create_icon(-1,0|
000012e0  2c 30 2c 37 32 2c 36 38  2c 26 33 31 30 32 2c 22  |,0,72,68,&3102,"|
000012f0  22 2c 69 63 6f 6e 6e 61  6d 65 25 2c 31 2c 31 32  |",iconname%,1,12|
00001300  29 0d 07 8a 05 3a 0d 07  94 12 6d 61 78 73 65 71  |)....:....maxseq|
00001310  5f 69 63 6f 6e 25 3d 38  0d 07 9e 11 63 72 73 65  |_icon%=8....crse|
00001320  71 5f 69 63 6f 6e 25 3d  37 0d 07 a8 2f 6d 61 78  |q_icon%=7.../max|
00001330  73 65 71 73 25 3d a4 66  69 6e 64 69 6e 64 73 74  |seqs%=.findindst|
00001340  72 28 63 6f 6e 74 72 6f  6c 25 2c 6d 61 78 73 65  |r(control%,maxse|
00001350  71 5f 69 63 6f 6e 25 29  0d 07 b2 2a 73 65 71 25  |q_icon%)...*seq%|
00001360  3d a4 66 69 6e 64 69 6e  64 73 74 72 28 63 6f 6e  |=.findindstr(con|
00001370  74 72 6f 6c 25 2c 63 72  73 65 71 5f 69 63 6f 6e  |trol%,crseq_icon|
00001380  25 29 0d 07 bc 05 3a 0d  07 c6 12 72 65 77 69 6e  |%)....:....rewin|
00001390  64 5f 69 63 6f 6e 25 3d  31 0d 07 d0 10 70 6c 61  |d_icon%=1....pla|
000013a0  79 5f 69 63 6f 6e 25 3d  32 0d 07 da 11 66 61 73  |y_icon%=2....fas|
000013b0  74 66 5f 69 63 6f 6e 25  3d 33 0d 07 e4 10 73 74  |tf_icon%=3....st|
000013c0  6f 70 5f 69 63 6f 6e 25  3d 34 0d 07 ee 11 70 61  |op_icon%=4....pa|
000013d0  75 73 65 5f 69 63 6f 6e  25 3d 35 0d 07 f8 13 73  |use_icon%=5....s|
000013e0  70 65 61 6b 65 72 5f 69  63 6f 6e 25 3d 36 0d 08  |peaker_icon%=6..|
000013f0  02 50 76 6f 6c 73 6c 69  64 65 5f 69 63 6f 6e 25  |.Pvolslide_icon%|
00001400  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 63 6f  |=.create_icon(co|
00001410  6e 74 72 6f 6c 25 2c 32  32 2c 2d 33 37 34 2c 36  |ntrol%,22,-374,6|
00001420  30 38 2c 32 30 2c 28 31  3c 3c 31 29 2b 28 36 3c  |08,20,(1<<1)+(6<|
00001430  3c 31 32 29 2c 22 22 2c  30 2c 30 2c 30 29 0d 08  |<12),"",0,0,0)..|
00001440  0c 05 3a 0d 08 16 1b 76  6f 6c 6d 75 6c 74 69 70  |..:....volmultip|
00001450  6c 79 3d 36 34 2f 28 36  30 38 2d 35 36 29 0d 08  |ly=64/(608-56)..|
00001460  20 16 76 6f 6c 64 69 76  3d 28 36 30 38 2d 35 36  | .voldiv=(608-56|
00001470  29 2f 36 34 0d 08 2a 20  76 6f 6c 62 75 74 5f 78  |)/64..* volbut_x|
00001480  25 3d a4 72 65 61 64 76  6f 6c 75 6d 65 2a 76 6f  |%=.readvolume*vo|
00001490  6c 64 69 76 0d 08 34 12  76 6f 6c 62 75 74 5f 79  |ldiv..4.volbut_y|
000014a0  25 3d 2d 33 37 34 0d 08  3e 14 de 20 76 6f 6c 62  |%=-374..>.. volb|
000014b0  75 74 5f 69 6e 64 25 20  32 30 0d 08 48 17 24 76  |ut_ind% 20..H.$v|
000014c0  6f 6c 62 75 74 5f 69 6e  64 25 3d 22 62 75 74 75  |olbut_ind%="butu|
000014d0  22 0d 08 52 7a 76 6f 6c  62 75 74 5f 69 63 6f 6e  |"..Rzvolbut_icon|
000014e0  25 3d a4 63 72 65 61 74  65 5f 69 63 6f 6e 28 63  |%=.create_icon(c|
000014f0  6f 6e 74 72 6f 6c 25 2c  32 32 2b 76 6f 6c 62 75  |ontrol%,22+volbu|
00001500  74 5f 78 25 2c 76 6f 6c  62 75 74 5f 79 25 2c 35  |t_x%,volbut_y%,5|
00001510  36 2c 32 30 2c 28 31 3c  3c 31 29 2b 28 31 3c 3c  |6,20,(1<<1)+(1<<|
00001520  38 29 2b 28 36 3c 3c 31  32 29 2c 22 22 2c 76 6f  |8)+(6<<12),"",vo|
00001530  6c 62 75 74 5f 69 6e 64  25 2c 73 70 72 69 74 65  |lbut_ind%,sprite|
00001540  73 25 2c a9 22 62 75 74  75 22 29 0d 08 5c 05 3a  |s%,."butu")..\.:|
00001550  0d 08 66 38 6e 61 6d 65  69 63 6f 6e 25 3d 36 20  |..f8nameicon%=6 |
00001560  20 3a 6e 61 6d 65 69 6e  64 25 3d a4 66 69 6e 64  | :nameind%=.find|
00001570  69 6e 64 73 74 72 28 73  69 6e 66 6f 25 2c 6e 61  |indstr(sinfo%,na|
00001580  6d 65 69 63 6f 6e 25 29  0d 08 70 3c 61 75 74 68  |meicon%)..p<auth|
00001590  6f 72 69 63 6f 6e 25 3d  37 3a 61 75 74 68 6f 72  |oricon%=7:author|
000015a0  69 6e 64 25 3d a4 66 69  6e 64 69 6e 64 73 74 72  |ind%=.findindstr|
000015b0  28 73 69 6e 66 6f 25 2c  61 75 74 68 6f 72 69 63  |(sinfo%,authoric|
000015c0  6f 6e 25 29 0d 08 7a 3a  73 74 79 70 65 69 63 6f  |on%)..z:stypeico|
000015d0  6e 25 3d 38 20 3a 73 74  79 70 65 69 6e 64 25 3d  |n%=8 :stypeind%=|
000015e0  a4 66 69 6e 64 69 6e 64  73 74 72 28 73 69 6e 66  |.findindstr(sinf|
000015f0  6f 25 2c 73 74 79 70 65  69 63 6f 6e 25 29 0d 08  |o%,stypeicon%)..|
00001600  84 38 70 6c 61 79 74 69  6d 65 25 3d 39 20 20 3a  |.8playtime%=9  :|
00001610  74 69 6d 65 69 6e 64 25  3d a4 66 69 6e 64 69 6e  |timeind%=.findin|
00001620  64 73 74 72 28 73 69 6e  66 6f 25 2c 70 6c 61 79  |dstr(sinfo%,play|
00001630  74 69 6d 65 25 29 0d 08  8e 35 6d 6f 64 6c 65 6e  |time%)...5modlen|
00001640  25 3d 31 31 20 20 20 3a  6c 65 6e 69 6e 64 25 3d  |%=11   :lenind%=|
00001650  a4 66 69 6e 64 69 6e 64  73 74 72 28 73 69 6e 66  |.findindstr(sinf|
00001660  6f 25 2c 6d 6f 64 6c 65  6e 25 29 0d 08 98 3a 63  |o%,modlen%)...:c|
00001670  6f 72 72 75 70 74 25 3d  31 33 20 20 3a 67 61 72  |orrupt%=13  :gar|
00001680  62 61 67 65 69 6e 64 25  3d a4 66 69 6e 64 69 6e  |bageind%=.findin|
00001690  64 73 74 72 28 73 69 6e  66 6f 25 2c 63 6f 72 72  |dstr(sinfo%,corr|
000016a0  75 70 74 25 29 0d 08 a2  3c 63 72 70 74 74 79 70  |upt%)...<crpttyp|
000016b0  65 25 3d 34 20 20 3a 63  72 70 74 74 79 70 65 69  |e%=4  :crpttypei|
000016c0  6e 64 25 3d a4 66 69 6e  64 69 6e 64 73 74 72 28  |nd%=.findindstr(|
000016d0  73 69 6e 66 6f 25 2c 63  72 70 74 74 79 70 65 25  |sinfo%,crpttype%|
000016e0  29 0d 08 ac 39 66 74 79  70 65 25 3d 31 35 20 20  |)...9ftype%=15  |
000016f0  20 20 3a 66 69 6c 65 76  61 6c 69 64 25 3d a4 66  |  :filevalid%=.f|
00001700  69 6e 64 76 61 6c 69 64  73 74 72 28 73 69 6e 66  |indvalidstr(sinf|
00001710  6f 25 2c 66 74 79 70 65  25 29 0d 08 b6 05 3a 0d  |o%,ftype%)....:.|
00001720  08 c0 0d 76 68 71 75 61  6c 25 3d 32 0d 08 ca 0c  |...vhqual%=2....|
00001730  68 71 75 61 6c 25 3d 33  0d 08 d4 0c 6d 71 75 61  |hqual%=3....mqua|
00001740  6c 25 3d 34 0d 08 de 0c  6c 71 75 61 6c 25 3d 35  |l%=4....lqual%=5|
00001750  0d 08 e8 0f 75 73 65 72  71 75 61 6c 25 3d 36 0d  |....userqual%=6.|
00001760  08 f2 3c 75 73 65 72 65  6e 74 72 79 25 3d 37 20  |..<userentry%=7 |
00001770  3a 75 73 65 72 73 6e 64  69 6e 64 25 3d a4 66 69  |:usersndind%=.fi|
00001780  6e 64 69 6e 64 73 74 72  28 70 72 65 66 73 25 2c  |ndindstr(prefs%,|
00001790  75 73 65 72 65 6e 74 72  79 25 29 0d 08 fc 13 63  |userentry%)....c|
000017a0  74 72 6c 77 69 6e 6f 70  65 6e 25 3d 31 30 0d 09  |trlwinopen%=10..|
000017b0  06 11 71 75 69 74 6b 69  6c 6c 6d 25 3d 31 31 0d  |..quitkillm%=11.|
000017c0  09 10 0d 73 61 76 65 70  25 3d 31 32 0d 09 1a 0f  |...savep%=12....|
000017d0  63 61 6e 63 65 6c 70 25  3d 31 33 0d 09 24 0a 6f  |cancelp%=13..$.o|
000017e0  6b 70 25 3d 39 0d 09 2e  0e 75 73 65 72 73 6e 64  |kp%=9....usersnd|
000017f0  25 3d a3 0d 09 38 05 e1  0d 09 42 04 0d 09 4c 04  |%=...8....B...L.|
00001800  0d 09 56 10 dd 20 f2 69  6e 69 74 6d 65 6e 75 73  |..V.. .initmenus|
00001810  0d 09 60 53 de 20 69 63  6f 6e 62 61 72 6d 65 6e  |..`S. iconbarmen|
00001820  75 25 20 32 38 2b 32 34  2a 34 20 20 20 20 20 20  |u% 28+24*4      |
00001830  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001840  20 20 3a 20 f4 20 32 38  2b 32 34 2a 6e 75 6d 62  |  : . 28+24*numb|
00001850  65 72 20 6f 66 20 69 74  65 6d 73 20 69 6e 20 6d  |er of items in m|
00001860  65 6e 75 0d 09 6a 53 de  20 73 6f 6e 67 6d 65 6e  |enu..jS. songmen|
00001870  75 25 20 32 38 2b 32 34  2a 34 20 20 20 20 20 20  |u% 28+24*4      |
00001880  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001890  20 20 20 20 20 3a 20 f4  20 32 38 2b 32 34 2a 6e  |     : . 28+24*n|
000018a0  75 6d 62 65 72 20 6f 66  20 69 74 65 6d 73 20 69  |umber of items i|
000018b0  6e 20 6d 65 6e 75 0d 09  74 05 3a 0d 09 7e 63 74  |n menu..t.:..~ct|
000018c0  65 6d 70 25 3d a4 63 72  65 61 74 65 6d 65 6e 75  |emp%=.createmenu|
000018d0  28 73 6f 6e 67 6d 65 6e  75 25 2c 22 53 6f 6e 67  |(songmenu%,"Song|
000018e0  2c 34 2c 30 2c 30 2c 43  6f 6e 74 72 6f 6c 73 2c  |,4,0,0,Controls,|
000018f0  30 2c 30 2c 49 6e 66 6f  72 6d 61 74 69 6f 6e 2c  |0,0,Information,|
00001900  30 2c 30 2c 53 61 6d 70  6c 65 20 6c 69 73 74 2c  |0,0,Sample list,|
00001910  26 38 30 2c 2d 31 2c 43  6c 65 61 72 22 29 0d 09  |&80,-1,Clear")..|
00001920  88 83 69 62 6d 65 6e 75  5f 6c 65 6e 25 3d a4 63  |..ibmenu_len%=.c|
00001930  72 65 61 74 65 6d 65 6e  75 28 69 63 6f 6e 62 61  |reatemenu(iconba|
00001940  72 6d 65 6e 75 25 2c 22  51 54 4d 20 50 6c 61 79  |rmenu%,"QTM Play|
00001950  65 72 2c 34 2c 30 2c 22  2b c3 28 69 6e 66 6f 62  |er,4,0,"+.(infob|
00001960  6f 78 25 29 2b 22 2c 49  6e 66 6f 2c 30 2c 22 2b  |ox%)+",Info,0,"+|
00001970  c3 28 73 6f 6e 67 6d 65  6e 75 25 29 2b 22 2c 53  |.(songmenu%)+",S|
00001980  6f 6e 67 2c 30 2c 30 2c  50 72 65 66 65 72 65 6e  |ong,0,0,Preferen|
00001990  63 65 73 2c 26 38 30 2c  2d 31 2c 51 75 69 74 22  |ces,&80,-1,Quit"|
000019a0  29 0d 09 92 05 e1 0d 09  9c 04 0d 09 a6 04 0d 09  |)...............|
000019b0  b0 12 dd 20 f2 69 6e 69  74 77 69 6e 64 6f 77 73  |... .initwindows|
000019c0  0d 09 ba 29 69 6e 66 6f  5f 76 65 72 73 69 6f 6e  |...)info_version|
000019d0  25 3d a4 66 69 6e 64 69  6e 64 73 74 72 28 69 6e  |%=.findindstr(in|
000019e0  66 6f 62 6f 78 25 2c 39  29 0d 09 c4 27 24 69 6e  |fobox%,9)...'$in|
000019f0  66 6f 5f 76 65 72 73 69  6f 6e 25 3d 22 31 2e 30  |fo_version%="1.0|
00001a00  30 20 28 32 30 20 41 70  72 20 31 39 39 34 29 22  |0 (20 Apr 1994)"|
00001a10  0d 09 ce 05 3a 0d 09 d8  14 21 62 6c 6f 63 6b 25  |....:....!block%|
00001a20  3d 63 6f 6e 74 72 6f 6c  25 0d 09 e2 23 c8 99 20  |=control%...#.. |
00001a30  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 49  |"Wimp_GetWindowI|
00001a40  6e 66 6f 22 2c 2c 62 6c  6f 63 6b 25 0d 09 ec 1d  |nfo",,block%....|
00001a50  63 74 72 6c 5f 74 69 74  6c 65 25 3d 62 6c 6f 63  |ctrl_title%=bloc|
00001a60  6b 25 21 28 37 32 2b 34  29 0d 09 f6 23 24 63 74  |k%!(72+4)...#$ct|
00001a70  72 6c 5f 74 69 74 6c 65  25 3d 22 3c 6e 6f 20 73  |rl_title%="<no s|
00001a80  6f 6e 67 20 6c 6f 61 64  65 64 3e 22 0d 0a 00 05  |ong loaded>"....|
00001a90  3a 0d 0a 0a 14 de 20 73  61 6d 70 6c 65 69 63 28  |:..... sampleic(|
00001aa0  33 31 2c 37 29 0d 0a 14  5b de 20 73 6e 61 6d 65  |31,7)...[. sname|
00001ab0  73 25 20 32 34 2a 33 31  2c 20 73 76 6f 6c 73 25  |s% 24*31, svols%|
00001ac0  20 34 2a 33 31 2c 20 73  6c 65 6e 67 74 68 73 25  | 4*31, slengths%|
00001ad0  20 38 2a 33 31 2c 20 73  72 65 70 6c 65 6e 73 25  | 8*31, sreplens%|
00001ae0  20 38 2a 33 31 2c 20 73  72 65 70 6f 66 66 73 25  | 8*31, srepoffs%|
00001af0  20 38 2a 33 31 2c 20 73  66 74 25 20 34 2a 33 31  | 8*31, sft% 4*31|
00001b00  0d 0a 1e 13 f2 72 65 73  65 74 73 61 6d 70 69 6e  |.....resetsampin|
00001b10  66 6f 73 0d 0a 28 0d 73  6d 70 68 3d 31 33 2a 34  |fos..(.smph=13*4|
00001b20  0d 0a 32 0c 73 6d 70 79  3d 2d 35 32 0d 0a 3c 22  |..2.smpy=-52..<"|
00001b30  6e 6f 6e 69 6e 64 69 63  3d 28 31 3c 3c 30 29 2b  |nonindic=(1<<0)+|
00001b40  28 33 3c 3c 33 29 2b 28  37 3c 3c 32 34 29 0d 0a  |(3<<3)+(7<<24)..|
00001b50  46 28 69 6e 64 69 63 5f  6c 3d 28 31 3c 3c 30 29  |F(indic_l=(1<<0)|
00001b60  2b 28 31 3c 3c 34 29 2b  28 31 3c 3c 38 29 2b 28  |+(1<<4)+(1<<8)+(|
00001b70  37 3c 3c 32 34 29 0d 0a  50 2f 69 6e 64 69 63 5f  |7<<24)..P/indic_|
00001b80  72 3d 28 31 3c 3c 30 29  2b 28 31 3c 3c 34 29 2b  |r=(1<<0)+(1<<4)+|
00001b90  28 31 3c 3c 38 29 2b 28  31 3c 3c 39 29 2b 28 37  |(1<<8)+(1<<9)+(7|
00001ba0  3c 3c 32 34 29 0d 0a 5a  13 e3 20 73 61 6d 70 6c  |<<24)..Z.. sampl|
00001bb0  65 3d 31 20 b8 20 33 31  0d 0a 64 61 20 73 61 6d  |e=1 . 31..da sam|
00001bc0  70 6c 65 69 63 28 73 61  6d 70 6c 65 2c 31 29 3d  |pleic(sample,1)=|
00001bd0  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 73 6c 69  |.create_icon(sli|
00001be0  73 74 62 69 74 25 2c 31  38 2c 73 6d 70 79 2c 31  |stbit%,18,smpy,1|
00001bf0  36 2a 32 2c 38 2a 34 2c  6e 6f 6e 69 6e 64 69 63  |6*2,8*4,nonindic|
00001c00  2c c2 22 30 30 22 2b c3  7e 73 61 6d 70 6c 65 2c  |,."00"+.~sample,|
00001c10  32 29 2c 30 2c 30 2c 30  29 0d 0a 6e 6f 20 73 61  |2),0,0,0)..no sa|
00001c20  6d 70 6c 65 69 63 28 73  61 6d 70 6c 65 2c 32 29  |mpleic(sample,2)|
00001c30  3d a4 63 72 65 61 74 65  5f 69 63 6f 6e 28 73 6c  |=.create_icon(sl|
00001c40  69 73 74 62 69 74 25 2c  31 36 2a 34 2b 31 32 2c  |istbit%,16*4+12,|
00001c50  73 6d 70 79 2c 32 33 2a  31 36 2c 38 2a 34 2c 69  |smpy,23*16,8*4,i|
00001c60  6e 64 69 63 5f 6c 2c 22  22 2c 28 73 6e 61 6d 65  |ndic_l,"",(sname|
00001c70  73 25 2b 28 73 61 6d 70  6c 65 2d 31 29 2a 32 34  |s%+(sample-1)*24|
00001c80  29 2c 2d 31 2c 32 34 29  0d 0a 78 6b 20 73 61 6d  |),-1,24)..xk sam|
00001c90  70 6c 65 69 63 28 73 61  6d 70 6c 65 2c 33 29 3d  |pleic(sample,3)=|
00001ca0  a4 63 72 65 61 74 65 5f  69 63 6f 6e 28 73 6c 69  |.create_icon(sli|
00001cb0  73 74 62 69 74 25 2c 31  36 2a 32 39 2b 34 2c 73  |stbit%,16*29+4,s|
00001cc0  6d 70 79 2c 31 38 2a 32  2c 38 2a 34 2c 69 6e 64  |mpy,18*2,8*4,ind|
00001cd0  69 63 5f 72 2c 22 22 2c  28 73 76 6f 6c 73 25 2b  |ic_r,"",(svols%+|
00001ce0  28 73 61 6d 70 6c 65 2d  31 29 2a 34 29 2c 2d 31  |(sample-1)*4),-1|
00001cf0  2c 33 29 0d 0a 82 71 20  73 61 6d 70 6c 65 69 63  |,3)...q sampleic|
00001d00  28 73 61 6d 70 6c 65 2c  34 29 3d a4 63 72 65 61  |(sample,4)=.crea|
00001d10  74 65 5f 69 63 6f 6e 28  73 6c 69 73 74 62 69 74  |te_icon(slistbit|
00001d20  25 2c 31 36 2a 33 31 2b  31 30 2c 73 6d 70 79 2c  |%,16*31+10,smpy,|
00001d30  31 36 2a 37 2d 34 2c 38  2a 34 2c 69 6e 64 69 63  |16*7-4,8*4,indic|
00001d40  5f 72 2c 22 22 2c 28 73  6c 65 6e 67 74 68 73 25  |_r,"",(slengths%|
00001d50  2b 28 73 61 6d 70 6c 65  2d 31 29 2a 38 29 2c 2d  |+(sample-1)*8),-|
00001d60  31 2c 37 29 0d 0a 8c 71  20 73 61 6d 70 6c 65 69  |1,7)...q samplei|
00001d70  63 28 73 61 6d 70 6c 65  2c 35 29 3d a4 63 72 65  |c(sample,5)=.cre|
00001d80  61 74 65 5f 69 63 6f 6e  28 73 6c 69 73 74 62 69  |ate_icon(slistbi|
00001d90  74 25 2c 31 36 2a 33 38  2b 31 30 2c 73 6d 70 79  |t%,16*38+10,smpy|
00001da0  2c 31 36 2a 37 2d 34 2c  38 2a 34 2c 69 6e 64 69  |,16*7-4,8*4,indi|
00001db0  63 5f 72 2c 22 22 2c 28  73 72 65 70 6c 65 6e 73  |c_r,"",(sreplens|
00001dc0  25 2b 28 73 61 6d 70 6c  65 2d 31 29 2a 38 29 2c  |%+(sample-1)*8),|
00001dd0  2d 31 2c 37 29 0d 0a 96  71 20 73 61 6d 70 6c 65  |-1,7)...q sample|
00001de0  69 63 28 73 61 6d 70 6c  65 2c 36 29 3d a4 63 72  |ic(sample,6)=.cr|
00001df0  65 61 74 65 5f 69 63 6f  6e 28 73 6c 69 73 74 62  |eate_icon(slistb|
00001e00  69 74 25 2c 31 36 2a 34  35 2b 31 30 2c 73 6d 70  |it%,16*45+10,smp|
00001e10  79 2c 31 36 2a 37 2d 34  2c 38 2a 34 2c 69 6e 64  |y,16*7-4,8*4,ind|
00001e20  69 63 5f 72 2c 22 22 2c  28 73 72 65 70 6f 66 66  |ic_r,"",(srepoff|
00001e30  73 25 2b 28 73 61 6d 70  6c 65 2d 31 29 2a 38 29  |s%+(sample-1)*8)|
00001e40  2c 2d 31 2c 37 29 0d 0a  a0 6c 20 73 61 6d 70 6c  |,-1,7)...l sampl|
00001e50  65 69 63 28 73 61 6d 70  6c 65 2c 37 29 3d a4 63  |eic(sample,7)=.c|
00001e60  72 65 61 74 65 5f 69 63  6f 6e 28 73 6c 69 73 74  |reate_icon(slist|
00001e70  62 69 74 25 2c 31 36 2a  35 35 2b 31 30 2c 73 6d  |bit%,16*55+10,sm|
00001e80  70 79 2c 31 36 2a 33 2d  34 2c 38 2a 34 2c 69 6e  |py,16*3-4,8*4,in|
00001e90  64 69 63 5f 72 2c 22 22  2c 28 73 66 74 25 2b 28  |dic_r,"",(sft%+(|
00001ea0  73 61 6d 70 6c 65 2d 31  29 2a 34 29 2c 2d 31 2c  |sample-1)*4),-1,|
00001eb0  33 29 0d 0a aa 0f 20 73  6d 70 79 2d 3d 73 6d 70  |3).... smpy-=smp|
00001ec0  68 0d 0a b4 05 ed 0d 0a  be 05 e1 0d 0a c8 04 0d  |h...............|
00001ed0  0a d2 04 0d 0a dc 15 dd  20 f2 72 65 73 65 74 73  |........ .resets|
00001ee0  61 6d 70 69 6e 66 6f 73  0d 0a e6 13 e3 20 73 61  |ampinfos..... sa|
00001ef0  6d 70 6c 65 3d 31 20 b8  20 33 31 0d 0a f0 20 20  |mple=1 . 31...  |
00001f00  24 28 73 6e 61 6d 65 73  25 2b 28 73 61 6d 70 6c  |$(snames%+(sampl|
00001f10  65 2d 31 29 2a 32 34 29  3d 22 22 0d 0a fa 1f 20  |e-1)*24)="".... |
00001f20  24 28 73 76 6f 6c 73 25  2b 28 73 61 6d 70 6c 65  |$(svols%+(sample|
00001f30  2d 31 29 2a 34 29 3d 22  30 22 0d 0b 04 22 20 24  |-1)*4)="0"..." $|
00001f40  28 73 6c 65 6e 67 74 68  73 25 2b 28 73 61 6d 70  |(slengths%+(samp|
00001f50  6c 65 2d 31 29 2a 38 29  3d 22 30 22 0d 0b 0e 22  |le-1)*8)="0"..."|
00001f60  20 24 28 73 72 65 70 6c  65 6e 73 25 2b 28 73 61  | $(sreplens%+(sa|
00001f70  6d 70 6c 65 2d 31 29 2a  38 29 3d 22 30 22 0d 0b  |mple-1)*8)="0"..|
00001f80  18 22 20 24 28 73 72 65  70 6f 66 66 73 25 2b 28  |." $(srepoffs%+(|
00001f90  73 61 6d 70 6c 65 2d 31  29 2a 38 29 3d 22 30 22  |sample-1)*8)="0"|
00001fa0  0d 0b 22 1d 20 24 28 73  66 74 25 2b 28 73 61 6d  |..". $(sft%+(sam|
00001fb0  70 6c 65 2d 31 29 2a 34  29 3d 22 30 22 0d 0b 2c  |ple-1)*4)="0"..,|
00001fc0  05 ed 0d 0b 36 1f e7 20  a4 63 68 65 63 6b 77 69  |....6.. .checkwi|
00001fd0  6e 64 6f 77 28 73 6c 69  73 74 62 69 74 25 29 20  |ndow(slistbit%) |
00001fe0  8c 0d 0b 40 16 20 21 62  6c 6f 63 6b 25 3d 73 6c  |...@. !block%=sl|
00001ff0  69 73 74 62 69 74 25 0d  0b 4a 24 20 c8 99 22 57  |istbit%..J$ .."W|
00002000  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002010  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 0b 54 3a 20  |te",,block%..T: |
00002020  c8 99 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |.."Wimp_ForceRed|
00002030  72 61 77 22 2c 73 6c 69  73 74 62 69 74 25 2c 30  |raw",slistbit%,0|
00002040  2c 2d 33 33 32 2b 62 6c  6f 63 6b 25 21 32 34 2c  |,-332+block%!24,|
00002050  39 35 30 2c 30 0d 0b 5e  05 cd 0d 0b 68 05 e1 0d  |950,0..^....h...|
00002060  0b 72 04 0d 0b 7c 04 0d  0b 86 14 dd 20 f2 72 65  |.r...|...... .re|
00002070  61 64 73 61 6d 70 69 6e  66 6f 73 0d 0b 90 32 ea  |adsampinfos...2.|
00002080  20 73 61 6d 70 6c 65 2c  6e 61 6d 65 2c 6c 65 6e  | sample,name,len|
00002090  67 74 68 2c 72 65 70 6f  66 66 2c 72 65 70 6c 65  |gth,repoff,reple|
000020a0  6e 2c 76 6f 6c 2c 66 74  2c 61 64 64 72 0d 0b 9a  |n,vol,ft,addr...|
000020b0  13 e3 20 73 61 6d 70 6c  65 3d 31 20 b8 20 33 31  |.. sample=1 . 31|
000020c0  0d 0b a4 4c 20 c8 99 20  22 51 54 4d 5f 52 65 61  |...L .. "QTM_Rea|
000020d0  64 53 61 6d 70 6c 65 54  61 62 6c 65 22 2c 73 61  |dSampleTable",sa|
000020e0  6d 70 6c 65 20 b8 20 6e  61 6d 65 2c 6c 65 6e 67  |mple . name,leng|
000020f0  74 68 2c 72 65 70 6f 66  66 2c 72 65 70 6c 65 6e  |th,repoff,replen|
00002100  2c 76 6f 6c 2c 66 74 2c  61 64 64 72 0d 0b ae 34  |,vol,ft,addr...4|
00002110  20 24 28 73 6e 61 6d 65  73 25 2b 28 73 61 6d 70  | $(snames%+(samp|
00002120  6c 65 2d 31 29 2a 32 34  29 3d a4 62 6c 6f 63 6b  |le-1)*24)=.block|
00002130  5f 74 6f 5f 73 74 72 69  6e 67 28 6e 61 6d 65 29  |_to_string(name)|
00002140  0d 0b b8 20 20 24 28 73  76 6f 6c 73 25 2b 28 73  |...  $(svols%+(s|
00002150  61 6d 70 6c 65 2d 31 29  2a 34 29 3d c3 76 6f 6c  |ample-1)*4)=.vol|
00002160  0d 0b c2 26 20 24 28 73  6c 65 6e 67 74 68 73 25  |...& $(slengths%|
00002170  2b 28 73 61 6d 70 6c 65  2d 31 29 2a 38 29 3d c3  |+(sample-1)*8)=.|
00002180  6c 65 6e 67 74 68 0d 0b  cc 26 20 24 28 73 72 65  |length...& $(sre|
00002190  70 6c 65 6e 73 25 2b 28  73 61 6d 70 6c 65 2d 31  |plens%+(sample-1|
000021a0  29 2a 38 29 3d c3 72 65  70 6c 65 6e 0d 0b d6 26  |)*8)=.replen...&|
000021b0  20 24 28 73 72 65 70 6f  66 66 73 25 2b 28 73 61  | $(srepoffs%+(sa|
000021c0  6d 70 6c 65 2d 31 29 2a  38 29 3d c3 72 65 70 6f  |mple-1)*8)=.repo|
000021d0  66 66 0d 0b e0 1d 20 24  28 73 66 74 25 2b 28 73  |ff.... $(sft%+(s|
000021e0  61 6d 70 6c 65 2d 31 29  2a 34 29 3d c3 66 74 0d  |ample-1)*4)=.ft.|
000021f0  0b ea 05 ed 0d 0b f4 1f  e7 20 a4 63 68 65 63 6b  |......... .check|
00002200  77 69 6e 64 6f 77 28 73  6c 69 73 74 62 69 74 25  |window(slistbit%|
00002210  29 20 8c 0d 0b fe 16 20  21 62 6c 6f 63 6b 25 3d  |) ..... !block%=|
00002220  73 6c 69 73 74 62 69 74  25 0d 0c 08 24 20 c8 99  |slistbit%...$ ..|
00002230  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00002240  74 61 74 65 22 2c 2c 62  6c 6f 63 6b 25 0d 0c 12  |tate",,block%...|
00002250  3a 20 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |: .."Wimp_ForceR|
00002260  65 64 72 61 77 22 2c 73  6c 69 73 74 62 69 74 25  |edraw",slistbit%|
00002270  2c 30 2c 2d 33 33 32 2b  62 6c 6f 63 6b 25 21 32  |,0,-332+block%!2|
00002280  34 2c 39 35 30 2c 30 0d  0c 1c 05 cd 0d 0c 26 05  |4,950,0.......&.|
00002290  e1 0d 0c 30 04 0d 0c 3a  04 0d 0c 44 0e dd 20 f2  |...0...:...D.. .|
000022a0  72 75 6e 64 65 73 6b 0d  0c 4e 0b 71 75 69 74 25  |rundesk..N.quit%|
000022b0  3d a3 0d 0c 58 05 3a 0d  0c 62 10 ee 20 85 20 ea  |=...X.:..b.. . .|
000022c0  20 f2 65 72 72 6f 72 0d  0c 6c 05 3a 0d 0c 76 0e  | .error..l.:..v.|
000022d0  c8 95 20 ac 20 71 75 69  74 25 0d 0c 80 0e 20 f2  |.. . quit%.... .|
000022e0  77 69 6d 70 70 6f 6c 6c  0d 0c 8a 05 ce 0d 0c 94  |wimppoll........|
000022f0  05 3a 0d 0c 9e 05 e1 0d  0c a8 04 0d 0c b2 04 0d  |.:..............|
00002300  0c bc 0f dd 20 f2 77 69  6d 70 70 6f 6c 6c 0d 0c  |.... .wimppoll..|
00002310  c6 25 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |.%.. "Wimp_Poll"|
00002320  2c 30 2c 62 6c 6f 63 6b  25 20 b8 20 72 65 61 73  |,0,block% . reas|
00002330  6f 6e 25 0d 0c d0 10 c8  8e 20 72 65 61 73 6f 6e  |on%...... reason|
00002340  25 20 ca 0d 0c da 23 20  c9 20 30 30 20 3a 20 e7  |% ....# . 00 : .|
00002350  20 64 72 61 67 25 20 8c  20 f2 63 6f 6e 74 69 6e  | drag% . .contin|
00002360  75 65 64 72 61 67 0d 0c  e4 52 20 20 20 20 20 20  |uedrag...R      |
00002370  20 20 20 20 20 f2 75 70  64 61 74 65 73 65 71 20  |     .updateseq |
00002380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000023a0  20 20 20 20 3a 20 f4 20  6e 75 6c 6c 20 72 65 61  |    : . null rea|
000023b0  73 6f 6e 20 63 6f 64 65  0d 0c ee 47 20 c9 20 30  |son code...G . 0|
000023c0  31 20 3a 20 f2 72 65 64  72 61 77 28 21 62 6c 6f  |1 : .redraw(!blo|
000023d0  63 6b 25 29 20 20 20 20  20 20 20 20 20 20 20 20  |ck%)            |
000023e0  20 20 20 20 20 20 3a 20  f4 20 72 65 64 61 72 77  |      : . redarw|
000023f0  20 77 69 6e 64 6f 77 20  72 65 71 75 65 73 74 0d  | window request.|
00002400  0c f8 48 20 c9 20 30 32  20 3a 20 f2 72 65 6f 70  |..H . 02 : .reop|
00002410  65 6e 77 69 6e 64 6f 77  28 21 62 6c 6f 63 6b 25  |enwindow(!block%|
00002420  29 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 f4  |)            : .|
00002430  20 72 65 2d 6f 70 65 6e  20 77 69 6e 64 6f 77 20  | re-open window |
00002440  72 65 71 75 65 73 74 0d  0d 02 46 20 c9 20 30 33  |request...F . 03|
00002450  20 3a 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  | : .closewindow(|
00002460  21 62 6c 6f 63 6b 25 29  20 20 20 20 20 20 20 20  |!block%)        |
00002470  20 20 20 20 20 3a 20 f4  20 63 6c 6f 73 65 20 77  |     : . close w|
00002480  69 6e 64 6f 77 20 72 65  71 75 65 73 74 0d 0d 0c  |indow request...|
00002490  4b 20 c9 20 30 34 20 3a  20 20 20 20 20 20 20 20  |K . 04 :        |
000024a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000024b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
000024c0  f4 20 70 6f 69 6e 74 65  72 20 6c 65 61 76 69 6e  |. pointer leavin|
000024d0  67 20 77 69 6e 64 6f 77  0d 0d 16 4c 20 c9 20 30  |g window...L . 0|
000024e0  35 20 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |5 :             |
000024f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002500  20 20 20 20 20 20 20 20  20 3a 20 f4 20 70 6f 69  |         : . poi|
00002510  6e 74 65 72 20 65 6e 74  65 72 69 6e 67 20 77 69  |nter entering wi|
00002520  6e 64 6f 77 0d 0d 20 3d  20 c9 20 30 36 20 3a 20  |ndow.. = . 06 : |
00002530  f2 63 6c 69 63 6b 28 62  6c 6f 63 6b 25 21 31 32  |.click(block%!12|
00002540  29 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |)               |
00002550  20 20 3a 20 f4 20 6d 6f  75 73 65 20 63 6c 69 63  |  : . mouse clic|
00002560  6b 0d 0d 2a 3f 20 c9 20  30 37 20 3a 20 f2 65 6e  |k..*? . 07 : .en|
00002570  64 64 72 61 67 20 20 20  20 20 20 20 20 20 20 20  |ddrag           |
00002580  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00002590  20 f4 20 75 73 65 72 20  64 72 61 67 20 62 6f 78  | . user drag box|
000025a0  0d 0d 34 3d 20 c9 20 30  38 20 3a 20 f2 6b 65 79  |..4= . 08 : .key|
000025b0  70 72 65 73 73 28 62 6c  6f 63 6b 25 21 32 34 2c  |press(block%!24,|
000025c0  21 62 6c 6f 63 6b 25 29  20 20 20 20 20 20 3a 20  |!block%)      : |
000025d0  f4 20 6b 65 79 20 70 72  65 73 73 65 64 0d 0d 3e  |. key pressed..>|
000025e0  40 20 c9 20 30 39 20 3a  20 f2 6d 65 6e 75 73 65  |@ . 09 : .menuse|
000025f0  6c 65 63 74 20 20 20 20  20 20 20 20 20 20 20 20  |lect            |
00002600  20 20 20 20 20 20 20 20  20 20 20 3a 20 f4 20 6d  |           : . m|
00002610  65 6e 75 20 73 65 6c 65  63 74 69 6f 6e 0d 0d 48  |enu selection..H|
00002620  43 20 c9 20 31 30 20 3a  20 20 20 20 20 20 20 20  |C . 10 :        |
00002630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002640  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
00002650  f4 20 73 63 72 6f 6c 6c  20 72 65 71 75 65 73 74  |. scroll request|
00002660  0d 0d 52 3f 20 c9 20 31  31 20 3a 20 20 20 20 20  |..R? . 11 :     |
00002670  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002690  20 3a 20 f4 20 6c 6f 73  65 20 63 61 72 65 74 0d  | : . lose caret.|
000026a0  0d 5c 3f 20 c9 20 31 32  20 3a 20 20 20 20 20 20  |.\? . 12 :      |
000026b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000026d0  3a 20 f4 20 67 61 69 6e  20 63 61 72 65 74 0d 0d  |: . gain caret..|
000026e0  66 56 20 c9 20 31 33 20  3a 20 20 20 20 20 20 20  |fV . 13 :       |
000026f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00002710  20 f4 20 70 6f 6c 6c 57  6f 72 64 20 6e 6f 6e 2d  | . pollWord non-|
00002720  7a 65 72 6f 20 28 52 69  73 63 20 4f 53 33 20 6f  |zero (Risc OS3 o|
00002730  6e 6c 79 29 0d 0d 70 45  20 c9 20 31 34 20 3a 20  |nly)..pE . 14 : |
00002740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002760  20 20 20 20 20 3a 20 f4  20 2a 2a 2a 20 72 65 73  |     : . *** res|
00002770  65 72 76 65 64 20 2a 2a  2a 0d 0d 7a 45 20 c9 20  |erved ***..zE . |
00002780  31 35 20 3a 20 20 20 20  20 20 20 20 20 20 20 20  |15 :            |
00002790  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000027a0  20 20 20 20 20 20 20 20  20 20 3a 20 f4 20 2a 2a  |          : . **|
000027b0  2a 20 72 65 73 65 72 76  65 64 20 2a 2a 2a 0d 0d  |* reserved ***..|
000027c0  84 45 20 c9 20 31 36 20  3a 20 20 20 20 20 20 20  |.E . 16 :       |
000027d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000027e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
000027f0  20 f4 20 2a 2a 2a 20 72  65 73 65 72 76 65 64 20  | . *** reserved |
00002800  2a 2a 2a 0d 0d 8e 3e 20  c9 20 31 37 20 3a 20 f2  |***...> . 17 : .|
00002810  72 65 63 65 69 76 65 20  20 20 20 20 20 20 20 20  |receive         |
00002820  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002830  20 3a 20 f4 20 75 73 65  72 20 6d 65 73 73 61 67  | : . user messag|
00002840  65 0d 0d 98 47 20 c9 20  31 38 20 3a 20 f2 72 65  |e...G . 18 : .re|
00002850  63 65 69 76 65 20 20 20  20 20 20 20 20 20 20 20  |ceive           |
00002860  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00002870  20 f4 20 75 73 65 72 20  6d 65 73 73 61 67 65 20  | . user message |
00002880  72 65 63 6f 72 64 65 64  0d 0d a2 4e 20 c9 20 31  |recorded...N . 1|
00002890  39 20 3a 20 20 20 20 20  20 20 20 20 20 20 20 20  |9 :             |
000028a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000028b0  20 20 20 20 20 20 20 20  20 3a 20 f4 20 75 73 65  |         : . use|
000028c0  72 20 6d 65 73 73 61 67  65 20 61 63 6b 6e 6f 77  |r message acknow|
000028d0  6c 65 64 67 65 64 0d 0d  ac 05 cb 0d 0d b6 05 e1  |ledged..........|
000028e0  0d 0d c0 04 0d 0d ca 04  0d 0d d4 59 dd 20 a4 63  |...........Y. .c|
000028f0  72 65 61 74 65 5f 69 63  6f 6e 28 77 68 61 6e 64  |reate_icon(whand|
00002900  25 2c 69 63 6f 6e 5f 78  25 2c 69 63 6f 6e 5f 79  |%,icon_x%,icon_y|
00002910  25 2c 69 63 6f 6e 5f 77  25 2c 69 63 6f 6e 5f 68  |%,icon_w%,icon_h|
00002920  25 2c 66 6c 61 67 73 25  2c 74 65 78 74 24 2c 70  |%,flags%,text$,p|
00002930  74 72 31 25 2c 70 74 72  32 25 2c 70 74 72 33 25  |tr1%,ptr2%,ptr3%|
00002940  29 0d 0d de 14 62 6c 6f  63 6b 25 21 30 30 3d 77  |)....block%!00=w|
00002950  68 61 6e 64 25 0d 0d e8  15 62 6c 6f 63 6b 25 21  |hand%....block%!|
00002960  30 34 3d 69 63 6f 6e 5f  78 25 0d 0d f2 15 62 6c  |04=icon_x%....bl|
00002970  6f 63 6b 25 21 30 38 3d  69 63 6f 6e 5f 79 25 0d  |ock%!08=icon_y%.|
00002980  0d fc 1d 62 6c 6f 63 6b  25 21 31 32 3d 69 63 6f  |...block%!12=ico|
00002990  6e 5f 77 25 2b 69 63 6f  6e 5f 78 25 0d 0e 06 1d  |n_w%+icon_x%....|
000029a0  62 6c 6f 63 6b 25 21 31  36 3d 69 63 6f 6e 5f 68  |block%!16=icon_h|
000029b0  25 2b 69 63 6f 6e 5f 79  25 0d 0e 10 4a 62 6c 6f  |%+icon_y%...Jblo|
000029c0  63 6b 25 21 32 30 3d 66  6c 61 67 73 25 20 20 20  |ck%!20=flags%   |
000029d0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
000029e0  73 65 65 20 57 69 6d 70  20 50 72 6f 67 20 70 61  |see Wimp Prog pa|
000029f0  67 65 73 20 36 34 2b 36  35 20 66 6f 72 20 66 6c  |ges 64+65 for fl|
00002a00  61 67 73 0d 0e 1a 05 3a  0d 0e 24 0f e7 20 70 74  |ags....:..$.. pt|
00002a10  72 31 25 3d 30 20 8c 0d  0e 2e 17 20 24 28 62 6c  |r1%=0 ..... $(bl|
00002a20  6f 63 6b 25 2b 32 34 29  3d 74 65 78 74 24 0d 0e  |ock%+24)=text$..|
00002a30  38 05 cc 0d 0e 42 56 20  62 6c 6f 63 6b 25 21 32  |8....BV block%!2|
00002a40  34 3d 70 74 72 31 25 20  20 20 20 20 20 20 20 20  |4=ptr1%         |
00002a50  20 20 20 20 20 20 20 3a  f4 20 73 65 65 20 57 69  |       :. see Wi|
00002a60  6d 70 20 50 72 6f 67 20  70 61 67 65 73 20 36 37  |mp Prog pages 67|
00002a70  2b 36 38 20 66 6f 72 20  69 6e 64 69 72 65 63 74  |+68 for indirect|
00002a80  69 6e 67 20 69 63 6f 6e  73 0d 0e 4c 57 20 62 6c  |ing icons..LW bl|
00002a90  6f 63 6b 25 21 32 38 3d  70 74 72 32 25 20 20 20  |ock%!28=ptr2%   |
00002aa0  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00002ab0  73 65 65 20 57 69 6d 70  20 50 72 6f 67 20 70 61  |see Wimp Prog pa|
00002ac0  67 65 73 20 37 35 2b 37  36 20 66 6f 72 20 76 61  |ges 75+76 for va|
00002ad0  6c 69 64 61 74 69 6f 6e  20 73 74 72 69 6e 67 73  |lidation strings|
00002ae0  0d 0e 56 14 20 62 6c 6f  63 6b 25 21 33 32 3d 70  |..V. block%!32=p|
00002af0  74 72 33 25 0d 0e 60 05  cd 0d 0e 6a 05 3a 0d 0e  |tr3%..`....j.:..|
00002b00  74 2b c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |t+.. "Wimp_Creat|
00002b10  65 49 63 6f 6e 22 2c 2c  62 6c 6f 63 6b 25 20 b8  |eIcon",,block% .|
00002b20  20 69 68 61 6e 64 6c 65  25 0d 0e 7e 0d 3d 69 68  | ihandle%..~.=ih|
00002b30  61 6e 64 6c 65 25 0d 0e  88 04 0d 0e 92 04 0d 0e  |andle%..........|
00002b40  9c 16 dd 20 f2 72 65 64  72 61 77 28 77 69 6e 64  |... .redraw(wind|
00002b50  6f 77 25 29 0d 0e a6 10  c8 8e 20 77 69 6e 64 6f  |ow%)...... windo|
00002b60  77 25 20 ca 0d 0e b0 1d  20 c9 20 63 6f 6e 74 72  |w% ..... . contr|
00002b70  6f 6c 25 20 3a 20 f2 72  65 64 72 61 77 63 74 72  |ol% : .redrawctr|
00002b80  6c 0d 0e ba 05 cb 0d 0e  c4 05 e1 0d 0e ce 04 0d  |l...............|
00002b90  0e d8 04 0d 0e e2 1d dd  20 f2 6b 65 79 70 72 65  |........ .keypre|
00002ba0  73 73 28 6b 65 79 25 2c  77 69 6e 64 6f 77 25 29  |ss(key%,window%)|
00002bb0  0d 0e ec 10 c8 8e 20 77  69 6e 64 6f 77 25 20 ca  |...... window% .|
00002bc0  0d 0e f6 62 20 c9 20 70  72 65 66 73 25 20 3a 20  |...b . prefs% : |
00002bd0  e7 20 6b 65 79 25 3d 31  33 20 80 20 62 6c 6f 63  |. key%=13 . bloc|
00002be0  6b 25 21 34 3d 75 73 65  72 65 6e 74 72 79 25 20  |k%!4=userentry% |
00002bf0  f2 61 6c 74 65 72 73 6e  64 28 75 73 65 72 71 75  |.altersnd(userqu|
00002c00  61 6c 25 29 3a f2 6c 6f  73 65 63 61 72 65 74 28  |al%):.losecaret(|
00002c10  70 72 65 66 73 25 2c 75  73 65 72 65 6e 74 72 79  |prefs%,userentry|
00002c20  25 29 0d 0f 00 20 20 7f  3a c8 99 20 22 57 69 6d  |%)...  .:.. "Wim|
00002c30  70 5f 50 72 6f 63 65 73  73 4b 65 79 22 2c 6b 65  |p_ProcessKey",ke|
00002c40  79 25 0d 0f 0a 05 cb 0d  0f 14 05 e1 0d 0f 1e 04  |y%..............|
00002c50  0d 0f 28 04 0d 0f 32 13  dd 20 f2 63 6c 69 63 6b  |..(...2.. .click|
00002c60  28 77 69 6e 64 25 29 0d  0f 3c 0e c8 8e 20 77 69  |(wind%)..<... wi|
00002c70  6e 64 25 20 ca 0d 0f 46  24 20 c9 20 2d 32 20 20  |nd% ...F$ . -2  |
00002c80  20 20 20 20 20 3a 20 f2  69 63 6f 6e 62 61 72 28  |     : .iconbar(|
00002c90  62 6c 6f 63 6b 25 21 38  29 0d 0f 50 20 20 c9 20  |block%!8)..P  . |
00002ca0  63 6f 6e 74 72 6f 6c 25  20 3a 20 c8 8e 20 62 6c  |control% : .. bl|
00002cb0  6f 63 6b 25 21 31 36 20  ca 0d 0f 5a 28 20 20 c9  |ock%!16 ...Z(  .|
00002cc0  20 73 70 65 61 6b 65 72  5f 69 63 6f 6e 25 20 20  | speaker_icon%  |
00002cd0  20 3a 20 f2 74 6f 67 67  61 6c 73 70 65 61 6b 65  | : .toggalspeake|
00002ce0  72 0d 0f 64 1f 20 20 c9  20 70 6c 61 79 5f 69 63  |r..d.  . play_ic|
00002cf0  6f 6e 25 20 20 20 20 20  20 3a 20 f2 70 6c 61 79  |on%      : .play|
00002d00  0d 0f 6e 1f 20 20 c9 20  73 74 6f 70 5f 69 63 6f  |..n.  . stop_ico|
00002d10  6e 25 20 20 20 20 20 20  3a 20 f2 73 74 6f 70 0d  |n%      : .stop.|
00002d20  0f 78 20 20 20 c9 20 70  61 75 73 65 5f 69 63 6f  |.x   . pause_ico|
00002d30  6e 25 20 20 20 20 20 3a  20 f2 70 61 75 73 65 0d  |n%     : .pause.|
00002d40  0f 82 21 20 20 c9 20 72  65 77 69 6e 64 5f 69 63  |..!  . rewind_ic|
00002d50  6f 6e 25 20 20 20 20 3a  20 f2 72 65 77 69 6e 64  |on%    : .rewind|
00002d60  0d 0f 8c 20 20 20 c9 20  66 61 73 74 66 5f 69 63  |...   . fastf_ic|
00002d70  6f 6e 25 20 20 20 20 20  3a 20 f2 66 61 73 74 66  |on%     : .fastf|
00002d80  0d 0f 96 32 20 20 c9 20  76 6f 6c 73 6c 69 64 65  |...2  . volslide|
00002d90  5f 69 63 6f 6e 25 20 20  3a 20 f2 76 6f 6c 64 72  |_icon%  : .voldr|
00002da0  61 67 28 76 6f 6c 73 6c  69 64 65 5f 69 63 6f 6e  |ag(volslide_icon|
00002db0  25 29 0d 0f a0 30 20 20  c9 20 76 6f 6c 62 75 74  |%)...0  . volbut|
00002dc0  5f 69 63 6f 6e 25 20 20  20 20 3a 20 f2 76 6f 6c  |_icon%    : .vol|
00002dd0  64 72 61 67 28 76 6f 6c  62 75 74 5f 69 63 6f 6e  |drag(volbut_icon|
00002de0  25 29 0d 0f aa 06 20 cb  0d 0f b4 1e 20 c9 20 70  |%).... ..... . p|
00002df0  72 65 66 73 25 20 3a 20  c8 8e 20 62 6c 6f 63 6b  |refs% : .. block|
00002e00  25 21 31 36 20 ca 0d 0f  be 45 20 20 c9 20 76 68  |%!16 ....E  . vh|
00002e10  71 75 61 6c 25 2c 68 71  75 61 6c 25 2c 6d 71 75  |qual%,hqual%,mqu|
00002e20  61 6c 25 2c 6c 71 75 61  6c 25 2c 75 73 65 72 71  |al%,lqual%,userq|
00002e30  75 61 6c 25 20 3a 20 f2  61 6c 74 65 72 73 6e 64  |ual% : .altersnd|
00002e40  28 62 6c 6f 63 6b 25 21  31 36 29 0d 0f c8 50 20  |(block%!16)...P |
00002e50  20 c9 20 71 75 69 74 6b  69 6c 6c 6d 25 20 3a 20  | . quitkillm% : |
00002e60  e7 20 a4 63 68 65 63 6b  6f 6e 28 70 72 65 66 73  |. .checkon(prefs|
00002e70  25 2c 71 75 69 74 6b 69  6c 6c 6d 25 29 20 8c 20  |%,quitkillm%) . |
00002e80  6b 69 6c 6c 6d 75 73 69  63 25 3d b9 20 8b 20 6b  |killmusic%=. . k|
00002e90  69 6c 6c 6d 75 73 69 63  25 3d a3 0d 0f d2 52 20  |illmusic%=....R |
00002ea0  20 c9 20 63 74 72 6c 77  69 6e 6f 70 65 6e 25 20  | . ctrlwinopen% |
00002eb0  3a 20 e7 20 a4 63 68 65  63 6b 6f 6e 28 70 72 65  |: . .checkon(pre|
00002ec0  66 73 25 2c 63 74 72 6c  77 69 6e 6f 70 65 6e 25  |fs%,ctrlwinopen%|
00002ed0  29 20 8c 20 6f 70 65 6e  63 74 72 6c 25 3d b9 20  |) . openctrl%=. |
00002ee0  8b 20 6f 70 65 6e 63 74  72 6c 25 3d a3 0d 0f dc  |. openctrl%=....|
00002ef0  3b 20 20 c9 20 6f 6b 70  25 20 3a 20 21 62 6c 6f  |;  . okp% : !blo|
00002f00  63 6b 25 3d 70 72 65 66  73 25 3a c8 99 20 22 57  |ck%=prefs%:.. "W|
00002f10  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00002f20  2c 2c 62 6c 6f 63 6b 25  0d 0f e6 48 20 20 c9 20  |,,block%...H  . |
00002f30  73 61 76 65 70 25 20 3a  20 f2 73 61 76 65 70 72  |savep% : .savepr|
00002f40  65 66 73 3a 21 62 6c 6f  63 6b 25 3d 70 72 65 66  |efs:!block%=pref|
00002f50  73 25 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |s%:.. "Wimp_Clos|
00002f60  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00002f70  0d 0f f0 27 20 20 c9 20  63 61 6e 63 65 6c 70 25  |...'  . cancelp%|
00002f80  20 3a 20 f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  | : .closewindow(|
00002f90  70 72 65 66 73 25 29 0d  0f fa 06 20 cb 0d 10 04  |prefs%).... ....|
00002fa0  05 cb 0d 10 0e 05 e1 0d  10 18 04 0d 10 22 04 0d  |............."..|
00002fb0  10 2c 17 dd 20 f2 69 63  6f 6e 62 61 72 28 62 75  |.,.. .iconbar(bu|
00002fc0  74 74 6f 6e 25 29 0d 10  36 10 c8 8e 20 62 75 74  |tton%)..6... but|
00002fd0  74 6f 6e 25 20 ca 0d 10  40 3e 20 c9 20 32 20 20  |ton% ...@> . 2  |
00002fe0  20 3a 20 f2 73 68 6f 77  6d 65 6e 75 28 69 63 6f  | : .showmenu(ico|
00002ff0  6e 62 61 72 6d 65 6e 75  25 2c 21 62 6c 6f 63 6b  |nbarmenu%,!block|
00003000  25 2d 36 34 2c 39 36 2b  69 62 6d 65 6e 75 5f 6c  |%-64,96+ibmenu_l|
00003010  65 6e 25 29 0d 10 4a 22  20 c9 20 34 2c 31 20 3a  |en%)..J" . 4,1 :|
00003020  20 f2 6f 70 65 6e 77 69  6e 64 6f 77 28 63 6f 6e  | .openwindow(con|
00003030  74 72 6f 6c 25 29 0d 10  54 05 cb 0d 10 5e 05 e1  |trol%)..T....^..|
00003040  0d 10 68 04 0d 10 72 04  0d 10 7c 26 dd 20 f2 73  |..h...r...|&. .s|
00003050  68 6f 77 6d 65 6e 75 28  6d 65 6e 75 25 2c 6d 65  |howmenu(menu%,me|
00003060  6e 75 5f 78 25 2c 6d 65  6e 75 5f 79 25 29 0d 10  |nu_x%,menu_y%)..|
00003070  86 13 6d 65 6e 75 6f 70  65 6e 25 3d 6d 65 6e 75  |..menuopen%=menu|
00003080  25 0d 10 90 2f c8 99 20  22 57 69 6d 70 5f 43 72  |%.../.. "Wimp_Cr|
00003090  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
000030a0  2c 6d 65 6e 75 5f 78 25  2c 6d 65 6e 75 5f 79 25  |,menu_x%,menu_y%|
000030b0  0d 10 9a 05 e1 0d 10 a4  04 0d 10 ae 04 0d 10 b8  |................|
000030c0  22 dd 20 a4 63 72 65 61  74 65 6d 65 6e 75 28 6d  |". .createmenu(m|
000030d0  65 6e 75 25 2c 63 6f 6e  74 65 6e 74 73 24 29 0d  |enu%,contents$).|
000030e0  10 c2 33 ea 20 63 6f 75  6e 74 65 72 25 2c 70 74  |..3. counter%,pt|
000030f0  72 25 2c 74 65 6d 70 77  69 64 74 68 25 2c 6e 75  |r%,tempwidth%,nu|
00003100  6d 5f 6f 66 5f 69 74 65  6d 73 25 2c 74 69 74 6c  |m_of_items%,titl|
00003110  65 24 0d 10 cc 05 3a 0d  10 d6 1a 63 6f 6e 74 65  |e$....:....conte|
00003120  6e 74 73 24 3d 63 6f 6e  74 65 6e 74 73 24 2b bd  |nts$=contents$+.|
00003130  30 0d 10 e0 0e 63 6f 75  6e 74 65 72 25 3d 30 0d  |0....counter%=0.|
00003140  10 ea 05 3a 0d 10 f4 30  f2 72 65 61 64 73 74 72  |...:...0.readstr|
00003150  28 63 6f 6e 74 65 6e 74  73 24 2c 63 6f 75 6e 74  |(contents$,count|
00003160  65 72 25 2c 74 69 74 6c  65 24 2c 63 6f 75 6e 74  |er%,title$,count|
00003170  65 72 25 29 0d 10 fe 37  f2 72 65 61 64 6e 75 6d  |er%)...7.readnum|
00003180  28 63 6f 6e 74 65 6e 74  73 24 2c 63 6f 75 6e 74  |(contents$,count|
00003190  65 72 25 2c 6e 75 6d 5f  6f 66 5f 69 74 65 6d 73  |er%,num_of_items|
000031a0  25 2c 63 6f 75 6e 74 65  72 25 29 0d 11 08 11 24  |%,counter%)....$|
000031b0  6d 65 6e 75 25 3d 74 69  74 6c 65 24 0d 11 12 1e  |menu%=title$....|
000031c0  6d 61 78 77 69 64 74 68  25 3d 28 a9 28 74 69 74  |maxwidth%=(.(tit|
000031d0  6c 65 24 29 2d 32 29 2a  31 36 0d 11 1c 31 6d 65  |le$)-2)*16...1me|
000031e0  6e 75 25 21 31 32 3d 26  30 30 30 37 30 32 30 37  |nu%!12=&00070207|
000031f0  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 6d  |            :. m|
00003200  65 6e 75 20 63 6f 6c 6f  75 72 73 0d 11 26 37 6d  |enu colours..&7m|
00003210  65 6e 75 25 21 32 30 3d  34 34 20 20 20 20 20 20  |enu%!20=44      |
00003220  20 20 20 20 20 20 20 20  20 20 20 20 20 3a f4 20  |             :. |
00003230  6d 65 6e 75 20 65 6e 74  72 79 20 68 65 69 67 68  |menu entry heigh|
00003240  74 73 0d 11 30 34 6d 65  6e 75 25 21 32 34 3d 30  |ts..04menu%!24=0|
00003250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003260  20 20 20 20 3a f4 20 6d  65 6e 75 20 65 6e 74 72  |    :. menu entr|
00003270  79 20 67 61 70 73 0d 11  3a 11 70 74 72 25 3d 6d  |y gaps..:.ptr%=m|
00003280  65 6e 75 25 2b 32 38 0d  11 44 0f 6d 65 6e 75 5f  |enu%+28..D.menu_|
00003290  6c 65 6e 25 3d 30 0d 11  4e 05 3a 0d 11 58 1e e3  |len%=0..N.:..X..|
000032a0  20 69 74 65 6d 73 25 3d  31 20 b8 20 6e 75 6d 5f  | items%=1 . num_|
000032b0  6f 66 5f 69 74 65 6d 73  25 0d 11 62 36 20 f2 72  |of_items%..b6 .r|
000032c0  65 61 64 6e 75 6d 28 63  6f 6e 74 65 6e 74 73 24  |eadnum(contents$|
000032d0  2c 63 6f 75 6e 74 65 72  25 2c 6d 65 6e 75 5f 66  |,counter%,menu_f|
000032e0  6c 61 67 73 25 2c 63 6f  75 6e 74 65 72 25 29 0d  |lags%,counter%).|
000032f0  11 6c 32 20 f2 72 65 61  64 6e 75 6d 28 63 6f 6e  |.l2 .readnum(con|
00003300  74 65 6e 74 73 24 2c 63  6f 75 6e 74 65 72 25 2c  |tents$,counter%,|
00003310  73 75 62 70 74 72 25 2c  63 6f 75 6e 74 65 72 25  |subptr%,counter%|
00003320  29 0d 11 76 30 20 f2 72  65 61 64 73 74 72 28 63  |)..v0 .readstr(c|
00003330  6f 6e 74 65 6e 74 73 24  2c 63 6f 75 6e 74 65 72  |ontents$,counter|
00003340  25 2c 69 74 65 6d 24 2c  63 6f 75 6e 74 65 72 25  |%,item$,counter%|
00003350  29 0d 11 80 16 20 21 70  74 72 25 3d 6d 65 6e 75  |).... !ptr%=menu|
00003360  5f 66 6c 61 67 73 25 0d  11 8a 13 20 70 74 72 25  |_flags%.... ptr%|
00003370  21 34 3d 73 75 62 70 74  72 25 0d 11 94 14 20 70  |!4=subptr%.... p|
00003380  74 72 25 21 38 3d 26 37  30 30 30 30 32 31 0d 11  |tr%!8=&7000021..|
00003390  9e 15 20 24 28 70 74 72  25 2b 31 32 29 3d 69 74  |.. $(ptr%+12)=it|
000033a0  65 6d 24 0d 11 a8 1f 20  74 65 6d 70 77 69 64 74  |em$.... tempwidt|
000033b0  68 25 3d 28 a9 28 69 74  65 6d 24 29 2b 31 29 2a  |h%=(.(item$)+1)*|
000033c0  31 36 0d 11 b2 32 20 e7  20 74 65 6d 70 77 69 64  |16...2 . tempwid|
000033d0  74 68 25 3e 6d 61 78 77  69 64 74 68 25 20 8c 20  |th%>maxwidth% . |
000033e0  6d 61 78 77 69 64 74 68  25 3d 74 65 6d 70 77 69  |maxwidth%=tempwi|
000033f0  64 74 68 25 0d 11 bc 0d  20 70 74 72 25 2b 3d 32  |dth%.... ptr%+=2|
00003400  34 0d 11 c6 12 20 6d 65  6e 75 5f 6c 65 6e 25 2b  |4.... menu_len%+|
00003410  3d 34 34 0d 11 d0 05 ed  0d 11 da 05 3a 0d 11 e4  |=44.........:...|
00003420  16 6d 65 6e 75 25 21 31  36 3d 6d 61 78 77 69 64  |.menu%!16=maxwid|
00003430  74 68 25 0d 11 ee 0e 3d  6d 65 6e 75 5f 6c 65 6e  |th%....=menu_len|
00003440  25 0d 11 f8 04 0d 12 02  04 0d 12 0c 2c dd f2 72  |%...........,..r|
00003450  65 61 64 73 74 72 28 73  65 61 72 63 68 24 2c 70  |eadstr(search$,p|
00003460  6f 73 25 2c f8 20 73 65  61 72 63 68 24 2c f8 20  |os%,. search$,. |
00003470  70 6f 73 25 29 0d 12 16  0d ea 20 6f 6c 64 70 6f  |pos%)..... oldpo|
00003480  73 25 0d 12 20 12 6f 6c  64 70 6f 73 25 3d 70 6f  |s%.. .oldpos%=po|
00003490  73 25 2b 31 0d 12 2a 05  f5 0d 12 34 0c 20 70 6f  |s%+1..*....4. po|
000034a0  73 25 2b 3d 31 0d 12 3e  30 fd 20 c1 73 65 61 72  |s%+=1..>0. .sear|
000034b0  63 68 24 2c 70 6f 73 25  2c 31 29 3d 22 2c 22 20  |ch$,pos%,1)="," |
000034c0  84 20 c1 73 65 61 72 63  68 24 2c 70 6f 73 25 2c  |. .search$,pos%,|
000034d0  31 29 3d bd 30 0d 12 48  2c 73 65 61 72 63 68 24  |1)=.0..H,search$|
000034e0  3d c1 73 65 61 72 63 68  24 2c 6f 6c 64 70 6f 73  |=.search$,oldpos|
000034f0  25 2c 28 70 6f 73 25 2d  6f 6c 64 70 6f 73 25 29  |%,(pos%-oldpos%)|
00003500  29 0d 12 52 05 e1 0d 12  5c 04 0d 12 66 04 0d 12  |)..R....\...f...|
00003510  70 2b dd f2 72 65 61 64  6e 75 6d 28 73 65 61 72  |p+..readnum(sear|
00003520  63 68 24 2c 70 6f 73 25  2c f8 20 66 6f 75 6e 64  |ch$,pos%,. found|
00003530  25 2c f8 20 70 6f 73 25  29 0d 12 7a 0d ea 20 6f  |%,. pos%)..z.. o|
00003540  6c 64 70 6f 73 25 0d 12  84 12 6f 6c 64 70 6f 73  |ldpos%....oldpos|
00003550  25 3d 70 6f 73 25 2b 31  0d 12 8e 05 f5 0d 12 98  |%=pos%+1........|
00003560  0c 20 70 6f 73 25 2b 3d  31 0d 12 a2 30 fd 20 c1  |. pos%+=1...0. .|
00003570  73 65 61 72 63 68 24 2c  70 6f 73 25 2c 31 29 3d  |search$,pos%,1)=|
00003580  22 2c 22 20 84 20 c1 73  65 61 72 63 68 24 2c 70  |"," . .search$,p|
00003590  6f 73 25 2c 31 29 3d bd  30 0d 12 ac 2c 73 65 61  |os%,1)=.0...,sea|
000035a0  72 63 68 24 3d c1 73 65  61 72 63 68 24 2c 6f 6c  |rch$=.search$,ol|
000035b0  64 70 6f 73 25 2c 28 70  6f 73 25 2d 6f 6c 64 70  |dpos%,(pos%-oldp|
000035c0  6f 73 25 29 29 0d 12 b6  15 66 6f 75 6e 64 25 3d  |os%))....found%=|
000035d0  a0 28 73 65 61 72 63 68  24 29 0d 12 c0 05 e1 0d  |.(search$)......|
000035e0  12 ca 04 0d 12 d4 04 0d  12 de 50 dd 20 f2 6d 65  |..........P. .me|
000035f0  6e 75 73 65 6c 65 63 74  20 20 20 20 20 20 20 20  |nuselect        |
00003600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003610  20 20 20 20 20 20 3a f4  20 73 65 65 20 70 61 67  |      :. see pag|
00003620  65 20 39 38 20 66 6f 72  20 6d 65 6e 75 20 73 65  |e 98 for menu se|
00003630  6c 65 63 74 69 6e 67 0d  12 e8 20 73 65 6c 31 25  |lecting... sel1%|
00003640  3d 21 62 6c 6f 63 6b 25  3a 73 65 6c 32 25 3d 62  |=!block%:sel2%=b|
00003650  6c 6f 63 6b 25 21 34 0d  12 f2 22 73 65 6c 33 25  |lock%!4..."sel3%|
00003660  3d 62 6c 6f 63 6b 25 21  38 3a 73 65 6c 34 25 3d  |=block%!8:sel4%=|
00003670  62 6c 6f 63 6b 25 21 31  32 0d 12 fc 05 3a 0d 13  |block%!12....:..|
00003680  06 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |.$.. "Wimp_GetPo|
00003690  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |interInfo",,bloc|
000036a0  6b 25 0d 13 10 14 62 75  74 74 6f 6e 25 3d 62 6c  |k%....button%=bl|
000036b0  6f 63 6b 25 21 38 0d 13  1a 05 3a 0d 13 24 12 c8  |ock%!8....:..$..|
000036c0  8e 20 6d 65 6e 75 6f 70  65 6e 25 20 ca 0d 13 2e  |. menuopen% ....|
000036d0  20 20 c9 20 69 63 6f 6e  62 61 72 6d 65 6e 75 25  |  . iconbarmenu%|
000036e0  20 3a 20 c8 8e 20 73 65  6c 31 25 20 ca 0d 13 38  | : .. sel1% ...8|
000036f0  53 20 20 c9 20 30 20 3a  20 20 20 20 20 20 20 20  |S  . 0 :        |
00003700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00003720  20 30 20 69 73 20 75 73  75 61 6c 6c 79 20 74 68  | 0 is usually th|
00003730  65 20 27 49 6e 66 6f 20  3e 27 20 65 6e 74 72 79  |e 'Info >' entry|
00003740  0d 13 42 16 20 20 c9 20  31 20 3a 20 c8 8e 20 73  |..B.  . 1 : .. s|
00003750  65 6c 32 25 20 ca 0d 13  4c 22 20 20 20 c9 20 30  |el2% ...L"   . 0|
00003760  20 3a 20 f2 6f 70 65 6e  77 69 6e 64 6f 77 28 63  | : .openwindow(c|
00003770  6f 6e 74 72 6f 6c 25 29  0d 13 56 20 20 20 20 c9  |ontrol%)..V    .|
00003780  20 31 20 3a 20 f2 6f 70  65 6e 77 69 6e 64 6f 77  | 1 : .openwindow|
00003790  28 73 69 6e 66 6f 25 29  0d 13 60 20 20 20 20 c9  |(sinfo%)..`    .|
000037a0  20 32 20 3a 20 f2 6f 70  65 6e 77 69 6e 64 6f 77  | 2 : .openwindow|
000037b0  28 73 6c 69 73 74 25 29  0d 13 6a 17 20 20 20 c9  |(slist%)..j.   .|
000037c0  20 33 20 3a 20 f2 63 6c  65 61 72 73 6f 6e 67 0d  | 3 : .clearsong.|
000037d0  13 74 07 20 20 cb 0d 13  7e 1f 20 20 c9 20 32 20  |.t.  ...~.  . 2 |
000037e0  3a 20 f2 6f 70 65 6e 77  69 6e 64 6f 77 28 70 72  |: .openwindow(pr|
000037f0  65 66 73 25 29 0d 13 88  46 20 20 c9 20 33 20 3a  |efs%)...F  . 3 :|
00003800  20 71 75 69 74 25 3d b9  20 20 20 20 20 20 20 20  | quit%=.        |
00003810  20 20 20 20 20 20 20 20  20 3a f4 20 54 68 65 20  |         :. The |
00003820  6c 61 73 74 20 6f 6e 65  20 69 73 20 74 68 65 20  |last one is the |
00003830  27 51 75 69 74 27 20 69  74 65 6d 0d 13 92 06 20  |'Quit' item.... |
00003840  cb 0d 13 9c 05 cb 0d 13  a6 05 3a 0d 13 b0 2a e7  |..........:...*.|
00003850  20 62 75 74 74 6f 6e 25  3d 31 20 8c 20 f2 73 68  | button%=1 . .sh|
00003860  6f 77 6d 65 6e 75 28 6d  65 6e 75 6f 70 65 6e 25  |owmenu(menuopen%|
00003870  2c 30 2c 30 29 0d 13 ba  05 e1 0d 13 c4 04 0d 13  |,0,0)...........|
00003880  ce 04 0d 13 d8 1b dd 20  f2 74 69 63 6b 5f 6f 6e  |....... .tick_on|
00003890  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 13 e2  |(menu%,item%)...|
000038a0  11 70 74 72 25 3d 6d 65  6e 75 25 2b 32 38 0d 13  |.ptr%=menu%+28..|
000038b0  ec 16 70 74 72 25 3d 70  74 72 25 2b 32 34 2a 69  |..ptr%=ptr%+24*i|
000038c0  74 65 6d 25 0d 13 f6 13  3f 70 74 72 25 3d 3f 70  |tem%....?ptr%=?p|
000038d0  74 72 25 20 84 20 31 0d  14 00 05 e1 0d 14 0a 04  |tr% . 1.........|
000038e0  0d 14 14 04 0d 14 1e 1c  dd 20 f2 74 69 63 6b 5f  |......... .tick_|
000038f0  6f 66 66 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |off(menu%,item%)|
00003900  0d 14 28 11 70 74 72 25  3d 6d 65 6e 75 25 2b 32  |..(.ptr%=menu%+2|
00003910  38 0d 14 32 16 70 74 72  25 3d 70 74 72 25 2b 32  |8..2.ptr%=ptr%+2|
00003920  34 2a 69 74 65 6d 25 0d  14 3c 1b 3f 70 74 72 25  |4*item%..<.?ptr%|
00003930  3d 3f 70 74 72 25 20 80  20 25 31 31 31 31 31 31  |=?ptr% . %111111|
00003940  31 30 0d 14 46 05 e1 0d  14 50 04 0d 14 5a 04 0d  |10..F....P...Z..|
00003950  14 64 1c dd 20 f2 73 68  61 64 65 5f 6f 6e 28 6d  |.d.. .shade_on(m|
00003960  65 6e 75 25 2c 69 74 65  6d 25 29 0d 14 6e 11 70  |enu%,item%)..n.p|
00003970  74 72 25 3d 6d 65 6e 75  25 2b 32 38 0d 14 78 16  |tr%=menu%+28..x.|
00003980  70 74 72 25 3d 70 74 72  25 2b 32 34 2a 69 74 65  |ptr%=ptr%+24*ite|
00003990  6d 25 0d 14 82 0c 70 74  72 25 2b 3d 31 30 0d 14  |m%....ptr%+=10..|
000039a0  8c 1b 3f 70 74 72 25 3d  3f 70 74 72 25 20 84 20  |..?ptr%=?ptr% . |
000039b0  25 30 31 30 30 30 30 30  30 0d 14 96 05 e1 0d 14  |%01000000.......|
000039c0  a0 04 0d 14 aa 04 0d 14  b4 1d dd 20 f2 73 68 61  |........... .sha|
000039d0  64 65 5f 6f 66 66 28 6d  65 6e 75 25 2c 69 74 65  |de_off(menu%,ite|
000039e0  6d 25 29 0d 14 be 11 70  74 72 25 3d 6d 65 6e 75  |m%)....ptr%=menu|
000039f0  25 2b 32 38 0d 14 c8 16  70 74 72 25 3d 70 74 72  |%+28....ptr%=ptr|
00003a00  25 2b 32 34 2a 69 74 65  6d 25 0d 14 d2 0c 70 74  |%+24*item%....pt|
00003a10  72 25 2b 3d 31 30 0d 14  dc 1b 3f 70 74 72 25 3d  |r%+=10....?ptr%=|
00003a20  3f 70 74 72 25 20 80 20  25 31 30 31 31 31 31 31  |?ptr% . %1011111|
00003a30  31 0d 14 e6 05 e1 0d 14  f0 04 0d 14 fa 04 0d 15  |1...............|
00003a40  04 1f dd 20 a4 64 6f 74  74 65 64 28 6d 65 6e 75  |... .dotted(menu|
00003a50  25 2c 69 74 65 6d 25 2c  6c 65 6e 25 29 0d 15 0e  |%,item%,len%)...|
00003a60  11 70 74 72 25 3d 6d 65  6e 75 25 2b 32 38 0d 15  |.ptr%=menu%+28..|
00003a70  18 16 70 74 72 25 3d 70  74 72 25 2b 32 34 2a 69  |..ptr%=ptr%+24*i|
00003a80  74 65 6d 25 0d 15 22 13  3f 70 74 72 25 3d 3f 70  |tem%..".?ptr%=?p|
00003a90  74 72 25 20 84 20 32 0d  15 2c 0c 3d 6c 65 6e 25  |tr% . 2..,.=len%|
00003aa0  2b 32 34 0d 15 36 04 0d  15 40 04 0d 15 4a 1b dd  |+24..6...@...J..|
00003ab0  20 f2 63 6c 6f 73 65 77  69 6e 64 6f 77 28 77 69  | .closewindow(wi|
00003ac0  6e 64 6f 77 25 29 0d 15  54 10 c8 8e 20 77 69 6e  |ndow%)..T... win|
00003ad0  64 6f 77 25 20 ca 0d 15  5e 20 20 c9 20 70 72 65  |dow% ...^  . pre|
00003ae0  66 73 25 20 3a 20 f2 72  65 73 74 6f 72 65 6f 6c  |fs% : .restoreol|
00003af0  64 70 72 65 66 73 0d 15  68 27 20 c9 20 73 6c 69  |dprefs..h' . sli|
00003b00  73 74 25 20 3a 20 f2 63  6c 6f 73 65 77 69 6e 64  |st% : .closewind|
00003b10  6f 77 28 73 6c 69 73 74  62 69 74 25 29 0d 15 72  |ow(slistbit%)..r|
00003b20  05 cb 0d 15 7c 05 3a 0d  15 86 13 21 62 6c 6f 63  |....|.:....!bloc|
00003b30  6b 25 3d 77 69 6e 64 6f  77 25 0d 15 90 21 c8 99  |k%=window%...!..|
00003b40  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00003b50  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 15 9a 05 e1  |ow",,block%.....|
00003b60  0d 15 a4 04 0d 15 ae 04  0d 15 b8 55 dd 20 f2 72  |...........U. .r|
00003b70  65 6f 70 65 6e 77 69 6e  64 6f 77 28 77 69 6e 64  |eopenwindow(wind|
00003b80  6f 77 25 29 20 20 20 20  20 20 20 20 20 20 20 3a  |ow%)           :|
00003b90  f4 20 64 6f 6e 27 74 20  61 6c 74 65 72 20 62 6c  |. don't alter bl|
00003ba0  6f 63 6b 25 20 62 65 66  6f 72 65 20 77 69 6e 64  |ock% before wind|
00003bb0  6f 77 20 6f 70 65 6e 69  6e 67 21 21 21 0d 15 c2  |ow opening!!!...|
00003bc0  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 15 cc  |... window% ....|
00003bd0  0f 20 c9 20 73 6c 69 73  74 25 20 3a 0d 15 d6 21  |. . slist% :...!|
00003be0  20 20 6d 69 6e 78 3d 62  6c 6f 63 6b 25 21 34 3a  |  minx=block%!4:|
00003bf0  6d 69 6e 79 3d 62 6c 6f  63 6b 25 21 38 0d 15 e0  |miny=block%!8...|
00003c00  23 20 20 6d 61 78 78 3d  62 6c 6f 63 6b 25 21 31  |#  maxx=block%!1|
00003c10  32 3a 6d 61 78 79 3d 62  6c 6f 63 6b 25 21 31 36  |2:maxy=block%!16|
00003c20  0d 15 ea 15 20 20 68 61  6e 64 25 3d 62 6c 6f 63  |....  hand%=bloc|
00003c30  6b 25 21 32 38 0d 15 f4  17 20 20 21 62 6c 6f 63  |k%!28....  !bloc|
00003c40  6b 25 3d 73 6c 69 73 74  62 69 74 25 0d 15 fe 26  |k%=slistbit%...&|
00003c50  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |  .. "Wimp_GetWi|
00003c60  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00003c70  6b 25 0d 16 08 23 20 20  6c 65 6e 78 3d 39 35 32  |k%...#  lenx=952|
00003c80  3a f4 20 62 6c 6f 63 6b  25 21 31 32 2d 62 6c 6f  |:. block%!12-blo|
00003c90  63 6b 25 21 34 0d 16 12  23 20 20 6c 65 6e 79 3d  |ck%!4...#  leny=|
00003ca0  33 32 38 3a f4 20 62 6c  6f 63 6b 25 21 31 36 2d  |328:. block%!16-|
00003cb0  62 6c 6f 63 6b 25 21 38  0d 16 1c 27 20 20 62 6c  |block%!8...'  bl|
00003cc0  6f 63 6b 25 21 34 3d 6d  69 6e 78 2b 32 32 3a 62  |ock%!4=minx+22:b|
00003cd0  6c 6f 63 6b 25 21 38 3d  6d 69 6e 79 2b 32 30 0d  |lock%!8=miny+20.|
00003ce0  16 26 33 20 20 62 6c 6f  63 6b 25 21 31 32 3d 6d  |.&3  block%!12=m|
00003cf0  69 6e 78 2b 32 32 2b 6c  65 6e 78 3a 62 6c 6f 63  |inx+22+lenx:bloc|
00003d00  6b 25 21 31 36 3d 6d 69  6e 79 2b 32 30 2b 6c 65  |k%!16=miny+20+le|
00003d10  6e 79 0d 16 30 15 20 20  62 6c 6f 63 6b 25 21 32  |ny..0.  block%!2|
00003d20  38 3d 68 61 6e 64 25 0d  16 3a 22 20 20 c8 99 20  |8=hand%..:"  .. |
00003d30  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00003d40  22 2c 2c 62 6c 6f 63 6b  25 0d 16 44 14 20 20 21  |",,block%..D.  !|
00003d50  62 6c 6f 63 6b 25 3d 73  6c 69 73 74 25 0d 16 4e  |block%=slist%..N|
00003d60  26 20 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |&  .. "Wimp_GetW|
00003d70  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6f  |indowState",,blo|
00003d80  63 6b 25 0d 16 58 21 20  20 62 6c 6f 63 6b 25 21  |ck%..X!  block%!|
00003d90  34 3d 6d 69 6e 78 3a 62  6c 6f 63 6b 25 21 38 3d  |4=minx:block%!8=|
00003da0  6d 69 6e 79 0d 16 62 23  20 20 62 6c 6f 63 6b 25  |miny..b#  block%|
00003db0  21 31 32 3d 6d 61 78 78  3a 62 6c 6f 63 6b 25 21  |!12=maxx:block%!|
00003dc0  31 36 3d 6d 61 78 79 0d  16 63 11 20 20 62 6c 6f  |16=maxy..c.  blo|
00003dd0  63 6b 25 21 32 34 3d 30  0d 16 6c 19 20 20 62 6c  |ck%!24=0..l.  bl|
00003de0  6f 63 6b 25 21 32 38 3d  73 6c 69 73 74 62 69 74  |ock%!28=slistbit|
00003df0  25 0d 16 76 22 20 20 c8  99 20 22 57 69 6d 70 5f  |%..v"  .. "Wimp_|
00003e00  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00003e10  63 6b 25 0d 16 80 25 20  7f 20 3a 20 c8 99 20 22  |ck%...% . : .. "|
00003e20  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00003e30  2c 2c 62 6c 6f 63 6b 25  0d 16 8a 05 cb 0d 16 94  |,,block%........|
00003e40  05 e1 0d 16 9e 04 0d 16  a8 04 0d 16 b2 1a dd 20  |............... |
00003e50  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 77 69 6e 64  |.openwindow(wind|
00003e60  6f 77 25 29 0d 16 bc 10  c8 8e 20 77 69 6e 64 6f  |ow%)...... windo|
00003e70  77 25 20 ca 0d 16 c6 1d  20 c9 20 70 72 65 66 73  |w% ..... . prefs|
00003e80  25 20 3a 20 f2 72 65 61  64 6f 6c 64 70 72 65 66  |% : .readoldpref|
00003e90  73 0d 16 da 05 cb 0d 16  e4 05 3a 0d 16 ee 13 21  |s.........:....!|
00003ea0  62 6c 6f 63 6b 25 3d 77  69 6e 64 6f 77 25 0d 16  |block%=window%..|
00003eb0  f8 24 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |.$.. "Wimp_GetWi|
00003ec0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00003ed0  6b 25 0d 17 02 4f 62 6c  6f 63 6b 25 21 32 38 3d  |k%...Oblock%!28=|
00003ee0  2d 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |-1              |
00003ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003f00  20 20 20 20 20 20 3a f4  20 6f 70 65 6e 20 77 69  |      :. open wi|
00003f10  6e 64 6f 77 20 61 74 20  74 68 65 20 66 72 6f 6e  |ndow at the fron|
00003f20  74 0d 17 0c 4c e7 20 77  69 6e 64 6f 77 25 3d 73  |t...L. window%=s|
00003f30  6c 69 73 74 25 20 8c 20  f2 72 65 6f 70 65 6e 77  |list% . .reopenw|
00003f40  69 6e 64 6f 77 28 77 69  6e 64 6f 77 25 29 20 8b  |indow(window%) .|
00003f50  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00003f60  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 17 16  |ndow",,block%...|
00003f70  05 e1 0d 17 20 04 0d 17  2a 04 0d 17 34 0e dd 20  |.... ...*...4.. |
00003f80  f2 72 65 63 65 69 76 65  0d 17 3e 12 c8 8e 20 62  |.receive..>... b|
00003f90  6c 6f 63 6b 25 21 31 36  20 ca 0d 17 48 50 20 c9  |lock%!16 ...HP .|
00003fa0  20 30 20 3a 20 71 75 69  74 25 3d b9 20 20 20 20  | 0 : quit%=.    |
00003fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003fc0  20 20 20 20 20 20 20 20  3a f4 20 6d 65 73 73 61  |        :. messa|
00003fd0  67 65 20 30 20 3d 20 74  61 73 6b 20 6d 61 6e 61  |ge 0 = task mana|
00003fe0  67 65 72 20 3e 20 71 75  69 74 0d 17 52 46 20 c9  |ger > quit..RF .|
00003ff0  20 33 20 3a 20 f2 64 61  74 61 6c 6f 61 64 28 62  | 3 : .dataload(b|
00004000  6c 6f 63 6b 25 21 34 30  29 20 20 20 20 20 20 20  |lock%!40)       |
00004010  20 20 20 20 20 20 20 20  3a f4 20 6d 65 73 73 61  |        :. messa|
00004020  67 65 20 33 20 3d 20 6c  6f 61 64 20 64 61 74 61  |ge 3 = load data|
00004030  0d 17 5c 50 20 c9 20 35  20 3a 20 f2 64 61 74 61  |..\P . 5 : .data|
00004040  6c 6f 61 64 28 62 6c 6f  63 6b 25 21 34 30 29 20  |load(block%!40) |
00004050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
00004060  20 6d 65 73 73 61 67 65  20 35 20 3d 20 6c 6f 61  | message 5 = loa|
00004070  64 20 27 64 6f 75 62 6c  65 2d 63 6c 69 63 6b 27  |d 'double-click'|
00004080  0d 17 66 05 cb 0d 17 70  05 e1 0d 17 7a 04 0d 17  |..f....p....z...|
00004090  84 04 0d 17 8e 16 dd 20  f2 64 61 74 61 6c 6f 61  |....... .dataloa|
000040a0  64 28 74 79 70 65 25 29  0d 17 98 29 70 61 74 68  |d(type%)...)path|
000040b0  6e 61 6d 65 24 3d a4 62  6c 6f 63 6b 5f 74 6f 5f  |name$=.block_to_|
000040c0  73 74 72 69 6e 67 28 62  6c 6f 63 6b 25 2b 34 34  |string(block%+44|
000040d0  29 0d 17 a2 0e c8 8e 20  74 79 70 65 25 20 ca 0d  |)...... type% ..|
000040e0  17 ac 52 20 c9 20 26 31  30 30 30 20 3a 20 20 20  |..R . &1000 :   |
000040f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00004110  3a f4 20 66 69 6c 65 20  74 79 70 65 20 26 31 30  |:. file type &10|
00004120  30 30 20 69 73 20 61 20  64 69 72 65 63 74 6f 72  |00 is a director|
00004130  79 0d 17 b6 46 20 c9 20  26 30 30 30 2c 26 30 30  |y...F . &000,&00|
00004140  31 2c 26 43 43 35 2c 26  43 42 36 20 3a 20 f2 71  |1,&CC5,&CB6 : .q|
00004150  74 6d 6c 6f 61 64 28 70  61 74 68 6e 61 6d 65 24  |tmload(pathname$|
00004160  2c b9 29 20 3a 20 f2 70  6c 61 79 20 3a 20 f2 69  |,.) : .play : .i|
00004170  6e 69 74 73 6f 6e 67 0d  17 c0 20 7f 20 3a 20 e7  |nitsong... . : .|
00004180  20 62 6c 6f 63 6b 25 21  31 36 3d 33 20 8c 20 f2  | block%!16=3 . .|
00004190  61 73 6b 6c 6f 61 64 0d  17 ca 05 cb 0d 17 d4 05  |askload.........|
000041a0  e1 0d 17 de 04 0d 17 e8  04 0d 17 f2 0e dd 20 f2  |.............. .|
000041b0  61 73 6b 6c 6f 61 64 0d  17 fc 61 63 6c 69 63 6b  |askload...aclick|
000041c0  25 3d a4 6f 6b 63 61 6e  63 65 6c 62 6f 78 28 22  |%=.okcancelbox("|
000041d0  51 75 65 73 74 69 6f 6e  20 66 72 6f 6d 20 51 54  |Question from QT|
000041e0  4d 22 2c 22 49 20 64 6f  6e 27 74 20 72 65 63 6f  |M","I don't reco|
000041f0  67 6e 69 73 65 20 74 68  69 73 20 66 69 6c 65 2d  |gnise this file-|
00004200  74 79 70 65 2c 20 73 68  61 6c 6c 20 49 20 6c 6f  |type, shall I lo|
00004210  61 64 20 69 74 3f 22 29  0d 18 06 1e e7 20 63 6c  |ad it?")..... cl|
00004220  69 63 6b 25 3d 25 31 30  20 8c 20 e1 20 3a f4 20  |ick%=%10 . . :. |
00004230  63 61 6e 63 65 6c 0d 18  10 19 f2 71 74 6d 6c 6f  |cancel.....qtmlo|
00004240  61 64 28 70 61 74 68 6e  61 6d 65 24 2c b9 29 0d  |ad(pathname$,.).|
00004250  18 1a 09 f2 70 6c 61 79  0d 18 24 0d f2 69 6e 69  |....play..$..ini|
00004260  74 73 6f 6e 67 0d 18 2e  05 e1 0d 18 38 04 0d 18  |tsong.......8...|
00004270  42 04 0d 18 4c 1c dd 20  a4 62 6c 6f 63 6b 5f 74  |B...L.. .block_t|
00004280  6f 5f 73 74 72 69 6e 67  28 70 6f 73 25 29 0d 18  |o_string(pos%)..|
00004290  56 0d ea 20 73 74 72 69  6e 67 24 0d 18 60 05 f5  |V.. string$..`..|
000042a0  0d 18 6a 15 73 74 72 69  6e 67 24 2b 3d bd 28 3f  |..j.string$+=.(?|
000042b0  70 6f 73 25 29 0d 18 74  0b 70 6f 73 25 2b 3d 31  |pos%)..t.pos%+=1|
000042c0  0d 18 7e 0c fd 3f 70 6f  73 25 3d 30 0d 18 88 0c  |..~..?pos%=0....|
000042d0  3d 73 74 72 69 6e 67 24  0d 18 92 04 0d 18 9c 04  |=string$........|
000042e0  0d 18 a6 20 dd 20 a4 66  69 6e 64 69 6e 64 73 74  |... . .findindst|
000042f0  72 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |r(window%,icon%)|
00004300  0d 18 b0 22 21 62 6c 6f  63 6b 25 3d 77 69 6e 64  |..."!block%=wind|
00004310  6f 77 25 3a 62 6c 6f 63  6b 25 21 34 3d 69 63 6f  |ow%:block%!4=ico|
00004320  6e 25 0d 18 ba 22 c8 99  20 22 57 69 6d 70 5f 47  |n%...".. "Wimp_G|
00004330  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 62 6c  |etIconState",,bl|
00004340  6f 63 6b 25 0d 18 c4 0e  3d 62 6c 6f 63 6b 25 21  |ock%....=block%!|
00004350  32 38 0d 18 ce 04 0d 18  d8 04 0d 18 e2 22 dd 20  |28...........". |
00004360  a4 66 69 6e 64 76 61 6c  69 64 73 74 72 28 77 69  |.findvalidstr(wi|
00004370  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 18 ec 22  |ndow%,icon%)..."|
00004380  21 62 6c 6f 63 6b 25 3d  77 69 6e 64 6f 77 25 3a  |!block%=window%:|
00004390  62 6c 6f 63 6b 25 21 34  3d 69 63 6f 6e 25 0d 18  |block%!4=icon%..|
000043a0  f6 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.".. "Wimp_GetIc|
000043b0  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000043c0  0d 19 00 0e 3d 62 6c 6f  63 6b 25 21 33 32 0d 19  |....=block%!32..|
000043d0  0a 04 0d 19 14 04 0d 19  1e 1d dd 20 a4 63 68 65  |........... .che|
000043e0  63 6b 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |ckon(window%,ico|
000043f0  6e 25 29 0d 19 28 14 62  6c 6f 63 6b 25 21 30 3d  |n%)..(.block%!0=|
00004400  77 69 6e 64 6f 77 25 0d  19 32 12 62 6c 6f 63 6b  |window%..2.block|
00004410  25 21 34 3d 69 63 6f 6e  25 0d 19 3c 22 c8 99 20  |%!4=icon%..<".. |
00004420  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00004430  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 19 46 14 66  |te",,block%..F.f|
00004440  6c 61 67 73 25 3d 62 6c  6f 63 6b 25 21 32 34 0d  |lags%=block%!24.|
00004450  19 50 19 e7 20 66 6c 61  67 73 25 20 80 20 31 3c  |.P.. flags% . 1<|
00004460  3c 32 31 20 8c 20 3d b9  0d 19 5a 06 3d a3 0d 19  |<21 . =...Z.=...|
00004470  64 04 0d 19 6e 04 0d 19  78 20 dd 20 f2 73 65 6c  |d...n...x . .sel|
00004480  65 63 74 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |ecticon(window%,|
00004490  69 63 6f 6e 25 29 0d 19  82 15 62 6c 6f 63 6b 25  |icon%)....block%|
000044a0  21 30 30 3d 77 69 6e 64  6f 77 25 0d 19 8c 13 62  |!00=window%....b|
000044b0  6c 6f 63 6b 25 21 30 34  3d 69 63 6f 6e 25 0d 19  |lock%!04=icon%..|
000044c0  96 13 62 6c 6f 63 6b 25  21 30 38 3d 31 3c 3c 32  |..block%!08=1<<2|
000044d0  31 0d 19 a0 13 62 6c 6f  63 6b 25 21 31 32 3d 31  |1....block%!12=1|
000044e0  3c 3c 32 31 0d 19 aa 22  c8 99 20 22 57 69 6d 70  |<<21...".. "Wimp|
000044f0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00004500  62 6c 6f 63 6b 25 0d 19  b4 05 e1 0d 19 be 04 0d  |block%..........|
00004510  19 c8 04 0d 19 d2 21 dd  20 f2 64 69 73 61 62 6c  |......!. .disabl|
00004520  65 69 63 6f 6e 28 77 69  6e 64 6f 77 25 2c 69 63  |eicon(window%,ic|
00004530  6f 6e 25 29 0d 19 dc 15  62 6c 6f 63 6b 25 21 30  |on%)....block%!0|
00004540  30 3d 77 69 6e 64 6f 77  25 0d 19 e6 13 62 6c 6f  |0=window%....blo|
00004550  63 6b 25 21 30 34 3d 69  63 6f 6e 25 0d 19 f0 0f  |ck%!04=icon%....|
00004560  62 6c 6f 63 6b 25 21 30  38 3d 30 0d 19 fa 13 62  |block%!08=0....b|
00004570  6c 6f 63 6b 25 21 31 32  3d 31 3c 3c 32 31 0d 1a  |lock%!12=1<<21..|
00004580  04 22 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.".. "Wimp_SetIc|
00004590  6f 6e 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |onState",,block%|
000045a0  0d 1a 0e 05 e1 0d 1a 18  04 0d 1a 22 04 0d 1a 2c  |..........."...,|
000045b0  1f dd 20 f2 73 68 61 64  65 69 63 6f 6e 28 77 69  |.. .shadeicon(wi|
000045c0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 1a 36 15  |ndow%,icon%)..6.|
000045d0  62 6c 6f 63 6b 25 21 30  30 3d 77 69 6e 64 6f 77  |block%!00=window|
000045e0  25 0d 1a 40 13 62 6c 6f  63 6b 25 21 30 34 3d 69  |%..@.block%!04=i|
000045f0  63 6f 6e 25 0d 1a 4a 13  62 6c 6f 63 6b 25 21 30  |con%..J.block%!0|
00004600  38 3d 31 3c 3c 32 32 0d  1a 54 13 62 6c 6f 63 6b  |8=1<<22..T.block|
00004610  25 21 31 32 3d 31 3c 3c  32 32 0d 1a 5e 22 c8 99  |%!12=1<<22..^"..|
00004620  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00004630  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 1a 68 05  |ate",,block%..h.|
00004640  e1 0d 1a 72 04 0d 1a 7c  04 0d 1a 86 21 dd 20 f2  |...r...|....!. .|
00004650  75 6e 73 68 61 64 65 69  63 6f 6e 28 77 69 6e 64  |unshadeicon(wind|
00004660  6f 77 25 2c 69 63 6f 6e  25 29 0d 1a 90 15 62 6c  |ow%,icon%)....bl|
00004670  6f 63 6b 25 21 30 30 3d  77 69 6e 64 6f 77 25 0d  |ock%!00=window%.|
00004680  1a 9a 13 62 6c 6f 63 6b  25 21 30 34 3d 69 63 6f  |...block%!04=ico|
00004690  6e 25 0d 1a a4 0f 62 6c  6f 63 6b 25 21 30 38 3d  |n%....block%!08=|
000046a0  30 0d 1a ae 13 62 6c 6f  63 6b 25 21 31 32 3d 31  |0....block%!12=1|
000046b0  3c 3c 32 32 0d 1a b8 22  c8 99 20 22 57 69 6d 70  |<<22...".. "Wimp|
000046c0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000046d0  62 6c 6f 63 6b 25 0d 1a  c2 05 e1 0d 1a cc 04 0d  |block%..........|
000046e0  1a d6 04 0d 1a e0 20 dd  20 f2 75 70 64 61 74 65  |...... . .update|
000046f0  69 63 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |icon(window%,ico|
00004700  6e 25 29 0d 1a ea 15 62  6c 6f 63 6b 25 21 30 30  |n%)....block%!00|
00004710  3d 77 69 6e 64 6f 77 25  0d 1a f4 13 62 6c 6f 63  |=window%....bloc|
00004720  6b 25 21 30 34 3d 69 63  6f 6e 25 0d 1a fe 0f 62  |k%!04=icon%....b|
00004730  6c 6f 63 6b 25 21 30 38  3d 30 0d 1b 08 0f 62 6c  |lock%!08=0....bl|
00004740  6f 63 6b 25 21 31 32 3d  30 0d 1b 12 22 c8 99 20  |ock%!12=0...".. |
00004750  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00004760  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 1b 1c 05 e1  |te",,block%.....|
00004770  0d 1b 26 04 0d 1b 30 04  0d 1b 3a 1b dd 20 a4 63  |..&...0...:.. .c|
00004780  68 65 63 6b 77 69 6e 64  6f 77 28 77 69 6e 64 6f  |heckwindow(windo|
00004790  77 25 29 0d 1b 44 13 21  62 6c 6f 63 6b 25 3d 77  |w%)..D.!block%=w|
000047a0  69 6e 64 6f 77 25 0d 1b  4e 24 c8 99 20 22 57 69  |indow%..N$.. "Wi|
000047b0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
000047c0  65 22 2c 2c 62 6c 6f 63  6b 25 0d 1b 58 29 e7 20  |e",,block%..X). |
000047d0  28 28 62 6c 6f 63 6b 25  21 33 32 29 20 80 20 25  |((block%!32) . %|
000047e0  31 3c 3c 31 36 29 3d 28  31 3c 3c 31 36 29 20 8c  |1<<16)=(1<<16) .|
000047f0  20 3d b9 0d 1b 62 06 3d  a3 0d 1b 6c 04 0d 1b 76  | =...b.=...l...v|
00004800  04 0d 1b 80 0f dd 20 f2  66 6c 69 70 69 63 6f 6e  |...... .flipicon|
00004810  0d 1b 8a 42 e7 20 24 69  63 6f 6e 6e 61 6d 65 25  |...B. $iconname%|
00004820  3d 22 69 63 6f 6e 31 22  20 8c 20 24 69 63 6f 6e  |="icon1" . $icon|
00004830  6e 61 6d 65 25 3d 22 69  63 6f 6e 32 22 20 8b 20  |name%="icon2" . |
00004840  24 69 63 6f 6e 6e 61 6d  65 25 3d 22 69 63 6f 6e  |$iconname%="icon|
00004850  31 22 0d 1b 94 20 f2 75  70 64 61 74 65 69 63 6f  |1"... .updateico|
00004860  6e 28 2d 31 2c 69 63 6f  6e 62 61 72 69 63 6f 6e  |n(-1,iconbaricon|
00004870  25 29 0d 1b 9e 05 e1 0d  1b a8 04 0d 1b b2 04 0d  |%)..............|
00004880  1b bc 10 dd 20 f2 69 6e  69 74 6f 74 68 65 72 0d  |.... .initother.|
00004890  1b c6 16 76 6f 6c 73 70  72 5f 78 3d 32 32 2b 36  |...volspr_x=22+6|
000048a0  30 38 2d 35 36 0d 1b d0  11 76 6f 6c 73 70 72 5f  |08-56....volspr_|
000048b0  79 3d 2d 33 38 30 0d 1b  da 0b 64 72 61 67 25 3d  |y=-380....drag%=|
000048c0  a3 0d 1b e4 05 e1 0d 1b  ee 04 0d 1b f8 04 0d 1c  |................|
000048d0  02 13 dd 20 f2 69 6e 69  74 51 54 4d 73 74 61 74  |... .initQTMstat|
000048e0  65 0d 1c 0c 0d 66 5f 63  6f 75 6e 74 3d 30 0d 1c  |e....f_count=0..|
000048f0  16 0d 72 5f 63 6f 75 6e  74 3d 30 0d 1c 20 10 63  |..r_count=0.. .c|
00004900  75 72 72 65 6e 74 73 65  71 3d 30 0d 1c 2a 0d 73  |urrentseq=0..*.s|
00004910  70 65 61 6b 65 72 3d a3  0d 1c 34 25 c8 99 20 22  |peaker=...4%.. "|
00004920  53 6f 75 6e 64 5f 53 70  65 61 6b 65 72 22 2c 30  |Sound_Speaker",0|
00004930  20 b8 20 6e 65 77 73 70  65 61 6b 65 72 0d 1c 3e  | . newspeaker..>|
00004940  23 e7 20 6e 65 77 73 70  65 61 6b 65 72 3d 32 20  |#. newspeaker=2 |
00004950  8c 20 f2 74 6f 67 67 61  6c 73 70 65 61 6b 65 72  |. .toggalspeaker|
00004960  0d 1c 48 05 3a 0d 1c 52  3c e7 20 ac 20 a4 6c 6f  |..H.:..R<. . .lo|
00004970  61 64 70 72 65 66 73 20  8c 20 6b 69 6c 6c 6d 75  |adprefs . killmu|
00004980  73 69 63 25 3d b9 3a 6f  70 65 6e 63 74 72 6c 25  |sic%=.:openctrl%|
00004990  3d b9 3a 73 61 6d 70 6c  65 73 70 65 65 64 3d 2d  |=.:samplespeed=-|
000049a0  31 0d 1c 5c 1f f2 75 70  64 61 74 65 73 6e 64 71  |1..\..updatesndq|
000049b0  75 61 6c 28 73 61 6d 70  6c 65 73 70 65 65 64 29  |ual(samplespeed)|
000049c0  0d 1c 66 51 e7 20 6b 69  6c 6c 6d 75 73 69 63 25  |..fQ. killmusic%|
000049d0  20 f2 73 65 6c 65 63 74  69 63 6f 6e 28 70 72 65  | .selecticon(pre|
000049e0  66 73 25 2c 71 75 69 74  6b 69 6c 6c 6d 25 29 20  |fs%,quitkillm%) |
000049f0  8b 20 f2 64 69 73 61 62  6c 65 69 63 6f 6e 28 70  |. .disableicon(p|
00004a00  72 65 66 73 25 2c 71 75  69 74 6b 69 6c 6c 6d 25  |refs%,quitkillm%|
00004a10  29 0d 1c 70 54 e7 20 6f  70 65 6e 63 74 72 6c 25  |)..pT. openctrl%|
00004a20  20 f2 73 65 6c 65 63 74  69 63 6f 6e 28 70 72 65  | .selecticon(pre|
00004a30  66 73 25 2c 63 74 72 6c  77 69 6e 6f 70 65 6e 25  |fs%,ctrlwinopen%|
00004a40  29 20 8b 20 f2 64 69 73  61 62 6c 65 69 63 6f 6e  |) . .disableicon|
00004a50  28 70 72 65 66 73 25 2c  63 74 72 6c 77 69 6e 6f  |(prefs%,ctrlwino|
00004a60  70 65 6e 25 29 0d 1c 7a  05 3a 0d 1c 84 29 e7 20  |pen%)..z.:...). |
00004a70  6c 6f 61 64 24 3c 3e 22  22 20 8c 20 f2 71 74 6d  |load$<>"" . .qtm|
00004a80  6c 6f 61 64 28 6c 6f 61  64 24 2c a3 29 3a f2 70  |load(load$,.):.p|
00004a90  6c 61 79 0d 1c 8e 21 c8  99 20 22 51 54 4d 5f 53  |lay...!.. "QTM_S|
00004aa0  6f 6e 67 53 74 61 74 75  73 22 20 b8 20 6c 6f 61  |ongStatus" . loa|
00004ab0  64 65 64 25 0d 1c 98 3c  e7 20 28 6c 6f 61 64 65  |ded%...<. (loade|
00004ac0  64 25 20 80 20 31 29 3d  31 20 8c 20 6c 6f 61 64  |d% . 1)=1 . load|
00004ad0  65 64 25 3d b9 20 8b 20  6c 6f 61 64 65 64 25 3d  |ed%=. . loaded%=|
00004ae0  a3 3a f2 72 65 73 65 74  73 6f 6e 67 69 6e 66 6f  |.:.resetsonginfo|
00004af0  0d 1c a2 0d f2 69 6e 69  74 73 6f 6e 67 0d 1c ac  |.....initsong...|
00004b00  05 e1 0d 1c b6 04 0d 1c  c0 04 0d 1c ca 0f dd 20  |............... |
00004b10  f2 69 6e 69 74 73 6f 6e  67 0d 1c d4 13 e7 20 ac  |.initsong..... .|
00004b20  20 6c 6f 61 64 65 64 25  20 8c 20 e1 0d 1c de 05  | loaded% . .....|
00004b30  3a 0d 1c e8 45 c8 99 20  22 58 51 54 4d 5f 49 6e  |:...E.. "XQTM_In|
00004b40  66 6f 22 20 b8 20 74 69  74 6c 65 2c 61 75 74 68  |fo" . title,auth|
00004b50  6f 72 2c 74 79 70 65 2c  63 68 61 6e 73 2c 6c 65  |or,type,chans,le|
00004b60  6e 67 74 68 2c 67 61 72  62 2c 61 64 64 72 20 3b  |ngth,garb,addr ;|
00004b70  66 6c 61 67 73 25 0d 1c  f2 16 e7 20 28 66 6c 61  |flags%..... (fla|
00004b80  67 73 25 20 80 20 31 29  3d 31 20 8c 0d 1c fc 24  |gs% . 1)=1 ....$|
00004b90  20 24 63 74 72 6c 5f 74  69 74 6c 65 25 3d 22 3c  | $ctrl_title%="<|
00004ba0  6e 6f 20 73 6f 6e 67 20  6c 6f 61 64 65 64 3e 22  |no song loaded>"|
00004bb0  0d 1d 06 0e 20 6c 6f 61  64 65 64 25 3d a3 0d 1d  |.... loaded%=...|
00004bc0  10 0c 20 73 74 61 74 65  3d 30 0d 1d 1a 11 20 f2  |.. state=0.... .|
00004bd0  75 70 64 61 74 65 73 74  61 74 65 0d 1d 24 14 20  |updatestate..$. |
00004be0  24 6d 61 78 73 65 71 73  25 3d 22 30 30 30 22 0d  |$maxseqs%="000".|
00004bf0  1d 2e 10 20 24 73 65 71  25 3d 22 30 30 30 22 0d  |... $seq%="000".|
00004c00  1d 38 27 20 f2 75 70 64  61 74 65 69 63 6f 6e 28  |.8' .updateicon(|
00004c10  63 6f 6e 74 72 6f 6c 25  2c 6d 61 78 73 65 71 5f  |control%,maxseq_|
00004c20  69 63 6f 6e 25 29 0d 1d  42 26 20 f2 75 70 64 61  |icon%)..B& .upda|
00004c30  74 65 69 63 6f 6e 28 63  6f 6e 74 72 6f 6c 25 2c  |teicon(control%,|
00004c40  63 72 73 65 71 5f 69 63  6f 6e 25 29 0d 1d 4c 05  |crseq_icon%)..L.|
00004c50  cc 0d 1d 56 29 20 24 63  74 72 6c 5f 74 69 74 6c  |...V) $ctrl_titl|
00004c60  65 25 3d a4 62 6c 6f 63  6b 5f 74 6f 5f 73 74 72  |e%=.block_to_str|
00004c70  69 6e 67 28 74 69 74 6c  65 29 0d 1d 60 05 cd 0d  |ing(title)..`...|
00004c80  1d 6a 14 21 62 6c 6f 63  6b 25 3d 63 6f 6e 74 72  |.j.!block%=contr|
00004c90  6f 6c 25 0d 1d 74 24 c8  99 20 22 57 69 6d 70 5f  |ol%..t$.. "Wimp_|
00004ca0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00004cb0  2c 62 6c 6f 63 6b 25 0d  1d 7e 26 e7 20 28 28 62  |,block%..~&. ((b|
00004cc0  6c 6f 63 6b 25 21 33 32  29 20 80 20 25 31 3c 3c  |lock%!32) . %1<<|
00004cd0  31 36 29 3d 28 31 3c 3c  31 36 29 20 8c 0d 1d 88  |16)=(1<<16) ....|
00004ce0  4e 20 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |N .. "Wimp_Force|
00004cf0  52 65 64 72 61 77 22 2c  2d 31 2c 28 62 6c 6f 63  |Redraw",-1,(bloc|
00004d00  6b 25 21 34 29 2b 38 34  2c 62 6c 6f 63 6b 25 21  |k%!4)+84,block%!|
00004d10  31 36 2c 62 6c 6f 63 6b  25 21 31 32 2c 28 62 6c  |16,block%!12,(bl|
00004d20  6f 63 6b 25 21 31 36 29  2b 34 34 0d 1d 92 05 cd  |ock%!16)+44.....|
00004d30  0d 1d 9c 05 3a 0d 1d a6  13 e7 20 ac 20 6c 6f 61  |....:..... . loa|
00004d40  64 65 64 25 20 8c 20 e1  0d 1d b0 05 3a 0d 1d ba  |ded% . .....:...|
00004d50  28 c8 99 20 22 51 54 4d  5f 52 65 61 64 53 6f 6e  |(.. "QTM_ReadSon|
00004d60  67 4c 65 6e 67 74 68 22  20 b8 20 73 65 71 73 2c  |gLength" . seqs,|
00004d70  70 61 74 74 73 0d 1d c4  1d 24 6d 61 78 73 65 71  |patts....$maxseq|
00004d80  73 25 3d c2 22 30 30 30  22 2b c3 73 65 71 73 2c  |s%=."000"+.seqs,|
00004d90  33 29 0d 1d ce 2e c8 99  20 22 51 54 4d 5f 50 6f  |3)...... "QTM_Po|
00004da0  73 22 2c 2d 31 2c 2d 31  20 b8 20 63 75 72 72 65  |s",-1,-1 . curre|
00004db0  6e 74 73 65 71 2c 63 75  72 72 65 6e 74 65 76 74  |ntseq,currentevt|
00004dc0  0d 1d d8 1f 24 73 65 71  25 3d c2 22 30 30 30 22  |....$seq%=."000"|
00004dd0  2b c3 63 75 72 72 65 6e  74 73 65 71 2c 33 29 0d  |+.currentseq,3).|
00004de0  1d e2 26 f2 75 70 64 61  74 65 69 63 6f 6e 28 63  |..&.updateicon(c|
00004df0  6f 6e 74 72 6f 6c 25 2c  6d 61 78 73 65 71 5f 69  |ontrol%,maxseq_i|
00004e00  63 6f 6e 25 29 0d 1d ec  25 f2 75 70 64 61 74 65  |con%)...%.update|
00004e10  69 63 6f 6e 28 63 6f 6e  74 72 6f 6c 25 2c 63 72  |icon(control%,cr|
00004e20  73 65 71 5f 69 63 6f 6e  25 29 0d 1d f6 05 3a 0d  |seq_icon%)....:.|
00004e30  1e 00 29 c8 99 20 22 51  54 4d 5f 52 65 61 64 50  |..).. "QTM_ReadP|
00004e40  6c 61 79 69 6e 67 54 69  6d 65 22 20 b8 20 2c 2c  |layingTime" . ,,|
00004e50  65 73 74 74 6f 74 61 6c  0d 1e 0a 3c 24 74 69 6d  |esttotal...<$tim|
00004e60  65 69 6e 64 25 3d c3 28  65 73 74 74 6f 74 61 6c  |eind%=.(esttotal|
00004e70  20 81 20 36 30 29 2b 22  3a 22 2b c2 22 30 30 22  | . 60)+":"+."00"|
00004e80  2b c3 28 65 73 74 74 6f  74 61 6c 20 83 20 36 30  |+.(esttotal . 60|
00004e90  29 2c 32 29 0d 1e 14 25  24 6e 61 6d 65 69 6e 64  |),2)...%$nameind|
00004ea0  25 3d a4 62 6c 6f 63 6b  5f 74 6f 5f 73 74 72 69  |%=.block_to_stri|
00004eb0  6e 67 28 74 69 74 6c 65  29 0d 1e 1e 4f e7 20 61  |ng(title)...O. a|
00004ec0  75 74 68 6f 72 3d 30 20  8c 20 24 61 75 74 68 6f  |uthor=0 . $autho|
00004ed0  72 69 6e 64 25 3d 22 3c  75 6e 6b 6e 6f 77 6e 3e  |rind%="<unknown>|
00004ee0  22 20 8b 20 24 61 75 74  68 6f 72 69 6e 64 25 3d  |" . $authorind%=|
00004ef0  a4 62 6c 6f 63 6b 5f 74  6f 5f 73 74 72 69 6e 67  |.block_to_string|
00004f00  28 61 75 74 68 6f 72 29  0d 1e 28 40 e7 20 74 79  |(author)..(@. ty|
00004f10  70 65 3d 30 20 8c 20 24  73 74 79 70 65 69 6e 64  |pe=0 . $stypeind|
00004f20  25 3d 22 53 6f 75 6e 64  20 74 72 61 63 6b 65 72  |%="Sound tracker|
00004f30  20 31 35 20 69 6e 73 74  22 20 3a f4 20 63 6f 6d  | 15 inst" :. com|
00004f40  70 61 74 69 62 6c 65 22  0d 1e 32 40 e7 20 74 79  |patible"..2@. ty|
00004f50  70 65 3d 31 20 8c 20 24  73 74 79 70 65 69 6e 64  |pe=1 . $stypeind|
00004f60  25 3d 22 53 6f 75 6e 64  20 74 72 61 63 6b 65 72  |%="Sound tracker|
00004f70  20 33 31 20 69 6e 73 74  22 20 3a f4 20 63 6f 6d  | 31 inst" :. com|
00004f80  70 61 74 69 62 6c 65 22  0d 1e 3c 35 e7 20 74 79  |patible"..<5. ty|
00004f90  70 65 3d 32 20 8c 20 24  73 74 79 70 65 69 6e 64  |pe=2 . $stypeind|
00004fa0  25 3d 22 50 72 6f 74 72  61 63 6b 65 72 20 33 31  |%="Protracker 31|
00004fb0  20 69 6e 73 74 20 28 4d  2e 4b 2e 29 22 0d 1e 46  | inst (M.K.)"..F|
00004fc0  38 e7 20 74 79 70 65 3d  33 20 8c 20 24 73 74 79  |8. type=3 . $sty|
00004fd0  70 65 69 6e 64 25 3d 22  53 74 61 72 74 72 65 6b  |peind%="Startrek|
00004fe0  6b 65 72 20 34 20 63 68  61 6e 6e 65 6c 20 28 46  |ker 4 channel (F|
00004ff0  4c 54 34 29 22 0d 1e 50  38 e7 20 74 79 70 65 3d  |LT4)"..P8. type=|
00005000  34 20 8c 20 24 73 74 79  70 65 69 6e 64 25 3d 22  |4 . $stypeind%="|
00005010  53 74 61 72 74 72 65 6b  6b 65 72 20 38 20 63 68  |Startrekker 8 ch|
00005020  61 6e 6e 65 6c 20 28 46  4c 54 38 29 22 0d 1e 5a  |annel (FLT8)"..Z|
00005030  19 24 67 61 72 62 61 67  65 69 6e 64 25 3d c3 94  |.$garbageind%=..|
00005040  28 67 61 72 62 29 0d 1e  64 0e e7 20 67 61 72 62  |(garb)..d.. garb|
00005050  3c 30 20 8c 0d 1e 6e 5b  20 e7 20 24 63 72 70 74  |<0 ...n[ . $crpt|
00005060  74 79 70 65 69 6e 64 25  3c 3e 22 43 6f 72 72 75  |typeind%<>"Corru|
00005070  70 74 65 64 22 20 8c 20  24 63 72 70 74 74 79 70  |pted" . $crpttyp|
00005080  65 69 6e 64 25 3d 22 43  6f 72 72 75 70 74 65 64  |eind%="Corrupted|
00005090  22 3a f2 75 70 64 61 74  65 69 63 6f 6e 28 73 69  |":.updateicon(si|
000050a0  6e 66 6f 25 2c 63 72 70  74 74 79 70 65 25 29 0d  |nfo%,crpttype%).|
000050b0  1e 78 05 cc 0d 1e 82 61  20 e7 20 24 63 72 70 74  |.x.....a . $crpt|
000050c0  74 79 70 65 69 6e 64 25  3c 3e 22 47 61 72 62 61  |typeind%<>"Garba|
000050d0  67 65 20 64 61 74 61 22  20 8c 20 24 63 72 70 74  |ge data" . $crpt|
000050e0  74 79 70 65 69 6e 64 25  3d 22 47 61 72 62 61 67  |typeind%="Garbag|
000050f0  65 20 64 61 74 61 22 3a  f2 75 70 64 61 74 65 69  |e data":.updatei|
00005100  63 6f 6e 28 73 69 6e 66  6f 25 2c 63 72 70 74 74  |con(sinfo%,crptt|
00005110  79 70 65 25 29 0d 1e 8c  05 cd 0d 1e 96 05 3a 0d  |ype%).........:.|
00005120  1e a0 14 24 6c 65 6e 69  6e 64 25 3d c3 6c 65 6e  |...$lenind%=.len|
00005130  67 74 68 0d 1e aa 21 f2  75 70 64 61 74 65 69 63  |gth...!.updateic|
00005140  6f 6e 28 73 69 6e 66 6f  25 2c 6e 61 6d 65 69 63  |on(sinfo%,nameic|
00005150  6f 6e 25 29 0d 1e b4 23  f2 75 70 64 61 74 65 69  |on%)...#.updatei|
00005160  63 6f 6e 28 73 69 6e 66  6f 25 2c 61 75 74 68 6f  |con(sinfo%,autho|
00005170  72 69 63 6f 6e 25 29 0d  1e be 22 f2 75 70 64 61  |ricon%)...".upda|
00005180  74 65 69 63 6f 6e 28 73  69 6e 66 6f 25 2c 73 74  |teicon(sinfo%,st|
00005190  79 70 65 69 63 6f 6e 25  29 0d 1e c8 21 f2 75 70  |ypeicon%)...!.up|
000051a0  64 61 74 65 69 63 6f 6e  28 73 69 6e 66 6f 25 2c  |dateicon(sinfo%,|
000051b0  70 6c 61 79 74 69 6d 65  25 29 0d 1e d2 20 f2 75  |playtime%)... .u|
000051c0  70 64 61 74 65 69 63 6f  6e 28 73 69 6e 66 6f 25  |pdateicon(sinfo%|
000051d0  2c 63 6f 72 72 75 70 74  25 29 0d 1e dc 1f f2 75  |,corrupt%).....u|
000051e0  70 64 61 74 65 69 63 6f  6e 28 73 69 6e 66 6f 25  |pdateicon(sinfo%|
000051f0  2c 6d 6f 64 6c 65 6e 25  29 0d 1e e6 05 3a 0d 1e  |,modlen%)....:..|
00005200  f0 12 f2 72 65 61 64 73  61 6d 70 69 6e 66 6f 73  |...readsampinfos|
00005210  0d 1e fa 05 3a 0d 1f 04  1f c8 99 20 22 51 54 4d  |....:...... "QTM|
00005220  5f 53 6f 6e 67 53 74 61  74 75 73 22 20 b8 20 73  |_SongStatus" . s|
00005230  74 61 74 65 0d 1f 0e 2f  e7 20 28 73 74 61 74 65  |tate.../. (state|
00005240  20 80 20 31 3c 3c 32 29  3d 28 31 3c 3c 32 29 20  | . 1<<2)=(1<<2) |
00005250  8c 20 73 74 61 74 65 3d  31 20 8b 20 73 74 61 74  |. state=1 . stat|
00005260  65 3d 30 0d 1f 18 10 f2  75 70 64 61 74 65 73 74  |e=0.....updatest|
00005270  61 74 65 0d 1f 22 05 e1  0d 1f 2c 04 0d 1f 36 04  |ate.."....,...6.|
00005280  0d 1f 40 14 dd 20 f2 72  65 73 65 74 73 6f 6e 67  |..@.. .resetsong|
00005290  69 6e 66 6f 0d 1f 4a 14  24 74 69 6d 65 69 6e 64  |info..J.$timeind|
000052a0  25 3d 22 30 3a 30 30 22  0d 1f 54 20 24 6e 61 6d  |%="0:00"..T $nam|
000052b0  65 69 6e 64 25 3d 22 3c  6e 6f 20 73 6f 6e 67 20  |eind%="<no song |
000052c0  6c 6f 61 64 65 64 3e 22  0d 1f 5e 1b 24 61 75 74  |loaded>"..^.$aut|
000052d0  68 6f 72 69 6e 64 25 3d  22 3c 75 6e 6b 6e 6f 77  |horind%="<unknow|
000052e0  6e 3e 22 0d 1f 68 17 24  73 74 79 70 65 69 6e 64  |n>"..h.$stypeind|
000052f0  25 3d 22 44 75 6e 6e 6f  3f 22 0d 1f 72 14 24 67  |%="Dunno?"..r.$g|
00005300  61 72 62 61 67 65 69 6e  64 25 3d 22 30 22 0d 1f  |arbageind%="0"..|
00005310  7c 20 24 63 72 70 74 74  79 70 65 69 6e 64 25 3d  || $crpttypeind%=|
00005320  22 47 61 72 62 61 67 65  20 64 61 74 61 22 0d 1f  |"Garbage data"..|
00005330  86 10 24 6c 65 6e 69 6e  64 25 3d 22 30 22 0d 1f  |..$lenind%="0"..|
00005340  90 21 f2 75 70 64 61 74  65 69 63 6f 6e 28 73 69  |.!.updateicon(si|
00005350  6e 66 6f 25 2c 6e 61 6d  65 69 63 6f 6e 25 29 0d  |nfo%,nameicon%).|
00005360  1f 9a 23 f2 75 70 64 61  74 65 69 63 6f 6e 28 73  |..#.updateicon(s|
00005370  69 6e 66 6f 25 2c 61 75  74 68 6f 72 69 63 6f 6e  |info%,authoricon|
00005380  25 29 0d 1f a4 22 f2 75  70 64 61 74 65 69 63 6f  |%)...".updateico|
00005390  6e 28 73 69 6e 66 6f 25  2c 73 74 79 70 65 69 63  |n(sinfo%,stypeic|
000053a0  6f 6e 25 29 0d 1f ae 21  f2 75 70 64 61 74 65 69  |on%)...!.updatei|
000053b0  63 6f 6e 28 73 69 6e 66  6f 25 2c 70 6c 61 79 74  |con(sinfo%,playt|
000053c0  69 6d 65 25 29 0d 1f b8  20 f2 75 70 64 61 74 65  |ime%)... .update|
000053d0  69 63 6f 6e 28 73 69 6e  66 6f 25 2c 63 6f 72 72  |icon(sinfo%,corr|
000053e0  75 70 74 25 29 0d 1f c2  1f f2 75 70 64 61 74 65  |upt%).....update|
000053f0  69 63 6f 6e 28 73 69 6e  66 6f 25 2c 6d 6f 64 6c  |icon(sinfo%,modl|
00005400  65 6e 25 29 0d 1f cc 05  e1 0d 1f d6 04 0d 1f e0  |en%)............|
00005410  04 0d 1f ea 16 dd 20 f2  61 6c 74 65 72 73 6e 64  |...... .altersnd|
00005420  28 69 63 6f 6e 25 29 0d  1f f4 33 e7 20 69 63 6f  |(icon%)...3. ico|
00005430  6e 25 3d 76 68 71 75 61  6c 25 20 8c 20 75 73 65  |n%=vhqual% . use|
00005440  72 73 6e 64 25 3d a3 3a  f2 75 70 64 61 74 65 73  |rsnd%=.:.updates|
00005450  6e 64 71 75 61 6c 28 32  34 29 0d 1f fe 32 e7 20  |ndqual(24)...2. |
00005460  69 63 6f 6e 25 3d 68 71  75 61 6c 25 20 8c 20 75  |icon%=hqual% . u|
00005470  73 65 72 73 6e 64 25 3d  a3 3a f2 75 70 64 61 74  |sersnd%=.:.updat|
00005480  65 73 6e 64 71 75 61 6c  28 33 32 29 0d 20 08 32  |esndqual(32). .2|
00005490  e7 20 69 63 6f 6e 25 3d  6d 71 75 61 6c 25 20 8c  |. icon%=mqual% .|
000054a0  20 75 73 65 72 73 6e 64  25 3d a3 3a f2 75 70 64  | usersnd%=.:.upd|
000054b0  61 74 65 73 6e 64 71 75  61 6c 28 34 38 29 0d 20  |atesndqual(48). |
000054c0  12 32 e7 20 69 63 6f 6e  25 3d 6c 71 75 61 6c 25  |.2. icon%=lqual%|
000054d0  20 8c 20 75 73 65 72 73  6e 64 25 3d a3 3a f2 75  | . usersnd%=.:.u|
000054e0  70 64 61 74 65 73 6e 64  71 75 61 6c 28 36 34 29  |pdatesndqual(64)|
000054f0  0d 20 1c 42 e7 20 69 63  6f 6e 25 3d 75 73 65 72  |. .B. icon%=user|
00005500  71 75 61 6c 25 20 8c 20  75 73 65 72 73 6e 64 25  |qual% . usersnd%|
00005510  3d b9 3a f2 75 70 64 61  74 65 73 6e 64 71 75 61  |=.:.updatesndqua|
00005520  6c 28 a0 28 24 75 73 65  72 73 6e 64 69 6e 64 25  |l(.($usersndind%|
00005530  29 29 0d 20 26 05 e1 0d  20 30 04 0d 20 3a 04 0d  |)). &... 0.. :..|
00005540  20 44 1e dd 20 f2 75 70  64 61 74 65 73 6e 64 71  | D.. .updatesndq|
00005550  75 61 6c 28 6e 65 77 73  70 65 65 64 29 0d 20 4e  |ual(newspeed). N|
00005560  3f e7 20 6e 65 77 73 70  65 65 64 3d 2d 31 20 8c  |?. newspeed=-1 .|
00005570  20 c8 99 20 22 51 54 4d  5f 53 65 74 53 61 6d 70  | .. "QTM_SetSamp|
00005580  6c 65 53 70 65 65 64 22  2c 6e 65 77 73 70 65 65  |leSpeed",newspee|
00005590  64 20 b8 20 6e 65 77 73  70 65 65 64 0d 20 58 18  |d . newspeed. X.|
000055a0  73 61 6d 70 6c 65 73 70  65 65 64 3d 6e 65 77 73  |samplespeed=news|
000055b0  70 65 65 64 0d 20 62 27  c8 99 20 22 51 54 4d 5f  |peed. b'.. "QTM_|
000055c0  53 65 74 53 61 6d 70 6c  65 53 70 65 65 64 22 2c  |SetSampleSpeed",|
000055d0  73 61 6d 70 6c 65 73 70  65 65 64 0d 20 6c 1d 24  |samplespeed. l.$|
000055e0  75 73 65 72 73 6e 64 69  6e 64 25 3d c3 73 61 6d  |usersndind%=.sam|
000055f0  70 6c 65 73 70 65 65 64  0d 20 76 12 e7 20 ac 20  |plespeed. v.. . |
00005600  75 73 65 72 73 6e 64 25  20 8c 0d 20 80 66 20 e7  |usersnd% .. .f .|
00005610  20 73 61 6d 70 6c 65 73  70 65 65 64 3c 3e 32 34  | samplespeed<>24|
00005620  20 80 20 73 61 6d 70 6c  65 73 70 65 65 64 3c 3e  | . samplespeed<>|
00005630  33 32 20 80 20 73 61 6d  70 6c 65 73 70 65 65 64  |32 . samplespeed|
00005640  3c 3e 34 38 20 80 20 73  61 6d 70 6c 65 73 70 65  |<>48 . samplespe|
00005650  65 64 3c 3e 36 34 20 8c  20 75 73 65 72 73 6e 64  |ed<>64 . usersnd|
00005660  25 3d b9 20 8b 20 75 73  65 72 73 6e 64 25 3d a3  |%=. . usersnd%=.|
00005670  0d 20 8a 05 cd 0d 20 94  05 3a 0d 20 9e 23 e7 20  |. .... ..:. .#. |
00005680  73 61 6d 70 6c 65 73 70  65 65 64 3d 32 34 20 80  |samplespeed=24 .|
00005690  20 ac 20 75 73 65 72 73  6e 64 25 20 8c 0d 20 a8  | . usersnd% .. .|
000056a0  3d 20 e7 20 ac 20 a4 63  68 65 63 6b 6f 6e 28 70  |= . . .checkon(p|
000056b0  72 65 66 73 25 2c 76 68  71 75 61 6c 25 29 20 f2  |refs%,vhqual%) .|
000056c0  73 65 6c 65 63 74 69 63  6f 6e 28 70 72 65 66 73  |selecticon(prefs|
000056d0  25 2c 76 68 71 75 61 6c  25 29 0d 20 b2 05 cc 0d  |%,vhqual%). ....|
000056e0  20 bc 3c 20 e7 20 a4 63  68 65 63 6b 6f 6e 28 70  | .< . .checkon(p|
000056f0  72 65 66 73 25 2c 76 68  71 75 61 6c 25 29 20 f2  |refs%,vhqual%) .|
00005700  64 69 73 61 62 6c 65 69  63 6f 6e 28 70 72 65 66  |disableicon(pref|
00005710  73 25 2c 76 68 71 75 61  6c 25 29 0d 20 c6 05 cd  |s%,vhqual%). ...|
00005720  0d 20 d0 05 3a 0d 20 da  23 e7 20 73 61 6d 70 6c  |. ..:. .#. sampl|
00005730  65 73 70 65 65 64 3d 33  32 20 80 20 ac 20 75 73  |espeed=32 . . us|
00005740  65 72 73 6e 64 25 20 8c  0d 20 e4 3b 20 e7 20 ac  |ersnd% .. .; . .|
00005750  20 a4 63 68 65 63 6b 6f  6e 28 70 72 65 66 73 25  | .checkon(prefs%|
00005760  2c 68 71 75 61 6c 25 29  20 f2 73 65 6c 65 63 74  |,hqual%) .select|
00005770  69 63 6f 6e 28 70 72 65  66 73 25 2c 68 71 75 61  |icon(prefs%,hqua|
00005780  6c 25 29 0d 20 ee 05 cc  0d 20 f8 3a 20 e7 20 a4  |l%). .... .: . .|
00005790  63 68 65 63 6b 6f 6e 28  70 72 65 66 73 25 2c 68  |checkon(prefs%,h|
000057a0  71 75 61 6c 25 29 20 f2  64 69 73 61 62 6c 65 69  |qual%) .disablei|
000057b0  63 6f 6e 28 70 72 65 66  73 25 2c 68 71 75 61 6c  |con(prefs%,hqual|
000057c0  25 29 0d 21 02 05 cd 0d  21 0c 05 3a 0d 21 16 23  |%).!....!..:.!.#|
000057d0  e7 20 73 61 6d 70 6c 65  73 70 65 65 64 3d 34 38  |. samplespeed=48|
000057e0  20 80 20 ac 20 75 73 65  72 73 6e 64 25 20 8c 0d  | . . usersnd% ..|
000057f0  21 20 3b 20 e7 20 ac 20  a4 63 68 65 63 6b 6f 6e  |! ; . . .checkon|
00005800  28 70 72 65 66 73 25 2c  6d 71 75 61 6c 25 29 20  |(prefs%,mqual%) |
00005810  f2 73 65 6c 65 63 74 69  63 6f 6e 28 70 72 65 66  |.selecticon(pref|
00005820  73 25 2c 6d 71 75 61 6c  25 29 0d 21 2a 05 cc 0d  |s%,mqual%).!*...|
00005830  21 34 3a 20 e7 20 a4 63  68 65 63 6b 6f 6e 28 70  |!4: . .checkon(p|
00005840  72 65 66 73 25 2c 6d 71  75 61 6c 25 29 20 f2 64  |refs%,mqual%) .d|
00005850  69 73 61 62 6c 65 69 63  6f 6e 28 70 72 65 66 73  |isableicon(prefs|
00005860  25 2c 6d 71 75 61 6c 25  29 0d 21 3e 05 cd 0d 21  |%,mqual%).!>...!|
00005870  48 05 3a 0d 21 52 23 e7  20 73 61 6d 70 6c 65 73  |H.:.!R#. samples|
00005880  70 65 65 64 3d 36 34 20  80 20 ac 20 75 73 65 72  |peed=64 . . user|
00005890  73 6e 64 25 20 8c 0d 21  5c 3b 20 e7 20 ac 20 a4  |snd% ..!\; . . .|
000058a0  63 68 65 63 6b 6f 6e 28  70 72 65 66 73 25 2c 6c  |checkon(prefs%,l|
000058b0  71 75 61 6c 25 29 20 f2  73 65 6c 65 63 74 69 63  |qual%) .selectic|
000058c0  6f 6e 28 70 72 65 66 73  25 2c 6c 71 75 61 6c 25  |on(prefs%,lqual%|
000058d0  29 0d 21 66 05 cc 0d 21  70 3a 20 e7 20 a4 63 68  |).!f...!p: . .ch|
000058e0  65 63 6b 6f 6e 28 70 72  65 66 73 25 2c 6c 71 75  |eckon(prefs%,lqu|
000058f0  61 6c 25 29 20 f2 64 69  73 61 62 6c 65 69 63 6f  |al%) .disableico|
00005900  6e 28 70 72 65 66 73 25  2c 6c 71 75 61 6c 25 29  |n(prefs%,lqual%)|
00005910  0d 21 7a 05 cd 0d 21 84  05 3a 0d 21 8e 10 e7 20  |.!z...!..:.!... |
00005920  75 73 65 72 73 6e 64 25  20 8c 0d 21 98 41 20 e7  |usersnd% ..!.A .|
00005930  20 ac 20 a4 63 68 65 63  6b 6f 6e 28 70 72 65 66  | . .checkon(pref|
00005940  73 25 2c 75 73 65 72 71  75 61 6c 25 29 20 f2 73  |s%,userqual%) .s|
00005950  65 6c 65 63 74 69 63 6f  6e 28 70 72 65 66 73 25  |electicon(prefs%|
00005960  2c 75 73 65 72 71 75 61  6c 25 29 0d 21 a2 24 20  |,userqual%).!.$ |
00005970  f2 75 6e 73 68 61 64 65  69 63 6f 6e 28 70 72 65  |.unshadeicon(pre|
00005980  66 73 25 2c 75 73 65 72  65 6e 74 72 79 25 29 0d  |fs%,userentry%).|
00005990  21 ac 22 20 f2 67 61 69  6e 63 61 72 65 74 28 70  |!." .gaincaret(p|
000059a0  72 65 66 73 25 2c 75 73  65 72 65 6e 74 72 79 25  |refs%,userentry%|
000059b0  29 0d 21 b6 05 cc 0d 21  c0 40 20 e7 20 a4 63 68  |).!....!.@ . .ch|
000059c0  65 63 6b 6f 6e 28 70 72  65 66 73 25 2c 75 73 65  |eckon(prefs%,use|
000059d0  72 71 75 61 6c 25 29 20  f2 64 69 73 61 62 6c 65  |rqual%) .disable|
000059e0  69 63 6f 6e 28 70 72 65  66 73 25 2c 75 73 65 72  |icon(prefs%,user|
000059f0  71 75 61 6c 25 29 0d 21  ca 22 20 f2 73 68 61 64  |qual%).!." .shad|
00005a00  65 69 63 6f 6e 28 70 72  65 66 73 25 2c 75 73 65  |eicon(prefs%,use|
00005a10  72 65 6e 74 72 79 25 29  0d 21 d4 22 20 f2 6c 6f  |rentry%).!." .lo|
00005a20  73 65 63 61 72 65 74 28  70 72 65 66 73 25 2c 75  |secaret(prefs%,u|
00005a30  73 65 72 65 6e 74 72 79  25 29 0d 21 de 05 cd 0d  |serentry%).!....|
00005a40  21 e8 05 e1 0d 21 f2 04  0d 21 fc 04 0d 22 06 10  |!....!...!..."..|
00005a50  dd 20 f2 75 70 64 61 74  65 73 65 71 0d 22 10 24  |. .updateseq.".$|
00005a60  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |.. "OS_ReadMonot|
00005a70  6f 6e 69 63 54 69 6d 65  22 20 b8 20 74 69 6d 65  |onicTime" . time|
00005a80  0d 22 1a 5a e7 20 a4 63  68 65 63 6b 6f 6e 28 63  |.".Z. .checkon(c|
00005a90  6f 6e 74 72 6f 6c 25 2c  72 65 77 69 6e 64 5f 69  |ontrol%,rewind_i|
00005aa0  63 6f 6e 25 29 20 80 20  72 5f 63 6f 75 6e 74 3c  |con%) . r_count<|
00005ab0  74 69 6d 65 20 8c 20 f2  64 69 73 61 62 6c 65 69  |time . .disablei|
00005ac0  63 6f 6e 28 63 6f 6e 74  72 6f 6c 25 2c 72 65 77  |con(control%,rew|
00005ad0  69 6e 64 5f 69 63 6f 6e  25 29 0d 22 24 58 e7 20  |ind_icon%)."$X. |
00005ae0  a4 63 68 65 63 6b 6f 6e  28 63 6f 6e 74 72 6f 6c  |.checkon(control|
00005af0  25 2c 66 61 73 74 66 5f  69 63 6f 6e 25 29 20 80  |%,fastf_icon%) .|
00005b00  20 66 5f 63 6f 75 6e 74  3c 74 69 6d 65 20 8c 20  | f_count<time . |
00005b10  f2 64 69 73 61 62 6c 65  69 63 6f 6e 28 63 6f 6e  |.disableicon(con|
00005b20  74 72 6f 6c 25 2c 66 61  73 74 66 5f 69 63 6f 6e  |trol%,fastf_icon|
00005b30  25 29 0d 22 2e 2f c8 99  20 22 58 51 54 4d 5f 50  |%)."./.. "XQTM_P|
00005b40  6f 73 22 2c 2d 31 2c 2d  31 20 b8 20 6e 65 77 73  |os",-1,-1 . news|
00005b50  65 71 2c 6e 65 77 65 76  74 20 3b 66 6c 61 67 73  |eq,newevt ;flags|
00005b60  25 0d 22 38 22 e7 20 28  66 6c 61 67 73 25 20 80  |%."8". (flags% .|
00005b70  20 31 29 3d 31 20 8c 20  f2 69 6e 69 74 73 6f 6e  | 1)=1 . .initson|
00005b80  67 3a e1 0d 22 42 1a e7  20 6e 65 77 73 65 71 3c  |g:.."B.. newseq<|
00005b90  3e 63 75 72 72 65 6e 74  73 65 71 20 8c 0d 22 4c  |>currentseq .."L|
00005ba0  16 20 63 75 72 72 65 6e  74 73 65 71 3d 6e 65 77  |. currentseq=new|
00005bb0  73 65 71 0d 22 56 20 20  24 73 65 71 25 3d c2 22  |seq."V  $seq%=."|
00005bc0  30 30 30 22 2b c3 63 75  72 72 65 6e 74 73 65 71  |000"+.currentseq|
00005bd0  2c 33 29 0d 22 60 26 20  f2 75 70 64 61 74 65 69  |,3)."`& .updatei|
00005be0  63 6f 6e 28 63 6f 6e 74  72 6f 6c 25 2c 63 72 73  |con(control%,crs|
00005bf0  65 71 5f 69 63 6f 6e 25  29 0d 22 6a 05 cd 0d 22  |eq_icon%)."j..."|
00005c00  74 05 e1 0d 22 7e 04 0d  22 88 04 0d 22 92 0b dd  |t..."~.."..."...|
00005c10  20 f2 70 6c 61 79 0d 22  9c 13 c8 99 20 22 58 51  | .play.".... "XQ|
00005c20  54 4d 5f 53 74 61 72 74  22 0d 22 a6 0b 73 74 61  |TM_Start"."..sta|
00005c30  74 65 3d 31 0d 22 b0 10  f2 75 70 64 61 74 65 73  |te=1."...updates|
00005c40  74 61 74 65 0d 22 ba 05  e1 0d 22 c4 04 0d 22 ce  |tate."...."...".|
00005c50  04 0d 22 d8 0b dd 20 f2  73 74 6f 70 0d 22 e2 12  |.."... .stop."..|
00005c60  c8 99 20 22 58 51 54 4d  5f 53 74 6f 70 22 0d 22  |.. "XQTM_Stop"."|
00005c70  ec 0b 73 74 61 74 65 3d  30 0d 22 f6 10 f2 75 70  |..state=0."...up|
00005c80  64 61 74 65 73 74 61 74  65 0d 23 00 05 e1 0d 23  |datestate.#....#|
00005c90  0a 04 0d 23 14 04 0d 23  1e 0c dd 20 f2 70 61 75  |...#...#... .pau|
00005ca0  73 65 0d 23 28 13 c8 99  20 22 58 51 54 4d 5f 50  |se.#(... "XQTM_P|
00005cb0  61 75 73 65 22 0d 23 32  0b 73 74 61 74 65 3d 32  |ause".#2.state=2|
00005cc0  0d 23 3c 10 f2 75 70 64  61 74 65 73 74 61 74 65  |.#<..updatestate|
00005cd0  0d 23 46 05 e1 0d 23 50  04 0d 23 5a 04 0d 23 64  |.#F...#P..#Z..#d|
00005ce0  14 dd 20 f2 74 6f 67 67  61 6c 73 70 65 61 6b 65  |.. .toggalspeake|
00005cf0  72 0d 23 6e 16 73 70 65  61 6b 65 72 3d 2d 31 2d  |r.#n.speaker=-1-|
00005d00  73 70 65 61 6b 65 72 0d  23 78 48 e7 20 73 70 65  |speaker.#xH. spe|
00005d10  61 6b 65 72 20 8c 20 c8  99 20 22 53 6f 75 6e 64  |aker . .. "Sound|
00005d20  5f 53 70 65 61 6b 65 72  22 2c 32 3a f2 73 65 6c  |_Speaker",2:.sel|
00005d30  65 63 74 69 63 6f 6e 28  63 6f 6e 74 72 6f 6c 25  |ecticon(control%|
00005d40  2c 73 70 65 61 6b 65 72  5f 69 63 6f 6e 25 29 0d  |,speaker_icon%).|
00005d50  23 82 4b e7 20 ac 20 73  70 65 61 6b 65 72 20 8c  |#.K. . speaker .|
00005d60  20 c8 99 20 22 53 6f 75  6e 64 5f 53 70 65 61 6b  | .. "Sound_Speak|
00005d70  65 72 22 2c 31 3a f2 64  69 73 61 62 6c 65 69 63  |er",1:.disableic|
00005d80  6f 6e 28 63 6f 6e 74 72  6f 6c 25 2c 73 70 65 61  |on(control%,spea|
00005d90  6b 65 72 5f 69 63 6f 6e  25 29 0d 23 8c 05 e1 0d  |ker_icon%).#....|
00005da0  23 96 04 0d 23 a0 04 0d  23 aa 12 dd 20 f2 75 70  |#...#...#... .up|
00005db0  64 61 74 65 73 74 61 74  65 0d 23 b4 31 e7 20 73  |datestate.#.1. s|
00005dc0  74 61 74 65 3d 30 20 80  20 a4 63 68 65 63 6b 6f  |tate=0 . .checko|
00005dd0  6e 28 63 6f 6e 74 72 6f  6c 25 2c 73 74 6f 70 5f  |n(control%,stop_|
00005de0  69 63 6f 6e 25 29 3d 30  20 8c 0d 23 be 25 20 f2  |icon%)=0 ..#.% .|
00005df0  73 65 6c 65 63 74 69 63  6f 6e 28 63 6f 6e 74 72  |selecticon(contr|
00005e00  6f 6c 25 2c 73 74 6f 70  5f 69 63 6f 6e 25 29 0d  |ol%,stop_icon%).|
00005e10  23 c8 46 20 e7 20 a4 63  68 65 63 6b 6f 6e 28 63  |#.F . .checkon(c|
00005e20  6f 6e 74 72 6f 6c 25 2c  70 6c 61 79 5f 69 63 6f  |ontrol%,play_ico|
00005e30  6e 25 29 20 f2 64 69 73  61 62 6c 65 69 63 6f 6e  |n%) .disableicon|
00005e40  28 63 6f 6e 74 72 6f 6c  25 2c 70 6c 61 79 5f 69  |(control%,play_i|
00005e50  63 6f 6e 25 29 0d 23 d2  48 20 e7 20 a4 63 68 65  |con%).#.H . .che|
00005e60  63 6b 6f 6e 28 63 6f 6e  74 72 6f 6c 25 2c 70 61  |ckon(control%,pa|
00005e70  75 73 65 5f 69 63 6f 6e  25 29 20 f2 64 69 73 61  |use_icon%) .disa|
00005e80  62 6c 65 69 63 6f 6e 28  63 6f 6e 74 72 6f 6c 25  |bleicon(control%|
00005e90  2c 70 61 75 73 65 5f 69  63 6f 6e 25 29 0d 23 dc  |,pause_icon%).#.|
00005ea0  05 cd 0d 23 e6 31 e7 20  73 74 61 74 65 3d 31 20  |...#.1. state=1 |
00005eb0  80 20 a4 63 68 65 63 6b  6f 6e 28 63 6f 6e 74 72  |. .checkon(contr|
00005ec0  6f 6c 25 2c 70 6c 61 79  5f 69 63 6f 6e 25 29 3d  |ol%,play_icon%)=|
00005ed0  30 20 8c 0d 23 f0 25 20  f2 73 65 6c 65 63 74 69  |0 ..#.% .selecti|
00005ee0  63 6f 6e 28 63 6f 6e 74  72 6f 6c 25 2c 70 6c 61  |con(control%,pla|
00005ef0  79 5f 69 63 6f 6e 25 29  0d 23 fa 46 20 e7 20 a4  |y_icon%).#.F . .|
00005f00  63 68 65 63 6b 6f 6e 28  63 6f 6e 74 72 6f 6c 25  |checkon(control%|
00005f10  2c 73 74 6f 70 5f 69 63  6f 6e 25 29 20 f2 64 69  |,stop_icon%) .di|
00005f20  73 61 62 6c 65 69 63 6f  6e 28 63 6f 6e 74 72 6f  |sableicon(contro|
00005f30  6c 25 2c 73 74 6f 70 5f  69 63 6f 6e 25 29 0d 24  |l%,stop_icon%).$|
00005f40  04 48 20 e7 20 a4 63 68  65 63 6b 6f 6e 28 63 6f  |.H . .checkon(co|
00005f50  6e 74 72 6f 6c 25 2c 70  61 75 73 65 5f 69 63 6f  |ntrol%,pause_ico|
00005f60  6e 25 29 20 f2 64 69 73  61 62 6c 65 69 63 6f 6e  |n%) .disableicon|
00005f70  28 63 6f 6e 74 72 6f 6c  25 2c 70 61 75 73 65 5f  |(control%,pause_|
00005f80  69 63 6f 6e 25 29 0d 24  0e 05 cd 0d 24 18 32 e7  |icon%).$....$.2.|
00005f90  20 73 74 61 74 65 3d 32  20 80 20 a4 63 68 65 63  | state=2 . .chec|
00005fa0  6b 6f 6e 28 63 6f 6e 74  72 6f 6c 25 2c 70 61 75  |kon(control%,pau|
00005fb0  73 65 5f 69 63 6f 6e 25  29 3d 30 20 8c 0d 24 22  |se_icon%)=0 ..$"|
00005fc0  26 20 f2 73 65 6c 65 63  74 69 63 6f 6e 28 63 6f  |& .selecticon(co|
00005fd0  6e 74 72 6f 6c 25 2c 70  61 75 73 65 5f 69 63 6f  |ntrol%,pause_ico|
00005fe0  6e 25 29 0d 24 2c 46 20  e7 20 a4 63 68 65 63 6b  |n%).$,F . .check|
00005ff0  6f 6e 28 63 6f 6e 74 72  6f 6c 25 2c 73 74 6f 70  |on(control%,stop|
00006000  5f 69 63 6f 6e 25 29 20  f2 64 69 73 61 62 6c 65  |_icon%) .disable|
00006010  69 63 6f 6e 28 63 6f 6e  74 72 6f 6c 25 2c 73 74  |icon(control%,st|
00006020  6f 70 5f 69 63 6f 6e 25  29 0d 24 36 46 20 e7 20  |op_icon%).$6F . |
00006030  a4 63 68 65 63 6b 6f 6e  28 63 6f 6e 74 72 6f 6c  |.checkon(control|
00006040  25 2c 70 6c 61 79 5f 69  63 6f 6e 25 29 20 f2 64  |%,play_icon%) .d|
00006050  69 73 61 62 6c 65 69 63  6f 6e 28 63 6f 6e 74 72  |isableicon(contr|
00006060  6f 6c 25 2c 70 6c 61 79  5f 69 63 6f 6e 25 29 0d  |ol%,play_icon%).|
00006070  24 40 05 cd 0d 24 4a 05  e1 0d 24 54 04 0d 24 5e  |$@...$J...$T..$^|
00006080  04 0d 24 68 1f dd 20 f2  71 74 6d 6c 6f 61 64 28  |..$h.. .qtmload(|
00006090  66 69 6c 65 6e 61 6d 65  24 2c 6d 65 73 73 25 29  |filename$,mess%)|
000060a0  0d 24 72 2b c8 99 20 22  4f 53 5f 46 69 6c 65 22  |.$r+.. "OS_File"|
000060b0  2c 35 2c 66 69 6c 65 6e  61 6d 65 24 20 b8 20 66  |,5,filename$ . f|
000060c0  69 6c 65 25 2c 2c 74 79  70 65 25 0d 24 7c 1b 74  |ile%,,type%.$|.t|
000060d0  79 70 65 25 3d 28 74 79  70 65 25 3e 3e 38 29 20  |ype%=(type%>>8) |
000060e0  80 20 26 46 46 46 0d 24  86 1d c8 99 20 22 51 54  |. &FFF.$.... "QT|
000060f0  4d 5f 4c 6f 61 64 22 2c  66 69 6c 65 6e 61 6d 65  |M_Load",filename|
00006100  24 2c 30 0d 24 90 0d 6c  6f 61 64 65 64 25 3d b9  |$,0.$..loaded%=.|
00006110  0d 24 9a 4d e7 20 6d 65  73 73 25 20 8c 20 62 6c  |.$.M. mess% . bl|
00006120  6f 63 6b 25 21 31 32 3d  62 6c 6f 63 6b 25 21 38  |ock%!12=block%!8|
00006130  3a 62 6c 6f 63 6b 25 21  31 36 3d 34 3a c8 99 22  |:block%!16=4:.."|
00006140  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00006150  22 2c 31 39 2c 62 6c 6f  63 6b 25 2c 30 0d 24 a4  |",19,block%,0.$.|
00006160  27 e7 20 6f 70 65 6e 63  74 72 6c 25 20 8c 20 f2  |'. openctrl% . .|
00006170  6f 70 65 6e 77 69 6e 64  6f 77 28 63 6f 6e 74 72  |openwindow(contr|
00006180  6f 6c 25 29 0d 24 ae 10  e7 20 74 65 6d 70 73 5f  |ol%).$... temps_|
00006190  33 64 20 8c 0d 24 b8 2e  20 24 66 69 6c 65 76 61  |3d ..$.. $fileva|
000061a0  6c 69 64 25 3d 22 72 31  3b 53 66 69 6c 65 5f 22  |lid%="r1;Sfile_"|
000061b0  2b c2 22 30 30 30 22 2b  c3 7e 74 79 70 65 25 2c  |+."000"+.~type%,|
000061c0  33 29 0d 24 c2 05 cc 0d  24 cc 2b 20 24 66 69 6c  |3).$....$.+ $fil|
000061d0  65 76 61 6c 69 64 25 3d  22 53 66 69 6c 65 5f 22  |evalid%="Sfile_"|
000061e0  2b c2 22 30 30 30 22 2b  c3 7e 74 79 70 65 25 2c  |+."000"+.~type%,|
000061f0  33 29 0d 24 d6 05 cd 0d  24 e0 1e f2 75 70 64 61  |3).$....$...upda|
00006200  74 65 69 63 6f 6e 28 73  69 6e 66 6f 25 2c 66 74  |teicon(sinfo%,ft|
00006210  79 70 65 25 29 0d 24 ea  05 e1 0d 24 f4 04 0d 24  |ype%).$....$...$|
00006220  fe 04 0d 25 08 0d dd 20  f2 72 65 77 69 6e 64 0d  |...%... .rewind.|
00006230  25 12 4a e7 20 ac 20 a4  63 68 65 63 6b 6f 6e 28  |%.J. . .checkon(|
00006240  63 6f 6e 74 72 6f 6c 25  2c 72 65 77 69 6e 64 5f  |control%,rewind_|
00006250  69 63 6f 6e 25 29 20 f2  73 65 6c 65 63 74 69 63  |icon%) .selectic|
00006260  6f 6e 28 63 6f 6e 74 72  6f 6c 25 2c 72 65 77 69  |on(control%,rewi|
00006270  6e 64 5f 69 63 6f 6e 25  29 0d 25 1c 24 c8 99 20  |nd_icon%).%.$.. |
00006280  22 4f 53 5f 52 65 61 64  4d 6f 6e 6f 74 6f 6e 69  |"OS_ReadMonotoni|
00006290  63 54 69 6d 65 22 20 b8  20 74 69 6d 65 0d 25 26  |cTime" . time.%&|
000062a0  13 72 5f 63 6f 75 6e 74  3d 74 69 6d 65 2b 35 30  |.r_count=time+50|
000062b0  0d 25 30 23 c8 99 20 22  58 51 54 4d 5f 50 6f 73  |.%0#.. "XQTM_Pos|
000062c0  22 2c 2d 31 2c 2d 31 20  b8 20 73 20 3b 66 6c 61  |",-1,-1 . s ;fla|
000062d0  67 73 25 0d 25 3a 16 e7  20 28 66 6c 61 67 73 25  |gs%.%:.. (flags%|
000062e0  20 80 20 31 29 3d 30 20  8c 0d 25 44 11 20 e7 20  | . 1)=0 ..%D. . |
000062f0  73 3e 30 20 8c 20 73 2d  3d 31 0d 25 4e 16 20 c8  |s>0 . s-=1.%N. .|
00006300  99 20 22 58 51 54 4d 5f  50 6f 73 22 2c 73 2c 30  |. "XQTM_Pos",s,0|
00006310  0d 25 58 05 cd 0d 25 62  05 e1 0d 25 6c 04 0d 25  |.%X...%b...%l..%|
00006320  76 04 0d 25 80 0c dd 20  f2 66 61 73 74 66 0d 25  |v..%... .fastf.%|
00006330  8a 48 e7 20 ac 20 a4 63  68 65 63 6b 6f 6e 28 63  |.H. . .checkon(c|
00006340  6f 6e 74 72 6f 6c 25 2c  66 61 73 74 66 5f 69 63  |ontrol%,fastf_ic|
00006350  6f 6e 25 29 20 f2 73 65  6c 65 63 74 69 63 6f 6e  |on%) .selecticon|
00006360  28 63 6f 6e 74 72 6f 6c  25 2c 66 61 73 74 66 5f  |(control%,fastf_|
00006370  69 63 6f 6e 25 29 0d 25  94 24 c8 99 20 22 4f 53  |icon%).%.$.. "OS|
00006380  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00006390  6d 65 22 20 b8 20 74 69  6d 65 0d 25 9e 13 66 5f  |me" . time.%..f_|
000063a0  63 6f 75 6e 74 3d 74 69  6d 65 2b 35 30 0d 25 a8  |count=time+50.%.|
000063b0  23 c8 99 20 22 58 51 54  4d 5f 50 6f 73 22 2c 2d  |#.. "XQTM_Pos",-|
000063c0  31 2c 2d 31 20 b8 20 73  20 3b 66 6c 61 67 73 25  |1,-1 . s ;flags%|
000063d0  0d 25 b2 16 e7 20 28 66  6c 61 67 73 25 20 80 20  |.%... (flags% . |
000063e0  31 29 3d 30 20 8c 0d 25  bc 09 20 73 2b 3d 31 0d  |1)=0 ..%.. s+=1.|
000063f0  25 c6 16 20 c8 99 20 22  58 51 54 4d 5f 50 6f 73  |%.. .. "XQTM_Pos|
00006400  22 2c 73 2c 30 0d 25 d0  05 cd 0d 25 da 05 e1 0d  |",s,0.%....%....|
00006410  25 e4 04 0d 25 ee 04 0d  25 f8 15 dd 20 f2 76 6f  |%...%...%... .vo|
00006420  6c 64 72 61 67 28 69 63  6f 6e 25 29 0d 26 02 24  |ldrag(icon%).&.$|
00006430  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00006440  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
00006450  0d 26 0c 14 6d 6f 75 73  65 5f 78 25 3d 21 62 6c  |.&..mouse_x%=!bl|
00006460  6f 63 6b 25 0d 26 16 15  6d 6f 75 73 65 5f 79 25  |ock%.&..mouse_y%|
00006470  3d 62 6c 6f 63 6b 25 21  34 0d 26 20 14 21 62 6c  |=block%!4.& .!bl|
00006480  6f 63 6b 25 3d 63 6f 6e  74 72 6f 6c 25 0d 26 2a  |ock%=control%.&*|
00006490  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |$.. "Wimp_GetWin|
000064a0  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |dowState",,block|
000064b0  25 0d 26 34 1f 6d 69 6e  78 3d 62 6c 6f 63 6b 25  |%.&4.minx=block%|
000064c0  21 34 3a 6d 69 6e 79 3d  62 6c 6f 63 6b 25 21 38  |!4:miny=block%!8|
000064d0  0d 26 3e 21 6d 61 78 78  3d 62 6c 6f 63 6b 25 21  |.&>!maxx=block%!|
000064e0  31 32 3a 6d 61 78 79 3d  62 6c 6f 63 6b 25 21 31  |12:maxy=block%!1|
000064f0  36 0d 26 48 05 3a 0d 26  52 17 24 76 6f 6c 62 75  |6.&H.:.&R.$volbu|
00006500  74 5f 69 6e 64 25 3d 22  62 75 74 64 22 0d 26 5c  |t_ind%="butd".&\|
00006510  26 f2 75 70 64 61 74 65  69 63 6f 6e 28 63 6f 6e  |&.updateicon(con|
00006520  74 72 6f 6c 25 2c 76 6f  6c 62 75 74 5f 69 63 6f  |trol%,volbut_ico|
00006530  6e 25 29 0d 26 66 22 f2  6d 6f 76 65 62 75 74 28  |n%).&f".movebut(|
00006540  28 6d 6f 75 73 65 5f 78  25 2d 6d 69 6e 78 29 2d  |(mouse_x%-minx)-|
00006550  35 36 2f 32 29 0d 26 70  05 3a 0d 26 7a 0e 62 6c  |56/2).&p.:.&z.bl|
00006560  6f 63 6b 25 21 34 3d 37  0d 26 84 0e 62 6c 6f 63  |ock%!4=7.&..bloc|
00006570  6b 25 21 38 3d 30 0d 26  8e 0f 62 6c 6f 63 6b 25  |k%!8=0.&..block%|
00006580  21 31 32 3d 30 0d 26 98  0f 62 6c 6f 63 6b 25 21  |!12=0.&..block%!|
00006590  31 36 3d 30 0d 26 a2 0f  62 6c 6f 63 6b 25 21 32  |16=0.&..block%!2|
000065a0  30 3d 30 0d 26 ac 15 62  6c 6f 63 6b 25 21 32 34  |0=0.&..block%!24|
000065b0  3d 6d 69 6e 78 2b 32 32  0d 26 b6 18 62 6c 6f 63  |=minx+22.&..bloc|
000065c0  6b 25 21 32 38 3d 6d 61  78 79 2d 33 31 36 2d 38  |k%!28=maxy-316-8|
000065d0  0d 26 c0 19 62 6c 6f 63  6b 25 21 33 32 3d 6d 69  |.&..block%!32=mi|
000065e0  6e 78 2b 32 32 2b 36 30  36 0d 26 ca 18 62 6c 6f  |nx+22+606.&..blo|
000065f0  63 6b 25 21 33 36 3d 6d  61 78 79 2d 33 31 36 2d  |ck%!36=maxy-316-|
00006600  38 0d 26 d4 1d c8 99 20  22 57 69 6d 70 5f 44 72  |8.&.... "Wimp_Dr|
00006610  61 67 42 6f 78 22 2c 2c  62 6c 6f 63 6b 25 0d 26  |agBox",,block%.&|
00006620  de 14 64 72 61 67 5f 78  25 3d 6d 6f 75 73 65 5f  |..drag_x%=mouse_|
00006630  78 25 0d 26 e8 0b 64 72  61 67 25 3d b9 0d 26 f2  |x%.&..drag%=..&.|
00006640  05 e1 0d 26 fc 04 0d 27  06 04 0d 27 10 13 dd 20  |...&...'...'... |
00006650  f2 63 6f 6e 74 69 6e 75  65 64 72 61 67 0d 27 1a  |.continuedrag.'.|
00006660  24 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |$.. "Wimp_GetPoi|
00006670  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6f 63 6b  |nterInfo",,block|
00006680  25 0d 27 24 12 c8 8e 20  62 6c 6f 63 6b 25 21 31  |%.'$... block%!1|
00006690  36 20 ca 0d 27 2e 3b 20  c9 20 76 6f 6c 73 6c 69  |6 ..'.; . volsli|
000066a0  64 65 5f 69 63 6f 6e 25  2c 76 6f 6c 62 75 74 5f  |de_icon%,volbut_|
000066b0  69 63 6f 6e 25 20 3a 20  f2 64 72 61 67 67 69 6e  |icon% : .draggin|
000066c0  67 76 6f 6c 28 62 6c 6f  63 6b 25 21 30 29 0d 27  |gvol(block%!0).'|
000066d0  38 05 cb 0d 27 42 05 e1  0d 27 4c 04 0d 27 56 04  |8...'B...'L..'V.|
000066e0  0d 27 60 1c dd 20 f2 64  72 61 67 67 69 6e 67 76  |.'`.. .draggingv|
000066f0  6f 6c 28 6d 6f 75 73 65  5f 78 25 29 0d 27 6a 19  |ol(mouse_x%).'j.|
00006700  e7 20 64 72 61 67 5f 78  25 3c 3e 6d 6f 75 73 65  |. drag_x%<>mouse|
00006710  5f 78 25 20 8c 0d 27 74  15 20 64 72 61 67 5f 78  |_x% ..'t. drag_x|
00006720  25 3d 6d 6f 75 73 65 5f  78 25 0d 27 7e 15 20 21  |%=mouse_x%.'~. !|
00006730  62 6c 6f 63 6b 25 3d 63  6f 6e 74 72 6f 6c 25 0d  |block%=control%.|
00006740  27 88 25 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |'.% .. "Wimp_Get|
00006750  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00006760  6f 63 6b 25 0d 27 92 20  20 6d 69 6e 78 3d 62 6c  |ock%.'.  minx=bl|
00006770  6f 63 6b 25 21 34 3a 6d  69 6e 79 3d 62 6c 6f 63  |ock%!4:miny=bloc|
00006780  6b 25 21 38 0d 27 9c 22  20 6d 61 78 78 3d 62 6c  |k%!8.'." maxx=bl|
00006790  6f 63 6b 25 21 31 32 3a  6d 61 78 79 3d 62 6c 6f  |ock%!12:maxy=blo|
000067a0  63 6b 25 21 31 36 0d 27  a6 06 20 3a 0d 27 b0 23  |ck%!16.'.. :.'.#|
000067b0  20 f2 6d 6f 76 65 62 75  74 28 28 6d 6f 75 73 65  | .movebut((mouse|
000067c0  5f 78 25 2d 6d 69 6e 78  29 2d 35 36 2f 32 29 0d  |_x%-minx)-56/2).|
000067d0  27 ba 29 20 c8 99 22 51  54 4d 5f 56 6f 6c 75 6d  |'.) .."QTM_Volum|
000067e0  65 22 2c 76 6f 6c 62 75  74 5f 78 25 2a 76 6f 6c  |e",volbut_x%*vol|
000067f0  6d 75 6c 74 69 70 6c 79  0d 27 c4 05 cd 0d 27 ce  |multiply.'....'.|
00006800  05 e1 0d 27 d8 04 0d 27  e2 04 0d 27 ec 11 dd 20  |...'...'...'... |
00006810  f2 72 65 64 72 61 77 63  74 72 6c 0d 27 f6 2a c8  |.redrawctrl.'.*.|
00006820  99 20 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |. "Wimp_RedrawWi|
00006830  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 20 b8 20  |ndow",,block% . |
00006840  6d 6f 72 65 25 0d 28 00  0c c8 95 20 6d 6f 72 65  |more%.(.... more|
00006850  25 0d 28 0a 2b 20 c8 99  20 22 57 69 6d 70 5f 47  |%.(.+ .. "Wimp_G|
00006860  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 62 6c  |etRectangle",,bl|
00006870  6f 63 6b 25 20 b8 20 6d  6f 72 65 25 0d 28 14 05  |ock% . more%.(..|
00006880  ce 0d 28 1e 05 e1 0d 28  28 04 0d 28 32 04 0d 28  |..(....((..(2..(|
00006890  3c 0e dd 20 f2 65 6e 64  64 72 61 67 0d 28 46 2a  |<.. .enddrag.(F*|
000068a0  e7 20 64 72 61 67 25 20  8c 20 c8 99 20 22 57 69  |. drag% . .. "Wi|
000068b0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 30 3a 64  |mp_DragBox",,0:d|
000068c0  72 61 67 25 3d a3 0d 28  50 28 c8 99 22 51 54 4d  |rag%=..(P(.."QTM|
000068d0  5f 56 6f 6c 75 6d 65 22  2c 76 6f 6c 62 75 74 5f  |_Volume",volbut_|
000068e0  78 25 2a 76 6f 6c 6d 75  6c 74 69 70 6c 79 0d 28  |x%*volmultiply.(|
000068f0  5a 17 24 76 6f 6c 62 75  74 5f 69 6e 64 25 3d 22  |Z.$volbut_ind%="|
00006900  62 75 74 75 22 0d 28 64  26 f2 75 70 64 61 74 65  |butu".(d&.update|
00006910  69 63 6f 6e 28 63 6f 6e  74 72 6f 6c 25 2c 76 6f  |icon(control%,vo|
00006920  6c 62 75 74 5f 69 63 6f  6e 25 29 0d 28 6e 05 e1  |lbut_icon%).(n..|
00006930  0d 28 78 04 0d 28 82 04  0d 28 8c 14 dd 20 f2 6d  |.(x..(...(... .m|
00006940  6f 76 65 62 75 74 28 78  70 6f 73 29 0d 28 96 15  |ovebut(xpos).(..|
00006950  6e 65 77 62 75 74 5f 78  25 3d 78 70 6f 73 2d 32  |newbut_x%=xpos-2|
00006960  32 0d 28 a0 1f e7 20 6e  65 77 62 75 74 5f 78 25  |2.(... newbut_x%|
00006970  3c 30 20 8c 20 6e 65 77  62 75 74 5f 78 25 3d 30  |<0 . newbut_x%=0|
00006980  0d 28 aa 29 e7 20 6e 65  77 62 75 74 5f 78 25 3e  |.(.). newbut_x%>|
00006990  36 30 38 2d 35 36 20 8c  20 6e 65 77 62 75 74 5f  |608-56 . newbut_|
000069a0  78 25 3d 36 30 38 2d 35  36 0d 28 b4 1b e7 20 6e  |x%=608-56.(... n|
000069b0  65 77 62 75 74 5f 78 25  3d 76 6f 6c 62 75 74 5f  |ewbut_x%=volbut_|
000069c0  78 25 20 e1 0d 28 be 05  3a 0d 28 c8 2a 21 62 6c  |x% ..(..:.(.*!bl|
000069d0  6f 63 6b 25 3d 63 6f 6e  74 72 6f 6c 25 3a 62 6c  |ock%=control%:bl|
000069e0  6f 63 6b 25 21 34 3d 76  6f 6c 62 75 74 5f 69 63  |ock%!4=volbut_ic|
000069f0  6f 6e 25 0d 28 d2 20 c8  99 20 22 57 69 6d 70 5f  |on%.(. .. "Wimp_|
00006a00  44 65 6c 65 74 65 49 63  6f 6e 22 2c 2c 62 6c 6f  |DeleteIcon",,blo|
00006a10  63 6b 25 0d 28 dc 17 24  76 6f 6c 62 75 74 5f 69  |ck%.(..$volbut_i|
00006a20  6e 64 25 3d 22 62 75 74  64 22 0d 28 e6 7a 76 6f  |nd%="butd".(.zvo|
00006a30  6c 62 75 74 5f 69 63 6f  6e 25 3d a4 63 72 65 61  |lbut_icon%=.crea|
00006a40  74 65 5f 69 63 6f 6e 28  63 6f 6e 74 72 6f 6c 25  |te_icon(control%|
00006a50  2c 6e 65 77 62 75 74 5f  78 25 2b 32 32 2c 76 6f  |,newbut_x%+22,vo|
00006a60  6c 62 75 74 5f 79 25 2c  35 36 2c 32 30 2c 28 31  |lbut_y%,56,20,(1|
00006a70  3c 3c 31 29 2b 28 31 3c  3c 38 29 2b 28 36 3c 3c  |<<1)+(1<<8)+(6<<|
00006a80  31 32 29 2c 22 22 2c 76  6f 6c 62 75 74 5f 69 6e  |12),"",volbut_in|
00006a90  64 25 2c 73 70 72 69 74  65 73 25 2c a9 22 62 75  |d%,sprites%,."bu|
00006aa0  74 64 22 29 0d 28 f0 56  c8 99 20 22 57 69 6d 70  |td").(.V.. "Wimp|
00006ab0  5f 46 6f 72 63 65 52 65  64 72 61 77 22 2c 63 6f  |_ForceRedraw",co|
00006ac0  6e 74 72 6f 6c 25 2c 76  6f 6c 62 75 74 5f 78 25  |ntrol%,volbut_x%|
00006ad0  2b 32 32 2c 76 6f 6c 62  75 74 5f 79 25 2c 76 6f  |+22,volbut_y%,vo|
00006ae0  6c 62 75 74 5f 78 25 2b  35 36 2b 32 32 2c 76 6f  |lbut_x%+56+22,vo|
00006af0  6c 62 75 74 5f 79 25 2b  32 30 0d 28 fa 56 c8 99  |lbut_y%+20.(.V..|
00006b00  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00006b10  61 77 22 2c 63 6f 6e 74  72 6f 6c 25 2c 6e 65 77  |aw",control%,new|
00006b20  62 75 74 5f 78 25 2b 32  32 2c 76 6f 6c 62 75 74  |but_x%+22,volbut|
00006b30  5f 79 25 2c 6e 65 77 62  75 74 5f 78 25 2b 35 36  |_y%,newbut_x%+56|
00006b40  2b 32 32 2c 76 6f 6c 62  75 74 5f 79 25 2b 32 30  |+22,volbut_y%+20|
00006b50  0d 29 04 17 76 6f 6c 62  75 74 5f 78 25 3d 6e 65  |.)..volbut_x%=ne|
00006b60  77 62 75 74 5f 78 25 0d  29 0e 05 e1 0d 29 18 04  |wbut_x%.)....)..|
00006b70  0d 29 22 04 0d 29 2c 1f  dd 20 f2 6c 6f 73 65 63  |.)"..),.. .losec|
00006b80  61 72 65 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |aret(window%,ico|
00006b90  6e 25 29 0d 29 36 25 c8  99 22 57 69 6d 70 5f 47  |n%).)6%.."Wimp_G|
00006ba0  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00006bb0  2c 2c 62 6c 6f 63 6b 25  0d 29 40 28 e7 20 21 62  |,,block%.)@(. !b|
00006bc0  6c 6f 63 6b 25 3d 77 69  6e 64 6f 77 25 20 80 20  |lock%=window% . |
00006bd0  62 6c 6f 63 6b 25 21 34  3d 69 63 6f 6e 25 20 8c  |block%!4=icon% .|
00006be0  0d 29 4a 3b 20 e7 20 a4  63 68 65 63 6b 77 69 6e  |.)J; . .checkwin|
00006bf0  64 6f 77 28 77 69 6e 64  6f 77 25 29 20 8c 20 c8  |dow(window%) . .|
00006c00  99 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  |."Wimp_SetCaretP|
00006c10  6f 73 69 74 69 6f 6e 22  2c 2d 31 0d 29 54 07 cd  |osition",-1.)T..|
00006c20  20 20 0d 29 5e 05 e1 0d  29 68 04 0d 29 72 04 0d  |  .)^...)h..)r..|
00006c30  29 7c 1f dd 20 f2 67 61  69 6e 63 61 72 65 74 28  |)|.. .gaincaret(|
00006c40  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 29  |window%,icon%).)|
00006c50  86 25 c8 99 22 57 69 6d  70 5f 47 65 74 43 61 72  |.%.."Wimp_GetCar|
00006c60  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 62 6c 6f  |etPosition",,blo|
00006c70  63 6b 25 0d 29 90 2a e7  20 21 62 6c 6f 63 6b 25  |ck%.).*. !block%|
00006c80  3c 3e 77 69 6e 64 6f 77  25 20 84 20 62 6c 6f 63  |<>window% . bloc|
00006c90  6b 25 21 34 3c 3e 69 63  6f 6e 25 20 8c 0d 29 9a  |k%!4<>icon% ..).|
00006ca0  50 20 e7 20 a4 63 68 65  63 6b 77 69 6e 64 6f 77  |P . .checkwindow|
00006cb0  28 77 69 6e 64 6f 77 25  29 20 8c 20 20 c8 99 22  |(window%) .  .."|
00006cc0  57 69 6d 70 5f 53 65 74  43 61 72 65 74 50 6f 73  |Wimp_SetCaretPos|
00006cd0  69 74 69 6f 6e 22 2c 77  69 6e 64 6f 77 25 2c 69  |ition",window%,i|
00006ce0  63 6f 6e 25 2c 30 2c 30  2c 2d 31 2c 30 0d 29 a4  |con%,0,0,-1,0.).|
00006cf0  07 cd 20 20 0d 29 ae 05  e1 0d 29 b8 04 0d 29 c2  |..  .)....)...).|
00006d00  04 0d 29 cc 10 dd 20 f2  73 61 76 65 70 72 65 66  |..)... .savepref|
00006d10  73 0d 29 d6 25 66 69 6c  65 25 3d ae 28 22 3c 51  |s.).%file%=.("<Q|
00006d20  54 4d 54 72 61 63 6b 24  44 69 72 3e 2e 43 68 6f  |TMTrack$Dir>.Cho|
00006d30  69 63 65 73 22 29 0d 29  e0 16 f1 23 66 69 6c 65  |ices").)...#file|
00006d40  25 2c 6b 69 6c 6c 6d 75  73 69 63 25 0d 29 ea 15  |%,killmusic%.)..|
00006d50  f1 23 66 69 6c 65 25 2c  6f 70 65 6e 63 74 72 6c  |.#file%,openctrl|
00006d60  25 0d 29 f4 17 f1 23 66  69 6c 65 25 2c 73 61 6d  |%.)...#file%,sam|
00006d70  70 6c 65 73 70 65 65 64  0d 29 fe 14 f1 23 66 69  |plespeed.)...#fi|
00006d80  6c 65 25 2c 75 73 65 72  73 6e 64 25 0d 2a 08 0b  |le%,usersnd%.*..|
00006d90  d9 23 66 69 6c 65 25 0d  2a 12 2a ff 22 53 65 74  |.#file%.*.*."Set|
00006da0  74 79 70 65 20 3c 51 54  4d 54 72 61 63 6b 24 44  |type <QTMTrack$D|
00006db0  69 72 3e 2e 43 68 6f 69  63 65 73 20 44 61 74 61  |ir>.Choices Data|
00006dc0  22 0d 2a 1c 05 e1 0d 2a  26 04 0d 2a 30 04 0d 2a  |".*....*&..*0..*|
00006dd0  3a 16 dd 20 f2 72 65 73  74 6f 72 65 6f 6c 64 70  |:.. .restoreoldp|
00006de0  72 65 66 73 0d 2a 44 1d  6b 69 6c 6c 6d 75 73 69  |refs.*D.killmusi|
00006df0  63 25 3d 6f 6c 64 5f 6b  69 6c 6c 6d 75 73 69 63  |c%=old_killmusic|
00006e00  25 0d 2a 4e 1b 6f 70 65  6e 63 74 72 6c 25 3d 6f  |%.*N.openctrl%=o|
00006e10  6c 64 5f 6f 70 65 6e 63  74 72 6c 25 0d 2a 58 05  |ld_openctrl%.*X.|
00006e20  3a 0d 2a 62 12 e7 20 6b  69 6c 6c 6d 75 73 69 63  |:.*b.. killmusic|
00006e30  25 20 8c 0d 2a 6c 45 20  e7 20 ac 20 a4 63 68 65  |% ..*lE . . .che|
00006e40  63 6b 6f 6e 28 70 72 65  66 73 25 2c 71 75 69 74  |ckon(prefs%,quit|
00006e50  6b 69 6c 6c 6d 25 29 20  8c 20 f2 73 65 6c 65 63  |killm%) . .selec|
00006e60  74 69 63 6f 6e 28 70 72  65 66 73 25 2c 71 75 69  |ticon(prefs%,qui|
00006e70  74 6b 69 6c 6c 6d 25 29  0d 2a 76 05 cc 0d 2a 80  |tkillm%).*v...*.|
00006e80  44 20 e7 20 a4 63 68 65  63 6b 6f 6e 28 70 72 65  |D . .checkon(pre|
00006e90  66 73 25 2c 71 75 69 74  6b 69 6c 6c 6d 25 29 20  |fs%,quitkillm%) |
00006ea0  8c 20 f2 64 69 73 61 62  6c 65 69 63 6f 6e 28 70  |. .disableicon(p|
00006eb0  72 65 66 73 25 2c 71 75  69 74 6b 69 6c 6c 6d 25  |refs%,quitkillm%|
00006ec0  29 0d 2a 8a 05 cd 0d 2a  94 05 3a 0d 2a 9e 11 e7  |).*....*..:.*...|
00006ed0  20 6f 70 65 6e 63 74 72  6c 25 20 8c 0d 2a a8 49  | openctrl% ..*.I|
00006ee0  20 e7 20 ac 20 a4 63 68  65 63 6b 6f 6e 28 70 72  | . . .checkon(pr|
00006ef0  65 66 73 25 2c 63 74 72  6c 77 69 6e 6f 70 65 6e  |efs%,ctrlwinopen|
00006f00  25 29 20 8c 20 f2 73 65  6c 65 63 74 69 63 6f 6e  |%) . .selecticon|
00006f10  28 70 72 65 66 73 25 2c  63 74 72 6c 77 69 6e 6f  |(prefs%,ctrlwino|
00006f20  70 65 6e 25 29 0d 2a b2  05 cc 0d 2a bc 48 20 e7  |pen%).*....*.H .|
00006f30  20 a4 63 68 65 63 6b 6f  6e 28 70 72 65 66 73 25  | .checkon(prefs%|
00006f40  2c 63 74 72 6c 77 69 6e  6f 70 65 6e 25 29 20 8c  |,ctrlwinopen%) .|
00006f50  20 f2 64 69 73 61 62 6c  65 69 63 6f 6e 28 70 72  | .disableicon(pr|
00006f60  65 66 73 25 2c 63 74 72  6c 77 69 6e 6f 70 65 6e  |efs%,ctrlwinopen|
00006f70  25 29 0d 2a c6 05 cd 0d  2a d0 05 3a 0d 2a da 1d  |%).*....*..:.*..|
00006f80  73 61 6d 70 6c 65 73 70  65 65 64 3d 6f 6c 64 5f  |samplespeed=old_|
00006f90  73 6d 70 73 70 65 65 64  25 0d 2a e4 19 75 73 65  |smpspeed%.*..use|
00006fa0  72 73 6e 64 25 3d 6f 6c  64 5f 75 73 65 72 73 6e  |rsnd%=old_usersn|
00006fb0  64 25 0d 2a ee 1f f2 75  70 64 61 74 65 73 6e 64  |d%.*...updatesnd|
00006fc0  71 75 61 6c 28 73 61 6d  70 6c 65 73 70 65 65 64  |qual(samplespeed|
00006fd0  29 0d 2a f8 05 e1 0d 2b  02 04 0d 2b 0c 04 0d 2b  |).*....+...+...+|
00006fe0  16 10 dd 20 a4 6c 6f 61  64 70 72 65 66 73 0d 2b  |... .loadprefs.+|
00006ff0  20 25 66 69 6c 65 25 3d  8e 28 22 3c 51 54 4d 54  | %file%=.("<QTMT|
00007000  72 61 63 6b 24 44 69 72  3e 2e 43 68 6f 69 63 65  |rack$Dir>.Choice|
00007010  73 22 29 0d 2b 2a 12 e7  20 66 69 6c 65 25 3d 30  |s").+*.. file%=0|
00007020  20 8c 20 3d a3 0d 2b 34  16 e8 23 66 69 6c 65 25  | . =..+4..#file%|
00007030  2c 6b 69 6c 6c 6d 75 73  69 63 25 0d 2b 3e 15 e8  |,killmusic%.+>..|
00007040  23 66 69 6c 65 25 2c 6f  70 65 6e 63 74 72 6c 25  |#file%,openctrl%|
00007050  0d 2b 48 17 e8 23 66 69  6c 65 25 2c 73 61 6d 70  |.+H..#file%,samp|
00007060  6c 65 73 70 65 65 64 0d  2b 52 14 e8 23 66 69 6c  |lespeed.+R..#fil|
00007070  65 25 2c 75 73 65 72 73  6e 64 25 0d 2b 5c 0b d9  |e%,usersnd%.+\..|
00007080  23 66 69 6c 65 25 0d 2b  66 06 3d b9 0d 2b 70 04  |#file%.+f.=..+p.|
00007090  0d 2b 7a 04 0d 2b 84 13  dd 20 f2 72 65 61 64 6f  |.+z..+... .reado|
000070a0  6c 64 70 72 65 66 73 0d  2b 8e 1d 6f 6c 64 5f 6b  |ldprefs.+..old_k|
000070b0  69 6c 6c 6d 75 73 69 63  25 3d 6b 69 6c 6c 6d 75  |illmusic%=killmu|
000070c0  73 69 63 25 0d 2b 98 1b  6f 6c 64 5f 6f 70 65 6e  |sic%.+..old_open|
000070d0  63 74 72 6c 25 3d 6f 70  65 6e 63 74 72 6c 25 0d  |ctrl%=openctrl%.|
000070e0  2b a2 1d 6f 6c 64 5f 73  6d 70 73 70 65 65 64 25  |+..old_smpspeed%|
000070f0  3d 73 61 6d 70 6c 65 73  70 65 65 64 0d 2b ac 19  |=samplespeed.+..|
00007100  6f 6c 64 5f 75 73 65 72  73 6e 64 25 3d 75 73 65  |old_usersnd%=use|
00007110  72 73 6e 64 25 0d 2b b6  05 e1 0d 2b c0 04 0d 2b  |rsnd%.+....+...+|
00007120  ca 04 0d 2b d4 10 dd 20  f2 63 6c 65 61 72 73 6f  |...+... .clearso|
00007130  6e 67 0d 2b de 09 f2 73  74 6f 70 0d 2b e8 13 f2  |ng.+...stop.+...|
00007140  72 65 73 65 74 73 61 6d  70 69 6e 66 6f 73 0d 2b  |resetsampinfos.+|
00007150  f2 12 f2 72 65 73 65 74  73 6f 6e 67 69 6e 66 6f  |...resetsonginfo|
00007160  0d 2b fc 12 c8 99 22 58  51 54 4d 5f 43 6c 65 61  |.+...."XQTM_Clea|
00007170  72 22 0d 2c 06 05 e1 0d  2c 10 04 0d 2c 1a 04 0d  |r".,....,...,...|
00007180  2c 24 11 dd 20 a4 72 65  61 64 76 6f 6c 75 6d 65  |,$.. .readvolume|
00007190  0d 2c 2e 09 ea 20 76 6f  6c 0d 2c 38 1c c8 99 22  |.,... vol.,8..."|
000071a0  58 51 54 4d 5f 56 6f 6c  75 6d 65 22 2c 2d 31 20  |XQTM_Volume",-1 |
000071b0  b8 20 76 6f 6c 0d 2c 42  08 3d 76 6f 6c 0d ff     |. vol.,B.=vol..|
000071bf