� > KeySound Version 17
�   by Terry Blunt
:
(� � �error
2	�init
<
�assemble
F
�channels
P� 12
Z�hour(�)
d� � �error
n�display
x	�menu
�	�tidy
��
�:
�:
�� �error
�� 4
�� �$ " - Press a key"
�� �
�
� � � � �
�	� � �
�*RMREINIT SoundDMA
�*RMREINIT SoundChannels
�*RMREINIT SoundScheduler

*RMREINIT WaveSynth

*RMREINIT StringLib

*RMREINIT Percussion

"	*FX 4

,
*FX 12

6*FX 229

@�

J:

T� �init

^
I%=�+4

h�

r	I%+=1

|� I%?-1=�">"

�	� $I%

�VoiceSize%=&500

�VoiceMax%=12

�7� Module% &200,Code% VoiceSize%*VoiceMax%,Work% &40

�3� VoiceName%(VoiceMax%),VoiceEnable%(VoiceMax%)

�A� AmpEnv%(VoiceMax%),FreEnv%(VoiceMax%),WaveTable%(VoiceMax%)

�)� OldVoice%(VoiceMax%),OldChannel%(8)

�7� w%(VoiceMax%,255),par%(VoiceMax%,25),Sine%(255,9)

�*POINTER

�ȗ �

��hour(�)

�� I%=0 � 255

��hour(I% � 25+1)
"Sine%(I%,0)=(�(1)-.5)*16777216
� J%=1 � 9
(Sine%(I%,J%)=�(�*I%*J%/128)*16777216
&�
0�
:*KEY 0 |!~
D*FX 4 1
N
*FX 229 1
X*KEY 13 |!!
b�
l:
v� �assemble
�� v%=1 � VoiceMax%
��hour(10+v%)
�VoiceEnable%(v%)=�
�� I%=0 � 2 � 2
�%P%=Code%+VoiceSize%*v%-VoiceSize%
�[OPT I%
�.VoiceBase
�
B Fill
�
B Fill
�B GateOn
�
B GateOff
�B Instance
�LDMFD R13!,{PC}
LDMFD R13!,{PC}
!EQUD VoiceName%(v%)-VoiceBase
;
 .VoiceName%(v%)
*=�bytes(19)
4;
>.LogAmpPtr
H
EQUD 0
R
.WaveBase
\
EQUD 0
f.AmpEnvPtr
p
EQUD 0
z.FreEnvPtr
�
EQUD 0
�.AmpEnv%(v%)
�=�bytes(255)
�.FreEnv%(v%)
�=�bytes(255)
�.WaveTable%(v%)
�=�bytes(255)
�;
�
.Instance
�STMFD R13!,{R0-R4}
�ADR R1,VoiceBase
�!MOV R0,#AmpEnv%(v%)-VoiceBase
�ADD R0,R0,R1
STR R0,AmpEnvPtr
!MOV R0,#FreEnv%(v%)-VoiceBase
ADD R0,R0,R1
$STR R0,FreEnvPtr
.$MOV R0,#WaveTable%(v%)-VoiceBase
8ADD R0,R0,R1
BSTR R0,WaveBase
L
MOV R0,#0
V
MOV R1,#0
`
MOV R2,#0
j
MOV R3,#0
t
MOV R4,#0
~SWI "Sound_Configure"
�LDR R0,[R3,#12]
�STR R0,LogAmpPtr
�LDMFD R13!,{R0-R4,PC}
�;
�.GateOn
�LDMIA R9,{R1-R8}
�LDR R3,AmpEnvPtr
�LDR R5,WaveBase
�LDR R6,LogAmpPtr
�LDR R7,FreEnvPtr
�B FillGate
�;
	.Fill

LDMIA R9,{R1-R8}

.FillGate
LDRB R0,[R7],#1
(MOV R0,R0,ASL #24
2ADD R2,R2,R0,ASR #24
<� R1,R1,#127
FLDRB R0,[R3],#1
PCMP R0,#255
Z�Q R4,#0
dCMPNE R4,#0
n�Q R0,#2
xLDMEQFD R13!,{PC}
�;
�SUBS R1,R1,R0
�MOVMI R1,#0
�LDRB R1,[R6,R1,LSL #1]
�MOV R1,R1,LSR #1
�RSB R1,R1,#127
�
.FillLoop
�ADD R2,R2,R2,LSL #16
�LDRB R0,[R5,R2,LSR #24]
�SUBS R0,R0,R1,LSL #1
�MOVMI R0,#0
�STRB R0,[R12],R11
�ADD R2,R2,R2,LSL #16
LDRB R0,[R5,R2,LSR #24]
SUBS R0,R0,R1,LSL #1
MOVMI R0,#0
"STRB R0,[R12],R11
,ADD R2,R2,R2,LSL #16
6LDRB R0,[R5,R2,LSR #24]
@SUBS R0,R0,R1,LSL #1
JMOVMI R0,#0
TSTRB R0,[R12],R11
^ADD R2,R2,R2,LSL #16
hLDRB R0,[R5,R2,LSR #24]
rSUBS R0,R0,R1,LSL #1
|MOVMI R0,#0
�STRB R0,[R12],R11
�CMP R12,R10
�BLT FillLoop
�
.FillExit
�SUB R4,R4,#1
�STMIB R9,{R2-R8}
�
MOV R0,#8
�LDMFD R13!,{PC}
�;
�.GateOff
�
MOV R0,#0
�.FlushLoop
�STRB R0,[R12],R11
STRB R0,[R12],R11
STRB R0,[R12],R11
STRB R0,[R12],R11
&CMP R12,R10
0BLT FlushLoop
:
MOV R0,#1
DLDMFD R13!,{PC}
N]
X�
b�
l:
v� I%=0 � 2 � 2
�P%=Work%
�[ OPT I%
�.Log
�SWI "Sound_SoundLog"
�SWI "Sound_LogScale"
�STRB R0,[R2,R1]
�MOV PC,R14
�	.Type
�=�bytes(7)
�]
��
��
�:
� �bytes(n%)

P%+=n%
=I%
 :
*� �channels
4� +0
>� v%=1 � VoiceMax%
H�hour(22+v%*6)
R�"KEY "+� v%+�(v%+199)+"|M"
\� a$,b$
f.$VoiceName%(v%)="UserLib-"+�a$+�11,�0),11)
p� I%=0 � 25
zpar%(v%,I%)=�("&"+�b$,2))
�
b$=�b$,3)
��
��fillwave(v%)
��hour(25+v%*6)
��envelope(v%)
�Oș "Sound_InstallVoice",Code%+v%*VoiceSize%-VoiceSize%,0 � a%,OldVoice%(v%)
��
�Voice%=1
�� v%=1 � 8
�4ș "Sound_AttachVoice",v%,0 � z%,OldChannel%(v%)
�ȡ v%,$VoiceName%(Voice%)
��
�Ƞ 8
	�
	?� Bell,003A0000230028002D00007F01700804FB000500000800080835
	E� HammondOrg,002F120D1D001E0023000F77047F1015FE070500000C00110F05
	$C� Ethereal,0161121106080806090A0F6F077F1926FF000203000200320835
	.>� Saw,00512E1C00000001000012690B7F2808FF000500000200140865
	8E� Vibraphone,004701000F00010027000C7E016F041AF0170602020202000435
	BD� ChurchOrg,0771071B0000000006000F6F077F1932F8000203020200000805
	LE� Harpsicord,0139100E150E12100F11007C0170080AC2000203000200000805
	V@� Flute,13561529030001000000106E077F160A9E050400020200000835
	`?� Horn,062E2719151308080200007C036E1E103B000202000200000705
	jB� PipeOrg,083C0014012C011A0100126003683F37FA050300020200000705
	tE� BlockSynth,00170017001600280129087A0170092AFF230300023602110B05
	~B� Fantasy,003300141800080016230A7C0454332CF5220500401340110530
	�:
	�� �menu
	�Sel%=14
	��
	�� Sel%>12 �
	��
	��menu_bars
	�ȗ � 560,48
	��
	�ȗ �
	�*FX 21 9
	��
ȗ x%,y%,b%

� y%>288 �edit
x%=x% � 208
� x%>5 x%=5
(y%=3-(y%+16) � 64
2Sel%=x%+y%*6+1
<� b%=1 � b%=4
F�
Pȗ x%,x%,z%
Z
� z%=0
d
*FX 21
nȗ �
x� 28,0,31,79,24
�� Sel%>12 �
�
Ȏ Sel% �
�)� 1,2,3,4,5,6,7,8,9,10,11,12:� b%=1 �
�<� Sel%<>Voice% VoiceEnable%(Sel%)=VoiceEnable%(Sel%) � �
��menu_bars
��
��voice(Sel%)
��
�� 13:�play
�� 14:�load
�� 15:�save
�� 16:�rename
�� 17:�module
� 18:�star
�

� Sel%=19
"�
,:
6� �tidy
@� v%=1 � VoiceMax%
J*ș "Sound_RemoveVoice",0,OldVoice%(v%)
T�
^� v%=1 � 8
h-ș "Sound_AttachVoice",v%,OldChannel%(v%)
r�
|Ƞ 1
�	*FX 4
�
*FX 12
�*FX 229
�ȗ �
��
��
��
�:
�� �menu_bars
�� 28,0,31,79,24,12
��+0
�� I%=0 � VoiceMax%-1
�� VoiceEnable%(I%+1) �
� 0
	� 134
�
&� 7
0	� 132
:�
D@� �I% � 6*13,I% � 6*2+1) � 12 �11,� 8) �$VoiceName%(I%+1),9)
N�
X� 0
b	� 134
l� I%=0 � 6
v� a$
�.� �I% � 6*13,I% � 6*2+5) � 12 �11,� 8) a$;
��
�� 7
�	� 128
��
�/� Play,Load,Save,Rename,Module,MOS (*),Quit
�:
�� �play
�V%=1
��"FX 11 "+� par%(Voice%,10)
�1� par%(Voice%,10) �"FX 12 "+� par%(Voice%,10)
�� 26
��+0

�data_print(7)

�prompt

�

 
*FX 21

*G%=�

4� �-98:�key(0)

>� �-82:�key(4)

H� �-67:�key(8)

R� �-51:�key(12)

\� �-83:�key(16)

f� �-100:�key(20)

p� �-84:�key(24)

z� �-101:�key(28)

�� �-85:�key(32)

�� �-86:�key(36)

�� �-70:�key(40)

�� �-102:�key(44)

�� �-103:�key(48)

�� �-87:�key(52)

�� �-104:�key(56)

�� �-88:�key(60)

�� �-105:�key(64)

�� �-97:�key(20)

�� �-49:�key(24)

�� �-17:�key(28)

�� �-50:�key(32)
� �-34:�key(36)
� �-18:�key(40)
� �-35:�key(44)
$� �-52:�key(48)
.� �-20:�key(52)
8� �-36:�key(56)
B� �-53:�key(60)
L� �-69:�key(64)
V� �-54:�key(68)
`� �-22:�key(72)
j� �-38:�key(76)
t� �-39:�key(80)
~� �-55:�key(84)
�� �-40:�key(88)
�� �-56:�key(92)
�� �-57:�key(96)
�� �-94:�key(100)
�� �-89:�key(104)
�� �-47:�key(108)
�� �-121:�key(112)
�� �-42:�pitch(-1)
�� �-58:�pitch(1)
�,� G%>199 � G%<213 �voice(G%-199):�prompt
�� G%=27
�� �44,0) �20 �45,1) �18
�

	� 3,1
/� 64,26,Upper Keyboard,64,29,Lower Keyboard
	� 1,1
(<� 4,25,1   2   3       5   6       8   9   0       =   �
2-� 12,29,S   D       G   H   J       L   ;
<	� 7,1
FB� 1,26,tab   Q   W   E   R   T   Y   U   I   O   P   [   ]   \
P2� 10,30,"Z   X   C   V   B   N   M   ,  .   /"
Z:
d� �edit
n� Env%,Wave%,Flag%
x� 26
��
�ȗ X%,Y%,B%
�G%=�(0)
�� B%=4 �
�� Flag%=0 �flag
�Ȏ Flag% �
�� 10:Wave%=�setwave
�� 9:�setrep
�� 1,2,3:�setamp
�� 7:Env%=�settrem
�� 4,5,6:�setfre
�� 8:Env%=�setvib
��
�
Flag%=0
�
"� Y%<256
,� Wave% �fillwave(Voice%)
6� Env% �envelope(Voice%)
@� Env% � Wave% �display
J�
T:
^� �load
h� File%,File$
r!File$=�$VoiceName%(Voice%),9)
| �name("voice to load",File$)
�File%=� File$
�� File%=0 �
�"� "No such file - Press a key"
�� �
��
�� I%=0 � 5
�Type?I%=�#File%
��
�
Type?5=13
�� $Type<>"Synth" �
�'� "Invalid file type - Press a key"
�� �
��
� I%=0 � 25
�#File%,par%(Voice%,I%)
�
&�fillwave(Voice%)
0�envelope(Voice%)
:5$VoiceName%(Voice%)="UserLib-"+�File$+�11,�0),11)
D�display
N�
X�#File%
b�
l�
v:
�� �save
�� File%,File$
�!File$=�$VoiceName%(Voice%),9)
� �name("voice to save",File$)
�File%=� File$
�
� File% �
��#File%,"Synth"
�� I%=0 � 25
��#File%,par%(Voice%,I%)
��
��#File%
�5$VoiceName%(Voice%)="UserLib-"+�File$+�11,�0),11)
��display
�
�
:
 
� �rename
*� Name$
4!Name$=�$VoiceName%(Voice%),9)
>�name("new voice",Name$)
H5$VoiceName%(Voice%)="UserLib-"+�Name$+�11,�0),11)
R�display
\�
f:
p
� �module
z� VoiceTotal%,File%,File$
�� v%=1 � VoiceMax%
�%� VoiceEnable%(v%) VoiceTotal%+=1
��
�� I%=0 � 2 � 2
�P%=Module%
�[ OPT I%
�
EQUD 0
�EQUD Initialise-Module%
�EQUD Finalise-Module%
�
EQUD 0
�EQUD Title-Module%
�EQUD Help-Module%
�
EQUD 0
;

.Title
EQUS "UserVoiceLib"
$
EQUB 0
.	ALIGN
8;
B	.Help
L-EQUS "User Defined Sound Voices"+��$,7,9)
V
EQUB 0
`	ALIGN
j;
t.VoiceNumbers
~=�bytes(VoiceTotal%-1)
�	ALIGN
�;
�.Initialise
�STMFD R13!,{R14}
�ADR R2,VoiceCode
�ADR R3,VoiceNumbers
�]
�� v%=1 � VoiceMax%
�� VoiceEnable%(v%) �
�[OPT I%
�
MOV R0,R2
�
MOV R1,#0
SWI "Sound_InstallVoice"

STRB R1,[R3],#1
ADD R2,R2,#VoiceSize%
]
(�
2�
<[OPT I%
FLDMFD R13!,{R15}
P;
Z
.Finalise
dSTMFD R13!,{R14}
nADR R2,VoiceNumbers
xADD R3,R2,#VoiceTotal%
�.FinLoop
�LDRB R1,[R2],#1
�SWI "Sound_RemoveVoice"
�
CMP R3,R2
�BNE FinLoop
�LDMFD R13!,{R15}
�.VoiceCode
�]
��
�File$="SMOD"
�!�name("module to save",File$)
�File%=� File$
�� I%=Module% � VoiceCode-1
�# File%,?I%
�
� v%=1 � VoiceMax%
"� VoiceEnable%(v%) �
,� I%=0 � VoiceSize%-1
60�# File%,Code%?(I%+v%*VoiceSize%-VoiceSize%)
@�
J�
T�
^�# File%
h � "SETTYPE "+File$+" Module"
r�
|:
�� �star
�� Input$
��
��
��'"*" Input$
�� Input$
�� "Press a key";
�Input$=�
�� Input$<>"*"
��
�:
�� �display
�� 28,0,23,79,0,12,5
�0,2
ȓ 0,680,512,256
ȓ 0,488,1024,128
&ȓ 0,298,1024,128
0� 0,808:� 49,512,0
:� 0,362:� 49,1024,0
D� I%=0 � 9
N �0,3:� I%*64+560,796:�"f";I%
X�0,6:� I%*64+568,764:�"+";
b� �8 �10"-"
l�
v�harmonic(7)
�� 0,808
�� I%=0 � 255
�� I%*2,w%(Voice%,I%)+808
��
��amplitude(7)
��frequency(7)
�	� 4:�
��+0
��data_print(6)
�� 7
�
�pitch(0)
�]� �8,0)"f";Voice% " - " �$VoiceName%(Voice%),9) �8,1)�139" " �138 �57,11);par%(Voice%,10)
��"FX 11 "+� par%(Voice%,10)
1� par%(Voice%,10) �"FX 12 "+� par%(Voice%,10)
�
	� 3,9
 � 0,0,Playing
*;� 0,1,Octave,10,11,Waveshape,50,11,Repeat,68,13,Tremelo
4?� 66,14,Depth  Speed,10,17,Amplitude Envelope,68,19,Vibrato
>-� 66,20,Depth  Speed,10,23,Pitch Envelope
H	� 6,5
R+� 62,11,+,68,15,+      +,68,21,+      +
\+� 60,11,-,68,16,-      -,68,22,-      -
f:
p� �key(T%)
z,� V%,-15,T%+par%(Voice%,25),40:V%=V%�8+1
��
�:
�� �voice(n%)
�� VoiceEnable%(n%) �
�� Voice%<>n%
�
Voice%=n%
�� v%=1 � 8
�ȡ v%,$VoiceName%(Voice%)
��
��display
��
��
��
:
� �pitch(n%)
� n%>0 �
$-� par%(Voice%,25)<101 par%(Voice%,25)+=48
.�
8� n%<0 �
B+� par%(Voice%,25)>5 par%(Voice%,25)-=48
L�
V�
`$� �12,1);par%(Voice%,25) �6-8" "
j�
t� � �-42 � � �-58
~�
�:
�� �flag
�� a%
�a%=X% �4
�� Y%>636 �
�C� X%>512 � Y%>696 � Y%<768 Flag%=10 � � X%>928 � Y%<672 Flag%=9
��
�� X%<1024 �
�� Y%>488 � Y%<620 �
�o� a%-par%(Voice%,12)<par%(Voice%,14)-a% Flag%=1 � � a%-par%(Voice%,14)>par%(Voice%,16)-a% Flag%=3 � Flag%=2
��
�� Y%>296 � Y%<424 �
_� a%<par%(Voice%,21)-a% Flag%=4 � � a%-par%(Voice%,21)>par%(Voice%,16)-a% Flag%=6 � Flag%=5

�
�
�
(� X%>1036 �
29� Y%>482 � Y%<544 Flag%=7 � � Y%>290 � Y%<352 Flag%=8
<�
F�
P�
Z�
d:
n� �setwave
x�harmonic(0)
�N%=(X%-544)�64
�� N%>9 N%=9
�|� Y%<732 � par%(Voice%,N%)>0 par%(Voice%,N%)=par%(Voice%,N%)-1 � � par%(Voice%,N%)<127 par%(Voice%,N%)=par%(Voice%,N%)+1
�
*FX 21
��harmonic(7)
�=�
�:
�
� �setrep
�� 7
�� X%<992 �
�>� par%(Voice%,10)>6 par%(Voice%,10)-=1 � par%(Voice%,10)=0
��
�Q� par%(Voice%,10)<98 � par%(Voice%,10) par%(Voice%,10)+=1 � par%(Voice%,10)=6
�
 � �57,11);par%(Voice%,10)" "
	�wait
"�
,:
6
� �setamp
@�amplitude(0)
J�frequency(0)
T�� Flag%=1 �setbars(488,par%(Voice%,12),par%(Voice%,11)) � � Flag%=2 �setbars(488,par%(Voice%,14),par%(Voice%,13)) � �setbars(488,par%(Voice%,16),par%(Voice%,15))
^+� par%(Voice%,16)<12 par%(Voice%,16)=12
hG� par%(Voice%,21)>par%(Voice%,16) par%(Voice%,21)=par%(Voice%,16)-1
r)� par%(Voice%,12)=0 par%(Voice%,12)=1
|�� par%(Voice%,14)<=par%(Voice%,12) par%(Voice%,14)=par%(Voice%,12)+1 � � par%(Voice%,14)>=par%(Voice%,16) par%(Voice%,14)=par%(Voice%,16)-1
��frequency(7)
��amplitude(7)
��
�:
�� �settrem
��amplitude(0)
�� X%<1152 �
�� Y%<508 �
�*� par%(Voice%,17)>0 par%(Voice%,17)-=1
��
�,� par%(Voice%,17)<100 par%(Voice%,17)+=1
��
��
� Y%<508 �
+� par%(Voice%,18)<40 par%(Voice%,18)+=1
�
&*� par%(Voice%,18)>2 par%(Voice%,18)-=1
0�
:�
D�amplitude(7)
N	�wait
X=�
b:
l
� �setfre
v� Null%
�!� X%<12 Null%=par%(Voice%,16)
��frequency(0)
��� Flag%=4 �setbars(360,Null%,par%(Voice%,19)) � � Flag%=5 �setbars(360,par%(Voice%,21),par%(Voice%,20)) � �setbars(360,Null%,par%(Voice%,22))
�p� par%(Voice%,21)<2 par%(Voice%,21)=2 � � par%(Voice%,21)>=par%(Voice%,16) par%(Voice%,21)=par%(Voice%,16)-1
��frequency(7)
��
�:
�
� �setvib
��frequency(0)
�� X%<1152 �
�� Y%<316 �
�*� par%(Voice%,23)>0 par%(Voice%,23)-=1
��
,� par%(Voice%,23)<100 par%(Voice%,23)+=1
�
�
 � Y%<316 �
*+� par%(Voice%,24)<36 par%(Voice%,24)+=1
4�
>*� par%(Voice%,24)>2 par%(Voice%,24)-=1
H�
R�
\�frequency(7)
f	�wait
p=�
z:
�� �setbars(a%,� H%,� V%)
�
Env%=�
�
H%=X% � 4
�V%=Y%-a%
�� a%=488 �
�!� V%>127 V%=127 � � V%<0 V%=0
��
�#� V%>64 V%=64 � � V%<-64 V%=-64
��
�� H%>255 H%=255
��
�:
�� �fillwave(Voice%)
� B%=0 � 255
A%=0
� J%=0 � 9
$6� par%(Voice%,J%) A%+=par%(Voice%,J%)*Sine%(B%,J%)
.�
8w%(Voice%,B%)=A%>>24
BC%=WaveTable%(Voice%)
L	� Log
V�
`�
j:
t� �envelope(Voice%)
~M%=AmpEnv%(Voice%)
�level=0
�=�amp_env(par%(Voice%,11)/par%(Voice%,12),par%(Voice%,12))
�q�amp_env((par%(Voice%,13)-par%(Voice%,11))/(par%(Voice%,14)-par%(Voice%,12)),par%(Voice%,14)-par%(Voice%,12))
�&S%=par%(Voice%,14)+par%(Voice%,18)
�Msus=(par%(Voice%,13)-par%(Voice%,15))/(par%(Voice%,16)-par%(Voice%,14))*4
�ȕ S%<par%(Voice%,16)
�B�amp_env(-sus-par%(Voice%,17)/par%(Voice%,18),par%(Voice%,18))
�S%+=par%(Voice%,18)
�H� S%<par%(Voice%,16) �amp_env(0,par%(Voice%,18)):S%+=par%(Voice%,18)
�f� S%<par%(Voice%,16) �amp_env(par%(Voice%,17)/par%(Voice%,18),par%(Voice%,18)):S%+=par%(Voice%,18)
�H� S%<par%(Voice%,16) �amp_env(0,par%(Voice%,18)):S%+=par%(Voice%,18)
��
>� M%-AmpEnv%(Voice%)<256 ?M%=255 � AmpEnv%(Voice%)?255=255

