� >!RunImage
:
menuspace%=4000
(+sprsize%=�filelen("<Obey$Dir>.Sprites")
2.codesize%=�filelen("<Obey$Dir>.TrackCode")
<:
F� q% 256,q2% 128
P� code% 160
Z� temp% 300
d� block% 256
n� spname% 20
x� menuaddr% menuspace%
�� copied% 8*64*4+8
�� mainsprites% sprsize%+16
�� tc% codesize%
�:
�tuneloaded%=�
�saveheader%=�
�	tt%=�
�justloaded%=�
�delvoice%=1
�
delpat%=1
�savepat%=1
�copypat%=1
�copiedlen%=0

patlen%=64


update%=4

muscounter%=0

"oldpos%=-1:oldevent%=-1

,	fm%=0

6playing%=�

@:

J� sampaddr%(36),sample$(36)

T� slen%(36),svoladdr%(36)

^� pattaddr%(64)

h� onoff%(8),event%(8)

r� stereovals%(7)

|,stereovals%()=0,-126,-70,-40,0,40,70,127

�|notes$="---C-1C#1D-1D#1E-1F-1F#1G-1G#1A-1A#1B-1C-2C#2D-2D#2E-2F-2F#2G-2G#2A-2A#2B-2C-3C#3D-3D#3E-3F-3F#3G-3G#3A-3A#3B-3"

�sample$()=�20," ")

�defvoices%=4

�:

�� � �error

�:

�$q%="TASK"

�prefix$="<APTracker$Dir>"

�>ș "Wimp_Initialise",200,!q%,"AP Tracker" � version%,task%

�=�loadsprites(prefix$+".Sprites",mainsprites%,sprsize%+16)

�2�loadwithpathvariable(prefix$,"TrackCode",tc%)

��loadwindows

��setstereoESGs

�assemble
!iconh%=�iconbar("!aptracker")
(ș "XWimp_SlotSize",-1,-1 � appsize%
&A%=9:B%=appsize%
0	� tc%
:	�main
D
�shutdown
N�
X:
b��shutdown
labort%=�
v� tuneloaded% �
�Aerrorexit%=�errorbox(17,"Data will be lost - are you sure ?")
�� errorexit%=2 � abort%=�
��
�� abort% � �
�
�stoptune
�$q%="TASK"
�!ș "Wimp_CloseDown",task%,!q%
��
�:
�ݤiconbar(sprite$)
�$spname%=sprite$
�block%!0=-1
�block%!4=0
block%!8=0
block%!12=80
block%!16=72
 block%!20=&2102
*block%!24=spname%
4block%!28=1
>block%!32=�($spname%)
H(ș "Wimp_CreateIcon",,block% � icon%
R
=icon%
\:
f$��loadsprites(file$,addr%,size%)
p!addr%=size%
z
addr%!4=0
�addr%!8=16
�addr%!12=0
�'ș "OS_SpriteOp",256+10,addr%,file$
��
�:
���loadwindows
�
� T% 5000
�maxws%=5200
�� indir% maxws%
�ind%=indir%
�spr%=mainsprites%
�0ș "Wimp_OpenTemplate",,prefix$+".Templates"
�info%=�gw("info",spr%)
"savetune%=�gw("savetune",spr%)
"tuneinfo%=�gw("tuneinfo",spr%)
 samples%=�gw("samples",spr%)
$&savesample%=�gw("savesample",spr%)
."newtrack%=�gw("newtrack",spr%)
8stereo%=�gw("stereo",spr%)
B(savepattern%=�gw("savepattern",spr%)
L(savepatterns%=�gw("savepattns",spr%)
V(copypattern%=�gw("copypattern",spr%)
`"savehelp%=�gw("savehelp",spr%)
j$setvolume%=�gw("setvolume",spr%)
tplayer%=�gw("player",spr%)
~"settings%=�gw("settings",spr%)
�"savedump%=�gw("savedump",spr%)
�$savesynth%=�gw("savesynth",spr%)
�atr%=�gw("amendtrack",spr%)
�ș "Wimp_CloseTemplate"
�,�s(info%,11,�icontext(info%,11)+"  #24")
��
�:
�ݤgw(wtitle$,spr%)
�Iș "Wimp_LoadTemplate",,T%,ind%,indir%+maxws%-1,-1,wtitle$,0 � ,,ind%
�T%!64=spr%
�(ș "Wimp_CreateWindow",,T% � handle%
�=handle%
:


��main
quit%=�
�
(!ș "Wimp_Poll",0,q% � reason%
2Ȏ reason% �
<� 0:�showmusicpos
F� 2:�ow(q%!0,q%)
P� 3:�closewindow(q%!0)
Z/� 6:�checkmouse(q%!0,q%!4,q%!8,q%!12,q%!16)
d� 7:�dragfile
n"� 8:ș "Wimp_ProcessKey",q%!24
x� 9:�menuselect(q%)
�� 17,18:�message
��
�� quit%
��
�:
�)��checkmouse(mx%,my%,b%,where%,icon%)
� � b%=1 � mredo%=� � mredo%=�
�Ȏ where% �
�	� -2:
�Ȏ b% �
�� 1:�edittracker
�� 4:
�� tuneloaded% �
�panelstatus
�ow(player%,0)
�
"� 2:
,
�mainmenu
6'�openmenu(101,mainmenu%,mx%-86,376)
@�
J� savetune%:
T"� icon%=0 � �id(savetune%,0,1)
^� icon%=4 � �quicksave
h2� savesample%:� icon%=0 � �id(savesample%,0,2)
r.� savehelp%:� icon%=0 � �id(savehelp%,0,4)
|6� savepatterns%:� icon%=0 � �id(savepatterns%,0,5)
�0� savesynth%:� icon%=0 � �id(savesynth%,0,7)
�� savepattern%:
�Ȏ icon% �
�� 0:�id(savepattern%,0,3)
�� 1:�incsavepat
�� 4:�decsavepat
�� 7:�storepattern
��
�:� tuneinfo%:� icon%=6 � �newpattern � �ow(tuneinfo%,0)
�� samples%:
� � icon%=-1 � �ow(samples%,0)
�� b%=2 �
��makesamplemenu(icon% � 36)
F� slen%((icon% � 36)+1)>0 � �openmenu(106,mainmenu%,mx%-86,my%+24)
�
� newtrack%:
&Ȏ icon% �
0� 2:�createtune(defvoices%)
:� 3:�incdefvoices
D� 4:�decdefvoices
N�
X� copypattern%:
bȎ icon% �
l� 3:�inccopypat
v� 4:�deccopypat
�� 2:�copypattern
��
�� setvolume%:
�Ȏ icon% �
�� 2:�incvolume(sampleno%)
�� 3:�decvolume(sampleno%)
��
�� player%:
�:� icon%>0 � icon%<(!mvoxaddr%+1) � �togglevoice(icon%)
�Ȏ icon% �
�� 16:�playtune
�� 17:�stoptune
�� 21:�rewind
� 22:�fastforward
�
� settings%:
 Ȏ icon% �
*� 3:�incpatlength
4� 4:�decpatlength
>*� 6,7,8:�makeselected(settings%,icon%)
H�
R.� savedump%:� icon%=0 � �id(savedump%,0,6)
\� atr%:
fȎ icon% �
p� 3:�incdelpat
z� 4:�decdelpat
�� 5:�deletepattern
�� 8:�incdelvoice
�� 9:�decdelvoice
�� 11:�amendvoice
�(� 14,15,16:�makeselected(atr%,icon%)
�� 20:�tidysamples
��
�!� stereo%:�alterstereo(icon%)
��
��
�:
���ow(handle%,pos%)
�� b%
	� pos%=0 �
	b%=block%:block%!0=handle%
	 ș "Wimp_GetWindowState",,b%
	$�
	.b%=pos%
	8�
	Bblock%!28=-1
	Lș "Wimp_OpenWindow",,b%
	V�
	`:
	j��closewindow(handle%)
	t� handle%=tuneinfo% �
	~� tuneloaded% �rewritenames
	��
	�block%!0=handle%
	�!ș "Wimp_CloseWindow",,block%
	��
	�:
	���id(window%,icon%,myref%)
	�savehandle%=window%
	�globalref%=myref%
	�!q%=window%
	� ș "Wimp_GetWindowState",,q%
	�z%=q%!16-q%!8
	�x%=q%!4:y%=q%!8:q%!4=icon%
ș "Wimp_GetIconState",,q%

q%!8+=x%:q%!12+=y%+z%
q%!16+=x%:q%!20+=y%+z%
q%!24=0:q%!28=0
(7q%!32=(�mv(11)+1)<<�mv(4):q%!36=(�mv(12)+1)<<�mv(5)
2!q%=0:q%!4=5
<ș "Wimp_DragBox",,q%
F�
P:
Z
ݤmv(mv%)
d+ș "OS_ReadModeVariable",-1,mv% � ,,mv%
n=mv%
x:
�
��message
�yourref%=q%!8
�Ȏ q%!16 �
�� 0:quit%=�
�� 2:�savefile
�� 3:�loadfile
��
��
�:
���dragfile
�	!q%=0
� ș "Wimp_GetPointerInfo",,q%
�q%!32=4

q%!28=!q%
q%!24=q%!16
q%!20=q%!12
"q%!16=1
,q%!12=0
6
q%!36=100
@q%!40=&C00
J$(q%+44)=�(0)
T
!q%=60
^+ș "Wimp_SendMessage",18,q%,q%!20,q%!24
h�
r:
|ݤstringfrommemory(addr%)
�� byte%,temp$,out$
�byte%=0
�temp$=""
�out$=""
��
�temp$=�(addr%?byte%)
�#� �(temp$)>31 � out$=out$+temp$
�byte%+=1
�� �(temp$)=0
�	=out$
�:
�$ݤstringwithlimit(addr%,maxlen%)
�� byte%,temp$,out$
byte%=0
temp$=""
out$=""
&�
0temp$=�(addr%?byte%)
:#� �(temp$)>31 � out$=out$+temp$
Dbyte%+=1
N!� �(temp$)=0 � byte%>=maxlen%
X	=out$
b:
lݤicontext(wh%,iconnumber%)
v!temp%=wh%
�temp%!4=iconnumber%
�!ș "Wimp_GetIconState",,temp%
�
it$=""
�byte%=0
�ȕ ?((temp%!28)+byte%)>31
�"it$=it$+�(?((temp%!28)+byte%))
�byte%+=1
��
�=it$
�:
���error
�ș "Hourglass_Off"
�� #0

ș "Wimp_DragBox",,-1

ș "Wimp_CreateMenu",,-1


!block%=�

 $(block%+4)=�$+�(0)

*/ș "Wimp_ReportError",block%,1,"AP Tracker"

4	�main

>�

H:

R��s(wh%,iconnumber%,text$)

\!temp%=wh%

ftemp%!4=iconnumber%

p!ș "Wimp_GetIconState",,temp%

z $temp%!28=�text$,temp%!36-1)

�
temp%!8=0

�temp%!12=0

�!ș "Wimp_SetIconState",,temp%

��

�:

���makesamplemenu(samp%)

�sampleno%=samp%+1

�m%=menuaddr%

�"menend%=menuaddr%+menuspace%-1

�� i$,m$

�inst%=samp%+1

�� slen%(inst%)=0 � �

�%mtitle$=�leafname(sample$(inst%))
#� mtitle$="" � mtitle$="Sample"
mtitle$=�mtitle$,12)
�s(savesample%,3,mtitle$)
$\mainmenu%=�makemen("|winssSave,|winsvVolume,Delete,"+�tic(saveheader%)+"Header",mtitle$)
./� m%>menend% � � 17,"Not enough menu space"
8-�s(setvolume%,1,�(!svoladdr%(sampleno%)))
B�
L:
V��mainmenu
`m%=menuaddr%
j"menend%=menuaddr%+menuspace%-1
t� i$,m$
~�savemenu%=�makemen("|winsa"+�lit(tuneloaded%)+"Tune,|winsp"+�lit(tuneloaded%)+"Pattern,|winap"+�lit(tuneloaded%)+"Patterns,|winsd"+�lit(tuneloaded%)+"Text Dump,|winstSynthetic,|winshHelp","Save")
�?tunemenu%=�makemen("Info,Samples,Stereo,Copy,Amend","Tune")
��mainmenu%=�makemen("|wininInfo,|winsmSave,Settings,Create,"+�lit(tuneloaded%)+"Clear,|wintn"+�lit(tuneloaded%)+"Tune,Quit","AP Tracker")
�/� m%>menend% � � 17,"Not enough menu space"
�!�s(newtrack%,5,�(defvoices%))
�"�s(savepattern%,6,�(savepat%))
��
�:
�ݤlit(test%)
�!� test% � ="|lit1" � ="|lit0"
�:
�ݤtic(test%)
�!� test% � ="|tic1" � ="|tic0"
:

��menuitem(text$)
� menuflags%,iconflags%,sm%
	ii%=�
(
sm%=-1
2� text$="" � �
<menuflags%=0
Ficonflags%=&07000021
Pȕ �text$,1)="|"
ZȎ �text$,2,3) �
d� "lit":
n*iconflags%+=(1<<22)*(1-�(�text$,5,1)))
xtext$=�text$,6)
�� "tic":
�menuflags%+=�(�text$,5,1))
�text$=�text$,6)
�� "win":
�Ȏ �text$,5,2) �
�� "in":sm%=info%
�� "tn":sm%=tunemenu%
�� "nt":sm%=newtrack%
�� "sa":sm%=savetune%
�� "sm":sm%=savemenu%
�� "sp":sm%=savepattern%
�� "ap":sm%=savepatterns%
�� "sh":sm%=savehelp%
� "ss":sm%=savesample%
� "st":sm%=savesynth%
� "sv":sm%=setvolume%
"� "sd":sm%=savedump%
,�
6text$=�text$,7)
@�
J�
T)� �(text$)>menumax% menumax%=�(text$)
^m%!0=menuflags%
hm%!4=sm%
rm%!8=iconflags%
|� �(text$)<12 �
�$(m%+12)=text$
��
�menend%-=(�(text$)+1)
�"m%!8=(menuptr%!8) � %100000000
�m%!12=menend%
�m%!16=-1
�m%!20=�(text$)
�$menend%=text$
��
�
m%+=24
��
�:
�ݤpar(sep$)
%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
=�menu$,i1%,i%-i1%)
:
&ݤmakemen(menu$,menutitle$)
0� menumax%,wasptr%
:wasptr%=m%
Dmenumax%=10
Ni%=0
Xm%!20=40
b$m%=menutitle$
lm%?12=7
vm%?13=2
�m%?14=7
�m%?15=0
�maxaddr%=m%+16
�m%!24=0
�
m%+=28
��
�item$=�par(",")
��menuitem(item$)
�� item$=""
�m%!-24=(m%!-24) � &80
�!maxaddr%=menumax%*16+32
�=wasptr%
�:
��openmenu(our%,m%,x%,y%)
menuhandle%=our%

menux%=x%
 
menuy%=y%
*"ș "Wimp_CreateMenu",,m%,x%,y%
4�
>:
H��menuselect(menus%)
R� redo%
\!ș "Wimp_GetPointerInfo",,q2%
fredo%=(((q2%!8) � 1)>0)
pȎ menuhandle% �
z
� 101:
�Ȏ !menus% �
�� 2:
��s(settings%,5,�(patlen%))
��ow(settings%,0)
�� 3:�ow(newtrack%,0)
�� 4:
��cleardata
�� 5:
�Ȏ menus%!4 �
�0� 0:�rewritenames:�tuneinfo:�ow(tuneinfo%,0)
�� 1:�ow(samples%,0)
�� 2:�ow(stereo%,0)
�� 3:�ow(copypattern%,0)
� 4:
�s(atr%,2,�(delpat%))
�s(atr%,10,�(delvoice%))
$�ow(atr%,0)
.�
8� 6:�shutdown:redo%=�
B�
L� redo% �mainmenu
V
� 106:
`Ȏ !menus% �
j� 2:
t�deletesample(sampleno%)
~redo%=�
�� 3:
�saveheader%=�(saveheader%)
� �makesamplemenu(sampleno%-1)
��
��
�<� redo% � �openmenu(menuhandle%,mainmenu%,menux%,menuy%)
��
�:
�&��seticontype(window%,icon%,type%)
�q2%!0=window%
�q2%!4=icon%
�ș "Wimp_GetIconState",,q2%
iconblock%=q2%+8

iconflags%=iconblock%!16
eorword%=type%<<12
clearword%=15<<12
(q2%!0=window%
2q2%!4=icon%
<q2%!8=eorword%
Fq2%!12=clearword%
Pș "Wimp_SetIconState",,q2%
Z�
d:
n!��makeselected(window%,icon%)
xq2%!0=window%
�q2%!4=icon%
�q2%!8=2^21
�q2%!12=2^21
�ș "Wimp_SetIconState",,q2%
��
�:
�#��makeunselected(window%,icon%)
�q2%!0=window%
�q2%!4=icon%
�q2%!8=0
�q2%!12=2^21
�ș "Wimp_SetIconState",,q2%
��
:
!ݤisitselected(window%,icon%)
q2%!0=window%
"q2%!4=icon%
,ș "Wimp_GetIconState",,q2%
6iconblock%=q2%+8
@iconflags%=iconblock%!16
J%� (iconflags% � 2^21)=0 � =0 � =1
T:
^��movecaret(window%,icon%)
h*p%=(�(�icontext(window%,icon%))+1) � 2
r4ș "Wimp_SetCaretPosition",window%,icon%,,,-1,p%
|�
�:
�ݤfilelen(file$)
�C%=�(file$)
�
len%=�#C%
�	� #C%
�	=len%
�:
���savefile
�&pathname$=�stringfrommemory(q%+44)
�&leafname$=�icontext(savehandle%,3)
�� leafname$="" � �
�!fullname$=pathname$+leafname$
�Ȏ globalref% �
� 1:�savetune
� 2:�savesample(sampleno%)
� 3:�savepattern(savepat%)
&� 4:�savehelp(fullname$)
0 � 5:�savepatterns(leafname$)
:� 6:�savedump(fullname$)
D'� 7:�savesynth(pathname$,leafname$)
N�
X�
b:
l5��loadwithpathvariable(variable$,filename$,addr%)
v2�("LOAD "+variable$+"."+filename$+" "+�~addr%)
��
�:
�6��savewithpathstring(filename$,path$,addr%,bytes%)
�path2$=path$+"."+filename$
�0ș "OS_File",0,path2$,0,0,addr%,addr%+bytes%
��
�:
�ݤdigit(d$)
�!� d$>="0" � d$<="9" � =� � =�
�:
���settitle(block%,title$)
�addr%=block%+72
�len%=�(title$)
c%=0

ȕ len%>0
addr%?c%=�(�title$,c%+1,1))
 	c%+=1
*len%-=1
4�
>addr%?c%=0
H�
R:
\ݤreadstring
f� out$,byte%
pabort$=�(0)
z� �#handle% � =abort$
�out$=""
��
�byte%=�#handle%
�2� byte%>31 � �(�#handle%) � out$=out$+�(byte%)
�� byte%<32 � �#handle%
�	=out$
�:
���writestring(write$)
�� char%=1 � �(write$)
�!�#handle%,�(�write$,char%,1))
��
��#handle%,13
��
:
"��setfiletype(fname$,newtype%)
#ș "OS_File",18,fname$,newtype%
$�
.:
8!��writestringtofile(ch%,str$)
B� str$="" � �
L� l%=1 � �(str$)
V�#ch%,�(�str$,l%,1))
`�
j�
t:
~��loadfile
�&filename$=�stringfrommemory(q%+44)
�loaded$=filename$
� filelen%=�filelen(filename$)
�Ȏ q%!40 �
�$� &001:�loadtracker(filename$,2)
�$� &21A:�loadharmsynth(filename$)
�$� &364:�loadcocotrack(filename$)
�$� &365:�loadcocotrack(filename$)
�%� &701:�loadprotracker(filename$)
�$� &CB6:�loadtracker(filename$,0)
�#� &CB5:�loadsample(filename$,0)
�$� &CC5:�loadtracker(filename$,2)
#� &D3C:�loadsample(filename$,2)

#� &DF9:�loadsample(filename$,6)
#� &ED0:�loadsample(filename$,1)
!� &FFA:�loadmodule(filename$)
("� &FFD:�loadpatdata(filename$)
2�
<�
F:
P��loadmodule(module$)
ZC%=�(module$)
d�#C%=&88
n	a$=""
x� byte%=1 � 8
�a$+=�(�#C%)
��
�	� #C%
�E� a$="SampConv" � �loadsample(module$,8) � �loadsample(module$,7)
��
�:
���loadharmsynth(filename$)
�	A%=10
�address%=�(tc%)
�9� filelen%=1952 � �("LOAD "+filename$+" "+�~address%)
��
�:
�$��loadtracker(tracker$,modtype%)
modtype2%=modtype%
� modtype%=0 �
C%=�(tracker$)
"read$=""
,� char%=1 � 4
6read$+=�(�#C%)
@�
J	� #C%
T�
^:
habort%=�
r� tuneloaded% �
|Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
�-� errorexit%=1 � �returnmemory � abort%=�
��
�� abort% � �
�:
�� modtype%=0 �
�D� read$="FTMN" � � 17,"Sorry, can't load 'Face the Music' files"
�<� read$="MED"+�(4) � � 17,"Sorry, can't load MED3 files"
�,� read$="MUSX" � modtype%=1 � modtype%=2
�� read$="OKTA" � modtype%=3
��
�
�stoptune
�aborted%=�
�Ȏ modtype% �
� 2:
� �(aborted%) �
	fm%=0
&'gotit%=�grabmem(filelen%*2+10*1024)
0B� gotit%=� � �notenoughtoload(" for Sound Tracker Conversion")
:"tempload%=tt%+filelen%+10*1024
D'tempload%=(tempload%-4) � &FFFFFFFC
N'�("LOAD "+tracker$+" "+�~tempload%)
XA%=1
bB%=tempload%
l
C%=tt%
vD%=filelen%
�ș "Hourglass_On"
�	� tc%
�ș "Hourglass_Off"
�
�minimise
��
�:
�� 1:
�	fm%=0
�gotit%=�grabmem(filelen%)
�%� gotit%=� � �notenoughtoload("")
�!�("LOAD "+tracker$+" "+�~tt%)
�:
�� 3:
	fm%=0
'gotit%=�grabmem(filelen%*2+10*1024)
>� gotit%=� � �notenoughtoload(" for Octalyser conversion")
 "tempload%=tt%+filelen%+10*1024
*'tempload%=(tempload%-4) � &FFFFFFFC
4'�("LOAD "+tracker$+" "+�~tempload%)
>A%=8
HB%=tempload%
R
C%=tt%
\D%=filelen%
fș "Hourglass_On"
p	� tc%
zș "Hourglass_Off"
�
�minimise
�:
��
�:
�� �(aborted%) � �justloaded
�� aborted% � �closeall
��
�:
���justloaded
�tuneloaded%=�
�playing%=�
�oldpos%=-1:oldevent%=-1
��s(savetune%,3,loaded$)
�getmusicinfo

�tuneinfo
�updatestereo
$�writesamplenames
.�initialisevoices
8justloaded%=�
Bdelvoice%=1
L
delpat%=1
Vsavepat%=1
`copypat%=1
j"�s(copypattern%,5,�(copypat%))
t�s(atr%,2,�(delpat%))
~�s(atr%,10,�(delvoice%))
��redocaret
��
�:
���redocaret
�"ș "Wimp_GetCaretPosition",,q%
�cw%=q%!0:ci%=q%!4
�� cw%=tuneinfo% �
�'� ci%=7 � ci%=8 �movecaret(cw%,ci%)
��
��
�:
�%��loadsample(sampfile$,samptype%)
withheader%=�

window%=q%!20
icon%=q%!24
� window%<>samples% � �
(� icon%<0 � �
2ș "Hourglass_On"
<samppos%=(icon% � 36)+1
Fsf%=�filelen(sampfile$)
Pactualsamplelen%=sf%
Z� samptype%=2 � sf%-=1
d� samptype%=6 � sf%-=712
n� samptype%=7 � sf%-=1408
x� samptype%=8 � sf%-=660
�sf%=(sf%+3) � &FFFFFFFC
�4� samptype%=0 � withheader%=�headered(sampfile$)
�� withheader% �
�%�loadheadered(sampfile$,samppos%)
��
�1�loadunheadered(sampfile$,samppos%,samptype%)
��
�ș "Hourglass_Off"
��updatesize
�
�minimise
��
�:
�ݤheadered(samp$)
� sf%<4 � =�
C%=�(samp$)
read$=""
"� char%=1 � 4
,read$+=�(�#C%)
6�
@	� #C%
J� read$="SAMP" � =�
T=�
^:
h ��loadheadered(what$,where%)
r1effectivelen%=((slen%(where%)+3) � &FFFFFFFC)
|abort%=�
�� sf%>(effectivelen%+92) �
�$toinsert%=sf%-(effectivelen%+92)
�at%=sampaddr%(where%)
�/� �(�insertbytes(at%,toinsert%)) � abort%=�
��
�� sf%<(effectivelen%+92) �
�"todelete%=effectivelen%+92-sf%
�at%=sampaddr%(where%)
�/� �(�deletebytes(at%,todelete%)) � abort%=�
��
�� abort%=� � � 7:�
�,�("LOAD "+what$+" "+�~sampaddr%(where%))
��readsamples
 �writesamplenames
 �
 :
 &)��loadunheadered(what$,where%,stype%)
 01effectivelen%=((slen%(where%)+3) � &FFFFFFFC)
 :abort%=�
 D� sf%>effectivelen% �
 Ntoinsert%=sf%-effectivelen%
 Xat%=sampaddr%(where%)+92
 b/� �(�insertbytes(at%,toinsert%)) � abort%=�
 l�
 v� sf%<effectivelen% �
 �todelete%=effectivelen%-sf%
 �at%=sampaddr%(where%)+92
 �/� �(�deletebytes(at%,todelete%)) � abort%=�
 ��
 �� abort%=� � � 7:�
 �Ȏ stype% �
 �� 2:
 �C%=�(what$)
 �?ș "OS_GBPB",3,C%,sampaddr%(where%)+92,actualsamplelen%-1,1
 �	� #C%
 �� 6:
 �C%=�(what$)
 �Cș "OS_GBPB",3,C%,sampaddr%(where%)+92,actualsamplelen%-712,544
!	� #C%
!� 7:
!C%=�(what$)
! Eș "OS_GBPB",3,C%,sampaddr%(where%)+92,actualsamplelen%-1408,1408
!*	� #C%
!4� 8:
!>C%=�(what$)
!HCș "OS_GBPB",3,C%,sampaddr%(where%)+92,actualsamplelen%-660,660
!R	� #C%
!\� 0,1,3,4,5:
!f1�("LOAD "+what$+" "+�~(sampaddr%(where%)+92))
!p�
!zsname$=�leafname(what$)
!�sname$=�sname$,20)
!�at%=sampaddr%(where%)
!�at%!4=sf%+84
!��wz(sname$,at%+16,20)
!�at%!44=255
!�at%!80=2
!�at%!68=0
!�at%!56=sf%
!�at%!88=sf%
!�Ȏ stype% �
!�� 1:
!�A%=5
!�
B%=at%+92
"
C%=sf%
"D%=0
"	� tc%
"$� 2,6,7:
".A%=5
"8
B%=at%+92
"B
C%=sf%
"LD%=1
"V	� tc%
"`� 3,4,5:
"jA%=5
"t
B%=at%+92
"~
C%=sf%
"�D%=stype%-1
"�	� tc%
"��
"��readsamples
"��writesamplenames
"��
"�:
"���wz(w$,a%,l%)
"�� c%=1 � l%
"�b%=0
"�!� c%<=�(w$) � b%=�(�w$,c%,1))
"�a%?(c%-1)=b%
#�
#
�
#:
#��edittracker
#(� tuneloaded%=� � �
#2� playing% �
#<	A%=12
#FB%=pos%
#P
C%=event%
#Z	� tc%
#d�
#n
�stoptune
#x�rewritestereo
#��rewritenames
#�oldmode%=�
#�� 15
#�
A%=tt%
#�B%=0
#�� justloaded% � B%=1
#�� tc%+4
#�*FX 15,0
#�ș "Wimp_SetMode",oldmode%
#��readmusicdata
#��readsamples
#��updatesize
#��writesamplenames
$
�tuneinfo
$
�minimise
$justloaded%=�
$"ș "OS_Byte",4,2,0
$,�
$6:
$@��notenoughtoload(t$)
$J�returnmemory
$T
�closeall
$^+� 17,"Insufficient Memory Available"+t$
$h�
$r:
$|��returnmemory
$�#ș "XWimp_SlotSize",appsize%,-1
$�tuneloaded%=�
$��
$�:
$�ݤgrabmem(amount%)
$�oldamount%=amount%
$�$� amount%<=fm% � fm%-=amount%:=�
$��
$� grabable%=�grabmem2(32*1024)
$�� grabable% �
$�fm%+=32*1024
$�amount%-=32*1024
$��
%� amount%<0 � �(grabable%)
%!� amount%<0 � fm%-=oldamount%
%=grabable%
%&:
%0ݤgrabmem2(amount%)
%:%ș "XWimp_SlotSize",-1,-1 � size%
%D(ș "XWimp_SlotSize",size%+amount%,-1
%N&ș "XWimp_SlotSize",-1,-1 � size2%
%X� size2%<size%+amount% �
%b ș "XWimp_SlotSize",size%,-1
%l�
%v$� size2%<size%+amount% � =� � =�
%�:
%���getmusicinfo
%��readmusicdata
%��readsamples
%��readpatterns
%��
%�:
%���tuneinfo
%��s(tuneinfo%,7,mname$)
%��s(tuneinfo%,8,aname$)
%� �s(tuneinfo%,9,�(patterns%))
%��s(tuneinfo%,14,�(voices%))
%��s(tuneinfo%,15,�(seqlen%))
&�updatesize
&�
&:
& ��writesamplenames
&*� sample%=1 � 36
&4icon%=sample%+107
&>sname$=sample$(sample%)
&Hslen%=slen%(sample%)
&Rslen$=�(slen%)
&\� slen%=0 � slen$=""
&f slen$=�5-�(slen$)," ")+slen$
&p$sname$=sname$+�22-�(sname$)," ")
&z'�s(samples%,icon%,sname$+" "+slen$)
&��
&��
&�:
&�ݤf(start%,end%,word%)
&�
A%=start%
&�B%=end%
&��
&�
C%=!A%
&�D%=A%!4
&�	A%+=8
&�� C%<>word% � A%+=D%
&�� A%>B% � C%=word%
&�� C%=word% � =A%
'=�
':
'ݤword(word$)
'$word%=0
'.� byte%=1 � 4
'8asc%=�(�word$,5-byte%,1))
'Bword%=(word%<<8)+asc%
'L�
'V
=word%
'`:
'j��readmusicdata
'tabsstart%=tt%
'~absend%=tt%+(tt%!4)+8
'�absstart%+=8
'�mlen%=�word("MLEN")
'�mvox%=�word("MVOX")
'�pnum%=�word("PNUM")
'�mnam%=�word("MNAM")
'�anam%=�word("ANAM")
'�plen%=�word("PLEN")
'�ster%=�word("STER")
'�sequ%=�word("SEQU")
'�)mlenaddr%=�f(absstart%,absend%,mlen%)
'�seqlen%=!mlenaddr%
'�)mvoxaddr%=�f(absstart%,absend%,mvox%)
(voices%=!mvoxaddr%
(
)steraddr%=�f(absstart%,absend%,ster%)
()pnumaddr%=�f(absstart%,absend%,pnum%)
(patterns%=!pnumaddr%
(()mnamaddr%=�f(absstart%,absend%,mnam%)
(2)anamaddr%=�f(absstart%,absend%,anam%)
(<)aname$=�stringwithlimit(anamaddr%,32)
(F)mname$=�stringwithlimit(mnamaddr%,32)
(P(pattlen%=�f(absstart%,absend%,plen%)
(Z(seqaddr%=�f(absstart%,absend%,sequ%)
(d�
(n:
(x��readsamples
(�absstart%=tt%
(�absend%=tt%+(tt%!4)+8
(�absstart%+=8
(�samp%=�word("SAMP")
(�snam%=�word("SNAM")
(�slen%=�word("SLEN")
(�svol%=�word("SVOL")
(�start%=absstart%
(�� inst%=1 � 36
(�(sampleaddr%=�f(start%,absend%,samp%)
(�"sampaddr%(inst%)=sampleaddr%-8
(�searchaddr%=sampleaddr%
(�+snamaddr%=�f(searchaddr%,absend%,snam%)
)1sample$(inst%)=�stringwithlimit(snamaddr%,20)
)+slenaddr%=�f(searchaddr%,absend%,slen%)
)� 2=3 �
)"'slen%(inst%)=4*((!slenaddr%+3) � 4)
),!slenaddr%=slen%(inst%)
)6�
)@slen%(inst%)=!slenaddr%
)J�
)T2svoladdr%(inst%)=�f(searchaddr%,absend%,svol%)
)^'start%=sampleaddr%+!(sampleaddr%-4)
)h�
)r�
)|:
)���readpatterns
)�� start%,pattern%
)�absstart%=tt%
)�absend%=tt%+(tt%!4)+8
)�absstart%+=8
)�start%=absstart%
)�patt%=�word("PATT")
)�� pattern%=1 � patterns%
)�0pattaddr%(pattern%)=�f(start%,absend%,patt%)
)�7start%=pattaddr%(pattern%)+!(pattaddr%(pattern%)-4)
)��
)��
)�:
*��newpattern
*� patterns%=64 � �
*�makeselected(tuneinfo%,6)
*&eachpat%=4*patlen%*voices%
*0Bstart%=pattaddr%(patterns%)+(4*voices%*pattlen%?(patterns%-1))
*:'� �insertbytes(start%,eachpat%+8) �
*Dstart%!0=�word("PATT")
*Nstart%!4=eachpat%
*X
start%+=8
*b� word%=0 � (eachpat%/4)-1
*lstart%!(word%*4)=0
*v�
*�pattlen%?patterns%=patlen%
*�patterns%+=1
*�!pnumaddr%=patterns%
*��getmusicinfo
*��
*� �makeunselected(tuneinfo%,6)
*�
�tuneinfo
*��
*�:
*�"ݤinsertbytes(where%,howmany%)
*� � �(�grabmem(howmany%)) � =�
*�from%=tt%+tt%!4+8-1
*�to%=from%+howmany%
+copy%=from%-where%
+A%=from%
+
B%=to%
+ C%=copy%+1
+*� C%>0 � insertbytes
+4tt%!4+=howmany%
+>=�
+H:
+R"ݤdeletebytes(where%,howmany%)
+\A%=where%+howmany%
+f
B%=where%
+pendaddr%=tt%+tt%!4+8
+zC%=endaddr%-A%
+�� C%>0 � deletebytes
+�fm%+=howmany%
+�tt%!4-=howmany%
+�=�
+�:
+���assemble
+�fromreg%=0
+�toreg%=1
+�countreg%=2
+�link=14:pc=15
+�� pass=0 � 2 � 2
+�P%=code%
+�
[OPT pass
,.insertbytes
,LDRB R11,[fromreg%],#-1
,STRB R11,[toreg%],#-1
,$SUBS countreg%,countreg%,#1
,.BNE insertbytes
,8MOV pc,link
,B.deletebytes
,LLDRB R11,[fromreg%],#1
,VSTRB R11,[toreg%],#1
,`SUBS countreg%,countreg%,#1
,jBNE deletebytes
,tMOV pc,link
,~
.claimRma
,�
MOV R3,R0
,�
MOV R0,#6
,�SWI "XOS_Module"
,�MOVVS R2,#0
,�
MOV R0,R2
,�MOV pc,link
,�.copybytes
,�ADD R11,R2,#3
,�MOV R11,R11,ASR #2
,�.copybytesloop
,�LDR R10,[R0],#4
,�STR R10,[R1],#4
-SUBS R11,R11,#1
-
BNE copybytesloop
-MOV pc,link
-]
-(�
-2�
-<:
-F��savesample(sample%)
-P"leaf$=�icontext(savesample%,3)
-Z"path$=�stringfrommemory(q%+44)
-dpath$=�path$,�(path$)-1)
-n� saveheader% �
-xstart%=sampaddr%(sample%)
-�%length%=!(sampaddr%(sample%)+4)+8
-��
-� start%=sampaddr%(sample%)+92
-�length%=slen%(sample%)
-��
-�3�savewithpathstring(leaf$,path$,start%,length%)
-�&�setfiletype(path$+"."+leaf$,&CB5)
-�ș "Wimp_CreateMenu",,-1
-��
-�:
-���savetune
-��rewritenames
-��rewritestereo
. leaf$=�icontext(savetune%,3)
.leaf$=�leafname(leaf$)
."path$=�stringfrommemory(q%+44)
."path$=�path$,�(path$)-1)
.,0�savewithpathstring(leaf$,path$,tt%,tt%!4+8)
.6&�setfiletype(path$+"."+leaf$,&CB6)
.@#�s(savetune%,3,path$+"."+leaf$)
.Jș "Wimp_CreateMenu",,-1
.T�
.^:
.h��deletesample(samppos%)
.rș "Hourglass_On"
.|at%=sampaddr%(samppos%)+92
.�todelete%=slen%(samppos%)
.�'todelete%=(todelete%+3) � &FFFFFFFC
.�&dummy%=�deletebytes(at%,todelete%)
.�at%=sampaddr%(samppos%)
.��wz("",at%+16,20)
.�at%!4=84
.�at%!56=0
.�at%!68=0
.�at%!80=2
.�at%!88=0
.��readsamples
.��writesamplenames
.�
�minimise
/
�tuneinfo
/ș "Hourglass_Off"
/�
/&:
/0��updatesize
/:size%=tt%!4+8
/D ksize%=�((size%+512) � 1024)
/N"�s(tuneinfo%,19,�(ksize%)+"K")
/X&�s(tuneinfo%,20,�(size%)+" bytes")
/b�
/l:
/v��quicksave
/� save$=�icontext(savetune%,3)
/��makeselected(savetune%,4)
/�4� �save$,".")=0 � �makeunselected(savetune%,4):�
/��rewritenames
/��rewritestereo
/�start%=tt%
/�length%=tt%!4+8
/�0�("SAVE "+save$+" "+�~start%+" +"+�~length%)
/��setfiletype(save$,&CB6)
/� �makeunselected(savetune%,4)
/�ș "Wimp_CreateMenu",,-1
/��
/�:
0��incdefvoices
0"� defvoices%<8 � defvoices%+=1
0!�s(newtrack%,5,�(defvoices%))
0 �
0*:
04��decdefvoices
0>"� defvoices%>1 � defvoices%-=1
0H!�s(newtrack%,5,�(defvoices%))
0R�
0\:
0f��cleardata
0pabort%=�
0z� tuneloaded% �
0�Aerrorexit%=�errorbox(17,"Data will be lost - are you sure ?")
0�� errorexit%=2 � abort%=�
0��
0�� abort% � �
0��returnmemory
0�
�stoptune
0�
�closeall
0�tuneloaded%=�
0��
0�:
0���closeall
0��closewindow(tuneinfo%)
0��closewindow(samples%)
1�closewindow(stereo%)
1�closewindow(copypattern%)
1�closewindow(player%)
1$�closewindow(atr%)
1.�
18:
1B��createtune(v%)
1Labort%=�
1V� tuneloaded% �
1`Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
1j� errorexit%=2 � abort%=�
1t� abort%=� �returnmemory
1~�
1�(� abort% � �closewindow(newtrack%):�
1�
�stoptune
1��makeselected(newtrack%,2)
1�memneeded%=368+36*92
1�memneeded%+=v%*patlen%*4
1�	fm%=0
1�� �grabmem(memneeded%) �
1�o%=0
1�
t%=tt%
1�t%!o%=�word("MUSX") : o%+=4
1� t%!o%=memneeded%-8   : o%+=4
1�t%!o%=�word("TINF") : o%+=4
2t%!o%=4   : o%+=4
2
t%!o%=0   : o%+=4
2t%!o%=�word("MVOX") : o%+=4
2t%!o%=4   : o%+=4
2(t%!o%=v%  : o%+=4
22t%!o%=�word("STER") : o%+=4
2<t%!o%=8   : o%+=4
2F t%!o%=&03050503      : o%+=4
2P t%!o%=&03050503      : o%+=4
2Zt%!o%=�word("MNAM") : o%+=4
2dt%!o%=32  : o%+=4
2n�wz("<Untitled>",t%+o%,32)
2x
o%+=32
2�t%!o%=�word("ANAM") : o%+=4
2�t%!o%=32  : o%+=4
2��wz("<You>",t%+o%,32)
2�
o%+=32
2�t%!o%=�word("MLEN") : o%+=4
2�t%!o%=4   : o%+=4
2�t%!o%=1   : o%+=4
2�t%!o%=�word("PNUM") : o%+=4
2�t%!o%=4   : o%+=4
2�t%!o%=1   : o%+=4
2�t%!o%=�word("PLEN") : o%+=4
2�t%!o%=64  : o%+=4
2� t%?o%=patlen%        : o%+=1
3� i%=1 � 63
3t%?o%=64
3	o%+=1
3"�
3,t%!o%=�word("SEQU") : o%+=4
36t%!o%=128 : o%+=4
3@� i%=1 � 128
3Jt%?o%=0
3T	o%+=1
3^�
3ht%!o%=�word("PATT") : o%+=4
3r t%!o%=v%*patlen%*4   : o%+=4
3|� i%=1 � v%*patlen%*4
3�t%?o%=0
3�	o%+=1
3��
3�� sample%=1 � 36
3�t%!o%=�word("SAMP") : o%+=4
3�t%!o%=84  : o%+=4
3�t%!o%=�word("SNAM") : o%+=4
3�t%!o%=20  : o%+=4
3��wz("",t%+o%,20)
3�
o%+=20
3�t%!o%=�word("SVOL") : o%+=4
3�t%!o%=4   : o%+=4
3�t%!o%=255 : o%+=4
4t%!o%=�word("SLEN") : o%+=4
4t%!o%=4   : o%+=4
4t%!o%=0   : o%+=4
4&t%!o%=�word("ROFS") : o%+=4
40t%!o%=4   : o%+=4
4:t%!o%=0   : o%+=4
4Dt%!o%=�word("RLEN") : o%+=4
4Nt%!o%=4   : o%+=4
4Xt%!o%=2   : o%+=4
4bt%!o%=�word("SDAT") : o%+=4
4lt%!o%=0   : o%+=4
4v�
4�tuneloaded%=�
4�playing%=�
4��s(savetune%,3,"Tracker")
4��getmusicinfo
4�
�tuneinfo
4��updatestereo
4��writesamplenames
4��initialisevoices
4��closewindow(newtrack%)
4�
�minimise
4��
4�tuneloaded%=�
4�
�closeall
5�
5 �makeunselected(newtrack%,2)
5justloaded%=�
5 delvoice%=1
5*
delpat%=1
54savepat%=1
5>copypat%=1
5H"�s(copypattern%,5,�(copypat%))
5R�s(atr%,2,�(delpat%))
5\�s(atr%,10,�(delvoice%))
5f�redocaret
5p�
5z:
5�ݤerrorbox(err%,err$)
5�q%!0=err%+(task%<<8)
5�$(q%+4)=err$+�(0)
5�8ș "Wimp_ReportError",q%,%1011,"AP Tracker" � ,exit%
5�
=exit%
5�:
5�ݤleafname(fullpath$)
5�� fullpath$="" � =""
5�� output$,chpos%,ch$
5�output$=""
5�chpos%=�(fullpath$)
5��
5�ch$=�fullpath$,chpos%,1)
6)� �".: ",ch$)=0 � output$=ch$+output$
6
chpos%-=1
6� chpos%=0 � �".: ",ch$)>0
6$=output$
6.:
68��setstereoESGs
6B� voice%=1 � 8
6Lbaseicon%=voice%*8-7
6Vesg%=voice%
6`� eachicon%=0 � 6
6j-�setESG(stereo%,baseicon%+eachicon%,esg%)
6t�
6~�
6��
6�:
6���updatestereo
6�� voice%=1 � 8
6�s%=steraddr%+voice%-1
6�� ?s%=0 � ?s%>7 � ?s%=4
6�baseicon%=voice%*8-7
6�� eachicon%=0 � 6
6�0�makeunselected(stereo%,baseicon%+eachicon%)
6��
6�=�makeselected(stereo%,baseicon%+(steraddr%?(voice%-1)-1))
6��
7�
7
:
7 ��setESG(window%,icon%,set%)
7q%!0=window%
7(q%!4=icon%
72q%!8=set%<<16
7<q%!12=%1111<<16
7Fș "Wimp_SetIconState",,q%
7P�
7Z:
7d��rewritestereo
7n� voice%=1 � 8
7xw%=steraddr%+voice%-1
7�baseicon%=voice%*8-7
7�s%=1
7�� eachicon%=0 � 6
7�A� �isitselected(stereo%,baseicon%+eachicon%) � s%=eachicon%+1
7��
7�
?w%=s%
7��
7��
7�:
7���incsavepat
7�&� savepat%<patterns% � savepat%+=1
7�"�s(savepattern%,6,�(savepat%))
7��
8:
8��decsavepat
8� savepat%>1 � savepat%-=1
8""�s(savepattern%,6,�(savepat%))
8,�
86:
8@ݤpatternaddr(patno%)
8J=pattaddr%(patno%)
8T:
8^��savepattern(whichpat%)
8h'startpat%=�patternaddr(whichpat%)-8
8rlength%=!(startpat%+4)+8
8|(pathname$=�pathname$,�(pathname$)-1)
8�>�savewithpathstring(leafname$,pathname$,startpat%,length%)
8�.�setfiletype(pathname$+"."+leafname$,&FFD)
8�ș "Wimp_CreateMenu",,-1
8��
8�:
8���savepatterns(root$)
8�(pathname$=�pathname$,�(pathname$)-1)
8�ș "Hourglass_On"
8�� patsave%=1 � patterns%
8�(leafname$=root$+�"00"+�(patsave%),2)
8�&startpat%=�patternaddr(patsave%)-8
8�length%=!(startpat%+4)+8
8�>�savewithpathstring(leafname$,pathname$,startpat%,length%)
9.�setfiletype(pathname$+"."+leafname$,&FFD)
9�
9ș "Hourglass_Off"
9&ș "Wimp_CreateMenu",,-1
90�
9::
9D��savesynth(path$,leaf$)
9Npath$=�path$,�(path$)-1)
9X	A%=10
9bstart%=�(tc%)
9l0�savewithpathstring(leaf$,path$,start%,1952)
9v&�setfiletype(path$+"."+leaf$,&21A)
9�ș "Wimp_CreateMenu",,-1
9��
9�:
9���loadpatdata(filename$)
9�@� q%!20=samples% � �loadsample(filename$,�whichsampletype):�
9�C%=�(filename$)
9�read$=""
9�� byte%=1 � 4
9�read$+=�(�#C%)
9��
9�	� #C%
9�abort%=�
9�� read$<>"PATT" � abort%=�
:� filelen%<(4+8) � abort%=�
:$� filelen%>(8*64*4+8) � abort%=�
:!� (filelen% � 3)>0 � abort%=�
: (� abort% � � 17,"Not a pattern file"
:*&�("LOAD "+filename$+" "+�~copied%)
:4copiedlen%=filelen%
:>�ow(copypattern%,0)
:H�
:R:
:\��inccopypat
:f&� copypat%<patterns% � copypat%+=1
:p"�s(copypattern%,5,�(copypat%))
:z�
:�:
:���deccopypat
:�� copypat%>1 � copypat%-=1
:�"�s(copypattern%,5,�(copypat%))
:��
:�:
:���copypattern
:�-� copiedlen%=0 � � 17,"No pattern loaded"
:�$copyto%=�patternaddr(copypat%)-8
:�copytolen%=!(copyto%+4)+8
:�?� copytolen%<>copiedlen% � � 17,"Pattern sizes don't match"
:�!�makeselected(copypattern%,2)
:�� byte%=0 � copiedlen%-1
;copyto%?byte%=copied%?byte%
;�
;#�makeunselected(copypattern%,2)
;$,� �(mredo%) � �closewindow(copypattern%)
;.�
;8:
;B��storepattern
;L!�makeselected(savepattern%,7)
;V&startpat%=�patternaddr(savepat%)-8
;`length%=!(startpat%+4)+8
;j� byte%=0 � length%-1
;t!copied%?byte%=startpat%?byte%
;~�
;�copiedlen%=length%
;�#�makeunselected(savepattern%,7)
;�*� �(mredo%) � ș "Wimp_CreateMenu",,-1
;��ow(copypattern%,0)
;��
;�:
;���savehelp(savehelp$)
;�A%=0
;�
b%=�(tc%)
;�h%=b%!0
;�hl%=b%!4
;�C%=�(savehelp$)
<ș "Hourglass_On"
<
� line%=1 � hl%
<-ș "Hourglass_Percentage",100*(line%/hl%)
<� c%=0 � 75
<(w%=h%?c%
<2� w%>126 � w%+=9
<<�#C%,w%
<F�
<P
h%+=76
<Z�#C%,10
<d�
<nș "Hourglass_Off"
<x	� #C%
<� �setfiletype(savehelp$,&FFF)
<�ș "Wimp_CreateMenu",,-1
<��
<�:
<���incvolume(whichvol%)
<�vol%=!svoladdr%(whichvol%)
<�vol%+=�buttonval(b%)
<�� vol%>255 � vol%=255
<�!svoladdr%(whichvol%)=vol%
<��s(setvolume%,1,�(vol%))
<��
<�:
<���decvolume(whichvol%)
=vol%=!svoladdr%(whichvol%)
=vol%-=�buttonval(b%)
=� vol%<0 � vol%=0
="!svoladdr%(whichvol%)=vol%
=,�s(setvolume%,1,�(vol%))
=6�
=@:
=Jݤbuttonval(test%)
=T� test%=1 � =10
=^� test%=2 � =5
=h=1
=r:
=|��loadcocotrack(cocotrack$)
=�abort%=�
=�� tuneloaded% �
=�Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
=�-� errorexit%=1 � �returnmemory � abort%=�
=��
=�� abort% � �
=�:
=�
�stoptune
=�aborted%=�
=�	fm%=0
=�'gotit%=�grabmem(filelen%*2+10*1024)
=�>� gotit%=� � �notenoughtoload(" for Coconizer conversion")
=�"tempload%=tt%+filelen%+10*1024
>'tempload%=(tempload%-4) � &FFFFFFFC
>)�("LOAD "+cocotrack$+" "+�~tempload%)
>A%=2
>&B%=tempload%
>0
C%=tt%
>:ș "Hourglass_On"
>D	� tc%
>Nș "Hourglass_Off"
>Xnewsize%=tt%!4+8
>b-newsize%=(newsize%+32*1024-1) � &FFFF8000
>l,ș "XWimp_SlotSize",newsize%+appsize%,-1
>vfm%=newsize%-(tt%!4+8)
>��justloaded
>��
>�:
>���loadprotracker(protrack$)
>�abort%=�
>�� tuneloaded% �
>�Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
>�-� errorexit%=1 � �returnmemory � abort%=�
>��
>�� abort% � �
>�:
>�
�stoptune
>�	fm%=0
?'gotit%=�grabmem(filelen%*2+10*1024)
??� gotit%=� � �notenoughtoload(" for ProTracker conversion")
?"tempload%=tt%+filelen%+10*1024
? 'tempload%=(tempload%-4) � &FFFFFFFC
?*(�("LOAD "+protrack$+" "+�~tempload%)
?4A%=1
?>B%=tempload%
?H
C%=tt%
?RD%=filelen%
?\ș "Hourglass_On"
?f	� tc%
?p(�("LOAD "+protrack$+" "+�~tempload%)
?zA%=3
?�B%=tempload%
?�
C%=tt%
?�	� tc%
?�ș "Hourglass_Off"
?�newsize%=tt%!4+8
?�-newsize%=(newsize%+32*1024-1) � &FFFF8000
?�,ș "XWimp_SlotSize",newsize%+appsize%,-1
?�fm%=newsize%-(tt%!4+8)
?��justloaded
?��
?�:
?���playtune
?�� �(tuneloaded%) � �
@� playing% � �
@bytes%=tt%!4+8
@
A%=bytes%
@$� rmaspace%=USR(claimRma)
@.-ș "OS_Module",6,0,0,bytes% � ,,rmaspace%
@88� rmaspace%=0 � � 17,"Insufficient Memory Available"
@B�setupvoices
@L�rewritestereo
@Vrmaclaimed%=bytes%
@`
A%=tt%
@jB%=rmaspace%
@t
C%=bytes%
@~� copybytes
@�-ș "Tracker_MemoryLoad",rmaspace%,tt%!4+8
@�ș "Tracker_Play"
@�playing%=�
@��panelstatus
@��
@�:
@���stoptune
@�� �(playing%) � �
@�ș "Tracker_Stop"
@�!ș "XOS_Module",7,0,rmaspace%
@�-ș "XOS_ChangeDynamicArea",1,-rmaclaimed%
@�playing%=�
Aoldpos%=-1:oldevent%=-1
A
�panelstatus
A�
A:
A(��shade(window%,icon%)
A2q2%!0=window%
A<q2%!4=icon%
AFq2%!8=2^22
APq2%!12=2^22
AZș "Wimp_SetIconState",,q2%
Ad�
An:
Ax��unshade(window%,icon%)
A�q2%!0=window%
A�q2%!4=icon%
A�q2%!8=0
A�q2%!12=2^22
A�ș "Wimp_SetIconState",,q2%
A��
A�:
A���panelstatus
A�� playing% �
A��shade(player%,16)
A��unshade(player%,17)
A��
A��shade(player%,17)
B�unshade(player%,16)
B�s(player%,10,"-")
B�s(player%,18,"")
B"�
B,�
B6:
B@��showmusicpos
BJ� �(playing%) � �
BT)muscounter%=(muscounter%+1) � update%
B^� muscounter%=0 �
Bh+ș "Tracker_ReadPos" � pos%,event%,max%
Br� pos%<>oldpos% �
B|*�s(player%,10,�(pos%+1)+":"+�(max%+1))
B��
B�2� event%<>oldevent% � �s(player%,18,�(event%))
B�!oldpos%=pos%:oldevent%=event%
B��
B��
B�:
B���rewind
B�� �(playing%) � �
B�&ș "Tracker_ReadPos" � pos%,event%
B�+� pos%>0 � ș "Tracker_SetPos",pos%-1,0
B��
B�:
B���fastforward
C� �(playing%) � �
C+ș "Tracker_ReadPos" � pos%,event%,max%
C.� pos%<max% � ș "Tracker_SetPos",pos%+1,0
C&�
C0:
C:��initialisevoices
CD� v%=1 � voices%
CN�makeselected(player%,v%)
CX�unshade(player%,v%)
Cb"ș "Tracker_RestoreChannel",v%
Cl!ș "Tracker_Volume",-1-v%,127
Cv�
C�� voices%<8 �
C�� v%=voices%+1 � 8
C��makeunselected(player%,v%)
C��shade(player%,v%)
C��
C��
C��
C�:
C���setupvoices
C�� v%=1 � voices%
C�!ș "Tracker_Volume",-1-v%,127
C�!� �isitselected(player%,v%) �
C�"ș "Tracker_RestoreChannel",v%
D�
Dș "Tracker_MuteChannel",v%
D�
D �
D*�
D4:
D>��togglevoice(v%)
DH� �(tuneloaded%) � �
DR!� �isitselected(player%,v%) �
D\�makeunselected(player%,v%)
Dfș "Tracker_MuteChannel",v%
Dp�
Dz�makeselected(player%,v%)
D�"ș "Tracker_RestoreChannel",v%
D��
D��
D�:
D���alterstereo(icon%)
D�� icon%<0 � icon%>=8*8 � �
D�� (icon% � 8)=0 � �
D�)� b%=1 � �makeselected(stereo%,icon%)
D�� icon%>=voices%*8 � �
D�v%=(icon% � 8)+1
D� steraddr%?(v%-1)=(icon% � 8)
D�<� playing% � ș "Sound_Stereo",v%,stereovals%(icon% � 8)
D��
E:
E��incpatlength
E� patlen%<64 � patlen%+=1
E$�s(settings%,5,�(patlen%))
E.�
E8:
EB��decpatlength
EL� patlen%>1 � patlen%-=1
EV�s(settings%,5,�(patlen%))
E`�
Ej:
Etݤwhichsampletype
E~%� �isitselected(settings%,6) � =3
E�%� �isitselected(settings%,7) � =4
E�=5
E�:
E�ݤpad(str$,len%)
E�=�str$+�len%," "),len%)
E�:
E�ݤpadright(str$,len%)
E�=��len%," ")+str$,len%)
E�:
E�ݤbase36(num%)
E�� num%=0 � ="-"
E�� num%<11 � =�(num%-1)
F=�(num%+54)
F
:
F��savedump(dumpname$)
F�rewritenames
F(ș "Hourglass_On"
F2A%=�(dumpname$)
F<� A%>0 � � #A%
FF� A%>0 �
FPC%=�(dumpname$)
FZ
�#C%=�#C%
Fd�
FnC%=�(dumpname$)
Fx�
F� �setfiletype(dumpname$,&FFF)
F�:
F�"� �isitselected(savedump%,4) �
F��#C%,"Tune Name  :"+mname$
F��#C%,"Author     :"+aname$
F�"�#C%,"Voices     :"+�(voices%)
F�$�#C%,"Patterns   :"+�(patterns%)
F�"�#C%,"Length     :"+�(seqlen%)
F�Q�#C%,"Size       :"+�(�((tt%!4+8+512) � 1024))+"K     ("+�(tt%!4+8)+" bytes)"
F��#C%,""
F��
F�:
F�"� �isitselected(savedump%,5) �
G� #C%,"Sequence:"
G
seqpos%=0
G � row%=1 � (seqlen%+15) � 16
G"row$=""
G,� col%=1 � 16
G6L� seqpos%>=seqlen% � add$="    " � add$=�"    "+�(seqaddr%?seqpos%+1),4)
G@row$+=add$
GJseqpos%+=1
GT�
G^
�#C%,row$
Gh�
Gr�#C%,""
G|�
G�:
G�"� �isitselected(savedump%,6) �
G�� #C%,"Instruments:"
G�� sample%=1 � 36
G�/� slen%(sample%)>0 � sample$(sample%)<>"" �
G�Esample$="Sample "+�base36(sample%)+"  "+�pad(sample$(sample%),20)
G�2sample$+="  Length:"+�pad(�(slen%(sample%)),5)
G��#C%,sample$
G��
G��
G��#C%,""
G��
G�:
H#� �isitselected(savedump%,10) �
Hsquashed%=�
H�#C%,"Patterns:"
H&�#C%,""
H0� pattern%=1 � patterns%
H:6ș "Hourglass_Percentage",100*(pattern%/patterns%)
HDaddr%=pattaddr%(pattern%)
HNS�#C%,"Pattern:"+�pad(�(pattern%),2)+"    (length:"+�(pattlen%?(pattern%-1))+")"
HX$� row%=1 � pattlen%?(pattern%-1)
Hbrow$=""
Hl� voice%=1 � voices%
Hvevent%=!addr%
H�<ș "Tracker_DecodeNote",event% � ,note%,inst%,comm%,val%
H�Gevent$=�notes$,3*note%+1,3)+" "+�base36(inst%)+" "+�base36(comm%+1)
H�event$+=�"00"+�~val%,2)
H�� voice%>1 � row$+=" "
H�row$+=event$
H�addr%+=4
H��
H�
�#C%,row$
H��
H��#C%,""
H��
H��
H�:
I#� �isitselected(savedump%,12) �
I�#C%,"Used in tune:"
I�#C%,""
I A%=6
I*
B%=tt%
I4used%=�(tc%)
I>A%=7
IHcomm%=�(tc%)
IR� row%=1 � 36
I\row$=�notes$,3*row%+1,3)
If7row$+=" "+�padright(�(used%!(row%*4-4)),5)+"      "
Ip+� slen%(row%)>0 � row$+="*" � row$+=" "
Izsamp$=sample$(row%)
I�*row$+=�base36(row%)+" "+�pad(samp$,21)
I�8row$+=�padright(�(used%!(row%*4-4+36*4)),5)+"      "
I�row$+=�base36(row%)+" "
I�Arow$+=�pad(�arrows(�stringwithlimit(comm%+row%*14-14,14)),15)
I�/row$+=�padright(�(used%!(row%*4-4+72*4)),5)
I�
�#C%,row$
I��
I��#C%,""
I��
I�:
I�ș "Hourglass_Off"
I�	� #C%
I�ș "Wimp_CreateMenu",,-1
J�
J:
Jݤarrows(str$)
J$� str$="" � =""
J.� new$,b%,ch%
J8new$=""
JB� ch%=1 � �(str$)
JLb%=�(�str$,ch%,1))
JV� b%>126 � b%+=9
J`new$+=�(b%)
Jj�
Jt	=new$
J~:
J���minimise
J�tunesize%=tt%!4+8
J�#tunesize%=(tunesize%+32*1024-1)
J�-tunesize%=32*1024*(tunesize% � (32*1024))
J�-ș "XWimp_SlotSize",tunesize%+appsize%,-1
J�)ș "XWimp_SlotSize",-1,-1 � tunesize%
J�&fm%=(tunesize%-appsize%)-(tt%!4+8)
J��
J�:
J���decdelpat
J�� delpat%>1 � delpat%-=1
J��s(atr%,2,�(delpat%))
K�
K
:
K��incdelpat
K$� delpat%<patterns% � delpat%+=1
K(�s(atr%,2,�(delpat%))
K2�
K<:
KF��decdelvoice
KP � delvoice%>1 � delvoice%-=1
KZ�s(atr%,10,�(delvoice%))
Kd�
Kn:
Kx��incdelvoice
K�&� delvoice%<voices% � delvoice%+=1
K��s(atr%,10,�(delvoice%))
K��
K�:
K���deletepattern
K�,� patterns%=1 � � 17,"Only one pattern!"
K�flag%=�
K�� pos%=0 � seqlen%-1
K�)� seqaddr%?pos%=(delpat%-1) � flag%=�
K��
K�/� flag% � � 17,"Pattern occurs in sequence"
K��makeselected(atr%,5)
K�at%=pattaddr%(delpat%)-8
Ltodelete%=at%!4+8
L%flag%=�deletebytes(at%,todelete%)
L� pos%=0 � seqlen%-1
L"/� seqaddr%?pos%>=delpat% � seqaddr%?pos%-=1
L,�
L6&� pos%=(delpat%-1) � (patterns%-2)
L@%pattlen%?(pos%)=pattlen%?(pos%+1)
LJ�
LT!pnumaddr%-=1
L^�getmusicinfo
Lh
�minimise
Lr
�tuneinfo
L|+� delpat%>patterns% � delpat%=patterns%
L��s(atr%,2,�(delpat%))
L��makeunselected(atr%,5)
L��
L�:
L���amendvoice
L�6� �isitselected(atr%,14) � �deletevoice(delvoice%)
L�:� �isitselected(atr%,15) � �insertvoice(2*delvoice%+1)
L�:� �isitselected(atr%,16) � �insertvoice(2*delvoice%-1)
L�+� delvoice%>voices% � delvoice%=voices%
L��s(atr%,10,�(delvoice%))
L��
L�:
L�ݤtotalpatlength
Mtotal%=0
M� pattern%=1 � patterns%
M!total%+=pattlen%?(pattern%-1)
M&�
M0=total%
M::
MD��deletevoice(v%)
MN0� voices%=1 � � 17,"Only one voice present!"
MX�makeselected(atr%,11)
Mbș "Hourglass_On"
Ml� pattern%=1 � patterns%
Mv:ș "Hourglass_Percentage",((pattern%-1)/patterns%)*100
M�rows%=pattlen%?(pattern%-1)
M�start%=pattaddr%(pattern%)
M�p1%=start%:p2%=p1%
M�� row%=1 � rows%
M�� voice%=1 � voices%
M�� voice%<>v% �
M�
!p1%=!p2%
M�
p1%+=4
M��
M�
p2%+=4
M��
M��
M�#!(start%-4)=!(start%-4)-rows%*4
Ntodelete%=rows%*4
N%flag%=�deletebytes(p1%,todelete%)
N�readpatterns
N �
N*!mvoxaddr%-=1
N4
�minimise
N>�makeunselected(atr%,11)
NHș "Hourglass_Off"
NR�getmusicinfo
N\
�tuneinfo
Nf�initialisevoices
Npjustloaded%=�
Nz�
N�:
N���insertvoice(v%)
N�*� voices%=8 � � 17,"Already 8 voices!"
N�grab%=�totalpatlength*4
N�?� �(�grabmem(grab%)) � � 17,"Insufficient Memory Available"
N�fm%+=grab%
N��makeselected(atr%,11)
N�ș "Hourglass_On"
N�� pattern%=1 � patterns%
N�:ș "Hourglass_Percentage",((pattern%-1)/patterns%)*100
N�rows%=pattlen%?(pattern%-1)
N�start%=pattaddr%(pattern%)
N�at%=start%+rows%*voices%*4
Otoinsert%=rows%*4
O%flag%=�insertbytes(at%,toinsert%)
O� row%=rows% � 1 � -1
O$!p1%=start%+(row%-1)*voices%*4
O.%p2%=start%+(row%-1)*(voices%+1)*4
O8� voice%=1 � voices%
OB%event%(voice%)=p1%!((voice%-1)*4)
OL�
OV	vw%=�
O`� voice%=2 � voices%*2 � 2
Oj� vw%=� � voice%=v%+1 �
Ot!p2%=0:p2%+=4
O~	vw%=�
O��
O� !p2%=event%(voice%/2):p2%+=4
O�� vw%=� � voice%=v%-1 �
O�!p2%=0:p2%+=4
O�	vw%=�
O��
O��
O��
O�%!(start%-4)=!(start%-4)+(rows%*4)
O��readpatterns
O��
O�!mvoxaddr%+=1
P
�minimise
P
�makeunselected(atr%,11)
Pș "Hourglass_Off"
P�getmusicinfo
P(
�tuneinfo
P2�initialisevoices
P<justloaded%=�
PF�
PP:
PZ��rewritenames
Pd!mname$=�icontext(tuneinfo%,7)
Pn!aname$=�icontext(tuneinfo%,8)
Px�wz(mname$,mnamaddr%,32)
P��wz(aname$,anamaddr%,32)
P��
P�:
P���tidysamples
P�ș "Hourglass_On"
P��makeselected(atr%,20)
P� flag%=�isitselected(atr%,21)
P�	A%=11
P�
B%=tt%
P�C%=flag%
P�	� tc%
P��readsamples
P��writesamplenames
Q�makeunselected(atr%,20)
Qș "Hourglass_Off"
Q�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 05 3a 0d 00 1e  13 6d 65 6e 75 73 70 61  |....:....menuspa|
00000020  63 65 25 3d 34 30 30 30  0d 00 28 2b 73 70 72 73  |ce%=4000..(+sprs|
00000030  69 7a 65 25 3d a4 66 69  6c 65 6c 65 6e 28 22 3c  |ize%=.filelen("<|
00000040  4f 62 65 79 24 44 69 72  3e 2e 53 70 72 69 74 65  |Obey$Dir>.Sprite|
00000050  73 22 29 0d 00 32 2e 63  6f 64 65 73 69 7a 65 25  |s")..2.codesize%|
00000060  3d a4 66 69 6c 65 6c 65  6e 28 22 3c 4f 62 65 79  |=.filelen("<Obey|
00000070  24 44 69 72 3e 2e 54 72  61 63 6b 43 6f 64 65 22  |$Dir>.TrackCode"|
00000080  29 0d 00 3c 05 3a 0d 00  46 14 de 20 71 25 20 32  |)..<.:..F.. q% 2|
00000090  35 36 2c 71 32 25 20 31  32 38 0d 00 50 0f de 20  |56,q2% 128..P.. |
000000a0  63 6f 64 65 25 20 31 36  30 0d 00 5a 0f de 20 74  |code% 160..Z.. t|
000000b0  65 6d 70 25 20 33 30 30  0d 00 64 10 de 20 62 6c  |emp% 300..d.. bl|
000000c0  6f 63 6b 25 20 32 35 36  0d 00 6e 10 de 20 73 70  |ock% 256..n.. sp|
000000d0  6e 61 6d 65 25 20 32 30  0d 00 78 1a de 20 6d 65  |name% 20..x.. me|
000000e0  6e 75 61 64 64 72 25 20  6d 65 6e 75 73 70 61 63  |nuaddr% menuspac|
000000f0  65 25 0d 00 82 16 de 20  63 6f 70 69 65 64 25 20  |e%..... copied% |
00000100  38 2a 36 34 2a 34 2b 38  0d 00 8c 1e de 20 6d 61  |8*64*4+8..... ma|
00000110  69 6e 73 70 72 69 74 65  73 25 20 73 70 72 73 69  |insprites% sprsi|
00000120  7a 65 25 2b 31 36 0d 00  96 13 de 20 74 63 25 20  |ze%+16..... tc% |
00000130  63 6f 64 65 73 69 7a 65  25 0d 00 a0 05 3a 0d 00  |codesize%....:..|
00000140  aa 11 74 75 6e 65 6c 6f  61 64 65 64 25 3d a3 0d  |..tuneloaded%=..|
00000150  00 b4 11 73 61 76 65 68  65 61 64 65 72 25 3d b9  |...saveheader%=.|
00000160  0d 00 be 09 74 74 25 3d  93 0d 00 c8 11 6a 75 73  |....tt%=.....jus|
00000170  74 6c 6f 61 64 65 64 25  3d b9 0d 00 d2 0f 64 65  |tloaded%=.....de|
00000180  6c 76 6f 69 63 65 25 3d  31 0d 00 dc 0d 64 65 6c  |lvoice%=1....del|
00000190  70 61 74 25 3d 31 0d 00  e6 0e 73 61 76 65 70 61  |pat%=1....savepa|
000001a0  74 25 3d 31 0d 00 f0 0e  63 6f 70 79 70 61 74 25  |t%=1....copypat%|
000001b0  3d 31 0d 00 fa 10 63 6f  70 69 65 64 6c 65 6e 25  |=1....copiedlen%|
000001c0  3d 30 0d 01 04 0e 70 61  74 6c 65 6e 25 3d 36 34  |=0....patlen%=64|
000001d0  0d 01 0e 0d 75 70 64 61  74 65 25 3d 34 0d 01 18  |....update%=4...|
000001e0  11 6d 75 73 63 6f 75 6e  74 65 72 25 3d 30 0d 01  |.muscounter%=0..|
000001f0  22 1b 6f 6c 64 70 6f 73  25 3d 2d 31 3a 6f 6c 64  |".oldpos%=-1:old|
00000200  65 76 65 6e 74 25 3d 2d  31 0d 01 2c 09 66 6d 25  |event%=-1..,.fm%|
00000210  3d 30 0d 01 36 0e 70 6c  61 79 69 6e 67 25 3d a3  |=0..6.playing%=.|
00000220  0d 01 40 05 3a 0d 01 4a  1f de 20 73 61 6d 70 61  |..@.:..J.. sampa|
00000230  64 64 72 25 28 33 36 29  2c 73 61 6d 70 6c 65 24  |ddr%(36),sample$|
00000240  28 33 36 29 0d 01 54 1d  de 20 73 6c 65 6e 25 28  |(36)..T.. slen%(|
00000250  33 36 29 2c 73 76 6f 6c  61 64 64 72 25 28 33 36  |36),svoladdr%(36|
00000260  29 0d 01 5e 13 de 20 70  61 74 74 61 64 64 72 25  |)..^.. pattaddr%|
00000270  28 36 34 29 0d 01 68 19  de 20 6f 6e 6f 66 66 25  |(64)..h.. onoff%|
00000280  28 38 29 2c 65 76 65 6e  74 25 28 38 29 0d 01 72  |(8),event%(8)..r|
00000290  14 de 20 73 74 65 72 65  6f 76 61 6c 73 25 28 37  |.. stereovals%(7|
000002a0  29 0d 01 7c 2c 73 74 65  72 65 6f 76 61 6c 73 25  |)..|,stereovals%|
000002b0  28 29 3d 30 2c 2d 31 32  36 2c 2d 37 30 2c 2d 34  |()=0,-126,-70,-4|
000002c0  30 2c 30 2c 34 30 2c 37  30 2c 31 32 37 0d 01 86  |0,0,40,70,127...|
000002d0  7c 6e 6f 74 65 73 24 3d  22 2d 2d 2d 43 2d 31 43  ||notes$="---C-1C|
000002e0  23 31 44 2d 31 44 23 31  45 2d 31 46 2d 31 46 23  |#1D-1D#1E-1F-1F#|
000002f0  31 47 2d 31 47 23 31 41  2d 31 41 23 31 42 2d 31  |1G-1G#1A-1A#1B-1|
00000300  43 2d 32 43 23 32 44 2d  32 44 23 32 45 2d 32 46  |C-2C#2D-2D#2E-2F|
00000310  2d 32 46 23 32 47 2d 32  47 23 32 41 2d 32 41 23  |-2F#2G-2G#2A-2A#|
00000320  32 42 2d 32 43 2d 33 43  23 33 44 2d 33 44 23 33  |2B-2C-3C#3D-3D#3|
00000330  45 2d 33 46 2d 33 46 23  33 47 2d 33 47 23 33 41  |E-3F-3F#3G-3G#3A|
00000340  2d 33 41 23 33 42 2d 33  22 0d 01 90 16 73 61 6d  |-3A#3B-3"....sam|
00000350  70 6c 65 24 28 29 3d c4  32 30 2c 22 20 22 29 0d  |ple$()=.20," ").|
00000360  01 9a 10 64 65 66 76 6f  69 63 65 73 25 3d 34 0d  |...defvoices%=4.|
00000370  01 a4 05 3a 0d 01 ae 0e  ee 20 85 20 f2 65 72 72  |...:..... . .err|
00000380  6f 72 0d 01 b8 05 3a 0d  01 c2 0e 24 71 25 3d 22  |or....:....$q%="|
00000390  54 41 53 4b 22 0d 01 cc  1d 70 72 65 66 69 78 24  |TASK"....prefix$|
000003a0  3d 22 3c 41 50 54 72 61  63 6b 65 72 24 44 69 72  |="<APTracker$Dir|
000003b0  3e 22 0d 01 d6 3e c8 99  20 22 57 69 6d 70 5f 49  |>"...>.. "Wimp_I|
000003c0  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
000003d0  71 25 2c 22 41 50 20 54  72 61 63 6b 65 72 22 20  |q%,"AP Tracker" |
000003e0  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |. version%,task%|
000003f0  0d 01 e0 3d f2 6c 6f 61  64 73 70 72 69 74 65 73  |...=.loadsprites|
00000400  28 70 72 65 66 69 78 24  2b 22 2e 53 70 72 69 74  |(prefix$+".Sprit|
00000410  65 73 22 2c 6d 61 69 6e  73 70 72 69 74 65 73 25  |es",mainsprites%|
00000420  2c 73 70 72 73 69 7a 65  25 2b 31 36 29 0d 01 ea  |,sprsize%+16)...|
00000430  32 f2 6c 6f 61 64 77 69  74 68 70 61 74 68 76 61  |2.loadwithpathva|
00000440  72 69 61 62 6c 65 28 70  72 65 66 69 78 24 2c 22  |riable(prefix$,"|
00000450  54 72 61 63 6b 43 6f 64  65 22 2c 74 63 25 29 0d  |TrackCode",tc%).|
00000460  01 f4 10 f2 6c 6f 61 64  77 69 6e 64 6f 77 73 0d  |....loadwindows.|
00000470  01 fe 12 f2 73 65 74 73  74 65 72 65 6f 45 53 47  |....setstereoESG|
00000480  73 0d 02 08 0d f2 61 73  73 65 6d 62 6c 65 0d 02  |s.....assemble..|
00000490  12 21 69 63 6f 6e 68 25  3d a4 69 63 6f 6e 62 61  |.!iconh%=.iconba|
000004a0  72 28 22 21 61 70 74 72  61 63 6b 65 72 22 29 0d  |r("!aptracker").|
000004b0  02 1c 28 c8 99 20 22 58  57 69 6d 70 5f 53 6c 6f  |..(.. "XWimp_Slo|
000004c0  74 53 69 7a 65 22 2c 2d  31 2c 2d 31 20 b8 20 61  |tSize",-1,-1 . a|
000004d0  70 70 73 69 7a 65 25 0d  02 26 14 41 25 3d 39 3a  |ppsize%..&.A%=9:|
000004e0  42 25 3d 61 70 70 73 69  7a 65 25 0d 02 30 09 d6  |B%=appsize%..0..|
000004f0  20 74 63 25 0d 02 3a 09  f2 6d 61 69 6e 0d 02 44  | tc%..:..main..D|
00000500  0d f2 73 68 75 74 64 6f  77 6e 0d 02 4e 05 e0 0d  |..shutdown..N...|
00000510  02 58 05 3a 0d 02 62 0e  dd f2 73 68 75 74 64 6f  |.X.:..b...shutdo|
00000520  77 6e 0d 02 6c 0c 61 62  6f 72 74 25 3d a3 0d 02  |wn..l.abort%=...|
00000530  76 13 e7 20 74 75 6e 65  6c 6f 61 64 65 64 25 20  |v.. tuneloaded% |
00000540  8c 0d 02 80 41 65 72 72  6f 72 65 78 69 74 25 3d  |....Aerrorexit%=|
00000550  a4 65 72 72 6f 72 62 6f  78 28 31 37 2c 22 44 61  |.errorbox(17,"Da|
00000560  74 61 20 77 69 6c 6c 20  62 65 20 6c 6f 73 74 20  |ta will be lost |
00000570  2d 20 61 72 65 20 79 6f  75 20 73 75 72 65 20 3f  |- are you sure ?|
00000580  22 29 0d 02 8a 1d e7 20  65 72 72 6f 72 65 78 69  |")..... errorexi|
00000590  74 25 3d 32 20 8c 20 61  62 6f 72 74 25 3d b9 0d  |t%=2 . abort%=..|
000005a0  02 94 05 cd 0d 02 9e 10  e7 20 61 62 6f 72 74 25  |......... abort%|
000005b0  20 8c 20 e1 0d 02 a8 0d  f2 73 74 6f 70 74 75 6e  | . ......stoptun|
000005c0  65 0d 02 b2 0e 24 71 25  3d 22 54 41 53 4b 22 0d  |e....$q%="TASK".|
000005d0  02 bc 21 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..!.. "Wimp_Clos|
000005e0  65 44 6f 77 6e 22 2c 74  61 73 6b 25 2c 21 71 25  |eDown",task%,!q%|
000005f0  0d 02 c6 05 e1 0d 02 d0  05 3a 0d 02 da 16 dd a4  |.........:......|
00000600  69 63 6f 6e 62 61 72 28  73 70 72 69 74 65 24 29  |iconbar(sprite$)|
00000610  0d 02 e4 14 24 73 70 6e  61 6d 65 25 3d 73 70 72  |....$spname%=spr|
00000620  69 74 65 24 0d 02 ee 0f  62 6c 6f 63 6b 25 21 30  |ite$....block%!0|
00000630  3d 2d 31 0d 02 f8 0e 62  6c 6f 63 6b 25 21 34 3d  |=-1....block%!4=|
00000640  30 0d 03 02 0e 62 6c 6f  63 6b 25 21 38 3d 30 0d  |0....block%!8=0.|
00000650  03 0c 10 62 6c 6f 63 6b  25 21 31 32 3d 38 30 0d  |...block%!12=80.|
00000660  03 16 10 62 6c 6f 63 6b  25 21 31 36 3d 37 32 0d  |...block%!16=72.|
00000670  03 20 13 62 6c 6f 63 6b  25 21 32 30 3d 26 32 31  |. .block%!20=&21|
00000680  30 32 0d 03 2a 15 62 6c  6f 63 6b 25 21 32 34 3d  |02..*.block%!24=|
00000690  73 70 6e 61 6d 65 25 0d  03 34 0f 62 6c 6f 63 6b  |spname%..4.block|
000006a0  25 21 32 38 3d 31 0d 03  3e 19 62 6c 6f 63 6b 25  |%!28=1..>.block%|
000006b0  21 33 32 3d a9 28 24 73  70 6e 61 6d 65 25 29 0d  |!32=.($spname%).|
000006c0  03 48 28 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.H(.. "Wimp_Crea|
000006d0  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
000006e0  b8 20 69 63 6f 6e 25 0d  03 52 0a 3d 69 63 6f 6e  |. icon%..R.=icon|
000006f0  25 0d 03 5c 05 3a 0d 03  66 24 dd f2 6c 6f 61 64  |%..\.:..f$..load|
00000700  73 70 72 69 74 65 73 28  66 69 6c 65 24 2c 61 64  |sprites(file$,ad|
00000710  64 72 25 2c 73 69 7a 65  25 29 0d 03 70 10 21 61  |dr%,size%)..p.!a|
00000720  64 64 72 25 3d 73 69 7a  65 25 0d 03 7a 0d 61 64  |ddr%=size%..z.ad|
00000730  64 72 25 21 34 3d 30 0d  03 84 0e 61 64 64 72 25  |dr%!4=0....addr%|
00000740  21 38 3d 31 36 0d 03 8e  0e 61 64 64 72 25 21 31  |!8=16....addr%!1|
00000750  32 3d 30 0d 03 98 27 c8  99 20 22 4f 53 5f 53 70  |2=0...'.. "OS_Sp|
00000760  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 30 2c 61  |riteOp",256+10,a|
00000770  64 64 72 25 2c 66 69 6c  65 24 0d 03 a2 05 e1 0d  |ddr%,file$......|
00000780  03 ac 05 3a 0d 03 b6 11  dd f2 6c 6f 61 64 77 69  |...:......loadwi|
00000790  6e 64 6f 77 73 0d 03 c0  0d de 20 54 25 20 35 30  |ndows..... T% 50|
000007a0  30 30 0d 03 ca 0f 6d 61  78 77 73 25 3d 35 32 30  |00....maxws%=520|
000007b0  30 0d 03 d4 13 de 20 69  6e 64 69 72 25 20 6d 61  |0..... indir% ma|
000007c0  78 77 73 25 0d 03 de 0f  69 6e 64 25 3d 69 6e 64  |xws%....ind%=ind|
000007d0  69 72 25 0d 03 e8 15 73  70 72 25 3d 6d 61 69 6e  |ir%....spr%=main|
000007e0  73 70 72 69 74 65 73 25  0d 03 f2 30 c8 99 20 22  |sprites%...0.. "|
000007f0  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000800  65 22 2c 2c 70 72 65 66  69 78 24 2b 22 2e 54 65  |e",,prefix$+".Te|
00000810  6d 70 6c 61 74 65 73 22  0d 03 fc 1a 69 6e 66 6f  |mplates"....info|
00000820  25 3d a4 67 77 28 22 69  6e 66 6f 22 2c 73 70 72  |%=.gw("info",spr|
00000830  25 29 0d 04 06 22 73 61  76 65 74 75 6e 65 25 3d  |%)..."savetune%=|
00000840  a4 67 77 28 22 73 61 76  65 74 75 6e 65 22 2c 73  |.gw("savetune",s|
00000850  70 72 25 29 0d 04 10 22  74 75 6e 65 69 6e 66 6f  |pr%)..."tuneinfo|
00000860  25 3d a4 67 77 28 22 74  75 6e 65 69 6e 66 6f 22  |%=.gw("tuneinfo"|
00000870  2c 73 70 72 25 29 0d 04  1a 20 73 61 6d 70 6c 65  |,spr%)... sample|
00000880  73 25 3d a4 67 77 28 22  73 61 6d 70 6c 65 73 22  |s%=.gw("samples"|
00000890  2c 73 70 72 25 29 0d 04  24 26 73 61 76 65 73 61  |,spr%)..$&savesa|
000008a0  6d 70 6c 65 25 3d a4 67  77 28 22 73 61 76 65 73  |mple%=.gw("saves|
000008b0  61 6d 70 6c 65 22 2c 73  70 72 25 29 0d 04 2e 22  |ample",spr%)..."|
000008c0  6e 65 77 74 72 61 63 6b  25 3d a4 67 77 28 22 6e  |newtrack%=.gw("n|
000008d0  65 77 74 72 61 63 6b 22  2c 73 70 72 25 29 0d 04  |ewtrack",spr%)..|
000008e0  38 1e 73 74 65 72 65 6f  25 3d a4 67 77 28 22 73  |8.stereo%=.gw("s|
000008f0  74 65 72 65 6f 22 2c 73  70 72 25 29 0d 04 42 28  |tereo",spr%)..B(|
00000900  73 61 76 65 70 61 74 74  65 72 6e 25 3d a4 67 77  |savepattern%=.gw|
00000910  28 22 73 61 76 65 70 61  74 74 65 72 6e 22 2c 73  |("savepattern",s|
00000920  70 72 25 29 0d 04 4c 28  73 61 76 65 70 61 74 74  |pr%)..L(savepatt|
00000930  65 72 6e 73 25 3d a4 67  77 28 22 73 61 76 65 70  |erns%=.gw("savep|
00000940  61 74 74 6e 73 22 2c 73  70 72 25 29 0d 04 56 28  |attns",spr%)..V(|
00000950  63 6f 70 79 70 61 74 74  65 72 6e 25 3d a4 67 77  |copypattern%=.gw|
00000960  28 22 63 6f 70 79 70 61  74 74 65 72 6e 22 2c 73  |("copypattern",s|
00000970  70 72 25 29 0d 04 60 22  73 61 76 65 68 65 6c 70  |pr%)..`"savehelp|
00000980  25 3d a4 67 77 28 22 73  61 76 65 68 65 6c 70 22  |%=.gw("savehelp"|
00000990  2c 73 70 72 25 29 0d 04  6a 24 73 65 74 76 6f 6c  |,spr%)..j$setvol|
000009a0  75 6d 65 25 3d a4 67 77  28 22 73 65 74 76 6f 6c  |ume%=.gw("setvol|
000009b0  75 6d 65 22 2c 73 70 72  25 29 0d 04 74 1e 70 6c  |ume",spr%)..t.pl|
000009c0  61 79 65 72 25 3d a4 67  77 28 22 70 6c 61 79 65  |ayer%=.gw("playe|
000009d0  72 22 2c 73 70 72 25 29  0d 04 7e 22 73 65 74 74  |r",spr%)..~"sett|
000009e0  69 6e 67 73 25 3d a4 67  77 28 22 73 65 74 74 69  |ings%=.gw("setti|
000009f0  6e 67 73 22 2c 73 70 72  25 29 0d 04 88 22 73 61  |ngs",spr%)..."sa|
00000a00  76 65 64 75 6d 70 25 3d  a4 67 77 28 22 73 61 76  |vedump%=.gw("sav|
00000a10  65 64 75 6d 70 22 2c 73  70 72 25 29 0d 04 92 24  |edump",spr%)...$|
00000a20  73 61 76 65 73 79 6e 74  68 25 3d a4 67 77 28 22  |savesynth%=.gw("|
00000a30  73 61 76 65 73 79 6e 74  68 22 2c 73 70 72 25 29  |savesynth",spr%)|
00000a40  0d 04 9c 1f 61 74 72 25  3d a4 67 77 28 22 61 6d  |....atr%=.gw("am|
00000a50  65 6e 64 74 72 61 63 6b  22 2c 73 70 72 25 29 0d  |endtrack",spr%).|
00000a60  04 a6 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000a70  65 54 65 6d 70 6c 61 74  65 22 0d 04 b0 2c f2 73  |eTemplate"...,.s|
00000a80  28 69 6e 66 6f 25 2c 31  31 2c a4 69 63 6f 6e 74  |(info%,11,.icont|
00000a90  65 78 74 28 69 6e 66 6f  25 2c 31 31 29 2b 22 20  |ext(info%,11)+" |
00000aa0  20 23 32 34 22 29 0d 04  ba 05 e1 0d 04 c4 05 3a  | #24").........:|
00000ab0  0d 04 ce 16 dd a4 67 77  28 77 74 69 74 6c 65 24  |......gw(wtitle$|
00000ac0  2c 73 70 72 25 29 0d 04  d8 49 c8 99 20 22 57 69  |,spr%)...I.. "Wi|
00000ad0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000ae0  2c 2c 54 25 2c 69 6e 64  25 2c 69 6e 64 69 72 25  |,,T%,ind%,indir%|
00000af0  2b 6d 61 78 77 73 25 2d  31 2c 2d 31 2c 77 74 69  |+maxws%-1,-1,wti|
00000b00  74 6c 65 24 2c 30 20 b8  20 2c 2c 69 6e 64 25 0d  |tle$,0 . ,,ind%.|
00000b10  04 e2 0e 54 25 21 36 34  3d 73 70 72 25 0d 04 ec  |...T%!64=spr%...|
00000b20  28 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |(.. "Wimp_Create|
00000b30  57 69 6e 64 6f 77 22 2c  2c 54 25 20 b8 20 68 61  |Window",,T% . ha|
00000b40  6e 64 6c 65 25 0d 04 f6  0c 3d 68 61 6e 64 6c 65  |ndle%....=handle|
00000b50  25 0d 05 00 05 3a 0d 05  0a 0a dd f2 6d 61 69 6e  |%....:......main|
00000b60  0d 05 14 0b 71 75 69 74  25 3d a3 0d 05 1e 05 f5  |....quit%=......|
00000b70  0d 05 28 21 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |..(!.. "Wimp_Pol|
00000b80  6c 22 2c 30 2c 71 25 20  b8 20 72 65 61 73 6f 6e  |l",0,q% . reason|
00000b90  25 0d 05 32 10 c8 8e 20  72 65 61 73 6f 6e 25 20  |%..2... reason% |
00000ba0  ca 0d 05 3c 15 c9 20 30  3a f2 73 68 6f 77 6d 75  |...<.. 0:.showmu|
00000bb0  73 69 63 70 6f 73 0d 05  46 14 c9 20 32 3a f2 6f  |sicpos..F.. 2:.o|
00000bc0  77 28 71 25 21 30 2c 71  25 29 0d 05 50 1a c9 20  |w(q%!0,q%)..P.. |
00000bd0  33 3a f2 63 6c 6f 73 65  77 69 6e 64 6f 77 28 71  |3:.closewindow(q|
00000be0  25 21 30 29 0d 05 5a 2f  c9 20 36 3a f2 63 68 65  |%!0)..Z/. 6:.che|
00000bf0  63 6b 6d 6f 75 73 65 28  71 25 21 30 2c 71 25 21  |ckmouse(q%!0,q%!|
00000c00  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000c10  31 36 29 0d 05 64 11 c9  20 37 3a f2 64 72 61 67  |16)..d.. 7:.drag|
00000c20  66 69 6c 65 0d 05 6e 22  c9 20 38 3a c8 99 20 22  |file..n". 8:.. "|
00000c30  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00000c40  2c 71 25 21 32 34 0d 05  78 17 c9 20 39 3a f2 6d  |,q%!24..x.. 9:.m|
00000c50  65 6e 75 73 65 6c 65 63  74 28 71 25 29 0d 05 82  |enuselect(q%)...|
00000c60  14 c9 20 31 37 2c 31 38  3a f2 6d 65 73 73 61 67  |.. 17,18:.messag|
00000c70  65 0d 05 8c 05 cb 0d 05  96 0b fd 20 71 75 69 74  |e.......... quit|
00000c80  25 0d 05 a0 05 e1 0d 05  aa 05 3a 0d 05 b4 29 dd  |%.........:...).|
00000c90  f2 63 68 65 63 6b 6d 6f  75 73 65 28 6d 78 25 2c  |.checkmouse(mx%,|
00000ca0  6d 79 25 2c 62 25 2c 77  68 65 72 65 25 2c 69 63  |my%,b%,where%,ic|
00000cb0  6f 6e 25 29 0d 05 be 20  e7 20 62 25 3d 31 20 8c  |on%)... . b%=1 .|
00000cc0  20 6d 72 65 64 6f 25 3d  b9 20 8b 20 6d 72 65 64  | mredo%=. . mred|
00000cd0  6f 25 3d a3 0d 05 c8 0f  c8 8e 20 77 68 65 72 65  |o%=....... where|
00000ce0  25 20 ca 0d 05 d2 09 c9  20 2d 32 3a 0d 05 dc 0b  |% ...... -2:....|
00000cf0  c8 8e 20 62 25 20 ca 0d  05 e6 14 c9 20 31 3a f2  |.. b% ...... 1:.|
00000d00  65 64 69 74 74 72 61 63  6b 65 72 0d 05 f0 08 c9  |edittracker.....|
00000d10  20 34 3a 0d 05 fa 13 e7  20 74 75 6e 65 6c 6f 61  | 4:..... tuneloa|
00000d20  64 65 64 25 20 8c 0d 06  04 10 f2 70 61 6e 65 6c  |ded% ......panel|
00000d30  73 74 61 74 75 73 0d 06  0e 12 f2 6f 77 28 70 6c  |status.....ow(pl|
00000d40  61 79 65 72 25 2c 30 29  0d 06 18 05 cd 0d 06 22  |ayer%,0)......."|
00000d50  08 c9 20 32 3a 0d 06 2c  0d f2 6d 61 69 6e 6d 65  |.. 2:..,..mainme|
00000d60  6e 75 0d 06 36 27 f2 6f  70 65 6e 6d 65 6e 75 28  |nu..6'.openmenu(|
00000d70  31 30 31 2c 6d 61 69 6e  6d 65 6e 75 25 2c 6d 78  |101,mainmenu%,mx|
00000d80  25 2d 38 36 2c 33 37 36  29 0d 06 40 05 cb 0d 06  |%-86,376)..@....|
00000d90  4a 10 c9 20 73 61 76 65  74 75 6e 65 25 3a 0d 06  |J.. savetune%:..|
00000da0  54 22 e7 20 69 63 6f 6e  25 3d 30 20 8c 20 f2 69  |T". icon%=0 . .i|
00000db0  64 28 73 61 76 65 74 75  6e 65 25 2c 30 2c 31 29  |d(savetune%,0,1)|
00000dc0  0d 06 5e 1a e7 20 69 63  6f 6e 25 3d 34 20 8c 20  |..^.. icon%=4 . |
00000dd0  f2 71 75 69 63 6b 73 61  76 65 0d 06 68 32 c9 20  |.quicksave..h2. |
00000de0  73 61 76 65 73 61 6d 70  6c 65 25 3a e7 20 69 63  |savesample%:. ic|
00000df0  6f 6e 25 3d 30 20 8c 20  f2 69 64 28 73 61 76 65  |on%=0 . .id(save|
00000e00  73 61 6d 70 6c 65 25 2c  30 2c 32 29 0d 06 72 2e  |sample%,0,2)..r.|
00000e10  c9 20 73 61 76 65 68 65  6c 70 25 3a e7 20 69 63  |. savehelp%:. ic|
00000e20  6f 6e 25 3d 30 20 8c 20  f2 69 64 28 73 61 76 65  |on%=0 . .id(save|
00000e30  68 65 6c 70 25 2c 30 2c  34 29 0d 06 7c 36 c9 20  |help%,0,4)..|6. |
00000e40  73 61 76 65 70 61 74 74  65 72 6e 73 25 3a e7 20  |savepatterns%:. |
00000e50  69 63 6f 6e 25 3d 30 20  8c 20 f2 69 64 28 73 61  |icon%=0 . .id(sa|
00000e60  76 65 70 61 74 74 65 72  6e 73 25 2c 30 2c 35 29  |vepatterns%,0,5)|
00000e70  0d 06 86 30 c9 20 73 61  76 65 73 79 6e 74 68 25  |...0. savesynth%|
00000e80  3a e7 20 69 63 6f 6e 25  3d 30 20 8c 20 f2 69 64  |:. icon%=0 . .id|
00000e90  28 73 61 76 65 73 79 6e  74 68 25 2c 30 2c 37 29  |(savesynth%,0,7)|
00000ea0  0d 06 90 13 c9 20 73 61  76 65 70 61 74 74 65 72  |..... savepatter|
00000eb0  6e 25 3a 0d 06 9a 0e c8  8e 20 69 63 6f 6e 25 20  |n%:...... icon% |
00000ec0  ca 0d 06 a4 1d c9 20 30  3a f2 69 64 28 73 61 76  |...... 0:.id(sav|
00000ed0  65 70 61 74 74 65 72 6e  25 2c 30 2c 33 29 0d 06  |epattern%,0,3)..|
00000ee0  ae 13 c9 20 31 3a f2 69  6e 63 73 61 76 65 70 61  |... 1:.incsavepa|
00000ef0  74 0d 06 b8 13 c9 20 34  3a f2 64 65 63 73 61 76  |t..... 4:.decsav|
00000f00  65 70 61 74 0d 06 c2 15  c9 20 37 3a f2 73 74 6f  |epat..... 7:.sto|
00000f10  72 65 70 61 74 74 65 72  6e 0d 06 cc 05 cb 0d 06  |repattern.......|
00000f20  d6 3a c9 20 74 75 6e 65  69 6e 66 6f 25 3a e7 20  |.:. tuneinfo%:. |
00000f30  69 63 6f 6e 25 3d 36 20  8c 20 f2 6e 65 77 70 61  |icon%=6 . .newpa|
00000f40  74 74 65 72 6e 20 8b 20  f2 6f 77 28 74 75 6e 65  |ttern . .ow(tune|
00000f50  69 6e 66 6f 25 2c 30 29  0d 06 e0 0f c9 20 73 61  |info%,0)..... sa|
00000f60  6d 70 6c 65 73 25 3a 0d  06 ea 20 e7 20 69 63 6f  |mples%:... . ico|
00000f70  6e 25 3d 2d 31 20 8c 20  f2 6f 77 28 73 61 6d 70  |n%=-1 . .ow(samp|
00000f80  6c 65 73 25 2c 30 29 0d  06 f4 0c e7 20 62 25 3d  |les%,0)..... b%=|
00000f90  32 20 8c 0d 06 fe 1f f2  6d 61 6b 65 73 61 6d 70  |2 ......makesamp|
00000fa0  6c 65 6d 65 6e 75 28 69  63 6f 6e 25 20 83 20 33  |lemenu(icon% . 3|
00000fb0  36 29 0d 07 08 46 e7 20  73 6c 65 6e 25 28 28 69  |6)...F. slen%((i|
00000fc0  63 6f 6e 25 20 83 20 33  36 29 2b 31 29 3e 30 20  |con% . 36)+1)>0 |
00000fd0  8c 20 f2 6f 70 65 6e 6d  65 6e 75 28 31 30 36 2c  |. .openmenu(106,|
00000fe0  6d 61 69 6e 6d 65 6e 75  25 2c 6d 78 25 2d 38 36  |mainmenu%,mx%-86|
00000ff0  2c 6d 79 25 2b 32 34 29  0d 07 12 05 cd 0d 07 1c  |,my%+24)........|
00001000  10 c9 20 6e 65 77 74 72  61 63 6b 25 3a 0d 07 26  |.. newtrack%:..&|
00001010  0e c8 8e 20 69 63 6f 6e  25 20 ca 0d 07 30 1f c9  |... icon% ...0..|
00001020  20 32 3a f2 63 72 65 61  74 65 74 75 6e 65 28 64  | 2:.createtune(d|
00001030  65 66 76 6f 69 63 65 73  25 29 0d 07 3a 15 c9 20  |efvoices%)..:.. |
00001040  33 3a f2 69 6e 63 64 65  66 76 6f 69 63 65 73 0d  |3:.incdefvoices.|
00001050  07 44 15 c9 20 34 3a f2  64 65 63 64 65 66 76 6f  |.D.. 4:.decdefvo|
00001060  69 63 65 73 0d 07 4e 05  cb 0d 07 58 13 c9 20 63  |ices..N....X.. c|
00001070  6f 70 79 70 61 74 74 65  72 6e 25 3a 0d 07 62 0e  |opypattern%:..b.|
00001080  c8 8e 20 69 63 6f 6e 25  20 ca 0d 07 6c 13 c9 20  |.. icon% ...l.. |
00001090  33 3a f2 69 6e 63 63 6f  70 79 70 61 74 0d 07 76  |3:.inccopypat..v|
000010a0  13 c9 20 34 3a f2 64 65  63 63 6f 70 79 70 61 74  |.. 4:.deccopypat|
000010b0  0d 07 80 14 c9 20 32 3a  f2 63 6f 70 79 70 61 74  |..... 2:.copypat|
000010c0  74 65 72 6e 0d 07 8a 05  cb 0d 07 94 11 c9 20 73  |tern.......... s|
000010d0  65 74 76 6f 6c 75 6d 65  25 3a 0d 07 9e 0e c8 8e  |etvolume%:......|
000010e0  20 69 63 6f 6e 25 20 ca  0d 07 a8 1d c9 20 32 3a  | icon% ...... 2:|
000010f0  f2 69 6e 63 76 6f 6c 75  6d 65 28 73 61 6d 70 6c  |.incvolume(sampl|
00001100  65 6e 6f 25 29 0d 07 b2  1d c9 20 33 3a f2 64 65  |eno%)..... 3:.de|
00001110  63 76 6f 6c 75 6d 65 28  73 61 6d 70 6c 65 6e 6f  |cvolume(sampleno|
00001120  25 29 0d 07 bc 05 cb 0d  07 c6 0e c9 20 70 6c 61  |%).......... pla|
00001130  79 65 72 25 3a 0d 07 d0  3a e7 20 69 63 6f 6e 25  |yer%:...:. icon%|
00001140  3e 30 20 80 20 69 63 6f  6e 25 3c 28 21 6d 76 6f  |>0 . icon%<(!mvo|
00001150  78 61 64 64 72 25 2b 31  29 20 8c 20 f2 74 6f 67  |xaddr%+1) . .tog|
00001160  67 6c 65 76 6f 69 63 65  28 69 63 6f 6e 25 29 0d  |glevoice(icon%).|
00001170  07 da 0e c8 8e 20 69 63  6f 6e 25 20 ca 0d 07 e4  |..... icon% ....|
00001180  12 c9 20 31 36 3a f2 70  6c 61 79 74 75 6e 65 0d  |.. 16:.playtune.|
00001190  07 ee 12 c9 20 31 37 3a  f2 73 74 6f 70 74 75 6e  |.... 17:.stoptun|
000011a0  65 0d 07 f8 10 c9 20 32  31 3a f2 72 65 77 69 6e  |e..... 21:.rewin|
000011b0  64 0d 08 02 15 c9 20 32  32 3a f2 66 61 73 74 66  |d..... 22:.fastf|
000011c0  6f 72 77 61 72 64 0d 08  0c 05 cb 0d 08 16 10 c9  |orward..........|
000011d0  20 73 65 74 74 69 6e 67  73 25 3a 0d 08 20 0e c8  | settings%:.. ..|
000011e0  8e 20 69 63 6f 6e 25 20  ca 0d 08 2a 15 c9 20 33  |. icon% ...*.. 3|
000011f0  3a f2 69 6e 63 70 61 74  6c 65 6e 67 74 68 0d 08  |:.incpatlength..|
00001200  34 15 c9 20 34 3a f2 64  65 63 70 61 74 6c 65 6e  |4.. 4:.decpatlen|
00001210  67 74 68 0d 08 3e 2a c9  20 36 2c 37 2c 38 3a f2  |gth..>*. 6,7,8:.|
00001220  6d 61 6b 65 73 65 6c 65  63 74 65 64 28 73 65 74  |makeselected(set|
00001230  74 69 6e 67 73 25 2c 69  63 6f 6e 25 29 0d 08 48  |tings%,icon%)..H|
00001240  05 cb 0d 08 52 2e c9 20  73 61 76 65 64 75 6d 70  |....R.. savedump|
00001250  25 3a e7 20 69 63 6f 6e  25 3d 30 20 8c 20 f2 69  |%:. icon%=0 . .i|
00001260  64 28 73 61 76 65 64 75  6d 70 25 2c 30 2c 36 29  |d(savedump%,0,6)|
00001270  0d 08 5c 0b c9 20 61 74  72 25 3a 0d 08 66 0e c8  |..\.. atr%:..f..|
00001280  8e 20 69 63 6f 6e 25 20  ca 0d 08 70 12 c9 20 33  |. icon% ...p.. 3|
00001290  3a f2 69 6e 63 64 65 6c  70 61 74 0d 08 7a 12 c9  |:.incdelpat..z..|
000012a0  20 34 3a f2 64 65 63 64  65 6c 70 61 74 0d 08 84  | 4:.decdelpat...|
000012b0  16 c9 20 35 3a f2 64 65  6c 65 74 65 70 61 74 74  |.. 5:.deletepatt|
000012c0  65 72 6e 0d 08 8e 14 c9  20 38 3a f2 69 6e 63 64  |ern..... 8:.incd|
000012d0  65 6c 76 6f 69 63 65 0d  08 98 14 c9 20 39 3a f2  |elvoice..... 9:.|
000012e0  64 65 63 64 65 6c 76 6f  69 63 65 0d 08 a2 14 c9  |decdelvoice.....|
000012f0  20 31 31 3a f2 61 6d 65  6e 64 76 6f 69 63 65 0d  | 11:.amendvoice.|
00001300  08 ac 28 c9 20 31 34 2c  31 35 2c 31 36 3a f2 6d  |..(. 14,15,16:.m|
00001310  61 6b 65 73 65 6c 65 63  74 65 64 28 61 74 72 25  |akeselected(atr%|
00001320  2c 69 63 6f 6e 25 29 0d  08 b6 15 c9 20 32 30 3a  |,icon%)..... 20:|
00001330  f2 74 69 64 79 73 61 6d  70 6c 65 73 0d 08 c0 05  |.tidysamples....|
00001340  cb 0d 08 ca 21 c9 20 73  74 65 72 65 6f 25 3a f2  |....!. stereo%:.|
00001350  61 6c 74 65 72 73 74 65  72 65 6f 28 69 63 6f 6e  |alterstereo(icon|
00001360  25 29 0d 08 d4 05 cb 0d  08 de 05 e1 0d 08 e8 05  |%)..............|
00001370  3a 0d 08 f2 16 dd f2 6f  77 28 68 61 6e 64 6c 65  |:......ow(handle|
00001380  25 2c 70 6f 73 25 29 0d  08 fc 08 ea 20 62 25 0d  |%,pos%)..... b%.|
00001390  09 06 0e e7 20 70 6f 73  25 3d 30 20 8c 0d 09 10  |.... pos%=0 ....|
000013a0  1e 62 25 3d 62 6c 6f 63  6b 25 3a 62 6c 6f 63 6b  |.b%=block%:block|
000013b0  25 21 30 3d 68 61 6e 64  6c 65 25 0d 09 1a 20 c8  |%!0=handle%... .|
000013c0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
000013d0  77 53 74 61 74 65 22 2c  2c 62 25 0d 09 24 05 cc  |wState",,b%..$..|
000013e0  0d 09 2e 0b 62 25 3d 70  6f 73 25 0d 09 38 05 cd  |....b%=pos%..8..|
000013f0  0d 09 42 10 62 6c 6f 63  6b 25 21 32 38 3d 2d 31  |..B.block%!28=-1|
00001400  0d 09 4c 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..L... "Wimp_Ope|
00001410  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 09 56 05  |nWindow",,b%..V.|
00001420  e1 0d 09 60 05 3a 0d 09  6a 1a dd f2 63 6c 6f 73  |...`.:..j...clos|
00001430  65 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 29  |ewindow(handle%)|
00001440  0d 09 74 19 e7 20 68 61  6e 64 6c 65 25 3d 74 75  |..t.. handle%=tu|
00001450  6e 65 69 6e 66 6f 25 20  8c 0d 09 7e 1f e7 20 74  |neinfo% ...~.. t|
00001460  75 6e 65 6c 6f 61 64 65  64 25 20 f2 72 65 77 72  |uneloaded% .rewr|
00001470  69 74 65 6e 61 6d 65 73  0d 09 88 05 cd 0d 09 92  |itenames........|
00001480  14 62 6c 6f 63 6b 25 21  30 3d 68 61 6e 64 6c 65  |.block%!0=handle|
00001490  25 0d 09 9c 21 c8 99 20  22 57 69 6d 70 5f 43 6c  |%...!.. "Wimp_Cl|
000014a0  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
000014b0  6b 25 0d 09 a6 05 e1 0d  09 b0 05 3a 0d 09 ba 1e  |k%.........:....|
000014c0  dd f2 69 64 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |..id(window%,ico|
000014d0  6e 25 2c 6d 79 72 65 66  25 29 0d 09 c4 17 73 61  |n%,myref%)....sa|
000014e0  76 65 68 61 6e 64 6c 65  25 3d 77 69 6e 64 6f 77  |vehandle%=window|
000014f0  25 0d 09 ce 15 67 6c 6f  62 61 6c 72 65 66 25 3d  |%....globalref%=|
00001500  6d 79 72 65 66 25 0d 09  d8 0f 21 71 25 3d 77 69  |myref%....!q%=wi|
00001510  6e 64 6f 77 25 0d 09 e2  20 c8 99 20 22 57 69 6d  |ndow%... .. "Wim|
00001520  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001530  22 2c 2c 71 25 0d 09 ec  11 7a 25 3d 71 25 21 31  |",,q%....z%=q%!1|
00001540  36 2d 71 25 21 38 0d 09  f6 1e 78 25 3d 71 25 21  |6-q%!8....x%=q%!|
00001550  34 3a 79 25 3d 71 25 21  38 3a 71 25 21 34 3d 69  |4:y%=q%!8:q%!4=i|
00001560  63 6f 6e 25 0d 0a 00 1e  c8 99 20 22 57 69 6d 70  |con%...... "Wimp|
00001570  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001580  71 25 0d 0a 0a 19 71 25  21 38 2b 3d 78 25 3a 71  |q%....q%!8+=x%:q|
00001590  25 21 31 32 2b 3d 79 25  2b 7a 25 0d 0a 14 1a 71  |%!12+=y%+z%....q|
000015a0  25 21 31 36 2b 3d 78 25  3a 71 25 21 32 30 2b 3d  |%!16+=x%:q%!20+=|
000015b0  79 25 2b 7a 25 0d 0a 1e  13 71 25 21 32 34 3d 30  |y%+z%....q%!24=0|
000015c0  3a 71 25 21 32 38 3d 30  0d 0a 28 37 71 25 21 33  |:q%!28=0..(7q%!3|
000015d0  32 3d 28 a4 6d 76 28 31  31 29 2b 31 29 3c 3c a4  |2=(.mv(11)+1)<<.|
000015e0  6d 76 28 34 29 3a 71 25  21 33 36 3d 28 a4 6d 76  |mv(4):q%!36=(.mv|
000015f0  28 31 32 29 2b 31 29 3c  3c a4 6d 76 28 35 29 0d  |(12)+1)<<.mv(5).|
00001600  0a 32 10 21 71 25 3d 30  3a 71 25 21 34 3d 35 0d  |.2.!q%=0:q%!4=5.|
00001610  0a 3c 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |.<... "Wimp_Drag|
00001620  42 6f 78 22 2c 2c 71 25  0d 0a 46 05 e1 0d 0a 50  |Box",,q%..F....P|
00001630  05 3a 0d 0a 5a 0d dd a4  6d 76 28 6d 76 25 29 0d  |.:..Z...mv(mv%).|
00001640  0a 64 2b c8 99 20 22 4f  53 5f 52 65 61 64 4d 6f  |.d+.. "OS_ReadMo|
00001650  64 65 56 61 72 69 61 62  6c 65 22 2c 2d 31 2c 6d  |deVariable",-1,m|
00001660  76 25 20 b8 20 2c 2c 6d  76 25 0d 0a 6e 08 3d 6d  |v% . ,,mv%..n.=m|
00001670  76 25 0d 0a 78 05 3a 0d  0a 82 0d dd f2 6d 65 73  |v%..x.:......mes|
00001680  73 61 67 65 0d 0a 8c 11  79 6f 75 72 72 65 66 25  |sage....yourref%|
00001690  3d 71 25 21 38 0d 0a 96  0e c8 8e 20 71 25 21 31  |=q%!8...... q%!1|
000016a0  36 20 ca 0d 0a a0 0f c9  20 30 3a 71 75 69 74 25  |6 ...... 0:quit%|
000016b0  3d b9 0d 0a aa 11 c9 20  32 3a f2 73 61 76 65 66  |=...... 2:.savef|
000016c0  69 6c 65 0d 0a b4 11 c9  20 33 3a f2 6c 6f 61 64  |ile..... 3:.load|
000016d0  66 69 6c 65 0d 0a be 05  cb 0d 0a c8 05 e1 0d 0a  |file............|
000016e0  d2 05 3a 0d 0a dc 0e dd  f2 64 72 61 67 66 69 6c  |..:......dragfil|
000016f0  65 0d 0a e6 09 21 71 25  3d 30 0d 0a f0 20 c8 99  |e....!q%=0... ..|
00001700  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00001710  72 49 6e 66 6f 22 2c 2c  71 25 0d 0a fa 0b 71 25  |rInfo",,q%....q%|
00001720  21 33 32 3d 34 0d 0b 04  0d 71 25 21 32 38 3d 21  |!32=4....q%!28=!|
00001730  71 25 0d 0b 0e 0f 71 25  21 32 34 3d 71 25 21 31  |q%....q%!24=q%!1|
00001740  36 0d 0b 18 0f 71 25 21  32 30 3d 71 25 21 31 32  |6....q%!20=q%!12|
00001750  0d 0b 22 0b 71 25 21 31  36 3d 31 0d 0b 2c 0b 71  |..".q%!16=1..,.q|
00001760  25 21 31 32 3d 30 0d 0b  36 0d 71 25 21 33 36 3d  |%!12=0..6.q%!36=|
00001770  31 30 30 0d 0b 40 0e 71  25 21 34 30 3d 26 43 30  |100..@.q%!40=&C0|
00001780  30 0d 0b 4a 11 24 28 71  25 2b 34 34 29 3d bd 28  |0..J.$(q%+44)=.(|
00001790  30 29 0d 0b 54 0a 21 71  25 3d 36 30 0d 0b 5e 2b  |0)..T.!q%=60..^+|
000017a0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000017b0  73 61 67 65 22 2c 31 38  2c 71 25 2c 71 25 21 32  |sage",18,q%,q%!2|
000017c0  30 2c 71 25 21 32 34 0d  0b 68 05 e1 0d 0b 72 05  |0,q%!24..h....r.|
000017d0  3a 0d 0b 7c 1d dd a4 73  74 72 69 6e 67 66 72 6f  |:..|...stringfro|
000017e0  6d 6d 65 6d 6f 72 79 28  61 64 64 72 25 29 0d 0b  |mmemory(addr%)..|
000017f0  86 16 ea 20 62 79 74 65  25 2c 74 65 6d 70 24 2c  |... byte%,temp$,|
00001800  6f 75 74 24 0d 0b 90 0b  62 79 74 65 25 3d 30 0d  |out$....byte%=0.|
00001810  0b 9a 0c 74 65 6d 70 24  3d 22 22 0d 0b a4 0b 6f  |...temp$=""....o|
00001820  75 74 24 3d 22 22 0d 0b  ae 05 f5 0d 0b b8 18 74  |ut$="".........t|
00001830  65 6d 70 24 3d bd 28 61  64 64 72 25 3f 62 79 74  |emp$=.(addr%?byt|
00001840  65 25 29 0d 0b c2 23 e7  20 97 28 74 65 6d 70 24  |e%)...#. .(temp$|
00001850  29 3e 33 31 20 8c 20 6f  75 74 24 3d 6f 75 74 24  |)>31 . out$=out$|
00001860  2b 74 65 6d 70 24 0d 0b  cc 0c 62 79 74 65 25 2b  |+temp$....byte%+|
00001870  3d 31 0d 0b d6 10 fd 20  97 28 74 65 6d 70 24 29  |=1..... .(temp$)|
00001880  3d 30 0d 0b e0 09 3d 6f  75 74 24 0d 0b ea 05 3a  |=0....=out$....:|
00001890  0d 0b f4 24 dd a4 73 74  72 69 6e 67 77 69 74 68  |...$..stringwith|
000018a0  6c 69 6d 69 74 28 61 64  64 72 25 2c 6d 61 78 6c  |limit(addr%,maxl|
000018b0  65 6e 25 29 0d 0b fe 16  ea 20 62 79 74 65 25 2c  |en%)..... byte%,|
000018c0  74 65 6d 70 24 2c 6f 75  74 24 0d 0c 08 0b 62 79  |temp$,out$....by|
000018d0  74 65 25 3d 30 0d 0c 12  0c 74 65 6d 70 24 3d 22  |te%=0....temp$="|
000018e0  22 0d 0c 1c 0b 6f 75 74  24 3d 22 22 0d 0c 26 05  |"....out$=""..&.|
000018f0  f5 0d 0c 30 18 74 65 6d  70 24 3d bd 28 61 64 64  |...0.temp$=.(add|
00001900  72 25 3f 62 79 74 65 25  29 0d 0c 3a 23 e7 20 97  |r%?byte%)..:#. .|
00001910  28 74 65 6d 70 24 29 3e  33 31 20 8c 20 6f 75 74  |(temp$)>31 . out|
00001920  24 3d 6f 75 74 24 2b 74  65 6d 70 24 0d 0c 44 0c  |$=out$+temp$..D.|
00001930  62 79 74 65 25 2b 3d 31  0d 0c 4e 21 fd 20 97 28  |byte%+=1..N!. .(|
00001940  74 65 6d 70 24 29 3d 30  20 84 20 62 79 74 65 25  |temp$)=0 . byte%|
00001950  3e 3d 6d 61 78 6c 65 6e  25 0d 0c 58 09 3d 6f 75  |>=maxlen%..X.=ou|
00001960  74 24 0d 0c 62 05 3a 0d  0c 6c 1f dd a4 69 63 6f  |t$..b.:..l...ico|
00001970  6e 74 65 78 74 28 77 68  25 2c 69 63 6f 6e 6e 75  |ntext(wh%,iconnu|
00001980  6d 62 65 72 25 29 0d 0c  76 0e 21 74 65 6d 70 25  |mber%)..v.!temp%|
00001990  3d 77 68 25 0d 0c 80 17  74 65 6d 70 25 21 34 3d  |=wh%....temp%!4=|
000019a0  69 63 6f 6e 6e 75 6d 62  65 72 25 0d 0c 8a 21 c8  |iconnumber%...!.|
000019b0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000019c0  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 0c 94 0a  |tate",,temp%....|
000019d0  69 74 24 3d 22 22 0d 0c  9e 0b 62 79 74 65 25 3d  |it$=""....byte%=|
000019e0  30 0d 0c a8 1d c8 95 20  3f 28 28 74 65 6d 70 25  |0...... ?((temp%|
000019f0  21 32 38 29 2b 62 79 74  65 25 29 3e 33 31 0d 0c  |!28)+byte%)>31..|
00001a00  b2 22 69 74 24 3d 69 74  24 2b bd 28 3f 28 28 74  |."it$=it$+.(?((t|
00001a10  65 6d 70 25 21 32 38 29  2b 62 79 74 65 25 29 29  |emp%!28)+byte%))|
00001a20  0d 0c bc 0c 62 79 74 65  25 2b 3d 31 0d 0c c6 05  |....byte%+=1....|
00001a30  ce 0d 0c d0 08 3d 69 74  24 0d 0c da 05 3a 0d 0c  |.....=it$....:..|
00001a40  e4 0b dd f2 65 72 72 6f  72 0d 0c ee 16 c8 99 20  |....error...... |
00001a50  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00001a60  0c f8 08 d9 20 23 30 0d  0d 02 19 c8 99 20 22 57  |.... #0...... "W|
00001a70  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 2d 31  |imp_DragBox",,-1|
00001a80  0d 0d 0c 1c c8 99 20 22  57 69 6d 70 5f 43 72 65  |...... "Wimp_Cre|
00001a90  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 0d 16 0d  |ateMenu",,-1....|
00001aa0  21 62 6c 6f 63 6b 25 3d  9f 0d 0d 20 17 24 28 62  |!block%=... .$(b|
00001ab0  6c 6f 63 6b 25 2b 34 29  3d f6 24 2b bd 28 30 29  |lock%+4)=.$+.(0)|
00001ac0  0d 0d 2a 2f c8 99 20 22  57 69 6d 70 5f 52 65 70  |..*/.. "Wimp_Rep|
00001ad0  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
00001ae0  2c 31 2c 22 41 50 20 54  72 61 63 6b 65 72 22 0d  |,1,"AP Tracker".|
00001af0  0d 34 09 f2 6d 61 69 6e  0d 0d 3e 05 e1 0d 0d 48  |.4..main..>....H|
00001b00  05 3a 0d 0d 52 1e dd f2  73 28 77 68 25 2c 69 63  |.:..R...s(wh%,ic|
00001b10  6f 6e 6e 75 6d 62 65 72  25 2c 74 65 78 74 24 29  |onnumber%,text$)|
00001b20  0d 0d 5c 0e 21 74 65 6d  70 25 3d 77 68 25 0d 0d  |..\.!temp%=wh%..|
00001b30  66 17 74 65 6d 70 25 21  34 3d 69 63 6f 6e 6e 75  |f.temp%!4=iconnu|
00001b40  6d 62 65 72 25 0d 0d 70  21 c8 99 20 22 57 69 6d  |mber%..p!.. "Wim|
00001b50  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001b60  2c 74 65 6d 70 25 0d 0d  7a 20 24 74 65 6d 70 25  |,temp%..z $temp%|
00001b70  21 32 38 3d c0 74 65 78  74 24 2c 74 65 6d 70 25  |!28=.text$,temp%|
00001b80  21 33 36 2d 31 29 0d 0d  84 0d 74 65 6d 70 25 21  |!36-1)....temp%!|
00001b90  38 3d 30 0d 0d 8e 0e 74  65 6d 70 25 21 31 32 3d  |8=0....temp%!12=|
00001ba0  30 0d 0d 98 21 c8 99 20  22 57 69 6d 70 5f 53 65  |0...!.. "Wimp_Se|
00001bb0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 74 65 6d  |tIconState",,tem|
00001bc0  70 25 0d 0d a2 05 e1 0d  0d ac 05 3a 0d 0d b6 1b  |p%.........:....|
00001bd0  dd f2 6d 61 6b 65 73 61  6d 70 6c 65 6d 65 6e 75  |..makesamplemenu|
00001be0  28 73 61 6d 70 25 29 0d  0d c0 15 73 61 6d 70 6c  |(samp%)....sampl|
00001bf0  65 6e 6f 25 3d 73 61 6d  70 25 2b 31 0d 0d ca 10  |eno%=samp%+1....|
00001c00  6d 25 3d 6d 65 6e 75 61  64 64 72 25 0d 0d d4 22  |m%=menuaddr%..."|
00001c10  6d 65 6e 65 6e 64 25 3d  6d 65 6e 75 61 64 64 72  |menend%=menuaddr|
00001c20  25 2b 6d 65 6e 75 73 70  61 63 65 25 2d 31 0d 0d  |%+menuspace%-1..|
00001c30  de 0b ea 20 69 24 2c 6d  24 0d 0d e8 11 69 6e 73  |... i$,m$....ins|
00001c40  74 25 3d 73 61 6d 70 25  2b 31 0d 0d f2 18 e7 20  |t%=samp%+1..... |
00001c50  73 6c 65 6e 25 28 69 6e  73 74 25 29 3d 30 20 8c  |slen%(inst%)=0 .|
00001c60  20 e1 0d 0d fc 25 6d 74  69 74 6c 65 24 3d a4 6c  | ....%mtitle$=.l|
00001c70  65 61 66 6e 61 6d 65 28  73 61 6d 70 6c 65 24 28  |eafname(sample$(|
00001c80  69 6e 73 74 25 29 29 0d  0e 06 23 e7 20 6d 74 69  |inst%))...#. mti|
00001c90  74 6c 65 24 3d 22 22 20  8c 20 6d 74 69 74 6c 65  |tle$="" . mtitle|
00001ca0  24 3d 22 53 61 6d 70 6c  65 22 0d 0e 10 18 6d 74  |$="Sample"....mt|
00001cb0  69 74 6c 65 24 3d c0 6d  74 69 74 6c 65 24 2c 31  |itle$=.mtitle$,1|
00001cc0  32 29 0d 0e 1a 1d f2 73  28 73 61 76 65 73 61 6d  |2).....s(savesam|
00001cd0  70 6c 65 25 2c 33 2c 6d  74 69 74 6c 65 24 29 0d  |ple%,3,mtitle$).|
00001ce0  0e 24 5c 6d 61 69 6e 6d  65 6e 75 25 3d a4 6d 61  |.$\mainmenu%=.ma|
00001cf0  6b 65 6d 65 6e 28 22 7c  77 69 6e 73 73 53 61 76  |kemen("|winssSav|
00001d00  65 2c 7c 77 69 6e 73 76  56 6f 6c 75 6d 65 2c 44  |e,|winsvVolume,D|
00001d10  65 6c 65 74 65 2c 22 2b  a4 74 69 63 28 73 61 76  |elete,"+.tic(sav|
00001d20  65 68 65 61 64 65 72 25  29 2b 22 48 65 61 64 65  |eheader%)+"Heade|
00001d30  72 22 2c 6d 74 69 74 6c  65 24 29 0d 0e 2e 2f e7  |r",mtitle$).../.|
00001d40  20 6d 25 3e 6d 65 6e 65  6e 64 25 20 8c 20 85 20  | m%>menend% . . |
00001d50  31 37 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  |17,"Not enough m|
00001d60  65 6e 75 20 73 70 61 63  65 22 0d 0e 38 2d f2 73  |enu space"..8-.s|
00001d70  28 73 65 74 76 6f 6c 75  6d 65 25 2c 31 2c c3 28  |(setvolume%,1,.(|
00001d80  21 73 76 6f 6c 61 64 64  72 25 28 73 61 6d 70 6c  |!svoladdr%(sampl|
00001d90  65 6e 6f 25 29 29 29 0d  0e 42 05 e1 0d 0e 4c 05  |eno%)))..B....L.|
00001da0  3a 0d 0e 56 0e dd f2 6d  61 69 6e 6d 65 6e 75 0d  |:..V...mainmenu.|
00001db0  0e 60 10 6d 25 3d 6d 65  6e 75 61 64 64 72 25 0d  |.`.m%=menuaddr%.|
00001dc0  0e 6a 22 6d 65 6e 65 6e  64 25 3d 6d 65 6e 75 61  |.j"menend%=menua|
00001dd0  64 64 72 25 2b 6d 65 6e  75 73 70 61 63 65 25 2d  |ddr%+menuspace%-|
00001de0  31 0d 0e 74 0b ea 20 69  24 2c 6d 24 0d 0e 7e c7  |1..t.. i$,m$..~.|
00001df0  73 61 76 65 6d 65 6e 75  25 3d a4 6d 61 6b 65 6d  |savemenu%=.makem|
00001e00  65 6e 28 22 7c 77 69 6e  73 61 22 2b a4 6c 69 74  |en("|winsa"+.lit|
00001e10  28 74 75 6e 65 6c 6f 61  64 65 64 25 29 2b 22 54  |(tuneloaded%)+"T|
00001e20  75 6e 65 2c 7c 77 69 6e  73 70 22 2b a4 6c 69 74  |une,|winsp"+.lit|
00001e30  28 74 75 6e 65 6c 6f 61  64 65 64 25 29 2b 22 50  |(tuneloaded%)+"P|
00001e40  61 74 74 65 72 6e 2c 7c  77 69 6e 61 70 22 2b a4  |attern,|winap"+.|
00001e50  6c 69 74 28 74 75 6e 65  6c 6f 61 64 65 64 25 29  |lit(tuneloaded%)|
00001e60  2b 22 50 61 74 74 65 72  6e 73 2c 7c 77 69 6e 73  |+"Patterns,|wins|
00001e70  64 22 2b a4 6c 69 74 28  74 75 6e 65 6c 6f 61 64  |d"+.lit(tuneload|
00001e80  65 64 25 29 2b 22 54 65  78 74 20 44 75 6d 70 2c  |ed%)+"Text Dump,|
00001e90  7c 77 69 6e 73 74 53 79  6e 74 68 65 74 69 63 2c  ||winstSynthetic,|
00001ea0  7c 77 69 6e 73 68 48 65  6c 70 22 2c 22 53 61 76  ||winshHelp","Sav|
00001eb0  65 22 29 0d 0e 88 3f 74  75 6e 65 6d 65 6e 75 25  |e")...?tunemenu%|
00001ec0  3d a4 6d 61 6b 65 6d 65  6e 28 22 49 6e 66 6f 2c  |=.makemen("Info,|
00001ed0  53 61 6d 70 6c 65 73 2c  53 74 65 72 65 6f 2c 43  |Samples,Stereo,C|
00001ee0  6f 70 79 2c 41 6d 65 6e  64 22 2c 22 54 75 6e 65  |opy,Amend","Tune|
00001ef0  22 29 0d 0e 92 8c 6d 61  69 6e 6d 65 6e 75 25 3d  |")....mainmenu%=|
00001f00  a4 6d 61 6b 65 6d 65 6e  28 22 7c 77 69 6e 69 6e  |.makemen("|winin|
00001f10  49 6e 66 6f 2c 7c 77 69  6e 73 6d 53 61 76 65 2c  |Info,|winsmSave,|
00001f20  53 65 74 74 69 6e 67 73  2c 43 72 65 61 74 65 2c  |Settings,Create,|
00001f30  22 2b a4 6c 69 74 28 74  75 6e 65 6c 6f 61 64 65  |"+.lit(tuneloade|
00001f40  64 25 29 2b 22 43 6c 65  61 72 2c 7c 77 69 6e 74  |d%)+"Clear,|wint|
00001f50  6e 22 2b a4 6c 69 74 28  74 75 6e 65 6c 6f 61 64  |n"+.lit(tuneload|
00001f60  65 64 25 29 2b 22 54 75  6e 65 2c 51 75 69 74 22  |ed%)+"Tune,Quit"|
00001f70  2c 22 41 50 20 54 72 61  63 6b 65 72 22 29 0d 0e  |,"AP Tracker")..|
00001f80  9c 2f e7 20 6d 25 3e 6d  65 6e 65 6e 64 25 20 8c  |./. m%>menend% .|
00001f90  20 85 20 31 37 2c 22 4e  6f 74 20 65 6e 6f 75 67  | . 17,"Not enoug|
00001fa0  68 20 6d 65 6e 75 20 73  70 61 63 65 22 0d 0e a6  |h menu space"...|
00001fb0  21 f2 73 28 6e 65 77 74  72 61 63 6b 25 2c 35 2c  |!.s(newtrack%,5,|
00001fc0  c3 28 64 65 66 76 6f 69  63 65 73 25 29 29 0d 0e  |.(defvoices%))..|
00001fd0  b0 22 f2 73 28 73 61 76  65 70 61 74 74 65 72 6e  |.".s(savepattern|
00001fe0  25 2c 36 2c c3 28 73 61  76 65 70 61 74 25 29 29  |%,6,.(savepat%))|
00001ff0  0d 0e ba 05 e1 0d 0e c4  05 3a 0d 0e ce 10 dd a4  |.........:......|
00002000  6c 69 74 28 74 65 73 74  25 29 0d 0e d8 21 e7 20  |lit(test%)...!. |
00002010  74 65 73 74 25 20 8c 20  3d 22 7c 6c 69 74 31 22  |test% . ="|lit1"|
00002020  20 8b 20 3d 22 7c 6c 69  74 30 22 0d 0e e2 05 3a  | . ="|lit0"....:|
00002030  0d 0e ec 10 dd a4 74 69  63 28 74 65 73 74 25 29  |......tic(test%)|
00002040  0d 0e f6 21 e7 20 74 65  73 74 25 20 8c 20 3d 22  |...!. test% . ="|
00002050  7c 74 69 63 31 22 20 8b  20 3d 22 7c 74 69 63 30  ||tic1" . ="|tic0|
00002060  22 0d 0f 00 05 3a 0d 0f  0a 15 dd f2 6d 65 6e 75  |"....:......menu|
00002070  69 74 65 6d 28 74 65 78  74 24 29 0d 0f 14 1f ea  |item(text$).....|
00002080  20 6d 65 6e 75 66 6c 61  67 73 25 2c 69 63 6f 6e  | menuflags%,icon|
00002090  66 6c 61 67 73 25 2c 73  6d 25 0d 0f 1e 09 69 69  |flags%,sm%....ii|
000020a0  25 3d a3 0d 0f 28 0a 73  6d 25 3d 2d 31 0d 0f 32  |%=...(.sm%=-1..2|
000020b0  12 e7 20 74 65 78 74 24  3d 22 22 20 8c 20 e1 0d  |.. text$="" . ..|
000020c0  0f 3c 10 6d 65 6e 75 66  6c 61 67 73 25 3d 30 0d  |.<.menuflags%=0.|
000020d0  0f 46 18 69 63 6f 6e 66  6c 61 67 73 25 3d 26 30  |.F.iconflags%=&0|
000020e0  37 30 30 30 30 32 31 0d  0f 50 14 c8 95 20 c0 74  |7000021..P... .t|
000020f0  65 78 74 24 2c 31 29 3d  22 7c 22 0d 0f 5a 14 c8  |ext$,1)="|"..Z..|
00002100  8e 20 c1 74 65 78 74 24  2c 32 2c 33 29 20 ca 0d  |. .text$,2,3) ..|
00002110  0f 64 0c c9 20 22 6c 69  74 22 3a 0d 0f 6e 2a 69  |.d.. "lit":..n*i|
00002120  63 6f 6e 66 6c 61 67 73  25 2b 3d 28 31 3c 3c 32  |conflags%+=(1<<2|
00002130  32 29 2a 28 31 2d bb 28  c1 74 65 78 74 24 2c 35  |2)*(1-.(.text$,5|
00002140  2c 31 29 29 29 0d 0f 78  13 74 65 78 74 24 3d c1  |,1)))..x.text$=.|
00002150  74 65 78 74 24 2c 36 29  0d 0f 82 0c c9 20 22 74  |text$,6)..... "t|
00002160  69 63 22 3a 0d 0f 8c 1e  6d 65 6e 75 66 6c 61 67  |ic":....menuflag|
00002170  73 25 2b 3d bb 28 c1 74  65 78 74 24 2c 35 2c 31  |s%+=.(.text$,5,1|
00002180  29 29 0d 0f 96 13 74 65  78 74 24 3d c1 74 65 78  |))....text$=.tex|
00002190  74 24 2c 36 29 0d 0f a0  0c c9 20 22 77 69 6e 22  |t$,6)..... "win"|
000021a0  3a 0d 0f aa 14 c8 8e 20  c1 74 65 78 74 24 2c 35  |:...... .text$,5|
000021b0  2c 32 29 20 ca 0d 0f b4  14 c9 20 22 69 6e 22 3a  |,2) ...... "in":|
000021c0  73 6d 25 3d 69 6e 66 6f  25 0d 0f be 18 c9 20 22  |sm%=info%..... "|
000021d0  74 6e 22 3a 73 6d 25 3d  74 75 6e 65 6d 65 6e 75  |tn":sm%=tunemenu|
000021e0  25 0d 0f c8 18 c9 20 22  6e 74 22 3a 73 6d 25 3d  |%..... "nt":sm%=|
000021f0  6e 65 77 74 72 61 63 6b  25 0d 0f d2 18 c9 20 22  |newtrack%..... "|
00002200  73 61 22 3a 73 6d 25 3d  73 61 76 65 74 75 6e 65  |sa":sm%=savetune|
00002210  25 0d 0f dc 18 c9 20 22  73 6d 22 3a 73 6d 25 3d  |%..... "sm":sm%=|
00002220  73 61 76 65 6d 65 6e 75  25 0d 0f e6 1b c9 20 22  |savemenu%..... "|
00002230  73 70 22 3a 73 6d 25 3d  73 61 76 65 70 61 74 74  |sp":sm%=savepatt|
00002240  65 72 6e 25 0d 0f f0 1c  c9 20 22 61 70 22 3a 73  |ern%..... "ap":s|
00002250  6d 25 3d 73 61 76 65 70  61 74 74 65 72 6e 73 25  |m%=savepatterns%|
00002260  0d 0f fa 18 c9 20 22 73  68 22 3a 73 6d 25 3d 73  |..... "sh":sm%=s|
00002270  61 76 65 68 65 6c 70 25  0d 10 04 1a c9 20 22 73  |avehelp%..... "s|
00002280  73 22 3a 73 6d 25 3d 73  61 76 65 73 61 6d 70 6c  |s":sm%=savesampl|
00002290  65 25 0d 10 0e 19 c9 20  22 73 74 22 3a 73 6d 25  |e%..... "st":sm%|
000022a0  3d 73 61 76 65 73 79 6e  74 68 25 0d 10 18 19 c9  |=savesynth%.....|
000022b0  20 22 73 76 22 3a 73 6d  25 3d 73 65 74 76 6f 6c  | "sv":sm%=setvol|
000022c0  75 6d 65 25 0d 10 22 18  c9 20 22 73 64 22 3a 73  |ume%..".. "sd":s|
000022d0  6d 25 3d 73 61 76 65 64  75 6d 70 25 0d 10 2c 05  |m%=savedump%..,.|
000022e0  cb 0d 10 36 13 74 65 78  74 24 3d c1 74 65 78 74  |...6.text$=.text|
000022f0  24 2c 37 29 0d 10 40 05  cb 0d 10 4a 05 ce 0d 10  |$,7)..@....J....|
00002300  54 29 e7 20 a9 28 74 65  78 74 24 29 3e 6d 65 6e  |T). .(text$)>men|
00002310  75 6d 61 78 25 20 6d 65  6e 75 6d 61 78 25 3d a9  |umax% menumax%=.|
00002320  28 74 65 78 74 24 29 0d  10 5e 13 6d 25 21 30 3d  |(text$)..^.m%!0=|
00002330  6d 65 6e 75 66 6c 61 67  73 25 0d 10 68 0c 6d 25  |menuflags%..h.m%|
00002340  21 34 3d 73 6d 25 0d 10  72 13 6d 25 21 38 3d 69  |!4=sm%..r.m%!8=i|
00002350  63 6f 6e 66 6c 61 67 73  25 0d 10 7c 13 e7 20 a9  |conflags%..|.. .|
00002360  28 74 65 78 74 24 29 3c  31 32 20 8c 0d 10 86 12  |(text$)<12 .....|
00002370  24 28 6d 25 2b 31 32 29  3d 74 65 78 74 24 0d 10  |$(m%+12)=text$..|
00002380  90 05 cc 0d 10 9a 19 6d  65 6e 65 6e 64 25 2d 3d  |.......menend%-=|
00002390  28 a9 28 74 65 78 74 24  29 2b 31 29 0d 10 a4 22  |(.(text$)+1)..."|
000023a0  6d 25 21 38 3d 28 6d 65  6e 75 70 74 72 25 21 38  |m%!8=(menuptr%!8|
000023b0  29 20 84 20 25 31 30 30  30 30 30 30 30 30 0d 10  |) . %100000000..|
000023c0  ae 11 6d 25 21 31 32 3d  6d 65 6e 65 6e 64 25 0d  |..m%!12=menend%.|
000023d0  10 b8 0c 6d 25 21 31 36  3d 2d 31 0d 10 c2 12 6d  |...m%!16=-1....m|
000023e0  25 21 32 30 3d a9 28 74  65 78 74 24 29 0d 10 cc  |%!20=.(text$)...|
000023f0  12 24 6d 65 6e 65 6e 64  25 3d 74 65 78 74 24 0d  |.$menend%=text$.|
00002400  10 d6 05 cd 0d 10 e0 0a  6d 25 2b 3d 32 34 0d 10  |........m%+=24..|
00002410  ea 05 e1 0d 10 f4 05 3a  0d 10 fe 0f dd a4 70 61  |.......:......pa|
00002420  72 28 73 65 70 24 29 0d  11 08 25 69 31 25 3d 69  |r(sep$)...%i1%=i|
00002430  25 2b 31 3a 69 25 3d a7  6d 65 6e 75 24 2b 73 65  |%+1:i%=.menu$+se|
00002440  70 24 2c 73 65 70 24 2c  69 31 25 29 0d 11 12 17  |p$,sep$,i1%)....|
00002450  3d c1 6d 65 6e 75 24 2c  69 31 25 2c 69 25 2d 69  |=.menu$,i1%,i%-i|
00002460  31 25 29 0d 11 1c 05 3a  0d 11 26 1f dd a4 6d 61  |1%)....:..&...ma|
00002470  6b 65 6d 65 6e 28 6d 65  6e 75 24 2c 6d 65 6e 75  |kemen(menu$,menu|
00002480  74 69 74 6c 65 24 29 0d  11 30 16 ea 20 6d 65 6e  |title$)..0.. men|
00002490  75 6d 61 78 25 2c 77 61  73 70 74 72 25 0d 11 3a  |umax%,wasptr%..:|
000024a0  0e 77 61 73 70 74 72 25  3d 6d 25 0d 11 44 0f 6d  |.wasptr%=m%..D.m|
000024b0  65 6e 75 6d 61 78 25 3d  31 30 0d 11 4e 08 69 25  |enumax%=10..N.i%|
000024c0  3d 30 0d 11 58 0c 6d 25  21 32 30 3d 34 30 0d 11  |=0..X.m%!20=40..|
000024d0  62 12 24 6d 25 3d 6d 65  6e 75 74 69 74 6c 65 24  |b.$m%=menutitle$|
000024e0  0d 11 6c 0b 6d 25 3f 31  32 3d 37 0d 11 76 0b 6d  |..l.m%?12=7..v.m|
000024f0  25 3f 31 33 3d 32 0d 11  80 0b 6d 25 3f 31 34 3d  |%?13=2....m%?14=|
00002500  37 0d 11 8a 0b 6d 25 3f  31 35 3d 30 0d 11 94 12  |7....m%?15=0....|
00002510  6d 61 78 61 64 64 72 25  3d 6d 25 2b 31 36 0d 11  |maxaddr%=m%+16..|
00002520  9e 0b 6d 25 21 32 34 3d  30 0d 11 a8 0a 6d 25 2b  |..m%!24=0....m%+|
00002530  3d 32 38 0d 11 b2 05 f5  0d 11 bc 13 69 74 65 6d  |=28.........item|
00002540  24 3d a4 70 61 72 28 22  2c 22 29 0d 11 c6 14 f2  |$=.par(",").....|
00002550  6d 65 6e 75 69 74 65 6d  28 69 74 65 6d 24 29 0d  |menuitem(item$).|
00002560  11 d0 0e fd 20 69 74 65  6d 24 3d 22 22 0d 11 da  |.... item$=""...|
00002570  19 6d 25 21 2d 32 34 3d  28 6d 25 21 2d 32 34 29  |.m%!-24=(m%!-24)|
00002580  20 84 20 26 38 30 0d 11  e4 1c 21 6d 61 78 61 64  | . &80....!maxad|
00002590  64 72 25 3d 6d 65 6e 75  6d 61 78 25 2a 31 36 2b  |dr%=menumax%*16+|
000025a0  33 32 0d 11 ee 0c 3d 77  61 73 70 74 72 25 0d 11  |32....=wasptr%..|
000025b0  f8 05 3a 0d 12 02 1d dd  f2 6f 70 65 6e 6d 65 6e  |..:......openmen|
000025c0  75 28 6f 75 72 25 2c 6d  25 2c 78 25 2c 79 25 29  |u(our%,m%,x%,y%)|
000025d0  0d 12 0c 14 6d 65 6e 75  68 61 6e 64 6c 65 25 3d  |....menuhandle%=|
000025e0  6f 75 72 25 0d 12 16 0d  6d 65 6e 75 78 25 3d 78  |our%....menux%=x|
000025f0  25 0d 12 20 0d 6d 65 6e  75 79 25 3d 79 25 0d 12  |%.. .menuy%=y%..|
00002600  2a 22 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |*".. "Wimp_Creat|
00002610  65 4d 65 6e 75 22 2c 2c  6d 25 2c 78 25 2c 79 25  |eMenu",,m%,x%,y%|
00002620  0d 12 34 05 e1 0d 12 3e  05 3a 0d 12 48 18 dd f2  |..4....>.:..H...|
00002630  6d 65 6e 75 73 65 6c 65  63 74 28 6d 65 6e 75 73  |menuselect(menus|
00002640  25 29 0d 12 52 0b ea 20  72 65 64 6f 25 0d 12 5c  |%)..R.. redo%..\|
00002650  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |!.. "Wimp_GetPoi|
00002660  6e 74 65 72 49 6e 66 6f  22 2c 2c 71 32 25 0d 12  |nterInfo",,q2%..|
00002670  66 1b 72 65 64 6f 25 3d  28 28 28 71 32 25 21 38  |f.redo%=(((q2%!8|
00002680  29 20 80 20 31 29 3e 30  29 0d 12 70 14 c8 8e 20  |) . 1)>0)..p... |
00002690  6d 65 6e 75 68 61 6e 64  6c 65 25 20 ca 0d 12 7a  |menuhandle% ...z|
000026a0  0a c9 20 31 30 31 3a 0d  12 84 10 c8 8e 20 21 6d  |.. 101:...... !m|
000026b0  65 6e 75 73 25 20 ca 0d  12 8e 08 c9 20 32 3a 0d  |enus% ...... 2:.|
000026c0  12 98 1e f2 73 28 73 65  74 74 69 6e 67 73 25 2c  |....s(settings%,|
000026d0  35 2c c3 28 70 61 74 6c  65 6e 25 29 29 0d 12 a2  |5,.(patlen%))...|
000026e0  14 f2 6f 77 28 73 65 74  74 69 6e 67 73 25 2c 30  |..ow(settings%,0|
000026f0  29 0d 12 ac 18 c9 20 33  3a f2 6f 77 28 6e 65 77  |)..... 3:.ow(new|
00002700  74 72 61 63 6b 25 2c 30  29 0d 12 b6 08 c9 20 34  |track%,0)..... 4|
00002710  3a 0d 12 c0 0e f2 63 6c  65 61 72 64 61 74 61 0d  |:.....cleardata.|
00002720  12 ca 08 c9 20 35 3a 0d  12 d4 11 c8 8e 20 6d 65  |.... 5:...... me|
00002730  6e 75 73 25 21 34 20 ca  0d 12 de 30 c9 20 30 3a  |nus%!4 ....0. 0:|
00002740  f2 72 65 77 72 69 74 65  6e 61 6d 65 73 3a f2 74  |.rewritenames:.t|
00002750  75 6e 65 69 6e 66 6f 3a  f2 6f 77 28 74 75 6e 65  |uneinfo:.ow(tune|
00002760  69 6e 66 6f 25 2c 30 29  0d 12 e8 17 c9 20 31 3a  |info%,0)..... 1:|
00002770  f2 6f 77 28 73 61 6d 70  6c 65 73 25 2c 30 29 0d  |.ow(samples%,0).|
00002780  12 f2 16 c9 20 32 3a f2  6f 77 28 73 74 65 72 65  |.... 2:.ow(stere|
00002790  6f 25 2c 30 29 0d 12 fc  1b c9 20 33 3a f2 6f 77  |o%,0)..... 3:.ow|
000027a0  28 63 6f 70 79 70 61 74  74 65 72 6e 25 2c 30 29  |(copypattern%,0)|
000027b0  0d 13 06 08 c9 20 34 3a  0d 13 10 19 f2 73 28 61  |..... 4:.....s(a|
000027c0  74 72 25 2c 32 2c c3 28  64 65 6c 70 61 74 25 29  |tr%,2,.(delpat%)|
000027d0  29 0d 13 1a 1c f2 73 28  61 74 72 25 2c 31 30 2c  |).....s(atr%,10,|
000027e0  c3 28 64 65 6c 76 6f 69  63 65 25 29 29 0d 13 24  |.(delvoice%))..$|
000027f0  0f f2 6f 77 28 61 74 72  25 2c 30 29 0d 13 2e 05  |..ow(atr%,0)....|
00002800  cb 0d 13 38 19 c9 20 36  3a f2 73 68 75 74 64 6f  |...8.. 6:.shutdo|
00002810  77 6e 3a 72 65 64 6f 25  3d a3 0d 13 42 05 cb 0d  |wn:redo%=...B...|
00002820  13 4c 15 e7 20 72 65 64  6f 25 20 f2 6d 61 69 6e  |.L.. redo% .main|
00002830  6d 65 6e 75 0d 13 56 0a  c9 20 31 30 36 3a 0d 13  |menu..V.. 106:..|
00002840  60 10 c8 8e 20 21 6d 65  6e 75 73 25 20 ca 0d 13  |`... !menus% ...|
00002850  6a 08 c9 20 32 3a 0d 13  74 1c f2 64 65 6c 65 74  |j.. 2:..t..delet|
00002860  65 73 61 6d 70 6c 65 28  73 61 6d 70 6c 65 6e 6f  |esample(sampleno|
00002870  25 29 0d 13 7e 0b 72 65  64 6f 25 3d a3 0d 13 88  |%)..~.redo%=....|
00002880  08 c9 20 33 3a 0d 13 92  1e 73 61 76 65 68 65 61  |.. 3:....savehea|
00002890  64 65 72 25 3d ac 28 73  61 76 65 68 65 61 64 65  |der%=.(saveheade|
000028a0  72 25 29 0d 13 9c 20 f2  6d 61 6b 65 73 61 6d 70  |r%)... .makesamp|
000028b0  6c 65 6d 65 6e 75 28 73  61 6d 70 6c 65 6e 6f 25  |lemenu(sampleno%|
000028c0  2d 31 29 0d 13 a6 05 cb  0d 13 b0 05 cb 0d 13 ba  |-1).............|
000028d0  3c e7 20 72 65 64 6f 25  20 8c 20 f2 6f 70 65 6e  |<. redo% . .open|
000028e0  6d 65 6e 75 28 6d 65 6e  75 68 61 6e 64 6c 65 25  |menu(menuhandle%|
000028f0  2c 6d 61 69 6e 6d 65 6e  75 25 2c 6d 65 6e 75 78  |,mainmenu%,menux|
00002900  25 2c 6d 65 6e 75 79 25  29 0d 13 c4 05 e1 0d 13  |%,menuy%).......|
00002910  ce 05 3a 0d 13 d8 26 dd  f2 73 65 74 69 63 6f 6e  |..:...&..seticon|
00002920  74 79 70 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |type(window%,ico|
00002930  6e 25 2c 74 79 70 65 25  29 0d 13 e2 11 71 32 25  |n%,type%)....q2%|
00002940  21 30 3d 77 69 6e 64 6f  77 25 0d 13 ec 0f 71 32  |!0=window%....q2|
00002950  25 21 34 3d 69 63 6f 6e  25 0d 13 f6 1f c8 99 20  |%!4=icon%...... |
00002960  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00002970  74 65 22 2c 2c 71 32 25  0d 14 00 14 69 63 6f 6e  |te",,q2%....icon|
00002980  62 6c 6f 63 6b 25 3d 71  32 25 2b 38 0d 14 0a 1c  |block%=q2%+8....|
00002990  69 63 6f 6e 66 6c 61 67  73 25 3d 69 63 6f 6e 62  |iconflags%=iconb|
000029a0  6c 6f 63 6b 25 21 31 36  0d 14 14 16 65 6f 72 77  |lock%!16....eorw|
000029b0  6f 72 64 25 3d 74 79 70  65 25 3c 3c 31 32 0d 14  |ord%=type%<<12..|
000029c0  1e 15 63 6c 65 61 72 77  6f 72 64 25 3d 31 35 3c  |..clearword%=15<|
000029d0  3c 31 32 0d 14 28 11 71  32 25 21 30 3d 77 69 6e  |<12..(.q2%!0=win|
000029e0  64 6f 77 25 0d 14 32 0f  71 32 25 21 34 3d 69 63  |dow%..2.q2%!4=ic|
000029f0  6f 6e 25 0d 14 3c 12 71  32 25 21 38 3d 65 6f 72  |on%..<.q2%!8=eor|
00002a00  77 6f 72 64 25 0d 14 46  15 71 32 25 21 31 32 3d  |word%..F.q2%!12=|
00002a10  63 6c 65 61 72 77 6f 72  64 25 0d 14 50 1f c8 99  |clearword%..P...|
00002a20  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00002a30  61 74 65 22 2c 2c 71 32  25 0d 14 5a 05 e1 0d 14  |ate",,q2%..Z....|
00002a40  64 05 3a 0d 14 6e 21 dd  f2 6d 61 6b 65 73 65 6c  |d.:..n!..makesel|
00002a50  65 63 74 65 64 28 77 69  6e 64 6f 77 25 2c 69 63  |ected(window%,ic|
00002a60  6f 6e 25 29 0d 14 78 11  71 32 25 21 30 3d 77 69  |on%)..x.q2%!0=wi|
00002a70  6e 64 6f 77 25 0d 14 82  0f 71 32 25 21 34 3d 69  |ndow%....q2%!4=i|
00002a80  63 6f 6e 25 0d 14 8c 0e  71 32 25 21 38 3d 32 5e  |con%....q2%!8=2^|
00002a90  32 31 0d 14 96 0f 71 32  25 21 31 32 3d 32 5e 32  |21....q2%!12=2^2|
00002aa0  31 0d 14 a0 1f c8 99 20  22 57 69 6d 70 5f 53 65  |1...... "Wimp_Se|
00002ab0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 32 25  |tIconState",,q2%|
00002ac0  0d 14 aa 05 e1 0d 14 b4  05 3a 0d 14 be 23 dd f2  |.........:...#..|
00002ad0  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 77  |makeunselected(w|
00002ae0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 14 c8  |indow%,icon%)...|
00002af0  11 71 32 25 21 30 3d 77  69 6e 64 6f 77 25 0d 14  |.q2%!0=window%..|
00002b00  d2 0f 71 32 25 21 34 3d  69 63 6f 6e 25 0d 14 dc  |..q2%!4=icon%...|
00002b10  0b 71 32 25 21 38 3d 30  0d 14 e6 0f 71 32 25 21  |.q2%!8=0....q2%!|
00002b20  31 32 3d 32 5e 32 31 0d  14 f0 1f c8 99 20 22 57  |12=2^21...... "W|
00002b30  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002b40  22 2c 2c 71 32 25 0d 14  fa 05 e1 0d 15 04 05 3a  |",,q2%.........:|
00002b50  0d 15 0e 21 dd a4 69 73  69 74 73 65 6c 65 63 74  |...!..isitselect|
00002b60  65 64 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ed(window%,icon%|
00002b70  29 0d 15 18 11 71 32 25  21 30 3d 77 69 6e 64 6f  |)....q2%!0=windo|
00002b80  77 25 0d 15 22 0f 71 32  25 21 34 3d 69 63 6f 6e  |w%..".q2%!4=icon|
00002b90  25 0d 15 2c 1f c8 99 20  22 57 69 6d 70 5f 47 65  |%..,... "Wimp_Ge|
00002ba0  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 32 25  |tIconState",,q2%|
00002bb0  0d 15 36 14 69 63 6f 6e  62 6c 6f 63 6b 25 3d 71  |..6.iconblock%=q|
00002bc0  32 25 2b 38 0d 15 40 1c  69 63 6f 6e 66 6c 61 67  |2%+8..@.iconflag|
00002bd0  73 25 3d 69 63 6f 6e 62  6c 6f 63 6b 25 21 31 36  |s%=iconblock%!16|
00002be0  0d 15 4a 25 e7 20 28 69  63 6f 6e 66 6c 61 67 73  |..J%. (iconflags|
00002bf0  25 20 80 20 32 5e 32 31  29 3d 30 20 8c 20 3d 30  |% . 2^21)=0 . =0|
00002c00  20 8b 20 3d 31 0d 15 54  05 3a 0d 15 5e 1e dd f2  | . =1..T.:..^...|
00002c10  6d 6f 76 65 63 61 72 65  74 28 77 69 6e 64 6f 77  |movecaret(window|
00002c20  25 2c 69 63 6f 6e 25 29  0d 15 68 2a 70 25 3d 28  |%,icon%)..h*p%=(|
00002c30  a9 28 a4 69 63 6f 6e 74  65 78 74 28 77 69 6e 64  |.(.icontext(wind|
00002c40  6f 77 25 2c 69 63 6f 6e  25 29 29 2b 31 29 20 81  |ow%,icon%))+1) .|
00002c50  20 32 0d 15 72 34 c8 99  20 22 57 69 6d 70 5f 53  | 2..r4.. "Wimp_S|
00002c60  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00002c70  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 2c  |,window%,icon%,,|
00002c80  2c 2d 31 2c 70 25 0d 15  7c 05 e1 0d 15 86 05 3a  |,-1,p%..|......:|
00002c90  0d 15 90 14 dd a4 66 69  6c 65 6c 65 6e 28 66 69  |......filelen(fi|
00002ca0  6c 65 24 29 0d 15 9a 0f  43 25 3d ad 28 66 69 6c  |le$)....C%=.(fil|
00002cb0  65 24 29 0d 15 a4 0d 6c  65 6e 25 3d a2 23 43 25  |e$)....len%=.#C%|
00002cc0  0d 15 ae 09 d9 20 23 43  25 0d 15 b8 09 3d 6c 65  |..... #C%....=le|
00002cd0  6e 25 0d 15 c2 05 3a 0d  15 cc 0e dd f2 73 61 76  |n%....:......sav|
00002ce0  65 66 69 6c 65 0d 15 d6  26 70 61 74 68 6e 61 6d  |efile...&pathnam|
00002cf0  65 24 3d a4 73 74 72 69  6e 67 66 72 6f 6d 6d 65  |e$=.stringfromme|
00002d00  6d 6f 72 79 28 71 25 2b  34 34 29 0d 15 e0 26 6c  |mory(q%+44)...&l|
00002d10  65 61 66 6e 61 6d 65 24  3d a4 69 63 6f 6e 74 65  |eafname$=.iconte|
00002d20  78 74 28 73 61 76 65 68  61 6e 64 6c 65 25 2c 33  |xt(savehandle%,3|
00002d30  29 0d 15 ea 16 e7 20 6c  65 61 66 6e 61 6d 65 24  |)..... leafname$|
00002d40  3d 22 22 20 8c 20 e1 0d  15 f4 21 66 75 6c 6c 6e  |="" . ....!fulln|
00002d50  61 6d 65 24 3d 70 61 74  68 6e 61 6d 65 24 2b 6c  |ame$=pathname$+l|
00002d60  65 61 66 6e 61 6d 65 24  0d 15 fe 13 c8 8e 20 67  |eafname$...... g|
00002d70  6c 6f 62 61 6c 72 65 66  25 20 ca 0d 16 08 11 c9  |lobalref% ......|
00002d80  20 31 3a f2 73 61 76 65  74 75 6e 65 0d 16 12 1e  | 1:.savetune....|
00002d90  c9 20 32 3a f2 73 61 76  65 73 61 6d 70 6c 65 28  |. 2:.savesample(|
00002da0  73 61 6d 70 6c 65 6e 6f  25 29 0d 16 1c 1e c9 20  |sampleno%)..... |
00002db0  33 3a f2 73 61 76 65 70  61 74 74 65 72 6e 28 73  |3:.savepattern(s|
00002dc0  61 76 65 70 61 74 25 29  0d 16 26 1c c9 20 34 3a  |avepat%)..&.. 4:|
00002dd0  f2 73 61 76 65 68 65 6c  70 28 66 75 6c 6c 6e 61  |.savehelp(fullna|
00002de0  6d 65 24 29 0d 16 30 20  c9 20 35 3a f2 73 61 76  |me$)..0 . 5:.sav|
00002df0  65 70 61 74 74 65 72 6e  73 28 6c 65 61 66 6e 61  |epatterns(leafna|
00002e00  6d 65 24 29 0d 16 3a 1c  c9 20 36 3a f2 73 61 76  |me$)..:.. 6:.sav|
00002e10  65 64 75 6d 70 28 66 75  6c 6c 6e 61 6d 65 24 29  |edump(fullname$)|
00002e20  0d 16 44 27 c9 20 37 3a  f2 73 61 76 65 73 79 6e  |..D'. 7:.savesyn|
00002e30  74 68 28 70 61 74 68 6e  61 6d 65 24 2c 6c 65 61  |th(pathname$,lea|
00002e40  66 6e 61 6d 65 24 29 0d  16 4e 05 cb 0d 16 58 05  |fname$)..N....X.|
00002e50  e1 0d 16 62 05 3a 0d 16  6c 35 dd f2 6c 6f 61 64  |...b.:..l5..load|
00002e60  77 69 74 68 70 61 74 68  76 61 72 69 61 62 6c 65  |withpathvariable|
00002e70  28 76 61 72 69 61 62 6c  65 24 2c 66 69 6c 65 6e  |(variable$,filen|
00002e80  61 6d 65 24 2c 61 64 64  72 25 29 0d 16 76 32 ff  |ame$,addr%)..v2.|
00002e90  28 22 4c 4f 41 44 20 22  2b 76 61 72 69 61 62 6c  |("LOAD "+variabl|
00002ea0  65 24 2b 22 2e 22 2b 66  69 6c 65 6e 61 6d 65 24  |e$+"."+filename$|
00002eb0  2b 22 20 22 2b c3 7e 61  64 64 72 25 29 0d 16 80  |+" "+.~addr%)...|
00002ec0  05 e1 0d 16 8a 05 3a 0d  16 94 36 dd f2 73 61 76  |......:...6..sav|
00002ed0  65 77 69 74 68 70 61 74  68 73 74 72 69 6e 67 28  |ewithpathstring(|
00002ee0  66 69 6c 65 6e 61 6d 65  24 2c 70 61 74 68 24 2c  |filename$,path$,|
00002ef0  61 64 64 72 25 2c 62 79  74 65 73 25 29 0d 16 9e  |addr%,bytes%)...|
00002f00  1e 70 61 74 68 32 24 3d  70 61 74 68 24 2b 22 2e  |.path2$=path$+".|
00002f10  22 2b 66 69 6c 65 6e 61  6d 65 24 0d 16 a8 30 c8  |"+filename$...0.|
00002f20  99 20 22 4f 53 5f 46 69  6c 65 22 2c 30 2c 70 61  |. "OS_File",0,pa|
00002f30  74 68 32 24 2c 30 2c 30  2c 61 64 64 72 25 2c 61  |th2$,0,0,addr%,a|
00002f40  64 64 72 25 2b 62 79 74  65 73 25 0d 16 b2 05 e1  |ddr%+bytes%.....|
00002f50  0d 16 bc 05 3a 0d 16 c6  0f dd a4 64 69 67 69 74  |....:......digit|
00002f60  28 64 24 29 0d 16 d0 21  e7 20 64 24 3e 3d 22 30  |(d$)...!. d$>="0|
00002f70  22 20 80 20 64 24 3c 3d  22 39 22 20 8c 20 3d b9  |" . d$<="9" . =.|
00002f80  20 8b 20 3d a3 0d 16 da  05 3a 0d 16 e4 1d dd f2  | . =.....:......|
00002f90  73 65 74 74 69 74 6c 65  28 62 6c 6f 63 6b 25 2c  |settitle(block%,|
00002fa0  74 69 74 6c 65 24 29 0d  16 ee 13 61 64 64 72 25  |title$)....addr%|
00002fb0  3d 62 6c 6f 63 6b 25 2b  37 32 0d 16 f8 12 6c 65  |=block%+72....le|
00002fc0  6e 25 3d a9 28 74 69 74  6c 65 24 29 0d 17 02 08  |n%=.(title$)....|
00002fd0  63 25 3d 30 0d 17 0c 0d  c8 95 20 6c 65 6e 25 3e  |c%=0...... len%>|
00002fe0  30 0d 17 16 1f 61 64 64  72 25 3f 63 25 3d 97 28  |0....addr%?c%=.(|
00002ff0  c1 74 69 74 6c 65 24 2c  63 25 2b 31 2c 31 29 29  |.title$,c%+1,1))|
00003000  0d 17 20 09 63 25 2b 3d  31 0d 17 2a 0b 6c 65 6e  |.. .c%+=1..*.len|
00003010  25 2d 3d 31 0d 17 34 05  ce 0d 17 3e 0e 61 64 64  |%-=1..4....>.add|
00003020  72 25 3f 63 25 3d 30 0d  17 48 05 e1 0d 17 52 05  |r%?c%=0..H....R.|
00003030  3a 0d 17 5c 10 dd a4 72  65 61 64 73 74 72 69 6e  |:..\...readstrin|
00003040  67 0d 17 66 10 ea 20 6f  75 74 24 2c 62 79 74 65  |g..f.. out$,byte|
00003050  25 0d 17 70 0f 61 62 6f  72 74 24 3d bd 28 30 29  |%..p.abort$=.(0)|
00003060  0d 17 7a 19 e7 20 c5 23  68 61 6e 64 6c 65 25 20  |..z.. .#handle% |
00003070  8c 20 3d 61 62 6f 72 74  24 0d 17 84 0b 6f 75 74  |. =abort$....out|
00003080  24 3d 22 22 0d 17 8e 05  f5 0d 17 98 13 62 79 74  |$="".........byt|
00003090  65 25 3d 9a 23 68 61 6e  64 6c 65 25 0d 17 a2 32  |e%=.#handle%...2|
000030a0  e7 20 62 79 74 65 25 3e  33 31 20 80 20 ac 28 c5  |. byte%>31 . .(.|
000030b0  23 68 61 6e 64 6c 65 25  29 20 8c 20 6f 75 74 24  |#handle%) . out$|
000030c0  3d 6f 75 74 24 2b bd 28  62 79 74 65 25 29 0d 17  |=out$+.(byte%)..|
000030d0  ac 1a fd 20 62 79 74 65  25 3c 33 32 20 84 20 c5  |... byte%<32 . .|
000030e0  23 68 61 6e 64 6c 65 25  0d 17 b6 09 3d 6f 75 74  |#handle%....=out|
000030f0  24 0d 17 c0 05 3a 0d 17  ca 19 dd f2 77 72 69 74  |$....:......writ|
00003100  65 73 74 72 69 6e 67 28  77 72 69 74 65 24 29 0d  |estring(write$).|
00003110  17 d4 19 e3 20 63 68 61  72 25 3d 31 20 b8 20 a9  |.... char%=1 . .|
00003120  28 77 72 69 74 65 24 29  0d 17 de 21 d5 23 68 61  |(write$)...!.#ha|
00003130  6e 64 6c 65 25 2c 97 28  c1 77 72 69 74 65 24 2c  |ndle%,.(.write$,|
00003140  63 68 61 72 25 2c 31 29  29 0d 17 e8 05 ed 0d 17  |char%,1)).......|
00003150  f2 10 d5 23 68 61 6e 64  6c 65 25 2c 31 33 0d 17  |...#handle%,13..|
00003160  fc 05 e1 0d 18 06 05 3a  0d 18 10 22 dd f2 73 65  |.......:..."..se|
00003170  74 66 69 6c 65 74 79 70  65 28 66 6e 61 6d 65 24  |tfiletype(fname$|
00003180  2c 6e 65 77 74 79 70 65  25 29 0d 18 1a 23 c8 99  |,newtype%)...#..|
00003190  20 22 4f 53 5f 46 69 6c  65 22 2c 31 38 2c 66 6e  | "OS_File",18,fn|
000031a0  61 6d 65 24 2c 6e 65 77  74 79 70 65 25 0d 18 24  |ame$,newtype%..$|
000031b0  05 e1 0d 18 2e 05 3a 0d  18 38 21 dd f2 77 72 69  |......:..8!..wri|
000031c0  74 65 73 74 72 69 6e 67  74 6f 66 69 6c 65 28 63  |testringtofile(c|
000031d0  68 25 2c 73 74 72 24 29  0d 18 42 11 e7 20 73 74  |h%,str$)..B.. st|
000031e0  72 24 3d 22 22 20 8c 20  e1 0d 18 4c 14 e3 20 6c  |r$="" . ...L.. l|
000031f0  25 3d 31 20 b8 20 a9 28  73 74 72 24 29 0d 18 56  |%=1 . .(str$)..V|
00003200  18 d5 23 63 68 25 2c 97  28 c1 73 74 72 24 2c 6c  |..#ch%,.(.str$,l|
00003210  25 2c 31 29 29 0d 18 60  05 ed 0d 18 6a 05 e1 0d  |%,1))..`....j...|
00003220  18 74 05 3a 0d 18 7e 0e  dd f2 6c 6f 61 64 66 69  |.t.:..~...loadfi|
00003230  6c 65 0d 18 88 26 66 69  6c 65 6e 61 6d 65 24 3d  |le...&filename$=|
00003240  a4 73 74 72 69 6e 67 66  72 6f 6d 6d 65 6d 6f 72  |.stringfrommemor|
00003250  79 28 71 25 2b 34 34 29  0d 18 92 15 6c 6f 61 64  |y(q%+44)....load|
00003260  65 64 24 3d 66 69 6c 65  6e 61 6d 65 24 0d 18 9c  |ed$=filename$...|
00003270  20 66 69 6c 65 6c 65 6e  25 3d a4 66 69 6c 65 6c  | filelen%=.filel|
00003280  65 6e 28 66 69 6c 65 6e  61 6d 65 24 29 0d 18 a6  |en(filename$)...|
00003290  0e c8 8e 20 71 25 21 34  30 20 ca 0d 18 b0 24 c9  |... q%!40 ....$.|
000032a0  20 26 30 30 31 3a f2 6c  6f 61 64 74 72 61 63 6b  | &001:.loadtrack|
000032b0  65 72 28 66 69 6c 65 6e  61 6d 65 24 2c 32 29 0d  |er(filename$,2).|
000032c0  18 ba 24 c9 20 26 32 31  41 3a f2 6c 6f 61 64 68  |..$. &21A:.loadh|
000032d0  61 72 6d 73 79 6e 74 68  28 66 69 6c 65 6e 61 6d  |armsynth(filenam|
000032e0  65 24 29 0d 18 c4 24 c9  20 26 33 36 34 3a f2 6c  |e$)...$. &364:.l|
000032f0  6f 61 64 63 6f 63 6f 74  72 61 63 6b 28 66 69 6c  |oadcocotrack(fil|
00003300  65 6e 61 6d 65 24 29 0d  18 ce 24 c9 20 26 33 36  |ename$)...$. &36|
00003310  35 3a f2 6c 6f 61 64 63  6f 63 6f 74 72 61 63 6b  |5:.loadcocotrack|
00003320  28 66 69 6c 65 6e 61 6d  65 24 29 0d 18 d8 25 c9  |(filename$)...%.|
00003330  20 26 37 30 31 3a f2 6c  6f 61 64 70 72 6f 74 72  | &701:.loadprotr|
00003340  61 63 6b 65 72 28 66 69  6c 65 6e 61 6d 65 24 29  |acker(filename$)|
00003350  0d 18 e2 24 c9 20 26 43  42 36 3a f2 6c 6f 61 64  |...$. &CB6:.load|
00003360  74 72 61 63 6b 65 72 28  66 69 6c 65 6e 61 6d 65  |tracker(filename|
00003370  24 2c 30 29 0d 18 ec 23  c9 20 26 43 42 35 3a f2  |$,0)...#. &CB5:.|
00003380  6c 6f 61 64 73 61 6d 70  6c 65 28 66 69 6c 65 6e  |loadsample(filen|
00003390  61 6d 65 24 2c 30 29 0d  18 f6 24 c9 20 26 43 43  |ame$,0)...$. &CC|
000033a0  35 3a f2 6c 6f 61 64 74  72 61 63 6b 65 72 28 66  |5:.loadtracker(f|
000033b0  69 6c 65 6e 61 6d 65 24  2c 32 29 0d 19 00 23 c9  |ilename$,2)...#.|
000033c0  20 26 44 33 43 3a f2 6c  6f 61 64 73 61 6d 70 6c  | &D3C:.loadsampl|
000033d0  65 28 66 69 6c 65 6e 61  6d 65 24 2c 32 29 0d 19  |e(filename$,2)..|
000033e0  0a 23 c9 20 26 44 46 39  3a f2 6c 6f 61 64 73 61  |.#. &DF9:.loadsa|
000033f0  6d 70 6c 65 28 66 69 6c  65 6e 61 6d 65 24 2c 36  |mple(filename$,6|
00003400  29 0d 19 14 23 c9 20 26  45 44 30 3a f2 6c 6f 61  |)...#. &ED0:.loa|
00003410  64 73 61 6d 70 6c 65 28  66 69 6c 65 6e 61 6d 65  |dsample(filename|
00003420  24 2c 31 29 0d 19 1e 21  c9 20 26 46 46 41 3a f2  |$,1)...!. &FFA:.|
00003430  6c 6f 61 64 6d 6f 64 75  6c 65 28 66 69 6c 65 6e  |loadmodule(filen|
00003440  61 6d 65 24 29 0d 19 28  22 c9 20 26 46 46 44 3a  |ame$)..(". &FFD:|
00003450  f2 6c 6f 61 64 70 61 74  64 61 74 61 28 66 69 6c  |.loadpatdata(fil|
00003460  65 6e 61 6d 65 24 29 0d  19 32 05 cb 0d 19 3c 05  |ename$)..2....<.|
00003470  e1 0d 19 46 05 3a 0d 19  50 19 dd f2 6c 6f 61 64  |...F.:..P...load|
00003480  6d 6f 64 75 6c 65 28 6d  6f 64 75 6c 65 24 29 0d  |module(module$).|
00003490  19 5a 11 43 25 3d 8e 28  6d 6f 64 75 6c 65 24 29  |.Z.C%=.(module$)|
000034a0  0d 19 64 0c cf 23 43 25  3d 26 38 38 0d 19 6e 09  |..d..#C%=&88..n.|
000034b0  61 24 3d 22 22 0d 19 78  11 e3 20 62 79 74 65 25  |a$=""..x.. byte%|
000034c0  3d 31 20 b8 20 38 0d 19  82 0f 61 24 2b 3d bd 28  |=1 . 8....a$+=.(|
000034d0  9a 23 43 25 29 0d 19 8c  05 ed 0d 19 96 09 d9 20  |.#C%).......... |
000034e0  23 43 25 0d 19 a0 45 e7  20 61 24 3d 22 53 61 6d  |#C%...E. a$="Sam|
000034f0  70 43 6f 6e 76 22 20 8c  20 f2 6c 6f 61 64 73 61  |pConv" . .loadsa|
00003500  6d 70 6c 65 28 6d 6f 64  75 6c 65 24 2c 38 29 20  |mple(module$,8) |
00003510  8b 20 f2 6c 6f 61 64 73  61 6d 70 6c 65 28 6d 6f  |. .loadsample(mo|
00003520  64 75 6c 65 24 2c 37 29  0d 19 aa 05 e1 0d 19 b4  |dule$,7)........|
00003530  05 3a 0d 19 be 1e dd f2  6c 6f 61 64 68 61 72 6d  |.:......loadharm|
00003540  73 79 6e 74 68 28 66 69  6c 65 6e 61 6d 65 24 29  |synth(filename$)|
00003550  0d 19 c8 09 41 25 3d 31  30 0d 19 d2 13 61 64 64  |....A%=10....add|
00003560  72 65 73 73 25 3d ba 28  74 63 25 29 0d 19 dc 39  |ress%=.(tc%)...9|
00003570  e7 20 66 69 6c 65 6c 65  6e 25 3d 31 39 35 32 20  |. filelen%=1952 |
00003580  8c 20 ff 28 22 4c 4f 41  44 20 22 2b 66 69 6c 65  |. .("LOAD "+file|
00003590  6e 61 6d 65 24 2b 22 20  22 2b c3 7e 61 64 64 72  |name$+" "+.~addr|
000035a0  65 73 73 25 29 0d 19 e6  05 e1 0d 19 f0 05 3a 0d  |ess%).........:.|
000035b0  19 fa 24 dd f2 6c 6f 61  64 74 72 61 63 6b 65 72  |..$..loadtracker|
000035c0  28 74 72 61 63 6b 65 72  24 2c 6d 6f 64 74 79 70  |(tracker$,modtyp|
000035d0  65 25 29 0d 1a 04 16 6d  6f 64 74 79 70 65 32 25  |e%)....modtype2%|
000035e0  3d 6d 6f 64 74 79 70 65  25 0d 1a 0e 12 e7 20 6d  |=modtype%..... m|
000035f0  6f 64 74 79 70 65 25 3d  30 20 8c 0d 1a 18 12 43  |odtype%=0 .....C|
00003600  25 3d 8e 28 74 72 61 63  6b 65 72 24 29 0d 1a 22  |%=.(tracker$).."|
00003610  0c 72 65 61 64 24 3d 22  22 0d 1a 2c 11 e3 20 63  |.read$=""..,.. c|
00003620  68 61 72 25 3d 31 20 b8  20 34 0d 1a 36 12 72 65  |har%=1 . 4..6.re|
00003630  61 64 24 2b 3d bd 28 9a  23 43 25 29 0d 1a 40 05  |ad$+=.(.#C%)..@.|
00003640  ed 0d 1a 4a 09 d9 20 23  43 25 0d 1a 54 05 cd 0d  |...J.. #C%..T...|
00003650  1a 5e 05 3a 0d 1a 68 0c  61 62 6f 72 74 25 3d a3  |.^.:..h.abort%=.|
00003660  0d 1a 72 13 e7 20 74 75  6e 65 6c 6f 61 64 65 64  |..r.. tuneloaded|
00003670  25 20 8c 0d 1a 7c 49 65  72 72 6f 72 65 78 69 74  |% ...|Ierrorexit|
00003680  25 3d a4 65 72 72 6f 72  62 6f 78 28 31 37 2c 22  |%=.errorbox(17,"|
00003690  45 78 69 73 74 69 6e 67  20 74 75 6e 65 20 77 69  |Existing tune wi|
000036a0  6c 6c 20 62 65 20 6c 6f  73 74 20 2d 20 61 72 65  |ll be lost - are|
000036b0  20 79 6f 75 20 73 75 72  65 3f 22 29 0d 1a 86 2d  | you sure?")...-|
000036c0  e7 20 65 72 72 6f 72 65  78 69 74 25 3d 31 20 8c  |. errorexit%=1 .|
000036d0  20 f2 72 65 74 75 72 6e  6d 65 6d 6f 72 79 20 8b  | .returnmemory .|
000036e0  20 61 62 6f 72 74 25 3d  b9 0d 1a 90 05 cd 0d 1a  | abort%=........|
000036f0  9a 10 e7 20 61 62 6f 72  74 25 20 8c 20 e1 0d 1a  |... abort% . ...|
00003700  a4 05 3a 0d 1a ae 12 e7  20 6d 6f 64 74 79 70 65  |..:..... modtype|
00003710  25 3d 30 20 8c 0d 1a b8  44 e7 20 72 65 61 64 24  |%=0 ....D. read$|
00003720  3d 22 46 54 4d 4e 22 20  8c 20 85 20 31 37 2c 22  |="FTMN" . . 17,"|
00003730  53 6f 72 72 79 2c 20 63  61 6e 27 74 20 6c 6f 61  |Sorry, can't loa|
00003740  64 20 27 46 61 63 65 20  74 68 65 20 4d 75 73 69  |d 'Face the Musi|
00003750  63 27 20 66 69 6c 65 73  22 0d 1a c2 3c e7 20 72  |c' files"...<. r|
00003760  65 61 64 24 3d 22 4d 45  44 22 2b bd 28 34 29 20  |ead$="MED"+.(4) |
00003770  8c 20 85 20 31 37 2c 22  53 6f 72 72 79 2c 20 63  |. . 17,"Sorry, c|
00003780  61 6e 27 74 20 6c 6f 61  64 20 4d 45 44 33 20 66  |an't load MED3 f|
00003790  69 6c 65 73 22 0d 1a cc  2c e7 20 72 65 61 64 24  |iles"...,. read$|
000037a0  3d 22 4d 55 53 58 22 20  8c 20 6d 6f 64 74 79 70  |="MUSX" . modtyp|
000037b0  65 25 3d 31 20 8b 20 6d  6f 64 74 79 70 65 25 3d  |e%=1 . modtype%=|
000037c0  32 0d 1a d6 1f e7 20 72  65 61 64 24 3d 22 4f 4b  |2..... read$="OK|
000037d0  54 41 22 20 8c 20 6d 6f  64 74 79 70 65 25 3d 33  |TA" . modtype%=3|
000037e0  0d 1a e0 05 cd 0d 1a ea  0d f2 73 74 6f 70 74 75  |..........stoptu|
000037f0  6e 65 0d 1a f4 0e 61 62  6f 72 74 65 64 25 3d a3  |ne....aborted%=.|
00003800  0d 1a fe 11 c8 8e 20 6d  6f 64 74 79 70 65 25 20  |...... modtype% |
00003810  ca 0d 1b 08 08 c9 20 32  3a 0d 1b 12 13 e7 20 ac  |...... 2:..... .|
00003820  28 61 62 6f 72 74 65 64  25 29 20 8c 0d 1b 1c 09  |(aborted%) .....|
00003830  66 6d 25 3d 30 0d 1b 26  27 67 6f 74 69 74 25 3d  |fm%=0..&'gotit%=|
00003840  a4 67 72 61 62 6d 65 6d  28 66 69 6c 65 6c 65 6e  |.grabmem(filelen|
00003850  25 2a 32 2b 31 30 2a 31  30 32 34 29 0d 1b 30 42  |%*2+10*1024)..0B|
00003860  e7 20 67 6f 74 69 74 25  3d a3 20 8c 20 f2 6e 6f  |. gotit%=. . .no|
00003870  74 65 6e 6f 75 67 68 74  6f 6c 6f 61 64 28 22 20  |tenoughtoload(" |
00003880  66 6f 72 20 53 6f 75 6e  64 20 54 72 61 63 6b 65  |for Sound Tracke|
00003890  72 20 43 6f 6e 76 65 72  73 69 6f 6e 22 29 0d 1b  |r Conversion")..|
000038a0  3a 22 74 65 6d 70 6c 6f  61 64 25 3d 74 74 25 2b  |:"tempload%=tt%+|
000038b0  66 69 6c 65 6c 65 6e 25  2b 31 30 2a 31 30 32 34  |filelen%+10*1024|
000038c0  0d 1b 44 27 74 65 6d 70  6c 6f 61 64 25 3d 28 74  |..D'tempload%=(t|
000038d0  65 6d 70 6c 6f 61 64 25  2d 34 29 20 80 20 26 46  |empload%-4) . &F|
000038e0  46 46 46 46 46 46 43 0d  1b 4e 27 ff 28 22 4c 4f  |FFFFFFC..N'.("LO|
000038f0  41 44 20 22 2b 74 72 61  63 6b 65 72 24 2b 22 20  |AD "+tracker$+" |
00003900  22 2b c3 7e 74 65 6d 70  6c 6f 61 64 25 29 0d 1b  |"+.~tempload%)..|
00003910  58 08 41 25 3d 31 0d 1b  62 10 42 25 3d 74 65 6d  |X.A%=1..b.B%=tem|
00003920  70 6c 6f 61 64 25 0d 1b  6c 0a 43 25 3d 74 74 25  |pload%..l.C%=tt%|
00003930  0d 1b 76 0f 44 25 3d 66  69 6c 65 6c 65 6e 25 0d  |..v.D%=filelen%.|
00003940  1b 80 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00003950  5f 4f 6e 22 0d 1b 8a 09  d6 20 74 63 25 0d 1b 94  |_On"..... tc%...|
00003960  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00003970  66 66 22 0d 1b 9e 0d f2  6d 69 6e 69 6d 69 73 65  |ff".....minimise|
00003980  0d 1b a8 05 cd 0d 1b b2  05 3a 0d 1b bc 08 c9 20  |.........:..... |
00003990  31 3a 0d 1b c6 09 66 6d  25 3d 30 0d 1b d0 1d 67  |1:....fm%=0....g|
000039a0  6f 74 69 74 25 3d a4 67  72 61 62 6d 65 6d 28 66  |otit%=.grabmem(f|
000039b0  69 6c 65 6c 65 6e 25 29  0d 1b da 25 e7 20 67 6f  |ilelen%)...%. go|
000039c0  74 69 74 25 3d a3 20 8c  20 f2 6e 6f 74 65 6e 6f  |tit%=. . .noteno|
000039d0  75 67 68 74 6f 6c 6f 61  64 28 22 22 29 0d 1b e4  |ughtoload("")...|
000039e0  21 ff 28 22 4c 4f 41 44  20 22 2b 74 72 61 63 6b  |!.("LOAD "+track|
000039f0  65 72 24 2b 22 20 22 2b  c3 7e 74 74 25 29 0d 1b  |er$+" "+.~tt%)..|
00003a00  ee 05 3a 0d 1b f8 08 c9  20 33 3a 0d 1c 02 09 66  |..:..... 3:....f|
00003a10  6d 25 3d 30 0d 1c 0c 27  67 6f 74 69 74 25 3d a4  |m%=0...'gotit%=.|
00003a20  67 72 61 62 6d 65 6d 28  66 69 6c 65 6c 65 6e 25  |grabmem(filelen%|
00003a30  2a 32 2b 31 30 2a 31 30  32 34 29 0d 1c 16 3e e7  |*2+10*1024)...>.|
00003a40  20 67 6f 74 69 74 25 3d  a3 20 8c 20 f2 6e 6f 74  | gotit%=. . .not|
00003a50  65 6e 6f 75 67 68 74 6f  6c 6f 61 64 28 22 20 66  |enoughtoload(" f|
00003a60  6f 72 20 4f 63 74 61 6c  79 73 65 72 20 63 6f 6e  |or Octalyser con|
00003a70  76 65 72 73 69 6f 6e 22  29 0d 1c 20 22 74 65 6d  |version").. "tem|
00003a80  70 6c 6f 61 64 25 3d 74  74 25 2b 66 69 6c 65 6c  |pload%=tt%+filel|
00003a90  65 6e 25 2b 31 30 2a 31  30 32 34 0d 1c 2a 27 74  |en%+10*1024..*'t|
00003aa0  65 6d 70 6c 6f 61 64 25  3d 28 74 65 6d 70 6c 6f  |empload%=(templo|
00003ab0  61 64 25 2d 34 29 20 80  20 26 46 46 46 46 46 46  |ad%-4) . &FFFFFF|
00003ac0  46 43 0d 1c 34 27 ff 28  22 4c 4f 41 44 20 22 2b  |FC..4'.("LOAD "+|
00003ad0  74 72 61 63 6b 65 72 24  2b 22 20 22 2b c3 7e 74  |tracker$+" "+.~t|
00003ae0  65 6d 70 6c 6f 61 64 25  29 0d 1c 3e 08 41 25 3d  |empload%)..>.A%=|
00003af0  38 0d 1c 48 10 42 25 3d  74 65 6d 70 6c 6f 61 64  |8..H.B%=tempload|
00003b00  25 0d 1c 52 0a 43 25 3d  74 74 25 0d 1c 5c 0f 44  |%..R.C%=tt%..\.D|
00003b10  25 3d 66 69 6c 65 6c 65  6e 25 0d 1c 66 15 c8 99  |%=filelen%..f...|
00003b20  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  | "Hourglass_On".|
00003b30  1c 70 09 d6 20 74 63 25  0d 1c 7a 16 c8 99 20 22  |.p.. tc%..z... "|
00003b40  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 1c  |Hourglass_Off"..|
00003b50  84 0d f2 6d 69 6e 69 6d  69 73 65 0d 1c 8e 05 3a  |...minimise....:|
00003b60  0d 1c 98 05 cb 0d 1c a2  05 3a 0d 1c ac 1f e7 20  |.........:..... |
00003b70  ac 28 61 62 6f 72 74 65  64 25 29 20 8c 20 f2 6a  |.(aborted%) . .j|
00003b80  75 73 74 6c 6f 61 64 65  64 0d 1c b6 1a e7 20 61  |ustloaded..... a|
00003b90  62 6f 72 74 65 64 25 20  8c 20 f2 63 6c 6f 73 65  |borted% . .close|
00003ba0  61 6c 6c 0d 1c c0 05 e1  0d 1c ca 05 3a 0d 1c d4  |all.........:...|
00003bb0  10 dd f2 6a 75 73 74 6c  6f 61 64 65 64 0d 1c de  |...justloaded...|
00003bc0  11 74 75 6e 65 6c 6f 61  64 65 64 25 3d b9 0d 1c  |.tuneloaded%=...|
00003bd0  e8 0e 70 6c 61 79 69 6e  67 25 3d a3 0d 1c f2 1b  |..playing%=.....|
00003be0  6f 6c 64 70 6f 73 25 3d  2d 31 3a 6f 6c 64 65 76  |oldpos%=-1:oldev|
00003bf0  65 6e 74 25 3d 2d 31 0d  1c fc 1b f2 73 28 73 61  |ent%=-1.....s(sa|
00003c00  76 65 74 75 6e 65 25 2c  33 2c 6c 6f 61 64 65 64  |vetune%,3,loaded|
00003c10  24 29 0d 1d 06 11 f2 67  65 74 6d 75 73 69 63 69  |$).....getmusici|
00003c20  6e 66 6f 0d 1d 10 0d f2  74 75 6e 65 69 6e 66 6f  |nfo.....tuneinfo|
00003c30  0d 1d 1a 11 f2 75 70 64  61 74 65 73 74 65 72 65  |.....updatestere|
00003c40  6f 0d 1d 24 15 f2 77 72  69 74 65 73 61 6d 70 6c  |o..$..writesampl|
00003c50  65 6e 61 6d 65 73 0d 1d  2e 15 f2 69 6e 69 74 69  |enames.....initi|
00003c60  61 6c 69 73 65 76 6f 69  63 65 73 0d 1d 38 11 6a  |alisevoices..8.j|
00003c70  75 73 74 6c 6f 61 64 65  64 25 3d b9 0d 1d 42 0f  |ustloaded%=...B.|
00003c80  64 65 6c 76 6f 69 63 65  25 3d 31 0d 1d 4c 0d 64  |delvoice%=1..L.d|
00003c90  65 6c 70 61 74 25 3d 31  0d 1d 56 0e 73 61 76 65  |elpat%=1..V.save|
00003ca0  70 61 74 25 3d 31 0d 1d  60 0e 63 6f 70 79 70 61  |pat%=1..`.copypa|
00003cb0  74 25 3d 31 0d 1d 6a 22  f2 73 28 63 6f 70 79 70  |t%=1..j".s(copyp|
00003cc0  61 74 74 65 72 6e 25 2c  35 2c c3 28 63 6f 70 79  |attern%,5,.(copy|
00003cd0  70 61 74 25 29 29 0d 1d  74 19 f2 73 28 61 74 72  |pat%))..t..s(atr|
00003ce0  25 2c 32 2c c3 28 64 65  6c 70 61 74 25 29 29 0d  |%,2,.(delpat%)).|
00003cf0  1d 7e 1c f2 73 28 61 74  72 25 2c 31 30 2c c3 28  |.~..s(atr%,10,.(|
00003d00  64 65 6c 76 6f 69 63 65  25 29 29 0d 1d 88 0e f2  |delvoice%)).....|
00003d10  72 65 64 6f 63 61 72 65  74 0d 1d 92 05 e1 0d 1d  |redocaret.......|
00003d20  9c 05 3a 0d 1d a6 0f dd  f2 72 65 64 6f 63 61 72  |..:......redocar|
00003d30  65 74 0d 1d b0 22 c8 99  20 22 57 69 6d 70 5f 47  |et...".. "Wimp_G|
00003d40  65 74 43 61 72 65 74 50  6f 73 69 74 69 6f 6e 22  |etCaretPosition"|
00003d50  2c 2c 71 25 0d 1d ba 15  63 77 25 3d 71 25 21 30  |,,q%....cw%=q%!0|
00003d60  3a 63 69 25 3d 71 25 21  34 0d 1d c4 15 e7 20 63  |:ci%=q%!4..... c|
00003d70  77 25 3d 74 75 6e 65 69  6e 66 6f 25 20 8c 0d 1d  |w%=tuneinfo% ...|
00003d80  ce 27 e7 20 63 69 25 3d  37 20 84 20 63 69 25 3d  |.'. ci%=7 . ci%=|
00003d90  38 20 f2 6d 6f 76 65 63  61 72 65 74 28 63 77 25  |8 .movecaret(cw%|
00003da0  2c 63 69 25 29 0d 1d d8  05 cd 0d 1d e2 05 e1 0d  |,ci%)...........|
00003db0  1d ec 05 3a 0d 1d f6 25  dd f2 6c 6f 61 64 73 61  |...:...%..loadsa|
00003dc0  6d 70 6c 65 28 73 61 6d  70 66 69 6c 65 24 2c 73  |mple(sampfile$,s|
00003dd0  61 6d 70 74 79 70 65 25  29 0d 1e 00 11 77 69 74  |amptype%)....wit|
00003de0  68 68 65 61 64 65 72 25  3d a3 0d 1e 0a 11 77 69  |hheader%=.....wi|
00003df0  6e 64 6f 77 25 3d 71 25  21 32 30 0d 1e 14 0f 69  |ndow%=q%!20....i|
00003e00  63 6f 6e 25 3d 71 25 21  32 34 0d 1e 1e 1b e7 20  |con%=q%!24..... |
00003e10  77 69 6e 64 6f 77 25 3c  3e 73 61 6d 70 6c 65 73  |window%<>samples|
00003e20  25 20 8c 20 e1 0d 1e 28  11 e7 20 69 63 6f 6e 25  |% . ...(.. icon%|
00003e30  3c 30 20 8c 20 e1 0d 1e  32 15 c8 99 20 22 48 6f  |<0 . ...2... "Ho|
00003e40  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 1e 3c 1b 73  |urglass_On"..<.s|
00003e50  61 6d 70 70 6f 73 25 3d  28 69 63 6f 6e 25 20 83  |amppos%=(icon% .|
00003e60  20 33 36 29 2b 31 0d 1e  46 1b 73 66 25 3d a4 66  | 36)+1..F.sf%=.f|
00003e70  69 6c 65 6c 65 6e 28 73  61 6d 70 66 69 6c 65 24  |ilelen(sampfile$|
00003e80  29 0d 1e 50 18 61 63 74  75 61 6c 73 61 6d 70 6c  |)..P.actualsampl|
00003e90  65 6c 65 6e 25 3d 73 66  25 0d 1e 5a 1a e7 20 73  |elen%=sf%..Z.. s|
00003ea0  61 6d 70 74 79 70 65 25  3d 32 20 8c 20 73 66 25  |amptype%=2 . sf%|
00003eb0  2d 3d 31 0d 1e 64 1c e7  20 73 61 6d 70 74 79 70  |-=1..d.. samptyp|
00003ec0  65 25 3d 36 20 8c 20 73  66 25 2d 3d 37 31 32 0d  |e%=6 . sf%-=712.|
00003ed0  1e 6e 1d e7 20 73 61 6d  70 74 79 70 65 25 3d 37  |.n.. samptype%=7|
00003ee0  20 8c 20 73 66 25 2d 3d  31 34 30 38 0d 1e 78 1c  | . sf%-=1408..x.|
00003ef0  e7 20 73 61 6d 70 74 79  70 65 25 3d 38 20 8c 20  |. samptype%=8 . |
00003f00  73 66 25 2d 3d 36 36 30  0d 1e 82 1b 73 66 25 3d  |sf%-=660....sf%=|
00003f10  28 73 66 25 2b 33 29 20  80 20 26 46 46 46 46 46  |(sf%+3) . &FFFFF|
00003f20  46 46 43 0d 1e 8c 34 e7  20 73 61 6d 70 74 79 70  |FFC...4. samptyp|
00003f30  65 25 3d 30 20 8c 20 77  69 74 68 68 65 61 64 65  |e%=0 . withheade|
00003f40  72 25 3d a4 68 65 61 64  65 72 65 64 28 73 61 6d  |r%=.headered(sam|
00003f50  70 66 69 6c 65 24 29 0d  1e 96 13 e7 20 77 69 74  |pfile$)..... wit|
00003f60  68 68 65 61 64 65 72 25  20 8c 0d 1e a0 25 f2 6c  |hheader% ....%.l|
00003f70  6f 61 64 68 65 61 64 65  72 65 64 28 73 61 6d 70  |oadheadered(samp|
00003f80  66 69 6c 65 24 2c 73 61  6d 70 70 6f 73 25 29 0d  |file$,samppos%).|
00003f90  1e aa 05 cc 0d 1e b4 31  f2 6c 6f 61 64 75 6e 68  |.......1.loadunh|
00003fa0  65 61 64 65 72 65 64 28  73 61 6d 70 66 69 6c 65  |eadered(sampfile|
00003fb0  24 2c 73 61 6d 70 70 6f  73 25 2c 73 61 6d 70 74  |$,samppos%,sampt|
00003fc0  79 70 65 25 29 0d 1e be  05 cd 0d 1e c8 16 c8 99  |ype%)...........|
00003fd0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
00003fe0  0d 1e d2 0f f2 75 70 64  61 74 65 73 69 7a 65 0d  |.....updatesize.|
00003ff0  1e dc 0d f2 6d 69 6e 69  6d 69 73 65 0d 1e e6 05  |....minimise....|
00004000  e1 0d 1e f0 05 3a 0d 1e  fa 15 dd a4 68 65 61 64  |.....:......head|
00004010  65 72 65 64 28 73 61 6d  70 24 29 0d 1f 04 10 e7  |ered(samp$).....|
00004020  20 73 66 25 3c 34 20 8c  20 3d a3 0d 1f 0e 0f 43  | sf%<4 . =.....C|
00004030  25 3d 8e 28 73 61 6d 70  24 29 0d 1f 18 0c 72 65  |%=.(samp$)....re|
00004040  61 64 24 3d 22 22 0d 1f  22 11 e3 20 63 68 61 72  |ad$=""..".. char|
00004050  25 3d 31 20 b8 20 34 0d  1f 2c 12 72 65 61 64 24  |%=1 . 4..,.read$|
00004060  2b 3d bd 28 9a 23 43 25  29 0d 1f 36 05 ed 0d 1f  |+=.(.#C%)..6....|
00004070  40 09 d9 20 23 43 25 0d  1f 4a 17 e7 20 72 65 61  |@.. #C%..J.. rea|
00004080  64 24 3d 22 53 41 4d 50  22 20 8c 20 3d b9 0d 1f  |d$="SAMP" . =...|
00004090  54 06 3d a3 0d 1f 5e 05  3a 0d 1f 68 20 dd f2 6c  |T.=...^.:..h ..l|
000040a0  6f 61 64 68 65 61 64 65  72 65 64 28 77 68 61 74  |oadheadered(what|
000040b0  24 2c 77 68 65 72 65 25  29 0d 1f 72 31 65 66 66  |$,where%)..r1eff|
000040c0  65 63 74 69 76 65 6c 65  6e 25 3d 28 28 73 6c 65  |ectivelen%=((sle|
000040d0  6e 25 28 77 68 65 72 65  25 29 2b 33 29 20 80 20  |n%(where%)+3) . |
000040e0  26 46 46 46 46 46 46 46  43 29 0d 1f 7c 0c 61 62  |&FFFFFFFC)..|.ab|
000040f0  6f 72 74 25 3d a3 0d 1f  86 1e e7 20 73 66 25 3e  |ort%=...... sf%>|
00004100  28 65 66 66 65 63 74 69  76 65 6c 65 6e 25 2b 39  |(effectivelen%+9|
00004110  32 29 20 8c 0d 1f 90 24  74 6f 69 6e 73 65 72 74  |2) ....$toinsert|
00004120  25 3d 73 66 25 2d 28 65  66 66 65 63 74 69 76 65  |%=sf%-(effective|
00004130  6c 65 6e 25 2b 39 32 29  0d 1f 9a 19 61 74 25 3d  |len%+92)....at%=|
00004140  73 61 6d 70 61 64 64 72  25 28 77 68 65 72 65 25  |sampaddr%(where%|
00004150  29 0d 1f a4 2f e7 20 ac  28 a4 69 6e 73 65 72 74  |).../. .(.insert|
00004160  62 79 74 65 73 28 61 74  25 2c 74 6f 69 6e 73 65  |bytes(at%,toinse|
00004170  72 74 25 29 29 20 8c 20  61 62 6f 72 74 25 3d b9  |rt%)) . abort%=.|
00004180  0d 1f ae 05 cd 0d 1f b8  1e e7 20 73 66 25 3c 28  |.......... sf%<(|
00004190  65 66 66 65 63 74 69 76  65 6c 65 6e 25 2b 39 32  |effectivelen%+92|
000041a0  29 20 8c 0d 1f c2 22 74  6f 64 65 6c 65 74 65 25  |) ...."todelete%|
000041b0  3d 65 66 66 65 63 74 69  76 65 6c 65 6e 25 2b 39  |=effectivelen%+9|
000041c0  32 2d 73 66 25 0d 1f cc  19 61 74 25 3d 73 61 6d  |2-sf%....at%=sam|
000041d0  70 61 64 64 72 25 28 77  68 65 72 65 25 29 0d 1f  |paddr%(where%)..|
000041e0  d6 2f e7 20 ac 28 a4 64  65 6c 65 74 65 62 79 74  |./. .(.deletebyt|
000041f0  65 73 28 61 74 25 2c 74  6f 64 65 6c 65 74 65 25  |es(at%,todelete%|
00004200  29 29 20 8c 20 61 62 6f  72 74 25 3d b9 0d 1f e0  |)) . abort%=....|
00004210  05 cd 0d 1f ea 16 e7 20  61 62 6f 72 74 25 3d b9  |....... abort%=.|
00004220  20 8c 20 ef 20 37 3a e1  0d 1f f4 2c ff 28 22 4c  | . . 7:....,.("L|
00004230  4f 41 44 20 22 2b 77 68  61 74 24 2b 22 20 22 2b  |OAD "+what$+" "+|
00004240  c3 7e 73 61 6d 70 61 64  64 72 25 28 77 68 65 72  |.~sampaddr%(wher|
00004250  65 25 29 29 0d 1f fe 10  f2 72 65 61 64 73 61 6d  |e%)).....readsam|
00004260  70 6c 65 73 0d 20 08 15  f2 77 72 69 74 65 73 61  |ples. ...writesa|
00004270  6d 70 6c 65 6e 61 6d 65  73 0d 20 12 05 e1 0d 20  |mplenames. .... |
00004280  1c 05 3a 0d 20 26 29 dd  f2 6c 6f 61 64 75 6e 68  |..:. &)..loadunh|
00004290  65 61 64 65 72 65 64 28  77 68 61 74 24 2c 77 68  |eadered(what$,wh|
000042a0  65 72 65 25 2c 73 74 79  70 65 25 29 0d 20 30 31  |ere%,stype%). 01|
000042b0  65 66 66 65 63 74 69 76  65 6c 65 6e 25 3d 28 28  |effectivelen%=((|
000042c0  73 6c 65 6e 25 28 77 68  65 72 65 25 29 2b 33 29  |slen%(where%)+3)|
000042d0  20 80 20 26 46 46 46 46  46 46 46 43 29 0d 20 3a  | . &FFFFFFFC). :|
000042e0  0c 61 62 6f 72 74 25 3d  a3 0d 20 44 19 e7 20 73  |.abort%=.. D.. s|
000042f0  66 25 3e 65 66 66 65 63  74 69 76 65 6c 65 6e 25  |f%>effectivelen%|
00004300  20 8c 0d 20 4e 1f 74 6f  69 6e 73 65 72 74 25 3d  | .. N.toinsert%=|
00004310  73 66 25 2d 65 66 66 65  63 74 69 76 65 6c 65 6e  |sf%-effectivelen|
00004320  25 0d 20 58 1c 61 74 25  3d 73 61 6d 70 61 64 64  |%. X.at%=sampadd|
00004330  72 25 28 77 68 65 72 65  25 29 2b 39 32 0d 20 62  |r%(where%)+92. b|
00004340  2f e7 20 ac 28 a4 69 6e  73 65 72 74 62 79 74 65  |/. .(.insertbyte|
00004350  73 28 61 74 25 2c 74 6f  69 6e 73 65 72 74 25 29  |s(at%,toinsert%)|
00004360  29 20 8c 20 61 62 6f 72  74 25 3d b9 0d 20 6c 05  |) . abort%=.. l.|
00004370  cd 0d 20 76 19 e7 20 73  66 25 3c 65 66 66 65 63  |.. v.. sf%<effec|
00004380  74 69 76 65 6c 65 6e 25  20 8c 0d 20 80 1f 74 6f  |tivelen% .. ..to|
00004390  64 65 6c 65 74 65 25 3d  65 66 66 65 63 74 69 76  |delete%=effectiv|
000043a0  65 6c 65 6e 25 2d 73 66  25 0d 20 8a 1c 61 74 25  |elen%-sf%. ..at%|
000043b0  3d 73 61 6d 70 61 64 64  72 25 28 77 68 65 72 65  |=sampaddr%(where|
000043c0  25 29 2b 39 32 0d 20 94  2f e7 20 ac 28 a4 64 65  |%)+92. ./. .(.de|
000043d0  6c 65 74 65 62 79 74 65  73 28 61 74 25 2c 74 6f  |letebytes(at%,to|
000043e0  64 65 6c 65 74 65 25 29  29 20 8c 20 61 62 6f 72  |delete%)) . abor|
000043f0  74 25 3d b9 0d 20 9e 05  cd 0d 20 a8 16 e7 20 61  |t%=.. .... ... a|
00004400  62 6f 72 74 25 3d b9 20  8c 20 ef 20 37 3a e1 0d  |bort%=. . . 7:..|
00004410  20 b2 0f c8 8e 20 73 74  79 70 65 25 20 ca 0d 20  | .... stype% .. |
00004420  bc 08 c9 20 32 3a 0d 20  c6 0f 43 25 3d 8e 28 77  |... 2:. ..C%=.(w|
00004430  68 61 74 24 29 0d 20 d0  3f c8 99 20 22 4f 53 5f  |hat$). .?.. "OS_|
00004440  47 42 50 42 22 2c 33 2c  43 25 2c 73 61 6d 70 61  |GBPB",3,C%,sampa|
00004450  64 64 72 25 28 77 68 65  72 65 25 29 2b 39 32 2c  |ddr%(where%)+92,|
00004460  61 63 74 75 61 6c 73 61  6d 70 6c 65 6c 65 6e 25  |actualsamplelen%|
00004470  2d 31 2c 31 0d 20 da 09  d9 20 23 43 25 0d 20 e4  |-1,1. ... #C%. .|
00004480  08 c9 20 36 3a 0d 20 ee  0f 43 25 3d 8e 28 77 68  |.. 6:. ..C%=.(wh|
00004490  61 74 24 29 0d 20 f8 43  c8 99 20 22 4f 53 5f 47  |at$). .C.. "OS_G|
000044a0  42 50 42 22 2c 33 2c 43  25 2c 73 61 6d 70 61 64  |BPB",3,C%,sampad|
000044b0  64 72 25 28 77 68 65 72  65 25 29 2b 39 32 2c 61  |dr%(where%)+92,a|
000044c0  63 74 75 61 6c 73 61 6d  70 6c 65 6c 65 6e 25 2d  |ctualsamplelen%-|
000044d0  37 31 32 2c 35 34 34 0d  21 02 09 d9 20 23 43 25  |712,544.!... #C%|
000044e0  0d 21 0c 08 c9 20 37 3a  0d 21 16 0f 43 25 3d 8e  |.!... 7:.!..C%=.|
000044f0  28 77 68 61 74 24 29 0d  21 20 45 c8 99 20 22 4f  |(what$).! E.. "O|
00004500  53 5f 47 42 50 42 22 2c  33 2c 43 25 2c 73 61 6d  |S_GBPB",3,C%,sam|
00004510  70 61 64 64 72 25 28 77  68 65 72 65 25 29 2b 39  |paddr%(where%)+9|
00004520  32 2c 61 63 74 75 61 6c  73 61 6d 70 6c 65 6c 65  |2,actualsamplele|
00004530  6e 25 2d 31 34 30 38 2c  31 34 30 38 0d 21 2a 09  |n%-1408,1408.!*.|
00004540  d9 20 23 43 25 0d 21 34  08 c9 20 38 3a 0d 21 3e  |. #C%.!4.. 8:.!>|
00004550  0f 43 25 3d 8e 28 77 68  61 74 24 29 0d 21 48 43  |.C%=.(what$).!HC|
00004560  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 33 2c 43  |.. "OS_GBPB",3,C|
00004570  25 2c 73 61 6d 70 61 64  64 72 25 28 77 68 65 72  |%,sampaddr%(wher|
00004580  65 25 29 2b 39 32 2c 61  63 74 75 61 6c 73 61 6d  |e%)+92,actualsam|
00004590  70 6c 65 6c 65 6e 25 2d  36 36 30 2c 36 36 30 0d  |plelen%-660,660.|
000045a0  21 52 09 d9 20 23 43 25  0d 21 5c 10 c9 20 30 2c  |!R.. #C%.!\.. 0,|
000045b0  31 2c 33 2c 34 2c 35 3a  0d 21 66 31 ff 28 22 4c  |1,3,4,5:.!f1.("L|
000045c0  4f 41 44 20 22 2b 77 68  61 74 24 2b 22 20 22 2b  |OAD "+what$+" "+|
000045d0  c3 7e 28 73 61 6d 70 61  64 64 72 25 28 77 68 65  |.~(sampaddr%(whe|
000045e0  72 65 25 29 2b 39 32 29  29 0d 21 70 05 cb 0d 21  |re%)+92)).!p...!|
000045f0  7a 1b 73 6e 61 6d 65 24  3d a4 6c 65 61 66 6e 61  |z.sname$=.leafna|
00004600  6d 65 28 77 68 61 74 24  29 0d 21 84 16 73 6e 61  |me(what$).!..sna|
00004610  6d 65 24 3d c0 73 6e 61  6d 65 24 2c 32 30 29 0d  |me$=.sname$,20).|
00004620  21 8e 19 61 74 25 3d 73  61 6d 70 61 64 64 72 25  |!..at%=sampaddr%|
00004630  28 77 68 65 72 65 25 29  0d 21 98 10 61 74 25 21  |(where%).!..at%!|
00004640  34 3d 73 66 25 2b 38 34  0d 21 a2 19 f2 77 7a 28  |4=sf%+84.!...wz(|
00004650  73 6e 61 6d 65 24 2c 61  74 25 2b 31 36 2c 32 30  |sname$,at%+16,20|
00004660  29 0d 21 ac 0e 61 74 25  21 34 34 3d 32 35 35 0d  |).!..at%!44=255.|
00004670  21 b6 0c 61 74 25 21 38  30 3d 32 0d 21 c0 0c 61  |!..at%!80=2.!..a|
00004680  74 25 21 36 38 3d 30 0d  21 ca 0e 61 74 25 21 35  |t%!68=0.!..at%!5|
00004690  36 3d 73 66 25 0d 21 d4  0e 61 74 25 21 38 38 3d  |6=sf%.!..at%!88=|
000046a0  73 66 25 0d 21 de 0f c8  8e 20 73 74 79 70 65 25  |sf%.!.... stype%|
000046b0  20 ca 0d 21 e8 08 c9 20  31 3a 0d 21 f2 08 41 25  | ..!... 1:.!..A%|
000046c0  3d 35 0d 21 fc 0d 42 25  3d 61 74 25 2b 39 32 0d  |=5.!..B%=at%+92.|
000046d0  22 06 0a 43 25 3d 73 66  25 0d 22 10 08 44 25 3d  |"..C%=sf%."..D%=|
000046e0  30 0d 22 1a 09 d6 20 74  63 25 0d 22 24 0c c9 20  |0."... tc%."$.. |
000046f0  32 2c 36 2c 37 3a 0d 22  2e 08 41 25 3d 35 0d 22  |2,6,7:."..A%=5."|
00004700  38 0d 42 25 3d 61 74 25  2b 39 32 0d 22 42 0a 43  |8.B%=at%+92."B.C|
00004710  25 3d 73 66 25 0d 22 4c  08 44 25 3d 31 0d 22 56  |%=sf%."L.D%=1."V|
00004720  09 d6 20 74 63 25 0d 22  60 0c c9 20 33 2c 34 2c  |.. tc%."`.. 3,4,|
00004730  35 3a 0d 22 6a 08 41 25  3d 35 0d 22 74 0d 42 25  |5:."j.A%=5."t.B%|
00004740  3d 61 74 25 2b 39 32 0d  22 7e 0a 43 25 3d 73 66  |=at%+92."~.C%=sf|
00004750  25 0d 22 88 0f 44 25 3d  73 74 79 70 65 25 2d 31  |%."..D%=stype%-1|
00004760  0d 22 92 09 d6 20 74 63  25 0d 22 9c 05 cb 0d 22  |."... tc%."...."|
00004770  a6 10 f2 72 65 61 64 73  61 6d 70 6c 65 73 0d 22  |...readsamples."|
00004780  b0 15 f2 77 72 69 74 65  73 61 6d 70 6c 65 6e 61  |...writesamplena|
00004790  6d 65 73 0d 22 ba 05 e1  0d 22 c4 05 3a 0d 22 ce  |mes."...."..:.".|
000047a0  12 dd f2 77 7a 28 77 24  2c 61 25 2c 6c 25 29 0d  |...wz(w$,a%,l%).|
000047b0  22 d8 0f e3 20 63 25 3d  31 20 b8 20 6c 25 0d 22  |"... c%=1 . l%."|
000047c0  e2 08 62 25 3d 30 0d 22  ec 21 e7 20 63 25 3c 3d  |..b%=0.".!. c%<=|
000047d0  a9 28 77 24 29 20 8c 20  62 25 3d 97 28 c1 77 24  |.(w$) . b%=.(.w$|
000047e0  2c 63 25 2c 31 29 29 0d  22 f6 10 61 25 3f 28 63  |,c%,1))."..a%?(c|
000047f0  25 2d 31 29 3d 62 25 0d  23 00 05 ed 0d 23 0a 05  |%-1)=b%.#....#..|
00004800  e1 0d 23 14 05 3a 0d 23  1e 11 dd f2 65 64 69 74  |..#..:.#....edit|
00004810  74 72 61 63 6b 65 72 0d  23 28 17 e7 20 74 75 6e  |tracker.#(.. tun|
00004820  65 6c 6f 61 64 65 64 25  3d a3 20 8c 20 e1 0d 23  |eloaded%=. . ..#|
00004830  32 10 e7 20 70 6c 61 79  69 6e 67 25 20 8c 0d 23  |2.. playing% ..#|
00004840  3c 09 41 25 3d 31 32 0d  23 46 0b 42 25 3d 70 6f  |<.A%=12.#F.B%=po|
00004850  73 25 0d 23 50 0d 43 25  3d 65 76 65 6e 74 25 0d  |s%.#P.C%=event%.|
00004860  23 5a 09 d6 20 74 63 25  0d 23 64 05 cd 0d 23 6e  |#Z.. tc%.#d...#n|
00004870  0d f2 73 74 6f 70 74 75  6e 65 0d 23 78 12 f2 72  |..stoptune.#x..r|
00004880  65 77 72 69 74 65 73 74  65 72 65 6f 0d 23 82 11  |ewritestereo.#..|
00004890  f2 72 65 77 72 69 74 65  6e 61 6d 65 73 0d 23 8c  |.rewritenames.#.|
000048a0  0e 6f 6c 64 6d 6f 64 65  25 3d eb 0d 23 96 08 eb  |.oldmode%=..#...|
000048b0  20 31 35 0d 23 a0 0a 41  25 3d 74 74 25 0d 23 aa  | 15.#..A%=tt%.#.|
000048c0  08 42 25 3d 30 0d 23 b4  18 e7 20 6a 75 73 74 6c  |.B%=0.#... justl|
000048d0  6f 61 64 65 64 25 20 8c  20 42 25 3d 31 0d 23 be  |oaded% . B%=1.#.|
000048e0  0b d6 20 74 63 25 2b 34  0d 23 c8 0c 2a 46 58 20  |.. tc%+4.#..*FX |
000048f0  31 35 2c 30 0d 23 d2 1e  c8 99 20 22 57 69 6d 70  |15,0.#.... "Wimp|
00004900  5f 53 65 74 4d 6f 64 65  22 2c 6f 6c 64 6d 6f 64  |_SetMode",oldmod|
00004910  65 25 0d 23 dc 12 f2 72  65 61 64 6d 75 73 69 63  |e%.#...readmusic|
00004920  64 61 74 61 0d 23 e6 10  f2 72 65 61 64 73 61 6d  |data.#...readsam|
00004930  70 6c 65 73 0d 23 f0 0f  f2 75 70 64 61 74 65 73  |ples.#...updates|
00004940  69 7a 65 0d 23 fa 15 f2  77 72 69 74 65 73 61 6d  |ize.#...writesam|
00004950  70 6c 65 6e 61 6d 65 73  0d 24 04 0d f2 74 75 6e  |plenames.$...tun|
00004960  65 69 6e 66 6f 0d 24 0e  0d f2 6d 69 6e 69 6d 69  |einfo.$...minimi|
00004970  73 65 0d 24 18 11 6a 75  73 74 6c 6f 61 64 65 64  |se.$..justloaded|
00004980  25 3d a3 0d 24 22 16 c8  99 20 22 4f 53 5f 42 79  |%=..$"... "OS_By|
00004990  74 65 22 2c 34 2c 32 2c  30 0d 24 2c 05 e1 0d 24  |te",4,2,0.$,...$|
000049a0  36 05 3a 0d 24 40 19 dd  f2 6e 6f 74 65 6e 6f 75  |6.:.$@...notenou|
000049b0  67 68 74 6f 6c 6f 61 64  28 74 24 29 0d 24 4a 11  |ghtoload(t$).$J.|
000049c0  f2 72 65 74 75 72 6e 6d  65 6d 6f 72 79 0d 24 54  |.returnmemory.$T|
000049d0  0d f2 63 6c 6f 73 65 61  6c 6c 0d 24 5e 2b 85 20  |..closeall.$^+. |
000049e0  31 37 2c 22 49 6e 73 75  66 66 69 63 69 65 6e 74  |17,"Insufficient|
000049f0  20 4d 65 6d 6f 72 79 20  41 76 61 69 6c 61 62 6c  | Memory Availabl|
00004a00  65 22 2b 74 24 0d 24 68  05 e1 0d 24 72 05 3a 0d  |e"+t$.$h...$r.:.|
00004a10  24 7c 12 dd f2 72 65 74  75 72 6e 6d 65 6d 6f 72  |$|...returnmemor|
00004a20  79 0d 24 86 23 c8 99 20  22 58 57 69 6d 70 5f 53  |y.$.#.. "XWimp_S|
00004a30  6c 6f 74 53 69 7a 65 22  2c 61 70 70 73 69 7a 65  |lotSize",appsize|
00004a40  25 2c 2d 31 0d 24 90 11  74 75 6e 65 6c 6f 61 64  |%,-1.$..tuneload|
00004a50  65 64 25 3d a3 0d 24 9a  05 e1 0d 24 a4 05 3a 0d  |ed%=..$....$..:.|
00004a60  24 ae 16 dd a4 67 72 61  62 6d 65 6d 28 61 6d 6f  |$....grabmem(amo|
00004a70  75 6e 74 25 29 0d 24 b8  16 6f 6c 64 61 6d 6f 75  |unt%).$..oldamou|
00004a80  6e 74 25 3d 61 6d 6f 75  6e 74 25 0d 24 c2 24 e7  |nt%=amount%.$.$.|
00004a90  20 61 6d 6f 75 6e 74 25  3c 3d 66 6d 25 20 8c 20  | amount%<=fm% . |
00004aa0  66 6d 25 2d 3d 61 6d 6f  75 6e 74 25 3a 3d b9 0d  |fm%-=amount%:=..|
00004ab0  24 cc 05 f5 0d 24 d6 20  67 72 61 62 61 62 6c 65  |$....$. grabable|
00004ac0  25 3d a4 67 72 61 62 6d  65 6d 32 28 33 32 2a 31  |%=.grabmem2(32*1|
00004ad0  30 32 34 29 0d 24 e0 11  e7 20 67 72 61 62 61 62  |024).$... grabab|
00004ae0  6c 65 25 20 8c 0d 24 ea  10 66 6d 25 2b 3d 33 32  |le% ..$..fm%+=32|
00004af0  2a 31 30 32 34 0d 24 f4  14 61 6d 6f 75 6e 74 25  |*1024.$..amount%|
00004b00  2d 3d 33 32 2a 31 30 32  34 0d 24 fe 05 cd 0d 25  |-=32*1024.$....%|
00004b10  08 1e fd 20 61 6d 6f 75  6e 74 25 3c 30 20 84 20  |... amount%<0 . |
00004b20  ac 28 67 72 61 62 61 62  6c 65 25 29 0d 25 12 21  |.(grabable%).%.!|
00004b30  e7 20 61 6d 6f 75 6e 74  25 3c 30 20 8c 20 66 6d  |. amount%<0 . fm|
00004b40  25 2d 3d 6f 6c 64 61 6d  6f 75 6e 74 25 0d 25 1c  |%-=oldamount%.%.|
00004b50  0e 3d 67 72 61 62 61 62  6c 65 25 0d 25 26 05 3a  |.=grabable%.%&.:|
00004b60  0d 25 30 17 dd a4 67 72  61 62 6d 65 6d 32 28 61  |.%0...grabmem2(a|
00004b70  6d 6f 75 6e 74 25 29 0d  25 3a 25 c8 99 20 22 58  |mount%).%:%.. "X|
00004b80  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 2d  |Wimp_SlotSize",-|
00004b90  31 2c 2d 31 20 b8 20 73  69 7a 65 25 0d 25 44 28  |1,-1 . size%.%D(|
00004ba0  c8 99 20 22 58 57 69 6d  70 5f 53 6c 6f 74 53 69  |.. "XWimp_SlotSi|
00004bb0  7a 65 22 2c 73 69 7a 65  25 2b 61 6d 6f 75 6e 74  |ze",size%+amount|
00004bc0  25 2c 2d 31 0d 25 4e 26  c8 99 20 22 58 57 69 6d  |%,-1.%N&.. "XWim|
00004bd0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00004be0  31 20 b8 20 73 69 7a 65  32 25 0d 25 58 1c e7 20  |1 . size2%.%X.. |
00004bf0  73 69 7a 65 32 25 3c 73  69 7a 65 25 2b 61 6d 6f  |size2%<size%+amo|
00004c00  75 6e 74 25 20 8c 0d 25  62 20 c8 99 20 22 58 57  |unt% ..%b .. "XW|
00004c10  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 73 69  |imp_SlotSize",si|
00004c20  7a 65 25 2c 2d 31 0d 25  6c 05 cd 0d 25 76 24 e7  |ze%,-1.%l...%v$.|
00004c30  20 73 69 7a 65 32 25 3c  73 69 7a 65 25 2b 61 6d  | size2%<size%+am|
00004c40  6f 75 6e 74 25 20 8c 20  3d a3 20 8b 20 3d b9 0d  |ount% . =. . =..|
00004c50  25 80 05 3a 0d 25 8a 12  dd f2 67 65 74 6d 75 73  |%..:.%....getmus|
00004c60  69 63 69 6e 66 6f 0d 25  94 12 f2 72 65 61 64 6d  |icinfo.%...readm|
00004c70  75 73 69 63 64 61 74 61  0d 25 9e 10 f2 72 65 61  |usicdata.%...rea|
00004c80  64 73 61 6d 70 6c 65 73  0d 25 a8 11 f2 72 65 61  |dsamples.%...rea|
00004c90  64 70 61 74 74 65 72 6e  73 0d 25 b2 05 e1 0d 25  |dpatterns.%....%|
00004ca0  bc 05 3a 0d 25 c6 0e dd  f2 74 75 6e 65 69 6e 66  |..:.%....tuneinf|
00004cb0  6f 0d 25 d0 1a f2 73 28  74 75 6e 65 69 6e 66 6f  |o.%...s(tuneinfo|
00004cc0  25 2c 37 2c 6d 6e 61 6d  65 24 29 0d 25 da 1a f2  |%,7,mname$).%...|
00004cd0  73 28 74 75 6e 65 69 6e  66 6f 25 2c 38 2c 61 6e  |s(tuneinfo%,8,an|
00004ce0  61 6d 65 24 29 0d 25 e4  20 f2 73 28 74 75 6e 65  |ame$).%. .s(tune|
00004cf0  69 6e 66 6f 25 2c 39 2c  c3 28 70 61 74 74 65 72  |info%,9,.(patter|
00004d00  6e 73 25 29 29 0d 25 ee  1f f2 73 28 74 75 6e 65  |ns%)).%...s(tune|
00004d10  69 6e 66 6f 25 2c 31 34  2c c3 28 76 6f 69 63 65  |info%,14,.(voice|
00004d20  73 25 29 29 0d 25 f8 1f  f2 73 28 74 75 6e 65 69  |s%)).%...s(tunei|
00004d30  6e 66 6f 25 2c 31 35 2c  c3 28 73 65 71 6c 65 6e  |nfo%,15,.(seqlen|
00004d40  25 29 29 0d 26 02 0f f2  75 70 64 61 74 65 73 69  |%)).&...updatesi|
00004d50  7a 65 0d 26 0c 05 e1 0d  26 16 05 3a 0d 26 20 16  |ze.&....&..:.& .|
00004d60  dd f2 77 72 69 74 65 73  61 6d 70 6c 65 6e 61 6d  |..writesamplenam|
00004d70  65 73 0d 26 2a 14 e3 20  73 61 6d 70 6c 65 25 3d  |es.&*.. sample%=|
00004d80  31 20 b8 20 33 36 0d 26  34 15 69 63 6f 6e 25 3d  |1 . 36.&4.icon%=|
00004d90  73 61 6d 70 6c 65 25 2b  31 30 37 0d 26 3e 1b 73  |sample%+107.&>.s|
00004da0  6e 61 6d 65 24 3d 73 61  6d 70 6c 65 24 28 73 61  |name$=sample$(sa|
00004db0  6d 70 6c 65 25 29 0d 26  48 18 73 6c 65 6e 25 3d  |mple%).&H.slen%=|
00004dc0  73 6c 65 6e 25 28 73 61  6d 70 6c 65 25 29 0d 26  |slen%(sample%).&|
00004dd0  52 12 73 6c 65 6e 24 3d  c3 28 73 6c 65 6e 25 29  |R.slen$=.(slen%)|
00004de0  0d 26 5c 18 e7 20 73 6c  65 6e 25 3d 30 20 8c 20  |.&\.. slen%=0 . |
00004df0  73 6c 65 6e 24 3d 22 22  0d 26 66 20 73 6c 65 6e  |slen$="".&f slen|
00004e00  24 3d c4 35 2d a9 28 73  6c 65 6e 24 29 2c 22 20  |$=.5-.(slen$)," |
00004e10  22 29 2b 73 6c 65 6e 24  0d 26 70 24 73 6e 61 6d  |")+slen$.&p$snam|
00004e20  65 24 3d 73 6e 61 6d 65  24 2b c4 32 32 2d a9 28  |e$=sname$+.22-.(|
00004e30  73 6e 61 6d 65 24 29 2c  22 20 22 29 0d 26 7a 27  |sname$)," ").&z'|
00004e40  f2 73 28 73 61 6d 70 6c  65 73 25 2c 69 63 6f 6e  |.s(samples%,icon|
00004e50  25 2c 73 6e 61 6d 65 24  2b 22 20 22 2b 73 6c 65  |%,sname$+" "+sle|
00004e60  6e 24 29 0d 26 84 05 ed  0d 26 8e 05 e1 0d 26 98  |n$).&....&....&.|
00004e70  05 3a 0d 26 a2 1a dd a4  66 28 73 74 61 72 74 25  |.:.&....f(start%|
00004e80  2c 65 6e 64 25 2c 77 6f  72 64 25 29 0d 26 ac 0d  |,end%,word%).&..|
00004e90  41 25 3d 73 74 61 72 74  25 0d 26 b6 0b 42 25 3d  |A%=start%.&..B%=|
00004ea0  65 6e 64 25 0d 26 c0 05  f5 0d 26 ca 0a 43 25 3d  |end%.&....&..C%=|
00004eb0  21 41 25 0d 26 d4 0b 44  25 3d 41 25 21 34 0d 26  |!A%.&..D%=A%!4.&|
00004ec0  de 09 41 25 2b 3d 38 0d  26 e8 18 e7 20 43 25 3c  |..A%+=8.&... C%<|
00004ed0  3e 77 6f 72 64 25 20 8c  20 41 25 2b 3d 44 25 0d  |>word% . A%+=D%.|
00004ee0  26 f2 16 fd 20 41 25 3e  42 25 20 84 20 43 25 3d  |&... A%>B% . C%=|
00004ef0  77 6f 72 64 25 0d 26 fc  14 e7 20 43 25 3d 77 6f  |word%.&... C%=wo|
00004f00  72 64 25 20 8c 20 3d 41  25 0d 27 06 06 3d a3 0d  |rd% . =A%.'..=..|
00004f10  27 10 05 3a 0d 27 1a 11  dd a4 77 6f 72 64 28 77  |'..:.'....word(w|
00004f20  6f 72 64 24 29 0d 27 24  0b 77 6f 72 64 25 3d 30  |ord$).'$.word%=0|
00004f30  0d 27 2e 11 e3 20 62 79  74 65 25 3d 31 20 b8 20  |.'... byte%=1 . |
00004f40  34 0d 27 38 1d 61 73 63  25 3d 97 28 c1 77 6f 72  |4.'8.asc%=.(.wor|
00004f50  64 24 2c 35 2d 62 79 74  65 25 2c 31 29 29 0d 27  |d$,5-byte%,1)).'|
00004f60  42 19 77 6f 72 64 25 3d  28 77 6f 72 64 25 3c 3c  |B.word%=(word%<<|
00004f70  38 29 2b 61 73 63 25 0d  27 4c 05 ed 0d 27 56 0a  |8)+asc%.'L...'V.|
00004f80  3d 77 6f 72 64 25 0d 27  60 05 3a 0d 27 6a 13 dd  |=word%.'`.:.'j..|
00004f90  f2 72 65 61 64 6d 75 73  69 63 64 61 74 61 0d 27  |.readmusicdata.'|
00004fa0  74 11 61 62 73 73 74 61  72 74 25 3d 74 74 25 0d  |t.absstart%=tt%.|
00004fb0  27 7e 19 61 62 73 65 6e  64 25 3d 74 74 25 2b 28  |'~.absend%=tt%+(|
00004fc0  74 74 25 21 34 29 2b 38  0d 27 88 10 61 62 73 73  |tt%!4)+8.'..abss|
00004fd0  74 61 72 74 25 2b 3d 38  0d 27 92 17 6d 6c 65 6e  |tart%+=8.'..mlen|
00004fe0  25 3d a4 77 6f 72 64 28  22 4d 4c 45 4e 22 29 0d  |%=.word("MLEN").|
00004ff0  27 9c 17 6d 76 6f 78 25  3d a4 77 6f 72 64 28 22  |'..mvox%=.word("|
00005000  4d 56 4f 58 22 29 0d 27  a6 17 70 6e 75 6d 25 3d  |MVOX").'..pnum%=|
00005010  a4 77 6f 72 64 28 22 50  4e 55 4d 22 29 0d 27 b0  |.word("PNUM").'.|
00005020  17 6d 6e 61 6d 25 3d a4  77 6f 72 64 28 22 4d 4e  |.mnam%=.word("MN|
00005030  41 4d 22 29 0d 27 ba 17  61 6e 61 6d 25 3d a4 77  |AM").'..anam%=.w|
00005040  6f 72 64 28 22 41 4e 41  4d 22 29 0d 27 c4 17 70  |ord("ANAM").'..p|
00005050  6c 65 6e 25 3d a4 77 6f  72 64 28 22 50 4c 45 4e  |len%=.word("PLEN|
00005060  22 29 0d 27 ce 17 73 74  65 72 25 3d a4 77 6f 72  |").'..ster%=.wor|
00005070  64 28 22 53 54 45 52 22  29 0d 27 d8 17 73 65 71  |d("STER").'..seq|
00005080  75 25 3d a4 77 6f 72 64  28 22 53 45 51 55 22 29  |u%=.word("SEQU")|
00005090  0d 27 e2 29 6d 6c 65 6e  61 64 64 72 25 3d a4 66  |.'.)mlenaddr%=.f|
000050a0  28 61 62 73 73 74 61 72  74 25 2c 61 62 73 65 6e  |(absstart%,absen|
000050b0  64 25 2c 6d 6c 65 6e 25  29 0d 27 ec 16 73 65 71  |d%,mlen%).'..seq|
000050c0  6c 65 6e 25 3d 21 6d 6c  65 6e 61 64 64 72 25 0d  |len%=!mlenaddr%.|
000050d0  27 f6 29 6d 76 6f 78 61  64 64 72 25 3d a4 66 28  |'.)mvoxaddr%=.f(|
000050e0  61 62 73 73 74 61 72 74  25 2c 61 62 73 65 6e 64  |absstart%,absend|
000050f0  25 2c 6d 76 6f 78 25 29  0d 28 00 16 76 6f 69 63  |%,mvox%).(..voic|
00005100  65 73 25 3d 21 6d 76 6f  78 61 64 64 72 25 0d 28  |es%=!mvoxaddr%.(|
00005110  0a 29 73 74 65 72 61 64  64 72 25 3d a4 66 28 61  |.)steraddr%=.f(a|
00005120  62 73 73 74 61 72 74 25  2c 61 62 73 65 6e 64 25  |bsstart%,absend%|
00005130  2c 73 74 65 72 25 29 0d  28 14 29 70 6e 75 6d 61  |,ster%).(.)pnuma|
00005140  64 64 72 25 3d a4 66 28  61 62 73 73 74 61 72 74  |ddr%=.f(absstart|
00005150  25 2c 61 62 73 65 6e 64  25 2c 70 6e 75 6d 25 29  |%,absend%,pnum%)|
00005160  0d 28 1e 18 70 61 74 74  65 72 6e 73 25 3d 21 70  |.(..patterns%=!p|
00005170  6e 75 6d 61 64 64 72 25  0d 28 28 29 6d 6e 61 6d  |numaddr%.(()mnam|
00005180  61 64 64 72 25 3d a4 66  28 61 62 73 73 74 61 72  |addr%=.f(absstar|
00005190  74 25 2c 61 62 73 65 6e  64 25 2c 6d 6e 61 6d 25  |t%,absend%,mnam%|
000051a0  29 0d 28 32 29 61 6e 61  6d 61 64 64 72 25 3d a4  |).(2)anamaddr%=.|
000051b0  66 28 61 62 73 73 74 61  72 74 25 2c 61 62 73 65  |f(absstart%,abse|
000051c0  6e 64 25 2c 61 6e 61 6d  25 29 0d 28 3c 29 61 6e  |nd%,anam%).(<)an|
000051d0  61 6d 65 24 3d a4 73 74  72 69 6e 67 77 69 74 68  |ame$=.stringwith|
000051e0  6c 69 6d 69 74 28 61 6e  61 6d 61 64 64 72 25 2c  |limit(anamaddr%,|
000051f0  33 32 29 0d 28 46 29 6d  6e 61 6d 65 24 3d a4 73  |32).(F)mname$=.s|
00005200  74 72 69 6e 67 77 69 74  68 6c 69 6d 69 74 28 6d  |tringwithlimit(m|
00005210  6e 61 6d 61 64 64 72 25  2c 33 32 29 0d 28 50 28  |namaddr%,32).(P(|
00005220  70 61 74 74 6c 65 6e 25  3d a4 66 28 61 62 73 73  |pattlen%=.f(abss|
00005230  74 61 72 74 25 2c 61 62  73 65 6e 64 25 2c 70 6c  |tart%,absend%,pl|
00005240  65 6e 25 29 0d 28 5a 28  73 65 71 61 64 64 72 25  |en%).(Z(seqaddr%|
00005250  3d a4 66 28 61 62 73 73  74 61 72 74 25 2c 61 62  |=.f(absstart%,ab|
00005260  73 65 6e 64 25 2c 73 65  71 75 25 29 0d 28 64 05  |send%,sequ%).(d.|
00005270  e1 0d 28 6e 05 3a 0d 28  78 11 dd f2 72 65 61 64  |..(n.:.(x...read|
00005280  73 61 6d 70 6c 65 73 0d  28 82 11 61 62 73 73 74  |samples.(..absst|
00005290  61 72 74 25 3d 74 74 25  0d 28 8c 19 61 62 73 65  |art%=tt%.(..abse|
000052a0  6e 64 25 3d 74 74 25 2b  28 74 74 25 21 34 29 2b  |nd%=tt%+(tt%!4)+|
000052b0  38 0d 28 96 10 61 62 73  73 74 61 72 74 25 2b 3d  |8.(..absstart%+=|
000052c0  38 0d 28 a0 17 73 61 6d  70 25 3d a4 77 6f 72 64  |8.(..samp%=.word|
000052d0  28 22 53 41 4d 50 22 29  0d 28 aa 17 73 6e 61 6d  |("SAMP").(..snam|
000052e0  25 3d a4 77 6f 72 64 28  22 53 4e 41 4d 22 29 0d  |%=.word("SNAM").|
000052f0  28 b4 17 73 6c 65 6e 25  3d a4 77 6f 72 64 28 22  |(..slen%=.word("|
00005300  53 4c 45 4e 22 29 0d 28  be 17 73 76 6f 6c 25 3d  |SLEN").(..svol%=|
00005310  a4 77 6f 72 64 28 22 53  56 4f 4c 22 29 0d 28 c8  |.word("SVOL").(.|
00005320  14 73 74 61 72 74 25 3d  61 62 73 73 74 61 72 74  |.start%=absstart|
00005330  25 0d 28 d2 12 e3 20 69  6e 73 74 25 3d 31 20 b8  |%.(... inst%=1 .|
00005340  20 33 36 0d 28 dc 28 73  61 6d 70 6c 65 61 64 64  | 36.(.(sampleadd|
00005350  72 25 3d a4 66 28 73 74  61 72 74 25 2c 61 62 73  |r%=.f(start%,abs|
00005360  65 6e 64 25 2c 73 61 6d  70 25 29 0d 28 e6 22 73  |end%,samp%).(."s|
00005370  61 6d 70 61 64 64 72 25  28 69 6e 73 74 25 29 3d  |ampaddr%(inst%)=|
00005380  73 61 6d 70 6c 65 61 64  64 72 25 2d 38 0d 28 f0  |sampleaddr%-8.(.|
00005390  1b 73 65 61 72 63 68 61  64 64 72 25 3d 73 61 6d  |.searchaddr%=sam|
000053a0  70 6c 65 61 64 64 72 25  0d 28 fa 2b 73 6e 61 6d  |pleaddr%.(.+snam|
000053b0  61 64 64 72 25 3d a4 66  28 73 65 61 72 63 68 61  |addr%=.f(searcha|
000053c0  64 64 72 25 2c 61 62 73  65 6e 64 25 2c 73 6e 61  |ddr%,absend%,sna|
000053d0  6d 25 29 0d 29 04 31 73  61 6d 70 6c 65 24 28 69  |m%).).1sample$(i|
000053e0  6e 73 74 25 29 3d a4 73  74 72 69 6e 67 77 69 74  |nst%)=.stringwit|
000053f0  68 6c 69 6d 69 74 28 73  6e 61 6d 61 64 64 72 25  |hlimit(snamaddr%|
00005400  2c 32 30 29 0d 29 0e 2b  73 6c 65 6e 61 64 64 72  |,20).).+slenaddr|
00005410  25 3d a4 66 28 73 65 61  72 63 68 61 64 64 72 25  |%=.f(searchaddr%|
00005420  2c 61 62 73 65 6e 64 25  2c 73 6c 65 6e 25 29 0d  |,absend%,slen%).|
00005430  29 18 0b e7 20 32 3d 33  20 8c 0d 29 22 27 73 6c  |)... 2=3 ..)"'sl|
00005440  65 6e 25 28 69 6e 73 74  25 29 3d 34 2a 28 28 21  |en%(inst%)=4*((!|
00005450  73 6c 65 6e 61 64 64 72  25 2b 33 29 20 81 20 34  |slenaddr%+3) . 4|
00005460  29 0d 29 2c 1b 21 73 6c  65 6e 61 64 64 72 25 3d  |).),.!slenaddr%=|
00005470  73 6c 65 6e 25 28 69 6e  73 74 25 29 0d 29 36 05  |slen%(inst%).)6.|
00005480  cc 0d 29 40 1b 73 6c 65  6e 25 28 69 6e 73 74 25  |..)@.slen%(inst%|
00005490  29 3d 21 73 6c 65 6e 61  64 64 72 25 0d 29 4a 05  |)=!slenaddr%.)J.|
000054a0  cd 0d 29 54 32 73 76 6f  6c 61 64 64 72 25 28 69  |..)T2svoladdr%(i|
000054b0  6e 73 74 25 29 3d a4 66  28 73 65 61 72 63 68 61  |nst%)=.f(searcha|
000054c0  64 64 72 25 2c 61 62 73  65 6e 64 25 2c 73 76 6f  |ddr%,absend%,svo|
000054d0  6c 25 29 0d 29 5e 27 73  74 61 72 74 25 3d 73 61  |l%).)^'start%=sa|
000054e0  6d 70 6c 65 61 64 64 72  25 2b 21 28 73 61 6d 70  |mpleaddr%+!(samp|
000054f0  6c 65 61 64 64 72 25 2d  34 29 0d 29 68 05 ed 0d  |leaddr%-4).)h...|
00005500  29 72 05 e1 0d 29 7c 05  3a 0d 29 86 12 dd f2 72  |)r...)|.:.)....r|
00005510  65 61 64 70 61 74 74 65  72 6e 73 0d 29 90 15 ea  |eadpatterns.)...|
00005520  20 73 74 61 72 74 25 2c  70 61 74 74 65 72 6e 25  | start%,pattern%|
00005530  0d 29 9a 11 61 62 73 73  74 61 72 74 25 3d 74 74  |.)..absstart%=tt|
00005540  25 0d 29 a4 19 61 62 73  65 6e 64 25 3d 74 74 25  |%.)..absend%=tt%|
00005550  2b 28 74 74 25 21 34 29  2b 38 0d 29 ae 10 61 62  |+(tt%!4)+8.)..ab|
00005560  73 73 74 61 72 74 25 2b  3d 38 0d 29 b8 14 73 74  |sstart%+=8.)..st|
00005570  61 72 74 25 3d 61 62 73  73 74 61 72 74 25 0d 29  |art%=absstart%.)|
00005580  c2 17 70 61 74 74 25 3d  a4 77 6f 72 64 28 22 50  |..patt%=.word("P|
00005590  41 54 54 22 29 0d 29 cc  1c e3 20 70 61 74 74 65  |ATT").)... patte|
000055a0  72 6e 25 3d 31 20 b8 20  70 61 74 74 65 72 6e 73  |rn%=1 . patterns|
000055b0  25 0d 29 d6 30 70 61 74  74 61 64 64 72 25 28 70  |%.).0pattaddr%(p|
000055c0  61 74 74 65 72 6e 25 29  3d a4 66 28 73 74 61 72  |attern%)=.f(star|
000055d0  74 25 2c 61 62 73 65 6e  64 25 2c 70 61 74 74 25  |t%,absend%,patt%|
000055e0  29 0d 29 e0 37 73 74 61  72 74 25 3d 70 61 74 74  |).).7start%=patt|
000055f0  61 64 64 72 25 28 70 61  74 74 65 72 6e 25 29 2b  |addr%(pattern%)+|
00005600  21 28 70 61 74 74 61 64  64 72 25 28 70 61 74 74  |!(pattaddr%(patt|
00005610  65 72 6e 25 29 2d 34 29  0d 29 ea 05 ed 0d 29 f4  |ern%)-4).)....).|
00005620  05 e1 0d 29 fe 05 3a 0d  2a 08 10 dd f2 6e 65 77  |...)..:.*....new|
00005630  70 61 74 74 65 72 6e 0d  2a 12 16 e7 20 70 61 74  |pattern.*... pat|
00005640  74 65 72 6e 73 25 3d 36  34 20 8c 20 e1 0d 2a 1c  |terns%=64 . ..*.|
00005650  1e f2 6d 61 6b 65 73 65  6c 65 63 74 65 64 28 74  |..makeselected(t|
00005660  75 6e 65 69 6e 66 6f 25  2c 36 29 0d 2a 26 1e 65  |uneinfo%,6).*&.e|
00005670  61 63 68 70 61 74 25 3d  34 2a 70 61 74 6c 65 6e  |achpat%=4*patlen|
00005680  25 2a 76 6f 69 63 65 73  25 0d 2a 30 42 73 74 61  |%*voices%.*0Bsta|
00005690  72 74 25 3d 70 61 74 74  61 64 64 72 25 28 70 61  |rt%=pattaddr%(pa|
000056a0  74 74 65 72 6e 73 25 29  2b 28 34 2a 76 6f 69 63  |tterns%)+(4*voic|
000056b0  65 73 25 2a 70 61 74 74  6c 65 6e 25 3f 28 70 61  |es%*pattlen%?(pa|
000056c0  74 74 65 72 6e 73 25 2d  31 29 29 0d 2a 3a 27 e7  |tterns%-1)).*:'.|
000056d0  20 a4 69 6e 73 65 72 74  62 79 74 65 73 28 73 74  | .insertbytes(st|
000056e0  61 72 74 25 2c 65 61 63  68 70 61 74 25 2b 38 29  |art%,eachpat%+8)|
000056f0  20 8c 0d 2a 44 1a 73 74  61 72 74 25 21 30 3d a4  | ..*D.start%!0=.|
00005700  77 6f 72 64 28 22 50 41  54 54 22 29 0d 2a 4e 15  |word("PATT").*N.|
00005710  73 74 61 72 74 25 21 34  3d 65 61 63 68 70 61 74  |start%!4=eachpat|
00005720  25 0d 2a 58 0d 73 74 61  72 74 25 2b 3d 38 0d 2a  |%.*X.start%+=8.*|
00005730  62 1e e3 20 77 6f 72 64  25 3d 30 20 b8 20 28 65  |b.. word%=0 . (e|
00005740  61 63 68 70 61 74 25 2f  34 29 2d 31 0d 2a 6c 16  |achpat%/4)-1.*l.|
00005750  73 74 61 72 74 25 21 28  77 6f 72 64 25 2a 34 29  |start%!(word%*4)|
00005760  3d 30 0d 2a 76 05 ed 0d  2a 80 1e 70 61 74 74 6c  |=0.*v...*..pattl|
00005770  65 6e 25 3f 70 61 74 74  65 72 6e 73 25 3d 70 61  |en%?patterns%=pa|
00005780  74 6c 65 6e 25 0d 2a 8a  10 70 61 74 74 65 72 6e  |tlen%.*..pattern|
00005790  73 25 2b 3d 31 0d 2a 94  18 21 70 6e 75 6d 61 64  |s%+=1.*..!pnumad|
000057a0  64 72 25 3d 70 61 74 74  65 72 6e 73 25 0d 2a 9e  |dr%=patterns%.*.|
000057b0  11 f2 67 65 74 6d 75 73  69 63 69 6e 66 6f 0d 2a  |..getmusicinfo.*|
000057c0  a8 05 cd 0d 2a b2 20 f2  6d 61 6b 65 75 6e 73 65  |....*. .makeunse|
000057d0  6c 65 63 74 65 64 28 74  75 6e 65 69 6e 66 6f 25  |lected(tuneinfo%|
000057e0  2c 36 29 0d 2a bc 0d f2  74 75 6e 65 69 6e 66 6f  |,6).*...tuneinfo|
000057f0  0d 2a c6 05 e1 0d 2a d0  05 3a 0d 2a da 22 dd a4  |.*....*..:.*."..|
00005800  69 6e 73 65 72 74 62 79  74 65 73 28 77 68 65 72  |insertbytes(wher|
00005810  65 25 2c 68 6f 77 6d 61  6e 79 25 29 0d 2a e4 20  |e%,howmany%).*. |
00005820  e7 20 ac 28 a4 67 72 61  62 6d 65 6d 28 68 6f 77  |. .(.grabmem(how|
00005830  6d 61 6e 79 25 29 29 20  8c 20 3d a3 0d 2a ee 17  |many%)) . =..*..|
00005840  66 72 6f 6d 25 3d 74 74  25 2b 74 74 25 21 34 2b  |from%=tt%+tt%!4+|
00005850  38 2d 31 0d 2a f8 16 74  6f 25 3d 66 72 6f 6d 25  |8-1.*..to%=from%|
00005860  2b 68 6f 77 6d 61 6e 79  25 0d 2b 02 16 63 6f 70  |+howmany%.+..cop|
00005870  79 25 3d 66 72 6f 6d 25  2d 77 68 65 72 65 25 0d  |y%=from%-where%.|
00005880  2b 0c 0c 41 25 3d 66 72  6f 6d 25 0d 2b 16 0a 42  |+..A%=from%.+..B|
00005890  25 3d 74 6f 25 0d 2b 20  0e 43 25 3d 63 6f 70 79  |%=to%.+ .C%=copy|
000058a0  25 2b 31 0d 2b 2a 18 e7  20 43 25 3e 30 20 d6 20  |%+1.+*.. C%>0 . |
000058b0  69 6e 73 65 72 74 62 79  74 65 73 0d 2b 34 13 74  |insertbytes.+4.t|
000058c0  74 25 21 34 2b 3d 68 6f  77 6d 61 6e 79 25 0d 2b  |t%!4+=howmany%.+|
000058d0  3e 06 3d b9 0d 2b 48 05  3a 0d 2b 52 22 dd a4 64  |>.=..+H.:.+R"..d|
000058e0  65 6c 65 74 65 62 79 74  65 73 28 77 68 65 72 65  |eletebytes(where|
000058f0  25 2c 68 6f 77 6d 61 6e  79 25 29 0d 2b 5c 16 41  |%,howmany%).+\.A|
00005900  25 3d 77 68 65 72 65 25  2b 68 6f 77 6d 61 6e 79  |%=where%+howmany|
00005910  25 0d 2b 66 0d 42 25 3d  77 68 65 72 65 25 0d 2b  |%.+f.B%=where%.+|
00005920  70 18 65 6e 64 61 64 64  72 25 3d 74 74 25 2b 74  |p.endaddr%=tt%+t|
00005930  74 25 21 34 2b 38 0d 2b  7a 12 43 25 3d 65 6e 64  |t%!4+8.+z.C%=end|
00005940  61 64 64 72 25 2d 41 25  0d 2b 84 18 e7 20 43 25  |addr%-A%.+... C%|
00005950  3e 30 20 d6 20 64 65 6c  65 74 65 62 79 74 65 73  |>0 . deletebytes|
00005960  0d 2b 8e 11 66 6d 25 2b  3d 68 6f 77 6d 61 6e 79  |.+..fm%+=howmany|
00005970  25 0d 2b 98 13 74 74 25  21 34 2d 3d 68 6f 77 6d  |%.+..tt%!4-=howm|
00005980  61 6e 79 25 0d 2b a2 06  3d b9 0d 2b ac 05 3a 0d  |any%.+..=..+..:.|
00005990  2b b6 0e dd f2 61 73 73  65 6d 62 6c 65 0d 2b c0  |+....assemble.+.|
000059a0  0e 66 72 6f 6d 72 65 67  25 3d 30 0d 2b ca 0c 74  |.fromreg%=0.+..t|
000059b0  6f 72 65 67 25 3d 31 0d  2b d4 0f 63 6f 75 6e 74  |oreg%=1.+..count|
000059c0  72 65 67 25 3d 32 0d 2b  de 11 6c 69 6e 6b 3d 31  |reg%=2.+..link=1|
000059d0  34 3a 70 63 3d 31 35 0d  2b e8 14 e3 20 70 61 73  |4:pc=15.+... pas|
000059e0  73 3d 30 20 b8 20 32 20  88 20 32 0d 2b f2 0c 50  |s=0 . 2 . 2.+..P|
000059f0  25 3d 63 6f 64 65 25 0d  2b fc 0d 5b 4f 50 54 20  |%=code%.+..[OPT |
00005a00  70 61 73 73 0d 2c 06 10  2e 69 6e 73 65 72 74 62  |pass.,...insertb|
00005a10  79 74 65 73 0d 2c 10 1b  4c 44 52 42 20 52 31 31  |ytes.,..LDRB R11|
00005a20  2c 5b 66 72 6f 6d 72 65  67 25 5d 2c 23 2d 31 0d  |,[fromreg%],#-1.|
00005a30  2c 1a 19 53 54 52 42 20  52 31 31 2c 5b 74 6f 72  |,..STRB R11,[tor|
00005a40  65 67 25 5d 2c 23 2d 31  0d 2c 24 1f 53 55 42 53  |eg%],#-1.,$.SUBS|
00005a50  20 63 6f 75 6e 74 72 65  67 25 2c 63 6f 75 6e 74  | countreg%,count|
00005a60  72 65 67 25 2c 23 31 0d  2c 2e 13 42 4e 45 20 69  |reg%,#1.,..BNE i|
00005a70  6e 73 65 72 74 62 79 74  65 73 0d 2c 38 0f 4d 4f  |nsertbytes.,8.MO|
00005a80  56 20 70 63 2c 6c 69 6e  6b 0d 2c 42 10 2e 64 65  |V pc,link.,B..de|
00005a90  6c 65 74 65 62 79 74 65  73 0d 2c 4c 1a 4c 44 52  |letebytes.,L.LDR|
00005aa0  42 20 52 31 31 2c 5b 66  72 6f 6d 72 65 67 25 5d  |B R11,[fromreg%]|
00005ab0  2c 23 31 0d 2c 56 18 53  54 52 42 20 52 31 31 2c  |,#1.,V.STRB R11,|
00005ac0  5b 74 6f 72 65 67 25 5d  2c 23 31 0d 2c 60 1f 53  |[toreg%],#1.,`.S|
00005ad0  55 42 53 20 63 6f 75 6e  74 72 65 67 25 2c 63 6f  |UBS countreg%,co|
00005ae0  75 6e 74 72 65 67 25 2c  23 31 0d 2c 6a 13 42 4e  |untreg%,#1.,j.BN|
00005af0  45 20 64 65 6c 65 74 65  62 79 74 65 73 0d 2c 74  |E deletebytes.,t|
00005b00  0f 4d 4f 56 20 70 63 2c  6c 69 6e 6b 0d 2c 7e 0d  |.MOV pc,link.,~.|
00005b10  2e 63 6c 61 69 6d 52 6d  61 0d 2c 88 0d 4d 4f 56  |.claimRma.,..MOV|
00005b20  20 52 33 2c 52 30 0d 2c  92 0d 4d 4f 56 20 52 30  | R3,R0.,..MOV R0|
00005b30  2c 23 36 0d 2c 9c 14 53  57 49 20 22 58 4f 53 5f  |,#6.,..SWI "XOS_|
00005b40  4d 6f 64 75 6c 65 22 0d  2c a6 0f 4d 4f 56 56 53  |Module".,..MOVVS|
00005b50  20 52 32 2c 23 30 0d 2c  b0 0d 4d 4f 56 20 52 30  | R2,#0.,..MOV R0|
00005b60  2c 52 32 0d 2c ba 0f 4d  4f 56 20 70 63 2c 6c 69  |,R2.,..MOV pc,li|
00005b70  6e 6b 0d 2c c4 0e 2e 63  6f 70 79 62 79 74 65 73  |nk.,...copybytes|
00005b80  0d 2c ce 11 41 44 44 20  52 31 31 2c 52 32 2c 23  |.,..ADD R11,R2,#|
00005b90  33 0d 2c d8 16 4d 4f 56  20 52 31 31 2c 52 31 31  |3.,..MOV R11,R11|
00005ba0  2c 41 53 52 20 23 32 0d  2c e2 12 2e 63 6f 70 79  |,ASR #2.,...copy|
00005bb0  62 79 74 65 73 6c 6f 6f  70 0d 2c ec 13 4c 44 52  |bytesloop.,..LDR|
00005bc0  20 52 31 30 2c 5b 52 30  5d 2c 23 34 0d 2c f6 13  | R10,[R0],#4.,..|
00005bd0  53 54 52 20 52 31 30 2c  5b 52 31 5d 2c 23 34 0d  |STR R10,[R1],#4.|
00005be0  2d 00 13 53 55 42 53 20  52 31 31 2c 52 31 31 2c  |-..SUBS R11,R11,|
00005bf0  23 31 0d 2d 0a 15 42 4e  45 20 63 6f 70 79 62 79  |#1.-..BNE copyby|
00005c00  74 65 73 6c 6f 6f 70 0d  2d 14 0f 4d 4f 56 20 70  |tesloop.-..MOV p|
00005c10  63 2c 6c 69 6e 6b 0d 2d  1e 05 5d 0d 2d 28 05 ed  |c,link.-..].-(..|
00005c20  0d 2d 32 05 e1 0d 2d 3c  05 3a 0d 2d 46 19 dd f2  |.-2...-<.:.-F...|
00005c30  73 61 76 65 73 61 6d 70  6c 65 28 73 61 6d 70 6c  |savesample(sampl|
00005c40  65 25 29 0d 2d 50 22 6c  65 61 66 24 3d a4 69 63  |e%).-P"leaf$=.ic|
00005c50  6f 6e 74 65 78 74 28 73  61 76 65 73 61 6d 70 6c  |ontext(savesampl|
00005c60  65 25 2c 33 29 0d 2d 5a  22 70 61 74 68 24 3d a4  |e%,3).-Z"path$=.|
00005c70  73 74 72 69 6e 67 66 72  6f 6d 6d 65 6d 6f 72 79  |stringfrommemory|
00005c80  28 71 25 2b 34 34 29 0d  2d 64 1c 70 61 74 68 24  |(q%+44).-d.path$|
00005c90  3d c0 70 61 74 68 24 2c  a9 28 70 61 74 68 24 29  |=.path$,.(path$)|
00005ca0  2d 31 29 0d 2d 6e 13 e7  20 73 61 76 65 68 65 61  |-1).-n.. savehea|
00005cb0  64 65 72 25 20 8c 0d 2d  78 1d 73 74 61 72 74 25  |der% ..-x.start%|
00005cc0  3d 73 61 6d 70 61 64 64  72 25 28 73 61 6d 70 6c  |=sampaddr%(sampl|
00005cd0  65 25 29 0d 2d 82 25 6c  65 6e 67 74 68 25 3d 21  |e%).-.%length%=!|
00005ce0  28 73 61 6d 70 61 64 64  72 25 28 73 61 6d 70 6c  |(sampaddr%(sampl|
00005cf0  65 25 29 2b 34 29 2b 38  0d 2d 8c 05 cc 0d 2d 96  |e%)+4)+8.-....-.|
00005d00  20 73 74 61 72 74 25 3d  73 61 6d 70 61 64 64 72  | start%=sampaddr|
00005d10  25 28 73 61 6d 70 6c 65  25 29 2b 39 32 0d 2d a0  |%(sample%)+92.-.|
00005d20  1a 6c 65 6e 67 74 68 25  3d 73 6c 65 6e 25 28 73  |.length%=slen%(s|
00005d30  61 6d 70 6c 65 25 29 0d  2d aa 05 cd 0d 2d b4 33  |ample%).-....-.3|
00005d40  f2 73 61 76 65 77 69 74  68 70 61 74 68 73 74 72  |.savewithpathstr|
00005d50  69 6e 67 28 6c 65 61 66  24 2c 70 61 74 68 24 2c  |ing(leaf$,path$,|
00005d60  73 74 61 72 74 25 2c 6c  65 6e 67 74 68 25 29 0d  |start%,length%).|
00005d70  2d be 26 f2 73 65 74 66  69 6c 65 74 79 70 65 28  |-.&.setfiletype(|
00005d80  70 61 74 68 24 2b 22 2e  22 2b 6c 65 61 66 24 2c  |path$+"."+leaf$,|
00005d90  26 43 42 35 29 0d 2d c8  1c c8 99 20 22 57 69 6d  |&CB5).-.... "Wim|
00005da0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00005db0  31 0d 2d d2 05 e1 0d 2d  dc 05 3a 0d 2d e6 0e dd  |1.-....-..:.-...|
00005dc0  f2 73 61 76 65 74 75 6e  65 0d 2d f0 11 f2 72 65  |.savetune.-...re|
00005dd0  77 72 69 74 65 6e 61 6d  65 73 0d 2d fa 12 f2 72  |writenames.-...r|
00005de0  65 77 72 69 74 65 73 74  65 72 65 6f 0d 2e 04 20  |ewritestereo... |
00005df0  6c 65 61 66 24 3d a4 69  63 6f 6e 74 65 78 74 28  |leaf$=.icontext(|
00005e00  73 61 76 65 74 75 6e 65  25 2c 33 29 0d 2e 0e 1a  |savetune%,3)....|
00005e10  6c 65 61 66 24 3d a4 6c  65 61 66 6e 61 6d 65 28  |leaf$=.leafname(|
00005e20  6c 65 61 66 24 29 0d 2e  18 22 70 61 74 68 24 3d  |leaf$)..."path$=|
00005e30  a4 73 74 72 69 6e 67 66  72 6f 6d 6d 65 6d 6f 72  |.stringfrommemor|
00005e40  79 28 71 25 2b 34 34 29  0d 2e 22 1c 70 61 74 68  |y(q%+44)..".path|
00005e50  24 3d c0 70 61 74 68 24  2c a9 28 70 61 74 68 24  |$=.path$,.(path$|
00005e60  29 2d 31 29 0d 2e 2c 30  f2 73 61 76 65 77 69 74  |)-1)..,0.savewit|
00005e70  68 70 61 74 68 73 74 72  69 6e 67 28 6c 65 61 66  |hpathstring(leaf|
00005e80  24 2c 70 61 74 68 24 2c  74 74 25 2c 74 74 25 21  |$,path$,tt%,tt%!|
00005e90  34 2b 38 29 0d 2e 36 26  f2 73 65 74 66 69 6c 65  |4+8)..6&.setfile|
00005ea0  74 79 70 65 28 70 61 74  68 24 2b 22 2e 22 2b 6c  |type(path$+"."+l|
00005eb0  65 61 66 24 2c 26 43 42  36 29 0d 2e 40 23 f2 73  |eaf$,&CB6)..@#.s|
00005ec0  28 73 61 76 65 74 75 6e  65 25 2c 33 2c 70 61 74  |(savetune%,3,pat|
00005ed0  68 24 2b 22 2e 22 2b 6c  65 61 66 24 29 0d 2e 4a  |h$+"."+leaf$)..J|
00005ee0  1c c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |... "Wimp_Create|
00005ef0  4d 65 6e 75 22 2c 2c 2d  31 0d 2e 54 05 e1 0d 2e  |Menu",,-1..T....|
00005f00  5e 05 3a 0d 2e 68 1c dd  f2 64 65 6c 65 74 65 73  |^.:..h...deletes|
00005f10  61 6d 70 6c 65 28 73 61  6d 70 70 6f 73 25 29 0d  |ample(samppos%).|
00005f20  2e 72 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |.r... "Hourglass|
00005f30  5f 4f 6e 22 0d 2e 7c 1e  61 74 25 3d 73 61 6d 70  |_On"..|.at%=samp|
00005f40  61 64 64 72 25 28 73 61  6d 70 70 6f 73 25 29 2b  |addr%(samppos%)+|
00005f50  39 32 0d 2e 86 1d 74 6f  64 65 6c 65 74 65 25 3d  |92....todelete%=|
00005f60  73 6c 65 6e 25 28 73 61  6d 70 70 6f 73 25 29 0d  |slen%(samppos%).|
00005f70  2e 90 27 74 6f 64 65 6c  65 74 65 25 3d 28 74 6f  |..'todelete%=(to|
00005f80  64 65 6c 65 74 65 25 2b  33 29 20 80 20 26 46 46  |delete%+3) . &FF|
00005f90  46 46 46 46 46 43 0d 2e  9a 26 64 75 6d 6d 79 25  |FFFFFC...&dummy%|
00005fa0  3d a4 64 65 6c 65 74 65  62 79 74 65 73 28 61 74  |=.deletebytes(at|
00005fb0  25 2c 74 6f 64 65 6c 65  74 65 25 29 0d 2e a4 1b  |%,todelete%)....|
00005fc0  61 74 25 3d 73 61 6d 70  61 64 64 72 25 28 73 61  |at%=sampaddr%(sa|
00005fd0  6d 70 70 6f 73 25 29 0d  2e ae 15 f2 77 7a 28 22  |mppos%).....wz("|
00005fe0  22 2c 61 74 25 2b 31 36  2c 32 30 29 0d 2e b8 0c  |",at%+16,20)....|
00005ff0  61 74 25 21 34 3d 38 34  0d 2e c2 0c 61 74 25 21  |at%!4=84....at%!|
00006000  35 36 3d 30 0d 2e cc 0c  61 74 25 21 36 38 3d 30  |56=0....at%!68=0|
00006010  0d 2e d6 0c 61 74 25 21  38 30 3d 32 0d 2e e0 0c  |....at%!80=2....|
00006020  61 74 25 21 38 38 3d 30  0d 2e ea 10 f2 72 65 61  |at%!88=0.....rea|
00006030  64 73 61 6d 70 6c 65 73  0d 2e f4 15 f2 77 72 69  |dsamples.....wri|
00006040  74 65 73 61 6d 70 6c 65  6e 61 6d 65 73 0d 2e fe  |tesamplenames...|
00006050  0d f2 6d 69 6e 69 6d 69  73 65 0d 2f 08 0d f2 74  |..minimise./...t|
00006060  75 6e 65 69 6e 66 6f 0d  2f 12 16 c8 99 20 22 48  |uneinfo./.... "H|
00006070  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 2f 1c  |ourglass_Off"./.|
00006080  05 e1 0d 2f 26 05 3a 0d  2f 30 10 dd f2 75 70 64  |.../&.:./0...upd|
00006090  61 74 65 73 69 7a 65 0d  2f 3a 11 73 69 7a 65 25  |atesize./:.size%|
000060a0  3d 74 74 25 21 34 2b 38  0d 2f 44 20 6b 73 69 7a  |=tt%!4+8./D ksiz|
000060b0  65 25 3d a8 28 28 73 69  7a 65 25 2b 35 31 32 29  |e%=.((size%+512)|
000060c0  20 81 20 31 30 32 34 29  0d 2f 4e 22 f2 73 28 74  | . 1024)./N".s(t|
000060d0  75 6e 65 69 6e 66 6f 25  2c 31 39 2c c3 28 6b 73  |uneinfo%,19,.(ks|
000060e0  69 7a 65 25 29 2b 22 4b  22 29 0d 2f 58 26 f2 73  |ize%)+"K")./X&.s|
000060f0  28 74 75 6e 65 69 6e 66  6f 25 2c 32 30 2c c3 28  |(tuneinfo%,20,.(|
00006100  73 69 7a 65 25 29 2b 22  20 62 79 74 65 73 22 29  |size%)+" bytes")|
00006110  0d 2f 62 05 e1 0d 2f 6c  05 3a 0d 2f 76 0f dd f2  |./b.../l.:./v...|
00006120  71 75 69 63 6b 73 61 76  65 0d 2f 80 20 73 61 76  |quicksave./. sav|
00006130  65 24 3d a4 69 63 6f 6e  74 65 78 74 28 73 61 76  |e$=.icontext(sav|
00006140  65 74 75 6e 65 25 2c 33  29 0d 2f 8a 1e f2 6d 61  |etune%,3)./...ma|
00006150  6b 65 73 65 6c 65 63 74  65 64 28 73 61 76 65 74  |keselected(savet|
00006160  75 6e 65 25 2c 34 29 0d  2f 94 34 e7 20 a7 73 61  |une%,4)./.4. .sa|
00006170  76 65 24 2c 22 2e 22 29  3d 30 20 8c 20 f2 6d 61  |ve$,".")=0 . .ma|
00006180  6b 65 75 6e 73 65 6c 65  63 74 65 64 28 73 61 76  |keunselected(sav|
00006190  65 74 75 6e 65 25 2c 34  29 3a e1 0d 2f 9e 11 f2  |etune%,4):../...|
000061a0  72 65 77 72 69 74 65 6e  61 6d 65 73 0d 2f a8 12  |rewritenames./..|
000061b0  f2 72 65 77 72 69 74 65  73 74 65 72 65 6f 0d 2f  |.rewritestereo./|
000061c0  b2 0e 73 74 61 72 74 25  3d 74 74 25 0d 2f bc 13  |..start%=tt%./..|
000061d0  6c 65 6e 67 74 68 25 3d  74 74 25 21 34 2b 38 0d  |length%=tt%!4+8.|
000061e0  2f c6 30 ff 28 22 53 41  56 45 20 22 2b 73 61 76  |/.0.("SAVE "+sav|
000061f0  65 24 2b 22 20 22 2b c3  7e 73 74 61 72 74 25 2b  |e$+" "+.~start%+|
00006200  22 20 2b 22 2b c3 7e 6c  65 6e 67 74 68 25 29 0d  |" +"+.~length%).|
00006210  2f d0 1c f2 73 65 74 66  69 6c 65 74 79 70 65 28  |/...setfiletype(|
00006220  73 61 76 65 24 2c 26 43  42 36 29 0d 2f da 20 f2  |save$,&CB6)./. .|
00006230  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 73  |makeunselected(s|
00006240  61 76 65 74 75 6e 65 25  2c 34 29 0d 2f e4 1c c8  |avetune%,4)./...|
00006250  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00006260  6e 75 22 2c 2c 2d 31 0d  2f ee 05 e1 0d 2f f8 05  |nu",,-1./..../..|
00006270  3a 0d 30 02 12 dd f2 69  6e 63 64 65 66 76 6f 69  |:.0....incdefvoi|
00006280  63 65 73 0d 30 0c 22 e7  20 64 65 66 76 6f 69 63  |ces.0.". defvoic|
00006290  65 73 25 3c 38 20 8c 20  64 65 66 76 6f 69 63 65  |es%<8 . defvoice|
000062a0  73 25 2b 3d 31 0d 30 16  21 f2 73 28 6e 65 77 74  |s%+=1.0.!.s(newt|
000062b0  72 61 63 6b 25 2c 35 2c  c3 28 64 65 66 76 6f 69  |rack%,5,.(defvoi|
000062c0  63 65 73 25 29 29 0d 30  20 05 e1 0d 30 2a 05 3a  |ces%)).0 ...0*.:|
000062d0  0d 30 34 12 dd f2 64 65  63 64 65 66 76 6f 69 63  |.04...decdefvoic|
000062e0  65 73 0d 30 3e 22 e7 20  64 65 66 76 6f 69 63 65  |es.0>". defvoice|
000062f0  73 25 3e 31 20 8c 20 64  65 66 76 6f 69 63 65 73  |s%>1 . defvoices|
00006300  25 2d 3d 31 0d 30 48 21  f2 73 28 6e 65 77 74 72  |%-=1.0H!.s(newtr|
00006310  61 63 6b 25 2c 35 2c c3  28 64 65 66 76 6f 69 63  |ack%,5,.(defvoic|
00006320  65 73 25 29 29 0d 30 52  05 e1 0d 30 5c 05 3a 0d  |es%)).0R...0\.:.|
00006330  30 66 0f dd f2 63 6c 65  61 72 64 61 74 61 0d 30  |0f...cleardata.0|
00006340  70 0c 61 62 6f 72 74 25  3d a3 0d 30 7a 13 e7 20  |p.abort%=..0z.. |
00006350  74 75 6e 65 6c 6f 61 64  65 64 25 20 8c 0d 30 84  |tuneloaded% ..0.|
00006360  41 65 72 72 6f 72 65 78  69 74 25 3d a4 65 72 72  |Aerrorexit%=.err|
00006370  6f 72 62 6f 78 28 31 37  2c 22 44 61 74 61 20 77  |orbox(17,"Data w|
00006380  69 6c 6c 20 62 65 20 6c  6f 73 74 20 2d 20 61 72  |ill be lost - ar|
00006390  65 20 79 6f 75 20 73 75  72 65 20 3f 22 29 0d 30  |e you sure ?").0|
000063a0  8e 1d e7 20 65 72 72 6f  72 65 78 69 74 25 3d 32  |... errorexit%=2|
000063b0  20 8c 20 61 62 6f 72 74  25 3d b9 0d 30 98 05 cd  | . abort%=..0...|
000063c0  0d 30 a2 10 e7 20 61 62  6f 72 74 25 20 8c 20 e1  |.0... abort% . .|
000063d0  0d 30 ac 11 f2 72 65 74  75 72 6e 6d 65 6d 6f 72  |.0...returnmemor|
000063e0  79 0d 30 b6 0d f2 73 74  6f 70 74 75 6e 65 0d 30  |y.0...stoptune.0|
000063f0  c0 0d f2 63 6c 6f 73 65  61 6c 6c 0d 30 ca 11 74  |...closeall.0..t|
00006400  75 6e 65 6c 6f 61 64 65  64 25 3d a3 0d 30 d4 05  |uneloaded%=..0..|
00006410  e1 0d 30 de 05 3a 0d 30  e8 0e dd f2 63 6c 6f 73  |..0..:.0....clos|
00006420  65 61 6c 6c 0d 30 f2 1b  f2 63 6c 6f 73 65 77 69  |eall.0...closewi|
00006430  6e 64 6f 77 28 74 75 6e  65 69 6e 66 6f 25 29 0d  |ndow(tuneinfo%).|
00006440  30 fc 1a f2 63 6c 6f 73  65 77 69 6e 64 6f 77 28  |0...closewindow(|
00006450  73 61 6d 70 6c 65 73 25  29 0d 31 06 19 f2 63 6c  |samples%).1...cl|
00006460  6f 73 65 77 69 6e 64 6f  77 28 73 74 65 72 65 6f  |osewindow(stereo|
00006470  25 29 0d 31 10 1e f2 63  6c 6f 73 65 77 69 6e 64  |%).1...closewind|
00006480  6f 77 28 63 6f 70 79 70  61 74 74 65 72 6e 25 29  |ow(copypattern%)|
00006490  0d 31 1a 19 f2 63 6c 6f  73 65 77 69 6e 64 6f 77  |.1...closewindow|
000064a0  28 70 6c 61 79 65 72 25  29 0d 31 24 16 f2 63 6c  |(player%).1$..cl|
000064b0  6f 73 65 77 69 6e 64 6f  77 28 61 74 72 25 29 0d  |osewindow(atr%).|
000064c0  31 2e 05 e1 0d 31 38 05  3a 0d 31 42 14 dd f2 63  |1....18.:.1B...c|
000064d0  72 65 61 74 65 74 75 6e  65 28 76 25 29 0d 31 4c  |reatetune(v%).1L|
000064e0  0c 61 62 6f 72 74 25 3d  a3 0d 31 56 13 e7 20 74  |.abort%=..1V.. t|
000064f0  75 6e 65 6c 6f 61 64 65  64 25 20 8c 0d 31 60 49  |uneloaded% ..1`I|
00006500  65 72 72 6f 72 65 78 69  74 25 3d a4 65 72 72 6f  |errorexit%=.erro|
00006510  72 62 6f 78 28 31 37 2c  22 45 78 69 73 74 69 6e  |rbox(17,"Existin|
00006520  67 20 74 75 6e 65 20 77  69 6c 6c 20 62 65 20 6c  |g tune will be l|
00006530  6f 73 74 20 2d 20 61 72  65 20 79 6f 75 20 73 75  |ost - are you su|
00006540  72 65 3f 22 29 0d 31 6a  1d e7 20 65 72 72 6f 72  |re?").1j.. error|
00006550  65 78 69 74 25 3d 32 20  8c 20 61 62 6f 72 74 25  |exit%=2 . abort%|
00006560  3d b9 0d 31 74 1c e7 20  61 62 6f 72 74 25 3d a3  |=..1t.. abort%=.|
00006570  20 f2 72 65 74 75 72 6e  6d 65 6d 6f 72 79 0d 31  | .returnmemory.1|
00006580  7e 05 cd 0d 31 88 28 e7  20 61 62 6f 72 74 25 20  |~...1.(. abort% |
00006590  8c 20 f2 63 6c 6f 73 65  77 69 6e 64 6f 77 28 6e  |. .closewindow(n|
000065a0  65 77 74 72 61 63 6b 25  29 3a e1 0d 31 92 0d f2  |ewtrack%):..1...|
000065b0  73 74 6f 70 74 75 6e 65  0d 31 9c 1e f2 6d 61 6b  |stoptune.1...mak|
000065c0  65 73 65 6c 65 63 74 65  64 28 6e 65 77 74 72 61  |eselected(newtra|
000065d0  63 6b 25 2c 32 29 0d 31  a6 18 6d 65 6d 6e 65 65  |ck%,2).1..memnee|
000065e0  64 65 64 25 3d 33 36 38  2b 33 36 2a 39 32 0d 31  |ded%=368+36*92.1|
000065f0  b0 1c 6d 65 6d 6e 65 65  64 65 64 25 2b 3d 76 25  |..memneeded%+=v%|
00006600  2a 70 61 74 6c 65 6e 25  2a 34 0d 31 ba 09 66 6d  |*patlen%*4.1..fm|
00006610  25 3d 30 0d 31 c4 1c e7  20 a4 67 72 61 62 6d 65  |%=0.1... .grabme|
00006620  6d 28 6d 65 6d 6e 65 65  64 65 64 25 29 20 8c 0d  |m(memneeded%) ..|
00006630  31 ce 08 6f 25 3d 30 0d  31 d8 0a 74 25 3d 74 74  |1..o%=0.1..t%=tt|
00006640  25 0d 31 e2 1f 74 25 21  6f 25 3d a4 77 6f 72 64  |%.1..t%!o%=.word|
00006650  28 22 4d 55 53 58 22 29  20 3a 20 6f 25 2b 3d 34  |("MUSX") : o%+=4|
00006660  0d 31 ec 20 74 25 21 6f  25 3d 6d 65 6d 6e 65 65  |.1. t%!o%=memnee|
00006670  64 65 64 25 2d 38 20 20  20 3a 20 6f 25 2b 3d 34  |ded%-8   : o%+=4|
00006680  0d 31 f6 1f 74 25 21 6f  25 3d a4 77 6f 72 64 28  |.1..t%!o%=.word(|
00006690  22 54 49 4e 46 22 29 20  3a 20 6f 25 2b 3d 34 0d  |"TINF") : o%+=4.|
000066a0  32 00 15 74 25 21 6f 25  3d 34 20 20 20 3a 20 6f  |2..t%!o%=4   : o|
000066b0  25 2b 3d 34 0d 32 0a 15  74 25 21 6f 25 3d 30 20  |%+=4.2..t%!o%=0 |
000066c0  20 20 3a 20 6f 25 2b 3d  34 0d 32 14 1f 74 25 21  |  : o%+=4.2..t%!|
000066d0  6f 25 3d a4 77 6f 72 64  28 22 4d 56 4f 58 22 29  |o%=.word("MVOX")|
000066e0  20 3a 20 6f 25 2b 3d 34  0d 32 1e 15 74 25 21 6f  | : o%+=4.2..t%!o|
000066f0  25 3d 34 20 20 20 3a 20  6f 25 2b 3d 34 0d 32 28  |%=4   : o%+=4.2(|
00006700  15 74 25 21 6f 25 3d 76  25 20 20 3a 20 6f 25 2b  |.t%!o%=v%  : o%+|
00006710  3d 34 0d 32 32 1f 74 25  21 6f 25 3d a4 77 6f 72  |=4.22.t%!o%=.wor|
00006720  64 28 22 53 54 45 52 22  29 20 3a 20 6f 25 2b 3d  |d("STER") : o%+=|
00006730  34 0d 32 3c 15 74 25 21  6f 25 3d 38 20 20 20 3a  |4.2<.t%!o%=8   :|
00006740  20 6f 25 2b 3d 34 0d 32  46 20 74 25 21 6f 25 3d  | o%+=4.2F t%!o%=|
00006750  26 30 33 30 35 30 35 30  33 20 20 20 20 20 20 3a  |&03050503      :|
00006760  20 6f 25 2b 3d 34 0d 32  50 20 74 25 21 6f 25 3d  | o%+=4.2P t%!o%=|
00006770  26 30 33 30 35 30 35 30  33 20 20 20 20 20 20 3a  |&03050503      :|
00006780  20 6f 25 2b 3d 34 0d 32  5a 1f 74 25 21 6f 25 3d  | o%+=4.2Z.t%!o%=|
00006790  a4 77 6f 72 64 28 22 4d  4e 41 4d 22 29 20 3a 20  |.word("MNAM") : |
000067a0  6f 25 2b 3d 34 0d 32 64  15 74 25 21 6f 25 3d 33  |o%+=4.2d.t%!o%=3|
000067b0  32 20 20 3a 20 6f 25 2b  3d 34 0d 32 6e 1e f2 77  |2  : o%+=4.2n..w|
000067c0  7a 28 22 3c 55 6e 74 69  74 6c 65 64 3e 22 2c 74  |z("<Untitled>",t|
000067d0  25 2b 6f 25 2c 33 32 29  0d 32 78 0a 6f 25 2b 3d  |%+o%,32).2x.o%+=|
000067e0  33 32 0d 32 82 1f 74 25  21 6f 25 3d a4 77 6f 72  |32.2..t%!o%=.wor|
000067f0  64 28 22 41 4e 41 4d 22  29 20 3a 20 6f 25 2b 3d  |d("ANAM") : o%+=|
00006800  34 0d 32 8c 15 74 25 21  6f 25 3d 33 32 20 20 3a  |4.2..t%!o%=32  :|
00006810  20 6f 25 2b 3d 34 0d 32  96 19 f2 77 7a 28 22 3c  | o%+=4.2...wz("<|
00006820  59 6f 75 3e 22 2c 74 25  2b 6f 25 2c 33 32 29 0d  |You>",t%+o%,32).|
00006830  32 a0 0a 6f 25 2b 3d 33  32 0d 32 aa 1f 74 25 21  |2..o%+=32.2..t%!|
00006840  6f 25 3d a4 77 6f 72 64  28 22 4d 4c 45 4e 22 29  |o%=.word("MLEN")|
00006850  20 3a 20 6f 25 2b 3d 34  0d 32 b4 15 74 25 21 6f  | : o%+=4.2..t%!o|
00006860  25 3d 34 20 20 20 3a 20  6f 25 2b 3d 34 0d 32 be  |%=4   : o%+=4.2.|
00006870  15 74 25 21 6f 25 3d 31  20 20 20 3a 20 6f 25 2b  |.t%!o%=1   : o%+|
00006880  3d 34 0d 32 c8 1f 74 25  21 6f 25 3d a4 77 6f 72  |=4.2..t%!o%=.wor|
00006890  64 28 22 50 4e 55 4d 22  29 20 3a 20 6f 25 2b 3d  |d("PNUM") : o%+=|
000068a0  34 0d 32 d2 15 74 25 21  6f 25 3d 34 20 20 20 3a  |4.2..t%!o%=4   :|
000068b0  20 6f 25 2b 3d 34 0d 32  dc 15 74 25 21 6f 25 3d  | o%+=4.2..t%!o%=|
000068c0  31 20 20 20 3a 20 6f 25  2b 3d 34 0d 32 e6 1f 74  |1   : o%+=4.2..t|
000068d0  25 21 6f 25 3d a4 77 6f  72 64 28 22 50 4c 45 4e  |%!o%=.word("PLEN|
000068e0  22 29 20 3a 20 6f 25 2b  3d 34 0d 32 f0 15 74 25  |") : o%+=4.2..t%|
000068f0  21 6f 25 3d 36 34 20 20  3a 20 6f 25 2b 3d 34 0d  |!o%=64  : o%+=4.|
00006900  32 fa 20 74 25 3f 6f 25  3d 70 61 74 6c 65 6e 25  |2. t%?o%=patlen%|
00006910  20 20 20 20 20 20 20 20  3a 20 6f 25 2b 3d 31 0d  |        : o%+=1.|
00006920  33 04 0f e3 20 69 25 3d  31 20 b8 20 36 33 0d 33  |3... i%=1 . 63.3|
00006930  0e 0c 74 25 3f 6f 25 3d  36 34 0d 33 18 09 6f 25  |..t%?o%=64.3..o%|
00006940  2b 3d 31 0d 33 22 05 ed  0d 33 2c 1f 74 25 21 6f  |+=1.3"...3,.t%!o|
00006950  25 3d a4 77 6f 72 64 28  22 53 45 51 55 22 29 20  |%=.word("SEQU") |
00006960  3a 20 6f 25 2b 3d 34 0d  33 36 15 74 25 21 6f 25  |: o%+=4.36.t%!o%|
00006970  3d 31 32 38 20 3a 20 6f  25 2b 3d 34 0d 33 40 10  |=128 : o%+=4.3@.|
00006980  e3 20 69 25 3d 31 20 b8  20 31 32 38 0d 33 4a 0b  |. i%=1 . 128.3J.|
00006990  74 25 3f 6f 25 3d 30 0d  33 54 09 6f 25 2b 3d 31  |t%?o%=0.3T.o%+=1|
000069a0  0d 33 5e 05 ed 0d 33 68  1f 74 25 21 6f 25 3d a4  |.3^...3h.t%!o%=.|
000069b0  77 6f 72 64 28 22 50 41  54 54 22 29 20 3a 20 6f  |word("PATT") : o|
000069c0  25 2b 3d 34 0d 33 72 20  74 25 21 6f 25 3d 76 25  |%+=4.3r t%!o%=v%|
000069d0  2a 70 61 74 6c 65 6e 25  2a 34 20 20 20 3a 20 6f  |*patlen%*4   : o|
000069e0  25 2b 3d 34 0d 33 7c 19  e3 20 69 25 3d 31 20 b8  |%+=4.3|.. i%=1 .|
000069f0  20 76 25 2a 70 61 74 6c  65 6e 25 2a 34 0d 33 86  | v%*patlen%*4.3.|
00006a00  0b 74 25 3f 6f 25 3d 30  0d 33 90 09 6f 25 2b 3d  |.t%?o%=0.3..o%+=|
00006a10  31 0d 33 9a 05 ed 0d 33  a4 14 e3 20 73 61 6d 70  |1.3....3... samp|
00006a20  6c 65 25 3d 31 20 b8 20  33 36 0d 33 ae 1f 74 25  |le%=1 . 36.3..t%|
00006a30  21 6f 25 3d a4 77 6f 72  64 28 22 53 41 4d 50 22  |!o%=.word("SAMP"|
00006a40  29 20 3a 20 6f 25 2b 3d  34 0d 33 b8 15 74 25 21  |) : o%+=4.3..t%!|
00006a50  6f 25 3d 38 34 20 20 3a  20 6f 25 2b 3d 34 0d 33  |o%=84  : o%+=4.3|
00006a60  c2 1f 74 25 21 6f 25 3d  a4 77 6f 72 64 28 22 53  |..t%!o%=.word("S|
00006a70  4e 41 4d 22 29 20 3a 20  6f 25 2b 3d 34 0d 33 cc  |NAM") : o%+=4.3.|
00006a80  15 74 25 21 6f 25 3d 32  30 20 20 3a 20 6f 25 2b  |.t%!o%=20  : o%+|
00006a90  3d 34 0d 33 d6 14 f2 77  7a 28 22 22 2c 74 25 2b  |=4.3...wz("",t%+|
00006aa0  6f 25 2c 32 30 29 0d 33  e0 0a 6f 25 2b 3d 32 30  |o%,20).3..o%+=20|
00006ab0  0d 33 ea 1f 74 25 21 6f  25 3d a4 77 6f 72 64 28  |.3..t%!o%=.word(|
00006ac0  22 53 56 4f 4c 22 29 20  3a 20 6f 25 2b 3d 34 0d  |"SVOL") : o%+=4.|
00006ad0  33 f4 15 74 25 21 6f 25  3d 34 20 20 20 3a 20 6f  |3..t%!o%=4   : o|
00006ae0  25 2b 3d 34 0d 33 fe 15  74 25 21 6f 25 3d 32 35  |%+=4.3..t%!o%=25|
00006af0  35 20 3a 20 6f 25 2b 3d  34 0d 34 08 1f 74 25 21  |5 : o%+=4.4..t%!|
00006b00  6f 25 3d a4 77 6f 72 64  28 22 53 4c 45 4e 22 29  |o%=.word("SLEN")|
00006b10  20 3a 20 6f 25 2b 3d 34  0d 34 12 15 74 25 21 6f  | : o%+=4.4..t%!o|
00006b20  25 3d 34 20 20 20 3a 20  6f 25 2b 3d 34 0d 34 1c  |%=4   : o%+=4.4.|
00006b30  15 74 25 21 6f 25 3d 30  20 20 20 3a 20 6f 25 2b  |.t%!o%=0   : o%+|
00006b40  3d 34 0d 34 26 1f 74 25  21 6f 25 3d a4 77 6f 72  |=4.4&.t%!o%=.wor|
00006b50  64 28 22 52 4f 46 53 22  29 20 3a 20 6f 25 2b 3d  |d("ROFS") : o%+=|
00006b60  34 0d 34 30 15 74 25 21  6f 25 3d 34 20 20 20 3a  |4.40.t%!o%=4   :|
00006b70  20 6f 25 2b 3d 34 0d 34  3a 15 74 25 21 6f 25 3d  | o%+=4.4:.t%!o%=|
00006b80  30 20 20 20 3a 20 6f 25  2b 3d 34 0d 34 44 1f 74  |0   : o%+=4.4D.t|
00006b90  25 21 6f 25 3d a4 77 6f  72 64 28 22 52 4c 45 4e  |%!o%=.word("RLEN|
00006ba0  22 29 20 3a 20 6f 25 2b  3d 34 0d 34 4e 15 74 25  |") : o%+=4.4N.t%|
00006bb0  21 6f 25 3d 34 20 20 20  3a 20 6f 25 2b 3d 34 0d  |!o%=4   : o%+=4.|
00006bc0  34 58 15 74 25 21 6f 25  3d 32 20 20 20 3a 20 6f  |4X.t%!o%=2   : o|
00006bd0  25 2b 3d 34 0d 34 62 1f  74 25 21 6f 25 3d a4 77  |%+=4.4b.t%!o%=.w|
00006be0  6f 72 64 28 22 53 44 41  54 22 29 20 3a 20 6f 25  |ord("SDAT") : o%|
00006bf0  2b 3d 34 0d 34 6c 15 74  25 21 6f 25 3d 30 20 20  |+=4.4l.t%!o%=0  |
00006c00  20 3a 20 6f 25 2b 3d 34  0d 34 76 05 ed 0d 34 80  | : o%+=4.4v...4.|
00006c10  11 74 75 6e 65 6c 6f 61  64 65 64 25 3d b9 0d 34  |.tuneloaded%=..4|
00006c20  8a 0e 70 6c 61 79 69 6e  67 25 3d a3 0d 34 94 1d  |..playing%=..4..|
00006c30  f2 73 28 73 61 76 65 74  75 6e 65 25 2c 33 2c 22  |.s(savetune%,3,"|
00006c40  54 72 61 63 6b 65 72 22  29 0d 34 9e 11 f2 67 65  |Tracker").4...ge|
00006c50  74 6d 75 73 69 63 69 6e  66 6f 0d 34 a8 0d f2 74  |tmusicinfo.4...t|
00006c60  75 6e 65 69 6e 66 6f 0d  34 b2 11 f2 75 70 64 61  |uneinfo.4...upda|
00006c70  74 65 73 74 65 72 65 6f  0d 34 bc 15 f2 77 72 69  |testereo.4...wri|
00006c80  74 65 73 61 6d 70 6c 65  6e 61 6d 65 73 0d 34 c6  |tesamplenames.4.|
00006c90  15 f2 69 6e 69 74 69 61  6c 69 73 65 76 6f 69 63  |..initialisevoic|
00006ca0  65 73 0d 34 d0 1b f2 63  6c 6f 73 65 77 69 6e 64  |es.4...closewind|
00006cb0  6f 77 28 6e 65 77 74 72  61 63 6b 25 29 0d 34 da  |ow(newtrack%).4.|
00006cc0  0d f2 6d 69 6e 69 6d 69  73 65 0d 34 e4 05 cc 0d  |..minimise.4....|
00006cd0  34 ee 11 74 75 6e 65 6c  6f 61 64 65 64 25 3d a3  |4..tuneloaded%=.|
00006ce0  0d 34 f8 0d f2 63 6c 6f  73 65 61 6c 6c 0d 35 02  |.4...closeall.5.|
00006cf0  05 cd 0d 35 0c 20 f2 6d  61 6b 65 75 6e 73 65 6c  |...5. .makeunsel|
00006d00  65 63 74 65 64 28 6e 65  77 74 72 61 63 6b 25 2c  |ected(newtrack%,|
00006d10  32 29 0d 35 16 11 6a 75  73 74 6c 6f 61 64 65 64  |2).5..justloaded|
00006d20  25 3d b9 0d 35 20 0f 64  65 6c 76 6f 69 63 65 25  |%=..5 .delvoice%|
00006d30  3d 31 0d 35 2a 0d 64 65  6c 70 61 74 25 3d 31 0d  |=1.5*.delpat%=1.|
00006d40  35 34 0e 73 61 76 65 70  61 74 25 3d 31 0d 35 3e  |54.savepat%=1.5>|
00006d50  0e 63 6f 70 79 70 61 74  25 3d 31 0d 35 48 22 f2  |.copypat%=1.5H".|
00006d60  73 28 63 6f 70 79 70 61  74 74 65 72 6e 25 2c 35  |s(copypattern%,5|
00006d70  2c c3 28 63 6f 70 79 70  61 74 25 29 29 0d 35 52  |,.(copypat%)).5R|
00006d80  19 f2 73 28 61 74 72 25  2c 32 2c c3 28 64 65 6c  |..s(atr%,2,.(del|
00006d90  70 61 74 25 29 29 0d 35  5c 1c f2 73 28 61 74 72  |pat%)).5\..s(atr|
00006da0  25 2c 31 30 2c c3 28 64  65 6c 76 6f 69 63 65 25  |%,10,.(delvoice%|
00006db0  29 29 0d 35 66 0e f2 72  65 64 6f 63 61 72 65 74  |)).5f..redocaret|
00006dc0  0d 35 70 05 e1 0d 35 7a  05 3a 0d 35 84 19 dd a4  |.5p...5z.:.5....|
00006dd0  65 72 72 6f 72 62 6f 78  28 65 72 72 25 2c 65 72  |errorbox(err%,er|
00006de0  72 24 29 0d 35 8e 18 71  25 21 30 3d 65 72 72 25  |r$).5..q%!0=err%|
00006df0  2b 28 74 61 73 6b 25 3c  3c 38 29 0d 35 98 15 24  |+(task%<<8).5..$|
00006e00  28 71 25 2b 34 29 3d 65  72 72 24 2b bd 28 30 29  |(q%+4)=err$+.(0)|
00006e10  0d 35 a2 38 c8 99 20 22  57 69 6d 70 5f 52 65 70  |.5.8.. "Wimp_Rep|
00006e20  6f 72 74 45 72 72 6f 72  22 2c 71 25 2c 25 31 30  |ortError",q%,%10|
00006e30  31 31 2c 22 41 50 20 54  72 61 63 6b 65 72 22 20  |11,"AP Tracker" |
00006e40  b8 20 2c 65 78 69 74 25  0d 35 ac 0a 3d 65 78 69  |. ,exit%.5..=exi|
00006e50  74 25 0d 35 b6 05 3a 0d  35 c0 19 dd a4 6c 65 61  |t%.5..:.5....lea|
00006e60  66 6e 61 6d 65 28 66 75  6c 6c 70 61 74 68 24 29  |fname(fullpath$)|
00006e70  0d 35 ca 18 e7 20 66 75  6c 6c 70 61 74 68 24 3d  |.5... fullpath$=|
00006e80  22 22 20 8c 20 3d 22 22  0d 35 d4 18 ea 20 6f 75  |"" . ="".5... ou|
00006e90  74 70 75 74 24 2c 63 68  70 6f 73 25 2c 63 68 24  |tput$,chpos%,ch$|
00006ea0  0d 35 de 0e 6f 75 74 70  75 74 24 3d 22 22 0d 35  |.5..output$="".5|
00006eb0  e8 17 63 68 70 6f 73 25  3d a9 28 66 75 6c 6c 70  |..chpos%=.(fullp|
00006ec0  61 74 68 24 29 0d 35 f2  05 f5 0d 35 fc 1c 63 68  |ath$).5....5..ch|
00006ed0  24 3d c1 66 75 6c 6c 70  61 74 68 24 2c 63 68 70  |$=.fullpath$,chp|
00006ee0  6f 73 25 2c 31 29 0d 36  06 29 e7 20 a7 22 2e 3a  |os%,1).6.). .".:|
00006ef0  20 22 2c 63 68 24 29 3d  30 20 8c 20 6f 75 74 70  | ",ch$)=0 . outp|
00006f00  75 74 24 3d 63 68 24 2b  6f 75 74 70 75 74 24 0d  |ut$=ch$+output$.|
00006f10  36 10 0d 63 68 70 6f 73  25 2d 3d 31 0d 36 1a 1e  |6..chpos%-=1.6..|
00006f20  fd 20 63 68 70 6f 73 25  3d 30 20 84 20 a7 22 2e  |. chpos%=0 . .".|
00006f30  3a 20 22 2c 63 68 24 29  3e 30 0d 36 24 0c 3d 6f  |: ",ch$)>0.6$.=o|
00006f40  75 74 70 75 74 24 0d 36  2e 05 3a 0d 36 38 13 dd  |utput$.6..:.68..|
00006f50  f2 73 65 74 73 74 65 72  65 6f 45 53 47 73 0d 36  |.setstereoESGs.6|
00006f60  42 12 e3 20 76 6f 69 63  65 25 3d 31 20 b8 20 38  |B.. voice%=1 . 8|
00006f70  0d 36 4c 18 62 61 73 65  69 63 6f 6e 25 3d 76 6f  |.6L.baseicon%=vo|
00006f80  69 63 65 25 2a 38 2d 37  0d 36 56 0f 65 73 67 25  |ice%*8-7.6V.esg%|
00006f90  3d 76 6f 69 63 65 25 0d  36 60 15 e3 20 65 61 63  |=voice%.6`.. eac|
00006fa0  68 69 63 6f 6e 25 3d 30  20 b8 20 36 0d 36 6a 2d  |hicon%=0 . 6.6j-|
00006fb0  f2 73 65 74 45 53 47 28  73 74 65 72 65 6f 25 2c  |.setESG(stereo%,|
00006fc0  62 61 73 65 69 63 6f 6e  25 2b 65 61 63 68 69 63  |baseicon%+eachic|
00006fd0  6f 6e 25 2c 65 73 67 25  29 0d 36 74 05 ed 0d 36  |on%,esg%).6t...6|
00006fe0  7e 05 ed 0d 36 88 05 e1  0d 36 92 05 3a 0d 36 9c  |~...6....6..:.6.|
00006ff0  12 dd f2 75 70 64 61 74  65 73 74 65 72 65 6f 0d  |...updatestereo.|
00007000  36 a6 12 e3 20 76 6f 69  63 65 25 3d 31 20 b8 20  |6... voice%=1 . |
00007010  38 0d 36 b0 19 73 25 3d  73 74 65 72 61 64 64 72  |8.6..s%=steraddr|
00007020  25 2b 76 6f 69 63 65 25  2d 31 0d 36 ba 1b e7 20  |%+voice%-1.6... |
00007030  3f 73 25 3d 30 20 84 20  3f 73 25 3e 37 20 8c 20  |?s%=0 . ?s%>7 . |
00007040  3f 73 25 3d 34 0d 36 c4  18 62 61 73 65 69 63 6f  |?s%=4.6..baseico|
00007050  6e 25 3d 76 6f 69 63 65  25 2a 38 2d 37 0d 36 ce  |n%=voice%*8-7.6.|
00007060  15 e3 20 65 61 63 68 69  63 6f 6e 25 3d 30 20 b8  |.. eachicon%=0 .|
00007070  20 36 0d 36 d8 30 f2 6d  61 6b 65 75 6e 73 65 6c  | 6.6.0.makeunsel|
00007080  65 63 74 65 64 28 73 74  65 72 65 6f 25 2c 62 61  |ected(stereo%,ba|
00007090  73 65 69 63 6f 6e 25 2b  65 61 63 68 69 63 6f 6e  |seicon%+eachicon|
000070a0  25 29 0d 36 e2 05 ed 0d  36 ec 3d f2 6d 61 6b 65  |%).6....6.=.make|
000070b0  73 65 6c 65 63 74 65 64  28 73 74 65 72 65 6f 25  |selected(stereo%|
000070c0  2c 62 61 73 65 69 63 6f  6e 25 2b 28 73 74 65 72  |,baseicon%+(ster|
000070d0  61 64 64 72 25 3f 28 76  6f 69 63 65 25 2d 31 29  |addr%?(voice%-1)|
000070e0  2d 31 29 29 0d 36 f6 05  ed 0d 37 00 05 e1 0d 37  |-1)).6....7....7|
000070f0  0a 05 3a 0d 37 14 20 dd  f2 73 65 74 45 53 47 28  |..:.7. ..setESG(|
00007100  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 73 65  |window%,icon%,se|
00007110  74 25 29 0d 37 1e 10 71  25 21 30 3d 77 69 6e 64  |t%).7..q%!0=wind|
00007120  6f 77 25 0d 37 28 0e 71  25 21 34 3d 69 63 6f 6e  |ow%.7(.q%!4=icon|
00007130  25 0d 37 32 11 71 25 21  38 3d 73 65 74 25 3c 3c  |%.72.q%!8=set%<<|
00007140  31 36 0d 37 3c 13 71 25  21 31 32 3d 25 31 31 31  |16.7<.q%!12=%111|
00007150  31 3c 3c 31 36 0d 37 46  1e c8 99 20 22 57 69 6d  |1<<16.7F... "Wim|
00007160  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00007170  2c 71 25 0d 37 50 05 e1  0d 37 5a 05 3a 0d 37 64  |,q%.7P...7Z.:.7d|
00007180  13 dd f2 72 65 77 72 69  74 65 73 74 65 72 65 6f  |...rewritestereo|
00007190  0d 37 6e 12 e3 20 76 6f  69 63 65 25 3d 31 20 b8  |.7n.. voice%=1 .|
000071a0  20 38 0d 37 78 19 77 25  3d 73 74 65 72 61 64 64  | 8.7x.w%=steradd|
000071b0  72 25 2b 76 6f 69 63 65  25 2d 31 0d 37 82 18 62  |r%+voice%-1.7..b|
000071c0  61 73 65 69 63 6f 6e 25  3d 76 6f 69 63 65 25 2a  |aseicon%=voice%*|
000071d0  38 2d 37 0d 37 8c 08 73  25 3d 31 0d 37 96 15 e3  |8-7.7..s%=1.7...|
000071e0  20 65 61 63 68 69 63 6f  6e 25 3d 30 20 b8 20 36  | eachicon%=0 . 6|
000071f0  0d 37 a0 41 e7 20 a4 69  73 69 74 73 65 6c 65 63  |.7.A. .isitselec|
00007200  74 65 64 28 73 74 65 72  65 6f 25 2c 62 61 73 65  |ted(stereo%,base|
00007210  69 63 6f 6e 25 2b 65 61  63 68 69 63 6f 6e 25 29  |icon%+eachicon%)|
00007220  20 8c 20 73 25 3d 65 61  63 68 69 63 6f 6e 25 2b  | . s%=eachicon%+|
00007230  31 0d 37 aa 05 ed 0d 37  b4 0a 3f 77 25 3d 73 25  |1.7....7..?w%=s%|
00007240  0d 37 be 05 ed 0d 37 c8  05 e1 0d 37 d2 05 3a 0d  |.7....7....7..:.|
00007250  37 dc 10 dd f2 69 6e 63  73 61 76 65 70 61 74 0d  |7....incsavepat.|
00007260  37 e6 26 e7 20 73 61 76  65 70 61 74 25 3c 70 61  |7.&. savepat%<pa|
00007270  74 74 65 72 6e 73 25 20  8c 20 73 61 76 65 70 61  |tterns% . savepa|
00007280  74 25 2b 3d 31 0d 37 f0  22 f2 73 28 73 61 76 65  |t%+=1.7.".s(save|
00007290  70 61 74 74 65 72 6e 25  2c 36 2c c3 28 73 61 76  |pattern%,6,.(sav|
000072a0  65 70 61 74 25 29 29 0d  37 fa 05 e1 0d 38 04 05  |epat%)).7....8..|
000072b0  3a 0d 38 0e 10 dd f2 64  65 63 73 61 76 65 70 61  |:.8....decsavepa|
000072c0  74 0d 38 18 1e e7 20 73  61 76 65 70 61 74 25 3e  |t.8... savepat%>|
000072d0  31 20 8c 20 73 61 76 65  70 61 74 25 2d 3d 31 0d  |1 . savepat%-=1.|
000072e0  38 22 22 f2 73 28 73 61  76 65 70 61 74 74 65 72  |8"".s(savepatter|
000072f0  6e 25 2c 36 2c c3 28 73  61 76 65 70 61 74 25 29  |n%,6,.(savepat%)|
00007300  29 0d 38 2c 05 e1 0d 38  36 05 3a 0d 38 40 19 dd  |).8,...86.:.8@..|
00007310  a4 70 61 74 74 65 72 6e  61 64 64 72 28 70 61 74  |.patternaddr(pat|
00007320  6e 6f 25 29 0d 38 4a 16  3d 70 61 74 74 61 64 64  |no%).8J.=pattadd|
00007330  72 25 28 70 61 74 6e 6f  25 29 0d 38 54 05 3a 0d  |r%(patno%).8T.:.|
00007340  38 5e 1c dd f2 73 61 76  65 70 61 74 74 65 72 6e  |8^...savepattern|
00007350  28 77 68 69 63 68 70 61  74 25 29 0d 38 68 27 73  |(whichpat%).8h's|
00007360  74 61 72 74 70 61 74 25  3d a4 70 61 74 74 65 72  |tartpat%=.patter|
00007370  6e 61 64 64 72 28 77 68  69 63 68 70 61 74 25 29  |naddr(whichpat%)|
00007380  2d 38 0d 38 72 1c 6c 65  6e 67 74 68 25 3d 21 28  |-8.8r.length%=!(|
00007390  73 74 61 72 74 70 61 74  25 2b 34 29 2b 38 0d 38  |startpat%+4)+8.8|
000073a0  7c 28 70 61 74 68 6e 61  6d 65 24 3d c0 70 61 74  ||(pathname$=.pat|
000073b0  68 6e 61 6d 65 24 2c a9  28 70 61 74 68 6e 61 6d  |hname$,.(pathnam|
000073c0  65 24 29 2d 31 29 0d 38  86 3e f2 73 61 76 65 77  |e$)-1).8.>.savew|
000073d0  69 74 68 70 61 74 68 73  74 72 69 6e 67 28 6c 65  |ithpathstring(le|
000073e0  61 66 6e 61 6d 65 24 2c  70 61 74 68 6e 61 6d 65  |afname$,pathname|
000073f0  24 2c 73 74 61 72 74 70  61 74 25 2c 6c 65 6e 67  |$,startpat%,leng|
00007400  74 68 25 29 0d 38 90 2e  f2 73 65 74 66 69 6c 65  |th%).8...setfile|
00007410  74 79 70 65 28 70 61 74  68 6e 61 6d 65 24 2b 22  |type(pathname$+"|
00007420  2e 22 2b 6c 65 61 66 6e  61 6d 65 24 2c 26 46 46  |."+leafname$,&FF|
00007430  44 29 0d 38 9a 1c c8 99  20 22 57 69 6d 70 5f 43  |D).8.... "Wimp_C|
00007440  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 38  |reateMenu",,-1.8|
00007450  a4 05 e1 0d 38 ae 05 3a  0d 38 b8 19 dd f2 73 61  |....8..:.8....sa|
00007460  76 65 70 61 74 74 65 72  6e 73 28 72 6f 6f 74 24  |vepatterns(root$|
00007470  29 0d 38 c2 28 70 61 74  68 6e 61 6d 65 24 3d c0  |).8.(pathname$=.|
00007480  70 61 74 68 6e 61 6d 65  24 2c a9 28 70 61 74 68  |pathname$,.(path|
00007490  6e 61 6d 65 24 29 2d 31  29 0d 38 cc 15 c8 99 20  |name$)-1).8.... |
000074a0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 38  |"Hourglass_On".8|
000074b0  d6 1c e3 20 70 61 74 73  61 76 65 25 3d 31 20 b8  |... patsave%=1 .|
000074c0  20 70 61 74 74 65 72 6e  73 25 0d 38 e0 28 6c 65  | patterns%.8.(le|
000074d0  61 66 6e 61 6d 65 24 3d  72 6f 6f 74 24 2b c2 22  |afname$=root$+."|
000074e0  30 30 22 2b c3 28 70 61  74 73 61 76 65 25 29 2c  |00"+.(patsave%),|
000074f0  32 29 0d 38 ea 26 73 74  61 72 74 70 61 74 25 3d  |2).8.&startpat%=|
00007500  a4 70 61 74 74 65 72 6e  61 64 64 72 28 70 61 74  |.patternaddr(pat|
00007510  73 61 76 65 25 29 2d 38  0d 38 f4 1c 6c 65 6e 67  |save%)-8.8..leng|
00007520  74 68 25 3d 21 28 73 74  61 72 74 70 61 74 25 2b  |th%=!(startpat%+|
00007530  34 29 2b 38 0d 38 fe 3e  f2 73 61 76 65 77 69 74  |4)+8.8.>.savewit|
00007540  68 70 61 74 68 73 74 72  69 6e 67 28 6c 65 61 66  |hpathstring(leaf|
00007550  6e 61 6d 65 24 2c 70 61  74 68 6e 61 6d 65 24 2c  |name$,pathname$,|
00007560  73 74 61 72 74 70 61 74  25 2c 6c 65 6e 67 74 68  |startpat%,length|
00007570  25 29 0d 39 08 2e f2 73  65 74 66 69 6c 65 74 79  |%).9...setfilety|
00007580  70 65 28 70 61 74 68 6e  61 6d 65 24 2b 22 2e 22  |pe(pathname$+"."|
00007590  2b 6c 65 61 66 6e 61 6d  65 24 2c 26 46 46 44 29  |+leafname$,&FFD)|
000075a0  0d 39 12 05 ed 0d 39 1c  16 c8 99 20 22 48 6f 75  |.9....9.... "Hou|
000075b0  72 67 6c 61 73 73 5f 4f  66 66 22 0d 39 26 1c c8  |rglass_Off".9&..|
000075c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000075d0  6e 75 22 2c 2c 2d 31 0d  39 30 05 e1 0d 39 3a 05  |nu",,-1.90...9:.|
000075e0  3a 0d 39 44 1c dd f2 73  61 76 65 73 79 6e 74 68  |:.9D...savesynth|
000075f0  28 70 61 74 68 24 2c 6c  65 61 66 24 29 0d 39 4e  |(path$,leaf$).9N|
00007600  1c 70 61 74 68 24 3d c0  70 61 74 68 24 2c a9 28  |.path$=.path$,.(|
00007610  70 61 74 68 24 29 2d 31  29 0d 39 58 09 41 25 3d  |path$)-1).9X.A%=|
00007620  31 30 0d 39 62 11 73 74  61 72 74 25 3d ba 28 74  |10.9b.start%=.(t|
00007630  63 25 29 0d 39 6c 30 f2  73 61 76 65 77 69 74 68  |c%).9l0.savewith|
00007640  70 61 74 68 73 74 72 69  6e 67 28 6c 65 61 66 24  |pathstring(leaf$|
00007650  2c 70 61 74 68 24 2c 73  74 61 72 74 25 2c 31 39  |,path$,start%,19|
00007660  35 32 29 0d 39 76 26 f2  73 65 74 66 69 6c 65 74  |52).9v&.setfilet|
00007670  79 70 65 28 70 61 74 68  24 2b 22 2e 22 2b 6c 65  |ype(path$+"."+le|
00007680  61 66 24 2c 26 32 31 41  29 0d 39 80 1c c8 99 20  |af$,&21A).9.... |
00007690  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000076a0  22 2c 2c 2d 31 0d 39 8a  05 e1 0d 39 94 05 3a 0d  |",,-1.9....9..:.|
000076b0  39 9e 1c dd f2 6c 6f 61  64 70 61 74 64 61 74 61  |9....loadpatdata|
000076c0  28 66 69 6c 65 6e 61 6d  65 24 29 0d 39 a8 40 e7  |(filename$).9.@.|
000076d0  20 71 25 21 32 30 3d 73  61 6d 70 6c 65 73 25 20  | q%!20=samples% |
000076e0  8c 20 f2 6c 6f 61 64 73  61 6d 70 6c 65 28 66 69  |. .loadsample(fi|
000076f0  6c 65 6e 61 6d 65 24 2c  a4 77 68 69 63 68 73 61  |lename$,.whichsa|
00007700  6d 70 6c 65 74 79 70 65  29 3a e1 0d 39 b2 13 43  |mpletype):..9..C|
00007710  25 3d 8e 28 66 69 6c 65  6e 61 6d 65 24 29 0d 39  |%=.(filename$).9|
00007720  bc 0c 72 65 61 64 24 3d  22 22 0d 39 c6 11 e3 20  |..read$="".9... |
00007730  62 79 74 65 25 3d 31 20  b8 20 34 0d 39 d0 12 72  |byte%=1 . 4.9..r|
00007740  65 61 64 24 2b 3d bd 28  9a 23 43 25 29 0d 39 da  |ead$+=.(.#C%).9.|
00007750  05 ed 0d 39 e4 09 d9 20  23 43 25 0d 39 ee 0c 61  |...9... #C%.9..a|
00007760  62 6f 72 74 25 3d a3 0d  39 f8 1e e7 20 72 65 61  |bort%=..9... rea|
00007770  64 24 3c 3e 22 50 41 54  54 22 20 8c 20 61 62 6f  |d$<>"PATT" . abo|
00007780  72 74 25 3d b9 0d 3a 02  1f e7 20 66 69 6c 65 6c  |rt%=..:... filel|
00007790  65 6e 25 3c 28 34 2b 38  29 20 8c 20 61 62 6f 72  |en%<(4+8) . abor|
000077a0  74 25 3d b9 0d 3a 0c 24  e7 20 66 69 6c 65 6c 65  |t%=..:.$. filele|
000077b0  6e 25 3e 28 38 2a 36 34  2a 34 2b 38 29 20 8c 20  |n%>(8*64*4+8) . |
000077c0  61 62 6f 72 74 25 3d b9  0d 3a 16 21 e7 20 28 66  |abort%=..:.!. (f|
000077d0  69 6c 65 6c 65 6e 25 20  80 20 33 29 3e 30 20 8c  |ilelen% . 3)>0 .|
000077e0  20 61 62 6f 72 74 25 3d  b9 0d 3a 20 28 e7 20 61  | abort%=..: (. a|
000077f0  62 6f 72 74 25 20 8c 20  85 20 31 37 2c 22 4e 6f  |bort% . . 17,"No|
00007800  74 20 61 20 70 61 74 74  65 72 6e 20 66 69 6c 65  |t a pattern file|
00007810  22 0d 3a 2a 26 ff 28 22  4c 4f 41 44 20 22 2b 66  |".:*&.("LOAD "+f|
00007820  69 6c 65 6e 61 6d 65 24  2b 22 20 22 2b c3 7e 63  |ilename$+" "+.~c|
00007830  6f 70 69 65 64 25 29 0d  3a 34 17 63 6f 70 69 65  |opied%).:4.copie|
00007840  64 6c 65 6e 25 3d 66 69  6c 65 6c 65 6e 25 0d 3a  |dlen%=filelen%.:|
00007850  3e 17 f2 6f 77 28 63 6f  70 79 70 61 74 74 65 72  |>..ow(copypatter|
00007860  6e 25 2c 30 29 0d 3a 48  05 e1 0d 3a 52 05 3a 0d  |n%,0).:H...:R.:.|
00007870  3a 5c 10 dd f2 69 6e 63  63 6f 70 79 70 61 74 0d  |:\...inccopypat.|
00007880  3a 66 26 e7 20 63 6f 70  79 70 61 74 25 3c 70 61  |:f&. copypat%<pa|
00007890  74 74 65 72 6e 73 25 20  8c 20 63 6f 70 79 70 61  |tterns% . copypa|
000078a0  74 25 2b 3d 31 0d 3a 70  22 f2 73 28 63 6f 70 79  |t%+=1.:p".s(copy|
000078b0  70 61 74 74 65 72 6e 25  2c 35 2c c3 28 63 6f 70  |pattern%,5,.(cop|
000078c0  79 70 61 74 25 29 29 0d  3a 7a 05 e1 0d 3a 84 05  |ypat%)).:z...:..|
000078d0  3a 0d 3a 8e 10 dd f2 64  65 63 63 6f 70 79 70 61  |:.:....deccopypa|
000078e0  74 0d 3a 98 1e e7 20 63  6f 70 79 70 61 74 25 3e  |t.:... copypat%>|
000078f0  31 20 8c 20 63 6f 70 79  70 61 74 25 2d 3d 31 0d  |1 . copypat%-=1.|
00007900  3a a2 22 f2 73 28 63 6f  70 79 70 61 74 74 65 72  |:.".s(copypatter|
00007910  6e 25 2c 35 2c c3 28 63  6f 70 79 70 61 74 25 29  |n%,5,.(copypat%)|
00007920  29 0d 3a ac 05 e1 0d 3a  b6 05 3a 0d 3a c0 11 dd  |).:....:..:.:...|
00007930  f2 63 6f 70 79 70 61 74  74 65 72 6e 0d 3a ca 2d  |.copypattern.:.-|
00007940  e7 20 63 6f 70 69 65 64  6c 65 6e 25 3d 30 20 8c  |. copiedlen%=0 .|
00007950  20 85 20 31 37 2c 22 4e  6f 20 70 61 74 74 65 72  | . 17,"No patter|
00007960  6e 20 6c 6f 61 64 65 64  22 0d 3a d4 24 63 6f 70  |n loaded".:.$cop|
00007970  79 74 6f 25 3d a4 70 61  74 74 65 72 6e 61 64 64  |yto%=.patternadd|
00007980  72 28 63 6f 70 79 70 61  74 25 29 2d 38 0d 3a de  |r(copypat%)-8.:.|
00007990  1d 63 6f 70 79 74 6f 6c  65 6e 25 3d 21 28 63 6f  |.copytolen%=!(co|
000079a0  70 79 74 6f 25 2b 34 29  2b 38 0d 3a e8 3f e7 20  |pyto%+4)+8.:.?. |
000079b0  63 6f 70 79 74 6f 6c 65  6e 25 3c 3e 63 6f 70 69  |copytolen%<>copi|
000079c0  65 64 6c 65 6e 25 20 8c  20 85 20 31 37 2c 22 50  |edlen% . . 17,"P|
000079d0  61 74 74 65 72 6e 20 73  69 7a 65 73 20 64 6f 6e  |attern sizes don|
000079e0  27 74 20 6d 61 74 63 68  22 0d 3a f2 21 f2 6d 61  |'t match".:.!.ma|
000079f0  6b 65 73 65 6c 65 63 74  65 64 28 63 6f 70 79 70  |keselected(copyp|
00007a00  61 74 74 65 72 6e 25 2c  32 29 0d 3a fc 1c e3 20  |attern%,2).:... |
00007a10  62 79 74 65 25 3d 30 20  b8 20 63 6f 70 69 65 64  |byte%=0 . copied|
00007a20  6c 65 6e 25 2d 31 0d 3b  06 1f 63 6f 70 79 74 6f  |len%-1.;..copyto|
00007a30  25 3f 62 79 74 65 25 3d  63 6f 70 69 65 64 25 3f  |%?byte%=copied%?|
00007a40  62 79 74 65 25 0d 3b 10  05 ed 0d 3b 1a 23 f2 6d  |byte%.;....;.#.m|
00007a50  61 6b 65 75 6e 73 65 6c  65 63 74 65 64 28 63 6f  |akeunselected(co|
00007a60  70 79 70 61 74 74 65 72  6e 25 2c 32 29 0d 3b 24  |pypattern%,2).;$|
00007a70  2c e7 20 ac 28 6d 72 65  64 6f 25 29 20 8c 20 f2  |,. .(mredo%) . .|
00007a80  63 6c 6f 73 65 77 69 6e  64 6f 77 28 63 6f 70 79  |closewindow(copy|
00007a90  70 61 74 74 65 72 6e 25  29 0d 3b 2e 05 e1 0d 3b  |pattern%).;....;|
00007aa0  38 05 3a 0d 3b 42 12 dd  f2 73 74 6f 72 65 70 61  |8.:.;B...storepa|
00007ab0  74 74 65 72 6e 0d 3b 4c  21 f2 6d 61 6b 65 73 65  |ttern.;L!.makese|
00007ac0  6c 65 63 74 65 64 28 73  61 76 65 70 61 74 74 65  |lected(savepatte|
00007ad0  72 6e 25 2c 37 29 0d 3b  56 26 73 74 61 72 74 70  |rn%,7).;V&startp|
00007ae0  61 74 25 3d a4 70 61 74  74 65 72 6e 61 64 64 72  |at%=.patternaddr|
00007af0  28 73 61 76 65 70 61 74  25 29 2d 38 0d 3b 60 1c  |(savepat%)-8.;`.|
00007b00  6c 65 6e 67 74 68 25 3d  21 28 73 74 61 72 74 70  |length%=!(startp|
00007b10  61 74 25 2b 34 29 2b 38  0d 3b 6a 19 e3 20 62 79  |at%+4)+8.;j.. by|
00007b20  74 65 25 3d 30 20 b8 20  6c 65 6e 67 74 68 25 2d  |te%=0 . length%-|
00007b30  31 0d 3b 74 21 63 6f 70  69 65 64 25 3f 62 79 74  |1.;t!copied%?byt|
00007b40  65 25 3d 73 74 61 72 74  70 61 74 25 3f 62 79 74  |e%=startpat%?byt|
00007b50  65 25 0d 3b 7e 05 ed 0d  3b 88 16 63 6f 70 69 65  |e%.;~...;..copie|
00007b60  64 6c 65 6e 25 3d 6c 65  6e 67 74 68 25 0d 3b 92  |dlen%=length%.;.|
00007b70  23 f2 6d 61 6b 65 75 6e  73 65 6c 65 63 74 65 64  |#.makeunselected|
00007b80  28 73 61 76 65 70 61 74  74 65 72 6e 25 2c 37 29  |(savepattern%,7)|
00007b90  0d 3b 9c 2a e7 20 ac 28  6d 72 65 64 6f 25 29 20  |.;.*. .(mredo%) |
00007ba0  8c 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |. .. "Wimp_Creat|
00007bb0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 3b a6 17 f2 6f  |eMenu",,-1.;...o|
00007bc0  77 28 63 6f 70 79 70 61  74 74 65 72 6e 25 2c 30  |w(copypattern%,0|
00007bd0  29 0d 3b b0 05 e1 0d 3b  ba 05 3a 0d 3b c4 19 dd  |).;....;..:.;...|
00007be0  f2 73 61 76 65 68 65 6c  70 28 73 61 76 65 68 65  |.savehelp(savehe|
00007bf0  6c 70 24 29 0d 3b ce 08  41 25 3d 30 0d 3b d8 0d  |lp$).;..A%=0.;..|
00007c00  62 25 3d ba 28 74 63 25  29 0d 3b e2 0b 68 25 3d  |b%=.(tc%).;..h%=|
00007c10  62 25 21 30 0d 3b ec 0c  68 6c 25 3d 62 25 21 34  |b%!0.;..hl%=b%!4|
00007c20  0d 3b f6 13 43 25 3d ae  28 73 61 76 65 68 65 6c  |.;..C%=.(savehel|
00007c30  70 24 29 0d 3c 00 15 c8  99 20 22 48 6f 75 72 67  |p$).<.... "Hourg|
00007c40  6c 61 73 73 5f 4f 6e 22  0d 3c 0a 13 e3 20 6c 69  |lass_On".<... li|
00007c50  6e 65 25 3d 31 20 b8 20  68 6c 25 0d 3c 14 2d c8  |ne%=1 . hl%.<.-.|
00007c60  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 50 65 72  |. "Hourglass_Per|
00007c70  63 65 6e 74 61 67 65 22  2c 31 30 30 2a 28 6c 69  |centage",100*(li|
00007c80  6e 65 25 2f 68 6c 25 29  0d 3c 1e 0f e3 20 63 25  |ne%/hl%).<... c%|
00007c90  3d 30 20 b8 20 37 35 0d  3c 28 0c 77 25 3d 68 25  |=0 . 75.<(.w%=h%|
00007ca0  3f 63 25 0d 3c 32 14 e7  20 77 25 3e 31 32 36 20  |?c%.<2.. w%>126 |
00007cb0  8c 20 77 25 2b 3d 39 0d  3c 3c 0b d5 23 43 25 2c  |. w%+=9.<<..#C%,|
00007cc0  77 25 0d 3c 46 05 ed 0d  3c 50 0a 68 25 2b 3d 37  |w%.<F...<P.h%+=7|
00007cd0  36 0d 3c 5a 0b d5 23 43  25 2c 31 30 0d 3c 64 05  |6.<Z..#C%,10.<d.|
00007ce0  ed 0d 3c 6e 16 c8 99 20  22 48 6f 75 72 67 6c 61  |..<n... "Hourgla|
00007cf0  73 73 5f 4f 66 66 22 0d  3c 78 09 d9 20 23 43 25  |ss_Off".<x.. #C%|
00007d00  0d 3c 82 20 f2 73 65 74  66 69 6c 65 74 79 70 65  |.<. .setfiletype|
00007d10  28 73 61 76 65 68 65 6c  70 24 2c 26 46 46 46 29  |(savehelp$,&FFF)|
00007d20  0d 3c 8c 1c c8 99 20 22  57 69 6d 70 5f 43 72 65  |.<.... "Wimp_Cre|
00007d30  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 3c 96 05  |ateMenu",,-1.<..|
00007d40  e1 0d 3c a0 05 3a 0d 3c  aa 1a dd f2 69 6e 63 76  |..<..:.<....incv|
00007d50  6f 6c 75 6d 65 28 77 68  69 63 68 76 6f 6c 25 29  |olume(whichvol%)|
00007d60  0d 3c b4 1e 76 6f 6c 25  3d 21 73 76 6f 6c 61 64  |.<..vol%=!svolad|
00007d70  64 72 25 28 77 68 69 63  68 76 6f 6c 25 29 0d 3c  |dr%(whichvol%).<|
00007d80  be 18 76 6f 6c 25 2b 3d  a4 62 75 74 74 6f 6e 76  |..vol%+=.buttonv|
00007d90  61 6c 28 62 25 29 0d 3c  c8 19 e7 20 76 6f 6c 25  |al(b%).<... vol%|
00007da0  3e 32 35 35 20 8c 20 76  6f 6c 25 3d 32 35 35 0d  |>255 . vol%=255.|
00007db0  3c d2 1e 21 73 76 6f 6c  61 64 64 72 25 28 77 68  |<..!svoladdr%(wh|
00007dc0  69 63 68 76 6f 6c 25 29  3d 76 6f 6c 25 0d 3c dc  |ichvol%)=vol%.<.|
00007dd0  1c f2 73 28 73 65 74 76  6f 6c 75 6d 65 25 2c 31  |..s(setvolume%,1|
00007de0  2c c3 28 76 6f 6c 25 29  29 0d 3c e6 05 e1 0d 3c  |,.(vol%)).<....<|
00007df0  f0 05 3a 0d 3c fa 1a dd  f2 64 65 63 76 6f 6c 75  |..:.<....decvolu|
00007e00  6d 65 28 77 68 69 63 68  76 6f 6c 25 29 0d 3d 04  |me(whichvol%).=.|
00007e10  1e 76 6f 6c 25 3d 21 73  76 6f 6c 61 64 64 72 25  |.vol%=!svoladdr%|
00007e20  28 77 68 69 63 68 76 6f  6c 25 29 0d 3d 0e 18 76  |(whichvol%).=..v|
00007e30  6f 6c 25 2d 3d a4 62 75  74 74 6f 6e 76 61 6c 28  |ol%-=.buttonval(|
00007e40  62 25 29 0d 3d 18 15 e7  20 76 6f 6c 25 3c 30 20  |b%).=... vol%<0 |
00007e50  8c 20 76 6f 6c 25 3d 30  0d 3d 22 1e 21 73 76 6f  |. vol%=0.=".!svo|
00007e60  6c 61 64 64 72 25 28 77  68 69 63 68 76 6f 6c 25  |laddr%(whichvol%|
00007e70  29 3d 76 6f 6c 25 0d 3d  2c 1c f2 73 28 73 65 74  |)=vol%.=,..s(set|
00007e80  76 6f 6c 75 6d 65 25 2c  31 2c c3 28 76 6f 6c 25  |volume%,1,.(vol%|
00007e90  29 29 0d 3d 36 05 e1 0d  3d 40 05 3a 0d 3d 4a 16  |)).=6...=@.:.=J.|
00007ea0  dd a4 62 75 74 74 6f 6e  76 61 6c 28 74 65 73 74  |..buttonval(test|
00007eb0  25 29 0d 3d 54 13 e7 20  74 65 73 74 25 3d 31 20  |%).=T.. test%=1 |
00007ec0  8c 20 3d 31 30 0d 3d 5e  12 e7 20 74 65 73 74 25  |. =10.=^.. test%|
00007ed0  3d 32 20 8c 20 3d 35 0d  3d 68 06 3d 31 0d 3d 72  |=2 . =5.=h.=1.=r|
00007ee0  05 3a 0d 3d 7c 1f dd f2  6c 6f 61 64 63 6f 63 6f  |.:.=|...loadcoco|
00007ef0  74 72 61 63 6b 28 63 6f  63 6f 74 72 61 63 6b 24  |track(cocotrack$|
00007f00  29 0d 3d 86 0c 61 62 6f  72 74 25 3d a3 0d 3d 90  |).=..abort%=..=.|
00007f10  13 e7 20 74 75 6e 65 6c  6f 61 64 65 64 25 20 8c  |.. tuneloaded% .|
00007f20  0d 3d 9a 49 65 72 72 6f  72 65 78 69 74 25 3d a4  |.=.Ierrorexit%=.|
00007f30  65 72 72 6f 72 62 6f 78  28 31 37 2c 22 45 78 69  |errorbox(17,"Exi|
00007f40  73 74 69 6e 67 20 74 75  6e 65 20 77 69 6c 6c 20  |sting tune will |
00007f50  62 65 20 6c 6f 73 74 20  2d 20 61 72 65 20 79 6f  |be lost - are yo|
00007f60  75 20 73 75 72 65 3f 22  29 0d 3d a4 2d e7 20 65  |u sure?").=.-. e|
00007f70  72 72 6f 72 65 78 69 74  25 3d 31 20 8c 20 f2 72  |rrorexit%=1 . .r|
00007f80  65 74 75 72 6e 6d 65 6d  6f 72 79 20 8b 20 61 62  |eturnmemory . ab|
00007f90  6f 72 74 25 3d b9 0d 3d  ae 05 cd 0d 3d b8 10 e7  |ort%=..=....=...|
00007fa0  20 61 62 6f 72 74 25 20  8c 20 e1 0d 3d c2 05 3a  | abort% . ..=..:|
00007fb0  0d 3d cc 0d f2 73 74 6f  70 74 75 6e 65 0d 3d d6  |.=...stoptune.=.|
00007fc0  0e 61 62 6f 72 74 65 64  25 3d a3 0d 3d e0 09 66  |.aborted%=..=..f|
00007fd0  6d 25 3d 30 0d 3d ea 27  67 6f 74 69 74 25 3d a4  |m%=0.=.'gotit%=.|
00007fe0  67 72 61 62 6d 65 6d 28  66 69 6c 65 6c 65 6e 25  |grabmem(filelen%|
00007ff0  2a 32 2b 31 30 2a 31 30  32 34 29 0d 3d f4 3e e7  |*2+10*1024).=.>.|
00008000  20 67 6f 74 69 74 25 3d  a3 20 8c 20 f2 6e 6f 74  | gotit%=. . .not|
00008010  65 6e 6f 75 67 68 74 6f  6c 6f 61 64 28 22 20 66  |enoughtoload(" f|
00008020  6f 72 20 43 6f 63 6f 6e  69 7a 65 72 20 63 6f 6e  |or Coconizer con|
00008030  76 65 72 73 69 6f 6e 22  29 0d 3d fe 22 74 65 6d  |version").=."tem|
00008040  70 6c 6f 61 64 25 3d 74  74 25 2b 66 69 6c 65 6c  |pload%=tt%+filel|
00008050  65 6e 25 2b 31 30 2a 31  30 32 34 0d 3e 08 27 74  |en%+10*1024.>.'t|
00008060  65 6d 70 6c 6f 61 64 25  3d 28 74 65 6d 70 6c 6f  |empload%=(templo|
00008070  61 64 25 2d 34 29 20 80  20 26 46 46 46 46 46 46  |ad%-4) . &FFFFFF|
00008080  46 43 0d 3e 12 29 ff 28  22 4c 4f 41 44 20 22 2b  |FC.>.).("LOAD "+|
00008090  63 6f 63 6f 74 72 61 63  6b 24 2b 22 20 22 2b c3  |cocotrack$+" "+.|
000080a0  7e 74 65 6d 70 6c 6f 61  64 25 29 0d 3e 1c 08 41  |~tempload%).>..A|
000080b0  25 3d 32 0d 3e 26 10 42  25 3d 74 65 6d 70 6c 6f  |%=2.>&.B%=templo|
000080c0  61 64 25 0d 3e 30 0a 43  25 3d 74 74 25 0d 3e 3a  |ad%.>0.C%=tt%.>:|
000080d0  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
000080e0  6e 22 0d 3e 44 09 d6 20  74 63 25 0d 3e 4e 16 c8  |n".>D.. tc%.>N..|
000080f0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00008100  22 0d 3e 58 14 6e 65 77  73 69 7a 65 25 3d 74 74  |".>X.newsize%=tt|
00008110  25 21 34 2b 38 0d 3e 62  2d 6e 65 77 73 69 7a 65  |%!4+8.>b-newsize|
00008120  25 3d 28 6e 65 77 73 69  7a 65 25 2b 33 32 2a 31  |%=(newsize%+32*1|
00008130  30 32 34 2d 31 29 20 80  20 26 46 46 46 46 38 30  |024-1) . &FFFF80|
00008140  30 30 0d 3e 6c 2c c8 99  20 22 58 57 69 6d 70 5f  |00.>l,.. "XWimp_|
00008150  53 6c 6f 74 53 69 7a 65  22 2c 6e 65 77 73 69 7a  |SlotSize",newsiz|
00008160  65 25 2b 61 70 70 73 69  7a 65 25 2c 2d 31 0d 3e  |e%+appsize%,-1.>|
00008170  76 1a 66 6d 25 3d 6e 65  77 73 69 7a 65 25 2d 28  |v.fm%=newsize%-(|
00008180  74 74 25 21 34 2b 38 29  0d 3e 80 0f f2 6a 75 73  |tt%!4+8).>...jus|
00008190  74 6c 6f 61 64 65 64 0d  3e 8a 05 e1 0d 3e 94 05  |tloaded.>....>..|
000081a0  3a 0d 3e 9e 1f dd f2 6c  6f 61 64 70 72 6f 74 72  |:.>....loadprotr|
000081b0  61 63 6b 65 72 28 70 72  6f 74 72 61 63 6b 24 29  |acker(protrack$)|
000081c0  0d 3e a8 0c 61 62 6f 72  74 25 3d a3 0d 3e b2 13  |.>..abort%=..>..|
000081d0  e7 20 74 75 6e 65 6c 6f  61 64 65 64 25 20 8c 0d  |. tuneloaded% ..|
000081e0  3e bc 49 65 72 72 6f 72  65 78 69 74 25 3d a4 65  |>.Ierrorexit%=.e|
000081f0  72 72 6f 72 62 6f 78 28  31 37 2c 22 45 78 69 73  |rrorbox(17,"Exis|
00008200  74 69 6e 67 20 74 75 6e  65 20 77 69 6c 6c 20 62  |ting tune will b|
00008210  65 20 6c 6f 73 74 20 2d  20 61 72 65 20 79 6f 75  |e lost - are you|
00008220  20 73 75 72 65 3f 22 29  0d 3e c6 2d e7 20 65 72  | sure?").>.-. er|
00008230  72 6f 72 65 78 69 74 25  3d 31 20 8c 20 f2 72 65  |rorexit%=1 . .re|
00008240  74 75 72 6e 6d 65 6d 6f  72 79 20 8b 20 61 62 6f  |turnmemory . abo|
00008250  72 74 25 3d b9 0d 3e d0  05 cd 0d 3e da 10 e7 20  |rt%=..>....>... |
00008260  61 62 6f 72 74 25 20 8c  20 e1 0d 3e e4 05 3a 0d  |abort% . ..>..:.|
00008270  3e ee 0d f2 73 74 6f 70  74 75 6e 65 0d 3e f8 09  |>...stoptune.>..|
00008280  66 6d 25 3d 30 0d 3f 02  27 67 6f 74 69 74 25 3d  |fm%=0.?.'gotit%=|
00008290  a4 67 72 61 62 6d 65 6d  28 66 69 6c 65 6c 65 6e  |.grabmem(filelen|
000082a0  25 2a 32 2b 31 30 2a 31  30 32 34 29 0d 3f 0c 3f  |%*2+10*1024).?.?|
000082b0  e7 20 67 6f 74 69 74 25  3d a3 20 8c 20 f2 6e 6f  |. gotit%=. . .no|
000082c0  74 65 6e 6f 75 67 68 74  6f 6c 6f 61 64 28 22 20  |tenoughtoload(" |
000082d0  66 6f 72 20 50 72 6f 54  72 61 63 6b 65 72 20 63  |for ProTracker c|
000082e0  6f 6e 76 65 72 73 69 6f  6e 22 29 0d 3f 16 22 74  |onversion").?."t|
000082f0  65 6d 70 6c 6f 61 64 25  3d 74 74 25 2b 66 69 6c  |empload%=tt%+fil|
00008300  65 6c 65 6e 25 2b 31 30  2a 31 30 32 34 0d 3f 20  |elen%+10*1024.? |
00008310  27 74 65 6d 70 6c 6f 61  64 25 3d 28 74 65 6d 70  |'tempload%=(temp|
00008320  6c 6f 61 64 25 2d 34 29  20 80 20 26 46 46 46 46  |load%-4) . &FFFF|
00008330  46 46 46 43 0d 3f 2a 28  ff 28 22 4c 4f 41 44 20  |FFFC.?*(.("LOAD |
00008340  22 2b 70 72 6f 74 72 61  63 6b 24 2b 22 20 22 2b  |"+protrack$+" "+|
00008350  c3 7e 74 65 6d 70 6c 6f  61 64 25 29 0d 3f 34 08  |.~tempload%).?4.|
00008360  41 25 3d 31 0d 3f 3e 10  42 25 3d 74 65 6d 70 6c  |A%=1.?>.B%=templ|
00008370  6f 61 64 25 0d 3f 48 0a  43 25 3d 74 74 25 0d 3f  |oad%.?H.C%=tt%.?|
00008380  52 0f 44 25 3d 66 69 6c  65 6c 65 6e 25 0d 3f 5c  |R.D%=filelen%.?\|
00008390  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
000083a0  6e 22 0d 3f 66 09 d6 20  74 63 25 0d 3f 70 28 ff  |n".?f.. tc%.?p(.|
000083b0  28 22 4c 4f 41 44 20 22  2b 70 72 6f 74 72 61 63  |("LOAD "+protrac|
000083c0  6b 24 2b 22 20 22 2b c3  7e 74 65 6d 70 6c 6f 61  |k$+" "+.~temploa|
000083d0  64 25 29 0d 3f 7a 08 41  25 3d 33 0d 3f 84 10 42  |d%).?z.A%=3.?..B|
000083e0  25 3d 74 65 6d 70 6c 6f  61 64 25 0d 3f 8e 0a 43  |%=tempload%.?..C|
000083f0  25 3d 74 74 25 0d 3f 98  09 d6 20 74 63 25 0d 3f  |%=tt%.?... tc%.?|
00008400  a2 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
00008410  4f 66 66 22 0d 3f ac 14  6e 65 77 73 69 7a 65 25  |Off".?..newsize%|
00008420  3d 74 74 25 21 34 2b 38  0d 3f b6 2d 6e 65 77 73  |=tt%!4+8.?.-news|
00008430  69 7a 65 25 3d 28 6e 65  77 73 69 7a 65 25 2b 33  |ize%=(newsize%+3|
00008440  32 2a 31 30 32 34 2d 31  29 20 80 20 26 46 46 46  |2*1024-1) . &FFF|
00008450  46 38 30 30 30 0d 3f c0  2c c8 99 20 22 58 57 69  |F8000.?.,.. "XWi|
00008460  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 6e 65 77  |mp_SlotSize",new|
00008470  73 69 7a 65 25 2b 61 70  70 73 69 7a 65 25 2c 2d  |size%+appsize%,-|
00008480  31 0d 3f ca 1a 66 6d 25  3d 6e 65 77 73 69 7a 65  |1.?..fm%=newsize|
00008490  25 2d 28 74 74 25 21 34  2b 38 29 0d 3f d4 0f f2  |%-(tt%!4+8).?...|
000084a0  6a 75 73 74 6c 6f 61 64  65 64 0d 3f de 05 e1 0d  |justloaded.?....|
000084b0  3f e8 05 3a 0d 3f f2 0e  dd f2 70 6c 61 79 74 75  |?..:.?....playtu|
000084c0  6e 65 0d 3f fc 18 e7 20  ac 28 74 75 6e 65 6c 6f  |ne.?... .(tunelo|
000084d0  61 64 65 64 25 29 20 8c  20 e1 0d 40 06 12 e7 20  |aded%) . ..@... |
000084e0  70 6c 61 79 69 6e 67 25  20 8c 20 e1 0d 40 10 12  |playing% . ..@..|
000084f0  62 79 74 65 73 25 3d 74  74 25 21 34 2b 38 0d 40  |bytes%=tt%!4+8.@|
00008500  1a 0d 41 25 3d 62 79 74  65 73 25 0d 40 24 1d f4  |..A%=bytes%.@$..|
00008510  20 72 6d 61 73 70 61 63  65 25 3d 55 53 52 28 63  | rmaspace%=USR(c|
00008520  6c 61 69 6d 52 6d 61 29  0d 40 2e 2d c8 99 20 22  |laimRma).@.-.. "|
00008530  4f 53 5f 4d 6f 64 75 6c  65 22 2c 36 2c 30 2c 30  |OS_Module",6,0,0|
00008540  2c 62 79 74 65 73 25 20  b8 20 2c 2c 72 6d 61 73  |,bytes% . ,,rmas|
00008550  70 61 63 65 25 0d 40 38  38 e7 20 72 6d 61 73 70  |pace%.@88. rmasp|
00008560  61 63 65 25 3d 30 20 8c  20 85 20 31 37 2c 22 49  |ace%=0 . . 17,"I|
00008570  6e 73 75 66 66 69 63 69  65 6e 74 20 4d 65 6d 6f  |nsufficient Memo|
00008580  72 79 20 41 76 61 69 6c  61 62 6c 65 22 0d 40 42  |ry Available".@B|
00008590  10 f2 73 65 74 75 70 76  6f 69 63 65 73 0d 40 4c  |..setupvoices.@L|
000085a0  12 f2 72 65 77 72 69 74  65 73 74 65 72 65 6f 0d  |..rewritestereo.|
000085b0  40 56 16 72 6d 61 63 6c  61 69 6d 65 64 25 3d 62  |@V.rmaclaimed%=b|
000085c0  79 74 65 73 25 0d 40 60  0a 41 25 3d 74 74 25 0d  |ytes%.@`.A%=tt%.|
000085d0  40 6a 10 42 25 3d 72 6d  61 73 70 61 63 65 25 0d  |@j.B%=rmaspace%.|
000085e0  40 74 0d 43 25 3d 62 79  74 65 73 25 0d 40 7e 0f  |@t.C%=bytes%.@~.|
000085f0  d6 20 63 6f 70 79 62 79  74 65 73 0d 40 88 2d c8  |. copybytes.@.-.|
00008600  99 20 22 54 72 61 63 6b  65 72 5f 4d 65 6d 6f 72  |. "Tracker_Memor|
00008610  79 4c 6f 61 64 22 2c 72  6d 61 73 70 61 63 65 25  |yLoad",rmaspace%|
00008620  2c 74 74 25 21 34 2b 38  0d 40 92 15 c8 99 20 22  |,tt%!4+8.@.... "|
00008630  54 72 61 63 6b 65 72 5f  50 6c 61 79 22 0d 40 9c  |Tracker_Play".@.|
00008640  0e 70 6c 61 79 69 6e 67  25 3d b9 0d 40 a6 10 f2  |.playing%=..@...|
00008650  70 61 6e 65 6c 73 74 61  74 75 73 0d 40 b0 05 e1  |panelstatus.@...|
00008660  0d 40 ba 05 3a 0d 40 c4  0e dd f2 73 74 6f 70 74  |.@..:.@....stopt|
00008670  75 6e 65 0d 40 ce 15 e7  20 ac 28 70 6c 61 79 69  |une.@... .(playi|
00008680  6e 67 25 29 20 8c 20 e1  0d 40 d8 15 c8 99 20 22  |ng%) . ..@.... "|
00008690  54 72 61 63 6b 65 72 5f  53 74 6f 70 22 0d 40 e2  |Tracker_Stop".@.|
000086a0  21 c8 99 20 22 58 4f 53  5f 4d 6f 64 75 6c 65 22  |!.. "XOS_Module"|
000086b0  2c 37 2c 30 2c 72 6d 61  73 70 61 63 65 25 0d 40  |,7,0,rmaspace%.@|
000086c0  ec 2d c8 99 20 22 58 4f  53 5f 43 68 61 6e 67 65  |.-.. "XOS_Change|
000086d0  44 79 6e 61 6d 69 63 41  72 65 61 22 2c 31 2c 2d  |DynamicArea",1,-|
000086e0  72 6d 61 63 6c 61 69 6d  65 64 25 0d 40 f6 0e 70  |rmaclaimed%.@..p|
000086f0  6c 61 79 69 6e 67 25 3d  a3 0d 41 00 1b 6f 6c 64  |laying%=..A..old|
00008700  70 6f 73 25 3d 2d 31 3a  6f 6c 64 65 76 65 6e 74  |pos%=-1:oldevent|
00008710  25 3d 2d 31 0d 41 0a 10  f2 70 61 6e 65 6c 73 74  |%=-1.A...panelst|
00008720  61 74 75 73 0d 41 14 05  e1 0d 41 1e 05 3a 0d 41  |atus.A....A..:.A|
00008730  28 1a dd f2 73 68 61 64  65 28 77 69 6e 64 6f 77  |(...shade(window|
00008740  25 2c 69 63 6f 6e 25 29  0d 41 32 11 71 32 25 21  |%,icon%).A2.q2%!|
00008750  30 3d 77 69 6e 64 6f 77  25 0d 41 3c 0f 71 32 25  |0=window%.A<.q2%|
00008760  21 34 3d 69 63 6f 6e 25  0d 41 46 0e 71 32 25 21  |!4=icon%.AF.q2%!|
00008770  38 3d 32 5e 32 32 0d 41  50 0f 71 32 25 21 31 32  |8=2^22.AP.q2%!12|
00008780  3d 32 5e 32 32 0d 41 5a  1f c8 99 20 22 57 69 6d  |=2^22.AZ... "Wim|
00008790  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
000087a0  2c 71 32 25 0d 41 64 05  e1 0d 41 6e 05 3a 0d 41  |,q2%.Ad...An.:.A|
000087b0  78 1c dd f2 75 6e 73 68  61 64 65 28 77 69 6e 64  |x...unshade(wind|
000087c0  6f 77 25 2c 69 63 6f 6e  25 29 0d 41 82 11 71 32  |ow%,icon%).A..q2|
000087d0  25 21 30 3d 77 69 6e 64  6f 77 25 0d 41 8c 0f 71  |%!0=window%.A..q|
000087e0  32 25 21 34 3d 69 63 6f  6e 25 0d 41 96 0b 71 32  |2%!4=icon%.A..q2|
000087f0  25 21 38 3d 30 0d 41 a0  0f 71 32 25 21 31 32 3d  |%!8=0.A..q2%!12=|
00008800  32 5e 32 32 0d 41 aa 1f  c8 99 20 22 57 69 6d 70  |2^22.A.... "Wimp|
00008810  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00008820  71 32 25 0d 41 b4 05 e1  0d 41 be 05 3a 0d 41 c8  |q2%.A....A..:.A.|
00008830  11 dd f2 70 61 6e 65 6c  73 74 61 74 75 73 0d 41  |...panelstatus.A|
00008840  d2 10 e7 20 70 6c 61 79  69 6e 67 25 20 8c 0d 41  |... playing% ..A|
00008850  dc 16 f2 73 68 61 64 65  28 70 6c 61 79 65 72 25  |...shade(player%|
00008860  2c 31 36 29 0d 41 e6 18  f2 75 6e 73 68 61 64 65  |,16).A...unshade|
00008870  28 70 6c 61 79 65 72 25  2c 31 37 29 0d 41 f0 05  |(player%,17).A..|
00008880  cc 0d 41 fa 16 f2 73 68  61 64 65 28 70 6c 61 79  |..A...shade(play|
00008890  65 72 25 2c 31 37 29 0d  42 04 18 f2 75 6e 73 68  |er%,17).B...unsh|
000088a0  61 64 65 28 70 6c 61 79  65 72 25 2c 31 36 29 0d  |ade(player%,16).|
000088b0  42 0e 16 f2 73 28 70 6c  61 79 65 72 25 2c 31 30  |B...s(player%,10|
000088c0  2c 22 2d 22 29 0d 42 18  15 f2 73 28 70 6c 61 79  |,"-").B...s(play|
000088d0  65 72 25 2c 31 38 2c 22  22 29 0d 42 22 05 cd 0d  |er%,18,"").B"...|
000088e0  42 2c 05 e1 0d 42 36 05  3a 0d 42 40 12 dd f2 73  |B,...B6.:.B@...s|
000088f0  68 6f 77 6d 75 73 69 63  70 6f 73 0d 42 4a 15 e7  |howmusicpos.BJ..|
00008900  20 ac 28 70 6c 61 79 69  6e 67 25 29 20 8c 20 e1  | .(playing%) . .|
00008910  0d 42 54 29 6d 75 73 63  6f 75 6e 74 65 72 25 3d  |.BT)muscounter%=|
00008920  28 6d 75 73 63 6f 75 6e  74 65 72 25 2b 31 29 20  |(muscounter%+1) |
00008930  83 20 75 70 64 61 74 65  25 0d 42 5e 15 e7 20 6d  |. update%.B^.. m|
00008940  75 73 63 6f 75 6e 74 65  72 25 3d 30 20 8c 0d 42  |uscounter%=0 ..B|
00008950  68 2b c8 99 20 22 54 72  61 63 6b 65 72 5f 52 65  |h+.. "Tracker_Re|
00008960  61 64 50 6f 73 22 20 b8  20 70 6f 73 25 2c 65 76  |adPos" . pos%,ev|
00008970  65 6e 74 25 2c 6d 61 78  25 0d 42 72 15 e7 20 70  |ent%,max%.Br.. p|
00008980  6f 73 25 3c 3e 6f 6c 64  70 6f 73 25 20 8c 0d 42  |os%<>oldpos% ..B|
00008990  7c 2a f2 73 28 70 6c 61  79 65 72 25 2c 31 30 2c  ||*.s(player%,10,|
000089a0  c3 28 70 6f 73 25 2b 31  29 2b 22 3a 22 2b c3 28  |.(pos%+1)+":"+.(|
000089b0  6d 61 78 25 2b 31 29 29  0d 42 86 05 cd 0d 42 90  |max%+1)).B....B.|
000089c0  32 e7 20 65 76 65 6e 74  25 3c 3e 6f 6c 64 65 76  |2. event%<>oldev|
000089d0  65 6e 74 25 20 8c 20 f2  73 28 70 6c 61 79 65 72  |ent% . .s(player|
000089e0  25 2c 31 38 2c c3 28 65  76 65 6e 74 25 29 29 0d  |%,18,.(event%)).|
000089f0  42 9a 21 6f 6c 64 70 6f  73 25 3d 70 6f 73 25 3a  |B.!oldpos%=pos%:|
00008a00  6f 6c 64 65 76 65 6e 74  25 3d 65 76 65 6e 74 25  |oldevent%=event%|
00008a10  0d 42 a4 05 cd 0d 42 ae  05 e1 0d 42 b8 05 3a 0d  |.B....B....B..:.|
00008a20  42 c2 0c dd f2 72 65 77  69 6e 64 0d 42 cc 15 e7  |B....rewind.B...|
00008a30  20 ac 28 70 6c 61 79 69  6e 67 25 29 20 8c 20 e1  | .(playing%) . .|
00008a40  0d 42 d6 26 c8 99 20 22  54 72 61 63 6b 65 72 5f  |.B.&.. "Tracker_|
00008a50  52 65 61 64 50 6f 73 22  20 b8 20 70 6f 73 25 2c  |ReadPos" . pos%,|
00008a60  65 76 65 6e 74 25 0d 42  e0 2b e7 20 70 6f 73 25  |event%.B.+. pos%|
00008a70  3e 30 20 8c 20 c8 99 20  22 54 72 61 63 6b 65 72  |>0 . .. "Tracker|
00008a80  5f 53 65 74 50 6f 73 22  2c 70 6f 73 25 2d 31 2c  |_SetPos",pos%-1,|
00008a90  30 0d 42 ea 05 e1 0d 42  f4 05 3a 0d 42 fe 11 dd  |0.B....B..:.B...|
00008aa0  f2 66 61 73 74 66 6f 72  77 61 72 64 0d 43 08 15  |.fastforward.C..|
00008ab0  e7 20 ac 28 70 6c 61 79  69 6e 67 25 29 20 8c 20  |. .(playing%) . |
00008ac0  e1 0d 43 12 2b c8 99 20  22 54 72 61 63 6b 65 72  |..C.+.. "Tracker|
00008ad0  5f 52 65 61 64 50 6f 73  22 20 b8 20 70 6f 73 25  |_ReadPos" . pos%|
00008ae0  2c 65 76 65 6e 74 25 2c  6d 61 78 25 0d 43 1c 2e  |,event%,max%.C..|
00008af0  e7 20 70 6f 73 25 3c 6d  61 78 25 20 8c 20 c8 99  |. pos%<max% . ..|
00008b00  20 22 54 72 61 63 6b 65  72 5f 53 65 74 50 6f 73  | "Tracker_SetPos|
00008b10  22 2c 70 6f 73 25 2b 31  2c 30 0d 43 26 05 e1 0d  |",pos%+1,0.C&...|
00008b20  43 30 05 3a 0d 43 3a 16  dd f2 69 6e 69 74 69 61  |C0.:.C:...initia|
00008b30  6c 69 73 65 76 6f 69 63  65 73 0d 43 44 14 e3 20  |lisevoices.CD.. |
00008b40  76 25 3d 31 20 b8 20 76  6f 69 63 65 73 25 0d 43  |v%=1 . voices%.C|
00008b50  4e 1d f2 6d 61 6b 65 73  65 6c 65 63 74 65 64 28  |N..makeselected(|
00008b60  70 6c 61 79 65 72 25 2c  76 25 29 0d 43 58 18 f2  |player%,v%).CX..|
00008b70  75 6e 73 68 61 64 65 28  70 6c 61 79 65 72 25 2c  |unshade(player%,|
00008b80  76 25 29 0d 43 62 22 c8  99 20 22 54 72 61 63 6b  |v%).Cb".. "Track|
00008b90  65 72 5f 52 65 73 74 6f  72 65 43 68 61 6e 6e 65  |er_RestoreChanne|
00008ba0  6c 22 2c 76 25 0d 43 6c  21 c8 99 20 22 54 72 61  |l",v%.Cl!.. "Tra|
00008bb0  63 6b 65 72 5f 56 6f 6c  75 6d 65 22 2c 2d 31 2d  |cker_Volume",-1-|
00008bc0  76 25 2c 31 32 37 0d 43  76 05 ed 0d 43 80 11 e7  |v%,127.Cv...C...|
00008bd0  20 76 6f 69 63 65 73 25  3c 38 20 8c 0d 43 8a 16  | voices%<8 ..C..|
00008be0  e3 20 76 25 3d 76 6f 69  63 65 73 25 2b 31 20 b8  |. v%=voices%+1 .|
00008bf0  20 38 0d 43 94 1f f2 6d  61 6b 65 75 6e 73 65 6c  | 8.C...makeunsel|
00008c00  65 63 74 65 64 28 70 6c  61 79 65 72 25 2c 76 25  |ected(player%,v%|
00008c10  29 0d 43 9e 16 f2 73 68  61 64 65 28 70 6c 61 79  |).C...shade(play|
00008c20  65 72 25 2c 76 25 29 0d  43 a8 05 ed 0d 43 b2 05  |er%,v%).C....C..|
00008c30  cd 0d 43 bc 05 e1 0d 43  c6 05 3a 0d 43 d0 11 dd  |..C....C..:.C...|
00008c40  f2 73 65 74 75 70 76 6f  69 63 65 73 0d 43 da 14  |.setupvoices.C..|
00008c50  e3 20 76 25 3d 31 20 b8  20 76 6f 69 63 65 73 25  |. v%=1 . voices%|
00008c60  0d 43 e4 21 c8 99 20 22  54 72 61 63 6b 65 72 5f  |.C.!.. "Tracker_|
00008c70  56 6f 6c 75 6d 65 22 2c  2d 31 2d 76 25 2c 31 32  |Volume",-1-v%,12|
00008c80  37 0d 43 ee 21 e7 20 a4  69 73 69 74 73 65 6c 65  |7.C.!. .isitsele|
00008c90  63 74 65 64 28 70 6c 61  79 65 72 25 2c 76 25 29  |cted(player%,v%)|
00008ca0  20 8c 0d 43 f8 22 c8 99  20 22 54 72 61 63 6b 65  | ..C.".. "Tracke|
00008cb0  72 5f 52 65 73 74 6f 72  65 43 68 61 6e 6e 65 6c  |r_RestoreChannel|
00008cc0  22 2c 76 25 0d 44 02 05  cc 0d 44 0c 1f c8 99 20  |",v%.D....D.... |
00008cd0  22 54 72 61 63 6b 65 72  5f 4d 75 74 65 43 68 61  |"Tracker_MuteCha|
00008ce0  6e 6e 65 6c 22 2c 76 25  0d 44 16 05 cd 0d 44 20  |nnel",v%.D....D |
00008cf0  05 ed 0d 44 2a 05 e1 0d  44 34 05 3a 0d 44 3e 15  |...D*...D4.:.D>.|
00008d00  dd f2 74 6f 67 67 6c 65  76 6f 69 63 65 28 76 25  |..togglevoice(v%|
00008d10  29 0d 44 48 18 e7 20 ac  28 74 75 6e 65 6c 6f 61  |).DH.. .(tuneloa|
00008d20  64 65 64 25 29 20 8c 20  e1 0d 44 52 21 e7 20 a4  |ded%) . ..DR!. .|
00008d30  69 73 69 74 73 65 6c 65  63 74 65 64 28 70 6c 61  |isitselected(pla|
00008d40  79 65 72 25 2c 76 25 29  20 8c 0d 44 5c 1f f2 6d  |yer%,v%) ..D\..m|
00008d50  61 6b 65 75 6e 73 65 6c  65 63 74 65 64 28 70 6c  |akeunselected(pl|
00008d60  61 79 65 72 25 2c 76 25  29 0d 44 66 1f c8 99 20  |ayer%,v%).Df... |
00008d70  22 54 72 61 63 6b 65 72  5f 4d 75 74 65 43 68 61  |"Tracker_MuteCha|
00008d80  6e 6e 65 6c 22 2c 76 25  0d 44 70 05 cc 0d 44 7a  |nnel",v%.Dp...Dz|
00008d90  1d f2 6d 61 6b 65 73 65  6c 65 63 74 65 64 28 70  |..makeselected(p|
00008da0  6c 61 79 65 72 25 2c 76  25 29 0d 44 84 22 c8 99  |layer%,v%).D."..|
00008db0  20 22 54 72 61 63 6b 65  72 5f 52 65 73 74 6f 72  | "Tracker_Restor|
00008dc0  65 43 68 61 6e 6e 65 6c  22 2c 76 25 0d 44 8e 05  |eChannel",v%.D..|
00008dd0  cd 0d 44 98 05 e1 0d 44  a2 05 3a 0d 44 ac 18 dd  |..D....D..:.D...|
00008de0  f2 61 6c 74 65 72 73 74  65 72 65 6f 28 69 63 6f  |.alterstereo(ico|
00008df0  6e 25 29 0d 44 b6 1e e7  20 69 63 6f 6e 25 3c 30  |n%).D... icon%<0|
00008e00  20 84 20 69 63 6f 6e 25  3e 3d 38 2a 38 20 8c 20  | . icon%>=8*8 . |
00008e10  e1 0d 44 c0 17 e7 20 28  69 63 6f 6e 25 20 83 20  |..D... (icon% . |
00008e20  38 29 3d 30 20 8c 20 e1  0d 44 ca 29 e7 20 62 25  |8)=0 . ..D.). b%|
00008e30  3d 31 20 8c 20 f2 6d 61  6b 65 73 65 6c 65 63 74  |=1 . .makeselect|
00008e40  65 64 28 73 74 65 72 65  6f 25 2c 69 63 6f 6e 25  |ed(stereo%,icon%|
00008e50  29 0d 44 d4 1a e7 20 69  63 6f 6e 25 3e 3d 76 6f  |).D... icon%>=vo|
00008e60  69 63 65 73 25 2a 38 20  8c 20 e1 0d 44 de 14 76  |ices%*8 . ..D..v|
00008e70  25 3d 28 69 63 6f 6e 25  20 81 20 38 29 2b 31 0d  |%=(icon% . 8)+1.|
00008e80  44 e8 20 73 74 65 72 61  64 64 72 25 3f 28 76 25  |D. steraddr%?(v%|
00008e90  2d 31 29 3d 28 69 63 6f  6e 25 20 83 20 38 29 0d  |-1)=(icon% . 8).|
00008ea0  44 f2 3c e7 20 70 6c 61  79 69 6e 67 25 20 8c 20  |D.<. playing% . |
00008eb0  c8 99 20 22 53 6f 75 6e  64 5f 53 74 65 72 65 6f  |.. "Sound_Stereo|
00008ec0  22 2c 76 25 2c 73 74 65  72 65 6f 76 61 6c 73 25  |",v%,stereovals%|
00008ed0  28 69 63 6f 6e 25 20 83  20 38 29 0d 44 fc 05 e1  |(icon% . 8).D...|
00008ee0  0d 45 06 05 3a 0d 45 10  12 dd f2 69 6e 63 70 61  |.E..:.E....incpa|
00008ef0  74 6c 65 6e 67 74 68 0d  45 1a 1d e7 20 70 61 74  |tlength.E... pat|
00008f00  6c 65 6e 25 3c 36 34 20  8c 20 70 61 74 6c 65 6e  |len%<64 . patlen|
00008f10  25 2b 3d 31 0d 45 24 1e  f2 73 28 73 65 74 74 69  |%+=1.E$..s(setti|
00008f20  6e 67 73 25 2c 35 2c c3  28 70 61 74 6c 65 6e 25  |ngs%,5,.(patlen%|
00008f30  29 29 0d 45 2e 05 e1 0d  45 38 05 3a 0d 45 42 12  |)).E....E8.:.EB.|
00008f40  dd f2 64 65 63 70 61 74  6c 65 6e 67 74 68 0d 45  |..decpatlength.E|
00008f50  4c 1c e7 20 70 61 74 6c  65 6e 25 3e 31 20 8c 20  |L.. patlen%>1 . |
00008f60  70 61 74 6c 65 6e 25 2d  3d 31 0d 45 56 1e f2 73  |patlen%-=1.EV..s|
00008f70  28 73 65 74 74 69 6e 67  73 25 2c 35 2c c3 28 70  |(settings%,5,.(p|
00008f80  61 74 6c 65 6e 25 29 29  0d 45 60 05 e1 0d 45 6a  |atlen%)).E`...Ej|
00008f90  05 3a 0d 45 74 15 dd a4  77 68 69 63 68 73 61 6d  |.:.Et...whichsam|
00008fa0  70 6c 65 74 79 70 65 0d  45 7e 25 e7 20 a4 69 73  |pletype.E~%. .is|
00008fb0  69 74 73 65 6c 65 63 74  65 64 28 73 65 74 74 69  |itselected(setti|
00008fc0  6e 67 73 25 2c 36 29 20  8c 20 3d 33 0d 45 88 25  |ngs%,6) . =3.E.%|
00008fd0  e7 20 a4 69 73 69 74 73  65 6c 65 63 74 65 64 28  |. .isitselected(|
00008fe0  73 65 74 74 69 6e 67 73  25 2c 37 29 20 8c 20 3d  |settings%,7) . =|
00008ff0  34 0d 45 92 06 3d 35 0d  45 9c 05 3a 0d 45 a6 14  |4.E..=5.E..:.E..|
00009000  dd a4 70 61 64 28 73 74  72 24 2c 6c 65 6e 25 29  |..pad(str$,len%)|
00009010  0d 45 b0 1b 3d c0 73 74  72 24 2b c4 6c 65 6e 25  |.E..=.str$+.len%|
00009020  2c 22 20 22 29 2c 6c 65  6e 25 29 0d 45 ba 05 3a  |," "),len%).E..:|
00009030  0d 45 c4 19 dd a4 70 61  64 72 69 67 68 74 28 73  |.E....padright(s|
00009040  74 72 24 2c 6c 65 6e 25  29 0d 45 ce 1b 3d c2 c4  |tr$,len%).E..=..|
00009050  6c 65 6e 25 2c 22 20 22  29 2b 73 74 72 24 2c 6c  |len%," ")+str$,l|
00009060  65 6e 25 29 0d 45 d8 05  3a 0d 45 e2 12 dd a4 62  |en%).E..:.E....b|
00009070  61 73 65 33 36 28 6e 75  6d 25 29 0d 45 ec 13 e7  |ase36(num%).E...|
00009080  20 6e 75 6d 25 3d 30 20  8c 20 3d 22 2d 22 0d 45  | num%=0 . ="-".E|
00009090  f6 1a e7 20 6e 75 6d 25  3c 31 31 20 8c 20 3d c3  |... num%<11 . =.|
000090a0  28 6e 75 6d 25 2d 31 29  0d 46 00 0f 3d bd 28 6e  |(num%-1).F..=.(n|
000090b0  75 6d 25 2b 35 34 29 0d  46 0a 05 3a 0d 46 14 19  |um%+54).F..:.F..|
000090c0  dd f2 73 61 76 65 64 75  6d 70 28 64 75 6d 70 6e  |..savedump(dumpn|
000090d0  61 6d 65 24 29 0d 46 1e  11 f2 72 65 77 72 69 74  |ame$).F...rewrit|
000090e0  65 6e 61 6d 65 73 0d 46  28 15 c8 99 20 22 48 6f  |enames.F(... "Ho|
000090f0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 46 32 13 41  |urglass_On".F2.A|
00009100  25 3d 8e 28 64 75 6d 70  6e 61 6d 65 24 29 0d 46  |%=.(dumpname$).F|
00009110  3c 12 e7 20 41 25 3e 30  20 8c 20 d9 20 23 41 25  |<.. A%>0 . . #A%|
00009120  0d 46 46 0c e7 20 41 25  3e 30 20 8c 0d 46 50 13  |.FF.. A%>0 ..FP.|
00009130  43 25 3d ad 28 64 75 6d  70 6e 61 6d 65 24 29 0d  |C%=.(dumpname$).|
00009140  46 5a 0d cf 23 43 25 3d  a2 23 43 25 0d 46 64 05  |FZ..#C%=.#C%.Fd.|
00009150  cc 0d 46 6e 13 43 25 3d  ae 28 64 75 6d 70 6e 61  |..Fn.C%=.(dumpna|
00009160  6d 65 24 29 0d 46 78 05  cd 0d 46 82 20 f2 73 65  |me$).Fx...F. .se|
00009170  74 66 69 6c 65 74 79 70  65 28 64 75 6d 70 6e 61  |tfiletype(dumpna|
00009180  6d 65 24 2c 26 46 46 46  29 0d 46 8c 05 3a 0d 46  |me$,&FFF).F..:.F|
00009190  96 22 e7 20 a4 69 73 69  74 73 65 6c 65 63 74 65  |.". .isitselecte|
000091a0  64 28 73 61 76 65 64 75  6d 70 25 2c 34 29 20 8c  |d(savedump%,4) .|
000091b0  0d 46 a0 1e d5 23 43 25  2c 22 54 75 6e 65 20 4e  |.F...#C%,"Tune N|
000091c0  61 6d 65 20 20 3a 22 2b  6d 6e 61 6d 65 24 0d 46  |ame  :"+mname$.F|
000091d0  aa 1e d5 23 43 25 2c 22  41 75 74 68 6f 72 20 20  |...#C%,"Author  |
000091e0  20 20 20 3a 22 2b 61 6e  61 6d 65 24 0d 46 b4 22  |   :"+aname$.F."|
000091f0  d5 23 43 25 2c 22 56 6f  69 63 65 73 20 20 20 20  |.#C%,"Voices    |
00009200  20 3a 22 2b c3 28 76 6f  69 63 65 73 25 29 0d 46  | :"+.(voices%).F|
00009210  be 24 d5 23 43 25 2c 22  50 61 74 74 65 72 6e 73  |.$.#C%,"Patterns|
00009220  20 20 20 3a 22 2b c3 28  70 61 74 74 65 72 6e 73  |   :"+.(patterns|
00009230  25 29 0d 46 c8 22 d5 23  43 25 2c 22 4c 65 6e 67  |%).F.".#C%,"Leng|
00009240  74 68 20 20 20 20 20 3a  22 2b c3 28 73 65 71 6c  |th     :"+.(seql|
00009250  65 6e 25 29 0d 46 d2 51  d5 23 43 25 2c 22 53 69  |en%).F.Q.#C%,"Si|
00009260  7a 65 20 20 20 20 20 20  20 3a 22 2b c3 28 a8 28  |ze       :"+.(.(|
00009270  28 74 74 25 21 34 2b 38  2b 35 31 32 29 20 81 20  |(tt%!4+8+512) . |
00009280  31 30 32 34 29 29 2b 22  4b 20 20 20 20 20 28 22  |1024))+"K     ("|
00009290  2b c3 28 74 74 25 21 34  2b 38 29 2b 22 20 62 79  |+.(tt%!4+8)+" by|
000092a0  74 65 73 29 22 0d 46 dc  0b d5 23 43 25 2c 22 22  |tes)".F...#C%,""|
000092b0  0d 46 e6 05 cd 0d 46 f0  05 3a 0d 46 fa 22 e7 20  |.F....F..:.F.". |
000092c0  a4 69 73 69 74 73 65 6c  65 63 74 65 64 28 73 61  |.isitselected(sa|
000092d0  76 65 64 75 6d 70 25 2c  35 29 20 8c 0d 47 04 15  |vedump%,5) ..G..|
000092e0  d5 20 23 43 25 2c 22 53  65 71 75 65 6e 63 65 3a  |. #C%,"Sequence:|
000092f0  22 0d 47 0e 0d 73 65 71  70 6f 73 25 3d 30 0d 47  |".G..seqpos%=0.G|
00009300  18 20 e3 20 72 6f 77 25  3d 31 20 b8 20 28 73 65  |. . row%=1 . (se|
00009310  71 6c 65 6e 25 2b 31 35  29 20 81 20 31 36 0d 47  |qlen%+15) . 16.G|
00009320  22 0b 72 6f 77 24 3d 22  22 0d 47 2c 11 e3 20 63  |".row$="".G,.. c|
00009330  6f 6c 25 3d 31 20 b8 20  31 36 0d 47 36 4c e7 20  |ol%=1 . 16.G6L. |
00009340  73 65 71 70 6f 73 25 3e  3d 73 65 71 6c 65 6e 25  |seqpos%>=seqlen%|
00009350  20 8c 20 61 64 64 24 3d  22 20 20 20 20 22 20 8b  | . add$="    " .|
00009360  20 61 64 64 24 3d c2 22  20 20 20 20 22 2b c3 28  | add$=."    "+.(|
00009370  73 65 71 61 64 64 72 25  3f 73 65 71 70 6f 73 25  |seqaddr%?seqpos%|
00009380  2b 31 29 2c 34 29 0d 47  40 0e 72 6f 77 24 2b 3d  |+1),4).G@.row$+=|
00009390  61 64 64 24 0d 47 4a 0e  73 65 71 70 6f 73 25 2b  |add$.GJ.seqpos%+|
000093a0  3d 31 0d 47 54 05 ed 0d  47 5e 0d d5 23 43 25 2c  |=1.GT...G^..#C%,|
000093b0  72 6f 77 24 0d 47 68 05  ed 0d 47 72 0b d5 23 43  |row$.Gh...Gr..#C|
000093c0  25 2c 22 22 0d 47 7c 05  cd 0d 47 86 05 3a 0d 47  |%,"".G|...G..:.G|
000093d0  90 22 e7 20 a4 69 73 69  74 73 65 6c 65 63 74 65  |.". .isitselecte|
000093e0  64 28 73 61 76 65 64 75  6d 70 25 2c 36 29 20 8c  |d(savedump%,6) .|
000093f0  0d 47 9a 18 d5 20 23 43  25 2c 22 49 6e 73 74 72  |.G... #C%,"Instr|
00009400  75 6d 65 6e 74 73 3a 22  0d 47 a4 14 e3 20 73 61  |uments:".G... sa|
00009410  6d 70 6c 65 25 3d 31 20  b8 20 33 36 0d 47 ae 2f  |mple%=1 . 36.G./|
00009420  e7 20 73 6c 65 6e 25 28  73 61 6d 70 6c 65 25 29  |. slen%(sample%)|
00009430  3e 30 20 84 20 73 61 6d  70 6c 65 24 28 73 61 6d  |>0 . sample$(sam|
00009440  70 6c 65 25 29 3c 3e 22  22 20 8c 0d 47 b8 45 73  |ple%)<>"" ..G.Es|
00009450  61 6d 70 6c 65 24 3d 22  53 61 6d 70 6c 65 20 22  |ample$="Sample "|
00009460  2b a4 62 61 73 65 33 36  28 73 61 6d 70 6c 65 25  |+.base36(sample%|
00009470  29 2b 22 20 20 22 2b a4  70 61 64 28 73 61 6d 70  |)+"  "+.pad(samp|
00009480  6c 65 24 28 73 61 6d 70  6c 65 25 29 2c 32 30 29  |le$(sample%),20)|
00009490  0d 47 c2 32 73 61 6d 70  6c 65 24 2b 3d 22 20 20  |.G.2sample$+="  |
000094a0  4c 65 6e 67 74 68 3a 22  2b a4 70 61 64 28 c3 28  |Length:"+.pad(.(|
000094b0  73 6c 65 6e 25 28 73 61  6d 70 6c 65 25 29 29 2c  |slen%(sample%)),|
000094c0  35 29 0d 47 cc 10 d5 23  43 25 2c 73 61 6d 70 6c  |5).G...#C%,sampl|
000094d0  65 24 0d 47 d6 05 cd 0d  47 e0 05 ed 0d 47 ea 0b  |e$.G....G....G..|
000094e0  d5 23 43 25 2c 22 22 0d  47 f4 05 cd 0d 47 fe 05  |.#C%,"".G....G..|
000094f0  3a 0d 48 08 23 e7 20 a4  69 73 69 74 73 65 6c 65  |:.H.#. .isitsele|
00009500  63 74 65 64 28 73 61 76  65 64 75 6d 70 25 2c 31  |cted(savedump%,1|
00009510  30 29 20 8c 0d 48 12 0f  73 71 75 61 73 68 65 64  |0) ..H..squashed|
00009520  25 3d a3 0d 48 1c 14 d5  23 43 25 2c 22 50 61 74  |%=..H...#C%,"Pat|
00009530  74 65 72 6e 73 3a 22 0d  48 26 0b d5 23 43 25 2c  |terns:".H&..#C%,|
00009540  22 22 0d 48 30 1c e3 20  70 61 74 74 65 72 6e 25  |"".H0.. pattern%|
00009550  3d 31 20 b8 20 70 61 74  74 65 72 6e 73 25 0d 48  |=1 . patterns%.H|
00009560  3a 36 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |:6.. "Hourglass_|
00009570  50 65 72 63 65 6e 74 61  67 65 22 2c 31 30 30 2a  |Percentage",100*|
00009580  28 70 61 74 74 65 72 6e  25 2f 70 61 74 74 65 72  |(pattern%/patter|
00009590  6e 73 25 29 0d 48 44 1d  61 64 64 72 25 3d 70 61  |ns%).HD.addr%=pa|
000095a0  74 74 61 64 64 72 25 28  70 61 74 74 65 72 6e 25  |ttaddr%(pattern%|
000095b0  29 0d 48 4e 53 d5 23 43  25 2c 22 50 61 74 74 65  |).HNS.#C%,"Patte|
000095c0  72 6e 3a 22 2b a4 70 61  64 28 c3 28 70 61 74 74  |rn:"+.pad(.(patt|
000095d0  65 72 6e 25 29 2c 32 29  2b 22 20 20 20 20 28 6c  |ern%),2)+"    (l|
000095e0  65 6e 67 74 68 3a 22 2b  c3 28 70 61 74 74 6c 65  |ength:"+.(pattle|
000095f0  6e 25 3f 28 70 61 74 74  65 72 6e 25 2d 31 29 29  |n%?(pattern%-1))|
00009600  2b 22 29 22 0d 48 58 24  e3 20 72 6f 77 25 3d 31  |+")".HX$. row%=1|
00009610  20 b8 20 70 61 74 74 6c  65 6e 25 3f 28 70 61 74  | . pattlen%?(pat|
00009620  74 65 72 6e 25 2d 31 29  0d 48 62 0b 72 6f 77 24  |tern%-1).Hb.row$|
00009630  3d 22 22 0d 48 6c 18 e3  20 76 6f 69 63 65 25 3d  |="".Hl.. voice%=|
00009640  31 20 b8 20 76 6f 69 63  65 73 25 0d 48 76 11 65  |1 . voices%.Hv.e|
00009650  76 65 6e 74 25 3d 21 61  64 64 72 25 0d 48 80 3c  |vent%=!addr%.H.<|
00009660  c8 99 20 22 54 72 61 63  6b 65 72 5f 44 65 63 6f  |.. "Tracker_Deco|
00009670  64 65 4e 6f 74 65 22 2c  65 76 65 6e 74 25 20 b8  |deNote",event% .|
00009680  20 2c 6e 6f 74 65 25 2c  69 6e 73 74 25 2c 63 6f  | ,note%,inst%,co|
00009690  6d 6d 25 2c 76 61 6c 25  0d 48 8a 47 65 76 65 6e  |mm%,val%.H.Geven|
000096a0  74 24 3d c1 6e 6f 74 65  73 24 2c 33 2a 6e 6f 74  |t$=.notes$,3*not|
000096b0  65 25 2b 31 2c 33 29 2b  22 20 22 2b a4 62 61 73  |e%+1,3)+" "+.bas|
000096c0  65 33 36 28 69 6e 73 74  25 29 2b 22 20 22 2b a4  |e36(inst%)+" "+.|
000096d0  62 61 73 65 33 36 28 63  6f 6d 6d 25 2b 31 29 0d  |base36(comm%+1).|
000096e0  48 94 1b 65 76 65 6e 74  24 2b 3d c2 22 30 30 22  |H..event$+=."00"|
000096f0  2b c3 7e 76 61 6c 25 2c  32 29 0d 48 9e 1a e7 20  |+.~val%,2).H... |
00009700  76 6f 69 63 65 25 3e 31  20 8c 20 72 6f 77 24 2b  |voice%>1 . row$+|
00009710  3d 22 20 22 0d 48 a8 10  72 6f 77 24 2b 3d 65 76  |=" ".H..row$+=ev|
00009720  65 6e 74 24 0d 48 b2 0c  61 64 64 72 25 2b 3d 34  |ent$.H..addr%+=4|
00009730  0d 48 bc 05 ed 0d 48 c6  0d d5 23 43 25 2c 72 6f  |.H....H...#C%,ro|
00009740  77 24 0d 48 d0 05 ed 0d  48 da 0b d5 23 43 25 2c  |w$.H....H...#C%,|
00009750  22 22 0d 48 e4 05 ed 0d  48 ee 05 cd 0d 48 f8 05  |"".H....H....H..|
00009760  3a 0d 49 02 23 e7 20 a4  69 73 69 74 73 65 6c 65  |:.I.#. .isitsele|
00009770  63 74 65 64 28 73 61 76  65 64 75 6d 70 25 2c 31  |cted(savedump%,1|
00009780  32 29 20 8c 0d 49 0c 18  d5 23 43 25 2c 22 55 73  |2) ..I...#C%,"Us|
00009790  65 64 20 69 6e 20 74 75  6e 65 3a 22 0d 49 16 0b  |ed in tune:".I..|
000097a0  d5 23 43 25 2c 22 22 0d  49 20 08 41 25 3d 36 0d  |.#C%,"".I .A%=6.|
000097b0  49 2a 0a 42 25 3d 74 74  25 0d 49 34 10 75 73 65  |I*.B%=tt%.I4.use|
000097c0  64 25 3d ba 28 74 63 25  29 0d 49 3e 08 41 25 3d  |d%=.(tc%).I>.A%=|
000097d0  37 0d 49 48 10 63 6f 6d  6d 25 3d ba 28 74 63 25  |7.IH.comm%=.(tc%|
000097e0  29 0d 49 52 11 e3 20 72  6f 77 25 3d 31 20 b8 20  |).IR.. row%=1 . |
000097f0  33 36 0d 49 5c 1c 72 6f  77 24 3d c1 6e 6f 74 65  |36.I\.row$=.note|
00009800  73 24 2c 33 2a 72 6f 77  25 2b 31 2c 33 29 0d 49  |s$,3*row%+1,3).I|
00009810  66 37 72 6f 77 24 2b 3d  22 20 22 2b a4 70 61 64  |f7row$+=" "+.pad|
00009820  72 69 67 68 74 28 c3 28  75 73 65 64 25 21 28 72  |right(.(used%!(r|
00009830  6f 77 25 2a 34 2d 34 29  29 2c 35 29 2b 22 20 20  |ow%*4-4)),5)+"  |
00009840  20 20 20 20 22 0d 49 70  2b e7 20 73 6c 65 6e 25  |    ".Ip+. slen%|
00009850  28 72 6f 77 25 29 3e 30  20 8c 20 72 6f 77 24 2b  |(row%)>0 . row$+|
00009860  3d 22 2a 22 20 8b 20 72  6f 77 24 2b 3d 22 20 22  |="*" . row$+=" "|
00009870  0d 49 7a 17 73 61 6d 70  24 3d 73 61 6d 70 6c 65  |.Iz.samp$=sample|
00009880  24 28 72 6f 77 25 29 0d  49 84 2a 72 6f 77 24 2b  |$(row%).I.*row$+|
00009890  3d a4 62 61 73 65 33 36  28 72 6f 77 25 29 2b 22  |=.base36(row%)+"|
000098a0  20 22 2b a4 70 61 64 28  73 61 6d 70 24 2c 32 31  | "+.pad(samp$,21|
000098b0  29 0d 49 8e 38 72 6f 77  24 2b 3d a4 70 61 64 72  |).I.8row$+=.padr|
000098c0  69 67 68 74 28 c3 28 75  73 65 64 25 21 28 72 6f  |ight(.(used%!(ro|
000098d0  77 25 2a 34 2d 34 2b 33  36 2a 34 29 29 2c 35 29  |w%*4-4+36*4)),5)|
000098e0  2b 22 20 20 20 20 20 20  22 0d 49 98 1b 72 6f 77  |+"      ".I..row|
000098f0  24 2b 3d a4 62 61 73 65  33 36 28 72 6f 77 25 29  |$+=.base36(row%)|
00009900  2b 22 20 22 0d 49 a2 41  72 6f 77 24 2b 3d a4 70  |+" ".I.Arow$+=.p|
00009910  61 64 28 a4 61 72 72 6f  77 73 28 a4 73 74 72 69  |ad(.arrows(.stri|
00009920  6e 67 77 69 74 68 6c 69  6d 69 74 28 63 6f 6d 6d  |ngwithlimit(comm|
00009930  25 2b 72 6f 77 25 2a 31  34 2d 31 34 2c 31 34 29  |%+row%*14-14,14)|
00009940  29 2c 31 35 29 0d 49 ac  2f 72 6f 77 24 2b 3d a4  |),15).I./row$+=.|
00009950  70 61 64 72 69 67 68 74  28 c3 28 75 73 65 64 25  |padright(.(used%|
00009960  21 28 72 6f 77 25 2a 34  2d 34 2b 37 32 2a 34 29  |!(row%*4-4+72*4)|
00009970  29 2c 35 29 0d 49 b6 0d  d5 23 43 25 2c 72 6f 77  |),5).I...#C%,row|
00009980  24 0d 49 c0 05 ed 0d 49  ca 0b d5 23 43 25 2c 22  |$.I....I...#C%,"|
00009990  22 0d 49 d4 05 cd 0d 49  de 05 3a 0d 49 e8 16 c8  |".I....I..:.I...|
000099a0  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
000099b0  22 0d 49 f2 09 d9 20 23  43 25 0d 49 fc 1c c8 99  |".I... #C%.I....|
000099c0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000099d0  75 22 2c 2c 2d 31 0d 4a  06 05 e1 0d 4a 10 05 3a  |u",,-1.J....J..:|
000099e0  0d 4a 1a 12 dd a4 61 72  72 6f 77 73 28 73 74 72  |.J....arrows(str|
000099f0  24 29 0d 4a 24 13 e7 20  73 74 72 24 3d 22 22 20  |$).J$.. str$="" |
00009a00  8c 20 3d 22 22 0d 4a 2e  11 ea 20 6e 65 77 24 2c  |. ="".J... new$,|
00009a10  62 25 2c 63 68 25 0d 4a  38 0b 6e 65 77 24 3d 22  |b%,ch%.J8.new$="|
00009a20  22 0d 4a 42 15 e3 20 63  68 25 3d 31 20 b8 20 a9  |".JB.. ch%=1 . .|
00009a30  28 73 74 72 24 29 0d 4a  4c 16 62 25 3d 97 28 c1  |(str$).JL.b%=.(.|
00009a40  73 74 72 24 2c 63 68 25  2c 31 29 29 0d 4a 56 14  |str$,ch%,1)).JV.|
00009a50  e7 20 62 25 3e 31 32 36  20 8c 20 62 25 2b 3d 39  |. b%>126 . b%+=9|
00009a60  0d 4a 60 0f 6e 65 77 24  2b 3d bd 28 62 25 29 0d  |.J`.new$+=.(b%).|
00009a70  4a 6a 05 ed 0d 4a 74 09  3d 6e 65 77 24 0d 4a 7e  |Jj...Jt.=new$.J~|
00009a80  05 3a 0d 4a 88 0e dd f2  6d 69 6e 69 6d 69 73 65  |.:.J....minimise|
00009a90  0d 4a 92 15 74 75 6e 65  73 69 7a 65 25 3d 74 74  |.J..tunesize%=tt|
00009aa0  25 21 34 2b 38 0d 4a 9c  23 74 75 6e 65 73 69 7a  |%!4+8.J.#tunesiz|
00009ab0  65 25 3d 28 74 75 6e 65  73 69 7a 65 25 2b 33 32  |e%=(tunesize%+32|
00009ac0  2a 31 30 32 34 2d 31 29  0d 4a a6 2d 74 75 6e 65  |*1024-1).J.-tune|
00009ad0  73 69 7a 65 25 3d 33 32  2a 31 30 32 34 2a 28 74  |size%=32*1024*(t|
00009ae0  75 6e 65 73 69 7a 65 25  20 81 20 28 33 32 2a 31  |unesize% . (32*1|
00009af0  30 32 34 29 29 0d 4a b0  2d c8 99 20 22 58 57 69  |024)).J.-.. "XWi|
00009b00  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 74 75 6e  |mp_SlotSize",tun|
00009b10  65 73 69 7a 65 25 2b 61  70 70 73 69 7a 65 25 2c  |esize%+appsize%,|
00009b20  2d 31 0d 4a ba 29 c8 99  20 22 58 57 69 6d 70 5f  |-1.J.).. "XWimp_|
00009b30  53 6c 6f 74 53 69 7a 65  22 2c 2d 31 2c 2d 31 20  |SlotSize",-1,-1 |
00009b40  b8 20 74 75 6e 65 73 69  7a 65 25 0d 4a c4 26 66  |. tunesize%.J.&f|
00009b50  6d 25 3d 28 74 75 6e 65  73 69 7a 65 25 2d 61 70  |m%=(tunesize%-ap|
00009b60  70 73 69 7a 65 25 29 2d  28 74 74 25 21 34 2b 38  |psize%)-(tt%!4+8|
00009b70  29 0d 4a ce 05 e1 0d 4a  d8 05 3a 0d 4a e2 0f dd  |).J....J..:.J...|
00009b80  f2 64 65 63 64 65 6c 70  61 74 0d 4a ec 1c e7 20  |.decdelpat.J... |
00009b90  64 65 6c 70 61 74 25 3e  31 20 8c 20 64 65 6c 70  |delpat%>1 . delp|
00009ba0  61 74 25 2d 3d 31 0d 4a  f6 19 f2 73 28 61 74 72  |at%-=1.J...s(atr|
00009bb0  25 2c 32 2c c3 28 64 65  6c 70 61 74 25 29 29 0d  |%,2,.(delpat%)).|
00009bc0  4b 00 05 e1 0d 4b 0a 05  3a 0d 4b 14 0f dd f2 69  |K....K..:.K....i|
00009bd0  6e 63 64 65 6c 70 61 74  0d 4b 1e 24 e7 20 64 65  |ncdelpat.K.$. de|
00009be0  6c 70 61 74 25 3c 70 61  74 74 65 72 6e 73 25 20  |lpat%<patterns% |
00009bf0  8c 20 64 65 6c 70 61 74  25 2b 3d 31 0d 4b 28 19  |. delpat%+=1.K(.|
00009c00  f2 73 28 61 74 72 25 2c  32 2c c3 28 64 65 6c 70  |.s(atr%,2,.(delp|
00009c10  61 74 25 29 29 0d 4b 32  05 e1 0d 4b 3c 05 3a 0d  |at%)).K2...K<.:.|
00009c20  4b 46 11 dd f2 64 65 63  64 65 6c 76 6f 69 63 65  |KF...decdelvoice|
00009c30  0d 4b 50 20 e7 20 64 65  6c 76 6f 69 63 65 25 3e  |.KP . delvoice%>|
00009c40  31 20 8c 20 64 65 6c 76  6f 69 63 65 25 2d 3d 31  |1 . delvoice%-=1|
00009c50  0d 4b 5a 1c f2 73 28 61  74 72 25 2c 31 30 2c c3  |.KZ..s(atr%,10,.|
00009c60  28 64 65 6c 76 6f 69 63  65 25 29 29 0d 4b 64 05  |(delvoice%)).Kd.|
00009c70  e1 0d 4b 6e 05 3a 0d 4b  78 11 dd f2 69 6e 63 64  |..Kn.:.Kx...incd|
00009c80  65 6c 76 6f 69 63 65 0d  4b 82 26 e7 20 64 65 6c  |elvoice.K.&. del|
00009c90  76 6f 69 63 65 25 3c 76  6f 69 63 65 73 25 20 8c  |voice%<voices% .|
00009ca0  20 64 65 6c 76 6f 69 63  65 25 2b 3d 31 0d 4b 8c  | delvoice%+=1.K.|
00009cb0  1c f2 73 28 61 74 72 25  2c 31 30 2c c3 28 64 65  |..s(atr%,10,.(de|
00009cc0  6c 76 6f 69 63 65 25 29  29 0d 4b 96 05 e1 0d 4b  |lvoice%)).K....K|
00009cd0  a0 05 3a 0d 4b aa 13 dd  f2 64 65 6c 65 74 65 70  |..:.K....deletep|
00009ce0  61 74 74 65 72 6e 0d 4b  b4 2c e7 20 70 61 74 74  |attern.K.,. patt|
00009cf0  65 72 6e 73 25 3d 31 20  8c 20 85 20 31 37 2c 22  |erns%=1 . . 17,"|
00009d00  4f 6e 6c 79 20 6f 6e 65  20 70 61 74 74 65 72 6e  |Only one pattern|
00009d10  21 22 0d 4b be 0b 66 6c  61 67 25 3d a3 0d 4b c8  |!".K..flag%=..K.|
00009d20  18 e3 20 70 6f 73 25 3d  30 20 b8 20 73 65 71 6c  |.. pos%=0 . seql|
00009d30  65 6e 25 2d 31 0d 4b d2  29 e7 20 73 65 71 61 64  |en%-1.K.). seqad|
00009d40  64 72 25 3f 70 6f 73 25  3d 28 64 65 6c 70 61 74  |dr%?pos%=(delpat|
00009d50  25 2d 31 29 20 8c 20 66  6c 61 67 25 3d b9 0d 4b  |%-1) . flag%=..K|
00009d60  dc 05 ed 0d 4b e6 2f e7  20 66 6c 61 67 25 20 8c  |....K./. flag% .|
00009d70  20 85 20 31 37 2c 22 50  61 74 74 65 72 6e 20 6f  | . 17,"Pattern o|
00009d80  63 63 75 72 73 20 69 6e  20 73 65 71 75 65 6e 63  |ccurs in sequenc|
00009d90  65 22 0d 4b f0 19 f2 6d  61 6b 65 73 65 6c 65 63  |e".K...makeselec|
00009da0  74 65 64 28 61 74 72 25  2c 35 29 0d 4b fa 1c 61  |ted(atr%,5).K..a|
00009db0  74 25 3d 70 61 74 74 61  64 64 72 25 28 64 65 6c  |t%=pattaddr%(del|
00009dc0  70 61 74 25 29 2d 38 0d  4c 04 15 74 6f 64 65 6c  |pat%)-8.L..todel|
00009dd0  65 74 65 25 3d 61 74 25  21 34 2b 38 0d 4c 0e 25  |ete%=at%!4+8.L.%|
00009de0  66 6c 61 67 25 3d a4 64  65 6c 65 74 65 62 79 74  |flag%=.deletebyt|
00009df0  65 73 28 61 74 25 2c 74  6f 64 65 6c 65 74 65 25  |es(at%,todelete%|
00009e00  29 0d 4c 18 18 e3 20 70  6f 73 25 3d 30 20 b8 20  |).L... pos%=0 . |
00009e10  73 65 71 6c 65 6e 25 2d  31 0d 4c 22 2f e7 20 73  |seqlen%-1.L"/. s|
00009e20  65 71 61 64 64 72 25 3f  70 6f 73 25 3e 3d 64 65  |eqaddr%?pos%>=de|
00009e30  6c 70 61 74 25 20 8c 20  73 65 71 61 64 64 72 25  |lpat% . seqaddr%|
00009e40  3f 70 6f 73 25 2d 3d 31  0d 4c 2c 05 ed 0d 4c 36  |?pos%-=1.L,...L6|
00009e50  26 e3 20 70 6f 73 25 3d  28 64 65 6c 70 61 74 25  |&. pos%=(delpat%|
00009e60  2d 31 29 20 b8 20 28 70  61 74 74 65 72 6e 73 25  |-1) . (patterns%|
00009e70  2d 32 29 0d 4c 40 25 70  61 74 74 6c 65 6e 25 3f  |-2).L@%pattlen%?|
00009e80  28 70 6f 73 25 29 3d 70  61 74 74 6c 65 6e 25 3f  |(pos%)=pattlen%?|
00009e90  28 70 6f 73 25 2b 31 29  0d 4c 4a 05 ed 0d 4c 54  |(pos%+1).LJ...LT|
00009ea0  11 21 70 6e 75 6d 61 64  64 72 25 2d 3d 31 0d 4c  |.!pnumaddr%-=1.L|
00009eb0  5e 11 f2 67 65 74 6d 75  73 69 63 69 6e 66 6f 0d  |^..getmusicinfo.|
00009ec0  4c 68 0d f2 6d 69 6e 69  6d 69 73 65 0d 4c 72 0d  |Lh..minimise.Lr.|
00009ed0  f2 74 75 6e 65 69 6e 66  6f 0d 4c 7c 2b e7 20 64  |.tuneinfo.L|+. d|
00009ee0  65 6c 70 61 74 25 3e 70  61 74 74 65 72 6e 73 25  |elpat%>patterns%|
00009ef0  20 8c 20 64 65 6c 70 61  74 25 3d 70 61 74 74 65  | . delpat%=patte|
00009f00  72 6e 73 25 0d 4c 86 19  f2 73 28 61 74 72 25 2c  |rns%.L...s(atr%,|
00009f10  32 2c c3 28 64 65 6c 70  61 74 25 29 29 0d 4c 90  |2,.(delpat%)).L.|
00009f20  1b f2 6d 61 6b 65 75 6e  73 65 6c 65 63 74 65 64  |..makeunselected|
00009f30  28 61 74 72 25 2c 35 29  0d 4c 9a 05 e1 0d 4c a4  |(atr%,5).L....L.|
00009f40  05 3a 0d 4c ae 10 dd f2  61 6d 65 6e 64 76 6f 69  |.:.L....amendvoi|
00009f50  63 65 0d 4c b8 36 e7 20  a4 69 73 69 74 73 65 6c  |ce.L.6. .isitsel|
00009f60  65 63 74 65 64 28 61 74  72 25 2c 31 34 29 20 8c  |ected(atr%,14) .|
00009f70  20 f2 64 65 6c 65 74 65  76 6f 69 63 65 28 64 65  | .deletevoice(de|
00009f80  6c 76 6f 69 63 65 25 29  0d 4c c2 3a e7 20 a4 69  |lvoice%).L.:. .i|
00009f90  73 69 74 73 65 6c 65 63  74 65 64 28 61 74 72 25  |sitselected(atr%|
00009fa0  2c 31 35 29 20 8c 20 f2  69 6e 73 65 72 74 76 6f  |,15) . .insertvo|
00009fb0  69 63 65 28 32 2a 64 65  6c 76 6f 69 63 65 25 2b  |ice(2*delvoice%+|
00009fc0  31 29 0d 4c cc 3a e7 20  a4 69 73 69 74 73 65 6c  |1).L.:. .isitsel|
00009fd0  65 63 74 65 64 28 61 74  72 25 2c 31 36 29 20 8c  |ected(atr%,16) .|
00009fe0  20 f2 69 6e 73 65 72 74  76 6f 69 63 65 28 32 2a  | .insertvoice(2*|
00009ff0  64 65 6c 76 6f 69 63 65  25 2d 31 29 0d 4c d6 2b  |delvoice%-1).L.+|
0000a000  e7 20 64 65 6c 76 6f 69  63 65 25 3e 76 6f 69 63  |. delvoice%>voic|
0000a010  65 73 25 20 8c 20 64 65  6c 76 6f 69 63 65 25 3d  |es% . delvoice%=|
0000a020  76 6f 69 63 65 73 25 0d  4c e0 1c f2 73 28 61 74  |voices%.L...s(at|
0000a030  72 25 2c 31 30 2c c3 28  64 65 6c 76 6f 69 63 65  |r%,10,.(delvoice|
0000a040  25 29 29 0d 4c ea 05 e1  0d 4c f4 05 3a 0d 4c fe  |%)).L....L..:.L.|
0000a050  14 dd a4 74 6f 74 61 6c  70 61 74 6c 65 6e 67 74  |...totalpatlengt|
0000a060  68 0d 4d 08 0c 74 6f 74  61 6c 25 3d 30 0d 4d 12  |h.M..total%=0.M.|
0000a070  1c e3 20 70 61 74 74 65  72 6e 25 3d 31 20 b8 20  |.. pattern%=1 . |
0000a080  70 61 74 74 65 72 6e 73  25 0d 4d 1c 21 74 6f 74  |patterns%.M.!tot|
0000a090  61 6c 25 2b 3d 70 61 74  74 6c 65 6e 25 3f 28 70  |al%+=pattlen%?(p|
0000a0a0  61 74 74 65 72 6e 25 2d  31 29 0d 4d 26 05 ed 0d  |attern%-1).M&...|
0000a0b0  4d 30 0b 3d 74 6f 74 61  6c 25 0d 4d 3a 05 3a 0d  |M0.=total%.M:.:.|
0000a0c0  4d 44 15 dd f2 64 65 6c  65 74 65 76 6f 69 63 65  |MD...deletevoice|
0000a0d0  28 76 25 29 0d 4d 4e 30  e7 20 76 6f 69 63 65 73  |(v%).MN0. voices|
0000a0e0  25 3d 31 20 8c 20 85 20  31 37 2c 22 4f 6e 6c 79  |%=1 . . 17,"Only|
0000a0f0  20 6f 6e 65 20 76 6f 69  63 65 20 70 72 65 73 65  | one voice prese|
0000a100  6e 74 21 22 0d 4d 58 1a  f2 6d 61 6b 65 73 65 6c  |nt!".MX..makesel|
0000a110  65 63 74 65 64 28 61 74  72 25 2c 31 31 29 0d 4d  |ected(atr%,11).M|
0000a120  62 15 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |b... "Hourglass_|
0000a130  4f 6e 22 0d 4d 6c 1c e3  20 70 61 74 74 65 72 6e  |On".Ml.. pattern|
0000a140  25 3d 31 20 b8 20 70 61  74 74 65 72 6e 73 25 0d  |%=1 . patterns%.|
0000a150  4d 76 3a c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |Mv:.. "Hourglass|
0000a160  5f 50 65 72 63 65 6e 74  61 67 65 22 2c 28 28 70  |_Percentage",((p|
0000a170  61 74 74 65 72 6e 25 2d  31 29 2f 70 61 74 74 65  |attern%-1)/patte|
0000a180  72 6e 73 25 29 2a 31 30  30 0d 4d 80 1f 72 6f 77  |rns%)*100.M..row|
0000a190  73 25 3d 70 61 74 74 6c  65 6e 25 3f 28 70 61 74  |s%=pattlen%?(pat|
0000a1a0  74 65 72 6e 25 2d 31 29  0d 4d 8a 1e 73 74 61 72  |tern%-1).M..star|
0000a1b0  74 25 3d 70 61 74 74 61  64 64 72 25 28 70 61 74  |t%=pattaddr%(pat|
0000a1c0  74 65 72 6e 25 29 0d 4d  94 16 70 31 25 3d 73 74  |tern%).M..p1%=st|
0000a1d0  61 72 74 25 3a 70 32 25  3d 70 31 25 0d 4d 9e 14  |art%:p2%=p1%.M..|
0000a1e0  e3 20 72 6f 77 25 3d 31  20 b8 20 72 6f 77 73 25  |. row%=1 . rows%|
0000a1f0  0d 4d a8 18 e3 20 76 6f  69 63 65 25 3d 31 20 b8  |.M... voice%=1 .|
0000a200  20 76 6f 69 63 65 73 25  0d 4d b2 12 e7 20 76 6f  | voices%.M... vo|
0000a210  69 63 65 25 3c 3e 76 25  20 8c 0d 4d bc 0d 21 70  |ice%<>v% ..M..!p|
0000a220  31 25 3d 21 70 32 25 0d  4d c6 0a 70 31 25 2b 3d  |1%=!p2%.M..p1%+=|
0000a230  34 0d 4d d0 05 cd 0d 4d  da 0a 70 32 25 2b 3d 34  |4.M....M..p2%+=4|
0000a240  0d 4d e4 05 ed 0d 4d ee  05 ed 0d 4d f8 23 21 28  |.M....M....M.#!(|
0000a250  73 74 61 72 74 25 2d 34  29 3d 21 28 73 74 61 72  |start%-4)=!(star|
0000a260  74 25 2d 34 29 2d 72 6f  77 73 25 2a 34 0d 4e 02  |t%-4)-rows%*4.N.|
0000a270  15 74 6f 64 65 6c 65 74  65 25 3d 72 6f 77 73 25  |.todelete%=rows%|
0000a280  2a 34 0d 4e 0c 25 66 6c  61 67 25 3d a4 64 65 6c  |*4.N.%flag%=.del|
0000a290  65 74 65 62 79 74 65 73  28 70 31 25 2c 74 6f 64  |etebytes(p1%,tod|
0000a2a0  65 6c 65 74 65 25 29 0d  4e 16 11 f2 72 65 61 64  |elete%).N...read|
0000a2b0  70 61 74 74 65 72 6e 73  0d 4e 20 05 ed 0d 4e 2a  |patterns.N ...N*|
0000a2c0  11 21 6d 76 6f 78 61 64  64 72 25 2d 3d 31 0d 4e  |.!mvoxaddr%-=1.N|
0000a2d0  34 0d f2 6d 69 6e 69 6d  69 73 65 0d 4e 3e 1c f2  |4..minimise.N>..|
0000a2e0  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 61  |makeunselected(a|
0000a2f0  74 72 25 2c 31 31 29 0d  4e 48 16 c8 99 20 22 48  |tr%,11).NH... "H|
0000a300  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 4e 52  |ourglass_Off".NR|
0000a310  11 f2 67 65 74 6d 75 73  69 63 69 6e 66 6f 0d 4e  |..getmusicinfo.N|
0000a320  5c 0d f2 74 75 6e 65 69  6e 66 6f 0d 4e 66 15 f2  |\..tuneinfo.Nf..|
0000a330  69 6e 69 74 69 61 6c 69  73 65 76 6f 69 63 65 73  |initialisevoices|
0000a340  0d 4e 70 11 6a 75 73 74  6c 6f 61 64 65 64 25 3d  |.Np.justloaded%=|
0000a350  b9 0d 4e 7a 05 e1 0d 4e  84 05 3a 0d 4e 8e 15 dd  |..Nz...N..:.N...|
0000a360  f2 69 6e 73 65 72 74 76  6f 69 63 65 28 76 25 29  |.insertvoice(v%)|
0000a370  0d 4e 98 2a e7 20 76 6f  69 63 65 73 25 3d 38 20  |.N.*. voices%=8 |
0000a380  8c 20 85 20 31 37 2c 22  41 6c 72 65 61 64 79 20  |. . 17,"Already |
0000a390  38 20 76 6f 69 63 65 73  21 22 0d 4e a2 1b 67 72  |8 voices!".N..gr|
0000a3a0  61 62 25 3d a4 74 6f 74  61 6c 70 61 74 6c 65 6e  |ab%=.totalpatlen|
0000a3b0  67 74 68 2a 34 0d 4e ac  3f e7 20 ac 28 a4 67 72  |gth*4.N.?. .(.gr|
0000a3c0  61 62 6d 65 6d 28 67 72  61 62 25 29 29 20 8c 20  |abmem(grab%)) . |
0000a3d0  85 20 31 37 2c 22 49 6e  73 75 66 66 69 63 69 65  |. 17,"Insufficie|
0000a3e0  6e 74 20 4d 65 6d 6f 72  79 20 41 76 61 69 6c 61  |nt Memory Availa|
0000a3f0  62 6c 65 22 0d 4e b6 0e  66 6d 25 2b 3d 67 72 61  |ble".N..fm%+=gra|
0000a400  62 25 0d 4e c0 1a f2 6d  61 6b 65 73 65 6c 65 63  |b%.N...makeselec|
0000a410  74 65 64 28 61 74 72 25  2c 31 31 29 0d 4e ca 15  |ted(atr%,11).N..|
0000a420  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
0000a430  22 0d 4e d4 1c e3 20 70  61 74 74 65 72 6e 25 3d  |".N... pattern%=|
0000a440  31 20 b8 20 70 61 74 74  65 72 6e 73 25 0d 4e de  |1 . patterns%.N.|
0000a450  3a c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 50  |:.. "Hourglass_P|
0000a460  65 72 63 65 6e 74 61 67  65 22 2c 28 28 70 61 74  |ercentage",((pat|
0000a470  74 65 72 6e 25 2d 31 29  2f 70 61 74 74 65 72 6e  |tern%-1)/pattern|
0000a480  73 25 29 2a 31 30 30 0d  4e e8 1f 72 6f 77 73 25  |s%)*100.N..rows%|
0000a490  3d 70 61 74 74 6c 65 6e  25 3f 28 70 61 74 74 65  |=pattlen%?(patte|
0000a4a0  72 6e 25 2d 31 29 0d 4e  f2 1e 73 74 61 72 74 25  |rn%-1).N..start%|
0000a4b0  3d 70 61 74 74 61 64 64  72 25 28 70 61 74 74 65  |=pattaddr%(patte|
0000a4c0  72 6e 25 29 0d 4e fc 1e  61 74 25 3d 73 74 61 72  |rn%).N..at%=star|
0000a4d0  74 25 2b 72 6f 77 73 25  2a 76 6f 69 63 65 73 25  |t%+rows%*voices%|
0000a4e0  2a 34 0d 4f 06 15 74 6f  69 6e 73 65 72 74 25 3d  |*4.O..toinsert%=|
0000a4f0  72 6f 77 73 25 2a 34 0d  4f 10 25 66 6c 61 67 25  |rows%*4.O.%flag%|
0000a500  3d a4 69 6e 73 65 72 74  62 79 74 65 73 28 61 74  |=.insertbytes(at|
0000a510  25 2c 74 6f 69 6e 73 65  72 74 25 29 0d 4f 1a 19  |%,toinsert%).O..|
0000a520  e3 20 72 6f 77 25 3d 72  6f 77 73 25 20 b8 20 31  |. row%=rows% . 1|
0000a530  20 88 20 2d 31 0d 4f 24  21 70 31 25 3d 73 74 61  | . -1.O$!p1%=sta|
0000a540  72 74 25 2b 28 72 6f 77  25 2d 31 29 2a 76 6f 69  |rt%+(row%-1)*voi|
0000a550  63 65 73 25 2a 34 0d 4f  2e 25 70 32 25 3d 73 74  |ces%*4.O.%p2%=st|
0000a560  61 72 74 25 2b 28 72 6f  77 25 2d 31 29 2a 28 76  |art%+(row%-1)*(v|
0000a570  6f 69 63 65 73 25 2b 31  29 2a 34 0d 4f 38 18 e3  |oices%+1)*4.O8..|
0000a580  20 76 6f 69 63 65 25 3d  31 20 b8 20 76 6f 69 63  | voice%=1 . voic|
0000a590  65 73 25 0d 4f 42 25 65  76 65 6e 74 25 28 76 6f  |es%.OB%event%(vo|
0000a5a0  69 63 65 25 29 3d 70 31  25 21 28 28 76 6f 69 63  |ice%)=p1%!((voic|
0000a5b0  65 25 2d 31 29 2a 34 29  0d 4f 4c 05 ed 0d 4f 56  |e%-1)*4).OL...OV|
0000a5c0  09 76 77 25 3d a3 0d 4f  60 1e e3 20 76 6f 69 63  |.vw%=..O`.. voic|
0000a5d0  65 25 3d 32 20 b8 20 76  6f 69 63 65 73 25 2a 32  |e%=2 . voices%*2|
0000a5e0  20 88 20 32 0d 4f 6a 1b  e7 20 76 77 25 3d a3 20  | . 2.Oj.. vw%=. |
0000a5f0  80 20 76 6f 69 63 65 25  3d 76 25 2b 31 20 8c 0d  |. voice%=v%+1 ..|
0000a600  4f 74 11 21 70 32 25 3d  30 3a 70 32 25 2b 3d 34  |Ot.!p2%=0:p2%+=4|
0000a610  0d 4f 7e 09 76 77 25 3d  b9 0d 4f 88 05 cd 0d 4f  |.O~.vw%=..O....O|
0000a620  92 20 21 70 32 25 3d 65  76 65 6e 74 25 28 76 6f  |. !p2%=event%(vo|
0000a630  69 63 65 25 2f 32 29 3a  70 32 25 2b 3d 34 0d 4f  |ice%/2):p2%+=4.O|
0000a640  9c 1b e7 20 76 77 25 3d  a3 20 80 20 76 6f 69 63  |... vw%=. . voic|
0000a650  65 25 3d 76 25 2d 31 20  8c 0d 4f a6 11 21 70 32  |e%=v%-1 ..O..!p2|
0000a660  25 3d 30 3a 70 32 25 2b  3d 34 0d 4f b0 09 76 77  |%=0:p2%+=4.O..vw|
0000a670  25 3d b9 0d 4f ba 05 cd  0d 4f c4 05 ed 0d 4f ce  |%=..O....O....O.|
0000a680  05 ed 0d 4f d8 25 21 28  73 74 61 72 74 25 2d 34  |...O.%!(start%-4|
0000a690  29 3d 21 28 73 74 61 72  74 25 2d 34 29 2b 28 72  |)=!(start%-4)+(r|
0000a6a0  6f 77 73 25 2a 34 29 0d  4f e2 11 f2 72 65 61 64  |ows%*4).O...read|
0000a6b0  70 61 74 74 65 72 6e 73  0d 4f ec 05 ed 0d 4f f6  |patterns.O....O.|
0000a6c0  11 21 6d 76 6f 78 61 64  64 72 25 2b 3d 31 0d 50  |.!mvoxaddr%+=1.P|
0000a6d0  00 0d f2 6d 69 6e 69 6d  69 73 65 0d 50 0a 1c f2  |...minimise.P...|
0000a6e0  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 61  |makeunselected(a|
0000a6f0  74 72 25 2c 31 31 29 0d  50 14 16 c8 99 20 22 48  |tr%,11).P.... "H|
0000a700  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 50 1e  |ourglass_Off".P.|
0000a710  11 f2 67 65 74 6d 75 73  69 63 69 6e 66 6f 0d 50  |..getmusicinfo.P|
0000a720  28 0d f2 74 75 6e 65 69  6e 66 6f 0d 50 32 15 f2  |(..tuneinfo.P2..|
0000a730  69 6e 69 74 69 61 6c 69  73 65 76 6f 69 63 65 73  |initialisevoices|
0000a740  0d 50 3c 11 6a 75 73 74  6c 6f 61 64 65 64 25 3d  |.P<.justloaded%=|
0000a750  b9 0d 50 46 05 e1 0d 50  50 05 3a 0d 50 5a 12 dd  |..PF...PP.:.PZ..|
0000a760  f2 72 65 77 72 69 74 65  6e 61 6d 65 73 0d 50 64  |.rewritenames.Pd|
0000a770  21 6d 6e 61 6d 65 24 3d  a4 69 63 6f 6e 74 65 78  |!mname$=.icontex|
0000a780  74 28 74 75 6e 65 69 6e  66 6f 25 2c 37 29 0d 50  |t(tuneinfo%,7).P|
0000a790  6e 21 61 6e 61 6d 65 24  3d a4 69 63 6f 6e 74 65  |n!aname$=.iconte|
0000a7a0  78 74 28 74 75 6e 65 69  6e 66 6f 25 2c 38 29 0d  |xt(tuneinfo%,8).|
0000a7b0  50 78 1c f2 77 7a 28 6d  6e 61 6d 65 24 2c 6d 6e  |Px..wz(mname$,mn|
0000a7c0  61 6d 61 64 64 72 25 2c  33 32 29 0d 50 82 1c f2  |amaddr%,32).P...|
0000a7d0  77 7a 28 61 6e 61 6d 65  24 2c 61 6e 61 6d 61 64  |wz(aname$,anamad|
0000a7e0  64 72 25 2c 33 32 29 0d  50 8c 05 e1 0d 50 96 05  |dr%,32).P....P..|
0000a7f0  3a 0d 50 a0 11 dd f2 74  69 64 79 73 61 6d 70 6c  |:.P....tidysampl|
0000a800  65 73 0d 50 aa 15 c8 99  20 22 48 6f 75 72 67 6c  |es.P.... "Hourgl|
0000a810  61 73 73 5f 4f 6e 22 0d  50 b4 1a f2 6d 61 6b 65  |ass_On".P...make|
0000a820  73 65 6c 65 63 74 65 64  28 61 74 72 25 2c 32 30  |selected(atr%,20|
0000a830  29 0d 50 be 20 66 6c 61  67 25 3d a4 69 73 69 74  |).P. flag%=.isit|
0000a840  73 65 6c 65 63 74 65 64  28 61 74 72 25 2c 32 31  |selected(atr%,21|
0000a850  29 0d 50 c8 09 41 25 3d  31 31 0d 50 d2 0a 42 25  |).P..A%=11.P..B%|
0000a860  3d 74 74 25 0d 50 dc 0c  43 25 3d 66 6c 61 67 25  |=tt%.P..C%=flag%|
0000a870  0d 50 e6 09 d6 20 74 63  25 0d 50 f0 10 f2 72 65  |.P... tc%.P...re|
0000a880  61 64 73 61 6d 70 6c 65  73 0d 50 fa 15 f2 77 72  |adsamples.P...wr|
0000a890  69 74 65 73 61 6d 70 6c  65 6e 61 6d 65 73 0d 51  |itesamplenames.Q|
0000a8a0  04 1c f2 6d 61 6b 65 75  6e 73 65 6c 65 63 74 65  |...makeunselecte|
0000a8b0  64 28 61 74 72 25 2c 32  30 29 0d 51 0e 16 c8 99  |d(atr%,20).Q....|
0000a8c0  20 22 48 6f 75 72 67 6c  61 73 73 5f 4f 66 66 22  | "Hourglass_Off"|
0000a8d0  0d 51 18 05 e1 0d ff                              |.Q.....|
0000a8d7