(� Envelope designer 8/8/85 - 19/8/85
� EMADS 6/7/87 - 5/8/87
$� Allan Kelly and David Halligan
( 
2V� Dedicated to all those who never really understood page 183 of the User Guide !!
< 
F�4
P� @% normal &90A
Z@%=2
d� Cursor keys off
n
*FX4,1
x� Cursor off
��23;8202;0;0;0;
�envelope=1
�� name$(4)
�Z� T(4),PI1(4),PI2(4),PI3(4),PN1(4),PN2(4),PN3(4),AA(4),AD(4),AS(4),AR(4),ALA(4),ALD(4)
�.�on(3),timon(3),enam(3),pitch(3),length(3)
�%�23,128,00,102,60,24,24,60,102,00
�!�23,129,0,2,6,12,152,240,96,0
��
��
��
��set_up
��screen_data
�
�sound

	�menu

*FX 21 0

� �sound_off

"x$=�(0)

,<� (�"CNDSTPAKEBIQ*",x$) � �"cndstpakebiq*",x$)) � x$<>""

6x$=�(�(x$)�&DF)

@� x$="E" �number

J� x$="N" �name

T� x$="D" �display

^� x$="S" �play

h� x$="T" �time

r� x$="P" �pitch

|� x$="A" �amp

�� x$="K" �kill

�� x$="C" �copy

�� x$="B" �direct

�� x$="I" �disc

�� x$=�(10) �os

�� x$="Q"

��

�� "Quit? (Y/N)"

�
� �yes_no

�	*FX 4

��

� 

���sound_off
� x,flag

flag=�

� x=0 � 3
&7� �>(timon(x)+(length(x)*5)) � on(x) on(x)=�:flag=�
0�
:� flag �sound
D�
N 
X
��name
b�
l2�1,1);"Enter new name for envelope ";envelope
v�
��1,3);name$(envelope)
�F� �name$(envelope)>9 �1,2);"Too long...try again";�1,3);�255," ")
�� �name$(envelope)<10
��
� 
���number
�	� num
��
�4�1,1);"Enter envelope number (between 1 and 4)"
�� num=�-48
�� num>0 � num<5
�envelope=num 
��
 

��display
�
 � outer,inner,term$
*�
4�"Printer on (Y/N)?"
>� �yes_no � 2
H;�''�(2);"Envelopes";�(5);"1";�(5);"2";�(5);"3";�(5);"4"
R� outer=0 � 12
\� term$
fx$=�term$+�20," "),16)
p.x$=x$+��(�(term$+"("+�(1)+")"))+�6," "),6)
z.x$=x$+��(�(term$+"("+�(2)+")"))+�6," "),6)
�.x$=x$+��(�(term$+"("+�(3)+")"))+�6," "),6)
�.x$=x$+��(�(term$+"("+�(4)+")"))+�6," "),6)
�
� �x$,39)
��
� 
�� loop=1 � 4
�%�1,20+loop);loop;")";name$(loop)
��
��3
��return
��
� 
�
��play
�loop,ch,pede,pi,len,q$
�
� loop=1 � 4
$��loop,T(loop),PI1(loop),PI2(loop),PI3(loop),PN1(loop),PN2(loop),PN3(loop),AA(loop),AD(loop),AS(loop),AR(loop),ALA(loop),ALD(loop)
.�
8�"Channels free:";
B� loop=0 � 3
L� on(loop)=� �loop;
V�
`-�'"All sounds will take over immediately"
j%�"Use return for previous value."
t� �"Channel:"ch
~� ch>=0 � ch<4
�!� �"Envelope or amplitude:"q$
�&� q$="" pede=enam(ch) � pede=�(q$)
�� pede>-16 � pede<5
�� �"Pitch:"q$
�#� q$="" pi=pitch(ch) � pi=�(q$)
�� pi>-1 � pi<256
�-� �"Length (100th of a sec - 255 n/a):"q$
�&� q$="" len=length(ch) � len=�(q$)
�� len>0 � len<255
�� ch+&10,pede,pi,len
�timon(ch)=�
�on(ch)=�
enam(ch)=pede

pitch(ch)=pi
length(ch)=len
�
( 
2
��time
<� key,tim,old_tim
F�
P^�0,1);"Use cursor keys to select time."'"Time is measured in hundredths   of  a  second."
Z"�"Press return when complete."
d$�"Use shift for extra movement."
ntim=T(envelope) � 127
x�"Time:";tim
�old_tim=tim
�/�15,11);0;�15,21);64;�20,16);32;�10,16);96
��circle(500,500,120)
��
��0,0
��500,500
�8�1,�(�(old_tim*2.8125))*100,�(�(old_tim*2.8125))*100
��0,1
��500,500
�0�1,�(�(tim*2.8125))*100,�(�(tim*2.8125))*100
��0,7);"Time:";tim;�(2)
�� key=�
�*FX21,0
!�  key=13 � key=136 � key=137
old_tim=tim
� �(-1) diff=10 � diff=1
"� key=136 tim=tim-diff
,� key=137 tim=tim+diff
6tim=tim � 128
@� tim<0 tim=128+tim
J� key=13
T �1,25);"Auto repeat? (Y/N)"
^� key=�
h� key=78 � key=89
r� key=89 tim=tim+128
|T(envelope)=tim
��return
��
� 
���pitch
�� pitch,time
��
�.�0,1);"Use cursor keys to control graph."
�"�"Press return when complete."
�$�"Use shift for extra movement."
�1�cross(PN1(envelope)*3,(PI1(envelope)+128)*3)
�1�cross(PN2(envelope)*3,(PI2(envelope)+128)*3)
�1�cross(PN3(envelope)*3,(PI3(envelope)+128)*3)
�pitch=PI1(envelope)
time=PN1(envelope)
�pigraph(1)
PI1(envelope)=pitch
&PN1(envelope)=time
0pitch=PI2(envelope)
:time=PN2(envelope)
D�pigraph(2)
NPI2(envelope)=pitch
XPN2(envelope)=time
bpitch=PI3(envelope)
ltime=PN3(envelope)
v�pigraph(3)
�PI3(envelope)=pitch
�PN3(envelope)=time
��
� 
���pigraph(x)
�-�num,factor,y,old_pitch,old_time,key,diff
�pitch=pitch+128
��140,90
��140,880
��140,90
��900,90
��5
�factor=2
� num=0 � 5
� factor*50,70
�num*50
 factor=factor+3
*�
4
� �d^R
>� num=0 � 6
H	� y,n
R�0,y
\�n
f�
p�4,24,145;95;1279;900;
z%�30,10);"PI1:"PI1(envelope);�(2)
�%�30,11);"PN1:"PN1(envelope);�(2)
�%�30,12);"PI2:"PI2(envelope);�(2)
�%�30,13);"PN2:"PN2(envelope);�(2)
�%�30,14);"PI3:"PI3(envelope);�(2)
�%�30,15);"PN3:"PN3(envelope);�(2)
��30,17);"Current"
��
��0,4);"PI";x
��30,29);"PN";x
�$�30,18);"Pitch:";pitch-128;�(2)
��30,19);"Time:";time;�(2)
�old_pitch=pitch
�old_time=time
	
� *FX21,0
		key=�
	4� key=13 � key=136 � key=137 � key=138 � key=139
	$� �(-1) diff=10 � diff=1
	.� key=136 time=time-diff
	8� time<0 time=0
	B� key=137 time=time+diff
	L� time>255 time=255
	V� key=138 pitch=pitch-diff
	`� pitch<0 pitch=0
	j� key=139 pitch=pitch+diff
	t� pitch>255 pitch=255
	~�0,0
	�"�cross(old_time*3,old_pitch*3)
	��0,1
	��cross(time*3,pitch*3)
	�� key=13
	�pitch=pitch-128
	��26
	��
	� 
	�	��amp
	��change,target
	��
	�change=AA(envelope)
target=ALA(envelope)

#�cross(target*3,(change+127)*3)
0�cross(ALD(envelope)*3,(AD(envelope)+127)*3)
�amgraph("A")
(AA(envelope)=change
2ALA(envelope)=target
<change=AD(envelope)
Ftarget=ALD(envelope)
P�amgraph("D")
ZAD(envelope)=change
dALD(envelope)=target
nas=AS(envelope)
xar=AR(envelope)
��asargraph
�AS(envelope)=as
�AR(envelope)=ar
��
� 
���amgraph(label$)
�.� y,num,val,old_target,old_change,key,diff
�.�0,1);"Use cursor keys to control graph."
�"�"Press return when complete."
�$�"Use shift for extra movement."
��140,90
��140,880
��140,90
�700,90

� �dhR
�5
"� num=0 � 6
,� y,val
6�0,y
@�val
J�
Tfactor=2
^� num=0 � 3
h� factor*50,70
r�num*50
|factor=factor+3
��
��4
��0,4);"A";label$
��22,29);"AL";label$
��4,24,145;95;1279;900;
�
�amp_data
��
�'�25,18);"A";label$;":";change;�(3)
�(�25,19);"AL";label$;":";target;�(3)
�old_target=target
�old_change=change
�
� *FX21,0
�	key=�
4� key=13 � key=136 � key=137 � key=138 � key=139
� �(-1) diff=10 � diff=1
 � key=136 target=target-diff
&� target<0 target=0
0 � key=137 target=target+diff
:� target>126 target=126
D � key=138 change=change-diff
N� change<-127 change=-127
X � key=139 change=change+diff
b� change>127 change=127
l�0,0
v+�cross(old_target*3,(old_change+127)*3)
��0,1
�#�cross(target*3,(change+127)*3)
�� key=13
��26
��
���asargraph
� � num,key,old_as,old_ar,diff
��
�%�cross(((ar+127)*4),((as+127)*4))
�.�0,1);"Use cursor keys to control graph."
�"�"Press return when complete."
�$�"Use shift for extra movement."
��140,90

�140,880

�140,90

�700,90

 �5

*� num=-127 � 0 � 50

4� ((num+127)*4)+20,80

>	� num

H� 0,((num+127)*4)+120

R	� num

\�

f� 0,628

p�0

z� 528,80

��0

��4

��2,4);"AS"

��25,29);"AR"

��4,24,145;95;1279;900;

�
�amp_data

��

��25,18);"AS:";as;"  "

��25,19);"AR:";ar;"  "

�
old_as=as

�
old_ar=ar

�
� *FX21,0

�	key=�
4� key=13 � key=136 � key=137 � key=138 � key=139
� �(-1) diff=10 � diff=1
� key=136 ar=ar-diff
$� ar<-127 ar=-127
.� key=137 ar=ar+diff
8� ar>0 ar=0
B� key=138 as=as-diff
L� as<-127 as=-127
V� key=139 as=as+diff
`� as>0 as=0
j�0,0
t-�cross(((old_ar+127)*4),((old_as+127)*4))
~�0,1
�%�cross(((ar+127)*4),((as+127)*4))
�� key=13
��26
��
� 
�
��kill
�� channel,key
��
��
��
�"�"Which sound channel?"channel
�� channel>-1 � channel<4
�16+channel,0,0,0

on(channel)=0
)�"Do you wish to kill another sound?"
*FX21,0
(key=�yes_no
<� key=�
F�
P 
Z
��copy
d� to,from,key
n�
x�
��
�3�"Which envelope do you wish to copy from",from
�/�"Which envelope do you wish to copy to",to
�#� from>0 � from<5 � to>0 � to<5
�name$(to)=name$(from)
�T(to)=T(from)
�PI1(to)=PI1(from)
�PI2(to)=PI2(from)
�PI3(to)=PI3(from)
�PN1(to)=PN1(from)
�PN2(to)=PN2(from)
�PN3(to)=PN3(from)
�AA(to)=AA(from)
AD(to)=AD(from)
AS(to)=AS(from)
AR(to)=AR(from)
"ALA(to)=ALA(from)
,ALD(to)=ALD(from)
6,�"Do you wish to copy another envelope?"
@� key=�
J� key=78 � key=89
T� key=78
^�
h 
r��direct
|�
�4�"Input value or press return to keep old value"
��"Envelope:"envelope
�)T(envelope)=�get(T(envelope),1,0,255)
�0PI1(envelope)=�get(PI1(envelope),2,-128,127)
�0PI2(envelope)=�get(PI2(envelope),3,-128,127)
�0PI3(envelope)=�get(PI3(envelope),4,-128,127)
�-PN1(envelope)=�get(PN1(envelope),5,0,255)
�-PN2(envelope)=�get(PN2(envelope),6,0,255)
�-PN3(envelope)=�get(PN3(envelope),7,0,255)
�.AA(envelope)=�get(AA(envelope),8,-127,127)
�.AD(envelope)=�get(AD(envelope),9,-127,127)
�-AS(envelope)=�get(AS(envelope),10,-127,0)
�-AR(envelope)=�get(AR(envelope),11,-127,0)
.ALA(envelope)=�get(ALA(envelope),12,0,126)
.ALD(envelope)=�get(ALD(envelope),13,0,126)
�return
&�
0 
:ݤget(current,term,min,max)
D� loop,q$,return
N
� �dTR
X� loop=1 � term
b� term$
l�
v�
�2�term$;�(58);current;�10);"(";min;",";max;")";
��q$
�)� q$="" return=current � return=�(q$)
�+� return<min � return>max �"Error";�(7)
�!� return>min-1 � return<max+1
�:=return
� 
� 
���cross(x,y)
�� x+150,y+100
��1,-10,0
��0,5,-5
��1,0,10
�
 
��amp_data
 �25,9);"Original"
*�25,10);"AA:";AA(envelope)
4�25,11);"AD:";AD(envelope)
>�25,12);"AS:";AS(envelope)
H�25,13);"AR:";AR(envelope)
R!�25,14);"ALA:";ALA(envelope)
\!�25,15);"ALD:";ALD(envelope)
f�25,17);"Current"
p�
z 
���return
��7
��15,30);"Press Return"
�� � �=13
��
� 
�
� data
�� terms
�2�T,PI1,PI2,PI3,PN1,PN2,PN3,AA,AD,AS,AR,ALA,ALD
�;�100,-128,183,-100,329,-50,475,0,621,50,767,100,850,127
�;�100,-127,183,-100,329,-50,475,0,621,50,767,100,850,127
�� Error handling
��26,4,12,7
� �=17 �df@
4� �>189 �"Filing system error:"�:�:�return:�df@
�
$�" at line ";�
.
*FX4,0
8 
B��sound
L
� loop
V�13,23);"Sound channels"
`>�3,25);"ACTIVE";�10);"ENV/VOL";�20);"PITCH";�28);"LENGTH"
j� loop=0 � 3
tc�1,26+loop);loop;�41;�5);�(128+�(on(loop)));�15);enam(loop);�24);pitch(loop);�32);length(loop)
~�
��
� 
���set_up
�	� 0,0
�� 0,1023
�� 1278,1023
�� 1278,0
�	� 0,0
�� 0,300
�� 1278,300
�� 400,1023
�
� 400,400
� 1279,400

�
 