M%=FreEnv%(Voice%)
�fre_env(par%(Voice%,19),1)
S�fre_env((par%(Voice%,20)-par%(Voice%,19))/(par%(Voice%,21)-1),par%(Voice%,21))
(&S%=par%(Voice%,21)+par%(Voice%,24)
2Msus=(par%(Voice%,20)-par%(Voice%,22))/(par%(Voice%,16)-par%(Voice%,21))*2
<ȕ S%<par%(Voice%,16)
FB�fre_env(-sus-par%(Voice%,23)/par%(Voice%,24),par%(Voice%,24))
PS%+=par%(Voice%,24)
Zf� S%<par%(Voice%,16) �fre_env(par%(Voice%,23)/par%(Voice%,24),par%(Voice%,24)):S%+=par%(Voice%,24)
d�
n� M%-FreEnv%(Voice%)>255 �
xM%?255=0
��
�ȕ M%-FreEnv%(Voice%)<256
�	?M%=0
�	M%+=1
��
��
��
�:
�� �amp_env(s,n%)
�� I%=1 � n%
�level+=s
�9� level>127 ?M%=0 � � level<0 ?M%=127 � ?M%=127-level
�	M%+=1
�
�
:
"� �fre_env(s%,n%)
,� I%=1 � n%
6
?M%=s%
@	M%+=1
J�
T�
^:
h� �harmonic(Col%)
r� 0,Col%
|� I%=0 � 9
�)� I%*64+576,822:� 1,0,par%(Voice%,I%)
��
��
�:
�� �amplitude(Col%)
�9�0,Col%:� 0,488:� 1,par%(Voice%,12)*4,par%(Voice%,11)
��peg
�M� 1,(par%(Voice%,14)-par%(Voice%,12))*4,(par%(Voice%,13)-par%(Voice%,11))
��peg
�&S%=par%(Voice%,14)+par%(Voice%,18)
�Msus=(par%(Voice%,13)-par%(Voice%,15))/(par%(Voice%,16)-par%(Voice%,14))*4
�ȕ S%<par%(Voice%,16)
�>� 1,par%(Voice%,18)*4,-sus*par%(Voice%,18)-par%(Voice%,17)
 S%+=par%(Voice%,18)
 D� S%<par%(Voice%,16) � 1,par%(Voice%,18)*4,0:S%+=par%(Voice%,18)
 R� S%<par%(Voice%,16) � 1,par%(Voice%,18)*4,par%(Voice%,17):S%+=par%(Voice%,18)
 &D� S%<par%(Voice%,16) � 1,par%(Voice%,18)*4,0:S%+=par%(Voice%,18)
 0�
 :0� 1,(par%(Voice%,16)-S%+par%(Voice%,18))*4,0
 D�peg
 N�
 X:
 b� �frequency(Col%)
 l#�0,Col%:� 0,360+par%(Voice%,19)
 v�peg
 �9� 1,par%(Voice%,21)*4,par%(Voice%,20)-par%(Voice%,19)
 ��peg
 �&S%=par%(Voice%,21)+par%(Voice%,24)
 �Msus=(par%(Voice%,20)-par%(Voice%,22))/(par%(Voice%,16)-par%(Voice%,21))*2
 �ȕ S%<par%(Voice%,16)
 �>� 1,par%(Voice%,24)*4,-sus*par%(Voice%,24)-par%(Voice%,23)
 �S%+=par%(Voice%,24)
 �R� S%<par%(Voice%,16) � 1,par%(Voice%,24)*4,par%(Voice%,23):S%+=par%(Voice%,24)
 ��
 �0� 1,(par%(Voice%,16)-S%+par%(Voice%,24))*4,0
 ��peg
 ��
 �:
!
� �peg
!� Col% �0,6 � �0,0
!:� 0,0,16:� 1,0,-32:� 1,2,0:� 1,0,32:� 1,-2,0:� 0,0,-16
! �0,Col%
!*�
!4:
!>
� �prompt
!H�+0
!R�data_print(7)
!\�
!f	� 7,1
!p7� 44,0,F1 - F12  For Voices,45,1,Escape For Options
!z:
!�� �name(Text$,� Old$)
!�� x%,Input$
!�x%=17+� Text$
!��
!��
!�(�'"Enter name of " Text$ " > " Old$;
!�� �x%,�) "" Input$
!�� � Input$<11
!�� Input$>"" Old$=Input$
!��
!�:
!�� �data_print(Col%)
!��
"� C%,J%
"� C%
"� I%=0 � J%
"$� X%,Y%,a$
".� �X%,Y%)a$;
"8�
"B
� C%=Col%
"L�
"V:
"`� �wait
"j� t%
"tt%=�
"~� � �-t%>10
"��
"�:
"�� �hour(p%)
"�Y� p%=� ș "Hourglass_Smash" � � p%=� ș "Hourglass_On" � ș "Hourglass_Percentage",p%
"��
�

00000000  0d 00 0a 1b f4 20 3e 20  4b 65 79 53 6f 75 6e 64  |..... > KeySound|
00000010  20 56 65 72 73 69 6f 6e  20 31 37 0d 00 14 16 f4  | Version 17.....|
00000020  20 20 20 62 79 20 54 65  72 72 79 20 42 6c 75 6e  |   by Terry Blun|
00000030  74 0d 00 1e 05 3a 0d 00  28 0e ee 20 85 20 f2 65  |t....:..(.. . .e|
00000040  72 72 6f 72 0d 00 32 09  f2 69 6e 69 74 0d 00 3c  |rror..2..init..<|
00000050  0d f2 61 73 73 65 6d 62  6c 65 0d 00 46 0d f2 63  |..assemble..F..c|
00000060  68 61 6e 6e 65 6c 73 0d  00 50 08 eb 20 31 32 0d  |hannels..P.. 12.|
00000070  00 5a 0c f2 68 6f 75 72  28 a3 29 0d 00 64 0e ee  |.Z..hour(.)..d..|
00000080  20 85 20 f2 65 72 72 6f  72 0d 00 6e 0c f2 64 69  | . .error..n..di|
00000090  73 70 6c 61 79 0d 00 78  09 f2 6d 65 6e 75 0d 00  |splay..x..menu..|
000000a0  82 09 f2 74 69 64 79 0d  00 8c 05 e0 0d 00 96 05  |...tidy.........|
000000b0  3a 0d 00 a0 05 3a 0d 00  aa 0c dd 20 f2 65 72 72  |:....:..... .err|
000000c0  6f 72 0d 00 b4 07 ef 20  34 0d 00 be 19 f1 20 f6  |or..... 4..... .|
000000d0  24 20 22 20 2d 20 50 72  65 73 73 20 61 20 6b 65  |$ " - Press a ke|
000000e0  79 22 0d 00 c8 07 e7 20  a5 0d 00 d2 0d e7 20 ac  |y"..... ...... .|
000000f0  20 a6 20 b9 20 e1 0d 00  dc 09 ee 20 85 20 87 0d  | . . ...... . ..|
00000100  00 e6 16 2a 52 4d 52 45  49 4e 49 54 20 53 6f 75  |...*RMREINIT Sou|
00000110  6e 64 44 4d 41 0d 00 f0  1b 2a 52 4d 52 45 49 4e  |ndDMA....*RMREIN|
00000120  49 54 20 53 6f 75 6e 64  43 68 61 6e 6e 65 6c 73  |IT SoundChannels|
00000130  0d 00 fa 1c 2a 52 4d 52  45 49 4e 49 54 20 53 6f  |....*RMREINIT So|
00000140  75 6e 64 53 63 68 65 64  75 6c 65 72 0d 01 04 17  |undScheduler....|
00000150  2a 52 4d 52 45 49 4e 49  54 20 57 61 76 65 53 79  |*RMREINIT WaveSy|
00000160  6e 74 68 0d 01 0e 17 2a  52 4d 52 45 49 4e 49 54  |nth....*RMREINIT|
00000170  20 53 74 72 69 6e 67 4c  69 62 0d 01 18 18 2a 52  | StringLib....*R|
00000180  4d 52 45 49 4e 49 54 20  50 65 72 63 75 73 73 69  |MREINIT Percussi|
00000190  6f 6e 0d 01 22 09 2a 46  58 20 34 0d 01 2c 0a 2a  |on..".*FX 4..,.*|
000001a0  46 58 20 31 32 0d 01 36  0b 2a 46 58 20 32 32 39  |FX 12..6.*FX 229|
000001b0  0d 01 40 05 e0 0d 01 4a  05 3a 0d 01 54 0b dd 20  |..@....J.:..T.. |
000001c0  f2 69 6e 69 74 0d 01 5e  0a 49 25 3d 90 2b 34 0d  |.init..^.I%=.+4.|
000001d0  01 68 05 f5 0d 01 72 09  49 25 2b 3d 31 0d 01 7c  |.h....r.I%+=1..||
000001e0  10 fd 20 49 25 3f 2d 31  3d 97 22 3e 22 0d 01 86  |.. I%?-1=.">"...|
000001f0  09 f1 20 24 49 25 0d 01  90 13 56 6f 69 63 65 53  |.. $I%....VoiceS|
00000200  69 7a 65 25 3d 26 35 30  30 0d 01 9a 10 56 6f 69  |ize%=&500....Voi|
00000210  63 65 4d 61 78 25 3d 31  32 0d 01 a4 37 de 20 4d  |ceMax%=12...7. M|
00000220  6f 64 75 6c 65 25 20 26  32 30 30 2c 43 6f 64 65  |odule% &200,Code|
00000230  25 20 56 6f 69 63 65 53  69 7a 65 25 2a 56 6f 69  |% VoiceSize%*Voi|
00000240  63 65 4d 61 78 25 2c 57  6f 72 6b 25 20 26 34 30  |ceMax%,Work% &40|
00000250  0d 01 ae 33 de 20 56 6f  69 63 65 4e 61 6d 65 25  |...3. VoiceName%|
00000260  28 56 6f 69 63 65 4d 61  78 25 29 2c 56 6f 69 63  |(VoiceMax%),Voic|
00000270  65 45 6e 61 62 6c 65 25  28 56 6f 69 63 65 4d 61  |eEnable%(VoiceMa|
00000280  78 25 29 0d 01 b8 41 de  20 41 6d 70 45 6e 76 25  |x%)...A. AmpEnv%|
00000290  28 56 6f 69 63 65 4d 61  78 25 29 2c 46 72 65 45  |(VoiceMax%),FreE|
000002a0  6e 76 25 28 56 6f 69 63  65 4d 61 78 25 29 2c 57  |nv%(VoiceMax%),W|
000002b0  61 76 65 54 61 62 6c 65  25 28 56 6f 69 63 65 4d  |aveTable%(VoiceM|
000002c0  61 78 25 29 0d 01 c2 29  de 20 4f 6c 64 56 6f 69  |ax%)...). OldVoi|
000002d0  63 65 25 28 56 6f 69 63  65 4d 61 78 25 29 2c 4f  |ce%(VoiceMax%),O|
000002e0  6c 64 43 68 61 6e 6e 65  6c 25 28 38 29 0d 01 cc  |ldChannel%(8)...|
000002f0  37 de 20 77 25 28 56 6f  69 63 65 4d 61 78 25 2c  |7. w%(VoiceMax%,|
00000300  32 35 35 29 2c 70 61 72  25 28 56 6f 69 63 65 4d  |255),par%(VoiceM|
00000310  61 78 25 2c 32 35 29 2c  53 69 6e 65 25 28 32 35  |ax%,25),Sine%(25|
00000320  35 2c 39 29 0d 01 d6 0c  2a 50 4f 49 4e 54 45 52  |5,9)....*POINTER|
00000330  0d 01 e0 08 c8 97 20 87  0d 01 ea 0c f2 68 6f 75  |...... ......hou|
00000340  72 28 b9 29 0d 01 f4 10  e3 20 49 25 3d 30 20 b8  |r(.)..... I%=0 .|
00000350  20 32 35 35 0d 01 fe 14  f2 68 6f 75 72 28 49 25  | 255.....hour(I%|
00000360  20 81 20 32 35 2b 31 29  0d 02 08 22 53 69 6e 65  | . 25+1)..."Sine|
00000370  25 28 49 25 2c 30 29 3d  28 b3 28 31 29 2d 2e 35  |%(I%,0)=(.(1)-.5|
00000380  29 2a 31 36 37 37 37 32  31 36 0d 02 12 0e e3 20  |)*16777216..... |
00000390  4a 25 3d 31 20 b8 20 39  0d 02 1c 28 53 69 6e 65  |J%=1 . 9...(Sine|
000003a0  25 28 49 25 2c 4a 25 29  3d b5 28 af 2a 49 25 2a  |%(I%,J%)=.(.*I%*|
000003b0  4a 25 2f 31 32 38 29 2a  31 36 37 37 37 32 31 36  |J%/128)*16777216|
000003c0  0d 02 26 05 ed 0d 02 30  05 ed 0d 02 3a 0e 2a 4b  |..&....0....:.*K|
000003d0  45 59 20 30 20 7c 21 7e  0d 02 44 0b 2a 46 58 20  |EY 0 |!~..D.*FX |
000003e0  34 20 31 0d 02 4e 0d 2a  46 58 20 32 32 39 20 31  |4 1..N.*FX 229 1|
000003f0  0d 02 58 0f 2a 4b 45 59  20 31 33 20 7c 21 21 0d  |..X.*KEY 13 |!!.|
00000400  02 62 05 e1 0d 02 6c 05  3a 0d 02 76 0f dd 20 f2  |.b....l.:..v.. .|
00000410  61 73 73 65 6d 62 6c 65  0d 02 80 16 e3 20 76 25  |assemble..... v%|
00000420  3d 31 20 b8 20 56 6f 69  63 65 4d 61 78 25 0d 02  |=1 . VoiceMax%..|
00000430  8a 10 f2 68 6f 75 72 28  31 30 2b 76 25 29 0d 02  |...hour(10+v%)..|
00000440  94 16 56 6f 69 63 65 45  6e 61 62 6c 65 25 28 76  |..VoiceEnable%(v|
00000450  25 29 3d b9 0d 02 9e 12  e3 20 49 25 3d 30 20 b8  |%)=...... I%=0 .|
00000460  20 32 20 88 20 32 0d 02  a8 25 50 25 3d 43 6f 64  | 2 . 2...%P%=Cod|
00000470  65 25 2b 56 6f 69 63 65  53 69 7a 65 25 2a 76 25  |e%+VoiceSize%*v%|
00000480  2d 56 6f 69 63 65 53 69  7a 65 25 0d 02 b2 0b 5b  |-VoiceSize%....[|
00000490  4f 50 54 20 49 25 0d 02  bc 0e 2e 56 6f 69 63 65  |OPT I%.....Voice|
000004a0  42 61 73 65 0d 02 c6 0a  42 20 46 69 6c 6c 0d 02  |Base....B Fill..|
000004b0  d0 0a 42 20 46 69 6c 6c  0d 02 da 0c 42 20 47 61  |..B Fill....B Ga|
000004c0  74 65 4f 6e 0d 02 e4 0d  42 20 47 61 74 65 4f 66  |teOn....B GateOf|
000004d0  66 0d 02 ee 0e 42 20 49  6e 73 74 61 6e 63 65 0d  |f....B Instance.|
000004e0  02 f8 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |...LDMFD R13!,{P|
000004f0  43 7d 0d 03 02 13 4c 44  4d 46 44 20 52 31 33 21  |C}....LDMFD R13!|
00000500  2c 7b 50 43 7d 0d 03 0c  21 45 51 55 44 20 56 6f  |,{PC}...!EQUD Vo|
00000510  69 63 65 4e 61 6d 65 25  28 76 25 29 2d 56 6f 69  |iceName%(v%)-Voi|
00000520  63 65 42 61 73 65 0d 03  16 05 3b 0d 03 20 13 2e  |ceBase....;.. ..|
00000530  56 6f 69 63 65 4e 61 6d  65 25 28 76 25 29 0d 03  |VoiceName%(v%)..|
00000540  2a 0f 3d a4 62 79 74 65  73 28 31 39 29 0d 03 34  |*.=.bytes(19)..4|
00000550  05 3b 0d 03 3e 0e 2e 4c  6f 67 41 6d 70 50 74 72  |.;..>..LogAmpPtr|
00000560  0d 03 48 0a 45 51 55 44  20 30 0d 03 52 0d 2e 57  |..H.EQUD 0..R..W|
00000570  61 76 65 42 61 73 65 0d  03 5c 0a 45 51 55 44 20  |aveBase..\.EQUD |
00000580  30 0d 03 66 0e 2e 41 6d  70 45 6e 76 50 74 72 0d  |0..f..AmpEnvPtr.|
00000590  03 70 0a 45 51 55 44 20  30 0d 03 7a 0e 2e 46 72  |.p.EQUD 0..z..Fr|
000005a0  65 45 6e 76 50 74 72 0d  03 84 0a 45 51 55 44 20  |eEnvPtr....EQUD |
000005b0  30 0d 03 8e 10 2e 41 6d  70 45 6e 76 25 28 76 25  |0.....AmpEnv%(v%|
000005c0  29 0d 03 98 10 3d a4 62  79 74 65 73 28 32 35 35  |)....=.bytes(255|
000005d0  29 0d 03 a2 10 2e 46 72  65 45 6e 76 25 28 76 25  |).....FreEnv%(v%|
000005e0  29 0d 03 ac 10 3d a4 62  79 74 65 73 28 32 35 35  |)....=.bytes(255|
000005f0  29 0d 03 b6 13 2e 57 61  76 65 54 61 62 6c 65 25  |).....WaveTable%|
00000600  28 76 25 29 0d 03 c0 10  3d a4 62 79 74 65 73 28  |(v%)....=.bytes(|
00000610  32 35 35 29 0d 03 ca 05  3b 0d 03 d4 0d 2e 49 6e  |255)....;.....In|
00000620  73 74 61 6e 63 65 0d 03  de 16 53 54 4d 46 44 20  |stance....STMFD |
00000630  52 31 33 21 2c 7b 52 30  2d 52 34 7d 0d 03 e8 14  |R13!,{R0-R4}....|
00000640  41 44 52 20 52 31 2c 56  6f 69 63 65 42 61 73 65  |ADR R1,VoiceBase|
00000650  0d 03 f2 21 4d 4f 56 20  52 30 2c 23 41 6d 70 45  |...!MOV R0,#AmpE|
00000660  6e 76 25 28 76 25 29 2d  56 6f 69 63 65 42 61 73  |nv%(v%)-VoiceBas|
00000670  65 0d 03 fc 10 41 44 44  20 52 30 2c 52 30 2c 52  |e....ADD R0,R0,R|
00000680  31 0d 04 06 14 53 54 52  20 52 30 2c 41 6d 70 45  |1....STR R0,AmpE|
00000690  6e 76 50 74 72 0d 04 10  21 4d 4f 56 20 52 30 2c  |nvPtr...!MOV R0,|
000006a0  23 46 72 65 45 6e 76 25  28 76 25 29 2d 56 6f 69  |#FreEnv%(v%)-Voi|
000006b0  63 65 42 61 73 65 0d 04  1a 10 41 44 44 20 52 30  |ceBase....ADD R0|
000006c0  2c 52 30 2c 52 31 0d 04  24 14 53 54 52 20 52 30  |,R0,R1..$.STR R0|
000006d0  2c 46 72 65 45 6e 76 50  74 72 0d 04 2e 24 4d 4f  |,FreEnvPtr...$MO|
000006e0  56 20 52 30 2c 23 57 61  76 65 54 61 62 6c 65 25  |V R0,#WaveTable%|
000006f0  28 76 25 29 2d 56 6f 69  63 65 42 61 73 65 0d 04  |(v%)-VoiceBase..|
00000700  38 10 41 44 44 20 52 30  2c 52 30 2c 52 31 0d 04  |8.ADD R0,R0,R1..|
00000710  42 13 53 54 52 20 52 30  2c 57 61 76 65 42 61 73  |B.STR R0,WaveBas|
00000720  65 0d 04 4c 0d 4d 4f 56  20 52 30 2c 23 30 0d 04  |e..L.MOV R0,#0..|
00000730  56 0d 4d 4f 56 20 52 31  2c 23 30 0d 04 60 0d 4d  |V.MOV R1,#0..`.M|
00000740  4f 56 20 52 32 2c 23 30  0d 04 6a 0d 4d 4f 56 20  |OV R2,#0..j.MOV |
00000750  52 33 2c 23 30 0d 04 74  0d 4d 4f 56 20 52 34 2c  |R3,#0..t.MOV R4,|
00000760  23 30 0d 04 7e 19 53 57  49 20 22 53 6f 75 6e 64  |#0..~.SWI "Sound|
00000770  5f 43 6f 6e 66 69 67 75  72 65 22 0d 04 88 13 4c  |_Configure"....L|
00000780  44 52 20 52 30 2c 5b 52  33 2c 23 31 32 5d 0d 04  |DR R0,[R3,#12]..|
00000790  92 14 53 54 52 20 52 30  2c 4c 6f 67 41 6d 70 50  |..STR R0,LogAmpP|
000007a0  74 72 0d 04 9c 19 4c 44  4d 46 44 20 52 31 33 21  |tr....LDMFD R13!|
000007b0  2c 7b 52 30 2d 52 34 2c  50 43 7d 0d 04 a6 05 3b  |,{R0-R4,PC}....;|
000007c0  0d 04 b0 0b 2e 47 61 74  65 4f 6e 0d 04 ba 14 4c  |.....GateOn....L|
000007d0  44 4d 49 41 20 52 39 2c  7b 52 31 2d 52 38 7d 0d  |DMIA R9,{R1-R8}.|
000007e0  04 c4 14 4c 44 52 20 52  33 2c 41 6d 70 45 6e 76  |...LDR R3,AmpEnv|
000007f0  50 74 72 0d 04 ce 13 4c  44 52 20 52 35 2c 57 61  |Ptr....LDR R5,Wa|
00000800  76 65 42 61 73 65 0d 04  d8 14 4c 44 52 20 52 36  |veBase....LDR R6|
00000810  2c 4c 6f 67 41 6d 70 50  74 72 0d 04 e2 14 4c 44  |,LogAmpPtr....LD|
00000820  52 20 52 37 2c 46 72 65  45 6e 76 50 74 72 0d 04  |R R7,FreEnvPtr..|
00000830  ec 0e 42 20 46 69 6c 6c  47 61 74 65 0d 04 f6 05  |..B FillGate....|
00000840  3b 0d 05 00 09 2e 46 69  6c 6c 0d 05 0a 14 4c 44  |;.....Fill....LD|
00000850  4d 49 41 20 52 39 2c 7b  52 31 2d 52 38 7d 0d 05  |MIA R9,{R1-R8}..|
00000860  14 0d 2e 46 69 6c 6c 47  61 74 65 0d 05 1e 13 4c  |...FillGate....L|
00000870  44 52 42 20 52 30 2c 5b  52 37 5d 2c 23 31 0d 05  |DRB R0,[R7],#1..|
00000880  28 15 4d 4f 56 20 52 30  2c 52 30 2c 41 53 4c 20  |(.MOV R0,R0,ASL |
00000890  23 32 34 0d 05 32 18 41  44 44 20 52 32 2c 52 32  |#24..2.ADD R2,R2|
000008a0  2c 52 30 2c 41 53 52 20  23 32 34 0d 05 3c 10 80  |,R0,ASR #24..<..|
000008b0  20 52 31 2c 52 31 2c 23  31 32 37 0d 05 46 13 4c  | R1,R1,#127..F.L|
000008c0  44 52 42 20 52 30 2c 5b  52 33 5d 2c 23 31 0d 05  |DRB R0,[R3],#1..|
000008d0  50 0f 43 4d 50 20 52 30  2c 23 32 35 35 0d 05 5a  |P.CMP R0,#255..Z|
000008e0  0c ec 51 20 52 34 2c 23  30 0d 05 64 0f 43 4d 50  |..Q R4,#0..d.CMP|
000008f0  4e 45 20 52 34 2c 23 30  0d 05 6e 0c ec 51 20 52  |NE R4,#0..n..Q R|
00000900  30 2c 23 32 0d 05 78 15  4c 44 4d 45 51 46 44 20  |0,#2..x.LDMEQFD |
00000910  52 31 33 21 2c 7b 50 43  7d 0d 05 82 05 3b 0d 05  |R13!,{PC}....;..|
00000920  8c 11 53 55 42 53 20 52  31 2c 52 31 2c 52 30 0d  |..SUBS R1,R1,R0.|
00000930  05 96 0f 4d 4f 56 4d 49  20 52 31 2c 23 30 0d 05  |...MOVMI R1,#0..|
00000940  a0 1a 4c 44 52 42 20 52  31 2c 5b 52 36 2c 52 31  |..LDRB R1,[R6,R1|
00000950  2c 4c 53 4c 20 23 31 5d  0d 05 aa 14 4d 4f 56 20  |,LSL #1]....MOV |
00000960  52 31 2c 52 31 2c 4c 53  52 20 23 31 0d 05 b4 12  |R1,R1,LSR #1....|
00000970  52 53 42 20 52 31 2c 52  31 2c 23 31 32 37 0d 05  |RSB R1,R1,#127..|
00000980  be 0d 2e 46 69 6c 6c 4c  6f 6f 70 0d 05 c8 18 41  |...FillLoop....A|
00000990  44 44 20 52 32 2c 52 32  2c 52 32 2c 4c 53 4c 20  |DD R2,R2,R2,LSL |
000009a0  23 31 36 0d 05 d2 1b 4c  44 52 42 20 52 30 2c 5b  |#16....LDRB R0,[|
000009b0  52 35 2c 52 32 2c 4c 53  52 20 23 32 34 5d 0d 05  |R5,R2,LSR #24]..|
000009c0  dc 18 53 55 42 53 20 52  30 2c 52 30 2c 52 31 2c  |..SUBS R0,R0,R1,|
000009d0  4c 53 4c 20 23 31 0d 05  e6 0f 4d 4f 56 4d 49 20  |LSL #1....MOVMI |
000009e0  52 30 2c 23 30 0d 05 f0  15 53 54 52 42 20 52 30  |R0,#0....STRB R0|
000009f0  2c 5b 52 31 32 5d 2c 52  31 31 0d 05 fa 18 41 44  |,[R12],R11....AD|
00000a00  44 20 52 32 2c 52 32 2c  52 32 2c 4c 53 4c 20 23  |D R2,R2,R2,LSL #|
00000a10  31 36 0d 06 04 1b 4c 44  52 42 20 52 30 2c 5b 52  |16....LDRB R0,[R|
00000a20  35 2c 52 32 2c 4c 53 52  20 23 32 34 5d 0d 06 0e  |5,R2,LSR #24]...|
00000a30  18 53 55 42 53 20 52 30  2c 52 30 2c 52 31 2c 4c  |.SUBS R0,R0,R1,L|
00000a40  53 4c 20 23 31 0d 06 18  0f 4d 4f 56 4d 49 20 52  |SL #1....MOVMI R|
00000a50  30 2c 23 30 0d 06 22 15  53 54 52 42 20 52 30 2c  |0,#0..".STRB R0,|
00000a60  5b 52 31 32 5d 2c 52 31  31 0d 06 2c 18 41 44 44  |[R12],R11..,.ADD|
00000a70  20 52 32 2c 52 32 2c 52  32 2c 4c 53 4c 20 23 31  | R2,R2,R2,LSL #1|
00000a80  36 0d 06 36 1b 4c 44 52  42 20 52 30 2c 5b 52 35  |6..6.LDRB R0,[R5|
00000a90  2c 52 32 2c 4c 53 52 20  23 32 34 5d 0d 06 40 18  |,R2,LSR #24]..@.|
00000aa0  53 55 42 53 20 52 30 2c  52 30 2c 52 31 2c 4c 53  |SUBS R0,R0,R1,LS|
00000ab0  4c 20 23 31 0d 06 4a 0f  4d 4f 56 4d 49 20 52 30  |L #1..J.MOVMI R0|
00000ac0  2c 23 30 0d 06 54 15 53  54 52 42 20 52 30 2c 5b  |,#0..T.STRB R0,[|
00000ad0  52 31 32 5d 2c 52 31 31  0d 06 5e 18 41 44 44 20  |R12],R11..^.ADD |
00000ae0  52 32 2c 52 32 2c 52 32  2c 4c 53 4c 20 23 31 36  |R2,R2,R2,LSL #16|
00000af0  0d 06 68 1b 4c 44 52 42  20 52 30 2c 5b 52 35 2c  |..h.LDRB R0,[R5,|
00000b00  52 32 2c 4c 53 52 20 23  32 34 5d 0d 06 72 18 53  |R2,LSR #24]..r.S|
00000b10  55 42 53 20 52 30 2c 52  30 2c 52 31 2c 4c 53 4c  |UBS R0,R0,R1,LSL|
00000b20  20 23 31 0d 06 7c 0f 4d  4f 56 4d 49 20 52 30 2c  | #1..|.MOVMI R0,|
00000b30  23 30 0d 06 86 15 53 54  52 42 20 52 30 2c 5b 52  |#0....STRB R0,[R|
00000b40  31 32 5d 2c 52 31 31 0d  06 90 0f 43 4d 50 20 52  |12],R11....CMP R|
00000b50  31 32 2c 52 31 30 0d 06  9a 10 42 4c 54 20 46 69  |12,R10....BLT Fi|
00000b60  6c 6c 4c 6f 6f 70 0d 06  a4 0d 2e 46 69 6c 6c 45  |llLoop.....FillE|
00000b70  78 69 74 0d 06 ae 10 53  55 42 20 52 34 2c 52 34  |xit....SUB R4,R4|
00000b80  2c 23 31 0d 06 b8 14 53  54 4d 49 42 20 52 39 2c  |,#1....STMIB R9,|
00000b90  7b 52 32 2d 52 38 7d 0d  06 c2 0d 4d 4f 56 20 52  |{R2-R8}....MOV R|
00000ba0  30 2c 23 38 0d 06 cc 13  4c 44 4d 46 44 20 52 31  |0,#8....LDMFD R1|
00000bb0  33 21 2c 7b 50 43 7d 0d  06 d6 05 3b 0d 06 e0 0c  |3!,{PC}....;....|
00000bc0  2e 47 61 74 65 4f 66 66  0d 06 ea 0d 4d 4f 56 20  |.GateOff....MOV |
00000bd0  52 30 2c 23 30 0d 06 f4  0e 2e 46 6c 75 73 68 4c  |R0,#0.....FlushL|
00000be0  6f 6f 70 0d 06 fe 15 53  54 52 42 20 52 30 2c 5b  |oop....STRB R0,[|
00000bf0  52 31 32 5d 2c 52 31 31  0d 07 08 15 53 54 52 42  |R12],R11....STRB|
00000c00  20 52 30 2c 5b 52 31 32  5d 2c 52 31 31 0d 07 12  | R0,[R12],R11...|
00000c10  15 53 54 52 42 20 52 30  2c 5b 52 31 32 5d 2c 52  |.STRB R0,[R12],R|
00000c20  31 31 0d 07 1c 15 53 54  52 42 20 52 30 2c 5b 52  |11....STRB R0,[R|
00000c30  31 32 5d 2c 52 31 31 0d  07 26 0f 43 4d 50 20 52  |12],R11..&.CMP R|
00000c40  31 32 2c 52 31 30 0d 07  30 11 42 4c 54 20 46 6c  |12,R10..0.BLT Fl|
00000c50  75 73 68 4c 6f 6f 70 0d  07 3a 0d 4d 4f 56 20 52  |ushLoop..:.MOV R|
00000c60  30 2c 23 31 0d 07 44 13  4c 44 4d 46 44 20 52 31  |0,#1..D.LDMFD R1|
00000c70  33 21 2c 7b 50 43 7d 0d  07 4e 05 5d 0d 07 58 05  |3!,{PC}..N.]..X.|
00000c80  ed 0d 07 62 05 ed 0d 07  6c 05 3a 0d 07 76 12 e3  |...b....l.:..v..|
00000c90  20 49 25 3d 30 20 b8 20  32 20 88 20 32 0d 07 80  | I%=0 . 2 . 2...|
00000ca0  0c 50 25 3d 57 6f 72 6b  25 0d 07 8a 0c 5b 20 4f  |.P%=Work%....[ O|
00000cb0  50 54 20 49 25 0d 07 94  08 2e 4c 6f 67 0d 07 9e  |PT I%.....Log...|
00000cc0  18 53 57 49 20 22 53 6f  75 6e 64 5f 53 6f 75 6e  |.SWI "Sound_Soun|
00000cd0  64 4c 6f 67 22 0d 07 a8  18 53 57 49 20 22 53 6f  |dLog"....SWI "So|
00000ce0  75 6e 64 5f 4c 6f 67 53  63 61 6c 65 22 0d 07 b2  |und_LogScale"...|
00000cf0  13 53 54 52 42 20 52 30  2c 5b 52 32 2c 52 31 5d  |.STRB R0,[R2,R1]|
00000d00  0d 07 bc 0e 4d 4f 56 20  50 43 2c 52 31 34 0d 07  |....MOV PC,R14..|
00000d10  c6 09 2e 54 79 70 65 0d  07 d0 0e 3d a4 62 79 74  |...Type....=.byt|
00000d20  65 73 28 37 29 0d 07 da  05 5d 0d 07 e4 05 ed 0d  |es(7)....]......|
00000d30  07 ee 05 e1 0d 07 f8 05  3a 0d 08 02 10 dd 20 a4  |........:..... .|
00000d40  62 79 74 65 73 28 6e 25  29 0d 08 0c 0a 50 25 2b  |bytes(n%)....P%+|
00000d50  3d 6e 25 0d 08 16 07 3d  49 25 0d 08 20 05 3a 0d  |=n%....=I%.. .:.|
00000d60  08 2a 0f dd 20 f2 63 68  61 6e 6e 65 6c 73 0d 08  |.*.. .channels..|
00000d70  34 08 f7 20 2b 30 0d 08  3e 16 e3 20 76 25 3d 31  |4.. +0..>.. v%=1|
00000d80  20 b8 20 56 6f 69 63 65  4d 61 78 25 0d 08 48 12  | . VoiceMax%..H.|
00000d90  f2 68 6f 75 72 28 32 32  2b 76 25 2a 36 29 0d 08  |.hour(22+v%*6)..|
00000da0  52 1f ff 22 4b 45 59 20  22 2b c3 20 76 25 2b bd  |R.."KEY "+. v%+.|
00000db0  28 76 25 2b 31 39 39 29  2b 22 7c 4d 22 0d 08 5c  |(v%+199)+"|M"..\|
00000dc0  0b f3 20 61 24 2c 62 24  0d 08 66 2e 24 56 6f 69  |.. a$,b$..f.$Voi|
00000dd0  63 65 4e 61 6d 65 25 28  76 25 29 3d 22 55 73 65  |ceName%(v%)="Use|
00000de0  72 4c 69 62 2d 22 2b c0  61 24 2b c4 31 31 2c bd  |rLib-"+.a$+.11,.|
00000df0  30 29 2c 31 31 29 0d 08  70 0f e3 20 49 25 3d 30  |0),11)..p.. I%=0|
00000e00  20 b8 20 32 35 0d 08 7a  1d 70 61 72 25 28 76 25  | . 25..z.par%(v%|
00000e10  2c 49 25 29 3d a0 28 22  26 22 2b c0 62 24 2c 32  |,I%)=.("&"+.b$,2|
00000e20  29 29 0d 08 84 0d 62 24  3d c1 62 24 2c 33 29 0d  |))....b$=.b$,3).|
00000e30  08 8e 05 ed 0d 08 98 11  f2 66 69 6c 6c 77 61 76  |.........fillwav|
00000e40  65 28 76 25 29 0d 08 a2  12 f2 68 6f 75 72 28 32  |e(v%).....hour(2|
00000e50  35 2b 76 25 2a 36 29 0d  08 ac 11 f2 65 6e 76 65  |5+v%*6).....enve|
00000e60  6c 6f 70 65 28 76 25 29  0d 08 b6 4f c8 99 20 22  |lope(v%)...O.. "|
00000e70  53 6f 75 6e 64 5f 49 6e  73 74 61 6c 6c 56 6f 69  |Sound_InstallVoi|
00000e80  63 65 22 2c 43 6f 64 65  25 2b 76 25 2a 56 6f 69  |ce",Code%+v%*Voi|
00000e90  63 65 53 69 7a 65 25 2d  56 6f 69 63 65 53 69 7a  |ceSize%-VoiceSiz|
00000ea0  65 25 2c 30 20 b8 20 61  25 2c 4f 6c 64 56 6f 69  |e%,0 . a%,OldVoi|
00000eb0  63 65 25 28 76 25 29 0d  08 c0 05 ed 0d 08 ca 0c  |ce%(v%).........|
00000ec0  56 6f 69 63 65 25 3d 31  0d 08 d4 0e e3 20 76 25  |Voice%=1..... v%|
00000ed0  3d 31 20 b8 20 38 0d 08  de 34 c8 99 20 22 53 6f  |=1 . 8...4.. "So|
00000ee0  75 6e 64 5f 41 74 74 61  63 68 56 6f 69 63 65 22  |und_AttachVoice"|
00000ef0  2c 76 25 2c 30 20 b8 20  7a 25 2c 4f 6c 64 43 68  |,v%,0 . z%,OldCh|
00000f00  61 6e 6e 65 6c 25 28 76  25 29 0d 08 e8 1d c8 a1  |annel%(v%)......|
00000f10  20 76 25 2c 24 56 6f 69  63 65 4e 61 6d 65 25 28  | v%,$VoiceName%(|
00000f20  56 6f 69 63 65 25 29 0d  08 f2 05 ed 0d 08 fc 08  |Voice%).........|
00000f30  c8 a0 20 38 0d 09 06 05  e1 0d 09 10 3f dc 20 42  |.. 8........?. B|
00000f40  65 6c 6c 2c 30 30 33 41  30 30 30 30 32 33 30 30  |ell,003A00002300|
00000f50  32 38 30 30 32 44 30 30  30 30 37 46 30 31 37 30  |28002D00007F0170|
00000f60  30 38 30 34 46 42 30 30  30 35 30 30 30 30 30 38  |0804FB0005000008|
00000f70  30 30 30 38 30 38 33 35  0d 09 1a 45 dc 20 48 61  |00080835...E. Ha|
00000f80  6d 6d 6f 6e 64 4f 72 67  2c 30 30 32 46 31 32 30  |mmondOrg,002F120|
00000f90  44 31 44 30 30 31 45 30  30 32 33 30 30 30 46 37  |D1D001E0023000F7|
00000fa0  37 30 34 37 46 31 30 31  35 46 45 30 37 30 35 30  |7047F1015FE07050|
00000fb0  30 30 30 30 43 30 30 31  31 30 46 30 35 0d 09 24  |0000C00110F05..$|
00000fc0  43 dc 20 45 74 68 65 72  65 61 6c 2c 30 31 36 31  |C. Ethereal,0161|
00000fd0  31 32 31 31 30 36 30 38  30 38 30 36 30 39 30 41  |121106080806090A|
00000fe0  30 46 36 46 30 37 37 46  31 39 32 36 46 46 30 30  |0F6F077F1926FF00|
00000ff0  30 32 30 33 30 30 30 32  30 30 33 32 30 38 33 35  |0203000200320835|
00001000  0d 09 2e 3e dc 20 53 61  77 2c 30 30 35 31 32 45  |...>. Saw,00512E|
00001010  31 43 30 30 30 30 30 30  30 31 30 30 30 30 31 32  |1C00000001000012|
00001020  36 39 30 42 37 46 32 38  30 38 46 46 30 30 30 35  |690B7F2808FF0005|
00001030  30 30 30 30 30 32 30 30  31 34 30 38 36 35 0d 09  |00000200140865..|
00001040  38 45 dc 20 56 69 62 72  61 70 68 6f 6e 65 2c 30  |8E. Vibraphone,0|
00001050  30 34 37 30 31 30 30 30  46 30 30 30 31 30 30 32  |04701000F0001002|
00001060  37 30 30 30 43 37 45 30  31 36 46 30 34 31 41 46  |7000C7E016F041AF|
00001070  30 31 37 30 36 30 32 30  32 30 32 30 32 30 30 30  |0170602020202000|
00001080  34 33 35 0d 09 42 44 dc  20 43 68 75 72 63 68 4f  |435..BD. ChurchO|
00001090  72 67 2c 30 37 37 31 30  37 31 42 30 30 30 30 30  |rg,0771071B00000|
000010a0  30 30 30 30 36 30 30 30  46 36 46 30 37 37 46 31  |00006000F6F077F1|
000010b0  39 33 32 46 38 30 30 30  32 30 33 30 32 30 32 30  |932F800020302020|
000010c0  30 30 30 30 38 30 35 0d  09 4c 45 dc 20 48 61 72  |0000805..LE. Har|
000010d0  70 73 69 63 6f 72 64 2c  30 31 33 39 31 30 30 45  |psicord,0139100E|
000010e0  31 35 30 45 31 32 31 30  30 46 31 31 30 30 37 43  |150E12100F11007C|
000010f0  30 31 37 30 30 38 30 41  43 32 30 30 30 32 30 33  |0170080AC2000203|
00001100  30 30 30 32 30 30 30 30  30 38 30 35 0d 09 56 40  |000200000805..V@|
00001110  dc 20 46 6c 75 74 65 2c  31 33 35 36 31 35 32 39  |. Flute,13561529|
00001120  30 33 30 30 30 31 30 30  30 30 30 30 31 30 36 45  |030001000000106E|
00001130  30 37 37 46 31 36 30 41  39 45 30 35 30 34 30 30  |077F160A9E050400|
00001140  30 32 30 32 30 30 30 30  30 38 33 35 0d 09 60 3f  |020200000835..`?|
00001150  dc 20 48 6f 72 6e 2c 30  36 32 45 32 37 31 39 31  |. Horn,062E27191|
00001160  35 31 33 30 38 30 38 30  32 30 30 30 30 37 43 30  |51308080200007C0|
00001170  33 36 45 31 45 31 30 33  42 30 30 30 32 30 32 30  |36E1E103B0002020|
00001180  30 30 32 30 30 30 30 30  37 30 35 0d 09 6a 42 dc  |00200000705..jB.|
00001190  20 50 69 70 65 4f 72 67  2c 30 38 33 43 30 30 31  | PipeOrg,083C001|
000011a0  34 30 31 32 43 30 31 31  41 30 31 30 30 31 32 36  |4012C011A0100126|
000011b0  30 30 33 36 38 33 46 33  37 46 41 30 35 30 33 30  |003683F37FA05030|
000011c0  30 30 32 30 32 30 30 30  30 30 37 30 35 0d 09 74  |0020200000705..t|
000011d0  45 dc 20 42 6c 6f 63 6b  53 79 6e 74 68 2c 30 30  |E. BlockSynth,00|
000011e0  31 37 30 30 31 37 30 30  31 36 30 30 32 38 30 31  |1700170016002801|
000011f0  32 39 30 38 37 41 30 31  37 30 30 39 32 41 46 46  |29087A0170092AFF|
00001200  32 33 30 33 30 30 30 32  33 36 30 32 31 31 30 42  |230300023602110B|
00001210  30 35 0d 09 7e 42 dc 20  46 61 6e 74 61 73 79 2c  |05..~B. Fantasy,|
00001220  30 30 33 33 30 30 31 34  31 38 30 30 30 38 30 30  |0033001418000800|
00001230  31 36 32 33 30 41 37 43  30 34 35 34 33 33 32 43  |16230A7C0454332C|
00001240  46 35 32 32 30 35 30 30  34 30 31 33 34 30 31 31  |F522050040134011|
00001250  30 35 33 30 0d 09 88 05  3a 0d 09 92 0b dd 20 f2  |0530....:..... .|
00001260  6d 65 6e 75 0d 09 9c 0b  53 65 6c 25 3d 31 34 0d  |menu....Sel%=14.|
00001270  09 a6 05 f5 0d 09 b0 0f  e7 20 53 65 6c 25 3e 31  |......... Sel%>1|
00001280  32 20 8c 0d 09 ba 05 87  0d 09 c4 0e f2 6d 65 6e  |2 ...........men|
00001290  75 5f 62 61 72 73 0d 09  ce 0f c8 97 20 b8 20 35  |u_bars...... . 5|
000012a0  36 30 2c 34 38 0d 09 d8  05 cd 0d 09 e2 08 c8 97  |60,48...........|
000012b0  20 ee 0d 09 ec 0c 2a 46  58 20 32 31 20 39 0d 09  | .....*FX 21 9..|
000012c0  f6 05 f5 0d 0a 00 0f c8  97 20 78 25 2c 79 25 2c  |......... x%,y%,|
000012d0  62 25 0d 0a 0a 12 e7 20  79 25 3e 32 38 38 20 f2  |b%..... y%>288 .|
000012e0  65 64 69 74 0d 0a 14 0f  78 25 3d 78 25 20 81 20  |edit....x%=x% . |
000012f0  32 30 38 0d 0a 1e 0f e7  20 78 25 3e 35 20 78 25  |208..... x%>5 x%|
00001300  3d 35 0d 0a 28 15 79 25  3d 33 2d 28 79 25 2b 31  |=5..(.y%=3-(y%+1|
00001310  36 29 20 81 20 36 34 0d  0a 32 12 53 65 6c 25 3d  |6) . 64..2.Sel%=|
00001320  78 25 2b 79 25 2a 36 2b  31 0d 0a 3c 11 fd 20 62  |x%+y%*6+1..<.. b|
00001330  25 3d 31 20 84 20 62 25  3d 34 0d 0a 46 05 f5 0d  |%=1 . b%=4..F...|
00001340  0a 50 0f c8 97 20 78 25  2c 78 25 2c 7a 25 0d 0a  |.P... x%,x%,z%..|
00001350  5a 0a fd 20 7a 25 3d 30  0d 0a 64 0a 2a 46 58 20  |Z.. z%=0..d.*FX |
00001360  32 31 0d 0a 6e 08 c8 97  20 87 0d 0a 78 13 ef 20  |21..n... ...x.. |
00001370  32 38 2c 30 2c 33 31 2c  37 39 2c 32 34 0d 0a 82  |28,0,31,79,24...|
00001380  0f e7 20 53 65 6c 25 3e  31 32 20 db 0d 0a 8c 0d  |.. Sel%>12 .....|
00001390  c8 8e 20 53 65 6c 25 20  ca 0d 0a 96 29 c9 20 31  |.. Sel% ....). 1|
000013a0  2c 32 2c 33 2c 34 2c 35  2c 36 2c 37 2c 38 2c 39  |,2,3,4,5,6,7,8,9|
000013b0  2c 31 30 2c 31 31 2c 31  32 3a e7 20 62 25 3d 31  |,10,11,12:. b%=1|
000013c0  20 8c 0d 0a a0 3c e7 20  53 65 6c 25 3c 3e 56 6f  | ....<. Sel%<>Vo|
000013d0  69 63 65 25 20 56 6f 69  63 65 45 6e 61 62 6c 65  |ice% VoiceEnable|
000013e0  25 28 53 65 6c 25 29 3d  56 6f 69 63 65 45 6e 61  |%(Sel%)=VoiceEna|
000013f0  62 6c 65 25 28 53 65 6c  25 29 20 82 20 b9 0d 0a  |ble%(Sel%) . ...|
00001400  aa 0e f2 6d 65 6e 75 5f  62 61 72 73 0d 0a b4 05  |...menu_bars....|
00001410  cc 0d 0a be 10 f2 76 6f  69 63 65 28 53 65 6c 25  |......voice(Sel%|
00001420  29 0d 0a c8 05 cd 0d 0a  d2 0e c9 20 31 33 3a f2  |).......... 13:.|
00001430  70 6c 61 79 0d 0a dc 0e  c9 20 31 34 3a f2 6c 6f  |play..... 14:.lo|
00001440  61 64 0d 0a e6 0e c9 20  31 35 3a f2 73 61 76 65  |ad..... 15:.save|
00001450  0d 0a f0 10 c9 20 31 36  3a f2 72 65 6e 61 6d 65  |..... 16:.rename|
00001460  0d 0a fa 10 c9 20 31 37  3a f2 6d 6f 64 75 6c 65  |..... 17:.module|
00001470  0d 0b 04 0e c9 20 31 38  3a f2 73 74 61 72 0d 0b  |..... 18:.star..|
00001480  0e 05 cb 0d 0b 18 0d fd  20 53 65 6c 25 3d 31 39  |........ Sel%=19|
00001490  0d 0b 22 05 e1 0d 0b 2c  05 3a 0d 0b 36 0b dd 20  |.."....,.:..6.. |
000014a0  f2 74 69 64 79 0d 0b 40  16 e3 20 76 25 3d 31 20  |.tidy..@.. v%=1 |
000014b0  b8 20 56 6f 69 63 65 4d  61 78 25 0d 0b 4a 2a c8  |. VoiceMax%..J*.|
000014c0  99 20 22 53 6f 75 6e 64  5f 52 65 6d 6f 76 65 56  |. "Sound_RemoveV|
000014d0  6f 69 63 65 22 2c 30 2c  4f 6c 64 56 6f 69 63 65  |oice",0,OldVoice|
000014e0  25 28 76 25 29 0d 0b 54  05 ed 0d 0b 5e 0e e3 20  |%(v%)..T....^.. |
000014f0  76 25 3d 31 20 b8 20 38  0d 0b 68 2d c8 99 20 22  |v%=1 . 8..h-.. "|
00001500  53 6f 75 6e 64 5f 41 74  74 61 63 68 56 6f 69 63  |Sound_AttachVoic|
00001510  65 22 2c 76 25 2c 4f 6c  64 43 68 61 6e 6e 65 6c  |e",v%,OldChannel|
00001520  25 28 76 25 29 0d 0b 72  05 ed 0d 0b 7c 08 c8 a0  |%(v%)..r....|...|
00001530  20 31 0d 0b 86 09 2a 46  58 20 34 0d 0b 90 0a 2a  | 1....*FX 4....*|
00001540  46 58 20 31 32 0d 0b 9a  0b 2a 46 58 20 32 32 39  |FX 12....*FX 229|
00001550  0d 0b a4 08 c8 97 20 87  0d 0b ae 05 ee 0d 0b b8  |...... .........|
00001560  05 f1 0d 0b c2 05 e1 0d  0b cc 05 3a 0d 0b d6 10  |...........:....|
00001570  dd 20 f2 6d 65 6e 75 5f  62 61 72 73 0d 0b e0 16  |. .menu_bars....|
00001580  ef 20 32 38 2c 30 2c 33  31 2c 37 39 2c 32 34 2c  |. 28,0,31,79,24,|
00001590  31 32 0d 0b ea 07 f7 2b  30 0d 0b f4 18 e3 20 49  |12.....+0..... I|
000015a0  25 3d 30 20 b8 20 56 6f  69 63 65 4d 61 78 25 2d  |%=0 . VoiceMax%-|
000015b0  31 0d 0b fe 1a e7 20 56  6f 69 63 65 45 6e 61 62  |1..... VoiceEnab|
000015c0  6c 65 25 28 49 25 2b 31  29 20 8c 0d 0c 08 07 fb  |le%(I%+1) ......|
000015d0  20 30 0d 0c 12 09 fb 20  31 33 34 0d 0c 1c 05 cc  | 0..... 134.....|
000015e0  0d 0c 26 07 fb 20 37 0d  0c 30 09 fb 20 31 33 32  |..&.. 7..0.. 132|
000015f0  0d 0c 3a 05 cd 0d 0c 44  40 f1 20 8a 49 25 20 83  |..:....D@. .I% .|
00001600  20 36 2a 31 33 2c 49 25  20 81 20 36 2a 32 2b 31  | 6*13,I% . 6*2+1|
00001610  29 20 89 20 31 32 20 c4  31 31 2c bd 20 38 29 20  |) . 12 .11,. 8) |
00001620  c1 24 56 6f 69 63 65 4e  61 6d 65 25 28 49 25 2b  |.$VoiceName%(I%+|
00001630  31 29 2c 39 29 0d 0c 4e  05 ed 0d 0c 58 07 fb 20  |1),9)..N....X.. |
00001640  30 0d 0c 62 09 fb 20 31  33 34 0d 0c 6c 0e e3 20  |0..b.. 134..l.. |
00001650  49 25 3d 30 20 b8 20 36  0d 0c 76 08 f3 20 61 24  |I%=0 . 6..v.. a$|
00001660  0d 0c 80 2e f1 20 8a 49  25 20 83 20 36 2a 31 33  |..... .I% . 6*13|
00001670  2c 49 25 20 81 20 36 2a  32 2b 35 29 20 89 20 31  |,I% . 6*2+5) . 1|
00001680  32 20 c4 31 31 2c bd 20  38 29 20 61 24 3b 0d 0c  |2 .11,. 8) a$;..|
00001690  8a 05 ed 0d 0c 94 07 fb  20 37 0d 0c 9e 09 fb 20  |........ 7..... |
000016a0  31 32 38 0d 0c a8 05 e1  0d 0c b2 2f dc 20 50 6c  |128......../. Pl|
000016b0  61 79 2c 4c 6f 61 64 2c  53 61 76 65 2c 52 65 6e  |ay,Load,Save,Ren|
000016c0  61 6d 65 2c 4d 6f 64 75  6c 65 2c 4d 4f 53 20 28  |ame,Module,MOS (|
000016d0  2a 29 2c 51 75 69 74 0d  0c bc 05 3a 0d 0c c6 0b  |*),Quit....:....|
000016e0  dd 20 f2 70 6c 61 79 0d  0c d0 08 56 25 3d 31 0d  |. .play....V%=1.|
000016f0  0c da 1f ff 22 46 58 20  31 31 20 22 2b c3 20 70  |...."FX 11 "+. p|
00001700  61 72 25 28 56 6f 69 63  65 25 2c 31 30 29 0d 0c  |ar%(Voice%,10)..|
00001710  e4 31 e7 20 70 61 72 25  28 56 6f 69 63 65 25 2c  |.1. par%(Voice%,|
00001720  31 30 29 20 ff 22 46 58  20 31 32 20 22 2b c3 20  |10) ."FX 12 "+. |
00001730  70 61 72 25 28 56 6f 69  63 65 25 2c 31 30 29 0d  |par%(Voice%,10).|
00001740  0c ee 08 ef 20 32 36 0d  0c f8 07 f7 2b 30 0d 0d  |.... 26.....+0..|
00001750  02 12 f2 64 61 74 61 5f  70 72 69 6e 74 28 37 29  |...data_print(7)|
00001760  0d 0d 0c 0b f2 70 72 6f  6d 70 74 0d 0d 16 05 f5  |.....prompt.....|
00001770  0d 0d 20 0a 2a 46 58 20  32 31 0d 0d 2a 08 47 25  |.. .*FX 21..*.G%|
00001780  3d a5 0d 0d 34 12 e7 20  a6 2d 39 38 3a f2 6b 65  |=...4.. .-98:.ke|
00001790  79 28 30 29 0d 0d 3e 12  e7 20 a6 2d 38 32 3a f2  |y(0)..>.. .-82:.|
000017a0  6b 65 79 28 34 29 0d 0d  48 12 e7 20 a6 2d 36 37  |key(4)..H.. .-67|
000017b0  3a f2 6b 65 79 28 38 29  0d 0d 52 13 e7 20 a6 2d  |:.key(8)..R.. .-|
000017c0  35 31 3a f2 6b 65 79 28  31 32 29 0d 0d 5c 13 e7  |51:.key(12)..\..|
000017d0  20 a6 2d 38 33 3a f2 6b  65 79 28 31 36 29 0d 0d  | .-83:.key(16)..|
000017e0  66 14 e7 20 a6 2d 31 30  30 3a f2 6b 65 79 28 32  |f.. .-100:.key(2|
000017f0  30 29 0d 0d 70 13 e7 20  a6 2d 38 34 3a f2 6b 65  |0)..p.. .-84:.ke|
00001800  79 28 32 34 29 0d 0d 7a  14 e7 20 a6 2d 31 30 31  |y(24)..z.. .-101|
00001810  3a f2 6b 65 79 28 32 38  29 0d 0d 84 13 e7 20 a6  |:.key(28)..... .|
00001820  2d 38 35 3a f2 6b 65 79  28 33 32 29 0d 0d 8e 13  |-85:.key(32)....|
00001830  e7 20 a6 2d 38 36 3a f2  6b 65 79 28 33 36 29 0d  |. .-86:.key(36).|
00001840  0d 98 13 e7 20 a6 2d 37  30 3a f2 6b 65 79 28 34  |.... .-70:.key(4|
00001850  30 29 0d 0d a2 14 e7 20  a6 2d 31 30 32 3a f2 6b  |0)..... .-102:.k|
00001860  65 79 28 34 34 29 0d 0d  ac 14 e7 20 a6 2d 31 30  |ey(44)..... .-10|
00001870  33 3a f2 6b 65 79 28 34  38 29 0d 0d b6 13 e7 20  |3:.key(48)..... |
00001880  a6 2d 38 37 3a f2 6b 65  79 28 35 32 29 0d 0d c0  |.-87:.key(52)...|
00001890  14 e7 20 a6 2d 31 30 34  3a f2 6b 65 79 28 35 36  |.. .-104:.key(56|
000018a0  29 0d 0d ca 13 e7 20 a6  2d 38 38 3a f2 6b 65 79  |)..... .-88:.key|
000018b0  28 36 30 29 0d 0d d4 14  e7 20 a6 2d 31 30 35 3a  |(60)..... .-105:|
000018c0  f2 6b 65 79 28 36 34 29  0d 0d de 13 e7 20 a6 2d  |.key(64)..... .-|
000018d0  39 37 3a f2 6b 65 79 28  32 30 29 0d 0d e8 13 e7  |97:.key(20).....|
000018e0  20 a6 2d 34 39 3a f2 6b  65 79 28 32 34 29 0d 0d  | .-49:.key(24)..|
000018f0  f2 13 e7 20 a6 2d 31 37  3a f2 6b 65 79 28 32 38  |... .-17:.key(28|
00001900  29 0d 0d fc 13 e7 20 a6  2d 35 30 3a f2 6b 65 79  |)..... .-50:.key|
00001910  28 33 32 29 0d 0e 06 13  e7 20 a6 2d 33 34 3a f2  |(32)..... .-34:.|
00001920  6b 65 79 28 33 36 29 0d  0e 10 13 e7 20 a6 2d 31  |key(36)..... .-1|
00001930  38 3a f2 6b 65 79 28 34  30 29 0d 0e 1a 13 e7 20  |8:.key(40)..... |
00001940  a6 2d 33 35 3a f2 6b 65  79 28 34 34 29 0d 0e 24  |.-35:.key(44)..$|
00001950  13 e7 20 a6 2d 35 32 3a  f2 6b 65 79 28 34 38 29  |.. .-52:.key(48)|
00001960  0d 0e 2e 13 e7 20 a6 2d  32 30 3a f2 6b 65 79 28  |..... .-20:.key(|
00001970  35 32 29 0d 0e 38 13 e7  20 a6 2d 33 36 3a f2 6b  |52)..8.. .-36:.k|
00001980  65 79 28 35 36 29 0d 0e  42 13 e7 20 a6 2d 35 33  |ey(56)..B.. .-53|
00001990  3a f2 6b 65 79 28 36 30  29 0d 0e 4c 13 e7 20 a6  |:.key(60)..L.. .|
000019a0  2d 36 39 3a f2 6b 65 79  28 36 34 29 0d 0e 56 13  |-69:.key(64)..V.|
000019b0  e7 20 a6 2d 35 34 3a f2  6b 65 79 28 36 38 29 0d  |. .-54:.key(68).|
000019c0  0e 60 13 e7 20 a6 2d 32  32 3a f2 6b 65 79 28 37  |.`.. .-22:.key(7|
000019d0  32 29 0d 0e 6a 13 e7 20  a6 2d 33 38 3a f2 6b 65  |2)..j.. .-38:.ke|
000019e0  79 28 37 36 29 0d 0e 74  13 e7 20 a6 2d 33 39 3a  |y(76)..t.. .-39:|
000019f0  f2 6b 65 79 28 38 30 29  0d 0e 7e 13 e7 20 a6 2d  |.key(80)..~.. .-|
00001a00  35 35 3a f2 6b 65 79 28  38 34 29 0d 0e 88 13 e7  |55:.key(84).....|
00001a10  20 a6 2d 34 30 3a f2 6b  65 79 28 38 38 29 0d 0e  | .-40:.key(88)..|
00001a20  92 13 e7 20 a6 2d 35 36  3a f2 6b 65 79 28 39 32  |... .-56:.key(92|
00001a30  29 0d 0e 9c 13 e7 20 a6  2d 35 37 3a f2 6b 65 79  |)..... .-57:.key|
00001a40  28 39 36 29 0d 0e a6 14  e7 20 a6 2d 39 34 3a f2  |(96)..... .-94:.|
00001a50  6b 65 79 28 31 30 30 29  0d 0e b0 14 e7 20 a6 2d  |key(100)..... .-|
00001a60  38 39 3a f2 6b 65 79 28  31 30 34 29 0d 0e ba 14  |89:.key(104)....|
00001a70  e7 20 a6 2d 34 37 3a f2  6b 65 79 28 31 30 38 29  |. .-47:.key(108)|
00001a80  0d 0e c4 15 e7 20 a6 2d  31 32 31 3a f2 6b 65 79  |..... .-121:.key|
00001a90  28 31 31 32 29 0d 0e ce  15 e7 20 a6 2d 34 32 3a  |(112)..... .-42:|
00001aa0  f2 70 69 74 63 68 28 2d  31 29 0d 0e d8 14 e7 20  |.pitch(-1)..... |
00001ab0  a6 2d 35 38 3a f2 70 69  74 63 68 28 31 29 0d 0e  |.-58:.pitch(1)..|
00001ac0  e2 2c e7 20 47 25 3e 31  39 39 20 80 20 47 25 3c  |.,. G%>199 . G%<|
00001ad0  32 31 33 20 f2 76 6f 69  63 65 28 47 25 2d 31 39  |213 .voice(G%-19|
00001ae0  39 29 3a f2 70 72 6f 6d  70 74 0d 0e ec 0b fd 20  |9):.prompt..... |
00001af0  47 25 3d 32 37 0d 0e f6  1b f1 20 8a 34 34 2c 30  |G%=27..... .44,0|
00001b00  29 20 89 32 30 20 8a 34  35 2c 31 29 20 89 31 38  |) .20 .45,1) .18|
00001b10  0d 0f 00 05 e1 0d 0f 0a  09 dc 20 33 2c 31 0d 0f  |.......... 3,1..|
00001b20  14 2f dc 20 36 34 2c 32  36 2c 55 70 70 65 72 20  |./. 64,26,Upper |
00001b30  4b 65 79 62 6f 61 72 64  2c 36 34 2c 32 39 2c 4c  |Keyboard,64,29,L|
00001b40  6f 77 65 72 20 4b 65 79  62 6f 61 72 64 0d 0f 1e  |ower Keyboard...|
00001b50  09 dc 20 31 2c 31 0d 0f  28 3c dc 20 34 2c 32 35  |.. 1,1..(<. 4,25|
00001b60  2c 31 20 20 20 32 20 20  20 33 20 20 20 20 20 20  |,1   2   3      |
00001b70  20 35 20 20 20 36 20 20  20 20 20 20 20 38 20 20  | 5   6       8  |
00001b80  20 39 20 20 20 30 20 20  20 20 20 20 20 3d 20 20  | 9   0       =  |
00001b90  20 a3 0d 0f 32 2d dc 20  31 32 2c 32 39 2c 53 20  | ...2-. 12,29,S |
00001ba0  20 20 44 20 20 20 20 20  20 20 47 20 20 20 48 20  |  D       G   H |
00001bb0  20 20 4a 20 20 20 20 20  20 20 4c 20 20 20 3b 0d  |  J       L   ;.|
00001bc0  0f 3c 09 dc 20 37 2c 31  0d 0f 46 42 dc 20 31 2c  |.<.. 7,1..FB. 1,|
00001bd0  32 36 2c 74 61 62 20 20  20 51 20 20 20 57 20 20  |26,tab   Q   W  |
00001be0  20 45 20 20 20 52 20 20  20 54 20 20 20 59 20 20  | E   R   T   Y  |
00001bf0  20 55 20 20 20 49 20 20  20 4f 20 20 20 50 20 20  | U   I   O   P  |
00001c00  20 5b 20 20 20 5d 20 20  20 5c 0d 0f 50 32 dc 20  | [   ]   \..P2. |
00001c10  31 30 2c 33 30 2c 22 5a  20 20 20 58 20 20 20 43  |10,30,"Z   X   C|
00001c20  20 20 20 56 20 20 20 42  20 20 20 4e 20 20 20 4d  |   V   B   N   M|
00001c30  20 20 20 2c 20 20 2e 20  20 20 2f 22 0d 0f 5a 05  |   ,  .   /"..Z.|
00001c40  3a 0d 0f 64 0b dd 20 f2  65 64 69 74 0d 0f 6e 16  |:..d.. .edit..n.|
00001c50  ea 20 45 6e 76 25 2c 57  61 76 65 25 2c 46 6c 61  |. Env%,Wave%,Fla|
00001c60  67 25 0d 0f 78 08 ef 20  32 36 0d 0f 82 05 f5 0d  |g%..x.. 26......|
00001c70  0f 8c 0f c8 97 20 58 25  2c 59 25 2c 42 25 0d 0f  |..... X%,Y%,B%..|
00001c80  96 0b 47 25 3d a6 28 30  29 0d 0f a0 0c e7 20 42  |..G%=.(0)..... B|
00001c90  25 3d 34 20 8c 0d 0f aa  13 e7 20 46 6c 61 67 25  |%=4 ...... Flag%|
00001ca0  3d 30 20 f2 66 6c 61 67  0d 0f b4 0e c8 8e 20 46  |=0 .flag...... F|
00001cb0  6c 61 67 25 20 ca 0d 0f  be 17 c9 20 31 30 3a 57  |lag% ...... 10:W|
00001cc0  61 76 65 25 3d a4 73 65  74 77 61 76 65 0d 0f c8  |ave%=.setwave...|
00001cd0  0f c9 20 39 3a f2 73 65  74 72 65 70 0d 0f d2 13  |.. 9:.setrep....|
00001ce0  c9 20 31 2c 32 2c 33 3a  f2 73 65 74 61 6d 70 0d  |. 1,2,3:.setamp.|
00001cf0  0f dc 15 c9 20 37 3a 45  6e 76 25 3d a4 73 65 74  |.... 7:Env%=.set|
00001d00  74 72 65 6d 0d 0f e6 13  c9 20 34 2c 35 2c 36 3a  |trem..... 4,5,6:|
00001d10  f2 73 65 74 66 72 65 0d  0f f0 14 c9 20 38 3a 45  |.setfre..... 8:E|
00001d20  6e 76 25 3d a4 73 65 74  76 69 62 0d 0f fa 05 cb  |nv%=.setvib.....|
00001d30  0d 10 04 05 cc 0d 10 0e  0b 46 6c 61 67 25 3d 30  |.........Flag%=0|
00001d40  0d 10 18 05 cd 0d 10 22  0c fd 20 59 25 3c 32 35  |.......".. Y%<25|
00001d50  36 0d 10 2c 1d e7 20 57  61 76 65 25 20 f2 66 69  |6..,.. Wave% .fi|
00001d60  6c 6c 77 61 76 65 28 56  6f 69 63 65 25 29 0d 10  |llwave(Voice%)..|
00001d70  36 1c e7 20 45 6e 76 25  20 f2 65 6e 76 65 6c 6f  |6.. Env% .envelo|
00001d80  70 65 28 56 6f 69 63 65  25 29 0d 10 40 1b e7 20  |pe(Voice%)..@.. |
00001d90  45 6e 76 25 20 84 20 57  61 76 65 25 20 f2 64 69  |Env% . Wave% .di|
00001da0  73 70 6c 61 79 0d 10 4a  05 e1 0d 10 54 05 3a 0d  |splay..J....T.:.|
00001db0  10 5e 0b dd 20 f2 6c 6f  61 64 0d 10 68 11 ea 20  |.^.. .load..h.. |
00001dc0  46 69 6c 65 25 2c 46 69  6c 65 24 0d 10 72 21 46  |File%,File$..r!F|
00001dd0  69 6c 65 24 3d c1 24 56  6f 69 63 65 4e 61 6d 65  |ile$=.$VoiceName|
00001de0  25 28 56 6f 69 63 65 25  29 2c 39 29 0d 10 7c 20  |%(Voice%),9)..| |
00001df0  f2 6e 61 6d 65 28 22 76  6f 69 63 65 20 74 6f 20  |.name("voice to |
00001e00  6c 6f 61 64 22 2c 46 69  6c 65 24 29 0d 10 86 11  |load",File$)....|
00001e10  46 69 6c 65 25 3d 8e 20  46 69 6c 65 24 0d 10 90  |File%=. File$...|
00001e20  0f e7 20 46 69 6c 65 25  3d 30 20 8c 0d 10 9a 22  |.. File%=0 ...."|
00001e30  f1 20 22 4e 6f 20 73 75  63 68 20 66 69 6c 65 20  |. "No such file |
00001e40  2d 20 50 72 65 73 73 20  61 20 6b 65 79 22 0d 10  |- Press a key"..|
00001e50  a4 07 e7 20 a5 0d 10 ae  05 cc 0d 10 b8 0e e3 20  |... ........... |
00001e60  49 25 3d 30 20 b8 20 35  0d 10 c2 13 54 79 70 65  |I%=0 . 5....Type|
00001e70  3f 49 25 3d 9a 23 46 69  6c 65 25 0d 10 cc 05 ed  |?I%=.#File%.....|
00001e80  0d 10 d6 0d 54 79 70 65  3f 35 3d 31 33 0d 10 e0  |....Type?5=13...|
00001e90  16 e7 20 24 54 79 70 65  3c 3e 22 53 79 6e 74 68  |.. $Type<>"Synth|
00001ea0  22 20 8c 0d 10 ea 27 f1  20 22 49 6e 76 61 6c 69  |" ....'. "Invali|
00001eb0  64 20 66 69 6c 65 20 74  79 70 65 20 2d 20 50 72  |d file type - Pr|
00001ec0  65 73 73 20 61 20 6b 65  79 22 0d 10 f4 07 e7 20  |ess a key"..... |
00001ed0  a5 0d 10 fe 05 cc 0d 11  08 0f e3 20 49 25 3d 30  |........... I%=0|
00001ee0  20 b8 20 32 35 0d 11 12  1b e8 23 46 69 6c 65 25  | . 25.....#File%|
00001ef0  2c 70 61 72 25 28 56 6f  69 63 65 25 2c 49 25 29  |,par%(Voice%,I%)|
00001f00  0d 11 1c 05 ed 0d 11 26  15 f2 66 69 6c 6c 77 61  |.......&..fillwa|
00001f10  76 65 28 56 6f 69 63 65  25 29 0d 11 30 15 f2 65  |ve(Voice%)..0..e|
00001f20  6e 76 65 6c 6f 70 65 28  56 6f 69 63 65 25 29 0d  |nvelope(Voice%).|
00001f30  11 3a 35 24 56 6f 69 63  65 4e 61 6d 65 25 28 56  |.:5$VoiceName%(V|
00001f40  6f 69 63 65 25 29 3d 22  55 73 65 72 4c 69 62 2d  |oice%)="UserLib-|
00001f50  22 2b c0 46 69 6c 65 24  2b c4 31 31 2c bd 30 29  |"+.File$+.11,.0)|
00001f60  2c 31 31 29 0d 11 44 0c  f2 64 69 73 70 6c 61 79  |,11)..D..display|
00001f70  0d 11 4e 05 cd 0d 11 58  0b d9 23 46 69 6c 65 25  |..N....X..#File%|
00001f80  0d 11 62 05 cd 0d 11 6c  05 e1 0d 11 76 05 3a 0d  |..b....l....v.:.|
00001f90  11 80 0b dd 20 f2 73 61  76 65 0d 11 8a 11 ea 20  |.... .save..... |
00001fa0  46 69 6c 65 25 2c 46 69  6c 65 24 0d 11 94 21 46  |File%,File$...!F|
00001fb0  69 6c 65 24 3d c1 24 56  6f 69 63 65 4e 61 6d 65  |ile$=.$VoiceName|
00001fc0  25 28 56 6f 69 63 65 25  29 2c 39 29 0d 11 9e 20  |%(Voice%),9)... |
00001fd0  f2 6e 61 6d 65 28 22 76  6f 69 63 65 20 74 6f 20  |.name("voice to |
00001fe0  73 61 76 65 22 2c 46 69  6c 65 24 29 0d 11 a8 11  |save",File$)....|
00001ff0  46 69 6c 65 25 3d ae 20  46 69 6c 65 24 0d 11 b2  |File%=. File$...|
00002000  0d e7 20 46 69 6c 65 25  20 8c 0d 11 bc 13 d5 23  |.. File% ......#|
00002010  46 69 6c 65 25 2c 22 53  79 6e 74 68 22 0d 11 c6  |File%,"Synth"...|
00002020  0f e3 20 49 25 3d 30 20  b8 20 32 35 0d 11 d0 1b  |.. I%=0 . 25....|
00002030  f1 23 46 69 6c 65 25 2c  70 61 72 25 28 56 6f 69  |.#File%,par%(Voi|
00002040  63 65 25 2c 49 25 29 0d  11 da 05 ed 0d 11 e4 0b  |ce%,I%).........|
00002050  d9 23 46 69 6c 65 25 0d  11 ee 35 24 56 6f 69 63  |.#File%...5$Voic|
00002060  65 4e 61 6d 65 25 28 56  6f 69 63 65 25 29 3d 22  |eName%(Voice%)="|
00002070  55 73 65 72 4c 69 62 2d  22 2b c0 46 69 6c 65 24  |UserLib-"+.File$|
00002080  2b c4 31 31 2c bd 30 29  2c 31 31 29 0d 11 f8 0c  |+.11,.0),11)....|
00002090  f2 64 69 73 70 6c 61 79  0d 12 02 05 cd 0d 12 0c  |.display........|
000020a0  05 e1 0d 12 16 05 3a 0d  12 20 0d dd 20 f2 72 65  |......:.. .. .re|
000020b0  6e 61 6d 65 0d 12 2a 0b  ea 20 4e 61 6d 65 24 0d  |name..*.. Name$.|
000020c0  12 34 21 4e 61 6d 65 24  3d c1 24 56 6f 69 63 65  |.4!Name$=.$Voice|
000020d0  4e 61 6d 65 25 28 56 6f  69 63 65 25 29 2c 39 29  |Name%(Voice%),9)|
000020e0  0d 12 3e 1c f2 6e 61 6d  65 28 22 6e 65 77 20 76  |..>..name("new v|
000020f0  6f 69 63 65 22 2c 4e 61  6d 65 24 29 0d 12 48 35  |oice",Name$)..H5|
00002100  24 56 6f 69 63 65 4e 61  6d 65 25 28 56 6f 69 63  |$VoiceName%(Voic|
00002110  65 25 29 3d 22 55 73 65  72 4c 69 62 2d 22 2b c0  |e%)="UserLib-"+.|
00002120  4e 61 6d 65 24 2b c4 31  31 2c bd 30 29 2c 31 31  |Name$+.11,.0),11|
00002130  29 0d 12 52 0c f2 64 69  73 70 6c 61 79 0d 12 5c  |)..R..display..\|
00002140  05 e1 0d 12 66 05 3a 0d  12 70 0d dd 20 f2 6d 6f  |....f.:..p.. .mo|
00002150  64 75 6c 65 0d 12 7a 1d  ea 20 56 6f 69 63 65 54  |dule..z.. VoiceT|
00002160  6f 74 61 6c 25 2c 46 69  6c 65 25 2c 46 69 6c 65  |otal%,File%,File|
00002170  24 0d 12 84 16 e3 20 76  25 3d 31 20 b8 20 56 6f  |$..... v%=1 . Vo|
00002180  69 63 65 4d 61 78 25 0d  12 8e 25 e7 20 56 6f 69  |iceMax%...%. Voi|
00002190  63 65 45 6e 61 62 6c 65  25 28 76 25 29 20 56 6f  |ceEnable%(v%) Vo|
000021a0  69 63 65 54 6f 74 61 6c  25 2b 3d 31 0d 12 98 05  |iceTotal%+=1....|
000021b0  ed 0d 12 a2 12 e3 20 49  25 3d 30 20 b8 20 32 20  |...... I%=0 . 2 |
000021c0  88 20 32 0d 12 ac 0e 50  25 3d 4d 6f 64 75 6c 65  |. 2....P%=Module|
000021d0  25 0d 12 b6 0c 5b 20 4f  50 54 20 49 25 0d 12 c0  |%....[ OPT I%...|
000021e0  0a 45 51 55 44 20 30 0d  12 ca 1b 45 51 55 44 20  |.EQUD 0....EQUD |
000021f0  49 6e 69 74 69 61 6c 69  73 65 2d 4d 6f 64 75 6c  |Initialise-Modul|
00002200  65 25 0d 12 d4 19 45 51  55 44 20 46 69 6e 61 6c  |e%....EQUD Final|
00002210  69 73 65 2d 4d 6f 64 75  6c 65 25 0d 12 de 0a 45  |ise-Module%....E|
00002220  51 55 44 20 30 0d 12 e8  16 45 51 55 44 20 54 69  |QUD 0....EQUD Ti|
00002230  74 6c 65 2d 4d 6f 64 75  6c 65 25 0d 12 f2 15 45  |tle-Module%....E|
00002240  51 55 44 20 48 65 6c 70  2d 4d 6f 64 75 6c 65 25  |QUD Help-Module%|
00002250  0d 12 fc 0a 45 51 55 44  20 30 0d 13 06 05 3b 0d  |....EQUD 0....;.|
00002260  13 10 0a 2e 54 69 74 6c  65 0d 13 1a 17 45 51 55  |....Title....EQU|
00002270  53 20 22 55 73 65 72 56  6f 69 63 65 4c 69 62 22  |S "UserVoiceLib"|
00002280  0d 13 24 0a 45 51 55 42  20 30 0d 13 2e 09 41 4c  |..$.EQUB 0....AL|
00002290  49 47 4e 0d 13 38 05 3b  0d 13 42 09 2e 48 65 6c  |IGN..8.;..B..Hel|
000022a0  70 0d 13 4c 2d 45 51 55  53 20 22 55 73 65 72 20  |p..L-EQUS "User |
000022b0  44 65 66 69 6e 65 64 20  53 6f 75 6e 64 20 56 6f  |Defined Sound Vo|
000022c0  69 63 65 73 22 2b c1 91  24 2c 37 2c 39 29 0d 13  |ices"+..$,7,9)..|
000022d0  56 0a 45 51 55 42 20 30  0d 13 60 09 41 4c 49 47  |V.EQUB 0..`.ALIG|
000022e0  4e 0d 13 6a 05 3b 0d 13  74 11 2e 56 6f 69 63 65  |N..j.;..t..Voice|
000022f0  4e 75 6d 62 65 72 73 0d  13 7e 1a 3d a4 62 79 74  |Numbers..~.=.byt|
00002300  65 73 28 56 6f 69 63 65  54 6f 74 61 6c 25 2d 31  |es(VoiceTotal%-1|
00002310  29 0d 13 88 09 41 4c 49  47 4e 0d 13 92 05 3b 0d  |)....ALIGN....;.|
00002320  13 9c 0f 2e 49 6e 69 74  69 61 6c 69 73 65 0d 13  |....Initialise..|
00002330  a6 14 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 31  |..STMFD R13!,{R1|
00002340  34 7d 0d 13 b0 14 41 44  52 20 52 32 2c 56 6f 69  |4}....ADR R2,Voi|
00002350  63 65 43 6f 64 65 0d 13  ba 17 41 44 52 20 52 33  |ceCode....ADR R3|
00002360  2c 56 6f 69 63 65 4e 75  6d 62 65 72 73 0d 13 c4  |,VoiceNumbers...|
00002370  05 5d 0d 13 ce 16 e3 20  76 25 3d 31 20 b8 20 56  |.]..... v%=1 . V|
00002380  6f 69 63 65 4d 61 78 25  0d 13 d8 18 e7 20 56 6f  |oiceMax%..... Vo|
00002390  69 63 65 45 6e 61 62 6c  65 25 28 76 25 29 20 8c  |iceEnable%(v%) .|
000023a0  0d 13 e2 0b 5b 4f 50 54  20 49 25 0d 13 ec 0d 4d  |....[OPT I%....M|
000023b0  4f 56 20 52 30 2c 52 32  0d 13 f6 0d 4d 4f 56 20  |OV R0,R2....MOV |
000023c0  52 31 2c 23 30 0d 14 00  1c 53 57 49 20 22 53 6f  |R1,#0....SWI "So|
000023d0  75 6e 64 5f 49 6e 73 74  61 6c 6c 56 6f 69 63 65  |und_InstallVoice|
000023e0  22 0d 14 0a 13 53 54 52  42 20 52 31 2c 5b 52 33  |"....STRB R1,[R3|
000023f0  5d 2c 23 31 0d 14 14 19  41 44 44 20 52 32 2c 52  |],#1....ADD R2,R|
00002400  32 2c 23 56 6f 69 63 65  53 69 7a 65 25 0d 14 1e  |2,#VoiceSize%...|
00002410  05 5d 0d 14 28 05 cd 0d  14 32 05 ed 0d 14 3c 0b  |.]..(....2....<.|
00002420  5b 4f 50 54 20 49 25 0d  14 46 14 4c 44 4d 46 44  |[OPT I%..F.LDMFD|
00002430  20 52 31 33 21 2c 7b 52  31 35 7d 0d 14 50 05 3b  | R13!,{R15}..P.;|
00002440  0d 14 5a 0d 2e 46 69 6e  61 6c 69 73 65 0d 14 64  |..Z..Finalise..d|
00002450  14 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 34  |.STMFD R13!,{R14|
00002460  7d 0d 14 6e 17 41 44 52  20 52 32 2c 56 6f 69 63  |}..n.ADR R2,Voic|
00002470  65 4e 75 6d 62 65 72 73  0d 14 78 1a 41 44 44 20  |eNumbers..x.ADD |
00002480  52 33 2c 52 32 2c 23 56  6f 69 63 65 54 6f 74 61  |R3,R2,#VoiceTota|
00002490  6c 25 0d 14 82 0c 2e 46  69 6e 4c 6f 6f 70 0d 14  |l%.....FinLoop..|
000024a0  8c 13 4c 44 52 42 20 52  31 2c 5b 52 32 5d 2c 23  |..LDRB R1,[R2],#|
000024b0  31 0d 14 96 1b 53 57 49  20 22 53 6f 75 6e 64 5f  |1....SWI "Sound_|
000024c0  52 65 6d 6f 76 65 56 6f  69 63 65 22 0d 14 a0 0d  |RemoveVoice"....|
000024d0  43 4d 50 20 52 33 2c 52  32 0d 14 aa 0f 42 4e 45  |CMP R3,R2....BNE|
000024e0  20 46 69 6e 4c 6f 6f 70  0d 14 b4 14 4c 44 4d 46  | FinLoop....LDMF|
000024f0  44 20 52 31 33 21 2c 7b  52 31 35 7d 0d 14 be 0e  |D R13!,{R15}....|
00002500  2e 56 6f 69 63 65 43 6f  64 65 0d 14 c8 05 5d 0d  |.VoiceCode....].|
00002510  14 d2 05 ed 0d 14 dc 10  46 69 6c 65 24 3d 22 53  |........File$="S|
00002520  4d 4f 44 22 0d 14 e6 21  f2 6e 61 6d 65 28 22 6d  |MOD"...!.name("m|
00002530  6f 64 75 6c 65 20 74 6f  20 73 61 76 65 22 2c 46  |odule to save",F|
00002540  69 6c 65 24 29 0d 14 f0  11 46 69 6c 65 25 3d ae  |ile$)....File%=.|
00002550  20 46 69 6c 65 24 0d 14  fa 1e e3 20 49 25 3d 4d  | File$..... I%=M|
00002560  6f 64 75 6c 65 25 20 b8  20 56 6f 69 63 65 43 6f  |odule% . VoiceCo|
00002570  64 65 2d 31 0d 15 04 10  d5 23 20 46 69 6c 65 25  |de-1.....# File%|
00002580  2c 3f 49 25 0d 15 0e 05  ed 0d 15 18 16 e3 20 76  |,?I%.......... v|
00002590  25 3d 31 20 b8 20 56 6f  69 63 65 4d 61 78 25 0d  |%=1 . VoiceMax%.|
000025a0  15 22 18 e7 20 56 6f 69  63 65 45 6e 61 62 6c 65  |.".. VoiceEnable|
000025b0  25 28 76 25 29 20 8c 0d  15 2c 19 e3 20 49 25 3d  |%(v%) ...,.. I%=|
000025c0  30 20 b8 20 56 6f 69 63  65 53 69 7a 65 25 2d 31  |0 . VoiceSize%-1|
000025d0  0d 15 36 30 d5 23 20 46  69 6c 65 25 2c 43 6f 64  |..60.# File%,Cod|
000025e0  65 25 3f 28 49 25 2b 76  25 2a 56 6f 69 63 65 53  |e%?(I%+v%*VoiceS|
000025f0  69 7a 65 25 2d 56 6f 69  63 65 53 69 7a 65 25 29  |ize%-VoiceSize%)|
00002600  0d 15 40 05 ed 0d 15 4a  05 cd 0d 15 54 05 ed 0d  |..@....J....T...|
00002610  15 5e 0c d9 23 20 46 69  6c 65 25 0d 15 68 20 ff  |.^..# File%..h .|
00002620  20 22 53 45 54 54 59 50  45 20 22 2b 46 69 6c 65  | "SETTYPE "+File|
00002630  24 2b 22 20 4d 6f 64 75  6c 65 22 0d 15 72 05 e1  |$+" Module"..r..|
00002640  0d 15 7c 05 3a 0d 15 86  0b dd 20 f2 73 74 61 72  |..|.:..... .star|
00002650  0d 15 90 0c ea 20 49 6e  70 75 74 24 0d 15 9a 05  |..... Input$....|
00002660  ee 0d 15 a4 05 f5 0d 15  ae 10 e8 27 22 2a 22 20  |...........'"*" |
00002670  49 6e 70 75 74 24 0d 15  b8 0c ff 20 49 6e 70 75  |Input$..... Inpu|
00002680  74 24 0d 15 c2 14 f1 20  22 50 72 65 73 73 20 61  |t$..... "Press a|
00002690  20 6b 65 79 22 3b 0d 15  cc 0c 49 6e 70 75 74 24  | key";....Input$|
000026a0  3d be 0d 15 d6 11 fd 20  49 6e 70 75 74 24 3c 3e  |=...... Input$<>|
000026b0  22 2a 22 0d 15 e0 05 e1  0d 15 ea 05 3a 0d 15 f4  |"*".........:...|
000026c0  0e dd 20 f2 64 69 73 70  6c 61 79 0d 15 fe 17 ef  |.. .display.....|
000026d0  20 32 38 2c 30 2c 32 33  2c 37 39 2c 30 2c 31 32  | 28,0,23,79,0,12|
000026e0  2c 35 0d 16 08 08 e6 30  2c 32 0d 16 12 14 c8 93  |,5.....0,2......|
000026f0  20 30 2c 36 38 30 2c 35  31 32 2c 32 35 36 0d 16  | 0,680,512,256..|
00002700  1c 15 c8 93 20 30 2c 34  38 38 2c 31 30 32 34 2c  |.... 0,488,1024,|
00002710  31 32 38 0d 16 26 15 c8  93 20 30 2c 32 39 38 2c  |128..&... 0,298,|
00002720  31 30 32 34 2c 31 32 38  0d 16 30 16 ec 20 30 2c  |1024,128..0.. 0,|
00002730  38 30 38 3a f0 20 34 39  2c 35 31 32 2c 30 0d 16  |808:. 49,512,0..|
00002740  3a 17 ec 20 30 2c 33 36  32 3a f0 20 34 39 2c 31  |:.. 0,362:. 49,1|
00002750  30 32 34 2c 30 0d 16 44  0e e3 20 49 25 3d 30 20  |024,0..D.. I%=0 |
00002760  b8 20 39 0d 16 4e 20 e6  30 2c 33 3a ec 20 49 25  |. 9..N .0,3:. I%|
00002770  2a 36 34 2b 35 36 30 2c  37 39 36 3a f1 22 66 22  |*64+560,796:."f"|
00002780  3b 49 25 0d 16 58 1e e6  30 2c 36 3a ec 20 49 25  |;I%..X..0,6:. I%|
00002790  2a 36 34 2b 35 36 38 2c  37 36 34 3a f1 22 2b 22  |*64+568,764:."+"|
000027a0  3b 0d 16 62 0f f1 20 bd  38 20 bd 31 30 22 2d 22  |;..b.. .8 .10"-"|
000027b0  0d 16 6c 05 ed 0d 16 76  10 f2 68 61 72 6d 6f 6e  |..l....v..harmon|
000027c0  69 63 28 37 29 0d 16 80  0b ec 20 30 2c 38 30 38  |ic(7)..... 0,808|
000027d0  0d 16 8a 10 e3 20 49 25  3d 30 20 b8 20 32 35 35  |..... I%=0 . 255|
000027e0  0d 16 94 1c df 20 49 25  2a 32 2c 77 25 28 56 6f  |..... I%*2,w%(Vo|
000027f0  69 63 65 25 2c 49 25 29  2b 38 30 38 0d 16 9e 05  |ice%,I%)+808....|
00002800  ed 0d 16 a8 11 f2 61 6d  70 6c 69 74 75 64 65 28  |......amplitude(|
00002810  37 29 0d 16 b2 11 f2 66  72 65 71 75 65 6e 63 79  |7).....frequency|
00002820  28 37 29 0d 16 bc 09 ef  20 34 3a 87 0d 16 c6 07  |(7)..... 4:.....|
00002830  f7 2b 30 0d 16 d0 12 f2  64 61 74 61 5f 70 72 69  |.+0.....data_pri|
00002840  6e 74 28 36 29 0d 16 da  07 fb 20 37 0d 16 e4 0d  |nt(6)..... 7....|
00002850  f2 70 69 74 63 68 28 30  29 0d 16 ee 5d f1 20 8a  |.pitch(0)...]. .|
00002860  38 2c 30 29 22 66 22 3b  56 6f 69 63 65 25 20 22  |8,0)"f";Voice% "|
00002870  20 2d 20 22 20 c1 24 56  6f 69 63 65 4e 61 6d 65  | - " .$VoiceName|
00002880  25 28 56 6f 69 63 65 25  29 2c 39 29 20 8a 38 2c  |%(Voice%),9) .8,|
00002890  31 29 bd 31 33 39 22 20  22 20 bd 31 33 38 20 8a  |1).139" " .138 .|
000028a0  35 37 2c 31 31 29 3b 70  61 72 25 28 56 6f 69 63  |57,11);par%(Voic|
000028b0  65 25 2c 31 30 29 0d 16  f8 1f ff 22 46 58 20 31  |e%,10)....."FX 1|
000028c0  31 20 22 2b c3 20 70 61  72 25 28 56 6f 69 63 65  |1 "+. par%(Voice|
000028d0  25 2c 31 30 29 0d 17 02  31 e7 20 70 61 72 25 28  |%,10)...1. par%(|
000028e0  56 6f 69 63 65 25 2c 31  30 29 20 ff 22 46 58 20  |Voice%,10) ."FX |
000028f0  31 32 20 22 2b c3 20 70  61 72 25 28 56 6f 69 63  |12 "+. par%(Voic|
00002900  65 25 2c 31 30 29 0d 17  0c 05 e1 0d 17 16 09 dc  |e%,10)..........|
00002910  20 33 2c 39 0d 17 20 11  dc 20 30 2c 30 2c 50 6c  | 3,9.. .. 0,0,Pl|
00002920  61 79 69 6e 67 0d 17 2a  3b dc 20 30 2c 31 2c 4f  |aying..*;. 0,1,O|
00002930  63 74 61 76 65 2c 31 30  2c 31 31 2c 57 61 76 65  |ctave,10,11,Wave|
00002940  73 68 61 70 65 2c 35 30  2c 31 31 2c 52 65 70 65  |shape,50,11,Repe|
00002950  61 74 2c 36 38 2c 31 33  2c 54 72 65 6d 65 6c 6f  |at,68,13,Tremelo|
00002960  0d 17 34 3f dc 20 36 36  2c 31 34 2c 44 65 70 74  |..4?. 66,14,Dept|
00002970  68 20 20 53 70 65 65 64  2c 31 30 2c 31 37 2c 41  |h  Speed,10,17,A|
00002980  6d 70 6c 69 74 75 64 65  20 45 6e 76 65 6c 6f 70  |mplitude Envelop|
00002990  65 2c 36 38 2c 31 39 2c  56 69 62 72 61 74 6f 0d  |e,68,19,Vibrato.|
000029a0  17 3e 2d dc 20 36 36 2c  32 30 2c 44 65 70 74 68  |.>-. 66,20,Depth|
000029b0  20 20 53 70 65 65 64 2c  31 30 2c 32 33 2c 50 69  |  Speed,10,23,Pi|
000029c0  74 63 68 20 45 6e 76 65  6c 6f 70 65 0d 17 48 09  |tch Envelope..H.|
000029d0  dc 20 36 2c 35 0d 17 52  2b dc 20 36 32 2c 31 31  |. 6,5..R+. 62,11|
000029e0  2c 2b 2c 36 38 2c 31 35  2c 2b 20 20 20 20 20 20  |,+,68,15,+      |
000029f0  2b 2c 36 38 2c 32 31 2c  2b 20 20 20 20 20 20 2b  |+,68,21,+      +|
00002a00  0d 17 5c 2b dc 20 36 30  2c 31 31 2c 2d 2c 36 38  |..\+. 60,11,-,68|
00002a10  2c 31 36 2c 2d 20 20 20  20 20 20 2d 2c 36 38 2c  |,16,-      -,68,|
00002a20  32 32 2c 2d 20 20 20 20  20 20 2d 0d 17 66 05 3a  |22,-      -..f.:|
00002a30  0d 17 70 0e dd 20 f2 6b  65 79 28 54 25 29 0d 17  |..p.. .key(T%)..|
00002a40  7a 2c d4 20 56 25 2c 2d  31 35 2c 54 25 2b 70 61  |z,. V%,-15,T%+pa|
00002a50  72 25 28 56 6f 69 63 65  25 2c 32 35 29 2c 34 30  |r%(Voice%,25),40|
00002a60  3a 56 25 3d 56 25 83 38  2b 31 0d 17 84 05 e1 0d  |:V%=V%.8+1......|
00002a70  17 8e 05 3a 0d 17 98 10  dd 20 f2 76 6f 69 63 65  |...:..... .voice|
00002a80  28 6e 25 29 0d 17 a2 18  e7 20 56 6f 69 63 65 45  |(n%)..... VoiceE|
00002a90  6e 61 62 6c 65 25 28 6e  25 29 20 8c 0d 17 ac 10  |nable%(n%) .....|
00002aa0  e7 20 56 6f 69 63 65 25  3c 3e 6e 25 0d 17 b6 0d  |. Voice%<>n%....|
00002ab0  56 6f 69 63 65 25 3d 6e  25 0d 17 c0 0e e3 20 76  |Voice%=n%..... v|
00002ac0  25 3d 31 20 b8 20 38 0d  17 ca 1d c8 a1 20 76 25  |%=1 . 8...... v%|
00002ad0  2c 24 56 6f 69 63 65 4e  61 6d 65 25 28 56 6f 69  |,$VoiceName%(Voi|
00002ae0  63 65 25 29 0d 17 d4 05  ed 0d 17 de 0c f2 64 69  |ce%)..........di|
00002af0  73 70 6c 61 79 0d 17 e8  05 cd 0d 17 f2 05 cd 0d  |splay...........|
00002b00  17 fc 05 e1 0d 18 06 05  3a 0d 18 10 10 dd 20 f2  |........:..... .|
00002b10  70 69 74 63 68 28 6e 25  29 0d 18 1a 0c e7 20 6e  |pitch(n%)..... n|
00002b20  25 3e 30 20 8c 0d 18 24  2d e7 20 70 61 72 25 28  |%>0 ...$-. par%(|
00002b30  56 6f 69 63 65 25 2c 32  35 29 3c 31 30 31 20 70  |Voice%,25)<101 p|
00002b40  61 72 25 28 56 6f 69 63  65 25 2c 32 35 29 2b 3d  |ar%(Voice%,25)+=|
00002b50  34 38 0d 18 2e 05 cc 0d  18 38 0c e7 20 6e 25 3c  |48.......8.. n%<|
00002b60  30 20 8c 0d 18 42 2b e7  20 70 61 72 25 28 56 6f  |0 ...B+. par%(Vo|
00002b70  69 63 65 25 2c 32 35 29  3e 35 20 70 61 72 25 28  |ice%,25)>5 par%(|
00002b80  56 6f 69 63 65 25 2c 32  35 29 2d 3d 34 38 0d 18  |Voice%,25)-=48..|
00002b90  4c 05 cd 0d 18 56 05 cd  0d 18 60 24 f1 20 8a 31  |L....V....`$. .1|
00002ba0  32 2c 31 29 3b 70 61 72  25 28 56 6f 69 63 65 25  |2,1);par%(Voice%|
00002bb0  2c 32 35 29 20 81 36 2d  38 22 20 22 0d 18 6a 05  |,25) .6-8" "..j.|
00002bc0  f5 0d 18 74 15 fd 20 ac  20 a6 2d 34 32 20 80 20  |...t.. . .-42 . |
00002bd0  ac 20 a6 2d 35 38 0d 18  7e 05 e1 0d 18 88 05 3a  |. .-58..~......:|
00002be0  0d 18 92 0b dd 20 f2 66  6c 61 67 0d 18 9c 08 ea  |..... .flag.....|
00002bf0  20 61 25 0d 18 a6 0c 61  25 3d 58 25 20 81 34 0d  | a%....a%=X% .4.|
00002c00  18 b0 0e e7 20 59 25 3e  36 33 36 20 8c 0d 18 ba  |.... Y%>636 ....|
00002c10  43 e7 20 58 25 3e 35 31  32 20 80 20 59 25 3e 36  |C. X%>512 . Y%>6|
00002c20  39 36 20 80 20 59 25 3c  37 36 38 20 46 6c 61 67  |96 . Y%<768 Flag|
00002c30  25 3d 31 30 20 8b 20 e7  20 58 25 3e 39 32 38 20  |%=10 . . X%>928 |
00002c40  80 20 59 25 3c 36 37 32  20 46 6c 61 67 25 3d 39  |. Y%<672 Flag%=9|
00002c50  0d 18 c4 05 cc 0d 18 ce  0f e7 20 58 25 3c 31 30  |.......... X%<10|
00002c60  32 34 20 8c 0d 18 d8 17  e7 20 59 25 3e 34 38 38  |24 ...... Y%>488|
00002c70  20 80 20 59 25 3c 36 32  30 20 8c 0d 18 e2 6f e7  | . Y%<620 ....o.|
00002c80  20 61 25 2d 70 61 72 25  28 56 6f 69 63 65 25 2c  | a%-par%(Voice%,|
00002c90  31 32 29 3c 70 61 72 25  28 56 6f 69 63 65 25 2c  |12)<par%(Voice%,|
00002ca0  31 34 29 2d 61 25 20 46  6c 61 67 25 3d 31 20 8b  |14)-a% Flag%=1 .|
00002cb0  20 e7 20 61 25 2d 70 61  72 25 28 56 6f 69 63 65  | . a%-par%(Voice|
00002cc0  25 2c 31 34 29 3e 70 61  72 25 28 56 6f 69 63 65  |%,14)>par%(Voice|
00002cd0  25 2c 31 36 29 2d 61 25  20 46 6c 61 67 25 3d 33  |%,16)-a% Flag%=3|
00002ce0  20 8b 20 46 6c 61 67 25  3d 32 0d 18 ec 05 cc 0d  | . Flag%=2......|
00002cf0  18 f6 17 e7 20 59 25 3e  32 39 36 20 80 20 59 25  |.... Y%>296 . Y%|
00002d00  3c 34 32 34 20 8c 0d 19  00 5f e7 20 61 25 3c 70  |<424 ...._. a%<p|
00002d10  61 72 25 28 56 6f 69 63  65 25 2c 32 31 29 2d 61  |ar%(Voice%,21)-a|
00002d20  25 20 46 6c 61 67 25 3d  34 20 8b 20 e7 20 61 25  |% Flag%=4 . . a%|
00002d30  2d 70 61 72 25 28 56 6f  69 63 65 25 2c 32 31 29  |-par%(Voice%,21)|
00002d40  3e 70 61 72 25 28 56 6f  69 63 65 25 2c 31 36 29  |>par%(Voice%,16)|
00002d50  2d 61 25 20 46 6c 61 67  25 3d 36 20 8b 20 46 6c  |-a% Flag%=6 . Fl|
00002d60  61 67 25 3d 35 0d 19 0a  05 cd 0d 19 14 05 cd 0d  |ag%=5...........|
00002d70  19 1e 05 cc 0d 19 28 0f  e7 20 58 25 3e 31 30 33  |......(.. X%>103|
00002d80  36 20 8c 0d 19 32 39 e7  20 59 25 3e 34 38 32 20  |6 ...29. Y%>482 |
00002d90  80 20 59 25 3c 35 34 34  20 46 6c 61 67 25 3d 37  |. Y%<544 Flag%=7|
00002da0  20 8b 20 e7 20 59 25 3e  32 39 30 20 80 20 59 25  | . . Y%>290 . Y%|
00002db0  3c 33 35 32 20 46 6c 61  67 25 3d 38 0d 19 3c 05  |<352 Flag%=8..<.|
00002dc0  cd 0d 19 46 05 cd 0d 19  50 05 cd 0d 19 5a 05 e1  |...F....P....Z..|
00002dd0  0d 19 64 05 3a 0d 19 6e  0e dd 20 a4 73 65 74 77  |..d.:..n.. .setw|
00002de0  61 76 65 0d 19 78 10 f2  68 61 72 6d 6f 6e 69 63  |ave..x..harmonic|
00002df0  28 30 29 0d 19 82 12 4e  25 3d 28 58 25 2d 35 34  |(0)....N%=(X%-54|
00002e00  34 29 81 36 34 0d 19 8c  0f e7 20 4e 25 3e 39 20  |4).64..... N%>9 |
00002e10  4e 25 3d 39 0d 19 96 7c  e7 20 59 25 3c 37 33 32  |N%=9...|. Y%<732|
00002e20  20 80 20 70 61 72 25 28  56 6f 69 63 65 25 2c 4e  | . par%(Voice%,N|
00002e30  25 29 3e 30 20 70 61 72  25 28 56 6f 69 63 65 25  |%)>0 par%(Voice%|
00002e40  2c 4e 25 29 3d 70 61 72  25 28 56 6f 69 63 65 25  |,N%)=par%(Voice%|
00002e50  2c 4e 25 29 2d 31 20 8b  20 e7 20 70 61 72 25 28  |,N%)-1 . . par%(|
00002e60  56 6f 69 63 65 25 2c 4e  25 29 3c 31 32 37 20 70  |Voice%,N%)<127 p|
00002e70  61 72 25 28 56 6f 69 63  65 25 2c 4e 25 29 3d 70  |ar%(Voice%,N%)=p|
00002e80  61 72 25 28 56 6f 69 63  65 25 2c 4e 25 29 2b 31  |ar%(Voice%,N%)+1|
00002e90  0d 19 a0 0a 2a 46 58 20  32 31 0d 19 aa 10 f2 68  |....*FX 21.....h|
00002ea0  61 72 6d 6f 6e 69 63 28  37 29 0d 19 b4 06 3d b9  |armonic(7)....=.|
00002eb0  0d 19 be 05 3a 0d 19 c8  0d dd 20 f2 73 65 74 72  |....:..... .setr|
00002ec0  65 70 0d 19 d2 07 fb 20  37 0d 19 dc 0e e7 20 58  |ep..... 7..... X|
00002ed0  25 3c 39 39 32 20 8c 0d  19 e6 3e e7 20 70 61 72  |%<992 ....>. par|
00002ee0  25 28 56 6f 69 63 65 25  2c 31 30 29 3e 36 20 70  |%(Voice%,10)>6 p|
00002ef0  61 72 25 28 56 6f 69 63  65 25 2c 31 30 29 2d 3d  |ar%(Voice%,10)-=|
00002f00  31 20 8b 20 70 61 72 25  28 56 6f 69 63 65 25 2c  |1 . par%(Voice%,|
00002f10  31 30 29 3d 30 0d 19 f0  05 cc 0d 19 fa 51 e7 20  |10)=0........Q. |
00002f20  70 61 72 25 28 56 6f 69  63 65 25 2c 31 30 29 3c  |par%(Voice%,10)<|
00002f30  39 38 20 80 20 70 61 72  25 28 56 6f 69 63 65 25  |98 . par%(Voice%|
00002f40  2c 31 30 29 20 70 61 72  25 28 56 6f 69 63 65 25  |,10) par%(Voice%|
00002f50  2c 31 30 29 2b 3d 31 20  8b 20 70 61 72 25 28 56  |,10)+=1 . par%(V|
00002f60  6f 69 63 65 25 2c 31 30  29 3d 36 0d 1a 04 05 cd  |oice%,10)=6.....|
00002f70  0d 1a 0e 20 f1 20 8a 35  37 2c 31 31 29 3b 70 61  |... . .57,11);pa|
00002f80  72 25 28 56 6f 69 63 65  25 2c 31 30 29 22 20 22  |r%(Voice%,10)" "|
00002f90  0d 1a 18 09 f2 77 61 69  74 0d 1a 22 05 e1 0d 1a  |.....wait.."....|
00002fa0  2c 05 3a 0d 1a 36 0d dd  20 f2 73 65 74 61 6d 70  |,.:..6.. .setamp|
00002fb0  0d 1a 40 11 f2 61 6d 70  6c 69 74 75 64 65 28 30  |..@..amplitude(0|
00002fc0  29 0d 1a 4a 11 f2 66 72  65 71 75 65 6e 63 79 28  |)..J..frequency(|
00002fd0  30 29 0d 1a 54 a5 e7 20  46 6c 61 67 25 3d 31 20  |0)..T.. Flag%=1 |
00002fe0  f2 73 65 74 62 61 72 73  28 34 38 38 2c 70 61 72  |.setbars(488,par|
00002ff0  25 28 56 6f 69 63 65 25  2c 31 32 29 2c 70 61 72  |%(Voice%,12),par|
00003000  25 28 56 6f 69 63 65 25  2c 31 31 29 29 20 8b 20  |%(Voice%,11)) . |
00003010  e7 20 46 6c 61 67 25 3d  32 20 f2 73 65 74 62 61  |. Flag%=2 .setba|
00003020  72 73 28 34 38 38 2c 70  61 72 25 28 56 6f 69 63  |rs(488,par%(Voic|
00003030  65 25 2c 31 34 29 2c 70  61 72 25 28 56 6f 69 63  |e%,14),par%(Voic|
00003040  65 25 2c 31 33 29 29 20  8b 20 f2 73 65 74 62 61  |e%,13)) . .setba|
00003050  72 73 28 34 38 38 2c 70  61 72 25 28 56 6f 69 63  |rs(488,par%(Voic|
00003060  65 25 2c 31 36 29 2c 70  61 72 25 28 56 6f 69 63  |e%,16),par%(Voic|
00003070  65 25 2c 31 35 29 29 0d  1a 5e 2b e7 20 70 61 72  |e%,15))..^+. par|
00003080  25 28 56 6f 69 63 65 25  2c 31 36 29 3c 31 32 20  |%(Voice%,16)<12 |
00003090  70 61 72 25 28 56 6f 69  63 65 25 2c 31 36 29 3d  |par%(Voice%,16)=|
000030a0  31 32 0d 1a 68 47 e7 20  70 61 72 25 28 56 6f 69  |12..hG. par%(Voi|
000030b0  63 65 25 2c 32 31 29 3e  70 61 72 25 28 56 6f 69  |ce%,21)>par%(Voi|
000030c0  63 65 25 2c 31 36 29 20  70 61 72 25 28 56 6f 69  |ce%,16) par%(Voi|
000030d0  63 65 25 2c 32 31 29 3d  70 61 72 25 28 56 6f 69  |ce%,21)=par%(Voi|
000030e0  63 65 25 2c 31 36 29 2d  31 0d 1a 72 29 e7 20 70  |ce%,16)-1..r). p|
000030f0  61 72 25 28 56 6f 69 63  65 25 2c 31 32 29 3d 30  |ar%(Voice%,12)=0|
00003100  20 70 61 72 25 28 56 6f  69 63 65 25 2c 31 32 29  | par%(Voice%,12)|
00003110  3d 31 0d 1a 7c 8f e7 20  70 61 72 25 28 56 6f 69  |=1..|.. par%(Voi|
00003120  63 65 25 2c 31 34 29 3c  3d 70 61 72 25 28 56 6f  |ce%,14)<=par%(Vo|
00003130  69 63 65 25 2c 31 32 29  20 70 61 72 25 28 56 6f  |ice%,12) par%(Vo|
00003140  69 63 65 25 2c 31 34 29  3d 70 61 72 25 28 56 6f  |ice%,14)=par%(Vo|
00003150  69 63 65 25 2c 31 32 29  2b 31 20 8b 20 e7 20 70  |ice%,12)+1 . . p|
00003160  61 72 25 28 56 6f 69 63  65 25 2c 31 34 29 3e 3d  |ar%(Voice%,14)>=|
00003170  70 61 72 25 28 56 6f 69  63 65 25 2c 31 36 29 20  |par%(Voice%,16) |
00003180  70 61 72 25 28 56 6f 69  63 65 25 2c 31 34 29 3d  |par%(Voice%,14)=|
00003190  70 61 72 25 28 56 6f 69  63 65 25 2c 31 36 29 2d  |par%(Voice%,16)-|
000031a0  31 0d 1a 86 11 f2 66 72  65 71 75 65 6e 63 79 28  |1.....frequency(|
000031b0  37 29 0d 1a 90 11 f2 61  6d 70 6c 69 74 75 64 65  |7).....amplitude|
000031c0  28 37 29 0d 1a 9a 05 e1  0d 1a a4 05 3a 0d 1a ae  |(7).........:...|
000031d0  0e dd 20 a4 73 65 74 74  72 65 6d 0d 1a b8 11 f2  |.. .settrem.....|
000031e0  61 6d 70 6c 69 74 75 64  65 28 30 29 0d 1a c2 0f  |amplitude(0)....|
000031f0  e7 20 58 25 3c 31 31 35  32 20 8c 0d 1a cc 0e e7  |. X%<1152 ......|
00003200  20 59 25 3c 35 30 38 20  8c 0d 1a d6 2a e7 20 70  | Y%<508 ....*. p|
00003210  61 72 25 28 56 6f 69 63  65 25 2c 31 37 29 3e 30  |ar%(Voice%,17)>0|
00003220  20 70 61 72 25 28 56 6f  69 63 65 25 2c 31 37 29  | par%(Voice%,17)|
00003230  2d 3d 31 0d 1a e0 05 cc  0d 1a ea 2c e7 20 70 61  |-=1........,. pa|
00003240  72 25 28 56 6f 69 63 65  25 2c 31 37 29 3c 31 30  |r%(Voice%,17)<10|
00003250  30 20 70 61 72 25 28 56  6f 69 63 65 25 2c 31 37  |0 par%(Voice%,17|
00003260  29 2b 3d 31 0d 1a f4 05  cd 0d 1a fe 05 cc 0d 1b  |)+=1............|
00003270  08 0e e7 20 59 25 3c 35  30 38 20 8c 0d 1b 12 2b  |... Y%<508 ....+|
00003280  e7 20 70 61 72 25 28 56  6f 69 63 65 25 2c 31 38  |. par%(Voice%,18|
00003290  29 3c 34 30 20 70 61 72  25 28 56 6f 69 63 65 25  |)<40 par%(Voice%|
000032a0  2c 31 38 29 2b 3d 31 0d  1b 1c 05 cc 0d 1b 26 2a  |,18)+=1.......&*|
000032b0  e7 20 70 61 72 25 28 56  6f 69 63 65 25 2c 31 38  |. par%(Voice%,18|
000032c0  29 3e 32 20 70 61 72 25  28 56 6f 69 63 65 25 2c  |)>2 par%(Voice%,|
000032d0  31 38 29 2d 3d 31 0d 1b  30 05 cd 0d 1b 3a 05 cd  |18)-=1..0....:..|
000032e0  0d 1b 44 11 f2 61 6d 70  6c 69 74 75 64 65 28 37  |..D..amplitude(7|
000032f0  29 0d 1b 4e 09 f2 77 61  69 74 0d 1b 58 06 3d b9  |)..N..wait..X.=.|
00003300  0d 1b 62 05 3a 0d 1b 6c  0d dd 20 f2 73 65 74 66  |..b.:..l.. .setf|
00003310  72 65 0d 1b 76 0b ea 20  4e 75 6c 6c 25 0d 1b 80  |re..v.. Null%...|
00003320  21 e7 20 58 25 3c 31 32  20 4e 75 6c 6c 25 3d 70  |!. X%<12 Null%=p|
00003330  61 72 25 28 56 6f 69 63  65 25 2c 31 36 29 0d 1b  |ar%(Voice%,16)..|
00003340  8a 11 f2 66 72 65 71 75  65 6e 63 79 28 30 29 0d  |...frequency(0).|
00003350  1b 94 91 e7 20 46 6c 61  67 25 3d 34 20 f2 73 65  |.... Flag%=4 .se|
00003360  74 62 61 72 73 28 33 36  30 2c 4e 75 6c 6c 25 2c  |tbars(360,Null%,|
00003370  70 61 72 25 28 56 6f 69  63 65 25 2c 31 39 29 29  |par%(Voice%,19))|
00003380  20 8b 20 e7 20 46 6c 61  67 25 3d 35 20 f2 73 65  | . . Flag%=5 .se|
00003390  74 62 61 72 73 28 33 36  30 2c 70 61 72 25 28 56  |tbars(360,par%(V|
000033a0  6f 69 63 65 25 2c 32 31  29 2c 70 61 72 25 28 56  |oice%,21),par%(V|
000033b0  6f 69 63 65 25 2c 32 30  29 29 20 8b 20 f2 73 65  |oice%,20)) . .se|
000033c0  74 62 61 72 73 28 33 36  30 2c 4e 75 6c 6c 25 2c  |tbars(360,Null%,|
000033d0  70 61 72 25 28 56 6f 69  63 65 25 2c 32 32 29 29  |par%(Voice%,22))|
000033e0  0d 1b 9e 70 e7 20 70 61  72 25 28 56 6f 69 63 65  |...p. par%(Voice|
000033f0  25 2c 32 31 29 3c 32 20  70 61 72 25 28 56 6f 69  |%,21)<2 par%(Voi|
00003400  63 65 25 2c 32 31 29 3d  32 20 8b 20 e7 20 70 61  |ce%,21)=2 . . pa|
00003410  72 25 28 56 6f 69 63 65  25 2c 32 31 29 3e 3d 70  |r%(Voice%,21)>=p|
00003420  61 72 25 28 56 6f 69 63  65 25 2c 31 36 29 20 70  |ar%(Voice%,16) p|
00003430  61 72 25 28 56 6f 69 63  65 25 2c 32 31 29 3d 70  |ar%(Voice%,21)=p|
00003440  61 72 25 28 56 6f 69 63  65 25 2c 31 36 29 2d 31  |ar%(Voice%,16)-1|
00003450  0d 1b a8 11 f2 66 72 65  71 75 65 6e 63 79 28 37  |.....frequency(7|
00003460  29 0d 1b b2 05 e1 0d 1b  bc 05 3a 0d 1b c6 0d dd  |).........:.....|
00003470  20 a4 73 65 74 76 69 62  0d 1b d0 11 f2 66 72 65  | .setvib.....fre|
00003480  71 75 65 6e 63 79 28 30  29 0d 1b da 0f e7 20 58  |quency(0)..... X|
00003490  25 3c 31 31 35 32 20 8c  0d 1b e4 0e e7 20 59 25  |%<1152 ...... Y%|
000034a0  3c 33 31 36 20 8c 0d 1b  ee 2a e7 20 70 61 72 25  |<316 ....*. par%|
000034b0  28 56 6f 69 63 65 25 2c  32 33 29 3e 30 20 70 61  |(Voice%,23)>0 pa|
000034c0  72 25 28 56 6f 69 63 65  25 2c 32 33 29 2d 3d 31  |r%(Voice%,23)-=1|
000034d0  0d 1b f8 05 cc 0d 1c 02  2c e7 20 70 61 72 25 28  |........,. par%(|
000034e0  56 6f 69 63 65 25 2c 32  33 29 3c 31 30 30 20 70  |Voice%,23)<100 p|
000034f0  61 72 25 28 56 6f 69 63  65 25 2c 32 33 29 2b 3d  |ar%(Voice%,23)+=|
00003500  31 0d 1c 0c 05 cd 0d 1c  16 05 cc 0d 1c 20 0e e7  |1............ ..|
00003510  20 59 25 3c 33 31 36 20  8c 0d 1c 2a 2b e7 20 70  | Y%<316 ...*+. p|
00003520  61 72 25 28 56 6f 69 63  65 25 2c 32 34 29 3c 33  |ar%(Voice%,24)<3|
00003530  36 20 70 61 72 25 28 56  6f 69 63 65 25 2c 32 34  |6 par%(Voice%,24|
00003540  29 2b 3d 31 0d 1c 34 05  cc 0d 1c 3e 2a e7 20 70  |)+=1..4....>*. p|
00003550  61 72 25 28 56 6f 69 63  65 25 2c 32 34 29 3e 32  |ar%(Voice%,24)>2|
00003560  20 70 61 72 25 28 56 6f  69 63 65 25 2c 32 34 29  | par%(Voice%,24)|
00003570  2d 3d 31 0d 1c 48 05 cd  0d 1c 52 05 cd 0d 1c 5c  |-=1..H....R....\|
00003580  11 f2 66 72 65 71 75 65  6e 63 79 28 37 29 0d 1c  |..frequency(7)..|
00003590  66 09 f2 77 61 69 74 0d  1c 70 06 3d b9 0d 1c 7a  |f..wait..p.=...z|
000035a0  05 3a 0d 1c 84 1c dd 20  f2 73 65 74 62 61 72 73  |.:..... .setbars|
000035b0  28 61 25 2c f8 20 48 25  2c f8 20 56 25 29 0d 1c  |(a%,. H%,. V%)..|
000035c0  8e 0a 45 6e 76 25 3d b9  0d 1c 98 0d 48 25 3d 58  |..Env%=.....H%=X|
000035d0  25 20 81 20 34 0d 1c a2  0c 56 25 3d 59 25 2d 61  |% . 4....V%=Y%-a|
000035e0  25 0d 1c ac 0e e7 20 61  25 3d 34 38 38 20 8c 0d  |%..... a%=488 ..|
000035f0  1c b6 21 e7 20 56 25 3e  31 32 37 20 56 25 3d 31  |..!. V%>127 V%=1|
00003600  32 37 20 8b 20 e7 20 56  25 3c 30 20 56 25 3d 30  |27 . . V%<0 V%=0|
00003610  0d 1c c0 05 cc 0d 1c ca  23 e7 20 56 25 3e 36 34  |........#. V%>64|
00003620  20 56 25 3d 36 34 20 8b  20 e7 20 56 25 3c 2d 36  | V%=64 . . V%<-6|
00003630  34 20 56 25 3d 2d 36 34  0d 1c d4 05 cd 0d 1c de  |4 V%=-64........|
00003640  13 e7 20 48 25 3e 32 35  35 20 48 25 3d 32 35 35  |.. H%>255 H%=255|
00003650  0d 1c e8 05 e1 0d 1c f2  05 3a 0d 1c fc 17 dd 20  |.........:..... |
00003660  f2 66 69 6c 6c 77 61 76  65 28 56 6f 69 63 65 25  |.fillwave(Voice%|
00003670  29 0d 1d 06 10 e3 20 42  25 3d 30 20 b8 20 32 35  |)..... B%=0 . 25|
00003680  35 0d 1d 10 08 41 25 3d  30 0d 1d 1a 0e e3 20 4a  |5....A%=0..... J|
00003690  25 3d 30 20 b8 20 39 0d  1d 24 36 e7 20 70 61 72  |%=0 . 9..$6. par|
000036a0  25 28 56 6f 69 63 65 25  2c 4a 25 29 20 41 25 2b  |%(Voice%,J%) A%+|
000036b0  3d 70 61 72 25 28 56 6f  69 63 65 25 2c 4a 25 29  |=par%(Voice%,J%)|
000036c0  2a 53 69 6e 65 25 28 42  25 2c 4a 25 29 0d 1d 2e  |*Sine%(B%,J%)...|
000036d0  05 ed 0d 1d 38 18 77 25  28 56 6f 69 63 65 25 2c  |....8.w%(Voice%,|
000036e0  42 25 29 3d 41 25 3e 3e  32 34 0d 1d 42 19 43 25  |B%)=A%>>24..B.C%|
000036f0  3d 57 61 76 65 54 61 62  6c 65 25 28 56 6f 69 63  |=WaveTable%(Voic|
00003700  65 25 29 0d 1d 4c 09 d6  20 4c 6f 67 0d 1d 56 05  |e%)..L.. Log..V.|
00003710  ed 0d 1d 60 05 e1 0d 1d  6a 05 3a 0d 1d 74 17 dd  |...`....j.:..t..|
00003720  20 f2 65 6e 76 65 6c 6f  70 65 28 56 6f 69 63 65  | .envelope(Voice|
00003730  25 29 0d 1d 7e 16 4d 25  3d 41 6d 70 45 6e 76 25  |%)..~.M%=AmpEnv%|
00003740  28 56 6f 69 63 65 25 29  0d 1d 88 0b 6c 65 76 65  |(Voice%)....leve|
00003750  6c 3d 30 0d 1d 92 3d f2  61 6d 70 5f 65 6e 76 28  |l=0...=.amp_env(|
00003760  70 61 72 25 28 56 6f 69  63 65 25 2c 31 31 29 2f  |par%(Voice%,11)/|
00003770  70 61 72 25 28 56 6f 69  63 65 25 2c 31 32 29 2c  |par%(Voice%,12),|
00003780  70 61 72 25 28 56 6f 69  63 65 25 2c 31 32 29 29  |par%(Voice%,12))|
00003790  0d 1d 9c 71 f2 61 6d 70  5f 65 6e 76 28 28 70 61  |...q.amp_env((pa|
000037a0  72 25 28 56 6f 69 63 65  25 2c 31 33 29 2d 70 61  |r%(Voice%,13)-pa|
000037b0  72 25 28 56 6f 69 63 65  25 2c 31 31 29 29 2f 28  |r%(Voice%,11))/(|
000037c0  70 61 72 25 28 56 6f 69  63 65 25 2c 31 34 29 2d  |par%(Voice%,14)-|
000037d0  70 61 72 25 28 56 6f 69  63 65 25 2c 31 32 29 29  |par%(Voice%,12))|
000037e0  2c 70 61 72 25 28 56 6f  69 63 65 25 2c 31 34 29  |,par%(Voice%,14)|
000037f0  2d 70 61 72 25 28 56 6f  69 63 65 25 2c 31 32 29  |-par%(Voice%,12)|
00003800  29 0d 1d a6 26 53 25 3d  70 61 72 25 28 56 6f 69  |)...&S%=par%(Voi|
00003810  63 65 25 2c 31 34 29 2b  70 61 72 25 28 56 6f 69  |ce%,14)+par%(Voi|
00003820  63 65 25 2c 31 38 29 0d  1d b0 4d 73 75 73 3d 28  |ce%,18)...Msus=(|
00003830  70 61 72 25 28 56 6f 69  63 65 25 2c 31 33 29 2d  |par%(Voice%,13)-|
00003840  70 61 72 25 28 56 6f 69  63 65 25 2c 31 35 29 29  |par%(Voice%,15))|
00003850  2f 28 70 61 72 25 28 56  6f 69 63 65 25 2c 31 36  |/(par%(Voice%,16|
00003860  29 2d 70 61 72 25 28 56  6f 69 63 65 25 2c 31 34  |)-par%(Voice%,14|
00003870  29 29 2a 34 0d 1d ba 19  c8 95 20 53 25 3c 70 61  |))*4...... S%<pa|
00003880  72 25 28 56 6f 69 63 65  25 2c 31 36 29 0d 1d c4  |r%(Voice%,16)...|
00003890  42 f2 61 6d 70 5f 65 6e  76 28 2d 73 75 73 2d 70  |B.amp_env(-sus-p|
000038a0  61 72 25 28 56 6f 69 63  65 25 2c 31 37 29 2f 70  |ar%(Voice%,17)/p|
000038b0  61 72 25 28 56 6f 69 63  65 25 2c 31 38 29 2c 70  |ar%(Voice%,18),p|
000038c0  61 72 25 28 56 6f 69 63  65 25 2c 31 38 29 29 0d  |ar%(Voice%,18)).|
000038d0  1d ce 17 53 25 2b 3d 70  61 72 25 28 56 6f 69 63  |...S%+=par%(Voic|
000038e0  65 25 2c 31 38 29 0d 1d  d8 48 e7 20 53 25 3c 70  |e%,18)...H. S%<p|
000038f0  61 72 25 28 56 6f 69 63  65 25 2c 31 36 29 20 f2  |ar%(Voice%,16) .|
00003900  61 6d 70 5f 65 6e 76 28  30 2c 70 61 72 25 28 56  |amp_env(0,par%(V|
00003910  6f 69 63 65 25 2c 31 38  29 29 3a 53 25 2b 3d 70  |oice%,18)):S%+=p|
00003920  61 72 25 28 56 6f 69 63  65 25 2c 31 38 29 0d 1d  |ar%(Voice%,18)..|
00003930  e2 66 e7 20 53 25 3c 70  61 72 25 28 56 6f 69 63  |.f. S%<par%(Voic|
00003940  65 25 2c 31 36 29 20 f2  61 6d 70 5f 65 6e 76 28  |e%,16) .amp_env(|
00003950  70 61 72 25 28 56 6f 69  63 65 25 2c 31 37 29 2f  |par%(Voice%,17)/|
00003960  70 61 72 25 28 56 6f 69  63 65 25 2c 31 38 29 2c  |par%(Voice%,18),|
00003970  70 61 72 25 28 56 6f 69  63 65 25 2c 31 38 29 29  |par%(Voice%,18))|
00003980  3a 53 25 2b 3d 70 61 72  25 28 56 6f 69 63 65 25  |:S%+=par%(Voice%|
00003990  2c 31 38 29 0d 1d ec 48  e7 20 53 25 3c 70 61 72  |,18)...H. S%<par|
000039a0  25 28 56 6f 69 63 65 25  2c 31 36 29 20 f2 61 6d  |%(Voice%,16) .am|
000039b0  70 5f 65 6e 76 28 30 2c  70 61 72 25 28 56 6f 69  |p_env(0,par%(Voi|
000039c0  63 65 25 2c 31 38 29 29  3a 53 25 2b 3d 70 61 72  |ce%,18)):S%+=par|
000039d0  25 28 56 6f 69 63 65 25  2c 31 38 29 0d 1d f6 05  |%(Voice%,18)....|
000039e0  ce 0d 1e 00 3e e7 20 4d  25 2d 41 6d 70 45 6e 76  |....>. M%-AmpEnv|
000039f0  25 28 56 6f 69 63 65 25  29 3c 32 35 36 20 3f 4d  |%(Voice%)<256 ?M|
00003a00  25 3d 32 35 35 20 8b 20  41 6d 70 45 6e 76 25 28  |%=255 . AmpEnv%(|
00003a10  56 6f 69 63 65 25 29 3f  32 35 35 3d 32 35 35 0d  |Voice%)?255=255.|
00003a20  1e 0a 16 4d 25 3d 46 72  65 45 6e 76 25 28 56 6f  |...M%=FreEnv%(Vo|
00003a30  69 63 65 25 29 0d 1e 14  1f f2 66 72 65 5f 65 6e  |ice%).....fre_en|
00003a40  76 28 70 61 72 25 28 56  6f 69 63 65 25 2c 31 39  |v(par%(Voice%,19|
00003a50  29 2c 31 29 0d 1e 1e 53  f2 66 72 65 5f 65 6e 76  |),1)...S.fre_env|
00003a60  28 28 70 61 72 25 28 56  6f 69 63 65 25 2c 32 30  |((par%(Voice%,20|
00003a70  29 2d 70 61 72 25 28 56  6f 69 63 65 25 2c 31 39  |)-par%(Voice%,19|
00003a80  29 29 2f 28 70 61 72 25  28 56 6f 69 63 65 25 2c  |))/(par%(Voice%,|
00003a90  32 31 29 2d 31 29 2c 70  61 72 25 28 56 6f 69 63  |21)-1),par%(Voic|
00003aa0  65 25 2c 32 31 29 29 0d  1e 28 26 53 25 3d 70 61  |e%,21))..(&S%=pa|
00003ab0  72 25 28 56 6f 69 63 65  25 2c 32 31 29 2b 70 61  |r%(Voice%,21)+pa|
00003ac0  72 25 28 56 6f 69 63 65  25 2c 32 34 29 0d 1e 32  |r%(Voice%,24)..2|
00003ad0  4d 73 75 73 3d 28 70 61  72 25 28 56 6f 69 63 65  |Msus=(par%(Voice|
00003ae0  25 2c 32 30 29 2d 70 61  72 25 28 56 6f 69 63 65  |%,20)-par%(Voice|
00003af0  25 2c 32 32 29 29 2f 28  70 61 72 25 28 56 6f 69  |%,22))/(par%(Voi|
00003b00  63 65 25 2c 31 36 29 2d  70 61 72 25 28 56 6f 69  |ce%,16)-par%(Voi|
00003b10  63 65 25 2c 32 31 29 29  2a 32 0d 1e 3c 19 c8 95  |ce%,21))*2..<...|
00003b20  20 53 25 3c 70 61 72 25  28 56 6f 69 63 65 25 2c  | S%<par%(Voice%,|
00003b30  31 36 29 0d 1e 46 42 f2  66 72 65 5f 65 6e 76 28  |16)..FB.fre_env(|
00003b40  2d 73 75 73 2d 70 61 72  25 28 56 6f 69 63 65 25  |-sus-par%(Voice%|
00003b50  2c 32 33 29 2f 70 61 72  25 28 56 6f 69 63 65 25  |,23)/par%(Voice%|
00003b60  2c 32 34 29 2c 70 61 72  25 28 56 6f 69 63 65 25  |,24),par%(Voice%|
00003b70  2c 32 34 29 29 0d 1e 50  17 53 25 2b 3d 70 61 72  |,24))..P.S%+=par|
00003b80  25 28 56 6f 69 63 65 25  2c 32 34 29 0d 1e 5a 66  |%(Voice%,24)..Zf|
00003b90  e7 20 53 25 3c 70 61 72  25 28 56 6f 69 63 65 25  |. S%<par%(Voice%|
00003ba0  2c 31 36 29 20 f2 66 72  65 5f 65 6e 76 28 70 61  |,16) .fre_env(pa|
00003bb0  72 25 28 56 6f 69 63 65  25 2c 32 33 29 2f 70 61  |r%(Voice%,23)/pa|
00003bc0  72 25 28 56 6f 69 63 65  25 2c 32 34 29 2c 70 61  |r%(Voice%,24),pa|
00003bd0  72 25 28 56 6f 69 63 65  25 2c 32 34 29 29 3a 53  |r%(Voice%,24)):S|
00003be0  25 2b 3d 70 61 72 25 28  56 6f 69 63 65 25 2c 32  |%+=par%(Voice%,2|
00003bf0  34 29 0d 1e 64 05 ce 0d  1e 6e 1e e7 20 4d 25 2d  |4)..d....n.. M%-|
00003c00  46 72 65 45 6e 76 25 28  56 6f 69 63 65 25 29 3e  |FreEnv%(Voice%)>|
00003c10  32 35 35 20 8c 0d 1e 78  0c 4d 25 3f 32 35 35 3d  |255 ...x.M%?255=|
00003c20  30 0d 1e 82 05 cc 0d 1e  8c 1d c8 95 20 4d 25 2d  |0........... M%-|
00003c30  46 72 65 45 6e 76 25 28  56 6f 69 63 65 25 29 3c  |FreEnv%(Voice%)<|
00003c40  32 35 36 0d 1e 96 09 3f  4d 25 3d 30 0d 1e a0 09  |256....?M%=0....|
00003c50  4d 25 2b 3d 31 0d 1e aa  05 ce 0d 1e b4 05 cd 0d  |M%+=1...........|
00003c60  1e be 05 e1 0d 1e c8 05  3a 0d 1e d2 14 dd 20 f2  |........:..... .|
00003c70  61 6d 70 5f 65 6e 76 28  73 2c 6e 25 29 0d 1e dc  |amp_env(s,n%)...|
00003c80  0f e3 20 49 25 3d 31 20  b8 20 6e 25 0d 1e e6 0c  |.. I%=1 . n%....|
00003c90  6c 65 76 65 6c 2b 3d 73  0d 1e f0 39 e7 20 6c 65  |level+=s...9. le|
00003ca0  76 65 6c 3e 31 32 37 20  3f 4d 25 3d 30 20 8b 20  |vel>127 ?M%=0 . |
00003cb0  e7 20 6c 65 76 65 6c 3c  30 20 3f 4d 25 3d 31 32  |. level<0 ?M%=12|
00003cc0  37 20 8b 20 3f 4d 25 3d  31 32 37 2d 6c 65 76 65  |7 . ?M%=127-leve|
00003cd0  6c 0d 1e fa 09 4d 25 2b  3d 31 0d 1f 04 05 ed 0d  |l....M%+=1......|
00003ce0  1f 0e 05 e1 0d 1f 18 05  3a 0d 1f 22 15 dd 20 f2  |........:..".. .|
00003cf0  66 72 65 5f 65 6e 76 28  73 25 2c 6e 25 29 0d 1f  |fre_env(s%,n%)..|
00003d00  2c 0f e3 20 49 25 3d 31  20 b8 20 6e 25 0d 1f 36  |,.. I%=1 . n%..6|
00003d10  0a 3f 4d 25 3d 73 25 0d  1f 40 09 4d 25 2b 3d 31  |.?M%=s%..@.M%+=1|
00003d20  0d 1f 4a 05 ed 0d 1f 54  05 e1 0d 1f 5e 05 3a 0d  |..J....T....^.:.|
00003d30  1f 68 15 dd 20 f2 68 61  72 6d 6f 6e 69 63 28 43  |.h.. .harmonic(C|
00003d40  6f 6c 25 29 0d 1f 72 0c  e6 20 30 2c 43 6f 6c 25  |ol%)..r.. 0,Col%|
00003d50  0d 1f 7c 0e e3 20 49 25  3d 30 20 b8 20 39 0d 1f  |..|.. I%=0 . 9..|
00003d60  86 29 ec 20 49 25 2a 36  34 2b 35 37 36 2c 38 32  |.). I%*64+576,82|
00003d70  32 3a f0 20 31 2c 30 2c  70 61 72 25 28 56 6f 69  |2:. 1,0,par%(Voi|
00003d80  63 65 25 2c 49 25 29 0d  1f 90 05 ed 0d 1f 9a 05  |ce%,I%).........|
00003d90  e1 0d 1f a4 05 3a 0d 1f  ae 16 dd 20 f2 61 6d 70  |.....:..... .amp|
00003da0  6c 69 74 75 64 65 28 43  6f 6c 25 29 0d 1f b8 39  |litude(Col%)...9|
00003db0  e6 30 2c 43 6f 6c 25 3a  ec 20 30 2c 34 38 38 3a  |.0,Col%:. 0,488:|
00003dc0  f0 20 31 2c 70 61 72 25  28 56 6f 69 63 65 25 2c  |. 1,par%(Voice%,|
00003dd0  31 32 29 2a 34 2c 70 61  72 25 28 56 6f 69 63 65  |12)*4,par%(Voice|
00003de0  25 2c 31 31 29 0d 1f c2  08 f2 70 65 67 0d 1f cc  |%,11).....peg...|
00003df0  4d f0 20 31 2c 28 70 61  72 25 28 56 6f 69 63 65  |M. 1,(par%(Voice|
00003e00  25 2c 31 34 29 2d 70 61  72 25 28 56 6f 69 63 65  |%,14)-par%(Voice|
00003e10  25 2c 31 32 29 29 2a 34  2c 28 70 61 72 25 28 56  |%,12))*4,(par%(V|
00003e20  6f 69 63 65 25 2c 31 33  29 2d 70 61 72 25 28 56  |oice%,13)-par%(V|
00003e30  6f 69 63 65 25 2c 31 31  29 29 0d 1f d6 08 f2 70  |oice%,11)).....p|
00003e40  65 67 0d 1f e0 26 53 25  3d 70 61 72 25 28 56 6f  |eg...&S%=par%(Vo|
00003e50  69 63 65 25 2c 31 34 29  2b 70 61 72 25 28 56 6f  |ice%,14)+par%(Vo|
00003e60  69 63 65 25 2c 31 38 29  0d 1f ea 4d 73 75 73 3d  |ice%,18)...Msus=|
00003e70  28 70 61 72 25 28 56 6f  69 63 65 25 2c 31 33 29  |(par%(Voice%,13)|
00003e80  2d 70 61 72 25 28 56 6f  69 63 65 25 2c 31 35 29  |-par%(Voice%,15)|
00003e90  29 2f 28 70 61 72 25 28  56 6f 69 63 65 25 2c 31  |)/(par%(Voice%,1|
00003ea0  36 29 2d 70 61 72 25 28  56 6f 69 63 65 25 2c 31  |6)-par%(Voice%,1|
00003eb0  34 29 29 2a 34 0d 1f f4  19 c8 95 20 53 25 3c 70  |4))*4...... S%<p|
00003ec0  61 72 25 28 56 6f 69 63  65 25 2c 31 36 29 0d 1f  |ar%(Voice%,16)..|
00003ed0  fe 3e f0 20 31 2c 70 61  72 25 28 56 6f 69 63 65  |.>. 1,par%(Voice|
00003ee0  25 2c 31 38 29 2a 34 2c  2d 73 75 73 2a 70 61 72  |%,18)*4,-sus*par|
00003ef0  25 28 56 6f 69 63 65 25  2c 31 38 29 2d 70 61 72  |%(Voice%,18)-par|
00003f00  25 28 56 6f 69 63 65 25  2c 31 37 29 0d 20 08 17  |%(Voice%,17). ..|
00003f10  53 25 2b 3d 70 61 72 25  28 56 6f 69 63 65 25 2c  |S%+=par%(Voice%,|
00003f20  31 38 29 0d 20 12 44 e7  20 53 25 3c 70 61 72 25  |18). .D. S%<par%|
00003f30  28 56 6f 69 63 65 25 2c  31 36 29 20 f0 20 31 2c  |(Voice%,16) . 1,|
00003f40  70 61 72 25 28 56 6f 69  63 65 25 2c 31 38 29 2a  |par%(Voice%,18)*|
00003f50  34 2c 30 3a 53 25 2b 3d  70 61 72 25 28 56 6f 69  |4,0:S%+=par%(Voi|
00003f60  63 65 25 2c 31 38 29 0d  20 1c 52 e7 20 53 25 3c  |ce%,18). .R. S%<|
00003f70  70 61 72 25 28 56 6f 69  63 65 25 2c 31 36 29 20  |par%(Voice%,16) |
00003f80  f0 20 31 2c 70 61 72 25  28 56 6f 69 63 65 25 2c  |. 1,par%(Voice%,|
00003f90  31 38 29 2a 34 2c 70 61  72 25 28 56 6f 69 63 65  |18)*4,par%(Voice|
00003fa0  25 2c 31 37 29 3a 53 25  2b 3d 70 61 72 25 28 56  |%,17):S%+=par%(V|
00003fb0  6f 69 63 65 25 2c 31 38  29 0d 20 26 44 e7 20 53  |oice%,18). &D. S|
00003fc0  25 3c 70 61 72 25 28 56  6f 69 63 65 25 2c 31 36  |%<par%(Voice%,16|
00003fd0  29 20 f0 20 31 2c 70 61  72 25 28 56 6f 69 63 65  |) . 1,par%(Voice|
00003fe0  25 2c 31 38 29 2a 34 2c  30 3a 53 25 2b 3d 70 61  |%,18)*4,0:S%+=pa|
00003ff0  72 25 28 56 6f 69 63 65  25 2c 31 38 29 0d 20 30  |r%(Voice%,18). 0|
00004000  05 ce 0d 20 3a 30 f0 20  31 2c 28 70 61 72 25 28  |... :0. 1,(par%(|
00004010  56 6f 69 63 65 25 2c 31  36 29 2d 53 25 2b 70 61  |Voice%,16)-S%+pa|
00004020  72 25 28 56 6f 69 63 65  25 2c 31 38 29 29 2a 34  |r%(Voice%,18))*4|
00004030  2c 30 0d 20 44 08 f2 70  65 67 0d 20 4e 05 e1 0d  |,0. D..peg. N...|
00004040  20 58 05 3a 0d 20 62 16  dd 20 f2 66 72 65 71 75  | X.:. b.. .frequ|
00004050  65 6e 63 79 28 43 6f 6c  25 29 0d 20 6c 23 e6 30  |ency(Col%). l#.0|
00004060  2c 43 6f 6c 25 3a ec 20  30 2c 33 36 30 2b 70 61  |,Col%:. 0,360+pa|
00004070  72 25 28 56 6f 69 63 65  25 2c 31 39 29 0d 20 76  |r%(Voice%,19). v|
00004080  08 f2 70 65 67 0d 20 80  39 f0 20 31 2c 70 61 72  |..peg. .9. 1,par|
00004090  25 28 56 6f 69 63 65 25  2c 32 31 29 2a 34 2c 70  |%(Voice%,21)*4,p|
000040a0  61 72 25 28 56 6f 69 63  65 25 2c 32 30 29 2d 70  |ar%(Voice%,20)-p|
000040b0  61 72 25 28 56 6f 69 63  65 25 2c 31 39 29 0d 20  |ar%(Voice%,19). |
000040c0  8a 08 f2 70 65 67 0d 20  94 26 53 25 3d 70 61 72  |...peg. .&S%=par|
000040d0  25 28 56 6f 69 63 65 25  2c 32 31 29 2b 70 61 72  |%(Voice%,21)+par|
000040e0  25 28 56 6f 69 63 65 25  2c 32 34 29 0d 20 9e 4d  |%(Voice%,24). .M|
000040f0  73 75 73 3d 28 70 61 72  25 28 56 6f 69 63 65 25  |sus=(par%(Voice%|
00004100  2c 32 30 29 2d 70 61 72  25 28 56 6f 69 63 65 25  |,20)-par%(Voice%|
00004110  2c 32 32 29 29 2f 28 70  61 72 25 28 56 6f 69 63  |,22))/(par%(Voic|
00004120  65 25 2c 31 36 29 2d 70  61 72 25 28 56 6f 69 63  |e%,16)-par%(Voic|
00004130  65 25 2c 32 31 29 29 2a  32 0d 20 a8 19 c8 95 20  |e%,21))*2. .... |
00004140  53 25 3c 70 61 72 25 28  56 6f 69 63 65 25 2c 31  |S%<par%(Voice%,1|
00004150  36 29 0d 20 b2 3e f0 20  31 2c 70 61 72 25 28 56  |6). .>. 1,par%(V|
00004160  6f 69 63 65 25 2c 32 34  29 2a 34 2c 2d 73 75 73  |oice%,24)*4,-sus|
00004170  2a 70 61 72 25 28 56 6f  69 63 65 25 2c 32 34 29  |*par%(Voice%,24)|
00004180  2d 70 61 72 25 28 56 6f  69 63 65 25 2c 32 33 29  |-par%(Voice%,23)|
00004190  0d 20 bc 17 53 25 2b 3d  70 61 72 25 28 56 6f 69  |. ..S%+=par%(Voi|
000041a0  63 65 25 2c 32 34 29 0d  20 c6 52 e7 20 53 25 3c  |ce%,24). .R. S%<|
000041b0  70 61 72 25 28 56 6f 69  63 65 25 2c 31 36 29 20  |par%(Voice%,16) |
000041c0  f0 20 31 2c 70 61 72 25  28 56 6f 69 63 65 25 2c  |. 1,par%(Voice%,|
000041d0  32 34 29 2a 34 2c 70 61  72 25 28 56 6f 69 63 65  |24)*4,par%(Voice|
000041e0  25 2c 32 33 29 3a 53 25  2b 3d 70 61 72 25 28 56  |%,23):S%+=par%(V|
000041f0  6f 69 63 65 25 2c 32 34  29 0d 20 d0 05 ce 0d 20  |oice%,24). .... |
00004200  da 30 f0 20 31 2c 28 70  61 72 25 28 56 6f 69 63  |.0. 1,(par%(Voic|
00004210  65 25 2c 31 36 29 2d 53  25 2b 70 61 72 25 28 56  |e%,16)-S%+par%(V|
00004220  6f 69 63 65 25 2c 32 34  29 29 2a 34 2c 30 0d 20  |oice%,24))*4,0. |
00004230  e4 08 f2 70 65 67 0d 20  ee 05 e1 0d 20 f8 05 3a  |...peg. .... ..:|
00004240  0d 21 02 0a dd 20 f2 70  65 67 0d 21 0c 16 e7 20  |.!... .peg.!... |
00004250  43 6f 6c 25 20 e6 30 2c  36 20 8b 20 e6 30 2c 30  |Col% .0,6 . .0,0|
00004260  0d 21 16 3a f0 20 30 2c  30 2c 31 36 3a f0 20 31  |.!.:. 0,0,16:. 1|
00004270  2c 30 2c 2d 33 32 3a f0  20 31 2c 32 2c 30 3a f0  |,0,-32:. 1,2,0:.|
00004280  20 31 2c 30 2c 33 32 3a  f0 20 31 2c 2d 32 2c 30  | 1,0,32:. 1,-2,0|
00004290  3a f0 20 30 2c 30 2c 2d  31 36 0d 21 20 0b e6 30  |:. 0,0,-16.! ..0|
000042a0  2c 43 6f 6c 25 0d 21 2a  05 e1 0d 21 34 05 3a 0d  |,Col%.!*...!4.:.|
000042b0  21 3e 0d dd 20 f2 70 72  6f 6d 70 74 0d 21 48 07  |!>.. .prompt.!H.|
000042c0  f7 2b 30 0d 21 52 12 f2  64 61 74 61 5f 70 72 69  |.+0.!R..data_pri|
000042d0  6e 74 28 37 29 0d 21 5c  05 e1 0d 21 66 09 dc 20  |nt(7).!\...!f.. |
000042e0  37 2c 31 0d 21 70 37 dc  20 34 34 2c 30 2c 46 31  |7,1.!p7. 44,0,F1|
000042f0  20 2d 20 46 31 32 20 20  46 6f 72 20 56 6f 69 63  | - F12  For Voic|
00004300  65 73 2c 34 35 2c 31 2c  45 73 63 61 70 65 20 46  |es,45,1,Escape F|
00004310  6f 72 20 4f 70 74 69 6f  6e 73 0d 21 7a 05 3a 0d  |or Options.!z.:.|
00004320  21 84 19 dd 20 f2 6e 61  6d 65 28 54 65 78 74 24  |!... .name(Text$|
00004330  2c f8 20 4f 6c 64 24 29  0d 21 8e 0f ea 20 78 25  |,. Old$).!... x%|
00004340  2c 49 6e 70 75 74 24 0d  21 98 11 78 25 3d 31 37  |,Input$.!..x%=17|
00004350  2b a9 20 54 65 78 74 24  0d 21 a2 05 ee 0d 21 ac  |+. Text$.!....!.|
00004360  05 f5 0d 21 b6 28 f1 27  22 45 6e 74 65 72 20 6e  |...!.(.'"Enter n|
00004370  61 6d 65 20 6f 66 20 22  20 54 65 78 74 24 20 22  |ame of " Text$ "|
00004380  20 3e 20 22 20 4f 6c 64  24 3b 0d 21 c0 16 e8 20  | > " Old$;.!... |
00004390  8a 78 25 2c bc 29 20 22  22 20 49 6e 70 75 74 24  |.x%,.) "" Input$|
000043a0  0d 21 ca 11 fd 20 a9 20  49 6e 70 75 74 24 3c 31  |.!... . Input$<1|
000043b0  31 0d 21 d4 1b e7 20 49  6e 70 75 74 24 3e 22 22  |1.!... Input$>""|
000043c0  20 4f 6c 64 24 3d 49 6e  70 75 74 24 0d 21 de 05  | Old$=Input$.!..|
000043d0  e1 0d 21 e8 05 3a 0d 21  f2 17 dd 20 f2 64 61 74  |..!..:.!... .dat|
000043e0  61 5f 70 72 69 6e 74 28  43 6f 6c 25 29 0d 21 fc  |a_print(Col%).!.|
000043f0  05 f5 0d 22 06 0b f3 20  43 25 2c 4a 25 0d 22 10  |..."... C%,J%.".|
00004400  08 fb 20 43 25 0d 22 1a  0f e3 20 49 25 3d 30 20  |.. C%."... I%=0 |
00004410  b8 20 4a 25 0d 22 24 0e  f3 20 58 25 2c 59 25 2c  |. J%."$.. X%,Y%,|
00004420  61 24 0d 22 2e 10 f1 20  8a 58 25 2c 59 25 29 61  |a$."... .X%,Y%)a|
00004430  24 3b 0d 22 38 05 ed 0d  22 42 0d fd 20 43 25 3d  |$;."8..."B.. C%=|
00004440  43 6f 6c 25 0d 22 4c 05  e1 0d 22 56 05 3a 0d 22  |Col%."L..."V.:."|
00004450  60 0b dd 20 f2 77 61 69  74 0d 22 6a 08 ea 20 74  |`.. .wait."j.. t|
00004460  25 0d 22 74 08 74 25 3d  91 0d 22 7e 0f f5 20 fd  |%."t.t%=.."~.. .|
00004470  20 91 2d 74 25 3e 31 30  0d 22 88 05 e1 0d 22 92  | .-t%>10."....".|
00004480  05 3a 0d 22 9c 0f dd 20  f2 68 6f 75 72 28 70 25  |.:."... .hour(p%|
00004490  29 0d 22 a6 59 e7 20 70  25 3d a3 20 c8 99 20 22  |).".Y. p%=. .. "|
000044a0  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
000044b0  20 8b 20 e7 20 70 25 3d  b9 20 c8 99 20 22 48 6f  | . . p%=. .. "Ho|
000044c0  75 72 67 6c 61 73 73 5f  4f 6e 22 20 8b 20 c8 99  |urglass_On" . ..|
000044d0  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
000044e0  65 6e 74 61 67 65 22 2c  70 25 0d 22 b0 05 e1 0d  |entage",p%."....|
000044f0  ff                                                |.|
000044f1