� >!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% 1000
n� spname% 20
x� menuaddr% menuspace%
�� copied% 8*64*4+8
�� mainsprites% sprsize%+16
�� trackercode% codesize%
�:
�tuneloaded%=�
�saveheader%=�
�trackertune%=�
�justloaded%=�
�delvoice%=1
�
delpat%=1
�savepat%=1
�copypat%=1
�copiedlen%=0

patlen%=64


update%=4

muscounter%=0

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

,freemem%=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

�:

�#wbcol=0:mbcol=2:wfcol=7:tfcol=7

�:

�� � �error

�:

�$q%="TASK"

�prefix$="<APTracker$Dir>"

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

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

�;�loadwithpathvariable(prefix$,"TrackCode",trackercode%)
�loadwindows
�setstereoESGs

�assemble
&!iconh%=�iconbar("!aptracker")
0(ș "XWimp_SlotSize",-1,-1 � appsize%
:	�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=64
 block%!20=&2102
*block%!24=spname%
4block%!28=mainsprites%
>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%=5000
�� indir% maxws%
�ind%=indir%
�spr%=mainsprites%
�0ș "Wimp_OpenTemplate",,prefix$+".Templates"
�!info%=�getwindow("info",spr%)
)savetune%=�getwindow("savetune",spr%)
)tuneinfo%=�getwindow("tuneinfo",spr%)
'samples%=�getwindow("samples",spr%)
$-savesample%=�getwindow("savesample",spr%)
.)newtrack%=�getwindow("newtrack",spr%)
8%stereo%=�getwindow("stereo",spr%)
B/savepattern%=�getwindow("savepattern",spr%)
L/savepatterns%=�getwindow("savepattns",spr%)
V/copypattern%=�getwindow("copypattern",spr%)
`)savehelp%=�getwindow("savehelp",spr%)
j+setvolume%=�getwindow("setvolume",spr%)
t%player%=�getwindow("player",spr%)
~)settings%=�getwindow("settings",spr%)
�)savedump%=�getwindow("savedump",spr%)
�-amendtrack%=�getwindow("amendtrack",spr%)
�ș "Wimp_CloseTemplate"
�5�seticontext(info%,11,�icontext(info%,11)+"  #1")
��
�:
�ݤgetwindow(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%
(Ȏ reason% �
2� 0:�showmusicpos
<� 2:�openwindow(q%!0,q%)
F� 3:�closewindow(q%!0)
P/� 6:�checkmouse(q%!0,q%!4,q%!8,q%!12,q%!16)
Z� 7:�dragfile
d"� 8:ș "Wimp_ProcessKey",q%!24
n� 9:�menuselect(q%)
x� 17,18:�message
��
�� quit%
��
�:
�)��checkmouse(mx%,my%,b%,where%,icon%)
� � b%=1 � mredo%=� � mredo%=�
�Ȏ where% �
�	� -2:
�Ȏ b% �
�� 1:�edittracker
�� 4:
�� tuneloaded% �
��panelstatus
�openwindow(player%,0)
�
� 2:
"
�mainmenu
,'�openmenu(101,mainmenu%,mx%-86,376)
6�
@� savetune%:
J,� icon%=0 � �initiatedrag(savetune%,0,1)
T� icon%=4 � �quicksave
^<� savesample%:� icon%=0 � �initiatedrag(savesample%,0,2)
h8� savehelp%:� icon%=0 � �initiatedrag(savehelp%,0,4)
r@� savepatterns%:� icon%=0 � �initiatedrag(savepatterns%,0,5)
|� savepattern%:
�Ȏ icon% �
�'� 0:�initiatedrag(savepattern%,0,3)
�� 1:�incsavepat
�� 4:�decsavepat
�� 7:�storepattern
��
�'� tuneinfo%:� icon%=6 � �newpattern
�� samples%:
�� b%=2 �
��makesamplemenu(icon% � 36)
�F� slen%((icon% � 36)+1)>0 � �openmenu(106,mainmenu%,mx%-86,my%+24)
��
�� newtrack%:
Ȏ icon% �
� 2:�createtune(defvoices%)
� 3:�incdefvoices
&� 4:�decdefvoices
0�
:� copypattern%:
DȎ icon% �
N� 3:�inccopypat
X� 4:�deccopypat
b� 2:�copypattern
l�
v� 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:�decpatlength
 *� 6,7,8:�makeselected(settings%,icon%)
*�
48� savedump%:� icon%=0 � �initiatedrag(savedump%,0,6)
>� amendtrack%:
HȎ icon% �
R� 3:�incdelpat
\� 4:�decdelpat
f� 5:�deletepattern
p� 8:�incdelvoice
z� 9:�decdelvoice
�� 11:�amendvoice
�,� 14,15:�makeselected(amendtrack%,icon%)
��
�!� stereo%:�alterstereo(icon%)
��
��
�:
���openwindow(handle%,pos%)
�� b%
�� pos%=0 �
�b%=block%:block%!0=handle%
� ș "Wimp_GetWindowState",,b%
��
	b%=pos%
	�
	block%!28=-1
	$ș "Wimp_OpenWindow",,b%
	.�
	8:
	B��closewindow(handle%)
	L� handle%=tuneinfo% �
	V!mname$=�icontext(tuneinfo%,7)
	`!aname$=�icontext(tuneinfo%,8)
	j�
	tblock%!0=handle%
	~!ș "Wimp_CloseWindow",,block%
	��
	�:
	�(��initiatedrag(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

q%!32=1279:q%!36=1023
!q%=0:q%!4=5
ș "Wimp_DragBox",,q%
(�
2:
<
��message
Fyourref%=q%!8
PȎ q%!16 �
Z� 0:quit%=�
d� 2:�savefile
n� 3:�loadfile
x�
��
�:
���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
�
q%!36=100
�q%!40=&C00
$(q%+44)=�(0)

!q%=60
+ș "Wimp_SendMessage",18,q%,q%!20,q%!24
"�
,:
6ݤstringfrommemory(addr%)
@� byte%,temp$,out$
Jbyte%=0
Ttemp$=""
^out$=""
h�
rtemp$=�(addr%?byte%)
|#� �(temp$)>31 � out$=out$+temp$
�byte%+=1
�� �(temp$)=0
�	=out$
�:
�$ݤstringwithlimit(addr%,maxlen%)
�� byte%,temp$,out$
�byte%=0
�temp$=""
�out$=""
��
�temp$=�(addr%?byte%)
�#� �(temp$)>31 � out$=out$+temp$
�byte%+=1
!� �(temp$)=0 � byte%>=maxlen%
	=out$
:
&ݤicontext(wh%,iconnumber%)
0!temp%=wh%
:temp%!4=iconnumber%
D!ș "Wimp_GetIconState",,temp%
N
it$=""
Xbyte%=0
bȕ ?((temp%!28)+byte%)>31
l"it$=it$+�(?((temp%!28)+byte%))
vbyte%+=1
��
�=it$
�:
�ݤiconval(wh%,iconnumber%)
�"=�(�icontext(wh%,iconnumber%))
�:
���error
�ș "Hourglass_Off"
�� #0
�ș "Wimp_DragBox",,-1
�ș "Wimp_CreateMenu",,-1
�
!block%=�
�$(block%+4)=�$+�(0)

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

	�main

�

 :

*(��seticontext(wh%,iconnumber%,text$)

4!temp%=wh%

>temp%!4=iconnumber%

H!ș "Wimp_GetIconState",,temp%

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

\
temp%!8=0

ftemp%!12=0

p!ș "Wimp_SetIconState",,temp%

z�

�:

���makesamplemenu(samp%)

�sampleno%=samp%+1

�menuptr%=menuaddr%

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

�� i$,m$

�inst%=samp%+1

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

�%mtitle$=�leafname(sample$(inst%))

�#� mtitle$="" � mtitle$="Sample"

�mtitle$=�mtitle$,12)

�'�seticontext(savesample%,3,mtitle$)

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

� text$="" � �
menuflags%=0
iconflags%=&07000021
(ȕ �text$,1)="|"
2Ȏ �text$,2,3) �
<� "lit":
F*iconflags%+=(1<<22)*(1-�(�text$,5,1)))
Ptext$=�text$,6)
Z� "tic":
dmenuflags%+=�(�text$,5,1))
ntext$=�text$,6)
x� "win":
�Ȏ �text$,5,2) �
�� "in":submenu%=info%
�� "tn":submenu%=tunemenu%
�� "nt":submenu%=newtrack%
�� "sa":submenu%=savetune%
�� "sm":submenu%=savemenu%
� � "sp":submenu%=savepattern%
�!� "ap":submenu%=savepatterns%
�� "sh":submenu%=savehelp%
�� "ss":submenu%=savesample%
�� "sv":submenu%=setvolume%
�� "sd":submenu%=savedump%
��
text$=�text$,7)
�
�
")� �(text$)>menumax% menumax%=�(text$)
,menuptr%!0=menuflags%
6menuptr%!4=submenu%
@menuptr%!8=iconflags%
J� �(text$)<12 �
T$(menuptr%+12)=text$
^�
hmenend%-=(�(text$)+1)
r(menuptr%!8=(menuptr%!8) � %100000000
|menuptr%!12=menend%
�menuptr%!16=-1
�menuptr%!20=�(text$)
�$menend%=text$
��
�menuptr%+=24
��
�:
�ݤpar(sep$)
�%i1%=i%+1:i%=�menu$+sep$,sep$,i1%)
�=�menu$,i1%,i%-i1%)
�:
�ݤmakemen(menu$,menutitle$)
�� menumax%,wasptr%
wasptr%=menuptr%
menumax%=10
i%=0
&menuptr%!20=40
0$menuptr%=menutitle$
:menuptr%?12=tfcol
Dmenuptr%?13=mbcol
Nmenuptr%?14=wfcol
Xmenuptr%?15=wbcol
bmaxaddr%=menuptr%+16
lmenuptr%!24=0
vmenuptr%+=28
��
�item$=�par(",")
��menuitem(item$)
�� item$=""
�%menuptr%!-24=(menuptr%!-24) � &80
�!maxaddr%=menumax%*16+32
�=wasptr%
�:
���openmenu(our%,m%,x%,y%)
�menuhandle%=our%
�
menux%=x%
�
menuy%=y%
�"ș "Wimp_CreateMenu",,m%,x%,y%
�
:
��menuselect(menus%)
 � redo%
*!ș "Wimp_GetPointerInfo",,q2%
4redo%=(((q2%!8) � 1)>0)
>Ȏ menuhandle% �
H
� 101:
RȎ !menus% �
\� 2:
f(�seticontext(settings%,5,�(patlen%))
p�openwindow(settings%,0)
z � 3:�openwindow(newtrack%,0)
�� 4:
��cleardata
�� 5:
�Ȏ menus%!4 �
�4� 0:�getnames:�tuneinfo:�openwindow(tuneinfo%,0)
�� 1:�samples
�� 2:�stereo
�#� 3:�openwindow(copypattern%,0)
�� 4:
�*�seticontext(amendtrack%,2,�(delpat%))
�-�seticontext(amendtrack%,10,�(delvoice%))
��openwindow(amendtrack%,0)
��
� 6:�shutdown:redo%=�
�
� redo% �mainmenu
$
� 106:
.Ȏ !menus% �
8� 2:
B�deletesample(sampleno%)
L� 3:
Vsaveheader%=�(saveheader%)
` �makesamplemenu(sampleno%-1)
j�
t�
~<� 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%
�q2%!4=icon%
q2%!8=eorword%

q2%!12=clearword%
ș "Wimp_SetIconState",,q2%
�
(:
2��writeable(window%,icon%)
<"�seticontype(window%,icon%,15)
F�
P:
Z ��unwriteable(window%,icon%)
d!�seticontype(window%,icon%,0)
n�
x:
�!��makeselected(window%,icon%)
�q2%!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%
6q2%!4=icon%
@ș "Wimp_GetIconState",,q2%
Jiconblock%=q2%+8
Ticonflags%=iconblock%!16
^%� (iconflags% � 2^21)=0 � =0 � =1
h:
r��movecaret(window%,icon%)
|*p%=(�(�icontext(window%,icon%))+1) � 2
�4ș "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%)
0� 3:�savepattern(savepat%)
:� 4:�savehelp(fullname$)
D � 5:�savepatterns(leafname$)
N� 6:�savedump(fullname$)
X�
b�
l:
v5��loadwithpathvariable(variable$,filename$,addr%)
�2�("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
4len%-=1
>�
Haddr%?c%=0
R�
\:
fݤreadstring
p� out$,byte%
zabort$=�(0)
�� �#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:
B!��writestringtofile(ch%,str$)
L� str$="" � �
V� l%=1 � �(str$)
`�#ch%,�(�str$,l%,1))
j�
t�
~:
���loadfile
�&filename$=�stringfrommemory(q%+44)
�loaded$=filename$
� filelen%=�filelen(filename$)
�Ȏ q%!40 �
�$� &001:�loadtracker(filename$,2)
�$� &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)
��
�:
�$��loadtracker(tracker$,modtype%)
�modtype2%=modtype%
�� modtype%=0 �
�C%=�(tracker$)
�read$=""
�� char%=1 � 4
�read$+=�(�#C%)
�
	� #C%
�
":
,abort%=�
6� tuneloaded% �
@Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
J-� errorexit%=1 � �returnmemory � abort%=�
T�
^� abort% � �
h:
r� 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:
�� modtype2%=0 �
�:errorexit%=�errorbox(17,"Convert from Sound Tracker?")
� � errorexit%<>1 � aborted%=�
��
�:
� �(aborted%) �
freemem%=0
'gotit%=�grabmem(filelen%*2+10*1024)
&!� gotit%=� � �notenoughtoload
0+tempload%=trackertune%+filelen%+10*1024
:'tempload%=(tempload%-4) � &FFFFFFFC
D'�("LOAD "+tracker$+" "+�~tempload%)
NA%=1
XB%=tempload%
bC%=trackertune%
lD%=filelen%
vș "Hourglass_On"
�� trackercode%
�ș "Hourglass_Off"
�
�minimise
��
�:
�� 1:
�freemem%=0
�gotit%=�grabmem(filelen%)
�!� gotit%=� � �notenoughtoload
�*�("LOAD "+tracker$+" "+�~trackertune%)
�:
�� 3:
�6errorexit%=�errorbox(17,"Convert from Octalyser?")
 � errorexit%<>1 � aborted%=�
:
� �(aborted%) �
 freemem%=0
*'gotit%=�grabmem(filelen%*2+10*1024)
4!� gotit%=� � �notenoughtoload
>+tempload%=trackertune%+filelen%+10*1024
H'tempload%=(tempload%-4) � &FFFFFFFC
R'�("LOAD "+tracker$+" "+�~tempload%)
\A%=8
fB%=tempload%
pC%=trackertune%
zD%=filelen%
�ș "Hourglass_On"
�� trackercode%
�ș "Hourglass_Off"
�
�minimise
��
�:
��
�:
�� �(aborted%) � �justloaded
�� aborted% � �closeall
��
�:
���justloaded
tuneloaded%=�
playing%=�
oldpos%=-1:oldevent%=-1
$%�seticontext(savetune%,3,loaded$)
.�getmusicinfo
8
�tuneinfo
B�updatestereo
L�writesamplenames
V�initialisevoices
`justloaded%=�
jdelvoice%=1
t
delpat%=1
~savepat%=1
�copypat%=1
�,�seticontext(copypattern%,5,�(copypat%))
�*�seticontext(amendtrack%,2,�(delpat%))
�-�seticontext(amendtrack%,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%=�
2window%=q%!20
<icon%=q%!24
F� window%<>samples% � �
P� icon%<0 � �
Zș "Hourglass_On"
dsamppos%=(icon% � 36)+1
n$sampfilelen%=�filelen(sampfile$)
x!actualsamplelen%=sampfilelen%
�#� samptype%=2 � sampfilelen%-=1
�%� samptype%=6 � sampfilelen%-=712
�&� samptype%=7 � sampfilelen%-=1408
�%� samptype%=8 � sampfilelen%-=660
�-sampfilelen%=(sampfilelen%+3) � &FFFFFFFC
�4� samptype%=0 � withheader%=�headered(sampfile$)
�� withheader% �
�%�loadheadered(sampfile$,samppos%)
��
�1�loadunheadered(sampfile$,samppos%,samptype%)
��
�ș "Hourglass_Off"
��updatesize

�minimise
�
:
"ݤheadered(samp$)
,C%=�(samp$)
6read$=""
@� char%=1 � 4
Jread$+=�(�#C%)
T�
^	� #C%
h� read$="SAMP" � =�
r=�
|:
� ��loadheadered(what$,where%)
�abort%=�
�'� sampfilelen%>(slen%(where%)+92) �
�-toinsert%=sampfilelen%-(slen%(where%)+92)
�at%=sampaddr%(where%)
�/� �(�insertbytes(at%,toinsert%)) � abort%=�
��
�'� sampfilelen%<(slen%(where%)+92) �
�+todelete%=slen%(where%)+92-sampfilelen%
�at%=sampaddr%(where%)
�/� �(�deletebytes(at%,todelete%)) � abort%=�
��
�� abort%=� � � 7:�
 ,�("LOAD "+what$+" "+�~sampaddr%(where%))
 �readsamples
 �writesamplenames
 &�
 0:
 :)��loadunheadered(what$,where%,stype%)
 Dabort%=�
 N"� sampfilelen%>slen%(where%) �
 X(toinsert%=sampfilelen%-slen%(where%)
 bat%=sampaddr%(where%)+92
 l/� �(�insertbytes(at%,toinsert%)) � abort%=�
 v�
 �"� sampfilelen%<slen%(where%) �
 �(todelete%=slen%(where%)-sampfilelen%
 �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
!4	� #C%
!>� 8:
!HC%=�(what$)
!RCș "OS_GBPB",3,C%,sampaddr%(where%)+92,actualsamplelen%-660,660
!\	� #C%
!f� 0,1,3,4,5:
!p1�("LOAD "+what$+" "+�~(sampaddr%(where%)+92))
!z�
!�sname$=�leafname(what$)
!�sname$=�sname$,20)
!�rlen%=2
!�rofs%=0
!�at%=sampaddr%(where%)
!�at%!4=sampfilelen%+84
!�%�writewithzeros(sname$,at%+16,20)
!�at%!80=rlen%
!�at%!68=rofs%
!�at%!56=sampfilelen%
!�at%!88=sampfilelen%
!�Ȏ stype% �
!�� 1:
"A%=5
"
B%=at%+92
"C%=sampfilelen%
"$D%=0
".� trackercode%
"8� 2,6,7:
"BA%=5
"L
B%=at%+92
"VC%=sampfilelen%
"`D%=1
"j� trackercode%
"t� 3,4,5:
"~A%=5
"�
B%=at%+92
"�C%=sampfilelen%
"�D%=stype%-1
"�� trackercode%
"��
"��readsamples
"��writesamplenames
"��
"�:
"���writewithzeros(w$,a%,l%)
"�� c%=1 � l%
"�b%=0
#!� c%<=�(w$) � b%=�(�w$,c%,1))
#
a%?(c%-1)=b%
#�
#�
#(:
#2��edittracker
#<� tuneloaded%=� � �
#F
�stoptune
#Poldmode%=�
#Z�rewritestereo
#d� 15
#nA%=trackertune%
#xB%=0
#�� justloaded% � B%=1
#�� trackercode%+4
#�*FX 15,0
#�ș "Wimp_SetMode",oldmode%
#��readmusicdata
#��readsamples
#��writesamplenames
#�
�tuneinfo
#�justloaded%=�
#�ș "OS_Byte",4,2,0
#��
#�:
#���notenoughtoload
$�returnmemory
$
�closeall
$(� 17,"Insufficient Memory Available"
$"�
$,:
$6��returnmemory
$@#ș "XWimp_SlotSize",appsize%,-1
$Jtuneloaded%=�
$T�
$^:
$hݤgrabmem(amount%)
$roldamount%=amount%
$|-� amount%<freemem% � freemem%-=amount%:=�
$��
$� grabable%=�grabmem2(32*1024)
$�� grabable% �
$�freemem%+=32*1024
$�amount%-=32*1024
$��
$�� amount%<0 � �(grabable%)
$�&� amount%<0 � freemem%-=oldamount%
$�=grabable%
$�:
$�ݤgrabmem2(amount%)
$�%ș "XWimp_SlotSize",-1,-1 � size%
$�(ș "XWimp_SlotSize",size%+amount%,-1
%&ș "XWimp_SlotSize",-1,-1 � size2%
%� size2%<size%+amount% �
% ș "XWimp_SlotSize",size%,-1
%&�
%0$� size2%<size%+amount% � =� � =�
%::
%D��getmusicinfo
%N�readmusicdata
%X�readsamples
%b�readpatterns
%l�
%v:
%���tuneinfo
%�$�seticontext(tuneinfo%,7,mname$)
%�$�seticontext(tuneinfo%,8,aname$)
%�*�seticontext(tuneinfo%,9,�(patterns%))
%�)�seticontext(tuneinfo%,14,�(voices%))
%�)�seticontext(tuneinfo%,15,�(seqlen%))
%��updatesize
%��
%�:
%���getnames
%�!mname$=�icontext(tuneinfo%,7)
%�!aname$=�icontext(tuneinfo%,8)
%��
&:
&
��samples
&�openwindow(samples%,0)
& �
&*:
&4��writesamplenames
&>� sample%=1 � 36
&Hicon%=sample%+107
&Rsname$=sample$(sample%)
&\slen%=slen%(sample%)
&fslen$=�(slen%)
&p� slen%=0 � slen$=""
&z slen$=�5-�(slen$)," ")+slen$
&�$sname$=sname$+�22-�(sname$)," ")
&�1�seticontext(samples%,icon%,sname$+" "+slen$)
&��
&��
&�:
&�!ݤfindword(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$)
'8word%=0
'B� byte%=1 � 4
'Lasc%=�(�word$,5-byte%,1))
'Vword%=(word%<<8)+asc%
'`�
'j
=word%
't:
'~��readmusicdata
'�absstart%=trackertune%
'�+absend%=trackertune%+(trackertune%!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")
'�0mlenaddr%=�findword(absstart%,absend%,mlen%)
(seqlen%=!mlenaddr%
(
0mvoxaddr%=�findword(absstart%,absend%,mvox%)
(voices%=!mvoxaddr%
(0steraddr%=�findword(absstart%,absend%,ster%)
((0pnumaddr%=�findword(absstart%,absend%,pnum%)
(2patterns%=!pnumaddr%
(<0mnamaddr%=�findword(absstart%,absend%,mnam%)
(F0anamaddr%=�findword(absstart%,absend%,anam%)
(P)aname$=�stringwithlimit(anamaddr%,32)
(Z)mname$=�stringwithlimit(mnamaddr%,32)
(d/pattlen%=�findword(absstart%,absend%,plen%)
(n/seqaddr%=�findword(absstart%,absend%,sequ%)
(x�
(�:
(���readsamples
(�absstart%=trackertune%
(�+absend%=trackertune%+(trackertune%!4)+8
(�absstart%+=8
(�samp%=�word("SAMP")
(�snam%=�word("SNAM")
(�slen%=�word("SLEN")
(�svol%=�word("SVOL")
(�start%=absstart%
(�� inst%=1 � 36
(�/sampleaddr%=�findword(start%,absend%,samp%)
(�"sampaddr%(inst%)=sampleaddr%-8
)searchaddr%=sampleaddr%
)2snamaddr%=�findword(searchaddr%,absend%,snam%)
)1sample$(inst%)=�stringwithlimit(snamaddr%,20)
)"2slenaddr%=�findword(searchaddr%,absend%,slen%)
),'slen%(inst%)=4*((!slenaddr%+3) � 4)
)6!slenaddr%=slen%(inst%)
)@9svoladdr%(inst%)=�findword(searchaddr%,absend%,svol%)
)J'start%=sampleaddr%+!(sampleaddr%-4)
)T�
)^�
)h:
)r��readpatterns
)|� start%,pattern%
)�absstart%=trackertune%
)�+absend%=trackertune%+(trackertune%!4)+8
)�absstart%+=8
)�start%=absstart%
)�patt%=�word("PATT")
)�� pattern%=1 � patterns%
)�7pattaddr%(pattern%)=�findword(start%,absend%,patt%)
)�7start%=pattaddr%(pattern%)+!(pattaddr%(pattern%)-4)
)��
)��
)�:
)���newpattern
)�� patterns%=64 � �
*�makeselected(tuneinfo%,6)
*eachpat%=4*patlen%*voices%
*Bstart%=pattaddr%(patterns%)+(4*voices%*pattlen%?(patterns%-1))
*&'� �insertbytes(start%,eachpat%+8) �
*0start%!0=�word("PATT")
*:start%!4=eachpat%
*D
start%+=8
*N� word%=0 � (eachpat%/4)-1
*Xstart%!(word%*4)=0
*b�
*lpattlen%?patterns%=patlen%
*vpatterns%+=1
*�!pnumaddr%=patterns%
*��getmusicinfo
*��
*� �makeunselected(tuneinfo%,6)
*�
�tuneinfo
*��
*�:
*�"ݤinsertbytes(where%,howmany%)
*� � �(�grabmem(howmany%)) � =�
*�)from%=trackertune%+trackertune%!4+8-1
*�to%=from%+howmany%
*�copy%=from%-where%
*�A%=from%
+
B%=to%
+C%=copy%+1
+� C%>0 � insertbytes
+ trackertune%!4+=howmany%
+*=�
+4:
+>"ݤdeletebytes(where%,howmany%)
+HA%=where%+howmany%
+R
B%=where%
+\*endaddr%=trackertune%+trackertune%!4+8
+fC%=endaddr%-A%
+p� C%>0 � deletebytes
+zfreemem%+=howmany%
+�trackertune%!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
,$MOV pc,link
,..deletebytes
,8LDRB R11,[fromreg%],#1
,BSTRB R11,[toreg%],#1
,LSUBS countreg%,countreg%,#1
,VBNE deletebytes
,`MOV pc,link
,j
.claimRma
,t
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��savesample(sample%)
-<"leaf$=�icontext(savesample%,3)
-F"path$=�stringfrommemory(q%+44)
-Ppath$=�path$,�(path$)-1)
-Z� saveheader% �
-dstart%=sampaddr%(sample%)
-n%length%=!(sampaddr%(sample%)+4)+8
-x�
-� start%=sampaddr%(sample%)+92
-�length%=slen%(sample%)
-��
-�3�savewithpathstring(leaf$,path$,start%,length%)
-�&�setfiletype(path$+"."+leaf$,&CB5)
-�ș "Wimp_CreateMenu",,-1
-��
-�:
-���savetune
-�8�writewithzeros(�icontext(tuneinfo%,7),mnamaddr%,32)
-�8�writewithzeros(�icontext(tuneinfo%,8),anamaddr%,32)
-��rewritestereo
-� leaf$=�icontext(savetune%,3)
.leaf$=�leafname(leaf$)
."path$=�stringfrommemory(q%+44)
.path$=�path$,�(path$)-1)
."B�savewithpathstring(leaf$,path$,trackertune%,trackertune%!4+8)
.,&�setfiletype(path$+"."+leaf$,&CB6)
.6-�seticontext(savetune%,3,path$+"."+leaf$)
.@ș "Wimp_CreateMenu",,-1
.J�
.T:
.^��deletesample(samppos%)
.hat%=sampaddr%(samppos%)+92
.rtodelete%=slen%(samppos%)
.|&dummy%=�deletebytes(at%,todelete%)
.�at%=sampaddr%(samppos%)
.�!�writewithzeros("",at%+16,20)
.�at%!4=84
.�at%!56=0
.�at%!68=0
.�at%!80=2
.�at%!88=0
.��readsamples
.��writesamplenames
.�
�minimise
.�
�tuneinfo
.��
.�:
/��updatesize
/size%=trackertune%!4+8
/ ksize%=�((size%+512) � 1024)
/&,�seticontext(tuneinfo%,19,�(ksize%)+"K")
/00�seticontext(tuneinfo%,20,�(size%)+" bytes")
/:�
/D:
/N��quicksave
/X save$=�icontext(savetune%,3)
/b�makeselected(savetune%,4)
/l4� �save$,".")=0 � �makeunselected(savetune%,4):�
/v8�writewithzeros(�icontext(tuneinfo%,7),mnamaddr%,32)
/�8�writewithzeros(�icontext(tuneinfo%,8),anamaddr%,32)
/��rewritestereo
/�start%=trackertune%
/�length%=trackertune%!4+8
/�0�("SAVE "+save$+" "+�~start%+" +"+�~length%)
/��setfiletype(save$,&CB6)
/� �makeunselected(savetune%,4)
/�ș "Wimp_CreateMenu",,-1
/��
/�:
/���incdefvoices
/�"� defvoices%<8 � defvoices%+=1
/�+�seticontext(newtrack%,5,�(defvoices%))
0�
0:
0��decdefvoices
0 "� defvoices%>1 � defvoices%-=1
0*+�seticontext(newtrack%,5,�(defvoices%))
04�
0>:
0H��cleardata
0Rabort%=�
0\� tuneloaded% �
0fAerrorexit%=�errorbox(17,"Data will be lost - are you sure ?")
0p� errorexit%=2 � abort%=�
0z�
0�� abort% � �
0��returnmemory
0�
�stoptune
0�
�closeall
0�tuneloaded%=�
0��
0�:
0���closeall
0��closewindow(tuneinfo%)
0��closewindow(samples%)
0��closewindow(stereo%)
0��closewindow(copypattern%)
0��closewindow(player%)
1�closewindow(amendtrack%)
1�
1:
1$��createtune(v%)
1.abort%=�
18� tuneloaded% �
1BIerrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
1L� errorexit%=2 � abort%=�
1V� abort%=� �returnmemory
1`�
1j(� abort% � �closewindow(newtrack%):�
1t
�stoptune
1~�makeselected(newtrack%,2)
1�memneeded%=368+36*92
1�memneeded%+=v%*64*4
1�freemem%=0
1�� �grabmem(memneeded%) �
1�o%=0
1�t%=trackertune%
1�t%!o%=�word("MUSX") : o%+=4
1� t%!o%=memneeded%-8   : o%+=4
1�t%!o%=�word("TINF") : o%+=4
1� t%!o%=4              : o%+=4
1� t%!o%=0              : o%+=4
1�t%!o%=�word("MVOX") : o%+=4
2 t%!o%=4              : o%+=4
2
 t%!o%=v%             : o%+=4
2t%!o%=�word("STER") : o%+=4
2 t%!o%=8              : o%+=4
2( t%!o%=&03050503      : o%+=4
22 t%!o%=&03050503      : o%+=4
2<t%!o%=�word("MNAM") : o%+=4
2F t%!o%=32             : o%+=4
2P*�writewithzeros("<Untitled>",t%+o%,32)
2Z
o%+=32
2dt%!o%=�word("ANAM") : o%+=4
2n t%!o%=32             : o%+=4
2x%�writewithzeros("<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�� i%=1 � 64
2�t%?o%=64
2�	o%+=1
2��
3t%!o%=�word("SEQU") : o%+=4
3 t%!o%=128            : o%+=4
3� i%=1 � 128
3"t%?o%=0
3,	o%+=1
36�
3@t%!o%=�word("PATT") : o%+=4
3J t%!o%=v%*64*4        : o%+=4
3T� i%=1 � v%*64*4
3^t%?o%=0
3h	o%+=1
3r�
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� �writewithzeros("",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
3�t%!o%=�word("SLEN") : o%+=4
3� t%!o%=4              : o%+=4
3� t%!o%=0              : o%+=4
3�t%!o%=�word("ROFS") : o%+=4
4 t%!o%=4              : o%+=4
4 t%!o%=0              : o%+=4
4t%!o%=�word("RLEN") : o%+=4
4& t%!o%=4              : o%+=4
40 t%!o%=2              : o%+=4
4:t%!o%=�word("SDAT") : o%+=4
4D t%!o%=0              : o%+=4
4N�
4Xtuneloaded%=�
4bplaying%=�
4l'�seticontext(savetune%,3,"Tracker")
4v�getmusicinfo
4�
�tuneinfo
4��updatestereo
4��writesamplenames
4��initialisevoices
4��closewindow(newtrack%)
4�
�minimise
4��
4�tuneloaded%=�
4�
�closeall
4��
4� �makeunselected(newtrack%,2)
4�justloaded%=�
4�delvoice%=1
5
delpat%=1
5savepat%=1
5copypat%=1
5 ,�seticontext(copypattern%,5,�(copypat%))
5**�seticontext(amendtrack%,2,�(delpat%))
54-�seticontext(amendtrack%,10,�(delvoice%))
5>�redocaret
5H�
5R:
5\ݤerrorbox(err%,err$)
5fq%!0=err%+(task%<<8)
5p$(q%+4)=err$+�(0)
5z8ș "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)
5�)� �".: ",ch$)=0 � output$=ch$+output$
5�
chpos%-=1
5�� chpos%=0 � �".: ",ch$)>0
5�=output$
6:
6��stereo
6�openwindow(stereo%,0)
6$�
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�,�seticontext(savepattern%,6,�(savepat%))
7��
8:
8��decsavepat
8� savepat%>1 � savepat%-=1
8",�seticontext(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��loadpatdata(filename$)
9N@� q%!20=samples% � �loadsample(filename$,�whichsampletype):�
9XC%=�(filename$)
9bread$=""
9l� byte%=1 � 4
9vread$+=�(�#C%)
9��
9�	� #C%
9�abort%=�
9�� read$<>"PATT" � abort%=�
9�� filelen%<(4+8) � abort%=�
9�$� filelen%>(8*64*4+8) � abort%=�
9�!� (filelen% � 3)>0 � abort%=�
9�(� abort% � � 17,"Not a pattern file"
9�&�("LOAD "+filename$+" "+�~copied%)
9�copiedlen%=filelen%
9��openwindow(copypattern%,0)
9��
9�:
:��inccopypat
:&� copypat%<patterns% � copypat%+=1
:,�seticontext(copypattern%,5,�(copypat%))
: �
:*:
:4��deccopypat
:>� copypat%>1 � copypat%-=1
:H,�seticontext(copypattern%,5,�(copypat%))
:R�
:\:
:f��copypattern
:p-� copiedlen%=0 � � 17,"No pattern loaded"
:z$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%)
:��
:�:
:���storepattern
:�!�makeselected(savepattern%,7)
:�&startpat%=�patternaddr(savepat%)-8
;length%=!(startpat%+4)+8
;� byte%=0 � length%-1
;!copied%?byte%=startpat%?byte%
;$�
;.copiedlen%=length%
;8#�makeunselected(savepattern%,7)
;B*� �(mredo%) � ș "Wimp_CreateMenu",,-1
;L�openwindow(copypattern%,0)
;V�
;`:
;j��savehelp(savehelp$)
;tA%=0
;~blkaddr%=�(trackercode%)
;�helpaddr%=blkaddr%!0
;�helplines%=blkaddr%!4
;�C%=�(savehelp$)
;�ș "Hourglass_On"
;�� line%=1 � helplines%
;�4ș "Hourglass_Percentage",100*(line%/helplines%)
;�� char%=0 � 75
;��#C%,helpaddr%?char%
;��
;�helpaddr%+=76
;��#C%,10
;��
<ș "Hourglass_Off"
<
	� #C%
< �setfiletype(savehelp$,&FFF)
<ș "Wimp_CreateMenu",,-1
<(�
<2:
<<��incvolume(whichvol%)
<Fvol%=!svoladdr%(whichvol%)
<Pvol%+=�buttonval(b%)
<Z� vol%>255 � vol%=255
<d!svoladdr%(whichvol%)=vol%
<n&�seticontext(setvolume%,1,�(vol%))
<x�
<�:
<���decvolume(whichvol%)
<�vol%=!svoladdr%(whichvol%)
<�vol%-=�buttonval(b%)
<�� vol%<0 � vol%=0
<�!svoladdr%(whichvol%)=vol%
<�&�seticontext(setvolume%,1,�(vol%))
<��
<�:
<�ݤbuttonval(test%)
<�� test%=1 � =10
<�� test%=2 � =5
<�=1
=:
=��loadcocotrack(cocotrack$)
=abort%=�
="� tuneloaded% �
=,Ierrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
=6-� errorexit%=1 � �returnmemory � abort%=�
=@�
=J� abort% � �
=T:
=^
�stoptune
=haborted%=�
=rfreemem%=0
=|'gotit%=�grabmem(filelen%*2+10*1024)
=�!� gotit%=� � �notenoughtoload
=�+tempload%=trackertune%+filelen%+10*1024
=�'tempload%=(tempload%-4) � &FFFFFFFC
=�)�("LOAD "+cocotrack$+" "+�~tempload%)
=�A%=2
=�B%=tempload%
=�C%=trackertune%
=�ș "Hourglass_On"
=�� trackercode%
=�ș "Hourglass_Off"
=�newsize%=trackertune%!4+8
=�-newsize%=(newsize%+32*1024-1) � &FFFF8000
=�,ș "XWimp_SlotSize",newsize%+appsize%,-1
>(freemem%=newsize%-(trackertune%!4+8)
>�justloaded
>�
>&:
>0��loadprotracker(protrack$)
>:abort%=�
>D� tuneloaded% �
>NIerrorexit%=�errorbox(17,"Existing tune will be lost - are you sure?")
>X-� errorexit%=1 � �returnmemory � abort%=�
>b�
>l� abort% � �
>v:
>�
�stoptune
>�freemem%=0
>�'gotit%=�grabmem(filelen%*2+10*1024)
>�!� gotit%=� � �notenoughtoload
>�+tempload%=trackertune%+filelen%+10*1024
>�'tempload%=(tempload%-4) � &FFFFFFFC
>�(�("LOAD "+protrack$+" "+�~tempload%)
>�A%=1
>�B%=tempload%
>�C%=trackertune%
>�D%=filelen%
>�ș "Hourglass_On"
>�� trackercode%
?(�("LOAD "+protrack$+" "+�~tempload%)
?A%=3
?B%=tempload%
? C%=trackertune%
?*� trackercode%
?4ș "Hourglass_Off"
?>newsize%=trackertune%!4+8
?H-newsize%=(newsize%+32*1024-1) � &FFFF8000
?R,ș "XWimp_SlotSize",newsize%+appsize%,-1
?\(freemem%=newsize%-(trackertune%!4+8)
?f�justloaded
?p�
?z:
?���playtune
?�� �(tuneloaded%) � �
?�� playing% � �
?�bytes%=trackertune%!4+8
?�
A%=bytes%
?�� rmaspace%=USR(claimRma)
?�-ș "OS_Module",6,0,0,bytes% � ,,rmaspace%
?�8� rmaspace%=0 � � 17,"Insufficient Memory Available"
?��setupvoices
?��rewritestereo
?�rmaclaimed%=bytes%
?�A%=trackertune%
?�B%=rmaspace%
@
C%=bytes%
@� copybytes
@6ș "Tracker_MemoryLoad",rmaspace%,trackertune%!4+8
@$ș "Tracker_Play"
@.playing%=�
@8�panelstatus
@B�
@L:
@V��stoptune
@`� �(playing%) � �
@jș "Tracker_Stop"
@t!ș "XOS_Module",7,0,rmaspace%
@~-ș "XOS_ChangeDynamicArea",1,-rmaclaimed%
@�playing%=�
@�oldpos%=-1:oldevent%=-1
@��panelstatus
@��
@�:
@���shade(window%,icon%)
@�q2%!0=window%
@�q2%!4=icon%
@�q2%!8=2^22
@�q2%!12=2^22
@�ș "Wimp_SetIconState",,q2%
@��
A:
A
��unshade(window%,icon%)
Aq2%!0=window%
Aq2%!4=icon%
A(q2%!8=0
A2q2%!12=2^22
A<ș "Wimp_SetIconState",,q2%
AF�
AP:
AZ��panelstatus
Ad� playing% �
An�shade(player%,16)
Ax�unshade(player%,17)
A��
A��shade(player%,17)
A��unshade(player%,16)
A� �seticontext(player%,10,"-")
A��seticontext(player%,18,"")
A��
A��
A�:
A���showmusicpos
A�� �(playing%) � �
A�)muscounter%=(muscounter%+1) � update%
A�� muscounter%=0 �
A�+ș "Tracker_ReadPos" � pos%,event%,max%
B� pos%<>oldpos% �
B4�seticontext(player%,10,�(pos%+1)+":"+�(max%+1))
B�
B"<� event%<>oldevent% � �seticontext(player%,18,�(event%))
B,!oldpos%=pos%:oldevent%=event%
B6�
B@�
BJ:
BT��rewind
B^� �(playing%) � �
Bh&ș "Tracker_ReadPos" � pos%,event%
Br+� pos%>0 � ș "Tracker_SetPos",pos%-1,0
B|�
B�:
B���fastforward
B�� �(playing%) � �
B�+ș "Tracker_ReadPos" � pos%,event%,max%
B�.� pos%<max% � ș "Tracker_SetPos",pos%+1,0
B��
B�:
B���initialisevoices
B�� v%=1 � voices%
B��makeselected(player%,v%)
B��unshade(player%,v%)
B�"ș "Tracker_RestoreChannel",v%
B��
C� voices%<8 �
C� v%=voices%+1 � 8
C�makeunselected(player%,v%)
C&�shade(player%,v%)
C0�
C:�
CD�
CN:
CX��setupvoices
Cb� v%=1 � voices%
Cl!� �isitselected(player%,v%) �
Cv"ș "Tracker_RestoreChannel",v%
C��
C�ș "Tracker_MuteChannel",v%
C��
C��
C��
C�:
C���togglevoice(v%)
C�� �(tuneloaded%) � �
C�!� �isitselected(player%,v%) �
C��makeunselected(player%,v%)
C�ș "Tracker_MuteChannel",v%
C��
C��makeselected(player%,v%)
D"ș "Tracker_RestoreChannel",v%
D�
D�
D :
D*��alterstereo(icon%)
D4� icon%<0 � icon%>=8*8 � �
D>� (icon% � 8)=0 � �
DH)� b%=1 � �makeselected(stereo%,icon%)
DR� icon%>=voices%*8 � �
D\v%=(icon% � 8)+1
Df steraddr%?(v%-1)=(icon% � 8)
Dp<� playing% � ș "Sound_Stereo",v%,stereovals%(icon% � 8)
Dz�
D�:
D���incpatlength
D�� patlen%<64 � patlen%+=1
D�(�seticontext(settings%,5,�(patlen%))
D��
D�:
D���decpatlength
D�� patlen%>1 � patlen%-=1
D�(�seticontext(settings%,5,�(patlen%))
D��
D�:
D�ݤwhichsampletype
D�%� �isitselected(settings%,6) � =3
E%� �isitselected(settings%,7) � =4
E=5
E:
E$ݤpad(str$,len%)
E.=�str$+�len%," "),len%)
E8:
EBݤpadright(str$,len%)
EL=��len%," ")+str$,len%)
EV:
E`ݤbase36(num%)
Ej� num%=0 � ="-"
Et� num%<11 � =�(num%-1)
E~=�(num%+54)
E�:
E���savedump(dumpname$)
E�
�getnames
E�ș "Hourglass_On"
E�A%=�(dumpname$)
E�� A%>0 � � #A%
E�� A%>0 �
E�C%=�(dumpname$)
E�
�#C%=�#C%
E��
E�C%=�(dumpname$)
E��
F �setfiletype(dumpname$,&FFF)
F
:
F"� �isitselected(savedump%,4) �
F�#C%,"Tune Name  :"+mname$
F(�#C%,"Author     :"+aname$
F2"�#C%,"Voices     :"+�(voices%)
F<$�#C%,"Patterns   :"+�(patterns%)
FF"�#C%,"Length     :"+�(seqlen%)
FPc�#C%,"Size       :"+�(�((trackertune%!4+8+512) � 1024))+"K     ("+�(trackertune%!4+8)+" bytes)"
FZ�#C%,""
Fd�
Fn:
Fx"� �isitselected(savedump%,5) �
F�� #C%,"Sequence:"
F�
seqpos%=0
F� � row%=1 � (seqlen%+15) � 16
F�row$=""
F�� col%=1 � 16
F�L� seqpos%>=seqlen% � add$="    " � add$=�"    "+�(seqaddr%?seqpos%+1),4)
F�row$+=add$
F�seqpos%+=1
F��
F�
�#C%,row$
F��
F��#C%,""
F��
G:
G"� �isitselected(savedump%,6) �
G� #C%,"Instruments:"
G"� sample%=1 � 36
G,� slen%(sample%)>0 �
G6Esample$="Sample "+�base36(sample%)+"  "+�pad(sample$(sample%),20)
G@2sample$+="  Length:"+�pad(�(slen%(sample%)),5)
GJ�#C%,sample$
GT�
G^�
Gh�#C%,""
Gr�
G|:
G�#� �isitselected(savedump%,10) �
G�squashed%=�
G��#C%,"Patterns:"
G��#C%,""
G�� pattern%=1 � patterns%
G�6ș "Hourglass_Percentage",100*(pattern%/patterns%)
G�addr%=pattaddr%(pattern%)
G�S�#C%,"Pattern:"+�pad(�(pattern%),2)+"    (length:"+�(pattlen%?(pattern%-1))+")"
G�$� row%=1 � pattlen%?(pattern%-1)
G�row$=""
G�� voice%=1 � voices%
G�event%=!addr%
G�<ș "Tracker_DecodeNote",event% � ,note%,inst%,comm%,val%
HGevent$=�notes$,3*note%+1,3)+" "+�base36(inst%)+" "+�base36(comm%+1)
Hevent$+=�"00"+�~val%,2)
H� voice%>1 � row$+=" "
H&row$+=event$
H0addr%+=4
H:�
HD
�#C%,row$
HN�
HX�#C%,""
Hb�
Hl�
Hv:
H�#� �isitselected(savedump%,12) �
H��#C%,"Used in tune:"
H��#C%,""
H�A%=6
H�B%=trackertune%
H�used%=�(trackercode%)
H�A%=7
H�comm%=�(trackercode%)
H�� row%=1 � 36
H�row$=�notes$,3*row%+1,3)
H�7row$+=" "+�padright(�(used%!(row%*4-4)),5)+"      "
H�+� slen%(row%)>0 � row$+="*" � row$+=" "
H�samp$=sample$(row%)
I*row$+=�base36(row%)+" "+�pad(samp$,21)
I8row$+=�padright(�(used%!(row%*4-4+36*4)),5)+"      "
Irow$+=�base36(row%)+" "
I Arow$+=�pad(�arrows(�stringwithlimit(comm%+row%*14-14,14)),15)
I*/row$+=�padright(�(used%!(row%*4-4+72*4)),5)
I4
�#C%,row$
I>�
IH�#C%,""
IR�
I\:
Ifș "Hourglass_Off"
Ip	� #C%
Izș "Wimp_CreateMenu",,-1
I��
I�:
I�ݤarrows(str$)
I�� str$="" � =""
I�� new$,b%,ch%
I�new$=""
I�� ch%=1 � �(str$)
I�b%=�(�str$,ch%,1))
I�� b%>126 � b%+=9
I�new$+=�(b%)
I��
I�	=new$
I�:
J��minimise
Jtunesize%=trackertune%!4+8
J#tunesize%=(tunesize%+32*1024-1)
J$-tunesize%=32*1024*(tunesize% � (32*1024))
J.-ș "XWimp_SlotSize",tunesize%+appsize%,-1
J8)ș "XWimp_SlotSize",-1,-1 � tunesize%
JB4freemem%=(tunesize%-appsize%)-(trackertune%!4+8)
JL�
JV:
J`��decdelpat
Jj� delpat%>1 � delpat%-=1
Jt*�seticontext(amendtrack%,2,�(delpat%))
J~�
J�:
J���incdelpat
J�$� delpat%<patterns% � delpat%+=1
J�*�seticontext(amendtrack%,2,�(delpat%))
J��
J�:
J���decdelvoice
J� � delvoice%>1 � delvoice%-=1
J�-�seticontext(amendtrack%,10,�(delvoice%))
J��
J�:
J���incdelvoice
K&� delvoice%<voices% � delvoice%+=1
K
-�seticontext(amendtrack%,10,�(delvoice%))
K�
K:
K(��deletepattern
K2,� patterns%=1 � � 17,"Only one pattern!"
K<flag%=�
KF� pos%=0 � seqlen%-1
KP)� seqaddr%?pos%=(delpat%-1) � flag%=�
KZ�
Kd/� flag% � � 17,"Pattern occurs in sequence"
Kn �makeselected(amendtrack%,5)
Kxat%=pattaddr%(delpat%)-8
K�todelete%=at%!4+8
K�%flag%=�deletebytes(at%,todelete%)
K�� pos%=0 � seqlen%-1
K�/� seqaddr%?pos%>=delpat% � seqaddr%?pos%-=1
K��
K�&� pos%=(delpat%-1) � (patterns%-2)
K�%pattlen%?(pos%)=pattlen%?(pos%+1)
K��
K�!pnumaddr%-=1
K��getmusicinfo
K�
�minimise
K�
�tuneinfo
K�+� delpat%>patterns% � delpat%=patterns%
L*�seticontext(amendtrack%,2,�(delpat%))
L"�makeunselected(amendtrack%,5)
L�
L":
L,��amendvoice
L6W� �isitselected(amendtrack%,14) � �deletevoice(delvoice%) � �insertvoice(delvoice%)
L@+� delvoice%>voices% � delvoice%=voices%
LJ-�seticontext(amendtrack%,10,�(delvoice%))
LT�
L^:
Lhݤtotalpatlength
Lrtotal%=0
L|� pattern%=1 � patterns%
L�!total%+=pattlen%?(pattern%-1)
L��
L�=total%
L�:
L���deletevoice(v%)
L�0� voices%=1 � � 17,"Only one voice present!"
L�!�makeselected(amendtrack%,11)
L�ș "Hourglass_On"
L�� pattern%=1 � patterns%
L�:ș "Hourglass_Percentage",((pattern%-1)/patterns%)*100
L�rows%=pattlen%?(pattern%-1)
L�start%=pattaddr%(pattern%)
L�p1%=start%:p2%=p1%
M� row%=1 � rows%
M� voice%=1 � voices%
M� voice%<>v% �
M&
!p1%=!p2%
M0
p1%+=4
M:�
MD
p2%+=4
MN�
MX�
Mb#!(start%-4)=!(start%-4)-rows%*4
Mltodelete%=rows%*4
Mv%flag%=�deletebytes(p1%,todelete%)
M��readpatterns
M��
M�!mvoxaddr%-=1
M�
�minimise
M�#�makeunselected(amendtrack%,11)
M�ș "Hourglass_Off"
M��getmusicinfo
M�
�tuneinfo
M��initialisevoices
M�justloaded%=�
M��
M�:
M���insertvoice(v%)
N*� voices%=8 � � 17,"Already 8 voices!"
Ngrab%=�totalpatlength*4
N?� �(�grabmem(grab%)) � � 17,"Insufficient Memory Available"
N freemem%+=grab%
N*!�makeselected(amendtrack%,11)
N4ș "Hourglass_On"
N>� pattern%=1 � patterns%
NH:ș "Hourglass_Percentage",((pattern%-1)/patterns%)*100
NRrows%=pattlen%?(pattern%-1)
N\start%=pattaddr%(pattern%)
Nfat%=start%+rows%*voices%*4
Nptoinsert%=rows%*4
Nz%flag%=�insertbytes(at%,toinsert%)
N�� row%=rows% � 1 � -1
N�!p1%=start%+(row%-1)*voices%*4
N�%p2%=start%+(row%-1)*(voices%+1)*4
N�� voice%=1 � voices%
N�%event%(voice%)=p1%!((voice%-1)*4)
N��
N�� voice%=1 � voices%
N�!p2%=event%(voice%)
N�� voice%=v% �
N�
p2%+=4
N�
!p2%=0
N��
N�
p2%+=4
O�
O�
O%!(start%-4)=!(start%-4)+(rows%*4)
O$�readpatterns
O.�
O8!mvoxaddr%+=1
OB
�minimise
OL#�makeunselected(amendtrack%,11)
OVș "Hourglass_Off"
O`�getmusicinfo
Oj
�tuneinfo
Ot�initialisevoices
O~justloaded%=�
O��
�

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 11 de 20 62 6c  |emp% 300..d.. bl|
000000c0  6f 63 6b 25 20 31 30 30  30 0d 00 6e 10 de 20 73  |ock% 1000..n.. s|
000000d0  70 6e 61 6d 65 25 20 32  30 0d 00 78 1a de 20 6d  |pname% 20..x.. m|
000000e0  65 6e 75 61 64 64 72 25  20 6d 65 6e 75 73 70 61  |enuaddr% menuspa|
000000f0  63 65 25 0d 00 82 16 de  20 63 6f 70 69 65 64 25  |ce%..... copied%|
00000100  20 38 2a 36 34 2a 34 2b  38 0d 00 8c 1e de 20 6d  | 8*64*4+8..... m|
00000110  61 69 6e 73 70 72 69 74  65 73 25 20 73 70 72 73  |ainsprites% sprs|
00000120  69 7a 65 25 2b 31 36 0d  00 96 1c de 20 74 72 61  |ize%+16..... tra|
00000130  63 6b 65 72 63 6f 64 65  25 20 63 6f 64 65 73 69  |ckercode% codesi|
00000140  7a 65 25 0d 00 a0 05 3a  0d 00 aa 11 74 75 6e 65  |ze%....:....tune|
00000150  6c 6f 61 64 65 64 25 3d  a3 0d 00 b4 11 73 61 76  |loaded%=.....sav|
00000160  65 68 65 61 64 65 72 25  3d b9 0d 00 be 12 74 72  |eheader%=.....tr|
00000170  61 63 6b 65 72 74 75 6e  65 25 3d 93 0d 00 c8 11  |ackertune%=.....|
00000180  6a 75 73 74 6c 6f 61 64  65 64 25 3d b9 0d 00 d2  |justloaded%=....|
00000190  0f 64 65 6c 76 6f 69 63  65 25 3d 31 0d 00 dc 0d  |.delvoice%=1....|
000001a0  64 65 6c 70 61 74 25 3d  31 0d 00 e6 0e 73 61 76  |delpat%=1....sav|
000001b0  65 70 61 74 25 3d 31 0d  00 f0 0e 63 6f 70 79 70  |epat%=1....copyp|
000001c0  61 74 25 3d 31 0d 00 fa  10 63 6f 70 69 65 64 6c  |at%=1....copiedl|
000001d0  65 6e 25 3d 30 0d 01 04  0e 70 61 74 6c 65 6e 25  |en%=0....patlen%|
000001e0  3d 36 34 0d 01 0e 0d 75  70 64 61 74 65 25 3d 34  |=64....update%=4|
000001f0  0d 01 18 11 6d 75 73 63  6f 75 6e 74 65 72 25 3d  |....muscounter%=|
00000200  30 0d 01 22 1b 6f 6c 64  70 6f 73 25 3d 2d 31 3a  |0..".oldpos%=-1:|
00000210  6f 6c 64 65 76 65 6e 74  25 3d 2d 31 0d 01 2c 0e  |oldevent%=-1..,.|
00000220  66 72 65 65 6d 65 6d 25  3d 30 0d 01 36 0e 70 6c  |freemem%=0..6.pl|
00000230  61 79 69 6e 67 25 3d a3  0d 01 40 05 3a 0d 01 4a  |aying%=...@.:..J|
00000240  1f de 20 73 61 6d 70 61  64 64 72 25 28 33 36 29  |.. sampaddr%(36)|
00000250  2c 73 61 6d 70 6c 65 24  28 33 36 29 0d 01 54 1d  |,sample$(36)..T.|
00000260  de 20 73 6c 65 6e 25 28  33 36 29 2c 73 76 6f 6c  |. slen%(36),svol|
00000270  61 64 64 72 25 28 33 36  29 0d 01 5e 13 de 20 70  |addr%(36)..^.. p|
00000280  61 74 74 61 64 64 72 25  28 36 34 29 0d 01 68 19  |attaddr%(64)..h.|
00000290  de 20 6f 6e 6f 66 66 25  28 38 29 2c 65 76 65 6e  |. onoff%(8),even|
000002a0  74 25 28 38 29 0d 01 72  14 de 20 73 74 65 72 65  |t%(8)..r.. stere|
000002b0  6f 76 61 6c 73 25 28 37  29 0d 01 7c 2c 73 74 65  |ovals%(7)..|,ste|
000002c0  72 65 6f 76 61 6c 73 25  28 29 3d 30 2c 2d 31 32  |reovals%()=0,-12|
000002d0  36 2c 2d 37 30 2c 2d 34  30 2c 30 2c 34 30 2c 37  |6,-70,-40,0,40,7|
000002e0  30 2c 31 32 37 0d 01 86  7c 6e 6f 74 65 73 24 3d  |0,127...|notes$=|
000002f0  22 2d 2d 2d 43 2d 31 43  23 31 44 2d 31 44 23 31  |"---C-1C#1D-1D#1|
00000300  45 2d 31 46 2d 31 46 23  31 47 2d 31 47 23 31 41  |E-1F-1F#1G-1G#1A|
00000310  2d 31 41 23 31 42 2d 31  43 2d 32 43 23 32 44 2d  |-1A#1B-1C-2C#2D-|
00000320  32 44 23 32 45 2d 32 46  2d 32 46 23 32 47 2d 32  |2D#2E-2F-2F#2G-2|
00000330  47 23 32 41 2d 32 41 23  32 42 2d 32 43 2d 33 43  |G#2A-2A#2B-2C-3C|
00000340  23 33 44 2d 33 44 23 33  45 2d 33 46 2d 33 46 23  |#3D-3D#3E-3F-3F#|
00000350  33 47 2d 33 47 23 33 41  2d 33 41 23 33 42 2d 33  |3G-3G#3A-3A#3B-3|
00000360  22 0d 01 90 16 73 61 6d  70 6c 65 24 28 29 3d c4  |"....sample$()=.|
00000370  32 30 2c 22 20 22 29 0d  01 9a 10 64 65 66 76 6f  |20," ")....defvo|
00000380  69 63 65 73 25 3d 34 0d  01 a4 05 3a 0d 01 ae 23  |ices%=4....:...#|
00000390  77 62 63 6f 6c 3d 30 3a  6d 62 63 6f 6c 3d 32 3a  |wbcol=0:mbcol=2:|
000003a0  77 66 63 6f 6c 3d 37 3a  74 66 63 6f 6c 3d 37 0d  |wfcol=7:tfcol=7.|
000003b0  01 b8 05 3a 0d 01 c2 0e  ee 20 85 20 f2 65 72 72  |...:..... . .err|
000003c0  6f 72 0d 01 cc 05 3a 0d  01 d6 0e 24 71 25 3d 22  |or....:....$q%="|
000003d0  54 41 53 4b 22 0d 01 e0  1d 70 72 65 66 69 78 24  |TASK"....prefix$|
000003e0  3d 22 3c 41 50 54 72 61  63 6b 65 72 24 44 69 72  |="<APTracker$Dir|
000003f0  3e 22 0d 01 ea 3e c8 99  20 22 57 69 6d 70 5f 49  |>"...>.. "Wimp_I|
00000400  6e 69 74 69 61 6c 69 73  65 22 2c 32 30 30 2c 21  |nitialise",200,!|
00000410  71 25 2c 22 41 50 20 54  72 61 63 6b 65 72 22 20  |q%,"AP Tracker" |
00000420  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |. version%,task%|
00000430  0d 01 f4 3d f2 6c 6f 61  64 73 70 72 69 74 65 73  |...=.loadsprites|
00000440  28 70 72 65 66 69 78 24  2b 22 2e 53 70 72 69 74  |(prefix$+".Sprit|
00000450  65 73 22 2c 6d 61 69 6e  73 70 72 69 74 65 73 25  |es",mainsprites%|
00000460  2c 73 70 72 73 69 7a 65  25 2b 31 36 29 0d 01 fe  |,sprsize%+16)...|
00000470  3b f2 6c 6f 61 64 77 69  74 68 70 61 74 68 76 61  |;.loadwithpathva|
00000480  72 69 61 62 6c 65 28 70  72 65 66 69 78 24 2c 22  |riable(prefix$,"|
00000490  54 72 61 63 6b 43 6f 64  65 22 2c 74 72 61 63 6b  |TrackCode",track|
000004a0  65 72 63 6f 64 65 25 29  0d 02 08 10 f2 6c 6f 61  |ercode%).....loa|
000004b0  64 77 69 6e 64 6f 77 73  0d 02 12 12 f2 73 65 74  |dwindows.....set|
000004c0  73 74 65 72 65 6f 45 53  47 73 0d 02 1c 0d f2 61  |stereoESGs.....a|
000004d0  73 73 65 6d 62 6c 65 0d  02 26 21 69 63 6f 6e 68  |ssemble..&!iconh|
000004e0  25 3d a4 69 63 6f 6e 62  61 72 28 22 21 61 70 74  |%=.iconbar("!apt|
000004f0  72 61 63 6b 65 72 22 29  0d 02 30 28 c8 99 20 22  |racker")..0(.. "|
00000500  58 57 69 6d 70 5f 53 6c  6f 74 53 69 7a 65 22 2c  |XWimp_SlotSize",|
00000510  2d 31 2c 2d 31 20 b8 20  61 70 70 73 69 7a 65 25  |-1,-1 . appsize%|
00000520  0d 02 3a 09 f2 6d 61 69  6e 0d 02 44 0d f2 73 68  |..:..main..D..sh|
00000530  75 74 64 6f 77 6e 0d 02  4e 05 e0 0d 02 58 05 3a  |utdown..N....X.:|
00000540  0d 02 62 0e dd f2 73 68  75 74 64 6f 77 6e 0d 02  |..b...shutdown..|
00000550  6c 0c 61 62 6f 72 74 25  3d a3 0d 02 76 13 e7 20  |l.abort%=...v.. |
00000560  74 75 6e 65 6c 6f 61 64  65 64 25 20 8c 0d 02 80  |tuneloaded% ....|
00000570  41 65 72 72 6f 72 65 78  69 74 25 3d a4 65 72 72  |Aerrorexit%=.err|
00000580  6f 72 62 6f 78 28 31 37  2c 22 44 61 74 61 20 77  |orbox(17,"Data w|
00000590  69 6c 6c 20 62 65 20 6c  6f 73 74 20 2d 20 61 72  |ill be lost - ar|
000005a0  65 20 79 6f 75 20 73 75  72 65 20 3f 22 29 0d 02  |e you sure ?")..|
000005b0  8a 1d e7 20 65 72 72 6f  72 65 78 69 74 25 3d 32  |... errorexit%=2|
000005c0  20 8c 20 61 62 6f 72 74  25 3d b9 0d 02 94 05 cd  | . abort%=......|
000005d0  0d 02 9e 10 e7 20 61 62  6f 72 74 25 20 8c 20 e1  |..... abort% . .|
000005e0  0d 02 a8 0d f2 73 74 6f  70 74 75 6e 65 0d 02 b2  |.....stoptune...|
000005f0  0e 24 71 25 3d 22 54 41  53 4b 22 0d 02 bc 21 c8  |.$q%="TASK"...!.|
00000600  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000610  6e 22 2c 74 61 73 6b 25  2c 21 71 25 0d 02 c6 05  |n",task%,!q%....|
00000620  e1 0d 02 d0 05 3a 0d 02  da 16 dd a4 69 63 6f 6e  |.....:......icon|
00000630  62 61 72 28 73 70 72 69  74 65 24 29 0d 02 e4 14  |bar(sprite$)....|
00000640  24 73 70 6e 61 6d 65 25  3d 73 70 72 69 74 65 24  |$spname%=sprite$|
00000650  0d 02 ee 0f 62 6c 6f 63  6b 25 21 30 3d 2d 31 0d  |....block%!0=-1.|
00000660  02 f8 0e 62 6c 6f 63 6b  25 21 34 3d 30 0d 03 02  |...block%!4=0...|
00000670  0e 62 6c 6f 63 6b 25 21  38 3d 30 0d 03 0c 10 62  |.block%!8=0....b|
00000680  6c 6f 63 6b 25 21 31 32  3d 38 30 0d 03 16 10 62  |lock%!12=80....b|
00000690  6c 6f 63 6b 25 21 31 36  3d 36 34 0d 03 20 13 62  |lock%!16=64.. .b|
000006a0  6c 6f 63 6b 25 21 32 30  3d 26 32 31 30 32 0d 03  |lock%!20=&2102..|
000006b0  2a 15 62 6c 6f 63 6b 25  21 32 34 3d 73 70 6e 61  |*.block%!24=spna|
000006c0  6d 65 25 0d 03 34 1a 62  6c 6f 63 6b 25 21 32 38  |me%..4.block%!28|
000006d0  3d 6d 61 69 6e 73 70 72  69 74 65 73 25 0d 03 3e  |=mainsprites%..>|
000006e0  19 62 6c 6f 63 6b 25 21  33 32 3d a9 28 24 73 70  |.block%!32=.($sp|
000006f0  6e 61 6d 65 25 29 0d 03  48 28 c8 99 20 22 57 69  |name%)..H(.. "Wi|
00000700  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000710  62 6c 6f 63 6b 25 20 b8  20 69 63 6f 6e 25 0d 03  |block% . icon%..|
00000720  52 0a 3d 69 63 6f 6e 25  0d 03 5c 05 3a 0d 03 66  |R.=icon%..\.:..f|
00000730  24 dd f2 6c 6f 61 64 73  70 72 69 74 65 73 28 66  |$..loadsprites(f|
00000740  69 6c 65 24 2c 61 64 64  72 25 2c 73 69 7a 65 25  |ile$,addr%,size%|
00000750  29 0d 03 70 10 21 61 64  64 72 25 3d 73 69 7a 65  |)..p.!addr%=size|
00000760  25 0d 03 7a 0d 61 64 64  72 25 21 34 3d 30 0d 03  |%..z.addr%!4=0..|
00000770  84 0e 61 64 64 72 25 21  38 3d 31 36 0d 03 8e 0e  |..addr%!8=16....|
00000780  61 64 64 72 25 21 31 32  3d 30 0d 03 98 27 c8 99  |addr%!12=0...'..|
00000790  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
000007a0  35 36 2b 31 30 2c 61 64  64 72 25 2c 66 69 6c 65  |56+10,addr%,file|
000007b0  24 0d 03 a2 05 e1 0d 03  ac 05 3a 0d 03 b6 11 dd  |$.........:.....|
000007c0  f2 6c 6f 61 64 77 69 6e  64 6f 77 73 0d 03 c0 0d  |.loadwindows....|
000007d0  de 20 54 25 20 35 30 30  30 0d 03 ca 0f 6d 61 78  |. T% 5000....max|
000007e0  77 73 25 3d 35 30 30 30  0d 03 d4 13 de 20 69 6e  |ws%=5000..... in|
000007f0  64 69 72 25 20 6d 61 78  77 73 25 0d 03 de 0f 69  |dir% maxws%....i|
00000800  6e 64 25 3d 69 6e 64 69  72 25 0d 03 e8 15 73 70  |nd%=indir%....sp|
00000810  72 25 3d 6d 61 69 6e 73  70 72 69 74 65 73 25 0d  |r%=mainsprites%.|
00000820  03 f2 30 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..0.. "Wimp_Open|
00000830  54 65 6d 70 6c 61 74 65  22 2c 2c 70 72 65 66 69  |Template",,prefi|
00000840  78 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |x$+".Templates".|
00000850  03 fc 21 69 6e 66 6f 25  3d a4 67 65 74 77 69 6e  |..!info%=.getwin|
00000860  64 6f 77 28 22 69 6e 66  6f 22 2c 73 70 72 25 29  |dow("info",spr%)|
00000870  0d 04 06 29 73 61 76 65  74 75 6e 65 25 3d a4 67  |...)savetune%=.g|
00000880  65 74 77 69 6e 64 6f 77  28 22 73 61 76 65 74 75  |etwindow("savetu|
00000890  6e 65 22 2c 73 70 72 25  29 0d 04 10 29 74 75 6e  |ne",spr%)...)tun|
000008a0  65 69 6e 66 6f 25 3d a4  67 65 74 77 69 6e 64 6f  |einfo%=.getwindo|
000008b0  77 28 22 74 75 6e 65 69  6e 66 6f 22 2c 73 70 72  |w("tuneinfo",spr|
000008c0  25 29 0d 04 1a 27 73 61  6d 70 6c 65 73 25 3d a4  |%)...'samples%=.|
000008d0  67 65 74 77 69 6e 64 6f  77 28 22 73 61 6d 70 6c  |getwindow("sampl|
000008e0  65 73 22 2c 73 70 72 25  29 0d 04 24 2d 73 61 76  |es",spr%)..$-sav|
000008f0  65 73 61 6d 70 6c 65 25  3d a4 67 65 74 77 69 6e  |esample%=.getwin|
00000900  64 6f 77 28 22 73 61 76  65 73 61 6d 70 6c 65 22  |dow("savesample"|
00000910  2c 73 70 72 25 29 0d 04  2e 29 6e 65 77 74 72 61  |,spr%)...)newtra|
00000920  63 6b 25 3d a4 67 65 74  77 69 6e 64 6f 77 28 22  |ck%=.getwindow("|
00000930  6e 65 77 74 72 61 63 6b  22 2c 73 70 72 25 29 0d  |newtrack",spr%).|
00000940  04 38 25 73 74 65 72 65  6f 25 3d a4 67 65 74 77  |.8%stereo%=.getw|
00000950  69 6e 64 6f 77 28 22 73  74 65 72 65 6f 22 2c 73  |indow("stereo",s|
00000960  70 72 25 29 0d 04 42 2f  73 61 76 65 70 61 74 74  |pr%)..B/savepatt|
00000970  65 72 6e 25 3d a4 67 65  74 77 69 6e 64 6f 77 28  |ern%=.getwindow(|
00000980  22 73 61 76 65 70 61 74  74 65 72 6e 22 2c 73 70  |"savepattern",sp|
00000990  72 25 29 0d 04 4c 2f 73  61 76 65 70 61 74 74 65  |r%)..L/savepatte|
000009a0  72 6e 73 25 3d a4 67 65  74 77 69 6e 64 6f 77 28  |rns%=.getwindow(|
000009b0  22 73 61 76 65 70 61 74  74 6e 73 22 2c 73 70 72  |"savepattns",spr|
000009c0  25 29 0d 04 56 2f 63 6f  70 79 70 61 74 74 65 72  |%)..V/copypatter|
000009d0  6e 25 3d a4 67 65 74 77  69 6e 64 6f 77 28 22 63  |n%=.getwindow("c|
000009e0  6f 70 79 70 61 74 74 65  72 6e 22 2c 73 70 72 25  |opypattern",spr%|
000009f0  29 0d 04 60 29 73 61 76  65 68 65 6c 70 25 3d a4  |)..`)savehelp%=.|
00000a00  67 65 74 77 69 6e 64 6f  77 28 22 73 61 76 65 68  |getwindow("saveh|
00000a10  65 6c 70 22 2c 73 70 72  25 29 0d 04 6a 2b 73 65  |elp",spr%)..j+se|
00000a20  74 76 6f 6c 75 6d 65 25  3d a4 67 65 74 77 69 6e  |tvolume%=.getwin|
00000a30  64 6f 77 28 22 73 65 74  76 6f 6c 75 6d 65 22 2c  |dow("setvolume",|
00000a40  73 70 72 25 29 0d 04 74  25 70 6c 61 79 65 72 25  |spr%)..t%player%|
00000a50  3d a4 67 65 74 77 69 6e  64 6f 77 28 22 70 6c 61  |=.getwindow("pla|
00000a60  79 65 72 22 2c 73 70 72  25 29 0d 04 7e 29 73 65  |yer",spr%)..~)se|
00000a70  74 74 69 6e 67 73 25 3d  a4 67 65 74 77 69 6e 64  |ttings%=.getwind|
00000a80  6f 77 28 22 73 65 74 74  69 6e 67 73 22 2c 73 70  |ow("settings",sp|
00000a90  72 25 29 0d 04 88 29 73  61 76 65 64 75 6d 70 25  |r%)...)savedump%|
00000aa0  3d a4 67 65 74 77 69 6e  64 6f 77 28 22 73 61 76  |=.getwindow("sav|
00000ab0  65 64 75 6d 70 22 2c 73  70 72 25 29 0d 04 92 2d  |edump",spr%)...-|
00000ac0  61 6d 65 6e 64 74 72 61  63 6b 25 3d a4 67 65 74  |amendtrack%=.get|
00000ad0  77 69 6e 64 6f 77 28 22  61 6d 65 6e 64 74 72 61  |window("amendtra|
00000ae0  63 6b 22 2c 73 70 72 25  29 0d 04 9c 1b c8 99 20  |ck",spr%)...... |
00000af0  22 57 69 6d 70 5f 43 6c  6f 73 65 54 65 6d 70 6c  |"Wimp_CloseTempl|
00000b00  61 74 65 22 0d 04 a6 35  f2 73 65 74 69 63 6f 6e  |ate"...5.seticon|
00000b10  74 65 78 74 28 69 6e 66  6f 25 2c 31 31 2c a4 69  |text(info%,11,.i|
00000b20  63 6f 6e 74 65 78 74 28  69 6e 66 6f 25 2c 31 31  |context(info%,11|
00000b30  29 2b 22 20 20 23 31 22  29 0d 04 b0 05 e1 0d 04  |)+"  #1").......|
00000b40  ba 05 3a 0d 04 c4 1d dd  a4 67 65 74 77 69 6e 64  |..:......getwind|
00000b50  6f 77 28 77 74 69 74 6c  65 24 2c 73 70 72 25 29  |ow(wtitle$,spr%)|
00000b60  0d 04 ce 49 c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...I.. "Wimp_Loa|
00000b70  64 54 65 6d 70 6c 61 74  65 22 2c 2c 54 25 2c 69  |dTemplate",,T%,i|
00000b80  6e 64 25 2c 69 6e 64 69  72 25 2b 6d 61 78 77 73  |nd%,indir%+maxws|
00000b90  25 2d 31 2c 2d 31 2c 77  74 69 74 6c 65 24 2c 30  |%-1,-1,wtitle$,0|
00000ba0  20 b8 20 2c 2c 69 6e 64  25 0d 04 d8 0e 54 25 21  | . ,,ind%....T%!|
00000bb0  36 34 3d 73 70 72 25 0d  04 e2 28 c8 99 20 22 57  |64=spr%...(.. "W|
00000bc0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000bd0  22 2c 2c 54 25 20 b8 20  68 61 6e 64 6c 65 25 0d  |",,T% . handle%.|
00000be0  04 ec 0c 3d 68 61 6e 64  6c 65 25 0d 04 f6 05 3a  |...=handle%....:|
00000bf0  0d 05 00 0a dd f2 6d 61  69 6e 0d 05 0a 0b 71 75  |......main....qu|
00000c00  69 74 25 3d a3 0d 05 14  05 f5 0d 05 1e 21 c8 99  |it%=.........!..|
00000c10  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 71  | "Wimp_Poll",0,q|
00000c20  25 20 b8 20 72 65 61 73  6f 6e 25 0d 05 28 10 c8  |% . reason%..(..|
00000c30  8e 20 72 65 61 73 6f 6e  25 20 ca 0d 05 32 15 c9  |. reason% ...2..|
00000c40  20 30 3a f2 73 68 6f 77  6d 75 73 69 63 70 6f 73  | 0:.showmusicpos|
00000c50  0d 05 3c 1c c9 20 32 3a  f2 6f 70 65 6e 77 69 6e  |..<.. 2:.openwin|
00000c60  64 6f 77 28 71 25 21 30  2c 71 25 29 0d 05 46 1a  |dow(q%!0,q%)..F.|
00000c70  c9 20 33 3a f2 63 6c 6f  73 65 77 69 6e 64 6f 77  |. 3:.closewindow|
00000c80  28 71 25 21 30 29 0d 05  50 2f c9 20 36 3a f2 63  |(q%!0)..P/. 6:.c|
00000c90  68 65 63 6b 6d 6f 75 73  65 28 71 25 21 30 2c 71  |heckmouse(q%!0,q|
00000ca0  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00000cb0  25 21 31 36 29 0d 05 5a  11 c9 20 37 3a f2 64 72  |%!16)..Z.. 7:.dr|
00000cc0  61 67 66 69 6c 65 0d 05  64 22 c9 20 38 3a c8 99  |agfile..d". 8:..|
00000cd0  20 22 57 69 6d 70 5f 50  72 6f 63 65 73 73 4b 65  | "Wimp_ProcessKe|
00000ce0  79 22 2c 71 25 21 32 34  0d 05 6e 17 c9 20 39 3a  |y",q%!24..n.. 9:|
00000cf0  f2 6d 65 6e 75 73 65 6c  65 63 74 28 71 25 29 0d  |.menuselect(q%).|
00000d00  05 78 14 c9 20 31 37 2c  31 38 3a f2 6d 65 73 73  |.x.. 17,18:.mess|
00000d10  61 67 65 0d 05 82 05 cb  0d 05 8c 0b fd 20 71 75  |age.......... qu|
00000d20  69 74 25 0d 05 96 05 e1  0d 05 a0 05 3a 0d 05 aa  |it%.........:...|
00000d30  29 dd f2 63 68 65 63 6b  6d 6f 75 73 65 28 6d 78  |)..checkmouse(mx|
00000d40  25 2c 6d 79 25 2c 62 25  2c 77 68 65 72 65 25 2c  |%,my%,b%,where%,|
00000d50  69 63 6f 6e 25 29 0d 05  b4 20 e7 20 62 25 3d 31  |icon%)... . b%=1|
00000d60  20 8c 20 6d 72 65 64 6f  25 3d b9 20 8b 20 6d 72  | . mredo%=. . mr|
00000d70  65 64 6f 25 3d a3 0d 05  be 0f c8 8e 20 77 68 65  |edo%=....... whe|
00000d80  72 65 25 20 ca 0d 05 c8  09 c9 20 2d 32 3a 0d 05  |re% ...... -2:..|
00000d90  d2 0b c8 8e 20 62 25 20  ca 0d 05 dc 14 c9 20 31  |.... b% ...... 1|
00000da0  3a f2 65 64 69 74 74 72  61 63 6b 65 72 0d 05 e6  |:.edittracker...|
00000db0  08 c9 20 34 3a 0d 05 f0  13 e7 20 74 75 6e 65 6c  |.. 4:..... tunel|
00000dc0  6f 61 64 65 64 25 20 8c  0d 05 fa 10 f2 70 61 6e  |oaded% ......pan|
00000dd0  65 6c 73 74 61 74 75 73  0d 06 04 1a f2 6f 70 65  |elstatus.....ope|
00000de0  6e 77 69 6e 64 6f 77 28  70 6c 61 79 65 72 25 2c  |nwindow(player%,|
00000df0  30 29 0d 06 0e 05 cd 0d  06 18 08 c9 20 32 3a 0d  |0).......... 2:.|
00000e00  06 22 0d f2 6d 61 69 6e  6d 65 6e 75 0d 06 2c 27  |."..mainmenu..,'|
00000e10  f2 6f 70 65 6e 6d 65 6e  75 28 31 30 31 2c 6d 61  |.openmenu(101,ma|
00000e20  69 6e 6d 65 6e 75 25 2c  6d 78 25 2d 38 36 2c 33  |inmenu%,mx%-86,3|
00000e30  37 36 29 0d 06 36 05 cb  0d 06 40 10 c9 20 73 61  |76)..6....@.. sa|
00000e40  76 65 74 75 6e 65 25 3a  0d 06 4a 2c e7 20 69 63  |vetune%:..J,. ic|
00000e50  6f 6e 25 3d 30 20 8c 20  f2 69 6e 69 74 69 61 74  |on%=0 . .initiat|
00000e60  65 64 72 61 67 28 73 61  76 65 74 75 6e 65 25 2c  |edrag(savetune%,|
00000e70  30 2c 31 29 0d 06 54 1a  e7 20 69 63 6f 6e 25 3d  |0,1)..T.. icon%=|
00000e80  34 20 8c 20 f2 71 75 69  63 6b 73 61 76 65 0d 06  |4 . .quicksave..|
00000e90  5e 3c c9 20 73 61 76 65  73 61 6d 70 6c 65 25 3a  |^<. savesample%:|
00000ea0  e7 20 69 63 6f 6e 25 3d  30 20 8c 20 f2 69 6e 69  |. icon%=0 . .ini|
00000eb0  74 69 61 74 65 64 72 61  67 28 73 61 76 65 73 61  |tiatedrag(savesa|
00000ec0  6d 70 6c 65 25 2c 30 2c  32 29 0d 06 68 38 c9 20  |mple%,0,2)..h8. |
00000ed0  73 61 76 65 68 65 6c 70  25 3a e7 20 69 63 6f 6e  |savehelp%:. icon|
00000ee0  25 3d 30 20 8c 20 f2 69  6e 69 74 69 61 74 65 64  |%=0 . .initiated|
00000ef0  72 61 67 28 73 61 76 65  68 65 6c 70 25 2c 30 2c  |rag(savehelp%,0,|
00000f00  34 29 0d 06 72 40 c9 20  73 61 76 65 70 61 74 74  |4)..r@. savepatt|
00000f10  65 72 6e 73 25 3a e7 20  69 63 6f 6e 25 3d 30 20  |erns%:. icon%=0 |
00000f20  8c 20 f2 69 6e 69 74 69  61 74 65 64 72 61 67 28  |. .initiatedrag(|
00000f30  73 61 76 65 70 61 74 74  65 72 6e 73 25 2c 30 2c  |savepatterns%,0,|
00000f40  35 29 0d 06 7c 13 c9 20  73 61 76 65 70 61 74 74  |5)..|.. savepatt|
00000f50  65 72 6e 25 3a 0d 06 86  0e c8 8e 20 69 63 6f 6e  |ern%:...... icon|
00000f60  25 20 ca 0d 06 90 27 c9  20 30 3a f2 69 6e 69 74  |% ....'. 0:.init|
00000f70  69 61 74 65 64 72 61 67  28 73 61 76 65 70 61 74  |iatedrag(savepat|
00000f80  74 65 72 6e 25 2c 30 2c  33 29 0d 06 9a 13 c9 20  |tern%,0,3)..... |
00000f90  31 3a f2 69 6e 63 73 61  76 65 70 61 74 0d 06 a4  |1:.incsavepat...|
00000fa0  13 c9 20 34 3a f2 64 65  63 73 61 76 65 70 61 74  |.. 4:.decsavepat|
00000fb0  0d 06 ae 15 c9 20 37 3a  f2 73 74 6f 72 65 70 61  |..... 7:.storepa|
00000fc0  74 74 65 72 6e 0d 06 b8  05 cb 0d 06 c2 27 c9 20  |ttern........'. |
00000fd0  74 75 6e 65 69 6e 66 6f  25 3a e7 20 69 63 6f 6e  |tuneinfo%:. icon|
00000fe0  25 3d 36 20 8c 20 f2 6e  65 77 70 61 74 74 65 72  |%=6 . .newpatter|
00000ff0  6e 0d 06 cc 0f c9 20 73  61 6d 70 6c 65 73 25 3a  |n..... samples%:|
00001000  0d 06 d6 0c e7 20 62 25  3d 32 20 8c 0d 06 e0 1f  |..... b%=2 .....|
00001010  f2 6d 61 6b 65 73 61 6d  70 6c 65 6d 65 6e 75 28  |.makesamplemenu(|
00001020  69 63 6f 6e 25 20 83 20  33 36 29 0d 06 ea 46 e7  |icon% . 36)...F.|
00001030  20 73 6c 65 6e 25 28 28  69 63 6f 6e 25 20 83 20  | slen%((icon% . |
00001040  33 36 29 2b 31 29 3e 30  20 8c 20 f2 6f 70 65 6e  |36)+1)>0 . .open|
00001050  6d 65 6e 75 28 31 30 36  2c 6d 61 69 6e 6d 65 6e  |menu(106,mainmen|
00001060  75 25 2c 6d 78 25 2d 38  36 2c 6d 79 25 2b 32 34  |u%,mx%-86,my%+24|
00001070  29 0d 06 f4 05 cd 0d 06  fe 10 c9 20 6e 65 77 74  |).......... newt|
00001080  72 61 63 6b 25 3a 0d 07  08 0e c8 8e 20 69 63 6f  |rack%:...... ico|
00001090  6e 25 20 ca 0d 07 12 1f  c9 20 32 3a f2 63 72 65  |n% ...... 2:.cre|
000010a0  61 74 65 74 75 6e 65 28  64 65 66 76 6f 69 63 65  |atetune(defvoice|
000010b0  73 25 29 0d 07 1c 15 c9  20 33 3a f2 69 6e 63 64  |s%)..... 3:.incd|
000010c0  65 66 76 6f 69 63 65 73  0d 07 26 15 c9 20 34 3a  |efvoices..&.. 4:|
000010d0  f2 64 65 63 64 65 66 76  6f 69 63 65 73 0d 07 30  |.decdefvoices..0|
000010e0  05 cb 0d 07 3a 13 c9 20  63 6f 70 79 70 61 74 74  |....:.. copypatt|
000010f0  65 72 6e 25 3a 0d 07 44  0e c8 8e 20 69 63 6f 6e  |ern%:..D... icon|
00001100  25 20 ca 0d 07 4e 13 c9  20 33 3a f2 69 6e 63 63  |% ...N.. 3:.incc|
00001110  6f 70 79 70 61 74 0d 07  58 13 c9 20 34 3a f2 64  |opypat..X.. 4:.d|
00001120  65 63 63 6f 70 79 70 61  74 0d 07 62 14 c9 20 32  |eccopypat..b.. 2|
00001130  3a f2 63 6f 70 79 70 61  74 74 65 72 6e 0d 07 6c  |:.copypattern..l|
00001140  05 cb 0d 07 76 11 c9 20  73 65 74 76 6f 6c 75 6d  |....v.. setvolum|
00001150  65 25 3a 0d 07 80 0e c8  8e 20 69 63 6f 6e 25 20  |e%:...... icon% |
00001160  ca 0d 07 8a 1d c9 20 32  3a f2 69 6e 63 76 6f 6c  |...... 2:.incvol|
00001170  75 6d 65 28 73 61 6d 70  6c 65 6e 6f 25 29 0d 07  |ume(sampleno%)..|
00001180  94 1d c9 20 33 3a f2 64  65 63 76 6f 6c 75 6d 65  |... 3:.decvolume|
00001190  28 73 61 6d 70 6c 65 6e  6f 25 29 0d 07 9e 05 cb  |(sampleno%).....|
000011a0  0d 07 a8 0e c9 20 70 6c  61 79 65 72 25 3a 0d 07  |..... player%:..|
000011b0  b2 3a e7 20 69 63 6f 6e  25 3e 30 20 80 20 69 63  |.:. icon%>0 . ic|
000011c0  6f 6e 25 3c 28 21 6d 76  6f 78 61 64 64 72 25 2b  |on%<(!mvoxaddr%+|
000011d0  31 29 20 8c 20 f2 74 6f  67 67 6c 65 76 6f 69 63  |1) . .togglevoic|
000011e0  65 28 69 63 6f 6e 25 29  0d 07 bc 0e c8 8e 20 69  |e(icon%)...... i|
000011f0  63 6f 6e 25 20 ca 0d 07  c6 12 c9 20 31 36 3a f2  |con% ...... 16:.|
00001200  70 6c 61 79 74 75 6e 65  0d 07 d0 12 c9 20 31 37  |playtune..... 17|
00001210  3a f2 73 74 6f 70 74 75  6e 65 0d 07 da 10 c9 20  |:.stoptune..... |
00001220  32 31 3a f2 72 65 77 69  6e 64 0d 07 e4 15 c9 20  |21:.rewind..... |
00001230  32 32 3a f2 66 61 73 74  66 6f 72 77 61 72 64 0d  |22:.fastforward.|
00001240  07 ee 05 cb 0d 07 f8 10  c9 20 73 65 74 74 69 6e  |......... settin|
00001250  67 73 25 3a 0d 08 02 0e  c8 8e 20 69 63 6f 6e 25  |gs%:...... icon%|
00001260  20 ca 0d 08 0c 15 c9 20  33 3a f2 69 6e 63 70 61  | ...... 3:.incpa|
00001270  74 6c 65 6e 67 74 68 0d  08 16 15 c9 20 34 3a f2  |tlength..... 4:.|
00001280  64 65 63 70 61 74 6c 65  6e 67 74 68 0d 08 20 2a  |decpatlength.. *|
00001290  c9 20 36 2c 37 2c 38 3a  f2 6d 61 6b 65 73 65 6c  |. 6,7,8:.makesel|
000012a0  65 63 74 65 64 28 73 65  74 74 69 6e 67 73 25 2c  |ected(settings%,|
000012b0  69 63 6f 6e 25 29 0d 08  2a 05 cb 0d 08 34 38 c9  |icon%)..*....48.|
000012c0  20 73 61 76 65 64 75 6d  70 25 3a e7 20 69 63 6f  | savedump%:. ico|
000012d0  6e 25 3d 30 20 8c 20 f2  69 6e 69 74 69 61 74 65  |n%=0 . .initiate|
000012e0  64 72 61 67 28 73 61 76  65 64 75 6d 70 25 2c 30  |drag(savedump%,0|
000012f0  2c 36 29 0d 08 3e 12 c9  20 61 6d 65 6e 64 74 72  |,6)..>.. amendtr|
00001300  61 63 6b 25 3a 0d 08 48  0e c8 8e 20 69 63 6f 6e  |ack%:..H... icon|
00001310  25 20 ca 0d 08 52 12 c9  20 33 3a f2 69 6e 63 64  |% ...R.. 3:.incd|
00001320  65 6c 70 61 74 0d 08 5c  12 c9 20 34 3a f2 64 65  |elpat..\.. 4:.de|
00001330  63 64 65 6c 70 61 74 0d  08 66 16 c9 20 35 3a f2  |cdelpat..f.. 5:.|
00001340  64 65 6c 65 74 65 70 61  74 74 65 72 6e 0d 08 70  |deletepattern..p|
00001350  14 c9 20 38 3a f2 69 6e  63 64 65 6c 76 6f 69 63  |.. 8:.incdelvoic|
00001360  65 0d 08 7a 14 c9 20 39  3a f2 64 65 63 64 65 6c  |e..z.. 9:.decdel|
00001370  76 6f 69 63 65 0d 08 84  14 c9 20 31 31 3a f2 61  |voice..... 11:.a|
00001380  6d 65 6e 64 76 6f 69 63  65 0d 08 8e 2c c9 20 31  |mendvoice...,. 1|
00001390  34 2c 31 35 3a f2 6d 61  6b 65 73 65 6c 65 63 74  |4,15:.makeselect|
000013a0  65 64 28 61 6d 65 6e 64  74 72 61 63 6b 25 2c 69  |ed(amendtrack%,i|
000013b0  63 6f 6e 25 29 0d 08 98  05 cb 0d 08 a2 21 c9 20  |con%)........!. |
000013c0  73 74 65 72 65 6f 25 3a  f2 61 6c 74 65 72 73 74  |stereo%:.alterst|
000013d0  65 72 65 6f 28 69 63 6f  6e 25 29 0d 08 ac 05 cb  |ereo(icon%).....|
000013e0  0d 08 b6 05 e1 0d 08 c0  05 3a 0d 08 ca 1e dd f2  |.........:......|
000013f0  6f 70 65 6e 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |openwindow(handl|
00001400  65 25 2c 70 6f 73 25 29  0d 08 d4 08 ea 20 62 25  |e%,pos%)..... b%|
00001410  0d 08 de 0e e7 20 70 6f  73 25 3d 30 20 8c 0d 08  |..... pos%=0 ...|
00001420  e8 1e 62 25 3d 62 6c 6f  63 6b 25 3a 62 6c 6f 63  |..b%=block%:bloc|
00001430  6b 25 21 30 3d 68 61 6e  64 6c 65 25 0d 08 f2 20  |k%!0=handle%... |
00001440  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00001450  6f 77 53 74 61 74 65 22  2c 2c 62 25 0d 08 fc 05  |owState",,b%....|
00001460  cc 0d 09 06 0b 62 25 3d  70 6f 73 25 0d 09 10 05  |.....b%=pos%....|
00001470  cd 0d 09 1a 10 62 6c 6f  63 6b 25 21 32 38 3d 2d  |.....block%!28=-|
00001480  31 0d 09 24 1c c8 99 20  22 57 69 6d 70 5f 4f 70  |1..$... "Wimp_Op|
00001490  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 09 2e  |enWindow",,b%...|
000014a0  05 e1 0d 09 38 05 3a 0d  09 42 1a dd f2 63 6c 6f  |....8.:..B...clo|
000014b0  73 65 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |sewindow(handle%|
000014c0  29 0d 09 4c 19 e7 20 68  61 6e 64 6c 65 25 3d 74  |)..L.. handle%=t|
000014d0  75 6e 65 69 6e 66 6f 25  20 8c 0d 09 56 21 6d 6e  |uneinfo% ...V!mn|
000014e0  61 6d 65 24 3d a4 69 63  6f 6e 74 65 78 74 28 74  |ame$=.icontext(t|
000014f0  75 6e 65 69 6e 66 6f 25  2c 37 29 0d 09 60 21 61  |uneinfo%,7)..`!a|
00001500  6e 61 6d 65 24 3d a4 69  63 6f 6e 74 65 78 74 28  |name$=.icontext(|
00001510  74 75 6e 65 69 6e 66 6f  25 2c 38 29 0d 09 6a 05  |tuneinfo%,8)..j.|
00001520  cd 0d 09 74 14 62 6c 6f  63 6b 25 21 30 3d 68 61  |...t.block%!0=ha|
00001530  6e 64 6c 65 25 0d 09 7e  21 c8 99 20 22 57 69 6d  |ndle%..~!.. "Wim|
00001540  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00001550  62 6c 6f 63 6b 25 0d 09  88 05 e1 0d 09 92 05 3a  |block%.........:|
00001560  0d 09 9c 28 dd f2 69 6e  69 74 69 61 74 65 64 72  |...(..initiatedr|
00001570  61 67 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ag(window%,icon%|
00001580  2c 6d 79 72 65 66 25 29  0d 09 a6 17 73 61 76 65  |,myref%)....save|
00001590  68 61 6e 64 6c 65 25 3d  77 69 6e 64 6f 77 25 0d  |handle%=window%.|
000015a0  09 b0 15 67 6c 6f 62 61  6c 72 65 66 25 3d 6d 79  |...globalref%=my|
000015b0  72 65 66 25 0d 09 ba 0f  21 71 25 3d 77 69 6e 64  |ref%....!q%=wind|
000015c0  6f 77 25 0d 09 c4 20 c8  99 20 22 57 69 6d 70 5f  |ow%... .. "Wimp_|
000015d0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000015e0  2c 71 25 0d 09 ce 11 7a  25 3d 71 25 21 31 36 2d  |,q%....z%=q%!16-|
000015f0  71 25 21 38 0d 09 d8 1e  78 25 3d 71 25 21 34 3a  |q%!8....x%=q%!4:|
00001600  79 25 3d 71 25 21 38 3a  71 25 21 34 3d 69 63 6f  |y%=q%!8:q%!4=ico|
00001610  6e 25 0d 09 e2 1e c8 99  20 22 57 69 6d 70 5f 47  |n%...... "Wimp_G|
00001620  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00001630  0d 09 ec 19 71 25 21 38  2b 3d 78 25 3a 71 25 21  |....q%!8+=x%:q%!|
00001640  31 32 2b 3d 79 25 2b 7a  25 0d 09 f6 1a 71 25 21  |12+=y%+z%....q%!|
00001650  31 36 2b 3d 78 25 3a 71  25 21 32 30 2b 3d 79 25  |16+=x%:q%!20+=y%|
00001660  2b 7a 25 0d 0a 00 13 71  25 21 32 34 3d 30 3a 71  |+z%....q%!24=0:q|
00001670  25 21 32 38 3d 30 0d 0a  0a 19 71 25 21 33 32 3d  |%!28=0....q%!32=|
00001680  31 32 37 39 3a 71 25 21  33 36 3d 31 30 32 33 0d  |1279:q%!36=1023.|
00001690  0a 14 10 21 71 25 3d 30  3a 71 25 21 34 3d 35 0d  |...!q%=0:q%!4=5.|
000016a0  0a 1e 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..... "Wimp_Drag|
000016b0  42 6f 78 22 2c 2c 71 25  0d 0a 28 05 e1 0d 0a 32  |Box",,q%..(....2|
000016c0  05 3a 0d 0a 3c 0d dd f2  6d 65 73 73 61 67 65 0d  |.:..<...message.|
000016d0  0a 46 11 79 6f 75 72 72  65 66 25 3d 71 25 21 38  |.F.yourref%=q%!8|
000016e0  0d 0a 50 0e c8 8e 20 71  25 21 31 36 20 ca 0d 0a  |..P... q%!16 ...|
000016f0  5a 0f c9 20 30 3a 71 75  69 74 25 3d b9 0d 0a 64  |Z.. 0:quit%=...d|
00001700  11 c9 20 32 3a f2 73 61  76 65 66 69 6c 65 0d 0a  |.. 2:.savefile..|
00001710  6e 11 c9 20 33 3a f2 6c  6f 61 64 66 69 6c 65 0d  |n.. 3:.loadfile.|
00001720  0a 78 05 cb 0d 0a 82 05  e1 0d 0a 8c 05 3a 0d 0a  |.x...........:..|
00001730  96 0e dd f2 64 72 61 67  66 69 6c 65 0d 0a a0 09  |....dragfile....|
00001740  21 71 25 3d 30 0d 0a aa  20 c8 99 20 22 57 69 6d  |!q%=0... .. "Wim|
00001750  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00001760  22 2c 2c 71 25 0d 0a b4  0b 71 25 21 33 32 3d 34  |",,q%....q%!32=4|
00001770  0d 0a be 0d 71 25 21 32  38 3d 21 71 25 0d 0a c8  |....q%!28=!q%...|
00001780  0f 71 25 21 32 34 3d 71  25 21 31 36 0d 0a d2 0f  |.q%!24=q%!16....|
00001790  71 25 21 32 30 3d 71 25  21 31 32 0d 0a dc 0b 71  |q%!20=q%!12....q|
000017a0  25 21 31 36 3d 31 0d 0a  e6 0b 71 25 21 31 32 3d  |%!16=1....q%!12=|
000017b0  30 0d 0a f0 0d 71 25 21  33 36 3d 31 30 30 0d 0a  |0....q%!36=100..|
000017c0  fa 0e 71 25 21 34 30 3d  26 43 30 30 0d 0b 04 11  |..q%!40=&C00....|
000017d0  24 28 71 25 2b 34 34 29  3d bd 28 30 29 0d 0b 0e  |$(q%+44)=.(0)...|
000017e0  0a 21 71 25 3d 36 30 0d  0b 18 2b c8 99 20 22 57  |.!q%=60...+.. "W|
000017f0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001800  2c 31 38 2c 71 25 2c 71  25 21 32 30 2c 71 25 21  |,18,q%,q%!20,q%!|
00001810  32 34 0d 0b 22 05 e1 0d  0b 2c 05 3a 0d 0b 36 1d  |24.."....,.:..6.|
00001820  dd a4 73 74 72 69 6e 67  66 72 6f 6d 6d 65 6d 6f  |..stringfrommemo|
00001830  72 79 28 61 64 64 72 25  29 0d 0b 40 16 ea 20 62  |ry(addr%)..@.. b|
00001840  79 74 65 25 2c 74 65 6d  70 24 2c 6f 75 74 24 0d  |yte%,temp$,out$.|
00001850  0b 4a 0b 62 79 74 65 25  3d 30 0d 0b 54 0c 74 65  |.J.byte%=0..T.te|
00001860  6d 70 24 3d 22 22 0d 0b  5e 0b 6f 75 74 24 3d 22  |mp$=""..^.out$="|
00001870  22 0d 0b 68 05 f5 0d 0b  72 18 74 65 6d 70 24 3d  |"..h....r.temp$=|
00001880  bd 28 61 64 64 72 25 3f  62 79 74 65 25 29 0d 0b  |.(addr%?byte%)..|
00001890  7c 23 e7 20 97 28 74 65  6d 70 24 29 3e 33 31 20  ||#. .(temp$)>31 |
000018a0  8c 20 6f 75 74 24 3d 6f  75 74 24 2b 74 65 6d 70  |. out$=out$+temp|
000018b0  24 0d 0b 86 0c 62 79 74  65 25 2b 3d 31 0d 0b 90  |$....byte%+=1...|
000018c0  10 fd 20 97 28 74 65 6d  70 24 29 3d 30 0d 0b 9a  |.. .(temp$)=0...|
000018d0  09 3d 6f 75 74 24 0d 0b  a4 05 3a 0d 0b ae 24 dd  |.=out$....:...$.|
000018e0  a4 73 74 72 69 6e 67 77  69 74 68 6c 69 6d 69 74  |.stringwithlimit|
000018f0  28 61 64 64 72 25 2c 6d  61 78 6c 65 6e 25 29 0d  |(addr%,maxlen%).|
00001900  0b b8 16 ea 20 62 79 74  65 25 2c 74 65 6d 70 24  |.... byte%,temp$|
00001910  2c 6f 75 74 24 0d 0b c2  0b 62 79 74 65 25 3d 30  |,out$....byte%=0|
00001920  0d 0b cc 0c 74 65 6d 70  24 3d 22 22 0d 0b d6 0b  |....temp$=""....|
00001930  6f 75 74 24 3d 22 22 0d  0b e0 05 f5 0d 0b ea 18  |out$="".........|
00001940  74 65 6d 70 24 3d bd 28  61 64 64 72 25 3f 62 79  |temp$=.(addr%?by|
00001950  74 65 25 29 0d 0b f4 23  e7 20 97 28 74 65 6d 70  |te%)...#. .(temp|
00001960  24 29 3e 33 31 20 8c 20  6f 75 74 24 3d 6f 75 74  |$)>31 . out$=out|
00001970  24 2b 74 65 6d 70 24 0d  0b fe 0c 62 79 74 65 25  |$+temp$....byte%|
00001980  2b 3d 31 0d 0c 08 21 fd  20 97 28 74 65 6d 70 24  |+=1...!. .(temp$|
00001990  29 3d 30 20 84 20 62 79  74 65 25 3e 3d 6d 61 78  |)=0 . byte%>=max|
000019a0  6c 65 6e 25 0d 0c 12 09  3d 6f 75 74 24 0d 0c 1c  |len%....=out$...|
000019b0  05 3a 0d 0c 26 1f dd a4  69 63 6f 6e 74 65 78 74  |.:..&...icontext|
000019c0  28 77 68 25 2c 69 63 6f  6e 6e 75 6d 62 65 72 25  |(wh%,iconnumber%|
000019d0  29 0d 0c 30 0e 21 74 65  6d 70 25 3d 77 68 25 0d  |)..0.!temp%=wh%.|
000019e0  0c 3a 17 74 65 6d 70 25  21 34 3d 69 63 6f 6e 6e  |.:.temp%!4=iconn|
000019f0  75 6d 62 65 72 25 0d 0c  44 21 c8 99 20 22 57 69  |umber%..D!.. "Wi|
00001a00  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001a10  2c 2c 74 65 6d 70 25 0d  0c 4e 0a 69 74 24 3d 22  |,,temp%..N.it$="|
00001a20  22 0d 0c 58 0b 62 79 74  65 25 3d 30 0d 0c 62 1d  |"..X.byte%=0..b.|
00001a30  c8 95 20 3f 28 28 74 65  6d 70 25 21 32 38 29 2b  |.. ?((temp%!28)+|
00001a40  62 79 74 65 25 29 3e 33  31 0d 0c 6c 22 69 74 24  |byte%)>31..l"it$|
00001a50  3d 69 74 24 2b bd 28 3f  28 28 74 65 6d 70 25 21  |=it$+.(?((temp%!|
00001a60  32 38 29 2b 62 79 74 65  25 29 29 0d 0c 76 0c 62  |28)+byte%))..v.b|
00001a70  79 74 65 25 2b 3d 31 0d  0c 80 05 ce 0d 0c 8a 08  |yte%+=1.........|
00001a80  3d 69 74 24 0d 0c 94 05  3a 0d 0c 9e 1e dd a4 69  |=it$....:......i|
00001a90  63 6f 6e 76 61 6c 28 77  68 25 2c 69 63 6f 6e 6e  |conval(wh%,iconn|
00001aa0  75 6d 62 65 72 25 29 0d  0c a8 22 3d bb 28 a4 69  |umber%)..."=.(.i|
00001ab0  63 6f 6e 74 65 78 74 28  77 68 25 2c 69 63 6f 6e  |context(wh%,icon|
00001ac0  6e 75 6d 62 65 72 25 29  29 0d 0c b2 05 3a 0d 0c  |number%))....:..|
00001ad0  bc 0b dd f2 65 72 72 6f  72 0d 0c c6 16 c8 99 20  |....error...... |
00001ae0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00001af0  0c d0 08 d9 20 23 30 0d  0c da 19 c8 99 20 22 57  |.... #0...... "W|
00001b00  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 2d 31  |imp_DragBox",,-1|
00001b10  0d 0c e4 1c c8 99 20 22  57 69 6d 70 5f 43 72 65  |...... "Wimp_Cre|
00001b20  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 0c ee 0d  |ateMenu",,-1....|
00001b30  21 62 6c 6f 63 6b 25 3d  9f 0d 0c f8 17 24 28 62  |!block%=.....$(b|
00001b40  6c 6f 63 6b 25 2b 34 29  3d f6 24 2b bd 28 30 29  |lock%+4)=.$+.(0)|
00001b50  0d 0d 02 2f c8 99 20 22  57 69 6d 70 5f 52 65 70  |.../.. "Wimp_Rep|
00001b60  6f 72 74 45 72 72 6f 72  22 2c 62 6c 6f 63 6b 25  |ortError",block%|
00001b70  2c 31 2c 22 41 50 20 54  72 61 63 6b 65 72 22 0d  |,1,"AP Tracker".|
00001b80  0d 0c 09 f2 6d 61 69 6e  0d 0d 16 05 e1 0d 0d 20  |....main....... |
00001b90  05 3a 0d 0d 2a 28 dd f2  73 65 74 69 63 6f 6e 74  |.:..*(..seticont|
00001ba0  65 78 74 28 77 68 25 2c  69 63 6f 6e 6e 75 6d 62  |ext(wh%,iconnumb|
00001bb0  65 72 25 2c 74 65 78 74  24 29 0d 0d 34 0e 21 74  |er%,text$)..4.!t|
00001bc0  65 6d 70 25 3d 77 68 25  0d 0d 3e 17 74 65 6d 70  |emp%=wh%..>.temp|
00001bd0  25 21 34 3d 69 63 6f 6e  6e 75 6d 62 65 72 25 0d  |%!4=iconnumber%.|
00001be0  0d 48 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.H!.. "Wimp_GetI|
00001bf0  63 6f 6e 53 74 61 74 65  22 2c 2c 74 65 6d 70 25  |conState",,temp%|
00001c00  0d 0d 52 20 24 74 65 6d  70 25 21 32 38 3d c0 74  |..R $temp%!28=.t|
00001c10  65 78 74 24 2c 74 65 6d  70 25 21 33 36 2d 31 29  |ext$,temp%!36-1)|
00001c20  0d 0d 5c 0d 74 65 6d 70  25 21 38 3d 30 0d 0d 66  |..\.temp%!8=0..f|
00001c30  0e 74 65 6d 70 25 21 31  32 3d 30 0d 0d 70 21 c8  |.temp%!12=0..p!.|
00001c40  99 20 22 57 69 6d 70 5f  53 65 74 49 63 6f 6e 53  |. "Wimp_SetIconS|
00001c50  74 61 74 65 22 2c 2c 74  65 6d 70 25 0d 0d 7a 05  |tate",,temp%..z.|
00001c60  e1 0d 0d 84 05 3a 0d 0d  8e 1b dd f2 6d 61 6b 65  |.....:......make|
00001c70  73 61 6d 70 6c 65 6d 65  6e 75 28 73 61 6d 70 25  |samplemenu(samp%|
00001c80  29 0d 0d 98 15 73 61 6d  70 6c 65 6e 6f 25 3d 73  |)....sampleno%=s|
00001c90  61 6d 70 25 2b 31 0d 0d  a2 16 6d 65 6e 75 70 74  |amp%+1....menupt|
00001ca0  72 25 3d 6d 65 6e 75 61  64 64 72 25 0d 0d ac 22  |r%=menuaddr%..."|
00001cb0  6d 65 6e 65 6e 64 25 3d  6d 65 6e 75 61 64 64 72  |menend%=menuaddr|
00001cc0  25 2b 6d 65 6e 75 73 70  61 63 65 25 2d 31 0d 0d  |%+menuspace%-1..|
00001cd0  b6 0b ea 20 69 24 2c 6d  24 0d 0d c0 11 69 6e 73  |... i$,m$....ins|
00001ce0  74 25 3d 73 61 6d 70 25  2b 31 0d 0d ca 18 e7 20  |t%=samp%+1..... |
00001cf0  73 6c 65 6e 25 28 69 6e  73 74 25 29 3d 30 20 8c  |slen%(inst%)=0 .|
00001d00  20 e1 0d 0d d4 25 6d 74  69 74 6c 65 24 3d a4 6c  | ....%mtitle$=.l|
00001d10  65 61 66 6e 61 6d 65 28  73 61 6d 70 6c 65 24 28  |eafname(sample$(|
00001d20  69 6e 73 74 25 29 29 0d  0d de 23 e7 20 6d 74 69  |inst%))...#. mti|
00001d30  74 6c 65 24 3d 22 22 20  8c 20 6d 74 69 74 6c 65  |tle$="" . mtitle|
00001d40  24 3d 22 53 61 6d 70 6c  65 22 0d 0d e8 18 6d 74  |$="Sample"....mt|
00001d50  69 74 6c 65 24 3d c0 6d  74 69 74 6c 65 24 2c 31  |itle$=.mtitle$,1|
00001d60  32 29 0d 0d f2 27 f2 73  65 74 69 63 6f 6e 74 65  |2)...'.seticonte|
00001d70  78 74 28 73 61 76 65 73  61 6d 70 6c 65 25 2c 33  |xt(savesample%,3|
00001d80  2c 6d 74 69 74 6c 65 24  29 0d 0d fc 5c 6d 61 69  |,mtitle$)...\mai|
00001d90  6e 6d 65 6e 75 25 3d a4  6d 61 6b 65 6d 65 6e 28  |nmenu%=.makemen(|
00001da0  22 7c 77 69 6e 73 73 53  61 76 65 2c 7c 77 69 6e  |"|winssSave,|win|
00001db0  73 76 56 6f 6c 75 6d 65  2c 44 65 6c 65 74 65 2c  |svVolume,Delete,|
00001dc0  22 2b a4 74 69 63 28 73  61 76 65 68 65 61 64 65  |"+.tic(saveheade|
00001dd0  72 25 29 2b 22 48 65 61  64 65 72 22 2c 6d 74 69  |r%)+"Header",mti|
00001de0  74 6c 65 24 29 0d 0e 06  35 e7 20 6d 65 6e 75 70  |tle$)...5. menup|
00001df0  74 72 25 3e 6d 65 6e 65  6e 64 25 20 8c 20 85 20  |tr%>menend% . . |
00001e00  31 37 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  |17,"Not enough m|
00001e10  65 6e 75 20 73 70 61 63  65 22 0d 0e 10 37 f2 73  |enu space"...7.s|
00001e20  65 74 69 63 6f 6e 74 65  78 74 28 73 65 74 76 6f  |eticontext(setvo|
00001e30  6c 75 6d 65 25 2c 31 2c  c3 28 21 73 76 6f 6c 61  |lume%,1,.(!svola|
00001e40  64 64 72 25 28 73 61 6d  70 6c 65 6e 6f 25 29 29  |ddr%(sampleno%))|
00001e50  29 0d 0e 1a 05 e1 0d 0e  24 05 3a 0d 0e 2e 0e dd  |).......$.:.....|
00001e60  f2 6d 61 69 6e 6d 65 6e  75 0d 0e 38 16 6d 65 6e  |.mainmenu..8.men|
00001e70  75 70 74 72 25 3d 6d 65  6e 75 61 64 64 72 25 0d  |uptr%=menuaddr%.|
00001e80  0e 42 22 6d 65 6e 65 6e  64 25 3d 6d 65 6e 75 61  |.B"menend%=menua|
00001e90  64 64 72 25 2b 6d 65 6e  75 73 70 61 63 65 25 2d  |ddr%+menuspace%-|
00001ea0  31 0d 0e 4c 0b ea 20 69  24 2c 6d 24 0d 0e 56 b7  |1..L.. i$,m$..V.|
00001eb0  73 61 76 65 6d 65 6e 75  25 3d a4 6d 61 6b 65 6d  |savemenu%=.makem|
00001ec0  65 6e 28 22 7c 77 69 6e  73 61 22 2b a4 6c 69 74  |en("|winsa"+.lit|
00001ed0  28 74 75 6e 65 6c 6f 61  64 65 64 25 29 2b 22 54  |(tuneloaded%)+"T|
00001ee0  75 6e 65 2c 7c 77 69 6e  73 70 22 2b a4 6c 69 74  |une,|winsp"+.lit|
00001ef0  28 74 75 6e 65 6c 6f 61  64 65 64 25 29 2b 22 50  |(tuneloaded%)+"P|
00001f00  61 74 74 65 72 6e 2c 7c  77 69 6e 61 70 22 2b a4  |attern,|winap"+.|
00001f10  6c 69 74 28 74 75 6e 65  6c 6f 61 64 65 64 25 29  |lit(tuneloaded%)|
00001f20  2b 22 50 61 74 74 65 72  6e 73 2c 7c 77 69 6e 73  |+"Patterns,|wins|
00001f30  64 22 2b a4 6c 69 74 28  74 75 6e 65 6c 6f 61 64  |d"+.lit(tuneload|
00001f40  65 64 25 29 2b 22 54 65  78 74 20 44 75 6d 70 2c  |ed%)+"Text Dump,|
00001f50  7c 77 69 6e 73 68 48 65  6c 70 22 2c 22 53 61 76  ||winshHelp","Sav|
00001f60  65 22 29 0d 0e 60 3f 74  75 6e 65 6d 65 6e 75 25  |e")..`?tunemenu%|
00001f70  3d a4 6d 61 6b 65 6d 65  6e 28 22 49 6e 66 6f 2c  |=.makemen("Info,|
00001f80  53 61 6d 70 6c 65 73 2c  53 74 65 72 65 6f 2c 43  |Samples,Stereo,C|
00001f90  6f 70 79 2c 41 6d 65 6e  64 22 2c 22 54 75 6e 65  |opy,Amend","Tune|
00001fa0  22 29 0d 0e 6a 8c 6d 61  69 6e 6d 65 6e 75 25 3d  |")..j.mainmenu%=|
00001fb0  a4 6d 61 6b 65 6d 65 6e  28 22 7c 77 69 6e 69 6e  |.makemen("|winin|
00001fc0  49 6e 66 6f 2c 7c 77 69  6e 73 6d 53 61 76 65 2c  |Info,|winsmSave,|
00001fd0  53 65 74 74 69 6e 67 73  2c 43 72 65 61 74 65 2c  |Settings,Create,|
00001fe0  22 2b a4 6c 69 74 28 74  75 6e 65 6c 6f 61 64 65  |"+.lit(tuneloade|
00001ff0  64 25 29 2b 22 43 6c 65  61 72 2c 7c 77 69 6e 74  |d%)+"Clear,|wint|
00002000  6e 22 2b a4 6c 69 74 28  74 75 6e 65 6c 6f 61 64  |n"+.lit(tuneload|
00002010  65 64 25 29 2b 22 54 75  6e 65 2c 51 75 69 74 22  |ed%)+"Tune,Quit"|
00002020  2c 22 41 50 20 54 72 61  63 6b 65 72 22 29 0d 0e  |,"AP Tracker")..|
00002030  74 35 e7 20 6d 65 6e 75  70 74 72 25 3e 6d 65 6e  |t5. menuptr%>men|
00002040  65 6e 64 25 20 8c 20 85  20 31 37 2c 22 4e 6f 74  |end% . . 17,"Not|
00002050  20 65 6e 6f 75 67 68 20  6d 65 6e 75 20 73 70 61  | enough menu spa|
00002060  63 65 22 0d 0e 7e 2b f2  73 65 74 69 63 6f 6e 74  |ce"..~+.seticont|
00002070  65 78 74 28 6e 65 77 74  72 61 63 6b 25 2c 35 2c  |ext(newtrack%,5,|
00002080  c3 28 64 65 66 76 6f 69  63 65 73 25 29 29 0d 0e  |.(defvoices%))..|
00002090  88 2c f2 73 65 74 69 63  6f 6e 74 65 78 74 28 73  |.,.seticontext(s|
000020a0  61 76 65 70 61 74 74 65  72 6e 25 2c 36 2c c3 28  |avepattern%,6,.(|
000020b0  73 61 76 65 70 61 74 25  29 29 0d 0e 92 05 e1 0d  |savepat%))......|
000020c0  0e 9c 05 3a 0d 0e a6 10  dd a4 6c 69 74 28 74 65  |...:......lit(te|
000020d0  73 74 25 29 0d 0e b0 21  e7 20 74 65 73 74 25 20  |st%)...!. test% |
000020e0  8c 20 3d 22 7c 6c 69 74  31 22 20 8b 20 3d 22 7c  |. ="|lit1" . ="||
000020f0  6c 69 74 30 22 0d 0e ba  05 3a 0d 0e c4 10 dd a4  |lit0"....:......|
00002100  74 69 63 28 74 65 73 74  25 29 0d 0e ce 21 e7 20  |tic(test%)...!. |
00002110  74 65 73 74 25 20 8c 20  3d 22 7c 74 69 63 31 22  |test% . ="|tic1"|
00002120  20 8b 20 3d 22 7c 74 69  63 30 22 0d 0e d8 05 3a  | . ="|tic0"....:|
00002130  0d 0e e2 15 dd f2 6d 65  6e 75 69 74 65 6d 28 74  |......menuitem(t|
00002140  65 78 74 24 29 0d 0e ec  24 ea 20 6d 65 6e 75 66  |ext$)...$. menuf|
00002150  6c 61 67 73 25 2c 69 63  6f 6e 66 6c 61 67 73 25  |lags%,iconflags%|
00002160  2c 73 75 62 6d 65 6e 75  25 0d 0e f6 09 69 69 25  |,submenu%....ii%|
00002170  3d a3 0d 0f 00 0f 73 75  62 6d 65 6e 75 25 3d 2d  |=.....submenu%=-|
00002180  31 0d 0f 0a 12 e7 20 74  65 78 74 24 3d 22 22 20  |1..... text$="" |
00002190  8c 20 e1 0d 0f 14 10 6d  65 6e 75 66 6c 61 67 73  |. .....menuflags|
000021a0  25 3d 30 0d 0f 1e 18 69  63 6f 6e 66 6c 61 67 73  |%=0....iconflags|
000021b0  25 3d 26 30 37 30 30 30  30 32 31 0d 0f 28 14 c8  |%=&07000021..(..|
000021c0  95 20 c0 74 65 78 74 24  2c 31 29 3d 22 7c 22 0d  |. .text$,1)="|".|
000021d0  0f 32 14 c8 8e 20 c1 74  65 78 74 24 2c 32 2c 33  |.2... .text$,2,3|
000021e0  29 20 ca 0d 0f 3c 0c c9  20 22 6c 69 74 22 3a 0d  |) ...<.. "lit":.|
000021f0  0f 46 2a 69 63 6f 6e 66  6c 61 67 73 25 2b 3d 28  |.F*iconflags%+=(|
00002200  31 3c 3c 32 32 29 2a 28  31 2d bb 28 c1 74 65 78  |1<<22)*(1-.(.tex|
00002210  74 24 2c 35 2c 31 29 29  29 0d 0f 50 13 74 65 78  |t$,5,1)))..P.tex|
00002220  74 24 3d c1 74 65 78 74  24 2c 36 29 0d 0f 5a 0c  |t$=.text$,6)..Z.|
00002230  c9 20 22 74 69 63 22 3a  0d 0f 64 1e 6d 65 6e 75  |. "tic":..d.menu|
00002240  66 6c 61 67 73 25 2b 3d  bb 28 c1 74 65 78 74 24  |flags%+=.(.text$|
00002250  2c 35 2c 31 29 29 0d 0f  6e 13 74 65 78 74 24 3d  |,5,1))..n.text$=|
00002260  c1 74 65 78 74 24 2c 36  29 0d 0f 78 0c c9 20 22  |.text$,6)..x.. "|
00002270  77 69 6e 22 3a 0d 0f 82  14 c8 8e 20 c1 74 65 78  |win":...... .tex|
00002280  74 24 2c 35 2c 32 29 20  ca 0d 0f 8c 19 c9 20 22  |t$,5,2) ...... "|
00002290  69 6e 22 3a 73 75 62 6d  65 6e 75 25 3d 69 6e 66  |in":submenu%=inf|
000022a0  6f 25 0d 0f 96 1d c9 20  22 74 6e 22 3a 73 75 62  |o%..... "tn":sub|
000022b0  6d 65 6e 75 25 3d 74 75  6e 65 6d 65 6e 75 25 0d  |menu%=tunemenu%.|
000022c0  0f a0 1d c9 20 22 6e 74  22 3a 73 75 62 6d 65 6e  |.... "nt":submen|
000022d0  75 25 3d 6e 65 77 74 72  61 63 6b 25 0d 0f aa 1d  |u%=newtrack%....|
000022e0  c9 20 22 73 61 22 3a 73  75 62 6d 65 6e 75 25 3d  |. "sa":submenu%=|
000022f0  73 61 76 65 74 75 6e 65  25 0d 0f b4 1d c9 20 22  |savetune%..... "|
00002300  73 6d 22 3a 73 75 62 6d  65 6e 75 25 3d 73 61 76  |sm":submenu%=sav|
00002310  65 6d 65 6e 75 25 0d 0f  be 20 c9 20 22 73 70 22  |emenu%... . "sp"|
00002320  3a 73 75 62 6d 65 6e 75  25 3d 73 61 76 65 70 61  |:submenu%=savepa|
00002330  74 74 65 72 6e 25 0d 0f  c8 21 c9 20 22 61 70 22  |ttern%...!. "ap"|
00002340  3a 73 75 62 6d 65 6e 75  25 3d 73 61 76 65 70 61  |:submenu%=savepa|
00002350  74 74 65 72 6e 73 25 0d  0f d2 1d c9 20 22 73 68  |tterns%..... "sh|
00002360  22 3a 73 75 62 6d 65 6e  75 25 3d 73 61 76 65 68  |":submenu%=saveh|
00002370  65 6c 70 25 0d 0f dc 1f  c9 20 22 73 73 22 3a 73  |elp%..... "ss":s|
00002380  75 62 6d 65 6e 75 25 3d  73 61 76 65 73 61 6d 70  |ubmenu%=savesamp|
00002390  6c 65 25 0d 0f e6 1e c9  20 22 73 76 22 3a 73 75  |le%..... "sv":su|
000023a0  62 6d 65 6e 75 25 3d 73  65 74 76 6f 6c 75 6d 65  |bmenu%=setvolume|
000023b0  25 0d 0f f0 1d c9 20 22  73 64 22 3a 73 75 62 6d  |%..... "sd":subm|
000023c0  65 6e 75 25 3d 73 61 76  65 64 75 6d 70 25 0d 0f  |enu%=savedump%..|
000023d0  fa 05 cb 0d 10 04 13 74  65 78 74 24 3d c1 74 65  |.......text$=.te|
000023e0  78 74 24 2c 37 29 0d 10  0e 05 cb 0d 10 18 05 ce  |xt$,7)..........|
000023f0  0d 10 22 29 e7 20 a9 28  74 65 78 74 24 29 3e 6d  |.."). .(text$)>m|
00002400  65 6e 75 6d 61 78 25 20  6d 65 6e 75 6d 61 78 25  |enumax% menumax%|
00002410  3d a9 28 74 65 78 74 24  29 0d 10 2c 19 6d 65 6e  |=.(text$)..,.men|
00002420  75 70 74 72 25 21 30 3d  6d 65 6e 75 66 6c 61 67  |uptr%!0=menuflag|
00002430  73 25 0d 10 36 17 6d 65  6e 75 70 74 72 25 21 34  |s%..6.menuptr%!4|
00002440  3d 73 75 62 6d 65 6e 75  25 0d 10 40 19 6d 65 6e  |=submenu%..@.men|
00002450  75 70 74 72 25 21 38 3d  69 63 6f 6e 66 6c 61 67  |uptr%!8=iconflag|
00002460  73 25 0d 10 4a 13 e7 20  a9 28 74 65 78 74 24 29  |s%..J.. .(text$)|
00002470  3c 31 32 20 8c 0d 10 54  18 24 28 6d 65 6e 75 70  |<12 ...T.$(menup|
00002480  74 72 25 2b 31 32 29 3d  74 65 78 74 24 0d 10 5e  |tr%+12)=text$..^|
00002490  05 cc 0d 10 68 19 6d 65  6e 65 6e 64 25 2d 3d 28  |....h.menend%-=(|
000024a0  a9 28 74 65 78 74 24 29  2b 31 29 0d 10 72 28 6d  |.(text$)+1)..r(m|
000024b0  65 6e 75 70 74 72 25 21  38 3d 28 6d 65 6e 75 70  |enuptr%!8=(menup|
000024c0  74 72 25 21 38 29 20 84  20 25 31 30 30 30 30 30  |tr%!8) . %100000|
000024d0  30 30 30 0d 10 7c 17 6d  65 6e 75 70 74 72 25 21  |000..|.menuptr%!|
000024e0  31 32 3d 6d 65 6e 65 6e  64 25 0d 10 86 12 6d 65  |12=menend%....me|
000024f0  6e 75 70 74 72 25 21 31  36 3d 2d 31 0d 10 90 18  |nuptr%!16=-1....|
00002500  6d 65 6e 75 70 74 72 25  21 32 30 3d a9 28 74 65  |menuptr%!20=.(te|
00002510  78 74 24 29 0d 10 9a 12  24 6d 65 6e 65 6e 64 25  |xt$)....$menend%|
00002520  3d 74 65 78 74 24 0d 10  a4 05 cd 0d 10 ae 10 6d  |=text$.........m|
00002530  65 6e 75 70 74 72 25 2b  3d 32 34 0d 10 b8 05 e1  |enuptr%+=24.....|
00002540  0d 10 c2 05 3a 0d 10 cc  0f dd a4 70 61 72 28 73  |....:......par(s|
00002550  65 70 24 29 0d 10 d6 25  69 31 25 3d 69 25 2b 31  |ep$)...%i1%=i%+1|
00002560  3a 69 25 3d a7 6d 65 6e  75 24 2b 73 65 70 24 2c  |:i%=.menu$+sep$,|
00002570  73 65 70 24 2c 69 31 25  29 0d 10 e0 17 3d c1 6d  |sep$,i1%)....=.m|
00002580  65 6e 75 24 2c 69 31 25  2c 69 25 2d 69 31 25 29  |enu$,i1%,i%-i1%)|
00002590  0d 10 ea 05 3a 0d 10 f4  1f dd a4 6d 61 6b 65 6d  |....:......makem|
000025a0  65 6e 28 6d 65 6e 75 24  2c 6d 65 6e 75 74 69 74  |en(menu$,menutit|
000025b0  6c 65 24 29 0d 10 fe 16  ea 20 6d 65 6e 75 6d 61  |le$)..... menuma|
000025c0  78 25 2c 77 61 73 70 74  72 25 0d 11 08 14 77 61  |x%,wasptr%....wa|
000025d0  73 70 74 72 25 3d 6d 65  6e 75 70 74 72 25 0d 11  |sptr%=menuptr%..|
000025e0  12 0f 6d 65 6e 75 6d 61  78 25 3d 31 30 0d 11 1c  |..menumax%=10...|
000025f0  08 69 25 3d 30 0d 11 26  12 6d 65 6e 75 70 74 72  |.i%=0..&.menuptr|
00002600  25 21 32 30 3d 34 30 0d  11 30 18 24 6d 65 6e 75  |%!20=40..0.$menu|
00002610  70 74 72 25 3d 6d 65 6e  75 74 69 74 6c 65 24 0d  |ptr%=menutitle$.|
00002620  11 3a 15 6d 65 6e 75 70  74 72 25 3f 31 32 3d 74  |.:.menuptr%?12=t|
00002630  66 63 6f 6c 0d 11 44 15  6d 65 6e 75 70 74 72 25  |fcol..D.menuptr%|
00002640  3f 31 33 3d 6d 62 63 6f  6c 0d 11 4e 15 6d 65 6e  |?13=mbcol..N.men|
00002650  75 70 74 72 25 3f 31 34  3d 77 66 63 6f 6c 0d 11  |uptr%?14=wfcol..|
00002660  58 15 6d 65 6e 75 70 74  72 25 3f 31 35 3d 77 62  |X.menuptr%?15=wb|
00002670  63 6f 6c 0d 11 62 18 6d  61 78 61 64 64 72 25 3d  |col..b.maxaddr%=|
00002680  6d 65 6e 75 70 74 72 25  2b 31 36 0d 11 6c 11 6d  |menuptr%+16..l.m|
00002690  65 6e 75 70 74 72 25 21  32 34 3d 30 0d 11 76 10  |enuptr%!24=0..v.|
000026a0  6d 65 6e 75 70 74 72 25  2b 3d 32 38 0d 11 80 05  |menuptr%+=28....|
000026b0  f5 0d 11 8a 13 69 74 65  6d 24 3d a4 70 61 72 28  |.....item$=.par(|
000026c0  22 2c 22 29 0d 11 94 14  f2 6d 65 6e 75 69 74 65  |",").....menuite|
000026d0  6d 28 69 74 65 6d 24 29  0d 11 9e 0e fd 20 69 74  |m(item$)..... it|
000026e0  65 6d 24 3d 22 22 0d 11  a8 25 6d 65 6e 75 70 74  |em$=""...%menupt|
000026f0  72 25 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 25  |r%!-24=(menuptr%|
00002700  21 2d 32 34 29 20 84 20  26 38 30 0d 11 b2 1c 21  |!-24) . &80....!|
00002710  6d 61 78 61 64 64 72 25  3d 6d 65 6e 75 6d 61 78  |maxaddr%=menumax|
00002720  25 2a 31 36 2b 33 32 0d  11 bc 0c 3d 77 61 73 70  |%*16+32....=wasp|
00002730  74 72 25 0d 11 c6 05 3a  0d 11 d0 1d dd f2 6f 70  |tr%....:......op|
00002740  65 6e 6d 65 6e 75 28 6f  75 72 25 2c 6d 25 2c 78  |enmenu(our%,m%,x|
00002750  25 2c 79 25 29 0d 11 da  14 6d 65 6e 75 68 61 6e  |%,y%)....menuhan|
00002760  64 6c 65 25 3d 6f 75 72  25 0d 11 e4 0d 6d 65 6e  |dle%=our%....men|
00002770  75 78 25 3d 78 25 0d 11  ee 0d 6d 65 6e 75 79 25  |ux%=x%....menuy%|
00002780  3d 79 25 0d 11 f8 22 c8  99 20 22 57 69 6d 70 5f  |=y%...".. "Wimp_|
00002790  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 25 2c  |CreateMenu",,m%,|
000027a0  78 25 2c 79 25 0d 12 02  05 e1 0d 12 0c 05 3a 0d  |x%,y%.........:.|
000027b0  12 16 18 dd f2 6d 65 6e  75 73 65 6c 65 63 74 28  |.....menuselect(|
000027c0  6d 65 6e 75 73 25 29 0d  12 20 0b ea 20 72 65 64  |menus%).. .. red|
000027d0  6f 25 0d 12 2a 21 c8 99  20 22 57 69 6d 70 5f 47  |o%..*!.. "Wimp_G|
000027e0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000027f0  71 32 25 0d 12 34 1b 72  65 64 6f 25 3d 28 28 28  |q2%..4.redo%=(((|
00002800  71 32 25 21 38 29 20 80  20 31 29 3e 30 29 0d 12  |q2%!8) . 1)>0)..|
00002810  3e 14 c8 8e 20 6d 65 6e  75 68 61 6e 64 6c 65 25  |>... menuhandle%|
00002820  20 ca 0d 12 48 0a c9 20  31 30 31 3a 0d 12 52 10  | ...H.. 101:..R.|
00002830  c8 8e 20 21 6d 65 6e 75  73 25 20 ca 0d 12 5c 08  |.. !menus% ...\.|
00002840  c9 20 32 3a 0d 12 66 28  f2 73 65 74 69 63 6f 6e  |. 2:..f(.seticon|
00002850  74 65 78 74 28 73 65 74  74 69 6e 67 73 25 2c 35  |text(settings%,5|
00002860  2c c3 28 70 61 74 6c 65  6e 25 29 29 0d 12 70 1c  |,.(patlen%))..p.|
00002870  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 73 65 74 74  |.openwindow(sett|
00002880  69 6e 67 73 25 2c 30 29  0d 12 7a 20 c9 20 33 3a  |ings%,0)..z . 3:|
00002890  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 6e 65 77 74  |.openwindow(newt|
000028a0  72 61 63 6b 25 2c 30 29  0d 12 84 08 c9 20 34 3a  |rack%,0)..... 4:|
000028b0  0d 12 8e 0e f2 63 6c 65  61 72 64 61 74 61 0d 12  |.....cleardata..|
000028c0  98 08 c9 20 35 3a 0d 12  a2 11 c8 8e 20 6d 65 6e  |... 5:...... men|
000028d0  75 73 25 21 34 20 ca 0d  12 ac 34 c9 20 30 3a f2  |us%!4 ....4. 0:.|
000028e0  67 65 74 6e 61 6d 65 73  3a f2 74 75 6e 65 69 6e  |getnames:.tunein|
000028f0  66 6f 3a f2 6f 70 65 6e  77 69 6e 64 6f 77 28 74  |fo:.openwindow(t|
00002900  75 6e 65 69 6e 66 6f 25  2c 30 29 0d 12 b6 10 c9  |uneinfo%,0).....|
00002910  20 31 3a f2 73 61 6d 70  6c 65 73 0d 12 c0 0f c9  | 1:.samples.....|
00002920  20 32 3a f2 73 74 65 72  65 6f 0d 12 ca 23 c9 20  | 2:.stereo...#. |
00002930  33 3a f2 6f 70 65 6e 77  69 6e 64 6f 77 28 63 6f  |3:.openwindow(co|
00002940  70 79 70 61 74 74 65 72  6e 25 2c 30 29 0d 12 d4  |pypattern%,0)...|
00002950  08 c9 20 34 3a 0d 12 de  2a f2 73 65 74 69 63 6f  |.. 4:...*.setico|
00002960  6e 74 65 78 74 28 61 6d  65 6e 64 74 72 61 63 6b  |ntext(amendtrack|
00002970  25 2c 32 2c c3 28 64 65  6c 70 61 74 25 29 29 0d  |%,2,.(delpat%)).|
00002980  12 e8 2d f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |..-.seticontext(|
00002990  61 6d 65 6e 64 74 72 61  63 6b 25 2c 31 30 2c c3  |amendtrack%,10,.|
000029a0  28 64 65 6c 76 6f 69 63  65 25 29 29 0d 12 f2 1e  |(delvoice%))....|
000029b0  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 61 6d 65 6e  |.openwindow(amen|
000029c0  64 74 72 61 63 6b 25 2c  30 29 0d 12 fc 05 cb 0d  |dtrack%,0)......|
000029d0  13 06 19 c9 20 36 3a f2  73 68 75 74 64 6f 77 6e  |.... 6:.shutdown|
000029e0  3a 72 65 64 6f 25 3d a3  0d 13 10 05 cb 0d 13 1a  |:redo%=.........|
000029f0  15 e7 20 72 65 64 6f 25  20 f2 6d 61 69 6e 6d 65  |.. redo% .mainme|
00002a00  6e 75 0d 13 24 0a c9 20  31 30 36 3a 0d 13 2e 10  |nu..$.. 106:....|
00002a10  c8 8e 20 21 6d 65 6e 75  73 25 20 ca 0d 13 38 08  |.. !menus% ...8.|
00002a20  c9 20 32 3a 0d 13 42 1c  f2 64 65 6c 65 74 65 73  |. 2:..B..deletes|
00002a30  61 6d 70 6c 65 28 73 61  6d 70 6c 65 6e 6f 25 29  |ample(sampleno%)|
00002a40  0d 13 4c 08 c9 20 33 3a  0d 13 56 1e 73 61 76 65  |..L.. 3:..V.save|
00002a50  68 65 61 64 65 72 25 3d  ac 28 73 61 76 65 68 65  |header%=.(savehe|
00002a60  61 64 65 72 25 29 0d 13  60 20 f2 6d 61 6b 65 73  |ader%)..` .makes|
00002a70  61 6d 70 6c 65 6d 65 6e  75 28 73 61 6d 70 6c 65  |amplemenu(sample|
00002a80  6e 6f 25 2d 31 29 0d 13  6a 05 cb 0d 13 74 05 cb  |no%-1)..j....t..|
00002a90  0d 13 7e 3c e7 20 72 65  64 6f 25 20 8c 20 f2 6f  |..~<. redo% . .o|
00002aa0  70 65 6e 6d 65 6e 75 28  6d 65 6e 75 68 61 6e 64  |penmenu(menuhand|
00002ab0  6c 65 25 2c 6d 61 69 6e  6d 65 6e 75 25 2c 6d 65  |le%,mainmenu%,me|
00002ac0  6e 75 78 25 2c 6d 65 6e  75 79 25 29 0d 13 88 05  |nux%,menuy%)....|
00002ad0  e1 0d 13 92 05 3a 0d 13  9c 26 dd f2 73 65 74 69  |.....:...&..seti|
00002ae0  63 6f 6e 74 79 70 65 28  77 69 6e 64 6f 77 25 2c  |contype(window%,|
00002af0  69 63 6f 6e 25 2c 74 79  70 65 25 29 0d 13 a6 11  |icon%,type%)....|
00002b00  71 32 25 21 30 3d 77 69  6e 64 6f 77 25 0d 13 b0  |q2%!0=window%...|
00002b10  0f 71 32 25 21 34 3d 69  63 6f 6e 25 0d 13 ba 1f  |.q2%!4=icon%....|
00002b20  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00002b30  53 74 61 74 65 22 2c 2c  71 32 25 0d 13 c4 14 69  |State",,q2%....i|
00002b40  63 6f 6e 62 6c 6f 63 6b  25 3d 71 32 25 2b 38 0d  |conblock%=q2%+8.|
00002b50  13 ce 1c 69 63 6f 6e 66  6c 61 67 73 25 3d 69 63  |...iconflags%=ic|
00002b60  6f 6e 62 6c 6f 63 6b 25  21 31 36 0d 13 d8 16 65  |onblock%!16....e|
00002b70  6f 72 77 6f 72 64 25 3d  74 79 70 65 25 3c 3c 31  |orword%=type%<<1|
00002b80  32 0d 13 e2 15 63 6c 65  61 72 77 6f 72 64 25 3d  |2....clearword%=|
00002b90  31 35 3c 3c 31 32 0d 13  ec 11 71 32 25 21 30 3d  |15<<12....q2%!0=|
00002ba0  77 69 6e 64 6f 77 25 0d  13 f6 0f 71 32 25 21 34  |window%....q2%!4|
00002bb0  3d 69 63 6f 6e 25 0d 14  00 12 71 32 25 21 38 3d  |=icon%....q2%!8=|
00002bc0  65 6f 72 77 6f 72 64 25  0d 14 0a 15 71 32 25 21  |eorword%....q2%!|
00002bd0  31 32 3d 63 6c 65 61 72  77 6f 72 64 25 0d 14 14  |12=clearword%...|
00002be0  1f c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |... "Wimp_SetIco|
00002bf0  6e 53 74 61 74 65 22 2c  2c 71 32 25 0d 14 1e 05  |nState",,q2%....|
00002c00  e1 0d 14 28 05 3a 0d 14  32 1e dd f2 77 72 69 74  |...(.:..2...writ|
00002c10  65 61 62 6c 65 28 77 69  6e 64 6f 77 25 2c 69 63  |eable(window%,ic|
00002c20  6f 6e 25 29 0d 14 3c 22  f2 73 65 74 69 63 6f 6e  |on%)..<".seticon|
00002c30  74 79 70 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |type(window%,ico|
00002c40  6e 25 2c 31 35 29 0d 14  46 05 e1 0d 14 50 05 3a  |n%,15)..F....P.:|
00002c50  0d 14 5a 20 dd f2 75 6e  77 72 69 74 65 61 62 6c  |..Z ..unwriteabl|
00002c60  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |e(window%,icon%)|
00002c70  0d 14 64 21 f2 73 65 74  69 63 6f 6e 74 79 70 65  |..d!.seticontype|
00002c80  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 30  |(window%,icon%,0|
00002c90  29 0d 14 6e 05 e1 0d 14  78 05 3a 0d 14 82 21 dd  |)..n....x.:...!.|
00002ca0  f2 6d 61 6b 65 73 65 6c  65 63 74 65 64 28 77 69  |.makeselected(wi|
00002cb0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 14 8c 11  |ndow%,icon%)....|
00002cc0  71 32 25 21 30 3d 77 69  6e 64 6f 77 25 0d 14 96  |q2%!0=window%...|
00002cd0  0f 71 32 25 21 34 3d 69  63 6f 6e 25 0d 14 a0 0e  |.q2%!4=icon%....|
00002ce0  71 32 25 21 38 3d 32 5e  32 31 0d 14 aa 0f 71 32  |q2%!8=2^21....q2|
00002cf0  25 21 31 32 3d 32 5e 32  31 0d 14 b4 1f c8 99 20  |%!12=2^21...... |
00002d00  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00002d10  74 65 22 2c 2c 71 32 25  0d 14 be 05 e1 0d 14 c8  |te",,q2%........|
00002d20  05 3a 0d 14 d2 23 dd f2  6d 61 6b 65 75 6e 73 65  |.:...#..makeunse|
00002d30  6c 65 63 74 65 64 28 77  69 6e 64 6f 77 25 2c 69  |lected(window%,i|
00002d40  63 6f 6e 25 29 0d 14 dc  11 71 32 25 21 30 3d 77  |con%)....q2%!0=w|
00002d50  69 6e 64 6f 77 25 0d 14  e6 0f 71 32 25 21 34 3d  |indow%....q2%!4=|
00002d60  69 63 6f 6e 25 0d 14 f0  0b 71 32 25 21 38 3d 30  |icon%....q2%!8=0|
00002d70  0d 14 fa 0f 71 32 25 21  31 32 3d 32 5e 32 31 0d  |....q2%!12=2^21.|
00002d80  15 04 1f c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |..... "Wimp_SetI|
00002d90  63 6f 6e 53 74 61 74 65  22 2c 2c 71 32 25 0d 15  |conState",,q2%..|
00002da0  0e 05 e1 0d 15 18 05 3a  0d 15 22 21 dd a4 69 73  |.......:.."!..is|
00002db0  69 74 73 65 6c 65 63 74  65 64 28 77 69 6e 64 6f  |itselected(windo|
00002dc0  77 25 2c 69 63 6f 6e 25  29 0d 15 2c 11 71 32 25  |w%,icon%)..,.q2%|
00002dd0  21 30 3d 77 69 6e 64 6f  77 25 0d 15 36 0f 71 32  |!0=window%..6.q2|
00002de0  25 21 34 3d 69 63 6f 6e  25 0d 15 40 1f c8 99 20  |%!4=icon%..@... |
00002df0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00002e00  74 65 22 2c 2c 71 32 25  0d 15 4a 14 69 63 6f 6e  |te",,q2%..J.icon|
00002e10  62 6c 6f 63 6b 25 3d 71  32 25 2b 38 0d 15 54 1c  |block%=q2%+8..T.|
00002e20  69 63 6f 6e 66 6c 61 67  73 25 3d 69 63 6f 6e 62  |iconflags%=iconb|
00002e30  6c 6f 63 6b 25 21 31 36  0d 15 5e 25 e7 20 28 69  |lock%!16..^%. (i|
00002e40  63 6f 6e 66 6c 61 67 73  25 20 80 20 32 5e 32 31  |conflags% . 2^21|
00002e50  29 3d 30 20 8c 20 3d 30  20 8b 20 3d 31 0d 15 68  |)=0 . =0 . =1..h|
00002e60  05 3a 0d 15 72 1e dd f2  6d 6f 76 65 63 61 72 65  |.:..r...movecare|
00002e70  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |t(window%,icon%)|
00002e80  0d 15 7c 2a 70 25 3d 28  a9 28 a4 69 63 6f 6e 74  |..|*p%=(.(.icont|
00002e90  65 78 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ext(window%,icon|
00002ea0  25 29 29 2b 31 29 20 81  20 32 0d 15 86 34 c8 99  |%))+1) . 2...4..|
00002eb0  20 22 57 69 6d 70 5f 53  65 74 43 61 72 65 74 50  | "Wimp_SetCaretP|
00002ec0  6f 73 69 74 69 6f 6e 22  2c 77 69 6e 64 6f 77 25  |osition",window%|
00002ed0  2c 69 63 6f 6e 25 2c 2c  2c 2d 31 2c 70 25 0d 15  |,icon%,,,-1,p%..|
00002ee0  90 05 e1 0d 15 9a 05 3a  0d 15 a4 14 dd a4 66 69  |.......:......fi|
00002ef0  6c 65 6c 65 6e 28 66 69  6c 65 24 29 0d 15 ae 0f  |lelen(file$)....|
00002f00  43 25 3d ad 28 66 69 6c  65 24 29 0d 15 b8 0d 6c  |C%=.(file$)....l|
00002f10  65 6e 25 3d a2 23 43 25  0d 15 c2 09 d9 20 23 43  |en%=.#C%..... #C|
00002f20  25 0d 15 cc 09 3d 6c 65  6e 25 0d 15 d6 05 3a 0d  |%....=len%....:.|
00002f30  15 e0 0e dd f2 73 61 76  65 66 69 6c 65 0d 15 ea  |.....savefile...|
00002f40  26 70 61 74 68 6e 61 6d  65 24 3d a4 73 74 72 69  |&pathname$=.stri|
00002f50  6e 67 66 72 6f 6d 6d 65  6d 6f 72 79 28 71 25 2b  |ngfrommemory(q%+|
00002f60  34 34 29 0d 15 f4 26 6c  65 61 66 6e 61 6d 65 24  |44)...&leafname$|
00002f70  3d a4 69 63 6f 6e 74 65  78 74 28 73 61 76 65 68  |=.icontext(saveh|
00002f80  61 6e 64 6c 65 25 2c 33  29 0d 15 fe 16 e7 20 6c  |andle%,3)..... l|
00002f90  65 61 66 6e 61 6d 65 24  3d 22 22 20 8c 20 e1 0d  |eafname$="" . ..|
00002fa0  16 08 21 66 75 6c 6c 6e  61 6d 65 24 3d 70 61 74  |..!fullname$=pat|
00002fb0  68 6e 61 6d 65 24 2b 6c  65 61 66 6e 61 6d 65 24  |hname$+leafname$|
00002fc0  0d 16 12 13 c8 8e 20 67  6c 6f 62 61 6c 72 65 66  |...... globalref|
00002fd0  25 20 ca 0d 16 1c 11 c9  20 31 3a f2 73 61 76 65  |% ...... 1:.save|
00002fe0  74 75 6e 65 0d 16 26 1e  c9 20 32 3a f2 73 61 76  |tune..&.. 2:.sav|
00002ff0  65 73 61 6d 70 6c 65 28  73 61 6d 70 6c 65 6e 6f  |esample(sampleno|
00003000  25 29 0d 16 30 1e c9 20  33 3a f2 73 61 76 65 70  |%)..0.. 3:.savep|
00003010  61 74 74 65 72 6e 28 73  61 76 65 70 61 74 25 29  |attern(savepat%)|
00003020  0d 16 3a 1c c9 20 34 3a  f2 73 61 76 65 68 65 6c  |..:.. 4:.savehel|
00003030  70 28 66 75 6c 6c 6e 61  6d 65 24 29 0d 16 44 20  |p(fullname$)..D |
00003040  c9 20 35 3a f2 73 61 76  65 70 61 74 74 65 72 6e  |. 5:.savepattern|
00003050  73 28 6c 65 61 66 6e 61  6d 65 24 29 0d 16 4e 1c  |s(leafname$)..N.|
00003060  c9 20 36 3a f2 73 61 76  65 64 75 6d 70 28 66 75  |. 6:.savedump(fu|
00003070  6c 6c 6e 61 6d 65 24 29  0d 16 58 05 cb 0d 16 62  |llname$)..X....b|
00003080  05 e1 0d 16 6c 05 3a 0d  16 76 35 dd f2 6c 6f 61  |....l.:..v5..loa|
00003090  64 77 69 74 68 70 61 74  68 76 61 72 69 61 62 6c  |dwithpathvariabl|
000030a0  65 28 76 61 72 69 61 62  6c 65 24 2c 66 69 6c 65  |e(variable$,file|
000030b0  6e 61 6d 65 24 2c 61 64  64 72 25 29 0d 16 80 32  |name$,addr%)...2|
000030c0  ff 28 22 4c 4f 41 44 20  22 2b 76 61 72 69 61 62  |.("LOAD "+variab|
000030d0  6c 65 24 2b 22 2e 22 2b  66 69 6c 65 6e 61 6d 65  |le$+"."+filename|
000030e0  24 2b 22 20 22 2b c3 7e  61 64 64 72 25 29 0d 16  |$+" "+.~addr%)..|
000030f0  8a 05 e1 0d 16 94 05 3a  0d 16 9e 36 dd f2 73 61  |.......:...6..sa|
00003100  76 65 77 69 74 68 70 61  74 68 73 74 72 69 6e 67  |vewithpathstring|
00003110  28 66 69 6c 65 6e 61 6d  65 24 2c 70 61 74 68 24  |(filename$,path$|
00003120  2c 61 64 64 72 25 2c 62  79 74 65 73 25 29 0d 16  |,addr%,bytes%)..|
00003130  a8 1e 70 61 74 68 32 24  3d 70 61 74 68 24 2b 22  |..path2$=path$+"|
00003140  2e 22 2b 66 69 6c 65 6e  61 6d 65 24 0d 16 b2 30  |."+filename$...0|
00003150  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 30 2c 70  |.. "OS_File",0,p|
00003160  61 74 68 32 24 2c 30 2c  30 2c 61 64 64 72 25 2c  |ath2$,0,0,addr%,|
00003170  61 64 64 72 25 2b 62 79  74 65 73 25 0d 16 bc 05  |addr%+bytes%....|
00003180  e1 0d 16 c6 05 3a 0d 16  d0 0f dd a4 64 69 67 69  |.....:......digi|
00003190  74 28 64 24 29 0d 16 da  21 e7 20 64 24 3e 3d 22  |t(d$)...!. d$>="|
000031a0  30 22 20 80 20 64 24 3c  3d 22 39 22 20 8c 20 3d  |0" . d$<="9" . =|
000031b0  b9 20 8b 20 3d a3 0d 16  e4 05 3a 0d 16 ee 1d dd  |. . =.....:.....|
000031c0  f2 73 65 74 74 69 74 6c  65 28 62 6c 6f 63 6b 25  |.settitle(block%|
000031d0  2c 74 69 74 6c 65 24 29  0d 16 f8 13 61 64 64 72  |,title$)....addr|
000031e0  25 3d 62 6c 6f 63 6b 25  2b 37 32 0d 17 02 12 6c  |%=block%+72....l|
000031f0  65 6e 25 3d a9 28 74 69  74 6c 65 24 29 0d 17 0c  |en%=.(title$)...|
00003200  08 63 25 3d 30 0d 17 16  0d c8 95 20 6c 65 6e 25  |.c%=0...... len%|
00003210  3e 30 0d 17 20 1f 61 64  64 72 25 3f 63 25 3d 97  |>0.. .addr%?c%=.|
00003220  28 c1 74 69 74 6c 65 24  2c 63 25 2b 31 2c 31 29  |(.title$,c%+1,1)|
00003230  29 0d 17 2a 09 63 25 2b  3d 31 0d 17 34 0b 6c 65  |)..*.c%+=1..4.le|
00003240  6e 25 2d 3d 31 0d 17 3e  05 ce 0d 17 48 0e 61 64  |n%-=1..>....H.ad|
00003250  64 72 25 3f 63 25 3d 30  0d 17 52 05 e1 0d 17 5c  |dr%?c%=0..R....\|
00003260  05 3a 0d 17 66 10 dd a4  72 65 61 64 73 74 72 69  |.:..f...readstri|
00003270  6e 67 0d 17 70 10 ea 20  6f 75 74 24 2c 62 79 74  |ng..p.. out$,byt|
00003280  65 25 0d 17 7a 0f 61 62  6f 72 74 24 3d bd 28 30  |e%..z.abort$=.(0|
00003290  29 0d 17 84 19 e7 20 c5  23 68 61 6e 64 6c 65 25  |)..... .#handle%|
000032a0  20 8c 20 3d 61 62 6f 72  74 24 0d 17 8e 0b 6f 75  | . =abort$....ou|
000032b0  74 24 3d 22 22 0d 17 98  05 f5 0d 17 a2 13 62 79  |t$="".........by|
000032c0  74 65 25 3d 9a 23 68 61  6e 64 6c 65 25 0d 17 ac  |te%=.#handle%...|
000032d0  32 e7 20 62 79 74 65 25  3e 33 31 20 80 20 ac 28  |2. byte%>31 . .(|
000032e0  c5 23 68 61 6e 64 6c 65  25 29 20 8c 20 6f 75 74  |.#handle%) . out|
000032f0  24 3d 6f 75 74 24 2b bd  28 62 79 74 65 25 29 0d  |$=out$+.(byte%).|
00003300  17 b6 1a fd 20 62 79 74  65 25 3c 33 32 20 84 20  |.... byte%<32 . |
00003310  c5 23 68 61 6e 64 6c 65  25 0d 17 c0 09 3d 6f 75  |.#handle%....=ou|
00003320  74 24 0d 17 ca 05 3a 0d  17 d4 19 dd f2 77 72 69  |t$....:......wri|
00003330  74 65 73 74 72 69 6e 67  28 77 72 69 74 65 24 29  |testring(write$)|
00003340  0d 17 de 19 e3 20 63 68  61 72 25 3d 31 20 b8 20  |..... char%=1 . |
00003350  a9 28 77 72 69 74 65 24  29 0d 17 e8 21 d5 23 68  |.(write$)...!.#h|
00003360  61 6e 64 6c 65 25 2c 97  28 c1 77 72 69 74 65 24  |andle%,.(.write$|
00003370  2c 63 68 61 72 25 2c 31  29 29 0d 17 f2 05 ed 0d  |,char%,1))......|
00003380  17 fc 10 d5 23 68 61 6e  64 6c 65 25 2c 31 33 0d  |....#handle%,13.|
00003390  18 06 05 e1 0d 18 10 05  3a 0d 18 1a 22 dd f2 73  |........:..."..s|
000033a0  65 74 66 69 6c 65 74 79  70 65 28 66 6e 61 6d 65  |etfiletype(fname|
000033b0  24 2c 6e 65 77 74 79 70  65 25 29 0d 18 24 23 c8  |$,newtype%)..$#.|
000033c0  99 20 22 4f 53 5f 46 69  6c 65 22 2c 31 38 2c 66  |. "OS_File",18,f|
000033d0  6e 61 6d 65 24 2c 6e 65  77 74 79 70 65 25 0d 18  |name$,newtype%..|
000033e0  2e 05 e1 0d 18 38 05 3a  0d 18 42 21 dd f2 77 72  |.....8.:..B!..wr|
000033f0  69 74 65 73 74 72 69 6e  67 74 6f 66 69 6c 65 28  |itestringtofile(|
00003400  63 68 25 2c 73 74 72 24  29 0d 18 4c 11 e7 20 73  |ch%,str$)..L.. s|
00003410  74 72 24 3d 22 22 20 8c  20 e1 0d 18 56 14 e3 20  |tr$="" . ...V.. |
00003420  6c 25 3d 31 20 b8 20 a9  28 73 74 72 24 29 0d 18  |l%=1 . .(str$)..|
00003430  60 18 d5 23 63 68 25 2c  97 28 c1 73 74 72 24 2c  |`..#ch%,.(.str$,|
00003440  6c 25 2c 31 29 29 0d 18  6a 05 ed 0d 18 74 05 e1  |l%,1))..j....t..|
00003450  0d 18 7e 05 3a 0d 18 88  0e dd f2 6c 6f 61 64 66  |..~.:......loadf|
00003460  69 6c 65 0d 18 92 26 66  69 6c 65 6e 61 6d 65 24  |ile...&filename$|
00003470  3d a4 73 74 72 69 6e 67  66 72 6f 6d 6d 65 6d 6f  |=.stringfrommemo|
00003480  72 79 28 71 25 2b 34 34  29 0d 18 9c 15 6c 6f 61  |ry(q%+44)....loa|
00003490  64 65 64 24 3d 66 69 6c  65 6e 61 6d 65 24 0d 18  |ded$=filename$..|
000034a0  a6 20 66 69 6c 65 6c 65  6e 25 3d a4 66 69 6c 65  |. filelen%=.file|
000034b0  6c 65 6e 28 66 69 6c 65  6e 61 6d 65 24 29 0d 18  |len(filename$)..|
000034c0  b0 0e c8 8e 20 71 25 21  34 30 20 ca 0d 18 ba 24  |.... q%!40 ....$|
000034d0  c9 20 26 30 30 31 3a f2  6c 6f 61 64 74 72 61 63  |. &001:.loadtrac|
000034e0  6b 65 72 28 66 69 6c 65  6e 61 6d 65 24 2c 32 29  |ker(filename$,2)|
000034f0  0d 18 c4 24 c9 20 26 33  36 34 3a f2 6c 6f 61 64  |...$. &364:.load|
00003500  63 6f 63 6f 74 72 61 63  6b 28 66 69 6c 65 6e 61  |cocotrack(filena|
00003510  6d 65 24 29 0d 18 ce 24  c9 20 26 33 36 35 3a f2  |me$)...$. &365:.|
00003520  6c 6f 61 64 63 6f 63 6f  74 72 61 63 6b 28 66 69  |loadcocotrack(fi|
00003530  6c 65 6e 61 6d 65 24 29  0d 18 d8 25 c9 20 26 37  |lename$)...%. &7|
00003540  30 31 3a f2 6c 6f 61 64  70 72 6f 74 72 61 63 6b  |01:.loadprotrack|
00003550  65 72 28 66 69 6c 65 6e  61 6d 65 24 29 0d 18 e2  |er(filename$)...|
00003560  24 c9 20 26 43 42 36 3a  f2 6c 6f 61 64 74 72 61  |$. &CB6:.loadtra|
00003570  63 6b 65 72 28 66 69 6c  65 6e 61 6d 65 24 2c 30  |cker(filename$,0|
00003580  29 0d 18 ec 23 c9 20 26  43 42 35 3a f2 6c 6f 61  |)...#. &CB5:.loa|
00003590  64 73 61 6d 70 6c 65 28  66 69 6c 65 6e 61 6d 65  |dsample(filename|
000035a0  24 2c 30 29 0d 18 f6 24  c9 20 26 43 43 35 3a f2  |$,0)...$. &CC5:.|
000035b0  6c 6f 61 64 74 72 61 63  6b 65 72 28 66 69 6c 65  |loadtracker(file|
000035c0  6e 61 6d 65 24 2c 32 29  0d 19 00 23 c9 20 26 44  |name$,2)...#. &D|
000035d0  33 43 3a f2 6c 6f 61 64  73 61 6d 70 6c 65 28 66  |3C:.loadsample(f|
000035e0  69 6c 65 6e 61 6d 65 24  2c 32 29 0d 19 0a 23 c9  |ilename$,2)...#.|
000035f0  20 26 44 46 39 3a f2 6c  6f 61 64 73 61 6d 70 6c  | &DF9:.loadsampl|
00003600  65 28 66 69 6c 65 6e 61  6d 65 24 2c 36 29 0d 19  |e(filename$,6)..|
00003610  14 23 c9 20 26 45 44 30  3a f2 6c 6f 61 64 73 61  |.#. &ED0:.loadsa|
00003620  6d 70 6c 65 28 66 69 6c  65 6e 61 6d 65 24 2c 31  |mple(filename$,1|
00003630  29 0d 19 1e 21 c9 20 26  46 46 41 3a f2 6c 6f 61  |)...!. &FFA:.loa|
00003640  64 6d 6f 64 75 6c 65 28  66 69 6c 65 6e 61 6d 65  |dmodule(filename|
00003650  24 29 0d 19 28 22 c9 20  26 46 46 44 3a f2 6c 6f  |$)..(". &FFD:.lo|
00003660  61 64 70 61 74 64 61 74  61 28 66 69 6c 65 6e 61  |adpatdata(filena|
00003670  6d 65 24 29 0d 19 32 05  cb 0d 19 3c 05 e1 0d 19  |me$)..2....<....|
00003680  46 05 3a 0d 19 50 19 dd  f2 6c 6f 61 64 6d 6f 64  |F.:..P...loadmod|
00003690  75 6c 65 28 6d 6f 64 75  6c 65 24 29 0d 19 5a 11  |ule(module$)..Z.|
000036a0  43 25 3d 8e 28 6d 6f 64  75 6c 65 24 29 0d 19 64  |C%=.(module$)..d|
000036b0  0c cf 23 43 25 3d 26 38  38 0d 19 6e 09 61 24 3d  |..#C%=&88..n.a$=|
000036c0  22 22 0d 19 78 11 e3 20  62 79 74 65 25 3d 31 20  |""..x.. byte%=1 |
000036d0  b8 20 38 0d 19 82 0f 61  24 2b 3d bd 28 9a 23 43  |. 8....a$+=.(.#C|
000036e0  25 29 0d 19 8c 05 ed 0d  19 96 09 d9 20 23 43 25  |%).......... #C%|
000036f0  0d 19 a0 45 e7 20 61 24  3d 22 53 61 6d 70 43 6f  |...E. a$="SampCo|
00003700  6e 76 22 20 8c 20 f2 6c  6f 61 64 73 61 6d 70 6c  |nv" . .loadsampl|
00003710  65 28 6d 6f 64 75 6c 65  24 2c 38 29 20 8b 20 f2  |e(module$,8) . .|
00003720  6c 6f 61 64 73 61 6d 70  6c 65 28 6d 6f 64 75 6c  |loadsample(modul|
00003730  65 24 2c 37 29 0d 19 aa  05 e1 0d 19 b4 05 3a 0d  |e$,7).........:.|
00003740  19 be 24 dd f2 6c 6f 61  64 74 72 61 63 6b 65 72  |..$..loadtracker|
00003750  28 74 72 61 63 6b 65 72  24 2c 6d 6f 64 74 79 70  |(tracker$,modtyp|
00003760  65 25 29 0d 19 c8 16 6d  6f 64 74 79 70 65 32 25  |e%)....modtype2%|
00003770  3d 6d 6f 64 74 79 70 65  25 0d 19 d2 12 e7 20 6d  |=modtype%..... m|
00003780  6f 64 74 79 70 65 25 3d  30 20 8c 0d 19 dc 12 43  |odtype%=0 .....C|
00003790  25 3d 8e 28 74 72 61 63  6b 65 72 24 29 0d 19 e6  |%=.(tracker$)...|
000037a0  0c 72 65 61 64 24 3d 22  22 0d 19 f0 11 e3 20 63  |.read$=""..... c|
000037b0  68 61 72 25 3d 31 20 b8  20 34 0d 19 fa 12 72 65  |har%=1 . 4....re|
000037c0  61 64 24 2b 3d bd 28 9a  23 43 25 29 0d 1a 04 05  |ad$+=.(.#C%)....|
000037d0  ed 0d 1a 0e 09 d9 20 23  43 25 0d 1a 18 05 cd 0d  |...... #C%......|
000037e0  1a 22 05 3a 0d 1a 2c 0c  61 62 6f 72 74 25 3d a3  |.".:..,.abort%=.|
000037f0  0d 1a 36 13 e7 20 74 75  6e 65 6c 6f 61 64 65 64  |..6.. tuneloaded|
00003800  25 20 8c 0d 1a 40 49 65  72 72 6f 72 65 78 69 74  |% ...@Ierrorexit|
00003810  25 3d a4 65 72 72 6f 72  62 6f 78 28 31 37 2c 22  |%=.errorbox(17,"|
00003820  45 78 69 73 74 69 6e 67  20 74 75 6e 65 20 77 69  |Existing tune wi|
00003830  6c 6c 20 62 65 20 6c 6f  73 74 20 2d 20 61 72 65  |ll be lost - are|
00003840  20 79 6f 75 20 73 75 72  65 3f 22 29 0d 1a 4a 2d  | you sure?")..J-|
00003850  e7 20 65 72 72 6f 72 65  78 69 74 25 3d 31 20 8c  |. errorexit%=1 .|
00003860  20 f2 72 65 74 75 72 6e  6d 65 6d 6f 72 79 20 8b  | .returnmemory .|
00003870  20 61 62 6f 72 74 25 3d  b9 0d 1a 54 05 cd 0d 1a  | abort%=...T....|
00003880  5e 10 e7 20 61 62 6f 72  74 25 20 8c 20 e1 0d 1a  |^.. abort% . ...|
00003890  68 05 3a 0d 1a 72 12 e7  20 6d 6f 64 74 79 70 65  |h.:..r.. modtype|
000038a0  25 3d 30 20 8c 0d 1a 7c  44 e7 20 72 65 61 64 24  |%=0 ...|D. read$|
000038b0  3d 22 46 54 4d 4e 22 20  8c 20 85 20 31 37 2c 22  |="FTMN" . . 17,"|
000038c0  53 6f 72 72 79 2c 20 63  61 6e 27 74 20 6c 6f 61  |Sorry, can't loa|
000038d0  64 20 27 46 61 63 65 20  74 68 65 20 4d 75 73 69  |d 'Face the Musi|
000038e0  63 27 20 66 69 6c 65 73  22 0d 1a 86 3c e7 20 72  |c' files"...<. r|
000038f0  65 61 64 24 3d 22 4d 45  44 22 2b bd 28 34 29 20  |ead$="MED"+.(4) |
00003900  8c 20 85 20 31 37 2c 22  53 6f 72 72 79 2c 20 63  |. . 17,"Sorry, c|
00003910  61 6e 27 74 20 6c 6f 61  64 20 4d 45 44 33 20 66  |an't load MED3 f|
00003920  69 6c 65 73 22 0d 1a 90  2c e7 20 72 65 61 64 24  |iles"...,. read$|
00003930  3d 22 4d 55 53 58 22 20  8c 20 6d 6f 64 74 79 70  |="MUSX" . modtyp|
00003940  65 25 3d 31 20 8b 20 6d  6f 64 74 79 70 65 25 3d  |e%=1 . modtype%=|
00003950  32 0d 1a 9a 1f e7 20 72  65 61 64 24 3d 22 4f 4b  |2..... read$="OK|
00003960  54 41 22 20 8c 20 6d 6f  64 74 79 70 65 25 3d 33  |TA" . modtype%=3|
00003970  0d 1a a4 05 cd 0d 1a ae  0d f2 73 74 6f 70 74 75  |..........stoptu|
00003980  6e 65 0d 1a b8 0e 61 62  6f 72 74 65 64 25 3d a3  |ne....aborted%=.|
00003990  0d 1a c2 11 c8 8e 20 6d  6f 64 74 79 70 65 25 20  |...... modtype% |
000039a0  ca 0d 1a cc 08 c9 20 32  3a 0d 1a d6 13 e7 20 6d  |...... 2:..... m|
000039b0  6f 64 74 79 70 65 32 25  3d 30 20 8c 0d 1a e0 3a  |odtype2%=0 ....:|
000039c0  65 72 72 6f 72 65 78 69  74 25 3d a4 65 72 72 6f  |errorexit%=.erro|
000039d0  72 62 6f 78 28 31 37 2c  22 43 6f 6e 76 65 72 74  |rbox(17,"Convert|
000039e0  20 66 72 6f 6d 20 53 6f  75 6e 64 20 54 72 61 63  | from Sound Trac|
000039f0  6b 65 72 3f 22 29 0d 1a  ea 20 e7 20 65 72 72 6f  |ker?")... . erro|
00003a00  72 65 78 69 74 25 3c 3e  31 20 8c 20 61 62 6f 72  |rexit%<>1 . abor|
00003a10  74 65 64 25 3d b9 0d 1a  f4 05 cd 0d 1a fe 05 3a  |ted%=..........:|
00003a20  0d 1b 08 13 e7 20 ac 28  61 62 6f 72 74 65 64 25  |..... .(aborted%|
00003a30  29 20 8c 0d 1b 12 0e 66  72 65 65 6d 65 6d 25 3d  |) .....freemem%=|
00003a40  30 0d 1b 1c 27 67 6f 74  69 74 25 3d a4 67 72 61  |0...'gotit%=.gra|
00003a50  62 6d 65 6d 28 66 69 6c  65 6c 65 6e 25 2a 32 2b  |bmem(filelen%*2+|
00003a60  31 30 2a 31 30 32 34 29  0d 1b 26 21 e7 20 67 6f  |10*1024)..&!. go|
00003a70  74 69 74 25 3d a3 20 8c  20 f2 6e 6f 74 65 6e 6f  |tit%=. . .noteno|
00003a80  75 67 68 74 6f 6c 6f 61  64 0d 1b 30 2b 74 65 6d  |ughtoload..0+tem|
00003a90  70 6c 6f 61 64 25 3d 74  72 61 63 6b 65 72 74 75  |pload%=trackertu|
00003aa0  6e 65 25 2b 66 69 6c 65  6c 65 6e 25 2b 31 30 2a  |ne%+filelen%+10*|
00003ab0  31 30 32 34 0d 1b 3a 27  74 65 6d 70 6c 6f 61 64  |1024..:'tempload|
00003ac0  25 3d 28 74 65 6d 70 6c  6f 61 64 25 2d 34 29 20  |%=(tempload%-4) |
00003ad0  80 20 26 46 46 46 46 46  46 46 43 0d 1b 44 27 ff  |. &FFFFFFFC..D'.|
00003ae0  28 22 4c 4f 41 44 20 22  2b 74 72 61 63 6b 65 72  |("LOAD "+tracker|
00003af0  24 2b 22 20 22 2b c3 7e  74 65 6d 70 6c 6f 61 64  |$+" "+.~tempload|
00003b00  25 29 0d 1b 4e 08 41 25  3d 31 0d 1b 58 10 42 25  |%)..N.A%=1..X.B%|
00003b10  3d 74 65 6d 70 6c 6f 61  64 25 0d 1b 62 13 43 25  |=tempload%..b.C%|
00003b20  3d 74 72 61 63 6b 65 72  74 75 6e 65 25 0d 1b 6c  |=trackertune%..l|
00003b30  0f 44 25 3d 66 69 6c 65  6c 65 6e 25 0d 1b 76 15  |.D%=filelen%..v.|
00003b40  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00003b50  22 0d 1b 80 12 d6 20 74  72 61 63 6b 65 72 63 6f  |"..... trackerco|
00003b60  64 65 25 0d 1b 8a 16 c8  99 20 22 48 6f 75 72 67  |de%...... "Hourg|
00003b70  6c 61 73 73 5f 4f 66 66  22 0d 1b 94 0d f2 6d 69  |lass_Off".....mi|
00003b80  6e 69 6d 69 73 65 0d 1b  9e 05 cd 0d 1b a8 05 3a  |nimise.........:|
00003b90  0d 1b b2 08 c9 20 31 3a  0d 1b bc 0e 66 72 65 65  |..... 1:....free|
00003ba0  6d 65 6d 25 3d 30 0d 1b  c6 1d 67 6f 74 69 74 25  |mem%=0....gotit%|
00003bb0  3d a4 67 72 61 62 6d 65  6d 28 66 69 6c 65 6c 65  |=.grabmem(filele|
00003bc0  6e 25 29 0d 1b d0 21 e7  20 67 6f 74 69 74 25 3d  |n%)...!. gotit%=|
00003bd0  a3 20 8c 20 f2 6e 6f 74  65 6e 6f 75 67 68 74 6f  |. . .notenoughto|
00003be0  6c 6f 61 64 0d 1b da 2a  ff 28 22 4c 4f 41 44 20  |load...*.("LOAD |
00003bf0  22 2b 74 72 61 63 6b 65  72 24 2b 22 20 22 2b c3  |"+tracker$+" "+.|
00003c00  7e 74 72 61 63 6b 65 72  74 75 6e 65 25 29 0d 1b  |~trackertune%)..|
00003c10  e4 05 3a 0d 1b ee 08 c9  20 33 3a 0d 1b f8 36 65  |..:..... 3:...6e|
00003c20  72 72 6f 72 65 78 69 74  25 3d a4 65 72 72 6f 72  |rrorexit%=.error|
00003c30  62 6f 78 28 31 37 2c 22  43 6f 6e 76 65 72 74 20  |box(17,"Convert |
00003c40  66 72 6f 6d 20 4f 63 74  61 6c 79 73 65 72 3f 22  |from Octalyser?"|
00003c50  29 0d 1c 02 20 e7 20 65  72 72 6f 72 65 78 69 74  |)... . errorexit|
00003c60  25 3c 3e 31 20 8c 20 61  62 6f 72 74 65 64 25 3d  |%<>1 . aborted%=|
00003c70  b9 0d 1c 0c 05 3a 0d 1c  16 13 e7 20 ac 28 61 62  |.....:..... .(ab|
00003c80  6f 72 74 65 64 25 29 20  8c 0d 1c 20 0e 66 72 65  |orted%) ... .fre|
00003c90  65 6d 65 6d 25 3d 30 0d  1c 2a 27 67 6f 74 69 74  |emem%=0..*'gotit|
00003ca0  25 3d a4 67 72 61 62 6d  65 6d 28 66 69 6c 65 6c  |%=.grabmem(filel|
00003cb0  65 6e 25 2a 32 2b 31 30  2a 31 30 32 34 29 0d 1c  |en%*2+10*1024)..|
00003cc0  34 21 e7 20 67 6f 74 69  74 25 3d a3 20 8c 20 f2  |4!. gotit%=. . .|
00003cd0  6e 6f 74 65 6e 6f 75 67  68 74 6f 6c 6f 61 64 0d  |notenoughtoload.|
00003ce0  1c 3e 2b 74 65 6d 70 6c  6f 61 64 25 3d 74 72 61  |.>+tempload%=tra|
00003cf0  63 6b 65 72 74 75 6e 65  25 2b 66 69 6c 65 6c 65  |ckertune%+filele|
00003d00  6e 25 2b 31 30 2a 31 30  32 34 0d 1c 48 27 74 65  |n%+10*1024..H'te|
00003d10  6d 70 6c 6f 61 64 25 3d  28 74 65 6d 70 6c 6f 61  |mpload%=(temploa|
00003d20  64 25 2d 34 29 20 80 20  26 46 46 46 46 46 46 46  |d%-4) . &FFFFFFF|
00003d30  43 0d 1c 52 27 ff 28 22  4c 4f 41 44 20 22 2b 74  |C..R'.("LOAD "+t|
00003d40  72 61 63 6b 65 72 24 2b  22 20 22 2b c3 7e 74 65  |racker$+" "+.~te|
00003d50  6d 70 6c 6f 61 64 25 29  0d 1c 5c 08 41 25 3d 38  |mpload%)..\.A%=8|
00003d60  0d 1c 66 10 42 25 3d 74  65 6d 70 6c 6f 61 64 25  |..f.B%=tempload%|
00003d70  0d 1c 70 13 43 25 3d 74  72 61 63 6b 65 72 74 75  |..p.C%=trackertu|
00003d80  6e 65 25 0d 1c 7a 0f 44  25 3d 66 69 6c 65 6c 65  |ne%..z.D%=filele|
00003d90  6e 25 0d 1c 84 15 c8 99  20 22 48 6f 75 72 67 6c  |n%...... "Hourgl|
00003da0  61 73 73 5f 4f 6e 22 0d  1c 8e 12 d6 20 74 72 61  |ass_On"..... tra|
00003db0  63 6b 65 72 63 6f 64 65  25 0d 1c 98 16 c8 99 20  |ckercode%...... |
00003dc0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00003dd0  1c a2 0d f2 6d 69 6e 69  6d 69 73 65 0d 1c ac 05  |....minimise....|
00003de0  cd 0d 1c b6 05 3a 0d 1c  c0 05 cb 0d 1c ca 05 3a  |.....:.........:|
00003df0  0d 1c d4 1f e7 20 ac 28  61 62 6f 72 74 65 64 25  |..... .(aborted%|
00003e00  29 20 8c 20 f2 6a 75 73  74 6c 6f 61 64 65 64 0d  |) . .justloaded.|
00003e10  1c de 1a e7 20 61 62 6f  72 74 65 64 25 20 8c 20  |.... aborted% . |
00003e20  f2 63 6c 6f 73 65 61 6c  6c 0d 1c e8 05 e1 0d 1c  |.closeall.......|
00003e30  f2 05 3a 0d 1c fc 10 dd  f2 6a 75 73 74 6c 6f 61  |..:......justloa|
00003e40  64 65 64 0d 1d 06 11 74  75 6e 65 6c 6f 61 64 65  |ded....tuneloade|
00003e50  64 25 3d b9 0d 1d 10 0e  70 6c 61 79 69 6e 67 25  |d%=.....playing%|
00003e60  3d a3 0d 1d 1a 1b 6f 6c  64 70 6f 73 25 3d 2d 31  |=.....oldpos%=-1|
00003e70  3a 6f 6c 64 65 76 65 6e  74 25 3d 2d 31 0d 1d 24  |:oldevent%=-1..$|
00003e80  25 f2 73 65 74 69 63 6f  6e 74 65 78 74 28 73 61  |%.seticontext(sa|
00003e90  76 65 74 75 6e 65 25 2c  33 2c 6c 6f 61 64 65 64  |vetune%,3,loaded|
00003ea0  24 29 0d 1d 2e 11 f2 67  65 74 6d 75 73 69 63 69  |$).....getmusici|
00003eb0  6e 66 6f 0d 1d 38 0d f2  74 75 6e 65 69 6e 66 6f  |nfo..8..tuneinfo|
00003ec0  0d 1d 42 11 f2 75 70 64  61 74 65 73 74 65 72 65  |..B..updatestere|
00003ed0  6f 0d 1d 4c 15 f2 77 72  69 74 65 73 61 6d 70 6c  |o..L..writesampl|
00003ee0  65 6e 61 6d 65 73 0d 1d  56 15 f2 69 6e 69 74 69  |enames..V..initi|
00003ef0  61 6c 69 73 65 76 6f 69  63 65 73 0d 1d 60 11 6a  |alisevoices..`.j|
00003f00  75 73 74 6c 6f 61 64 65  64 25 3d b9 0d 1d 6a 0f  |ustloaded%=...j.|
00003f10  64 65 6c 76 6f 69 63 65  25 3d 31 0d 1d 74 0d 64  |delvoice%=1..t.d|
00003f20  65 6c 70 61 74 25 3d 31  0d 1d 7e 0e 73 61 76 65  |elpat%=1..~.save|
00003f30  70 61 74 25 3d 31 0d 1d  88 0e 63 6f 70 79 70 61  |pat%=1....copypa|
00003f40  74 25 3d 31 0d 1d 92 2c  f2 73 65 74 69 63 6f 6e  |t%=1...,.seticon|
00003f50  74 65 78 74 28 63 6f 70  79 70 61 74 74 65 72 6e  |text(copypattern|
00003f60  25 2c 35 2c c3 28 63 6f  70 79 70 61 74 25 29 29  |%,5,.(copypat%))|
00003f70  0d 1d 9c 2a f2 73 65 74  69 63 6f 6e 74 65 78 74  |...*.seticontext|
00003f80  28 61 6d 65 6e 64 74 72  61 63 6b 25 2c 32 2c c3  |(amendtrack%,2,.|
00003f90  28 64 65 6c 70 61 74 25  29 29 0d 1d a6 2d f2 73  |(delpat%))...-.s|
00003fa0  65 74 69 63 6f 6e 74 65  78 74 28 61 6d 65 6e 64  |eticontext(amend|
00003fb0  74 72 61 63 6b 25 2c 31  30 2c c3 28 64 65 6c 76  |track%,10,.(delv|
00003fc0  6f 69 63 65 25 29 29 0d  1d b0 0e f2 72 65 64 6f  |oice%)).....redo|
00003fd0  63 61 72 65 74 0d 1d ba  05 e1 0d 1d c4 05 3a 0d  |caret.........:.|
00003fe0  1d ce 0f dd f2 72 65 64  6f 63 61 72 65 74 0d 1d  |.....redocaret..|
00003ff0  d8 22 c8 99 20 22 57 69  6d 70 5f 47 65 74 43 61  |.".. "Wimp_GetCa|
00004000  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2c 71 25  |retPosition",,q%|
00004010  0d 1d e2 15 63 77 25 3d  71 25 21 30 3a 63 69 25  |....cw%=q%!0:ci%|
00004020  3d 71 25 21 34 0d 1d ec  15 e7 20 63 77 25 3d 74  |=q%!4..... cw%=t|
00004030  75 6e 65 69 6e 66 6f 25  20 8c 0d 1d f6 27 e7 20  |uneinfo% ....'. |
00004040  63 69 25 3d 37 20 84 20  63 69 25 3d 38 20 f2 6d  |ci%=7 . ci%=8 .m|
00004050  6f 76 65 63 61 72 65 74  28 63 77 25 2c 63 69 25  |ovecaret(cw%,ci%|
00004060  29 0d 1e 00 05 cd 0d 1e  0a 05 e1 0d 1e 14 05 3a  |)..............:|
00004070  0d 1e 1e 25 dd f2 6c 6f  61 64 73 61 6d 70 6c 65  |...%..loadsample|
00004080  28 73 61 6d 70 66 69 6c  65 24 2c 73 61 6d 70 74  |(sampfile$,sampt|
00004090  79 70 65 25 29 0d 1e 28  11 77 69 74 68 68 65 61  |ype%)..(.withhea|
000040a0  64 65 72 25 3d a3 0d 1e  32 11 77 69 6e 64 6f 77  |der%=...2.window|
000040b0  25 3d 71 25 21 32 30 0d  1e 3c 0f 69 63 6f 6e 25  |%=q%!20..<.icon%|
000040c0  3d 71 25 21 32 34 0d 1e  46 1b e7 20 77 69 6e 64  |=q%!24..F.. wind|
000040d0  6f 77 25 3c 3e 73 61 6d  70 6c 65 73 25 20 8c 20  |ow%<>samples% . |
000040e0  e1 0d 1e 50 11 e7 20 69  63 6f 6e 25 3c 30 20 8c  |...P.. icon%<0 .|
000040f0  20 e1 0d 1e 5a 15 c8 99  20 22 48 6f 75 72 67 6c  | ...Z... "Hourgl|
00004100  61 73 73 5f 4f 6e 22 0d  1e 64 1b 73 61 6d 70 70  |ass_On"..d.sampp|
00004110  6f 73 25 3d 28 69 63 6f  6e 25 20 83 20 33 36 29  |os%=(icon% . 36)|
00004120  2b 31 0d 1e 6e 24 73 61  6d 70 66 69 6c 65 6c 65  |+1..n$sampfilele|
00004130  6e 25 3d a4 66 69 6c 65  6c 65 6e 28 73 61 6d 70  |n%=.filelen(samp|
00004140  66 69 6c 65 24 29 0d 1e  78 21 61 63 74 75 61 6c  |file$)..x!actual|
00004150  73 61 6d 70 6c 65 6c 65  6e 25 3d 73 61 6d 70 66  |samplelen%=sampf|
00004160  69 6c 65 6c 65 6e 25 0d  1e 82 23 e7 20 73 61 6d  |ilelen%...#. sam|
00004170  70 74 79 70 65 25 3d 32  20 8c 20 73 61 6d 70 66  |ptype%=2 . sampf|
00004180  69 6c 65 6c 65 6e 25 2d  3d 31 0d 1e 8c 25 e7 20  |ilelen%-=1...%. |
00004190  73 61 6d 70 74 79 70 65  25 3d 36 20 8c 20 73 61  |samptype%=6 . sa|
000041a0  6d 70 66 69 6c 65 6c 65  6e 25 2d 3d 37 31 32 0d  |mpfilelen%-=712.|
000041b0  1e 96 26 e7 20 73 61 6d  70 74 79 70 65 25 3d 37  |..&. samptype%=7|
000041c0  20 8c 20 73 61 6d 70 66  69 6c 65 6c 65 6e 25 2d  | . sampfilelen%-|
000041d0  3d 31 34 30 38 0d 1e a0  25 e7 20 73 61 6d 70 74  |=1408...%. sampt|
000041e0  79 70 65 25 3d 38 20 8c  20 73 61 6d 70 66 69 6c  |ype%=8 . sampfil|
000041f0  65 6c 65 6e 25 2d 3d 36  36 30 0d 1e aa 2d 73 61  |elen%-=660...-sa|
00004200  6d 70 66 69 6c 65 6c 65  6e 25 3d 28 73 61 6d 70  |mpfilelen%=(samp|
00004210  66 69 6c 65 6c 65 6e 25  2b 33 29 20 80 20 26 46  |filelen%+3) . &F|
00004220  46 46 46 46 46 46 43 0d  1e b4 34 e7 20 73 61 6d  |FFFFFFC...4. sam|
00004230  70 74 79 70 65 25 3d 30  20 8c 20 77 69 74 68 68  |ptype%=0 . withh|
00004240  65 61 64 65 72 25 3d a4  68 65 61 64 65 72 65 64  |eader%=.headered|
00004250  28 73 61 6d 70 66 69 6c  65 24 29 0d 1e be 13 e7  |(sampfile$).....|
00004260  20 77 69 74 68 68 65 61  64 65 72 25 20 8c 0d 1e  | withheader% ...|
00004270  c8 25 f2 6c 6f 61 64 68  65 61 64 65 72 65 64 28  |.%.loadheadered(|
00004280  73 61 6d 70 66 69 6c 65  24 2c 73 61 6d 70 70 6f  |sampfile$,samppo|
00004290  73 25 29 0d 1e d2 05 cc  0d 1e dc 31 f2 6c 6f 61  |s%)........1.loa|
000042a0  64 75 6e 68 65 61 64 65  72 65 64 28 73 61 6d 70  |dunheadered(samp|
000042b0  66 69 6c 65 24 2c 73 61  6d 70 70 6f 73 25 2c 73  |file$,samppos%,s|
000042c0  61 6d 70 74 79 70 65 25  29 0d 1e e6 05 cd 0d 1e  |amptype%).......|
000042d0  f0 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
000042e0  4f 66 66 22 0d 1e fa 0f  f2 75 70 64 61 74 65 73  |Off".....updates|
000042f0  69 7a 65 0d 1f 04 0d f2  6d 69 6e 69 6d 69 73 65  |ize.....minimise|
00004300  0d 1f 0e 05 e1 0d 1f 18  05 3a 0d 1f 22 15 dd a4  |.........:.."...|
00004310  68 65 61 64 65 72 65 64  28 73 61 6d 70 24 29 0d  |headered(samp$).|
00004320  1f 2c 0f 43 25 3d 8e 28  73 61 6d 70 24 29 0d 1f  |.,.C%=.(samp$)..|
00004330  36 0c 72 65 61 64 24 3d  22 22 0d 1f 40 11 e3 20  |6.read$=""..@.. |
00004340  63 68 61 72 25 3d 31 20  b8 20 34 0d 1f 4a 12 72  |char%=1 . 4..J.r|
00004350  65 61 64 24 2b 3d bd 28  9a 23 43 25 29 0d 1f 54  |ead$+=.(.#C%)..T|
00004360  05 ed 0d 1f 5e 09 d9 20  23 43 25 0d 1f 68 17 e7  |....^.. #C%..h..|
00004370  20 72 65 61 64 24 3d 22  53 41 4d 50 22 20 8c 20  | read$="SAMP" . |
00004380  3d b9 0d 1f 72 06 3d a3  0d 1f 7c 05 3a 0d 1f 86  |=...r.=...|.:...|
00004390  20 dd f2 6c 6f 61 64 68  65 61 64 65 72 65 64 28  | ..loadheadered(|
000043a0  77 68 61 74 24 2c 77 68  65 72 65 25 29 0d 1f 90  |what$,where%)...|
000043b0  0c 61 62 6f 72 74 25 3d  a3 0d 1f 9a 27 e7 20 73  |.abort%=....'. s|
000043c0  61 6d 70 66 69 6c 65 6c  65 6e 25 3e 28 73 6c 65  |ampfilelen%>(sle|
000043d0  6e 25 28 77 68 65 72 65  25 29 2b 39 32 29 20 8c  |n%(where%)+92) .|
000043e0  0d 1f a4 2d 74 6f 69 6e  73 65 72 74 25 3d 73 61  |...-toinsert%=sa|
000043f0  6d 70 66 69 6c 65 6c 65  6e 25 2d 28 73 6c 65 6e  |mpfilelen%-(slen|
00004400  25 28 77 68 65 72 65 25  29 2b 39 32 29 0d 1f ae  |%(where%)+92)...|
00004410  19 61 74 25 3d 73 61 6d  70 61 64 64 72 25 28 77  |.at%=sampaddr%(w|
00004420  68 65 72 65 25 29 0d 1f  b8 2f e7 20 ac 28 a4 69  |here%).../. .(.i|
00004430  6e 73 65 72 74 62 79 74  65 73 28 61 74 25 2c 74  |nsertbytes(at%,t|
00004440  6f 69 6e 73 65 72 74 25  29 29 20 8c 20 61 62 6f  |oinsert%)) . abo|
00004450  72 74 25 3d b9 0d 1f c2  05 cd 0d 1f cc 27 e7 20  |rt%=.........'. |
00004460  73 61 6d 70 66 69 6c 65  6c 65 6e 25 3c 28 73 6c  |sampfilelen%<(sl|
00004470  65 6e 25 28 77 68 65 72  65 25 29 2b 39 32 29 20  |en%(where%)+92) |
00004480  8c 0d 1f d6 2b 74 6f 64  65 6c 65 74 65 25 3d 73  |....+todelete%=s|
00004490  6c 65 6e 25 28 77 68 65  72 65 25 29 2b 39 32 2d  |len%(where%)+92-|
000044a0  73 61 6d 70 66 69 6c 65  6c 65 6e 25 0d 1f e0 19  |sampfilelen%....|
000044b0  61 74 25 3d 73 61 6d 70  61 64 64 72 25 28 77 68  |at%=sampaddr%(wh|
000044c0  65 72 65 25 29 0d 1f ea  2f e7 20 ac 28 a4 64 65  |ere%).../. .(.de|
000044d0  6c 65 74 65 62 79 74 65  73 28 61 74 25 2c 74 6f  |letebytes(at%,to|
000044e0  64 65 6c 65 74 65 25 29  29 20 8c 20 61 62 6f 72  |delete%)) . abor|
000044f0  74 25 3d b9 0d 1f f4 05  cd 0d 1f fe 16 e7 20 61  |t%=........... a|
00004500  62 6f 72 74 25 3d b9 20  8c 20 ef 20 37 3a e1 0d  |bort%=. . . 7:..|
00004510  20 08 2c ff 28 22 4c 4f  41 44 20 22 2b 77 68 61  | .,.("LOAD "+wha|
00004520  74 24 2b 22 20 22 2b c3  7e 73 61 6d 70 61 64 64  |t$+" "+.~sampadd|
00004530  72 25 28 77 68 65 72 65  25 29 29 0d 20 12 10 f2  |r%(where%)). ...|
00004540  72 65 61 64 73 61 6d 70  6c 65 73 0d 20 1c 15 f2  |readsamples. ...|
00004550  77 72 69 74 65 73 61 6d  70 6c 65 6e 61 6d 65 73  |writesamplenames|
00004560  0d 20 26 05 e1 0d 20 30  05 3a 0d 20 3a 29 dd f2  |. &... 0.:. :)..|
00004570  6c 6f 61 64 75 6e 68 65  61 64 65 72 65 64 28 77  |loadunheadered(w|
00004580  68 61 74 24 2c 77 68 65  72 65 25 2c 73 74 79 70  |hat$,where%,styp|
00004590  65 25 29 0d 20 44 0c 61  62 6f 72 74 25 3d a3 0d  |e%). D.abort%=..|
000045a0  20 4e 22 e7 20 73 61 6d  70 66 69 6c 65 6c 65 6e  | N". sampfilelen|
000045b0  25 3e 73 6c 65 6e 25 28  77 68 65 72 65 25 29 20  |%>slen%(where%) |
000045c0  8c 0d 20 58 28 74 6f 69  6e 73 65 72 74 25 3d 73  |.. X(toinsert%=s|
000045d0  61 6d 70 66 69 6c 65 6c  65 6e 25 2d 73 6c 65 6e  |ampfilelen%-slen|
000045e0  25 28 77 68 65 72 65 25  29 0d 20 62 1c 61 74 25  |%(where%). b.at%|
000045f0  3d 73 61 6d 70 61 64 64  72 25 28 77 68 65 72 65  |=sampaddr%(where|
00004600  25 29 2b 39 32 0d 20 6c  2f e7 20 ac 28 a4 69 6e  |%)+92. l/. .(.in|
00004610  73 65 72 74 62 79 74 65  73 28 61 74 25 2c 74 6f  |sertbytes(at%,to|
00004620  69 6e 73 65 72 74 25 29  29 20 8c 20 61 62 6f 72  |insert%)) . abor|
00004630  74 25 3d b9 0d 20 76 05  cd 0d 20 80 22 e7 20 73  |t%=.. v... .". s|
00004640  61 6d 70 66 69 6c 65 6c  65 6e 25 3c 73 6c 65 6e  |ampfilelen%<slen|
00004650  25 28 77 68 65 72 65 25  29 20 8c 0d 20 8a 28 74  |%(where%) .. .(t|
00004660  6f 64 65 6c 65 74 65 25  3d 73 6c 65 6e 25 28 77  |odelete%=slen%(w|
00004670  68 65 72 65 25 29 2d 73  61 6d 70 66 69 6c 65 6c  |here%)-sampfilel|
00004680  65 6e 25 0d 20 94 1c 61  74 25 3d 73 61 6d 70 61  |en%. ..at%=sampa|
00004690  64 64 72 25 28 77 68 65  72 65 25 29 2b 39 32 0d  |ddr%(where%)+92.|
000046a0  20 9e 2f e7 20 ac 28 a4  64 65 6c 65 74 65 62 79  | ./. .(.deleteby|
000046b0  74 65 73 28 61 74 25 2c  74 6f 64 65 6c 65 74 65  |tes(at%,todelete|
000046c0  25 29 29 20 8c 20 61 62  6f 72 74 25 3d b9 0d 20  |%)) . abort%=.. |
000046d0  a8 05 cd 0d 20 b2 16 e7  20 61 62 6f 72 74 25 3d  |.... ... abort%=|
000046e0  b9 20 8c 20 ef 20 37 3a  e1 0d 20 bc 0f c8 8e 20  |. . . 7:.. .... |
000046f0  73 74 79 70 65 25 20 ca  0d 20 c6 08 c9 20 32 3a  |stype% .. ... 2:|
00004700  0d 20 d0 0f 43 25 3d 8e  28 77 68 61 74 24 29 0d  |. ..C%=.(what$).|
00004710  20 da 3f c8 99 20 22 4f  53 5f 47 42 50 42 22 2c  | .?.. "OS_GBPB",|
00004720  33 2c 43 25 2c 73 61 6d  70 61 64 64 72 25 28 77  |3,C%,sampaddr%(w|
00004730  68 65 72 65 25 29 2b 39  32 2c 61 63 74 75 61 6c  |here%)+92,actual|
00004740  73 61 6d 70 6c 65 6c 65  6e 25 2d 31 2c 31 0d 20  |samplelen%-1,1. |
00004750  e4 09 d9 20 23 43 25 0d  20 ee 08 c9 20 36 3a 0d  |... #C%. ... 6:.|
00004760  20 f8 0f 43 25 3d 8e 28  77 68 61 74 24 29 0d 21  | ..C%=.(what$).!|
00004770  02 43 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 33  |.C.. "OS_GBPB",3|
00004780  2c 43 25 2c 73 61 6d 70  61 64 64 72 25 28 77 68  |,C%,sampaddr%(wh|
00004790  65 72 65 25 29 2b 39 32  2c 61 63 74 75 61 6c 73  |ere%)+92,actuals|
000047a0  61 6d 70 6c 65 6c 65 6e  25 2d 37 31 32 2c 35 34  |amplelen%-712,54|
000047b0  34 0d 21 0c 09 d9 20 23  43 25 0d 21 16 08 c9 20  |4.!... #C%.!... |
000047c0  37 3a 0d 21 20 0f 43 25  3d 8e 28 77 68 61 74 24  |7:.! .C%=.(what$|
000047d0  29 0d 21 2a 45 c8 99 20  22 4f 53 5f 47 42 50 42  |).!*E.. "OS_GBPB|
000047e0  22 2c 33 2c 43 25 2c 73  61 6d 70 61 64 64 72 25  |",3,C%,sampaddr%|
000047f0  28 77 68 65 72 65 25 29  2b 39 32 2c 61 63 74 75  |(where%)+92,actu|
00004800  61 6c 73 61 6d 70 6c 65  6c 65 6e 25 2d 31 34 30  |alsamplelen%-140|
00004810  38 2c 31 34 30 38 0d 21  34 09 d9 20 23 43 25 0d  |8,1408.!4.. #C%.|
00004820  21 3e 08 c9 20 38 3a 0d  21 48 0f 43 25 3d 8e 28  |!>.. 8:.!H.C%=.(|
00004830  77 68 61 74 24 29 0d 21  52 43 c8 99 20 22 4f 53  |what$).!RC.. "OS|
00004840  5f 47 42 50 42 22 2c 33  2c 43 25 2c 73 61 6d 70  |_GBPB",3,C%,samp|
00004850  61 64 64 72 25 28 77 68  65 72 65 25 29 2b 39 32  |addr%(where%)+92|
00004860  2c 61 63 74 75 61 6c 73  61 6d 70 6c 65 6c 65 6e  |,actualsamplelen|
00004870  25 2d 36 36 30 2c 36 36  30 0d 21 5c 09 d9 20 23  |%-660,660.!\.. #|
00004880  43 25 0d 21 66 10 c9 20  30 2c 31 2c 33 2c 34 2c  |C%.!f.. 0,1,3,4,|
00004890  35 3a 0d 21 70 31 ff 28  22 4c 4f 41 44 20 22 2b  |5:.!p1.("LOAD "+|
000048a0  77 68 61 74 24 2b 22 20  22 2b c3 7e 28 73 61 6d  |what$+" "+.~(sam|
000048b0  70 61 64 64 72 25 28 77  68 65 72 65 25 29 2b 39  |paddr%(where%)+9|
000048c0  32 29 29 0d 21 7a 05 cb  0d 21 84 1b 73 6e 61 6d  |2)).!z...!..snam|
000048d0  65 24 3d a4 6c 65 61 66  6e 61 6d 65 28 77 68 61  |e$=.leafname(wha|
000048e0  74 24 29 0d 21 8e 16 73  6e 61 6d 65 24 3d c0 73  |t$).!..sname$=.s|
000048f0  6e 61 6d 65 24 2c 32 30  29 0d 21 98 0b 72 6c 65  |name$,20).!..rle|
00004900  6e 25 3d 32 0d 21 a2 0b  72 6f 66 73 25 3d 30 0d  |n%=2.!..rofs%=0.|
00004910  21 ac 19 61 74 25 3d 73  61 6d 70 61 64 64 72 25  |!..at%=sampaddr%|
00004920  28 77 68 65 72 65 25 29  0d 21 b6 19 61 74 25 21  |(where%).!..at%!|
00004930  34 3d 73 61 6d 70 66 69  6c 65 6c 65 6e 25 2b 38  |4=sampfilelen%+8|
00004940  34 0d 21 c0 25 f2 77 72  69 74 65 77 69 74 68 7a  |4.!.%.writewithz|
00004950  65 72 6f 73 28 73 6e 61  6d 65 24 2c 61 74 25 2b  |eros(sname$,at%+|
00004960  31 36 2c 32 30 29 0d 21  ca 10 61 74 25 21 38 30  |16,20).!..at%!80|
00004970  3d 72 6c 65 6e 25 0d 21  d4 10 61 74 25 21 36 38  |=rlen%.!..at%!68|
00004980  3d 72 6f 66 73 25 0d 21  de 17 61 74 25 21 35 36  |=rofs%.!..at%!56|
00004990  3d 73 61 6d 70 66 69 6c  65 6c 65 6e 25 0d 21 e8  |=sampfilelen%.!.|
000049a0  17 61 74 25 21 38 38 3d  73 61 6d 70 66 69 6c 65  |.at%!88=sampfile|
000049b0  6c 65 6e 25 0d 21 f2 0f  c8 8e 20 73 74 79 70 65  |len%.!.... stype|
000049c0  25 20 ca 0d 21 fc 08 c9  20 31 3a 0d 22 06 08 41  |% ..!... 1:."..A|
000049d0  25 3d 35 0d 22 10 0d 42  25 3d 61 74 25 2b 39 32  |%=5."..B%=at%+92|
000049e0  0d 22 1a 13 43 25 3d 73  61 6d 70 66 69 6c 65 6c  |."..C%=sampfilel|
000049f0  65 6e 25 0d 22 24 08 44  25 3d 30 0d 22 2e 12 d6  |en%."$.D%=0."...|
00004a00  20 74 72 61 63 6b 65 72  63 6f 64 65 25 0d 22 38  | trackercode%."8|
00004a10  0c c9 20 32 2c 36 2c 37  3a 0d 22 42 08 41 25 3d  |.. 2,6,7:."B.A%=|
00004a20  35 0d 22 4c 0d 42 25 3d  61 74 25 2b 39 32 0d 22  |5."L.B%=at%+92."|
00004a30  56 13 43 25 3d 73 61 6d  70 66 69 6c 65 6c 65 6e  |V.C%=sampfilelen|
00004a40  25 0d 22 60 08 44 25 3d  31 0d 22 6a 12 d6 20 74  |%."`.D%=1."j.. t|
00004a50  72 61 63 6b 65 72 63 6f  64 65 25 0d 22 74 0c c9  |rackercode%."t..|
00004a60  20 33 2c 34 2c 35 3a 0d  22 7e 08 41 25 3d 35 0d  | 3,4,5:."~.A%=5.|
00004a70  22 88 0d 42 25 3d 61 74  25 2b 39 32 0d 22 92 13  |"..B%=at%+92."..|
00004a80  43 25 3d 73 61 6d 70 66  69 6c 65 6c 65 6e 25 0d  |C%=sampfilelen%.|
00004a90  22 9c 0f 44 25 3d 73 74  79 70 65 25 2d 31 0d 22  |"..D%=stype%-1."|
00004aa0  a6 12 d6 20 74 72 61 63  6b 65 72 63 6f 64 65 25  |... trackercode%|
00004ab0  0d 22 b0 05 cb 0d 22 ba  10 f2 72 65 61 64 73 61  |."...."...readsa|
00004ac0  6d 70 6c 65 73 0d 22 c4  15 f2 77 72 69 74 65 73  |mples."...writes|
00004ad0  61 6d 70 6c 65 6e 61 6d  65 73 0d 22 ce 05 e1 0d  |amplenames."....|
00004ae0  22 d8 05 3a 0d 22 e2 1e  dd f2 77 72 69 74 65 77  |"..:."....writew|
00004af0  69 74 68 7a 65 72 6f 73  28 77 24 2c 61 25 2c 6c  |ithzeros(w$,a%,l|
00004b00  25 29 0d 22 ec 0f e3 20  63 25 3d 31 20 b8 20 6c  |%)."... c%=1 . l|
00004b10  25 0d 22 f6 08 62 25 3d  30 0d 23 00 21 e7 20 63  |%."..b%=0.#.!. c|
00004b20  25 3c 3d a9 28 77 24 29  20 8c 20 62 25 3d 97 28  |%<=.(w$) . b%=.(|
00004b30  c1 77 24 2c 63 25 2c 31  29 29 0d 23 0a 10 61 25  |.w$,c%,1)).#..a%|
00004b40  3f 28 63 25 2d 31 29 3d  62 25 0d 23 14 05 ed 0d  |?(c%-1)=b%.#....|
00004b50  23 1e 05 e1 0d 23 28 05  3a 0d 23 32 11 dd f2 65  |#....#(.:.#2...e|
00004b60  64 69 74 74 72 61 63 6b  65 72 0d 23 3c 17 e7 20  |dittracker.#<.. |
00004b70  74 75 6e 65 6c 6f 61 64  65 64 25 3d a3 20 8c 20  |tuneloaded%=. . |
00004b80  e1 0d 23 46 0d f2 73 74  6f 70 74 75 6e 65 0d 23  |..#F..stoptune.#|
00004b90  50 0e 6f 6c 64 6d 6f 64  65 25 3d eb 0d 23 5a 12  |P.oldmode%=..#Z.|
00004ba0  f2 72 65 77 72 69 74 65  73 74 65 72 65 6f 0d 23  |.rewritestereo.#|
00004bb0  64 08 eb 20 31 35 0d 23  6e 13 41 25 3d 74 72 61  |d.. 15.#n.A%=tra|
00004bc0  63 6b 65 72 74 75 6e 65  25 0d 23 78 08 42 25 3d  |ckertune%.#x.B%=|
00004bd0  30 0d 23 82 18 e7 20 6a  75 73 74 6c 6f 61 64 65  |0.#... justloade|
00004be0  64 25 20 8c 20 42 25 3d  31 0d 23 8c 14 d6 20 74  |d% . B%=1.#... t|
00004bf0  72 61 63 6b 65 72 63 6f  64 65 25 2b 34 0d 23 96  |rackercode%+4.#.|
00004c00  0c 2a 46 58 20 31 35 2c  30 0d 23 a0 1e c8 99 20  |.*FX 15,0.#.... |
00004c10  22 57 69 6d 70 5f 53 65  74 4d 6f 64 65 22 2c 6f  |"Wimp_SetMode",o|
00004c20  6c 64 6d 6f 64 65 25 0d  23 aa 12 f2 72 65 61 64  |ldmode%.#...read|
00004c30  6d 75 73 69 63 64 61 74  61 0d 23 b4 10 f2 72 65  |musicdata.#...re|
00004c40  61 64 73 61 6d 70 6c 65  73 0d 23 be 15 f2 77 72  |adsamples.#...wr|
00004c50  69 74 65 73 61 6d 70 6c  65 6e 61 6d 65 73 0d 23  |itesamplenames.#|
00004c60  c8 0d f2 74 75 6e 65 69  6e 66 6f 0d 23 d2 11 6a  |...tuneinfo.#..j|
00004c70  75 73 74 6c 6f 61 64 65  64 25 3d a3 0d 23 dc 16  |ustloaded%=..#..|
00004c80  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 34 2c 32  |.. "OS_Byte",4,2|
00004c90  2c 30 0d 23 e6 05 e1 0d  23 f0 05 3a 0d 23 fa 15  |,0.#....#..:.#..|
00004ca0  dd f2 6e 6f 74 65 6e 6f  75 67 68 74 6f 6c 6f 61  |..notenoughtoloa|
00004cb0  64 0d 24 04 11 f2 72 65  74 75 72 6e 6d 65 6d 6f  |d.$...returnmemo|
00004cc0  72 79 0d 24 0e 0d f2 63  6c 6f 73 65 61 6c 6c 0d  |ry.$...closeall.|
00004cd0  24 18 28 85 20 31 37 2c  22 49 6e 73 75 66 66 69  |$.(. 17,"Insuffi|
00004ce0  63 69 65 6e 74 20 4d 65  6d 6f 72 79 20 41 76 61  |cient Memory Ava|
00004cf0  69 6c 61 62 6c 65 22 0d  24 22 05 e1 0d 24 2c 05  |ilable".$"...$,.|
00004d00  3a 0d 24 36 12 dd f2 72  65 74 75 72 6e 6d 65 6d  |:.$6...returnmem|
00004d10  6f 72 79 0d 24 40 23 c8  99 20 22 58 57 69 6d 70  |ory.$@#.. "XWimp|
00004d20  5f 53 6c 6f 74 53 69 7a  65 22 2c 61 70 70 73 69  |_SlotSize",appsi|
00004d30  7a 65 25 2c 2d 31 0d 24  4a 11 74 75 6e 65 6c 6f  |ze%,-1.$J.tunelo|
00004d40  61 64 65 64 25 3d a3 0d  24 54 05 e1 0d 24 5e 05  |aded%=..$T...$^.|
00004d50  3a 0d 24 68 16 dd a4 67  72 61 62 6d 65 6d 28 61  |:.$h...grabmem(a|
00004d60  6d 6f 75 6e 74 25 29 0d  24 72 16 6f 6c 64 61 6d  |mount%).$r.oldam|
00004d70  6f 75 6e 74 25 3d 61 6d  6f 75 6e 74 25 0d 24 7c  |ount%=amount%.$||
00004d80  2d e7 20 61 6d 6f 75 6e  74 25 3c 66 72 65 65 6d  |-. amount%<freem|
00004d90  65 6d 25 20 8c 20 66 72  65 65 6d 65 6d 25 2d 3d  |em% . freemem%-=|
00004da0  61 6d 6f 75 6e 74 25 3a  3d b9 0d 24 86 05 f5 0d  |amount%:=..$....|
00004db0  24 90 20 67 72 61 62 61  62 6c 65 25 3d a4 67 72  |$. grabable%=.gr|
00004dc0  61 62 6d 65 6d 32 28 33  32 2a 31 30 32 34 29 0d  |abmem2(32*1024).|
00004dd0  24 9a 11 e7 20 67 72 61  62 61 62 6c 65 25 20 8c  |$... grabable% .|
00004de0  0d 24 a4 15 66 72 65 65  6d 65 6d 25 2b 3d 33 32  |.$..freemem%+=32|
00004df0  2a 31 30 32 34 0d 24 ae  14 61 6d 6f 75 6e 74 25  |*1024.$..amount%|
00004e00  2d 3d 33 32 2a 31 30 32  34 0d 24 b8 05 cd 0d 24  |-=32*1024.$....$|
00004e10  c2 1e fd 20 61 6d 6f 75  6e 74 25 3c 30 20 84 20  |... amount%<0 . |
00004e20  ac 28 67 72 61 62 61 62  6c 65 25 29 0d 24 cc 26  |.(grabable%).$.&|
00004e30  e7 20 61 6d 6f 75 6e 74  25 3c 30 20 8c 20 66 72  |. amount%<0 . fr|
00004e40  65 65 6d 65 6d 25 2d 3d  6f 6c 64 61 6d 6f 75 6e  |eemem%-=oldamoun|
00004e50  74 25 0d 24 d6 0e 3d 67  72 61 62 61 62 6c 65 25  |t%.$..=grabable%|
00004e60  0d 24 e0 05 3a 0d 24 ea  17 dd a4 67 72 61 62 6d  |.$..:.$....grabm|
00004e70  65 6d 32 28 61 6d 6f 75  6e 74 25 29 0d 24 f4 25  |em2(amount%).$.%|
00004e80  c8 99 20 22 58 57 69 6d  70 5f 53 6c 6f 74 53 69  |.. "XWimp_SlotSi|
00004e90  7a 65 22 2c 2d 31 2c 2d  31 20 b8 20 73 69 7a 65  |ze",-1,-1 . size|
00004ea0  25 0d 24 fe 28 c8 99 20  22 58 57 69 6d 70 5f 53  |%.$.(.. "XWimp_S|
00004eb0  6c 6f 74 53 69 7a 65 22  2c 73 69 7a 65 25 2b 61  |lotSize",size%+a|
00004ec0  6d 6f 75 6e 74 25 2c 2d  31 0d 25 08 26 c8 99 20  |mount%,-1.%.&.. |
00004ed0  22 58 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  |"XWimp_SlotSize"|
00004ee0  2c 2d 31 2c 2d 31 20 b8  20 73 69 7a 65 32 25 0d  |,-1,-1 . size2%.|
00004ef0  25 12 1c e7 20 73 69 7a  65 32 25 3c 73 69 7a 65  |%... size2%<size|
00004f00  25 2b 61 6d 6f 75 6e 74  25 20 8c 0d 25 1c 20 c8  |%+amount% ..%. .|
00004f10  99 20 22 58 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |. "XWimp_SlotSiz|
00004f20  65 22 2c 73 69 7a 65 25  2c 2d 31 0d 25 26 05 cd  |e",size%,-1.%&..|
00004f30  0d 25 30 24 e7 20 73 69  7a 65 32 25 3c 73 69 7a  |.%0$. size2%<siz|
00004f40  65 25 2b 61 6d 6f 75 6e  74 25 20 8c 20 3d a3 20  |e%+amount% . =. |
00004f50  8b 20 3d b9 0d 25 3a 05  3a 0d 25 44 12 dd f2 67  |. =..%:.:.%D...g|
00004f60  65 74 6d 75 73 69 63 69  6e 66 6f 0d 25 4e 12 f2  |etmusicinfo.%N..|
00004f70  72 65 61 64 6d 75 73 69  63 64 61 74 61 0d 25 58  |readmusicdata.%X|
00004f80  10 f2 72 65 61 64 73 61  6d 70 6c 65 73 0d 25 62  |..readsamples.%b|
00004f90  11 f2 72 65 61 64 70 61  74 74 65 72 6e 73 0d 25  |..readpatterns.%|
00004fa0  6c 05 e1 0d 25 76 05 3a  0d 25 80 0e dd f2 74 75  |l...%v.:.%....tu|
00004fb0  6e 65 69 6e 66 6f 0d 25  8a 24 f2 73 65 74 69 63  |neinfo.%.$.setic|
00004fc0  6f 6e 74 65 78 74 28 74  75 6e 65 69 6e 66 6f 25  |ontext(tuneinfo%|
00004fd0  2c 37 2c 6d 6e 61 6d 65  24 29 0d 25 94 24 f2 73  |,7,mname$).%.$.s|
00004fe0  65 74 69 63 6f 6e 74 65  78 74 28 74 75 6e 65 69  |eticontext(tunei|
00004ff0  6e 66 6f 25 2c 38 2c 61  6e 61 6d 65 24 29 0d 25  |nfo%,8,aname$).%|
00005000  9e 2a f2 73 65 74 69 63  6f 6e 74 65 78 74 28 74  |.*.seticontext(t|
00005010  75 6e 65 69 6e 66 6f 25  2c 39 2c c3 28 70 61 74  |uneinfo%,9,.(pat|
00005020  74 65 72 6e 73 25 29 29  0d 25 a8 29 f2 73 65 74  |terns%)).%.).set|
00005030  69 63 6f 6e 74 65 78 74  28 74 75 6e 65 69 6e 66  |icontext(tuneinf|
00005040  6f 25 2c 31 34 2c c3 28  76 6f 69 63 65 73 25 29  |o%,14,.(voices%)|
00005050  29 0d 25 b2 29 f2 73 65  74 69 63 6f 6e 74 65 78  |).%.).seticontex|
00005060  74 28 74 75 6e 65 69 6e  66 6f 25 2c 31 35 2c c3  |t(tuneinfo%,15,.|
00005070  28 73 65 71 6c 65 6e 25  29 29 0d 25 bc 0f f2 75  |(seqlen%)).%...u|
00005080  70 64 61 74 65 73 69 7a  65 0d 25 c6 05 e1 0d 25  |pdatesize.%....%|
00005090  d0 05 3a 0d 25 da 0e dd  f2 67 65 74 6e 61 6d 65  |..:.%....getname|
000050a0  73 0d 25 e4 21 6d 6e 61  6d 65 24 3d a4 69 63 6f  |s.%.!mname$=.ico|
000050b0  6e 74 65 78 74 28 74 75  6e 65 69 6e 66 6f 25 2c  |ntext(tuneinfo%,|
000050c0  37 29 0d 25 ee 21 61 6e  61 6d 65 24 3d a4 69 63  |7).%.!aname$=.ic|
000050d0  6f 6e 74 65 78 74 28 74  75 6e 65 69 6e 66 6f 25  |ontext(tuneinfo%|
000050e0  2c 38 29 0d 25 f8 05 e1  0d 26 02 05 3a 0d 26 0c  |,8).%....&..:.&.|
000050f0  0d dd f2 73 61 6d 70 6c  65 73 0d 26 16 1b f2 6f  |...samples.&...o|
00005100  70 65 6e 77 69 6e 64 6f  77 28 73 61 6d 70 6c 65  |penwindow(sample|
00005110  73 25 2c 30 29 0d 26 20  05 e1 0d 26 2a 05 3a 0d  |s%,0).& ...&*.:.|
00005120  26 34 16 dd f2 77 72 69  74 65 73 61 6d 70 6c 65  |&4...writesample|
00005130  6e 61 6d 65 73 0d 26 3e  14 e3 20 73 61 6d 70 6c  |names.&>.. sampl|
00005140  65 25 3d 31 20 b8 20 33  36 0d 26 48 15 69 63 6f  |e%=1 . 36.&H.ico|
00005150  6e 25 3d 73 61 6d 70 6c  65 25 2b 31 30 37 0d 26  |n%=sample%+107.&|
00005160  52 1b 73 6e 61 6d 65 24  3d 73 61 6d 70 6c 65 24  |R.sname$=sample$|
00005170  28 73 61 6d 70 6c 65 25  29 0d 26 5c 18 73 6c 65  |(sample%).&\.sle|
00005180  6e 25 3d 73 6c 65 6e 25  28 73 61 6d 70 6c 65 25  |n%=slen%(sample%|
00005190  29 0d 26 66 12 73 6c 65  6e 24 3d c3 28 73 6c 65  |).&f.slen$=.(sle|
000051a0  6e 25 29 0d 26 70 18 e7  20 73 6c 65 6e 25 3d 30  |n%).&p.. slen%=0|
000051b0  20 8c 20 73 6c 65 6e 24  3d 22 22 0d 26 7a 20 73  | . slen$="".&z s|
000051c0  6c 65 6e 24 3d c4 35 2d  a9 28 73 6c 65 6e 24 29  |len$=.5-.(slen$)|
000051d0  2c 22 20 22 29 2b 73 6c  65 6e 24 0d 26 84 24 73  |," ")+slen$.&.$s|
000051e0  6e 61 6d 65 24 3d 73 6e  61 6d 65 24 2b c4 32 32  |name$=sname$+.22|
000051f0  2d a9 28 73 6e 61 6d 65  24 29 2c 22 20 22 29 0d  |-.(sname$)," ").|
00005200  26 8e 31 f2 73 65 74 69  63 6f 6e 74 65 78 74 28  |&.1.seticontext(|
00005210  73 61 6d 70 6c 65 73 25  2c 69 63 6f 6e 25 2c 73  |samples%,icon%,s|
00005220  6e 61 6d 65 24 2b 22 20  22 2b 73 6c 65 6e 24 29  |name$+" "+slen$)|
00005230  0d 26 98 05 ed 0d 26 a2  05 e1 0d 26 ac 05 3a 0d  |.&....&....&..:.|
00005240  26 b6 21 dd a4 66 69 6e  64 77 6f 72 64 28 73 74  |&.!..findword(st|
00005250  61 72 74 25 2c 65 6e 64  25 2c 77 6f 72 64 25 29  |art%,end%,word%)|
00005260  0d 26 c0 0d 41 25 3d 73  74 61 72 74 25 0d 26 ca  |.&..A%=start%.&.|
00005270  0b 42 25 3d 65 6e 64 25  0d 26 d4 05 f5 0d 26 de  |.B%=end%.&....&.|
00005280  0a 43 25 3d 21 41 25 0d  26 e8 0b 44 25 3d 41 25  |.C%=!A%.&..D%=A%|
00005290  21 34 0d 26 f2 09 41 25  2b 3d 38 0d 26 fc 18 e7  |!4.&..A%+=8.&...|
000052a0  20 43 25 3c 3e 77 6f 72  64 25 20 8c 20 41 25 2b  | C%<>word% . A%+|
000052b0  3d 44 25 0d 27 06 16 fd  20 41 25 3e 42 25 20 84  |=D%.'... A%>B% .|
000052c0  20 43 25 3d 77 6f 72 64  25 0d 27 10 14 e7 20 43  | C%=word%.'... C|
000052d0  25 3d 77 6f 72 64 25 20  8c 20 3d 41 25 0d 27 1a  |%=word% . =A%.'.|
000052e0  06 3d a3 0d 27 24 05 3a  0d 27 2e 11 dd a4 77 6f  |.=..'$.:.'....wo|
000052f0  72 64 28 77 6f 72 64 24  29 0d 27 38 0b 77 6f 72  |rd(word$).'8.wor|
00005300  64 25 3d 30 0d 27 42 11  e3 20 62 79 74 65 25 3d  |d%=0.'B.. byte%=|
00005310  31 20 b8 20 34 0d 27 4c  1d 61 73 63 25 3d 97 28  |1 . 4.'L.asc%=.(|
00005320  c1 77 6f 72 64 24 2c 35  2d 62 79 74 65 25 2c 31  |.word$,5-byte%,1|
00005330  29 29 0d 27 56 19 77 6f  72 64 25 3d 28 77 6f 72  |)).'V.word%=(wor|
00005340  64 25 3c 3c 38 29 2b 61  73 63 25 0d 27 60 05 ed  |d%<<8)+asc%.'`..|
00005350  0d 27 6a 0a 3d 77 6f 72  64 25 0d 27 74 05 3a 0d  |.'j.=word%.'t.:.|
00005360  27 7e 13 dd f2 72 65 61  64 6d 75 73 69 63 64 61  |'~...readmusicda|
00005370  74 61 0d 27 88 1a 61 62  73 73 74 61 72 74 25 3d  |ta.'..absstart%=|
00005380  74 72 61 63 6b 65 72 74  75 6e 65 25 0d 27 92 2b  |trackertune%.'.+|
00005390  61 62 73 65 6e 64 25 3d  74 72 61 63 6b 65 72 74  |absend%=trackert|
000053a0  75 6e 65 25 2b 28 74 72  61 63 6b 65 72 74 75 6e  |une%+(trackertun|
000053b0  65 25 21 34 29 2b 38 0d  27 9c 10 61 62 73 73 74  |e%!4)+8.'..absst|
000053c0  61 72 74 25 2b 3d 38 0d  27 a6 17 6d 6c 65 6e 25  |art%+=8.'..mlen%|
000053d0  3d a4 77 6f 72 64 28 22  4d 4c 45 4e 22 29 0d 27  |=.word("MLEN").'|
000053e0  b0 17 6d 76 6f 78 25 3d  a4 77 6f 72 64 28 22 4d  |..mvox%=.word("M|
000053f0  56 4f 58 22 29 0d 27 ba  17 70 6e 75 6d 25 3d a4  |VOX").'..pnum%=.|
00005400  77 6f 72 64 28 22 50 4e  55 4d 22 29 0d 27 c4 17  |word("PNUM").'..|
00005410  6d 6e 61 6d 25 3d a4 77  6f 72 64 28 22 4d 4e 41  |mnam%=.word("MNA|
00005420  4d 22 29 0d 27 ce 17 61  6e 61 6d 25 3d a4 77 6f  |M").'..anam%=.wo|
00005430  72 64 28 22 41 4e 41 4d  22 29 0d 27 d8 17 70 6c  |rd("ANAM").'..pl|
00005440  65 6e 25 3d a4 77 6f 72  64 28 22 50 4c 45 4e 22  |en%=.word("PLEN"|
00005450  29 0d 27 e2 17 73 74 65  72 25 3d a4 77 6f 72 64  |).'..ster%=.word|
00005460  28 22 53 54 45 52 22 29  0d 27 ec 17 73 65 71 75  |("STER").'..sequ|
00005470  25 3d a4 77 6f 72 64 28  22 53 45 51 55 22 29 0d  |%=.word("SEQU").|
00005480  27 f6 30 6d 6c 65 6e 61  64 64 72 25 3d a4 66 69  |'.0mlenaddr%=.fi|
00005490  6e 64 77 6f 72 64 28 61  62 73 73 74 61 72 74 25  |ndword(absstart%|
000054a0  2c 61 62 73 65 6e 64 25  2c 6d 6c 65 6e 25 29 0d  |,absend%,mlen%).|
000054b0  28 00 16 73 65 71 6c 65  6e 25 3d 21 6d 6c 65 6e  |(..seqlen%=!mlen|
000054c0  61 64 64 72 25 0d 28 0a  30 6d 76 6f 78 61 64 64  |addr%.(.0mvoxadd|
000054d0  72 25 3d a4 66 69 6e 64  77 6f 72 64 28 61 62 73  |r%=.findword(abs|
000054e0  73 74 61 72 74 25 2c 61  62 73 65 6e 64 25 2c 6d  |start%,absend%,m|
000054f0  76 6f 78 25 29 0d 28 14  16 76 6f 69 63 65 73 25  |vox%).(..voices%|
00005500  3d 21 6d 76 6f 78 61 64  64 72 25 0d 28 1e 30 73  |=!mvoxaddr%.(.0s|
00005510  74 65 72 61 64 64 72 25  3d a4 66 69 6e 64 77 6f  |teraddr%=.findwo|
00005520  72 64 28 61 62 73 73 74  61 72 74 25 2c 61 62 73  |rd(absstart%,abs|
00005530  65 6e 64 25 2c 73 74 65  72 25 29 0d 28 28 30 70  |end%,ster%).((0p|
00005540  6e 75 6d 61 64 64 72 25  3d a4 66 69 6e 64 77 6f  |numaddr%=.findwo|
00005550  72 64 28 61 62 73 73 74  61 72 74 25 2c 61 62 73  |rd(absstart%,abs|
00005560  65 6e 64 25 2c 70 6e 75  6d 25 29 0d 28 32 18 70  |end%,pnum%).(2.p|
00005570  61 74 74 65 72 6e 73 25  3d 21 70 6e 75 6d 61 64  |atterns%=!pnumad|
00005580  64 72 25 0d 28 3c 30 6d  6e 61 6d 61 64 64 72 25  |dr%.(<0mnamaddr%|
00005590  3d a4 66 69 6e 64 77 6f  72 64 28 61 62 73 73 74  |=.findword(absst|
000055a0  61 72 74 25 2c 61 62 73  65 6e 64 25 2c 6d 6e 61  |art%,absend%,mna|
000055b0  6d 25 29 0d 28 46 30 61  6e 61 6d 61 64 64 72 25  |m%).(F0anamaddr%|
000055c0  3d a4 66 69 6e 64 77 6f  72 64 28 61 62 73 73 74  |=.findword(absst|
000055d0  61 72 74 25 2c 61 62 73  65 6e 64 25 2c 61 6e 61  |art%,absend%,ana|
000055e0  6d 25 29 0d 28 50 29 61  6e 61 6d 65 24 3d a4 73  |m%).(P)aname$=.s|
000055f0  74 72 69 6e 67 77 69 74  68 6c 69 6d 69 74 28 61  |tringwithlimit(a|
00005600  6e 61 6d 61 64 64 72 25  2c 33 32 29 0d 28 5a 29  |namaddr%,32).(Z)|
00005610  6d 6e 61 6d 65 24 3d a4  73 74 72 69 6e 67 77 69  |mname$=.stringwi|
00005620  74 68 6c 69 6d 69 74 28  6d 6e 61 6d 61 64 64 72  |thlimit(mnamaddr|
00005630  25 2c 33 32 29 0d 28 64  2f 70 61 74 74 6c 65 6e  |%,32).(d/pattlen|
00005640  25 3d a4 66 69 6e 64 77  6f 72 64 28 61 62 73 73  |%=.findword(abss|
00005650  74 61 72 74 25 2c 61 62  73 65 6e 64 25 2c 70 6c  |tart%,absend%,pl|
00005660  65 6e 25 29 0d 28 6e 2f  73 65 71 61 64 64 72 25  |en%).(n/seqaddr%|
00005670  3d a4 66 69 6e 64 77 6f  72 64 28 61 62 73 73 74  |=.findword(absst|
00005680  61 72 74 25 2c 61 62 73  65 6e 64 25 2c 73 65 71  |art%,absend%,seq|
00005690  75 25 29 0d 28 78 05 e1  0d 28 82 05 3a 0d 28 8c  |u%).(x...(..:.(.|
000056a0  11 dd f2 72 65 61 64 73  61 6d 70 6c 65 73 0d 28  |...readsamples.(|
000056b0  96 1a 61 62 73 73 74 61  72 74 25 3d 74 72 61 63  |..absstart%=trac|
000056c0  6b 65 72 74 75 6e 65 25  0d 28 a0 2b 61 62 73 65  |kertune%.(.+abse|
000056d0  6e 64 25 3d 74 72 61 63  6b 65 72 74 75 6e 65 25  |nd%=trackertune%|
000056e0  2b 28 74 72 61 63 6b 65  72 74 75 6e 65 25 21 34  |+(trackertune%!4|
000056f0  29 2b 38 0d 28 aa 10 61  62 73 73 74 61 72 74 25  |)+8.(..absstart%|
00005700  2b 3d 38 0d 28 b4 17 73  61 6d 70 25 3d a4 77 6f  |+=8.(..samp%=.wo|
00005710  72 64 28 22 53 41 4d 50  22 29 0d 28 be 17 73 6e  |rd("SAMP").(..sn|
00005720  61 6d 25 3d a4 77 6f 72  64 28 22 53 4e 41 4d 22  |am%=.word("SNAM"|
00005730  29 0d 28 c8 17 73 6c 65  6e 25 3d a4 77 6f 72 64  |).(..slen%=.word|
00005740  28 22 53 4c 45 4e 22 29  0d 28 d2 17 73 76 6f 6c  |("SLEN").(..svol|
00005750  25 3d a4 77 6f 72 64 28  22 53 56 4f 4c 22 29 0d  |%=.word("SVOL").|
00005760  28 dc 14 73 74 61 72 74  25 3d 61 62 73 73 74 61  |(..start%=abssta|
00005770  72 74 25 0d 28 e6 12 e3  20 69 6e 73 74 25 3d 31  |rt%.(... inst%=1|
00005780  20 b8 20 33 36 0d 28 f0  2f 73 61 6d 70 6c 65 61  | . 36.(./samplea|
00005790  64 64 72 25 3d a4 66 69  6e 64 77 6f 72 64 28 73  |ddr%=.findword(s|
000057a0  74 61 72 74 25 2c 61 62  73 65 6e 64 25 2c 73 61  |tart%,absend%,sa|
000057b0  6d 70 25 29 0d 28 fa 22  73 61 6d 70 61 64 64 72  |mp%).(."sampaddr|
000057c0  25 28 69 6e 73 74 25 29  3d 73 61 6d 70 6c 65 61  |%(inst%)=samplea|
000057d0  64 64 72 25 2d 38 0d 29  04 1b 73 65 61 72 63 68  |ddr%-8.)..search|
000057e0  61 64 64 72 25 3d 73 61  6d 70 6c 65 61 64 64 72  |addr%=sampleaddr|
000057f0  25 0d 29 0e 32 73 6e 61  6d 61 64 64 72 25 3d a4  |%.).2snamaddr%=.|
00005800  66 69 6e 64 77 6f 72 64  28 73 65 61 72 63 68 61  |findword(searcha|
00005810  64 64 72 25 2c 61 62 73  65 6e 64 25 2c 73 6e 61  |ddr%,absend%,sna|
00005820  6d 25 29 0d 29 18 31 73  61 6d 70 6c 65 24 28 69  |m%).).1sample$(i|
00005830  6e 73 74 25 29 3d a4 73  74 72 69 6e 67 77 69 74  |nst%)=.stringwit|
00005840  68 6c 69 6d 69 74 28 73  6e 61 6d 61 64 64 72 25  |hlimit(snamaddr%|
00005850  2c 32 30 29 0d 29 22 32  73 6c 65 6e 61 64 64 72  |,20).)"2slenaddr|
00005860  25 3d a4 66 69 6e 64 77  6f 72 64 28 73 65 61 72  |%=.findword(sear|
00005870  63 68 61 64 64 72 25 2c  61 62 73 65 6e 64 25 2c  |chaddr%,absend%,|
00005880  73 6c 65 6e 25 29 0d 29  2c 27 73 6c 65 6e 25 28  |slen%).),'slen%(|
00005890  69 6e 73 74 25 29 3d 34  2a 28 28 21 73 6c 65 6e  |inst%)=4*((!slen|
000058a0  61 64 64 72 25 2b 33 29  20 81 20 34 29 0d 29 36  |addr%+3) . 4).)6|
000058b0  1b 21 73 6c 65 6e 61 64  64 72 25 3d 73 6c 65 6e  |.!slenaddr%=slen|
000058c0  25 28 69 6e 73 74 25 29  0d 29 40 39 73 76 6f 6c  |%(inst%).)@9svol|
000058d0  61 64 64 72 25 28 69 6e  73 74 25 29 3d a4 66 69  |addr%(inst%)=.fi|
000058e0  6e 64 77 6f 72 64 28 73  65 61 72 63 68 61 64 64  |ndword(searchadd|
000058f0  72 25 2c 61 62 73 65 6e  64 25 2c 73 76 6f 6c 25  |r%,absend%,svol%|
00005900  29 0d 29 4a 27 73 74 61  72 74 25 3d 73 61 6d 70  |).)J'start%=samp|
00005910  6c 65 61 64 64 72 25 2b  21 28 73 61 6d 70 6c 65  |leaddr%+!(sample|
00005920  61 64 64 72 25 2d 34 29  0d 29 54 05 ed 0d 29 5e  |addr%-4).)T...)^|
00005930  05 e1 0d 29 68 05 3a 0d  29 72 12 dd f2 72 65 61  |...)h.:.)r...rea|
00005940  64 70 61 74 74 65 72 6e  73 0d 29 7c 15 ea 20 73  |dpatterns.)|.. s|
00005950  74 61 72 74 25 2c 70 61  74 74 65 72 6e 25 0d 29  |tart%,pattern%.)|
00005960  86 1a 61 62 73 73 74 61  72 74 25 3d 74 72 61 63  |..absstart%=trac|
00005970  6b 65 72 74 75 6e 65 25  0d 29 90 2b 61 62 73 65  |kertune%.).+abse|
00005980  6e 64 25 3d 74 72 61 63  6b 65 72 74 75 6e 65 25  |nd%=trackertune%|
00005990  2b 28 74 72 61 63 6b 65  72 74 75 6e 65 25 21 34  |+(trackertune%!4|
000059a0  29 2b 38 0d 29 9a 10 61  62 73 73 74 61 72 74 25  |)+8.)..absstart%|
000059b0  2b 3d 38 0d 29 a4 14 73  74 61 72 74 25 3d 61 62  |+=8.)..start%=ab|
000059c0  73 73 74 61 72 74 25 0d  29 ae 17 70 61 74 74 25  |sstart%.)..patt%|
000059d0  3d a4 77 6f 72 64 28 22  50 41 54 54 22 29 0d 29  |=.word("PATT").)|
000059e0  b8 1c e3 20 70 61 74 74  65 72 6e 25 3d 31 20 b8  |... pattern%=1 .|
000059f0  20 70 61 74 74 65 72 6e  73 25 0d 29 c2 37 70 61  | patterns%.).7pa|
00005a00  74 74 61 64 64 72 25 28  70 61 74 74 65 72 6e 25  |ttaddr%(pattern%|
00005a10  29 3d a4 66 69 6e 64 77  6f 72 64 28 73 74 61 72  |)=.findword(star|
00005a20  74 25 2c 61 62 73 65 6e  64 25 2c 70 61 74 74 25  |t%,absend%,patt%|
00005a30  29 0d 29 cc 37 73 74 61  72 74 25 3d 70 61 74 74  |).).7start%=patt|
00005a40  61 64 64 72 25 28 70 61  74 74 65 72 6e 25 29 2b  |addr%(pattern%)+|
00005a50  21 28 70 61 74 74 61 64  64 72 25 28 70 61 74 74  |!(pattaddr%(patt|
00005a60  65 72 6e 25 29 2d 34 29  0d 29 d6 05 ed 0d 29 e0  |ern%)-4).)....).|
00005a70  05 e1 0d 29 ea 05 3a 0d  29 f4 10 dd f2 6e 65 77  |...)..:.)....new|
00005a80  70 61 74 74 65 72 6e 0d  29 fe 16 e7 20 70 61 74  |pattern.)... pat|
00005a90  74 65 72 6e 73 25 3d 36  34 20 8c 20 e1 0d 2a 08  |terns%=64 . ..*.|
00005aa0  1e f2 6d 61 6b 65 73 65  6c 65 63 74 65 64 28 74  |..makeselected(t|
00005ab0  75 6e 65 69 6e 66 6f 25  2c 36 29 0d 2a 12 1e 65  |uneinfo%,6).*..e|
00005ac0  61 63 68 70 61 74 25 3d  34 2a 70 61 74 6c 65 6e  |achpat%=4*patlen|
00005ad0  25 2a 76 6f 69 63 65 73  25 0d 2a 1c 42 73 74 61  |%*voices%.*.Bsta|
00005ae0  72 74 25 3d 70 61 74 74  61 64 64 72 25 28 70 61  |rt%=pattaddr%(pa|
00005af0  74 74 65 72 6e 73 25 29  2b 28 34 2a 76 6f 69 63  |tterns%)+(4*voic|
00005b00  65 73 25 2a 70 61 74 74  6c 65 6e 25 3f 28 70 61  |es%*pattlen%?(pa|
00005b10  74 74 65 72 6e 73 25 2d  31 29 29 0d 2a 26 27 e7  |tterns%-1)).*&'.|
00005b20  20 a4 69 6e 73 65 72 74  62 79 74 65 73 28 73 74  | .insertbytes(st|
00005b30  61 72 74 25 2c 65 61 63  68 70 61 74 25 2b 38 29  |art%,eachpat%+8)|
00005b40  20 8c 0d 2a 30 1a 73 74  61 72 74 25 21 30 3d a4  | ..*0.start%!0=.|
00005b50  77 6f 72 64 28 22 50 41  54 54 22 29 0d 2a 3a 15  |word("PATT").*:.|
00005b60  73 74 61 72 74 25 21 34  3d 65 61 63 68 70 61 74  |start%!4=eachpat|
00005b70  25 0d 2a 44 0d 73 74 61  72 74 25 2b 3d 38 0d 2a  |%.*D.start%+=8.*|
00005b80  4e 1e e3 20 77 6f 72 64  25 3d 30 20 b8 20 28 65  |N.. word%=0 . (e|
00005b90  61 63 68 70 61 74 25 2f  34 29 2d 31 0d 2a 58 16  |achpat%/4)-1.*X.|
00005ba0  73 74 61 72 74 25 21 28  77 6f 72 64 25 2a 34 29  |start%!(word%*4)|
00005bb0  3d 30 0d 2a 62 05 ed 0d  2a 6c 1e 70 61 74 74 6c  |=0.*b...*l.pattl|
00005bc0  65 6e 25 3f 70 61 74 74  65 72 6e 73 25 3d 70 61  |en%?patterns%=pa|
00005bd0  74 6c 65 6e 25 0d 2a 76  10 70 61 74 74 65 72 6e  |tlen%.*v.pattern|
00005be0  73 25 2b 3d 31 0d 2a 80  18 21 70 6e 75 6d 61 64  |s%+=1.*..!pnumad|
00005bf0  64 72 25 3d 70 61 74 74  65 72 6e 73 25 0d 2a 8a  |dr%=patterns%.*.|
00005c00  11 f2 67 65 74 6d 75 73  69 63 69 6e 66 6f 0d 2a  |..getmusicinfo.*|
00005c10  94 05 cd 0d 2a 9e 20 f2  6d 61 6b 65 75 6e 73 65  |....*. .makeunse|
00005c20  6c 65 63 74 65 64 28 74  75 6e 65 69 6e 66 6f 25  |lected(tuneinfo%|
00005c30  2c 36 29 0d 2a a8 0d f2  74 75 6e 65 69 6e 66 6f  |,6).*...tuneinfo|
00005c40  0d 2a b2 05 e1 0d 2a bc  05 3a 0d 2a c6 22 dd a4  |.*....*..:.*."..|
00005c50  69 6e 73 65 72 74 62 79  74 65 73 28 77 68 65 72  |insertbytes(wher|
00005c60  65 25 2c 68 6f 77 6d 61  6e 79 25 29 0d 2a d0 20  |e%,howmany%).*. |
00005c70  e7 20 ac 28 a4 67 72 61  62 6d 65 6d 28 68 6f 77  |. .(.grabmem(how|
00005c80  6d 61 6e 79 25 29 29 20  8c 20 3d a3 0d 2a da 29  |many%)) . =..*.)|
00005c90  66 72 6f 6d 25 3d 74 72  61 63 6b 65 72 74 75 6e  |from%=trackertun|
00005ca0  65 25 2b 74 72 61 63 6b  65 72 74 75 6e 65 25 21  |e%+trackertune%!|
00005cb0  34 2b 38 2d 31 0d 2a e4  16 74 6f 25 3d 66 72 6f  |4+8-1.*..to%=fro|
00005cc0  6d 25 2b 68 6f 77 6d 61  6e 79 25 0d 2a ee 16 63  |m%+howmany%.*..c|
00005cd0  6f 70 79 25 3d 66 72 6f  6d 25 2d 77 68 65 72 65  |opy%=from%-where|
00005ce0  25 0d 2a f8 0c 41 25 3d  66 72 6f 6d 25 0d 2b 02  |%.*..A%=from%.+.|
00005cf0  0a 42 25 3d 74 6f 25 0d  2b 0c 0e 43 25 3d 63 6f  |.B%=to%.+..C%=co|
00005d00  70 79 25 2b 31 0d 2b 16  18 e7 20 43 25 3e 30 20  |py%+1.+... C%>0 |
00005d10  d6 20 69 6e 73 65 72 74  62 79 74 65 73 0d 2b 20  |. insertbytes.+ |
00005d20  1c 74 72 61 63 6b 65 72  74 75 6e 65 25 21 34 2b  |.trackertune%!4+|
00005d30  3d 68 6f 77 6d 61 6e 79  25 0d 2b 2a 06 3d b9 0d  |=howmany%.+*.=..|
00005d40  2b 34 05 3a 0d 2b 3e 22  dd a4 64 65 6c 65 74 65  |+4.:.+>"..delete|
00005d50  62 79 74 65 73 28 77 68  65 72 65 25 2c 68 6f 77  |bytes(where%,how|
00005d60  6d 61 6e 79 25 29 0d 2b  48 16 41 25 3d 77 68 65  |many%).+H.A%=whe|
00005d70  72 65 25 2b 68 6f 77 6d  61 6e 79 25 0d 2b 52 0d  |re%+howmany%.+R.|
00005d80  42 25 3d 77 68 65 72 65  25 0d 2b 5c 2a 65 6e 64  |B%=where%.+\*end|
00005d90  61 64 64 72 25 3d 74 72  61 63 6b 65 72 74 75 6e  |addr%=trackertun|
00005da0  65 25 2b 74 72 61 63 6b  65 72 74 75 6e 65 25 21  |e%+trackertune%!|
00005db0  34 2b 38 0d 2b 66 12 43  25 3d 65 6e 64 61 64 64  |4+8.+f.C%=endadd|
00005dc0  72 25 2d 41 25 0d 2b 70  18 e7 20 43 25 3e 30 20  |r%-A%.+p.. C%>0 |
00005dd0  d6 20 64 65 6c 65 74 65  62 79 74 65 73 0d 2b 7a  |. deletebytes.+z|
00005de0  16 66 72 65 65 6d 65 6d  25 2b 3d 68 6f 77 6d 61  |.freemem%+=howma|
00005df0  6e 79 25 0d 2b 84 1c 74  72 61 63 6b 65 72 74 75  |ny%.+..trackertu|
00005e00  6e 65 25 21 34 2d 3d 68  6f 77 6d 61 6e 79 25 0d  |ne%!4-=howmany%.|
00005e10  2b 8e 06 3d b9 0d 2b 98  05 3a 0d 2b a2 0e dd f2  |+..=..+..:.+....|
00005e20  61 73 73 65 6d 62 6c 65  0d 2b ac 0e 66 72 6f 6d  |assemble.+..from|
00005e30  72 65 67 25 3d 30 0d 2b  b6 0c 74 6f 72 65 67 25  |reg%=0.+..toreg%|
00005e40  3d 31 0d 2b c0 0f 63 6f  75 6e 74 72 65 67 25 3d  |=1.+..countreg%=|
00005e50  32 0d 2b ca 11 6c 69 6e  6b 3d 31 34 3a 70 63 3d  |2.+..link=14:pc=|
00005e60  31 35 0d 2b d4 14 e3 20  70 61 73 73 3d 30 20 b8  |15.+... pass=0 .|
00005e70  20 32 20 88 20 32 0d 2b  de 0c 50 25 3d 63 6f 64  | 2 . 2.+..P%=cod|
00005e80  65 25 0d 2b e8 0d 5b 4f  50 54 20 70 61 73 73 0d  |e%.+..[OPT pass.|
00005e90  2b f2 10 2e 69 6e 73 65  72 74 62 79 74 65 73 0d  |+...insertbytes.|
00005ea0  2b fc 1b 4c 44 52 42 20  52 31 31 2c 5b 66 72 6f  |+..LDRB R11,[fro|
00005eb0  6d 72 65 67 25 5d 2c 23  2d 31 0d 2c 06 19 53 54  |mreg%],#-1.,..ST|
00005ec0  52 42 20 52 31 31 2c 5b  74 6f 72 65 67 25 5d 2c  |RB R11,[toreg%],|
00005ed0  23 2d 31 0d 2c 10 1f 53  55 42 53 20 63 6f 75 6e  |#-1.,..SUBS coun|
00005ee0  74 72 65 67 25 2c 63 6f  75 6e 74 72 65 67 25 2c  |treg%,countreg%,|
00005ef0  23 31 0d 2c 1a 13 42 4e  45 20 69 6e 73 65 72 74  |#1.,..BNE insert|
00005f00  62 79 74 65 73 0d 2c 24  0f 4d 4f 56 20 70 63 2c  |bytes.,$.MOV pc,|
00005f10  6c 69 6e 6b 0d 2c 2e 10  2e 64 65 6c 65 74 65 62  |link.,...deleteb|
00005f20  79 74 65 73 0d 2c 38 1a  4c 44 52 42 20 52 31 31  |ytes.,8.LDRB R11|
00005f30  2c 5b 66 72 6f 6d 72 65  67 25 5d 2c 23 31 0d 2c  |,[fromreg%],#1.,|
00005f40  42 18 53 54 52 42 20 52  31 31 2c 5b 74 6f 72 65  |B.STRB R11,[tore|
00005f50  67 25 5d 2c 23 31 0d 2c  4c 1f 53 55 42 53 20 63  |g%],#1.,L.SUBS c|
00005f60  6f 75 6e 74 72 65 67 25  2c 63 6f 75 6e 74 72 65  |ountreg%,countre|
00005f70  67 25 2c 23 31 0d 2c 56  13 42 4e 45 20 64 65 6c  |g%,#1.,V.BNE del|
00005f80  65 74 65 62 79 74 65 73  0d 2c 60 0f 4d 4f 56 20  |etebytes.,`.MOV |
00005f90  70 63 2c 6c 69 6e 6b 0d  2c 6a 0d 2e 63 6c 61 69  |pc,link.,j..clai|
00005fa0  6d 52 6d 61 0d 2c 74 0d  4d 4f 56 20 52 33 2c 52  |mRma.,t.MOV R3,R|
00005fb0  30 0d 2c 7e 0d 4d 4f 56  20 52 30 2c 23 36 0d 2c  |0.,~.MOV R0,#6.,|
00005fc0  88 14 53 57 49 20 22 58  4f 53 5f 4d 6f 64 75 6c  |..SWI "XOS_Modul|
00005fd0  65 22 0d 2c 92 0f 4d 4f  56 56 53 20 52 32 2c 23  |e".,..MOVVS R2,#|
00005fe0  30 0d 2c 9c 0d 4d 4f 56  20 52 30 2c 52 32 0d 2c  |0.,..MOV R0,R2.,|
00005ff0  a6 0f 4d 4f 56 20 70 63  2c 6c 69 6e 6b 0d 2c b0  |..MOV pc,link.,.|
00006000  0e 2e 63 6f 70 79 62 79  74 65 73 0d 2c ba 11 41  |..copybytes.,..A|
00006010  44 44 20 52 31 31 2c 52  32 2c 23 33 0d 2c c4 16  |DD R11,R2,#3.,..|
00006020  4d 4f 56 20 52 31 31 2c  52 31 31 2c 41 53 52 20  |MOV R11,R11,ASR |
00006030  23 32 0d 2c ce 12 2e 63  6f 70 79 62 79 74 65 73  |#2.,...copybytes|
00006040  6c 6f 6f 70 0d 2c d8 13  4c 44 52 20 52 31 30 2c  |loop.,..LDR R10,|
00006050  5b 52 30 5d 2c 23 34 0d  2c e2 13 53 54 52 20 52  |[R0],#4.,..STR R|
00006060  31 30 2c 5b 52 31 5d 2c  23 34 0d 2c ec 13 53 55  |10,[R1],#4.,..SU|
00006070  42 53 20 52 31 31 2c 52  31 31 2c 23 31 0d 2c f6  |BS R11,R11,#1.,.|
00006080  15 42 4e 45 20 63 6f 70  79 62 79 74 65 73 6c 6f  |.BNE copybyteslo|
00006090  6f 70 0d 2d 00 0f 4d 4f  56 20 70 63 2c 6c 69 6e  |op.-..MOV pc,lin|
000060a0  6b 0d 2d 0a 05 5d 0d 2d  14 05 ed 0d 2d 1e 05 e1  |k.-..].-....-...|
000060b0  0d 2d 28 05 3a 0d 2d 32  19 dd f2 73 61 76 65 73  |.-(.:.-2...saves|
000060c0  61 6d 70 6c 65 28 73 61  6d 70 6c 65 25 29 0d 2d  |ample(sample%).-|
000060d0  3c 22 6c 65 61 66 24 3d  a4 69 63 6f 6e 74 65 78  |<"leaf$=.icontex|
000060e0  74 28 73 61 76 65 73 61  6d 70 6c 65 25 2c 33 29  |t(savesample%,3)|
000060f0  0d 2d 46 22 70 61 74 68  24 3d a4 73 74 72 69 6e  |.-F"path$=.strin|
00006100  67 66 72 6f 6d 6d 65 6d  6f 72 79 28 71 25 2b 34  |gfrommemory(q%+4|
00006110  34 29 0d 2d 50 1c 70 61  74 68 24 3d c0 70 61 74  |4).-P.path$=.pat|
00006120  68 24 2c a9 28 70 61 74  68 24 29 2d 31 29 0d 2d  |h$,.(path$)-1).-|
00006130  5a 13 e7 20 73 61 76 65  68 65 61 64 65 72 25 20  |Z.. saveheader% |
00006140  8c 0d 2d 64 1d 73 74 61  72 74 25 3d 73 61 6d 70  |..-d.start%=samp|
00006150  61 64 64 72 25 28 73 61  6d 70 6c 65 25 29 0d 2d  |addr%(sample%).-|
00006160  6e 25 6c 65 6e 67 74 68  25 3d 21 28 73 61 6d 70  |n%length%=!(samp|
00006170  61 64 64 72 25 28 73 61  6d 70 6c 65 25 29 2b 34  |addr%(sample%)+4|
00006180  29 2b 38 0d 2d 78 05 cc  0d 2d 82 20 73 74 61 72  |)+8.-x...-. star|
00006190  74 25 3d 73 61 6d 70 61  64 64 72 25 28 73 61 6d  |t%=sampaddr%(sam|
000061a0  70 6c 65 25 29 2b 39 32  0d 2d 8c 1a 6c 65 6e 67  |ple%)+92.-..leng|
000061b0  74 68 25 3d 73 6c 65 6e  25 28 73 61 6d 70 6c 65  |th%=slen%(sample|
000061c0  25 29 0d 2d 96 05 cd 0d  2d a0 33 f2 73 61 76 65  |%).-....-.3.save|
000061d0  77 69 74 68 70 61 74 68  73 74 72 69 6e 67 28 6c  |withpathstring(l|
000061e0  65 61 66 24 2c 70 61 74  68 24 2c 73 74 61 72 74  |eaf$,path$,start|
000061f0  25 2c 6c 65 6e 67 74 68  25 29 0d 2d aa 26 f2 73  |%,length%).-.&.s|
00006200  65 74 66 69 6c 65 74 79  70 65 28 70 61 74 68 24  |etfiletype(path$|
00006210  2b 22 2e 22 2b 6c 65 61  66 24 2c 26 43 42 35 29  |+"."+leaf$,&CB5)|
00006220  0d 2d b4 1c c8 99 20 22  57 69 6d 70 5f 43 72 65  |.-.... "Wimp_Cre|
00006230  61 74 65 4d 65 6e 75 22  2c 2c 2d 31 0d 2d be 05  |ateMenu",,-1.-..|
00006240  e1 0d 2d c8 05 3a 0d 2d  d2 0e dd f2 73 61 76 65  |..-..:.-....save|
00006250  74 75 6e 65 0d 2d dc 38  f2 77 72 69 74 65 77 69  |tune.-.8.writewi|
00006260  74 68 7a 65 72 6f 73 28  a4 69 63 6f 6e 74 65 78  |thzeros(.icontex|
00006270  74 28 74 75 6e 65 69 6e  66 6f 25 2c 37 29 2c 6d  |t(tuneinfo%,7),m|
00006280  6e 61 6d 61 64 64 72 25  2c 33 32 29 0d 2d e6 38  |namaddr%,32).-.8|
00006290  f2 77 72 69 74 65 77 69  74 68 7a 65 72 6f 73 28  |.writewithzeros(|
000062a0  a4 69 63 6f 6e 74 65 78  74 28 74 75 6e 65 69 6e  |.icontext(tunein|
000062b0  66 6f 25 2c 38 29 2c 61  6e 61 6d 61 64 64 72 25  |fo%,8),anamaddr%|
000062c0  2c 33 32 29 0d 2d f0 12  f2 72 65 77 72 69 74 65  |,32).-...rewrite|
000062d0  73 74 65 72 65 6f 0d 2d  fa 20 6c 65 61 66 24 3d  |stereo.-. leaf$=|
000062e0  a4 69 63 6f 6e 74 65 78  74 28 73 61 76 65 74 75  |.icontext(savetu|
000062f0  6e 65 25 2c 33 29 0d 2e  04 1a 6c 65 61 66 24 3d  |ne%,3)....leaf$=|
00006300  a4 6c 65 61 66 6e 61 6d  65 28 6c 65 61 66 24 29  |.leafname(leaf$)|
00006310  0d 2e 0e 22 70 61 74 68  24 3d a4 73 74 72 69 6e  |..."path$=.strin|
00006320  67 66 72 6f 6d 6d 65 6d  6f 72 79 28 71 25 2b 34  |gfrommemory(q%+4|
00006330  34 29 0d 2e 18 1c 70 61  74 68 24 3d c0 70 61 74  |4)....path$=.pat|
00006340  68 24 2c a9 28 70 61 74  68 24 29 2d 31 29 0d 2e  |h$,.(path$)-1)..|
00006350  22 42 f2 73 61 76 65 77  69 74 68 70 61 74 68 73  |"B.savewithpaths|
00006360  74 72 69 6e 67 28 6c 65  61 66 24 2c 70 61 74 68  |tring(leaf$,path|
00006370  24 2c 74 72 61 63 6b 65  72 74 75 6e 65 25 2c 74  |$,trackertune%,t|
00006380  72 61 63 6b 65 72 74 75  6e 65 25 21 34 2b 38 29  |rackertune%!4+8)|
00006390  0d 2e 2c 26 f2 73 65 74  66 69 6c 65 74 79 70 65  |..,&.setfiletype|
000063a0  28 70 61 74 68 24 2b 22  2e 22 2b 6c 65 61 66 24  |(path$+"."+leaf$|
000063b0  2c 26 43 42 36 29 0d 2e  36 2d f2 73 65 74 69 63  |,&CB6)..6-.setic|
000063c0  6f 6e 74 65 78 74 28 73  61 76 65 74 75 6e 65 25  |ontext(savetune%|
000063d0  2c 33 2c 70 61 74 68 24  2b 22 2e 22 2b 6c 65 61  |,3,path$+"."+lea|
000063e0  66 24 29 0d 2e 40 1c c8  99 20 22 57 69 6d 70 5f  |f$)..@... "Wimp_|
000063f0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 2d 31 0d  |CreateMenu",,-1.|
00006400  2e 4a 05 e1 0d 2e 54 05  3a 0d 2e 5e 1c dd f2 64  |.J....T.:..^...d|
00006410  65 6c 65 74 65 73 61 6d  70 6c 65 28 73 61 6d 70  |eletesample(samp|
00006420  70 6f 73 25 29 0d 2e 68  1e 61 74 25 3d 73 61 6d  |pos%)..h.at%=sam|
00006430  70 61 64 64 72 25 28 73  61 6d 70 70 6f 73 25 29  |paddr%(samppos%)|
00006440  2b 39 32 0d 2e 72 1d 74  6f 64 65 6c 65 74 65 25  |+92..r.todelete%|
00006450  3d 73 6c 65 6e 25 28 73  61 6d 70 70 6f 73 25 29  |=slen%(samppos%)|
00006460  0d 2e 7c 26 64 75 6d 6d  79 25 3d a4 64 65 6c 65  |..|&dummy%=.dele|
00006470  74 65 62 79 74 65 73 28  61 74 25 2c 74 6f 64 65  |tebytes(at%,tode|
00006480  6c 65 74 65 25 29 0d 2e  86 1b 61 74 25 3d 73 61  |lete%)....at%=sa|
00006490  6d 70 61 64 64 72 25 28  73 61 6d 70 70 6f 73 25  |mpaddr%(samppos%|
000064a0  29 0d 2e 90 21 f2 77 72  69 74 65 77 69 74 68 7a  |)...!.writewithz|
000064b0  65 72 6f 73 28 22 22 2c  61 74 25 2b 31 36 2c 32  |eros("",at%+16,2|
000064c0  30 29 0d 2e 9a 0c 61 74  25 21 34 3d 38 34 0d 2e  |0)....at%!4=84..|
000064d0  a4 0c 61 74 25 21 35 36  3d 30 0d 2e ae 0c 61 74  |..at%!56=0....at|
000064e0  25 21 36 38 3d 30 0d 2e  b8 0c 61 74 25 21 38 30  |%!68=0....at%!80|
000064f0  3d 32 0d 2e c2 0c 61 74  25 21 38 38 3d 30 0d 2e  |=2....at%!88=0..|
00006500  cc 10 f2 72 65 61 64 73  61 6d 70 6c 65 73 0d 2e  |...readsamples..|
00006510  d6 15 f2 77 72 69 74 65  73 61 6d 70 6c 65 6e 61  |...writesamplena|
00006520  6d 65 73 0d 2e e0 0d f2  6d 69 6e 69 6d 69 73 65  |mes.....minimise|
00006530  0d 2e ea 0d f2 74 75 6e  65 69 6e 66 6f 0d 2e f4  |.....tuneinfo...|
00006540  05 e1 0d 2e fe 05 3a 0d  2f 08 10 dd f2 75 70 64  |......:./....upd|
00006550  61 74 65 73 69 7a 65 0d  2f 12 1a 73 69 7a 65 25  |atesize./..size%|
00006560  3d 74 72 61 63 6b 65 72  74 75 6e 65 25 21 34 2b  |=trackertune%!4+|
00006570  38 0d 2f 1c 20 6b 73 69  7a 65 25 3d a8 28 28 73  |8./. ksize%=.((s|
00006580  69 7a 65 25 2b 35 31 32  29 20 81 20 31 30 32 34  |ize%+512) . 1024|
00006590  29 0d 2f 26 2c f2 73 65  74 69 63 6f 6e 74 65 78  |)./&,.seticontex|
000065a0  74 28 74 75 6e 65 69 6e  66 6f 25 2c 31 39 2c c3  |t(tuneinfo%,19,.|
000065b0  28 6b 73 69 7a 65 25 29  2b 22 4b 22 29 0d 2f 30  |(ksize%)+"K")./0|
000065c0  30 f2 73 65 74 69 63 6f  6e 74 65 78 74 28 74 75  |0.seticontext(tu|
000065d0  6e 65 69 6e 66 6f 25 2c  32 30 2c c3 28 73 69 7a  |neinfo%,20,.(siz|
000065e0  65 25 29 2b 22 20 62 79  74 65 73 22 29 0d 2f 3a  |e%)+" bytes")./:|
000065f0  05 e1 0d 2f 44 05 3a 0d  2f 4e 0f dd f2 71 75 69  |.../D.:./N...qui|
00006600  63 6b 73 61 76 65 0d 2f  58 20 73 61 76 65 24 3d  |cksave./X save$=|
00006610  a4 69 63 6f 6e 74 65 78  74 28 73 61 76 65 74 75  |.icontext(savetu|
00006620  6e 65 25 2c 33 29 0d 2f  62 1e f2 6d 61 6b 65 73  |ne%,3)./b..makes|
00006630  65 6c 65 63 74 65 64 28  73 61 76 65 74 75 6e 65  |elected(savetune|
00006640  25 2c 34 29 0d 2f 6c 34  e7 20 a7 73 61 76 65 24  |%,4)./l4. .save$|
00006650  2c 22 2e 22 29 3d 30 20  8c 20 f2 6d 61 6b 65 75  |,".")=0 . .makeu|
00006660  6e 73 65 6c 65 63 74 65  64 28 73 61 76 65 74 75  |nselected(savetu|
00006670  6e 65 25 2c 34 29 3a e1  0d 2f 76 38 f2 77 72 69  |ne%,4):../v8.wri|
00006680  74 65 77 69 74 68 7a 65  72 6f 73 28 a4 69 63 6f  |tewithzeros(.ico|
00006690  6e 74 65 78 74 28 74 75  6e 65 69 6e 66 6f 25 2c  |ntext(tuneinfo%,|
000066a0  37 29 2c 6d 6e 61 6d 61  64 64 72 25 2c 33 32 29  |7),mnamaddr%,32)|
000066b0  0d 2f 80 38 f2 77 72 69  74 65 77 69 74 68 7a 65  |./.8.writewithze|
000066c0  72 6f 73 28 a4 69 63 6f  6e 74 65 78 74 28 74 75  |ros(.icontext(tu|
000066d0  6e 65 69 6e 66 6f 25 2c  38 29 2c 61 6e 61 6d 61  |neinfo%,8),anama|
000066e0  64 64 72 25 2c 33 32 29  0d 2f 8a 12 f2 72 65 77  |ddr%,32)./...rew|
000066f0  72 69 74 65 73 74 65 72  65 6f 0d 2f 94 17 73 74  |ritestereo./..st|
00006700  61 72 74 25 3d 74 72 61  63 6b 65 72 74 75 6e 65  |art%=trackertune|
00006710  25 0d 2f 9e 1c 6c 65 6e  67 74 68 25 3d 74 72 61  |%./..length%=tra|
00006720  63 6b 65 72 74 75 6e 65  25 21 34 2b 38 0d 2f a8  |ckertune%!4+8./.|
00006730  30 ff 28 22 53 41 56 45  20 22 2b 73 61 76 65 24  |0.("SAVE "+save$|
00006740  2b 22 20 22 2b c3 7e 73  74 61 72 74 25 2b 22 20  |+" "+.~start%+" |
00006750  2b 22 2b c3 7e 6c 65 6e  67 74 68 25 29 0d 2f b2  |+"+.~length%)./.|
00006760  1c f2 73 65 74 66 69 6c  65 74 79 70 65 28 73 61  |..setfiletype(sa|
00006770  76 65 24 2c 26 43 42 36  29 0d 2f bc 20 f2 6d 61  |ve$,&CB6)./. .ma|
00006780  6b 65 75 6e 73 65 6c 65  63 74 65 64 28 73 61 76  |keunselected(sav|
00006790  65 74 75 6e 65 25 2c 34  29 0d 2f c6 1c c8 99 20  |etune%,4)./.... |
000067a0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
000067b0  22 2c 2c 2d 31 0d 2f d0  05 e1 0d 2f da 05 3a 0d  |",,-1./..../..:.|
000067c0  2f e4 12 dd f2 69 6e 63  64 65 66 76 6f 69 63 65  |/....incdefvoice|
000067d0  73 0d 2f ee 22 e7 20 64  65 66 76 6f 69 63 65 73  |s./.". defvoices|
000067e0  25 3c 38 20 8c 20 64 65  66 76 6f 69 63 65 73 25  |%<8 . defvoices%|
000067f0  2b 3d 31 0d 2f f8 2b f2  73 65 74 69 63 6f 6e 74  |+=1./.+.seticont|
00006800  65 78 74 28 6e 65 77 74  72 61 63 6b 25 2c 35 2c  |ext(newtrack%,5,|
00006810  c3 28 64 65 66 76 6f 69  63 65 73 25 29 29 0d 30  |.(defvoices%)).0|
00006820  02 05 e1 0d 30 0c 05 3a  0d 30 16 12 dd f2 64 65  |....0..:.0....de|
00006830  63 64 65 66 76 6f 69 63  65 73 0d 30 20 22 e7 20  |cdefvoices.0 ". |
00006840  64 65 66 76 6f 69 63 65  73 25 3e 31 20 8c 20 64  |defvoices%>1 . d|
00006850  65 66 76 6f 69 63 65 73  25 2d 3d 31 0d 30 2a 2b  |efvoices%-=1.0*+|
00006860  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 6e 65 77  |.seticontext(new|
00006870  74 72 61 63 6b 25 2c 35  2c c3 28 64 65 66 76 6f  |track%,5,.(defvo|
00006880  69 63 65 73 25 29 29 0d  30 34 05 e1 0d 30 3e 05  |ices%)).04...0>.|
00006890  3a 0d 30 48 0f dd f2 63  6c 65 61 72 64 61 74 61  |:.0H...cleardata|
000068a0  0d 30 52 0c 61 62 6f 72  74 25 3d a3 0d 30 5c 13  |.0R.abort%=..0\.|
000068b0  e7 20 74 75 6e 65 6c 6f  61 64 65 64 25 20 8c 0d  |. tuneloaded% ..|
000068c0  30 66 41 65 72 72 6f 72  65 78 69 74 25 3d a4 65  |0fAerrorexit%=.e|
000068d0  72 72 6f 72 62 6f 78 28  31 37 2c 22 44 61 74 61  |rrorbox(17,"Data|
000068e0  20 77 69 6c 6c 20 62 65  20 6c 6f 73 74 20 2d 20  | will be lost - |
000068f0  61 72 65 20 79 6f 75 20  73 75 72 65 20 3f 22 29  |are you sure ?")|
00006900  0d 30 70 1d e7 20 65 72  72 6f 72 65 78 69 74 25  |.0p.. errorexit%|
00006910  3d 32 20 8c 20 61 62 6f  72 74 25 3d b9 0d 30 7a  |=2 . abort%=..0z|
00006920  05 cd 0d 30 84 10 e7 20  61 62 6f 72 74 25 20 8c  |...0... abort% .|
00006930  20 e1 0d 30 8e 11 f2 72  65 74 75 72 6e 6d 65 6d  | ..0...returnmem|
00006940  6f 72 79 0d 30 98 0d f2  73 74 6f 70 74 75 6e 65  |ory.0...stoptune|
00006950  0d 30 a2 0d f2 63 6c 6f  73 65 61 6c 6c 0d 30 ac  |.0...closeall.0.|
00006960  11 74 75 6e 65 6c 6f 61  64 65 64 25 3d a3 0d 30  |.tuneloaded%=..0|
00006970  b6 05 e1 0d 30 c0 05 3a  0d 30 ca 0e dd f2 63 6c  |....0..:.0....cl|
00006980  6f 73 65 61 6c 6c 0d 30  d4 1b f2 63 6c 6f 73 65  |oseall.0...close|
00006990  77 69 6e 64 6f 77 28 74  75 6e 65 69 6e 66 6f 25  |window(tuneinfo%|
000069a0  29 0d 30 de 1a f2 63 6c  6f 73 65 77 69 6e 64 6f  |).0...closewindo|
000069b0  77 28 73 61 6d 70 6c 65  73 25 29 0d 30 e8 19 f2  |w(samples%).0...|
000069c0  63 6c 6f 73 65 77 69 6e  64 6f 77 28 73 74 65 72  |closewindow(ster|
000069d0  65 6f 25 29 0d 30 f2 1e  f2 63 6c 6f 73 65 77 69  |eo%).0...closewi|
000069e0  6e 64 6f 77 28 63 6f 70  79 70 61 74 74 65 72 6e  |ndow(copypattern|
000069f0  25 29 0d 30 fc 19 f2 63  6c 6f 73 65 77 69 6e 64  |%).0...closewind|
00006a00  6f 77 28 70 6c 61 79 65  72 25 29 0d 31 06 1d f2  |ow(player%).1...|
00006a10  63 6c 6f 73 65 77 69 6e  64 6f 77 28 61 6d 65 6e  |closewindow(amen|
00006a20  64 74 72 61 63 6b 25 29  0d 31 10 05 e1 0d 31 1a  |dtrack%).1....1.|
00006a30  05 3a 0d 31 24 14 dd f2  63 72 65 61 74 65 74 75  |.:.1$...createtu|
00006a40  6e 65 28 76 25 29 0d 31  2e 0c 61 62 6f 72 74 25  |ne(v%).1..abort%|
00006a50  3d a3 0d 31 38 13 e7 20  74 75 6e 65 6c 6f 61 64  |=..18.. tuneload|
00006a60  65 64 25 20 8c 0d 31 42  49 65 72 72 6f 72 65 78  |ed% ..1BIerrorex|
00006a70  69 74 25 3d a4 65 72 72  6f 72 62 6f 78 28 31 37  |it%=.errorbox(17|
00006a80  2c 22 45 78 69 73 74 69  6e 67 20 74 75 6e 65 20  |,"Existing tune |
00006a90  77 69 6c 6c 20 62 65 20  6c 6f 73 74 20 2d 20 61  |will be lost - a|
00006aa0  72 65 20 79 6f 75 20 73  75 72 65 3f 22 29 0d 31  |re you sure?").1|
00006ab0  4c 1d e7 20 65 72 72 6f  72 65 78 69 74 25 3d 32  |L.. errorexit%=2|
00006ac0  20 8c 20 61 62 6f 72 74  25 3d b9 0d 31 56 1c e7  | . abort%=..1V..|
00006ad0  20 61 62 6f 72 74 25 3d  a3 20 f2 72 65 74 75 72  | abort%=. .retur|
00006ae0  6e 6d 65 6d 6f 72 79 0d  31 60 05 cd 0d 31 6a 28  |nmemory.1`...1j(|
00006af0  e7 20 61 62 6f 72 74 25  20 8c 20 f2 63 6c 6f 73  |. abort% . .clos|
00006b00  65 77 69 6e 64 6f 77 28  6e 65 77 74 72 61 63 6b  |ewindow(newtrack|
00006b10  25 29 3a e1 0d 31 74 0d  f2 73 74 6f 70 74 75 6e  |%):..1t..stoptun|
00006b20  65 0d 31 7e 1e f2 6d 61  6b 65 73 65 6c 65 63 74  |e.1~..makeselect|
00006b30  65 64 28 6e 65 77 74 72  61 63 6b 25 2c 32 29 0d  |ed(newtrack%,2).|
00006b40  31 88 18 6d 65 6d 6e 65  65 64 65 64 25 3d 33 36  |1..memneeded%=36|
00006b50  38 2b 33 36 2a 39 32 0d  31 92 17 6d 65 6d 6e 65  |8+36*92.1..memne|
00006b60  65 64 65 64 25 2b 3d 76  25 2a 36 34 2a 34 0d 31  |eded%+=v%*64*4.1|
00006b70  9c 0e 66 72 65 65 6d 65  6d 25 3d 30 0d 31 a6 1c  |..freemem%=0.1..|
00006b80  e7 20 a4 67 72 61 62 6d  65 6d 28 6d 65 6d 6e 65  |. .grabmem(memne|
00006b90  65 64 65 64 25 29 20 8c  0d 31 b0 08 6f 25 3d 30  |eded%) ..1..o%=0|
00006ba0  0d 31 ba 13 74 25 3d 74  72 61 63 6b 65 72 74 75  |.1..t%=trackertu|
00006bb0  6e 65 25 0d 31 c4 1f 74  25 21 6f 25 3d a4 77 6f  |ne%.1..t%!o%=.wo|
00006bc0  72 64 28 22 4d 55 53 58  22 29 20 3a 20 6f 25 2b  |rd("MUSX") : o%+|
00006bd0  3d 34 0d 31 ce 20 74 25  21 6f 25 3d 6d 65 6d 6e  |=4.1. t%!o%=memn|
00006be0  65 65 64 65 64 25 2d 38  20 20 20 3a 20 6f 25 2b  |eeded%-8   : o%+|
00006bf0  3d 34 0d 31 d8 1f 74 25  21 6f 25 3d a4 77 6f 72  |=4.1..t%!o%=.wor|
00006c00  64 28 22 54 49 4e 46 22  29 20 3a 20 6f 25 2b 3d  |d("TINF") : o%+=|
00006c10  34 0d 31 e2 20 74 25 21  6f 25 3d 34 20 20 20 20  |4.1. t%!o%=4    |
00006c20  20 20 20 20 20 20 20 20  20 20 3a 20 6f 25 2b 3d  |          : o%+=|
00006c30  34 0d 31 ec 20 74 25 21  6f 25 3d 30 20 20 20 20  |4.1. t%!o%=0    |
00006c40  20 20 20 20 20 20 20 20  20 20 3a 20 6f 25 2b 3d  |          : o%+=|
00006c50  34 0d 31 f6 1f 74 25 21  6f 25 3d a4 77 6f 72 64  |4.1..t%!o%=.word|
00006c60  28 22 4d 56 4f 58 22 29  20 3a 20 6f 25 2b 3d 34  |("MVOX") : o%+=4|
00006c70  0d 32 00 20 74 25 21 6f  25 3d 34 20 20 20 20 20  |.2. t%!o%=4     |
00006c80  20 20 20 20 20 20 20 20  20 3a 20 6f 25 2b 3d 34  |         : o%+=4|
00006c90  0d 32 0a 20 74 25 21 6f  25 3d 76 25 20 20 20 20  |.2. t%!o%=v%    |
00006ca0  20 20 20 20 20 20 20 20  20 3a 20 6f 25 2b 3d 34  |         : o%+=4|
00006cb0  0d 32 14 1f 74 25 21 6f  25 3d a4 77 6f 72 64 28  |.2..t%!o%=.word(|
00006cc0  22 53 54 45 52 22 29 20  3a 20 6f 25 2b 3d 34 0d  |"STER") : o%+=4.|
00006cd0  32 1e 20 74 25 21 6f 25  3d 38 20 20 20 20 20 20  |2. t%!o%=8      |
00006ce0  20 20 20 20 20 20 20 20  3a 20 6f 25 2b 3d 34 0d  |        : o%+=4.|
00006cf0  32 28 20 74 25 21 6f 25  3d 26 30 33 30 35 30 35  |2( t%!o%=&030505|
00006d00  30 33 20 20 20 20 20 20  3a 20 6f 25 2b 3d 34 0d  |03      : o%+=4.|
00006d10  32 32 20 74 25 21 6f 25  3d 26 30 33 30 35 30 35  |22 t%!o%=&030505|
00006d20  30 33 20 20 20 20 20 20  3a 20 6f 25 2b 3d 34 0d  |03      : o%+=4.|
00006d30  32 3c 1f 74 25 21 6f 25  3d a4 77 6f 72 64 28 22  |2<.t%!o%=.word("|
00006d40  4d 4e 41 4d 22 29 20 3a  20 6f 25 2b 3d 34 0d 32  |MNAM") : o%+=4.2|
00006d50  46 20 74 25 21 6f 25 3d  33 32 20 20 20 20 20 20  |F t%!o%=32      |
00006d60  20 20 20 20 20 20 20 3a  20 6f 25 2b 3d 34 0d 32  |       : o%+=4.2|
00006d70  50 2a f2 77 72 69 74 65  77 69 74 68 7a 65 72 6f  |P*.writewithzero|
00006d80  73 28 22 3c 55 6e 74 69  74 6c 65 64 3e 22 2c 74  |s("<Untitled>",t|
00006d90  25 2b 6f 25 2c 33 32 29  0d 32 5a 0a 6f 25 2b 3d  |%+o%,32).2Z.o%+=|
00006da0  33 32 0d 32 64 1f 74 25  21 6f 25 3d a4 77 6f 72  |32.2d.t%!o%=.wor|
00006db0  64 28 22 41 4e 41 4d 22  29 20 3a 20 6f 25 2b 3d  |d("ANAM") : o%+=|
00006dc0  34 0d 32 6e 20 74 25 21  6f 25 3d 33 32 20 20 20  |4.2n t%!o%=32   |
00006dd0  20 20 20 20 20 20 20 20  20 20 3a 20 6f 25 2b 3d  |          : o%+=|
00006de0  34 0d 32 78 25 f2 77 72  69 74 65 77 69 74 68 7a  |4.2x%.writewithz|
00006df0  65 72 6f 73 28 22 3c 59  6f 75 3e 22 2c 74 25 2b  |eros("<You>",t%+|
00006e00  6f 25 2c 33 32 29 0d 32  82 0a 6f 25 2b 3d 33 32  |o%,32).2..o%+=32|
00006e10  0d 32 8c 1f 74 25 21 6f  25 3d a4 77 6f 72 64 28  |.2..t%!o%=.word(|
00006e20  22 4d 4c 45 4e 22 29 20  3a 20 6f 25 2b 3d 34 0d  |"MLEN") : o%+=4.|
00006e30  32 96 20 74 25 21 6f 25  3d 34 20 20 20 20 20 20  |2. t%!o%=4      |
00006e40  20 20 20 20 20 20 20 20  3a 20 6f 25 2b 3d 34 0d  |        : o%+=4.|
00006e50  32 a0 20 74 25 21 6f 25  3d 31 20 20 20 20 20 20  |2. t%!o%=1      |
00006e60  20 20 20 20 20 20 20 20  3a 20 6f 25 2b 3d 34 0d  |        : o%+=4.|
00006e70  32 aa 1f 74 25 21 6f 25  3d a4 77 6f 72 64 28 22  |2..t%!o%=.word("|
00006e80  50 4e 55 4d 22 29 20 3a  20 6f 25 2b 3d 34 0d 32  |PNUM") : o%+=4.2|
00006e90  b4 20 74 25 21 6f 25 3d  34 20 20 20 20 20 20 20  |. t%!o%=4       |
00006ea0  20 20 20 20 20 20 20 3a  20 6f 25 2b 3d 34 0d 32  |       : o%+=4.2|
00006eb0  be 20 74 25 21 6f 25 3d  31 20 20 20 20 20 20 20  |. t%!o%=1       |
00006ec0  20 20 20 20 20 20 20 3a  20 6f 25 2b 3d 34 0d 32  |       : o%+=4.2|
00006ed0  c8 1f 74 25 21 6f 25 3d  a4 77 6f 72 64 28 22 50  |..t%!o%=.word("P|
00006ee0  4c 45 4e 22 29 20 3a 20  6f 25 2b 3d 34 0d 32 d2  |LEN") : o%+=4.2.|
00006ef0  20 74 25 21 6f 25 3d 36  34 20 20 20 20 20 20 20  | t%!o%=64       |
00006f00  20 20 20 20 20 20 3a 20  6f 25 2b 3d 34 0d 32 dc  |      : o%+=4.2.|
00006f10  0f e3 20 69 25 3d 31 20  b8 20 36 34 0d 32 e6 0c  |.. i%=1 . 64.2..|
00006f20  74 25 3f 6f 25 3d 36 34  0d 32 f0 09 6f 25 2b 3d  |t%?o%=64.2..o%+=|
00006f30  31 0d 32 fa 05 ed 0d 33  04 1f 74 25 21 6f 25 3d  |1.2....3..t%!o%=|
00006f40  a4 77 6f 72 64 28 22 53  45 51 55 22 29 20 3a 20  |.word("SEQU") : |
00006f50  6f 25 2b 3d 34 0d 33 0e  20 74 25 21 6f 25 3d 31  |o%+=4.3. t%!o%=1|
00006f60  32 38 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |28            : |
00006f70  6f 25 2b 3d 34 0d 33 18  10 e3 20 69 25 3d 31 20  |o%+=4.3... i%=1 |
00006f80  b8 20 31 32 38 0d 33 22  0b 74 25 3f 6f 25 3d 30  |. 128.3".t%?o%=0|
00006f90  0d 33 2c 09 6f 25 2b 3d  31 0d 33 36 05 ed 0d 33  |.3,.o%+=1.36...3|
00006fa0  40 1f 74 25 21 6f 25 3d  a4 77 6f 72 64 28 22 50  |@.t%!o%=.word("P|
00006fb0  41 54 54 22 29 20 3a 20  6f 25 2b 3d 34 0d 33 4a  |ATT") : o%+=4.3J|
00006fc0  20 74 25 21 6f 25 3d 76  25 2a 36 34 2a 34 20 20  | t%!o%=v%*64*4  |
00006fd0  20 20 20 20 20 20 3a 20  6f 25 2b 3d 34 0d 33 54  |      : o%+=4.3T|
00006fe0  14 e3 20 69 25 3d 31 20  b8 20 76 25 2a 36 34 2a  |.. i%=1 . v%*64*|
00006ff0  34 0d 33 5e 0b 74 25 3f  6f 25 3d 30 0d 33 68 09  |4.3^.t%?o%=0.3h.|
00007000  6f 25 2b 3d 31 0d 33 72  05 ed 0d 33 7c 14 e3 20  |o%+=1.3r...3|.. |
00007010  73 61 6d 70 6c 65 25 3d  31 20 b8 20 33 36 0d 33  |sample%=1 . 36.3|
00007020  86 1f 74 25 21 6f 25 3d  a4 77 6f 72 64 28 22 53  |..t%!o%=.word("S|
00007030  41 4d 50 22 29 20 3a 20  6f 25 2b 3d 34 0d 33 90  |AMP") : o%+=4.3.|
00007040  20 74 25 21 6f 25 3d 38  34 20 20 20 20 20 20 20  | t%!o%=84       |
00007050  20 20 20 20 20 20 3a 20  6f 25 2b 3d 34 0d 33 9a  |      : o%+=4.3.|
00007060  1f 74 25 21 6f 25 3d a4  77 6f 72 64 28 22 53 4e  |.t%!o%=.word("SN|
00007070  41 4d 22 29 20 3a 20 6f  25 2b 3d 34 0d 33 a4 20  |AM") : o%+=4.3. |
00007080  74 25 21 6f 25 3d 32 30  20 20 20 20 20 20 20 20  |t%!o%=20        |
00007090  20 20 20 20 20 3a 20 6f  25 2b 3d 34 0d 33 ae 20  |     : o%+=4.3. |
000070a0  f2 77 72 69 74 65 77 69  74 68 7a 65 72 6f 73 28  |.writewithzeros(|
000070b0  22 22 2c 74 25 2b 6f 25  2c 32 30 29 0d 33 b8 0a  |"",t%+o%,20).3..|
000070c0  6f 25 2b 3d 32 30 0d 33  c2 1f 74 25 21 6f 25 3d  |o%+=20.3..t%!o%=|
000070d0  a4 77 6f 72 64 28 22 53  56 4f 4c 22 29 20 3a 20  |.word("SVOL") : |
000070e0  6f 25 2b 3d 34 0d 33 cc  20 74 25 21 6f 25 3d 34  |o%+=4.3. t%!o%=4|
000070f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |              : |
00007100  6f 25 2b 3d 34 0d 33 d6  20 74 25 21 6f 25 3d 32  |o%+=4.3. t%!o%=2|
00007110  35 35 20 20 20 20 20 20  20 20 20 20 20 20 3a 20  |55            : |
00007120  6f 25 2b 3d 34 0d 33 e0  1f 74 25 21 6f 25 3d a4  |o%+=4.3..t%!o%=.|
00007130  77 6f 72 64 28 22 53 4c  45 4e 22 29 20 3a 20 6f  |word("SLEN") : o|
00007140  25 2b 3d 34 0d 33 ea 20  74 25 21 6f 25 3d 34 20  |%+=4.3. t%!o%=4 |
00007150  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 6f  |             : o|
00007160  25 2b 3d 34 0d 33 f4 20  74 25 21 6f 25 3d 30 20  |%+=4.3. t%!o%=0 |
00007170  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 20 6f  |             : o|
00007180  25 2b 3d 34 0d 33 fe 1f  74 25 21 6f 25 3d a4 77  |%+=4.3..t%!o%=.w|
00007190  6f 72 64 28 22 52 4f 46  53 22 29 20 3a 20 6f 25  |ord("ROFS") : o%|
000071a0  2b 3d 34 0d 34 08 20 74  25 21 6f 25 3d 34 20 20  |+=4.4. t%!o%=4  |
000071b0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 6f 25  |            : o%|
000071c0  2b 3d 34 0d 34 12 20 74  25 21 6f 25 3d 30 20 20  |+=4.4. t%!o%=0  |
000071d0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 6f 25  |            : o%|
000071e0  2b 3d 34 0d 34 1c 1f 74  25 21 6f 25 3d a4 77 6f  |+=4.4..t%!o%=.wo|
000071f0  72 64 28 22 52 4c 45 4e  22 29 20 3a 20 6f 25 2b  |rd("RLEN") : o%+|
00007200  3d 34 0d 34 26 20 74 25  21 6f 25 3d 34 20 20 20  |=4.4& t%!o%=4   |
00007210  20 20 20 20 20 20 20 20  20 20 20 3a 20 6f 25 2b  |           : o%+|
00007220  3d 34 0d 34 30 20 74 25  21 6f 25 3d 32 20 20 20  |=4.40 t%!o%=2   |
00007230  20 20 20 20 20 20 20 20  20 20 20 3a 20 6f 25 2b  |           : o%+|
00007240  3d 34 0d 34 3a 1f 74 25  21 6f 25 3d a4 77 6f 72  |=4.4:.t%!o%=.wor|
00007250  64 28 22 53 44 41 54 22  29 20 3a 20 6f 25 2b 3d  |d("SDAT") : o%+=|
00007260  34 0d 34 44 20 74 25 21  6f 25 3d 30 20 20 20 20  |4.4D t%!o%=0    |
00007270  20 20 20 20 20 20 20 20  20 20 3a 20 6f 25 2b 3d  |          : o%+=|
00007280  34 0d 34 4e 05 ed 0d 34  58 11 74 75 6e 65 6c 6f  |4.4N...4X.tunelo|
00007290  61 64 65 64 25 3d b9 0d  34 62 0e 70 6c 61 79 69  |aded%=..4b.playi|
000072a0  6e 67 25 3d a3 0d 34 6c  27 f2 73 65 74 69 63 6f  |ng%=..4l'.setico|
000072b0  6e 74 65 78 74 28 73 61  76 65 74 75 6e 65 25 2c  |ntext(savetune%,|
000072c0  33 2c 22 54 72 61 63 6b  65 72 22 29 0d 34 76 11  |3,"Tracker").4v.|
000072d0  f2 67 65 74 6d 75 73 69  63 69 6e 66 6f 0d 34 80  |.getmusicinfo.4.|
000072e0  0d f2 74 75 6e 65 69 6e  66 6f 0d 34 8a 11 f2 75  |..tuneinfo.4...u|
000072f0  70 64 61 74 65 73 74 65  72 65 6f 0d 34 94 15 f2  |pdatestereo.4...|
00007300  77 72 69 74 65 73 61 6d  70 6c 65 6e 61 6d 65 73  |writesamplenames|
00007310  0d 34 9e 15 f2 69 6e 69  74 69 61 6c 69 73 65 76  |.4...initialisev|
00007320  6f 69 63 65 73 0d 34 a8  1b f2 63 6c 6f 73 65 77  |oices.4...closew|
00007330  69 6e 64 6f 77 28 6e 65  77 74 72 61 63 6b 25 29  |indow(newtrack%)|
00007340  0d 34 b2 0d f2 6d 69 6e  69 6d 69 73 65 0d 34 bc  |.4...minimise.4.|
00007350  05 cc 0d 34 c6 11 74 75  6e 65 6c 6f 61 64 65 64  |...4..tuneloaded|
00007360  25 3d a3 0d 34 d0 0d f2  63 6c 6f 73 65 61 6c 6c  |%=..4...closeall|
00007370  0d 34 da 05 cd 0d 34 e4  20 f2 6d 61 6b 65 75 6e  |.4....4. .makeun|
00007380  73 65 6c 65 63 74 65 64  28 6e 65 77 74 72 61 63  |selected(newtrac|
00007390  6b 25 2c 32 29 0d 34 ee  11 6a 75 73 74 6c 6f 61  |k%,2).4..justloa|
000073a0  64 65 64 25 3d b9 0d 34  f8 0f 64 65 6c 76 6f 69  |ded%=..4..delvoi|
000073b0  63 65 25 3d 31 0d 35 02  0d 64 65 6c 70 61 74 25  |ce%=1.5..delpat%|
000073c0  3d 31 0d 35 0c 0e 73 61  76 65 70 61 74 25 3d 31  |=1.5..savepat%=1|
000073d0  0d 35 16 0e 63 6f 70 79  70 61 74 25 3d 31 0d 35  |.5..copypat%=1.5|
000073e0  20 2c f2 73 65 74 69 63  6f 6e 74 65 78 74 28 63  | ,.seticontext(c|
000073f0  6f 70 79 70 61 74 74 65  72 6e 25 2c 35 2c c3 28  |opypattern%,5,.(|
00007400  63 6f 70 79 70 61 74 25  29 29 0d 35 2a 2a f2 73  |copypat%)).5**.s|
00007410  65 74 69 63 6f 6e 74 65  78 74 28 61 6d 65 6e 64  |eticontext(amend|
00007420  74 72 61 63 6b 25 2c 32  2c c3 28 64 65 6c 70 61  |track%,2,.(delpa|
00007430  74 25 29 29 0d 35 34 2d  f2 73 65 74 69 63 6f 6e  |t%)).54-.seticon|
00007440  74 65 78 74 28 61 6d 65  6e 64 74 72 61 63 6b 25  |text(amendtrack%|
00007450  2c 31 30 2c c3 28 64 65  6c 76 6f 69 63 65 25 29  |,10,.(delvoice%)|
00007460  29 0d 35 3e 0e f2 72 65  64 6f 63 61 72 65 74 0d  |).5>..redocaret.|
00007470  35 48 05 e1 0d 35 52 05  3a 0d 35 5c 19 dd a4 65  |5H...5R.:.5\...e|
00007480  72 72 6f 72 62 6f 78 28  65 72 72 25 2c 65 72 72  |rrorbox(err%,err|
00007490  24 29 0d 35 66 18 71 25  21 30 3d 65 72 72 25 2b  |$).5f.q%!0=err%+|
000074a0  28 74 61 73 6b 25 3c 3c  38 29 0d 35 70 15 24 28  |(task%<<8).5p.$(|
000074b0  71 25 2b 34 29 3d 65 72  72 24 2b bd 28 30 29 0d  |q%+4)=err$+.(0).|
000074c0  35 7a 38 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |5z8.. "Wimp_Repo|
000074d0  72 74 45 72 72 6f 72 22  2c 71 25 2c 25 31 30 31  |rtError",q%,%101|
000074e0  31 2c 22 41 50 20 54 72  61 63 6b 65 72 22 20 b8  |1,"AP Tracker" .|
000074f0  20 2c 65 78 69 74 25 0d  35 84 0a 3d 65 78 69 74  | ,exit%.5..=exit|
00007500  25 0d 35 8e 05 3a 0d 35  98 19 dd a4 6c 65 61 66  |%.5..:.5....leaf|
00007510  6e 61 6d 65 28 66 75 6c  6c 70 61 74 68 24 29 0d  |name(fullpath$).|
00007520  35 a2 18 e7 20 66 75 6c  6c 70 61 74 68 24 3d 22  |5... fullpath$="|
00007530  22 20 8c 20 3d 22 22 0d  35 ac 18 ea 20 6f 75 74  |" . ="".5... out|
00007540  70 75 74 24 2c 63 68 70  6f 73 25 2c 63 68 24 0d  |put$,chpos%,ch$.|
00007550  35 b6 0e 6f 75 74 70 75  74 24 3d 22 22 0d 35 c0  |5..output$="".5.|
00007560  17 63 68 70 6f 73 25 3d  a9 28 66 75 6c 6c 70 61  |.chpos%=.(fullpa|
00007570  74 68 24 29 0d 35 ca 05  f5 0d 35 d4 1c 63 68 24  |th$).5....5..ch$|
00007580  3d c1 66 75 6c 6c 70 61  74 68 24 2c 63 68 70 6f  |=.fullpath$,chpo|
00007590  73 25 2c 31 29 0d 35 de  29 e7 20 a7 22 2e 3a 20  |s%,1).5.). .".: |
000075a0  22 2c 63 68 24 29 3d 30  20 8c 20 6f 75 74 70 75  |",ch$)=0 . outpu|
000075b0  74 24 3d 63 68 24 2b 6f  75 74 70 75 74 24 0d 35  |t$=ch$+output$.5|
000075c0  e8 0d 63 68 70 6f 73 25  2d 3d 31 0d 35 f2 1e fd  |..chpos%-=1.5...|
000075d0  20 63 68 70 6f 73 25 3d  30 20 84 20 a7 22 2e 3a  | chpos%=0 . .".:|
000075e0  20 22 2c 63 68 24 29 3e  30 0d 35 fc 0c 3d 6f 75  | ",ch$)>0.5..=ou|
000075f0  74 70 75 74 24 0d 36 06  05 3a 0d 36 10 0c dd f2  |tput$.6..:.6....|
00007600  73 74 65 72 65 6f 0d 36  1a 1a f2 6f 70 65 6e 77  |stereo.6...openw|
00007610  69 6e 64 6f 77 28 73 74  65 72 65 6f 25 2c 30 29  |indow(stereo%,0)|
00007620  0d 36 24 05 e1 0d 36 2e  05 3a 0d 36 38 13 dd f2  |.6$...6..:.68...|
00007630  73 65 74 73 74 65 72 65  6f 45 53 47 73 0d 36 42  |setstereoESGs.6B|
00007640  12 e3 20 76 6f 69 63 65  25 3d 31 20 b8 20 38 0d  |.. voice%=1 . 8.|
00007650  36 4c 18 62 61 73 65 69  63 6f 6e 25 3d 76 6f 69  |6L.baseicon%=voi|
00007660  63 65 25 2a 38 2d 37 0d  36 56 0f 65 73 67 25 3d  |ce%*8-7.6V.esg%=|
00007670  76 6f 69 63 65 25 0d 36  60 15 e3 20 65 61 63 68  |voice%.6`.. each|
00007680  69 63 6f 6e 25 3d 30 20  b8 20 36 0d 36 6a 2d f2  |icon%=0 . 6.6j-.|
00007690  73 65 74 45 53 47 28 73  74 65 72 65 6f 25 2c 62  |setESG(stereo%,b|
000076a0  61 73 65 69 63 6f 6e 25  2b 65 61 63 68 69 63 6f  |aseicon%+eachico|
000076b0  6e 25 2c 65 73 67 25 29  0d 36 74 05 ed 0d 36 7e  |n%,esg%).6t...6~|
000076c0  05 ed 0d 36 88 05 e1 0d  36 92 05 3a 0d 36 9c 12  |...6....6..:.6..|
000076d0  dd f2 75 70 64 61 74 65  73 74 65 72 65 6f 0d 36  |..updatestereo.6|
000076e0  a6 12 e3 20 76 6f 69 63  65 25 3d 31 20 b8 20 38  |... voice%=1 . 8|
000076f0  0d 36 b0 19 73 25 3d 73  74 65 72 61 64 64 72 25  |.6..s%=steraddr%|
00007700  2b 76 6f 69 63 65 25 2d  31 0d 36 ba 1b e7 20 3f  |+voice%-1.6... ?|
00007710  73 25 3d 30 20 84 20 3f  73 25 3e 37 20 8c 20 3f  |s%=0 . ?s%>7 . ?|
00007720  73 25 3d 34 0d 36 c4 18  62 61 73 65 69 63 6f 6e  |s%=4.6..baseicon|
00007730  25 3d 76 6f 69 63 65 25  2a 38 2d 37 0d 36 ce 15  |%=voice%*8-7.6..|
00007740  e3 20 65 61 63 68 69 63  6f 6e 25 3d 30 20 b8 20  |. eachicon%=0 . |
00007750  36 0d 36 d8 30 f2 6d 61  6b 65 75 6e 73 65 6c 65  |6.6.0.makeunsele|
00007760  63 74 65 64 28 73 74 65  72 65 6f 25 2c 62 61 73  |cted(stereo%,bas|
00007770  65 69 63 6f 6e 25 2b 65  61 63 68 69 63 6f 6e 25  |eicon%+eachicon%|
00007780  29 0d 36 e2 05 ed 0d 36  ec 3d f2 6d 61 6b 65 73  |).6....6.=.makes|
00007790  65 6c 65 63 74 65 64 28  73 74 65 72 65 6f 25 2c  |elected(stereo%,|
000077a0  62 61 73 65 69 63 6f 6e  25 2b 28 73 74 65 72 61  |baseicon%+(stera|
000077b0  64 64 72 25 3f 28 76 6f  69 63 65 25 2d 31 29 2d  |ddr%?(voice%-1)-|
000077c0  31 29 29 0d 36 f6 05 ed  0d 37 00 05 e1 0d 37 0a  |1)).6....7....7.|
000077d0  05 3a 0d 37 14 20 dd f2  73 65 74 45 53 47 28 77  |.:.7. ..setESG(w|
000077e0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 73 65 74  |indow%,icon%,set|
000077f0  25 29 0d 37 1e 10 71 25  21 30 3d 77 69 6e 64 6f  |%).7..q%!0=windo|
00007800  77 25 0d 37 28 0e 71 25  21 34 3d 69 63 6f 6e 25  |w%.7(.q%!4=icon%|
00007810  0d 37 32 11 71 25 21 38  3d 73 65 74 25 3c 3c 31  |.72.q%!8=set%<<1|
00007820  36 0d 37 3c 13 71 25 21  31 32 3d 25 31 31 31 31  |6.7<.q%!12=%1111|
00007830  3c 3c 31 36 0d 37 46 1e  c8 99 20 22 57 69 6d 70  |<<16.7F... "Wimp|
00007840  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00007850  71 25 0d 37 50 05 e1 0d  37 5a 05 3a 0d 37 64 13  |q%.7P...7Z.:.7d.|
00007860  dd f2 72 65 77 72 69 74  65 73 74 65 72 65 6f 0d  |..rewritestereo.|
00007870  37 6e 12 e3 20 76 6f 69  63 65 25 3d 31 20 b8 20  |7n.. voice%=1 . |
00007880  38 0d 37 78 19 77 25 3d  73 74 65 72 61 64 64 72  |8.7x.w%=steraddr|
00007890  25 2b 76 6f 69 63 65 25  2d 31 0d 37 82 18 62 61  |%+voice%-1.7..ba|
000078a0  73 65 69 63 6f 6e 25 3d  76 6f 69 63 65 25 2a 38  |seicon%=voice%*8|
000078b0  2d 37 0d 37 8c 08 73 25  3d 31 0d 37 96 15 e3 20  |-7.7..s%=1.7... |
000078c0  65 61 63 68 69 63 6f 6e  25 3d 30 20 b8 20 36 0d  |eachicon%=0 . 6.|
000078d0  37 a0 41 e7 20 a4 69 73  69 74 73 65 6c 65 63 74  |7.A. .isitselect|
000078e0  65 64 28 73 74 65 72 65  6f 25 2c 62 61 73 65 69  |ed(stereo%,basei|
000078f0  63 6f 6e 25 2b 65 61 63  68 69 63 6f 6e 25 29 20  |con%+eachicon%) |
00007900  8c 20 73 25 3d 65 61 63  68 69 63 6f 6e 25 2b 31  |. s%=eachicon%+1|
00007910  0d 37 aa 05 ed 0d 37 b4  0a 3f 77 25 3d 73 25 0d  |.7....7..?w%=s%.|
00007920  37 be 05 ed 0d 37 c8 05  e1 0d 37 d2 05 3a 0d 37  |7....7....7..:.7|
00007930  dc 10 dd f2 69 6e 63 73  61 76 65 70 61 74 0d 37  |....incsavepat.7|
00007940  e6 26 e7 20 73 61 76 65  70 61 74 25 3c 70 61 74  |.&. savepat%<pat|
00007950  74 65 72 6e 73 25 20 8c  20 73 61 76 65 70 61 74  |terns% . savepat|
00007960  25 2b 3d 31 0d 37 f0 2c  f2 73 65 74 69 63 6f 6e  |%+=1.7.,.seticon|
00007970  74 65 78 74 28 73 61 76  65 70 61 74 74 65 72 6e  |text(savepattern|
00007980  25 2c 36 2c c3 28 73 61  76 65 70 61 74 25 29 29  |%,6,.(savepat%))|
00007990  0d 37 fa 05 e1 0d 38 04  05 3a 0d 38 0e 10 dd f2  |.7....8..:.8....|
000079a0  64 65 63 73 61 76 65 70  61 74 0d 38 18 1e e7 20  |decsavepat.8... |
000079b0  73 61 76 65 70 61 74 25  3e 31 20 8c 20 73 61 76  |savepat%>1 . sav|
000079c0  65 70 61 74 25 2d 3d 31  0d 38 22 2c f2 73 65 74  |epat%-=1.8",.set|
000079d0  69 63 6f 6e 74 65 78 74  28 73 61 76 65 70 61 74  |icontext(savepat|
000079e0  74 65 72 6e 25 2c 36 2c  c3 28 73 61 76 65 70 61  |tern%,6,.(savepa|
000079f0  74 25 29 29 0d 38 2c 05  e1 0d 38 36 05 3a 0d 38  |t%)).8,...86.:.8|
00007a00  40 19 dd a4 70 61 74 74  65 72 6e 61 64 64 72 28  |@...patternaddr(|
00007a10  70 61 74 6e 6f 25 29 0d  38 4a 16 3d 70 61 74 74  |patno%).8J.=patt|
00007a20  61 64 64 72 25 28 70 61  74 6e 6f 25 29 0d 38 54  |addr%(patno%).8T|
00007a30  05 3a 0d 38 5e 1c dd f2  73 61 76 65 70 61 74 74  |.:.8^...savepatt|
00007a40  65 72 6e 28 77 68 69 63  68 70 61 74 25 29 0d 38  |ern(whichpat%).8|
00007a50  68 27 73 74 61 72 74 70  61 74 25 3d a4 70 61 74  |h'startpat%=.pat|
00007a60  74 65 72 6e 61 64 64 72  28 77 68 69 63 68 70 61  |ternaddr(whichpa|
00007a70  74 25 29 2d 38 0d 38 72  1c 6c 65 6e 67 74 68 25  |t%)-8.8r.length%|
00007a80  3d 21 28 73 74 61 72 74  70 61 74 25 2b 34 29 2b  |=!(startpat%+4)+|
00007a90  38 0d 38 7c 28 70 61 74  68 6e 61 6d 65 24 3d c0  |8.8|(pathname$=.|
00007aa0  70 61 74 68 6e 61 6d 65  24 2c a9 28 70 61 74 68  |pathname$,.(path|
00007ab0  6e 61 6d 65 24 29 2d 31  29 0d 38 86 3e f2 73 61  |name$)-1).8.>.sa|
00007ac0  76 65 77 69 74 68 70 61  74 68 73 74 72 69 6e 67  |vewithpathstring|
00007ad0  28 6c 65 61 66 6e 61 6d  65 24 2c 70 61 74 68 6e  |(leafname$,pathn|
00007ae0  61 6d 65 24 2c 73 74 61  72 74 70 61 74 25 2c 6c  |ame$,startpat%,l|
00007af0  65 6e 67 74 68 25 29 0d  38 90 2e f2 73 65 74 66  |ength%).8...setf|
00007b00  69 6c 65 74 79 70 65 28  70 61 74 68 6e 61 6d 65  |iletype(pathname|
00007b10  24 2b 22 2e 22 2b 6c 65  61 66 6e 61 6d 65 24 2c  |$+"."+leafname$,|
00007b20  26 46 46 44 29 0d 38 9a  1c c8 99 20 22 57 69 6d  |&FFD).8.... "Wim|
00007b30  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00007b40  31 0d 38 a4 05 e1 0d 38  ae 05 3a 0d 38 b8 19 dd  |1.8....8..:.8...|
00007b50  f2 73 61 76 65 70 61 74  74 65 72 6e 73 28 72 6f  |.savepatterns(ro|
00007b60  6f 74 24 29 0d 38 c2 28  70 61 74 68 6e 61 6d 65  |ot$).8.(pathname|
00007b70  24 3d c0 70 61 74 68 6e  61 6d 65 24 2c a9 28 70  |$=.pathname$,.(p|
00007b80  61 74 68 6e 61 6d 65 24  29 2d 31 29 0d 38 cc 15  |athname$)-1).8..|
00007b90  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00007ba0  22 0d 38 d6 1c e3 20 70  61 74 73 61 76 65 25 3d  |".8... patsave%=|
00007bb0  31 20 b8 20 70 61 74 74  65 72 6e 73 25 0d 38 e0  |1 . patterns%.8.|
00007bc0  28 6c 65 61 66 6e 61 6d  65 24 3d 72 6f 6f 74 24  |(leafname$=root$|
00007bd0  2b c2 22 30 30 22 2b c3  28 70 61 74 73 61 76 65  |+."00"+.(patsave|
00007be0  25 29 2c 32 29 0d 38 ea  26 73 74 61 72 74 70 61  |%),2).8.&startpa|
00007bf0  74 25 3d a4 70 61 74 74  65 72 6e 61 64 64 72 28  |t%=.patternaddr(|
00007c00  70 61 74 73 61 76 65 25  29 2d 38 0d 38 f4 1c 6c  |patsave%)-8.8..l|
00007c10  65 6e 67 74 68 25 3d 21  28 73 74 61 72 74 70 61  |ength%=!(startpa|
00007c20  74 25 2b 34 29 2b 38 0d  38 fe 3e f2 73 61 76 65  |t%+4)+8.8.>.save|
00007c30  77 69 74 68 70 61 74 68  73 74 72 69 6e 67 28 6c  |withpathstring(l|
00007c40  65 61 66 6e 61 6d 65 24  2c 70 61 74 68 6e 61 6d  |eafname$,pathnam|
00007c50  65 24 2c 73 74 61 72 74  70 61 74 25 2c 6c 65 6e  |e$,startpat%,len|
00007c60  67 74 68 25 29 0d 39 08  2e f2 73 65 74 66 69 6c  |gth%).9...setfil|
00007c70  65 74 79 70 65 28 70 61  74 68 6e 61 6d 65 24 2b  |etype(pathname$+|
00007c80  22 2e 22 2b 6c 65 61 66  6e 61 6d 65 24 2c 26 46  |"."+leafname$,&F|
00007c90  46 44 29 0d 39 12 05 ed  0d 39 1c 16 c8 99 20 22  |FD).9....9.... "|
00007ca0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 39  |Hourglass_Off".9|
00007cb0  26 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |&... "Wimp_Creat|
00007cc0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 39 30 05 e1 0d  |eMenu",,-1.90...|
00007cd0  39 3a 05 3a 0d 39 44 1c  dd f2 6c 6f 61 64 70 61  |9:.:.9D...loadpa|
00007ce0  74 64 61 74 61 28 66 69  6c 65 6e 61 6d 65 24 29  |tdata(filename$)|
00007cf0  0d 39 4e 40 e7 20 71 25  21 32 30 3d 73 61 6d 70  |.9N@. q%!20=samp|
00007d00  6c 65 73 25 20 8c 20 f2  6c 6f 61 64 73 61 6d 70  |les% . .loadsamp|
00007d10  6c 65 28 66 69 6c 65 6e  61 6d 65 24 2c a4 77 68  |le(filename$,.wh|
00007d20  69 63 68 73 61 6d 70 6c  65 74 79 70 65 29 3a e1  |ichsampletype):.|
00007d30  0d 39 58 13 43 25 3d 8e  28 66 69 6c 65 6e 61 6d  |.9X.C%=.(filenam|
00007d40  65 24 29 0d 39 62 0c 72  65 61 64 24 3d 22 22 0d  |e$).9b.read$="".|
00007d50  39 6c 11 e3 20 62 79 74  65 25 3d 31 20 b8 20 34  |9l.. byte%=1 . 4|
00007d60  0d 39 76 12 72 65 61 64  24 2b 3d bd 28 9a 23 43  |.9v.read$+=.(.#C|
00007d70  25 29 0d 39 80 05 ed 0d  39 8a 09 d9 20 23 43 25  |%).9....9... #C%|
00007d80  0d 39 94 0c 61 62 6f 72  74 25 3d a3 0d 39 9e 1e  |.9..abort%=..9..|
00007d90  e7 20 72 65 61 64 24 3c  3e 22 50 41 54 54 22 20  |. read$<>"PATT" |
00007da0  8c 20 61 62 6f 72 74 25  3d b9 0d 39 a8 1f e7 20  |. abort%=..9... |
00007db0  66 69 6c 65 6c 65 6e 25  3c 28 34 2b 38 29 20 8c  |filelen%<(4+8) .|
00007dc0  20 61 62 6f 72 74 25 3d  b9 0d 39 b2 24 e7 20 66  | abort%=..9.$. f|
00007dd0  69 6c 65 6c 65 6e 25 3e  28 38 2a 36 34 2a 34 2b  |ilelen%>(8*64*4+|
00007de0  38 29 20 8c 20 61 62 6f  72 74 25 3d b9 0d 39 bc  |8) . abort%=..9.|
00007df0  21 e7 20 28 66 69 6c 65  6c 65 6e 25 20 80 20 33  |!. (filelen% . 3|
00007e00  29 3e 30 20 8c 20 61 62  6f 72 74 25 3d b9 0d 39  |)>0 . abort%=..9|
00007e10  c6 28 e7 20 61 62 6f 72  74 25 20 8c 20 85 20 31  |.(. abort% . . 1|
00007e20  37 2c 22 4e 6f 74 20 61  20 70 61 74 74 65 72 6e  |7,"Not a pattern|
00007e30  20 66 69 6c 65 22 0d 39  d0 26 ff 28 22 4c 4f 41  | file".9.&.("LOA|
00007e40  44 20 22 2b 66 69 6c 65  6e 61 6d 65 24 2b 22 20  |D "+filename$+" |
00007e50  22 2b c3 7e 63 6f 70 69  65 64 25 29 0d 39 da 17  |"+.~copied%).9..|
00007e60  63 6f 70 69 65 64 6c 65  6e 25 3d 66 69 6c 65 6c  |copiedlen%=filel|
00007e70  65 6e 25 0d 39 e4 1f f2  6f 70 65 6e 77 69 6e 64  |en%.9...openwind|
00007e80  6f 77 28 63 6f 70 79 70  61 74 74 65 72 6e 25 2c  |ow(copypattern%,|
00007e90  30 29 0d 39 ee 05 e1 0d  39 f8 05 3a 0d 3a 02 10  |0).9....9..:.:..|
00007ea0  dd f2 69 6e 63 63 6f 70  79 70 61 74 0d 3a 0c 26  |..inccopypat.:.&|
00007eb0  e7 20 63 6f 70 79 70 61  74 25 3c 70 61 74 74 65  |. copypat%<patte|
00007ec0  72 6e 73 25 20 8c 20 63  6f 70 79 70 61 74 25 2b  |rns% . copypat%+|
00007ed0  3d 31 0d 3a 16 2c f2 73  65 74 69 63 6f 6e 74 65  |=1.:.,.seticonte|
00007ee0  78 74 28 63 6f 70 79 70  61 74 74 65 72 6e 25 2c  |xt(copypattern%,|
00007ef0  35 2c c3 28 63 6f 70 79  70 61 74 25 29 29 0d 3a  |5,.(copypat%)).:|
00007f00  20 05 e1 0d 3a 2a 05 3a  0d 3a 34 10 dd f2 64 65  | ...:*.:.:4...de|
00007f10  63 63 6f 70 79 70 61 74  0d 3a 3e 1e e7 20 63 6f  |ccopypat.:>.. co|
00007f20  70 79 70 61 74 25 3e 31  20 8c 20 63 6f 70 79 70  |pypat%>1 . copyp|
00007f30  61 74 25 2d 3d 31 0d 3a  48 2c f2 73 65 74 69 63  |at%-=1.:H,.setic|
00007f40  6f 6e 74 65 78 74 28 63  6f 70 79 70 61 74 74 65  |ontext(copypatte|
00007f50  72 6e 25 2c 35 2c c3 28  63 6f 70 79 70 61 74 25  |rn%,5,.(copypat%|
00007f60  29 29 0d 3a 52 05 e1 0d  3a 5c 05 3a 0d 3a 66 11  |)).:R...:\.:.:f.|
00007f70  dd f2 63 6f 70 79 70 61  74 74 65 72 6e 0d 3a 70  |..copypattern.:p|
00007f80  2d e7 20 63 6f 70 69 65  64 6c 65 6e 25 3d 30 20  |-. copiedlen%=0 |
00007f90  8c 20 85 20 31 37 2c 22  4e 6f 20 70 61 74 74 65  |. . 17,"No patte|
00007fa0  72 6e 20 6c 6f 61 64 65  64 22 0d 3a 7a 24 63 6f  |rn loaded".:z$co|
00007fb0  70 79 74 6f 25 3d a4 70  61 74 74 65 72 6e 61 64  |pyto%=.patternad|
00007fc0  64 72 28 63 6f 70 79 70  61 74 25 29 2d 38 0d 3a  |dr(copypat%)-8.:|
00007fd0  84 1d 63 6f 70 79 74 6f  6c 65 6e 25 3d 21 28 63  |..copytolen%=!(c|
00007fe0  6f 70 79 74 6f 25 2b 34  29 2b 38 0d 3a 8e 3f e7  |opyto%+4)+8.:.?.|
00007ff0  20 63 6f 70 79 74 6f 6c  65 6e 25 3c 3e 63 6f 70  | copytolen%<>cop|
00008000  69 65 64 6c 65 6e 25 20  8c 20 85 20 31 37 2c 22  |iedlen% . . 17,"|
00008010  50 61 74 74 65 72 6e 20  73 69 7a 65 73 20 64 6f  |Pattern sizes do|
00008020  6e 27 74 20 6d 61 74 63  68 22 0d 3a 98 21 f2 6d  |n't match".:.!.m|
00008030  61 6b 65 73 65 6c 65 63  74 65 64 28 63 6f 70 79  |akeselected(copy|
00008040  70 61 74 74 65 72 6e 25  2c 32 29 0d 3a a2 1c e3  |pattern%,2).:...|
00008050  20 62 79 74 65 25 3d 30  20 b8 20 63 6f 70 69 65  | byte%=0 . copie|
00008060  64 6c 65 6e 25 2d 31 0d  3a ac 1f 63 6f 70 79 74  |dlen%-1.:..copyt|
00008070  6f 25 3f 62 79 74 65 25  3d 63 6f 70 69 65 64 25  |o%?byte%=copied%|
00008080  3f 62 79 74 65 25 0d 3a  b6 05 ed 0d 3a c0 23 f2  |?byte%.:....:.#.|
00008090  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 63  |makeunselected(c|
000080a0  6f 70 79 70 61 74 74 65  72 6e 25 2c 32 29 0d 3a  |opypattern%,2).:|
000080b0  ca 2c e7 20 ac 28 6d 72  65 64 6f 25 29 20 8c 20  |.,. .(mredo%) . |
000080c0  f2 63 6c 6f 73 65 77 69  6e 64 6f 77 28 63 6f 70  |.closewindow(cop|
000080d0  79 70 61 74 74 65 72 6e  25 29 0d 3a d4 05 e1 0d  |ypattern%).:....|
000080e0  3a de 05 3a 0d 3a e8 12  dd f2 73 74 6f 72 65 70  |:..:.:....storep|
000080f0  61 74 74 65 72 6e 0d 3a  f2 21 f2 6d 61 6b 65 73  |attern.:.!.makes|
00008100  65 6c 65 63 74 65 64 28  73 61 76 65 70 61 74 74  |elected(savepatt|
00008110  65 72 6e 25 2c 37 29 0d  3a fc 26 73 74 61 72 74  |ern%,7).:.&start|
00008120  70 61 74 25 3d a4 70 61  74 74 65 72 6e 61 64 64  |pat%=.patternadd|
00008130  72 28 73 61 76 65 70 61  74 25 29 2d 38 0d 3b 06  |r(savepat%)-8.;.|
00008140  1c 6c 65 6e 67 74 68 25  3d 21 28 73 74 61 72 74  |.length%=!(start|
00008150  70 61 74 25 2b 34 29 2b  38 0d 3b 10 19 e3 20 62  |pat%+4)+8.;... b|
00008160  79 74 65 25 3d 30 20 b8  20 6c 65 6e 67 74 68 25  |yte%=0 . length%|
00008170  2d 31 0d 3b 1a 21 63 6f  70 69 65 64 25 3f 62 79  |-1.;.!copied%?by|
00008180  74 65 25 3d 73 74 61 72  74 70 61 74 25 3f 62 79  |te%=startpat%?by|
00008190  74 65 25 0d 3b 24 05 ed  0d 3b 2e 16 63 6f 70 69  |te%.;$...;..copi|
000081a0  65 64 6c 65 6e 25 3d 6c  65 6e 67 74 68 25 0d 3b  |edlen%=length%.;|
000081b0  38 23 f2 6d 61 6b 65 75  6e 73 65 6c 65 63 74 65  |8#.makeunselecte|
000081c0  64 28 73 61 76 65 70 61  74 74 65 72 6e 25 2c 37  |d(savepattern%,7|
000081d0  29 0d 3b 42 2a e7 20 ac  28 6d 72 65 64 6f 25 29  |).;B*. .(mredo%)|
000081e0  20 8c 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  | . .. "Wimp_Crea|
000081f0  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 3b 4c 1f f2  |teMenu",,-1.;L..|
00008200  6f 70 65 6e 77 69 6e 64  6f 77 28 63 6f 70 79 70  |openwindow(copyp|
00008210  61 74 74 65 72 6e 25 2c  30 29 0d 3b 56 05 e1 0d  |attern%,0).;V...|
00008220  3b 60 05 3a 0d 3b 6a 19  dd f2 73 61 76 65 68 65  |;`.:.;j...savehe|
00008230  6c 70 28 73 61 76 65 68  65 6c 70 24 29 0d 3b 74  |lp(savehelp$).;t|
00008240  08 41 25 3d 30 0d 3b 7e  1c 62 6c 6b 61 64 64 72  |.A%=0.;~.blkaddr|
00008250  25 3d ba 28 74 72 61 63  6b 65 72 63 6f 64 65 25  |%=.(trackercode%|
00008260  29 0d 3b 88 18 68 65 6c  70 61 64 64 72 25 3d 62  |).;..helpaddr%=b|
00008270  6c 6b 61 64 64 72 25 21  30 0d 3b 92 19 68 65 6c  |lkaddr%!0.;..hel|
00008280  70 6c 69 6e 65 73 25 3d  62 6c 6b 61 64 64 72 25  |plines%=blkaddr%|
00008290  21 34 0d 3b 9c 13 43 25  3d ae 28 73 61 76 65 68  |!4.;..C%=.(saveh|
000082a0  65 6c 70 24 29 0d 3b a6  15 c8 99 20 22 48 6f 75  |elp$).;.... "Hou|
000082b0  72 67 6c 61 73 73 5f 4f  6e 22 0d 3b b0 1a e3 20  |rglass_On".;... |
000082c0  6c 69 6e 65 25 3d 31 20  b8 20 68 65 6c 70 6c 69  |line%=1 . helpli|
000082d0  6e 65 73 25 0d 3b ba 34  c8 99 20 22 48 6f 75 72  |nes%.;.4.. "Hour|
000082e0  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
000082f0  22 2c 31 30 30 2a 28 6c  69 6e 65 25 2f 68 65 6c  |",100*(line%/hel|
00008300  70 6c 69 6e 65 73 25 29  0d 3b c4 12 e3 20 63 68  |plines%).;... ch|
00008310  61 72 25 3d 30 20 b8 20  37 35 0d 3b ce 18 d5 23  |ar%=0 . 75.;...#|
00008320  43 25 2c 68 65 6c 70 61  64 64 72 25 3f 63 68 61  |C%,helpaddr%?cha|
00008330  72 25 0d 3b d8 05 ed 0d  3b e2 11 68 65 6c 70 61  |r%.;....;..helpa|
00008340  64 64 72 25 2b 3d 37 36  0d 3b ec 0b d5 23 43 25  |ddr%+=76.;...#C%|
00008350  2c 31 30 0d 3b f6 05 ed  0d 3c 00 16 c8 99 20 22  |,10.;....<.... "|
00008360  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 3c  |Hourglass_Off".<|
00008370  0a 09 d9 20 23 43 25 0d  3c 14 20 f2 73 65 74 66  |... #C%.<. .setf|
00008380  69 6c 65 74 79 70 65 28  73 61 76 65 68 65 6c 70  |iletype(savehelp|
00008390  24 2c 26 46 46 46 29 0d  3c 1e 1c c8 99 20 22 57  |$,&FFF).<.... "W|
000083a0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000083b0  2c 2d 31 0d 3c 28 05 e1  0d 3c 32 05 3a 0d 3c 3c  |,-1.<(...<2.:.<<|
000083c0  1a dd f2 69 6e 63 76 6f  6c 75 6d 65 28 77 68 69  |...incvolume(whi|
000083d0  63 68 76 6f 6c 25 29 0d  3c 46 1e 76 6f 6c 25 3d  |chvol%).<F.vol%=|
000083e0  21 73 76 6f 6c 61 64 64  72 25 28 77 68 69 63 68  |!svoladdr%(which|
000083f0  76 6f 6c 25 29 0d 3c 50  18 76 6f 6c 25 2b 3d a4  |vol%).<P.vol%+=.|
00008400  62 75 74 74 6f 6e 76 61  6c 28 62 25 29 0d 3c 5a  |buttonval(b%).<Z|
00008410  19 e7 20 76 6f 6c 25 3e  32 35 35 20 8c 20 76 6f  |.. vol%>255 . vo|
00008420  6c 25 3d 32 35 35 0d 3c  64 1e 21 73 76 6f 6c 61  |l%=255.<d.!svola|
00008430  64 64 72 25 28 77 68 69  63 68 76 6f 6c 25 29 3d  |ddr%(whichvol%)=|
00008440  76 6f 6c 25 0d 3c 6e 26  f2 73 65 74 69 63 6f 6e  |vol%.<n&.seticon|
00008450  74 65 78 74 28 73 65 74  76 6f 6c 75 6d 65 25 2c  |text(setvolume%,|
00008460  31 2c c3 28 76 6f 6c 25  29 29 0d 3c 78 05 e1 0d  |1,.(vol%)).<x...|
00008470  3c 82 05 3a 0d 3c 8c 1a  dd f2 64 65 63 76 6f 6c  |<..:.<....decvol|
00008480  75 6d 65 28 77 68 69 63  68 76 6f 6c 25 29 0d 3c  |ume(whichvol%).<|
00008490  96 1e 76 6f 6c 25 3d 21  73 76 6f 6c 61 64 64 72  |..vol%=!svoladdr|
000084a0  25 28 77 68 69 63 68 76  6f 6c 25 29 0d 3c a0 18  |%(whichvol%).<..|
000084b0  76 6f 6c 25 2d 3d a4 62  75 74 74 6f 6e 76 61 6c  |vol%-=.buttonval|
000084c0  28 62 25 29 0d 3c aa 15  e7 20 76 6f 6c 25 3c 30  |(b%).<... vol%<0|
000084d0  20 8c 20 76 6f 6c 25 3d  30 0d 3c b4 1e 21 73 76  | . vol%=0.<..!sv|
000084e0  6f 6c 61 64 64 72 25 28  77 68 69 63 68 76 6f 6c  |oladdr%(whichvol|
000084f0  25 29 3d 76 6f 6c 25 0d  3c be 26 f2 73 65 74 69  |%)=vol%.<.&.seti|
00008500  63 6f 6e 74 65 78 74 28  73 65 74 76 6f 6c 75 6d  |context(setvolum|
00008510  65 25 2c 31 2c c3 28 76  6f 6c 25 29 29 0d 3c c8  |e%,1,.(vol%)).<.|
00008520  05 e1 0d 3c d2 05 3a 0d  3c dc 16 dd a4 62 75 74  |...<..:.<....but|
00008530  74 6f 6e 76 61 6c 28 74  65 73 74 25 29 0d 3c e6  |tonval(test%).<.|
00008540  13 e7 20 74 65 73 74 25  3d 31 20 8c 20 3d 31 30  |.. test%=1 . =10|
00008550  0d 3c f0 12 e7 20 74 65  73 74 25 3d 32 20 8c 20  |.<... test%=2 . |
00008560  3d 35 0d 3c fa 06 3d 31  0d 3d 04 05 3a 0d 3d 0e  |=5.<..=1.=..:.=.|
00008570  1f dd f2 6c 6f 61 64 63  6f 63 6f 74 72 61 63 6b  |...loadcocotrack|
00008580  28 63 6f 63 6f 74 72 61  63 6b 24 29 0d 3d 18 0c  |(cocotrack$).=..|
00008590  61 62 6f 72 74 25 3d a3  0d 3d 22 13 e7 20 74 75  |abort%=..=".. tu|
000085a0  6e 65 6c 6f 61 64 65 64  25 20 8c 0d 3d 2c 49 65  |neloaded% ..=,Ie|
000085b0  72 72 6f 72 65 78 69 74  25 3d a4 65 72 72 6f 72  |rrorexit%=.error|
000085c0  62 6f 78 28 31 37 2c 22  45 78 69 73 74 69 6e 67  |box(17,"Existing|
000085d0  20 74 75 6e 65 20 77 69  6c 6c 20 62 65 20 6c 6f  | tune will be lo|
000085e0  73 74 20 2d 20 61 72 65  20 79 6f 75 20 73 75 72  |st - are you sur|
000085f0  65 3f 22 29 0d 3d 36 2d  e7 20 65 72 72 6f 72 65  |e?").=6-. errore|
00008600  78 69 74 25 3d 31 20 8c  20 f2 72 65 74 75 72 6e  |xit%=1 . .return|
00008610  6d 65 6d 6f 72 79 20 8b  20 61 62 6f 72 74 25 3d  |memory . abort%=|
00008620  b9 0d 3d 40 05 cd 0d 3d  4a 10 e7 20 61 62 6f 72  |..=@...=J.. abor|
00008630  74 25 20 8c 20 e1 0d 3d  54 05 3a 0d 3d 5e 0d f2  |t% . ..=T.:.=^..|
00008640  73 74 6f 70 74 75 6e 65  0d 3d 68 0e 61 62 6f 72  |stoptune.=h.abor|
00008650  74 65 64 25 3d a3 0d 3d  72 0e 66 72 65 65 6d 65  |ted%=..=r.freeme|
00008660  6d 25 3d 30 0d 3d 7c 27  67 6f 74 69 74 25 3d a4  |m%=0.=|'gotit%=.|
00008670  67 72 61 62 6d 65 6d 28  66 69 6c 65 6c 65 6e 25  |grabmem(filelen%|
00008680  2a 32 2b 31 30 2a 31 30  32 34 29 0d 3d 86 21 e7  |*2+10*1024).=.!.|
00008690  20 67 6f 74 69 74 25 3d  a3 20 8c 20 f2 6e 6f 74  | gotit%=. . .not|
000086a0  65 6e 6f 75 67 68 74 6f  6c 6f 61 64 0d 3d 90 2b  |enoughtoload.=.+|
000086b0  74 65 6d 70 6c 6f 61 64  25 3d 74 72 61 63 6b 65  |tempload%=tracke|
000086c0  72 74 75 6e 65 25 2b 66  69 6c 65 6c 65 6e 25 2b  |rtune%+filelen%+|
000086d0  31 30 2a 31 30 32 34 0d  3d 9a 27 74 65 6d 70 6c  |10*1024.=.'templ|
000086e0  6f 61 64 25 3d 28 74 65  6d 70 6c 6f 61 64 25 2d  |oad%=(tempload%-|
000086f0  34 29 20 80 20 26 46 46  46 46 46 46 46 43 0d 3d  |4) . &FFFFFFFC.=|
00008700  a4 29 ff 28 22 4c 4f 41  44 20 22 2b 63 6f 63 6f  |.).("LOAD "+coco|
00008710  74 72 61 63 6b 24 2b 22  20 22 2b c3 7e 74 65 6d  |track$+" "+.~tem|
00008720  70 6c 6f 61 64 25 29 0d  3d ae 08 41 25 3d 32 0d  |pload%).=..A%=2.|
00008730  3d b8 10 42 25 3d 74 65  6d 70 6c 6f 61 64 25 0d  |=..B%=tempload%.|
00008740  3d c2 13 43 25 3d 74 72  61 63 6b 65 72 74 75 6e  |=..C%=trackertun|
00008750  65 25 0d 3d cc 15 c8 99  20 22 48 6f 75 72 67 6c  |e%.=.... "Hourgl|
00008760  61 73 73 5f 4f 6e 22 0d  3d d6 12 d6 20 74 72 61  |ass_On".=... tra|
00008770  63 6b 65 72 63 6f 64 65  25 0d 3d e0 16 c8 99 20  |ckercode%.=.... |
00008780  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00008790  3d ea 1d 6e 65 77 73 69  7a 65 25 3d 74 72 61 63  |=..newsize%=trac|
000087a0  6b 65 72 74 75 6e 65 25  21 34 2b 38 0d 3d f4 2d  |kertune%!4+8.=.-|
000087b0  6e 65 77 73 69 7a 65 25  3d 28 6e 65 77 73 69 7a  |newsize%=(newsiz|
000087c0  65 25 2b 33 32 2a 31 30  32 34 2d 31 29 20 80 20  |e%+32*1024-1) . |
000087d0  26 46 46 46 46 38 30 30  30 0d 3d fe 2c c8 99 20  |&FFFF8000.=.,.. |
000087e0  22 58 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  |"XWimp_SlotSize"|
000087f0  2c 6e 65 77 73 69 7a 65  25 2b 61 70 70 73 69 7a  |,newsize%+appsiz|
00008800  65 25 2c 2d 31 0d 3e 08  28 66 72 65 65 6d 65 6d  |e%,-1.>.(freemem|
00008810  25 3d 6e 65 77 73 69 7a  65 25 2d 28 74 72 61 63  |%=newsize%-(trac|
00008820  6b 65 72 74 75 6e 65 25  21 34 2b 38 29 0d 3e 12  |kertune%!4+8).>.|
00008830  0f f2 6a 75 73 74 6c 6f  61 64 65 64 0d 3e 1c 05  |..justloaded.>..|
00008840  e1 0d 3e 26 05 3a 0d 3e  30 1f dd f2 6c 6f 61 64  |..>&.:.>0...load|
00008850  70 72 6f 74 72 61 63 6b  65 72 28 70 72 6f 74 72  |protracker(protr|
00008860  61 63 6b 24 29 0d 3e 3a  0c 61 62 6f 72 74 25 3d  |ack$).>:.abort%=|
00008870  a3 0d 3e 44 13 e7 20 74  75 6e 65 6c 6f 61 64 65  |..>D.. tuneloade|
00008880  64 25 20 8c 0d 3e 4e 49  65 72 72 6f 72 65 78 69  |d% ..>NIerrorexi|
00008890  74 25 3d a4 65 72 72 6f  72 62 6f 78 28 31 37 2c  |t%=.errorbox(17,|
000088a0  22 45 78 69 73 74 69 6e  67 20 74 75 6e 65 20 77  |"Existing tune w|
000088b0  69 6c 6c 20 62 65 20 6c  6f 73 74 20 2d 20 61 72  |ill be lost - ar|
000088c0  65 20 79 6f 75 20 73 75  72 65 3f 22 29 0d 3e 58  |e you sure?").>X|
000088d0  2d e7 20 65 72 72 6f 72  65 78 69 74 25 3d 31 20  |-. errorexit%=1 |
000088e0  8c 20 f2 72 65 74 75 72  6e 6d 65 6d 6f 72 79 20  |. .returnmemory |
000088f0  8b 20 61 62 6f 72 74 25  3d b9 0d 3e 62 05 cd 0d  |. abort%=..>b...|
00008900  3e 6c 10 e7 20 61 62 6f  72 74 25 20 8c 20 e1 0d  |>l.. abort% . ..|
00008910  3e 76 05 3a 0d 3e 80 0d  f2 73 74 6f 70 74 75 6e  |>v.:.>...stoptun|
00008920  65 0d 3e 8a 0e 66 72 65  65 6d 65 6d 25 3d 30 0d  |e.>..freemem%=0.|
00008930  3e 94 27 67 6f 74 69 74  25 3d a4 67 72 61 62 6d  |>.'gotit%=.grabm|
00008940  65 6d 28 66 69 6c 65 6c  65 6e 25 2a 32 2b 31 30  |em(filelen%*2+10|
00008950  2a 31 30 32 34 29 0d 3e  9e 21 e7 20 67 6f 74 69  |*1024).>.!. goti|
00008960  74 25 3d a3 20 8c 20 f2  6e 6f 74 65 6e 6f 75 67  |t%=. . .notenoug|
00008970  68 74 6f 6c 6f 61 64 0d  3e a8 2b 74 65 6d 70 6c  |htoload.>.+templ|
00008980  6f 61 64 25 3d 74 72 61  63 6b 65 72 74 75 6e 65  |oad%=trackertune|
00008990  25 2b 66 69 6c 65 6c 65  6e 25 2b 31 30 2a 31 30  |%+filelen%+10*10|
000089a0  32 34 0d 3e b2 27 74 65  6d 70 6c 6f 61 64 25 3d  |24.>.'tempload%=|
000089b0  28 74 65 6d 70 6c 6f 61  64 25 2d 34 29 20 80 20  |(tempload%-4) . |
000089c0  26 46 46 46 46 46 46 46  43 0d 3e bc 28 ff 28 22  |&FFFFFFFC.>.(.("|
000089d0  4c 4f 41 44 20 22 2b 70  72 6f 74 72 61 63 6b 24  |LOAD "+protrack$|
000089e0  2b 22 20 22 2b c3 7e 74  65 6d 70 6c 6f 61 64 25  |+" "+.~tempload%|
000089f0  29 0d 3e c6 08 41 25 3d  31 0d 3e d0 10 42 25 3d  |).>..A%=1.>..B%=|
00008a00  74 65 6d 70 6c 6f 61 64  25 0d 3e da 13 43 25 3d  |tempload%.>..C%=|
00008a10  74 72 61 63 6b 65 72 74  75 6e 65 25 0d 3e e4 0f  |trackertune%.>..|
00008a20  44 25 3d 66 69 6c 65 6c  65 6e 25 0d 3e ee 15 c8  |D%=filelen%.>...|
00008a30  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00008a40  0d 3e f8 12 d6 20 74 72  61 63 6b 65 72 63 6f 64  |.>... trackercod|
00008a50  65 25 0d 3f 02 28 ff 28  22 4c 4f 41 44 20 22 2b  |e%.?.(.("LOAD "+|
00008a60  70 72 6f 74 72 61 63 6b  24 2b 22 20 22 2b c3 7e  |protrack$+" "+.~|
00008a70  74 65 6d 70 6c 6f 61 64  25 29 0d 3f 0c 08 41 25  |tempload%).?..A%|
00008a80  3d 33 0d 3f 16 10 42 25  3d 74 65 6d 70 6c 6f 61  |=3.?..B%=temploa|
00008a90  64 25 0d 3f 20 13 43 25  3d 74 72 61 63 6b 65 72  |d%.? .C%=tracker|
00008aa0  74 75 6e 65 25 0d 3f 2a  12 d6 20 74 72 61 63 6b  |tune%.?*.. track|
00008ab0  65 72 63 6f 64 65 25 0d  3f 34 16 c8 99 20 22 48  |ercode%.?4... "H|
00008ac0  6f 75 72 67 6c 61 73 73  5f 4f 66 66 22 0d 3f 3e  |ourglass_Off".?>|
00008ad0  1d 6e 65 77 73 69 7a 65  25 3d 74 72 61 63 6b 65  |.newsize%=tracke|
00008ae0  72 74 75 6e 65 25 21 34  2b 38 0d 3f 48 2d 6e 65  |rtune%!4+8.?H-ne|
00008af0  77 73 69 7a 65 25 3d 28  6e 65 77 73 69 7a 65 25  |wsize%=(newsize%|
00008b00  2b 33 32 2a 31 30 32 34  2d 31 29 20 80 20 26 46  |+32*1024-1) . &F|
00008b10  46 46 46 38 30 30 30 0d  3f 52 2c c8 99 20 22 58  |FFF8000.?R,.. "X|
00008b20  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 6e  |Wimp_SlotSize",n|
00008b30  65 77 73 69 7a 65 25 2b  61 70 70 73 69 7a 65 25  |ewsize%+appsize%|
00008b40  2c 2d 31 0d 3f 5c 28 66  72 65 65 6d 65 6d 25 3d  |,-1.?\(freemem%=|
00008b50  6e 65 77 73 69 7a 65 25  2d 28 74 72 61 63 6b 65  |newsize%-(tracke|
00008b60  72 74 75 6e 65 25 21 34  2b 38 29 0d 3f 66 0f f2  |rtune%!4+8).?f..|
00008b70  6a 75 73 74 6c 6f 61 64  65 64 0d 3f 70 05 e1 0d  |justloaded.?p...|
00008b80  3f 7a 05 3a 0d 3f 84 0e  dd f2 70 6c 61 79 74 75  |?z.:.?....playtu|
00008b90  6e 65 0d 3f 8e 18 e7 20  ac 28 74 75 6e 65 6c 6f  |ne.?... .(tunelo|
00008ba0  61 64 65 64 25 29 20 8c  20 e1 0d 3f 98 12 e7 20  |aded%) . ..?... |
00008bb0  70 6c 61 79 69 6e 67 25  20 8c 20 e1 0d 3f a2 1b  |playing% . ..?..|
00008bc0  62 79 74 65 73 25 3d 74  72 61 63 6b 65 72 74 75  |bytes%=trackertu|
00008bd0  6e 65 25 21 34 2b 38 0d  3f ac 0d 41 25 3d 62 79  |ne%!4+8.?..A%=by|
00008be0  74 65 73 25 0d 3f b6 1d  f4 20 72 6d 61 73 70 61  |tes%.?... rmaspa|
00008bf0  63 65 25 3d 55 53 52 28  63 6c 61 69 6d 52 6d 61  |ce%=USR(claimRma|
00008c00  29 0d 3f c0 2d c8 99 20  22 4f 53 5f 4d 6f 64 75  |).?.-.. "OS_Modu|
00008c10  6c 65 22 2c 36 2c 30 2c  30 2c 62 79 74 65 73 25  |le",6,0,0,bytes%|
00008c20  20 b8 20 2c 2c 72 6d 61  73 70 61 63 65 25 0d 3f  | . ,,rmaspace%.?|
00008c30  ca 38 e7 20 72 6d 61 73  70 61 63 65 25 3d 30 20  |.8. rmaspace%=0 |
00008c40  8c 20 85 20 31 37 2c 22  49 6e 73 75 66 66 69 63  |. . 17,"Insuffic|
00008c50  69 65 6e 74 20 4d 65 6d  6f 72 79 20 41 76 61 69  |ient Memory Avai|
00008c60  6c 61 62 6c 65 22 0d 3f  d4 10 f2 73 65 74 75 70  |lable".?...setup|
00008c70  76 6f 69 63 65 73 0d 3f  de 12 f2 72 65 77 72 69  |voices.?...rewri|
00008c80  74 65 73 74 65 72 65 6f  0d 3f e8 16 72 6d 61 63  |testereo.?..rmac|
00008c90  6c 61 69 6d 65 64 25 3d  62 79 74 65 73 25 0d 3f  |laimed%=bytes%.?|
00008ca0  f2 13 41 25 3d 74 72 61  63 6b 65 72 74 75 6e 65  |..A%=trackertune|
00008cb0  25 0d 3f fc 10 42 25 3d  72 6d 61 73 70 61 63 65  |%.?..B%=rmaspace|
00008cc0  25 0d 40 06 0d 43 25 3d  62 79 74 65 73 25 0d 40  |%.@..C%=bytes%.@|
00008cd0  10 0f d6 20 63 6f 70 79  62 79 74 65 73 0d 40 1a  |... copybytes.@.|
00008ce0  36 c8 99 20 22 54 72 61  63 6b 65 72 5f 4d 65 6d  |6.. "Tracker_Mem|
00008cf0  6f 72 79 4c 6f 61 64 22  2c 72 6d 61 73 70 61 63  |oryLoad",rmaspac|
00008d00  65 25 2c 74 72 61 63 6b  65 72 74 75 6e 65 25 21  |e%,trackertune%!|
00008d10  34 2b 38 0d 40 24 15 c8  99 20 22 54 72 61 63 6b  |4+8.@$... "Track|
00008d20  65 72 5f 50 6c 61 79 22  0d 40 2e 0e 70 6c 61 79  |er_Play".@..play|
00008d30  69 6e 67 25 3d b9 0d 40  38 10 f2 70 61 6e 65 6c  |ing%=..@8..panel|
00008d40  73 74 61 74 75 73 0d 40  42 05 e1 0d 40 4c 05 3a  |status.@B...@L.:|
00008d50  0d 40 56 0e dd f2 73 74  6f 70 74 75 6e 65 0d 40  |.@V...stoptune.@|
00008d60  60 15 e7 20 ac 28 70 6c  61 79 69 6e 67 25 29 20  |`.. .(playing%) |
00008d70  8c 20 e1 0d 40 6a 15 c8  99 20 22 54 72 61 63 6b  |. ..@j... "Track|
00008d80  65 72 5f 53 74 6f 70 22  0d 40 74 21 c8 99 20 22  |er_Stop".@t!.. "|
00008d90  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 37 2c 30 2c  |XOS_Module",7,0,|
00008da0  72 6d 61 73 70 61 63 65  25 0d 40 7e 2d c8 99 20  |rmaspace%.@~-.. |
00008db0  22 58 4f 53 5f 43 68 61  6e 67 65 44 79 6e 61 6d  |"XOS_ChangeDynam|
00008dc0  69 63 41 72 65 61 22 2c  31 2c 2d 72 6d 61 63 6c  |icArea",1,-rmacl|
00008dd0  61 69 6d 65 64 25 0d 40  88 0e 70 6c 61 79 69 6e  |aimed%.@..playin|
00008de0  67 25 3d a3 0d 40 92 1b  6f 6c 64 70 6f 73 25 3d  |g%=..@..oldpos%=|
00008df0  2d 31 3a 6f 6c 64 65 76  65 6e 74 25 3d 2d 31 0d  |-1:oldevent%=-1.|
00008e00  40 9c 10 f2 70 61 6e 65  6c 73 74 61 74 75 73 0d  |@...panelstatus.|
00008e10  40 a6 05 e1 0d 40 b0 05  3a 0d 40 ba 1a dd f2 73  |@....@..:.@....s|
00008e20  68 61 64 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |hade(window%,ico|
00008e30  6e 25 29 0d 40 c4 11 71  32 25 21 30 3d 77 69 6e  |n%).@..q2%!0=win|
00008e40  64 6f 77 25 0d 40 ce 0f  71 32 25 21 34 3d 69 63  |dow%.@..q2%!4=ic|
00008e50  6f 6e 25 0d 40 d8 0e 71  32 25 21 38 3d 32 5e 32  |on%.@..q2%!8=2^2|
00008e60  32 0d 40 e2 0f 71 32 25  21 31 32 3d 32 5e 32 32  |2.@..q2%!12=2^22|
00008e70  0d 40 ec 1f c8 99 20 22  57 69 6d 70 5f 53 65 74  |.@.... "Wimp_Set|
00008e80  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 32 25 0d  |IconState",,q2%.|
00008e90  40 f6 05 e1 0d 41 00 05  3a 0d 41 0a 1c dd f2 75  |@....A..:.A....u|
00008ea0  6e 73 68 61 64 65 28 77  69 6e 64 6f 77 25 2c 69  |nshade(window%,i|
00008eb0  63 6f 6e 25 29 0d 41 14  11 71 32 25 21 30 3d 77  |con%).A..q2%!0=w|
00008ec0  69 6e 64 6f 77 25 0d 41  1e 0f 71 32 25 21 34 3d  |indow%.A..q2%!4=|
00008ed0  69 63 6f 6e 25 0d 41 28  0b 71 32 25 21 38 3d 30  |icon%.A(.q2%!8=0|
00008ee0  0d 41 32 0f 71 32 25 21  31 32 3d 32 5e 32 32 0d  |.A2.q2%!12=2^22.|
00008ef0  41 3c 1f c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |A<... "Wimp_SetI|
00008f00  63 6f 6e 53 74 61 74 65  22 2c 2c 71 32 25 0d 41  |conState",,q2%.A|
00008f10  46 05 e1 0d 41 50 05 3a  0d 41 5a 11 dd f2 70 61  |F...AP.:.AZ...pa|
00008f20  6e 65 6c 73 74 61 74 75  73 0d 41 64 10 e7 20 70  |nelstatus.Ad.. p|
00008f30  6c 61 79 69 6e 67 25 20  8c 0d 41 6e 16 f2 73 68  |laying% ..An..sh|
00008f40  61 64 65 28 70 6c 61 79  65 72 25 2c 31 36 29 0d  |ade(player%,16).|
00008f50  41 78 18 f2 75 6e 73 68  61 64 65 28 70 6c 61 79  |Ax..unshade(play|
00008f60  65 72 25 2c 31 37 29 0d  41 82 05 cc 0d 41 8c 16  |er%,17).A....A..|
00008f70  f2 73 68 61 64 65 28 70  6c 61 79 65 72 25 2c 31  |.shade(player%,1|
00008f80  37 29 0d 41 96 18 f2 75  6e 73 68 61 64 65 28 70  |7).A...unshade(p|
00008f90  6c 61 79 65 72 25 2c 31  36 29 0d 41 a0 20 f2 73  |layer%,16).A. .s|
00008fa0  65 74 69 63 6f 6e 74 65  78 74 28 70 6c 61 79 65  |eticontext(playe|
00008fb0  72 25 2c 31 30 2c 22 2d  22 29 0d 41 aa 1f f2 73  |r%,10,"-").A...s|
00008fc0  65 74 69 63 6f 6e 74 65  78 74 28 70 6c 61 79 65  |eticontext(playe|
00008fd0  72 25 2c 31 38 2c 22 22  29 0d 41 b4 05 cd 0d 41  |r%,18,"").A....A|
00008fe0  be 05 e1 0d 41 c8 05 3a  0d 41 d2 12 dd f2 73 68  |....A..:.A....sh|
00008ff0  6f 77 6d 75 73 69 63 70  6f 73 0d 41 dc 15 e7 20  |owmusicpos.A... |
00009000  ac 28 70 6c 61 79 69 6e  67 25 29 20 8c 20 e1 0d  |.(playing%) . ..|
00009010  41 e6 29 6d 75 73 63 6f  75 6e 74 65 72 25 3d 28  |A.)muscounter%=(|
00009020  6d 75 73 63 6f 75 6e 74  65 72 25 2b 31 29 20 83  |muscounter%+1) .|
00009030  20 75 70 64 61 74 65 25  0d 41 f0 15 e7 20 6d 75  | update%.A... mu|
00009040  73 63 6f 75 6e 74 65 72  25 3d 30 20 8c 0d 41 fa  |scounter%=0 ..A.|
00009050  2b c8 99 20 22 54 72 61  63 6b 65 72 5f 52 65 61  |+.. "Tracker_Rea|
00009060  64 50 6f 73 22 20 b8 20  70 6f 73 25 2c 65 76 65  |dPos" . pos%,eve|
00009070  6e 74 25 2c 6d 61 78 25  0d 42 04 15 e7 20 70 6f  |nt%,max%.B... po|
00009080  73 25 3c 3e 6f 6c 64 70  6f 73 25 20 8c 0d 42 0e  |s%<>oldpos% ..B.|
00009090  34 f2 73 65 74 69 63 6f  6e 74 65 78 74 28 70 6c  |4.seticontext(pl|
000090a0  61 79 65 72 25 2c 31 30  2c c3 28 70 6f 73 25 2b  |ayer%,10,.(pos%+|
000090b0  31 29 2b 22 3a 22 2b c3  28 6d 61 78 25 2b 31 29  |1)+":"+.(max%+1)|
000090c0  29 0d 42 18 05 cd 0d 42  22 3c e7 20 65 76 65 6e  |).B....B"<. even|
000090d0  74 25 3c 3e 6f 6c 64 65  76 65 6e 74 25 20 8c 20  |t%<>oldevent% . |
000090e0  f2 73 65 74 69 63 6f 6e  74 65 78 74 28 70 6c 61  |.seticontext(pla|
000090f0  79 65 72 25 2c 31 38 2c  c3 28 65 76 65 6e 74 25  |yer%,18,.(event%|
00009100  29 29 0d 42 2c 21 6f 6c  64 70 6f 73 25 3d 70 6f  |)).B,!oldpos%=po|
00009110  73 25 3a 6f 6c 64 65 76  65 6e 74 25 3d 65 76 65  |s%:oldevent%=eve|
00009120  6e 74 25 0d 42 36 05 cd  0d 42 40 05 e1 0d 42 4a  |nt%.B6...B@...BJ|
00009130  05 3a 0d 42 54 0c dd f2  72 65 77 69 6e 64 0d 42  |.:.BT...rewind.B|
00009140  5e 15 e7 20 ac 28 70 6c  61 79 69 6e 67 25 29 20  |^.. .(playing%) |
00009150  8c 20 e1 0d 42 68 26 c8  99 20 22 54 72 61 63 6b  |. ..Bh&.. "Track|
00009160  65 72 5f 52 65 61 64 50  6f 73 22 20 b8 20 70 6f  |er_ReadPos" . po|
00009170  73 25 2c 65 76 65 6e 74  25 0d 42 72 2b e7 20 70  |s%,event%.Br+. p|
00009180  6f 73 25 3e 30 20 8c 20  c8 99 20 22 54 72 61 63  |os%>0 . .. "Trac|
00009190  6b 65 72 5f 53 65 74 50  6f 73 22 2c 70 6f 73 25  |ker_SetPos",pos%|
000091a0  2d 31 2c 30 0d 42 7c 05  e1 0d 42 86 05 3a 0d 42  |-1,0.B|...B..:.B|
000091b0  90 11 dd f2 66 61 73 74  66 6f 72 77 61 72 64 0d  |....fastforward.|
000091c0  42 9a 15 e7 20 ac 28 70  6c 61 79 69 6e 67 25 29  |B... .(playing%)|
000091d0  20 8c 20 e1 0d 42 a4 2b  c8 99 20 22 54 72 61 63  | . ..B.+.. "Trac|
000091e0  6b 65 72 5f 52 65 61 64  50 6f 73 22 20 b8 20 70  |ker_ReadPos" . p|
000091f0  6f 73 25 2c 65 76 65 6e  74 25 2c 6d 61 78 25 0d  |os%,event%,max%.|
00009200  42 ae 2e e7 20 70 6f 73  25 3c 6d 61 78 25 20 8c  |B... pos%<max% .|
00009210  20 c8 99 20 22 54 72 61  63 6b 65 72 5f 53 65 74  | .. "Tracker_Set|
00009220  50 6f 73 22 2c 70 6f 73  25 2b 31 2c 30 0d 42 b8  |Pos",pos%+1,0.B.|
00009230  05 e1 0d 42 c2 05 3a 0d  42 cc 16 dd f2 69 6e 69  |...B..:.B....ini|
00009240  74 69 61 6c 69 73 65 76  6f 69 63 65 73 0d 42 d6  |tialisevoices.B.|
00009250  14 e3 20 76 25 3d 31 20  b8 20 76 6f 69 63 65 73  |.. v%=1 . voices|
00009260  25 0d 42 e0 1d f2 6d 61  6b 65 73 65 6c 65 63 74  |%.B...makeselect|
00009270  65 64 28 70 6c 61 79 65  72 25 2c 76 25 29 0d 42  |ed(player%,v%).B|
00009280  ea 18 f2 75 6e 73 68 61  64 65 28 70 6c 61 79 65  |...unshade(playe|
00009290  72 25 2c 76 25 29 0d 42  f4 22 c8 99 20 22 54 72  |r%,v%).B.".. "Tr|
000092a0  61 63 6b 65 72 5f 52 65  73 74 6f 72 65 43 68 61  |acker_RestoreCha|
000092b0  6e 6e 65 6c 22 2c 76 25  0d 42 fe 05 ed 0d 43 08  |nnel",v%.B....C.|
000092c0  11 e7 20 76 6f 69 63 65  73 25 3c 38 20 8c 0d 43  |.. voices%<8 ..C|
000092d0  12 16 e3 20 76 25 3d 76  6f 69 63 65 73 25 2b 31  |... v%=voices%+1|
000092e0  20 b8 20 38 0d 43 1c 1f  f2 6d 61 6b 65 75 6e 73  | . 8.C...makeuns|
000092f0  65 6c 65 63 74 65 64 28  70 6c 61 79 65 72 25 2c  |elected(player%,|
00009300  76 25 29 0d 43 26 16 f2  73 68 61 64 65 28 70 6c  |v%).C&..shade(pl|
00009310  61 79 65 72 25 2c 76 25  29 0d 43 30 05 ed 0d 43  |ayer%,v%).C0...C|
00009320  3a 05 cd 0d 43 44 05 e1  0d 43 4e 05 3a 0d 43 58  |:...CD...CN.:.CX|
00009330  11 dd f2 73 65 74 75 70  76 6f 69 63 65 73 0d 43  |...setupvoices.C|
00009340  62 14 e3 20 76 25 3d 31  20 b8 20 76 6f 69 63 65  |b.. v%=1 . voice|
00009350  73 25 0d 43 6c 21 e7 20  a4 69 73 69 74 73 65 6c  |s%.Cl!. .isitsel|
00009360  65 63 74 65 64 28 70 6c  61 79 65 72 25 2c 76 25  |ected(player%,v%|
00009370  29 20 8c 0d 43 76 22 c8  99 20 22 54 72 61 63 6b  |) ..Cv".. "Track|
00009380  65 72 5f 52 65 73 74 6f  72 65 43 68 61 6e 6e 65  |er_RestoreChanne|
00009390  6c 22 2c 76 25 0d 43 80  05 cc 0d 43 8a 1f c8 99  |l",v%.C....C....|
000093a0  20 22 54 72 61 63 6b 65  72 5f 4d 75 74 65 43 68  | "Tracker_MuteCh|
000093b0  61 6e 6e 65 6c 22 2c 76  25 0d 43 94 05 cd 0d 43  |annel",v%.C....C|
000093c0  9e 05 ed 0d 43 a8 05 e1  0d 43 b2 05 3a 0d 43 bc  |....C....C..:.C.|
000093d0  15 dd f2 74 6f 67 67 6c  65 76 6f 69 63 65 28 76  |...togglevoice(v|
000093e0  25 29 0d 43 c6 18 e7 20  ac 28 74 75 6e 65 6c 6f  |%).C... .(tunelo|
000093f0  61 64 65 64 25 29 20 8c  20 e1 0d 43 d0 21 e7 20  |aded%) . ..C.!. |
00009400  a4 69 73 69 74 73 65 6c  65 63 74 65 64 28 70 6c  |.isitselected(pl|
00009410  61 79 65 72 25 2c 76 25  29 20 8c 0d 43 da 1f f2  |ayer%,v%) ..C...|
00009420  6d 61 6b 65 75 6e 73 65  6c 65 63 74 65 64 28 70  |makeunselected(p|
00009430  6c 61 79 65 72 25 2c 76  25 29 0d 43 e4 1f c8 99  |layer%,v%).C....|
00009440  20 22 54 72 61 63 6b 65  72 5f 4d 75 74 65 43 68  | "Tracker_MuteCh|
00009450  61 6e 6e 65 6c 22 2c 76  25 0d 43 ee 05 cc 0d 43  |annel",v%.C....C|
00009460  f8 1d f2 6d 61 6b 65 73  65 6c 65 63 74 65 64 28  |...makeselected(|
00009470  70 6c 61 79 65 72 25 2c  76 25 29 0d 44 02 22 c8  |player%,v%).D.".|
00009480  99 20 22 54 72 61 63 6b  65 72 5f 52 65 73 74 6f  |. "Tracker_Resto|
00009490  72 65 43 68 61 6e 6e 65  6c 22 2c 76 25 0d 44 0c  |reChannel",v%.D.|
000094a0  05 cd 0d 44 16 05 e1 0d  44 20 05 3a 0d 44 2a 18  |...D....D .:.D*.|
000094b0  dd f2 61 6c 74 65 72 73  74 65 72 65 6f 28 69 63  |..alterstereo(ic|
000094c0  6f 6e 25 29 0d 44 34 1e  e7 20 69 63 6f 6e 25 3c  |on%).D4.. icon%<|
000094d0  30 20 84 20 69 63 6f 6e  25 3e 3d 38 2a 38 20 8c  |0 . icon%>=8*8 .|
000094e0  20 e1 0d 44 3e 17 e7 20  28 69 63 6f 6e 25 20 83  | ..D>.. (icon% .|
000094f0  20 38 29 3d 30 20 8c 20  e1 0d 44 48 29 e7 20 62  | 8)=0 . ..DH). b|
00009500  25 3d 31 20 8c 20 f2 6d  61 6b 65 73 65 6c 65 63  |%=1 . .makeselec|
00009510  74 65 64 28 73 74 65 72  65 6f 25 2c 69 63 6f 6e  |ted(stereo%,icon|
00009520  25 29 0d 44 52 1a e7 20  69 63 6f 6e 25 3e 3d 76  |%).DR.. icon%>=v|
00009530  6f 69 63 65 73 25 2a 38  20 8c 20 e1 0d 44 5c 14  |oices%*8 . ..D\.|
00009540  76 25 3d 28 69 63 6f 6e  25 20 81 20 38 29 2b 31  |v%=(icon% . 8)+1|
00009550  0d 44 66 20 73 74 65 72  61 64 64 72 25 3f 28 76  |.Df steraddr%?(v|
00009560  25 2d 31 29 3d 28 69 63  6f 6e 25 20 83 20 38 29  |%-1)=(icon% . 8)|
00009570  0d 44 70 3c e7 20 70 6c  61 79 69 6e 67 25 20 8c  |.Dp<. playing% .|
00009580  20 c8 99 20 22 53 6f 75  6e 64 5f 53 74 65 72 65  | .. "Sound_Stere|
00009590  6f 22 2c 76 25 2c 73 74  65 72 65 6f 76 61 6c 73  |o",v%,stereovals|
000095a0  25 28 69 63 6f 6e 25 20  83 20 38 29 0d 44 7a 05  |%(icon% . 8).Dz.|
000095b0  e1 0d 44 84 05 3a 0d 44  8e 12 dd f2 69 6e 63 70  |..D..:.D....incp|
000095c0  61 74 6c 65 6e 67 74 68  0d 44 98 1d e7 20 70 61  |atlength.D... pa|
000095d0  74 6c 65 6e 25 3c 36 34  20 8c 20 70 61 74 6c 65  |tlen%<64 . patle|
000095e0  6e 25 2b 3d 31 0d 44 a2  28 f2 73 65 74 69 63 6f  |n%+=1.D.(.setico|
000095f0  6e 74 65 78 74 28 73 65  74 74 69 6e 67 73 25 2c  |ntext(settings%,|
00009600  35 2c c3 28 70 61 74 6c  65 6e 25 29 29 0d 44 ac  |5,.(patlen%)).D.|
00009610  05 e1 0d 44 b6 05 3a 0d  44 c0 12 dd f2 64 65 63  |...D..:.D....dec|
00009620  70 61 74 6c 65 6e 67 74  68 0d 44 ca 1c e7 20 70  |patlength.D... p|
00009630  61 74 6c 65 6e 25 3e 31  20 8c 20 70 61 74 6c 65  |atlen%>1 . patle|
00009640  6e 25 2d 3d 31 0d 44 d4  28 f2 73 65 74 69 63 6f  |n%-=1.D.(.setico|
00009650  6e 74 65 78 74 28 73 65  74 74 69 6e 67 73 25 2c  |ntext(settings%,|
00009660  35 2c c3 28 70 61 74 6c  65 6e 25 29 29 0d 44 de  |5,.(patlen%)).D.|
00009670  05 e1 0d 44 e8 05 3a 0d  44 f2 15 dd a4 77 68 69  |...D..:.D....whi|
00009680  63 68 73 61 6d 70 6c 65  74 79 70 65 0d 44 fc 25  |chsampletype.D.%|
00009690  e7 20 a4 69 73 69 74 73  65 6c 65 63 74 65 64 28  |. .isitselected(|
000096a0  73 65 74 74 69 6e 67 73  25 2c 36 29 20 8c 20 3d  |settings%,6) . =|
000096b0  33 0d 45 06 25 e7 20 a4  69 73 69 74 73 65 6c 65  |3.E.%. .isitsele|
000096c0  63 74 65 64 28 73 65 74  74 69 6e 67 73 25 2c 37  |cted(settings%,7|
000096d0  29 20 8c 20 3d 34 0d 45  10 06 3d 35 0d 45 1a 05  |) . =4.E..=5.E..|
000096e0  3a 0d 45 24 14 dd a4 70  61 64 28 73 74 72 24 2c  |:.E$...pad(str$,|
000096f0  6c 65 6e 25 29 0d 45 2e  1b 3d c0 73 74 72 24 2b  |len%).E..=.str$+|
00009700  c4 6c 65 6e 25 2c 22 20  22 29 2c 6c 65 6e 25 29  |.len%," "),len%)|
00009710  0d 45 38 05 3a 0d 45 42  19 dd a4 70 61 64 72 69  |.E8.:.EB...padri|
00009720  67 68 74 28 73 74 72 24  2c 6c 65 6e 25 29 0d 45  |ght(str$,len%).E|
00009730  4c 1b 3d c2 c4 6c 65 6e  25 2c 22 20 22 29 2b 73  |L.=..len%," ")+s|
00009740  74 72 24 2c 6c 65 6e 25  29 0d 45 56 05 3a 0d 45  |tr$,len%).EV.:.E|
00009750  60 12 dd a4 62 61 73 65  33 36 28 6e 75 6d 25 29  |`...base36(num%)|
00009760  0d 45 6a 13 e7 20 6e 75  6d 25 3d 30 20 8c 20 3d  |.Ej.. num%=0 . =|
00009770  22 2d 22 0d 45 74 1a e7  20 6e 75 6d 25 3c 31 31  |"-".Et.. num%<11|
00009780  20 8c 20 3d c3 28 6e 75  6d 25 2d 31 29 0d 45 7e  | . =.(num%-1).E~|
00009790  0f 3d bd 28 6e 75 6d 25  2b 35 34 29 0d 45 88 05  |.=.(num%+54).E..|
000097a0  3a 0d 45 92 19 dd f2 73  61 76 65 64 75 6d 70 28  |:.E....savedump(|
000097b0  64 75 6d 70 6e 61 6d 65  24 29 0d 45 9c 0d f2 67  |dumpname$).E...g|
000097c0  65 74 6e 61 6d 65 73 0d  45 a6 15 c8 99 20 22 48  |etnames.E.... "H|
000097d0  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 45 b0 13  |ourglass_On".E..|
000097e0  41 25 3d 8e 28 64 75 6d  70 6e 61 6d 65 24 29 0d  |A%=.(dumpname$).|
000097f0  45 ba 12 e7 20 41 25 3e  30 20 8c 20 d9 20 23 41  |E... A%>0 . . #A|
00009800  25 0d 45 c4 0c e7 20 41  25 3e 30 20 8c 0d 45 ce  |%.E... A%>0 ..E.|
00009810  13 43 25 3d ad 28 64 75  6d 70 6e 61 6d 65 24 29  |.C%=.(dumpname$)|
00009820  0d 45 d8 0d cf 23 43 25  3d a2 23 43 25 0d 45 e2  |.E...#C%=.#C%.E.|
00009830  05 cc 0d 45 ec 13 43 25  3d ae 28 64 75 6d 70 6e  |...E..C%=.(dumpn|
00009840  61 6d 65 24 29 0d 45 f6  05 cd 0d 46 00 20 f2 73  |ame$).E....F. .s|
00009850  65 74 66 69 6c 65 74 79  70 65 28 64 75 6d 70 6e  |etfiletype(dumpn|
00009860  61 6d 65 24 2c 26 46 46  46 29 0d 46 0a 05 3a 0d  |ame$,&FFF).F..:.|
00009870  46 14 22 e7 20 a4 69 73  69 74 73 65 6c 65 63 74  |F.". .isitselect|
00009880  65 64 28 73 61 76 65 64  75 6d 70 25 2c 34 29 20  |ed(savedump%,4) |
00009890  8c 0d 46 1e 1e d5 23 43  25 2c 22 54 75 6e 65 20  |..F...#C%,"Tune |
000098a0  4e 61 6d 65 20 20 3a 22  2b 6d 6e 61 6d 65 24 0d  |Name  :"+mname$.|
000098b0  46 28 1e d5 23 43 25 2c  22 41 75 74 68 6f 72 20  |F(..#C%,"Author |
000098c0  20 20 20 20 3a 22 2b 61  6e 61 6d 65 24 0d 46 32  |    :"+aname$.F2|
000098d0  22 d5 23 43 25 2c 22 56  6f 69 63 65 73 20 20 20  |".#C%,"Voices   |
000098e0  20 20 3a 22 2b c3 28 76  6f 69 63 65 73 25 29 0d  |  :"+.(voices%).|
000098f0  46 3c 24 d5 23 43 25 2c  22 50 61 74 74 65 72 6e  |F<$.#C%,"Pattern|
00009900  73 20 20 20 3a 22 2b c3  28 70 61 74 74 65 72 6e  |s   :"+.(pattern|
00009910  73 25 29 0d 46 46 22 d5  23 43 25 2c 22 4c 65 6e  |s%).FF".#C%,"Len|
00009920  67 74 68 20 20 20 20 20  3a 22 2b c3 28 73 65 71  |gth     :"+.(seq|
00009930  6c 65 6e 25 29 0d 46 50  63 d5 23 43 25 2c 22 53  |len%).FPc.#C%,"S|
00009940  69 7a 65 20 20 20 20 20  20 20 3a 22 2b c3 28 a8  |ize       :"+.(.|
00009950  28 28 74 72 61 63 6b 65  72 74 75 6e 65 25 21 34  |((trackertune%!4|
00009960  2b 38 2b 35 31 32 29 20  81 20 31 30 32 34 29 29  |+8+512) . 1024))|
00009970  2b 22 4b 20 20 20 20 20  28 22 2b c3 28 74 72 61  |+"K     ("+.(tra|
00009980  63 6b 65 72 74 75 6e 65  25 21 34 2b 38 29 2b 22  |ckertune%!4+8)+"|
00009990  20 62 79 74 65 73 29 22  0d 46 5a 0b d5 23 43 25  | bytes)".FZ..#C%|
000099a0  2c 22 22 0d 46 64 05 cd  0d 46 6e 05 3a 0d 46 78  |,"".Fd...Fn.:.Fx|
000099b0  22 e7 20 a4 69 73 69 74  73 65 6c 65 63 74 65 64  |". .isitselected|
000099c0  28 73 61 76 65 64 75 6d  70 25 2c 35 29 20 8c 0d  |(savedump%,5) ..|
000099d0  46 82 15 d5 20 23 43 25  2c 22 53 65 71 75 65 6e  |F... #C%,"Sequen|
000099e0  63 65 3a 22 0d 46 8c 0d  73 65 71 70 6f 73 25 3d  |ce:".F..seqpos%=|
000099f0  30 0d 46 96 20 e3 20 72  6f 77 25 3d 31 20 b8 20  |0.F. . row%=1 . |
00009a00  28 73 65 71 6c 65 6e 25  2b 31 35 29 20 81 20 31  |(seqlen%+15) . 1|
00009a10  36 0d 46 a0 0b 72 6f 77  24 3d 22 22 0d 46 aa 11  |6.F..row$="".F..|
00009a20  e3 20 63 6f 6c 25 3d 31  20 b8 20 31 36 0d 46 b4  |. col%=1 . 16.F.|
00009a30  4c e7 20 73 65 71 70 6f  73 25 3e 3d 73 65 71 6c  |L. seqpos%>=seql|
00009a40  65 6e 25 20 8c 20 61 64  64 24 3d 22 20 20 20 20  |en% . add$="    |
00009a50  22 20 8b 20 61 64 64 24  3d c2 22 20 20 20 20 22  |" . add$=."    "|
00009a60  2b c3 28 73 65 71 61 64  64 72 25 3f 73 65 71 70  |+.(seqaddr%?seqp|
00009a70  6f 73 25 2b 31 29 2c 34  29 0d 46 be 0e 72 6f 77  |os%+1),4).F..row|
00009a80  24 2b 3d 61 64 64 24 0d  46 c8 0e 73 65 71 70 6f  |$+=add$.F..seqpo|
00009a90  73 25 2b 3d 31 0d 46 d2  05 ed 0d 46 dc 0d d5 23  |s%+=1.F....F...#|
00009aa0  43 25 2c 72 6f 77 24 0d  46 e6 05 ed 0d 46 f0 0b  |C%,row$.F....F..|
00009ab0  d5 23 43 25 2c 22 22 0d  46 fa 05 cd 0d 47 04 05  |.#C%,"".F....G..|
00009ac0  3a 0d 47 0e 22 e7 20 a4  69 73 69 74 73 65 6c 65  |:.G.". .isitsele|
00009ad0  63 74 65 64 28 73 61 76  65 64 75 6d 70 25 2c 36  |cted(savedump%,6|
00009ae0  29 20 8c 0d 47 18 18 d5  20 23 43 25 2c 22 49 6e  |) ..G... #C%,"In|
00009af0  73 74 72 75 6d 65 6e 74  73 3a 22 0d 47 22 14 e3  |struments:".G"..|
00009b00  20 73 61 6d 70 6c 65 25  3d 31 20 b8 20 33 36 0d  | sample%=1 . 36.|
00009b10  47 2c 18 e7 20 73 6c 65  6e 25 28 73 61 6d 70 6c  |G,.. slen%(sampl|
00009b20  65 25 29 3e 30 20 8c 0d  47 36 45 73 61 6d 70 6c  |e%)>0 ..G6Esampl|
00009b30  65 24 3d 22 53 61 6d 70  6c 65 20 22 2b a4 62 61  |e$="Sample "+.ba|
00009b40  73 65 33 36 28 73 61 6d  70 6c 65 25 29 2b 22 20  |se36(sample%)+" |
00009b50  20 22 2b a4 70 61 64 28  73 61 6d 70 6c 65 24 28  | "+.pad(sample$(|
00009b60  73 61 6d 70 6c 65 25 29  2c 32 30 29 0d 47 40 32  |sample%),20).G@2|
00009b70  73 61 6d 70 6c 65 24 2b  3d 22 20 20 4c 65 6e 67  |sample$+="  Leng|
00009b80  74 68 3a 22 2b a4 70 61  64 28 c3 28 73 6c 65 6e  |th:"+.pad(.(slen|
00009b90  25 28 73 61 6d 70 6c 65  25 29 29 2c 35 29 0d 47  |%(sample%)),5).G|
00009ba0  4a 10 d5 23 43 25 2c 73  61 6d 70 6c 65 24 0d 47  |J..#C%,sample$.G|
00009bb0  54 05 cd 0d 47 5e 05 ed  0d 47 68 0b d5 23 43 25  |T...G^...Gh..#C%|
00009bc0  2c 22 22 0d 47 72 05 cd  0d 47 7c 05 3a 0d 47 86  |,"".Gr...G|.:.G.|
00009bd0  23 e7 20 a4 69 73 69 74  73 65 6c 65 63 74 65 64  |#. .isitselected|
00009be0  28 73 61 76 65 64 75 6d  70 25 2c 31 30 29 20 8c  |(savedump%,10) .|
00009bf0  0d 47 90 0f 73 71 75 61  73 68 65 64 25 3d a3 0d  |.G..squashed%=..|
00009c00  47 9a 14 d5 23 43 25 2c  22 50 61 74 74 65 72 6e  |G...#C%,"Pattern|
00009c10  73 3a 22 0d 47 a4 0b d5  23 43 25 2c 22 22 0d 47  |s:".G...#C%,"".G|
00009c20  ae 1c e3 20 70 61 74 74  65 72 6e 25 3d 31 20 b8  |... pattern%=1 .|
00009c30  20 70 61 74 74 65 72 6e  73 25 0d 47 b8 36 c8 99  | patterns%.G.6..|
00009c40  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
00009c50  65 6e 74 61 67 65 22 2c  31 30 30 2a 28 70 61 74  |entage",100*(pat|
00009c60  74 65 72 6e 25 2f 70 61  74 74 65 72 6e 73 25 29  |tern%/patterns%)|
00009c70  0d 47 c2 1d 61 64 64 72  25 3d 70 61 74 74 61 64  |.G..addr%=pattad|
00009c80  64 72 25 28 70 61 74 74  65 72 6e 25 29 0d 47 cc  |dr%(pattern%).G.|
00009c90  53 d5 23 43 25 2c 22 50  61 74 74 65 72 6e 3a 22  |S.#C%,"Pattern:"|
00009ca0  2b a4 70 61 64 28 c3 28  70 61 74 74 65 72 6e 25  |+.pad(.(pattern%|
00009cb0  29 2c 32 29 2b 22 20 20  20 20 28 6c 65 6e 67 74  |),2)+"    (lengt|
00009cc0  68 3a 22 2b c3 28 70 61  74 74 6c 65 6e 25 3f 28  |h:"+.(pattlen%?(|
00009cd0  70 61 74 74 65 72 6e 25  2d 31 29 29 2b 22 29 22  |pattern%-1))+")"|
00009ce0  0d 47 d6 24 e3 20 72 6f  77 25 3d 31 20 b8 20 70  |.G.$. row%=1 . p|
00009cf0  61 74 74 6c 65 6e 25 3f  28 70 61 74 74 65 72 6e  |attlen%?(pattern|
00009d00  25 2d 31 29 0d 47 e0 0b  72 6f 77 24 3d 22 22 0d  |%-1).G..row$="".|
00009d10  47 ea 18 e3 20 76 6f 69  63 65 25 3d 31 20 b8 20  |G... voice%=1 . |
00009d20  76 6f 69 63 65 73 25 0d  47 f4 11 65 76 65 6e 74  |voices%.G..event|
00009d30  25 3d 21 61 64 64 72 25  0d 47 fe 3c c8 99 20 22  |%=!addr%.G.<.. "|
00009d40  54 72 61 63 6b 65 72 5f  44 65 63 6f 64 65 4e 6f  |Tracker_DecodeNo|
00009d50  74 65 22 2c 65 76 65 6e  74 25 20 b8 20 2c 6e 6f  |te",event% . ,no|
00009d60  74 65 25 2c 69 6e 73 74  25 2c 63 6f 6d 6d 25 2c  |te%,inst%,comm%,|
00009d70  76 61 6c 25 0d 48 08 47  65 76 65 6e 74 24 3d c1  |val%.H.Gevent$=.|
00009d80  6e 6f 74 65 73 24 2c 33  2a 6e 6f 74 65 25 2b 31  |notes$,3*note%+1|
00009d90  2c 33 29 2b 22 20 22 2b  a4 62 61 73 65 33 36 28  |,3)+" "+.base36(|
00009da0  69 6e 73 74 25 29 2b 22  20 22 2b a4 62 61 73 65  |inst%)+" "+.base|
00009db0  33 36 28 63 6f 6d 6d 25  2b 31 29 0d 48 12 1b 65  |36(comm%+1).H..e|
00009dc0  76 65 6e 74 24 2b 3d c2  22 30 30 22 2b c3 7e 76  |vent$+=."00"+.~v|
00009dd0  61 6c 25 2c 32 29 0d 48  1c 1a e7 20 76 6f 69 63  |al%,2).H... voic|
00009de0  65 25 3e 31 20 8c 20 72  6f 77 24 2b 3d 22 20 22  |e%>1 . row$+=" "|
00009df0  0d 48 26 10 72 6f 77 24  2b 3d 65 76 65 6e 74 24  |.H&.row$+=event$|
00009e00  0d 48 30 0c 61 64 64 72  25 2b 3d 34 0d 48 3a 05  |.H0.addr%+=4.H:.|
00009e10  ed 0d 48 44 0d d5 23 43  25 2c 72 6f 77 24 0d 48  |..HD..#C%,row$.H|
00009e20  4e 05 ed 0d 48 58 0b d5  23 43 25 2c 22 22 0d 48  |N...HX..#C%,"".H|
00009e30  62 05 ed 0d 48 6c 05 cd  0d 48 76 05 3a 0d 48 80  |b...Hl...Hv.:.H.|
00009e40  23 e7 20 a4 69 73 69 74  73 65 6c 65 63 74 65 64  |#. .isitselected|
00009e50  28 73 61 76 65 64 75 6d  70 25 2c 31 32 29 20 8c  |(savedump%,12) .|
00009e60  0d 48 8a 18 d5 23 43 25  2c 22 55 73 65 64 20 69  |.H...#C%,"Used i|
00009e70  6e 20 74 75 6e 65 3a 22  0d 48 94 0b d5 23 43 25  |n tune:".H...#C%|
00009e80  2c 22 22 0d 48 9e 08 41  25 3d 36 0d 48 a8 13 42  |,"".H..A%=6.H..B|
00009e90  25 3d 74 72 61 63 6b 65  72 74 75 6e 65 25 0d 48  |%=trackertune%.H|
00009ea0  b2 19 75 73 65 64 25 3d  ba 28 74 72 61 63 6b 65  |..used%=.(tracke|
00009eb0  72 63 6f 64 65 25 29 0d  48 bc 08 41 25 3d 37 0d  |rcode%).H..A%=7.|
00009ec0  48 c6 19 63 6f 6d 6d 25  3d ba 28 74 72 61 63 6b  |H..comm%=.(track|
00009ed0  65 72 63 6f 64 65 25 29  0d 48 d0 11 e3 20 72 6f  |ercode%).H... ro|
00009ee0  77 25 3d 31 20 b8 20 33  36 0d 48 da 1c 72 6f 77  |w%=1 . 36.H..row|
00009ef0  24 3d c1 6e 6f 74 65 73  24 2c 33 2a 72 6f 77 25  |$=.notes$,3*row%|
00009f00  2b 31 2c 33 29 0d 48 e4  37 72 6f 77 24 2b 3d 22  |+1,3).H.7row$+="|
00009f10  20 22 2b a4 70 61 64 72  69 67 68 74 28 c3 28 75  | "+.padright(.(u|
00009f20  73 65 64 25 21 28 72 6f  77 25 2a 34 2d 34 29 29  |sed%!(row%*4-4))|
00009f30  2c 35 29 2b 22 20 20 20  20 20 20 22 0d 48 ee 2b  |,5)+"      ".H.+|
00009f40  e7 20 73 6c 65 6e 25 28  72 6f 77 25 29 3e 30 20  |. slen%(row%)>0 |
00009f50  8c 20 72 6f 77 24 2b 3d  22 2a 22 20 8b 20 72 6f  |. row$+="*" . ro|
00009f60  77 24 2b 3d 22 20 22 0d  48 f8 17 73 61 6d 70 24  |w$+=" ".H..samp$|
00009f70  3d 73 61 6d 70 6c 65 24  28 72 6f 77 25 29 0d 49  |=sample$(row%).I|
00009f80  02 2a 72 6f 77 24 2b 3d  a4 62 61 73 65 33 36 28  |.*row$+=.base36(|
00009f90  72 6f 77 25 29 2b 22 20  22 2b a4 70 61 64 28 73  |row%)+" "+.pad(s|
00009fa0  61 6d 70 24 2c 32 31 29  0d 49 0c 38 72 6f 77 24  |amp$,21).I.8row$|
00009fb0  2b 3d a4 70 61 64 72 69  67 68 74 28 c3 28 75 73  |+=.padright(.(us|
00009fc0  65 64 25 21 28 72 6f 77  25 2a 34 2d 34 2b 33 36  |ed%!(row%*4-4+36|
00009fd0  2a 34 29 29 2c 35 29 2b  22 20 20 20 20 20 20 22  |*4)),5)+"      "|
00009fe0  0d 49 16 1b 72 6f 77 24  2b 3d a4 62 61 73 65 33  |.I..row$+=.base3|
00009ff0  36 28 72 6f 77 25 29 2b  22 20 22 0d 49 20 41 72  |6(row%)+" ".I Ar|
0000a000  6f 77 24 2b 3d a4 70 61  64 28 a4 61 72 72 6f 77  |ow$+=.pad(.arrow|
0000a010  73 28 a4 73 74 72 69 6e  67 77 69 74 68 6c 69 6d  |s(.stringwithlim|
0000a020  69 74 28 63 6f 6d 6d 25  2b 72 6f 77 25 2a 31 34  |it(comm%+row%*14|
0000a030  2d 31 34 2c 31 34 29 29  2c 31 35 29 0d 49 2a 2f  |-14,14)),15).I*/|
0000a040  72 6f 77 24 2b 3d a4 70  61 64 72 69 67 68 74 28  |row$+=.padright(|
0000a050  c3 28 75 73 65 64 25 21  28 72 6f 77 25 2a 34 2d  |.(used%!(row%*4-|
0000a060  34 2b 37 32 2a 34 29 29  2c 35 29 0d 49 34 0d d5  |4+72*4)),5).I4..|
0000a070  23 43 25 2c 72 6f 77 24  0d 49 3e 05 ed 0d 49 48  |#C%,row$.I>...IH|
0000a080  0b d5 23 43 25 2c 22 22  0d 49 52 05 cd 0d 49 5c  |..#C%,"".IR...I\|
0000a090  05 3a 0d 49 66 16 c8 99  20 22 48 6f 75 72 67 6c  |.:.If... "Hourgl|
0000a0a0  61 73 73 5f 4f 66 66 22  0d 49 70 09 d9 20 23 43  |ass_Off".Ip.. #C|
0000a0b0  25 0d 49 7a 1c c8 99 20  22 57 69 6d 70 5f 43 72  |%.Iz... "Wimp_Cr|
0000a0c0  65 61 74 65 4d 65 6e 75  22 2c 2c 2d 31 0d 49 84  |eateMenu",,-1.I.|
0000a0d0  05 e1 0d 49 8e 05 3a 0d  49 98 12 dd a4 61 72 72  |...I..:.I....arr|
0000a0e0  6f 77 73 28 73 74 72 24  29 0d 49 a2 13 e7 20 73  |ows(str$).I... s|
0000a0f0  74 72 24 3d 22 22 20 8c  20 3d 22 22 0d 49 ac 11  |tr$="" . ="".I..|
0000a100  ea 20 6e 65 77 24 2c 62  25 2c 63 68 25 0d 49 b6  |. new$,b%,ch%.I.|
0000a110  0b 6e 65 77 24 3d 22 22  0d 49 c0 15 e3 20 63 68  |.new$="".I... ch|
0000a120  25 3d 31 20 b8 20 a9 28  73 74 72 24 29 0d 49 ca  |%=1 . .(str$).I.|
0000a130  16 62 25 3d 97 28 c1 73  74 72 24 2c 63 68 25 2c  |.b%=.(.str$,ch%,|
0000a140  31 29 29 0d 49 d4 14 e7  20 62 25 3e 31 32 36 20  |1)).I... b%>126 |
0000a150  8c 20 62 25 2b 3d 39 0d  49 de 0f 6e 65 77 24 2b  |. b%+=9.I..new$+|
0000a160  3d bd 28 62 25 29 0d 49  e8 05 ed 0d 49 f2 09 3d  |=.(b%).I....I..=|
0000a170  6e 65 77 24 0d 49 fc 05  3a 0d 4a 06 0e dd f2 6d  |new$.I..:.J....m|
0000a180  69 6e 69 6d 69 73 65 0d  4a 10 1e 74 75 6e 65 73  |inimise.J..tunes|
0000a190  69 7a 65 25 3d 74 72 61  63 6b 65 72 74 75 6e 65  |ize%=trackertune|
0000a1a0  25 21 34 2b 38 0d 4a 1a  23 74 75 6e 65 73 69 7a  |%!4+8.J.#tunesiz|
0000a1b0  65 25 3d 28 74 75 6e 65  73 69 7a 65 25 2b 33 32  |e%=(tunesize%+32|
0000a1c0  2a 31 30 32 34 2d 31 29  0d 4a 24 2d 74 75 6e 65  |*1024-1).J$-tune|
0000a1d0  73 69 7a 65 25 3d 33 32  2a 31 30 32 34 2a 28 74  |size%=32*1024*(t|
0000a1e0  75 6e 65 73 69 7a 65 25  20 81 20 28 33 32 2a 31  |unesize% . (32*1|
0000a1f0  30 32 34 29 29 0d 4a 2e  2d c8 99 20 22 58 57 69  |024)).J.-.. "XWi|
0000a200  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 74 75 6e  |mp_SlotSize",tun|
0000a210  65 73 69 7a 65 25 2b 61  70 70 73 69 7a 65 25 2c  |esize%+appsize%,|
0000a220  2d 31 0d 4a 38 29 c8 99  20 22 58 57 69 6d 70 5f  |-1.J8).. "XWimp_|
0000a230  53 6c 6f 74 53 69 7a 65  22 2c 2d 31 2c 2d 31 20  |SlotSize",-1,-1 |
0000a240  b8 20 74 75 6e 65 73 69  7a 65 25 0d 4a 42 34 66  |. tunesize%.JB4f|
0000a250  72 65 65 6d 65 6d 25 3d  28 74 75 6e 65 73 69 7a  |reemem%=(tunesiz|
0000a260  65 25 2d 61 70 70 73 69  7a 65 25 29 2d 28 74 72  |e%-appsize%)-(tr|
0000a270  61 63 6b 65 72 74 75 6e  65 25 21 34 2b 38 29 0d  |ackertune%!4+8).|
0000a280  4a 4c 05 e1 0d 4a 56 05  3a 0d 4a 60 0f dd f2 64  |JL...JV.:.J`...d|
0000a290  65 63 64 65 6c 70 61 74  0d 4a 6a 1c e7 20 64 65  |ecdelpat.Jj.. de|
0000a2a0  6c 70 61 74 25 3e 31 20  8c 20 64 65 6c 70 61 74  |lpat%>1 . delpat|
0000a2b0  25 2d 3d 31 0d 4a 74 2a  f2 73 65 74 69 63 6f 6e  |%-=1.Jt*.seticon|
0000a2c0  74 65 78 74 28 61 6d 65  6e 64 74 72 61 63 6b 25  |text(amendtrack%|
0000a2d0  2c 32 2c c3 28 64 65 6c  70 61 74 25 29 29 0d 4a  |,2,.(delpat%)).J|
0000a2e0  7e 05 e1 0d 4a 88 05 3a  0d 4a 92 0f dd f2 69 6e  |~...J..:.J....in|
0000a2f0  63 64 65 6c 70 61 74 0d  4a 9c 24 e7 20 64 65 6c  |cdelpat.J.$. del|
0000a300  70 61 74 25 3c 70 61 74  74 65 72 6e 73 25 20 8c  |pat%<patterns% .|
0000a310  20 64 65 6c 70 61 74 25  2b 3d 31 0d 4a a6 2a f2  | delpat%+=1.J.*.|
0000a320  73 65 74 69 63 6f 6e 74  65 78 74 28 61 6d 65 6e  |seticontext(amen|
0000a330  64 74 72 61 63 6b 25 2c  32 2c c3 28 64 65 6c 70  |dtrack%,2,.(delp|
0000a340  61 74 25 29 29 0d 4a b0  05 e1 0d 4a ba 05 3a 0d  |at%)).J....J..:.|
0000a350  4a c4 11 dd f2 64 65 63  64 65 6c 76 6f 69 63 65  |J....decdelvoice|
0000a360  0d 4a ce 20 e7 20 64 65  6c 76 6f 69 63 65 25 3e  |.J. . delvoice%>|
0000a370  31 20 8c 20 64 65 6c 76  6f 69 63 65 25 2d 3d 31  |1 . delvoice%-=1|
0000a380  0d 4a d8 2d f2 73 65 74  69 63 6f 6e 74 65 78 74  |.J.-.seticontext|
0000a390  28 61 6d 65 6e 64 74 72  61 63 6b 25 2c 31 30 2c  |(amendtrack%,10,|
0000a3a0  c3 28 64 65 6c 76 6f 69  63 65 25 29 29 0d 4a e2  |.(delvoice%)).J.|
0000a3b0  05 e1 0d 4a ec 05 3a 0d  4a f6 11 dd f2 69 6e 63  |...J..:.J....inc|
0000a3c0  64 65 6c 76 6f 69 63 65  0d 4b 00 26 e7 20 64 65  |delvoice.K.&. de|
0000a3d0  6c 76 6f 69 63 65 25 3c  76 6f 69 63 65 73 25 20  |lvoice%<voices% |
0000a3e0  8c 20 64 65 6c 76 6f 69  63 65 25 2b 3d 31 0d 4b  |. delvoice%+=1.K|
0000a3f0  0a 2d f2 73 65 74 69 63  6f 6e 74 65 78 74 28 61  |.-.seticontext(a|
0000a400  6d 65 6e 64 74 72 61 63  6b 25 2c 31 30 2c c3 28  |mendtrack%,10,.(|
0000a410  64 65 6c 76 6f 69 63 65  25 29 29 0d 4b 14 05 e1  |delvoice%)).K...|
0000a420  0d 4b 1e 05 3a 0d 4b 28  13 dd f2 64 65 6c 65 74  |.K..:.K(...delet|
0000a430  65 70 61 74 74 65 72 6e  0d 4b 32 2c e7 20 70 61  |epattern.K2,. pa|
0000a440  74 74 65 72 6e 73 25 3d  31 20 8c 20 85 20 31 37  |tterns%=1 . . 17|
0000a450  2c 22 4f 6e 6c 79 20 6f  6e 65 20 70 61 74 74 65  |,"Only one patte|
0000a460  72 6e 21 22 0d 4b 3c 0b  66 6c 61 67 25 3d a3 0d  |rn!".K<.flag%=..|
0000a470  4b 46 18 e3 20 70 6f 73  25 3d 30 20 b8 20 73 65  |KF.. pos%=0 . se|
0000a480  71 6c 65 6e 25 2d 31 0d  4b 50 29 e7 20 73 65 71  |qlen%-1.KP). seq|
0000a490  61 64 64 72 25 3f 70 6f  73 25 3d 28 64 65 6c 70  |addr%?pos%=(delp|
0000a4a0  61 74 25 2d 31 29 20 8c  20 66 6c 61 67 25 3d b9  |at%-1) . flag%=.|
0000a4b0  0d 4b 5a 05 ed 0d 4b 64  2f e7 20 66 6c 61 67 25  |.KZ...Kd/. flag%|
0000a4c0  20 8c 20 85 20 31 37 2c  22 50 61 74 74 65 72 6e  | . . 17,"Pattern|
0000a4d0  20 6f 63 63 75 72 73 20  69 6e 20 73 65 71 75 65  | occurs in seque|
0000a4e0  6e 63 65 22 0d 4b 6e 20  f2 6d 61 6b 65 73 65 6c  |nce".Kn .makesel|
0000a4f0  65 63 74 65 64 28 61 6d  65 6e 64 74 72 61 63 6b  |ected(amendtrack|
0000a500  25 2c 35 29 0d 4b 78 1c  61 74 25 3d 70 61 74 74  |%,5).Kx.at%=patt|
0000a510  61 64 64 72 25 28 64 65  6c 70 61 74 25 29 2d 38  |addr%(delpat%)-8|
0000a520  0d 4b 82 15 74 6f 64 65  6c 65 74 65 25 3d 61 74  |.K..todelete%=at|
0000a530  25 21 34 2b 38 0d 4b 8c  25 66 6c 61 67 25 3d a4  |%!4+8.K.%flag%=.|
0000a540  64 65 6c 65 74 65 62 79  74 65 73 28 61 74 25 2c  |deletebytes(at%,|
0000a550  74 6f 64 65 6c 65 74 65  25 29 0d 4b 96 18 e3 20  |todelete%).K... |
0000a560  70 6f 73 25 3d 30 20 b8  20 73 65 71 6c 65 6e 25  |pos%=0 . seqlen%|
0000a570  2d 31 0d 4b a0 2f e7 20  73 65 71 61 64 64 72 25  |-1.K./. seqaddr%|
0000a580  3f 70 6f 73 25 3e 3d 64  65 6c 70 61 74 25 20 8c  |?pos%>=delpat% .|
0000a590  20 73 65 71 61 64 64 72  25 3f 70 6f 73 25 2d 3d  | seqaddr%?pos%-=|
0000a5a0  31 0d 4b aa 05 ed 0d 4b  b4 26 e3 20 70 6f 73 25  |1.K....K.&. pos%|
0000a5b0  3d 28 64 65 6c 70 61 74  25 2d 31 29 20 b8 20 28  |=(delpat%-1) . (|
0000a5c0  70 61 74 74 65 72 6e 73  25 2d 32 29 0d 4b be 25  |patterns%-2).K.%|
0000a5d0  70 61 74 74 6c 65 6e 25  3f 28 70 6f 73 25 29 3d  |pattlen%?(pos%)=|
0000a5e0  70 61 74 74 6c 65 6e 25  3f 28 70 6f 73 25 2b 31  |pattlen%?(pos%+1|
0000a5f0  29 0d 4b c8 05 ed 0d 4b  d2 11 21 70 6e 75 6d 61  |).K....K..!pnuma|
0000a600  64 64 72 25 2d 3d 31 0d  4b dc 11 f2 67 65 74 6d  |ddr%-=1.K...getm|
0000a610  75 73 69 63 69 6e 66 6f  0d 4b e6 0d f2 6d 69 6e  |usicinfo.K...min|
0000a620  69 6d 69 73 65 0d 4b f0  0d f2 74 75 6e 65 69 6e  |imise.K...tunein|
0000a630  66 6f 0d 4b fa 2b e7 20  64 65 6c 70 61 74 25 3e  |fo.K.+. delpat%>|
0000a640  70 61 74 74 65 72 6e 73  25 20 8c 20 64 65 6c 70  |patterns% . delp|
0000a650  61 74 25 3d 70 61 74 74  65 72 6e 73 25 0d 4c 04  |at%=patterns%.L.|
0000a660  2a f2 73 65 74 69 63 6f  6e 74 65 78 74 28 61 6d  |*.seticontext(am|
0000a670  65 6e 64 74 72 61 63 6b  25 2c 32 2c c3 28 64 65  |endtrack%,2,.(de|
0000a680  6c 70 61 74 25 29 29 0d  4c 0e 22 f2 6d 61 6b 65  |lpat%)).L.".make|
0000a690  75 6e 73 65 6c 65 63 74  65 64 28 61 6d 65 6e 64  |unselected(amend|
0000a6a0  74 72 61 63 6b 25 2c 35  29 0d 4c 18 05 e1 0d 4c  |track%,5).L....L|
0000a6b0  22 05 3a 0d 4c 2c 10 dd  f2 61 6d 65 6e 64 76 6f  |".:.L,...amendvo|
0000a6c0  69 63 65 0d 4c 36 57 e7  20 a4 69 73 69 74 73 65  |ice.L6W. .isitse|
0000a6d0  6c 65 63 74 65 64 28 61  6d 65 6e 64 74 72 61 63  |lected(amendtrac|
0000a6e0  6b 25 2c 31 34 29 20 8c  20 f2 64 65 6c 65 74 65  |k%,14) . .delete|
0000a6f0  76 6f 69 63 65 28 64 65  6c 76 6f 69 63 65 25 29  |voice(delvoice%)|
0000a700  20 8b 20 f2 69 6e 73 65  72 74 76 6f 69 63 65 28  | . .insertvoice(|
0000a710  64 65 6c 76 6f 69 63 65  25 29 0d 4c 40 2b e7 20  |delvoice%).L@+. |
0000a720  64 65 6c 76 6f 69 63 65  25 3e 76 6f 69 63 65 73  |delvoice%>voices|
0000a730  25 20 8c 20 64 65 6c 76  6f 69 63 65 25 3d 76 6f  |% . delvoice%=vo|
0000a740  69 63 65 73 25 0d 4c 4a  2d f2 73 65 74 69 63 6f  |ices%.LJ-.setico|
0000a750  6e 74 65 78 74 28 61 6d  65 6e 64 74 72 61 63 6b  |ntext(amendtrack|
0000a760  25 2c 31 30 2c c3 28 64  65 6c 76 6f 69 63 65 25  |%,10,.(delvoice%|
0000a770  29 29 0d 4c 54 05 e1 0d  4c 5e 05 3a 0d 4c 68 14  |)).LT...L^.:.Lh.|
0000a780  dd a4 74 6f 74 61 6c 70  61 74 6c 65 6e 67 74 68  |..totalpatlength|
0000a790  0d 4c 72 0c 74 6f 74 61  6c 25 3d 30 0d 4c 7c 1c  |.Lr.total%=0.L|.|
0000a7a0  e3 20 70 61 74 74 65 72  6e 25 3d 31 20 b8 20 70  |. pattern%=1 . p|
0000a7b0  61 74 74 65 72 6e 73 25  0d 4c 86 21 74 6f 74 61  |atterns%.L.!tota|
0000a7c0  6c 25 2b 3d 70 61 74 74  6c 65 6e 25 3f 28 70 61  |l%+=pattlen%?(pa|
0000a7d0  74 74 65 72 6e 25 2d 31  29 0d 4c 90 05 ed 0d 4c  |ttern%-1).L....L|
0000a7e0  9a 0b 3d 74 6f 74 61 6c  25 0d 4c a4 05 3a 0d 4c  |..=total%.L..:.L|
0000a7f0  ae 15 dd f2 64 65 6c 65  74 65 76 6f 69 63 65 28  |....deletevoice(|
0000a800  76 25 29 0d 4c b8 30 e7  20 76 6f 69 63 65 73 25  |v%).L.0. voices%|
0000a810  3d 31 20 8c 20 85 20 31  37 2c 22 4f 6e 6c 79 20  |=1 . . 17,"Only |
0000a820  6f 6e 65 20 76 6f 69 63  65 20 70 72 65 73 65 6e  |one voice presen|
0000a830  74 21 22 0d 4c c2 21 f2  6d 61 6b 65 73 65 6c 65  |t!".L.!.makesele|
0000a840  63 74 65 64 28 61 6d 65  6e 64 74 72 61 63 6b 25  |cted(amendtrack%|
0000a850  2c 31 31 29 0d 4c cc 15  c8 99 20 22 48 6f 75 72  |,11).L.... "Hour|
0000a860  67 6c 61 73 73 5f 4f 6e  22 0d 4c d6 1c e3 20 70  |glass_On".L... p|
0000a870  61 74 74 65 72 6e 25 3d  31 20 b8 20 70 61 74 74  |attern%=1 . patt|
0000a880  65 72 6e 73 25 0d 4c e0  3a c8 99 20 22 48 6f 75  |erns%.L.:.. "Hou|
0000a890  72 67 6c 61 73 73 5f 50  65 72 63 65 6e 74 61 67  |rglass_Percentag|
0000a8a0  65 22 2c 28 28 70 61 74  74 65 72 6e 25 2d 31 29  |e",((pattern%-1)|
0000a8b0  2f 70 61 74 74 65 72 6e  73 25 29 2a 31 30 30 0d  |/patterns%)*100.|
0000a8c0  4c ea 1f 72 6f 77 73 25  3d 70 61 74 74 6c 65 6e  |L..rows%=pattlen|
0000a8d0  25 3f 28 70 61 74 74 65  72 6e 25 2d 31 29 0d 4c  |%?(pattern%-1).L|
0000a8e0  f4 1e 73 74 61 72 74 25  3d 70 61 74 74 61 64 64  |..start%=pattadd|
0000a8f0  72 25 28 70 61 74 74 65  72 6e 25 29 0d 4c fe 16  |r%(pattern%).L..|
0000a900  70 31 25 3d 73 74 61 72  74 25 3a 70 32 25 3d 70  |p1%=start%:p2%=p|
0000a910  31 25 0d 4d 08 14 e3 20  72 6f 77 25 3d 31 20 b8  |1%.M... row%=1 .|
0000a920  20 72 6f 77 73 25 0d 4d  12 18 e3 20 76 6f 69 63  | rows%.M... voic|
0000a930  65 25 3d 31 20 b8 20 76  6f 69 63 65 73 25 0d 4d  |e%=1 . voices%.M|
0000a940  1c 12 e7 20 76 6f 69 63  65 25 3c 3e 76 25 20 8c  |... voice%<>v% .|
0000a950  0d 4d 26 0d 21 70 31 25  3d 21 70 32 25 0d 4d 30  |.M&.!p1%=!p2%.M0|
0000a960  0a 70 31 25 2b 3d 34 0d  4d 3a 05 cd 0d 4d 44 0a  |.p1%+=4.M:...MD.|
0000a970  70 32 25 2b 3d 34 0d 4d  4e 05 ed 0d 4d 58 05 ed  |p2%+=4.MN...MX..|
0000a980  0d 4d 62 23 21 28 73 74  61 72 74 25 2d 34 29 3d  |.Mb#!(start%-4)=|
0000a990  21 28 73 74 61 72 74 25  2d 34 29 2d 72 6f 77 73  |!(start%-4)-rows|
0000a9a0  25 2a 34 0d 4d 6c 15 74  6f 64 65 6c 65 74 65 25  |%*4.Ml.todelete%|
0000a9b0  3d 72 6f 77 73 25 2a 34  0d 4d 76 25 66 6c 61 67  |=rows%*4.Mv%flag|
0000a9c0  25 3d a4 64 65 6c 65 74  65 62 79 74 65 73 28 70  |%=.deletebytes(p|
0000a9d0  31 25 2c 74 6f 64 65 6c  65 74 65 25 29 0d 4d 80  |1%,todelete%).M.|
0000a9e0  11 f2 72 65 61 64 70 61  74 74 65 72 6e 73 0d 4d  |..readpatterns.M|
0000a9f0  8a 05 ed 0d 4d 94 11 21  6d 76 6f 78 61 64 64 72  |....M..!mvoxaddr|
0000aa00  25 2d 3d 31 0d 4d 9e 0d  f2 6d 69 6e 69 6d 69 73  |%-=1.M...minimis|
0000aa10  65 0d 4d a8 23 f2 6d 61  6b 65 75 6e 73 65 6c 65  |e.M.#.makeunsele|
0000aa20  63 74 65 64 28 61 6d 65  6e 64 74 72 61 63 6b 25  |cted(amendtrack%|
0000aa30  2c 31 31 29 0d 4d b2 16  c8 99 20 22 48 6f 75 72  |,11).M.... "Hour|
0000aa40  67 6c 61 73 73 5f 4f 66  66 22 0d 4d bc 11 f2 67  |glass_Off".M...g|
0000aa50  65 74 6d 75 73 69 63 69  6e 66 6f 0d 4d c6 0d f2  |etmusicinfo.M...|
0000aa60  74 75 6e 65 69 6e 66 6f  0d 4d d0 15 f2 69 6e 69  |tuneinfo.M...ini|
0000aa70  74 69 61 6c 69 73 65 76  6f 69 63 65 73 0d 4d da  |tialisevoices.M.|
0000aa80  11 6a 75 73 74 6c 6f 61  64 65 64 25 3d b9 0d 4d  |.justloaded%=..M|
0000aa90  e4 05 e1 0d 4d ee 05 3a  0d 4d f8 15 dd f2 69 6e  |....M..:.M....in|
0000aaa0  73 65 72 74 76 6f 69 63  65 28 76 25 29 0d 4e 02  |sertvoice(v%).N.|
0000aab0  2a e7 20 76 6f 69 63 65  73 25 3d 38 20 8c 20 85  |*. voices%=8 . .|
0000aac0  20 31 37 2c 22 41 6c 72  65 61 64 79 20 38 20 76  | 17,"Already 8 v|
0000aad0  6f 69 63 65 73 21 22 0d  4e 0c 1b 67 72 61 62 25  |oices!".N..grab%|
0000aae0  3d a4 74 6f 74 61 6c 70  61 74 6c 65 6e 67 74 68  |=.totalpatlength|
0000aaf0  2a 34 0d 4e 16 3f e7 20  ac 28 a4 67 72 61 62 6d  |*4.N.?. .(.grabm|
0000ab00  65 6d 28 67 72 61 62 25  29 29 20 8c 20 85 20 31  |em(grab%)) . . 1|
0000ab10  37 2c 22 49 6e 73 75 66  66 69 63 69 65 6e 74 20  |7,"Insufficient |
0000ab20  4d 65 6d 6f 72 79 20 41  76 61 69 6c 61 62 6c 65  |Memory Available|
0000ab30  22 0d 4e 20 13 66 72 65  65 6d 65 6d 25 2b 3d 67  |".N .freemem%+=g|
0000ab40  72 61 62 25 0d 4e 2a 21  f2 6d 61 6b 65 73 65 6c  |rab%.N*!.makesel|
0000ab50  65 63 74 65 64 28 61 6d  65 6e 64 74 72 61 63 6b  |ected(amendtrack|
0000ab60  25 2c 31 31 29 0d 4e 34  15 c8 99 20 22 48 6f 75  |%,11).N4... "Hou|
0000ab70  72 67 6c 61 73 73 5f 4f  6e 22 0d 4e 3e 1c e3 20  |rglass_On".N>.. |
0000ab80  70 61 74 74 65 72 6e 25  3d 31 20 b8 20 70 61 74  |pattern%=1 . pat|
0000ab90  74 65 72 6e 73 25 0d 4e  48 3a c8 99 20 22 48 6f  |terns%.NH:.. "Ho|
0000aba0  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
0000abb0  67 65 22 2c 28 28 70 61  74 74 65 72 6e 25 2d 31  |ge",((pattern%-1|
0000abc0  29 2f 70 61 74 74 65 72  6e 73 25 29 2a 31 30 30  |)/patterns%)*100|
0000abd0  0d 4e 52 1f 72 6f 77 73  25 3d 70 61 74 74 6c 65  |.NR.rows%=pattle|
0000abe0  6e 25 3f 28 70 61 74 74  65 72 6e 25 2d 31 29 0d  |n%?(pattern%-1).|
0000abf0  4e 5c 1e 73 74 61 72 74  25 3d 70 61 74 74 61 64  |N\.start%=pattad|
0000ac00  64 72 25 28 70 61 74 74  65 72 6e 25 29 0d 4e 66  |dr%(pattern%).Nf|
0000ac10  1e 61 74 25 3d 73 74 61  72 74 25 2b 72 6f 77 73  |.at%=start%+rows|
0000ac20  25 2a 76 6f 69 63 65 73  25 2a 34 0d 4e 70 15 74  |%*voices%*4.Np.t|
0000ac30  6f 69 6e 73 65 72 74 25  3d 72 6f 77 73 25 2a 34  |oinsert%=rows%*4|
0000ac40  0d 4e 7a 25 66 6c 61 67  25 3d a4 69 6e 73 65 72  |.Nz%flag%=.inser|
0000ac50  74 62 79 74 65 73 28 61  74 25 2c 74 6f 69 6e 73  |tbytes(at%,toins|
0000ac60  65 72 74 25 29 0d 4e 84  19 e3 20 72 6f 77 25 3d  |ert%).N... row%=|
0000ac70  72 6f 77 73 25 20 b8 20  31 20 88 20 2d 31 0d 4e  |rows% . 1 . -1.N|
0000ac80  8e 21 70 31 25 3d 73 74  61 72 74 25 2b 28 72 6f  |.!p1%=start%+(ro|
0000ac90  77 25 2d 31 29 2a 76 6f  69 63 65 73 25 2a 34 0d  |w%-1)*voices%*4.|
0000aca0  4e 98 25 70 32 25 3d 73  74 61 72 74 25 2b 28 72  |N.%p2%=start%+(r|
0000acb0  6f 77 25 2d 31 29 2a 28  76 6f 69 63 65 73 25 2b  |ow%-1)*(voices%+|
0000acc0  31 29 2a 34 0d 4e a2 18  e3 20 76 6f 69 63 65 25  |1)*4.N... voice%|
0000acd0  3d 31 20 b8 20 76 6f 69  63 65 73 25 0d 4e ac 25  |=1 . voices%.N.%|
0000ace0  65 76 65 6e 74 25 28 76  6f 69 63 65 25 29 3d 70  |event%(voice%)=p|
0000acf0  31 25 21 28 28 76 6f 69  63 65 25 2d 31 29 2a 34  |1%!((voice%-1)*4|
0000ad00  29 0d 4e b6 05 ed 0d 4e  c0 18 e3 20 76 6f 69 63  |).N....N... voic|
0000ad10  65 25 3d 31 20 b8 20 76  6f 69 63 65 73 25 0d 4e  |e%=1 . voices%.N|
0000ad20  ca 17 21 70 32 25 3d 65  76 65 6e 74 25 28 76 6f  |..!p2%=event%(vo|
0000ad30  69 63 65 25 29 0d 4e d4  11 e7 20 76 6f 69 63 65  |ice%).N... voice|
0000ad40  25 3d 76 25 20 8c 0d 4e  de 0a 70 32 25 2b 3d 34  |%=v% ..N..p2%+=4|
0000ad50  0d 4e e8 0a 21 70 32 25  3d 30 0d 4e f2 05 cd 0d  |.N..!p2%=0.N....|
0000ad60  4e fc 0a 70 32 25 2b 3d  34 0d 4f 06 05 ed 0d 4f  |N..p2%+=4.O....O|
0000ad70  10 05 ed 0d 4f 1a 25 21  28 73 74 61 72 74 25 2d  |....O.%!(start%-|
0000ad80  34 29 3d 21 28 73 74 61  72 74 25 2d 34 29 2b 28  |4)=!(start%-4)+(|
0000ad90  72 6f 77 73 25 2a 34 29  0d 4f 24 11 f2 72 65 61  |rows%*4).O$..rea|
0000ada0  64 70 61 74 74 65 72 6e  73 0d 4f 2e 05 ed 0d 4f  |dpatterns.O....O|
0000adb0  38 11 21 6d 76 6f 78 61  64 64 72 25 2b 3d 31 0d  |8.!mvoxaddr%+=1.|
0000adc0  4f 42 0d f2 6d 69 6e 69  6d 69 73 65 0d 4f 4c 23  |OB..minimise.OL#|
0000add0  f2 6d 61 6b 65 75 6e 73  65 6c 65 63 74 65 64 28  |.makeunselected(|
0000ade0  61 6d 65 6e 64 74 72 61  63 6b 25 2c 31 31 29 0d  |amendtrack%,11).|
0000adf0  4f 56 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |OV... "Hourglass|
0000ae00  5f 4f 66 66 22 0d 4f 60  11 f2 67 65 74 6d 75 73  |_Off".O`..getmus|
0000ae10  69 63 69 6e 66 6f 0d 4f  6a 0d f2 74 75 6e 65 69  |icinfo.Oj..tunei|
0000ae20  6e 66 6f 0d 4f 74 15 f2  69 6e 69 74 69 61 6c 69  |nfo.Ot..initiali|
0000ae30  73 65 76 6f 69 63 65 73  0d 4f 7e 11 6a 75 73 74  |sevoices.O~.just|
0000ae40  6c 6f 61 64 65 64 25 3d  b9 0d 4f 88 05 e1 0d ff  |loaded%=..O.....|
0000ae50