��screen_data
(� loop,term$
2@�2,1);"Name:";�2,2);name$(envelope);�2,3);"Number:"envelope
<
� �dTR
F� loop=0 � 12
P� term$
ZA�2,loop+6);term$;�5,loop+6);":";�(term$+"("+�(envelope)+")")
d�
nL� T(envelope) � 128 �2,20);"Auto repeat on" � �2,20);"Auto repeat off"
x)�2,21);"Actual T:";T(envelope) � 127
��
� 
�
��menu
�� �15,1);"EMADS OPTIONS"
�"� �14,3);"E - Change Envelope"
�� �14,4);"N - Change Name"
�$� �14,5);"D - Display Envelopes"
�!� �14,6);"S - Play Envelopes"
�� �14,7);"T - Alter Time"
�� �14,8);"P - Alter Pitch"
�"� �14,9);"A - Alter Amplitude"
� � �14,10);"K - Kill a sound"
�!� �14,11);"C - Copy Envelope"
(� �14,12);"B - BASIC Input Envelope"
!� �14,13);"I - Save and Load"
� �14,14);"* - OS command"
"� �14,15);"Q - Quit"
,3�1,30);"(C) 1987 Allan Kelly & David Halligan"
6�
@ 
J 
T
��disc
^	� key
h�
r�''"Catalogue? (Y/N)"
|� �yes_no � *CAT
��'"Save (S) or Load (L)?"
�� key=� �&DF
�� key=�"S" � key=�"L"
�� key=�"S" �save
�� key=�"L" �load
��return
��
� 
�
��save
�� file$,file
�
�"Saving"
��"Filename:"file$
�file=�(file$)

�#file
8� file<>0 �"File exists. Continue?":� �yes_no file=0
� file=0 �save2
&�
0 
:��save2
D� x,file
Nfile=�(file$)
X
� x=1 � 4
b-�#file,name$(x),T(x),PI1(x),PI2(x),PI3(x)
l+�#file,PN1(x),PN2(x),PN3(x),AA(x),AD(x)
v$�#file,AS(x),AR(x),ALA(x),ALD(x)
�6�#file,timon(x-1),enam(x-1),pitch(x-1),length(x-1)
��
�
�#file
��
� 
�
��load
�� file,file$
��"Loading"
��"Filename:"file$
�file=�(file$)
�2� file=0 �"File does not exist" � �load2(file)
��
� 
��load2(file)
� x

� x=1 � 4
 -�#file,name$(x),T(x),PI1(x),PI2(x),PI3(x)
*+�#file,PN1(x),PN2(x),PN3(x),AA(x),AD(x)
4$�#file,AS(x),AR(x),ALA(x),ALD(x)
>6�#file,timon(x-1),enam(x-1),pitch(x-1),length(x-1)
H�
R
�#file
\�
f 
p��circle(x,y,r)
z� x+r,y
�� loop=0 � 2.1*� � 0.5
�'� 5,x+(r*(�(loop))),y+(r*(�(loop)))
�
� loop
��
� 
���os
�
� os$,key
��
��
�� "*"os$
�
$&B00=os$
�X%=0
�	Y%=&B

�&FFF7
*FX 21 0
	key=�
$� key<>�"*"
.�
8 
Bݤyes_no
L	� key
V*FX21,0
`� key=� �&DF
j"� key=�"Y" � key=�"N" � key=13
t� key=�"Y" :=� � :=�
�

00000000  0d 00 0a 28 f4 20 45 6e  76 65 6c 6f 70 65 20 64  |...(. Envelope d|
00000010  65 73 69 67 6e 65 72 20  38 2f 38 2f 38 35 20 2d  |esigner 8/8/85 -|
00000020  20 31 39 2f 38 2f 38 35  0d 00 14 1b f4 20 45 4d  | 19/8/85..... EM|
00000030  41 44 53 20 36 2f 37 2f  38 37 20 2d 20 35 2f 38  |ADS 6/7/87 - 5/8|
00000040  2f 38 37 0d 00 1e 24 f4  20 41 6c 6c 61 6e 20 4b  |/87...$. Allan K|
00000050  65 6c 6c 79 20 61 6e 64  20 44 61 76 69 64 20 48  |elly and David H|
00000060  61 6c 6c 69 67 61 6e 0d  00 28 05 20 0d 00 32 56  |alligan..(. ..2V|
00000070  f4 20 44 65 64 69 63 61  74 65 64 20 74 6f 20 61  |. Dedicated to a|
00000080  6c 6c 20 74 68 6f 73 65  20 77 68 6f 20 6e 65 76  |ll those who nev|
00000090  65 72 20 72 65 61 6c 6c  79 20 75 6e 64 65 72 73  |er really unders|
000000a0  74 6f 6f 64 20 70 61 67  65 20 31 38 33 20 6f 66  |tood page 183 of|
000000b0  20 74 68 65 20 55 73 65  72 20 47 75 69 64 65 20  | the User Guide |
000000c0  21 21 0d 00 3c 05 20 0d  00 46 06 eb 34 0d 00 50  |!!..<. ..F..4..P|
000000d0  14 f4 20 40 25 20 6e 6f  72 6d 61 6c 20 26 39 30  |.. @% normal &90|
000000e0  41 0d 00 5a 08 40 25 3d  32 0d 00 64 15 f4 20 43  |A..Z.@%=2..d.. C|
000000f0  75 72 73 6f 72 20 6b 65  79 73 20 6f 66 66 0d 00  |ursor keys off..|
00000100  6e 0a 2a 46 58 34 2c 31  0d 00 78 10 f4 20 43 75  |n.*FX4,1..x.. Cu|
00000110  72 73 6f 72 20 6f 66 66  0d 00 82 13 ef 32 33 3b  |rsor off.....23;|
00000120  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 8c 0e 65  |8202;0;0;0;....e|
00000130  6e 76 65 6c 6f 70 65 3d  31 0d 00 96 0e de 20 6e  |nvelope=1..... n|
00000140  61 6d 65 24 28 34 29 0d  00 a0 5a de 20 54 28 34  |ame$(4)...Z. T(4|
00000150  29 2c 50 49 31 28 34 29  2c 50 49 32 28 34 29 2c  |),PI1(4),PI2(4),|
00000160  50 49 33 28 34 29 2c 50  4e 31 28 34 29 2c 50 4e  |PI3(4),PN1(4),PN|
00000170  32 28 34 29 2c 50 4e 33  28 34 29 2c 41 41 28 34  |2(4),PN3(4),AA(4|
00000180  29 2c 41 44 28 34 29 2c  41 53 28 34 29 2c 41 52  |),AD(4),AS(4),AR|
00000190  28 34 29 2c 41 4c 41 28  34 29 2c 41 4c 44 28 34  |(4),ALA(4),ALD(4|
000001a0  29 0d 00 aa 2e de 6f 6e  28 33 29 2c 74 69 6d 6f  |).....on(3),timo|
000001b0  6e 28 33 29 2c 65 6e 61  6d 28 33 29 2c 70 69 74  |n(3),enam(3),pit|
000001c0  63 68 28 33 29 2c 6c 65  6e 67 74 68 28 33 29 0d  |ch(3),length(3).|
000001d0  00 b4 25 ef 32 33 2c 31  32 38 2c 30 30 2c 31 30  |..%.23,128,00,10|
000001e0  32 2c 36 30 2c 32 34 2c  32 34 2c 36 30 2c 31 30  |2,60,24,24,60,10|
000001f0  32 2c 30 30 0d 00 be 21  ef 32 33 2c 31 32 39 2c  |2,00...!.23,129,|
00000200  30 2c 32 2c 36 2c 31 32  2c 31 35 32 2c 32 34 30  |0,2,6,12,152,240|
00000210  2c 39 36 2c 30 0d 00 c8  05 f5 0d 00 d2 05 f5 0d  |,96,0...........|
00000220  00 dc 05 db 0d 00 e6 0b  f2 73 65 74 5f 75 70 0d  |.........set_up.|
00000230  00 f0 10 f2 73 63 72 65  65 6e 5f 64 61 74 61 0d  |....screen_data.|
00000240  00 fa 0a f2 73 6f 75 6e  64 0d 01 04 09 f2 6d 65  |....sound.....me|
00000250  6e 75 0d 01 0e 0c 2a 46  58 20 32 31 20 30 0d 01  |nu....*FX 21 0..|
00000260  18 10 f5 20 f2 73 6f 75  6e 64 5f 6f 66 66 0d 01  |... .sound_off..|
00000270  22 0b 78 24 3d bf 28 30  29 0d 01 2c 3c fd 20 28  |".x$=.(0)..,<. (|
00000280  a7 22 43 4e 44 53 54 50  41 4b 45 42 49 51 2a 22  |."CNDSTPAKEBIQ*"|
00000290  2c 78 24 29 20 84 20 a7  22 63 6e 64 73 74 70 61  |,x$) . ."cndstpa|
000002a0  6b 65 62 69 71 2a 22 2c  78 24 29 29 20 80 20 78  |kebiq*",x$)) . x|
000002b0  24 3c 3e 22 22 0d 01 36  13 78 24 3d bd 28 97 28  |$<>""..6.x$=.(.(|
000002c0  78 24 29 80 26 44 46 29  0d 01 40 14 e7 20 78 24  |x$).&DF)..@.. x$|
000002d0  3d 22 45 22 20 f2 6e 75  6d 62 65 72 0d 01 4a 12  |="E" .number..J.|
000002e0  e7 20 78 24 3d 22 4e 22  20 f2 6e 61 6d 65 0d 01  |. x$="N" .name..|
000002f0  54 15 e7 20 78 24 3d 22  44 22 20 f2 64 69 73 70  |T.. x$="D" .disp|
00000300  6c 61 79 0d 01 5e 12 e7  20 78 24 3d 22 53 22 20  |lay..^.. x$="S" |
00000310  f2 70 6c 61 79 0d 01 68  12 e7 20 78 24 3d 22 54  |.play..h.. x$="T|
00000320  22 20 f2 74 69 6d 65 0d  01 72 13 e7 20 78 24 3d  |" .time..r.. x$=|
00000330  22 50 22 20 f2 70 69 74  63 68 0d 01 7c 11 e7 20  |"P" .pitch..|.. |
00000340  78 24 3d 22 41 22 20 f2  61 6d 70 0d 01 86 12 e7  |x$="A" .amp.....|
00000350  20 78 24 3d 22 4b 22 20  f2 6b 69 6c 6c 0d 01 90  | x$="K" .kill...|
00000360  12 e7 20 78 24 3d 22 43  22 20 f2 63 6f 70 79 0d  |.. x$="C" .copy.|
00000370  01 9a 14 e7 20 78 24 3d  22 42 22 20 f2 64 69 72  |.... x$="B" .dir|
00000380  65 63 74 0d 01 a4 12 e7  20 78 24 3d 22 49 22 20  |ect..... x$="I" |
00000390  f2 64 69 73 63 0d 01 ae  12 e7 20 78 24 3d bd 28  |.disc..... x$=.(|
000003a0  31 30 29 20 f2 6f 73 0d  01 b8 0c fd 20 78 24 3d  |10) .os..... x$=|
000003b0  22 51 22 0d 01 c2 05 db  0d 01 cc 13 f1 20 22 51  |"Q".......... "Q|
000003c0  75 69 74 3f 20 28 59 2f  4e 29 22 0d 01 d6 0d fd  |uit? (Y/N)".....|
000003d0  20 a4 79 65 73 5f 6e 6f  0d 01 e0 09 2a 46 58 20  | .yes_no....*FX |
000003e0  34 0d 01 ea 05 e0 0d 01  f4 05 20 0d 01 fe 0f dd  |4......... .....|
000003f0  f2 73 6f 75 6e 64 5f 6f  66 66 0d 02 08 0c ea 20  |.sound_off..... |
00000400  78 2c 66 6c 61 67 0d 02  12 0a 66 6c 61 67 3d a3  |x,flag....flag=.|
00000410  0d 02 1c 0d e3 20 78 3d  30 20 b8 20 33 0d 02 26  |..... x=0 . 3..&|
00000420  37 e7 20 91 3e 28 74 69  6d 6f 6e 28 78 29 2b 28  |7. .>(timon(x)+(|
00000430  6c 65 6e 67 74 68 28 78  29 2a 35 29 29 20 80 20  |length(x)*5)) . |
00000440  6f 6e 28 78 29 20 6f 6e  28 78 29 3d a3 3a 66 6c  |on(x) on(x)=.:fl|
00000450  61 67 3d b9 0d 02 30 05  ed 0d 02 3a 11 e7 20 66  |ag=...0....:.. f|
00000460  6c 61 67 20 f2 73 6f 75  6e 64 0d 02 44 05 e1 0d  |lag .sound..D...|
00000470  02 4e 05 20 0d 02 58 0a  dd f2 6e 61 6d 65 0d 02  |.N. ..X...name..|
00000480  62 05 db 0d 02 6c 32 f1  8a 31 2c 31 29 3b 22 45  |b....l2..1,1);"E|
00000490  6e 74 65 72 20 6e 65 77  20 6e 61 6d 65 20 66 6f  |nter new name fo|
000004a0  72 20 65 6e 76 65 6c 6f  70 65 20 22 3b 65 6e 76  |r envelope ";env|
000004b0  65 6c 6f 70 65 0d 02 76  05 f5 0d 02 80 1a e8 8a  |elope..v........|
000004c0  31 2c 33 29 3b 6e 61 6d  65 24 28 65 6e 76 65 6c  |1,3);name$(envel|
000004d0  6f 70 65 29 0d 02 8a 46  e7 20 a9 6e 61 6d 65 24  |ope)...F. .name$|
000004e0  28 65 6e 76 65 6c 6f 70  65 29 3e 39 20 f1 8a 31  |(envelope)>9 ..1|
000004f0  2c 32 29 3b 22 54 6f 6f  20 6c 6f 6e 67 2e 2e 2e  |,2);"Too long...|
00000500  74 72 79 20 61 67 61 69  6e 22 3b 8a 31 2c 33 29  |try again";.1,3)|
00000510  3b c4 32 35 35 2c 22 20  22 29 0d 02 94 19 fd 20  |;.255," ")..... |
00000520  a9 6e 61 6d 65 24 28 65  6e 76 65 6c 6f 70 65 29  |.name$(envelope)|
00000530  3c 31 30 0d 02 9e 05 e1  0d 02 a8 05 20 0d 02 b2  |<10......... ...|
00000540  0c dd f2 6e 75 6d 62 65  72 0d 02 bc 09 ea 20 6e  |...number..... n|
00000550  75 6d 0d 02 c6 05 db 0d  02 d0 34 f1 8a 31 2c 31  |um........4..1,1|
00000560  29 3b 22 45 6e 74 65 72  20 65 6e 76 65 6c 6f 70  |);"Enter envelop|
00000570  65 20 6e 75 6d 62 65 72  20 28 62 65 74 77 65 65  |e number (betwee|
00000580  6e 20 31 20 61 6e 64 20  34 29 22 0d 02 da 0e f5  |n 1 and 4)".....|
00000590  20 6e 75 6d 3d a5 2d 34  38 0d 02 e4 13 fd 20 6e  | num=.-48..... n|
000005a0  75 6d 3e 30 20 80 20 6e  75 6d 3c 35 0d 02 ee 11  |um>0 . num<5....|
000005b0  65 6e 76 65 6c 6f 70 65  3d 6e 75 6d 20 0d 02 f8  |envelope=num ...|
000005c0  05 e1 0d 03 02 05 20 0d  03 0c 0d dd f2 64 69 73  |...... ......dis|
000005d0  70 6c 61 79 0d 03 16 05  f7 0d 03 20 17 ea 20 6f  |play....... .. o|
000005e0  75 74 65 72 2c 69 6e 6e  65 72 2c 74 65 72 6d 24  |uter,inner,term$|
000005f0  0d 03 2a 05 db 0d 03 34  18 f1 22 50 72 69 6e 74  |..*....4.."Print|
00000600  65 72 20 6f 6e 20 28 59  2f 4e 29 3f 22 0d 03 3e  |er on (Y/N)?"..>|
00000610  11 e7 20 a4 79 65 73 5f  6e 6f 20 ef 20 32 0d 03  |.. .yes_no . 2..|
00000620  48 3b f1 27 27 89 28 32  29 3b 22 45 6e 76 65 6c  |H;.''.(2);"Envel|
00000630  6f 70 65 73 22 3b 89 28  35 29 3b 22 31 22 3b 89  |opes";.(5);"1";.|
00000640  28 35 29 3b 22 32 22 3b  89 28 35 29 3b 22 33 22  |(5);"2";.(5);"3"|
00000650  3b 89 28 35 29 3b 22 34  22 0d 03 52 12 e3 20 6f  |;.(5);"4"..R.. o|
00000660  75 74 65 72 3d 30 20 b8  20 31 32 0d 03 5c 0b f3  |uter=0 . 12..\..|
00000670  20 74 65 72 6d 24 0d 03  66 1a 78 24 3d c0 74 65  | term$..f.x$=.te|
00000680  72 6d 24 2b c4 32 30 2c  22 20 22 29 2c 31 36 29  |rm$+.20," "),16)|
00000690  0d 03 70 2e 78 24 3d 78  24 2b c0 c3 28 a0 28 74  |..p.x$=x$+..(.(t|
000006a0  65 72 6d 24 2b 22 28 22  2b c3 28 31 29 2b 22 29  |erm$+"("+.(1)+")|
000006b0  22 29 29 2b c4 36 2c 22  20 22 29 2c 36 29 0d 03  |"))+.6," "),6)..|
000006c0  7a 2e 78 24 3d 78 24 2b  c0 c3 28 a0 28 74 65 72  |z.x$=x$+..(.(ter|
000006d0  6d 24 2b 22 28 22 2b c3  28 32 29 2b 22 29 22 29  |m$+"("+.(2)+")")|
000006e0  29 2b c4 36 2c 22 20 22  29 2c 36 29 0d 03 84 2e  |)+.6," "),6)....|
000006f0  78 24 3d 78 24 2b c0 c3  28 a0 28 74 65 72 6d 24  |x$=x$+..(.(term$|
00000700  2b 22 28 22 2b c3 28 33  29 2b 22 29 22 29 29 2b  |+"("+.(3)+")"))+|
00000710  c4 36 2c 22 20 22 29 2c  36 29 0d 03 8e 2e 78 24  |.6," "),6)....x$|
00000720  3d 78 24 2b c0 c3 28 a0  28 74 65 72 6d 24 2b 22  |=x$+..(.(term$+"|
00000730  28 22 2b c3 28 34 29 2b  22 29 22 29 29 2b c4 36  |("+.(4)+")"))+.6|
00000740  2c 22 20 22 29 2c 36 29  0d 03 98 0d f1 20 c0 78  |," "),6)..... .x|
00000750  24 2c 33 39 29 0d 03 a2  05 ed 0d 03 ac 05 20 0d  |$,39)......... .|
00000760  03 b6 10 e3 20 6c 6f 6f  70 3d 31 20 b8 20 34 0d  |.... loop=1 . 4.|
00000770  03 c0 25 f1 8a 31 2c 32  30 2b 6c 6f 6f 70 29 3b  |..%..1,20+loop);|
00000780  6c 6f 6f 70 3b 22 29 22  3b 6e 61 6d 65 24 28 6c  |loop;")";name$(l|
00000790  6f 6f 70 29 0d 03 ca 05  ed 0d 03 d4 06 ef 33 0d  |oop)..........3.|
000007a0  03 de 0b f2 72 65 74 75  72 6e 0d 03 e8 05 e1 0d  |....return......|
000007b0  03 f2 05 20 0d 03 fc 0a  dd f2 70 6c 61 79 0d 04  |... ......play..|
000007c0  06 1b ea 6c 6f 6f 70 2c  63 68 2c 70 65 64 65 2c  |...loop,ch,pede,|
000007d0  70 69 2c 6c 65 6e 2c 71  24 0d 04 10 05 db 0d 04  |pi,len,q$.......|
000007e0  1a 10 e3 20 6c 6f 6f 70  3d 31 20 b8 20 34 0d 04  |... loop=1 . 4..|
000007f0  24 85 e2 6c 6f 6f 70 2c  54 28 6c 6f 6f 70 29 2c  |$..loop,T(loop),|
00000800  50 49 31 28 6c 6f 6f 70  29 2c 50 49 32 28 6c 6f  |PI1(loop),PI2(lo|
00000810  6f 70 29 2c 50 49 33 28  6c 6f 6f 70 29 2c 50 4e  |op),PI3(loop),PN|
00000820  31 28 6c 6f 6f 70 29 2c  50 4e 32 28 6c 6f 6f 70  |1(loop),PN2(loop|
00000830  29 2c 50 4e 33 28 6c 6f  6f 70 29 2c 41 41 28 6c  |),PN3(loop),AA(l|
00000840  6f 6f 70 29 2c 41 44 28  6c 6f 6f 70 29 2c 41 53  |oop),AD(loop),AS|
00000850  28 6c 6f 6f 70 29 2c 41  52 28 6c 6f 6f 70 29 2c  |(loop),AR(loop),|
00000860  41 4c 41 28 6c 6f 6f 70  29 2c 41 4c 44 28 6c 6f  |ALA(loop),ALD(lo|
00000870  6f 70 29 0d 04 2e 05 ed  0d 04 38 16 f1 22 43 68  |op).......8.."Ch|
00000880  61 6e 6e 65 6c 73 20 66  72 65 65 3a 22 3b 0d 04  |annels free:";..|
00000890  42 10 e3 20 6c 6f 6f 70  3d 30 20 b8 20 33 0d 04  |B.. loop=0 . 3..|
000008a0  4c 17 e7 20 6f 6e 28 6c  6f 6f 70 29 3d a3 20 f1  |L.. on(loop)=. .|
000008b0  6c 6f 6f 70 3b 0d 04 56  05 ed 0d 04 60 2d f1 27  |loop;..V....`-.'|
000008c0  22 41 6c 6c 20 73 6f 75  6e 64 73 20 77 69 6c 6c  |"All sounds will|
000008d0  20 74 61 6b 65 20 6f 76  65 72 20 69 6d 6d 65 64  | take over immed|
000008e0  69 61 74 65 6c 79 22 0d  04 6a 25 f1 22 55 73 65  |iately"..j%."Use|
000008f0  20 72 65 74 75 72 6e 20  66 6f 72 20 70 72 65 76  | return for prev|
00000900  69 6f 75 73 20 76 61 6c  75 65 2e 22 0d 04 74 13  |ious value."..t.|
00000910  f5 20 e8 22 43 68 61 6e  6e 65 6c 3a 22 63 68 0d  |. ."Channel:"ch.|
00000920  04 7e 12 fd 20 63 68 3e  3d 30 20 80 20 63 68 3c  |.~.. ch>=0 . ch<|
00000930  34 0d 04 88 21 f5 20 e8  22 45 6e 76 65 6c 6f 70  |4...!. ."Envelop|
00000940  65 20 6f 72 20 61 6d 70  6c 69 74 75 64 65 3a 22  |e or amplitude:"|
00000950  71 24 0d 04 92 26 e7 20  71 24 3d 22 22 20 70 65  |q$...&. q$="" pe|
00000960  64 65 3d 65 6e 61 6d 28  63 68 29 20 8b 20 70 65  |de=enam(ch) . pe|
00000970  64 65 3d a0 28 71 24 29  0d 04 9c 17 fd 20 70 65  |de=.(q$)..... pe|
00000980  64 65 3e 2d 31 36 20 80  20 70 65 64 65 3c 35 0d  |de>-16 . pede<5.|
00000990  04 a6 11 f5 20 e8 22 50  69 74 63 68 3a 22 71 24  |.... ."Pitch:"q$|
000009a0  0d 04 b0 23 e7 20 71 24  3d 22 22 20 70 69 3d 70  |...#. q$="" pi=p|
000009b0  69 74 63 68 28 63 68 29  20 8b 20 70 69 3d a0 28  |itch(ch) . pi=.(|
000009c0  71 24 29 0d 04 ba 14 fd  20 70 69 3e 2d 31 20 80  |q$)..... pi>-1 .|
000009d0  20 70 69 3c 32 35 36 0d  04 c4 2d f5 20 e8 22 4c  | pi<256...-. ."L|
000009e0  65 6e 67 74 68 20 28 31  30 30 74 68 20 6f 66 20  |ength (100th of |
000009f0  61 20 73 65 63 20 2d 20  32 35 35 20 6e 2f 61 29  |a sec - 255 n/a)|
00000a00  3a 22 71 24 0d 04 ce 26  e7 20 71 24 3d 22 22 20  |:"q$...&. q$="" |
00000a10  6c 65 6e 3d 6c 65 6e 67  74 68 28 63 68 29 20 8b  |len=length(ch) .|
00000a20  20 6c 65 6e 3d a0 28 71  24 29 0d 04 d8 15 fd 20  | len=.(q$)..... |
00000a30  6c 65 6e 3e 30 20 80 20  6c 65 6e 3c 32 35 35 0d  |len>0 . len<255.|
00000a40  04 e2 18 d4 20 63 68 2b  26 31 30 2c 70 65 64 65  |.... ch+&10,pede|
00000a50  2c 70 69 2c 6c 65 6e 0d  04 ec 0f 74 69 6d 6f 6e  |,pi,len....timon|
00000a60  28 63 68 29 3d 91 0d 04  f6 0c 6f 6e 28 63 68 29  |(ch)=.....on(ch)|
00000a70  3d b9 0d 05 00 11 65 6e  61 6d 28 63 68 29 3d 70  |=.....enam(ch)=p|
00000a80  65 64 65 0d 05 0a 10 70  69 74 63 68 28 63 68 29  |ede....pitch(ch)|
00000a90  3d 70 69 0d 05 14 12 6c  65 6e 67 74 68 28 63 68  |=pi....length(ch|
00000aa0  29 3d 6c 65 6e 0d 05 1e  05 e1 0d 05 28 05 20 0d  |)=len.......(. .|
00000ab0  05 32 0a dd f2 74 69 6d  65 0d 05 3c 15 ea 20 6b  |.2...time..<.. k|
00000ac0  65 79 2c 74 69 6d 2c 6f  6c 64 5f 74 69 6d 0d 05  |ey,tim,old_tim..|
00000ad0  46 05 db 0d 05 50 5e f1  8a 30 2c 31 29 3b 22 55  |F....P^..0,1);"U|
00000ae0  73 65 20 63 75 72 73 6f  72 20 6b 65 79 73 20 74  |se cursor keys t|
00000af0  6f 20 73 65 6c 65 63 74  20 74 69 6d 65 2e 22 27  |o select time."'|
00000b00  22 54 69 6d 65 20 69 73  20 6d 65 61 73 75 72 65  |"Time is measure|
00000b10  64 20 69 6e 20 68 75 6e  64 72 65 64 74 68 73 20  |d in hundredths |
00000b20  20 20 6f 66 20 20 61 20  20 73 65 63 6f 6e 64 2e  |  of  a  second.|
00000b30  22 0d 05 5a 22 f1 22 50  72 65 73 73 20 72 65 74  |"..Z"."Press ret|
00000b40  75 72 6e 20 77 68 65 6e  20 63 6f 6d 70 6c 65 74  |urn when complet|
00000b50  65 2e 22 0d 05 64 24 f1  22 55 73 65 20 73 68 69  |e."..d$."Use shi|
00000b60  66 74 20 66 6f 72 20 65  78 74 72 61 20 6d 6f 76  |ft for extra mov|
00000b70  65 6d 65 6e 74 2e 22 0d  05 6e 19 74 69 6d 3d 54  |ement."..n.tim=T|
00000b80  28 65 6e 76 65 6c 6f 70  65 29 20 80 20 31 32 37  |(envelope) . 127|
00000b90  0d 05 78 10 f1 22 54 69  6d 65 3a 22 3b 74 69 6d  |..x.."Time:";tim|
00000ba0  0d 05 82 0f 6f 6c 64 5f  74 69 6d 3d 74 69 6d 0d  |....old_tim=tim.|
00000bb0  05 8c 2f f1 8a 31 35 2c  31 31 29 3b 30 3b 8a 31  |../..15,11);0;.1|
00000bc0  35 2c 32 31 29 3b 36 34  3b 8a 32 30 2c 31 36 29  |5,21);64;.20,16)|
00000bd0  3b 33 32 3b 8a 31 30 2c  31 36 29 3b 39 36 0d 05  |;32;.10,16);96..|
00000be0  96 18 f2 63 69 72 63 6c  65 28 35 30 30 2c 35 30  |...circle(500,50|
00000bf0  30 2c 31 32 30 29 0d 05  a0 05 f5 0d 05 aa 08 e6  |0,120)..........|
00000c00  30 2c 30 0d 05 b4 0c ec  35 30 30 2c 35 30 30 0d  |0,0.....500,500.|
00000c10  05 be 38 f0 31 2c b5 28  b2 28 6f 6c 64 5f 74 69  |..8.1,.(.(old_ti|
00000c20  6d 2a 32 2e 38 31 32 35  29 29 2a 31 30 30 2c 9b  |m*2.8125))*100,.|
00000c30  28 b2 28 6f 6c 64 5f 74  69 6d 2a 32 2e 38 31 32  |(.(old_tim*2.812|
00000c40  35 29 29 2a 31 30 30 0d  05 c8 08 e6 30 2c 31 0d  |5))*100.....0,1.|
00000c50  05 d2 0c ec 35 30 30 2c  35 30 30 0d 05 dc 30 f0  |....500,500...0.|
00000c60  31 2c b5 28 b2 28 74 69  6d 2a 32 2e 38 31 32 35  |1,.(.(tim*2.8125|
00000c70  29 29 2a 31 30 30 2c 9b  28 b2 28 74 69 6d 2a 32  |))*100,.(.(tim*2|
00000c80  2e 38 31 32 35 29 29 2a  31 30 30 0d 05 e6 1b f1  |.8125))*100.....|
00000c90  8a 30 2c 37 29 3b 22 54  69 6d 65 3a 22 3b 74 69  |.0,7);"Time:";ti|
00000ca0  6d 3b 89 28 32 29 0d 05  f0 0b f5 20 6b 65 79 3d  |m;.(2)..... key=|
00000cb0  a5 0d 05 fa 0b 2a 46 58  32 31 2c 30 0d 06 04 21  |.....*FX21,0...!|
00000cc0  fd 20 20 6b 65 79 3d 31  33 20 84 20 6b 65 79 3d  |.  key=13 . key=|
00000cd0  31 33 36 20 84 20 6b 65  79 3d 31 33 37 0d 06 0e  |136 . key=137...|
00000ce0  0f 6f 6c 64 5f 74 69 6d  3d 74 69 6d 0d 06 18 1c  |.old_tim=tim....|
00000cf0  e7 20 a6 28 2d 31 29 20  64 69 66 66 3d 31 30 20  |. .(-1) diff=10 |
00000d00  8b 20 64 69 66 66 3d 31  0d 06 22 1a e7 20 6b 65  |. diff=1..".. ke|
00000d10  79 3d 31 33 36 20 74 69  6d 3d 74 69 6d 2d 64 69  |y=136 tim=tim-di|
00000d20  66 66 0d 06 2c 1a e7 20  6b 65 79 3d 31 33 37 20  |ff..,.. key=137 |
00000d30  74 69 6d 3d 74 69 6d 2b  64 69 66 66 0d 06 36 11  |tim=tim+diff..6.|
00000d40  74 69 6d 3d 74 69 6d 20  83 20 31 32 38 0d 06 40  |tim=tim . 128..@|
00000d50  17 e7 20 74 69 6d 3c 30  20 74 69 6d 3d 31 32 38  |.. tim<0 tim=128|
00000d60  2b 74 69 6d 0d 06 4a 0c  fd 20 6b 65 79 3d 31 33  |+tim..J.. key=13|
00000d70  0d 06 54 20 f1 8a 31 2c  32 35 29 3b 22 41 75 74  |..T ..1,25);"Aut|
00000d80  6f 20 72 65 70 65 61 74  3f 20 28 59 2f 4e 29 22  |o repeat? (Y/N)"|
00000d90  0d 06 5e 0b f5 20 6b 65  79 3d a5 0d 06 68 15 fd  |..^.. key=...h..|
00000da0  20 6b 65 79 3d 37 38 20  84 20 6b 65 79 3d 38 39  | key=78 . key=89|
00000db0  0d 06 72 18 e7 20 6b 65  79 3d 38 39 20 74 69 6d  |..r.. key=89 tim|
00000dc0  3d 74 69 6d 2b 31 32 38  0d 06 7c 13 54 28 65 6e  |=tim+128..|.T(en|
00000dd0  76 65 6c 6f 70 65 29 3d  74 69 6d 0d 06 86 0b f2  |velope)=tim.....|
00000de0  72 65 74 75 72 6e 0d 06  90 05 e1 0d 06 9a 05 20  |return......... |
00000df0  0d 06 a4 0b dd f2 70 69  74 63 68 0d 06 ae 10 ea  |......pitch.....|
00000e00  20 70 69 74 63 68 2c 74  69 6d 65 0d 06 b8 05 db  | pitch,time.....|
00000e10  0d 06 c2 2e f1 8a 30 2c  31 29 3b 22 55 73 65 20  |......0,1);"Use |
00000e20  63 75 72 73 6f 72 20 6b  65 79 73 20 74 6f 20 63  |cursor keys to c|
00000e30  6f 6e 74 72 6f 6c 20 67  72 61 70 68 2e 22 0d 06  |ontrol graph."..|
00000e40  cc 22 f1 22 50 72 65 73  73 20 72 65 74 75 72 6e  |."."Press return|
00000e50  20 77 68 65 6e 20 63 6f  6d 70 6c 65 74 65 2e 22  | when complete."|
00000e60  0d 06 d6 24 f1 22 55 73  65 20 73 68 69 66 74 20  |...$."Use shift |
00000e70  66 6f 72 20 65 78 74 72  61 20 6d 6f 76 65 6d 65  |for extra moveme|
00000e80  6e 74 2e 22 0d 06 e0 31  f2 63 72 6f 73 73 28 50  |nt."...1.cross(P|
00000e90  4e 31 28 65 6e 76 65 6c  6f 70 65 29 2a 33 2c 28  |N1(envelope)*3,(|
00000ea0  50 49 31 28 65 6e 76 65  6c 6f 70 65 29 2b 31 32  |PI1(envelope)+12|
00000eb0  38 29 2a 33 29 0d 06 ea  31 f2 63 72 6f 73 73 28  |8)*3)...1.cross(|
00000ec0  50 4e 32 28 65 6e 76 65  6c 6f 70 65 29 2a 33 2c  |PN2(envelope)*3,|
00000ed0  28 50 49 32 28 65 6e 76  65 6c 6f 70 65 29 2b 31  |(PI2(envelope)+1|
00000ee0  32 38 29 2a 33 29 0d 06  f4 31 f2 63 72 6f 73 73  |28)*3)...1.cross|
00000ef0  28 50 4e 33 28 65 6e 76  65 6c 6f 70 65 29 2a 33  |(PN3(envelope)*3|
00000f00  2c 28 50 49 33 28 65 6e  76 65 6c 6f 70 65 29 2b  |,(PI3(envelope)+|
00000f10  31 32 38 29 2a 33 29 0d  06 fe 17 70 69 74 63 68  |128)*3)....pitch|
00000f20  3d 50 49 31 28 65 6e 76  65 6c 6f 70 65 29 0d 07  |=PI1(envelope)..|
00000f30  08 16 74 69 6d 65 3d 50  4e 31 28 65 6e 76 65 6c  |..time=PN1(envel|
00000f40  6f 70 65 29 0d 07 12 0f  f2 70 69 67 72 61 70 68  |ope).....pigraph|
00000f50  28 31 29 0d 07 1c 17 50  49 31 28 65 6e 76 65 6c  |(1)....PI1(envel|
00000f60  6f 70 65 29 3d 70 69 74  63 68 0d 07 26 16 50 4e  |ope)=pitch..&.PN|
00000f70  31 28 65 6e 76 65 6c 6f  70 65 29 3d 74 69 6d 65  |1(envelope)=time|
00000f80  0d 07 30 17 70 69 74 63  68 3d 50 49 32 28 65 6e  |..0.pitch=PI2(en|
00000f90  76 65 6c 6f 70 65 29 0d  07 3a 16 74 69 6d 65 3d  |velope)..:.time=|
00000fa0  50 4e 32 28 65 6e 76 65  6c 6f 70 65 29 0d 07 44  |PN2(envelope)..D|
00000fb0  0f f2 70 69 67 72 61 70  68 28 32 29 0d 07 4e 17  |..pigraph(2)..N.|
00000fc0  50 49 32 28 65 6e 76 65  6c 6f 70 65 29 3d 70 69  |PI2(envelope)=pi|
00000fd0  74 63 68 0d 07 58 16 50  4e 32 28 65 6e 76 65 6c  |tch..X.PN2(envel|
00000fe0  6f 70 65 29 3d 74 69 6d  65 0d 07 62 17 70 69 74  |ope)=time..b.pit|
00000ff0  63 68 3d 50 49 33 28 65  6e 76 65 6c 6f 70 65 29  |ch=PI3(envelope)|
00001000  0d 07 6c 16 74 69 6d 65  3d 50 4e 33 28 65 6e 76  |..l.time=PN3(env|
00001010  65 6c 6f 70 65 29 0d 07  76 0f f2 70 69 67 72 61  |elope)..v..pigra|
00001020  70 68 28 33 29 0d 07 80  17 50 49 33 28 65 6e 76  |ph(3)....PI3(env|
00001030  65 6c 6f 70 65 29 3d 70  69 74 63 68 0d 07 8a 16  |elope)=pitch....|
00001040  50 4e 33 28 65 6e 76 65  6c 6f 70 65 29 3d 74 69  |PN3(envelope)=ti|
00001050  6d 65 0d 07 94 05 e1 0d  07 9e 05 20 0d 07 a8 10  |me......... ....|
00001060  dd f2 70 69 67 72 61 70  68 28 78 29 0d 07 b2 2d  |..pigraph(x)...-|
00001070  ea 6e 75 6d 2c 66 61 63  74 6f 72 2c 79 2c 6f 6c  |.num,factor,y,ol|
00001080  64 5f 70 69 74 63 68 2c  6f 6c 64 5f 74 69 6d 65  |d_pitch,old_time|
00001090  2c 6b 65 79 2c 64 69 66  66 0d 07 bc 13 70 69 74  |,key,diff....pit|
000010a0  63 68 3d 70 69 74 63 68  2b 31 32 38 0d 07 c6 0b  |ch=pitch+128....|
000010b0  ec 31 34 30 2c 39 30 0d  07 d0 0c df 31 34 30 2c  |.140,90.....140,|
000010c0  38 38 30 0d 07 da 0b ec  31 34 30 2c 39 30 0d 07  |880.....140,90..|
000010d0  e4 0b df 39 30 30 2c 39  30 0d 07 ee 06 ef 35 0d  |...900,90.....5.|
000010e0  07 f8 0c 66 61 63 74 6f  72 3d 32 0d 08 02 0f e3  |...factor=2.....|
000010f0  20 6e 75 6d 3d 30 20 b8  20 35 0d 08 0c 12 ec 20  | num=0 . 5..... |
00001100  66 61 63 74 6f 72 2a 35  30 2c 37 30 0d 08 16 0b  |factor*50,70....|
00001110  f1 6e 75 6d 2a 35 30 0d  08 20 13 66 61 63 74 6f  |.num*50.. .facto|
00001120  72 3d 66 61 63 74 6f 72  2b 33 0d 08 2a 05 ed 0d  |r=factor+3..*...|
00001130  08 34 0a f7 20 8d 64 5e  52 0d 08 3e 0f e3 20 6e  |.4.. .d^R..>.. n|
00001140  75 6d 3d 30 20 b8 20 36  0d 08 48 09 f3 20 79 2c  |um=0 . 6..H.. y,|
00001150  6e 0d 08 52 08 ec 30 2c  79 0d 08 5c 06 f1 6e 0d  |n..R..0,y..\..n.|
00001160  08 66 05 ed 0d 08 70 1a  ef 34 2c 32 34 2c 31 34  |.f....p..4,24,14|
00001170  35 3b 39 35 3b 31 32 37  39 3b 39 30 30 3b 0d 08  |5;95;1279;900;..|
00001180  7a 25 f1 8a 33 30 2c 31  30 29 3b 22 50 49 31 3a  |z%..30,10);"PI1:|
00001190  22 50 49 31 28 65 6e 76  65 6c 6f 70 65 29 3b 89  |"PI1(envelope);.|
000011a0  28 32 29 0d 08 84 25 f1  8a 33 30 2c 31 31 29 3b  |(2)...%..30,11);|
000011b0  22 50 4e 31 3a 22 50 4e  31 28 65 6e 76 65 6c 6f  |"PN1:"PN1(envelo|
000011c0  70 65 29 3b 89 28 32 29  0d 08 8e 25 f1 8a 33 30  |pe);.(2)...%..30|
000011d0  2c 31 32 29 3b 22 50 49  32 3a 22 50 49 32 28 65  |,12);"PI2:"PI2(e|
000011e0  6e 76 65 6c 6f 70 65 29  3b 89 28 32 29 0d 08 98  |nvelope);.(2)...|
000011f0  25 f1 8a 33 30 2c 31 33  29 3b 22 50 4e 32 3a 22  |%..30,13);"PN2:"|
00001200  50 4e 32 28 65 6e 76 65  6c 6f 70 65 29 3b 89 28  |PN2(envelope);.(|
00001210  32 29 0d 08 a2 25 f1 8a  33 30 2c 31 34 29 3b 22  |2)...%..30,14);"|
00001220  50 49 33 3a 22 50 49 33  28 65 6e 76 65 6c 6f 70  |PI3:"PI3(envelop|
00001230  65 29 3b 89 28 32 29 0d  08 ac 25 f1 8a 33 30 2c  |e);.(2)...%..30,|
00001240  31 35 29 3b 22 50 4e 33  3a 22 50 4e 33 28 65 6e  |15);"PN3:"PN3(en|
00001250  76 65 6c 6f 70 65 29 3b  89 28 32 29 0d 08 b6 16  |velope);.(2)....|
00001260  f1 8a 33 30 2c 31 37 29  3b 22 43 75 72 72 65 6e  |..30,17);"Curren|
00001270  74 22 0d 08 c0 05 f5 0d  08 ca 11 f1 8a 30 2c 34  |t"...........0,4|
00001280  29 3b 22 50 49 22 3b 78  0d 08 d4 13 f1 8a 33 30  |);"PI";x......30|
00001290  2c 32 39 29 3b 22 50 4e  22 3b 78 0d 08 de 24 f1  |,29);"PN";x...$.|
000012a0  8a 33 30 2c 31 38 29 3b  22 50 69 74 63 68 3a 22  |.30,18);"Pitch:"|
000012b0  3b 70 69 74 63 68 2d 31  32 38 3b 89 28 32 29 0d  |;pitch-128;.(2).|
000012c0  08 e8 1e f1 8a 33 30 2c  31 39 29 3b 22 54 69 6d  |.....30,19);"Tim|
000012d0  65 3a 22 3b 74 69 6d 65  3b 89 28 32 29 0d 08 f2  |e:";time;.(2)...|
000012e0  13 6f 6c 64 5f 70 69 74  63 68 3d 70 69 74 63 68  |.old_pitch=pitch|
000012f0  0d 08 fc 11 6f 6c 64 5f  74 69 6d 65 3d 74 69 6d  |....old_time=tim|
00001300  65 0d 09 06 0d f5 20 2a  46 58 32 31 2c 30 0d 09  |e..... *FX21,0..|
00001310  10 09 6b 65 79 3d a5 0d  09 1a 34 fd 20 6b 65 79  |..key=....4. key|
00001320  3d 31 33 20 84 20 6b 65  79 3d 31 33 36 20 84 20  |=13 . key=136 . |
00001330  6b 65 79 3d 31 33 37 20  84 20 6b 65 79 3d 31 33  |key=137 . key=13|
00001340  38 20 84 20 6b 65 79 3d  31 33 39 0d 09 24 1c e7  |8 . key=139..$..|
00001350  20 a6 28 2d 31 29 20 64  69 66 66 3d 31 30 20 8b  | .(-1) diff=10 .|
00001360  20 64 69 66 66 3d 31 0d  09 2e 1c e7 20 6b 65 79  | diff=1..... key|
00001370  3d 31 33 36 20 74 69 6d  65 3d 74 69 6d 65 2d 64  |=136 time=time-d|
00001380  69 66 66 0d 09 38 13 e7  20 74 69 6d 65 3c 30 20  |iff..8.. time<0 |
00001390  74 69 6d 65 3d 30 0d 09  42 1c e7 20 6b 65 79 3d  |time=0..B.. key=|
000013a0  31 33 37 20 74 69 6d 65  3d 74 69 6d 65 2b 64 69  |137 time=time+di|
000013b0  66 66 0d 09 4c 17 e7 20  74 69 6d 65 3e 32 35 35  |ff..L.. time>255|
000013c0  20 74 69 6d 65 3d 32 35  35 0d 09 56 1e e7 20 6b  | time=255..V.. k|
000013d0  65 79 3d 31 33 38 20 70  69 74 63 68 3d 70 69 74  |ey=138 pitch=pit|
000013e0  63 68 2d 64 69 66 66 0d  09 60 15 e7 20 70 69 74  |ch-diff..`.. pit|
000013f0  63 68 3c 30 20 70 69 74  63 68 3d 30 0d 09 6a 1e  |ch<0 pitch=0..j.|
00001400  e7 20 6b 65 79 3d 31 33  39 20 70 69 74 63 68 3d  |. key=139 pitch=|
00001410  70 69 74 63 68 2b 64 69  66 66 0d 09 74 19 e7 20  |pitch+diff..t.. |
00001420  70 69 74 63 68 3e 32 35  35 20 70 69 74 63 68 3d  |pitch>255 pitch=|
00001430  32 35 35 0d 09 7e 08 e6  30 2c 30 0d 09 88 22 f2  |255..~..0,0...".|
00001440  63 72 6f 73 73 28 6f 6c  64 5f 74 69 6d 65 2a 33  |cross(old_time*3|
00001450  2c 6f 6c 64 5f 70 69 74  63 68 2a 33 29 0d 09 92  |,old_pitch*3)...|
00001460  08 e6 30 2c 31 0d 09 9c  1a f2 63 72 6f 73 73 28  |..0,1.....cross(|
00001470  74 69 6d 65 2a 33 2c 70  69 74 63 68 2a 33 29 0d  |time*3,pitch*3).|
00001480  09 a6 0c fd 20 6b 65 79  3d 31 33 0d 09 b0 13 70  |.... key=13....p|
00001490  69 74 63 68 3d 70 69 74  63 68 2d 31 32 38 0d 09  |itch=pitch-128..|
000014a0  ba 07 ef 32 36 0d 09 c4  05 e1 0d 09 ce 05 20 0d  |...26......... .|
000014b0  09 d8 09 dd f2 61 6d 70  0d 09 e2 12 ea 63 68 61  |.....amp.....cha|
000014c0  6e 67 65 2c 74 61 72 67  65 74 0d 09 ec 05 db 0d  |nge,target......|
000014d0  09 f6 17 63 68 61 6e 67  65 3d 41 41 28 65 6e 76  |...change=AA(env|
000014e0  65 6c 6f 70 65 29 0d 0a  00 18 74 61 72 67 65 74  |elope)....target|
000014f0  3d 41 4c 41 28 65 6e 76  65 6c 6f 70 65 29 0d 0a  |=ALA(envelope)..|
00001500  0a 23 f2 63 72 6f 73 73  28 74 61 72 67 65 74 2a  |.#.cross(target*|
00001510  33 2c 28 63 68 61 6e 67  65 2b 31 32 37 29 2a 33  |3,(change+127)*3|
00001520  29 0d 0a 14 30 f2 63 72  6f 73 73 28 41 4c 44 28  |)...0.cross(ALD(|
00001530  65 6e 76 65 6c 6f 70 65  29 2a 33 2c 28 41 44 28  |envelope)*3,(AD(|
00001540  65 6e 76 65 6c 6f 70 65  29 2b 31 32 37 29 2a 33  |envelope)+127)*3|
00001550  29 0d 0a 1e 11 f2 61 6d  67 72 61 70 68 28 22 41  |).....amgraph("A|
00001560  22 29 0d 0a 28 17 41 41  28 65 6e 76 65 6c 6f 70  |")..(.AA(envelop|
00001570  65 29 3d 63 68 61 6e 67  65 0d 0a 32 18 41 4c 41  |e)=change..2.ALA|
00001580  28 65 6e 76 65 6c 6f 70  65 29 3d 74 61 72 67 65  |(envelope)=targe|
00001590  74 0d 0a 3c 17 63 68 61  6e 67 65 3d 41 44 28 65  |t..<.change=AD(e|
000015a0  6e 76 65 6c 6f 70 65 29  0d 0a 46 18 74 61 72 67  |nvelope)..F.targ|
000015b0  65 74 3d 41 4c 44 28 65  6e 76 65 6c 6f 70 65 29  |et=ALD(envelope)|
000015c0  0d 0a 50 11 f2 61 6d 67  72 61 70 68 28 22 44 22  |..P..amgraph("D"|
000015d0  29 0d 0a 5a 17 41 44 28  65 6e 76 65 6c 6f 70 65  |)..Z.AD(envelope|
000015e0  29 3d 63 68 61 6e 67 65  0d 0a 64 18 41 4c 44 28  |)=change..d.ALD(|
000015f0  65 6e 76 65 6c 6f 70 65  29 3d 74 61 72 67 65 74  |envelope)=target|
00001600  0d 0a 6e 13 61 73 3d 41  53 28 65 6e 76 65 6c 6f  |..n.as=AS(envelo|
00001610  70 65 29 0d 0a 78 13 61  72 3d 41 52 28 65 6e 76  |pe)..x.ar=AR(env|
00001620  65 6c 6f 70 65 29 0d 0a  82 0e f2 61 73 61 72 67  |elope).....asarg|
00001630  72 61 70 68 0d 0a 8c 13  41 53 28 65 6e 76 65 6c  |raph....AS(envel|
00001640  6f 70 65 29 3d 61 73 0d  0a 96 13 41 52 28 65 6e  |ope)=as....AR(en|
00001650  76 65 6c 6f 70 65 29 3d  61 72 0d 0a a0 05 e1 0d  |velope)=ar......|
00001660  0a aa 05 20 0d 0a b4 15  dd f2 61 6d 67 72 61 70  |... ......amgrap|
00001670  68 28 6c 61 62 65 6c 24  29 0d 0a be 2e ea 20 79  |h(label$)..... y|
00001680  2c 6e 75 6d 2c 76 61 6c  2c 6f 6c 64 5f 74 61 72  |,num,val,old_tar|
00001690  67 65 74 2c 6f 6c 64 5f  63 68 61 6e 67 65 2c 6b  |get,old_change,k|
000016a0  65 79 2c 64 69 66 66 0d  0a c8 2e f1 8a 30 2c 31  |ey,diff......0,1|
000016b0  29 3b 22 55 73 65 20 63  75 72 73 6f 72 20 6b 65  |);"Use cursor ke|
000016c0  79 73 20 74 6f 20 63 6f  6e 74 72 6f 6c 20 67 72  |ys to control gr|
000016d0  61 70 68 2e 22 0d 0a d2  22 f1 22 50 72 65 73 73  |aph."..."."Press|
000016e0  20 72 65 74 75 72 6e 20  77 68 65 6e 20 63 6f 6d  | return when com|
000016f0  70 6c 65 74 65 2e 22 0d  0a dc 24 f1 22 55 73 65  |plete."...$."Use|
00001700  20 73 68 69 66 74 20 66  6f 72 20 65 78 74 72 61  | shift for extra|
00001710  20 6d 6f 76 65 6d 65 6e  74 2e 22 0d 0a e6 0b ec  | movement.".....|
00001720  31 34 30 2c 39 30 0d 0a  f0 0c df 31 34 30 2c 38  |140,90.....140,8|
00001730  38 30 0d 0a fa 0b ec 31  34 30 2c 39 30 0d 0b 04  |80.....140,90...|
00001740  0b df 37 30 30 2c 39 30  0d 0b 0e 0a f7 20 8d 64  |..700,90..... .d|
00001750  68 52 0d 0b 18 06 ef 35  0d 0b 22 0f e3 20 6e 75  |hR.....5..".. nu|
00001760  6d 3d 30 20 b8 20 36 0d  0b 2c 0b f3 20 79 2c 76  |m=0 . 6..,.. y,v|
00001770  61 6c 0d 0b 36 08 ec 30  2c 79 0d 0b 40 08 f1 76  |al..6..0,y..@..v|
00001780  61 6c 0d 0b 4a 05 ed 0d  0b 54 0c 66 61 63 74 6f  |al..J....T.facto|
00001790  72 3d 32 0d 0b 5e 0f e3  20 6e 75 6d 3d 30 20 b8  |r=2..^.. num=0 .|
000017a0  20 33 0d 0b 68 12 ec 20  66 61 63 74 6f 72 2a 35  | 3..h.. factor*5|
000017b0  30 2c 37 30 0d 0b 72 0b  f1 6e 75 6d 2a 35 30 0d  |0,70..r..num*50.|
000017c0  0b 7c 13 66 61 63 74 6f  72 3d 66 61 63 74 6f 72  |.|.factor=factor|
000017d0  2b 33 0d 0b 86 05 ed 0d  0b 90 06 ef 34 0d 0b 9a  |+3..........4...|
000017e0  15 f1 8a 30 2c 34 29 3b  22 41 22 3b 6c 61 62 65  |...0,4);"A";labe|
000017f0  6c 24 0d 0b a4 18 f1 8a  32 32 2c 32 39 29 3b 22  |l$......22,29);"|
00001800  41 4c 22 3b 6c 61 62 65  6c 24 0d 0b ae 1a ef 34  |AL";label$.....4|
00001810  2c 32 34 2c 31 34 35 3b  39 35 3b 31 32 37 39 3b  |,24,145;95;1279;|
00001820  39 30 30 3b 0d 0b b8 0d  f2 61 6d 70 5f 64 61 74  |900;.....amp_dat|
00001830  61 0d 0b c2 05 f5 0d 0b  cc 27 f1 8a 32 35 2c 31  |a........'..25,1|
00001840  38 29 3b 22 41 22 3b 6c  61 62 65 6c 24 3b 22 3a  |8);"A";label$;":|
00001850  22 3b 63 68 61 6e 67 65  3b 89 28 33 29 0d 0b d6  |";change;.(3)...|
00001860  28 f1 8a 32 35 2c 31 39  29 3b 22 41 4c 22 3b 6c  |(..25,19);"AL";l|
00001870  61 62 65 6c 24 3b 22 3a  22 3b 74 61 72 67 65 74  |abel$;":";target|
00001880  3b 89 28 33 29 0d 0b e0  15 6f 6c 64 5f 74 61 72  |;.(3)....old_tar|
00001890  67 65 74 3d 74 61 72 67  65 74 0d 0b ea 15 6f 6c  |get=target....ol|
000018a0  64 5f 63 68 61 6e 67 65  3d 63 68 61 6e 67 65 0d  |d_change=change.|
000018b0  0b f4 0d f5 20 2a 46 58  32 31 2c 30 0d 0b fe 09  |.... *FX21,0....|
000018c0  6b 65 79 3d a5 0d 0c 08  34 fd 20 6b 65 79 3d 31  |key=....4. key=1|
000018d0  33 20 84 20 6b 65 79 3d  31 33 36 20 84 20 6b 65  |3 . key=136 . ke|
000018e0  79 3d 31 33 37 20 84 20  6b 65 79 3d 31 33 38 20  |y=137 . key=138 |
000018f0  84 20 6b 65 79 3d 31 33  39 0d 0c 12 1c e7 20 a6  |. key=139..... .|
00001900  28 2d 31 29 20 64 69 66  66 3d 31 30 20 8b 20 64  |(-1) diff=10 . d|
00001910  69 66 66 3d 31 0d 0c 1c  20 e7 20 6b 65 79 3d 31  |iff=1... . key=1|
00001920  33 36 20 74 61 72 67 65  74 3d 74 61 72 67 65 74  |36 target=target|
00001930  2d 64 69 66 66 0d 0c 26  17 e7 20 74 61 72 67 65  |-diff..&.. targe|
00001940  74 3c 30 20 74 61 72 67  65 74 3d 30 0d 0c 30 20  |t<0 target=0..0 |
00001950  e7 20 6b 65 79 3d 31 33  37 20 74 61 72 67 65 74  |. key=137 target|
00001960  3d 74 61 72 67 65 74 2b  64 69 66 66 0d 0c 3a 1b  |=target+diff..:.|
00001970  e7 20 74 61 72 67 65 74  3e 31 32 36 20 74 61 72  |. target>126 tar|
00001980  67 65 74 3d 31 32 36 0d  0c 44 20 e7 20 6b 65 79  |get=126..D . key|
00001990  3d 31 33 38 20 63 68 61  6e 67 65 3d 63 68 61 6e  |=138 change=chan|
000019a0  67 65 2d 64 69 66 66 0d  0c 4e 1d e7 20 63 68 61  |ge-diff..N.. cha|
000019b0  6e 67 65 3c 2d 31 32 37  20 63 68 61 6e 67 65 3d  |nge<-127 change=|
000019c0  2d 31 32 37 0d 0c 58 20  e7 20 6b 65 79 3d 31 33  |-127..X . key=13|
000019d0  39 20 63 68 61 6e 67 65  3d 63 68 61 6e 67 65 2b  |9 change=change+|
000019e0  64 69 66 66 0d 0c 62 1b  e7 20 63 68 61 6e 67 65  |diff..b.. change|
000019f0  3e 31 32 37 20 63 68 61  6e 67 65 3d 31 32 37 0d  |>127 change=127.|
00001a00  0c 6c 08 e6 30 2c 30 0d  0c 76 2b f2 63 72 6f 73  |.l..0,0..v+.cros|
00001a10  73 28 6f 6c 64 5f 74 61  72 67 65 74 2a 33 2c 28  |s(old_target*3,(|
00001a20  6f 6c 64 5f 63 68 61 6e  67 65 2b 31 32 37 29 2a  |old_change+127)*|
00001a30  33 29 0d 0c 80 08 e6 30  2c 31 0d 0c 8a 23 f2 63  |3).....0,1...#.c|
00001a40  72 6f 73 73 28 74 61 72  67 65 74 2a 33 2c 28 63  |ross(target*3,(c|
00001a50  68 61 6e 67 65 2b 31 32  37 29 2a 33 29 0d 0c 94  |hange+127)*3)...|
00001a60  0c fd 20 6b 65 79 3d 31  33 0d 0c 9e 07 ef 32 36  |.. key=13.....26|
00001a70  0d 0c a8 05 e1 0d 0c b2  0f dd f2 61 73 61 72 67  |...........asarg|
00001a80  72 61 70 68 0d 0c bc 20  ea 20 6e 75 6d 2c 6b 65  |raph... . num,ke|
00001a90  79 2c 6f 6c 64 5f 61 73  2c 6f 6c 64 5f 61 72 2c  |y,old_as,old_ar,|
00001aa0  64 69 66 66 0d 0c c6 05  db 0d 0c d0 25 f2 63 72  |diff........%.cr|
00001ab0  6f 73 73 28 28 28 61 72  2b 31 32 37 29 2a 34 29  |oss(((ar+127)*4)|
00001ac0  2c 28 28 61 73 2b 31 32  37 29 2a 34 29 29 0d 0c  |,((as+127)*4))..|
00001ad0  da 2e f1 8a 30 2c 31 29  3b 22 55 73 65 20 63 75  |....0,1);"Use cu|
00001ae0  72 73 6f 72 20 6b 65 79  73 20 74 6f 20 63 6f 6e  |rsor keys to con|
00001af0  74 72 6f 6c 20 67 72 61  70 68 2e 22 0d 0c e4 22  |trol graph."..."|
00001b00  f1 22 50 72 65 73 73 20  72 65 74 75 72 6e 20 77  |."Press return w|
00001b10  68 65 6e 20 63 6f 6d 70  6c 65 74 65 2e 22 0d 0c  |hen complete."..|
00001b20  ee 24 f1 22 55 73 65 20  73 68 69 66 74 20 66 6f  |.$."Use shift fo|
00001b30  72 20 65 78 74 72 61 20  6d 6f 76 65 6d 65 6e 74  |r extra movement|
00001b40  2e 22 0d 0c f8 0b ec 31  34 30 2c 39 30 0d 0d 02  |.".....140,90...|
00001b50  0c df 31 34 30 2c 38 38  30 0d 0d 0c 0b ec 31 34  |..140,880.....14|
00001b60  30 2c 39 30 0d 0d 16 0b  df 37 30 30 2c 39 30 0d  |0,90.....700,90.|
00001b70  0d 20 06 ef 35 0d 0d 2a  17 e3 20 6e 75 6d 3d 2d  |. ..5..*.. num=-|
00001b80  31 32 37 20 b8 20 30 20  88 20 35 30 0d 0d 34 19  |127 . 0 . 50..4.|
00001b90  ec 20 28 28 6e 75 6d 2b  31 32 37 29 2a 34 29 2b  |. ((num+127)*4)+|
00001ba0  32 30 2c 38 30 0d 0d 3e  09 f1 20 6e 75 6d 0d 0d  |20,80..>.. num..|
00001bb0  48 19 ec 20 30 2c 28 28  6e 75 6d 2b 31 32 37 29  |H.. 0,((num+127)|
00001bc0  2a 34 29 2b 31 32 30 0d  0d 52 09 f1 20 6e 75 6d  |*4)+120..R.. num|
00001bd0  0d 0d 5c 05 ed 0d 0d 66  0b ec 20 30 2c 36 32 38  |..\....f.. 0,628|
00001be0  0d 0d 70 06 f1 30 0d 0d  7a 0c ec 20 35 32 38 2c  |..p..0..z.. 528,|
00001bf0  38 30 0d 0d 84 06 f1 30  0d 0d 8e 06 ef 34 0d 0d  |80.....0.....4..|
00001c00  98 0f f1 8a 32 2c 34 29  3b 22 41 53 22 0d 0d a2  |....2,4);"AS"...|
00001c10  11 f1 8a 32 35 2c 32 39  29 3b 22 41 52 22 0d 0d  |...25,29);"AR"..|
00001c20  ac 1a ef 34 2c 32 34 2c  31 34 35 3b 39 35 3b 31  |...4,24,145;95;1|
00001c30  32 37 39 3b 39 30 30 3b  0d 0d b6 0d f2 61 6d 70  |279;900;.....amp|
00001c40  5f 64 61 74 61 0d 0d c0  05 f5 0d 0d ca 1a f1 8a  |_data...........|
00001c50  32 35 2c 31 38 29 3b 22  41 53 3a 22 3b 61 73 3b  |25,18);"AS:";as;|
00001c60  22 20 20 22 0d 0d d4 1a  f1 8a 32 35 2c 31 39 29  |"  "......25,19)|
00001c70  3b 22 41 52 3a 22 3b 61  72 3b 22 20 20 22 0d 0d  |;"AR:";ar;"  "..|
00001c80  de 0d 6f 6c 64 5f 61 73  3d 61 73 0d 0d e8 0d 6f  |..old_as=as....o|
00001c90  6c 64 5f 61 72 3d 61 72  0d 0d f2 0d f5 20 2a 46  |ld_ar=ar..... *F|
00001ca0  58 32 31 2c 30 0d 0d fc  09 6b 65 79 3d a5 0d 0e  |X21,0....key=...|
00001cb0  06 34 fd 20 6b 65 79 3d  31 33 20 84 20 6b 65 79  |.4. key=13 . key|
00001cc0  3d 31 33 36 20 84 20 6b  65 79 3d 31 33 37 20 84  |=136 . key=137 .|
00001cd0  20 6b 65 79 3d 31 33 38  20 84 20 6b 65 79 3d 31  | key=138 . key=1|
00001ce0  33 39 0d 0e 10 1c e7 20  a6 28 2d 31 29 20 64 69  |39..... .(-1) di|
00001cf0  66 66 3d 31 30 20 8b 20  64 69 66 66 3d 31 0d 0e  |ff=10 . diff=1..|
00001d00  1a 18 e7 20 6b 65 79 3d  31 33 36 20 61 72 3d 61  |... key=136 ar=a|
00001d10  72 2d 64 69 66 66 0d 0e  24 15 e7 20 61 72 3c 2d  |r-diff..$.. ar<-|
00001d20  31 32 37 20 61 72 3d 2d  31 32 37 0d 0e 2e 18 e7  |127 ar=-127.....|
00001d30  20 6b 65 79 3d 31 33 37  20 61 72 3d 61 72 2b 64  | key=137 ar=ar+d|
00001d40  69 66 66 0d 0e 38 0f e7  20 61 72 3e 30 20 61 72  |iff..8.. ar>0 ar|
00001d50  3d 30 0d 0e 42 18 e7 20  6b 65 79 3d 31 33 38 20  |=0..B.. key=138 |
00001d60  61 73 3d 61 73 2d 64 69  66 66 0d 0e 4c 15 e7 20  |as=as-diff..L.. |
00001d70  61 73 3c 2d 31 32 37 20  61 73 3d 2d 31 32 37 0d  |as<-127 as=-127.|
00001d80  0e 56 18 e7 20 6b 65 79  3d 31 33 39 20 61 73 3d  |.V.. key=139 as=|
00001d90  61 73 2b 64 69 66 66 0d  0e 60 0f e7 20 61 73 3e  |as+diff..`.. as>|
00001da0  30 20 61 73 3d 30 0d 0e  6a 08 e6 30 2c 30 0d 0e  |0 as=0..j..0,0..|
00001db0  74 2d f2 63 72 6f 73 73  28 28 28 6f 6c 64 5f 61  |t-.cross(((old_a|
00001dc0  72 2b 31 32 37 29 2a 34  29 2c 28 28 6f 6c 64 5f  |r+127)*4),((old_|
00001dd0  61 73 2b 31 32 37 29 2a  34 29 29 0d 0e 7e 08 e6  |as+127)*4))..~..|
00001de0  30 2c 31 0d 0e 88 25 f2  63 72 6f 73 73 28 28 28  |0,1...%.cross(((|
00001df0  61 72 2b 31 32 37 29 2a  34 29 2c 28 28 61 73 2b  |ar+127)*4),((as+|
00001e00  31 32 37 29 2a 34 29 29  0d 0e 92 0c fd 20 6b 65  |127)*4))..... ke|
00001e10  79 3d 31 33 0d 0e 9c 07  ef 32 36 0d 0e a6 05 e1  |y=13.....26.....|
00001e20  0d 0e b0 05 20 0d 0e ba  0a dd f2 6b 69 6c 6c 0d  |.... ......kill.|
00001e30  0e c4 11 ea 20 63 68 61  6e 6e 65 6c 2c 6b 65 79  |.... channel,key|
00001e40  0d 0e ce 05 db 0d 0e d8  05 f5 0d 0e e2 05 f5 0d  |................|
00001e50  0e ec 22 e8 22 57 68 69  63 68 20 73 6f 75 6e 64  |.."."Which sound|
00001e60  20 63 68 61 6e 6e 65 6c  3f 22 63 68 61 6e 6e 65  | channel?"channe|
00001e70  6c 0d 0e f6 1c fd 20 63  68 61 6e 6e 65 6c 3e 2d  |l..... channel>-|
00001e80  31 20 80 20 63 68 61 6e  6e 65 6c 3c 34 0d 0f 00  |1 . channel<4...|
00001e90  15 d4 31 36 2b 63 68 61  6e 6e 65 6c 2c 30 2c 30  |..16+channel,0,0|
00001ea0  2c 30 0d 0f 0a 11 6f 6e  28 63 68 61 6e 6e 65 6c  |,0....on(channel|
00001eb0  29 3d 30 0d 0f 14 29 f1  22 44 6f 20 79 6f 75 20  |)=0...)."Do you |
00001ec0  77 69 73 68 20 74 6f 20  6b 69 6c 6c 20 61 6e 6f  |wish to kill ano|
00001ed0  74 68 65 72 20 73 6f 75  6e 64 3f 22 0d 0f 1e 0b  |ther sound?"....|
00001ee0  2a 46 58 32 31 2c 30 0d  0f 28 0f 6b 65 79 3d a4  |*FX21,0..(.key=.|
00001ef0  79 65 73 5f 6e 6f 0d 0f  3c 0b fd 20 6b 65 79 3d  |yes_no..<.. key=|
00001f00  a3 0d 0f 46 05 e1 0d 0f  50 05 20 0d 0f 5a 0a dd  |...F....P. ..Z..|
00001f10  f2 63 6f 70 79 0d 0f 64  11 ea 20 74 6f 2c 66 72  |.copy..d.. to,fr|
00001f20  6f 6d 2c 6b 65 79 0d 0f  6e 05 db 0d 0f 78 05 f5  |om,key..n....x..|
00001f30  0d 0f 82 05 f5 0d 0f 8c  33 e8 22 57 68 69 63 68  |........3."Which|
00001f40  20 65 6e 76 65 6c 6f 70  65 20 64 6f 20 79 6f 75  | envelope do you|
00001f50  20 77 69 73 68 20 74 6f  20 63 6f 70 79 20 66 72  | wish to copy fr|
00001f60  6f 6d 22 2c 66 72 6f 6d  0d 0f 96 2f e8 22 57 68  |om",from.../."Wh|
00001f70  69 63 68 20 65 6e 76 65  6c 6f 70 65 20 64 6f 20  |ich envelope do |
00001f80  79 6f 75 20 77 69 73 68  20 74 6f 20 63 6f 70 79  |you wish to copy|
00001f90  20 74 6f 22 2c 74 6f 0d  0f a0 23 fd 20 66 72 6f  | to",to...#. fro|
00001fa0  6d 3e 30 20 80 20 66 72  6f 6d 3c 35 20 80 20 74  |m>0 . from<5 . t|
00001fb0  6f 3e 30 20 80 20 74 6f  3c 35 0d 0f aa 19 6e 61  |o>0 . to<5....na|
00001fc0  6d 65 24 28 74 6f 29 3d  6e 61 6d 65 24 28 66 72  |me$(to)=name$(fr|
00001fd0  6f 6d 29 0d 0f b4 11 54  28 74 6f 29 3d 54 28 66  |om)....T(to)=T(f|
00001fe0  72 6f 6d 29 0d 0f be 15  50 49 31 28 74 6f 29 3d  |rom)....PI1(to)=|
00001ff0  50 49 31 28 66 72 6f 6d  29 0d 0f c8 15 50 49 32  |PI1(from)....PI2|
00002000  28 74 6f 29 3d 50 49 32  28 66 72 6f 6d 29 0d 0f  |(to)=PI2(from)..|
00002010  d2 15 50 49 33 28 74 6f  29 3d 50 49 33 28 66 72  |..PI3(to)=PI3(fr|
00002020  6f 6d 29 0d 0f dc 15 50  4e 31 28 74 6f 29 3d 50  |om)....PN1(to)=P|
00002030  4e 31 28 66 72 6f 6d 29  0d 0f e6 15 50 4e 32 28  |N1(from)....PN2(|
00002040  74 6f 29 3d 50 4e 32 28  66 72 6f 6d 29 0d 0f f0  |to)=PN2(from)...|
00002050  15 50 4e 33 28 74 6f 29  3d 50 4e 33 28 66 72 6f  |.PN3(to)=PN3(fro|
00002060  6d 29 0d 0f fa 13 41 41  28 74 6f 29 3d 41 41 28  |m)....AA(to)=AA(|
00002070  66 72 6f 6d 29 0d 10 04  13 41 44 28 74 6f 29 3d  |from)....AD(to)=|
00002080  41 44 28 66 72 6f 6d 29  0d 10 0e 13 41 53 28 74  |AD(from)....AS(t|
00002090  6f 29 3d 41 53 28 66 72  6f 6d 29 0d 10 18 13 41  |o)=AS(from)....A|
000020a0  52 28 74 6f 29 3d 41 52  28 66 72 6f 6d 29 0d 10  |R(to)=AR(from)..|
000020b0  22 15 41 4c 41 28 74 6f  29 3d 41 4c 41 28 66 72  |".ALA(to)=ALA(fr|
000020c0  6f 6d 29 0d 10 2c 15 41  4c 44 28 74 6f 29 3d 41  |om)..,.ALD(to)=A|
000020d0  4c 44 28 66 72 6f 6d 29  0d 10 36 2c f1 22 44 6f  |LD(from)..6,."Do|
000020e0  20 79 6f 75 20 77 69 73  68 20 74 6f 20 63 6f 70  | you wish to cop|
000020f0  79 20 61 6e 6f 74 68 65  72 20 65 6e 76 65 6c 6f  |y another envelo|
00002100  70 65 3f 22 0d 10 40 0b  f5 20 6b 65 79 3d a5 0d  |pe?"..@.. key=..|
00002110  10 4a 15 fd 20 6b 65 79  3d 37 38 20 84 20 6b 65  |.J.. key=78 . ke|
00002120  79 3d 38 39 0d 10 54 0c  fd 20 6b 65 79 3d 37 38  |y=89..T.. key=78|
00002130  0d 10 5e 05 e1 0d 10 68  05 20 0d 10 72 0c dd f2  |..^....h. ..r...|
00002140  64 69 72 65 63 74 0d 10  7c 05 db 0d 10 86 34 f1  |direct..|.....4.|
00002150  22 49 6e 70 75 74 20 76  61 6c 75 65 20 6f 72 20  |"Input value or |
00002160  70 72 65 73 73 20 72 65  74 75 72 6e 20 74 6f 20  |press return to |
00002170  6b 65 65 70 20 6f 6c 64  20 76 61 6c 75 65 22 0d  |keep old value".|
00002180  10 90 18 f1 22 45 6e 76  65 6c 6f 70 65 3a 22 65  |...."Envelope:"e|
00002190  6e 76 65 6c 6f 70 65 0d  10 9a 29 54 28 65 6e 76  |nvelope...)T(env|
000021a0  65 6c 6f 70 65 29 3d a4  67 65 74 28 54 28 65 6e  |elope)=.get(T(en|
000021b0  76 65 6c 6f 70 65 29 2c  31 2c 30 2c 32 35 35 29  |velope),1,0,255)|
000021c0  0d 10 a4 30 50 49 31 28  65 6e 76 65 6c 6f 70 65  |...0PI1(envelope|
000021d0  29 3d a4 67 65 74 28 50  49 31 28 65 6e 76 65 6c  |)=.get(PI1(envel|
000021e0  6f 70 65 29 2c 32 2c 2d  31 32 38 2c 31 32 37 29  |ope),2,-128,127)|
000021f0  0d 10 ae 30 50 49 32 28  65 6e 76 65 6c 6f 70 65  |...0PI2(envelope|
00002200  29 3d a4 67 65 74 28 50  49 32 28 65 6e 76 65 6c  |)=.get(PI2(envel|
00002210  6f 70 65 29 2c 33 2c 2d  31 32 38 2c 31 32 37 29  |ope),3,-128,127)|
00002220  0d 10 b8 30 50 49 33 28  65 6e 76 65 6c 6f 70 65  |...0PI3(envelope|
00002230  29 3d a4 67 65 74 28 50  49 33 28 65 6e 76 65 6c  |)=.get(PI3(envel|
00002240  6f 70 65 29 2c 34 2c 2d  31 32 38 2c 31 32 37 29  |ope),4,-128,127)|
00002250  0d 10 c2 2d 50 4e 31 28  65 6e 76 65 6c 6f 70 65  |...-PN1(envelope|
00002260  29 3d a4 67 65 74 28 50  4e 31 28 65 6e 76 65 6c  |)=.get(PN1(envel|
00002270  6f 70 65 29 2c 35 2c 30  2c 32 35 35 29 0d 10 cc  |ope),5,0,255)...|
00002280  2d 50 4e 32 28 65 6e 76  65 6c 6f 70 65 29 3d a4  |-PN2(envelope)=.|
00002290  67 65 74 28 50 4e 32 28  65 6e 76 65 6c 6f 70 65  |get(PN2(envelope|
000022a0  29 2c 36 2c 30 2c 32 35  35 29 0d 10 d6 2d 50 4e  |),6,0,255)...-PN|
000022b0  33 28 65 6e 76 65 6c 6f  70 65 29 3d a4 67 65 74  |3(envelope)=.get|
000022c0  28 50 4e 33 28 65 6e 76  65 6c 6f 70 65 29 2c 37  |(PN3(envelope),7|
000022d0  2c 30 2c 32 35 35 29 0d  10 e0 2e 41 41 28 65 6e  |,0,255)....AA(en|
000022e0  76 65 6c 6f 70 65 29 3d  a4 67 65 74 28 41 41 28  |velope)=.get(AA(|
000022f0  65 6e 76 65 6c 6f 70 65  29 2c 38 2c 2d 31 32 37  |envelope),8,-127|
00002300  2c 31 32 37 29 0d 10 ea  2e 41 44 28 65 6e 76 65  |,127)....AD(enve|
00002310  6c 6f 70 65 29 3d a4 67  65 74 28 41 44 28 65 6e  |lope)=.get(AD(en|
00002320  76 65 6c 6f 70 65 29 2c  39 2c 2d 31 32 37 2c 31  |velope),9,-127,1|
00002330  32 37 29 0d 10 f4 2d 41  53 28 65 6e 76 65 6c 6f  |27)...-AS(envelo|
00002340  70 65 29 3d a4 67 65 74  28 41 53 28 65 6e 76 65  |pe)=.get(AS(enve|
00002350  6c 6f 70 65 29 2c 31 30  2c 2d 31 32 37 2c 30 29  |lope),10,-127,0)|
00002360  0d 10 fe 2d 41 52 28 65  6e 76 65 6c 6f 70 65 29  |...-AR(envelope)|
00002370  3d a4 67 65 74 28 41 52  28 65 6e 76 65 6c 6f 70  |=.get(AR(envelop|
00002380  65 29 2c 31 31 2c 2d 31  32 37 2c 30 29 0d 11 08  |e),11,-127,0)...|
00002390  2e 41 4c 41 28 65 6e 76  65 6c 6f 70 65 29 3d a4  |.ALA(envelope)=.|
000023a0  67 65 74 28 41 4c 41 28  65 6e 76 65 6c 6f 70 65  |get(ALA(envelope|
000023b0  29 2c 31 32 2c 30 2c 31  32 36 29 0d 11 12 2e 41  |),12,0,126)....A|
000023c0  4c 44 28 65 6e 76 65 6c  6f 70 65 29 3d a4 67 65  |LD(envelope)=.ge|
000023d0  74 28 41 4c 44 28 65 6e  76 65 6c 6f 70 65 29 2c  |t(ALD(envelope),|
000023e0  31 33 2c 30 2c 31 32 36  29 0d 11 1c 0b f2 72 65  |13,0,126).....re|
000023f0  74 75 72 6e 0d 11 26 05  e1 0d 11 30 05 20 0d 11  |turn..&....0. ..|
00002400  3a 1f dd a4 67 65 74 28  63 75 72 72 65 6e 74 2c  |:...get(current,|
00002410  74 65 72 6d 2c 6d 69 6e  2c 6d 61 78 29 0d 11 44  |term,min,max)..D|
00002420  14 ea 20 6c 6f 6f 70 2c  71 24 2c 72 65 74 75 72  |.. loop,q$,retur|
00002430  6e 0d 11 4e 0a f7 20 8d  64 54 52 0d 11 58 13 e3  |n..N.. .dTR..X..|
00002440  20 6c 6f 6f 70 3d 31 20  b8 20 74 65 72 6d 0d 11  | loop=1 . term..|
00002450  62 0b f3 20 74 65 72 6d  24 0d 11 6c 05 ed 0d 11  |b.. term$..l....|
00002460  76 05 f5 0d 11 80 32 f1  74 65 72 6d 24 3b bd 28  |v.....2.term$;.(|
00002470  35 38 29 3b 63 75 72 72  65 6e 74 3b 8a 31 30 29  |58);current;.10)|
00002480  3b 22 28 22 3b 6d 69 6e  3b 22 2c 22 3b 6d 61 78  |;"(";min;",";max|
00002490  3b 22 29 22 3b 0d 11 8a  07 e8 71 24 0d 11 94 29  |;")";.....q$...)|
000024a0  e7 20 71 24 3d 22 22 20  72 65 74 75 72 6e 3d 63  |. q$="" return=c|
000024b0  75 72 72 65 6e 74 20 8b  20 72 65 74 75 72 6e 3d  |urrent . return=|
000024c0  a0 28 71 24 29 0d 11 9e  2b e7 20 72 65 74 75 72  |.(q$)...+. retur|
000024d0  6e 3c 6d 69 6e 20 84 20  72 65 74 75 72 6e 3e 6d  |n<min . return>m|
000024e0  61 78 20 f1 22 45 72 72  6f 72 22 3b bd 28 37 29  |ax ."Error";.(7)|
000024f0  0d 11 a8 21 fd 20 72 65  74 75 72 6e 3e 6d 69 6e  |...!. return>min|
00002500  2d 31 20 80 20 72 65 74  75 72 6e 3c 6d 61 78 2b  |-1 . return<max+|
00002510  31 0d 11 b2 0c 3a 3d 72  65 74 75 72 6e 0d 11 bc  |1....:=return...|
00002520  05 20 0d 11 c6 05 20 0d  11 d0 10 dd f2 63 72 6f  |. .... ......cro|
00002530  73 73 28 78 2c 79 29 0d  11 da 11 ec 20 78 2b 31  |ss(x,y)..... x+1|
00002540  35 30 2c 79 2b 31 30 30  0d 11 e4 0c f0 31 2c 2d  |50,y+100.....1,-|
00002550  31 30 2c 30 0d 11 ee 0b  f0 30 2c 35 2c 2d 35 0d  |10,0.....0,5,-5.|
00002560  11 f8 0b f0 31 2c 30 2c  31 30 0d 12 02 05 e1 0d  |....1,0,10......|
00002570  12 0c 05 20 0d 12 16 0e  dd f2 61 6d 70 5f 64 61  |... ......amp_da|
00002580  74 61 0d 12 20 16 f1 8a  32 35 2c 39 29 3b 22 4f  |ta.. ...25,9);"O|
00002590  72 69 67 69 6e 61 6c 22  0d 12 2a 1f f1 8a 32 35  |riginal"..*...25|
000025a0  2c 31 30 29 3b 22 41 41  3a 22 3b 41 41 28 65 6e  |,10);"AA:";AA(en|
000025b0  76 65 6c 6f 70 65 29 0d  12 34 1f f1 8a 32 35 2c  |velope)..4...25,|
000025c0  31 31 29 3b 22 41 44 3a  22 3b 41 44 28 65 6e 76  |11);"AD:";AD(env|
000025d0  65 6c 6f 70 65 29 0d 12  3e 1f f1 8a 32 35 2c 31  |elope)..>...25,1|
000025e0  32 29 3b 22 41 53 3a 22  3b 41 53 28 65 6e 76 65  |2);"AS:";AS(enve|
000025f0  6c 6f 70 65 29 0d 12 48  1f f1 8a 32 35 2c 31 33  |lope)..H...25,13|
00002600  29 3b 22 41 52 3a 22 3b  41 52 28 65 6e 76 65 6c  |);"AR:";AR(envel|
00002610  6f 70 65 29 0d 12 52 21  f1 8a 32 35 2c 31 34 29  |ope)..R!..25,14)|
00002620  3b 22 41 4c 41 3a 22 3b  41 4c 41 28 65 6e 76 65  |;"ALA:";ALA(enve|
00002630  6c 6f 70 65 29 0d 12 5c  21 f1 8a 32 35 2c 31 35  |lope)..\!..25,15|
00002640  29 3b 22 41 4c 44 3a 22  3b 41 4c 44 28 65 6e 76  |);"ALD:";ALD(env|
00002650  65 6c 6f 70 65 29 0d 12  66 16 f1 8a 32 35 2c 31  |elope)..f...25,1|
00002660  37 29 3b 22 43 75 72 72  65 6e 74 22 0d 12 70 05  |7);"Current"..p.|
00002670  e1 0d 12 7a 05 20 0d 12  84 0c dd f2 72 65 74 75  |...z. ......retu|
00002680  72 6e 0d 12 8e 06 ef 37  0d 12 98 1b f1 8a 31 35  |rn.....7......15|
00002690  2c 33 30 29 3b 22 50 72  65 73 73 20 52 65 74 75  |,30);"Press Retu|
000026a0  72 6e 22 0d 12 a2 0c f5  20 fd 20 a5 3d 31 33 0d  |rn"..... . .=13.|
000026b0  12 ac 05 e1 0d 12 b6 05  20 0d 12 c0 0a f4 20 64  |........ ..... d|
000026c0  61 74 61 0d 12 ca 0b f4  20 74 65 72 6d 73 0d 12  |ata..... terms..|
000026d0  d4 32 dc 54 2c 50 49 31  2c 50 49 32 2c 50 49 33  |.2.T,PI1,PI2,PI3|
000026e0  2c 50 4e 31 2c 50 4e 32  2c 50 4e 33 2c 41 41 2c  |,PN1,PN2,PN3,AA,|
000026f0  41 44 2c 41 53 2c 41 52  2c 41 4c 41 2c 41 4c 44  |AD,AS,AR,ALA,ALD|
00002700  0d 12 de 3b dc 31 30 30  2c 2d 31 32 38 2c 31 38  |...;.100,-128,18|
00002710  33 2c 2d 31 30 30 2c 33  32 39 2c 2d 35 30 2c 34  |3,-100,329,-50,4|
00002720  37 35 2c 30 2c 36 32 31  2c 35 30 2c 37 36 37 2c  |75,0,621,50,767,|
00002730  31 30 30 2c 38 35 30 2c  31 32 37 0d 12 e8 3b dc  |100,850,127...;.|
00002740  31 30 30 2c 2d 31 32 37  2c 31 38 33 2c 2d 31 30  |100,-127,183,-10|
00002750  30 2c 33 32 39 2c 2d 35  30 2c 34 37 35 2c 30 2c  |0,329,-50,475,0,|
00002760  36 32 31 2c 35 30 2c 37  36 37 2c 31 30 30 2c 38  |621,50,767,100,8|
00002770  35 30 2c 31 32 37 0d 12  f2 14 f4 20 45 72 72 6f  |50,127..... Erro|
00002780  72 20 68 61 6e 64 6c 69  6e 67 0d 12 fc 0e ef 32  |r handling.....2|
00002790  36 2c 34 2c 31 32 2c 37  0d 13 06 10 e7 20 9f 3d  |6,4,12,7..... .=|
000027a0  31 37 20 e5 8d 64 66 40  0d 13 10 34 e7 20 9f 3e  |17 ..df@...4. .>|
000027b0  31 38 39 20 f1 22 46 69  6c 69 6e 67 20 73 79 73  |189 ."Filing sys|
000027c0  74 65 6d 20 65 72 72 6f  72 3a 22 9f 3a f6 3a f2  |tem error:".:.:.|
000027d0  72 65 74 75 72 6e 3a e5  8d 64 66 40 0d 13 1a 05  |return:..df@....|
000027e0  f6 0d 13 24 12 f1 22 20  61 74 20 6c 69 6e 65 20  |...$.." at line |
000027f0  22 3b 9e 0d 13 2e 0a 2a  46 58 34 2c 30 0d 13 38  |";.....*FX4,0..8|
00002800  05 20 0d 13 42 0b dd f2  73 6f 75 6e 64 0d 13 4c  |. ..B...sound..L|
00002810  0a ea 20 6c 6f 6f 70 0d  13 56 1d f1 8a 31 33 2c  |.. loop..V...13,|
00002820  32 33 29 3b 22 53 6f 75  6e 64 20 63 68 61 6e 6e  |23);"Sound chann|
00002830  65 6c 73 22 0d 13 60 3e  f1 8a 33 2c 32 35 29 3b  |els"..`>..3,25);|
00002840  22 41 43 54 49 56 45 22  3b 8a 31 30 29 3b 22 45  |"ACTIVE";.10);"E|
00002850  4e 56 2f 56 4f 4c 22 3b  8a 32 30 29 3b 22 50 49  |NV/VOL";.20);"PI|
00002860  54 43 48 22 3b 8a 32 38  29 3b 22 4c 45 4e 47 54  |TCH";.28);"LENGT|
00002870  48 22 0d 13 6a 10 e3 20  6c 6f 6f 70 3d 30 20 b8  |H"..j.. loop=0 .|
00002880  20 33 0d 13 74 63 f1 8a  31 2c 32 36 2b 6c 6f 6f  | 3..tc..1,26+loo|
00002890  70 29 3b 6c 6f 6f 70 3b  bd 34 31 3b 8a 35 29 3b  |p);loop;.41;.5);|
000028a0  bd 28 31 32 38 2b 94 28  6f 6e 28 6c 6f 6f 70 29  |.(128+.(on(loop)|
000028b0  29 29 3b 8a 31 35 29 3b  65 6e 61 6d 28 6c 6f 6f  |));.15);enam(loo|
000028c0  70 29 3b 8a 32 34 29 3b  70 69 74 63 68 28 6c 6f  |p);.24);pitch(lo|
000028d0  6f 70 29 3b 8a 33 32 29  3b 6c 65 6e 67 74 68 28  |op);.32);length(|
000028e0  6c 6f 6f 70 29 0d 13 7e  05 ed 0d 13 88 05 e1 0d  |loop)..~........|
000028f0  13 92 05 20 0d 13 9c 0c  dd f2 73 65 74 5f 75 70  |... ......set_up|
00002900  0d 13 a6 09 ec 20 30 2c  30 0d 13 b0 0c df 20 30  |..... 0,0..... 0|
00002910  2c 31 30 32 33 0d 13 ba  0f df 20 31 32 37 38 2c  |,1023..... 1278,|
00002920  31 30 32 33 0d 13 c4 0c  df 20 31 32 37 38 2c 30  |1023..... 1278,0|
00002930  0d 13 ce 09 df 20 30 2c  30 0d 13 d8 0b ec 20 30  |..... 0,0..... 0|
00002940  2c 33 30 30 0d 13 e2 0e  df 20 31 32 37 38 2c 33  |,300..... 1278,3|
00002950  30 30 0d 13 ec 0e ec 20  34 30 30 2c 31 30 32 33  |00..... 400,1023|
00002960  0d 13 f6 0d df 20 34 30  30 2c 34 30 30 0d 14 00  |..... 400,400...|
00002970  0e df 20 31 32 37 39 2c  34 30 30 0d 14 0a 05 e1  |.. 1279,400.....|
00002980  0d 14 14 05 20 0d 14 1e  11 dd f2 73 63 72 65 65  |.... ......scree|
00002990  6e 5f 64 61 74 61 0d 14  28 10 ea 20 6c 6f 6f 70  |n_data..(.. loop|
000029a0  2c 74 65 72 6d 24 0d 14  32 40 f1 8a 32 2c 31 29  |,term$..2@..2,1)|
000029b0  3b 22 4e 61 6d 65 3a 22  3b 8a 32 2c 32 29 3b 6e  |;"Name:";.2,2);n|
000029c0  61 6d 65 24 28 65 6e 76  65 6c 6f 70 65 29 3b 8a  |ame$(envelope);.|
000029d0  32 2c 33 29 3b 22 4e 75  6d 62 65 72 3a 22 65 6e  |2,3);"Number:"en|
000029e0  76 65 6c 6f 70 65 0d 14  3c 0a f7 20 8d 64 54 52  |velope..<.. .dTR|
000029f0  0d 14 46 11 e3 20 6c 6f  6f 70 3d 30 20 b8 20 31  |..F.. loop=0 . 1|
00002a00  32 0d 14 50 0b f3 20 74  65 72 6d 24 0d 14 5a 41  |2..P.. term$..ZA|
00002a10  f1 8a 32 2c 6c 6f 6f 70  2b 36 29 3b 74 65 72 6d  |..2,loop+6);term|
00002a20  24 3b 8a 35 2c 6c 6f 6f  70 2b 36 29 3b 22 3a 22  |$;.5,loop+6);":"|
00002a30  3b a0 28 74 65 72 6d 24  2b 22 28 22 2b c3 28 65  |;.(term$+"("+.(e|
00002a40  6e 76 65 6c 6f 70 65 29  2b 22 29 22 29 0d 14 64  |nvelope)+")")..d|
00002a50  05 ed 0d 14 6e 4c e7 20  54 28 65 6e 76 65 6c 6f  |....nL. T(envelo|
00002a60  70 65 29 20 80 20 31 32  38 20 f1 8a 32 2c 32 30  |pe) . 128 ..2,20|
00002a70  29 3b 22 41 75 74 6f 20  72 65 70 65 61 74 20 6f  |);"Auto repeat o|
00002a80  6e 22 20 8b 20 f1 8a 32  2c 32 30 29 3b 22 41 75  |n" . ..2,20);"Au|
00002a90  74 6f 20 72 65 70 65 61  74 20 6f 66 66 22 0d 14  |to repeat off"..|
00002aa0  78 29 f1 8a 32 2c 32 31  29 3b 22 41 63 74 75 61  |x)..2,21);"Actua|
00002ab0  6c 20 54 3a 22 3b 54 28  65 6e 76 65 6c 6f 70 65  |l T:";T(envelope|
00002ac0  29 20 80 20 31 32 37 0d  14 82 05 e1 0d 14 8c 05  |) . 127.........|
00002ad0  20 0d 14 96 0a dd f2 6d  65 6e 75 0d 14 a0 1c f1  | ......menu.....|
00002ae0  20 8a 31 35 2c 31 29 3b  22 45 4d 41 44 53 20 4f  | .15,1);"EMADS O|
00002af0  50 54 49 4f 4e 53 22 0d  14 aa 22 f1 20 8a 31 34  |PTIONS"...". .14|
00002b00  2c 33 29 3b 22 45 20 2d  20 43 68 61 6e 67 65 20  |,3);"E - Change |
00002b10  45 6e 76 65 6c 6f 70 65  22 0d 14 b4 1e f1 20 8a  |Envelope"..... .|
00002b20  31 34 2c 34 29 3b 22 4e  20 2d 20 43 68 61 6e 67  |14,4);"N - Chang|
00002b30  65 20 4e 61 6d 65 22 0d  14 be 24 f1 20 8a 31 34  |e Name"...$. .14|
00002b40  2c 35 29 3b 22 44 20 2d  20 44 69 73 70 6c 61 79  |,5);"D - Display|
00002b50  20 45 6e 76 65 6c 6f 70  65 73 22 0d 14 c8 21 f1  | Envelopes"...!.|
00002b60  20 8a 31 34 2c 36 29 3b  22 53 20 2d 20 50 6c 61  | .14,6);"S - Pla|
00002b70  79 20 45 6e 76 65 6c 6f  70 65 73 22 0d 14 d2 1d  |y Envelopes"....|
00002b80  f1 20 8a 31 34 2c 37 29  3b 22 54 20 2d 20 41 6c  |. .14,7);"T - Al|
00002b90  74 65 72 20 54 69 6d 65  22 0d 14 dc 1e f1 20 8a  |ter Time"..... .|
00002ba0  31 34 2c 38 29 3b 22 50  20 2d 20 41 6c 74 65 72  |14,8);"P - Alter|
00002bb0  20 50 69 74 63 68 22 0d  14 e6 22 f1 20 8a 31 34  | Pitch"...". .14|
00002bc0  2c 39 29 3b 22 41 20 2d  20 41 6c 74 65 72 20 41  |,9);"A - Alter A|
00002bd0  6d 70 6c 69 74 75 64 65  22 0d 14 f0 20 f1 20 8a  |mplitude"... . .|
00002be0  31 34 2c 31 30 29 3b 22  4b 20 2d 20 4b 69 6c 6c  |14,10);"K - Kill|
00002bf0  20 61 20 73 6f 75 6e 64  22 0d 14 fa 21 f1 20 8a  | a sound"...!. .|
00002c00  31 34 2c 31 31 29 3b 22  43 20 2d 20 43 6f 70 79  |14,11);"C - Copy|
00002c10  20 45 6e 76 65 6c 6f 70  65 22 0d 15 04 28 f1 20  | Envelope"...(. |
00002c20  8a 31 34 2c 31 32 29 3b  22 42 20 2d 20 42 41 53  |.14,12);"B - BAS|
00002c30  49 43 20 49 6e 70 75 74  20 45 6e 76 65 6c 6f 70  |IC Input Envelop|
00002c40  65 22 0d 15 0e 21 f1 20  8a 31 34 2c 31 33 29 3b  |e"...!. .14,13);|
00002c50  22 49 20 2d 20 53 61 76  65 20 61 6e 64 20 4c 6f  |"I - Save and Lo|
00002c60  61 64 22 0d 15 18 1e f1  20 8a 31 34 2c 31 34 29  |ad"..... .14,14)|
00002c70  3b 22 2a 20 2d 20 4f 53  20 63 6f 6d 6d 61 6e 64  |;"* - OS command|
00002c80  22 0d 15 22 18 f1 20 8a  31 34 2c 31 35 29 3b 22  |"..".. .14,15);"|
00002c90  51 20 2d 20 51 75 69 74  22 0d 15 2c 33 f1 8a 31  |Q - Quit"..,3..1|
00002ca0  2c 33 30 29 3b 22 28 43  29 20 31 39 38 37 20 41  |,30);"(C) 1987 A|
00002cb0  6c 6c 61 6e 20 4b 65 6c  6c 79 20 26 20 44 61 76  |llan Kelly & Dav|
00002cc0  69 64 20 48 61 6c 6c 69  67 61 6e 22 0d 15 36 05  |id Halligan"..6.|
00002cd0  e1 0d 15 40 05 20 0d 15  4a 05 20 0d 15 54 0a dd  |...@. ..J. ..T..|
00002ce0  f2 64 69 73 63 0d 15 5e  09 ea 20 6b 65 79 0d 15  |.disc..^.. key..|
00002cf0  68 05 db 0d 15 72 19 f1  27 27 22 43 61 74 61 6c  |h....r..''"Catal|
00002d00  6f 67 75 65 3f 20 28 59  2f 4e 29 22 0d 15 7c 14  |ogue? (Y/N)"..|.|
00002d10  e7 20 a4 79 65 73 5f 6e  6f 20 8c 20 2a 43 41 54  |. .yes_no . *CAT|
00002d20  0d 15 86 1d f1 27 22 53  61 76 65 20 28 53 29 20  |.....'"Save (S) |
00002d30  6f 72 20 4c 6f 61 64 20  28 4c 29 3f 22 0d 15 90  |or Load (L)?"...|
00002d40  10 f5 20 6b 65 79 3d a5  20 80 26 44 46 0d 15 9a  |.. key=. .&DF...|
00002d50  19 fd 20 6b 65 79 3d 97  22 53 22 20 84 20 6b 65  |.. key=."S" . ke|
00002d60  79 3d 97 22 4c 22 0d 15  a4 14 e7 20 6b 65 79 3d  |y=."L"..... key=|
00002d70  97 22 53 22 20 f2 73 61  76 65 0d 15 ae 14 e7 20  |."S" .save..... |
00002d80  6b 65 79 3d 97 22 4c 22  20 f2 6c 6f 61 64 0d 15  |key=."L" .load..|
00002d90  b8 0b f2 72 65 74 75 72  6e 0d 15 c2 05 e1 0d 15  |...return.......|
00002da0  cc 05 20 0d 15 d6 0a dd  f2 73 61 76 65 0d 15 e0  |.. ......save...|
00002db0  10 ea 20 66 69 6c 65 24  2c 66 69 6c 65 0d 15 ea  |.. file$,file...|
00002dc0  0d f1 22 53 61 76 69 6e  67 22 0d 15 f4 15 e8 22  |.."Saving"....."|
00002dd0  46 69 6c 65 6e 61 6d 65  3a 22 66 69 6c 65 24 0d  |Filename:"file$.|
00002de0  15 fe 11 66 69 6c 65 3d  8e 28 66 69 6c 65 24 29  |...file=.(file$)|
00002df0  0d 16 08 0a d9 23 66 69  6c 65 0d 16 12 38 e7 20  |.....#file...8. |
00002e00  66 69 6c 65 3c 3e 30 20  f1 22 46 69 6c 65 20 65  |file<>0 ."File e|
00002e10  78 69 73 74 73 2e 20 43  6f 6e 74 69 6e 75 65 3f  |xists. Continue?|
00002e20  22 3a e7 20 a4 79 65 73  5f 6e 6f 20 66 69 6c 65  |":. .yes_no file|
00002e30  3d 30 0d 16 1c 13 e7 20  66 69 6c 65 3d 30 20 f2  |=0..... file=0 .|
00002e40  73 61 76 65 32 0d 16 26  05 e1 0d 16 30 05 20 0d  |save2..&....0. .|
00002e50  16 3a 0b dd f2 73 61 76  65 32 0d 16 44 0c ea 20  |.:...save2..D.. |
00002e60  78 2c 66 69 6c 65 0d 16  4e 11 66 69 6c 65 3d ae  |x,file..N.file=.|
00002e70  28 66 69 6c 65 24 29 0d  16 58 0d e3 20 78 3d 31  |(file$)..X.. x=1|
00002e80  20 b8 20 34 0d 16 62 2d  f1 23 66 69 6c 65 2c 6e  | . 4..b-.#file,n|
00002e90  61 6d 65 24 28 78 29 2c  54 28 78 29 2c 50 49 31  |ame$(x),T(x),PI1|
00002ea0  28 78 29 2c 50 49 32 28  78 29 2c 50 49 33 28 78  |(x),PI2(x),PI3(x|
00002eb0  29 0d 16 6c 2b f1 23 66  69 6c 65 2c 50 4e 31 28  |)..l+.#file,PN1(|
00002ec0  78 29 2c 50 4e 32 28 78  29 2c 50 4e 33 28 78 29  |x),PN2(x),PN3(x)|
00002ed0  2c 41 41 28 78 29 2c 41  44 28 78 29 0d 16 76 24  |,AA(x),AD(x)..v$|
00002ee0  f1 23 66 69 6c 65 2c 41  53 28 78 29 2c 41 52 28  |.#file,AS(x),AR(|
00002ef0  78 29 2c 41 4c 41 28 78  29 2c 41 4c 44 28 78 29  |x),ALA(x),ALD(x)|
00002f00  0d 16 80 36 f1 23 66 69  6c 65 2c 74 69 6d 6f 6e  |...6.#file,timon|
00002f10  28 78 2d 31 29 2c 65 6e  61 6d 28 78 2d 31 29 2c  |(x-1),enam(x-1),|
00002f20  70 69 74 63 68 28 78 2d  31 29 2c 6c 65 6e 67 74  |pitch(x-1),lengt|
00002f30  68 28 78 2d 31 29 0d 16  8a 05 ed 0d 16 94 0a d9  |h(x-1)..........|
00002f40  23 66 69 6c 65 0d 16 9e  05 e1 0d 16 a8 05 20 0d  |#file......... .|
00002f50  16 b2 0a dd f2 6c 6f 61  64 0d 16 bc 10 ea 20 66  |.....load..... f|
00002f60  69 6c 65 2c 66 69 6c 65  24 0d 16 c6 0e f1 22 4c  |ile,file$....."L|
00002f70  6f 61 64 69 6e 67 22 0d  16 d0 15 e8 22 46 69 6c  |oading"....."Fil|
00002f80  65 6e 61 6d 65 3a 22 66  69 6c 65 24 0d 16 da 11  |ename:"file$....|
00002f90  66 69 6c 65 3d 8e 28 66  69 6c 65 24 29 0d 16 e4  |file=.(file$)...|
00002fa0  32 e7 20 66 69 6c 65 3d  30 20 f1 22 46 69 6c 65  |2. file=0 ."File|
00002fb0  20 64 6f 65 73 20 6e 6f  74 20 65 78 69 73 74 22  | does not exist"|
00002fc0  20 8b 20 f2 6c 6f 61 64  32 28 66 69 6c 65 29 0d  | . .load2(file).|
00002fd0  16 ee 05 e1 0d 16 f8 05  20 0d 17 02 11 dd f2 6c  |........ ......l|
00002fe0  6f 61 64 32 28 66 69 6c  65 29 0d 17 0c 07 ea 20  |oad2(file)..... |
00002ff0  78 0d 17 16 0d e3 20 78  3d 31 20 b8 20 34 0d 17  |x..... x=1 . 4..|
00003000  20 2d e8 23 66 69 6c 65  2c 6e 61 6d 65 24 28 78  | -.#file,name$(x|
00003010  29 2c 54 28 78 29 2c 50  49 31 28 78 29 2c 50 49  |),T(x),PI1(x),PI|
00003020  32 28 78 29 2c 50 49 33  28 78 29 0d 17 2a 2b e8  |2(x),PI3(x)..*+.|
00003030  23 66 69 6c 65 2c 50 4e  31 28 78 29 2c 50 4e 32  |#file,PN1(x),PN2|
00003040  28 78 29 2c 50 4e 33 28  78 29 2c 41 41 28 78 29  |(x),PN3(x),AA(x)|
00003050  2c 41 44 28 78 29 0d 17  34 24 e8 23 66 69 6c 65  |,AD(x)..4$.#file|
00003060  2c 41 53 28 78 29 2c 41  52 28 78 29 2c 41 4c 41  |,AS(x),AR(x),ALA|
00003070  28 78 29 2c 41 4c 44 28  78 29 0d 17 3e 36 e8 23  |(x),ALD(x)..>6.#|
00003080  66 69 6c 65 2c 74 69 6d  6f 6e 28 78 2d 31 29 2c  |file,timon(x-1),|
00003090  65 6e 61 6d 28 78 2d 31  29 2c 70 69 74 63 68 28  |enam(x-1),pitch(|
000030a0  78 2d 31 29 2c 6c 65 6e  67 74 68 28 78 2d 31 29  |x-1),length(x-1)|
000030b0  0d 17 48 05 ed 0d 17 52  0a d9 23 66 69 6c 65 0d  |..H....R..#file.|
000030c0  17 5c 05 e1 0d 17 66 05  20 0d 17 70 13 dd f2 63  |.\....f. ..p...c|
000030d0  69 72 63 6c 65 28 78 2c  79 2c 72 29 0d 17 7a 0b  |ircle(x,y,r)..z.|
000030e0  ec 20 78 2b 72 2c 79 0d  17 84 1a e3 20 6c 6f 6f  |. x+r,y..... loo|
000030f0  70 3d 30 20 b8 20 32 2e  31 2a af 20 88 20 30 2e  |p=0 . 2.1*. . 0.|
00003100  35 0d 17 8e 27 f0 20 35  2c 78 2b 28 72 2a 28 9b  |5...'. 5,x+(r*(.|
00003110  28 6c 6f 6f 70 29 29 29  2c 79 2b 28 72 2a 28 b5  |(loop))),y+(r*(.|
00003120  28 6c 6f 6f 70 29 29 29  0d 17 98 0a ed 20 6c 6f  |(loop)))..... lo|
00003130  6f 70 0d 17 a2 05 e1 0d  17 ac 05 20 0d 17 b6 08  |op......... ....|
00003140  dd f2 6f 73 0d 17 c0 0d  ea 20 6f 73 24 2c 6b 65  |..os..... os$,ke|
00003150  79 0d 17 ca 05 db 0d 17  d4 05 f5 0d 17 de 0c e8  |y...............|
00003160  20 22 2a 22 6f 73 24 0d  17 e8 0d 24 26 42 30 30  | "*"os$....$&B00|
00003170  3d 6f 73 24 0d 17 f2 08  58 25 3d 30 0d 17 fc 09  |=os$....X%=0....|
00003180  59 25 3d 26 42 0d 18 06  0a d6 26 46 46 46 37 0d  |Y%=&B.....&FFF7.|
00003190  18 10 0c 2a 46 58 20 32  31 20 30 0d 18 1a 09 6b  |...*FX 21 0....k|
000031a0  65 79 3d a5 0d 18 24 0f  fd 20 6b 65 79 3c 3e 97  |ey=...$.. key<>.|
000031b0  22 2a 22 0d 18 2e 05 e1  0d 18 38 05 20 0d 18 42  |"*".......8. ..B|
000031c0  0c dd a4 79 65 73 5f 6e  6f 0d 18 4c 09 ea 20 6b  |...yes_no..L.. k|
000031d0  65 79 0d 18 56 0b 2a 46  58 32 31 2c 30 0d 18 60  |ey..V.*FX21,0..`|
000031e0  10 f5 20 6b 65 79 3d a5  20 80 26 44 46 0d 18 6a  |.. key=. .&DF..j|
000031f0  22 fd 20 6b 65 79 3d 97  22 59 22 20 84 20 6b 65  |". key=."Y" . ke|
00003200  79 3d 97 22 4e 22 20 84  20 6b 65 79 3d 31 33 0d  |y=."N" . key=13.|
00003210  18 74 18 e7 20 6b 65 79  3d 97 22 59 22 20 3a 3d  |.t.. key=."Y" :=|
00003220  b9 20 8b 20 3a 3d a3 0d  ff                       |. . :=...|
00003229