� > !RunImage
� Effex sample editor
� � Paul Mason, 1992
(
2ș &10 � env%
<env$=�z(env%)
Fa%=�env$,"Effex.!RunImage")
Pa%+=�"Effex.!RunImage "
Zenv$=�env$,a%+1)
denv$=�env$,�env$,"-")+1)
n� � �err(1)
x	�init
�(�cre_menus(menus%,menus%+menu_size%)
�� � �err(0)
�ȕ � quit%
�ș &400C7,0,q% � reason%
��handle_reason(reason%,q%)
�"� env$<>"" �load(env$):env$=""
��
�� � �err(1)
��quit_voice
��Xmem_quit
��
�
���handle_reason(reason%,q%)

Ȏ reason% �

<� 0 : � sample_type%>=0 � !Vcounter>0 � tracking% �track

� 1 : �redraw

"� 2 : �open(q%)

,� 3 : �close(q%)

6� 4

@� 5

J� 6 : �mclick

T� 7 : �dragbox

^"� 8 : �kpress(q%!0,q%!4,q%!24)

h� 9 : �menusel

r� 17,18 : �mess

|�

��

�

�
��dragbox

�� a%

�ș &400CF,,q%

�q%!24=q%!16

�-q%!16=1:q%!20=q%!12:q%!28=q%!0:q%!32=q%!4

�%q%!36=save_size%:q%!40=file_type%

�%�extract_leaf:$(q%+44)=save_name$

� q%!0=(44+�save_name$+5)�(�3)

�!q%!12=0:ș &400E7,17,q%,q%!20

�saveref%=q%!8

�ș &400D4,,-1
�

��datasave_ack
&� q%!12<>saveref% �
0save_name$=�z(q%+44)
:(� q%!36<>-1 �insert_name:modified%=0
DȎ file_type% �
N� &631,&632,&633
XM ș 8,10,save_name$,file_type%,,save_sample%,save_sample%+save_samp_size%
b"� &634 : �save_eff(save_name$)
l"� &D3C : �save_arm(save_name$)
v�
�q%!12=q%!8:q%!16=3
�ș &400E7,17,q%,q%!20
��
�
���save_eff(name$)
�� file%,size%,rate%
�file%=�(name$)
��#file%,sample_type%
�!�#file%,0:�#file%,0:�#file%,0
��wput(save_samp_size%)
�
�wput(28)
��wput(save_caret%)
��wput(save_sel_start%)
�wput(save_sel_end%)
-rate%=��Xicon_getstr(win_main%,5)*(1<<24)
�wput(rate%)
 .ș &C,2,file%,save_sample%,save_samp_size%
*�#file%
4�"SetType "+name$+" 634"
>�
H
R��save_arm(name$)
\� file%,size%,rate%
ffile%=�(name$)
p'�#file%,��Xicon_getstr(win_main%,4)
z.ș &C,2,file%,save_sample%,save_samp_size%
��#file%
��"SetType "+name$+" D3C"
��
�
�ݤleaf(s$)
�� s2$:s2$=""
�� �s$,".")=0 � =s$
�ȕ �s$)<>"." � �s$)<>":"
�s2$=�s$)+s2$
�s$=�s$)
��
�=s2$
�
ݤpath(s$)
ȕ �s$)<>"." � �s$)<>":"
s$=�s$)
$�
.=s$
8
B��extract_leaf
L0save_name$=�leaf(�Xicon_getstr(win_save%,1))
V�
`
j��insert_name
tȎ file_type% �
~"� &631 : sname_log$=save_name$
�"� &632 : sname_sgn$=save_name$
�"� &633 : sname_uns$=save_name$
�"� &634 : sname_eff$=save_name$
�"� &D3C : sname_arm$=save_name$
�"� &635 : sname_sel$=save_name$
�"� &636 : sname_lib$=save_name$
��
��
�
���kpress(win%,icon%,key%)
�
Ȏ key% �
�.� 13 : � win%=win_main%:�next_caret(icon%)
$          � win%=win_save% �save

!� &18F : �move_caret(icon%,1)
!� &18E : �move_caret(icon%,0)
( : � � �key_ok(key%) ș &400DC,key%
(�
2�
<
F
��save
P)save_name$=�Xicon_getstr(win_save%,1)
Z�insert_name
dȎ file_type% �
n� &631,&632,&633
xM ș 8,10,save_name$,file_type%,,save_sample%,save_sample%+save_samp_size%
�"� &634 : �save_eff(save_name$)
�"� &D3C : �save_arm(save_name$)
��
�ș &400D4,,-1
��
�
���next_caret(ic%)
�� a%,win%:win%=win_main%
�Ȏ ic% �
�-� 5 : �set_rate(�(�Xicon_getstr(win%,5)))
�         �set_caret(win%,4)
�2� 4 : a%=�(�Xicon_getstr(win%,4)):� a%=0 a%=50
�         �set_rate(1000/a%)
         �set_caret(win%,5)
"� 18 : �set_caret(win%,18):�sc
� 22 : �set_caret(win%,23)
""� 23 : �set_caret(win%,22):�ss
,� 10 : �set_caret(win%,11)
6� 11 : �zoom(0,0)
@!          �set_caret(win%,10)
J%� 25 : a%=��Xicon_getstr(win%,25)
T          � a%<0 a%=0
^          � a%>127 a%=127
h(          �Xicon_setstr(win%,25,�a%)
r          ?Vvol=a%
|�
��
�
���move_caret(ic%,up%)
�� u%,d%
�Ȏ ic% �
�� 5 : u%=11:d%=4
�� 4 : u%=5:d%=18
�� 18 : u%=4:d%=22
�� 22 : u%=18:d%=23
�� 23 : u%=22:d%=25
�� 25 : u%=23:d%=10
�� 10 : u%=25:d%=11
�� 11 : u%=10:d%=5
�
=� up% �set_caret(win_main%,u%) � �set_caret(win_main%,d%)
�
&
0��set_rate(khz)
:� khz=0 khz=20
D#�Xicon_setstr(win_main%,5,�khz)
N*�Xicon_setstr(win_main%,4,�(1000/khz))
X�
b
l��set_caret(w%,i%)
v'� len%:len%=�(�Xicon_getstr(w%,i%))
�ș &400D2,w%,i%,0,0,-1,len%
��
�
���redraw
�7� more%,scl%,xp%,pos,inc,xo%,yo%,ss,se,car%,sss,sse
�&ss=sel_start%*1150*zoom/samp_size%
�$se=sel_end%*1150*zoom/samp_size%
�$car%=caret%*1150*zoom/samp_size%
�%ș &35,-1,4 � ,,scl%:scl%=1<<scl%
�ș &400C8,,q% � more%
�ȕ more%
�xstart%=q%!28-q%!4+q%!20
�xend%=q%!36-q%!4+q%!20
pos%=q%!28
+pos=(xstart%-scl%)*samp_size%/zoom/1150
!inc=scl%*samp_size%/zoom/1150
 byte%=sample%?pos
*xo%=q%!4-q%!20:yo%=q%!8
4� xstart%+xo%,byte%+yo%
>ș &400E6,4
H*� xp%=xstart%-scl% � xend%+scl% � scl%
R!�vdu%,xp%+xo%,sample%?pos+yo%
\pos+=inc
f�
p@� sel_start%>=0 ș &400E6,7+(3<<4):ȓȐ ss+xo%,yo%,se-ss,256
zC� caret%>=0 ș &400E6,11+(3<<4):� car%+xo%,yo%,car%+xo%,yo%+256
�%ș &400E6,8:� xo%,yo%,xo%,yo%+256
�>ș &400E6,15:� xo%+1150*zoom-1,yo%,xo%+1150*zoom-1,yo%+256
�ș &400CA,,q% � more%
��
��
�
���fresh(win%,q%)
�!q%=win%:ș &400CB,,q%
�
�open(q%)
��
�
���zoom(da%,db%)
�� a%,b%,scl%
	#a%=��Xicon_getstr(win_main%,10)
	a%+=da%
	� a%>999 a%=999
	$#b%=��Xicon_getstr(win_main%,11)
	.b%+=db%
	8� b%>999 b%=999
	B� a%<1 a%=1
	L� b%<1 b%=1
	V� b%>a% b%=a%
	`zoom=a%/b%
	j#�Xicon_setstr(win_main%,10,�a%)
	t#�Xicon_setstr(win_main%,11,�b%)
	~!q%=win_pane%:ș &400CB,,q%
	�?� q%!20>1150*(zoom-1)-1 q%!20=1150*(zoom-1)-1:ș &400C5,,q%
	�q%!4=0:q%!8=-256
	�q%!12=q%!4+1150*zoom
	�q%!16=0
	�%ș &35,-1,4 � ,,scl%:scl%=1<<scl%
	�a%=q%!8�scl%
	�q%!12=q%!12+(scl%-a%)
	�ș &400D7,win_pane%,q%+4
	�!q%=win_pane%:ș &400CB,,q%
	�/ș &400D1,win_pane%,q%!20,-256,q%!20+1150,0
	��
	�
��open(q%)

� a%:a%=q%+1024
� !q%=win_main% �
 a%!0=win_pane%:ș &400CB,,a%
(a%!28=q%!28:q%!28=win_pane%
2%a%!12=a%!12-a%!4:a%!16=a%!16-a%!8
<a%!4=q%!4+panex%
Fa%!8=q%!8+paney%
P%a%!12=a%!12+a%!4:a%!16=a%!16+a%!8
Zș &400C5,,a%
d�
nș &400C5,,q%
x�
�
���close(q%)
�ș &400C6,,q%
�� !q%<>win_main% �
�!q%=win_pane%
�ș &400C6,,q%
��
�
���mclick
�� xpos%,win%,but%,ic%
�,xpos%=!q%:but%=q%!8:win%=q%!12:ic%=q%!16
��
�� q%!8=2 �
; � q%!12=-2 � q%!16=iconbar% �Xmenu_iconbar(menu_icon%)
@ � q%!12=win_main% � q%!12=win_pane% �Xmenu_main(menu_main%)
�
"�
,+� (q%!8=4 � q%!8=1) � q%!12=win_pane% �
6�
@� q%!8=4 �
JG � q%!12=-2 � q%!16=iconbar% � sample_type%>-1 �fresh(win_main%,q%)
T � q%!12=win_pane% �set_sel
^# � win%=win_main% � ic%=28 �ply
h�
r�
|� q%!8=1 �
� � q%!12=win_pane% �set_car
��
��
�C� (but%=4 � but%=1) � win%=win_pane% �scroll_pane(xpos%,q%+512)
�8� but%<>2 � win%=win_main% �handle_winmain(ic%,but%)
�,� win%=win_save% �handle_saves(ic%,but%)
��
�
�	��ply
�1� vol%,rate:vol%=��Xicon_getstr(win_main%,25)
�$rate=��Xicon_getstr(win_main%,5)
�1�play(sample%,sample%+samp_size%-1,vol%,rate)
��


��ply_sel
�check_all(0)
&1� vol%,rate:vol%=��Xicon_getstr(win_main%,25)
0$rate=��Xicon_getstr(win_main%,5)
:8�play(sample%+sel_start%,sample%+sel_end%,vol%,rate)
D�
N
X��handle_saves(ic%,but%)
b
Ȏ � �
l.� ic%=0 � (but%=16 � but%=64) : �drag_save
v� ic%=2 � (but%<>2) : �save
��
��
�
���drag_save
�� x0%,y0%,shft%
�!q%=win_save%:ș &400CB,,q%
�x0%=q%!4:y0%=q%!16
�q%!4=0:ș &400CE,,q%
�$q%!4=5:q%!8+=x0%:q%!12=y0%+q%!12
�q%!16+=x0%:q%!20=y0%+q%!20
�ș &35,-1,11 � ,,x0%
�(ș &35,-1,4 � ,,shft%:x0%=x0%<<shft%
�ș &35,-1,12 � ,,y0%

(ș &35,-1,5 � ,,shft%:y0%=y0%<<shft%

'q%!24=0:q%!28=0:q%!32=x0%:q%!36=y0%

ș &400D0,,q%

 �

*

4��handle_winmain(ic%,but%)

>#� mul%:� �(-1) mul%=16 � mul%=1

H� but%=1 but%=-1 � but%=1

RȎ ic% �

\� 14 : �zoom(but%*mul%,0)

f� 15 : �zoom(-but%*mul%,0)

p� 13 : �zoom(0,but%*mul%)

z� 16 : �zoom(0,-but%*mul%)

�� 27 : �vol(but%*mul%)

�� 26 : �vol(-but%*mul%)

�!� 9  : �pitch_bend(but%*mul%)

�"� 29 : �pitch_bend(-but%*mul%)

�� 19 : �crr(but%*mul%)

�� 20 : �crr(-but%*mul%)

��

��

�

���vol(inc%)

�,� vol%:vol%=��Xicon_getstr(win_main%,25)

�"vol%+=inc%:� vol%>127 vol%=127

�� vol%<0 vol%=0
%�Xicon_setstr(win_main%,25,�vol%)
?Vvol=vol%
�
$
.
��set_sel
8"� x%,ox%,oldss%,oldse%:x%=q%!0
B!q%=win_pane%:ș &400CB,,q%
L/x%=x%-q%!4+q%!20:x%=x%*samp_size%/1150/zoom
V� sel_start%=-1 �
`sel_start%=x%:sel_end%=x%+1
jI� sel_end%>=samp_size% sel_start%-=samp_size%-2:sel_end%=samp_size%-1
t�new_selection
~�
�%� x%<>sel_start% � x%<>sel_end% �
�]� �(sel_start%-x%)<�(sel_end%-x%) ox%=sel_start%:sel_start%=x% � ox%=sel_end%:sel_end%=x%
�0� sel_end%<=sel_start% sel_start%=sel_end%-1
�� sel_start%<0 sel_start%=0
�0� sel_end%<=sel_start% sel_end%=sel_start%+1
�� x%>ox% Ȕ x%,ox%
�x%=x%*1150*zoom/samp_size%
� ox%=ox%*1150*zoom/samp_size%
�)ș &400D1,win_pane%,x%-8,-256,ox%+8,0
��new_selection
��
��
�


��scroll_pane(x%,q%)
!q%=win_pane%:ș &400CB,,q%
(<� x%>q%!12-16 �scrollx(win_pane%,(16-q%!12+x%)*4,q%+512)
2:� x%<q%!4+16 �scrollx(win_pane%,(x%-q%!4-16)*4,q%+512)
<�
F
P��scrollx(win%,off%,q%)
Z!q%=win%:ș &400CB,,q%
dq%!20=q%!20+off%
nș &400C5,,q%
x�
�
���ss
�� a%,b%,x0%,y0%
�%a%=�(�Xicon_getstr(win_main%,22))
�%b%=�(�Xicon_getstr(win_main%,23))
�
� a%>b% �
�Ȕ a%,b%
�#�Xicon_putstr(win_main%,22,�a%)
�#�Xicon_putstr(win_main%,23,�b%)
��
�'x0%=sel_start%*1150*zoom/samp_size%
�%x1%=sel_end%*1150*zoom/samp_size%
�*ș &400D1,win_pane%,x0%-8,-256,x1%+8,0
sel_start%=a%
sel_end%=b%
� sel_start%>=0 �
"'x0%=sel_start%*1150*zoom/samp_size%
,%x1%=sel_end%*1150*zoom/samp_size%
6*ș &400D1,win_pane%,x0%-8,-256,x1%+8,0
@�
Jsel_start%=-1
Tsel_end%=-1
^�
h�
r
|
��set_car
�� x%,pos%:pos%=q%!0
�"x%=caret%*1150*zoom/samp_size%
�(ș &400D1,win_pane%,x%-8,-256,x%+8,0
�
x%=caret%
�!q%=win_pane%:ș &400CB,,q%
�1caret%=(pos%-q%!4+q%!20)*samp_size%/1150/zoom
�� caret%<0 caret%=0
�"x%=caret%*1150*zoom/samp_size%
�(ș &400D1,win_pane%,x%-8,-256,x%+8,0
�'�Xicon_setstr(win_main%,18,�caret%)
�7� tracking% � !Vcounter>0 � caret%<!Vsend-sample% �
�!Vcounter=caret%+sample%
��
�

��track
&� x%
0"x%=caret%*1150*zoom/samp_size%
:(ș &400D1,win_pane%,x%-2,-256,x%+2,0
Dcaret%=!Vcounter-sample%
N"x%=caret%*1150*zoom/samp_size%
X(ș &400D1,win_pane%,x%-2,-256,x%+2,0
b'�Xicon_setstr(win_main%,18,�caret%)
l(� caret%>=!Vsend-sample% !Vcounter=0
v�
�
���crr(dir%)
�� caret%<0 �
�� x%
�"x%=caret%*1150*zoom/samp_size%
�(ș &400D1,win_pane%,x%-8,-256,x%+8,0
�caret%+=dir%
�� caret%<0 caret%=0
�,� caret%>=samp_size% caret%=samp_size%-1
�"x%=caret%*1150*zoom/samp_size%
�(ș &400D1,win_pane%,x%-8,-256,x%+8,0
�'�Xicon_setstr(win_main%,18,�caret%)
�7� tracking% � !Vcounter>0 � caret%<!Vsend-sample% �
!Vcounter=caret%+sample%
�
�
 
*��sc
4� a%,x%
>%a%=�(�Xicon_getstr(win_main%,18))
H"x%=caret%*1150*zoom/samp_size%
R(ș &400D1,win_pane%,x%-8,-256,x%+8,0
\
caret%=a%
f� caret%<0 caret%=-1
p� caret%>=0 �
z"x%=caret%*1150*zoom/samp_size%
�(ș &400D1,win_pane%,x%-8,-256,x%+8,0
��
��
�
�
��mess
�� q%!16=0 quit%=-1:�
�� q%!16=1 �data_save
�0� q%!16=&400C0 �menu_warn(q%!32,q%!36,q%!40)
�>� q%!16=3 � � �good_load(q%!40,�z(q%+44),q%!36,1) �loadack
�� q%!16=2 �datasave_ack
�� q%!16=5 �
�+ ok%=0:� q%!40>&630 � q%!40<&635 ok%=-1
� � q%!40=&D3C ok%=-1
 � ok% �
  �loadack
,  a%=�good_load(q%!40,�z(q%+44),q%!36,0)
$ �
.�
8�
B
L��data_save
V'q%!36=-1:$(q%+44)="<Wimp$Scrap>"+�0
`q%!12=q%!8:q%!16=2
jș &400E7,17,q%,q%!4
tsaveref%=-1
~�7
��
�
�
��loadack
�q%!12=q%!8:q%!16=4:q%!36=-1
�ș &400E7,17,q%,q%!4
��
�
���load(n$)
�ș 8,17,n$ � ,,typ%
�typ%=(typ%�&FFF00)>>8
��"Set Effex$Type "+�typ%
�!typ%=�good_load(typ%,n$,-1,1)
�


(ݤgood_load(type%,name$,size%,drag%)
� ok%:ok%=-1
(%� sample_type%>=0 ok%=�check_load
2� ok%=-1 �
<Ȏ type% �
F#� &631 : ok%=�load_raw(name$,0)
P#� &632 : ok%=�load_raw(name$,1)
Z#� &633 : ok%=�load_raw(name$,2)
d!� &634 : ok%=�load_eff(name$)
n!� &D3C : ok%=�load_arm(name$)
x& : � drag% ok%=�load_raw(name$,2)
��
��
�� ok% �
� q%!512=win_pane%
� ș &400C6,,q%+512
� �fresh(win_main%,q%+512)
� � name$<>"<Wimp$Scrap>" �
�  sname_log$=name$
�  sname_uns$=name$
�  sname_sgn$=name$
�  sname_eff$=name$
�  sname_arm$=name$
� �
  �"Remove <Wimp$Scrap>"
 �
�
"=ok%
,
6ݤcheck_load
@� go%,act%,win%,icon%
J�fresh(win_load%,q%+512)
T8� q%!512=win_load%:SYS "Wimp_GetWindowState",,q%+512
^?� MOUSE RECTANGLE q%!516,q%!520,q%!524-q%!516,q%!528-q%!520
h�
r�diapoll
|� win%=win_load% � icon%=10
�
act%=1
�� go%=2 � 9
�1q%!512=win_load%:q%!516=go%:ș &400CE,,q%+512
�/� (q%!(512+24)�(1<<21))<>0 act%=go%-2:go%=9
��
�"go%=�(name$):size%=�#go%:�#go%
�
Ȏ act% �
�7� 0 : �Xmem_release(sample%):sample_type%=-1:go%=-1
�� 1 : go%=0
�� 2 : �av(0)
�)� 3 : � caret%>=0 �av(caret%) � go%=0
�� 4 : �in(0)
�)� 5 : � caret%>=0 �in(caret%) � go%=0
� 6 : �ov(0)
)� 7 : � caret%>=0 �ov(caret%) � go%=0

 : go%=1
&�
0�7
:q%!512=win_load%
Dș &400C6,,q%+512
N+� MOUSE RECTANGLE -4000,-4000,4000,4000
X=go%
b
l��av(pos%)
vwin%=�Xmem_claim(size%)
�ș 8,16,name$,win%,0
�A%=win%:B%=win%+size%-1
�+C%=sample%+pos%:D%=sample%+samp_size%-1
�E%=samp_centre%:� mix
��Xmem_release(win%)
�	go%=1
��
�
���in(pos%)
��Xmem_delta(sample%,size%)
�'�copy(pos%,samp_size%-1,pos%+size%)
� ș 8,16,name$,sample%+pos%,0
��

��ov(pos%)
1� samp_size%-pos%<size% size%=samp_size%-pos%
 win%=�(name$)
*#ș &C,4,win%,sample%+pos%,size%
4
�#win%
>�
H
R
��diapoll
\� r%
f�
pș &400C7,0,q%+512 � r%
zȎ r% �
�� 2 : �open(q%+512)
�� 3 : �open(q%+512)
�! : �handle_reason(r%,q%+512)
��
�� r%=6 � q%!(512+8)<>2
�&win%=q%!(512+12):icon%=q%!(512+16)
��
�
�ݤload_raw(name$,stype%)
�� file%,pos%,not%,size%
�(file%=�(name$):size%=�#file%:�#file%
�pos%=�Xmem_claim(size%)
�>� pos%=0 � 1,"Not enough memory (I need "+�size%+" bytes)"
ș 8,16,name$,pos%,0
!sample%=pos%:samp_size%=size%
sample_type%=stype%
$sel_start%=-1
.sel_end%=-1
8�new_selection
B�new_sample_type
L�clr_all
VȎ stype% �
`� 0 : samp_centre%=128
j� 1 : samp_centre%=128
t� 2 : samp_centre%=0
~�
�=-1
�
�ݤwget(pos%)
�� a%
��#file%=pos%
�a%=(�#file%)<<0
�a%+=(�#file%)<<8
�a%+=(�#file%)<<16
�a%+=(�#file%)<<24
�=a%
�
�ݤbget(pos%)
�#file%=pos%

=�#file%

��wput(w%)
(�#file%,(w%�&FF)>>0
2�#file%,(w%�&FF00)>>8
<�#file%,(w%�&FF0000)>>16
F�#file%,(w%�&FF000000)>>24
P�
Z
dݤload_eff(n$)
n � file%,pos%,not%,size%,rate
x!file%=�(name$):size%=�wget(4)
�pos%=�Xmem_claim(size%)
�>� pos%=0 � 1,"Not enough memory (I need "+�size%+" bytes)"
�%ș &C,3,file%,pos%,size%,�wget(8)
�!sample%=pos%:samp_size%=size%
�sample_type%=�bget(0)
�caret%=�wget(12)
�sel_start%=�wget(16)
�sel_end%=�wget(20)
�rate=�wget(24)/(1<<24)
�$�Xicon_setstr(win_main%,5,�rate)
�+�Xicon_setstr(win_main%,4,�(1000/rate))
��#file%
��new_selection
�new_sample_type
Ȏ sample_type% �
� 0 : samp_centre%=128
"� 1 : samp_centre%=128
,� 2 : samp_centre%=0
6�
@=-1
J
Tݤload_arm(n$)
^ � file%,pos%,not%,size%,rate
h"file%=�(name$):size%=�#file%-1
rpos%=�Xmem_claim(size%)
|>� pos%=0 � 1,"Not enough memory (I need "+�size%+" bytes)"
�ș &C,3,file%,pos%,size%,1
�!sample%=pos%:samp_size%=size%
�sample_type%=2
�sel_start%=-1
�sel_end%=-1
�rate=1000/�bget(0)
�$�Xicon_setstr(win_main%,5,�rate)
�+�Xicon_setstr(win_main%,4,�(1000/rate))
��#file%
��new_selection
��new_sample_type
�samp_centre%=0
�=-1

��menu_warn(a%,b%,c%)
� a%=1 �
& �savewinp(b%)
0 save_sample%=sample%
: save_samp_size%=samp_size%
D save_caret%=caret%
N save_sel_start%=sel_start%
X save_sel_end%=sel_end%
b�
l= � a%=0 � b%=1 : �open_sinfo:ș &400E8,,q%!20,q%!24,q%!28
v � a%=2 � b%=11 �
�   �savewinp(c%)
�&   save_sample%=sample%+sel_start%
�*   save_samp_size%=sel_end%-sel_start%
�$   save_caret%=caret%-sel_start%
�   save_sel_start%=0
�$   save_sel_end%=save_samp_size%
�$   � save_caret%<0 save_caret%=0
�3   � save_caret%>=save_samp_size% save_caret%=0
� �
��
��
�
���savewinp(b%)
 Ȏ b% �
  � 0 : $save_txt%=sname_log$
          �savewin("631")
 #          save_size%=samp_size%
*  � 1 : $save_txt%=sname_sgn$
4          �savewin("632")
>#          save_size%=samp_size%
H  � 2 : $save_txt%=sname_uns$
R          �savewin("633")
\#          save_size%=samp_size%
f  � 3 : $save_txt%=sname_eff$
p          �savewin("634")
z#          save_size%=samp_size%
�  � 4 : $save_txt%=sname_arm$
�          �savewin("D3C")
�#          save_size%=samp_size%
� �
��
�
���savewin(file_type$)
�$$save_valid%="Sfile_"+file_type$
� file_type%=�("&"+file_type$)
� ș &400E8,,q%!20,q%!24,q%!28
��
�
�
��init
icon_size%=4:menu_size%=8
2icon_size%=icon_size%*1024:� icons% icon_size%
>menu_size%=menu_size%*1024:� menus% menu_size%,q% 2048+512
$2� save_valid% 16,save_txt% 255,code% 1024,L%-1
.-Xtemp%=q%+512:�Xwimp_init("Effex editor")
85� �pvN:�Xwimp_templates(icons%,icons%+icon_size%)
B�Xmem_init(32)
Lquit%=0
Vnum_libs%=0
`.� lib_name$(15),lib_pos%(15),lib_size%(15)
j	�vars
t�creicon
~�getwininfo
�
�info_win
��assem(code%)
��init_voice
�!samp_size%=0:sample%=0:vdu%=5
�4zoom=1:sample_type%=-1:sel_start%=-1:sel_end%=-1
�caret%=0:play_rate%=&1800
� use_selection%=0:tracking%=0
��
�
�
��vars
�sname_log$="LogSample"
�sname_uns$="RawSample"
sname_sgn$="SignSample"

sname_eff$="Sample"
sname_arm$="ArmaSample"
sname_sel$="Selection"
(sname_lib$="SampLib"
20mod0$="Y EOR (X AND 255) EOR (128*(X MOD2))"
<mod1$=""
Fmod2$=""
Pmod3$=""
Zmod4$=""
d�
n
x��getwininfo
�� a%:a%=q%+1024
�!q%=win_main%
�!a%=win_pane%
�ș &400CB,,q%
�ș &400CB,,a%
�panex%=a%!4-q%!4
�paney%=a%!8-q%!8
��
�
���err(fat%)
�*err$=�$:� �(-3)=0 err$+=" at line "+Þ
�"� �(-1) �"Set Err$Err "+err$:�
�!q%=�:$(q%+4)=err$
#ș &400DF,q%,3,"Effex" � ,resp%
� resp%<>1 quit%=-1
� quit% � �(-1) �
"� fat%<>0 �
,�
6
@��info_win
J3�Xicon_setstr(win_info%,2,"� Paul Mason, 1993")
T3�Xicon_setstr(win_info%,3,"1.02 (08-Apr-1993)")
^�
h
r
��creicon
|*!q%=-1:q%!4=0:q%!8=0:q%!12=64:q%!16=64
�%q%!20=&1700303A:$(q%+24)="!effex"
�ș &400C2,,q% � iconbar%
��
�
���cre_menus(start%,end%)
��crem_icon
��crem_main
��
�
���crem_icon
�4�Xmenu_start("Effex",start%,end%):menu_icon%=r0%
�$�Xmenu_additem("Info",win_info%)
�"�Xmenu_additem("Clear all",-1)
 �Xmenu_additem("Quit",-1)
 �Xmenu_end(start%,end%)
 �
 &
 0
��menusel
 :ș &400CF,,q%+1024
 Dadjust%=(q%!(1024+8)=1)
 NȎ Xmenu_ptr% �
 X� menu_icon% : �decm_icon
 b� menu_main% : �decm_main
 l�
 v5� adjust% ș &400D4,,Xmenu_ptr%,Xmenu_x%,Xmenu_y%
 ��
 �
 ���decm_icon
 �
Ȏ q%!0 �
 �B� 1 : � sample_type%>=0 �Xmem_release(sample%):sample_type%=-1
 � !q%=win_main%:�close(q%)
 �� 2 : quit%=-1
 ��
 ��
 �
 ���open_save(win%)
 �
Ȏ win% �
 �%� 0 : �osavewin("631",sname_log$)
!%� 1 : �osavewin("632",sname_sgn$)
!%� 2 : �osavewin("633",sname_uns$)
!%� 3 : �osavewin("634",sname_eff$)
! %� 4 : �osavewin("D3C",sname_arm$)
!*�
!4�
!>
!H��osavewin(type$,a$)
!R$save_txt%=a$
!\ș &400CF,,q%+1024
!f$save_valid%="Sfile_"+type$
!pfile_type%=�("&"+type$)
!zsave_size%=samp_size%
!�(ș &400D4,,win_save%,q%!1024,q%!1028
!��
!�
!�ݤkey_ok(k%)
!�� ok%:ok%=-1
!��valid_sel
!�Ȏ k%+64 �
!�%� �"A" : �adj_sel(0,samp_size%-1)
!�� �"C" : �copy_sel
!�#� �"I" : �fadein(Sstart%,Send%)
!�8� �"L" : �Xicon_setstr(win_main%,25,"127"):?Vvol=127
!�$� �"O" : �fadeout(Sstart%,Send%)
!�� �"P" : �ply
"3� �"S" : ?Vcommand=1:Ȗ:?Vcommand=0:!Vcounter=0
"D� �"T" : tracking%=�tracking%:�Xmenu_tick(menu_track%,tracking%)
"� �"E" : �ply_sel
"$� �"V" : �move_sel
".� �"X" : �del_sel
"8� �"Y" : �copy2_sel
"B� �"Z" : �adj_sel(-1,-1)
"L� �"Z"+64 : �selzm
"V� 32+64 : �cont
"`� &183+64: �open_save(3)
"j
 : ok%=0
"t�
"~=ok%
"�
"�
��cont
"�� s
"�2� sample_type%>=0 � caret%>0 � caret%<!Vsend �
"�!s=��Xicon_getstr(win_main%,5)
"�$�play(caret%+sample%,!Vsend,0,s)
"��
"��
"�
"���check_all(cc%)
"�.� caret%<0 � cc%<>0 � 1,"No caret present"
"�%� sel_start%<0 � 1,"No selection"
#�
#

#��copy2_sel
#�check_all(-1)
#(A%=sel_start%+sample%
#2B%=sel_end%+sample%
#<C%=caret%+sample%
#FD%=sample%+samp_size%
#P
� copy
#Z�red
#d�
#n
#x��insert(pos%,size%)
#��Xmem_delta(sample%,size%)
#�'�copy(pos%,samp_size%-1,pos%+size%)
#�� caret%>pos% caret%+=size%
#�samp_size%+=size%
#�'� sel_start%>pos% sel_start%+=size%
#�#� sel_end%>pos% sel_end%+=size%
#��
#�
#���delete(start%,end%)
#�7� end%<samp_size%-1 �copy(end%,samp_size%-1,start%)
#�$�Xmem_delta(sample%,start%-end%)
#�1� caret%>=start% � caret%<=end% caret%=start%
#�=� sel_start%>=start% � sel_start%<=end% sel_start%=start%
$7� sel_end%>=start% � sel_end%<=end% sel_end%=start%
$'� caret%>start% caret%-=end%-start%
$samp_size%-=end%-start%
$"�
$,
$6
��del_sel
$@�check_all(0)
$J �delete(sel_start%,sel_end%)
$Tsel_start%=-1
$^sel_end%=-1
$h�red
$r�
$|
$���copy_sel
$��check_all(-1)
$�N� caret%>=sel_start% � caret%<=sel_end% � 1,"Cannot copy inside selection"
$�'�insert(caret%,sel_end%-sel_start%)
$�%�copy(sel_start%,sel_end%,caret%)
$��red
$��
$�
$���move_sel
$�� size%,pos%
$��check_all(-1)
$�size%=sel_end%-sel_start%
$�pos%=�Xmem_claim(size%)
%+�copy(sel_start%,sel_end%,pos%-sample%)
% �delete(sel_start%,sel_end%)
%�insert(caret%,size%)
%&3�copy(pos%-sample%,pos%-sample%+size%-1,caret%)
%0�Xmem_release(pos%)
%:sel_start%=caret%
%Dsel_end%=caret%+size%
%N�red
%X�
%b
%l��modulate(s$,s%,e%)
%v� len%,Z:len%=e%-s%
%�Z=samp_centre%
%�ș "Hourglass_On"
%�A� X=s%-sample% � e%-sample%:Y=sample%?X:Y=�(s$):� Y>255 Y=255
%�/ș &406C4,(X-s%+sample%)*100/len%:� Y<0 Y=0
%�sample%?X=Y:Z=Y:�
%��red
%�ș "Hourglass_Off"
%��
%�
%���selzm
%�3�zoom(999,(sel_end%-sel_start%)*999/samp_size%)
%�!q%=win_pane%:ș &400CC,,q%
%�%q%!20=q%!52*sel_start%/samp_size%
&ș &400C5,,q%
&�
&
& ��decm_main
&*Ȏ !q% �
&4� 0 : Ȏ q%!4 �
&>* � 2 : sample_type%=0:�new_sample_type
&H* � 3 : sample_type%=1:�new_sample_type
&R* � 4 : sample_type%=2:�new_sample_type
&\ � 5 : �lin2log
&f%  sample_type%=0:�new_sample_type
&p � 6 : �log2lin
&z%  sample_type%=1:�new_sample_type
&�1 � 7 : �eor(128,sample%,samp_size%+sample%-1)
&�2  sample_type%=sample_type%�3:�new_sample_type
&� � 8 : �calc_centre
&� �
&�� 1 : Ȏ q%!4 �
&�# � 0,1,2,3,4 : �open_save(q%!4)
&� �
&�� 2 : Ȏ q%!4 �
&�# � 0 : �adj_sel(0,samp_size%-1)
&� � 1 : �adj_sel(-1,-1)
&� � 2 : �del_sel
&� � 3 : �copy_sel
&� � 4 : �copy2_sel
' � 5 : �move_sel
' � 6 : �mix
' � 7 : �premix
'$ � 8 : �postmix
'. � 9 : �selzm
'8 � 10: �ply_sel
'B �
'L� 3 : �valid_sel
'V Ȏ q%!4 �
'` � 0 : �toggle_sel
'j" � 1 : �reverse(Sstart%,Send%)
't  � 2 : �amp(0,Sstart%,Send%)
'~! � 3 : �fadein(Sstart%,Send%)
'�" � 4 : �fadeout(Sstart%,Send%)
'�2 � 5 : �amp((��z(amplify%))/100,Sstart%,Send%)
'�0 � 6 : �amp(100/��z(amplify%),Sstart%,Send%)
'�. � 7 : �eor(��z(eor_const%),Sstart%,Send%)
'�. � 8 : �add(��z(add_const%),Sstart%,Send%)
'�- � 9 : �hpf(�z(hp_filter%),Sstart%,Send%)
'�- � 10: �lpf(�z(lp_filter%),Sstart%,Send%)
'�/ � 11: �core(��z(core_filt%),Sstart%,Send%)
'�1 � 12: �loboost(1/��z(fboost%),Sstart%,Send%)
'�/ � 13: �loboost(��z(fboost%),Sstart%,Send%)
'� � 14: Ȏ q%!8 �
'�3  � 0 : �modulate(�z(menu_mod0%),Sstart%,Send%)
(3  � 1 : �modulate(�z(menu_mod1%),Sstart%,Send%)
(
3  � 2 : �modulate(�z(menu_mod2%),Sstart%,Send%)
(3  � 3 : �modulate(�z(menu_mod3%),Sstart%,Send%)
(3  � 4 : �modulate(�z(menu_mod4%),Sstart%,Send%)
((  �
(2 � 15: Ȏ q%!8 �
(<  � 0,1:
(F8  � 2 : �echo(��z(echo_length%),��z(echo_strength%))
(P:  � 3 : �flange(��z(echo_length%),��z(echo_strength%))
(Z<  � 4 : �hallecho(��z(echo_length%),��z(echo_strength%))
(d  �
(n �
(x� WHEN 4 : CASE q%!4 OF
(�; � WHEN 0 : IF q%!8>-1 PROCadd_libentry(FNz(lib_name%))
(� � WHEN 1 :
(� � WHEN 2 :
(�1 � WHEN 3 : IF q%!8>-1 PROCdel_libentry(q%!8)
(� � ENDCASE
(�� 4 : Ȏ q%!4 �
(� � 0 : �ply
(�1 � 1 : ?Vcommand=1:Ȗ:?Vcommand=0:!Vcounter=0
(�B � 2 : tracking%=�tracking%:�Xmenu_tick(menu_track%,tracking%)
(� � 3 : �cont
(� � 4 : �pitch_bend(1)
(� � 5 : �pitch_bend(-1)
(�6 � 6 : �Xicon_setstr(win_main%,25,"127"):?Vvol=127
) �
)�
)�
)"
),��echo(D%,str)
)6A%=Sstart%
)@B%=Send%
)JC%=samp_centre%
)TE%=(str/100)*(1<<12)
)^
� echo
)h�
)r
)|��hallecho(a%,b)
)�ȕ b>=1
)��flange(a%,b)
)�a%=a%*2:b=b/2
)��
)��
)�
)���flange(D%,str)
)�A%=Sstart%
)�B%=Send%
)�C%=samp_centre%
)�E%=(str/100)*(1<<12)
)�� flange
)��
*
*��valid_sel
*&� use_selection% � sel_start%>=0 �
*&Sstart%=sel_start%
*0:Send%=sel_end%:� Send%>samp_size%-1 Send%=samp_size%-1
*:�
*D
Sstart%=0
*NSend%=samp_size%-1
*X�
*bSstart%+=sample%
*lSend%+=sample%
*v�
*�
*���calc_centre
*�!A%=sample%:B%=A%+samp_size%-1
*�C%=0:� calc_centre
*�-samp_centre%=(!centre_val)/samp_size%+0.5
*��
*�
*�
��lin2log
*�%� vol%,a%,b%:ș &40180,127 � vol%
*�� a%=0 � 255
*�ș &40181,(a%-128)<<24 � b%
*�q%?a%=b%
*��
+"A%=sample%:B%=samp_size%:C%=q%
+
� convert
+ș &40180,vol%
+ �red
+*�
+4
+>
��log2lin
+H%� vol%,a%,b%:ș &40180,127 � vol%
+R� a%=0 � 255
+\ș &40181,(a%-128)<<24 � b%
+fq%?b%=a%
+p�
+z"A%=sample%:B%=samp_size%:C%=q%
+�
� convert
+�ș &40180,vol%
+��red
+��
+�
+���loboost(val,A%,B%)
+�� a%
+�� a%=0 � 255
+�,q%!(a%<<2)=((255-a%)*val+a%)*(1<<12)�255
+��
+�D%=samp_centre%
+�	C%=q%
+�� boost
,�red
,�
,
,$��hiboost(val,A%,B%)
,.� a%
,8� a%=0 � 255
,B*q%!(a%<<2)=(a%*val+255-a%)*(1<<12)�255
,L�
,VD%=samp_centre%
,`	C%=q%
,j� boost
,t�red
,~�
,�
,���reverse(A%,B%)
,�
� reverse
,��red
,��
,�
,���amp(a,A%,B%)
,�C%=samp_centre%
,�D%=a*(1<<12)
,�	� amp
,��red
,��
-
-
��fadein(A%,B%)
-C%=samp_centre%
-� fadein
-(�red
-2�
-<
-F��fadeout(A%,B%)
-PC%=samp_centre%
-Z
� fadeout
-d�red
-n�
-x
-���eor(C%,A%,B%)
-�	� eor
-��red
-��
-�
-���add(C%,A%,B%)
-�	� add
-��red
-��
-�
-�	��red
-�!q%=win_pane%:ș &400CB,,q%
-�/ș &400D1,win_pane%,q%!20,-256,q%!20+1150,0
.�
.
.��init_voice
."� a%
.,#ș &40140,0,0,0,0,0 � num_chan%
.6%� num_chan%>2 a%=num_chan% � a%=2
.@ș &40140,a%,0,0,0,0
.J2ș "Sound_InstallVoice",Vbase,0 � ,voice_slot%
.T�
.^
.h��quit_voice
.rș &40140,num_chan%,0,0,0,0
.|'ș "Sound_RemoveVoice",,voice_slot%
.��
.�
.���pitch_bend(change)
.�play_rate%+=change*16
.�� 2,&1FF,play_rate%,255
.��
.�
.���hpf(s$,A%,B%)
.�Ȏ �s$,1) �
.�#� "+","-" : C%=samp_centre%+�s$
.� : C%=�s$
.��
.�
� hp_filt
/�red
/�
/
/&��lpf(s$,A%,B%)
/0Ȏ �s$,1) �
/:#� "+","-" : C%=samp_centre%+�s$
/D : C%=�s$
/N�
/X
� lp_filt
/b�red
/l�
/v
/���core(v%,A%,B%)
/�E%=samp_centre%
/�C%=E%-v%
/�D%=E%+v%
/�� core_filt
/��red
/��
/�
/���play(pos%,end%,vol%,rate)
/�� a%,b%,c%
/�+c%=tab_start:rate=�(6144/12.5*rate+0.5)
/�!Vspos=pos%:!Vsend=end%
/�!Vconv_tab=tab_start
0� a%=0 � 255
0Ȏ sample_type% �
0� 0 : c%?a%=a%
0 (� 1 : ș &40181,(a%-128)<<24 � c%?a%
0*.� 2 : ș &40181,((a%�128)-128)<<24 � c%?a%
04�
0>�
0Hș &40185,2,voice_slot%
0Rș &40142,2,0
0\� 2,&17F,rate,255
0fplay_rate%=rate
0p�
0z
0���copy(A%,B%,C%)
0�A%+=sample%
0�B%+=sample%
0�C%+=sample%
0�
� copy
0��
0�
0���check_limits
0�� a%,b%
0�%� Sstart%<sample% Sstart%=sample%
0�:� Send%>=sample%+samp_size% Send%=sample%+samp_size%-1
0�a%=sel_start%
0�� sel_start%<0 a%=0
1b%=sel_end%
1@� sel_end%>=sample%+samp_size% sel_end%=sample%+samp_size%-1
1�adj_sel(a%,b%)
1$�
1.
18��toggle_sel
1B#use_selection%=� use_selection%
1L+�Xmenu_tick(menu_selfx%,use_selection%)
1V�
1`
1j
��clr_all
1tuse_selection%=0
1~�Xmenu_tick(menu_selfx%,0)
1��
1�
1���new_sample_type
1�'� shade%,tick%:shade%=%1111:tick%=0
1�Ȏ sample_type% �
1�3� 0 : shade%=%0101:tick%=%1001:samp_centre%=128
1�3� 1 : shade%=%0010:tick%=%1010:samp_centre%=128
1�1� 2 : shade%=%0011:tick%=%0100:samp_centre%=0
1��
1�'�Xmenu_shade(menu_conv%+0,shade%�1)
1�(�Xmenu_shade(menu_conv%+24,shade%�2)
1�(�Xmenu_shade(menu_conv%+48,shade%�4)
2(�Xmenu_shade(menu_conv%+72,shade%�8)
2
&�Xmenu_tick(menu_stype%+0,tick%�1)
2*�Xmenu_shade(menu_save%+0,(tick%�7)�1)
2'�Xmenu_tick(menu_stype%+24,tick%�2)
2(+�Xmenu_shade(menu_save%+24,(tick%�7)�2)
22'�Xmenu_tick(menu_stype%+48,tick%�4)
2<+�Xmenu_shade(menu_save%+48,(tick%�7)�4)
2F'�Xmenu_shade(menu_save%+96,tick%�8)
2P�
2Z
2d��do_libentries
2n� a%
2x� num_libs%<=0 �
2�"�Xmenu_shade(menu_lib%+24*1,1)
2�"�Xmenu_shade(menu_lib%+24*2,1)
2�"�Xmenu_shade(menu_lib%+24*3,1)
2�$(sub_lib2%+40)=""
2�sub_lib2%!28=128
2�$sub_lib2%!36=sub_lib%!36�(1<<22)
2��
2�'sub_lib2%!36=sub_lib%!36�(�(1<<22))
2�"�Xmenu_shade(menu_lib%+24*1,0)
2�"�Xmenu_shade(menu_lib%+24*2,0)
2�"�Xmenu_shade(menu_lib%+24*3,0)
2�� a%=0 � num_libs%-1
2�,$(sub_lib2%+40+a%*24)=�lib_name$(a%),11)
34sub_lib2%!(28+a%*24)=sub_lib2%!(28+a%*24)�(�128)
3�
3=sub_lib2%!(4+num_libs%*24)=sub_lib2%!(4+num_libs%*24)�128
3"�
3,�
36
3@��add_libentry(s$)
3J� a%,si%
3Ts$=�s$,11)
3^E� num_libs%>=16 � 1,"Too many library entries (can only have 16)"
3hlib_name$(num_libs%)=s$
3rsi%=sel_end%-sel_start%+1
3|-� sel_start%<0 � 1,"No selection to add!"
3�9a%=�Xmem_claim(si%):� a%=0 � 1,"No room to add entry"
3�lib_pos%(num_libs%)=a%
3�lib_size%(num_libs%)=si%
3�num_libs%+=1
3��do_libentries
3��
3�
3���del_libentry(s%)
3�� a%
3��Xmem_release(lib_pos%(s%))
3�num_libs%-=1
3�$� s%>=num_libs% �do_libentries:�
3�� a%=s% � num_libs%-1
4!lib_name$(a%)=lib_name$(a%+1)
4lib_pos%(a%)=lib_pos%(a%+1)
4!lib_size%(a%)=lib_size%(a%+1)
4&�do_libentries
40�
4:
4D��adj_sel(a%,b%)
4Nsel_start%=a%:sel_end%=b%
4X�new_selection
4b!q%=win_pane%:ș &400CB,,q%
4l/ș &400D1,win_pane%,q%!20,-256,q%!20+1149,0
4v�
4�
4���samp_mix(A%,B%,C%)
4�A%+=sample%
4�B%+=sample%
4�C%+=sample%
4�D%=sample%+samp_size%-1
4�E%=samp_centre%:� mix
4��
4�
4�	��mix
4��check_all(-1)
4�M� caret%>=sel_start% � caret%<=sel_end% � 1,"Cannot mix within selection"
4�)�samp_mix(sel_start%,sel_end%,caret%)
5�
5
5��premix
5 � size%
5*�check_all(0)
54size%=sel_end%-sel_start%
5>C%=sel_start%-size%+sample%
5HD%=sel_start%-1+sample%
5RA%=sel_start%+sample%
5\B%=sel_end%+sample%
5fE%=samp_centre%:� mix
5p�
5z
5�
��postmix
5��check_all(0)
5�-�samp_mix(sel_start%,sel_end%,sel_end%+1)
5��
5�
5���new_selection
5�
Ȏ � �
5�)� sel_start%>=0 � sel_end%>sel_start%
5�# �Xmenu_shade(menu_sel%+24*0,0)
5�# �Xmenu_shade(menu_sel%+24*1,0)
5�# �Xmenu_shade(menu_sel%+24*2,0)
5�# �Xmenu_shade(menu_sel%+24*3,0)
5�# �Xmenu_shade(menu_sel%+24*4,0)
6# �Xmenu_shade(menu_sel%+24*5,0)
6# �Xmenu_shade(menu_sel%+24*6,0)
6# �Xmenu_shade(menu_sel%+24*7,0)
6$# �Xmenu_shade(menu_sel%+24*8,0)
6.# �Xmenu_shade(menu_sel%+24*9,0)
68$ �Xmenu_shade(menu_sel%+24*10,0)
6B$ �Xmenu_shade(menu_sel%+24*11,0)
6L �Xmenu_shade(menu_lib%,0)
6V  �Xmenu_shade(menu_selfx%,0)
6`*� sel_start%=0 � sel_end%=samp_size%-1
6j# �Xmenu_shade(menu_sel%+24*0,1)
6t# �Xmenu_shade(menu_sel%+24*1,0)
6~# �Xmenu_shade(menu_sel%+24*2,0)
6�# �Xmenu_shade(menu_sel%+24*3,0)
6�# �Xmenu_shade(menu_sel%+24*4,0)
6�# �Xmenu_shade(menu_sel%+24*5,0)
6�# �Xmenu_shade(menu_sel%+24*6,0)
6�# �Xmenu_shade(menu_sel%+24*7,0)
6�# �Xmenu_shade(menu_sel%+24*8,0)
6�# �Xmenu_shade(menu_sel%+24*9,0)
6�$ �Xmenu_shade(menu_sel%+24*10,0)
6�$ �Xmenu_shade(menu_sel%+24*11,0)
6� �Xmenu_shade(menu_lib%,0)
6�  �Xmenu_shade(menu_selfx%,0)
6�
7# �Xmenu_shade(menu_sel%+24*0,0)
7
# �Xmenu_shade(menu_sel%+24*1,1)
7# �Xmenu_shade(menu_sel%+24*2,1)
7# �Xmenu_shade(menu_sel%+24*3,1)
7(# �Xmenu_shade(menu_sel%+24*4,1)
72# �Xmenu_shade(menu_sel%+24*5,1)
7<# �Xmenu_shade(menu_sel%+24*6,1)
7F# �Xmenu_shade(menu_sel%+24*7,1)
7P# �Xmenu_shade(menu_sel%+24*8,1)
7Z# �Xmenu_shade(menu_sel%+24*9,1)
7d$ �Xmenu_shade(menu_sel%+24*10,1)
7n$ �Xmenu_shade(menu_sel%+24*11,1)
7x �Xmenu_shade(menu_lib%,1)
7�  �Xmenu_shade(menu_selfx%,1)
7��
7�+�Xicon_setstr(win_main%,22,�sel_start%)
7�)�Xicon_setstr(win_main%,23,�sel_end%)
7��
7�
7���open_sinfo
7��set_sinfo(0,caret%)
7��set_sinfo(4,sel_start%)
7��set_sinfo(8,sel_end%)
7�&�set_sinfo(12,sel_end%-sel_start%)
7��set_sinfo(16,samp_size%)
7��
8
8��set_sinfo(ic%,data%)
82� rate%:rate%=��Xicon_getstr(win_main%,5)*1000
8"� data%>-1 �
8,6�Xicon_setstr(win_sampinfo%,ic%,��(data%/1024),8))
861�Xicon_setstr(win_sampinfo%,ic%+1,��data%,8))
8@9�Xicon_setstr(win_sampinfo%,ic%+2,��(data%/rate%),8))
8J=�Xicon_setstr(win_sampinfo%,ic%+3,��(data%/rate%*100),8))
8T�
8^+�Xicon_setstr(win_sampinfo%,ic%,"None")
8h-�Xicon_setstr(win_sampinfo%,ic%+1,"None")
8r-�Xicon_setstr(win_sampinfo%,ic%+2,"None")
8|-�Xicon_setstr(win_sampinfo%,ic%+3,"None")
8��
8��
8�
8���crem_main
8�2�Xmenu_start("Misc",start%,end%):sub_misc%=r0%
8�'�Xmenu_additem("Program",win_info%)
8�*�Xmenu_additem("Sample",win_sampinfo%)
8��Xmenu_message(r0%)
8��Xmenu_dot
8�3�Xmenu_additem("Log sample",-1):menu_stype%=r0%
8�&�Xmenu_additem("Signed sample",-1)
8�(�Xmenu_additem("Unsigned sample",-1)
8��Xmenu_dot
9/�Xmenu_additem("Lin2Log",-1):menu_conv%=r0%
9 �Xmenu_additem("Log2Lin",-1)
9!�Xmenu_additem("(Un)sign",-1)
9&�Xmenu_dot
90%�Xmenu_additem("Calc. centre",-1)
9:�Xmenu_end(start%,end%)
9D�
9N2�Xmenu_start("Save",start%,end%):sub_save%=r0%
9X2�Xmenu_additem("Log",win_save%):menu_save%=r0%
9b�Xmenu_message(r0%)
9l&�Xmenu_additem("Signed",win_save%)
9v�Xmenu_message(r0%)
9�(�Xmenu_additem("Unsigned",win_save%)
9��Xmenu_message(r0%)
9��Xmenu_dot
9�%�Xmenu_additem("Effex",win_save%)
9��Xmenu_message(r0%)
9�(�Xmenu_additem("Armadeus",win_save%)
9��Xmenu_message(r0%)
9��Xmenu_end(start%,end%)
9��
9�6�Xmenu_start("Selection",start%,end%):sub_sel%=r0%
9�9�Xmenu_additem("Select all      ^A",-1):menu_sel%=r0%
9�+�Xmenu_additem("Clear selection ^Z",-1)
9��Xmenu_dot
:+�Xmenu_additem("Delete          ^X",-1)
:+�Xmenu_additem("Copy            ^C",-1)
:+�Xmenu_additem("Copy over       ^Y",-1)
: +�Xmenu_additem("Move            ^V",-1)
:*�Xmenu_dot
:4�Xmenu_additem("Mix",-1)
:> �Xmenu_additem("Pre-mix",-1)
:H!�Xmenu_additem("Post-mix",-1)
:R�Xmenu_dot
:\*�Xmenu_additem("Zoom            Z",-1)
:f+�Xmenu_additem("Play            ^E",-1)
:p.�Xmenu_additem("Save selection",sub_save%)
:z�Xmenu_end(start%,end%)
:��
:�2�Xmenu_start("Echo",start%,end%):sub_echo%=r0%
:�?�Xmenu_addwrs("Length","a0-9,&,A-F,a-f","128",echo_length%)
:�:�Xmenu_addwrs("Strength","a0-9,.","60",echo_strength%)
:��Xmenu_dot
:�'�Xmenu_additem("Normal echo  E",-1)
:�'�Xmenu_additem("Flange echo  F",-1)
:�'�Xmenu_additem("Hall echo    H",-1)
:��Xmenu_end(start%,end%)
:��
:�5�Xmenu_start("Modulate",start%,end%):sub_mod%=r0%
:�E�Xmenu_addinput("",64,10):menu_mod0%=Xmenu_end%:$Xmenu_end%=mod0$
:�E�Xmenu_addinput("",64,10):menu_mod1%=Xmenu_end%:$Xmenu_end%=mod1$
;E�Xmenu_addinput("",64,10):menu_mod2%=Xmenu_end%:$Xmenu_end%=mod2$
;E�Xmenu_addinput("",64,10):menu_mod3%=Xmenu_end%:$Xmenu_end%=mod3$
;E�Xmenu_addinput("",64,10):menu_mod4%=Xmenu_end%:$Xmenu_end%=mod4$
;$�Xmenu_end(start%,end%)
;.�
;83�Xmenu_start("Effects",start%,end%):sub_fx%=r0%
;B2�Xmenu_additem("Selection",-1):menu_selfx%=r0%
;L�Xmenu_dot
;V �Xmenu_additem("Reverse",-1)
;` �Xmenu_additem("Silence",-1)
;j&�Xmenu_additem("Fade in    ^I",-1)
;t&�Xmenu_additem("Fade out   ^O",-1)
;~�Xmenu_dot
;�2�Xmenu_addwrs("Amplify","a0-9","100",amplify%)
;�� PROCXmenu_shade(r0%,1)
;�&�Xmenu_addwrs2("Quieten",amplify%)
;�>�Xmenu_addwrs("Eor const","a0-9,&,A-F,a-f","0",eor_const%)
;�>�Xmenu_addwrs("Add const","a0-9,&,A-F,a-f","0",add_const%)
;�;�Xmenu_addwrs("HA filter","a0-9,+,\-","+96",hp_filter%)
;�;�Xmenu_addwrs("LA filter","a0-9,+,\-","-96",lp_filter%)
;�A�Xmenu_addwrs("Core filter","a0-9,&,A-F,a-f","16",core_filt%)
;�4�Xmenu_addwrs("LF boost","a0-9,.","1.5",fboost%)
;�&�Xmenu_addwrs2("HF boost",fboost%)
;�'�Xmenu_additem("Modulate",sub_mod%)
;�$�Xmenu_additem("Echo",sub_echo%)
<�Xmenu_end(start%,end%)
<
�
<5�Xmenu_start("Playing",start%,end%):sub_play%=r0%
<)�Xmenu_additem("Play          ^P",-1)
<()�Xmenu_additem("Stop          ^S",-1)
<29�Xmenu_additem("Play tracking ^T",-1):menu_track%=r0%
<<*�Xmenu_additem("Continue      SPC",-1)
<F�Xmenu_dot
<P!�Xmenu_additem("Pitch up",-1)
<Z#�Xmenu_additem("Pitch down",-1)
<d�Xmenu_dot
<n)�Xmenu_additem("Max. volume   ^L",-1)
<x�Xmenu_end(start%,end%)
<��
<�5�Xmenu_start("Entries",start%,end%):sub_lib2%=r0%
<�/�a%=0�15:�Xmenu_additem("12345678901",-1):�
<��Xmenu_end(start%,end%)
<��
<�4�Xmenu_start("Library",start%,end%):sub_lib%=r0%
<�@�Xmenu_addwrs("Add    ^L","aa-z,AA-Z,0-9","Entry",lib_name%)
<�menu_lib%=sub_lib%+28
<�7�Xmenu_additem("Insert",sub_lib2%):menu_lpaste%=r0%
<�)�Xmenu_additem("Overwrite",sub_lib2%)
<�&�Xmenu_additem("Delete",sub_lib2%)
<��Xmenu_end(start%,end%)
<��
=4�Xmenu_start("Effex",start%,end%):menu_main%=r0%
=$�Xmenu_additem("Misc",sub_misc%)
=$�Xmenu_additem("Save",sub_save%)
="�Xmenu_dot
=,(�Xmenu_additem("Selection",sub_sel%)
=6%�Xmenu_additem("Effects",sub_fx%)
=@�Xmenu_dot
=J'�Xmenu_additem("Playing",sub_play%)
=T�Xmenu_end(start%,end%)
=^�new_sample_type
=h�new_selection
=r�do_libentries
=|�
=�
=���assem(code%)
=�#claimed_code%=�Xmem_claim(4096)
=�� opt%=8 � 10 � 2
=�P%=code%
=�
[OPT opt%
=�.reverse
=�; R0 = start
=�; R1 = end
=�
CMP R0,R1
=�MOVGE PC,R14
=�LDRB R2,[R0]
=�LDRB R3,[R1]
>STRB R3,[R0],#1
>STRB R2,[R1],#-1
>
B reverse
>&
>0.calc_centre
>:; R0 = start
>D; R1 = end
>N; R2 = tally
>X
CMP R0,R1
>bSTRGT R2,centre_val
>lMOVGT PC,R14
>vLDRB R3,[R0],#1
>�ADD R2,R2,R3
>�B calc_centre
>�.centre_val
>�	DCD 0
>�
>�.amp
>�; R0 = start
>�; R1 = end
>�; R2 = centre
>�; R3 = factor <<12
>�
CMP R0,R1
>�MOVGT PC,R14
>�LDRB R4,[R0]
?SUB R5,R4,R2
?MUL R5,R3,R5
?ADDS R4,R2,R5,ASR #12
? MOVLT R4,#0
?*CMPGT R4,#255
?4MOVGT R4,#255
?>STRB R4,[R0],#1
?H	B amp
?R
?\	.echo
?f; R0-R2 as for amp
?p; R3 = length
?z; R4 = strength <<12
?�SUB R5,R1,R3
?�.echolp
?�
CMP R5,R0
?�MOVLT PC,R14
?�"LDRB R6,[R5],#-1  ; get source
?�"SUB R6,R6,R2  ; correct centre
?�MUL R6,R4,R6  ; amplify
?�LDRB R7,[R1]  ; get dst
?�*ADDS R7,R7,R6,ASR#12 ; add echo (>>12)
?�MOVLT R7,#0
?�CMPGT R7,#255
?�MOVGT R7,#255
?�STRB R7,[R1],#-1
@B echolp
@
@.flange
@$ADD R5,R0,R3
@.
.flangelp
@8
CMP R5,R1
@BMOVGT PC,R14
@LLDRB R6,[R0],#1
@VSUB R6,R6,R2
@`MUL R6,R4,R6
@jLDRB R7,[R5]
@tADDS R7,R7,R6,ASR#12
@~MOVLT R7,#0
@�CMPGT R7,#255
@�MOVGT R7,#255
@�STRB R7,[R5],#1
@�B flangelp
@�
@�.eor
@�; R0,R1 as for amp
@�; R2 = constant
@�
CMP R0,R1
@�MOVGT PC,R14
@�LDRB R3,[R0]
@�� R3,R3,R2
ASTRB R3,[R0],#1
A
	B eor
A
A.add
A(
CMP R0,R1
A2MOVGT PC,R14
A<LDRB R3,[R0]
AFADDS R3,R3,R2
APMOVLT R3,#0
AZCMPGT R3,#255
AdMOVGT R3,#255
AnSTRB R3,[R0],#1
Ax	B add
A�
A�.hp_filt
A�; R0,R1 as for amp
A�; R2 = high pass mark
A�
CMP R0,R1
A�MOVGT PC,R14
A�LDRB R3,[R0]
A�
CMP R3,R2
A�MOVGT R3,R2
A�STRB R3,[R0],#1
A�
B hp_filt
A�
A�.lp_filt
B
CMP R0,R1
BMOVGT PC,R14
BLDRB R3,[R0]
B"
CMP R3,R2
B,MOVLT R3,R2
B6STRB R3,[R0],#1
B@
B lp_filt
BJ
BT.core_filt
B^; R0,R1 as for amp
Bh; R2 = high pass
Br; R3 = low pass
B|; R4 = centre
B�
CMP R0,R1
B�MOVGT PC,R14
B�LDRB R5,[R0],#1
B�
CMP R5,R2
B�BLT core_filt
B�
CMP R5,R3
B�MOVLE R5,R4
B�STRB R5,[R0,#-1]
B�B core_filt
B�
B�.mix
B�; R0 = sample A start
B�; R1 = sample A end
C!; R2 = sample B (store) start
C; R3 = sample B end
C; R4 = sample centre
C&
CMP R0,R1
C0CMPLE R2,R3
C:MOVGT PC,R14
CDLDRB R6,[R0],#1
CNLDRB R5,[R2]
CXADD R6,R6,R5
CbSUB R6,R6,R4
ClSTRB R6,[R2],#1
Cv	B mix
C�
C�.convert
C�; R0 = sample
C�; R1 = length
C�; R2 = table
C�LDRB R3,[R0]
C�LDRB R3,[R2,R3]
C�STRB R3,[R0],#1
C�SUBS R1,R1,#1
C�BGT convert
C�MOV PC,R14
C�
C�	.copy
D; R0 = start
D; R1 = end
D; R2 = dst
D 
CMP R2,R0
D*ADDGT R2,R2,R1
D4SUBGT R2,R2,R0
D>BGT copy_back
DH.copy_lp
DR
CMP R0,R1
D\MOVGT PC,R14
DfLDRB R3,[R0],#1
DpSTRB R3,[R2],#1
Dz
B copy_lp
D�.copy_back
D�
CMP R0,R1
D�MOVGT PC,R14
D�LDRB R3,[R1],#-1
D�STRB R3,[R2],#-1
D�B copy_back
D�
D�
.boost
D�; R0,R1 as for amp
D�; R2 = const (<<12) table
D�; R3 = centre (old val)
D�
MOV R7,R3
D�.boostlp
E
CMP R0,R1
EMOVGT PC,R14
ELDRB R4,[R0]
E$SUBS R6,R4,R3
E.RSBLT R5,R6,#0
E8MOVGE R5,R6
EBLDR R5,[R2,R5,LSL#2]
ELMUL R6,R5,R6
EVADDS R6,R3,R6,ASR#12
E`MOVLT R6,#0
EjCMPGT R6,#255
EtMOVGT R6,#255
E~STRB R6,[R0],#1
E�
MOV R3,R4
E�
MOV R7,R6
E�
B boostlp
E�
E�.fadein
E�; R0,R1,R2 as for amp
E�STMFD R13!,{R14}
E�SUBS R6,R1,R0
E�LDMLEFD R13!,{PC}
E�
MOV R3,#0
E�
.finlp
E�
CMP R0,R1
FLDMGTFD R13!,{PC}
F
LDRB R4,[R0]
FSUB R5,R4,R2
FMULS R5,R3,R5
F(�Q R7,R5
F2BLNE divide
F<ADDS R4,R2,R7
FFMOVLT R4,#0
FPCMPGT R4,#255
FZMOVGT R4,#255
FdSTRB R4,[R0],#1
FnADD R3,R3,#1
FxB finlp
F�
F�.fadeout
F�STMFD R13!,{R14}
F�SUBS R6,R1,R0
F�LDMLEFD R13!,{PC}
F�
MOV R3,R6
F�.foutlp
F�
CMP R0,R1
F�LDMGTFD R13!,{PC}
F�LDRB R4,[R0]
F�SUB R5,R4,R2
F�MULS R5,R3,R5
F��Q R7,R5
GBLNE divide
GADDS R4,R2,R7
GMOVLT R4,#0
G"CMPGT R4,#255
G,MOVGT R4,#255
G6STRB R4,[R0],#1
G@SUB R3,R3,#1
GJB foutlp
GT
G^.divide
Gh; < R5 = numerator
Gr;   R6 = denominator
G|; > R7 = result of division
G�&STMFD R13!,{R0,R1,R2,R3,R4,R5,R14}
G�
MOV R0,R5
G�
MOV R1,R6
G�
CMP R1,#0
G�BEQ end
G�
MOV R5,#1
G�
CMP R0,#0
G�MVNLT R5,R5:RSBLT R0,R0,#0
G�
CMP R1,#0
G�MVNLT R5,R5:RSBLT R1,R1,#0
G�
MOV R2,#0
G�
MOV R3,#0
G�
MOV R4,#1
H.div_lp1
HADD R2,R2,#1
HMOV R1,R1,ASL#1
H&
CMP R1,R0
H0BLE div_lp1
H:.div_lp2
HDSUB R2,R2,#1
HNMOV R1,R1,ASR#1
HX
CMP R0,R1
HbBLT div_lp2
Hl
CMP R1,#0
HvADDGE R3,R3,R4,ASL R2
H�SUB R0,R0,R1
H�
CMP R2,#0
H�BGT div_lp2
H�
CMP R5,#0
H�RSBLT R3,R3,#0
H�
MOV R2,R3
H�.end
H�
MOV R7,R2
H�%LDMFD R13!,{R0,R1,R2,R3,R4,R5,PC}
H�
H�]:P%=claimed_code%
H�[OPT opt%�3
H�
I
.Vbase
IB Vfill
IB Vfill
I 
B Vgon
I*B Vgoff
I4B Vinst
I>LDMFD R13!,{PC}
IHLDMFD R13!,{PC}
IRDCD Vname-Vbase
I\
If
.Vname
IpDCB "Effex"+�0
Iz	ALIGN
I�
I�
.Vinst
I�STMFD R13!,{R0-R4}
I�
MOV R0,#0
I�
MOV R1,#0
I�
MOV R2,#0
I�
MOV R3,#0
I�
MOV R4,#0
I�SWI "XSound_Configure"
I�LDRVC R0,[R3,#12]
I�STRVC R0,Vla_ptr
I�STRVS R0,[R13]
I�LDMFD R13!,{R0-R4,PC}
J
J
.Vspos
J	DCD 0
J$
J.
.Vsend
J8	DCD 0
JB
JL.Vla_ptr
JV	DCD 0
J`
Jj.Vconv_tab
Jt	DCD 0
J~
J�	.Vvol
J�DCB 127:ALIGN
J�
J�
.Vcommand
J�	DCD 0
J�
J�
.Vcounter
J�	DCD 0
J�
J�.Vcomm_off
J�
MOV R0,#0
J�STR R0,Vcommand
K
B Vfinish
K

K	.Vgon
KLDR R0,Vspos
K(STR R0,Vcounter
K2STR R0,[R9,#16]
K<LDR R0,Vla_ptr
KFSTR R0,[R9,#20]
KP
KZ
.Vfill
KdLDMIB R9,{R2-R6}
KnLDR R0,Vcommand
Kx
CMP R0,#1
K�BEQ Vcomm_off
K�LDR R7,Vconv_tab
K�LDR R1,Vvol
K�� R1,R1,#127
K�LDRB R1,[R6,R1,LSL#1]
K�MOV R1,R1,LSR#1
K�RSB R1,R1,#127
K�
K�
.Vfill_lp
K�LDR R0,Vsend
K�LDR R5,Vcounter
K�
TEQ R5,#0
K�STMEQIB R9,{R2-R5}
LBEQ Vfinish
L
CMP R5,R0
LSTMGEIB R9,{R2-R5}
L"BGE Vfinish
L,ADD R2,R2,R2,LSL#16
L6LDRB R0,[R5,R2,LSR#24]
L@LDRB R0,[R7,R0]
LJSUBS R0,R0,R1,LSL#1
LTMOVMI R0,#0
L^STRB R0,[R12],R11
LhADD R2,R2,R2,LSL#16
LrLDRB R0,[R5,R2,LSR#24]
L|LDRB R0,[R7,R0]
L�SUBS R0,R0,R1,LSL#1
L�MOVMI R0,#0
L�STRB R0,[R12],R11
L�ADD R2,R2,R2,LSL#16
L�LDRB R0,[R5,R2,LSR#24]
L�LDRB R0,[R7,R0]
L�SUBS R0,R0,R1,LSL#1
L�MOVMI R0,#0
L�STRB R0,[R12],R11
L�ADD R2,R2,R2,LSL#16
L�LDRB R0,[R5,R2,LSR#24]!
L�STR R5,Vcounter
L�LDRB R0,[R7,R0]
MSUBS R0,R0,R1,LSL#1
MMOVMI R0,#0
MSTRB R0,[R12],R11
M&BIC R2,R2,#&FF000000
M0CMP R12,R10
M:BLT Vfill_lp
MDSUBS R4,R4,#1
MNSTMIB R9,{R2-R5}
MXMOVPL R0,#%1000
MbMOVMI R0,#%10
MlLDMFD R13!,{PC}
Mv
M�.Vfinish
M�
MOV R0,#0
M�.Vfinlp
M�STRB R0,[R12],R11
M�STRB R0,[R12],R11
M�STRB R0,[R12],R11
M�STRB R0,[R12],R11
M�
MVN R4,#1
M�STMIB R9,{R2-R5}
M�MOV R0,#%10
M�LDMFD R13!,{PC}
M�
M�
.Vgoff
N
MOV R0,#0
N.Vflush
NSTRB R0,[R12],R11
N STRB R0,[R12],R11
N*STRB R0,[R12],R11
N4STRB R0,[R12],R11
N>CMP R12,R10
NHBLT Vflush
NR
MOV R0,#1
N\LDMFD R13!,{PC}
Nf
Np.tab_start
Nz]:�
N��
N�
N�
N�� ** ## ... data ... ## **
N�
N�� ** template data **
N�
N�� "<Effex$Dir>.Templates"
N��   main,win_main%,0
N��   pane,win_pane%,0
N��   info,win_info%,0
N��   load_query,win_load%,0
N��   save,win_save%
O�     88+24,save_valid%
O�     88+20+32,save_txt%,0
O#�   sample_info,win_sampinfo%,0
O$	� 0,0
O.
O8
OB
OL� ** ## ... tools ... ## **
OV
O`� ** Tool = menu **
Oj
Ot"��Xmenu_additem(item$,sub_id%)
O~� a%,wid%:a%=Xmenu_pos%
O�1� �item$>12 �Xmenu_addlong(item$,0,sub_id%):�
O�wid%=�item$
O�3� Xmenu_pos%+24>Xmenu_end% � 1,"Menu area full"
O�!a%=0:a%!4=sub_id%
O�a%!8=&07000021
O�$(a%+12)=item$
O�r0%=Xmenu_pos%
O�Xmenu_pos%+=24
O�%� Xmenu_wid%<wid% Xmenu_wid%=wid%
O�Xmenu_height%+=44
O��
O�
P1��Xmenu_addwrs(title$,valid$,default$,� ind%)
P
'� vl%,a%,wid%,val%,b%:vl%=�valid$+1
P0Xmenu_end%-=vl%:val%=Xmenu_end%:$val%=valid$
P1Xmenu_end%-=16:ind%=Xmenu_end%:$ind%=default$
P(Xmenu_end%-=52
P2Xmenu_end%=Xmenu_end%�(�3)
P<b%=Xmenu_end%
PF#$b%=�title$,12):b%!12=&00070207
PPb%!16=�title$*16
PZ� b%!16<32 b%!16=32
Pdb%!20=44:b%!24=0
Pnb%!28=132:b%!32=-1
Pxb%!36=&07000121
P�b%!40=ind%
P�b%!44=val%
P�b%!48=16
P��Xmenu_additem(title$,b%)
P��
P�
P� ��Xmenu_addwrs2(title$,ind%)
P�� vl%,a%,wid%,val%,b%
P�vl%=ind%+16:Xmenu_end%-=52
P�Xmenu_end%=Xmenu_end%�(�3)
P�b%=Xmenu_end%
P�$b%=title$:b%!12=&00070207
P�b%!16=�title$*16
Q� b%!16<32 b%!16=32
Qb%!20=44:b%!24=0
Qb%!28=132:b%!32=-1
Q"b%!36=&07000121
Q,b%!40=ind%
Q6b%!44=val%
Q@b%!48=16
QJ�Xmenu_additem(title$,b%)
QT�
Q^
Qh��Xmenu_dot
Qr!r0%=!r0% � 2
Q|Xmenu_height%+=24
Q��
Q�
Q�&��Xmenu_addlong(item$,ml%,sub_id%)
Q�� a%,wid%:a%=Xmenu_pos%
Q�� ml%<=�item$ ml%=�item$+1
Q�wid%=�item$
Q�7� Xmenu_pos%+24>Xmenu_end%-ml% � 1,"Menu area full"
Q�!a%=0:a%!4=sub_id%
Q�a%!8=&07000121
Q�Xmenu_end%-=ml%
Q�$Xmenu_end%=item$
Q�a%!12=Xmenu_end%
Q�a%!16=0
R
a%!20=ml%
Rr0%=Xmenu_pos%
RXmenu_pos%+=24
R&%� Xmenu_wid%<wid% Xmenu_wid%=wid%
R0Xmenu_height%+=44
R:�
RD
RN#��Xmenu_addinput(val$,ml%,wid%)
RX� a%:a%=Xmenu_pos%
RbA� Xmenu_pos%+24>Xmenu_end%-(ml%+�val$+1) � 1,"Menu area full"
Rl!a%=4:a%!4=-1
Rva%!8=&07000121
R�Xmenu_end%-=ml%
R�a%!12=Xmenu_end%
R�a%!16=0
R�D� val$<>"" Xmenu_end%-=�val$+1:$Xmenu_end%=val$:a%!16=Xmenu_end%
R�
a%!20=ml%
R�r0%=Xmenu_pos%
R�Xmenu_pos%+=24
R�%� Xmenu_wid%<wid% Xmenu_wid%=wid%
R�Xmenu_height%+=44
R��
R�
R���Xmenu_shade(r0%,set%)
R�� set%<>0 set%=1<<22
S#r0%!8=(r0%!8 �(�(1<<22)))� set%
S�
S
S ��Xmenu_tick(r0%,set%)
S*� set%<>0 set%=1
S4!!r0%=(!r0% � &FFFFFFFE)� set%
S>�
SH
SR��Xmenu_message(r0%)
S\� r0%!4<=1 �
Sf!r0%=!r0% � 8
Sp�
Sz
S���Xmenu_end(� p%,� e%)
S�� Xmenu_height%<1 �
S��Xmenu_additem(" ",-1)
S��Xmenu_shade(r0%,1)
S�Xmenu_height%=44
S��
S�!r0%=!r0% � 128
S�%Xmenu_start%!16=(Xmenu_wid%+1)*16
S�!Xmenu_start%!-4=Xmenu_height%
S�p%=Xmenu_pos%
S�e%=Xmenu_end%
S��
S�
T��Xmenu_start(tit$,st%,en%)
T
st%+=4
TXmenu_start%=st%
T$Xmenu_pos%=Xmenu_start%
T.Xmenu_end%=en%
T8Xmenu_height%=0
TBtit$=�tit$,12)
TLXmenu_wid%=�tit$
TV
$st%=tit$
T`st%!12=&00070207
Tjst%!16=0
Tt
st%!20=44
T~st%!24=0
T�r0%=Xmenu_start%
T�Xmenu_pos%+=28
T��
T�
T���Xmenu_setinput(id%,st$)
T�id%+=12
T�#� �st$>=id%!8 st$=�st$,id%!8-1)
T�$(!id%)=st$
T��
T�
T�ݤXmenu_getinput(id%)
T�=�z(id%!12)
U
U
��Xmenu_iconbar(id%)
U
� height%
Uheight%=id%!-4
U(ș &400CF,,q%
U2Xmenu_x%=!q%-64
U<Xmenu_y%=96+height%
UFXmenu_ptr%=id%
UP+ș &400D4,,Xmenu_ptr%,Xmenu_x%,Xmenu_y%
UZ�
Ud
Un��Xmenu_main(id%)
Uxș &400CF,,q%
U�Xmenu_x%=!q%-64
U�Xmenu_y%=q%!4+24
U�Xmenu_ptr%=id%
U�+ș &400D4,,Xmenu_ptr%,Xmenu_x%,Xmenu_y%
U��
U�
U�� ** Tool = wimp/general **
U�
U�3ݤz(a%):�s$:s$="":ȕ?a%>31:s$+=�?a%:a%+=1:�:=s$
U�
U�ݤset(� var%,val%)
U�var%=val%:=0
U�
V��setvar(v$,val%)
V val%=�("FNset("+v$+",val%)")
V�
V"
V,��Xwimp_init(s$)
V6s$=�s$,15)
V@8ș &400C0,200,&4B534154,s$ � wimp_vers%,task_handle%
VJ�
VT
V^"��Xwimp_templates(ic%,ic_end%)
Vh)� file$,temp$,var$,hand%,ad$,ad%,val%
Vr� file$
V|ȕ file$<>"0"
V�  ș &400D9,,file$
V�
  � temp$
V�  ȕ temp$<>"0"
V�    � var$
V�8    ș &400DB,,Xtemp%,ic%,ic_end%,-1,temp$,0 � ,,ic%
V�
    � ad$
V�    ȕ ad$<>"0"
V�"      ad%=�ad$:� ad$:val%=�ad$
V�      Xtemp%!ad%=val%
V�      � ad$
V�      �
V�!    ș &400C1,,Xtemp% � hand%
V�    �setvar(var$,hand%)
W    � temp$
W  �
W  ș &400DA
W&
  � file$
W0�
W:iconend%=ic%
WD�
WN
WX� ** Tool = memory **
Wb
Wl��Xmem_init(blocks%)
WvXmem_blocks%=blocks%
W�)ș &1E,6,,,blocks%*4 � ,,Xmem_header%
W�� temp_a%=0 � blocks%-1
W�Xmem_header%!(temp_a%<<2)=0
W��
W��
W�
W�ݤXmem_claim(size%)
W� � temp_a%=0 � Xmem_blocks%-1
W�#� Xmem_header%!(temp_a%<<2)=0 �
W� ș &1E,6,,,size% � ,,temp_b%
W�%Xmem_header%!(temp_a%<<2)=temp_b%
W�temp_a%=Xmem_blocks%+1000
W��
X�
XA� temp_a%=Xmem_blocks% � 1,"Maximum block allocation reached"
X=temp_b%
X 
X*��Xmem_reduce(� addr%,cs%)
X4 � temp_a%=0 � Xmem_blocks%-1
X>'� Xmem_header%!(temp_a%<<2)=addr% �
XH*ș &1D,4,&1800000,addr%,-cs% � ,,addr%
XR#Xmem_header%!(temp_a%<<2)=addr%
X\temp_a%=Xmem_blocks%+1000
Xf�
Xp�
XzA� temp_a%=Xmem_blocks% � 1,"Cannot find block for alteration"
X��
X�
X���Xmem_delta(� addr%,cs%)
X�.� size%:� cs%<0 �Xmem_reduce(addr%,-cs%):�
X� � temp_a%=0 � Xmem_blocks%-1
X�'� Xmem_header%!(temp_a%<<2)=addr% �
X�&ș &1D,6,&1800000,addr% � ,,,size%
X�size%+=cs%
X�$ș &1E,13,,addr%,size% � ,,addr%
X�#Xmem_header%!(temp_a%<<2)=addr%
X�temp_a%=Xmem_blocks%+1000
X��
X��
YA� temp_a%=Xmem_blocks% � 1,"Cannot find block for alteration"
Y�
Y
Y$ ��Xmem_change(� addr%,size%)
Y. � temp_a%=0 � Xmem_blocks%-1
Y8'� Xmem_header%!(temp_a%<<2)=addr% �
YB$ș &1E,13,,addr%,size% � ,,addr%
YL#Xmem_header%!(temp_a%<<2)=addr%
YVtemp_a%=Xmem_blocks%+1000
Y`�
Yj�
YtA� temp_a%=Xmem_blocks% � 1,"Cannot find block for alteration"
Y~�
Y�
Y���Xmem_release(addr%)
Y� � temp_a%=0 � Xmem_blocks%-1
Y�'� Xmem_header%!(temp_a%<<2)=addr% �
Y�ș &1E,7,,addr%
Y�Xmem_header%!(temp_a%<<2)=0
Y�temp_a%=Xmem_blocks%+1000
Y��
Y��
Y�>� temp_a%=Xmem_blocks% � 1,"Cannot find block for release"
Y��
Y�
Z��Xmem_quit
Z

temp_b%=0
Z � temp_a%=0 � Xmem_blocks%-1
Z$� Xmem_header%!(temp_a%<<2)<>0 �
Z(temp_b%+=1
Z2'ș &1E,7,,Xmem_header%!(temp_a%<<2)
Z<Xmem_header%!(temp_a%<<2)=0
ZF�
ZP�
ZZș &1E,7,,Xmem_header%
Zd*�"SetEval Effex%FreedBlocks "+�temp_b%
Zn�
Zx
Z�� ** Tool = windows **
Z�
Z���Xwin_open(handle%)
Z�!Xtemp%=handle%
Z�"ș &400CB,,Xtemp%:Xtemp%!28=-1
Z�ș &400C5,,Xtemp%
Z��
Z�
Z���Xwin_close(handle%)
Z�!Xtemp%=handle%
Z�ș &400C6,,Xtemp%
Z��
Z�
[!��Xwin_settitle(handle%,tit$)
[� a%,b%
[!Xtemp%=handle%
["ș &400CC,,Xtemp%
[,;� (Xtemp%!60 � 256)=0 � 1,"Window title not indirected"
[6b%=Xtemp%!84
[@a%=Xtemp%!76
[Jtit$=�tit$,b%-1)
[T$a%=tit$
[^�
[h
[r� ** Tool = icons **
[|
[�ݤXicon_getstr(win%,ic%)
[�!Xtemp%=win%:Xtemp%!4=ic%
[�ș &400CE,,Xtemp%
[�3� (Xtemp%!24 � 256)=0 � 1,"Icon not indirected"
[�=�z(Xtemp%!28)
[�
[���Xicon_setstr(win%,ic%,s$)
[�� a%,b%
[�!Xtemp%=win%:Xtemp%!4=ic%
[�ș &400CE,,Xtemp%
[�3� (Xtemp%!24 � 256)=0 � 1,"Icon not indirected"
[�b%=Xtemp%!36
[�a%=Xtemp%!28
\s$=�s$,b%-1)
\
$a%=s$
\�Xicon_redraw(win%,ic%)
\&�
\0
\:%��Xicon_seticonvalid(win%,ic%,s$)
\D� a%,a$
\N!Xtemp%=win%:Xtemp%!4=ic%
\Xș &400CE,,Xtemp%
\b3� (Xtemp%!24 � 256)=0 � 1,"Icon not indirected"
\la$=$(Xtemp%!32)
\v$(Xtemp%!32)=�s$,�a$)
\��Xicon_redraw(win%,ic%)
\��
\�
\���Xicon_redraw(win%,ic%)
\�!Xtemp%=win%:Xtemp%!4=ic%
\�Xtemp%!8=0:Xtemp%!12=0
\�ș &400CD,,Xtemp%
\��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 19 f4 20 45  66 66 65 78 20 73 61 6d  |e..... Effex sam|
00000020  70 6c 65 20 65 64 69 74  6f 72 0d 00 1e 18 f4 20  |ple editor..... |
00000030  a9 20 50 61 75 6c 20 4d  61 73 6f 6e 2c 20 31 39  |. Paul Mason, 19|
00000040  39 32 0d 00 28 04 0d 00  32 11 c8 99 20 26 31 30  |92..(...2... &10|
00000050  20 b8 20 65 6e 76 25 0d  00 3c 11 65 6e 76 24 3d  | . env%..<.env$=|
00000060  a4 7a 28 65 6e 76 25 29  0d 00 46 1f 61 25 3d a7  |.z(env%)..F.a%=.|
00000070  65 6e 76 24 2c 22 45 66  66 65 78 2e 21 52 75 6e  |env$,"Effex.!Run|
00000080  49 6d 61 67 65 22 29 0d  00 50 1b 61 25 2b 3d a9  |Image")..P.a%+=.|
00000090  22 45 66 66 65 78 2e 21  52 75 6e 49 6d 61 67 65  |"Effex.!RunImage|
000000a0  20 22 0d 00 5a 14 65 6e  76 24 3d c1 65 6e 76 24  | "..Z.env$=.env$|
000000b0  2c 61 25 2b 31 29 0d 00  64 1c 65 6e 76 24 3d c1  |,a%+1)..d.env$=.|
000000c0  65 6e 76 24 2c a7 65 6e  76 24 2c 22 2d 22 29 2b  |env$,.env$,"-")+|
000000d0  31 29 0d 00 6e 0f ee 20  85 20 f2 65 72 72 28 31  |1)..n.. . .err(1|
000000e0  29 0d 00 78 09 f2 69 6e  69 74 0d 00 82 28 f2 63  |)..x..init...(.c|
000000f0  72 65 5f 6d 65 6e 75 73  28 6d 65 6e 75 73 25 2c  |re_menus(menus%,|
00000100  6d 65 6e 75 73 25 2b 6d  65 6e 75 5f 73 69 7a 65  |menus%+menu_size|
00000110  25 29 0d 00 8c 0f ee 20  85 20 f2 65 72 72 28 30  |%)..... . .err(0|
00000120  29 0d 00 96 0e c8 95 20  ac 20 71 75 69 74 25 0d  |)...... . quit%.|
00000130  00 a0 1c c8 99 20 26 34  30 30 43 37 2c 30 2c 71  |..... &400C7,0,q|
00000140  25 20 b8 20 72 65 61 73  6f 6e 25 0d 00 aa 1e f2  |% . reason%.....|
00000150  68 61 6e 64 6c 65 5f 72  65 61 73 6f 6e 28 72 65  |handle_reason(re|
00000160  61 73 6f 6e 25 2c 71 25  29 0d 00 b4 22 e7 20 65  |ason%,q%)...". e|
00000170  6e 76 24 3c 3e 22 22 20  f2 6c 6f 61 64 28 65 6e  |nv$<>"" .load(en|
00000180  76 24 29 3a 65 6e 76 24  3d 22 22 0d 00 be 05 ce  |v$):env$="".....|
00000190  0d 00 c8 0f ee 20 85 20  f2 65 72 72 28 31 29 0d  |..... . .err(1).|
000001a0  00 d2 0f f2 71 75 69 74  5f 76 6f 69 63 65 0d 00  |....quit_voice..|
000001b0  dc 0e f2 58 6d 65 6d 5f  71 75 69 74 0d 00 e6 05  |...Xmem_quit....|
000001c0  e0 0d 00 f0 04 0d 00 fa  1f dd f2 68 61 6e 64 6c  |...........handl|
000001d0  65 5f 72 65 61 73 6f 6e  28 72 65 61 73 6f 6e 25  |e_reason(reason%|
000001e0  2c 71 25 29 0d 01 04 10  c8 8e 20 72 65 61 73 6f  |,q%)...... reaso|
000001f0  6e 25 20 ca 0d 01 0e 3c  c9 20 30 20 3a 20 e7 20  |n% ....<. 0 : . |
00000200  73 61 6d 70 6c 65 5f 74  79 70 65 25 3e 3d 30 20  |sample_type%>=0 |
00000210  80 20 21 56 63 6f 75 6e  74 65 72 3e 30 20 80 20  |. !Vcounter>0 . |
00000220  74 72 61 63 6b 69 6e 67  25 20 f2 74 72 61 63 6b  |tracking% .track|
00000230  0d 01 18 11 c9 20 31 20  3a 20 f2 72 65 64 72 61  |..... 1 : .redra|
00000240  77 0d 01 22 13 c9 20 32  20 3a 20 f2 6f 70 65 6e  |w..".. 2 : .open|
00000250  28 71 25 29 0d 01 2c 14  c9 20 33 20 3a 20 f2 63  |(q%)..,.. 3 : .c|
00000260  6c 6f 73 65 28 71 25 29  0d 01 36 07 c9 20 34 0d  |lose(q%)..6.. 4.|
00000270  01 40 07 c9 20 35 0d 01  4a 11 c9 20 36 20 3a 20  |.@.. 5..J.. 6 : |
00000280  f2 6d 63 6c 69 63 6b 0d  01 54 12 c9 20 37 20 3a  |.mclick..T.. 7 :|
00000290  20 f2 64 72 61 67 62 6f  78 0d 01 5e 22 c9 20 38  | .dragbox..^". 8|
000002a0  20 3a 20 f2 6b 70 72 65  73 73 28 71 25 21 30 2c  | : .kpress(q%!0,|
000002b0  71 25 21 34 2c 71 25 21  32 34 29 0d 01 68 12 c9  |q%!4,q%!24)..h..|
000002c0  20 39 20 3a 20 f2 6d 65  6e 75 73 65 6c 0d 01 72  | 9 : .menusel..r|
000002d0  13 c9 20 31 37 2c 31 38  20 3a 20 f2 6d 65 73 73  |.. 17,18 : .mess|
000002e0  0d 01 7c 05 cb 0d 01 86  05 e1 0d 01 90 04 0d 01  |..|.............|
000002f0  9a 0d dd f2 64 72 61 67  62 6f 78 0d 01 a4 08 ea  |....dragbox.....|
00000300  20 61 25 0d 01 ae 11 c8  99 20 26 34 30 30 43 46  | a%...... &400CF|
00000310  2c 2c 71 25 0d 01 b8 0f  71 25 21 32 34 3d 71 25  |,,q%....q%!24=q%|
00000320  21 31 36 0d 01 c2 2d 71  25 21 31 36 3d 31 3a 71  |!16...-q%!16=1:q|
00000330  25 21 32 30 3d 71 25 21  31 32 3a 71 25 21 32 38  |%!20=q%!12:q%!28|
00000340  3d 71 25 21 30 3a 71 25  21 33 32 3d 71 25 21 34  |=q%!0:q%!32=q%!4|
00000350  0d 01 cc 25 71 25 21 33  36 3d 73 61 76 65 5f 73  |...%q%!36=save_s|
00000360  69 7a 65 25 3a 71 25 21  34 30 3d 66 69 6c 65 5f  |ize%:q%!40=file_|
00000370  74 79 70 65 25 0d 01 d6  25 f2 65 78 74 72 61 63  |type%...%.extrac|
00000380  74 5f 6c 65 61 66 3a 24  28 71 25 2b 34 34 29 3d  |t_leaf:$(q%+44)=|
00000390  73 61 76 65 5f 6e 61 6d  65 24 0d 01 e0 20 71 25  |save_name$... q%|
000003a0  21 30 3d 28 34 34 2b a9  73 61 76 65 5f 6e 61 6d  |!0=(44+.save_nam|
000003b0  65 24 2b 35 29 80 28 ac  33 29 0d 01 ea 21 71 25  |e$+5).(.3)...!q%|
000003c0  21 31 32 3d 30 3a c8 99  20 26 34 30 30 45 37 2c  |!12=0:.. &400E7,|
000003d0  31 37 2c 71 25 2c 71 25  21 32 30 0d 01 f4 11 73  |17,q%,q%!20....s|
000003e0  61 76 65 72 65 66 25 3d  71 25 21 38 0d 01 fe 11  |averef%=q%!8....|
000003f0  c8 99 20 26 34 30 30 44  34 2c 2c 2d 31 0d 02 08  |.. &400D4,,-1...|
00000400  05 e1 0d 02 12 04 0d 02  1c 12 dd f2 64 61 74 61  |............data|
00000410  73 61 76 65 5f 61 63 6b  0d 02 26 17 e7 20 71 25  |save_ack..&.. q%|
00000420  21 31 32 3c 3e 73 61 76  65 72 65 66 25 20 e1 0d  |!12<>saveref% ..|
00000430  02 30 18 73 61 76 65 5f  6e 61 6d 65 24 3d a4 7a  |.0.save_name$=.z|
00000440  28 71 25 2b 34 34 29 0d  02 3a 28 e7 20 71 25 21  |(q%+44)..:(. q%!|
00000450  33 36 3c 3e 2d 31 20 f2  69 6e 73 65 72 74 5f 6e  |36<>-1 .insert_n|
00000460  61 6d 65 3a 6d 6f 64 69  66 69 65 64 25 3d 30 0d  |ame:modified%=0.|
00000470  02 44 13 c8 8e 20 66 69  6c 65 5f 74 79 70 65 25  |.D... file_type%|
00000480  20 ca 0d 02 4e 14 c9 20  26 36 33 31 2c 26 36 33  | ...N.. &631,&63|
00000490  32 2c 26 36 33 33 0d 02  58 4d 20 c8 99 20 38 2c  |2,&633..XM .. 8,|
000004a0  31 30 2c 73 61 76 65 5f  6e 61 6d 65 24 2c 66 69  |10,save_name$,fi|
000004b0  6c 65 5f 74 79 70 65 25  2c 2c 73 61 76 65 5f 73  |le_type%,,save_s|
000004c0  61 6d 70 6c 65 25 2c 73  61 76 65 5f 73 61 6d 70  |ample%,save_samp|
000004d0  6c 65 25 2b 73 61 76 65  5f 73 61 6d 70 5f 73 69  |le%+save_samp_si|
000004e0  7a 65 25 0d 02 62 22 c9  20 26 36 33 34 20 3a 20  |ze%..b". &634 : |
000004f0  f2 73 61 76 65 5f 65 66  66 28 73 61 76 65 5f 6e  |.save_eff(save_n|
00000500  61 6d 65 24 29 0d 02 6c  22 c9 20 26 44 33 43 20  |ame$)..l". &D3C |
00000510  3a 20 f2 73 61 76 65 5f  61 72 6d 28 73 61 76 65  |: .save_arm(save|
00000520  5f 6e 61 6d 65 24 29 0d  02 76 05 cb 0d 02 80 16  |_name$)..v......|
00000530  71 25 21 31 32 3d 71 25  21 38 3a 71 25 21 31 36  |q%!12=q%!8:q%!16|
00000540  3d 33 0d 02 8a 19 c8 99  20 26 34 30 30 45 37 2c  |=3...... &400E7,|
00000550  31 37 2c 71 25 2c 71 25  21 32 30 0d 02 94 05 e1  |17,q%,q%!20.....|
00000560  0d 02 9e 04 0d 02 a8 15  dd f2 73 61 76 65 5f 65  |..........save_e|
00000570  66 66 28 6e 61 6d 65 24  29 0d 02 b2 17 ea 20 66  |ff(name$)..... f|
00000580  69 6c 65 25 2c 73 69 7a  65 25 2c 72 61 74 65 25  |ile%,size%,rate%|
00000590  0d 02 bc 12 66 69 6c 65  25 3d ae 28 6e 61 6d 65  |....file%=.(name|
000005a0  24 29 0d 02 c6 18 d5 23  66 69 6c 65 25 2c 73 61  |$).....#file%,sa|
000005b0  6d 70 6c 65 5f 74 79 70  65 25 0d 02 d0 21 d5 23  |mple_type%...!.#|
000005c0  66 69 6c 65 25 2c 30 3a  d5 23 66 69 6c 65 25 2c  |file%,0:.#file%,|
000005d0  30 3a d5 23 66 69 6c 65  25 2c 30 0d 02 da 1a f2  |0:.#file%,0.....|
000005e0  77 70 75 74 28 73 61 76  65 5f 73 61 6d 70 5f 73  |wput(save_samp_s|
000005f0  69 7a 65 25 29 0d 02 e4  0d f2 77 70 75 74 28 32  |ize%).....wput(2|
00000600  38 29 0d 02 ee 16 f2 77  70 75 74 28 73 61 76 65  |8).....wput(save|
00000610  5f 63 61 72 65 74 25 29  0d 02 f8 1a f2 77 70 75  |_caret%).....wpu|
00000620  74 28 73 61 76 65 5f 73  65 6c 5f 73 74 61 72 74  |t(save_sel_start|
00000630  25 29 0d 03 02 18 f2 77  70 75 74 28 73 61 76 65  |%).....wput(save|
00000640  5f 73 65 6c 5f 65 6e 64  25 29 0d 03 0c 2d 72 61  |_sel_end%)...-ra|
00000650  74 65 25 3d bb a4 58 69  63 6f 6e 5f 67 65 74 73  |te%=..Xicon_gets|
00000660  74 72 28 77 69 6e 5f 6d  61 69 6e 25 2c 35 29 2a  |tr(win_main%,5)*|
00000670  28 31 3c 3c 32 34 29 0d  03 16 10 f2 77 70 75 74  |(1<<24).....wput|
00000680  28 72 61 74 65 25 29 0d  03 20 2e c8 99 20 26 43  |(rate%).. ... &C|
00000690  2c 32 2c 66 69 6c 65 25  2c 73 61 76 65 5f 73 61  |,2,file%,save_sa|
000006a0  6d 70 6c 65 25 2c 73 61  76 65 5f 73 61 6d 70 5f  |mple%,save_samp_|
000006b0  73 69 7a 65 25 0d 03 2a  0b d9 23 66 69 6c 65 25  |size%..*..#file%|
000006c0  0d 03 34 1c ff 22 53 65  74 54 79 70 65 20 22 2b  |..4.."SetType "+|
000006d0  6e 61 6d 65 24 2b 22 20  36 33 34 22 0d 03 3e 05  |name$+" 634"..>.|
000006e0  e1 0d 03 48 04 0d 03 52  15 dd f2 73 61 76 65 5f  |...H...R...save_|
000006f0  61 72 6d 28 6e 61 6d 65  24 29 0d 03 5c 17 ea 20  |arm(name$)..\.. |
00000700  66 69 6c 65 25 2c 73 69  7a 65 25 2c 72 61 74 65  |file%,size%,rate|
00000710  25 0d 03 66 12 66 69 6c  65 25 3d ae 28 6e 61 6d  |%..f.file%=.(nam|
00000720  65 24 29 0d 03 70 27 d5  23 66 69 6c 65 25 2c bb  |e$)..p'.#file%,.|
00000730  a4 58 69 63 6f 6e 5f 67  65 74 73 74 72 28 77 69  |.Xicon_getstr(wi|
00000740  6e 5f 6d 61 69 6e 25 2c  34 29 0d 03 7a 2e c8 99  |n_main%,4)..z...|
00000750  20 26 43 2c 32 2c 66 69  6c 65 25 2c 73 61 76 65  | &C,2,file%,save|
00000760  5f 73 61 6d 70 6c 65 25  2c 73 61 76 65 5f 73 61  |_sample%,save_sa|
00000770  6d 70 5f 73 69 7a 65 25  0d 03 84 0b d9 23 66 69  |mp_size%.....#fi|
00000780  6c 65 25 0d 03 8e 1c ff  22 53 65 74 54 79 70 65  |le%....."SetType|
00000790  20 22 2b 6e 61 6d 65 24  2b 22 20 44 33 43 22 0d  | "+name$+" D3C".|
000007a0  03 98 05 e1 0d 03 a2 04  0d 03 ac 0e dd a4 6c 65  |..............le|
000007b0  61 66 28 73 24 29 0d 03  b6 10 ea 20 73 32 24 3a  |af(s$)..... s2$:|
000007c0  73 32 24 3d 22 22 0d 03  c0 16 e7 20 a7 73 24 2c  |s2$=""..... .s$,|
000007d0  22 2e 22 29 3d 30 20 8c  20 3d 73 24 0d 03 ca 1c  |".")=0 . =s$....|
000007e0  c8 95 20 c2 73 24 29 3c  3e 22 2e 22 20 80 20 c2  |.. .s$)<>"." . .|
000007f0  73 24 29 3c 3e 22 3a 22  0d 03 d4 10 73 32 24 3d  |s$)<>":"....s2$=|
00000800  c2 73 24 29 2b 73 32 24  0d 03 de 0b 73 24 3d c0  |.s$)+s2$....s$=.|
00000810  73 24 29 0d 03 e8 05 ce  0d 03 f2 08 3d 73 32 24  |s$).........=s2$|
00000820  0d 03 fc 04 0d 04 06 0e  dd a4 70 61 74 68 28 73  |..........path(s|
00000830  24 29 0d 04 10 1c c8 95  20 c2 73 24 29 3c 3e 22  |$)...... .s$)<>"|
00000840  2e 22 20 80 20 c2 73 24  29 3c 3e 22 3a 22 0d 04  |." . .s$)<>":"..|
00000850  1a 0b 73 24 3d c0 73 24  29 0d 04 24 05 ce 0d 04  |..s$=.s$)..$....|
00000860  2e 07 3d 73 24 0d 04 38  04 0d 04 42 12 dd f2 65  |..=s$..8...B...e|
00000870  78 74 72 61 63 74 5f 6c  65 61 66 0d 04 4c 30 73  |xtract_leaf..L0s|
00000880  61 76 65 5f 6e 61 6d 65  24 3d a4 6c 65 61 66 28  |ave_name$=.leaf(|
00000890  a4 58 69 63 6f 6e 5f 67  65 74 73 74 72 28 77 69  |.Xicon_getstr(wi|
000008a0  6e 5f 73 61 76 65 25 2c  31 29 29 0d 04 56 05 e1  |n_save%,1))..V..|
000008b0  0d 04 60 04 0d 04 6a 11  dd f2 69 6e 73 65 72 74  |..`...j...insert|
000008c0  5f 6e 61 6d 65 0d 04 74  13 c8 8e 20 66 69 6c 65  |_name..t... file|
000008d0  5f 74 79 70 65 25 20 ca  0d 04 7e 22 c9 20 26 36  |_type% ...~". &6|
000008e0  33 31 20 3a 20 73 6e 61  6d 65 5f 6c 6f 67 24 3d  |31 : sname_log$=|
000008f0  73 61 76 65 5f 6e 61 6d  65 24 0d 04 88 22 c9 20  |save_name$...". |
00000900  26 36 33 32 20 3a 20 73  6e 61 6d 65 5f 73 67 6e  |&632 : sname_sgn|
00000910  24 3d 73 61 76 65 5f 6e  61 6d 65 24 0d 04 92 22  |$=save_name$..."|
00000920  c9 20 26 36 33 33 20 3a  20 73 6e 61 6d 65 5f 75  |. &633 : sname_u|
00000930  6e 73 24 3d 73 61 76 65  5f 6e 61 6d 65 24 0d 04  |ns$=save_name$..|
00000940  9c 22 c9 20 26 36 33 34  20 3a 20 73 6e 61 6d 65  |.". &634 : sname|
00000950  5f 65 66 66 24 3d 73 61  76 65 5f 6e 61 6d 65 24  |_eff$=save_name$|
00000960  0d 04 a6 22 c9 20 26 44  33 43 20 3a 20 73 6e 61  |...". &D3C : sna|
00000970  6d 65 5f 61 72 6d 24 3d  73 61 76 65 5f 6e 61 6d  |me_arm$=save_nam|
00000980  65 24 0d 04 b0 22 c9 20  26 36 33 35 20 3a 20 73  |e$...". &635 : s|
00000990  6e 61 6d 65 5f 73 65 6c  24 3d 73 61 76 65 5f 6e  |name_sel$=save_n|
000009a0  61 6d 65 24 0d 04 ba 22  c9 20 26 36 33 36 20 3a  |ame$...". &636 :|
000009b0  20 73 6e 61 6d 65 5f 6c  69 62 24 3d 73 61 76 65  | sname_lib$=save|
000009c0  5f 6e 61 6d 65 24 0d 04  c4 05 cb 0d 04 ce 05 e1  |_name$..........|
000009d0  0d 04 d8 04 0d 04 e2 1d  dd f2 6b 70 72 65 73 73  |..........kpress|
000009e0  28 77 69 6e 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |(win%,icon%,key%|
000009f0  29 0d 04 ec 0d c8 8e 20  6b 65 79 25 20 ca 0d 04  |)...... key% ...|
00000a00  f6 2e c9 20 31 33 20 3a  20 e7 20 77 69 6e 25 3d  |... 13 : . win%=|
00000a10  77 69 6e 5f 6d 61 69 6e  25 3a f2 6e 65 78 74 5f  |win_main%:.next_|
00000a20  63 61 72 65 74 28 69 63  6f 6e 25 29 0d 05 00 24  |caret(icon%)...$|
00000a30  20 20 20 20 20 20 20 20  20 20 e7 20 77 69 6e 25  |          . win%|
00000a40  3d 77 69 6e 5f 73 61 76  65 25 20 f2 73 61 76 65  |=win_save% .save|
00000a50  0d 05 0a 21 c9 20 26 31  38 46 20 3a 20 f2 6d 6f  |...!. &18F : .mo|
00000a60  76 65 5f 63 61 72 65 74  28 69 63 6f 6e 25 2c 31  |ve_caret(icon%,1|
00000a70  29 0d 05 14 21 c9 20 26  31 38 45 20 3a 20 f2 6d  |)...!. &18E : .m|
00000a80  6f 76 65 5f 63 61 72 65  74 28 69 63 6f 6e 25 2c  |ove_caret(icon%,|
00000a90  30 29 0d 05 1e 28 7f 20  3a 20 e7 20 ac 20 a4 6b  |0)...(. : . . .k|
00000aa0  65 79 5f 6f 6b 28 6b 65  79 25 29 20 c8 99 20 26  |ey_ok(key%) .. &|
00000ab0  34 30 30 44 43 2c 6b 65  79 25 0d 05 28 05 cb 0d  |400DC,key%..(...|
00000ac0  05 32 05 e1 0d 05 3c 04  0d 05 46 0a dd f2 73 61  |.2....<...F...sa|
00000ad0  76 65 0d 05 50 29 73 61  76 65 5f 6e 61 6d 65 24  |ve..P)save_name$|
00000ae0  3d a4 58 69 63 6f 6e 5f  67 65 74 73 74 72 28 77  |=.Xicon_getstr(w|
00000af0  69 6e 5f 73 61 76 65 25  2c 31 29 0d 05 5a 10 f2  |in_save%,1)..Z..|
00000b00  69 6e 73 65 72 74 5f 6e  61 6d 65 0d 05 64 13 c8  |insert_name..d..|
00000b10  8e 20 66 69 6c 65 5f 74  79 70 65 25 20 ca 0d 05  |. file_type% ...|
00000b20  6e 14 c9 20 26 36 33 31  2c 26 36 33 32 2c 26 36  |n.. &631,&632,&6|
00000b30  33 33 0d 05 78 4d 20 c8  99 20 38 2c 31 30 2c 73  |33..xM .. 8,10,s|
00000b40  61 76 65 5f 6e 61 6d 65  24 2c 66 69 6c 65 5f 74  |ave_name$,file_t|
00000b50  79 70 65 25 2c 2c 73 61  76 65 5f 73 61 6d 70 6c  |ype%,,save_sampl|
00000b60  65 25 2c 73 61 76 65 5f  73 61 6d 70 6c 65 25 2b  |e%,save_sample%+|
00000b70  73 61 76 65 5f 73 61 6d  70 5f 73 69 7a 65 25 0d  |save_samp_size%.|
00000b80  05 82 22 c9 20 26 36 33  34 20 3a 20 f2 73 61 76  |..". &634 : .sav|
00000b90  65 5f 65 66 66 28 73 61  76 65 5f 6e 61 6d 65 24  |e_eff(save_name$|
00000ba0  29 0d 05 8c 22 c9 20 26  44 33 43 20 3a 20 f2 73  |)...". &D3C : .s|
00000bb0  61 76 65 5f 61 72 6d 28  73 61 76 65 5f 6e 61 6d  |ave_arm(save_nam|
00000bc0  65 24 29 0d 05 96 05 cb  0d 05 a0 11 c8 99 20 26  |e$)........... &|
00000bd0  34 30 30 44 34 2c 2c 2d  31 0d 05 aa 05 e1 0d 05  |400D4,,-1.......|
00000be0  b4 04 0d 05 be 15 dd f2  6e 65 78 74 5f 63 61 72  |........next_car|
00000bf0  65 74 28 69 63 25 29 0d  05 c8 1c ea 20 61 25 2c  |et(ic%)..... a%,|
00000c00  77 69 6e 25 3a 77 69 6e  25 3d 77 69 6e 5f 6d 61  |win%:win%=win_ma|
00000c10  69 6e 25 0d 05 d2 0c c8  8e 20 69 63 25 20 ca 0d  |in%...... ic% ..|
00000c20  05 dc 2d c9 20 35 20 3a  20 f2 73 65 74 5f 72 61  |..-. 5 : .set_ra|
00000c30  74 65 28 bb 28 a4 58 69  63 6f 6e 5f 67 65 74 73  |te(.(.Xicon_gets|
00000c40  74 72 28 77 69 6e 25 2c  35 29 29 29 0d 05 e6 1f  |tr(win%,5)))....|
00000c50  20 20 20 20 20 20 20 20  20 f2 73 65 74 5f 63 61  |         .set_ca|
00000c60  72 65 74 28 77 69 6e 25  2c 34 29 0d 05 f0 32 c9  |ret(win%,4)...2.|
00000c70  20 34 20 3a 20 61 25 3d  bb 28 a4 58 69 63 6f 6e  | 4 : a%=.(.Xicon|
00000c80  5f 67 65 74 73 74 72 28  77 69 6e 25 2c 34 29 29  |_getstr(win%,4))|
00000c90  3a e7 20 61 25 3d 30 20  61 25 3d 35 30 0d 05 fa  |:. a%=0 a%=50...|
00000ca0  1f 20 20 20 20 20 20 20  20 20 f2 73 65 74 5f 72  |.         .set_r|
00000cb0  61 74 65 28 31 30 30 30  2f 61 25 29 0d 06 04 1f  |ate(1000/a%)....|
00000cc0  20 20 20 20 20 20 20 20  20 f2 73 65 74 5f 63 61  |         .set_ca|
00000cd0  72 65 74 28 77 69 6e 25  2c 35 29 0d 06 0e 22 c9  |ret(win%,5)...".|
00000ce0  20 31 38 20 3a 20 f2 73  65 74 5f 63 61 72 65 74  | 18 : .set_caret|
00000cf0  28 77 69 6e 25 2c 31 38  29 3a f2 73 63 0d 06 18  |(win%,18):.sc...|
00000d00  1e c9 20 32 32 20 3a 20  f2 73 65 74 5f 63 61 72  |.. 22 : .set_car|
00000d10  65 74 28 77 69 6e 25 2c  32 33 29 0d 06 22 22 c9  |et(win%,23).."".|
00000d20  20 32 33 20 3a 20 f2 73  65 74 5f 63 61 72 65 74  | 23 : .set_caret|
00000d30  28 77 69 6e 25 2c 32 32  29 3a f2 73 73 0d 06 2c  |(win%,22):.ss..,|
00000d40  1e c9 20 31 30 20 3a 20  f2 73 65 74 5f 63 61 72  |.. 10 : .set_car|
00000d50  65 74 28 77 69 6e 25 2c  31 31 29 0d 06 36 15 c9  |et(win%,11)..6..|
00000d60  20 31 31 20 3a 20 f2 7a  6f 6f 6d 28 30 2c 30 29  | 11 : .zoom(0,0)|
00000d70  0d 06 40 21 20 20 20 20  20 20 20 20 20 20 f2 73  |..@!          .s|
00000d80  65 74 5f 63 61 72 65 74  28 77 69 6e 25 2c 31 30  |et_caret(win%,10|
00000d90  29 0d 06 4a 25 c9 20 32  35 20 3a 20 61 25 3d bb  |)..J%. 25 : a%=.|
00000da0  a4 58 69 63 6f 6e 5f 67  65 74 73 74 72 28 77 69  |.Xicon_getstr(wi|
00000db0  6e 25 2c 32 35 29 0d 06  54 19 20 20 20 20 20 20  |n%,25)..T.      |
00000dc0  20 20 20 20 e7 20 61 25  3c 30 20 61 25 3d 30 0d  |    . a%<0 a%=0.|
00000dd0  06 5e 1d 20 20 20 20 20  20 20 20 20 20 e7 20 61  |.^.          . a|
00000de0  25 3e 31 32 37 20 61 25  3d 31 32 37 0d 06 68 28  |%>127 a%=127..h(|
00000df0  20 20 20 20 20 20 20 20  20 20 f2 58 69 63 6f 6e  |          .Xicon|
00000e00  5f 73 65 74 73 74 72 28  77 69 6e 25 2c 32 35 2c  |_setstr(win%,25,|
00000e10  c3 61 25 29 0d 06 72 16  20 20 20 20 20 20 20 20  |.a%)..r.        |
00000e20  20 20 3f 56 76 6f 6c 3d  61 25 0d 06 7c 05 cb 0d  |  ?Vvol=a%..|...|
00000e30  06 86 05 e1 0d 06 90 04  0d 06 9a 19 dd f2 6d 6f  |..............mo|
00000e40  76 65 5f 63 61 72 65 74  28 69 63 25 2c 75 70 25  |ve_caret(ic%,up%|
00000e50  29 0d 06 a4 0b ea 20 75  25 2c 64 25 0d 06 ae 0c  |)..... u%,d%....|
00000e60  c8 8e 20 69 63 25 20 ca  0d 06 b8 14 c9 20 35 20  |.. ic% ...... 5 |
00000e70  3a 20 75 25 3d 31 31 3a  64 25 3d 34 0d 06 c2 14  |: u%=11:d%=4....|
00000e80  c9 20 34 20 3a 20 75 25  3d 35 3a 64 25 3d 31 38  |. 4 : u%=5:d%=18|
00000e90  0d 06 cc 15 c9 20 31 38  20 3a 20 75 25 3d 34 3a  |..... 18 : u%=4:|
00000ea0  64 25 3d 32 32 0d 06 d6  16 c9 20 32 32 20 3a 20  |d%=22..... 22 : |
00000eb0  75 25 3d 31 38 3a 64 25  3d 32 33 0d 06 e0 16 c9  |u%=18:d%=23.....|
00000ec0  20 32 33 20 3a 20 75 25  3d 32 32 3a 64 25 3d 32  | 23 : u%=22:d%=2|
00000ed0  35 0d 06 ea 16 c9 20 32  35 20 3a 20 75 25 3d 32  |5..... 25 : u%=2|
00000ee0  33 3a 64 25 3d 31 30 0d  06 f4 16 c9 20 31 30 20  |3:d%=10..... 10 |
00000ef0  3a 20 75 25 3d 32 35 3a  64 25 3d 31 31 0d 06 fe  |: u%=25:d%=11...|
00000f00  15 c9 20 31 31 20 3a 20  75 25 3d 31 30 3a 64 25  |.. 11 : u%=10:d%|
00000f10  3d 35 0d 07 08 05 cb 0d  07 12 3d e7 20 75 70 25  |=5........=. up%|
00000f20  20 f2 73 65 74 5f 63 61  72 65 74 28 77 69 6e 5f  | .set_caret(win_|
00000f30  6d 61 69 6e 25 2c 75 25  29 20 8b 20 f2 73 65 74  |main%,u%) . .set|
00000f40  5f 63 61 72 65 74 28 77  69 6e 5f 6d 61 69 6e 25  |_caret(win_main%|
00000f50  2c 64 25 29 0d 07 1c 05  e1 0d 07 26 04 0d 07 30  |,d%).......&...0|
00000f60  13 dd f2 73 65 74 5f 72  61 74 65 28 6b 68 7a 29  |...set_rate(khz)|
00000f70  0d 07 3a 12 e7 20 6b 68  7a 3d 30 20 6b 68 7a 3d  |..:.. khz=0 khz=|
00000f80  32 30 0d 07 44 23 f2 58  69 63 6f 6e 5f 73 65 74  |20..D#.Xicon_set|
00000f90  73 74 72 28 77 69 6e 5f  6d 61 69 6e 25 2c 35 2c  |str(win_main%,5,|
00000fa0  c3 6b 68 7a 29 0d 07 4e  2a f2 58 69 63 6f 6e 5f  |.khz)..N*.Xicon_|
00000fb0  73 65 74 73 74 72 28 77  69 6e 5f 6d 61 69 6e 25  |setstr(win_main%|
00000fc0  2c 34 2c c3 28 31 30 30  30 2f 6b 68 7a 29 29 0d  |,4,.(1000/khz)).|
00000fd0  07 58 05 e1 0d 07 62 04  0d 07 6c 16 dd f2 73 65  |.X....b...l...se|
00000fe0  74 5f 63 61 72 65 74 28  77 25 2c 69 25 29 0d 07  |t_caret(w%,i%)..|
00000ff0  76 27 ea 20 6c 65 6e 25  3a 6c 65 6e 25 3d a9 28  |v'. len%:len%=.(|
00001000  a4 58 69 63 6f 6e 5f 67  65 74 73 74 72 28 77 25  |.Xicon_getstr(w%|
00001010  2c 69 25 29 29 0d 07 80  1f c8 99 20 26 34 30 30  |,i%))...... &400|
00001020  44 32 2c 77 25 2c 69 25  2c 30 2c 30 2c 2d 31 2c  |D2,w%,i%,0,0,-1,|
00001030  6c 65 6e 25 0d 07 8a 05  e1 0d 07 94 04 0d 07 9e  |len%............|
00001040  0c dd f2 72 65 64 72 61  77 0d 07 a8 37 ea 20 6d  |...redraw...7. m|
00001050  6f 72 65 25 2c 73 63 6c  25 2c 78 70 25 2c 70 6f  |ore%,scl%,xp%,po|
00001060  73 2c 69 6e 63 2c 78 6f  25 2c 79 6f 25 2c 73 73  |s,inc,xo%,yo%,ss|
00001070  2c 73 65 2c 63 61 72 25  2c 73 73 73 2c 73 73 65  |,se,car%,sss,sse|
00001080  0d 07 b2 26 73 73 3d 73  65 6c 5f 73 74 61 72 74  |...&ss=sel_start|
00001090  25 2a 31 31 35 30 2a 7a  6f 6f 6d 2f 73 61 6d 70  |%*1150*zoom/samp|
000010a0  5f 73 69 7a 65 25 0d 07  bc 24 73 65 3d 73 65 6c  |_size%...$se=sel|
000010b0  5f 65 6e 64 25 2a 31 31  35 30 2a 7a 6f 6f 6d 2f  |_end%*1150*zoom/|
000010c0  73 61 6d 70 5f 73 69 7a  65 25 0d 07 c6 24 63 61  |samp_size%...$ca|
000010d0  72 25 3d 63 61 72 65 74  25 2a 31 31 35 30 2a 7a  |r%=caret%*1150*z|
000010e0  6f 6f 6d 2f 73 61 6d 70  5f 73 69 7a 65 25 0d 07  |oom/samp_size%..|
000010f0  d0 25 c8 99 20 26 33 35  2c 2d 31 2c 34 20 b8 20  |.%.. &35,-1,4 . |
00001100  2c 2c 73 63 6c 25 3a 73  63 6c 25 3d 31 3c 3c 73  |,,scl%:scl%=1<<s|
00001110  63 6c 25 0d 07 da 19 c8  99 20 26 34 30 30 43 38  |cl%...... &400C8|
00001120  2c 2c 71 25 20 b8 20 6d  6f 72 65 25 0d 07 e4 0c  |,,q% . more%....|
00001130  c8 95 20 6d 6f 72 65 25  0d 07 ee 1c 78 73 74 61  |.. more%....xsta|
00001140  72 74 25 3d 71 25 21 32  38 2d 71 25 21 34 2b 71  |rt%=q%!28-q%!4+q|
00001150  25 21 32 30 0d 07 f8 1a  78 65 6e 64 25 3d 71 25  |%!20....xend%=q%|
00001160  21 33 36 2d 71 25 21 34  2b 71 25 21 32 30 0d 08  |!36-q%!4+q%!20..|
00001170  02 0e 70 6f 73 25 3d 71  25 21 32 38 0d 08 0c 2b  |..pos%=q%!28...+|
00001180  70 6f 73 3d 28 78 73 74  61 72 74 25 2d 73 63 6c  |pos=(xstart%-scl|
00001190  25 29 2a 73 61 6d 70 5f  73 69 7a 65 25 2f 7a 6f  |%)*samp_size%/zo|
000011a0  6f 6d 2f 31 31 35 30 0d  08 16 21 69 6e 63 3d 73  |om/1150...!inc=s|
000011b0  63 6c 25 2a 73 61 6d 70  5f 73 69 7a 65 25 2f 7a  |cl%*samp_size%/z|
000011c0  6f 6f 6d 2f 31 31 35 30  0d 08 20 15 62 79 74 65  |oom/1150.. .byte|
000011d0  25 3d 73 61 6d 70 6c 65  25 3f 70 6f 73 0d 08 2a  |%=sample%?pos..*|
000011e0  1b 78 6f 25 3d 71 25 21  34 2d 71 25 21 32 30 3a  |.xo%=q%!4-q%!20:|
000011f0  79 6f 25 3d 71 25 21 38  0d 08 34 1b ec 20 78 73  |yo%=q%!8..4.. xs|
00001200  74 61 72 74 25 2b 78 6f  25 2c 62 79 74 65 25 2b  |tart%+xo%,byte%+|
00001210  79 6f 25 0d 08 3e 0f c8  99 20 26 34 30 30 45 36  |yo%..>... &400E6|
00001220  2c 34 0d 08 48 2a e3 20  78 70 25 3d 78 73 74 61  |,4..H*. xp%=xsta|
00001230  72 74 25 2d 73 63 6c 25  20 b8 20 78 65 6e 64 25  |rt%-scl% . xend%|
00001240  2b 73 63 6c 25 20 88 20  73 63 6c 25 0d 08 52 21  |+scl% . scl%..R!|
00001250  f0 76 64 75 25 2c 78 70  25 2b 78 6f 25 2c 73 61  |.vdu%,xp%+xo%,sa|
00001260  6d 70 6c 65 25 3f 70 6f  73 2b 79 6f 25 0d 08 5c  |mple%?pos+yo%..\|
00001270  0c 70 6f 73 2b 3d 69 6e  63 0d 08 66 05 ed 0d 08  |.pos+=inc..f....|
00001280  70 40 e7 20 73 65 6c 5f  73 74 61 72 74 25 3e 3d  |p@. sel_start%>=|
00001290  30 20 c8 99 20 26 34 30  30 45 36 2c 37 2b 28 33  |0 .. &400E6,7+(3|
000012a0  3c 3c 34 29 3a c8 93 c8  90 20 73 73 2b 78 6f 25  |<<4):.... ss+xo%|
000012b0  2c 79 6f 25 2c 73 65 2d  73 73 2c 32 35 36 0d 08  |,yo%,se-ss,256..|
000012c0  7a 43 e7 20 63 61 72 65  74 25 3e 3d 30 20 c8 99  |zC. caret%>=0 ..|
000012d0  20 26 34 30 30 45 36 2c  31 31 2b 28 33 3c 3c 34  | &400E6,11+(3<<4|
000012e0  29 3a 86 20 63 61 72 25  2b 78 6f 25 2c 79 6f 25  |):. car%+xo%,yo%|
000012f0  2c 63 61 72 25 2b 78 6f  25 2c 79 6f 25 2b 32 35  |,car%+xo%,yo%+25|
00001300  36 0d 08 84 25 c8 99 20  26 34 30 30 45 36 2c 38  |6...%.. &400E6,8|
00001310  3a 86 20 78 6f 25 2c 79  6f 25 2c 78 6f 25 2c 79  |:. xo%,yo%,xo%,y|
00001320  6f 25 2b 32 35 36 0d 08  8e 3e c8 99 20 26 34 30  |o%+256...>.. &40|
00001330  30 45 36 2c 31 35 3a 86  20 78 6f 25 2b 31 31 35  |0E6,15:. xo%+115|
00001340  30 2a 7a 6f 6f 6d 2d 31  2c 79 6f 25 2c 78 6f 25  |0*zoom-1,yo%,xo%|
00001350  2b 31 31 35 30 2a 7a 6f  6f 6d 2d 31 2c 79 6f 25  |+1150*zoom-1,yo%|
00001360  2b 32 35 36 0d 08 98 19  c8 99 20 26 34 30 30 43  |+256...... &400C|
00001370  41 2c 2c 71 25 20 b8 20  6d 6f 72 65 25 0d 08 a2  |A,,q% . more%...|
00001380  05 ce 0d 08 ac 05 e1 0d  08 b6 04 0d 08 c0 14 dd  |................|
00001390  f2 66 72 65 73 68 28 77  69 6e 25 2c 71 25 29 0d  |.fresh(win%,q%).|
000013a0  08 ca 1a 21 71 25 3d 77  69 6e 25 3a c8 99 20 26  |...!q%=win%:.. &|
000013b0  34 30 30 43 42 2c 2c 71  25 0d 08 d4 0d f2 6f 70  |400CB,,q%.....op|
000013c0  65 6e 28 71 25 29 0d 08  de 05 e1 0d 08 e8 04 0d  |en(q%)..........|
000013d0  08 f2 13 dd f2 7a 6f 6f  6d 28 64 61 25 2c 64 62  |.....zoom(da%,db|
000013e0  25 29 0d 08 fc 10 ea 20  61 25 2c 62 25 2c 73 63  |%)..... a%,b%,sc|
000013f0  6c 25 0d 09 06 23 61 25  3d bb a4 58 69 63 6f 6e  |l%...#a%=..Xicon|
00001400  5f 67 65 74 73 74 72 28  77 69 6e 5f 6d 61 69 6e  |_getstr(win_main|
00001410  25 2c 31 30 29 0d 09 10  0b 61 25 2b 3d 64 61 25  |%,10)....a%+=da%|
00001420  0d 09 1a 13 e7 20 61 25  3e 39 39 39 20 61 25 3d  |..... a%>999 a%=|
00001430  39 39 39 0d 09 24 23 62  25 3d bb a4 58 69 63 6f  |999..$#b%=..Xico|
00001440  6e 5f 67 65 74 73 74 72  28 77 69 6e 5f 6d 61 69  |n_getstr(win_mai|
00001450  6e 25 2c 31 31 29 0d 09  2e 0b 62 25 2b 3d 64 62  |n%,11)....b%+=db|
00001460  25 0d 09 38 13 e7 20 62  25 3e 39 39 39 20 62 25  |%..8.. b%>999 b%|
00001470  3d 39 39 39 0d 09 42 0f  e7 20 61 25 3c 31 20 61  |=999..B.. a%<1 a|
00001480  25 3d 31 0d 09 4c 0f e7  20 62 25 3c 31 20 62 25  |%=1..L.. b%<1 b%|
00001490  3d 31 0d 09 56 11 e7 20  62 25 3e 61 25 20 62 25  |=1..V.. b%>a% b%|
000014a0  3d 61 25 0d 09 60 0e 7a  6f 6f 6d 3d 61 25 2f 62  |=a%..`.zoom=a%/b|
000014b0  25 0d 09 6a 23 f2 58 69  63 6f 6e 5f 73 65 74 73  |%..j#.Xicon_sets|
000014c0  74 72 28 77 69 6e 5f 6d  61 69 6e 25 2c 31 30 2c  |tr(win_main%,10,|
000014d0  c3 61 25 29 0d 09 74 23  f2 58 69 63 6f 6e 5f 73  |.a%)..t#.Xicon_s|
000014e0  65 74 73 74 72 28 77 69  6e 5f 6d 61 69 6e 25 2c  |etstr(win_main%,|
000014f0  31 31 2c c3 62 25 29 0d  09 7e 1f 21 71 25 3d 77  |11,.b%)..~.!q%=w|
00001500  69 6e 5f 70 61 6e 65 25  3a c8 99 20 26 34 30 30  |in_pane%:.. &400|
00001510  43 42 2c 2c 71 25 0d 09  88 3f e7 20 71 25 21 32  |CB,,q%...?. q%!2|
00001520  30 3e 31 31 35 30 2a 28  7a 6f 6f 6d 2d 31 29 2d  |0>1150*(zoom-1)-|
00001530  31 20 71 25 21 32 30 3d  31 31 35 30 2a 28 7a 6f  |1 q%!20=1150*(zo|
00001540  6f 6d 2d 31 29 2d 31 3a  c8 99 20 26 34 30 30 43  |om-1)-1:.. &400C|
00001550  35 2c 2c 71 25 0d 09 92  14 71 25 21 34 3d 30 3a  |5,,q%....q%!4=0:|
00001560  71 25 21 38 3d 2d 32 35  36 0d 09 9c 18 71 25 21  |q%!8=-256....q%!|
00001570  31 32 3d 71 25 21 34 2b  31 31 35 30 2a 7a 6f 6f  |12=q%!4+1150*zoo|
00001580  6d 0d 09 a6 0b 71 25 21  31 36 3d 30 0d 09 b0 25  |m....q%!16=0...%|
00001590  c8 99 20 26 33 35 2c 2d  31 2c 34 20 b8 20 2c 2c  |.. &35,-1,4 . ,,|
000015a0  73 63 6c 25 3a 73 63 6c  25 3d 31 3c 3c 73 63 6c  |scl%:scl%=1<<scl|
000015b0  25 0d 09 ba 10 61 25 3d  71 25 21 38 83 73 63 6c  |%....a%=q%!8.scl|
000015c0  25 0d 09 c4 19 71 25 21  31 32 3d 71 25 21 31 32  |%....q%!12=q%!12|
000015d0  2b 28 73 63 6c 25 2d 61  25 29 0d 09 ce 1c c8 99  |+(scl%-a%)......|
000015e0  20 26 34 30 30 44 37 2c  77 69 6e 5f 70 61 6e 65  | &400D7,win_pane|
000015f0  25 2c 71 25 2b 34 0d 09  d8 1f 21 71 25 3d 77 69  |%,q%+4....!q%=wi|
00001600  6e 5f 70 61 6e 65 25 3a  c8 99 20 26 34 30 30 43  |n_pane%:.. &400C|
00001610  42 2c 2c 71 25 0d 09 e2  2f c8 99 20 26 34 30 30  |B,,q%.../.. &400|
00001620  44 31 2c 77 69 6e 5f 70  61 6e 65 25 2c 71 25 21  |D1,win_pane%,q%!|
00001630  32 30 2c 2d 32 35 36 2c  71 25 21 32 30 2b 31 31  |20,-256,q%!20+11|
00001640  35 30 2c 30 0d 09 ec 05  e1 0d 09 f6 04 0d 0a 00  |50,0............|
00001650  0e dd f2 6f 70 65 6e 28  71 25 29 0d 0a 0a 13 ea  |...open(q%).....|
00001660  20 61 25 3a 61 25 3d 71  25 2b 31 30 32 34 0d 0a  | a%:a%=q%+1024..|
00001670  14 15 e7 20 21 71 25 3d  77 69 6e 5f 6d 61 69 6e  |... !q%=win_main|
00001680  25 20 8c 0d 0a 1e 20 61  25 21 30 3d 77 69 6e 5f  |% .... a%!0=win_|
00001690  70 61 6e 65 25 3a c8 99  20 26 34 30 30 43 42 2c  |pane%:.. &400CB,|
000016a0  2c 61 25 0d 0a 28 1f 61  25 21 32 38 3d 71 25 21  |,a%..(.a%!28=q%!|
000016b0  32 38 3a 71 25 21 32 38  3d 77 69 6e 5f 70 61 6e  |28:q%!28=win_pan|
000016c0  65 25 0d 0a 32 25 61 25  21 31 32 3d 61 25 21 31  |e%..2%a%!12=a%!1|
000016d0  32 2d 61 25 21 34 3a 61  25 21 31 36 3d 61 25 21  |2-a%!4:a%!16=a%!|
000016e0  31 36 2d 61 25 21 38 0d  0a 3c 14 61 25 21 34 3d  |16-a%!8..<.a%!4=|
000016f0  71 25 21 34 2b 70 61 6e  65 78 25 0d 0a 46 14 61  |q%!4+panex%..F.a|
00001700  25 21 38 3d 71 25 21 38  2b 70 61 6e 65 79 25 0d  |%!8=q%!8+paney%.|
00001710  0a 50 25 61 25 21 31 32  3d 61 25 21 31 32 2b 61  |.P%a%!12=a%!12+a|
00001720  25 21 34 3a 61 25 21 31  36 3d 61 25 21 31 36 2b  |%!4:a%!16=a%!16+|
00001730  61 25 21 38 0d 0a 5a 11  c8 99 20 26 34 30 30 43  |a%!8..Z... &400C|
00001740  35 2c 2c 61 25 0d 0a 64  05 cd 0d 0a 6e 11 c8 99  |5,,a%..d....n...|
00001750  20 26 34 30 30 43 35 2c  2c 71 25 0d 0a 78 05 e1  | &400C5,,q%..x..|
00001760  0d 0a 82 04 0d 0a 8c 0f  dd f2 63 6c 6f 73 65 28  |..........close(|
00001770  71 25 29 0d 0a 96 11 c8  99 20 26 34 30 30 43 36  |q%)...... &400C6|
00001780  2c 2c 71 25 0d 0a a0 16  e7 20 21 71 25 3c 3e 77  |,,q%..... !q%<>w|
00001790  69 6e 5f 6d 61 69 6e 25  20 e1 0d 0a aa 11 21 71  |in_main% .....!q|
000017a0  25 3d 77 69 6e 5f 70 61  6e 65 25 0d 0a b4 11 c8  |%=win_pane%.....|
000017b0  99 20 26 34 30 30 43 36  2c 2c 71 25 0d 0a be 05  |. &400C6,,q%....|
000017c0  e1 0d 0a c8 04 0d 0a d2  0c dd f2 6d 63 6c 69 63  |...........mclic|
000017d0  6b 0d 0a dc 19 ea 20 78  70 6f 73 25 2c 77 69 6e  |k..... xpos%,win|
000017e0  25 2c 62 75 74 25 2c 69  63 25 0d 0a e6 2c 78 70  |%,but%,ic%...,xp|
000017f0  6f 73 25 3d 21 71 25 3a  62 75 74 25 3d 71 25 21  |os%=!q%:but%=q%!|
00001800  38 3a 77 69 6e 25 3d 71  25 21 31 32 3a 69 63 25  |8:win%=q%!12:ic%|
00001810  3d 71 25 21 31 36 0d 0a  f0 05 f4 0d 0a fa 0e e7  |=q%!16..........|
00001820  20 71 25 21 38 3d 32 20  8c 0d 0b 04 3b 20 e7 20  | q%!8=2 ....; . |
00001830  71 25 21 31 32 3d 2d 32  20 80 20 71 25 21 31 36  |q%!12=-2 . q%!16|
00001840  3d 69 63 6f 6e 62 61 72  25 20 f2 58 6d 65 6e 75  |=iconbar% .Xmenu|
00001850  5f 69 63 6f 6e 62 61 72  28 6d 65 6e 75 5f 69 63  |_iconbar(menu_ic|
00001860  6f 6e 25 29 0d 0b 0e 40  20 e7 20 71 25 21 31 32  |on%)...@ . q%!12|
00001870  3d 77 69 6e 5f 6d 61 69  6e 25 20 84 20 71 25 21  |=win_main% . q%!|
00001880  31 32 3d 77 69 6e 5f 70  61 6e 65 25 20 f2 58 6d  |12=win_pane% .Xm|
00001890  65 6e 75 5f 6d 61 69 6e  28 6d 65 6e 75 5f 6d 61  |enu_main(menu_ma|
000018a0  69 6e 25 29 0d 0b 18 05  cd 0d 0b 22 05 f4 0d 0b  |in%)......."....|
000018b0  2c 2b e7 20 28 71 25 21  38 3d 34 20 84 20 71 25  |,+. (q%!8=4 . q%|
000018c0  21 38 3d 31 29 20 80 20  71 25 21 31 32 3d 77 69  |!8=1) . q%!12=wi|
000018d0  6e 5f 70 61 6e 65 25 20  8c 0d 0b 36 05 cd 0d 0b  |n_pane% ...6....|
000018e0  40 0e e7 20 71 25 21 38  3d 34 20 8c 0d 0b 4a 47  |@.. q%!8=4 ...JG|
000018f0  20 e7 20 71 25 21 31 32  3d 2d 32 20 80 20 71 25  | . q%!12=-2 . q%|
00001900  21 31 36 3d 69 63 6f 6e  62 61 72 25 20 80 20 73  |!16=iconbar% . s|
00001910  61 6d 70 6c 65 5f 74 79  70 65 25 3e 2d 31 20 f2  |ample_type%>-1 .|
00001920  66 72 65 73 68 28 77 69  6e 5f 6d 61 69 6e 25 2c  |fresh(win_main%,|
00001930  71 25 29 0d 0b 54 1f 20  e7 20 71 25 21 31 32 3d  |q%)..T. . q%!12=|
00001940  77 69 6e 5f 70 61 6e 65  25 20 f2 73 65 74 5f 73  |win_pane% .set_s|
00001950  65 6c 0d 0b 5e 23 20 e7  20 77 69 6e 25 3d 77 69  |el..^# . win%=wi|
00001960  6e 5f 6d 61 69 6e 25 20  80 20 69 63 25 3d 32 38  |n_main% . ic%=28|
00001970  20 f2 70 6c 79 0d 0b 68  05 cd 0d 0b 72 05 f4 0d  | .ply..h....r...|
00001980  0b 7c 0e e7 20 71 25 21  38 3d 31 20 8c 0d 0b 86  |.|.. q%!8=1 ....|
00001990  1f 20 e7 20 71 25 21 31  32 3d 77 69 6e 5f 70 61  |. . q%!12=win_pa|
000019a0  6e 65 25 20 f2 73 65 74  5f 63 61 72 0d 0b 90 05  |ne% .set_car....|
000019b0  cd 0d 0b 9a 05 f4 0d 0b  a4 43 e7 20 28 62 75 74  |.........C. (but|
000019c0  25 3d 34 20 84 20 62 75  74 25 3d 31 29 20 80 20  |%=4 . but%=1) . |
000019d0  77 69 6e 25 3d 77 69 6e  5f 70 61 6e 65 25 20 f2  |win%=win_pane% .|
000019e0  73 63 72 6f 6c 6c 5f 70  61 6e 65 28 78 70 6f 73  |scroll_pane(xpos|
000019f0  25 2c 71 25 2b 35 31 32  29 0d 0b ae 38 e7 20 62  |%,q%+512)...8. b|
00001a00  75 74 25 3c 3e 32 20 80  20 77 69 6e 25 3d 77 69  |ut%<>2 . win%=wi|
00001a10  6e 5f 6d 61 69 6e 25 20  f2 68 61 6e 64 6c 65 5f  |n_main% .handle_|
00001a20  77 69 6e 6d 61 69 6e 28  69 63 25 2c 62 75 74 25  |winmain(ic%,but%|
00001a30  29 0d 0b b8 2c e7 20 77  69 6e 25 3d 77 69 6e 5f  |)...,. win%=win_|
00001a40  73 61 76 65 25 20 f2 68  61 6e 64 6c 65 5f 73 61  |save% .handle_sa|
00001a50  76 65 73 28 69 63 25 2c  62 75 74 25 29 0d 0b c2  |ves(ic%,but%)...|
00001a60  05 e1 0d 0b cc 04 0d 0b  d6 09 dd f2 70 6c 79 0d  |............ply.|
00001a70  0b e0 31 ea 20 76 6f 6c  25 2c 72 61 74 65 3a 76  |..1. vol%,rate:v|
00001a80  6f 6c 25 3d bb a4 58 69  63 6f 6e 5f 67 65 74 73  |ol%=..Xicon_gets|
00001a90  74 72 28 77 69 6e 5f 6d  61 69 6e 25 2c 32 35 29  |tr(win_main%,25)|
00001aa0  0d 0b ea 24 72 61 74 65  3d bb a4 58 69 63 6f 6e  |...$rate=..Xicon|
00001ab0  5f 67 65 74 73 74 72 28  77 69 6e 5f 6d 61 69 6e  |_getstr(win_main|
00001ac0  25 2c 35 29 0d 0b f4 31  f2 70 6c 61 79 28 73 61  |%,5)...1.play(sa|
00001ad0  6d 70 6c 65 25 2c 73 61  6d 70 6c 65 25 2b 73 61  |mple%,sample%+sa|
00001ae0  6d 70 5f 73 69 7a 65 25  2d 31 2c 76 6f 6c 25 2c  |mp_size%-1,vol%,|
00001af0  72 61 74 65 29 0d 0b fe  05 e1 0d 0c 08 04 0d 0c  |rate)...........|
00001b00  12 0d dd f2 70 6c 79 5f  73 65 6c 0d 0c 1c 11 f2  |....ply_sel.....|
00001b10  63 68 65 63 6b 5f 61 6c  6c 28 30 29 0d 0c 26 31  |check_all(0)..&1|
00001b20  ea 20 76 6f 6c 25 2c 72  61 74 65 3a 76 6f 6c 25  |. vol%,rate:vol%|
00001b30  3d bb a4 58 69 63 6f 6e  5f 67 65 74 73 74 72 28  |=..Xicon_getstr(|
00001b40  77 69 6e 5f 6d 61 69 6e  25 2c 32 35 29 0d 0c 30  |win_main%,25)..0|
00001b50  24 72 61 74 65 3d bb a4  58 69 63 6f 6e 5f 67 65  |$rate=..Xicon_ge|
00001b60  74 73 74 72 28 77 69 6e  5f 6d 61 69 6e 25 2c 35  |tstr(win_main%,5|
00001b70  29 0d 0c 3a 38 f2 70 6c  61 79 28 73 61 6d 70 6c  |)..:8.play(sampl|
00001b80  65 25 2b 73 65 6c 5f 73  74 61 72 74 25 2c 73 61  |e%+sel_start%,sa|
00001b90  6d 70 6c 65 25 2b 73 65  6c 5f 65 6e 64 25 2c 76  |mple%+sel_end%,v|
00001ba0  6f 6c 25 2c 72 61 74 65  29 0d 0c 44 05 e1 0d 0c  |ol%,rate)..D....|
00001bb0  4e 04 0d 0c 58 1c dd f2  68 61 6e 64 6c 65 5f 73  |N...X...handle_s|
00001bc0  61 76 65 73 28 69 63 25  2c 62 75 74 25 29 0d 0c  |aves(ic%,but%)..|
00001bd0  62 0a c8 8e 20 b9 20 ca  0d 0c 6c 2e c9 20 69 63  |b... . ...l.. ic|
00001be0  25 3d 30 20 80 20 28 62  75 74 25 3d 31 36 20 84  |%=0 . (but%=16 .|
00001bf0  20 62 75 74 25 3d 36 34  29 20 3a 20 f2 64 72 61  | but%=64) : .dra|
00001c00  67 5f 73 61 76 65 0d 0c  76 1f c9 20 69 63 25 3d  |g_save..v.. ic%=|
00001c10  32 20 80 20 28 62 75 74  25 3c 3e 32 29 20 3a 20  |2 . (but%<>2) : |
00001c20  f2 73 61 76 65 0d 0c 80  05 cb 0d 0c 8a 05 e1 0d  |.save...........|
00001c30  0c 94 04 0d 0c 9e 0f dd  f2 64 72 61 67 5f 73 61  |.........drag_sa|
00001c40  76 65 0d 0c a8 13 ea 20  78 30 25 2c 79 30 25 2c  |ve..... x0%,y0%,|
00001c50  73 68 66 74 25 0d 0c b2  1f 21 71 25 3d 77 69 6e  |shft%....!q%=win|
00001c60  5f 73 61 76 65 25 3a c8  99 20 26 34 30 30 43 42  |_save%:.. &400CB|
00001c70  2c 2c 71 25 0d 0c bc 16  78 30 25 3d 71 25 21 34  |,,q%....x0%=q%!4|
00001c80  3a 79 30 25 3d 71 25 21  31 36 0d 0c c6 18 71 25  |:y0%=q%!16....q%|
00001c90  21 34 3d 30 3a c8 99 20  26 34 30 30 43 45 2c 2c  |!4=0:.. &400CE,,|
00001ca0  71 25 0d 0c d0 24 71 25  21 34 3d 35 3a 71 25 21  |q%...$q%!4=5:q%!|
00001cb0  38 2b 3d 78 30 25 3a 71  25 21 31 32 3d 79 30 25  |8+=x0%:q%!12=y0%|
00001cc0  2b 71 25 21 31 32 0d 0c  da 1e 71 25 21 31 36 2b  |+q%!12....q%!16+|
00001cd0  3d 78 30 25 3a 71 25 21  32 30 3d 79 30 25 2b 71  |=x0%:q%!20=y0%+q|
00001ce0  25 21 32 30 0d 0c e4 18  c8 99 20 26 33 35 2c 2d  |%!20...... &35,-|
00001cf0  31 2c 31 31 20 b8 20 2c  2c 78 30 25 0d 0c ee 28  |1,11 . ,,x0%...(|
00001d00  c8 99 20 26 33 35 2c 2d  31 2c 34 20 b8 20 2c 2c  |.. &35,-1,4 . ,,|
00001d10  73 68 66 74 25 3a 78 30  25 3d 78 30 25 3c 3c 73  |shft%:x0%=x0%<<s|
00001d20  68 66 74 25 0d 0c f8 18  c8 99 20 26 33 35 2c 2d  |hft%...... &35,-|
00001d30  31 2c 31 32 20 b8 20 2c  2c 79 30 25 0d 0d 02 28  |1,12 . ,,y0%...(|
00001d40  c8 99 20 26 33 35 2c 2d  31 2c 35 20 b8 20 2c 2c  |.. &35,-1,5 . ,,|
00001d50  73 68 66 74 25 3a 79 30  25 3d 79 30 25 3c 3c 73  |shft%:y0%=y0%<<s|
00001d60  68 66 74 25 0d 0d 0c 27  71 25 21 32 34 3d 30 3a  |hft%...'q%!24=0:|
00001d70  71 25 21 32 38 3d 30 3a  71 25 21 33 32 3d 78 30  |q%!28=0:q%!32=x0|
00001d80  25 3a 71 25 21 33 36 3d  79 30 25 0d 0d 16 11 c8  |%:q%!36=y0%.....|
00001d90  99 20 26 34 30 30 44 30  2c 2c 71 25 0d 0d 20 05  |. &400D0,,q%.. .|
00001da0  e1 0d 0d 2a 04 0d 0d 34  1e dd f2 68 61 6e 64 6c  |...*...4...handl|
00001db0  65 5f 77 69 6e 6d 61 69  6e 28 69 63 25 2c 62 75  |e_winmain(ic%,bu|
00001dc0  74 25 29 0d 0d 3e 23 ea  20 6d 75 6c 25 3a e7 20  |t%)..>#. mul%:. |
00001dd0  a6 28 2d 31 29 20 6d 75  6c 25 3d 31 36 20 8b 20  |.(-1) mul%=16 . |
00001de0  6d 75 6c 25 3d 31 0d 0d  48 1d e7 20 62 75 74 25  |mul%=1..H.. but%|
00001df0  3d 31 20 62 75 74 25 3d  2d 31 20 8b 20 62 75 74  |=1 but%=-1 . but|
00001e00  25 3d 31 0d 0d 52 0c c8  8e 20 69 63 25 20 ca 0d  |%=1..R... ic% ..|
00001e10  0d 5c 1d c9 20 31 34 20  3a 20 f2 7a 6f 6f 6d 28  |.\.. 14 : .zoom(|
00001e20  62 75 74 25 2a 6d 75 6c  25 2c 30 29 0d 0d 66 1e  |but%*mul%,0)..f.|
00001e30  c9 20 31 35 20 3a 20 f2  7a 6f 6f 6d 28 2d 62 75  |. 15 : .zoom(-bu|
00001e40  74 25 2a 6d 75 6c 25 2c  30 29 0d 0d 70 1d c9 20  |t%*mul%,0)..p.. |
00001e50  31 33 20 3a 20 f2 7a 6f  6f 6d 28 30 2c 62 75 74  |13 : .zoom(0,but|
00001e60  25 2a 6d 75 6c 25 29 0d  0d 7a 1e c9 20 31 36 20  |%*mul%)..z.. 16 |
00001e70  3a 20 f2 7a 6f 6f 6d 28  30 2c 2d 62 75 74 25 2a  |: .zoom(0,-but%*|
00001e80  6d 75 6c 25 29 0d 0d 84  1a c9 20 32 37 20 3a 20  |mul%)..... 27 : |
00001e90  f2 76 6f 6c 28 62 75 74  25 2a 6d 75 6c 25 29 0d  |.vol(but%*mul%).|
00001ea0  0d 8e 1b c9 20 32 36 20  3a 20 f2 76 6f 6c 28 2d  |.... 26 : .vol(-|
00001eb0  62 75 74 25 2a 6d 75 6c  25 29 0d 0d 98 21 c9 20  |but%*mul%)...!. |
00001ec0  39 20 20 3a 20 f2 70 69  74 63 68 5f 62 65 6e 64  |9  : .pitch_bend|
00001ed0  28 62 75 74 25 2a 6d 75  6c 25 29 0d 0d a2 22 c9  |(but%*mul%)...".|
00001ee0  20 32 39 20 3a 20 f2 70  69 74 63 68 5f 62 65 6e  | 29 : .pitch_ben|
00001ef0  64 28 2d 62 75 74 25 2a  6d 75 6c 25 29 0d 0d ac  |d(-but%*mul%)...|
00001f00  1a c9 20 31 39 20 3a 20  f2 63 72 72 28 62 75 74  |.. 19 : .crr(but|
00001f10  25 2a 6d 75 6c 25 29 0d  0d b6 1b c9 20 32 30 20  |%*mul%)..... 20 |
00001f20  3a 20 f2 63 72 72 28 2d  62 75 74 25 2a 6d 75 6c  |: .crr(-but%*mul|
00001f30  25 29 0d 0d c0 05 cb 0d  0d ca 05 e1 0d 0d d4 04  |%)..............|
00001f40  0d 0d de 0f dd f2 76 6f  6c 28 69 6e 63 25 29 0d  |......vol(inc%).|
00001f50  0d e8 2c ea 20 76 6f 6c  25 3a 76 6f 6c 25 3d bb  |..,. vol%:vol%=.|
00001f60  a4 58 69 63 6f 6e 5f 67  65 74 73 74 72 28 77 69  |.Xicon_getstr(wi|
00001f70  6e 5f 6d 61 69 6e 25 2c  32 35 29 0d 0d f2 22 76  |n_main%,25)..."v|
00001f80  6f 6c 25 2b 3d 69 6e 63  25 3a e7 20 76 6f 6c 25  |ol%+=inc%:. vol%|
00001f90  3e 31 32 37 20 76 6f 6c  25 3d 31 32 37 0d 0d fc  |>127 vol%=127...|
00001fa0  13 e7 20 76 6f 6c 25 3c  30 20 76 6f 6c 25 3d 30  |.. vol%<0 vol%=0|
00001fb0  0d 0e 06 25 f2 58 69 63  6f 6e 5f 73 65 74 73 74  |...%.Xicon_setst|
00001fc0  72 28 77 69 6e 5f 6d 61  69 6e 25 2c 32 35 2c c3  |r(win_main%,25,.|
00001fd0  76 6f 6c 25 29 0d 0e 10  0e 3f 56 76 6f 6c 3d 76  |vol%)....?Vvol=v|
00001fe0  6f 6c 25 0d 0e 1a 05 e1  0d 0e 24 04 0d 0e 2e 0d  |ol%.......$.....|
00001ff0  dd f2 73 65 74 5f 73 65  6c 0d 0e 38 22 ea 20 78  |..set_sel..8". x|
00002000  25 2c 6f 78 25 2c 6f 6c  64 73 73 25 2c 6f 6c 64  |%,ox%,oldss%,old|
00002010  73 65 25 3a 78 25 3d 71  25 21 30 0d 0e 42 1f 21  |se%:x%=q%!0..B.!|
00002020  71 25 3d 77 69 6e 5f 70  61 6e 65 25 3a c8 99 20  |q%=win_pane%:.. |
00002030  26 34 30 30 43 42 2c 2c  71 25 0d 0e 4c 2f 78 25  |&400CB,,q%..L/x%|
00002040  3d 78 25 2d 71 25 21 34  2b 71 25 21 32 30 3a 78  |=x%-q%!4+q%!20:x|
00002050  25 3d 78 25 2a 73 61 6d  70 5f 73 69 7a 65 25 2f  |%=x%*samp_size%/|
00002060  31 31 35 30 2f 7a 6f 6f  6d 0d 0e 56 15 e7 20 73  |1150/zoom..V.. s|
00002070  65 6c 5f 73 74 61 72 74  25 3d 2d 31 20 8c 0d 0e  |el_start%=-1 ...|
00002080  60 1f 73 65 6c 5f 73 74  61 72 74 25 3d 78 25 3a  |`.sel_start%=x%:|
00002090  73 65 6c 5f 65 6e 64 25  3d 78 25 2b 31 0d 0e 6a  |sel_end%=x%+1..j|
000020a0  49 e7 20 73 65 6c 5f 65  6e 64 25 3e 3d 73 61 6d  |I. sel_end%>=sam|
000020b0  70 5f 73 69 7a 65 25 20  73 65 6c 5f 73 74 61 72  |p_size% sel_star|
000020c0  74 25 2d 3d 73 61 6d 70  5f 73 69 7a 65 25 2d 32  |t%-=samp_size%-2|
000020d0  3a 73 65 6c 5f 65 6e 64  25 3d 73 61 6d 70 5f 73  |:sel_end%=samp_s|
000020e0  69 7a 65 25 2d 31 0d 0e  74 12 f2 6e 65 77 5f 73  |ize%-1..t..new_s|
000020f0  65 6c 65 63 74 69 6f 6e  0d 0e 7e 05 cc 0d 0e 88  |election..~.....|
00002100  25 e7 20 78 25 3c 3e 73  65 6c 5f 73 74 61 72 74  |%. x%<>sel_start|
00002110  25 20 80 20 78 25 3c 3e  73 65 6c 5f 65 6e 64 25  |% . x%<>sel_end%|
00002120  20 8c 0d 0e 92 5d e7 20  94 28 73 65 6c 5f 73 74  | ....]. .(sel_st|
00002130  61 72 74 25 2d 78 25 29  3c 94 28 73 65 6c 5f 65  |art%-x%)<.(sel_e|
00002140  6e 64 25 2d 78 25 29 20  6f 78 25 3d 73 65 6c 5f  |nd%-x%) ox%=sel_|
00002150  73 74 61 72 74 25 3a 73  65 6c 5f 73 74 61 72 74  |start%:sel_start|
00002160  25 3d 78 25 20 8b 20 6f  78 25 3d 73 65 6c 5f 65  |%=x% . ox%=sel_e|
00002170  6e 64 25 3a 73 65 6c 5f  65 6e 64 25 3d 78 25 0d  |nd%:sel_end%=x%.|
00002180  0e 9c 30 e7 20 73 65 6c  5f 65 6e 64 25 3c 3d 73  |..0. sel_end%<=s|
00002190  65 6c 5f 73 74 61 72 74  25 20 73 65 6c 5f 73 74  |el_start% sel_st|
000021a0  61 72 74 25 3d 73 65 6c  5f 65 6e 64 25 2d 31 0d  |art%=sel_end%-1.|
000021b0  0e a6 1f e7 20 73 65 6c  5f 73 74 61 72 74 25 3c  |.... sel_start%<|
000021c0  30 20 73 65 6c 5f 73 74  61 72 74 25 3d 30 0d 0e  |0 sel_start%=0..|
000021d0  b0 30 e7 20 73 65 6c 5f  65 6e 64 25 3c 3d 73 65  |.0. sel_end%<=se|
000021e0  6c 5f 73 74 61 72 74 25  20 73 65 6c 5f 65 6e 64  |l_start% sel_end|
000021f0  25 3d 73 65 6c 5f 73 74  61 72 74 25 2b 31 0d 0e  |%=sel_start%+1..|
00002200  ba 16 e7 20 78 25 3e 6f  78 25 20 c8 94 20 78 25  |... x%>ox% .. x%|
00002210  2c 6f 78 25 0d 0e c4 1e  78 25 3d 78 25 2a 31 31  |,ox%....x%=x%*11|
00002220  35 30 2a 7a 6f 6f 6d 2f  73 61 6d 70 5f 73 69 7a  |50*zoom/samp_siz|
00002230  65 25 0d 0e ce 20 6f 78  25 3d 6f 78 25 2a 31 31  |e%... ox%=ox%*11|
00002240  35 30 2a 7a 6f 6f 6d 2f  73 61 6d 70 5f 73 69 7a  |50*zoom/samp_siz|
00002250  65 25 0d 0e d8 29 c8 99  20 26 34 30 30 44 31 2c  |e%...).. &400D1,|
00002260  77 69 6e 5f 70 61 6e 65  25 2c 78 25 2d 38 2c 2d  |win_pane%,x%-8,-|
00002270  32 35 36 2c 6f 78 25 2b  38 2c 30 0d 0e e2 12 f2  |256,ox%+8,0.....|
00002280  6e 65 77 5f 73 65 6c 65  63 74 69 6f 6e 0d 0e ec  |new_selection...|
00002290  05 cd 0d 0e f6 05 cd 0d  0f 00 05 e1 0d 0f 0a 04  |................|
000022a0  0d 0f 14 18 dd f2 73 63  72 6f 6c 6c 5f 70 61 6e  |......scroll_pan|
000022b0  65 28 78 25 2c 71 25 29  0d 0f 1e 1f 21 71 25 3d  |e(x%,q%)....!q%=|
000022c0  77 69 6e 5f 70 61 6e 65  25 3a c8 99 20 26 34 30  |win_pane%:.. &40|
000022d0  30 43 42 2c 2c 71 25 0d  0f 28 3c e7 20 78 25 3e  |0CB,,q%..(<. x%>|
000022e0  71 25 21 31 32 2d 31 36  20 f2 73 63 72 6f 6c 6c  |q%!12-16 .scroll|
000022f0  78 28 77 69 6e 5f 70 61  6e 65 25 2c 28 31 36 2d  |x(win_pane%,(16-|
00002300  71 25 21 31 32 2b 78 25  29 2a 34 2c 71 25 2b 35  |q%!12+x%)*4,q%+5|
00002310  31 32 29 0d 0f 32 3a e7  20 78 25 3c 71 25 21 34  |12)..2:. x%<q%!4|
00002320  2b 31 36 20 f2 73 63 72  6f 6c 6c 78 28 77 69 6e  |+16 .scrollx(win|
00002330  5f 70 61 6e 65 25 2c 28  78 25 2d 71 25 21 34 2d  |_pane%,(x%-q%!4-|
00002340  31 36 29 2a 34 2c 71 25  2b 35 31 32 29 0d 0f 3c  |16)*4,q%+512)..<|
00002350  05 e1 0d 0f 46 04 0d 0f  50 1b dd f2 73 63 72 6f  |....F...P...scro|
00002360  6c 6c 78 28 77 69 6e 25  2c 6f 66 66 25 2c 71 25  |llx(win%,off%,q%|
00002370  29 0d 0f 5a 1a 21 71 25  3d 77 69 6e 25 3a c8 99  |)..Z.!q%=win%:..|
00002380  20 26 34 30 30 43 42 2c  2c 71 25 0d 0f 64 14 71  | &400CB,,q%..d.q|
00002390  25 21 32 30 3d 71 25 21  32 30 2b 6f 66 66 25 0d  |%!20=q%!20+off%.|
000023a0  0f 6e 11 c8 99 20 26 34  30 30 43 35 2c 2c 71 25  |.n... &400C5,,q%|
000023b0  0d 0f 78 05 e1 0d 0f 82  04 0d 0f 8c 08 dd f2 73  |..x............s|
000023c0  73 0d 0f 96 13 ea 20 61  25 2c 62 25 2c 78 30 25  |s..... a%,b%,x0%|
000023d0  2c 79 30 25 0d 0f a0 25  61 25 3d bb 28 a4 58 69  |,y0%...%a%=.(.Xi|
000023e0  63 6f 6e 5f 67 65 74 73  74 72 28 77 69 6e 5f 6d  |con_getstr(win_m|
000023f0  61 69 6e 25 2c 32 32 29  29 0d 0f aa 25 62 25 3d  |ain%,22))...%b%=|
00002400  bb 28 a4 58 69 63 6f 6e  5f 67 65 74 73 74 72 28  |.(.Xicon_getstr(|
00002410  77 69 6e 5f 6d 61 69 6e  25 2c 32 33 29 29 0d 0f  |win_main%,23))..|
00002420  b4 0d e7 20 61 25 3e 62  25 20 8c 0d 0f be 0c c8  |... a%>b% ......|
00002430  94 20 61 25 2c 62 25 0d  0f c8 23 f2 58 69 63 6f  |. a%,b%...#.Xico|
00002440  6e 5f 70 75 74 73 74 72  28 77 69 6e 5f 6d 61 69  |n_putstr(win_mai|
00002450  6e 25 2c 32 32 2c c3 61  25 29 0d 0f d2 23 f2 58  |n%,22,.a%)...#.X|
00002460  69 63 6f 6e 5f 70 75 74  73 74 72 28 77 69 6e 5f  |icon_putstr(win_|
00002470  6d 61 69 6e 25 2c 32 33  2c c3 62 25 29 0d 0f dc  |main%,23,.b%)...|
00002480  05 cd 0d 0f e6 27 78 30  25 3d 73 65 6c 5f 73 74  |.....'x0%=sel_st|
00002490  61 72 74 25 2a 31 31 35  30 2a 7a 6f 6f 6d 2f 73  |art%*1150*zoom/s|
000024a0  61 6d 70 5f 73 69 7a 65  25 0d 0f f0 25 78 31 25  |amp_size%...%x1%|
000024b0  3d 73 65 6c 5f 65 6e 64  25 2a 31 31 35 30 2a 7a  |=sel_end%*1150*z|
000024c0  6f 6f 6d 2f 73 61 6d 70  5f 73 69 7a 65 25 0d 0f  |oom/samp_size%..|
000024d0  fa 2a c8 99 20 26 34 30  30 44 31 2c 77 69 6e 5f  |.*.. &400D1,win_|
000024e0  70 61 6e 65 25 2c 78 30  25 2d 38 2c 2d 32 35 36  |pane%,x0%-8,-256|
000024f0  2c 78 31 25 2b 38 2c 30  0d 10 04 11 73 65 6c 5f  |,x1%+8,0....sel_|
00002500  73 74 61 72 74 25 3d 61  25 0d 10 0e 0f 73 65 6c  |start%=a%....sel|
00002510  5f 65 6e 64 25 3d 62 25  0d 10 18 15 e7 20 73 65  |_end%=b%..... se|
00002520  6c 5f 73 74 61 72 74 25  3e 3d 30 20 8c 0d 10 22  |l_start%>=0 ..."|
00002530  27 78 30 25 3d 73 65 6c  5f 73 74 61 72 74 25 2a  |'x0%=sel_start%*|
00002540  31 31 35 30 2a 7a 6f 6f  6d 2f 73 61 6d 70 5f 73  |1150*zoom/samp_s|
00002550  69 7a 65 25 0d 10 2c 25  78 31 25 3d 73 65 6c 5f  |ize%..,%x1%=sel_|
00002560  65 6e 64 25 2a 31 31 35  30 2a 7a 6f 6f 6d 2f 73  |end%*1150*zoom/s|
00002570  61 6d 70 5f 73 69 7a 65  25 0d 10 36 2a c8 99 20  |amp_size%..6*.. |
00002580  26 34 30 30 44 31 2c 77  69 6e 5f 70 61 6e 65 25  |&400D1,win_pane%|
00002590  2c 78 30 25 2d 38 2c 2d  32 35 36 2c 78 31 25 2b  |,x0%-8,-256,x1%+|
000025a0  38 2c 30 0d 10 40 05 cc  0d 10 4a 11 73 65 6c 5f  |8,0..@....J.sel_|
000025b0  73 74 61 72 74 25 3d 2d  31 0d 10 54 0f 73 65 6c  |start%=-1..T.sel|
000025c0  5f 65 6e 64 25 3d 2d 31  0d 10 5e 05 cd 0d 10 68  |_end%=-1..^....h|
000025d0  05 e1 0d 10 72 04 0d 10  7c 0d dd f2 73 65 74 5f  |....r...|...set_|
000025e0  63 61 72 0d 10 86 17 ea  20 78 25 2c 70 6f 73 25  |car..... x%,pos%|
000025f0  3a 70 6f 73 25 3d 71 25  21 30 0d 10 90 22 78 25  |:pos%=q%!0..."x%|
00002600  3d 63 61 72 65 74 25 2a  31 31 35 30 2a 7a 6f 6f  |=caret%*1150*zoo|
00002610  6d 2f 73 61 6d 70 5f 73  69 7a 65 25 0d 10 9a 28  |m/samp_size%...(|
00002620  c8 99 20 26 34 30 30 44  31 2c 77 69 6e 5f 70 61  |.. &400D1,win_pa|
00002630  6e 65 25 2c 78 25 2d 38  2c 2d 32 35 36 2c 78 25  |ne%,x%-8,-256,x%|
00002640  2b 38 2c 30 0d 10 a4 0d  78 25 3d 63 61 72 65 74  |+8,0....x%=caret|
00002650  25 0d 10 ae 1f 21 71 25  3d 77 69 6e 5f 70 61 6e  |%....!q%=win_pan|
00002660  65 25 3a c8 99 20 26 34  30 30 43 42 2c 2c 71 25  |e%:.. &400CB,,q%|
00002670  0d 10 b8 31 63 61 72 65  74 25 3d 28 70 6f 73 25  |...1caret%=(pos%|
00002680  2d 71 25 21 34 2b 71 25  21 32 30 29 2a 73 61 6d  |-q%!4+q%!20)*sam|
00002690  70 5f 73 69 7a 65 25 2f  31 31 35 30 2f 7a 6f 6f  |p_size%/1150/zoo|
000026a0  6d 0d 10 c2 17 e7 20 63  61 72 65 74 25 3c 30 20  |m..... caret%<0 |
000026b0  63 61 72 65 74 25 3d 30  0d 10 cc 22 78 25 3d 63  |caret%=0..."x%=c|
000026c0  61 72 65 74 25 2a 31 31  35 30 2a 7a 6f 6f 6d 2f  |aret%*1150*zoom/|
000026d0  73 61 6d 70 5f 73 69 7a  65 25 0d 10 d6 28 c8 99  |samp_size%...(..|
000026e0  20 26 34 30 30 44 31 2c  77 69 6e 5f 70 61 6e 65  | &400D1,win_pane|
000026f0  25 2c 78 25 2d 38 2c 2d  32 35 36 2c 78 25 2b 38  |%,x%-8,-256,x%+8|
00002700  2c 30 0d 10 e0 27 f2 58  69 63 6f 6e 5f 73 65 74  |,0...'.Xicon_set|
00002710  73 74 72 28 77 69 6e 5f  6d 61 69 6e 25 2c 31 38  |str(win_main%,18|
00002720  2c c3 63 61 72 65 74 25  29 0d 10 ea 37 e7 20 74  |,.caret%)...7. t|
00002730  72 61 63 6b 69 6e 67 25  20 80 20 21 56 63 6f 75  |racking% . !Vcou|
00002740  6e 74 65 72 3e 30 20 80  20 63 61 72 65 74 25 3c  |nter>0 . caret%<|
00002750  21 56 73 65 6e 64 2d 73  61 6d 70 6c 65 25 20 8c  |!Vsend-sample% .|
00002760  0d 10 f4 1c 21 56 63 6f  75 6e 74 65 72 3d 63 61  |....!Vcounter=ca|
00002770  72 65 74 25 2b 73 61 6d  70 6c 65 25 0d 10 fe 05  |ret%+sample%....|
00002780  cd 0d 11 08 05 e1 0d 11  12 04 0d 11 1c 0b dd f2  |................|
00002790  74 72 61 63 6b 0d 11 26  08 ea 20 78 25 0d 11 30  |track..&.. x%..0|
000027a0  22 78 25 3d 63 61 72 65  74 25 2a 31 31 35 30 2a  |"x%=caret%*1150*|
000027b0  7a 6f 6f 6d 2f 73 61 6d  70 5f 73 69 7a 65 25 0d  |zoom/samp_size%.|
000027c0  11 3a 28 c8 99 20 26 34  30 30 44 31 2c 77 69 6e  |.:(.. &400D1,win|
000027d0  5f 70 61 6e 65 25 2c 78  25 2d 32 2c 2d 32 35 36  |_pane%,x%-2,-256|
000027e0  2c 78 25 2b 32 2c 30 0d  11 44 1c 63 61 72 65 74  |,x%+2,0..D.caret|
000027f0  25 3d 21 56 63 6f 75 6e  74 65 72 2d 73 61 6d 70  |%=!Vcounter-samp|
00002800  6c 65 25 0d 11 4e 22 78  25 3d 63 61 72 65 74 25  |le%..N"x%=caret%|
00002810  2a 31 31 35 30 2a 7a 6f  6f 6d 2f 73 61 6d 70 5f  |*1150*zoom/samp_|
00002820  73 69 7a 65 25 0d 11 58  28 c8 99 20 26 34 30 30  |size%..X(.. &400|
00002830  44 31 2c 77 69 6e 5f 70  61 6e 65 25 2c 78 25 2d  |D1,win_pane%,x%-|
00002840  32 2c 2d 32 35 36 2c 78  25 2b 32 2c 30 0d 11 62  |2,-256,x%+2,0..b|
00002850  27 f2 58 69 63 6f 6e 5f  73 65 74 73 74 72 28 77  |'.Xicon_setstr(w|
00002860  69 6e 5f 6d 61 69 6e 25  2c 31 38 2c c3 63 61 72  |in_main%,18,.car|
00002870  65 74 25 29 0d 11 6c 28  e7 20 63 61 72 65 74 25  |et%)..l(. caret%|
00002880  3e 3d 21 56 73 65 6e 64  2d 73 61 6d 70 6c 65 25  |>=!Vsend-sample%|
00002890  20 21 56 63 6f 75 6e 74  65 72 3d 30 0d 11 76 05  | !Vcounter=0..v.|
000028a0  e1 0d 11 80 04 0d 11 8a  0f dd f2 63 72 72 28 64  |...........crr(d|
000028b0  69 72 25 29 0d 11 94 10  e7 20 63 61 72 65 74 25  |ir%)..... caret%|
000028c0  3c 30 20 e1 0d 11 9e 08  ea 20 78 25 0d 11 a8 22  |<0 ...... x%..."|
000028d0  78 25 3d 63 61 72 65 74  25 2a 31 31 35 30 2a 7a  |x%=caret%*1150*z|
000028e0  6f 6f 6d 2f 73 61 6d 70  5f 73 69 7a 65 25 0d 11  |oom/samp_size%..|
000028f0  b2 28 c8 99 20 26 34 30  30 44 31 2c 77 69 6e 5f  |.(.. &400D1,win_|
00002900  70 61 6e 65 25 2c 78 25  2d 38 2c 2d 32 35 36 2c  |pane%,x%-8,-256,|
00002910  78 25 2b 38 2c 30 0d 11  bc 10 63 61 72 65 74 25  |x%+8,0....caret%|
00002920  2b 3d 64 69 72 25 0d 11  c6 17 e7 20 63 61 72 65  |+=dir%..... care|
00002930  74 25 3c 30 20 63 61 72  65 74 25 3d 30 0d 11 d0  |t%<0 caret%=0...|
00002940  2c e7 20 63 61 72 65 74  25 3e 3d 73 61 6d 70 5f  |,. caret%>=samp_|
00002950  73 69 7a 65 25 20 63 61  72 65 74 25 3d 73 61 6d  |size% caret%=sam|
00002960  70 5f 73 69 7a 65 25 2d  31 0d 11 da 22 78 25 3d  |p_size%-1..."x%=|
00002970  63 61 72 65 74 25 2a 31  31 35 30 2a 7a 6f 6f 6d  |caret%*1150*zoom|
00002980  2f 73 61 6d 70 5f 73 69  7a 65 25 0d 11 e4 28 c8  |/samp_size%...(.|
00002990  99 20 26 34 30 30 44 31  2c 77 69 6e 5f 70 61 6e  |. &400D1,win_pan|
000029a0  65 25 2c 78 25 2d 38 2c  2d 32 35 36 2c 78 25 2b  |e%,x%-8,-256,x%+|
000029b0  38 2c 30 0d 11 ee 27 f2  58 69 63 6f 6e 5f 73 65  |8,0...'.Xicon_se|
000029c0  74 73 74 72 28 77 69 6e  5f 6d 61 69 6e 25 2c 31  |tstr(win_main%,1|
000029d0  38 2c c3 63 61 72 65 74  25 29 0d 11 f8 37 e7 20  |8,.caret%)...7. |
000029e0  74 72 61 63 6b 69 6e 67  25 20 80 20 21 56 63 6f  |tracking% . !Vco|
000029f0  75 6e 74 65 72 3e 30 20  80 20 63 61 72 65 74 25  |unter>0 . caret%|
00002a00  3c 21 56 73 65 6e 64 2d  73 61 6d 70 6c 65 25 20  |<!Vsend-sample% |
00002a10  8c 0d 12 02 1c 21 56 63  6f 75 6e 74 65 72 3d 63  |.....!Vcounter=c|
00002a20  61 72 65 74 25 2b 73 61  6d 70 6c 65 25 0d 12 0c  |aret%+sample%...|
00002a30  05 cd 0d 12 16 05 e1 0d  12 20 04 0d 12 2a 08 dd  |......... ...*..|
00002a40  f2 73 63 0d 12 34 0b ea  20 61 25 2c 78 25 0d 12  |.sc..4.. a%,x%..|
00002a50  3e 25 61 25 3d bb 28 a4  58 69 63 6f 6e 5f 67 65  |>%a%=.(.Xicon_ge|
00002a60  74 73 74 72 28 77 69 6e  5f 6d 61 69 6e 25 2c 31  |tstr(win_main%,1|
00002a70  38 29 29 0d 12 48 22 78  25 3d 63 61 72 65 74 25  |8))..H"x%=caret%|
00002a80  2a 31 31 35 30 2a 7a 6f  6f 6d 2f 73 61 6d 70 5f  |*1150*zoom/samp_|
00002a90  73 69 7a 65 25 0d 12 52  28 c8 99 20 26 34 30 30  |size%..R(.. &400|
00002aa0  44 31 2c 77 69 6e 5f 70  61 6e 65 25 2c 78 25 2d  |D1,win_pane%,x%-|
00002ab0  38 2c 2d 32 35 36 2c 78  25 2b 38 2c 30 0d 12 5c  |8,-256,x%+8,0..\|
00002ac0  0d 63 61 72 65 74 25 3d  61 25 0d 12 66 18 e7 20  |.caret%=a%..f.. |
00002ad0  63 61 72 65 74 25 3c 30  20 63 61 72 65 74 25 3d  |caret%<0 caret%=|
00002ae0  2d 31 0d 12 70 11 e7 20  63 61 72 65 74 25 3e 3d  |-1..p.. caret%>=|
00002af0  30 20 8c 0d 12 7a 22 78  25 3d 63 61 72 65 74 25  |0 ...z"x%=caret%|
00002b00  2a 31 31 35 30 2a 7a 6f  6f 6d 2f 73 61 6d 70 5f  |*1150*zoom/samp_|
00002b10  73 69 7a 65 25 0d 12 84  28 c8 99 20 26 34 30 30  |size%...(.. &400|
00002b20  44 31 2c 77 69 6e 5f 70  61 6e 65 25 2c 78 25 2d  |D1,win_pane%,x%-|
00002b30  38 2c 2d 32 35 36 2c 78  25 2b 38 2c 30 0d 12 8e  |8,-256,x%+8,0...|
00002b40  05 cd 0d 12 98 05 e1 0d  12 a2 04 0d 12 ac 0a dd  |................|
00002b50  f2 6d 65 73 73 0d 12 b6  18 e7 20 71 25 21 31 36  |.mess..... q%!16|
00002b60  3d 30 20 71 75 69 74 25  3d 2d 31 3a e1 0d 12 c0  |=0 quit%=-1:....|
00002b70  18 e7 20 71 25 21 31 36  3d 31 20 f2 64 61 74 61  |.. q%!16=1 .data|
00002b80  5f 73 61 76 65 0d 12 ca  30 e7 20 71 25 21 31 36  |_save...0. q%!16|
00002b90  3d 26 34 30 30 43 30 20  f2 6d 65 6e 75 5f 77 61  |=&400C0 .menu_wa|
00002ba0  72 6e 28 71 25 21 33 32  2c 71 25 21 33 36 2c 71  |rn(q%!32,q%!36,q|
00002bb0  25 21 34 30 29 0d 12 d4  3e e7 20 71 25 21 31 36  |%!40)...>. q%!16|
00002bc0  3d 33 20 8c 20 e7 20 a4  67 6f 6f 64 5f 6c 6f 61  |=3 . . .good_loa|
00002bd0  64 28 71 25 21 34 30 2c  a4 7a 28 71 25 2b 34 34  |d(q%!40,.z(q%+44|
00002be0  29 2c 71 25 21 33 36 2c  31 29 20 f2 6c 6f 61 64  |),q%!36,1) .load|
00002bf0  61 63 6b 0d 12 de 1b e7  20 71 25 21 31 36 3d 32  |ack..... q%!16=2|
00002c00  20 f2 64 61 74 61 73 61  76 65 5f 61 63 6b 0d 12  | .datasave_ack..|
00002c10  e8 0f e7 20 71 25 21 31  36 3d 35 20 8c 0d 12 f2  |... q%!16=5 ....|
00002c20  2b 20 6f 6b 25 3d 30 3a  e7 20 71 25 21 34 30 3e  |+ ok%=0:. q%!40>|
00002c30  26 36 33 30 20 80 20 71  25 21 34 30 3c 26 36 33  |&630 . q%!40<&63|
00002c40  35 20 6f 6b 25 3d 2d 31  0d 12 fc 18 20 e7 20 71  |5 ok%=-1.... . q|
00002c50  25 21 34 30 3d 26 44 33  43 20 6f 6b 25 3d 2d 31  |%!40=&D3C ok%=-1|
00002c60  0d 13 06 0c 20 e7 20 6f  6b 25 20 8c 0d 13 10 0e  |.... . ok% .....|
00002c70  20 20 f2 6c 6f 61 64 61  63 6b 0d 13 1a 2c 20 20  |  .loadack...,  |
00002c80  61 25 3d a4 67 6f 6f 64  5f 6c 6f 61 64 28 71 25  |a%=.good_load(q%|
00002c90  21 34 30 2c a4 7a 28 71  25 2b 34 34 29 2c 71 25  |!40,.z(q%+44),q%|
00002ca0  21 33 36 2c 30 29 0d 13  24 06 20 cd 0d 13 2e 05  |!36,0)..$. .....|
00002cb0  cd 0d 13 38 05 e1 0d 13  42 04 0d 13 4c 0f dd f2  |...8....B...L...|
00002cc0  64 61 74 61 5f 73 61 76  65 0d 13 56 27 71 25 21  |data_save..V'q%!|
00002cd0  33 36 3d 2d 31 3a 24 28  71 25 2b 34 34 29 3d 22  |36=-1:$(q%+44)="|
00002ce0  3c 57 69 6d 70 24 53 63  72 61 70 3e 22 2b bd 30  |<Wimp$Scrap>"+.0|
00002cf0  0d 13 60 16 71 25 21 31  32 3d 71 25 21 38 3a 71  |..`.q%!12=q%!8:q|
00002d00  25 21 31 36 3d 32 0d 13  6a 18 c8 99 20 26 34 30  |%!16=2..j... &40|
00002d10  30 45 37 2c 31 37 2c 71  25 2c 71 25 21 34 0d 13  |0E7,17,q%,q%!4..|
00002d20  74 0f 73 61 76 65 72 65  66 25 3d 2d 31 0d 13 7e  |t.saveref%=-1..~|
00002d30  06 ef 37 0d 13 88 05 e1  0d 13 92 04 0d 13 9c 0d  |..7.............|
00002d40  dd f2 6c 6f 61 64 61 63  6b 0d 13 a6 1f 71 25 21  |..loadack....q%!|
00002d50  31 32 3d 71 25 21 38 3a  71 25 21 31 36 3d 34 3a  |12=q%!8:q%!16=4:|
00002d60  71 25 21 33 36 3d 2d 31  0d 13 b0 18 c8 99 20 26  |q%!36=-1...... &|
00002d70  34 30 30 45 37 2c 31 37  2c 71 25 2c 71 25 21 34  |400E7,17,q%,q%!4|
00002d80  0d 13 ba 05 e1 0d 13 c4  04 0d 13 ce 0e dd f2 6c  |...............l|
00002d90  6f 61 64 28 6e 24 29 0d  13 d8 17 c8 99 20 38 2c  |oad(n$)...... 8,|
00002da0  31 37 2c 6e 24 20 b8 20  2c 2c 74 79 70 25 0d 13  |17,n$ . ,,typ%..|
00002db0  e2 19 74 79 70 25 3d 28  74 79 70 25 80 26 46 46  |..typ%=(typ%.&FF|
00002dc0  46 30 30 29 3e 3e 38 0d  13 ec 1c ff 22 53 65 74  |F00)>>8....."Set|
00002dd0  20 45 66 66 65 78 24 54  79 70 65 20 22 2b c3 74  | Effex$Type "+.t|
00002de0  79 70 25 0d 13 f6 21 74  79 70 25 3d a4 67 6f 6f  |yp%...!typ%=.goo|
00002df0  64 5f 6c 6f 61 64 28 74  79 70 25 2c 6e 24 2c 2d  |d_load(typ%,n$,-|
00002e00  31 2c 31 29 0d 14 00 05  e1 0d 14 0a 04 0d 14 14  |1,1)............|
00002e10  28 dd a4 67 6f 6f 64 5f  6c 6f 61 64 28 74 79 70  |(..good_load(typ|
00002e20  65 25 2c 6e 61 6d 65 24  2c 73 69 7a 65 25 2c 64  |e%,name$,size%,d|
00002e30  72 61 67 25 29 0d 14 1e  10 ea 20 6f 6b 25 3a 6f  |rag%)..... ok%:o|
00002e40  6b 25 3d 2d 31 0d 14 28  25 e7 20 73 61 6d 70 6c  |k%=-1..(%. sampl|
00002e50  65 5f 74 79 70 65 25 3e  3d 30 20 6f 6b 25 3d a4  |e_type%>=0 ok%=.|
00002e60  63 68 65 63 6b 5f 6c 6f  61 64 0d 14 32 0e e7 20  |check_load..2.. |
00002e70  6f 6b 25 3d 2d 31 20 8c  0d 14 3c 0e c8 8e 20 74  |ok%=-1 ...<... t|
00002e80  79 70 65 25 20 ca 0d 14  46 23 c9 20 26 36 33 31  |ype% ...F#. &631|
00002e90  20 3a 20 6f 6b 25 3d a4  6c 6f 61 64 5f 72 61 77  | : ok%=.load_raw|
00002ea0  28 6e 61 6d 65 24 2c 30  29 0d 14 50 23 c9 20 26  |(name$,0)..P#. &|
00002eb0  36 33 32 20 3a 20 6f 6b  25 3d a4 6c 6f 61 64 5f  |632 : ok%=.load_|
00002ec0  72 61 77 28 6e 61 6d 65  24 2c 31 29 0d 14 5a 23  |raw(name$,1)..Z#|
00002ed0  c9 20 26 36 33 33 20 3a  20 6f 6b 25 3d a4 6c 6f  |. &633 : ok%=.lo|
00002ee0  61 64 5f 72 61 77 28 6e  61 6d 65 24 2c 32 29 0d  |ad_raw(name$,2).|
00002ef0  14 64 21 c9 20 26 36 33  34 20 3a 20 6f 6b 25 3d  |.d!. &634 : ok%=|
00002f00  a4 6c 6f 61 64 5f 65 66  66 28 6e 61 6d 65 24 29  |.load_eff(name$)|
00002f10  0d 14 6e 21 c9 20 26 44  33 43 20 3a 20 6f 6b 25  |..n!. &D3C : ok%|
00002f20  3d a4 6c 6f 61 64 5f 61  72 6d 28 6e 61 6d 65 24  |=.load_arm(name$|
00002f30  29 0d 14 78 26 7f 20 3a  20 e7 20 64 72 61 67 25  |)..x&. : . drag%|
00002f40  20 6f 6b 25 3d a4 6c 6f  61 64 5f 72 61 77 28 6e  | ok%=.load_raw(n|
00002f50  61 6d 65 24 2c 32 29 0d  14 82 05 cb 0d 14 8c 05  |ame$,2).........|
00002f60  cd 0d 14 96 0b e7 20 6f  6b 25 20 8c 0d 14 a0 15  |...... ok% .....|
00002f70  20 71 25 21 35 31 32 3d  77 69 6e 5f 70 61 6e 65  | q%!512=win_pane|
00002f80  25 0d 14 aa 16 20 c8 99  20 26 34 30 30 43 36 2c  |%.... .. &400C6,|
00002f90  2c 71 25 2b 35 31 32 0d  14 b4 1d 20 f2 66 72 65  |,q%+512.... .fre|
00002fa0  73 68 28 77 69 6e 5f 6d  61 69 6e 25 2c 71 25 2b  |sh(win_main%,q%+|
00002fb0  35 31 32 29 0d 14 be 1e  20 e7 20 6e 61 6d 65 24  |512).... . name$|
00002fc0  3c 3e 22 3c 57 69 6d 70  24 53 63 72 61 70 3e 22  |<>"<Wimp$Scrap>"|
00002fd0  20 8c 0d 14 c8 16 20 20  73 6e 61 6d 65 5f 6c 6f  | .....  sname_lo|
00002fe0  67 24 3d 6e 61 6d 65 24  0d 14 d2 16 20 20 73 6e  |g$=name$....  sn|
00002ff0  61 6d 65 5f 75 6e 73 24  3d 6e 61 6d 65 24 0d 14  |ame_uns$=name$..|
00003000  dc 16 20 20 73 6e 61 6d  65 5f 73 67 6e 24 3d 6e  |..  sname_sgn$=n|
00003010  61 6d 65 24 0d 14 e6 16  20 20 73 6e 61 6d 65 5f  |ame$....  sname_|
00003020  65 66 66 24 3d 6e 61 6d  65 24 0d 14 f0 16 20 20  |eff$=name$....  |
00003030  73 6e 61 6d 65 5f 61 72  6d 24 3d 6e 61 6d 65 24  |sname_arm$=name$|
00003040  0d 14 fa 06 20 cc 0d 15  04 1c 20 20 ff 22 52 65  |.... .....  ."Re|
00003050  6d 6f 76 65 20 3c 57 69  6d 70 24 53 63 72 61 70  |move <Wimp$Scrap|
00003060  3e 22 0d 15 0e 06 20 cd  0d 15 18 05 cd 0d 15 22  |>".... ........"|
00003070  08 3d 6f 6b 25 0d 15 2c  04 0d 15 36 10 dd a4 63  |.=ok%..,...6...c|
00003080  68 65 63 6b 5f 6c 6f 61  64 0d 15 40 19 ea 20 67  |heck_load..@.. g|
00003090  6f 25 2c 61 63 74 25 2c  77 69 6e 25 2c 69 63 6f  |o%,act%,win%,ico|
000030a0  6e 25 0d 15 4a 1c f2 66  72 65 73 68 28 77 69 6e  |n%..J..fresh(win|
000030b0  5f 6c 6f 61 64 25 2c 71  25 2b 35 31 32 29 0d 15  |_load%,q%+512)..|
000030c0  54 38 f4 20 71 25 21 35  31 32 3d 77 69 6e 5f 6c  |T8. q%!512=win_l|
000030d0  6f 61 64 25 3a 53 59 53  20 22 57 69 6d 70 5f 47  |oad%:SYS "Wimp_G|
000030e0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000030f0  71 25 2b 35 31 32 0d 15  5e 3f f4 20 4d 4f 55 53  |q%+512..^?. MOUS|
00003100  45 20 52 45 43 54 41 4e  47 4c 45 20 71 25 21 35  |E RECTANGLE q%!5|
00003110  31 36 2c 71 25 21 35 32  30 2c 71 25 21 35 32 34  |16,q%!520,q%!524|
00003120  2d 71 25 21 35 31 36 2c  71 25 21 35 32 38 2d 71  |-q%!516,q%!528-q|
00003130  25 21 35 32 30 0d 15 68  05 f5 0d 15 72 0c f2 64  |%!520..h....r..d|
00003140  69 61 70 6f 6c 6c 0d 15  7c 1f fd 20 77 69 6e 25  |iapoll..|.. win%|
00003150  3d 77 69 6e 5f 6c 6f 61  64 25 20 80 20 69 63 6f  |=win_load% . ico|
00003160  6e 25 3d 31 30 0d 15 86  0a 61 63 74 25 3d 31 0d  |n%=10....act%=1.|
00003170  15 90 0f e3 20 67 6f 25  3d 32 20 b8 20 39 0d 15  |.... go%=2 . 9..|
00003180  9a 31 71 25 21 35 31 32  3d 77 69 6e 5f 6c 6f 61  |.1q%!512=win_loa|
00003190  64 25 3a 71 25 21 35 31  36 3d 67 6f 25 3a c8 99  |d%:q%!516=go%:..|
000031a0  20 26 34 30 30 43 45 2c  2c 71 25 2b 35 31 32 0d  | &400CE,,q%+512.|
000031b0  15 a4 2f e7 20 28 71 25  21 28 35 31 32 2b 32 34  |../. (q%!(512+24|
000031c0  29 80 28 31 3c 3c 32 31  29 29 3c 3e 30 20 61 63  |).(1<<21))<>0 ac|
000031d0  74 25 3d 67 6f 25 2d 32  3a 67 6f 25 3d 39 0d 15  |t%=go%-2:go%=9..|
000031e0  ae 05 ed 0d 15 b8 22 67  6f 25 3d 8e 28 6e 61 6d  |......"go%=.(nam|
000031f0  65 24 29 3a 73 69 7a 65  25 3d a2 23 67 6f 25 3a  |e$):size%=.#go%:|
00003200  d9 23 67 6f 25 0d 15 c2  0d c8 8e 20 61 63 74 25  |.#go%...... act%|
00003210  20 ca 0d 15 cc 37 c9 20  30 20 3a 20 f2 58 6d 65  | ....7. 0 : .Xme|
00003220  6d 5f 72 65 6c 65 61 73  65 28 73 61 6d 70 6c 65  |m_release(sample|
00003230  25 29 3a 73 61 6d 70 6c  65 5f 74 79 70 65 25 3d  |%):sample_type%=|
00003240  2d 31 3a 67 6f 25 3d 2d  31 0d 15 d6 0f c9 20 31  |-1:go%=-1..... 1|
00003250  20 3a 20 67 6f 25 3d 30  0d 15 e0 10 c9 20 32 20  | : go%=0..... 2 |
00003260  3a 20 f2 61 76 28 30 29  0d 15 ea 29 c9 20 33 20  |: .av(0)...). 3 |
00003270  3a 20 e7 20 63 61 72 65  74 25 3e 3d 30 20 f2 61  |: . caret%>=0 .a|
00003280  76 28 63 61 72 65 74 25  29 20 8b 20 67 6f 25 3d  |v(caret%) . go%=|
00003290  30 0d 15 f4 10 c9 20 34  20 3a 20 f2 69 6e 28 30  |0..... 4 : .in(0|
000032a0  29 0d 15 fe 29 c9 20 35  20 3a 20 e7 20 63 61 72  |)...). 5 : . car|
000032b0  65 74 25 3e 3d 30 20 f2  69 6e 28 63 61 72 65 74  |et%>=0 .in(caret|
000032c0  25 29 20 8b 20 67 6f 25  3d 30 0d 16 08 10 c9 20  |%) . go%=0..... |
000032d0  36 20 3a 20 f2 6f 76 28  30 29 0d 16 12 29 c9 20  |6 : .ov(0)...). |
000032e0  37 20 3a 20 e7 20 63 61  72 65 74 25 3e 3d 30 20  |7 : . caret%>=0 |
000032f0  f2 6f 76 28 63 61 72 65  74 25 29 20 8b 20 67 6f  |.ov(caret%) . go|
00003300  25 3d 30 0d 16 1c 0d 7f  20 3a 20 67 6f 25 3d 31  |%=0..... : go%=1|
00003310  0d 16 26 05 cb 0d 16 30  06 ef 37 0d 16 3a 14 71  |..&....0..7..:.q|
00003320  25 21 35 31 32 3d 77 69  6e 5f 6c 6f 61 64 25 0d  |%!512=win_load%.|
00003330  16 44 15 c8 99 20 26 34  30 30 43 36 2c 2c 71 25  |.D... &400C6,,q%|
00003340  2b 35 31 32 0d 16 4e 2b  f4 20 4d 4f 55 53 45 20  |+512..N+. MOUSE |
00003350  52 45 43 54 41 4e 47 4c  45 20 2d 34 30 30 30 2c  |RECTANGLE -4000,|
00003360  2d 34 30 30 30 2c 34 30  30 30 2c 34 30 30 30 0d  |-4000,4000,4000.|
00003370  16 58 08 3d 67 6f 25 0d  16 62 04 0d 16 6c 0e dd  |.X.=go%..b...l..|
00003380  f2 61 76 28 70 6f 73 25  29 0d 16 76 1b 77 69 6e  |.av(pos%)..v.win|
00003390  25 3d a4 58 6d 65 6d 5f  63 6c 61 69 6d 28 73 69  |%=.Xmem_claim(si|
000033a0  7a 65 25 29 0d 16 80 18  c8 99 20 38 2c 31 36 2c  |ze%)...... 8,16,|
000033b0  6e 61 6d 65 24 2c 77 69  6e 25 2c 30 0d 16 8a 1b  |name$,win%,0....|
000033c0  41 25 3d 77 69 6e 25 3a  42 25 3d 77 69 6e 25 2b  |A%=win%:B%=win%+|
000033d0  73 69 7a 65 25 2d 31 0d  16 94 2b 43 25 3d 73 61  |size%-1...+C%=sa|
000033e0  6d 70 6c 65 25 2b 70 6f  73 25 3a 44 25 3d 73 61  |mple%+pos%:D%=sa|
000033f0  6d 70 6c 65 25 2b 73 61  6d 70 5f 73 69 7a 65 25  |mple%+samp_size%|
00003400  2d 31 0d 16 9e 19 45 25  3d 73 61 6d 70 5f 63 65  |-1....E%=samp_ce|
00003410  6e 74 72 65 25 3a d6 20  6d 69 78 0d 16 a8 17 f2  |ntre%:. mix.....|
00003420  58 6d 65 6d 5f 72 65 6c  65 61 73 65 28 77 69 6e  |Xmem_release(win|
00003430  25 29 0d 16 b2 09 67 6f  25 3d 31 0d 16 bc 05 e1  |%)....go%=1.....|
00003440  0d 16 c6 04 0d 16 d0 0e  dd f2 69 6e 28 70 6f 73  |..........in(pos|
00003450  25 29 0d 16 da 1e f2 58  6d 65 6d 5f 64 65 6c 74  |%).....Xmem_delt|
00003460  61 28 73 61 6d 70 6c 65  25 2c 73 69 7a 65 25 29  |a(sample%,size%)|
00003470  0d 16 e4 27 f2 63 6f 70  79 28 70 6f 73 25 2c 73  |...'.copy(pos%,s|
00003480  61 6d 70 5f 73 69 7a 65  25 2d 31 2c 70 6f 73 25  |amp_size%-1,pos%|
00003490  2b 73 69 7a 65 25 29 0d  16 ee 20 c8 99 20 38 2c  |+size%)... .. 8,|
000034a0  31 36 2c 6e 61 6d 65 24  2c 73 61 6d 70 6c 65 25  |16,name$,sample%|
000034b0  2b 70 6f 73 25 2c 30 0d  16 f8 05 e1 0d 17 02 04  |+pos%,0.........|
000034c0  0d 17 0c 0e dd f2 6f 76  28 70 6f 73 25 29 0d 17  |......ov(pos%)..|
000034d0  16 31 e7 20 73 61 6d 70  5f 73 69 7a 65 25 2d 70  |.1. samp_size%-p|
000034e0  6f 73 25 3c 73 69 7a 65  25 20 73 69 7a 65 25 3d  |os%<size% size%=|
000034f0  73 61 6d 70 5f 73 69 7a  65 25 2d 70 6f 73 25 0d  |samp_size%-pos%.|
00003500  17 20 11 77 69 6e 25 3d  8e 28 6e 61 6d 65 24 29  |. .win%=.(name$)|
00003510  0d 17 2a 23 c8 99 20 26  43 2c 34 2c 77 69 6e 25  |..*#.. &C,4,win%|
00003520  2c 73 61 6d 70 6c 65 25  2b 70 6f 73 25 2c 73 69  |,sample%+pos%,si|
00003530  7a 65 25 0d 17 34 0a d9  23 77 69 6e 25 0d 17 3e  |ze%..4..#win%..>|
00003540  05 e1 0d 17 48 04 0d 17  52 0d dd f2 64 69 61 70  |....H...R...diap|
00003550  6f 6c 6c 0d 17 5c 08 ea  20 72 25 0d 17 66 05 f5  |oll..\.. r%..f..|
00003560  0d 17 70 1b c8 99 20 26  34 30 30 43 37 2c 30 2c  |..p... &400C7,0,|
00003570  71 25 2b 35 31 32 20 b8  20 72 25 0d 17 7a 0b c8  |q%+512 . r%..z..|
00003580  8e 20 72 25 20 ca 0d 17  84 17 c9 20 32 20 3a 20  |. r% ...... 2 : |
00003590  f2 6f 70 65 6e 28 71 25  2b 35 31 32 29 0d 17 8e  |.open(q%+512)...|
000035a0  17 c9 20 33 20 3a 20 f2  6f 70 65 6e 28 71 25 2b  |.. 3 : .open(q%+|
000035b0  35 31 32 29 0d 17 98 21  7f 20 3a 20 f2 68 61 6e  |512)...!. : .han|
000035c0  64 6c 65 5f 72 65 61 73  6f 6e 28 72 25 2c 71 25  |dle_reason(r%,q%|
000035d0  2b 35 31 32 29 0d 17 a2  05 cb 0d 17 ac 1a fd 20  |+512).......... |
000035e0  72 25 3d 36 20 80 20 71  25 21 28 35 31 32 2b 38  |r%=6 . q%!(512+8|
000035f0  29 3c 3e 32 0d 17 b6 26  77 69 6e 25 3d 71 25 21  |)<>2...&win%=q%!|
00003600  28 35 31 32 2b 31 32 29  3a 69 63 6f 6e 25 3d 71  |(512+12):icon%=q|
00003610  25 21 28 35 31 32 2b 31  36 29 0d 17 c0 05 e1 0d  |%!(512+16)......|
00003620  17 ca 04 0d 17 d4 1c dd  a4 6c 6f 61 64 5f 72 61  |.........load_ra|
00003630  77 28 6e 61 6d 65 24 2c  73 74 79 70 65 25 29 0d  |w(name$,stype%).|
00003640  17 de 1b ea 20 66 69 6c  65 25 2c 70 6f 73 25 2c  |.... file%,pos%,|
00003650  6e 6f 74 25 2c 73 69 7a  65 25 0d 17 e8 28 66 69  |not%,size%...(fi|
00003660  6c 65 25 3d 8e 28 6e 61  6d 65 24 29 3a 73 69 7a  |le%=.(name$):siz|
00003670  65 25 3d a2 23 66 69 6c  65 25 3a d9 23 66 69 6c  |e%=.#file%:.#fil|
00003680  65 25 0d 17 f2 1b 70 6f  73 25 3d a4 58 6d 65 6d  |e%....pos%=.Xmem|
00003690  5f 63 6c 61 69 6d 28 73  69 7a 65 25 29 0d 17 fc  |_claim(size%)...|
000036a0  3e e7 20 70 6f 73 25 3d  30 20 85 20 31 2c 22 4e  |>. pos%=0 . 1,"N|
000036b0  6f 74 20 65 6e 6f 75 67  68 20 6d 65 6d 6f 72 79  |ot enough memory|
000036c0  20 28 49 20 6e 65 65 64  20 22 2b c3 73 69 7a 65  | (I need "+.size|
000036d0  25 2b 22 20 62 79 74 65  73 29 22 0d 18 06 18 c8  |%+" bytes)".....|
000036e0  99 20 38 2c 31 36 2c 6e  61 6d 65 24 2c 70 6f 73  |. 8,16,name$,pos|
000036f0  25 2c 30 0d 18 10 21 73  61 6d 70 6c 65 25 3d 70  |%,0...!sample%=p|
00003700  6f 73 25 3a 73 61 6d 70  5f 73 69 7a 65 25 3d 73  |os%:samp_size%=s|
00003710  69 7a 65 25 0d 18 1a 17  73 61 6d 70 6c 65 5f 74  |ize%....sample_t|
00003720  79 70 65 25 3d 73 74 79  70 65 25 0d 18 24 11 73  |ype%=stype%..$.s|
00003730  65 6c 5f 73 74 61 72 74  25 3d 2d 31 0d 18 2e 0f  |el_start%=-1....|
00003740  73 65 6c 5f 65 6e 64 25  3d 2d 31 0d 18 38 12 f2  |sel_end%=-1..8..|
00003750  6e 65 77 5f 73 65 6c 65  63 74 69 6f 6e 0d 18 42  |new_selection..B|
00003760  14 f2 6e 65 77 5f 73 61  6d 70 6c 65 5f 74 79 70  |..new_sample_typ|
00003770  65 0d 18 4c 0c f2 63 6c  72 5f 61 6c 6c 0d 18 56  |e..L..clr_all..V|
00003780  0f c8 8e 20 73 74 79 70  65 25 20 ca 0d 18 60 1a  |... stype% ...`.|
00003790  c9 20 30 20 3a 20 73 61  6d 70 5f 63 65 6e 74 72  |. 0 : samp_centr|
000037a0  65 25 3d 31 32 38 0d 18  6a 1a c9 20 31 20 3a 20  |e%=128..j.. 1 : |
000037b0  73 61 6d 70 5f 63 65 6e  74 72 65 25 3d 31 32 38  |samp_centre%=128|
000037c0  0d 18 74 18 c9 20 32 20  3a 20 73 61 6d 70 5f 63  |..t.. 2 : samp_c|
000037d0  65 6e 74 72 65 25 3d 30  0d 18 7e 05 cb 0d 18 88  |entre%=0..~.....|
000037e0  07 3d 2d 31 0d 18 92 04  0d 18 9c 10 dd a4 77 67  |.=-1..........wg|
000037f0  65 74 28 70 6f 73 25 29  0d 18 a6 08 ea 20 61 25  |et(pos%)..... a%|
00003800  0d 18 b0 10 cf 23 66 69  6c 65 25 3d 70 6f 73 25  |.....#file%=pos%|
00003810  0d 18 ba 13 61 25 3d 28  9a 23 66 69 6c 65 25 29  |....a%=(.#file%)|
00003820  3c 3c 30 0d 18 c4 14 61  25 2b 3d 28 9a 23 66 69  |<<0....a%+=(.#fi|
00003830  6c 65 25 29 3c 3c 38 0d  18 ce 15 61 25 2b 3d 28  |le%)<<8....a%+=(|
00003840  9a 23 66 69 6c 65 25 29  3c 3c 31 36 0d 18 d8 15  |.#file%)<<16....|
00003850  61 25 2b 3d 28 9a 23 66  69 6c 65 25 29 3c 3c 32  |a%+=(.#file%)<<2|
00003860  34 0d 18 e2 07 3d 61 25  0d 18 ec 04 0d 18 f6 10  |4....=a%........|
00003870  dd a4 62 67 65 74 28 70  6f 73 25 29 0d 19 00 10  |..bget(pos%)....|
00003880  cf 23 66 69 6c 65 25 3d  70 6f 73 25 0d 19 0a 0c  |.#file%=pos%....|
00003890  3d 9a 23 66 69 6c 65 25  0d 19 14 04 0d 19 1e 0e  |=.#file%........|
000038a0  dd f2 77 70 75 74 28 77  25 29 0d 19 28 17 d5 23  |..wput(w%)..(..#|
000038b0  66 69 6c 65 25 2c 28 77  25 80 26 46 46 29 3e 3e  |file%,(w%.&FF)>>|
000038c0  30 0d 19 32 19 d5 23 66  69 6c 65 25 2c 28 77 25  |0..2..#file%,(w%|
000038d0  80 26 46 46 30 30 29 3e  3e 38 0d 19 3c 1c d5 23  |.&FF00)>>8..<..#|
000038e0  66 69 6c 65 25 2c 28 77  25 80 26 46 46 30 30 30  |file%,(w%.&FF000|
000038f0  30 29 3e 3e 31 36 0d 19  46 1e d5 23 66 69 6c 65  |0)>>16..F..#file|
00003900  25 2c 28 77 25 80 26 46  46 30 30 30 30 30 30 29  |%,(w%.&FF000000)|
00003910  3e 3e 32 34 0d 19 50 05  e1 0d 19 5a 04 0d 19 64  |>>24..P....Z...d|
00003920  12 dd a4 6c 6f 61 64 5f  65 66 66 28 6e 24 29 0d  |...load_eff(n$).|
00003930  19 6e 20 ea 20 66 69 6c  65 25 2c 70 6f 73 25 2c  |.n . file%,pos%,|
00003940  6e 6f 74 25 2c 73 69 7a  65 25 2c 72 61 74 65 0d  |not%,size%,rate.|
00003950  19 78 21 66 69 6c 65 25  3d 8e 28 6e 61 6d 65 24  |.x!file%=.(name$|
00003960  29 3a 73 69 7a 65 25 3d  a4 77 67 65 74 28 34 29  |):size%=.wget(4)|
00003970  0d 19 82 1b 70 6f 73 25  3d a4 58 6d 65 6d 5f 63  |....pos%=.Xmem_c|
00003980  6c 61 69 6d 28 73 69 7a  65 25 29 0d 19 8c 3e e7  |laim(size%)...>.|
00003990  20 70 6f 73 25 3d 30 20  85 20 31 2c 22 4e 6f 74  | pos%=0 . 1,"Not|
000039a0  20 65 6e 6f 75 67 68 20  6d 65 6d 6f 72 79 20 28  | enough memory (|
000039b0  49 20 6e 65 65 64 20 22  2b c3 73 69 7a 65 25 2b  |I need "+.size%+|
000039c0  22 20 62 79 74 65 73 29  22 0d 19 96 25 c8 99 20  |" bytes)"...%.. |
000039d0  26 43 2c 33 2c 66 69 6c  65 25 2c 70 6f 73 25 2c  |&C,3,file%,pos%,|
000039e0  73 69 7a 65 25 2c a4 77  67 65 74 28 38 29 0d 19  |size%,.wget(8)..|
000039f0  a0 21 73 61 6d 70 6c 65  25 3d 70 6f 73 25 3a 73  |.!sample%=pos%:s|
00003a00  61 6d 70 5f 73 69 7a 65  25 3d 73 69 7a 65 25 0d  |amp_size%=size%.|
00003a10  19 aa 19 73 61 6d 70 6c  65 5f 74 79 70 65 25 3d  |...sample_type%=|
00003a20  a4 62 67 65 74 28 30 29  0d 19 b4 14 63 61 72 65  |.bget(0)....care|
00003a30  74 25 3d a4 77 67 65 74  28 31 32 29 0d 19 be 18  |t%=.wget(12)....|
00003a40  73 65 6c 5f 73 74 61 72  74 25 3d a4 77 67 65 74  |sel_start%=.wget|
00003a50  28 31 36 29 0d 19 c8 16  73 65 6c 5f 65 6e 64 25  |(16)....sel_end%|
00003a60  3d a4 77 67 65 74 28 32  30 29 0d 19 d2 1a 72 61  |=.wget(20)....ra|
00003a70  74 65 3d a4 77 67 65 74  28 32 34 29 2f 28 31 3c  |te=.wget(24)/(1<|
00003a80  3c 32 34 29 0d 19 dc 24  f2 58 69 63 6f 6e 5f 73  |<24)...$.Xicon_s|
00003a90  65 74 73 74 72 28 77 69  6e 5f 6d 61 69 6e 25 2c  |etstr(win_main%,|
00003aa0  35 2c c3 72 61 74 65 29  0d 19 e6 2b f2 58 69 63  |5,.rate)...+.Xic|
00003ab0  6f 6e 5f 73 65 74 73 74  72 28 77 69 6e 5f 6d 61  |on_setstr(win_ma|
00003ac0  69 6e 25 2c 34 2c c3 28  31 30 30 30 2f 72 61 74  |in%,4,.(1000/rat|
00003ad0  65 29 29 0d 19 f0 0b d9  23 66 69 6c 65 25 0d 19  |e)).....#file%..|
00003ae0  fa 12 f2 6e 65 77 5f 73  65 6c 65 63 74 69 6f 6e  |...new_selection|
00003af0  0d 1a 04 14 f2 6e 65 77  5f 73 61 6d 70 6c 65 5f  |.....new_sample_|
00003b00  74 79 70 65 0d 1a 0e 15  c8 8e 20 73 61 6d 70 6c  |type...... sampl|
00003b10  65 5f 74 79 70 65 25 20  ca 0d 1a 18 1a c9 20 30  |e_type% ...... 0|
00003b20  20 3a 20 73 61 6d 70 5f  63 65 6e 74 72 65 25 3d  | : samp_centre%=|
00003b30  31 32 38 0d 1a 22 1a c9  20 31 20 3a 20 73 61 6d  |128..".. 1 : sam|
00003b40  70 5f 63 65 6e 74 72 65  25 3d 31 32 38 0d 1a 2c  |p_centre%=128..,|
00003b50  18 c9 20 32 20 3a 20 73  61 6d 70 5f 63 65 6e 74  |.. 2 : samp_cent|
00003b60  72 65 25 3d 30 0d 1a 36  05 cb 0d 1a 40 07 3d 2d  |re%=0..6....@.=-|
00003b70  31 0d 1a 4a 04 0d 1a 54  12 dd a4 6c 6f 61 64 5f  |1..J...T...load_|
00003b80  61 72 6d 28 6e 24 29 0d  1a 5e 20 ea 20 66 69 6c  |arm(n$)..^ . fil|
00003b90  65 25 2c 70 6f 73 25 2c  6e 6f 74 25 2c 73 69 7a  |e%,pos%,not%,siz|
00003ba0  65 25 2c 72 61 74 65 0d  1a 68 22 66 69 6c 65 25  |e%,rate..h"file%|
00003bb0  3d 8e 28 6e 61 6d 65 24  29 3a 73 69 7a 65 25 3d  |=.(name$):size%=|
00003bc0  a2 23 66 69 6c 65 25 2d  31 0d 1a 72 1b 70 6f 73  |.#file%-1..r.pos|
00003bd0  25 3d a4 58 6d 65 6d 5f  63 6c 61 69 6d 28 73 69  |%=.Xmem_claim(si|
00003be0  7a 65 25 29 0d 1a 7c 3e  e7 20 70 6f 73 25 3d 30  |ze%)..|>. pos%=0|
00003bf0  20 85 20 31 2c 22 4e 6f  74 20 65 6e 6f 75 67 68  | . 1,"Not enough|
00003c00  20 6d 65 6d 6f 72 79 20  28 49 20 6e 65 65 64 20  | memory (I need |
00003c10  22 2b c3 73 69 7a 65 25  2b 22 20 62 79 74 65 73  |"+.size%+" bytes|
00003c20  29 22 0d 1a 86 1e c8 99  20 26 43 2c 33 2c 66 69  |)"...... &C,3,fi|
00003c30  6c 65 25 2c 70 6f 73 25  2c 73 69 7a 65 25 2c 31  |le%,pos%,size%,1|
00003c40  0d 1a 90 21 73 61 6d 70  6c 65 25 3d 70 6f 73 25  |...!sample%=pos%|
00003c50  3a 73 61 6d 70 5f 73 69  7a 65 25 3d 73 69 7a 65  |:samp_size%=size|
00003c60  25 0d 1a 9a 12 73 61 6d  70 6c 65 5f 74 79 70 65  |%....sample_type|
00003c70  25 3d 32 0d 1a a4 11 73  65 6c 5f 73 74 61 72 74  |%=2....sel_start|
00003c80  25 3d 2d 31 0d 1a ae 0f  73 65 6c 5f 65 6e 64 25  |%=-1....sel_end%|
00003c90  3d 2d 31 0d 1a b8 16 72  61 74 65 3d 31 30 30 30  |=-1....rate=1000|
00003ca0  2f a4 62 67 65 74 28 30  29 0d 1a c2 24 f2 58 69  |/.bget(0)...$.Xi|
00003cb0  63 6f 6e 5f 73 65 74 73  74 72 28 77 69 6e 5f 6d  |con_setstr(win_m|
00003cc0  61 69 6e 25 2c 35 2c c3  72 61 74 65 29 0d 1a cc  |ain%,5,.rate)...|
00003cd0  2b f2 58 69 63 6f 6e 5f  73 65 74 73 74 72 28 77  |+.Xicon_setstr(w|
00003ce0  69 6e 5f 6d 61 69 6e 25  2c 34 2c c3 28 31 30 30  |in_main%,4,.(100|
00003cf0  30 2f 72 61 74 65 29 29  0d 1a d6 0b d9 23 66 69  |0/rate)).....#fi|
00003d00  6c 65 25 0d 1a e0 12 f2  6e 65 77 5f 73 65 6c 65  |le%.....new_sele|
00003d10  63 74 69 6f 6e 0d 1a ea  14 f2 6e 65 77 5f 73 61  |ction.....new_sa|
00003d20  6d 70 6c 65 5f 74 79 70  65 0d 1a f4 12 73 61 6d  |mple_type....sam|
00003d30  70 5f 63 65 6e 74 72 65  25 3d 30 0d 1a fe 07 3d  |p_centre%=0....=|
00003d40  2d 31 0d 1b 08 04 0d 1b  12 19 dd f2 6d 65 6e 75  |-1..........menu|
00003d50  5f 77 61 72 6e 28 61 25  2c 62 25 2c 63 25 29 0d  |_warn(a%,b%,c%).|
00003d60  1b 1c 0c e7 20 61 25 3d  31 20 8c 0d 1b 26 12 20  |.... a%=1 ...&. |
00003d70  f2 73 61 76 65 77 69 6e  70 28 62 25 29 0d 1b 30  |.savewinp(b%)..0|
00003d80  19 20 73 61 76 65 5f 73  61 6d 70 6c 65 25 3d 73  |. save_sample%=s|
00003d90  61 6d 70 6c 65 25 0d 1b  3a 1f 20 73 61 76 65 5f  |ample%..:. save_|
00003da0  73 61 6d 70 5f 73 69 7a  65 25 3d 73 61 6d 70 5f  |samp_size%=samp_|
00003db0  73 69 7a 65 25 0d 1b 44  17 20 73 61 76 65 5f 63  |size%..D. save_c|
00003dc0  61 72 65 74 25 3d 63 61  72 65 74 25 0d 1b 4e 1f  |aret%=caret%..N.|
00003dd0  20 73 61 76 65 5f 73 65  6c 5f 73 74 61 72 74 25  | save_sel_start%|
00003de0  3d 73 65 6c 5f 73 74 61  72 74 25 0d 1b 58 1b 20  |=sel_start%..X. |
00003df0  73 61 76 65 5f 73 65 6c  5f 65 6e 64 25 3d 73 65  |save_sel_end%=se|
00003e00  6c 5f 65 6e 64 25 0d 1b  62 05 cc 0d 1b 6c 3d 20  |l_end%..b....l= |
00003e10  e7 20 61 25 3d 30 20 80  20 62 25 3d 31 20 3a 20  |. a%=0 . b%=1 : |
00003e20  f2 6f 70 65 6e 5f 73 69  6e 66 6f 3a c8 99 20 26  |.open_sinfo:.. &|
00003e30  34 30 30 45 38 2c 2c 71  25 21 32 30 2c 71 25 21  |400E8,,q%!20,q%!|
00003e40  32 34 2c 71 25 21 32 38  0d 1b 76 15 20 e7 20 61  |24,q%!28..v. . a|
00003e50  25 3d 32 20 80 20 62 25  3d 31 31 20 8c 0d 1b 80  |%=2 . b%=11 ....|
00003e60  14 20 20 20 f2 73 61 76  65 77 69 6e 70 28 63 25  |.   .savewinp(c%|
00003e70  29 0d 1b 8a 26 20 20 20  73 61 76 65 5f 73 61 6d  |)...&   save_sam|
00003e80  70 6c 65 25 3d 73 61 6d  70 6c 65 25 2b 73 65 6c  |ple%=sample%+sel|
00003e90  5f 73 74 61 72 74 25 0d  1b 94 2a 20 20 20 73 61  |_start%...*   sa|
00003ea0  76 65 5f 73 61 6d 70 5f  73 69 7a 65 25 3d 73 65  |ve_samp_size%=se|
00003eb0  6c 5f 65 6e 64 25 2d 73  65 6c 5f 73 74 61 72 74  |l_end%-sel_start|
00003ec0  25 0d 1b 9e 24 20 20 20  73 61 76 65 5f 63 61 72  |%...$   save_car|
00003ed0  65 74 25 3d 63 61 72 65  74 25 2d 73 65 6c 5f 73  |et%=caret%-sel_s|
00003ee0  74 61 72 74 25 0d 1b a8  18 20 20 20 73 61 76 65  |tart%....   save|
00003ef0  5f 73 65 6c 5f 73 74 61  72 74 25 3d 30 0d 1b b2  |_sel_start%=0...|
00003f00  24 20 20 20 73 61 76 65  5f 73 65 6c 5f 65 6e 64  |$   save_sel_end|
00003f10  25 3d 73 61 76 65 5f 73  61 6d 70 5f 73 69 7a 65  |%=save_samp_size|
00003f20  25 0d 1b bc 24 20 20 20  e7 20 73 61 76 65 5f 63  |%...$   . save_c|
00003f30  61 72 65 74 25 3c 30 20  73 61 76 65 5f 63 61 72  |aret%<0 save_car|
00003f40  65 74 25 3d 30 0d 1b c6  33 20 20 20 e7 20 73 61  |et%=0...3   . sa|
00003f50  76 65 5f 63 61 72 65 74  25 3e 3d 73 61 76 65 5f  |ve_caret%>=save_|
00003f60  73 61 6d 70 5f 73 69 7a  65 25 20 73 61 76 65 5f  |samp_size% save_|
00003f70  63 61 72 65 74 25 3d 30  0d 1b d0 06 20 cd 0d 1b  |caret%=0.... ...|
00003f80  da 05 cd 0d 1b e4 05 e1  0d 1b ee 04 0d 1b f8 12  |................|
00003f90  dd f2 73 61 76 65 77 69  6e 70 28 62 25 29 0d 1c  |..savewinp(b%)..|
00003fa0  02 0c 20 c8 8e 20 62 25  20 ca 0d 1c 0c 20 20 c9  |.. .. b% ....  .|
00003fb0  20 30 20 3a 20 24 73 61  76 65 5f 74 78 74 25 3d  | 0 : $save_txt%=|
00003fc0  73 6e 61 6d 65 5f 6c 6f  67 24 0d 1c 16 1d 20 20  |sname_log$....  |
00003fd0  20 20 20 20 20 20 20 20  f2 73 61 76 65 77 69 6e  |        .savewin|
00003fe0  28 22 36 33 31 22 29 0d  1c 20 23 20 20 20 20 20  |("631").. #     |
00003ff0  20 20 20 20 20 73 61 76  65 5f 73 69 7a 65 25 3d  |     save_size%=|
00004000  73 61 6d 70 5f 73 69 7a  65 25 0d 1c 2a 20 20 c9  |samp_size%..*  .|
00004010  20 31 20 3a 20 24 73 61  76 65 5f 74 78 74 25 3d  | 1 : $save_txt%=|
00004020  73 6e 61 6d 65 5f 73 67  6e 24 0d 1c 34 1d 20 20  |sname_sgn$..4.  |
00004030  20 20 20 20 20 20 20 20  f2 73 61 76 65 77 69 6e  |        .savewin|
00004040  28 22 36 33 32 22 29 0d  1c 3e 23 20 20 20 20 20  |("632")..>#     |
00004050  20 20 20 20 20 73 61 76  65 5f 73 69 7a 65 25 3d  |     save_size%=|
00004060  73 61 6d 70 5f 73 69 7a  65 25 0d 1c 48 20 20 c9  |samp_size%..H  .|
00004070  20 32 20 3a 20 24 73 61  76 65 5f 74 78 74 25 3d  | 2 : $save_txt%=|
00004080  73 6e 61 6d 65 5f 75 6e  73 24 0d 1c 52 1d 20 20  |sname_uns$..R.  |
00004090  20 20 20 20 20 20 20 20  f2 73 61 76 65 77 69 6e  |        .savewin|
000040a0  28 22 36 33 33 22 29 0d  1c 5c 23 20 20 20 20 20  |("633")..\#     |
000040b0  20 20 20 20 20 73 61 76  65 5f 73 69 7a 65 25 3d  |     save_size%=|
000040c0  73 61 6d 70 5f 73 69 7a  65 25 0d 1c 66 20 20 c9  |samp_size%..f  .|
000040d0  20 33 20 3a 20 24 73 61  76 65 5f 74 78 74 25 3d  | 3 : $save_txt%=|
000040e0  73 6e 61 6d 65 5f 65 66  66 24 0d 1c 70 1d 20 20  |sname_eff$..p.  |
000040f0  20 20 20 20 20 20 20 20  f2 73 61 76 65 77 69 6e  |        .savewin|
00004100  28 22 36 33 34 22 29 0d  1c 7a 23 20 20 20 20 20  |("634")..z#     |
00004110  20 20 20 20 20 73 61 76  65 5f 73 69 7a 65 25 3d  |     save_size%=|
00004120  73 61 6d 70 5f 73 69 7a  65 25 0d 1c 84 20 20 c9  |samp_size%...  .|
00004130  20 34 20 3a 20 24 73 61  76 65 5f 74 78 74 25 3d  | 4 : $save_txt%=|
00004140  73 6e 61 6d 65 5f 61 72  6d 24 0d 1c 8e 1d 20 20  |sname_arm$....  |
00004150  20 20 20 20 20 20 20 20  f2 73 61 76 65 77 69 6e  |        .savewin|
00004160  28 22 44 33 43 22 29 0d  1c 98 23 20 20 20 20 20  |("D3C")...#     |
00004170  20 20 20 20 20 73 61 76  65 5f 73 69 7a 65 25 3d  |     save_size%=|
00004180  73 61 6d 70 5f 73 69 7a  65 25 0d 1c a2 06 20 cb  |samp_size%.... .|
00004190  0d 1c ac 05 e1 0d 1c b6  04 0d 1c c0 19 dd f2 73  |...............s|
000041a0  61 76 65 77 69 6e 28 66  69 6c 65 5f 74 79 70 65  |avewin(file_type|
000041b0  24 29 0d 1c ca 24 24 73  61 76 65 5f 76 61 6c 69  |$)...$$save_vali|
000041c0  64 25 3d 22 53 66 69 6c  65 5f 22 2b 66 69 6c 65  |d%="Sfile_"+file|
000041d0  5f 74 79 70 65 24 0d 1c  d4 20 66 69 6c 65 5f 74  |_type$... file_t|
000041e0  79 70 65 25 3d a0 28 22  26 22 2b 66 69 6c 65 5f  |ype%=.("&"+file_|
000041f0  74 79 70 65 24 29 0d 1c  de 20 c8 99 20 26 34 30  |type$)... .. &40|
00004200  30 45 38 2c 2c 71 25 21  32 30 2c 71 25 21 32 34  |0E8,,q%!20,q%!24|
00004210  2c 71 25 21 32 38 0d 1c  e8 05 e1 0d 1c f2 04 0d  |,q%!28..........|
00004220  1c fc 0a dd f2 69 6e 69  74 0d 1d 06 1d 69 63 6f  |.....init....ico|
00004230  6e 5f 73 69 7a 65 25 3d  34 3a 6d 65 6e 75 5f 73  |n_size%=4:menu_s|
00004240  69 7a 65 25 3d 38 0d 1d  10 32 69 63 6f 6e 5f 73  |ize%=8...2icon_s|
00004250  69 7a 65 25 3d 69 63 6f  6e 5f 73 69 7a 65 25 2a  |ize%=icon_size%*|
00004260  31 30 32 34 3a de 20 69  63 6f 6e 73 25 20 69 63  |1024:. icons% ic|
00004270  6f 6e 5f 73 69 7a 65 25  0d 1d 1a 3e 6d 65 6e 75  |on_size%...>menu|
00004280  5f 73 69 7a 65 25 3d 6d  65 6e 75 5f 73 69 7a 65  |_size%=menu_size|
00004290  25 2a 31 30 32 34 3a de  20 6d 65 6e 75 73 25 20  |%*1024:. menus% |
000042a0  6d 65 6e 75 5f 73 69 7a  65 25 2c 71 25 20 32 30  |menu_size%,q% 20|
000042b0  34 38 2b 35 31 32 0d 1d  24 32 de 20 73 61 76 65  |48+512..$2. save|
000042c0  5f 76 61 6c 69 64 25 20  31 36 2c 73 61 76 65 5f  |_valid% 16,save_|
000042d0  74 78 74 25 20 32 35 35  2c 63 6f 64 65 25 20 31  |txt% 255,code% 1|
000042e0  30 32 34 2c 4c 25 2d 31  0d 1d 2e 2d 58 74 65 6d  |024,L%-1...-Xtem|
000042f0  70 25 3d 71 25 2b 35 31  32 3a f2 58 77 69 6d 70  |p%=q%+512:.Xwimp|
00004300  5f 69 6e 69 74 28 22 45  66 66 65 78 20 65 64 69  |_init("Effex edi|
00004310  74 6f 72 22 29 0d 1d 38  35 f7 20 8d 70 76 4e 3a  |tor")..85. .pvN:|
00004320  f2 58 77 69 6d 70 5f 74  65 6d 70 6c 61 74 65 73  |.Xwimp_templates|
00004330  28 69 63 6f 6e 73 25 2c  69 63 6f 6e 73 25 2b 69  |(icons%,icons%+i|
00004340  63 6f 6e 5f 73 69 7a 65  25 29 0d 1d 42 12 f2 58  |con_size%)..B..X|
00004350  6d 65 6d 5f 69 6e 69 74  28 33 32 29 0d 1d 4c 0b  |mem_init(32)..L.|
00004360  71 75 69 74 25 3d 30 0d  1d 56 0f 6e 75 6d 5f 6c  |quit%=0..V.num_l|
00004370  69 62 73 25 3d 30 0d 1d  60 2e de 20 6c 69 62 5f  |ibs%=0..`.. lib_|
00004380  6e 61 6d 65 24 28 31 35  29 2c 6c 69 62 5f 70 6f  |name$(15),lib_po|
00004390  73 25 28 31 35 29 2c 6c  69 62 5f 73 69 7a 65 25  |s%(15),lib_size%|
000043a0  28 31 35 29 0d 1d 6a 09  f2 76 61 72 73 0d 1d 74  |(15)..j..vars..t|
000043b0  0c f2 63 72 65 69 63 6f  6e 0d 1d 7e 0f f2 67 65  |..creicon..~..ge|
000043c0  74 77 69 6e 69 6e 66 6f  0d 1d 88 0d f2 69 6e 66  |twininfo.....inf|
000043d0  6f 5f 77 69 6e 0d 1d 92  11 f2 61 73 73 65 6d 28  |o_win.....assem(|
000043e0  63 6f 64 65 25 29 0d 1d  9c 0f f2 69 6e 69 74 5f  |code%).....init_|
000043f0  76 6f 69 63 65 0d 1d a6  21 73 61 6d 70 5f 73 69  |voice...!samp_si|
00004400  7a 65 25 3d 30 3a 73 61  6d 70 6c 65 25 3d 30 3a  |ze%=0:sample%=0:|
00004410  76 64 75 25 3d 35 0d 1d  b0 34 7a 6f 6f 6d 3d 31  |vdu%=5...4zoom=1|
00004420  3a 73 61 6d 70 6c 65 5f  74 79 70 65 25 3d 2d 31  |:sample_type%=-1|
00004430  3a 73 65 6c 5f 73 74 61  72 74 25 3d 2d 31 3a 73  |:sel_start%=-1:s|
00004440  65 6c 5f 65 6e 64 25 3d  2d 31 0d 1d ba 1d 63 61  |el_end%=-1....ca|
00004450  72 65 74 25 3d 30 3a 70  6c 61 79 5f 72 61 74 65  |ret%=0:play_rate|
00004460  25 3d 26 31 38 30 30 0d  1d c4 20 75 73 65 5f 73  |%=&1800... use_s|
00004470  65 6c 65 63 74 69 6f 6e  25 3d 30 3a 74 72 61 63  |election%=0:trac|
00004480  6b 69 6e 67 25 3d 30 0d  1d ce 05 e1 0d 1d d8 04  |king%=0.........|
00004490  0d 1d e2 0a dd f2 76 61  72 73 0d 1d ec 1a 73 6e  |......vars....sn|
000044a0  61 6d 65 5f 6c 6f 67 24  3d 22 4c 6f 67 53 61 6d  |ame_log$="LogSam|
000044b0  70 6c 65 22 0d 1d f6 1a  73 6e 61 6d 65 5f 75 6e  |ple"....sname_un|
000044c0  73 24 3d 22 52 61 77 53  61 6d 70 6c 65 22 0d 1e  |s$="RawSample"..|
000044d0  00 1b 73 6e 61 6d 65 5f  73 67 6e 24 3d 22 53 69  |..sname_sgn$="Si|
000044e0  67 6e 53 61 6d 70 6c 65  22 0d 1e 0a 17 73 6e 61  |gnSample"....sna|
000044f0  6d 65 5f 65 66 66 24 3d  22 53 61 6d 70 6c 65 22  |me_eff$="Sample"|
00004500  0d 1e 14 1b 73 6e 61 6d  65 5f 61 72 6d 24 3d 22  |....sname_arm$="|
00004510  41 72 6d 61 53 61 6d 70  6c 65 22 0d 1e 1e 1a 73  |ArmaSample"....s|
00004520  6e 61 6d 65 5f 73 65 6c  24 3d 22 53 65 6c 65 63  |name_sel$="Selec|
00004530  74 69 6f 6e 22 0d 1e 28  18 73 6e 61 6d 65 5f 6c  |tion"..(.sname_l|
00004540  69 62 24 3d 22 53 61 6d  70 4c 69 62 22 0d 1e 32  |ib$="SampLib"..2|
00004550  30 6d 6f 64 30 24 3d 22  59 20 45 4f 52 20 28 58  |0mod0$="Y EOR (X|
00004560  20 41 4e 44 20 32 35 35  29 20 45 4f 52 20 28 31  | AND 255) EOR (1|
00004570  32 38 2a 28 58 20 4d 4f  44 32 29 29 22 0d 1e 3c  |28*(X MOD2))"..<|
00004580  0c 6d 6f 64 31 24 3d 22  22 0d 1e 46 0c 6d 6f 64  |.mod1$=""..F.mod|
00004590  32 24 3d 22 22 0d 1e 50  0c 6d 6f 64 33 24 3d 22  |2$=""..P.mod3$="|
000045a0  22 0d 1e 5a 0c 6d 6f 64  34 24 3d 22 22 0d 1e 64  |"..Z.mod4$=""..d|
000045b0  05 e1 0d 1e 6e 04 0d 1e  78 10 dd f2 67 65 74 77  |....n...x...getw|
000045c0  69 6e 69 6e 66 6f 0d 1e  82 13 ea 20 61 25 3a 61  |ininfo..... a%:a|
000045d0  25 3d 71 25 2b 31 30 32  34 0d 1e 8c 11 21 71 25  |%=q%+1024....!q%|
000045e0  3d 77 69 6e 5f 6d 61 69  6e 25 0d 1e 96 11 21 61  |=win_main%....!a|
000045f0  25 3d 77 69 6e 5f 70 61  6e 65 25 0d 1e a0 11 c8  |%=win_pane%.....|
00004600  99 20 26 34 30 30 43 42  2c 2c 71 25 0d 1e aa 11  |. &400CB,,q%....|
00004610  c8 99 20 26 34 30 30 43  42 2c 2c 61 25 0d 1e b4  |.. &400CB,,a%...|
00004620  14 70 61 6e 65 78 25 3d  61 25 21 34 2d 71 25 21  |.panex%=a%!4-q%!|
00004630  34 0d 1e be 14 70 61 6e  65 79 25 3d 61 25 21 38  |4....paney%=a%!8|
00004640  2d 71 25 21 38 0d 1e c8  05 e1 0d 1e d2 04 0d 1e  |-q%!8...........|
00004650  dc 0f dd f2 65 72 72 28  66 61 74 25 29 0d 1e e6  |....err(fat%)...|
00004660  2a 65 72 72 24 3d f6 24  3a e7 20 a6 28 2d 33 29  |*err$=.$:. .(-3)|
00004670  3d 30 20 65 72 72 24 2b  3d 22 20 61 74 20 6c 69  |=0 err$+=" at li|
00004680  6e 65 20 22 2b c3 9e 0d  1e f0 22 e7 20 a6 28 2d  |ne "+.....". .(-|
00004690  31 29 20 ff 22 53 65 74  20 45 72 72 24 45 72 72  |1) ."Set Err$Err|
000046a0  20 22 2b 65 72 72 24 3a  e0 0d 1e fa 16 21 71 25  | "+err$:.....!q%|
000046b0  3d 9f 3a 24 28 71 25 2b  34 29 3d 65 72 72 24 0d  |=.:$(q%+4)=err$.|
000046c0  1f 04 23 c8 99 20 26 34  30 30 44 46 2c 71 25 2c  |..#.. &400DF,q%,|
000046d0  33 2c 22 45 66 66 65 78  22 20 b8 20 2c 72 65 73  |3,"Effex" . ,res|
000046e0  70 25 0d 1f 0e 17 e7 20  72 65 73 70 25 3c 3e 31  |p%..... resp%<>1|
000046f0  20 71 75 69 74 25 3d 2d  31 0d 1f 18 15 e7 20 71  | quit%=-1..... q|
00004700  75 69 74 25 20 80 20 a6  28 2d 31 29 20 e0 0d 1f  |uit% . .(-1) ...|
00004710  22 0f e7 20 66 61 74 25  3c 3e 30 20 e0 0d 1f 2c  |".. fat%<>0 ...,|
00004720  05 e1 0d 1f 36 04 0d 1f  40 0e dd f2 69 6e 66 6f  |....6...@...info|
00004730  5f 77 69 6e 0d 1f 4a 33  f2 58 69 63 6f 6e 5f 73  |_win..J3.Xicon_s|
00004740  65 74 73 74 72 28 77 69  6e 5f 69 6e 66 6f 25 2c  |etstr(win_info%,|
00004750  32 2c 22 a9 20 50 61 75  6c 20 4d 61 73 6f 6e 2c  |2,". Paul Mason,|
00004760  20 31 39 39 33 22 29 0d  1f 54 33 f2 58 69 63 6f  | 1993")..T3.Xico|
00004770  6e 5f 73 65 74 73 74 72  28 77 69 6e 5f 69 6e 66  |n_setstr(win_inf|
00004780  6f 25 2c 33 2c 22 31 2e  30 32 20 28 30 38 2d 41  |o%,3,"1.02 (08-A|
00004790  70 72 2d 31 39 39 33 29  22 29 0d 1f 5e 05 e1 0d  |pr-1993)")..^...|
000047a0  1f 68 04 0d 1f 72 0d dd  f2 63 72 65 69 63 6f 6e  |.h...r...creicon|
000047b0  0d 1f 7c 2a 21 71 25 3d  2d 31 3a 71 25 21 34 3d  |..|*!q%=-1:q%!4=|
000047c0  30 3a 71 25 21 38 3d 30  3a 71 25 21 31 32 3d 36  |0:q%!8=0:q%!12=6|
000047d0  34 3a 71 25 21 31 36 3d  36 34 0d 1f 86 25 71 25  |4:q%!16=64...%q%|
000047e0  21 32 30 3d 26 31 37 30  30 33 30 33 41 3a 24 28  |!20=&1700303A:$(|
000047f0  71 25 2b 32 34 29 3d 22  21 65 66 66 65 78 22 0d  |q%+24)="!effex".|
00004800  1f 90 1c c8 99 20 26 34  30 30 43 32 2c 2c 71 25  |..... &400C2,,q%|
00004810  20 b8 20 69 63 6f 6e 62  61 72 25 0d 1f 9a 05 e1  | . iconbar%.....|
00004820  0d 1f a4 04 0d 1f ae 1c  dd f2 63 72 65 5f 6d 65  |..........cre_me|
00004830  6e 75 73 28 73 74 61 72  74 25 2c 65 6e 64 25 29  |nus(start%,end%)|
00004840  0d 1f b8 0e f2 63 72 65  6d 5f 69 63 6f 6e 0d 1f  |.....crem_icon..|
00004850  c2 0e f2 63 72 65 6d 5f  6d 61 69 6e 0d 1f cc 05  |...crem_main....|
00004860  e1 0d 1f d6 04 0d 1f e0  0f dd f2 63 72 65 6d 5f  |...........crem_|
00004870  69 63 6f 6e 0d 1f ea 34  f2 58 6d 65 6e 75 5f 73  |icon...4.Xmenu_s|
00004880  74 61 72 74 28 22 45 66  66 65 78 22 2c 73 74 61  |tart("Effex",sta|
00004890  72 74 25 2c 65 6e 64 25  29 3a 6d 65 6e 75 5f 69  |rt%,end%):menu_i|
000048a0  63 6f 6e 25 3d 72 30 25  0d 1f f4 24 f2 58 6d 65  |con%=r0%...$.Xme|
000048b0  6e 75 5f 61 64 64 69 74  65 6d 28 22 49 6e 66 6f  |nu_additem("Info|
000048c0  22 2c 77 69 6e 5f 69 6e  66 6f 25 29 0d 1f fe 22  |",win_info%)..."|
000048d0  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 22  |.Xmenu_additem("|
000048e0  43 6c 65 61 72 20 61 6c  6c 22 2c 2d 31 29 0d 20  |Clear all",-1). |
000048f0  08 1d f2 58 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |...Xmenu_additem|
00004900  28 22 51 75 69 74 22 2c  2d 31 29 0d 20 12 1b f2  |("Quit",-1). ...|
00004910  58 6d 65 6e 75 5f 65 6e  64 28 73 74 61 72 74 25  |Xmenu_end(start%|
00004920  2c 65 6e 64 25 29 0d 20  1c 05 e1 0d 20 26 04 0d  |,end%). .... &..|
00004930  20 30 0d dd f2 6d 65 6e  75 73 65 6c 0d 20 3a 16  | 0...menusel. :.|
00004940  c8 99 20 26 34 30 30 43  46 2c 2c 71 25 2b 31 30  |.. &400CF,,q%+10|
00004950  32 34 0d 20 44 1b 61 64  6a 75 73 74 25 3d 28 71  |24. D.adjust%=(q|
00004960  25 21 28 31 30 32 34 2b  38 29 3d 31 29 0d 20 4e  |%!(1024+8)=1). N|
00004970  13 c8 8e 20 58 6d 65 6e  75 5f 70 74 72 25 20 ca  |... Xmenu_ptr% .|
00004980  0d 20 58 1d c9 20 6d 65  6e 75 5f 69 63 6f 6e 25  |. X.. menu_icon%|
00004990  20 3a 20 f2 64 65 63 6d  5f 69 63 6f 6e 0d 20 62  | : .decm_icon. b|
000049a0  1d c9 20 6d 65 6e 75 5f  6d 61 69 6e 25 20 3a 20  |.. menu_main% : |
000049b0  f2 64 65 63 6d 5f 6d 61  69 6e 0d 20 6c 05 cb 0d  |.decm_main. l...|
000049c0  20 76 35 e7 20 61 64 6a  75 73 74 25 20 c8 99 20  | v5. adjust% .. |
000049d0  26 34 30 30 44 34 2c 2c  58 6d 65 6e 75 5f 70 74  |&400D4,,Xmenu_pt|
000049e0  72 25 2c 58 6d 65 6e 75  5f 78 25 2c 58 6d 65 6e  |r%,Xmenu_x%,Xmen|
000049f0  75 5f 79 25 0d 20 80 05  e1 0d 20 8a 04 0d 20 94  |u_y%. .... ... .|
00004a00  0f dd f2 64 65 63 6d 5f  69 63 6f 6e 0d 20 9e 0d  |...decm_icon. ..|
00004a10  c8 8e 20 71 25 21 30 20  ca 0d 20 a8 42 c9 20 31  |.. q%!0 .. .B. 1|
00004a20  20 3a 20 e7 20 73 61 6d  70 6c 65 5f 74 79 70 65  | : . sample_type|
00004a30  25 3e 3d 30 20 f2 58 6d  65 6d 5f 72 65 6c 65 61  |%>=0 .Xmem_relea|
00004a40  73 65 28 73 61 6d 70 6c  65 25 29 3a 73 61 6d 70  |se(sample%):samp|
00004a50  6c 65 5f 74 79 70 65 25  3d 2d 31 0d 20 b2 1d 20  |le_type%=-1. .. |
00004a60  21 71 25 3d 77 69 6e 5f  6d 61 69 6e 25 3a f2 63  |!q%=win_main%:.c|
00004a70  6c 6f 73 65 28 71 25 29  0d 20 bc 12 c9 20 32 20  |lose(q%). ... 2 |
00004a80  3a 20 71 75 69 74 25 3d  2d 31 0d 20 c6 05 cb 0d  |: quit%=-1. ....|
00004a90  20 d0 05 e1 0d 20 da 04  0d 20 e4 15 dd f2 6f 70  | .... ... ....op|
00004aa0  65 6e 5f 73 61 76 65 28  77 69 6e 25 29 0d 20 ee  |en_save(win%). .|
00004ab0  0d c8 8e 20 77 69 6e 25  20 ca 0d 20 f8 25 c9 20  |... win% .. .%. |
00004ac0  30 20 3a 20 f2 6f 73 61  76 65 77 69 6e 28 22 36  |0 : .osavewin("6|
00004ad0  33 31 22 2c 73 6e 61 6d  65 5f 6c 6f 67 24 29 0d  |31",sname_log$).|
00004ae0  21 02 25 c9 20 31 20 3a  20 f2 6f 73 61 76 65 77  |!.%. 1 : .osavew|
00004af0  69 6e 28 22 36 33 32 22  2c 73 6e 61 6d 65 5f 73  |in("632",sname_s|
00004b00  67 6e 24 29 0d 21 0c 25  c9 20 32 20 3a 20 f2 6f  |gn$).!.%. 2 : .o|
00004b10  73 61 76 65 77 69 6e 28  22 36 33 33 22 2c 73 6e  |savewin("633",sn|
00004b20  61 6d 65 5f 75 6e 73 24  29 0d 21 16 25 c9 20 33  |ame_uns$).!.%. 3|
00004b30  20 3a 20 f2 6f 73 61 76  65 77 69 6e 28 22 36 33  | : .osavewin("63|
00004b40  34 22 2c 73 6e 61 6d 65  5f 65 66 66 24 29 0d 21  |4",sname_eff$).!|
00004b50  20 25 c9 20 34 20 3a 20  f2 6f 73 61 76 65 77 69  | %. 4 : .osavewi|
00004b60  6e 28 22 44 33 43 22 2c  73 6e 61 6d 65 5f 61 72  |n("D3C",sname_ar|
00004b70  6d 24 29 0d 21 2a 05 cb  0d 21 34 05 e1 0d 21 3e  |m$).!*...!4...!>|
00004b80  04 0d 21 48 18 dd f2 6f  73 61 76 65 77 69 6e 28  |..!H...osavewin(|
00004b90  74 79 70 65 24 2c 61 24  29 0d 21 52 11 24 73 61  |type$,a$).!R.$sa|
00004ba0  76 65 5f 74 78 74 25 3d  61 24 0d 21 5c 16 c8 99  |ve_txt%=a$.!\...|
00004bb0  20 26 34 30 30 43 46 2c  2c 71 25 2b 31 30 32 34  | &400CF,,q%+1024|
00004bc0  0d 21 66 1f 24 73 61 76  65 5f 76 61 6c 69 64 25  |.!f.$save_valid%|
00004bd0  3d 22 53 66 69 6c 65 5f  22 2b 74 79 70 65 24 0d  |="Sfile_"+type$.|
00004be0  21 70 1b 66 69 6c 65 5f  74 79 70 65 25 3d a0 28  |!p.file_type%=.(|
00004bf0  22 26 22 2b 74 79 70 65  24 29 0d 21 7a 19 73 61  |"&"+type$).!z.sa|
00004c00  76 65 5f 73 69 7a 65 25  3d 73 61 6d 70 5f 73 69  |ve_size%=samp_si|
00004c10  7a 65 25 0d 21 84 28 c8  99 20 26 34 30 30 44 34  |ze%.!.(.. &400D4|
00004c20  2c 2c 77 69 6e 5f 73 61  76 65 25 2c 71 25 21 31  |,,win_save%,q%!1|
00004c30  30 32 34 2c 71 25 21 31  30 32 38 0d 21 8e 05 e1  |024,q%!1028.!...|
00004c40  0d 21 98 04 0d 21 a2 10  dd a4 6b 65 79 5f 6f 6b  |.!...!....key_ok|
00004c50  28 6b 25 29 0d 21 ac 10  ea 20 6f 6b 25 3a 6f 6b  |(k%).!... ok%:ok|
00004c60  25 3d 2d 31 0d 21 b6 0e  f2 76 61 6c 69 64 5f 73  |%=-1.!...valid_s|
00004c70  65 6c 0d 21 c0 0e c8 8e  20 6b 25 2b 36 34 20 ca  |el.!.... k%+64 .|
00004c80  0d 21 ca 25 c9 20 97 22  41 22 20 3a 20 f2 61 64  |.!.%. ."A" : .ad|
00004c90  6a 5f 73 65 6c 28 30 2c  73 61 6d 70 5f 73 69 7a  |j_sel(0,samp_siz|
00004ca0  65 25 2d 31 29 0d 21 d4  16 c9 20 97 22 43 22 20  |e%-1).!... ."C" |
00004cb0  3a 20 f2 63 6f 70 79 5f  73 65 6c 0d 21 de 23 c9  |: .copy_sel.!.#.|
00004cc0  20 97 22 49 22 20 3a 20  f2 66 61 64 65 69 6e 28  | ."I" : .fadein(|
00004cd0  53 73 74 61 72 74 25 2c  53 65 6e 64 25 29 0d 21  |Sstart%,Send%).!|
00004ce0  e8 38 c9 20 97 22 4c 22  20 3a 20 f2 58 69 63 6f  |.8. ."L" : .Xico|
00004cf0  6e 5f 73 65 74 73 74 72  28 77 69 6e 5f 6d 61 69  |n_setstr(win_mai|
00004d00  6e 25 2c 32 35 2c 22 31  32 37 22 29 3a 3f 56 76  |n%,25,"127"):?Vv|
00004d10  6f 6c 3d 31 32 37 0d 21  f2 24 c9 20 97 22 4f 22  |ol=127.!.$. ."O"|
00004d20  20 3a 20 f2 66 61 64 65  6f 75 74 28 53 73 74 61  | : .fadeout(Ssta|
00004d30  72 74 25 2c 53 65 6e 64  25 29 0d 21 fc 11 c9 20  |rt%,Send%).!... |
00004d40  97 22 50 22 20 3a 20 f2  70 6c 79 0d 22 06 33 c9  |."P" : .ply.".3.|
00004d50  20 97 22 53 22 20 3a 20  3f 56 63 6f 6d 6d 61 6e  | ."S" : ?Vcomman|
00004d60  64 3d 31 3a c8 96 3a 3f  56 63 6f 6d 6d 61 6e 64  |d=1:..:?Vcommand|
00004d70  3d 30 3a 21 56 63 6f 75  6e 74 65 72 3d 30 0d 22  |=0:!Vcounter=0."|
00004d80  10 44 c9 20 97 22 54 22  20 3a 20 74 72 61 63 6b  |.D. ."T" : track|
00004d90  69 6e 67 25 3d ac 74 72  61 63 6b 69 6e 67 25 3a  |ing%=.tracking%:|
00004da0  f2 58 6d 65 6e 75 5f 74  69 63 6b 28 6d 65 6e 75  |.Xmenu_tick(menu|
00004db0  5f 74 72 61 63 6b 25 2c  74 72 61 63 6b 69 6e 67  |_track%,tracking|
00004dc0  25 29 0d 22 1a 15 c9 20  97 22 45 22 20 3a 20 f2  |%)."... ."E" : .|
00004dd0  70 6c 79 5f 73 65 6c 0d  22 24 16 c9 20 97 22 56  |ply_sel."$.. ."V|
00004de0  22 20 3a 20 f2 6d 6f 76  65 5f 73 65 6c 0d 22 2e  |" : .move_sel.".|
00004df0  15 c9 20 97 22 58 22 20  3a 20 f2 64 65 6c 5f 73  |.. ."X" : .del_s|
00004e00  65 6c 0d 22 38 17 c9 20  97 22 59 22 20 3a 20 f2  |el."8.. ."Y" : .|
00004e10  63 6f 70 79 32 5f 73 65  6c 0d 22 42 1c c9 20 97  |copy2_sel."B.. .|
00004e20  22 5a 22 20 3a 20 f2 61  64 6a 5f 73 65 6c 28 2d  |"Z" : .adj_sel(-|
00004e30  31 2c 2d 31 29 0d 22 4c  16 c9 20 97 22 5a 22 2b  |1,-1)."L.. ."Z"+|
00004e40  36 34 20 3a 20 f2 73 65  6c 7a 6d 0d 22 56 13 c9  |64 : .selzm."V..|
00004e50  20 33 32 2b 36 34 20 3a  20 f2 63 6f 6e 74 0d 22  | 32+64 : .cont."|
00004e60  60 1c c9 20 26 31 38 33  2b 36 34 3a 20 f2 6f 70  |`.. &183+64: .op|
00004e70  65 6e 5f 73 61 76 65 28  33 29 0d 22 6a 0d 7f 20  |en_save(3)."j.. |
00004e80  3a 20 6f 6b 25 3d 30 0d  22 74 05 cb 0d 22 7e 08  |: ok%=0."t..."~.|
00004e90  3d 6f 6b 25 0d 22 88 04  0d 22 92 0a dd f2 63 6f  |=ok%."..."....co|
00004ea0  6e 74 0d 22 9c 07 ea 20  73 0d 22 a6 32 e7 20 73  |nt."... s.".2. s|
00004eb0  61 6d 70 6c 65 5f 74 79  70 65 25 3e 3d 30 20 80  |ample_type%>=0 .|
00004ec0  20 63 61 72 65 74 25 3e  30 20 80 20 63 61 72 65  | caret%>0 . care|
00004ed0  74 25 3c 21 56 73 65 6e  64 20 8c 0d 22 b0 21 73  |t%<!Vsend ..".!s|
00004ee0  3d bb a4 58 69 63 6f 6e  5f 67 65 74 73 74 72 28  |=..Xicon_getstr(|
00004ef0  77 69 6e 5f 6d 61 69 6e  25 2c 35 29 0d 22 ba 24  |win_main%,5).".$|
00004f00  f2 70 6c 61 79 28 63 61  72 65 74 25 2b 73 61 6d  |.play(caret%+sam|
00004f10  70 6c 65 25 2c 21 56 73  65 6e 64 2c 30 2c 73 29  |ple%,!Vsend,0,s)|
00004f20  0d 22 c4 05 cd 0d 22 ce  05 e1 0d 22 d8 04 0d 22  |."...."...."..."|
00004f30  e2 14 dd f2 63 68 65 63  6b 5f 61 6c 6c 28 63 63  |....check_all(cc|
00004f40  25 29 0d 22 ec 2e e7 20  63 61 72 65 74 25 3c 30  |%)."... caret%<0|
00004f50  20 80 20 63 63 25 3c 3e  30 20 85 20 31 2c 22 4e  | . cc%<>0 . 1,"N|
00004f60  6f 20 63 61 72 65 74 20  70 72 65 73 65 6e 74 22  |o caret present"|
00004f70  0d 22 f6 25 e7 20 73 65  6c 5f 73 74 61 72 74 25  |.".%. sel_start%|
00004f80  3c 30 20 85 20 31 2c 22  4e 6f 20 73 65 6c 65 63  |<0 . 1,"No selec|
00004f90  74 69 6f 6e 22 0d 23 00  05 e1 0d 23 0a 04 0d 23  |tion".#....#...#|
00004fa0  14 0f dd f2 63 6f 70 79  32 5f 73 65 6c 0d 23 1e  |....copy2_sel.#.|
00004fb0  12 f2 63 68 65 63 6b 5f  61 6c 6c 28 2d 31 29 0d  |..check_all(-1).|
00004fc0  23 28 19 41 25 3d 73 65  6c 5f 73 74 61 72 74 25  |#(.A%=sel_start%|
00004fd0  2b 73 61 6d 70 6c 65 25  0d 23 32 17 42 25 3d 73  |+sample%.#2.B%=s|
00004fe0  65 6c 5f 65 6e 64 25 2b  73 61 6d 70 6c 65 25 0d  |el_end%+sample%.|
00004ff0  23 3c 15 43 25 3d 63 61  72 65 74 25 2b 73 61 6d  |#<.C%=caret%+sam|
00005000  70 6c 65 25 0d 23 46 19  44 25 3d 73 61 6d 70 6c  |ple%.#F.D%=sampl|
00005010  65 25 2b 73 61 6d 70 5f  73 69 7a 65 25 0d 23 50  |e%+samp_size%.#P|
00005020  0a d6 20 63 6f 70 79 0d  23 5a 08 f2 72 65 64 0d  |.. copy.#Z..red.|
00005030  23 64 05 e1 0d 23 6e 04  0d 23 78 18 dd f2 69 6e  |#d...#n..#x...in|
00005040  73 65 72 74 28 70 6f 73  25 2c 73 69 7a 65 25 29  |sert(pos%,size%)|
00005050  0d 23 82 1e f2 58 6d 65  6d 5f 64 65 6c 74 61 28  |.#...Xmem_delta(|
00005060  73 61 6d 70 6c 65 25 2c  73 69 7a 65 25 29 0d 23  |sample%,size%).#|
00005070  8c 27 f2 63 6f 70 79 28  70 6f 73 25 2c 73 61 6d  |.'.copy(pos%,sam|
00005080  70 5f 73 69 7a 65 25 2d  31 2c 70 6f 73 25 2b 73  |p_size%-1,pos%+s|
00005090  69 7a 65 25 29 0d 23 96  1f e7 20 63 61 72 65 74  |ize%).#... caret|
000050a0  25 3e 70 6f 73 25 20 63  61 72 65 74 25 2b 3d 73  |%>pos% caret%+=s|
000050b0  69 7a 65 25 0d 23 a0 15  73 61 6d 70 5f 73 69 7a  |ize%.#..samp_siz|
000050c0  65 25 2b 3d 73 69 7a 65  25 0d 23 aa 27 e7 20 73  |e%+=size%.#.'. s|
000050d0  65 6c 5f 73 74 61 72 74  25 3e 70 6f 73 25 20 73  |el_start%>pos% s|
000050e0  65 6c 5f 73 74 61 72 74  25 2b 3d 73 69 7a 65 25  |el_start%+=size%|
000050f0  0d 23 b4 23 e7 20 73 65  6c 5f 65 6e 64 25 3e 70  |.#.#. sel_end%>p|
00005100  6f 73 25 20 73 65 6c 5f  65 6e 64 25 2b 3d 73 69  |os% sel_end%+=si|
00005110  7a 65 25 0d 23 be 05 e1  0d 23 c8 04 0d 23 d2 19  |ze%.#....#...#..|
00005120  dd f2 64 65 6c 65 74 65  28 73 74 61 72 74 25 2c  |..delete(start%,|
00005130  65 6e 64 25 29 0d 23 dc  37 e7 20 65 6e 64 25 3c  |end%).#.7. end%<|
00005140  73 61 6d 70 5f 73 69 7a  65 25 2d 31 20 f2 63 6f  |samp_size%-1 .co|
00005150  70 79 28 65 6e 64 25 2c  73 61 6d 70 5f 73 69 7a  |py(end%,samp_siz|
00005160  65 25 2d 31 2c 73 74 61  72 74 25 29 0d 23 e6 24  |e%-1,start%).#.$|
00005170  f2 58 6d 65 6d 5f 64 65  6c 74 61 28 73 61 6d 70  |.Xmem_delta(samp|
00005180  6c 65 25 2c 73 74 61 72  74 25 2d 65 6e 64 25 29  |le%,start%-end%)|
00005190  0d 23 f0 31 e7 20 63 61  72 65 74 25 3e 3d 73 74  |.#.1. caret%>=st|
000051a0  61 72 74 25 20 80 20 63  61 72 65 74 25 3c 3d 65  |art% . caret%<=e|
000051b0  6e 64 25 20 63 61 72 65  74 25 3d 73 74 61 72 74  |nd% caret%=start|
000051c0  25 0d 23 fa 3d e7 20 73  65 6c 5f 73 74 61 72 74  |%.#.=. sel_start|
000051d0  25 3e 3d 73 74 61 72 74  25 20 80 20 73 65 6c 5f  |%>=start% . sel_|
000051e0  73 74 61 72 74 25 3c 3d  65 6e 64 25 20 73 65 6c  |start%<=end% sel|
000051f0  5f 73 74 61 72 74 25 3d  73 74 61 72 74 25 0d 24  |_start%=start%.$|
00005200  04 37 e7 20 73 65 6c 5f  65 6e 64 25 3e 3d 73 74  |.7. sel_end%>=st|
00005210  61 72 74 25 20 80 20 73  65 6c 5f 65 6e 64 25 3c  |art% . sel_end%<|
00005220  3d 65 6e 64 25 20 73 65  6c 5f 65 6e 64 25 3d 73  |=end% sel_end%=s|
00005230  74 61 72 74 25 0d 24 0e  27 e7 20 63 61 72 65 74  |tart%.$.'. caret|
00005240  25 3e 73 74 61 72 74 25  20 63 61 72 65 74 25 2d  |%>start% caret%-|
00005250  3d 65 6e 64 25 2d 73 74  61 72 74 25 0d 24 18 1b  |=end%-start%.$..|
00005260  73 61 6d 70 5f 73 69 7a  65 25 2d 3d 65 6e 64 25  |samp_size%-=end%|
00005270  2d 73 74 61 72 74 25 0d  24 22 05 e1 0d 24 2c 04  |-start%.$"...$,.|
00005280  0d 24 36 0d dd f2 64 65  6c 5f 73 65 6c 0d 24 40  |.$6...del_sel.$@|
00005290  11 f2 63 68 65 63 6b 5f  61 6c 6c 28 30 29 0d 24  |..check_all(0).$|
000052a0  4a 20 f2 64 65 6c 65 74  65 28 73 65 6c 5f 73 74  |J .delete(sel_st|
000052b0  61 72 74 25 2c 73 65 6c  5f 65 6e 64 25 29 0d 24  |art%,sel_end%).$|
000052c0  54 11 73 65 6c 5f 73 74  61 72 74 25 3d 2d 31 0d  |T.sel_start%=-1.|
000052d0  24 5e 0f 73 65 6c 5f 65  6e 64 25 3d 2d 31 0d 24  |$^.sel_end%=-1.$|
000052e0  68 08 f2 72 65 64 0d 24  72 05 e1 0d 24 7c 04 0d  |h..red.$r...$|..|
000052f0  24 86 0e dd f2 63 6f 70  79 5f 73 65 6c 0d 24 90  |$....copy_sel.$.|
00005300  12 f2 63 68 65 63 6b 5f  61 6c 6c 28 2d 31 29 0d  |..check_all(-1).|
00005310  24 9a 4e e7 20 63 61 72  65 74 25 3e 3d 73 65 6c  |$.N. caret%>=sel|
00005320  5f 73 74 61 72 74 25 20  80 20 63 61 72 65 74 25  |_start% . caret%|
00005330  3c 3d 73 65 6c 5f 65 6e  64 25 20 85 20 31 2c 22  |<=sel_end% . 1,"|
00005340  43 61 6e 6e 6f 74 20 63  6f 70 79 20 69 6e 73 69  |Cannot copy insi|
00005350  64 65 20 73 65 6c 65 63  74 69 6f 6e 22 0d 24 a4  |de selection".$.|
00005360  27 f2 69 6e 73 65 72 74  28 63 61 72 65 74 25 2c  |'.insert(caret%,|
00005370  73 65 6c 5f 65 6e 64 25  2d 73 65 6c 5f 73 74 61  |sel_end%-sel_sta|
00005380  72 74 25 29 0d 24 ae 25  f2 63 6f 70 79 28 73 65  |rt%).$.%.copy(se|
00005390  6c 5f 73 74 61 72 74 25  2c 73 65 6c 5f 65 6e 64  |l_start%,sel_end|
000053a0  25 2c 63 61 72 65 74 25  29 0d 24 b8 08 f2 72 65  |%,caret%).$...re|
000053b0  64 0d 24 c2 05 e1 0d 24  cc 04 0d 24 d6 0e dd f2  |d.$....$...$....|
000053c0  6d 6f 76 65 5f 73 65 6c  0d 24 e0 10 ea 20 73 69  |move_sel.$... si|
000053d0  7a 65 25 2c 70 6f 73 25  0d 24 ea 12 f2 63 68 65  |ze%,pos%.$...che|
000053e0  63 6b 5f 61 6c 6c 28 2d  31 29 0d 24 f4 1d 73 69  |ck_all(-1).$..si|
000053f0  7a 65 25 3d 73 65 6c 5f  65 6e 64 25 2d 73 65 6c  |ze%=sel_end%-sel|
00005400  5f 73 74 61 72 74 25 0d  24 fe 1b 70 6f 73 25 3d  |_start%.$..pos%=|
00005410  a4 58 6d 65 6d 5f 63 6c  61 69 6d 28 73 69 7a 65  |.Xmem_claim(size|
00005420  25 29 0d 25 08 2b f2 63  6f 70 79 28 73 65 6c 5f  |%).%.+.copy(sel_|
00005430  73 74 61 72 74 25 2c 73  65 6c 5f 65 6e 64 25 2c  |start%,sel_end%,|
00005440  70 6f 73 25 2d 73 61 6d  70 6c 65 25 29 0d 25 12  |pos%-sample%).%.|
00005450  20 f2 64 65 6c 65 74 65  28 73 65 6c 5f 73 74 61  | .delete(sel_sta|
00005460  72 74 25 2c 73 65 6c 5f  65 6e 64 25 29 0d 25 1c  |rt%,sel_end%).%.|
00005470  19 f2 69 6e 73 65 72 74  28 63 61 72 65 74 25 2c  |..insert(caret%,|
00005480  73 69 7a 65 25 29 0d 25  26 33 f2 63 6f 70 79 28  |size%).%&3.copy(|
00005490  70 6f 73 25 2d 73 61 6d  70 6c 65 25 2c 70 6f 73  |pos%-sample%,pos|
000054a0  25 2d 73 61 6d 70 6c 65  25 2b 73 69 7a 65 25 2d  |%-sample%+size%-|
000054b0  31 2c 63 61 72 65 74 25  29 0d 25 30 17 f2 58 6d  |1,caret%).%0..Xm|
000054c0  65 6d 5f 72 65 6c 65 61  73 65 28 70 6f 73 25 29  |em_release(pos%)|
000054d0  0d 25 3a 15 73 65 6c 5f  73 74 61 72 74 25 3d 63  |.%:.sel_start%=c|
000054e0  61 72 65 74 25 0d 25 44  19 73 65 6c 5f 65 6e 64  |aret%.%D.sel_end|
000054f0  25 3d 63 61 72 65 74 25  2b 73 69 7a 65 25 0d 25  |%=caret%+size%.%|
00005500  4e 08 f2 72 65 64 0d 25  58 05 e1 0d 25 62 04 0d  |N..red.%X...%b..|
00005510  25 6c 18 dd f2 6d 6f 64  75 6c 61 74 65 28 73 24  |%l...modulate(s$|
00005520  2c 73 25 2c 65 25 29 0d  25 76 17 ea 20 6c 65 6e  |,s%,e%).%v.. len|
00005530  25 2c 5a 3a 6c 65 6e 25  3d 65 25 2d 73 25 0d 25  |%,Z:len%=e%-s%.%|
00005540  80 12 5a 3d 73 61 6d 70  5f 63 65 6e 74 72 65 25  |..Z=samp_centre%|
00005550  0d 25 8a 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.%.... "Hourglas|
00005560  73 5f 4f 6e 22 0d 25 94  41 e3 20 58 3d 73 25 2d  |s_On".%.A. X=s%-|
00005570  73 61 6d 70 6c 65 25 20  b8 20 65 25 2d 73 61 6d  |sample% . e%-sam|
00005580  70 6c 65 25 3a 59 3d 73  61 6d 70 6c 65 25 3f 58  |ple%:Y=sample%?X|
00005590  3a 59 3d a0 28 73 24 29  3a e7 20 59 3e 32 35 35  |:Y=.(s$):. Y>255|
000055a0  20 59 3d 32 35 35 0d 25  9e 2f c8 99 20 26 34 30  | Y=255.%./.. &40|
000055b0  36 43 34 2c 28 58 2d 73  25 2b 73 61 6d 70 6c 65  |6C4,(X-s%+sample|
000055c0  25 29 2a 31 30 30 2f 6c  65 6e 25 3a e7 20 59 3c  |%)*100/len%:. Y<|
000055d0  30 20 59 3d 30 0d 25 a8  15 73 61 6d 70 6c 65 25  |0 Y=0.%..sample%|
000055e0  3f 58 3d 59 3a 5a 3d 59  3a ed 0d 25 b2 08 f2 72  |?X=Y:Z=Y:..%...r|
000055f0  65 64 0d 25 bc 16 c8 99  20 22 48 6f 75 72 67 6c  |ed.%.... "Hourgl|
00005600  61 73 73 5f 4f 66 66 22  0d 25 c6 05 e1 0d 25 d0  |ass_Off".%....%.|
00005610  04 0d 25 da 0b dd f2 73  65 6c 7a 6d 0d 25 e4 33  |..%....selzm.%.3|
00005620  f2 7a 6f 6f 6d 28 39 39  39 2c 28 73 65 6c 5f 65  |.zoom(999,(sel_e|
00005630  6e 64 25 2d 73 65 6c 5f  73 74 61 72 74 25 29 2a  |nd%-sel_start%)*|
00005640  39 39 39 2f 73 61 6d 70  5f 73 69 7a 65 25 29 0d  |999/samp_size%).|
00005650  25 ee 1f 21 71 25 3d 77  69 6e 5f 70 61 6e 65 25  |%..!q%=win_pane%|
00005660  3a c8 99 20 26 34 30 30  43 43 2c 2c 71 25 0d 25  |:.. &400CC,,q%.%|
00005670  f8 25 71 25 21 32 30 3d  71 25 21 35 32 2a 73 65  |.%q%!20=q%!52*se|
00005680  6c 5f 73 74 61 72 74 25  2f 73 61 6d 70 5f 73 69  |l_start%/samp_si|
00005690  7a 65 25 0d 26 02 11 c8  99 20 26 34 30 30 43 35  |ze%.&.... &400C5|
000056a0  2c 2c 71 25 0d 26 0c 05  e1 0d 26 16 04 0d 26 20  |,,q%.&....&...& |
000056b0  0f dd f2 64 65 63 6d 5f  6d 61 69 6e 0d 26 2a 0c  |...decm_main.&*.|
000056c0  c8 8e 20 21 71 25 20 ca  0d 26 34 13 c9 20 30 20  |.. !q% ..&4.. 0 |
000056d0  3a 20 c8 8e 20 71 25 21  34 20 ca 0d 26 3e 2a 20  |: .. q%!4 ..&>* |
000056e0  c9 20 32 20 3a 20 73 61  6d 70 6c 65 5f 74 79 70  |. 2 : sample_typ|
000056f0  65 25 3d 30 3a f2 6e 65  77 5f 73 61 6d 70 6c 65  |e%=0:.new_sample|
00005700  5f 74 79 70 65 0d 26 48  2a 20 c9 20 33 20 3a 20  |_type.&H* . 3 : |
00005710  73 61 6d 70 6c 65 5f 74  79 70 65 25 3d 31 3a f2  |sample_type%=1:.|
00005720  6e 65 77 5f 73 61 6d 70  6c 65 5f 74 79 70 65 0d  |new_sample_type.|
00005730  26 52 2a 20 c9 20 34 20  3a 20 73 61 6d 70 6c 65  |&R* . 4 : sample|
00005740  5f 74 79 70 65 25 3d 32  3a f2 6e 65 77 5f 73 61  |_type%=2:.new_sa|
00005750  6d 70 6c 65 5f 74 79 70  65 0d 26 5c 13 20 c9 20  |mple_type.&\. . |
00005760  35 20 3a 20 f2 6c 69 6e  32 6c 6f 67 0d 26 66 25  |5 : .lin2log.&f%|
00005770  20 20 73 61 6d 70 6c 65  5f 74 79 70 65 25 3d 30  |  sample_type%=0|
00005780  3a f2 6e 65 77 5f 73 61  6d 70 6c 65 5f 74 79 70  |:.new_sample_typ|
00005790  65 0d 26 70 13 20 c9 20  36 20 3a 20 f2 6c 6f 67  |e.&p. . 6 : .log|
000057a0  32 6c 69 6e 0d 26 7a 25  20 20 73 61 6d 70 6c 65  |2lin.&z%  sample|
000057b0  5f 74 79 70 65 25 3d 31  3a f2 6e 65 77 5f 73 61  |_type%=1:.new_sa|
000057c0  6d 70 6c 65 5f 74 79 70  65 0d 26 84 31 20 c9 20  |mple_type.&.1 . |
000057d0  37 20 3a 20 f2 65 6f 72  28 31 32 38 2c 73 61 6d  |7 : .eor(128,sam|
000057e0  70 6c 65 25 2c 73 61 6d  70 5f 73 69 7a 65 25 2b  |ple%,samp_size%+|
000057f0  73 61 6d 70 6c 65 25 2d  31 29 0d 26 8e 32 20 20  |sample%-1).&.2  |
00005800  73 61 6d 70 6c 65 5f 74  79 70 65 25 3d 73 61 6d  |sample_type%=sam|
00005810  70 6c 65 5f 74 79 70 65  25 82 33 3a f2 6e 65 77  |ple_type%.3:.new|
00005820  5f 73 61 6d 70 6c 65 5f  74 79 70 65 0d 26 98 17  |_sample_type.&..|
00005830  20 c9 20 38 20 3a 20 f2  63 61 6c 63 5f 63 65 6e  | . 8 : .calc_cen|
00005840  74 72 65 0d 26 a2 06 20  cb 0d 26 ac 13 c9 20 31  |tre.&.. ..&... 1|
00005850  20 3a 20 c8 8e 20 71 25  21 34 20 ca 0d 26 b6 23  | : .. q%!4 ..&.#|
00005860  20 c9 20 30 2c 31 2c 32  2c 33 2c 34 20 3a 20 f2  | . 0,1,2,3,4 : .|
00005870  6f 70 65 6e 5f 73 61 76  65 28 71 25 21 34 29 0d  |open_save(q%!4).|
00005880  26 c0 06 20 cb 0d 26 ca  13 c9 20 32 20 3a 20 c8  |&.. ..&... 2 : .|
00005890  8e 20 71 25 21 34 20 ca  0d 26 d4 23 20 c9 20 30  |. q%!4 ..&.# . 0|
000058a0  20 3a 20 f2 61 64 6a 5f  73 65 6c 28 30 2c 73 61  | : .adj_sel(0,sa|
000058b0  6d 70 5f 73 69 7a 65 25  2d 31 29 0d 26 de 1a 20  |mp_size%-1).&.. |
000058c0  c9 20 31 20 3a 20 f2 61  64 6a 5f 73 65 6c 28 2d  |. 1 : .adj_sel(-|
000058d0  31 2c 2d 31 29 0d 26 e8  13 20 c9 20 32 20 3a 20  |1,-1).&.. . 2 : |
000058e0  f2 64 65 6c 5f 73 65 6c  0d 26 f2 14 20 c9 20 33  |.del_sel.&.. . 3|
000058f0  20 3a 20 f2 63 6f 70 79  5f 73 65 6c 0d 26 fc 15  | : .copy_sel.&..|
00005900  20 c9 20 34 20 3a 20 f2  63 6f 70 79 32 5f 73 65  | . 4 : .copy2_se|
00005910  6c 0d 27 06 14 20 c9 20  35 20 3a 20 f2 6d 6f 76  |l.'.. . 5 : .mov|
00005920  65 5f 73 65 6c 0d 27 10  0f 20 c9 20 36 20 3a 20  |e_sel.'.. . 6 : |
00005930  f2 6d 69 78 0d 27 1a 12  20 c9 20 37 20 3a 20 f2  |.mix.'.. . 7 : .|
00005940  70 72 65 6d 69 78 0d 27  24 13 20 c9 20 38 20 3a  |premix.'$. . 8 :|
00005950  20 f2 70 6f 73 74 6d 69  78 0d 27 2e 11 20 c9 20  | .postmix.'.. . |
00005960  39 20 3a 20 f2 73 65 6c  7a 6d 0d 27 38 13 20 c9  |9 : .selzm.'8. .|
00005970  20 31 30 3a 20 f2 70 6c  79 5f 73 65 6c 0d 27 42  | 10: .ply_sel.'B|
00005980  06 20 cb 0d 27 4c 14 c9  20 33 20 3a 20 f2 76 61  |. ..'L.. 3 : .va|
00005990  6c 69 64 5f 73 65 6c 0d  27 56 0e 20 c8 8e 20 71  |lid_sel.'V. .. q|
000059a0  25 21 34 20 ca 0d 27 60  16 20 c9 20 30 20 3a 20  |%!4 ..'`. . 0 : |
000059b0  f2 74 6f 67 67 6c 65 5f  73 65 6c 0d 27 6a 22 20  |.toggle_sel.'j" |
000059c0  c9 20 31 20 3a 20 f2 72  65 76 65 72 73 65 28 53  |. 1 : .reverse(S|
000059d0  73 74 61 72 74 25 2c 53  65 6e 64 25 29 0d 27 74  |start%,Send%).'t|
000059e0  20 20 c9 20 32 20 3a 20  f2 61 6d 70 28 30 2c 53  |  . 2 : .amp(0,S|
000059f0  73 74 61 72 74 25 2c 53  65 6e 64 25 29 0d 27 7e  |start%,Send%).'~|
00005a00  21 20 c9 20 33 20 3a 20  f2 66 61 64 65 69 6e 28  |! . 3 : .fadein(|
00005a10  53 73 74 61 72 74 25 2c  53 65 6e 64 25 29 0d 27  |Sstart%,Send%).'|
00005a20  88 22 20 c9 20 34 20 3a  20 f2 66 61 64 65 6f 75  |." . 4 : .fadeou|
00005a30  74 28 53 73 74 61 72 74  25 2c 53 65 6e 64 25 29  |t(Sstart%,Send%)|
00005a40  0d 27 92 32 20 c9 20 35  20 3a 20 f2 61 6d 70 28  |.'.2 . 5 : .amp(|
00005a50  28 a0 a4 7a 28 61 6d 70  6c 69 66 79 25 29 29 2f  |(..z(amplify%))/|
00005a60  31 30 30 2c 53 73 74 61  72 74 25 2c 53 65 6e 64  |100,Sstart%,Send|
00005a70  25 29 0d 27 9c 30 20 c9  20 36 20 3a 20 f2 61 6d  |%).'.0 . 6 : .am|
00005a80  70 28 31 30 30 2f a0 a4  7a 28 61 6d 70 6c 69 66  |p(100/..z(amplif|
00005a90  79 25 29 2c 53 73 74 61  72 74 25 2c 53 65 6e 64  |y%),Sstart%,Send|
00005aa0  25 29 0d 27 a6 2e 20 c9  20 37 20 3a 20 f2 65 6f  |%).'.. . 7 : .eo|
00005ab0  72 28 a0 a4 7a 28 65 6f  72 5f 63 6f 6e 73 74 25  |r(..z(eor_const%|
00005ac0  29 2c 53 73 74 61 72 74  25 2c 53 65 6e 64 25 29  |),Sstart%,Send%)|
00005ad0  0d 27 b0 2e 20 c9 20 38  20 3a 20 f2 61 64 64 28  |.'.. . 8 : .add(|
00005ae0  a0 a4 7a 28 61 64 64 5f  63 6f 6e 73 74 25 29 2c  |..z(add_const%),|
00005af0  53 73 74 61 72 74 25 2c  53 65 6e 64 25 29 0d 27  |Sstart%,Send%).'|
00005b00  ba 2d 20 c9 20 39 20 3a  20 f2 68 70 66 28 a4 7a  |.- . 9 : .hpf(.z|
00005b10  28 68 70 5f 66 69 6c 74  65 72 25 29 2c 53 73 74  |(hp_filter%),Sst|
00005b20  61 72 74 25 2c 53 65 6e  64 25 29 0d 27 c4 2d 20  |art%,Send%).'.- |
00005b30  c9 20 31 30 3a 20 f2 6c  70 66 28 a4 7a 28 6c 70  |. 10: .lpf(.z(lp|
00005b40  5f 66 69 6c 74 65 72 25  29 2c 53 73 74 61 72 74  |_filter%),Sstart|
00005b50  25 2c 53 65 6e 64 25 29  0d 27 ce 2f 20 c9 20 31  |%,Send%).'./ . 1|
00005b60  31 3a 20 f2 63 6f 72 65  28 a0 a4 7a 28 63 6f 72  |1: .core(..z(cor|
00005b70  65 5f 66 69 6c 74 25 29  2c 53 73 74 61 72 74 25  |e_filt%),Sstart%|
00005b80  2c 53 65 6e 64 25 29 0d  27 d8 31 20 c9 20 31 32  |,Send%).'.1 . 12|
00005b90  3a 20 f2 6c 6f 62 6f 6f  73 74 28 31 2f a0 a4 7a  |: .loboost(1/..z|
00005ba0  28 66 62 6f 6f 73 74 25  29 2c 53 73 74 61 72 74  |(fboost%),Sstart|
00005bb0  25 2c 53 65 6e 64 25 29  0d 27 e2 2f 20 c9 20 31  |%,Send%).'./ . 1|
00005bc0  33 3a 20 f2 6c 6f 62 6f  6f 73 74 28 a0 a4 7a 28  |3: .loboost(..z(|
00005bd0  66 62 6f 6f 73 74 25 29  2c 53 73 74 61 72 74 25  |fboost%),Sstart%|
00005be0  2c 53 65 6e 64 25 29 0d  27 ec 14 20 c9 20 31 34  |,Send%).'.. . 14|
00005bf0  3a 20 c8 8e 20 71 25 21  38 20 ca 0d 27 f6 33 20  |: .. q%!8 ..'.3 |
00005c00  20 c9 20 30 20 3a 20 f2  6d 6f 64 75 6c 61 74 65  | . 0 : .modulate|
00005c10  28 a4 7a 28 6d 65 6e 75  5f 6d 6f 64 30 25 29 2c  |(.z(menu_mod0%),|
00005c20  53 73 74 61 72 74 25 2c  53 65 6e 64 25 29 0d 28  |Sstart%,Send%).(|
00005c30  00 33 20 20 c9 20 31 20  3a 20 f2 6d 6f 64 75 6c  |.3  . 1 : .modul|
00005c40  61 74 65 28 a4 7a 28 6d  65 6e 75 5f 6d 6f 64 31  |ate(.z(menu_mod1|
00005c50  25 29 2c 53 73 74 61 72  74 25 2c 53 65 6e 64 25  |%),Sstart%,Send%|
00005c60  29 0d 28 0a 33 20 20 c9  20 32 20 3a 20 f2 6d 6f  |).(.3  . 2 : .mo|
00005c70  64 75 6c 61 74 65 28 a4  7a 28 6d 65 6e 75 5f 6d  |dulate(.z(menu_m|
00005c80  6f 64 32 25 29 2c 53 73  74 61 72 74 25 2c 53 65  |od2%),Sstart%,Se|
00005c90  6e 64 25 29 0d 28 14 33  20 20 c9 20 33 20 3a 20  |nd%).(.3  . 3 : |
00005ca0  f2 6d 6f 64 75 6c 61 74  65 28 a4 7a 28 6d 65 6e  |.modulate(.z(men|
00005cb0  75 5f 6d 6f 64 33 25 29  2c 53 73 74 61 72 74 25  |u_mod3%),Sstart%|
00005cc0  2c 53 65 6e 64 25 29 0d  28 1e 33 20 20 c9 20 34  |,Send%).(.3  . 4|
00005cd0  20 3a 20 f2 6d 6f 64 75  6c 61 74 65 28 a4 7a 28  | : .modulate(.z(|
00005ce0  6d 65 6e 75 5f 6d 6f 64  34 25 29 2c 53 73 74 61  |menu_mod4%),Ssta|
00005cf0  72 74 25 2c 53 65 6e 64  25 29 0d 28 28 07 20 20  |rt%,Send%).((.  |
00005d00  cb 0d 28 32 14 20 c9 20  31 35 3a 20 c8 8e 20 71  |..(2. . 15: .. q|
00005d10  25 21 38 20 ca 0d 28 3c  0c 20 20 c9 20 30 2c 31  |%!8 ..(<.  . 0,1|
00005d20  3a 0d 28 46 38 20 20 c9  20 32 20 3a 20 f2 65 63  |:.(F8  . 2 : .ec|
00005d30  68 6f 28 a0 a4 7a 28 65  63 68 6f 5f 6c 65 6e 67  |ho(..z(echo_leng|
00005d40  74 68 25 29 2c bb a4 7a  28 65 63 68 6f 5f 73 74  |th%),..z(echo_st|
00005d50  72 65 6e 67 74 68 25 29  29 0d 28 50 3a 20 20 c9  |rength%)).(P:  .|
00005d60  20 33 20 3a 20 f2 66 6c  61 6e 67 65 28 a0 a4 7a  | 3 : .flange(..z|
00005d70  28 65 63 68 6f 5f 6c 65  6e 67 74 68 25 29 2c bb  |(echo_length%),.|
00005d80  a4 7a 28 65 63 68 6f 5f  73 74 72 65 6e 67 74 68  |.z(echo_strength|
00005d90  25 29 29 0d 28 5a 3c 20  20 c9 20 34 20 3a 20 f2  |%)).(Z<  . 4 : .|
00005da0  68 61 6c 6c 65 63 68 6f  28 a0 a4 7a 28 65 63 68  |hallecho(..z(ech|
00005db0  6f 5f 6c 65 6e 67 74 68  25 29 2c bb a4 7a 28 65  |o_length%),..z(e|
00005dc0  63 68 6f 5f 73 74 72 65  6e 67 74 68 25 29 29 0d  |cho_strength%)).|
00005dd0  28 64 07 20 20 cb 0d 28  6e 06 20 cb 0d 28 78 1b  |(d.  ..(n. ..(x.|
00005de0  f4 20 57 48 45 4e 20 34  20 3a 20 43 41 53 45 20  |. WHEN 4 : CASE |
00005df0  71 25 21 34 20 4f 46 0d  28 82 3b 20 f4 20 57 48  |q%!4 OF.(.; . WH|
00005e00  45 4e 20 30 20 3a 20 49  46 20 71 25 21 38 3e 2d  |EN 0 : IF q%!8>-|
00005e10  31 20 50 52 4f 43 61 64  64 5f 6c 69 62 65 6e 74  |1 PROCadd_libent|
00005e20  72 79 28 46 4e 7a 28 6c  69 62 5f 6e 61 6d 65 25  |ry(FNz(lib_name%|
00005e30  29 29 0d 28 8c 0f 20 f4  20 57 48 45 4e 20 31 20  |)).(.. . WHEN 1 |
00005e40  3a 0d 28 96 0f 20 f4 20  57 48 45 4e 20 32 20 3a  |:.(.. . WHEN 2 :|
00005e50  0d 28 a0 31 20 f4 20 57  48 45 4e 20 33 20 3a 20  |.(.1 . WHEN 3 : |
00005e60  49 46 20 71 25 21 38 3e  2d 31 20 50 52 4f 43 64  |IF q%!8>-1 PROCd|
00005e70  65 6c 5f 6c 69 62 65 6e  74 72 79 28 71 25 21 38  |el_libentry(q%!8|
00005e80  29 0d 28 aa 0e 20 f4 20  45 4e 44 43 41 53 45 0d  |).(.. . ENDCASE.|
00005e90  28 b4 13 c9 20 34 20 3a  20 c8 8e 20 71 25 21 34  |(... 4 : .. q%!4|
00005ea0  20 ca 0d 28 be 0f 20 c9  20 30 20 3a 20 f2 70 6c  | ..(.. . 0 : .pl|
00005eb0  79 0d 28 c8 31 20 c9 20  31 20 3a 20 3f 56 63 6f  |y.(.1 . 1 : ?Vco|
00005ec0  6d 6d 61 6e 64 3d 31 3a  c8 96 3a 3f 56 63 6f 6d  |mmand=1:..:?Vcom|
00005ed0  6d 61 6e 64 3d 30 3a 21  56 63 6f 75 6e 74 65 72  |mand=0:!Vcounter|
00005ee0  3d 30 0d 28 d2 42 20 c9  20 32 20 3a 20 74 72 61  |=0.(.B . 2 : tra|
00005ef0  63 6b 69 6e 67 25 3d ac  74 72 61 63 6b 69 6e 67  |cking%=.tracking|
00005f00  25 3a f2 58 6d 65 6e 75  5f 74 69 63 6b 28 6d 65  |%:.Xmenu_tick(me|
00005f10  6e 75 5f 74 72 61 63 6b  25 2c 74 72 61 63 6b 69  |nu_track%,tracki|
00005f20  6e 67 25 29 0d 28 dc 10  20 c9 20 33 20 3a 20 f2  |ng%).(.. . 3 : .|
00005f30  63 6f 6e 74 0d 28 e6 19  20 c9 20 34 20 3a 20 f2  |cont.(.. . 4 : .|
00005f40  70 69 74 63 68 5f 62 65  6e 64 28 31 29 0d 28 f0  |pitch_bend(1).(.|
00005f50  1a 20 c9 20 35 20 3a 20  f2 70 69 74 63 68 5f 62  |. . 5 : .pitch_b|
00005f60  65 6e 64 28 2d 31 29 0d  28 fa 36 20 c9 20 36 20  |end(-1).(.6 . 6 |
00005f70  3a 20 f2 58 69 63 6f 6e  5f 73 65 74 73 74 72 28  |: .Xicon_setstr(|
00005f80  77 69 6e 5f 6d 61 69 6e  25 2c 32 35 2c 22 31 32  |win_main%,25,"12|
00005f90  37 22 29 3a 3f 56 76 6f  6c 3d 31 32 37 0d 29 04  |7"):?Vvol=127.).|
00005fa0  06 20 cb 0d 29 0e 05 cb  0d 29 18 05 e1 0d 29 22  |. ..)....)....)"|
00005fb0  04 0d 29 2c 12 dd f2 65  63 68 6f 28 44 25 2c 73  |..),...echo(D%,s|
00005fc0  74 72 29 0d 29 36 0e 41  25 3d 53 73 74 61 72 74  |tr).)6.A%=Sstart|
00005fd0  25 0d 29 40 0c 42 25 3d  53 65 6e 64 25 0d 29 4a  |%.)@.B%=Send%.)J|
00005fe0  13 43 25 3d 73 61 6d 70  5f 63 65 6e 74 72 65 25  |.C%=samp_centre%|
00005ff0  0d 29 54 18 45 25 3d 28  73 74 72 2f 31 30 30 29  |.)T.E%=(str/100)|
00006000  2a 28 31 3c 3c 31 32 29  0d 29 5e 0a d6 20 65 63  |*(1<<12).)^.. ec|
00006010  68 6f 0d 29 68 05 e1 0d  29 72 04 0d 29 7c 14 dd  |ho.)h...)r..)|..|
00006020  f2 68 61 6c 6c 65 63 68  6f 28 61 25 2c 62 29 0d  |.hallecho(a%,b).|
00006030  29 86 0b c8 95 20 62 3e  3d 31 0d 29 90 11 f2 66  |).... b>=1.)...f|
00006040  6c 61 6e 67 65 28 61 25  2c 62 29 0d 29 9a 11 61  |lange(a%,b).)..a|
00006050  25 3d 61 25 2a 32 3a 62  3d 62 2f 32 0d 29 a4 05  |%=a%*2:b=b/2.)..|
00006060  ce 0d 29 ae 05 e1 0d 29  b8 04 0d 29 c2 14 dd f2  |..)....)...)....|
00006070  66 6c 61 6e 67 65 28 44  25 2c 73 74 72 29 0d 29  |flange(D%,str).)|
00006080  cc 0e 41 25 3d 53 73 74  61 72 74 25 0d 29 d6 0c  |..A%=Sstart%.)..|
00006090  42 25 3d 53 65 6e 64 25  0d 29 e0 13 43 25 3d 73  |B%=Send%.)..C%=s|
000060a0  61 6d 70 5f 63 65 6e 74  72 65 25 0d 29 ea 18 45  |amp_centre%.)..E|
000060b0  25 3d 28 73 74 72 2f 31  30 30 29 2a 28 31 3c 3c  |%=(str/100)*(1<<|
000060c0  31 32 29 0d 29 f4 0c d6  20 66 6c 61 6e 67 65 0d  |12).)... flange.|
000060d0  29 fe 05 e1 0d 2a 08 04  0d 2a 12 0f dd f2 76 61  |)....*...*....va|
000060e0  6c 69 64 5f 73 65 6c 0d  2a 1c 26 e7 20 75 73 65  |lid_sel.*.&. use|
000060f0  5f 73 65 6c 65 63 74 69  6f 6e 25 20 80 20 73 65  |_selection% . se|
00006100  6c 5f 73 74 61 72 74 25  3e 3d 30 20 8c 0d 2a 26  |l_start%>=0 ..*&|
00006110  16 53 73 74 61 72 74 25  3d 73 65 6c 5f 73 74 61  |.Sstart%=sel_sta|
00006120  72 74 25 0d 2a 30 3a 53  65 6e 64 25 3d 73 65 6c  |rt%.*0:Send%=sel|
00006130  5f 65 6e 64 25 3a e7 20  53 65 6e 64 25 3e 73 61  |_end%:. Send%>sa|
00006140  6d 70 5f 73 69 7a 65 25  2d 31 20 53 65 6e 64 25  |mp_size%-1 Send%|
00006150  3d 73 61 6d 70 5f 73 69  7a 65 25 2d 31 0d 2a 3a  |=samp_size%-1.*:|
00006160  05 cc 0d 2a 44 0d 53 73  74 61 72 74 25 3d 30 0d  |...*D.Sstart%=0.|
00006170  2a 4e 16 53 65 6e 64 25  3d 73 61 6d 70 5f 73 69  |*N.Send%=samp_si|
00006180  7a 65 25 2d 31 0d 2a 58  05 cd 0d 2a 62 14 53 73  |ze%-1.*X...*b.Ss|
00006190  74 61 72 74 25 2b 3d 73  61 6d 70 6c 65 25 0d 2a  |tart%+=sample%.*|
000061a0  6c 12 53 65 6e 64 25 2b  3d 73 61 6d 70 6c 65 25  |l.Send%+=sample%|
000061b0  0d 2a 76 05 e1 0d 2a 80  04 0d 2a 8a 11 dd f2 63  |.*v...*...*....c|
000061c0  61 6c 63 5f 63 65 6e 74  72 65 0d 2a 94 21 41 25  |alc_centre.*.!A%|
000061d0  3d 73 61 6d 70 6c 65 25  3a 42 25 3d 41 25 2b 73  |=sample%:B%=A%+s|
000061e0  61 6d 70 5f 73 69 7a 65  25 2d 31 0d 2a 9e 16 43  |amp_size%-1.*..C|
000061f0  25 3d 30 3a d6 20 63 61  6c 63 5f 63 65 6e 74 72  |%=0:. calc_centr|
00006200  65 0d 2a a8 2d 73 61 6d  70 5f 63 65 6e 74 72 65  |e.*.-samp_centre|
00006210  25 3d 28 21 63 65 6e 74  72 65 5f 76 61 6c 29 2f  |%=(!centre_val)/|
00006220  73 61 6d 70 5f 73 69 7a  65 25 2b 30 2e 35 0d 2a  |samp_size%+0.5.*|
00006230  b2 05 e1 0d 2a bc 04 0d  2a c6 0d dd f2 6c 69 6e  |....*...*....lin|
00006240  32 6c 6f 67 0d 2a d0 25  ea 20 76 6f 6c 25 2c 61  |2log.*.%. vol%,a|
00006250  25 2c 62 25 3a c8 99 20  26 34 30 31 38 30 2c 31  |%,b%:.. &40180,1|
00006260  32 37 20 b8 20 76 6f 6c  25 0d 2a da 10 e3 20 61  |27 . vol%.*... a|
00006270  25 3d 30 20 b8 20 32 35  35 0d 2a e4 1f c8 99 20  |%=0 . 255.*.... |
00006280  26 34 30 31 38 31 2c 28  61 25 2d 31 32 38 29 3c  |&40181,(a%-128)<|
00006290  3c 32 34 20 b8 20 62 25  0d 2a ee 0c 71 25 3f 61  |<24 . b%.*..q%?a|
000062a0  25 3d 62 25 0d 2a f8 05  ed 0d 2b 02 22 41 25 3d  |%=b%.*....+."A%=|
000062b0  73 61 6d 70 6c 65 25 3a  42 25 3d 73 61 6d 70 5f  |sample%:B%=samp_|
000062c0  73 69 7a 65 25 3a 43 25  3d 71 25 0d 2b 0c 0d d6  |size%:C%=q%.+...|
000062d0  20 63 6f 6e 76 65 72 74  0d 2b 16 12 c8 99 20 26  | convert.+.... &|
000062e0  34 30 31 38 30 2c 76 6f  6c 25 0d 2b 20 08 f2 72  |40180,vol%.+ ..r|
000062f0  65 64 0d 2b 2a 05 e1 0d  2b 34 04 0d 2b 3e 0d dd  |ed.+*...+4..+>..|
00006300  f2 6c 6f 67 32 6c 69 6e  0d 2b 48 25 ea 20 76 6f  |.log2lin.+H%. vo|
00006310  6c 25 2c 61 25 2c 62 25  3a c8 99 20 26 34 30 31  |l%,a%,b%:.. &401|
00006320  38 30 2c 31 32 37 20 b8  20 76 6f 6c 25 0d 2b 52  |80,127 . vol%.+R|
00006330  10 e3 20 61 25 3d 30 20  b8 20 32 35 35 0d 2b 5c  |.. a%=0 . 255.+\|
00006340  1f c8 99 20 26 34 30 31  38 31 2c 28 61 25 2d 31  |... &40181,(a%-1|
00006350  32 38 29 3c 3c 32 34 20  b8 20 62 25 0d 2b 66 0c  |28)<<24 . b%.+f.|
00006360  71 25 3f 62 25 3d 61 25  0d 2b 70 05 ed 0d 2b 7a  |q%?b%=a%.+p...+z|
00006370  22 41 25 3d 73 61 6d 70  6c 65 25 3a 42 25 3d 73  |"A%=sample%:B%=s|
00006380  61 6d 70 5f 73 69 7a 65  25 3a 43 25 3d 71 25 0d  |amp_size%:C%=q%.|
00006390  2b 84 0d d6 20 63 6f 6e  76 65 72 74 0d 2b 8e 12  |+... convert.+..|
000063a0  c8 99 20 26 34 30 31 38  30 2c 76 6f 6c 25 0d 2b  |.. &40180,vol%.+|
000063b0  98 08 f2 72 65 64 0d 2b  a2 05 e1 0d 2b ac 04 0d  |...red.+....+...|
000063c0  2b b6 18 dd f2 6c 6f 62  6f 6f 73 74 28 76 61 6c  |+....loboost(val|
000063d0  2c 41 25 2c 42 25 29 0d  2b c0 08 ea 20 61 25 0d  |,A%,B%).+... a%.|
000063e0  2b ca 10 e3 20 61 25 3d  30 20 b8 20 32 35 35 0d  |+... a%=0 . 255.|
000063f0  2b d4 2c 71 25 21 28 61  25 3c 3c 32 29 3d 28 28  |+.,q%!(a%<<2)=((|
00006400  32 35 35 2d 61 25 29 2a  76 61 6c 2b 61 25 29 2a  |255-a%)*val+a%)*|
00006410  28 31 3c 3c 31 32 29 81  32 35 35 0d 2b de 05 ed  |(1<<12).255.+...|
00006420  0d 2b e8 13 44 25 3d 73  61 6d 70 5f 63 65 6e 74  |.+..D%=samp_cent|
00006430  72 65 25 0d 2b f2 09 43  25 3d 71 25 0d 2b fc 0b  |re%.+..C%=q%.+..|
00006440  d6 20 62 6f 6f 73 74 0d  2c 06 08 f2 72 65 64 0d  |. boost.,...red.|
00006450  2c 10 05 e1 0d 2c 1a 04  0d 2c 24 18 dd f2 68 69  |,....,...,$...hi|
00006460  62 6f 6f 73 74 28 76 61  6c 2c 41 25 2c 42 25 29  |boost(val,A%,B%)|
00006470  0d 2c 2e 08 ea 20 61 25  0d 2c 38 10 e3 20 61 25  |.,... a%.,8.. a%|
00006480  3d 30 20 b8 20 32 35 35  0d 2c 42 2a 71 25 21 28  |=0 . 255.,B*q%!(|
00006490  61 25 3c 3c 32 29 3d 28  61 25 2a 76 61 6c 2b 32  |a%<<2)=(a%*val+2|
000064a0  35 35 2d 61 25 29 2a 28  31 3c 3c 31 32 29 81 32  |55-a%)*(1<<12).2|
000064b0  35 35 0d 2c 4c 05 ed 0d  2c 56 13 44 25 3d 73 61  |55.,L...,V.D%=sa|
000064c0  6d 70 5f 63 65 6e 74 72  65 25 0d 2c 60 09 43 25  |mp_centre%.,`.C%|
000064d0  3d 71 25 0d 2c 6a 0b d6  20 62 6f 6f 73 74 0d 2c  |=q%.,j.. boost.,|
000064e0  74 08 f2 72 65 64 0d 2c  7e 05 e1 0d 2c 88 04 0d  |t..red.,~...,...|
000064f0  2c 92 14 dd f2 72 65 76  65 72 73 65 28 41 25 2c  |,....reverse(A%,|
00006500  42 25 29 0d 2c 9c 0d d6  20 72 65 76 65 72 73 65  |B%).,... reverse|
00006510  0d 2c a6 08 f2 72 65 64  0d 2c b0 05 e1 0d 2c ba  |.,...red.,....,.|
00006520  04 0d 2c c4 12 dd f2 61  6d 70 28 61 2c 41 25 2c  |..,....amp(a,A%,|
00006530  42 25 29 0d 2c ce 13 43  25 3d 73 61 6d 70 5f 63  |B%).,..C%=samp_c|
00006540  65 6e 74 72 65 25 0d 2c  d8 10 44 25 3d 61 2a 28  |entre%.,..D%=a*(|
00006550  31 3c 3c 31 32 29 0d 2c  e2 09 d6 20 61 6d 70 0d  |1<<12).,... amp.|
00006560  2c ec 08 f2 72 65 64 0d  2c f6 05 e1 0d 2d 00 04  |,...red.,....-..|
00006570  0d 2d 0a 13 dd f2 66 61  64 65 69 6e 28 41 25 2c  |.-....fadein(A%,|
00006580  42 25 29 0d 2d 14 13 43  25 3d 73 61 6d 70 5f 63  |B%).-..C%=samp_c|
00006590  65 6e 74 72 65 25 0d 2d  1e 0c d6 20 66 61 64 65  |entre%.-... fade|
000065a0  69 6e 0d 2d 28 08 f2 72  65 64 0d 2d 32 05 e1 0d  |in.-(..red.-2...|
000065b0  2d 3c 04 0d 2d 46 14 dd  f2 66 61 64 65 6f 75 74  |-<..-F...fadeout|
000065c0  28 41 25 2c 42 25 29 0d  2d 50 13 43 25 3d 73 61  |(A%,B%).-P.C%=sa|
000065d0  6d 70 5f 63 65 6e 74 72  65 25 0d 2d 5a 0d d6 20  |mp_centre%.-Z.. |
000065e0  66 61 64 65 6f 75 74 0d  2d 64 08 f2 72 65 64 0d  |fadeout.-d..red.|
000065f0  2d 6e 05 e1 0d 2d 78 04  0d 2d 82 13 dd f2 65 6f  |-n...-x..-....eo|
00006600  72 28 43 25 2c 41 25 2c  42 25 29 0d 2d 8c 09 d6  |r(C%,A%,B%).-...|
00006610  20 65 6f 72 0d 2d 96 08  f2 72 65 64 0d 2d a0 05  | eor.-...red.-..|
00006620  e1 0d 2d aa 04 0d 2d b4  13 dd f2 61 64 64 28 43  |..-...-....add(C|
00006630  25 2c 41 25 2c 42 25 29  0d 2d be 09 d6 20 61 64  |%,A%,B%).-... ad|
00006640  64 0d 2d c8 08 f2 72 65  64 0d 2d d2 05 e1 0d 2d  |d.-...red.-....-|
00006650  dc 04 0d 2d e6 09 dd f2  72 65 64 0d 2d f0 1f 21  |...-....red.-..!|
00006660  71 25 3d 77 69 6e 5f 70  61 6e 65 25 3a c8 99 20  |q%=win_pane%:.. |
00006670  26 34 30 30 43 42 2c 2c  71 25 0d 2d fa 2f c8 99  |&400CB,,q%.-./..|
00006680  20 26 34 30 30 44 31 2c  77 69 6e 5f 70 61 6e 65  | &400D1,win_pane|
00006690  25 2c 71 25 21 32 30 2c  2d 32 35 36 2c 71 25 21  |%,q%!20,-256,q%!|
000066a0  32 30 2b 31 31 35 30 2c  30 0d 2e 04 05 e1 0d 2e  |20+1150,0.......|
000066b0  0e 04 0d 2e 18 10 dd f2  69 6e 69 74 5f 76 6f 69  |........init_voi|
000066c0  63 65 0d 2e 22 08 ea 20  61 25 0d 2e 2c 23 c8 99  |ce..".. a%..,#..|
000066d0  20 26 34 30 31 34 30 2c  30 2c 30 2c 30 2c 30 2c  | &40140,0,0,0,0,|
000066e0  30 20 b8 20 6e 75 6d 5f  63 68 61 6e 25 0d 2e 36  |0 . num_chan%..6|
000066f0  25 e7 20 6e 75 6d 5f 63  68 61 6e 25 3e 32 20 61  |%. num_chan%>2 a|
00006700  25 3d 6e 75 6d 5f 63 68  61 6e 25 20 8b 20 61 25  |%=num_chan% . a%|
00006710  3d 32 0d 2e 40 18 c8 99  20 26 34 30 31 34 30 2c  |=2..@... &40140,|
00006720  61 25 2c 30 2c 30 2c 30  2c 30 0d 2e 4a 32 c8 99  |a%,0,0,0,0..J2..|
00006730  20 22 53 6f 75 6e 64 5f  49 6e 73 74 61 6c 6c 56  | "Sound_InstallV|
00006740  6f 69 63 65 22 2c 56 62  61 73 65 2c 30 20 b8 20  |oice",Vbase,0 . |
00006750  2c 76 6f 69 63 65 5f 73  6c 6f 74 25 0d 2e 54 05  |,voice_slot%..T.|
00006760  e1 0d 2e 5e 04 0d 2e 68  10 dd f2 71 75 69 74 5f  |...^...h...quit_|
00006770  76 6f 69 63 65 0d 2e 72  1f c8 99 20 26 34 30 31  |voice..r... &401|
00006780  34 30 2c 6e 75 6d 5f 63  68 61 6e 25 2c 30 2c 30  |40,num_chan%,0,0|
00006790  2c 30 2c 30 0d 2e 7c 27  c8 99 20 22 53 6f 75 6e  |,0,0..|'.. "Soun|
000067a0  64 5f 52 65 6d 6f 76 65  56 6f 69 63 65 22 2c 2c  |d_RemoveVoice",,|
000067b0  76 6f 69 63 65 5f 73 6c  6f 74 25 0d 2e 86 05 e1  |voice_slot%.....|
000067c0  0d 2e 90 04 0d 2e 9a 18  dd f2 70 69 74 63 68 5f  |..........pitch_|
000067d0  62 65 6e 64 28 63 68 61  6e 67 65 29 0d 2e a4 19  |bend(change)....|
000067e0  70 6c 61 79 5f 72 61 74  65 25 2b 3d 63 68 61 6e  |play_rate%+=chan|
000067f0  67 65 2a 31 36 0d 2e ae  1b d4 20 32 2c 26 31 46  |ge*16..... 2,&1F|
00006800  46 2c 70 6c 61 79 5f 72  61 74 65 25 2c 32 35 35  |F,play_rate%,255|
00006810  0d 2e b8 05 e1 0d 2e c2  04 0d 2e cc 13 dd f2 68  |...............h|
00006820  70 66 28 73 24 2c 41 25  2c 42 25 29 0d 2e d6 0f  |pf(s$,A%,B%)....|
00006830  c8 8e 20 c0 73 24 2c 31  29 20 ca 0d 2e e0 23 c9  |.. .s$,1) ....#.|
00006840  20 22 2b 22 2c 22 2d 22  20 3a 20 43 25 3d 73 61  | "+","-" : C%=sa|
00006850  6d 70 5f 63 65 6e 74 72  65 25 2b bb 73 24 0d 2e  |mp_centre%+.s$..|
00006860  ea 0e 7f 20 3a 20 43 25  3d bb 73 24 0d 2e f4 05  |... : C%=.s$....|
00006870  cb 0d 2e fe 0d d6 20 68  70 5f 66 69 6c 74 0d 2f  |...... hp_filt./|
00006880  08 08 f2 72 65 64 0d 2f  12 05 e1 0d 2f 1c 04 0d  |...red./..../...|
00006890  2f 26 13 dd f2 6c 70 66  28 73 24 2c 41 25 2c 42  |/&...lpf(s$,A%,B|
000068a0  25 29 0d 2f 30 0f c8 8e  20 c0 73 24 2c 31 29 20  |%)./0... .s$,1) |
000068b0  ca 0d 2f 3a 23 c9 20 22  2b 22 2c 22 2d 22 20 3a  |../:#. "+","-" :|
000068c0  20 43 25 3d 73 61 6d 70  5f 63 65 6e 74 72 65 25  | C%=samp_centre%|
000068d0  2b bb 73 24 0d 2f 44 0e  7f 20 3a 20 43 25 3d bb  |+.s$./D.. : C%=.|
000068e0  73 24 0d 2f 4e 05 cb 0d  2f 58 0d d6 20 6c 70 5f  |s$./N.../X.. lp_|
000068f0  66 69 6c 74 0d 2f 62 08  f2 72 65 64 0d 2f 6c 05  |filt./b..red./l.|
00006900  e1 0d 2f 76 04 0d 2f 80  14 dd f2 63 6f 72 65 28  |../v../....core(|
00006910  76 25 2c 41 25 2c 42 25  29 0d 2f 8a 13 45 25 3d  |v%,A%,B%)./..E%=|
00006920  73 61 6d 70 5f 63 65 6e  74 72 65 25 0d 2f 94 0c  |samp_centre%./..|
00006930  43 25 3d 45 25 2d 76 25  0d 2f 9e 0c 44 25 3d 45  |C%=E%-v%./..D%=E|
00006940  25 2b 76 25 0d 2f a8 0f  d6 20 63 6f 72 65 5f 66  |%+v%./... core_f|
00006950  69 6c 74 0d 2f b2 08 f2  72 65 64 0d 2f bc 05 e1  |ilt./...red./...|
00006960  0d 2f c6 04 0d 2f d0 1f  dd f2 70 6c 61 79 28 70  |./.../....play(p|
00006970  6f 73 25 2c 65 6e 64 25  2c 76 6f 6c 25 2c 72 61  |os%,end%,vol%,ra|
00006980  74 65 29 0d 2f da 0e ea  20 61 25 2c 62 25 2c 63  |te)./... a%,b%,c|
00006990  25 0d 2f e4 2b 63 25 3d  74 61 62 5f 73 74 61 72  |%./.+c%=tab_star|
000069a0  74 3a 72 61 74 65 3d a8  28 36 31 34 34 2f 31 32  |t:rate=.(6144/12|
000069b0  2e 35 2a 72 61 74 65 2b  30 2e 35 29 0d 2f ee 1b  |.5*rate+0.5)./..|
000069c0  21 56 73 70 6f 73 3d 70  6f 73 25 3a 21 56 73 65  |!Vspos=pos%:!Vse|
000069d0  6e 64 3d 65 6e 64 25 0d  2f f8 18 21 56 63 6f 6e  |nd=end%./..!Vcon|
000069e0  76 5f 74 61 62 3d 74 61  62 5f 73 74 61 72 74 0d  |v_tab=tab_start.|
000069f0  30 02 10 e3 20 61 25 3d  30 20 b8 20 32 35 35 0d  |0... a%=0 . 255.|
00006a00  30 0c 15 c8 8e 20 73 61  6d 70 6c 65 5f 74 79 70  |0.... sample_typ|
00006a10  65 25 20 ca 0d 30 16 12  c9 20 30 20 3a 20 63 25  |e% ..0... 0 : c%|
00006a20  3f 61 25 3d 61 25 0d 30  20 28 c9 20 31 20 3a 20  |?a%=a%.0 (. 1 : |
00006a30  c8 99 20 26 34 30 31 38  31 2c 28 61 25 2d 31 32  |.. &40181,(a%-12|
00006a40  38 29 3c 3c 32 34 20 b8  20 63 25 3f 61 25 0d 30  |8)<<24 . c%?a%.0|
00006a50  2a 2e c9 20 32 20 3a 20  c8 99 20 26 34 30 31 38  |*.. 2 : .. &4018|
00006a60  31 2c 28 28 61 25 82 31  32 38 29 2d 31 32 38 29  |1,((a%.128)-128)|
00006a70  3c 3c 32 34 20 b8 20 63  25 3f 61 25 0d 30 34 05  |<<24 . c%?a%.04.|
00006a80  cb 0d 30 3e 05 ed 0d 30  48 1b c8 99 20 26 34 30  |..0>...0H... &40|
00006a90  31 38 35 2c 32 2c 76 6f  69 63 65 5f 73 6c 6f 74  |185,2,voice_slot|
00006aa0  25 0d 30 52 11 c8 99 20  26 34 30 31 34 32 2c 32  |%.0R... &40142,2|
00006ab0  2c 30 0d 30 5c 15 d4 20  32 2c 26 31 37 46 2c 72  |,0.0\.. 2,&17F,r|
00006ac0  61 74 65 2c 32 35 35 0d  30 66 13 70 6c 61 79 5f  |ate,255.0f.play_|
00006ad0  72 61 74 65 25 3d 72 61  74 65 0d 30 70 05 e1 0d  |rate%=rate.0p...|
00006ae0  30 7a 04 0d 30 84 14 dd  f2 63 6f 70 79 28 41 25  |0z..0....copy(A%|
00006af0  2c 42 25 2c 43 25 29 0d  30 8e 0f 41 25 2b 3d 73  |,B%,C%).0..A%+=s|
00006b00  61 6d 70 6c 65 25 0d 30  98 0f 42 25 2b 3d 73 61  |ample%.0..B%+=sa|
00006b10  6d 70 6c 65 25 0d 30 a2  0f 43 25 2b 3d 73 61 6d  |mple%.0..C%+=sam|
00006b20  70 6c 65 25 0d 30 ac 0a  d6 20 63 6f 70 79 0d 30  |ple%.0... copy.0|
00006b30  b6 05 e1 0d 30 c0 04 0d  30 ca 12 dd f2 63 68 65  |....0...0....che|
00006b40  63 6b 5f 6c 69 6d 69 74  73 0d 30 d4 0b ea 20 61  |ck_limits.0... a|
00006b50  25 2c 62 25 0d 30 de 25  e7 20 53 73 74 61 72 74  |%,b%.0.%. Sstart|
00006b60  25 3c 73 61 6d 70 6c 65  25 20 53 73 74 61 72 74  |%<sample% Sstart|
00006b70  25 3d 73 61 6d 70 6c 65  25 0d 30 e8 3a e7 20 53  |%=sample%.0.:. S|
00006b80  65 6e 64 25 3e 3d 73 61  6d 70 6c 65 25 2b 73 61  |end%>=sample%+sa|
00006b90  6d 70 5f 73 69 7a 65 25  20 53 65 6e 64 25 3d 73  |mp_size% Send%=s|
00006ba0  61 6d 70 6c 65 25 2b 73  61 6d 70 5f 73 69 7a 65  |ample%+samp_size|
00006bb0  25 2d 31 0d 30 f2 11 61  25 3d 73 65 6c 5f 73 74  |%-1.0..a%=sel_st|
00006bc0  61 72 74 25 0d 30 fc 17  e7 20 73 65 6c 5f 73 74  |art%.0... sel_st|
00006bd0  61 72 74 25 3c 30 20 61  25 3d 30 0d 31 06 0f 62  |art%<0 a%=0.1..b|
00006be0  25 3d 73 65 6c 5f 65 6e  64 25 0d 31 10 40 e7 20  |%=sel_end%.1.@. |
00006bf0  73 65 6c 5f 65 6e 64 25  3e 3d 73 61 6d 70 6c 65  |sel_end%>=sample|
00006c00  25 2b 73 61 6d 70 5f 73  69 7a 65 25 20 73 65 6c  |%+samp_size% sel|
00006c10  5f 65 6e 64 25 3d 73 61  6d 70 6c 65 25 2b 73 61  |_end%=sample%+sa|
00006c20  6d 70 5f 73 69 7a 65 25  2d 31 0d 31 1a 13 f2 61  |mp_size%-1.1...a|
00006c30  64 6a 5f 73 65 6c 28 61  25 2c 62 25 29 0d 31 24  |dj_sel(a%,b%).1$|
00006c40  05 e1 0d 31 2e 04 0d 31  38 10 dd f2 74 6f 67 67  |...1...18...togg|
00006c50  6c 65 5f 73 65 6c 0d 31  42 23 75 73 65 5f 73 65  |le_sel.1B#use_se|
00006c60  6c 65 63 74 69 6f 6e 25  3d ac 20 75 73 65 5f 73  |lection%=. use_s|
00006c70  65 6c 65 63 74 69 6f 6e  25 0d 31 4c 2b f2 58 6d  |election%.1L+.Xm|
00006c80  65 6e 75 5f 74 69 63 6b  28 6d 65 6e 75 5f 73 65  |enu_tick(menu_se|
00006c90  6c 66 78 25 2c 75 73 65  5f 73 65 6c 65 63 74 69  |lfx%,use_selecti|
00006ca0  6f 6e 25 29 0d 31 56 05  e1 0d 31 60 04 0d 31 6a  |on%).1V...1`..1j|
00006cb0  0d dd f2 63 6c 72 5f 61  6c 6c 0d 31 74 14 75 73  |...clr_all.1t.us|
00006cc0  65 5f 73 65 6c 65 63 74  69 6f 6e 25 3d 30 0d 31  |e_selection%=0.1|
00006cd0  7e 1e f2 58 6d 65 6e 75  5f 74 69 63 6b 28 6d 65  |~..Xmenu_tick(me|
00006ce0  6e 75 5f 73 65 6c 66 78  25 2c 30 29 0d 31 88 05  |nu_selfx%,0).1..|
00006cf0  e1 0d 31 92 04 0d 31 9c  15 dd f2 6e 65 77 5f 73  |..1...1....new_s|
00006d00  61 6d 70 6c 65 5f 74 79  70 65 0d 31 a6 27 ea 20  |ample_type.1.'. |
00006d10  73 68 61 64 65 25 2c 74  69 63 6b 25 3a 73 68 61  |shade%,tick%:sha|
00006d20  64 65 25 3d 25 31 31 31  31 3a 74 69 63 6b 25 3d  |de%=%1111:tick%=|
00006d30  30 0d 31 b0 15 c8 8e 20  73 61 6d 70 6c 65 5f 74  |0.1.... sample_t|
00006d40  79 70 65 25 20 ca 0d 31  ba 33 c9 20 30 20 3a 20  |ype% ..1.3. 0 : |
00006d50  73 68 61 64 65 25 3d 25  30 31 30 31 3a 74 69 63  |shade%=%0101:tic|
00006d60  6b 25 3d 25 31 30 30 31  3a 73 61 6d 70 5f 63 65  |k%=%1001:samp_ce|
00006d70  6e 74 72 65 25 3d 31 32  38 0d 31 c4 33 c9 20 31  |ntre%=128.1.3. 1|
00006d80  20 3a 20 73 68 61 64 65  25 3d 25 30 30 31 30 3a  | : shade%=%0010:|
00006d90  74 69 63 6b 25 3d 25 31  30 31 30 3a 73 61 6d 70  |tick%=%1010:samp|
00006da0  5f 63 65 6e 74 72 65 25  3d 31 32 38 0d 31 ce 31  |_centre%=128.1.1|
00006db0  c9 20 32 20 3a 20 73 68  61 64 65 25 3d 25 30 30  |. 2 : shade%=%00|
00006dc0  31 31 3a 74 69 63 6b 25  3d 25 30 31 30 30 3a 73  |11:tick%=%0100:s|
00006dd0  61 6d 70 5f 63 65 6e 74  72 65 25 3d 30 0d 31 d8  |amp_centre%=0.1.|
00006de0  05 cb 0d 31 e2 27 f2 58  6d 65 6e 75 5f 73 68 61  |...1.'.Xmenu_sha|
00006df0  64 65 28 6d 65 6e 75 5f  63 6f 6e 76 25 2b 30 2c  |de(menu_conv%+0,|
00006e00  73 68 61 64 65 25 80 31  29 0d 31 ec 28 f2 58 6d  |shade%.1).1.(.Xm|
00006e10  65 6e 75 5f 73 68 61 64  65 28 6d 65 6e 75 5f 63  |enu_shade(menu_c|
00006e20  6f 6e 76 25 2b 32 34 2c  73 68 61 64 65 25 80 32  |onv%+24,shade%.2|
00006e30  29 0d 31 f6 28 f2 58 6d  65 6e 75 5f 73 68 61 64  |).1.(.Xmenu_shad|
00006e40  65 28 6d 65 6e 75 5f 63  6f 6e 76 25 2b 34 38 2c  |e(menu_conv%+48,|
00006e50  73 68 61 64 65 25 80 34  29 0d 32 00 28 f2 58 6d  |shade%.4).2.(.Xm|
00006e60  65 6e 75 5f 73 68 61 64  65 28 6d 65 6e 75 5f 63  |enu_shade(menu_c|
00006e70  6f 6e 76 25 2b 37 32 2c  73 68 61 64 65 25 80 38  |onv%+72,shade%.8|
00006e80  29 0d 32 0a 26 f2 58 6d  65 6e 75 5f 74 69 63 6b  |).2.&.Xmenu_tick|
00006e90  28 6d 65 6e 75 5f 73 74  79 70 65 25 2b 30 2c 74  |(menu_stype%+0,t|
00006ea0  69 63 6b 25 80 31 29 0d  32 14 2a f2 58 6d 65 6e  |ick%.1).2.*.Xmen|
00006eb0  75 5f 73 68 61 64 65 28  6d 65 6e 75 5f 73 61 76  |u_shade(menu_sav|
00006ec0  65 25 2b 30 2c 28 74 69  63 6b 25 80 37 29 82 31  |e%+0,(tick%.7).1|
00006ed0  29 0d 32 1e 27 f2 58 6d  65 6e 75 5f 74 69 63 6b  |).2.'.Xmenu_tick|
00006ee0  28 6d 65 6e 75 5f 73 74  79 70 65 25 2b 32 34 2c  |(menu_stype%+24,|
00006ef0  74 69 63 6b 25 80 32 29  0d 32 28 2b f2 58 6d 65  |tick%.2).2(+.Xme|
00006f00  6e 75 5f 73 68 61 64 65  28 6d 65 6e 75 5f 73 61  |nu_shade(menu_sa|
00006f10  76 65 25 2b 32 34 2c 28  74 69 63 6b 25 80 37 29  |ve%+24,(tick%.7)|
00006f20  82 32 29 0d 32 32 27 f2  58 6d 65 6e 75 5f 74 69  |.2).22'.Xmenu_ti|
00006f30  63 6b 28 6d 65 6e 75 5f  73 74 79 70 65 25 2b 34  |ck(menu_stype%+4|
00006f40  38 2c 74 69 63 6b 25 80  34 29 0d 32 3c 2b f2 58  |8,tick%.4).2<+.X|
00006f50  6d 65 6e 75 5f 73 68 61  64 65 28 6d 65 6e 75 5f  |menu_shade(menu_|
00006f60  73 61 76 65 25 2b 34 38  2c 28 74 69 63 6b 25 80  |save%+48,(tick%.|
00006f70  37 29 82 34 29 0d 32 46  27 f2 58 6d 65 6e 75 5f  |7).4).2F'.Xmenu_|
00006f80  73 68 61 64 65 28 6d 65  6e 75 5f 73 61 76 65 25  |shade(menu_save%|
00006f90  2b 39 36 2c 74 69 63 6b  25 80 38 29 0d 32 50 05  |+96,tick%.8).2P.|
00006fa0  e1 0d 32 5a 04 0d 32 64  13 dd f2 64 6f 5f 6c 69  |..2Z..2d...do_li|
00006fb0  62 65 6e 74 72 69 65 73  0d 32 6e 08 ea 20 61 25  |bentries.2n.. a%|
00006fc0  0d 32 78 14 e7 20 6e 75  6d 5f 6c 69 62 73 25 3c  |.2x.. num_libs%<|
00006fd0  3d 30 20 8c 0d 32 82 22  f2 58 6d 65 6e 75 5f 73  |=0 ..2.".Xmenu_s|
00006fe0  68 61 64 65 28 6d 65 6e  75 5f 6c 69 62 25 2b 32  |hade(menu_lib%+2|
00006ff0  34 2a 31 2c 31 29 0d 32  8c 22 f2 58 6d 65 6e 75  |4*1,1).2.".Xmenu|
00007000  5f 73 68 61 64 65 28 6d  65 6e 75 5f 6c 69 62 25  |_shade(menu_lib%|
00007010  2b 32 34 2a 32 2c 31 29  0d 32 96 22 f2 58 6d 65  |+24*2,1).2.".Xme|
00007020  6e 75 5f 73 68 61 64 65  28 6d 65 6e 75 5f 6c 69  |nu_shade(menu_li|
00007030  62 25 2b 32 34 2a 33 2c  31 29 0d 32 a0 16 24 28  |b%+24*3,1).2..$(|
00007040  73 75 62 5f 6c 69 62 32  25 2b 34 30 29 3d 22 22  |sub_lib2%+40)=""|
00007050  0d 32 aa 14 73 75 62 5f  6c 69 62 32 25 21 32 38  |.2..sub_lib2%!28|
00007060  3d 31 32 38 0d 32 b4 24  73 75 62 5f 6c 69 62 32  |=128.2.$sub_lib2|
00007070  25 21 33 36 3d 73 75 62  5f 6c 69 62 25 21 33 36  |%!36=sub_lib%!36|
00007080  84 28 31 3c 3c 32 32 29  0d 32 be 05 cc 0d 32 c8  |.(1<<22).2....2.|
00007090  27 73 75 62 5f 6c 69 62  32 25 21 33 36 3d 73 75  |'sub_lib2%!36=su|
000070a0  62 5f 6c 69 62 25 21 33  36 80 28 ac 28 31 3c 3c  |b_lib%!36.(.(1<<|
000070b0  32 32 29 29 0d 32 d2 22  f2 58 6d 65 6e 75 5f 73  |22)).2.".Xmenu_s|
000070c0  68 61 64 65 28 6d 65 6e  75 5f 6c 69 62 25 2b 32  |hade(menu_lib%+2|
000070d0  34 2a 31 2c 30 29 0d 32  dc 22 f2 58 6d 65 6e 75  |4*1,0).2.".Xmenu|
000070e0  5f 73 68 61 64 65 28 6d  65 6e 75 5f 6c 69 62 25  |_shade(menu_lib%|
000070f0  2b 32 34 2a 32 2c 30 29  0d 32 e6 22 f2 58 6d 65  |+24*2,0).2.".Xme|
00007100  6e 75 5f 73 68 61 64 65  28 6d 65 6e 75 5f 6c 69  |nu_shade(menu_li|
00007110  62 25 2b 32 34 2a 33 2c  30 29 0d 32 f0 18 e3 20  |b%+24*3,0).2... |
00007120  61 25 3d 30 20 b8 20 6e  75 6d 5f 6c 69 62 73 25  |a%=0 . num_libs%|
00007130  2d 31 0d 32 fa 2c 24 28  73 75 62 5f 6c 69 62 32  |-1.2.,$(sub_lib2|
00007140  25 2b 34 30 2b 61 25 2a  32 34 29 3d c0 6c 69 62  |%+40+a%*24)=.lib|
00007150  5f 6e 61 6d 65 24 28 61  25 29 2c 31 31 29 0d 33  |_name$(a%),11).3|
00007160  04 34 73 75 62 5f 6c 69  62 32 25 21 28 32 38 2b  |.4sub_lib2%!(28+|
00007170  61 25 2a 32 34 29 3d 73  75 62 5f 6c 69 62 32 25  |a%*24)=sub_lib2%|
00007180  21 28 32 38 2b 61 25 2a  32 34 29 80 28 ac 31 32  |!(28+a%*24).(.12|
00007190  38 29 0d 33 0e 05 ed 0d  33 18 3d 73 75 62 5f 6c  |8).3....3.=sub_l|
000071a0  69 62 32 25 21 28 34 2b  6e 75 6d 5f 6c 69 62 73  |ib2%!(4+num_libs|
000071b0  25 2a 32 34 29 3d 73 75  62 5f 6c 69 62 32 25 21  |%*24)=sub_lib2%!|
000071c0  28 34 2b 6e 75 6d 5f 6c  69 62 73 25 2a 32 34 29  |(4+num_libs%*24)|
000071d0  84 31 32 38 0d 33 22 05  cd 0d 33 2c 05 e1 0d 33  |.128.3"...3,...3|
000071e0  36 04 0d 33 40 16 dd f2  61 64 64 5f 6c 69 62 65  |6..3@...add_libe|
000071f0  6e 74 72 79 28 73 24 29  0d 33 4a 0c ea 20 61 25  |ntry(s$).3J.. a%|
00007200  2c 73 69 25 0d 33 54 0e  73 24 3d c0 73 24 2c 31  |,si%.3T.s$=.s$,1|
00007210  31 29 0d 33 5e 45 e7 20  6e 75 6d 5f 6c 69 62 73  |1).3^E. num_libs|
00007220  25 3e 3d 31 36 20 85 20  31 2c 22 54 6f 6f 20 6d  |%>=16 . 1,"Too m|
00007230  61 6e 79 20 6c 69 62 72  61 72 79 20 65 6e 74 72  |any library entr|
00007240  69 65 73 20 28 63 61 6e  20 6f 6e 6c 79 20 68 61  |ies (can only ha|
00007250  76 65 20 31 36 29 22 0d  33 68 1b 6c 69 62 5f 6e  |ve 16)".3h.lib_n|
00007260  61 6d 65 24 28 6e 75 6d  5f 6c 69 62 73 25 29 3d  |ame$(num_libs%)=|
00007270  73 24 0d 33 72 1d 73 69  25 3d 73 65 6c 5f 65 6e  |s$.3r.si%=sel_en|
00007280  64 25 2d 73 65 6c 5f 73  74 61 72 74 25 2b 31 0d  |d%-sel_start%+1.|
00007290  33 7c 2d e7 20 73 65 6c  5f 73 74 61 72 74 25 3c  |3|-. sel_start%<|
000072a0  30 20 85 20 31 2c 22 4e  6f 20 73 65 6c 65 63 74  |0 . 1,"No select|
000072b0  69 6f 6e 20 74 6f 20 61  64 64 21 22 0d 33 86 39  |ion to add!".3.9|
000072c0  61 25 3d a4 58 6d 65 6d  5f 63 6c 61 69 6d 28 73  |a%=.Xmem_claim(s|
000072d0  69 25 29 3a e7 20 61 25  3d 30 20 85 20 31 2c 22  |i%):. a%=0 . 1,"|
000072e0  4e 6f 20 72 6f 6f 6d 20  74 6f 20 61 64 64 20 65  |No room to add e|
000072f0  6e 74 72 79 22 0d 33 90  1a 6c 69 62 5f 70 6f 73  |ntry".3..lib_pos|
00007300  25 28 6e 75 6d 5f 6c 69  62 73 25 29 3d 61 25 0d  |%(num_libs%)=a%.|
00007310  33 9a 1c 6c 69 62 5f 73  69 7a 65 25 28 6e 75 6d  |3..lib_size%(num|
00007320  5f 6c 69 62 73 25 29 3d  73 69 25 0d 33 a4 10 6e  |_libs%)=si%.3..n|
00007330  75 6d 5f 6c 69 62 73 25  2b 3d 31 0d 33 ae 12 f2  |um_libs%+=1.3...|
00007340  64 6f 5f 6c 69 62 65 6e  74 72 69 65 73 0d 33 b8  |do_libentries.3.|
00007350  05 e1 0d 33 c2 04 0d 33  cc 16 dd f2 64 65 6c 5f  |...3...3....del_|
00007360  6c 69 62 65 6e 74 72 79  28 73 25 29 0d 33 d6 08  |libentry(s%).3..|
00007370  ea 20 61 25 0d 33 e0 1f  f2 58 6d 65 6d 5f 72 65  |. a%.3...Xmem_re|
00007380  6c 65 61 73 65 28 6c 69  62 5f 70 6f 73 25 28 73  |lease(lib_pos%(s|
00007390  25 29 29 0d 33 ea 10 6e  75 6d 5f 6c 69 62 73 25  |%)).3..num_libs%|
000073a0  2d 3d 31 0d 33 f4 24 e7  20 73 25 3e 3d 6e 75 6d  |-=1.3.$. s%>=num|
000073b0  5f 6c 69 62 73 25 20 f2  64 6f 5f 6c 69 62 65 6e  |_libs% .do_liben|
000073c0  74 72 69 65 73 3a e1 0d  33 fe 19 e3 20 61 25 3d  |tries:..3... a%=|
000073d0  73 25 20 b8 20 6e 75 6d  5f 6c 69 62 73 25 2d 31  |s% . num_libs%-1|
000073e0  0d 34 08 21 6c 69 62 5f  6e 61 6d 65 24 28 61 25  |.4.!lib_name$(a%|
000073f0  29 3d 6c 69 62 5f 6e 61  6d 65 24 28 61 25 2b 31  |)=lib_name$(a%+1|
00007400  29 0d 34 12 1f 6c 69 62  5f 70 6f 73 25 28 61 25  |).4..lib_pos%(a%|
00007410  29 3d 6c 69 62 5f 70 6f  73 25 28 61 25 2b 31 29  |)=lib_pos%(a%+1)|
00007420  0d 34 1c 21 6c 69 62 5f  73 69 7a 65 25 28 61 25  |.4.!lib_size%(a%|
00007430  29 3d 6c 69 62 5f 73 69  7a 65 25 28 61 25 2b 31  |)=lib_size%(a%+1|
00007440  29 0d 34 26 12 f2 64 6f  5f 6c 69 62 65 6e 74 72  |).4&..do_libentr|
00007450  69 65 73 0d 34 30 05 e1  0d 34 3a 04 0d 34 44 14  |ies.40...4:..4D.|
00007460  dd f2 61 64 6a 5f 73 65  6c 28 61 25 2c 62 25 29  |..adj_sel(a%,b%)|
00007470  0d 34 4e 1d 73 65 6c 5f  73 74 61 72 74 25 3d 61  |.4N.sel_start%=a|
00007480  25 3a 73 65 6c 5f 65 6e  64 25 3d 62 25 0d 34 58  |%:sel_end%=b%.4X|
00007490  12 f2 6e 65 77 5f 73 65  6c 65 63 74 69 6f 6e 0d  |..new_selection.|
000074a0  34 62 1f 21 71 25 3d 77  69 6e 5f 70 61 6e 65 25  |4b.!q%=win_pane%|
000074b0  3a c8 99 20 26 34 30 30  43 42 2c 2c 71 25 0d 34  |:.. &400CB,,q%.4|
000074c0  6c 2f c8 99 20 26 34 30  30 44 31 2c 77 69 6e 5f  |l/.. &400D1,win_|
000074d0  70 61 6e 65 25 2c 71 25  21 32 30 2c 2d 32 35 36  |pane%,q%!20,-256|
000074e0  2c 71 25 21 32 30 2b 31  31 34 39 2c 30 0d 34 76  |,q%!20+1149,0.4v|
000074f0  05 e1 0d 34 80 04 0d 34  8a 18 dd f2 73 61 6d 70  |...4...4....samp|
00007500  5f 6d 69 78 28 41 25 2c  42 25 2c 43 25 29 0d 34  |_mix(A%,B%,C%).4|
00007510  94 0f 41 25 2b 3d 73 61  6d 70 6c 65 25 0d 34 9e  |..A%+=sample%.4.|
00007520  0f 42 25 2b 3d 73 61 6d  70 6c 65 25 0d 34 a8 0f  |.B%+=sample%.4..|
00007530  43 25 2b 3d 73 61 6d 70  6c 65 25 0d 34 b2 1b 44  |C%+=sample%.4..D|
00007540  25 3d 73 61 6d 70 6c 65  25 2b 73 61 6d 70 5f 73  |%=sample%+samp_s|
00007550  69 7a 65 25 2d 31 0d 34  bc 19 45 25 3d 73 61 6d  |ize%-1.4..E%=sam|
00007560  70 5f 63 65 6e 74 72 65  25 3a d6 20 6d 69 78 0d  |p_centre%:. mix.|
00007570  34 c6 05 e1 0d 34 d0 04  0d 34 da 09 dd f2 6d 69  |4....4...4....mi|
00007580  78 0d 34 e4 12 f2 63 68  65 63 6b 5f 61 6c 6c 28  |x.4...check_all(|
00007590  2d 31 29 0d 34 ee 4d e7  20 63 61 72 65 74 25 3e  |-1).4.M. caret%>|
000075a0  3d 73 65 6c 5f 73 74 61  72 74 25 20 80 20 63 61  |=sel_start% . ca|
000075b0  72 65 74 25 3c 3d 73 65  6c 5f 65 6e 64 25 20 85  |ret%<=sel_end% .|
000075c0  20 31 2c 22 43 61 6e 6e  6f 74 20 6d 69 78 20 77  | 1,"Cannot mix w|
000075d0  69 74 68 69 6e 20 73 65  6c 65 63 74 69 6f 6e 22  |ithin selection"|
000075e0  0d 34 f8 29 f2 73 61 6d  70 5f 6d 69 78 28 73 65  |.4.).samp_mix(se|
000075f0  6c 5f 73 74 61 72 74 25  2c 73 65 6c 5f 65 6e 64  |l_start%,sel_end|
00007600  25 2c 63 61 72 65 74 25  29 0d 35 02 05 e1 0d 35  |%,caret%).5....5|
00007610  0c 04 0d 35 16 0c dd f2  70 72 65 6d 69 78 0d 35  |...5....premix.5|
00007620  20 0b ea 20 73 69 7a 65  25 0d 35 2a 11 f2 63 68  | .. size%.5*..ch|
00007630  65 63 6b 5f 61 6c 6c 28  30 29 0d 35 34 1d 73 69  |eck_all(0).54.si|
00007640  7a 65 25 3d 73 65 6c 5f  65 6e 64 25 2d 73 65 6c  |ze%=sel_end%-sel|
00007650  5f 73 74 61 72 74 25 0d  35 3e 1f 43 25 3d 73 65  |_start%.5>.C%=se|
00007660  6c 5f 73 74 61 72 74 25  2d 73 69 7a 65 25 2b 73  |l_start%-size%+s|
00007670  61 6d 70 6c 65 25 0d 35  48 1b 44 25 3d 73 65 6c  |ample%.5H.D%=sel|
00007680  5f 73 74 61 72 74 25 2d  31 2b 73 61 6d 70 6c 65  |_start%-1+sample|
00007690  25 0d 35 52 19 41 25 3d  73 65 6c 5f 73 74 61 72  |%.5R.A%=sel_star|
000076a0  74 25 2b 73 61 6d 70 6c  65 25 0d 35 5c 17 42 25  |t%+sample%.5\.B%|
000076b0  3d 73 65 6c 5f 65 6e 64  25 2b 73 61 6d 70 6c 65  |=sel_end%+sample|
000076c0  25 0d 35 66 19 45 25 3d  73 61 6d 70 5f 63 65 6e  |%.5f.E%=samp_cen|
000076d0  74 72 65 25 3a d6 20 6d  69 78 0d 35 70 05 e1 0d  |tre%:. mix.5p...|
000076e0  35 7a 04 0d 35 84 0d dd  f2 70 6f 73 74 6d 69 78  |5z..5....postmix|
000076f0  0d 35 8e 11 f2 63 68 65  63 6b 5f 61 6c 6c 28 30  |.5...check_all(0|
00007700  29 0d 35 98 2d f2 73 61  6d 70 5f 6d 69 78 28 73  |).5.-.samp_mix(s|
00007710  65 6c 5f 73 74 61 72 74  25 2c 73 65 6c 5f 65 6e  |el_start%,sel_en|
00007720  64 25 2c 73 65 6c 5f 65  6e 64 25 2b 31 29 0d 35  |d%,sel_end%+1).5|
00007730  a2 05 e1 0d 35 ac 04 0d  35 b6 13 dd f2 6e 65 77  |....5...5....new|
00007740  5f 73 65 6c 65 63 74 69  6f 6e 0d 35 c0 0a c8 8e  |_selection.5....|
00007750  20 b9 20 ca 0d 35 ca 29  c9 20 73 65 6c 5f 73 74  | . ..5.). sel_st|
00007760  61 72 74 25 3e 3d 30 20  80 20 73 65 6c 5f 65 6e  |art%>=0 . sel_en|
00007770  64 25 3e 73 65 6c 5f 73  74 61 72 74 25 0d 35 d4  |d%>sel_start%.5.|
00007780  23 20 f2 58 6d 65 6e 75  5f 73 68 61 64 65 28 6d  |# .Xmenu_shade(m|
00007790  65 6e 75 5f 73 65 6c 25  2b 32 34 2a 30 2c 30 29  |enu_sel%+24*0,0)|
000077a0  0d 35 de 23 20 f2 58 6d  65 6e 75 5f 73 68 61 64  |.5.# .Xmenu_shad|
000077b0  65 28 6d 65 6e 75 5f 73  65 6c 25 2b 32 34 2a 31  |e(menu_sel%+24*1|
000077c0  2c 30 29 0d 35 e8 23 20  f2 58 6d 65 6e 75 5f 73  |,0).5.# .Xmenu_s|
000077d0  68 61 64 65 28 6d 65 6e  75 5f 73 65 6c 25 2b 32  |hade(menu_sel%+2|
000077e0  34 2a 32 2c 30 29 0d 35  f2 23 20 f2 58 6d 65 6e  |4*2,0).5.# .Xmen|
000077f0  75 5f 73 68 61 64 65 28  6d 65 6e 75 5f 73 65 6c  |u_shade(menu_sel|
00007800  25 2b 32 34 2a 33 2c 30  29 0d 35 fc 23 20 f2 58  |%+24*3,0).5.# .X|
00007810  6d 65 6e 75 5f 73 68 61  64 65 28 6d 65 6e 75 5f  |menu_shade(menu_|
00007820  73 65 6c 25 2b 32 34 2a  34 2c 30 29 0d 36 06 23  |sel%+24*4,0).6.#|
00007830  20 f2 58 6d 65 6e 75 5f  73 68 61 64 65 28 6d 65  | .Xmenu_shade(me|
00007840  6e 75 5f 73 65 6c 25 2b  32 34 2a 35 2c 30 29 0d  |nu_sel%+24*5,0).|
00007850  36 10 23 20 f2 58 6d 65  6e 75 5f 73 68 61 64 65  |6.# .Xmenu_shade|
00007860  28 6d 65 6e 75 5f 73 65  6c 25 2b 32 34 2a 36 2c  |(menu_sel%+24*6,|
00007870  30 29 0d 36 1a 23 20 f2  58 6d 65 6e 75 5f 73 68  |0).6.# .Xmenu_sh|
00007880  61 64 65 28 6d 65 6e 75  5f 73 65 6c 25 2b 32 34  |ade(menu_sel%+24|
00007890  2a 37 2c 30 29 0d 36 24  23 20 f2 58 6d 65 6e 75  |*7,0).6$# .Xmenu|
000078a0  5f 73 68 61 64 65 28 6d  65 6e 75 5f 73 65 6c 25  |_shade(menu_sel%|
000078b0  2b 32 34 2a 38 2c 30 29  0d 36 2e 23 20 f2 58 6d  |+24*8,0).6.# .Xm|
000078c0  65 6e 75 5f 73 68 61 64  65 28 6d 65 6e 75 5f 73  |enu_shade(menu_s|
000078d0  65 6c 25 2b 32 34 2a 39  2c 30 29 0d 36 38 24 20  |el%+24*9,0).68$ |
000078e0  f2 58 6d 65 6e 75 5f 73  68 61 64 65 28 6d 65 6e  |.Xmenu_shade(men|
000078f0  75 5f 73 65 6c 25 2b 32  34 2a 31 30 2c 30 29 0d  |u_sel%+24*10,0).|
00007900  36 42 24 20 f2 58 6d 65  6e 75 5f 73 68 61 64 65  |6B$ .Xmenu_shade|
00007910  28 6d 65 6e 75 5f 73 65  6c 25 2b 32 34 2a 31 31  |(menu_sel%+24*11|
00007920  2c 30 29 0d 36 4c 1e 20  f2 58 6d 65 6e 75 5f 73  |,0).6L. .Xmenu_s|
00007930  68 61 64 65 28 6d 65 6e  75 5f 6c 69 62 25 2c 30  |hade(menu_lib%,0|
00007940  29 0d 36 56 20 20 f2 58  6d 65 6e 75 5f 73 68 61  |).6V  .Xmenu_sha|
00007950  64 65 28 6d 65 6e 75 5f  73 65 6c 66 78 25 2c 30  |de(menu_selfx%,0|
00007960  29 0d 36 60 2a c9 20 73  65 6c 5f 73 74 61 72 74  |).6`*. sel_start|
00007970  25 3d 30 20 80 20 73 65  6c 5f 65 6e 64 25 3d 73  |%=0 . sel_end%=s|
00007980  61 6d 70 5f 73 69 7a 65  25 2d 31 0d 36 6a 23 20  |amp_size%-1.6j# |
00007990  f2 58 6d 65 6e 75 5f 73  68 61 64 65 28 6d 65 6e  |.Xmenu_shade(men|
000079a0  75 5f 73 65 6c 25 2b 32  34 2a 30 2c 31 29 0d 36  |u_sel%+24*0,1).6|
000079b0  74 23 20 f2 58 6d 65 6e  75 5f 73 68 61 64 65 28  |t# .Xmenu_shade(|
000079c0  6d 65 6e 75 5f 73 65 6c  25 2b 32 34 2a 31 2c 30  |menu_sel%+24*1,0|
000079d0  29 0d 36 7e 23 20 f2 58  6d 65 6e 75 5f 73 68 61  |).6~# .Xmenu_sha|
000079e0  64 65 28 6d 65 6e 75 5f  73 65 6c 25 2b 32 34 2a  |de(menu_sel%+24*|
000079f0  32 2c 30 29 0d 36 88 23  20 f2 58 6d 65 6e 75 5f  |2,0).6.# .Xmenu_|
00007a00  73 68 61 64 65 28 6d 65  6e 75 5f 73 65 6c 25 2b  |shade(menu_sel%+|
00007a10  32 34 2a 33 2c 30 29 0d  36 92 23 20 f2 58 6d 65  |24*3,0).6.# .Xme|
00007a20  6e 75 5f 73 68 61 64 65  28 6d 65 6e 75 5f 73 65  |nu_shade(menu_se|
00007a30  6c 25 2b 32 34 2a 34 2c  30 29 0d 36 9c 23 20 f2  |l%+24*4,0).6.# .|
00007a40  58 6d 65 6e 75 5f 73 68  61 64 65 28 6d 65 6e 75  |Xmenu_shade(menu|
00007a50  5f 73 65 6c 25 2b 32 34  2a 35 2c 30 29 0d 36 a6  |_sel%+24*5,0).6.|
00007a60  23 20 f2 58 6d 65 6e 75  5f 73 68 61 64 65 28 6d  |# .Xmenu_shade(m|
00007a70  65 6e 75 5f 73 65 6c 25  2b 32 34 2a 36 2c 30 29  |enu_sel%+24*6,0)|
00007a80  0d 36 b0 23 20 f2 58 6d  65 6e 75 5f 73 68 61 64  |.6.# .Xmenu_shad|
00007a90  65 28 6d 65 6e 75 5f 73  65 6c 25 2b 32 34 2a 37  |e(menu_sel%+24*7|
00007aa0  2c 30 29 0d 36 ba 23 20  f2 58 6d 65 6e 75 5f 73  |,0).6.# .Xmenu_s|
00007ab0  68 61 64 65 28 6d 65 6e  75 5f 73 65 6c 25 2b 32  |hade(menu_sel%+2|
00007ac0  34 2a 38 2c 30 29 0d 36  c4 23 20 f2 58 6d 65 6e  |4*8,0).6.# .Xmen|
00007ad0  75 5f 73 68 61 64 65 28  6d 65 6e 75 5f 73 65 6c  |u_shade(menu_sel|
00007ae0  25 2b 32 34 2a 39 2c 30  29 0d 36 ce 24 20 f2 58  |%+24*9,0).6.$ .X|
00007af0  6d 65 6e 75 5f 73 68 61  64 65 28 6d 65 6e 75 5f  |menu_shade(menu_|
00007b00  73 65 6c 25 2b 32 34 2a  31 30 2c 30 29 0d 36 d8  |sel%+24*10,0).6.|
00007b10  24 20 f2 58 6d 65 6e 75  5f 73 68 61 64 65 28 6d  |$ .Xmenu_shade(m|
00007b20  65 6e 75 5f 73 65 6c 25  2b 32 34 2a 31 31 2c 30  |enu_sel%+24*11,0|
00007b30  29 0d 36 e2 1e 20 f2 58  6d 65 6e 75 5f 73 68 61  |).6.. .Xmenu_sha|
00007b40  64 65 28 6d 65 6e 75 5f  6c 69 62 25 2c 30 29 0d  |de(menu_lib%,0).|
00007b50  36 ec 20 20 f2 58 6d 65  6e 75 5f 73 68 61 64 65  |6.  .Xmenu_shade|
00007b60  28 6d 65 6e 75 5f 73 65  6c 66 78 25 2c 30 29 0d  |(menu_selfx%,0).|
00007b70  36 f6 05 7f 0d 37 00 23  20 f2 58 6d 65 6e 75 5f  |6....7.# .Xmenu_|
00007b80  73 68 61 64 65 28 6d 65  6e 75 5f 73 65 6c 25 2b  |shade(menu_sel%+|
00007b90  32 34 2a 30 2c 30 29 0d  37 0a 23 20 f2 58 6d 65  |24*0,0).7.# .Xme|
00007ba0  6e 75 5f 73 68 61 64 65  28 6d 65 6e 75 5f 73 65  |nu_shade(menu_se|
00007bb0  6c 25 2b 32 34 2a 31 2c  31 29 0d 37 14 23 20 f2  |l%+24*1,1).7.# .|
00007bc0  58 6d 65 6e 75 5f 73 68  61 64 65 28 6d 65 6e 75  |Xmenu_shade(menu|
00007bd0  5f 73 65 6c 25 2b 32 34  2a 32 2c 31 29 0d 37 1e  |_sel%+24*2,1).7.|
00007be0  23 20 f2 58 6d 65 6e 75  5f 73 68 61 64 65 28 6d  |# .Xmenu_shade(m|
00007bf0  65 6e 75 5f 73 65 6c 25  2b 32 34 2a 33 2c 31 29  |enu_sel%+24*3,1)|
00007c00  0d 37 28 23 20 f2 58 6d  65 6e 75 5f 73 68 61 64  |.7(# .Xmenu_shad|
00007c10  65 28 6d 65 6e 75 5f 73  65 6c 25 2b 32 34 2a 34  |e(menu_sel%+24*4|
00007c20  2c 31 29 0d 37 32 23 20  f2 58 6d 65 6e 75 5f 73  |,1).72# .Xmenu_s|
00007c30  68 61 64 65 28 6d 65 6e  75 5f 73 65 6c 25 2b 32  |hade(menu_sel%+2|
00007c40  34 2a 35 2c 31 29 0d 37  3c 23 20 f2 58 6d 65 6e  |4*5,1).7<# .Xmen|
00007c50  75 5f 73 68 61 64 65 28  6d 65 6e 75 5f 73 65 6c  |u_shade(menu_sel|
00007c60  25 2b 32 34 2a 36 2c 31  29 0d 37 46 23 20 f2 58  |%+24*6,1).7F# .X|
00007c70  6d 65 6e 75 5f 73 68 61  64 65 28 6d 65 6e 75 5f  |menu_shade(menu_|
00007c80  73 65 6c 25 2b 32 34 2a  37 2c 31 29 0d 37 50 23  |sel%+24*7,1).7P#|
00007c90  20 f2 58 6d 65 6e 75 5f  73 68 61 64 65 28 6d 65  | .Xmenu_shade(me|
00007ca0  6e 75 5f 73 65 6c 25 2b  32 34 2a 38 2c 31 29 0d  |nu_sel%+24*8,1).|
00007cb0  37 5a 23 20 f2 58 6d 65  6e 75 5f 73 68 61 64 65  |7Z# .Xmenu_shade|
00007cc0  28 6d 65 6e 75 5f 73 65  6c 25 2b 32 34 2a 39 2c  |(menu_sel%+24*9,|
00007cd0  31 29 0d 37 64 24 20 f2  58 6d 65 6e 75 5f 73 68  |1).7d$ .Xmenu_sh|
00007ce0  61 64 65 28 6d 65 6e 75  5f 73 65 6c 25 2b 32 34  |ade(menu_sel%+24|
00007cf0  2a 31 30 2c 31 29 0d 37  6e 24 20 f2 58 6d 65 6e  |*10,1).7n$ .Xmen|
00007d00  75 5f 73 68 61 64 65 28  6d 65 6e 75 5f 73 65 6c  |u_shade(menu_sel|
00007d10  25 2b 32 34 2a 31 31 2c  31 29 0d 37 78 1e 20 f2  |%+24*11,1).7x. .|
00007d20  58 6d 65 6e 75 5f 73 68  61 64 65 28 6d 65 6e 75  |Xmenu_shade(menu|
00007d30  5f 6c 69 62 25 2c 31 29  0d 37 82 20 20 f2 58 6d  |_lib%,1).7.  .Xm|
00007d40  65 6e 75 5f 73 68 61 64  65 28 6d 65 6e 75 5f 73  |enu_shade(menu_s|
00007d50  65 6c 66 78 25 2c 31 29  0d 37 8c 05 cb 0d 37 96  |elfx%,1).7....7.|
00007d60  2b f2 58 69 63 6f 6e 5f  73 65 74 73 74 72 28 77  |+.Xicon_setstr(w|
00007d70  69 6e 5f 6d 61 69 6e 25  2c 32 32 2c c3 73 65 6c  |in_main%,22,.sel|
00007d80  5f 73 74 61 72 74 25 29  0d 37 a0 29 f2 58 69 63  |_start%).7.).Xic|
00007d90  6f 6e 5f 73 65 74 73 74  72 28 77 69 6e 5f 6d 61  |on_setstr(win_ma|
00007da0  69 6e 25 2c 32 33 2c c3  73 65 6c 5f 65 6e 64 25  |in%,23,.sel_end%|
00007db0  29 0d 37 aa 05 e1 0d 37  b4 04 0d 37 be 10 dd f2  |).7....7...7....|
00007dc0  6f 70 65 6e 5f 73 69 6e  66 6f 0d 37 c8 18 f2 73  |open_sinfo.7...s|
00007dd0  65 74 5f 73 69 6e 66 6f  28 30 2c 63 61 72 65 74  |et_sinfo(0,caret|
00007de0  25 29 0d 37 d2 1c f2 73  65 74 5f 73 69 6e 66 6f  |%).7...set_sinfo|
00007df0  28 34 2c 73 65 6c 5f 73  74 61 72 74 25 29 0d 37  |(4,sel_start%).7|
00007e00  dc 1a f2 73 65 74 5f 73  69 6e 66 6f 28 38 2c 73  |...set_sinfo(8,s|
00007e10  65 6c 5f 65 6e 64 25 29  0d 37 e6 26 f2 73 65 74  |el_end%).7.&.set|
00007e20  5f 73 69 6e 66 6f 28 31  32 2c 73 65 6c 5f 65 6e  |_sinfo(12,sel_en|
00007e30  64 25 2d 73 65 6c 5f 73  74 61 72 74 25 29 0d 37  |d%-sel_start%).7|
00007e40  f0 1d f2 73 65 74 5f 73  69 6e 66 6f 28 31 36 2c  |...set_sinfo(16,|
00007e50  73 61 6d 70 5f 73 69 7a  65 25 29 0d 37 fa 05 e1  |samp_size%).7...|
00007e60  0d 38 04 04 0d 38 0e 1a  dd f2 73 65 74 5f 73 69  |.8...8....set_si|
00007e70  6e 66 6f 28 69 63 25 2c  64 61 74 61 25 29 0d 38  |nfo(ic%,data%).8|
00007e80  18 32 ea 20 72 61 74 65  25 3a 72 61 74 65 25 3d  |.2. rate%:rate%=|
00007e90  bb a4 58 69 63 6f 6e 5f  67 65 74 73 74 72 28 77  |..Xicon_getstr(w|
00007ea0  69 6e 5f 6d 61 69 6e 25  2c 35 29 2a 31 30 30 30  |in_main%,5)*1000|
00007eb0  0d 38 22 10 e7 20 64 61  74 61 25 3e 2d 31 20 8c  |.8".. data%>-1 .|
00007ec0  0d 38 2c 36 f2 58 69 63  6f 6e 5f 73 65 74 73 74  |.8,6.Xicon_setst|
00007ed0  72 28 77 69 6e 5f 73 61  6d 70 69 6e 66 6f 25 2c  |r(win_sampinfo%,|
00007ee0  69 63 25 2c c0 c3 28 64  61 74 61 25 2f 31 30 32  |ic%,..(data%/102|
00007ef0  34 29 2c 38 29 29 0d 38  36 31 f2 58 69 63 6f 6e  |4),8)).861.Xicon|
00007f00  5f 73 65 74 73 74 72 28  77 69 6e 5f 73 61 6d 70  |_setstr(win_samp|
00007f10  69 6e 66 6f 25 2c 69 63  25 2b 31 2c c0 c3 64 61  |info%,ic%+1,..da|
00007f20  74 61 25 2c 38 29 29 0d  38 40 39 f2 58 69 63 6f  |ta%,8)).8@9.Xico|
00007f30  6e 5f 73 65 74 73 74 72  28 77 69 6e 5f 73 61 6d  |n_setstr(win_sam|
00007f40  70 69 6e 66 6f 25 2c 69  63 25 2b 32 2c c0 c3 28  |pinfo%,ic%+2,..(|
00007f50  64 61 74 61 25 2f 72 61  74 65 25 29 2c 38 29 29  |data%/rate%),8))|
00007f60  0d 38 4a 3d f2 58 69 63  6f 6e 5f 73 65 74 73 74  |.8J=.Xicon_setst|
00007f70  72 28 77 69 6e 5f 73 61  6d 70 69 6e 66 6f 25 2c  |r(win_sampinfo%,|
00007f80  69 63 25 2b 33 2c c0 c3  28 64 61 74 61 25 2f 72  |ic%+3,..(data%/r|
00007f90  61 74 65 25 2a 31 30 30  29 2c 38 29 29 0d 38 54  |ate%*100),8)).8T|
00007fa0  05 cc 0d 38 5e 2b f2 58  69 63 6f 6e 5f 73 65 74  |...8^+.Xicon_set|
00007fb0  73 74 72 28 77 69 6e 5f  73 61 6d 70 69 6e 66 6f  |str(win_sampinfo|
00007fc0  25 2c 69 63 25 2c 22 4e  6f 6e 65 22 29 0d 38 68  |%,ic%,"None").8h|
00007fd0  2d f2 58 69 63 6f 6e 5f  73 65 74 73 74 72 28 77  |-.Xicon_setstr(w|
00007fe0  69 6e 5f 73 61 6d 70 69  6e 66 6f 25 2c 69 63 25  |in_sampinfo%,ic%|
00007ff0  2b 31 2c 22 4e 6f 6e 65  22 29 0d 38 72 2d f2 58  |+1,"None").8r-.X|
00008000  69 63 6f 6e 5f 73 65 74  73 74 72 28 77 69 6e 5f  |icon_setstr(win_|
00008010  73 61 6d 70 69 6e 66 6f  25 2c 69 63 25 2b 32 2c  |sampinfo%,ic%+2,|
00008020  22 4e 6f 6e 65 22 29 0d  38 7c 2d f2 58 69 63 6f  |"None").8|-.Xico|
00008030  6e 5f 73 65 74 73 74 72  28 77 69 6e 5f 73 61 6d  |n_setstr(win_sam|
00008040  70 69 6e 66 6f 25 2c 69  63 25 2b 33 2c 22 4e 6f  |pinfo%,ic%+3,"No|
00008050  6e 65 22 29 0d 38 86 05  cd 0d 38 90 05 e1 0d 38  |ne").8....8....8|
00008060  9a 04 0d 38 a4 0f dd f2  63 72 65 6d 5f 6d 61 69  |...8....crem_mai|
00008070  6e 0d 38 ae 32 f2 58 6d  65 6e 75 5f 73 74 61 72  |n.8.2.Xmenu_star|
00008080  74 28 22 4d 69 73 63 22  2c 73 74 61 72 74 25 2c  |t("Misc",start%,|
00008090  65 6e 64 25 29 3a 73 75  62 5f 6d 69 73 63 25 3d  |end%):sub_misc%=|
000080a0  72 30 25 0d 38 b8 27 f2  58 6d 65 6e 75 5f 61 64  |r0%.8.'.Xmenu_ad|
000080b0  64 69 74 65 6d 28 22 50  72 6f 67 72 61 6d 22 2c  |ditem("Program",|
000080c0  77 69 6e 5f 69 6e 66 6f  25 29 0d 38 c2 2a f2 58  |win_info%).8.*.X|
000080d0  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 53 61  |menu_additem("Sa|
000080e0  6d 70 6c 65 22 2c 77 69  6e 5f 73 61 6d 70 69 6e  |mple",win_sampin|
000080f0  66 6f 25 29 0d 38 cc 17  f2 58 6d 65 6e 75 5f 6d  |fo%).8...Xmenu_m|
00008100  65 73 73 61 67 65 28 72  30 25 29 0d 38 d6 0e f2  |essage(r0%).8...|
00008110  58 6d 65 6e 75 5f 64 6f  74 0d 38 e0 33 f2 58 6d  |Xmenu_dot.8.3.Xm|
00008120  65 6e 75 5f 61 64 64 69  74 65 6d 28 22 4c 6f 67  |enu_additem("Log|
00008130  20 73 61 6d 70 6c 65 22  2c 2d 31 29 3a 6d 65 6e  | sample",-1):men|
00008140  75 5f 73 74 79 70 65 25  3d 72 30 25 0d 38 ea 26  |u_stype%=r0%.8.&|
00008150  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 22  |.Xmenu_additem("|
00008160  53 69 67 6e 65 64 20 73  61 6d 70 6c 65 22 2c 2d  |Signed sample",-|
00008170  31 29 0d 38 f4 28 f2 58  6d 65 6e 75 5f 61 64 64  |1).8.(.Xmenu_add|
00008180  69 74 65 6d 28 22 55 6e  73 69 67 6e 65 64 20 73  |item("Unsigned s|
00008190  61 6d 70 6c 65 22 2c 2d  31 29 0d 38 fe 0e f2 58  |ample",-1).8...X|
000081a0  6d 65 6e 75 5f 64 6f 74  0d 39 08 2f f2 58 6d 65  |menu_dot.9./.Xme|
000081b0  6e 75 5f 61 64 64 69 74  65 6d 28 22 4c 69 6e 32  |nu_additem("Lin2|
000081c0  4c 6f 67 22 2c 2d 31 29  3a 6d 65 6e 75 5f 63 6f  |Log",-1):menu_co|
000081d0  6e 76 25 3d 72 30 25 0d  39 12 20 f2 58 6d 65 6e  |nv%=r0%.9. .Xmen|
000081e0  75 5f 61 64 64 69 74 65  6d 28 22 4c 6f 67 32 4c  |u_additem("Log2L|
000081f0  69 6e 22 2c 2d 31 29 0d  39 1c 21 f2 58 6d 65 6e  |in",-1).9.!.Xmen|
00008200  75 5f 61 64 64 69 74 65  6d 28 22 28 55 6e 29 73  |u_additem("(Un)s|
00008210  69 67 6e 22 2c 2d 31 29  0d 39 26 0e f2 58 6d 65  |ign",-1).9&..Xme|
00008220  6e 75 5f 64 6f 74 0d 39  30 25 f2 58 6d 65 6e 75  |nu_dot.90%.Xmenu|
00008230  5f 61 64 64 69 74 65 6d  28 22 43 61 6c 63 2e 20  |_additem("Calc. |
00008240  63 65 6e 74 72 65 22 2c  2d 31 29 0d 39 3a 1b f2  |centre",-1).9:..|
00008250  58 6d 65 6e 75 5f 65 6e  64 28 73 74 61 72 74 25  |Xmenu_end(start%|
00008260  2c 65 6e 64 25 29 0d 39  44 05 f4 0d 39 4e 32 f2  |,end%).9D...9N2.|
00008270  58 6d 65 6e 75 5f 73 74  61 72 74 28 22 53 61 76  |Xmenu_start("Sav|
00008280  65 22 2c 73 74 61 72 74  25 2c 65 6e 64 25 29 3a  |e",start%,end%):|
00008290  73 75 62 5f 73 61 76 65  25 3d 72 30 25 0d 39 58  |sub_save%=r0%.9X|
000082a0  32 f2 58 6d 65 6e 75 5f  61 64 64 69 74 65 6d 28  |2.Xmenu_additem(|
000082b0  22 4c 6f 67 22 2c 77 69  6e 5f 73 61 76 65 25 29  |"Log",win_save%)|
000082c0  3a 6d 65 6e 75 5f 73 61  76 65 25 3d 72 30 25 0d  |:menu_save%=r0%.|
000082d0  39 62 17 f2 58 6d 65 6e  75 5f 6d 65 73 73 61 67  |9b..Xmenu_messag|
000082e0  65 28 72 30 25 29 0d 39  6c 26 f2 58 6d 65 6e 75  |e(r0%).9l&.Xmenu|
000082f0  5f 61 64 64 69 74 65 6d  28 22 53 69 67 6e 65 64  |_additem("Signed|
00008300  22 2c 77 69 6e 5f 73 61  76 65 25 29 0d 39 76 17  |",win_save%).9v.|
00008310  f2 58 6d 65 6e 75 5f 6d  65 73 73 61 67 65 28 72  |.Xmenu_message(r|
00008320  30 25 29 0d 39 80 28 f2  58 6d 65 6e 75 5f 61 64  |0%).9.(.Xmenu_ad|
00008330  64 69 74 65 6d 28 22 55  6e 73 69 67 6e 65 64 22  |ditem("Unsigned"|
00008340  2c 77 69 6e 5f 73 61 76  65 25 29 0d 39 8a 17 f2  |,win_save%).9...|
00008350  58 6d 65 6e 75 5f 6d 65  73 73 61 67 65 28 72 30  |Xmenu_message(r0|
00008360  25 29 0d 39 94 0e f2 58  6d 65 6e 75 5f 64 6f 74  |%).9...Xmenu_dot|
00008370  0d 39 9e 25 f2 58 6d 65  6e 75 5f 61 64 64 69 74  |.9.%.Xmenu_addit|
00008380  65 6d 28 22 45 66 66 65  78 22 2c 77 69 6e 5f 73  |em("Effex",win_s|
00008390  61 76 65 25 29 0d 39 a8  17 f2 58 6d 65 6e 75 5f  |ave%).9...Xmenu_|
000083a0  6d 65 73 73 61 67 65 28  72 30 25 29 0d 39 b2 28  |message(r0%).9.(|
000083b0  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 22  |.Xmenu_additem("|
000083c0  41 72 6d 61 64 65 75 73  22 2c 77 69 6e 5f 73 61  |Armadeus",win_sa|
000083d0  76 65 25 29 0d 39 bc 17  f2 58 6d 65 6e 75 5f 6d  |ve%).9...Xmenu_m|
000083e0  65 73 73 61 67 65 28 72  30 25 29 0d 39 c6 1b f2  |essage(r0%).9...|
000083f0  58 6d 65 6e 75 5f 65 6e  64 28 73 74 61 72 74 25  |Xmenu_end(start%|
00008400  2c 65 6e 64 25 29 0d 39  d0 05 f4 0d 39 da 36 f2  |,end%).9....9.6.|
00008410  58 6d 65 6e 75 5f 73 74  61 72 74 28 22 53 65 6c  |Xmenu_start("Sel|
00008420  65 63 74 69 6f 6e 22 2c  73 74 61 72 74 25 2c 65  |ection",start%,e|
00008430  6e 64 25 29 3a 73 75 62  5f 73 65 6c 25 3d 72 30  |nd%):sub_sel%=r0|
00008440  25 0d 39 e4 39 f2 58 6d  65 6e 75 5f 61 64 64 69  |%.9.9.Xmenu_addi|
00008450  74 65 6d 28 22 53 65 6c  65 63 74 20 61 6c 6c 20  |tem("Select all |
00008460  20 20 20 20 20 5e 41 22  2c 2d 31 29 3a 6d 65 6e  |     ^A",-1):men|
00008470  75 5f 73 65 6c 25 3d 72  30 25 0d 39 ee 2b f2 58  |u_sel%=r0%.9.+.X|
00008480  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 43 6c  |menu_additem("Cl|
00008490  65 61 72 20 73 65 6c 65  63 74 69 6f 6e 20 5e 5a  |ear selection ^Z|
000084a0  22 2c 2d 31 29 0d 39 f8  0e f2 58 6d 65 6e 75 5f  |",-1).9...Xmenu_|
000084b0  64 6f 74 0d 3a 02 2b f2  58 6d 65 6e 75 5f 61 64  |dot.:.+.Xmenu_ad|
000084c0  64 69 74 65 6d 28 22 44  65 6c 65 74 65 20 20 20  |ditem("Delete   |
000084d0  20 20 20 20 20 20 20 5e  58 22 2c 2d 31 29 0d 3a  |       ^X",-1).:|
000084e0  0c 2b f2 58 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |.+.Xmenu_additem|
000084f0  28 22 43 6f 70 79 20 20  20 20 20 20 20 20 20 20  |("Copy          |
00008500  20 20 5e 43 22 2c 2d 31  29 0d 3a 16 2b f2 58 6d  |  ^C",-1).:.+.Xm|
00008510  65 6e 75 5f 61 64 64 69  74 65 6d 28 22 43 6f 70  |enu_additem("Cop|
00008520  79 20 6f 76 65 72 20 20  20 20 20 20 20 5e 59 22  |y over       ^Y"|
00008530  2c 2d 31 29 0d 3a 20 2b  f2 58 6d 65 6e 75 5f 61  |,-1).: +.Xmenu_a|
00008540  64 64 69 74 65 6d 28 22  4d 6f 76 65 20 20 20 20  |dditem("Move    |
00008550  20 20 20 20 20 20 20 20  5e 56 22 2c 2d 31 29 0d  |        ^V",-1).|
00008560  3a 2a 0e f2 58 6d 65 6e  75 5f 64 6f 74 0d 3a 34  |:*..Xmenu_dot.:4|
00008570  1c f2 58 6d 65 6e 75 5f  61 64 64 69 74 65 6d 28  |..Xmenu_additem(|
00008580  22 4d 69 78 22 2c 2d 31  29 0d 3a 3e 20 f2 58 6d  |"Mix",-1).:> .Xm|
00008590  65 6e 75 5f 61 64 64 69  74 65 6d 28 22 50 72 65  |enu_additem("Pre|
000085a0  2d 6d 69 78 22 2c 2d 31  29 0d 3a 48 21 f2 58 6d  |-mix",-1).:H!.Xm|
000085b0  65 6e 75 5f 61 64 64 69  74 65 6d 28 22 50 6f 73  |enu_additem("Pos|
000085c0  74 2d 6d 69 78 22 2c 2d  31 29 0d 3a 52 0e f2 58  |t-mix",-1).:R..X|
000085d0  6d 65 6e 75 5f 64 6f 74  0d 3a 5c 2a f2 58 6d 65  |menu_dot.:\*.Xme|
000085e0  6e 75 5f 61 64 64 69 74  65 6d 28 22 5a 6f 6f 6d  |nu_additem("Zoom|
000085f0  20 20 20 20 20 20 20 20  20 20 20 20 5a 22 2c 2d  |            Z",-|
00008600  31 29 0d 3a 66 2b f2 58  6d 65 6e 75 5f 61 64 64  |1).:f+.Xmenu_add|
00008610  69 74 65 6d 28 22 50 6c  61 79 20 20 20 20 20 20  |item("Play      |
00008620  20 20 20 20 20 20 5e 45  22 2c 2d 31 29 0d 3a 70  |      ^E",-1).:p|
00008630  2e f2 58 6d 65 6e 75 5f  61 64 64 69 74 65 6d 28  |..Xmenu_additem(|
00008640  22 53 61 76 65 20 73 65  6c 65 63 74 69 6f 6e 22  |"Save selection"|
00008650  2c 73 75 62 5f 73 61 76  65 25 29 0d 3a 7a 1b f2  |,sub_save%).:z..|
00008660  58 6d 65 6e 75 5f 65 6e  64 28 73 74 61 72 74 25  |Xmenu_end(start%|
00008670  2c 65 6e 64 25 29 0d 3a  84 05 f4 0d 3a 8e 32 f2  |,end%).:....:.2.|
00008680  58 6d 65 6e 75 5f 73 74  61 72 74 28 22 45 63 68  |Xmenu_start("Ech|
00008690  6f 22 2c 73 74 61 72 74  25 2c 65 6e 64 25 29 3a  |o",start%,end%):|
000086a0  73 75 62 5f 65 63 68 6f  25 3d 72 30 25 0d 3a 98  |sub_echo%=r0%.:.|
000086b0  3f f2 58 6d 65 6e 75 5f  61 64 64 77 72 73 28 22  |?.Xmenu_addwrs("|
000086c0  4c 65 6e 67 74 68 22 2c  22 61 30 2d 39 2c 26 2c  |Length","a0-9,&,|
000086d0  41 2d 46 2c 61 2d 66 22  2c 22 31 32 38 22 2c 65  |A-F,a-f","128",e|
000086e0  63 68 6f 5f 6c 65 6e 67  74 68 25 29 0d 3a a2 3a  |cho_length%).:.:|
000086f0  f2 58 6d 65 6e 75 5f 61  64 64 77 72 73 28 22 53  |.Xmenu_addwrs("S|
00008700  74 72 65 6e 67 74 68 22  2c 22 61 30 2d 39 2c 2e  |trength","a0-9,.|
00008710  22 2c 22 36 30 22 2c 65  63 68 6f 5f 73 74 72 65  |","60",echo_stre|
00008720  6e 67 74 68 25 29 0d 3a  ac 0e f2 58 6d 65 6e 75  |ngth%).:...Xmenu|
00008730  5f 64 6f 74 0d 3a b6 27  f2 58 6d 65 6e 75 5f 61  |_dot.:.'.Xmenu_a|
00008740  64 64 69 74 65 6d 28 22  4e 6f 72 6d 61 6c 20 65  |dditem("Normal e|
00008750  63 68 6f 20 20 45 22 2c  2d 31 29 0d 3a c0 27 f2  |cho  E",-1).:.'.|
00008760  58 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 22 46  |Xmenu_additem("F|
00008770  6c 61 6e 67 65 20 65 63  68 6f 20 20 46 22 2c 2d  |lange echo  F",-|
00008780  31 29 0d 3a ca 27 f2 58  6d 65 6e 75 5f 61 64 64  |1).:.'.Xmenu_add|
00008790  69 74 65 6d 28 22 48 61  6c 6c 20 65 63 68 6f 20  |item("Hall echo |
000087a0  20 20 20 48 22 2c 2d 31  29 0d 3a d4 1b f2 58 6d  |   H",-1).:...Xm|
000087b0  65 6e 75 5f 65 6e 64 28  73 74 61 72 74 25 2c 65  |enu_end(start%,e|
000087c0  6e 64 25 29 0d 3a de 05  f4 0d 3a e8 35 f2 58 6d  |nd%).:....:.5.Xm|
000087d0  65 6e 75 5f 73 74 61 72  74 28 22 4d 6f 64 75 6c  |enu_start("Modul|
000087e0  61 74 65 22 2c 73 74 61  72 74 25 2c 65 6e 64 25  |ate",start%,end%|
000087f0  29 3a 73 75 62 5f 6d 6f  64 25 3d 72 30 25 0d 3a  |):sub_mod%=r0%.:|
00008800  f2 45 f2 58 6d 65 6e 75  5f 61 64 64 69 6e 70 75  |.E.Xmenu_addinpu|
00008810  74 28 22 22 2c 36 34 2c  31 30 29 3a 6d 65 6e 75  |t("",64,10):menu|
00008820  5f 6d 6f 64 30 25 3d 58  6d 65 6e 75 5f 65 6e 64  |_mod0%=Xmenu_end|
00008830  25 3a 24 58 6d 65 6e 75  5f 65 6e 64 25 3d 6d 6f  |%:$Xmenu_end%=mo|
00008840  64 30 24 0d 3a fc 45 f2  58 6d 65 6e 75 5f 61 64  |d0$.:.E.Xmenu_ad|
00008850  64 69 6e 70 75 74 28 22  22 2c 36 34 2c 31 30 29  |dinput("",64,10)|
00008860  3a 6d 65 6e 75 5f 6d 6f  64 31 25 3d 58 6d 65 6e  |:menu_mod1%=Xmen|
00008870  75 5f 65 6e 64 25 3a 24  58 6d 65 6e 75 5f 65 6e  |u_end%:$Xmenu_en|
00008880  64 25 3d 6d 6f 64 31 24  0d 3b 06 45 f2 58 6d 65  |d%=mod1$.;.E.Xme|
00008890  6e 75 5f 61 64 64 69 6e  70 75 74 28 22 22 2c 36  |nu_addinput("",6|
000088a0  34 2c 31 30 29 3a 6d 65  6e 75 5f 6d 6f 64 32 25  |4,10):menu_mod2%|
000088b0  3d 58 6d 65 6e 75 5f 65  6e 64 25 3a 24 58 6d 65  |=Xmenu_end%:$Xme|
000088c0  6e 75 5f 65 6e 64 25 3d  6d 6f 64 32 24 0d 3b 10  |nu_end%=mod2$.;.|
000088d0  45 f2 58 6d 65 6e 75 5f  61 64 64 69 6e 70 75 74  |E.Xmenu_addinput|
000088e0  28 22 22 2c 36 34 2c 31  30 29 3a 6d 65 6e 75 5f  |("",64,10):menu_|
000088f0  6d 6f 64 33 25 3d 58 6d  65 6e 75 5f 65 6e 64 25  |mod3%=Xmenu_end%|
00008900  3a 24 58 6d 65 6e 75 5f  65 6e 64 25 3d 6d 6f 64  |:$Xmenu_end%=mod|
00008910  33 24 0d 3b 1a 45 f2 58  6d 65 6e 75 5f 61 64 64  |3$.;.E.Xmenu_add|
00008920  69 6e 70 75 74 28 22 22  2c 36 34 2c 31 30 29 3a  |input("",64,10):|
00008930  6d 65 6e 75 5f 6d 6f 64  34 25 3d 58 6d 65 6e 75  |menu_mod4%=Xmenu|
00008940  5f 65 6e 64 25 3a 24 58  6d 65 6e 75 5f 65 6e 64  |_end%:$Xmenu_end|
00008950  25 3d 6d 6f 64 34 24 0d  3b 24 1b f2 58 6d 65 6e  |%=mod4$.;$..Xmen|
00008960  75 5f 65 6e 64 28 73 74  61 72 74 25 2c 65 6e 64  |u_end(start%,end|
00008970  25 29 0d 3b 2e 05 f4 0d  3b 38 33 f2 58 6d 65 6e  |%).;....;83.Xmen|
00008980  75 5f 73 74 61 72 74 28  22 45 66 66 65 63 74 73  |u_start("Effects|
00008990  22 2c 73 74 61 72 74 25  2c 65 6e 64 25 29 3a 73  |",start%,end%):s|
000089a0  75 62 5f 66 78 25 3d 72  30 25 0d 3b 42 32 f2 58  |ub_fx%=r0%.;B2.X|
000089b0  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 53 65  |menu_additem("Se|
000089c0  6c 65 63 74 69 6f 6e 22  2c 2d 31 29 3a 6d 65 6e  |lection",-1):men|
000089d0  75 5f 73 65 6c 66 78 25  3d 72 30 25 0d 3b 4c 0e  |u_selfx%=r0%.;L.|
000089e0  f2 58 6d 65 6e 75 5f 64  6f 74 0d 3b 56 20 f2 58  |.Xmenu_dot.;V .X|
000089f0  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 52 65  |menu_additem("Re|
00008a00  76 65 72 73 65 22 2c 2d  31 29 0d 3b 60 20 f2 58  |verse",-1).;` .X|
00008a10  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 53 69  |menu_additem("Si|
00008a20  6c 65 6e 63 65 22 2c 2d  31 29 0d 3b 6a 26 f2 58  |lence",-1).;j&.X|
00008a30  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 46 61  |menu_additem("Fa|
00008a40  64 65 20 69 6e 20 20 20  20 5e 49 22 2c 2d 31 29  |de in    ^I",-1)|
00008a50  0d 3b 74 26 f2 58 6d 65  6e 75 5f 61 64 64 69 74  |.;t&.Xmenu_addit|
00008a60  65 6d 28 22 46 61 64 65  20 6f 75 74 20 20 20 5e  |em("Fade out   ^|
00008a70  4f 22 2c 2d 31 29 0d 3b  7e 0e f2 58 6d 65 6e 75  |O",-1).;~..Xmenu|
00008a80  5f 64 6f 74 0d 3b 88 32  f2 58 6d 65 6e 75 5f 61  |_dot.;.2.Xmenu_a|
00008a90  64 64 77 72 73 28 22 41  6d 70 6c 69 66 79 22 2c  |ddwrs("Amplify",|
00008aa0  22 61 30 2d 39 22 2c 22  31 30 30 22 2c 61 6d 70  |"a0-9","100",amp|
00008ab0  6c 69 66 79 25 29 0d 3b  92 1c f4 20 50 52 4f 43  |lify%).;... PROC|
00008ac0  58 6d 65 6e 75 5f 73 68  61 64 65 28 72 30 25 2c  |Xmenu_shade(r0%,|
00008ad0  31 29 0d 3b 9c 26 f2 58  6d 65 6e 75 5f 61 64 64  |1).;.&.Xmenu_add|
00008ae0  77 72 73 32 28 22 51 75  69 65 74 65 6e 22 2c 61  |wrs2("Quieten",a|
00008af0  6d 70 6c 69 66 79 25 29  0d 3b a6 3e f2 58 6d 65  |mplify%).;.>.Xme|
00008b00  6e 75 5f 61 64 64 77 72  73 28 22 45 6f 72 20 63  |nu_addwrs("Eor c|
00008b10  6f 6e 73 74 22 2c 22 61  30 2d 39 2c 26 2c 41 2d  |onst","a0-9,&,A-|
00008b20  46 2c 61 2d 66 22 2c 22  30 22 2c 65 6f 72 5f 63  |F,a-f","0",eor_c|
00008b30  6f 6e 73 74 25 29 0d 3b  b0 3e f2 58 6d 65 6e 75  |onst%).;.>.Xmenu|
00008b40  5f 61 64 64 77 72 73 28  22 41 64 64 20 63 6f 6e  |_addwrs("Add con|
00008b50  73 74 22 2c 22 61 30 2d  39 2c 26 2c 41 2d 46 2c  |st","a0-9,&,A-F,|
00008b60  61 2d 66 22 2c 22 30 22  2c 61 64 64 5f 63 6f 6e  |a-f","0",add_con|
00008b70  73 74 25 29 0d 3b ba 3b  f2 58 6d 65 6e 75 5f 61  |st%).;.;.Xmenu_a|
00008b80  64 64 77 72 73 28 22 48  41 20 66 69 6c 74 65 72  |ddwrs("HA filter|
00008b90  22 2c 22 61 30 2d 39 2c  2b 2c 5c 2d 22 2c 22 2b  |","a0-9,+,\-","+|
00008ba0  39 36 22 2c 68 70 5f 66  69 6c 74 65 72 25 29 0d  |96",hp_filter%).|
00008bb0  3b c4 3b f2 58 6d 65 6e  75 5f 61 64 64 77 72 73  |;.;.Xmenu_addwrs|
00008bc0  28 22 4c 41 20 66 69 6c  74 65 72 22 2c 22 61 30  |("LA filter","a0|
00008bd0  2d 39 2c 2b 2c 5c 2d 22  2c 22 2d 39 36 22 2c 6c  |-9,+,\-","-96",l|
00008be0  70 5f 66 69 6c 74 65 72  25 29 0d 3b ce 41 f2 58  |p_filter%).;.A.X|
00008bf0  6d 65 6e 75 5f 61 64 64  77 72 73 28 22 43 6f 72  |menu_addwrs("Cor|
00008c00  65 20 66 69 6c 74 65 72  22 2c 22 61 30 2d 39 2c  |e filter","a0-9,|
00008c10  26 2c 41 2d 46 2c 61 2d  66 22 2c 22 31 36 22 2c  |&,A-F,a-f","16",|
00008c20  63 6f 72 65 5f 66 69 6c  74 25 29 0d 3b d8 34 f2  |core_filt%).;.4.|
00008c30  58 6d 65 6e 75 5f 61 64  64 77 72 73 28 22 4c 46  |Xmenu_addwrs("LF|
00008c40  20 62 6f 6f 73 74 22 2c  22 61 30 2d 39 2c 2e 22  | boost","a0-9,."|
00008c50  2c 22 31 2e 35 22 2c 66  62 6f 6f 73 74 25 29 0d  |,"1.5",fboost%).|
00008c60  3b e2 26 f2 58 6d 65 6e  75 5f 61 64 64 77 72 73  |;.&.Xmenu_addwrs|
00008c70  32 28 22 48 46 20 62 6f  6f 73 74 22 2c 66 62 6f  |2("HF boost",fbo|
00008c80  6f 73 74 25 29 0d 3b ec  27 f2 58 6d 65 6e 75 5f  |ost%).;.'.Xmenu_|
00008c90  61 64 64 69 74 65 6d 28  22 4d 6f 64 75 6c 61 74  |additem("Modulat|
00008ca0  65 22 2c 73 75 62 5f 6d  6f 64 25 29 0d 3b f6 24  |e",sub_mod%).;.$|
00008cb0  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 22  |.Xmenu_additem("|
00008cc0  45 63 68 6f 22 2c 73 75  62 5f 65 63 68 6f 25 29  |Echo",sub_echo%)|
00008cd0  0d 3c 00 1b f2 58 6d 65  6e 75 5f 65 6e 64 28 73  |.<...Xmenu_end(s|
00008ce0  74 61 72 74 25 2c 65 6e  64 25 29 0d 3c 0a 05 f4  |tart%,end%).<...|
00008cf0  0d 3c 14 35 f2 58 6d 65  6e 75 5f 73 74 61 72 74  |.<.5.Xmenu_start|
00008d00  28 22 50 6c 61 79 69 6e  67 22 2c 73 74 61 72 74  |("Playing",start|
00008d10  25 2c 65 6e 64 25 29 3a  73 75 62 5f 70 6c 61 79  |%,end%):sub_play|
00008d20  25 3d 72 30 25 0d 3c 1e  29 f2 58 6d 65 6e 75 5f  |%=r0%.<.).Xmenu_|
00008d30  61 64 64 69 74 65 6d 28  22 50 6c 61 79 20 20 20  |additem("Play   |
00008d40  20 20 20 20 20 20 20 5e  50 22 2c 2d 31 29 0d 3c  |       ^P",-1).<|
00008d50  28 29 f2 58 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |().Xmenu_additem|
00008d60  28 22 53 74 6f 70 20 20  20 20 20 20 20 20 20 20  |("Stop          |
00008d70  5e 53 22 2c 2d 31 29 0d  3c 32 39 f2 58 6d 65 6e  |^S",-1).<29.Xmen|
00008d80  75 5f 61 64 64 69 74 65  6d 28 22 50 6c 61 79 20  |u_additem("Play |
00008d90  74 72 61 63 6b 69 6e 67  20 5e 54 22 2c 2d 31 29  |tracking ^T",-1)|
00008da0  3a 6d 65 6e 75 5f 74 72  61 63 6b 25 3d 72 30 25  |:menu_track%=r0%|
00008db0  0d 3c 3c 2a f2 58 6d 65  6e 75 5f 61 64 64 69 74  |.<<*.Xmenu_addit|
00008dc0  65 6d 28 22 43 6f 6e 74  69 6e 75 65 20 20 20 20  |em("Continue    |
00008dd0  20 20 53 50 43 22 2c 2d  31 29 0d 3c 46 0e f2 58  |  SPC",-1).<F..X|
00008de0  6d 65 6e 75 5f 64 6f 74  0d 3c 50 21 f2 58 6d 65  |menu_dot.<P!.Xme|
00008df0  6e 75 5f 61 64 64 69 74  65 6d 28 22 50 69 74 63  |nu_additem("Pitc|
00008e00  68 20 75 70 22 2c 2d 31  29 0d 3c 5a 23 f2 58 6d  |h up",-1).<Z#.Xm|
00008e10  65 6e 75 5f 61 64 64 69  74 65 6d 28 22 50 69 74  |enu_additem("Pit|
00008e20  63 68 20 64 6f 77 6e 22  2c 2d 31 29 0d 3c 64 0e  |ch down",-1).<d.|
00008e30  f2 58 6d 65 6e 75 5f 64  6f 74 0d 3c 6e 29 f2 58  |.Xmenu_dot.<n).X|
00008e40  6d 65 6e 75 5f 61 64 64  69 74 65 6d 28 22 4d 61  |menu_additem("Ma|
00008e50  78 2e 20 76 6f 6c 75 6d  65 20 20 20 5e 4c 22 2c  |x. volume   ^L",|
00008e60  2d 31 29 0d 3c 78 1b f2  58 6d 65 6e 75 5f 65 6e  |-1).<x..Xmenu_en|
00008e70  64 28 73 74 61 72 74 25  2c 65 6e 64 25 29 0d 3c  |d(start%,end%).<|
00008e80  82 05 f4 0d 3c 8c 35 f2  58 6d 65 6e 75 5f 73 74  |....<.5.Xmenu_st|
00008e90  61 72 74 28 22 45 6e 74  72 69 65 73 22 2c 73 74  |art("Entries",st|
00008ea0  61 72 74 25 2c 65 6e 64  25 29 3a 73 75 62 5f 6c  |art%,end%):sub_l|
00008eb0  69 62 32 25 3d 72 30 25  0d 3c 96 2f e3 61 25 3d  |ib2%=r0%.<./.a%=|
00008ec0  30 b8 31 35 3a f2 58 6d  65 6e 75 5f 61 64 64 69  |0.15:.Xmenu_addi|
00008ed0  74 65 6d 28 22 31 32 33  34 35 36 37 38 39 30 31  |tem("12345678901|
00008ee0  22 2c 2d 31 29 3a ed 0d  3c a0 1b f2 58 6d 65 6e  |",-1):..<...Xmen|
00008ef0  75 5f 65 6e 64 28 73 74  61 72 74 25 2c 65 6e 64  |u_end(start%,end|
00008f00  25 29 0d 3c aa 05 f4 0d  3c b4 34 f2 58 6d 65 6e  |%).<....<.4.Xmen|
00008f10  75 5f 73 74 61 72 74 28  22 4c 69 62 72 61 72 79  |u_start("Library|
00008f20  22 2c 73 74 61 72 74 25  2c 65 6e 64 25 29 3a 73  |",start%,end%):s|
00008f30  75 62 5f 6c 69 62 25 3d  72 30 25 0d 3c be 40 f2  |ub_lib%=r0%.<.@.|
00008f40  58 6d 65 6e 75 5f 61 64  64 77 72 73 28 22 41 64  |Xmenu_addwrs("Ad|
00008f50  64 20 20 20 20 5e 4c 22  2c 22 61 61 2d 7a 2c 41  |d    ^L","aa-z,A|
00008f60  41 2d 5a 2c 30 2d 39 22  2c 22 45 6e 74 72 79 22  |A-Z,0-9","Entry"|
00008f70  2c 6c 69 62 5f 6e 61 6d  65 25 29 0d 3c c8 19 6d  |,lib_name%).<..m|
00008f80  65 6e 75 5f 6c 69 62 25  3d 73 75 62 5f 6c 69 62  |enu_lib%=sub_lib|
00008f90  25 2b 32 38 0d 3c d2 37  f2 58 6d 65 6e 75 5f 61  |%+28.<.7.Xmenu_a|
00008fa0  64 64 69 74 65 6d 28 22  49 6e 73 65 72 74 22 2c  |dditem("Insert",|
00008fb0  73 75 62 5f 6c 69 62 32  25 29 3a 6d 65 6e 75 5f  |sub_lib2%):menu_|
00008fc0  6c 70 61 73 74 65 25 3d  72 30 25 0d 3c dc 29 f2  |lpaste%=r0%.<.).|
00008fd0  58 6d 65 6e 75 5f 61 64  64 69 74 65 6d 28 22 4f  |Xmenu_additem("O|
00008fe0  76 65 72 77 72 69 74 65  22 2c 73 75 62 5f 6c 69  |verwrite",sub_li|
00008ff0  62 32 25 29 0d 3c e6 26  f2 58 6d 65 6e 75 5f 61  |b2%).<.&.Xmenu_a|
00009000  64 64 69 74 65 6d 28 22  44 65 6c 65 74 65 22 2c  |dditem("Delete",|
00009010  73 75 62 5f 6c 69 62 32  25 29 0d 3c f0 1b f2 58  |sub_lib2%).<...X|
00009020  6d 65 6e 75 5f 65 6e 64  28 73 74 61 72 74 25 2c  |menu_end(start%,|
00009030  65 6e 64 25 29 0d 3c fa  05 f4 0d 3d 04 34 f2 58  |end%).<....=.4.X|
00009040  6d 65 6e 75 5f 73 74 61  72 74 28 22 45 66 66 65  |menu_start("Effe|
00009050  78 22 2c 73 74 61 72 74  25 2c 65 6e 64 25 29 3a  |x",start%,end%):|
00009060  6d 65 6e 75 5f 6d 61 69  6e 25 3d 72 30 25 0d 3d  |menu_main%=r0%.=|
00009070  0e 24 f2 58 6d 65 6e 75  5f 61 64 64 69 74 65 6d  |.$.Xmenu_additem|
00009080  28 22 4d 69 73 63 22 2c  73 75 62 5f 6d 69 73 63  |("Misc",sub_misc|
00009090  25 29 0d 3d 18 24 f2 58  6d 65 6e 75 5f 61 64 64  |%).=.$.Xmenu_add|
000090a0  69 74 65 6d 28 22 53 61  76 65 22 2c 73 75 62 5f  |item("Save",sub_|
000090b0  73 61 76 65 25 29 0d 3d  22 0e f2 58 6d 65 6e 75  |save%).="..Xmenu|
000090c0  5f 64 6f 74 0d 3d 2c 28  f2 58 6d 65 6e 75 5f 61  |_dot.=,(.Xmenu_a|
000090d0  64 64 69 74 65 6d 28 22  53 65 6c 65 63 74 69 6f  |dditem("Selectio|
000090e0  6e 22 2c 73 75 62 5f 73  65 6c 25 29 0d 3d 36 25  |n",sub_sel%).=6%|
000090f0  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 22  |.Xmenu_additem("|
00009100  45 66 66 65 63 74 73 22  2c 73 75 62 5f 66 78 25  |Effects",sub_fx%|
00009110  29 0d 3d 40 0e f2 58 6d  65 6e 75 5f 64 6f 74 0d  |).=@..Xmenu_dot.|
00009120  3d 4a 27 f2 58 6d 65 6e  75 5f 61 64 64 69 74 65  |=J'.Xmenu_addite|
00009130  6d 28 22 50 6c 61 79 69  6e 67 22 2c 73 75 62 5f  |m("Playing",sub_|
00009140  70 6c 61 79 25 29 0d 3d  54 1b f2 58 6d 65 6e 75  |play%).=T..Xmenu|
00009150  5f 65 6e 64 28 73 74 61  72 74 25 2c 65 6e 64 25  |_end(start%,end%|
00009160  29 0d 3d 5e 14 f2 6e 65  77 5f 73 61 6d 70 6c 65  |).=^..new_sample|
00009170  5f 74 79 70 65 0d 3d 68  12 f2 6e 65 77 5f 73 65  |_type.=h..new_se|
00009180  6c 65 63 74 69 6f 6e 0d  3d 72 12 f2 64 6f 5f 6c  |lection.=r..do_l|
00009190  69 62 65 6e 74 72 69 65  73 0d 3d 7c 05 e1 0d 3d  |ibentries.=|...=|
000091a0  86 04 0d 3d 90 12 dd f2  61 73 73 65 6d 28 63 6f  |...=....assem(co|
000091b0  64 65 25 29 0d 3d 9a 23  63 6c 61 69 6d 65 64 5f  |de%).=.#claimed_|
000091c0  63 6f 64 65 25 3d a4 58  6d 65 6d 5f 63 6c 61 69  |code%=.Xmem_clai|
000091d0  6d 28 34 30 39 36 29 0d  3d a4 15 e3 20 6f 70 74  |m(4096).=... opt|
000091e0  25 3d 38 20 b8 20 31 30  20 88 20 32 0d 3d ae 0c  |%=8 . 10 . 2.=..|
000091f0  50 25 3d 63 6f 64 65 25  0d 3d b8 0d 5b 4f 50 54  |P%=code%.=..[OPT|
00009200  20 6f 70 74 25 0d 3d c2  0c 2e 72 65 76 65 72 73  | opt%.=...revers|
00009210  65 0d 3d cc 10 3b 20 52  30 20 3d 20 73 74 61 72  |e.=..; R0 = star|
00009220  74 0d 3d d6 0e 3b 20 52  31 20 3d 20 65 6e 64 0d  |t.=..; R1 = end.|
00009230  3d e0 0d 43 4d 50 20 52  30 2c 52 31 0d 3d ea 10  |=..CMP R0,R1.=..|
00009240  4d 4f 56 47 45 20 50 43  2c 52 31 34 0d 3d f4 10  |MOVGE PC,R14.=..|
00009250  4c 44 52 42 20 52 32 2c  5b 52 30 5d 0d 3d fe 10  |LDRB R2,[R0].=..|
00009260  4c 44 52 42 20 52 33 2c  5b 52 31 5d 0d 3e 08 13  |LDRB R3,[R1].>..|
00009270  53 54 52 42 20 52 33 2c  5b 52 30 5d 2c 23 31 0d  |STRB R3,[R0],#1.|
00009280  3e 12 14 53 54 52 42 20  52 32 2c 5b 52 31 5d 2c  |>..STRB R2,[R1],|
00009290  23 2d 31 0d 3e 1c 0d 42  20 72 65 76 65 72 73 65  |#-1.>..B reverse|
000092a0  0d 3e 26 04 0d 3e 30 10  2e 63 61 6c 63 5f 63 65  |.>&..>0..calc_ce|
000092b0  6e 74 72 65 0d 3e 3a 10  3b 20 52 30 20 3d 20 73  |ntre.>:.; R0 = s|
000092c0  74 61 72 74 0d 3e 44 0e  3b 20 52 31 20 3d 20 65  |tart.>D.; R1 = e|
000092d0  6e 64 0d 3e 4e 10 3b 20  52 32 20 3d 20 74 61 6c  |nd.>N.; R2 = tal|
000092e0  6c 79 0d 3e 58 0d 43 4d  50 20 52 30 2c 52 31 0d  |ly.>X.CMP R0,R1.|
000092f0  3e 62 17 53 54 52 47 54  20 52 32 2c 63 65 6e 74  |>b.STRGT R2,cent|
00009300  72 65 5f 76 61 6c 0d 3e  6c 10 4d 4f 56 47 54 20  |re_val.>l.MOVGT |
00009310  50 43 2c 52 31 34 0d 3e  76 13 4c 44 52 42 20 52  |PC,R14.>v.LDRB R|
00009320  33 2c 5b 52 30 5d 2c 23  31 0d 3e 80 10 41 44 44  |3,[R0],#1.>..ADD|
00009330  20 52 32 2c 52 32 2c 52  33 0d 3e 8a 11 42 20 63  | R2,R2,R3.>..B c|
00009340  61 6c 63 5f 63 65 6e 74  72 65 0d 3e 94 0f 2e 63  |alc_centre.>...c|
00009350  65 6e 74 72 65 5f 76 61  6c 0d 3e 9e 09 44 43 44  |entre_val.>..DCD|
00009360  20 30 0d 3e a8 04 0d 3e  b2 08 2e 61 6d 70 0d 3e  | 0.>...>...amp.>|
00009370  bc 10 3b 20 52 30 20 3d  20 73 74 61 72 74 0d 3e  |..; R0 = start.>|
00009380  c6 0e 3b 20 52 31 20 3d  20 65 6e 64 0d 3e d0 11  |..; R1 = end.>..|
00009390  3b 20 52 32 20 3d 20 63  65 6e 74 72 65 0d 3e da  |; R2 = centre.>.|
000093a0  16 3b 20 52 33 20 3d 20  66 61 63 74 6f 72 20 3c  |.; R3 = factor <|
000093b0  3c 31 32 0d 3e e4 0d 43  4d 50 20 52 30 2c 52 31  |<12.>..CMP R0,R1|
000093c0  0d 3e ee 10 4d 4f 56 47  54 20 50 43 2c 52 31 34  |.>..MOVGT PC,R14|
000093d0  0d 3e f8 10 4c 44 52 42  20 52 34 2c 5b 52 30 5d  |.>..LDRB R4,[R0]|
000093e0  0d 3f 02 10 53 55 42 20  52 35 2c 52 34 2c 52 32  |.?..SUB R5,R4,R2|
000093f0  0d 3f 0c 10 4d 55 4c 20  52 35 2c 52 33 2c 52 35  |.?..MUL R5,R3,R5|
00009400  0d 3f 16 19 41 44 44 53  20 52 34 2c 52 32 2c 52  |.?..ADDS R4,R2,R|
00009410  35 2c 41 53 52 20 23 31  32 0d 3f 20 0f 4d 4f 56  |5,ASR #12.? .MOV|
00009420  4c 54 20 52 34 2c 23 30  0d 3f 2a 11 43 4d 50 47  |LT R4,#0.?*.CMPG|
00009430  54 20 52 34 2c 23 32 35  35 0d 3f 34 11 4d 4f 56  |T R4,#255.?4.MOV|
00009440  47 54 20 52 34 2c 23 32  35 35 0d 3f 3e 13 53 54  |GT R4,#255.?>.ST|
00009450  52 42 20 52 34 2c 5b 52  30 5d 2c 23 31 0d 3f 48  |RB R4,[R0],#1.?H|
00009460  09 42 20 61 6d 70 0d 3f  52 04 0d 3f 5c 09 2e 65  |.B amp.?R..?\..e|
00009470  63 68 6f 0d 3f 66 16 3b  20 52 30 2d 52 32 20 61  |cho.?f.; R0-R2 a|
00009480  73 20 66 6f 72 20 61 6d  70 0d 3f 70 11 3b 20 52  |s for amp.?p.; R|
00009490  33 20 3d 20 6c 65 6e 67  74 68 0d 3f 7a 18 3b 20  |3 = length.?z.; |
000094a0  52 34 20 3d 20 73 74 72  65 6e 67 74 68 20 3c 3c  |R4 = strength <<|
000094b0  31 32 0d 3f 84 10 53 55  42 20 52 35 2c 52 31 2c  |12.?..SUB R5,R1,|
000094c0  52 33 0d 3f 8e 0b 2e 65  63 68 6f 6c 70 0d 3f 98  |R3.?...echolp.?.|
000094d0  0d 43 4d 50 20 52 35 2c  52 30 0d 3f a2 10 4d 4f  |.CMP R5,R0.?..MO|
000094e0  56 4c 54 20 50 43 2c 52  31 34 0d 3f ac 22 4c 44  |VLT PC,R14.?."LD|
000094f0  52 42 20 52 36 2c 5b 52  35 5d 2c 23 2d 31 20 20  |RB R6,[R5],#-1  |
00009500  3b 20 67 65 74 20 73 6f  75 72 63 65 0d 3f b6 22  |; get source.?."|
00009510  53 55 42 20 52 36 2c 52  36 2c 52 32 20 20 3b 20  |SUB R6,R6,R2  ; |
00009520  63 6f 72 72 65 63 74 20  63 65 6e 74 72 65 0d 3f  |correct centre.?|
00009530  c0 1b 4d 55 4c 20 52 36  2c 52 34 2c 52 36 20 20  |..MUL R6,R4,R6  |
00009540  3b 20 61 6d 70 6c 69 66  79 0d 3f ca 1b 4c 44 52  |; amplify.?..LDR|
00009550  42 20 52 37 2c 5b 52 31  5d 20 20 3b 20 67 65 74  |B R7,[R1]  ; get|
00009560  20 64 73 74 0d 3f d4 2a  41 44 44 53 20 52 37 2c  | dst.?.*ADDS R7,|
00009570  52 37 2c 52 36 2c 41 53  52 23 31 32 20 3b 20 61  |R7,R6,ASR#12 ; a|
00009580  64 64 20 65 63 68 6f 20  28 3e 3e 31 32 29 0d 3f  |dd echo (>>12).?|
00009590  de 0f 4d 4f 56 4c 54 20  52 37 2c 23 30 0d 3f e8  |..MOVLT R7,#0.?.|
000095a0  11 43 4d 50 47 54 20 52  37 2c 23 32 35 35 0d 3f  |.CMPGT R7,#255.?|
000095b0  f2 11 4d 4f 56 47 54 20  52 37 2c 23 32 35 35 0d  |..MOVGT R7,#255.|
000095c0  3f fc 14 53 54 52 42 20  52 37 2c 5b 52 31 5d 2c  |?..STRB R7,[R1],|
000095d0  23 2d 31 0d 40 06 0c 42  20 65 63 68 6f 6c 70 0d  |#-1.@..B echolp.|
000095e0  40 10 04 0d 40 1a 0b 2e  66 6c 61 6e 67 65 0d 40  |@...@...flange.@|
000095f0  24 10 41 44 44 20 52 35  2c 52 30 2c 52 33 0d 40  |$.ADD R5,R0,R3.@|
00009600  2e 0d 2e 66 6c 61 6e 67  65 6c 70 0d 40 38 0d 43  |...flangelp.@8.C|
00009610  4d 50 20 52 35 2c 52 31  0d 40 42 10 4d 4f 56 47  |MP R5,R1.@B.MOVG|
00009620  54 20 50 43 2c 52 31 34  0d 40 4c 13 4c 44 52 42  |T PC,R14.@L.LDRB|
00009630  20 52 36 2c 5b 52 30 5d  2c 23 31 0d 40 56 10 53  | R6,[R0],#1.@V.S|
00009640  55 42 20 52 36 2c 52 36  2c 52 32 0d 40 60 10 4d  |UB R6,R6,R2.@`.M|
00009650  55 4c 20 52 36 2c 52 34  2c 52 36 0d 40 6a 10 4c  |UL R6,R4,R6.@j.L|
00009660  44 52 42 20 52 37 2c 5b  52 35 5d 0d 40 74 18 41  |DRB R7,[R5].@t.A|
00009670  44 44 53 20 52 37 2c 52  37 2c 52 36 2c 41 53 52  |DDS R7,R7,R6,ASR|
00009680  23 31 32 0d 40 7e 0f 4d  4f 56 4c 54 20 52 37 2c  |#12.@~.MOVLT R7,|
00009690  23 30 0d 40 88 11 43 4d  50 47 54 20 52 37 2c 23  |#0.@..CMPGT R7,#|
000096a0  32 35 35 0d 40 92 11 4d  4f 56 47 54 20 52 37 2c  |255.@..MOVGT R7,|
000096b0  23 32 35 35 0d 40 9c 13  53 54 52 42 20 52 37 2c  |#255.@..STRB R7,|
000096c0  5b 52 35 5d 2c 23 31 0d  40 a6 0e 42 20 66 6c 61  |[R5],#1.@..B fla|
000096d0  6e 67 65 6c 70 0d 40 b0  04 0d 40 ba 08 2e 65 6f  |ngelp.@...@...eo|
000096e0  72 0d 40 c4 16 3b 20 52  30 2c 52 31 20 61 73 20  |r.@..; R0,R1 as |
000096f0  66 6f 72 20 61 6d 70 0d  40 ce 13 3b 20 52 32 20  |for amp.@..; R2 |
00009700  3d 20 63 6f 6e 73 74 61  6e 74 0d 40 d8 0d 43 4d  |= constant.@..CM|
00009710  50 20 52 30 2c 52 31 0d  40 e2 10 4d 4f 56 47 54  |P R0,R1.@..MOVGT|
00009720  20 50 43 2c 52 31 34 0d  40 ec 10 4c 44 52 42 20  | PC,R14.@..LDRB |
00009730  52 33 2c 5b 52 30 5d 0d  40 f6 0e 82 20 52 33 2c  |R3,[R0].@... R3,|
00009740  52 33 2c 52 32 0d 41 00  13 53 54 52 42 20 52 33  |R3,R2.A..STRB R3|
00009750  2c 5b 52 30 5d 2c 23 31  0d 41 0a 09 42 20 65 6f  |,[R0],#1.A..B eo|
00009760  72 0d 41 14 04 0d 41 1e  08 2e 61 64 64 0d 41 28  |r.A...A...add.A(|
00009770  0d 43 4d 50 20 52 30 2c  52 31 0d 41 32 10 4d 4f  |.CMP R0,R1.A2.MO|
00009780  56 47 54 20 50 43 2c 52  31 34 0d 41 3c 10 4c 44  |VGT PC,R14.A<.LD|
00009790  52 42 20 52 33 2c 5b 52  30 5d 0d 41 46 11 41 44  |RB R3,[R0].AF.AD|
000097a0  44 53 20 52 33 2c 52 33  2c 52 32 0d 41 50 0f 4d  |DS R3,R3,R2.AP.M|
000097b0  4f 56 4c 54 20 52 33 2c  23 30 0d 41 5a 11 43 4d  |OVLT R3,#0.AZ.CM|
000097c0  50 47 54 20 52 33 2c 23  32 35 35 0d 41 64 11 4d  |PGT R3,#255.Ad.M|
000097d0  4f 56 47 54 20 52 33 2c  23 32 35 35 0d 41 6e 13  |OVGT R3,#255.An.|
000097e0  53 54 52 42 20 52 33 2c  5b 52 30 5d 2c 23 31 0d  |STRB R3,[R0],#1.|
000097f0  41 78 09 42 20 61 64 64  0d 41 82 04 0d 41 8c 0c  |Ax.B add.A...A..|
00009800  2e 68 70 5f 66 69 6c 74  0d 41 96 16 3b 20 52 30  |.hp_filt.A..; R0|
00009810  2c 52 31 20 61 73 20 66  6f 72 20 61 6d 70 0d 41  |,R1 as for amp.A|
00009820  a0 19 3b 20 52 32 20 3d  20 68 69 67 68 20 70 61  |..; R2 = high pa|
00009830  73 73 20 6d 61 72 6b 0d  41 aa 0d 43 4d 50 20 52  |ss mark.A..CMP R|
00009840  30 2c 52 31 0d 41 b4 10  4d 4f 56 47 54 20 50 43  |0,R1.A..MOVGT PC|
00009850  2c 52 31 34 0d 41 be 10  4c 44 52 42 20 52 33 2c  |,R14.A..LDRB R3,|
00009860  5b 52 30 5d 0d 41 c8 0d  43 4d 50 20 52 33 2c 52  |[R0].A..CMP R3,R|
00009870  32 0d 41 d2 0f 4d 4f 56  47 54 20 52 33 2c 52 32  |2.A..MOVGT R3,R2|
00009880  0d 41 dc 13 53 54 52 42  20 52 33 2c 5b 52 30 5d  |.A..STRB R3,[R0]|
00009890  2c 23 31 0d 41 e6 0d 42  20 68 70 5f 66 69 6c 74  |,#1.A..B hp_filt|
000098a0  0d 41 f0 04 0d 41 fa 0c  2e 6c 70 5f 66 69 6c 74  |.A...A...lp_filt|
000098b0  0d 42 04 0d 43 4d 50 20  52 30 2c 52 31 0d 42 0e  |.B..CMP R0,R1.B.|
000098c0  10 4d 4f 56 47 54 20 50  43 2c 52 31 34 0d 42 18  |.MOVGT PC,R14.B.|
000098d0  10 4c 44 52 42 20 52 33  2c 5b 52 30 5d 0d 42 22  |.LDRB R3,[R0].B"|
000098e0  0d 43 4d 50 20 52 33 2c  52 32 0d 42 2c 0f 4d 4f  |.CMP R3,R2.B,.MO|
000098f0  56 4c 54 20 52 33 2c 52  32 0d 42 36 13 53 54 52  |VLT R3,R2.B6.STR|
00009900  42 20 52 33 2c 5b 52 30  5d 2c 23 31 0d 42 40 0d  |B R3,[R0],#1.B@.|
00009910  42 20 6c 70 5f 66 69 6c  74 0d 42 4a 04 0d 42 54  |B lp_filt.BJ..BT|
00009920  0e 2e 63 6f 72 65 5f 66  69 6c 74 0d 42 5e 16 3b  |..core_filt.B^.;|
00009930  20 52 30 2c 52 31 20 61  73 20 66 6f 72 20 61 6d  | R0,R1 as for am|
00009940  70 0d 42 68 14 3b 20 52  32 20 3d 20 68 69 67 68  |p.Bh.; R2 = high|
00009950  20 70 61 73 73 0d 42 72  13 3b 20 52 33 20 3d 20  | pass.Br.; R3 = |
00009960  6c 6f 77 20 70 61 73 73  0d 42 7c 11 3b 20 52 34  |low pass.B|.; R4|
00009970  20 3d 20 63 65 6e 74 72  65 0d 42 86 0d 43 4d 50  | = centre.B..CMP|
00009980  20 52 30 2c 52 31 0d 42  90 10 4d 4f 56 47 54 20  | R0,R1.B..MOVGT |
00009990  50 43 2c 52 31 34 0d 42  9a 13 4c 44 52 42 20 52  |PC,R14.B..LDRB R|
000099a0  35 2c 5b 52 30 5d 2c 23  31 0d 42 a4 0d 43 4d 50  |5,[R0],#1.B..CMP|
000099b0  20 52 35 2c 52 32 0d 42  ae 11 42 4c 54 20 63 6f  | R5,R2.B..BLT co|
000099c0  72 65 5f 66 69 6c 74 0d  42 b8 0d 43 4d 50 20 52  |re_filt.B..CMP R|
000099d0  35 2c 52 33 0d 42 c2 0f  4d 4f 56 4c 45 20 52 35  |5,R3.B..MOVLE R5|
000099e0  2c 52 34 0d 42 cc 14 53  54 52 42 20 52 35 2c 5b  |,R4.B..STRB R5,[|
000099f0  52 30 2c 23 2d 31 5d 0d  42 d6 0f 42 20 63 6f 72  |R0,#-1].B..B cor|
00009a00  65 5f 66 69 6c 74 0d 42  e0 04 0d 42 ea 08 2e 6d  |e_filt.B...B...m|
00009a10  69 78 0d 42 f4 19 3b 20  52 30 20 3d 20 73 61 6d  |ix.B..; R0 = sam|
00009a20  70 6c 65 20 41 20 73 74  61 72 74 0d 42 fe 17 3b  |ple A start.B..;|
00009a30  20 52 31 20 3d 20 73 61  6d 70 6c 65 20 41 20 65  | R1 = sample A e|
00009a40  6e 64 0d 43 08 21 3b 20  52 32 20 3d 20 73 61 6d  |nd.C.!; R2 = sam|
00009a50  70 6c 65 20 42 20 28 73  74 6f 72 65 29 20 73 74  |ple B (store) st|
00009a60  61 72 74 0d 43 12 17 3b  20 52 33 20 3d 20 73 61  |art.C..; R3 = sa|
00009a70  6d 70 6c 65 20 42 20 65  6e 64 0d 43 1c 18 3b 20  |mple B end.C..; |
00009a80  52 34 20 3d 20 73 61 6d  70 6c 65 20 63 65 6e 74  |R4 = sample cent|
00009a90  72 65 0d 43 26 0d 43 4d  50 20 52 30 2c 52 31 0d  |re.C&.CMP R0,R1.|
00009aa0  43 30 0f 43 4d 50 4c 45  20 52 32 2c 52 33 0d 43  |C0.CMPLE R2,R3.C|
00009ab0  3a 10 4d 4f 56 47 54 20  50 43 2c 52 31 34 0d 43  |:.MOVGT PC,R14.C|
00009ac0  44 13 4c 44 52 42 20 52  36 2c 5b 52 30 5d 2c 23  |D.LDRB R6,[R0],#|
00009ad0  31 0d 43 4e 10 4c 44 52  42 20 52 35 2c 5b 52 32  |1.CN.LDRB R5,[R2|
00009ae0  5d 0d 43 58 10 41 44 44  20 52 36 2c 52 36 2c 52  |].CX.ADD R6,R6,R|
00009af0  35 0d 43 62 10 53 55 42  20 52 36 2c 52 36 2c 52  |5.Cb.SUB R6,R6,R|
00009b00  34 0d 43 6c 13 53 54 52  42 20 52 36 2c 5b 52 32  |4.Cl.STRB R6,[R2|
00009b10  5d 2c 23 31 0d 43 76 09  42 20 6d 69 78 0d 43 80  |],#1.Cv.B mix.C.|
00009b20  04 0d 43 8a 0c 2e 63 6f  6e 76 65 72 74 0d 43 94  |..C...convert.C.|
00009b30  11 3b 20 52 30 20 3d 20  73 61 6d 70 6c 65 0d 43  |.; R0 = sample.C|
00009b40  9e 11 3b 20 52 31 20 3d  20 6c 65 6e 67 74 68 0d  |..; R1 = length.|
00009b50  43 a8 10 3b 20 52 32 20  3d 20 74 61 62 6c 65 0d  |C..; R2 = table.|
00009b60  43 b2 10 4c 44 52 42 20  52 33 2c 5b 52 30 5d 0d  |C..LDRB R3,[R0].|
00009b70  43 bc 13 4c 44 52 42 20  52 33 2c 5b 52 32 2c 52  |C..LDRB R3,[R2,R|
00009b80  33 5d 0d 43 c6 13 53 54  52 42 20 52 33 2c 5b 52  |3].C..STRB R3,[R|
00009b90  30 5d 2c 23 31 0d 43 d0  11 53 55 42 53 20 52 31  |0],#1.C..SUBS R1|
00009ba0  2c 52 31 2c 23 31 0d 43  da 0f 42 47 54 20 63 6f  |,R1,#1.C..BGT co|
00009bb0  6e 76 65 72 74 0d 43 e4  0e 4d 4f 56 20 50 43 2c  |nvert.C..MOV PC,|
00009bc0  52 31 34 0d 43 ee 04 0d  43 f8 09 2e 63 6f 70 79  |R14.C...C...copy|
00009bd0  0d 44 02 10 3b 20 52 30  20 3d 20 73 74 61 72 74  |.D..; R0 = start|
00009be0  0d 44 0c 0e 3b 20 52 31  20 3d 20 65 6e 64 0d 44  |.D..; R1 = end.D|
00009bf0  16 0e 3b 20 52 32 20 3d  20 64 73 74 0d 44 20 0d  |..; R2 = dst.D .|
00009c00  43 4d 50 20 52 32 2c 52  30 0d 44 2a 12 41 44 44  |CMP R2,R0.D*.ADD|
00009c10  47 54 20 52 32 2c 52 32  2c 52 31 0d 44 34 12 53  |GT R2,R2,R1.D4.S|
00009c20  55 42 47 54 20 52 32 2c  52 32 2c 52 30 0d 44 3e  |UBGT R2,R2,R0.D>|
00009c30  11 42 47 54 20 63 6f 70  79 5f 62 61 63 6b 0d 44  |.BGT copy_back.D|
00009c40  48 0c 2e 63 6f 70 79 5f  6c 70 0d 44 52 0d 43 4d  |H..copy_lp.DR.CM|
00009c50  50 20 52 30 2c 52 31 0d  44 5c 10 4d 4f 56 47 54  |P R0,R1.D\.MOVGT|
00009c60  20 50 43 2c 52 31 34 0d  44 66 13 4c 44 52 42 20  | PC,R14.Df.LDRB |
00009c70  52 33 2c 5b 52 30 5d 2c  23 31 0d 44 70 13 53 54  |R3,[R0],#1.Dp.ST|
00009c80  52 42 20 52 33 2c 5b 52  32 5d 2c 23 31 0d 44 7a  |RB R3,[R2],#1.Dz|
00009c90  0d 42 20 63 6f 70 79 5f  6c 70 0d 44 84 0e 2e 63  |.B copy_lp.D...c|
00009ca0  6f 70 79 5f 62 61 63 6b  0d 44 8e 0d 43 4d 50 20  |opy_back.D..CMP |
00009cb0  52 30 2c 52 31 0d 44 98  10 4d 4f 56 47 54 20 50  |R0,R1.D..MOVGT P|
00009cc0  43 2c 52 31 34 0d 44 a2  14 4c 44 52 42 20 52 33  |C,R14.D..LDRB R3|
00009cd0  2c 5b 52 31 5d 2c 23 2d  31 0d 44 ac 14 53 54 52  |,[R1],#-1.D..STR|
00009ce0  42 20 52 33 2c 5b 52 32  5d 2c 23 2d 31 0d 44 b6  |B R3,[R2],#-1.D.|
00009cf0  0f 42 20 63 6f 70 79 5f  62 61 63 6b 0d 44 c0 04  |.B copy_back.D..|
00009d00  0d 44 ca 0a 2e 62 6f 6f  73 74 0d 44 d4 16 3b 20  |.D...boost.D..; |
00009d10  52 30 2c 52 31 20 61 73  20 66 6f 72 20 61 6d 70  |R0,R1 as for amp|
00009d20  0d 44 de 1d 3b 20 52 32  20 3d 20 63 6f 6e 73 74  |.D..; R2 = const|
00009d30  20 28 3c 3c 31 32 29 20  74 61 62 6c 65 0d 44 e8  | (<<12) table.D.|
00009d40  1b 3b 20 52 33 20 3d 20  63 65 6e 74 72 65 20 28  |.; R3 = centre (|
00009d50  6f 6c 64 20 76 61 6c 29  0d 44 f2 0d 4d 4f 56 20  |old val).D..MOV |
00009d60  52 37 2c 52 33 0d 44 fc  0c 2e 62 6f 6f 73 74 6c  |R7,R3.D...boostl|
00009d70  70 0d 45 06 0d 43 4d 50  20 52 30 2c 52 31 0d 45  |p.E..CMP R0,R1.E|
00009d80  10 10 4d 4f 56 47 54 20  50 43 2c 52 31 34 0d 45  |..MOVGT PC,R14.E|
00009d90  1a 10 4c 44 52 42 20 52  34 2c 5b 52 30 5d 0d 45  |..LDRB R4,[R0].E|
00009da0  24 11 53 55 42 53 20 52  36 2c 52 34 2c 52 33 0d  |$.SUBS R6,R4,R3.|
00009db0  45 2e 12 52 53 42 4c 54  20 52 35 2c 52 36 2c 23  |E..RSBLT R5,R6,#|
00009dc0  30 0d 45 38 0f 4d 4f 56  47 45 20 52 35 2c 52 36  |0.E8.MOVGE R5,R6|
00009dd0  0d 45 42 18 4c 44 52 20  52 35 2c 5b 52 32 2c 52  |.EB.LDR R5,[R2,R|
00009de0  35 2c 4c 53 4c 23 32 5d  0d 45 4c 10 4d 55 4c 20  |5,LSL#2].EL.MUL |
00009df0  52 36 2c 52 35 2c 52 36  0d 45 56 18 41 44 44 53  |R6,R5,R6.EV.ADDS|
00009e00  20 52 36 2c 52 33 2c 52  36 2c 41 53 52 23 31 32  | R6,R3,R6,ASR#12|
00009e10  0d 45 60 0f 4d 4f 56 4c  54 20 52 36 2c 23 30 0d  |.E`.MOVLT R6,#0.|
00009e20  45 6a 11 43 4d 50 47 54  20 52 36 2c 23 32 35 35  |Ej.CMPGT R6,#255|
00009e30  0d 45 74 11 4d 4f 56 47  54 20 52 36 2c 23 32 35  |.Et.MOVGT R6,#25|
00009e40  35 0d 45 7e 13 53 54 52  42 20 52 36 2c 5b 52 30  |5.E~.STRB R6,[R0|
00009e50  5d 2c 23 31 0d 45 88 0d  4d 4f 56 20 52 33 2c 52  |],#1.E..MOV R3,R|
00009e60  34 0d 45 92 0d 4d 4f 56  20 52 37 2c 52 36 0d 45  |4.E..MOV R7,R6.E|
00009e70  9c 0d 42 20 62 6f 6f 73  74 6c 70 0d 45 a6 04 0d  |..B boostlp.E...|
00009e80  45 b0 0b 2e 66 61 64 65  69 6e 0d 45 ba 19 3b 20  |E...fadein.E..; |
00009e90  52 30 2c 52 31 2c 52 32  20 61 73 20 66 6f 72 20  |R0,R1,R2 as for |
00009ea0  61 6d 70 0d 45 c4 14 53  54 4d 46 44 20 52 31 33  |amp.E..STMFD R13|
00009eb0  21 2c 7b 52 31 34 7d 0d  45 ce 11 53 55 42 53 20  |!,{R14}.E..SUBS |
00009ec0  52 36 2c 52 31 2c 52 30  0d 45 d8 15 4c 44 4d 4c  |R6,R1,R0.E..LDML|
00009ed0  45 46 44 20 52 31 33 21  2c 7b 50 43 7d 0d 45 e2  |EFD R13!,{PC}.E.|
00009ee0  0d 4d 4f 56 20 52 33 2c  23 30 0d 45 ec 0a 2e 66  |.MOV R3,#0.E...f|
00009ef0  69 6e 6c 70 0d 45 f6 0d  43 4d 50 20 52 30 2c 52  |inlp.E..CMP R0,R|
00009f00  31 0d 46 00 15 4c 44 4d  47 54 46 44 20 52 31 33  |1.F..LDMGTFD R13|
00009f10  21 2c 7b 50 43 7d 0d 46  0a 10 4c 44 52 42 20 52  |!,{PC}.F..LDRB R|
00009f20  34 2c 5b 52 30 5d 0d 46  14 10 53 55 42 20 52 35  |4,[R0].F..SUB R5|
00009f30  2c 52 34 2c 52 32 0d 46  1e 11 4d 55 4c 53 20 52  |,R4,R2.F..MULS R|
00009f40  35 2c 52 33 2c 52 35 0d  46 28 0c ec 51 20 52 37  |5,R3,R5.F(..Q R7|
00009f50  2c 52 35 0d 46 32 0f 42  4c 4e 45 20 64 69 76 69  |,R5.F2.BLNE divi|
00009f60  64 65 0d 46 3c 11 41 44  44 53 20 52 34 2c 52 32  |de.F<.ADDS R4,R2|
00009f70  2c 52 37 0d 46 46 0f 4d  4f 56 4c 54 20 52 34 2c  |,R7.FF.MOVLT R4,|
00009f80  23 30 0d 46 50 11 43 4d  50 47 54 20 52 34 2c 23  |#0.FP.CMPGT R4,#|
00009f90  32 35 35 0d 46 5a 11 4d  4f 56 47 54 20 52 34 2c  |255.FZ.MOVGT R4,|
00009fa0  23 32 35 35 0d 46 64 13  53 54 52 42 20 52 34 2c  |#255.Fd.STRB R4,|
00009fb0  5b 52 30 5d 2c 23 31 0d  46 6e 10 41 44 44 20 52  |[R0],#1.Fn.ADD R|
00009fc0  33 2c 52 33 2c 23 31 0d  46 78 0b 42 20 66 69 6e  |3,R3,#1.Fx.B fin|
00009fd0  6c 70 0d 46 82 04 0d 46  8c 0c 2e 66 61 64 65 6f  |lp.F...F...fadeo|
00009fe0  75 74 0d 46 96 14 53 54  4d 46 44 20 52 31 33 21  |ut.F..STMFD R13!|
00009ff0  2c 7b 52 31 34 7d 0d 46  a0 11 53 55 42 53 20 52  |,{R14}.F..SUBS R|
0000a000  36 2c 52 31 2c 52 30 0d  46 aa 15 4c 44 4d 4c 45  |6,R1,R0.F..LDMLE|
0000a010  46 44 20 52 31 33 21 2c  7b 50 43 7d 0d 46 b4 0d  |FD R13!,{PC}.F..|
0000a020  4d 4f 56 20 52 33 2c 52  36 0d 46 be 0b 2e 66 6f  |MOV R3,R6.F...fo|
0000a030  75 74 6c 70 0d 46 c8 0d  43 4d 50 20 52 30 2c 52  |utlp.F..CMP R0,R|
0000a040  31 0d 46 d2 15 4c 44 4d  47 54 46 44 20 52 31 33  |1.F..LDMGTFD R13|
0000a050  21 2c 7b 50 43 7d 0d 46  dc 10 4c 44 52 42 20 52  |!,{PC}.F..LDRB R|
0000a060  34 2c 5b 52 30 5d 0d 46  e6 10 53 55 42 20 52 35  |4,[R0].F..SUB R5|
0000a070  2c 52 34 2c 52 32 0d 46  f0 11 4d 55 4c 53 20 52  |,R4,R2.F..MULS R|
0000a080  35 2c 52 33 2c 52 35 0d  46 fa 0c ec 51 20 52 37  |5,R3,R5.F...Q R7|
0000a090  2c 52 35 0d 47 04 0f 42  4c 4e 45 20 64 69 76 69  |,R5.G..BLNE divi|
0000a0a0  64 65 0d 47 0e 11 41 44  44 53 20 52 34 2c 52 32  |de.G..ADDS R4,R2|
0000a0b0  2c 52 37 0d 47 18 0f 4d  4f 56 4c 54 20 52 34 2c  |,R7.G..MOVLT R4,|
0000a0c0  23 30 0d 47 22 11 43 4d  50 47 54 20 52 34 2c 23  |#0.G".CMPGT R4,#|
0000a0d0  32 35 35 0d 47 2c 11 4d  4f 56 47 54 20 52 34 2c  |255.G,.MOVGT R4,|
0000a0e0  23 32 35 35 0d 47 36 13  53 54 52 42 20 52 34 2c  |#255.G6.STRB R4,|
0000a0f0  5b 52 30 5d 2c 23 31 0d  47 40 10 53 55 42 20 52  |[R0],#1.G@.SUB R|
0000a100  33 2c 52 33 2c 23 31 0d  47 4a 0c 42 20 66 6f 75  |3,R3,#1.GJ.B fou|
0000a110  74 6c 70 0d 47 54 04 0d  47 5e 0b 2e 64 69 76 69  |tlp.GT..G^..divi|
0000a120  64 65 0d 47 68 16 3b 20  3c 20 52 35 20 3d 20 6e  |de.Gh.; < R5 = n|
0000a130  75 6d 65 72 61 74 6f 72  0d 47 72 18 3b 20 20 20  |umerator.Gr.;   |
0000a140  52 36 20 3d 20 64 65 6e  6f 6d 69 6e 61 74 6f 72  |R6 = denominator|
0000a150  0d 47 7c 1f 3b 20 3e 20  52 37 20 3d 20 72 65 73  |.G|.; > R7 = res|
0000a160  75 6c 74 20 6f 66 20 64  69 76 69 73 69 6f 6e 0d  |ult of division.|
0000a170  47 86 26 53 54 4d 46 44  20 52 31 33 21 2c 7b 52  |G.&STMFD R13!,{R|
0000a180  30 2c 52 31 2c 52 32 2c  52 33 2c 52 34 2c 52 35  |0,R1,R2,R3,R4,R5|
0000a190  2c 52 31 34 7d 0d 47 90  0d 4d 4f 56 20 52 30 2c  |,R14}.G..MOV R0,|
0000a1a0  52 35 0d 47 9a 0d 4d 4f  56 20 52 31 2c 52 36 0d  |R5.G..MOV R1,R6.|
0000a1b0  47 a4 0d 43 4d 50 20 52  31 2c 23 30 0d 47 ae 0b  |G..CMP R1,#0.G..|
0000a1c0  42 45 51 20 65 6e 64 0d  47 b8 0d 4d 4f 56 20 52  |BEQ end.G..MOV R|
0000a1d0  35 2c 23 31 0d 47 c2 0d  43 4d 50 20 52 30 2c 23  |5,#1.G..CMP R0,#|
0000a1e0  30 0d 47 cc 1e 4d 56 4e  4c 54 20 52 35 2c 52 35  |0.G..MVNLT R5,R5|
0000a1f0  3a 52 53 42 4c 54 20 52  30 2c 52 30 2c 23 30 0d  |:RSBLT R0,R0,#0.|
0000a200  47 d6 0d 43 4d 50 20 52  31 2c 23 30 0d 47 e0 1e  |G..CMP R1,#0.G..|
0000a210  4d 56 4e 4c 54 20 52 35  2c 52 35 3a 52 53 42 4c  |MVNLT R5,R5:RSBL|
0000a220  54 20 52 31 2c 52 31 2c  23 30 0d 47 ea 0d 4d 4f  |T R1,R1,#0.G..MO|
0000a230  56 20 52 32 2c 23 30 0d  47 f4 0d 4d 4f 56 20 52  |V R2,#0.G..MOV R|
0000a240  33 2c 23 30 0d 47 fe 0d  4d 4f 56 20 52 34 2c 23  |3,#0.G..MOV R4,#|
0000a250  31 0d 48 08 0c 2e 64 69  76 5f 6c 70 31 0d 48 12  |1.H...div_lp1.H.|
0000a260  10 41 44 44 20 52 32 2c  52 32 2c 23 31 0d 48 1c  |.ADD R2,R2,#1.H.|
0000a270  13 4d 4f 56 20 52 31 2c  52 31 2c 41 53 4c 23 31  |.MOV R1,R1,ASL#1|
0000a280  0d 48 26 0d 43 4d 50 20  52 31 2c 52 30 0d 48 30  |.H&.CMP R1,R0.H0|
0000a290  0f 42 4c 45 20 64 69 76  5f 6c 70 31 0d 48 3a 0c  |.BLE div_lp1.H:.|
0000a2a0  2e 64 69 76 5f 6c 70 32  0d 48 44 10 53 55 42 20  |.div_lp2.HD.SUB |
0000a2b0  52 32 2c 52 32 2c 23 31  0d 48 4e 13 4d 4f 56 20  |R2,R2,#1.HN.MOV |
0000a2c0  52 31 2c 52 31 2c 41 53  52 23 31 0d 48 58 0d 43  |R1,R1,ASR#1.HX.C|
0000a2d0  4d 50 20 52 30 2c 52 31  0d 48 62 0f 42 4c 54 20  |MP R0,R1.Hb.BLT |
0000a2e0  64 69 76 5f 6c 70 32 0d  48 6c 0d 43 4d 50 20 52  |div_lp2.Hl.CMP R|
0000a2f0  31 2c 23 30 0d 48 76 19  41 44 44 47 45 20 52 33  |1,#0.Hv.ADDGE R3|
0000a300  2c 52 33 2c 52 34 2c 41  53 4c 20 52 32 0d 48 80  |,R3,R4,ASL R2.H.|
0000a310  10 53 55 42 20 52 30 2c  52 30 2c 52 31 0d 48 8a  |.SUB R0,R0,R1.H.|
0000a320  0d 43 4d 50 20 52 32 2c  23 30 0d 48 94 0f 42 47  |.CMP R2,#0.H..BG|
0000a330  54 20 64 69 76 5f 6c 70  32 0d 48 9e 0d 43 4d 50  |T div_lp2.H..CMP|
0000a340  20 52 35 2c 23 30 0d 48  a8 12 52 53 42 4c 54 20  | R5,#0.H..RSBLT |
0000a350  52 33 2c 52 33 2c 23 30  0d 48 b2 0d 4d 4f 56 20  |R3,R3,#0.H..MOV |
0000a360  52 32 2c 52 33 0d 48 bc  08 2e 65 6e 64 0d 48 c6  |R2,R3.H...end.H.|
0000a370  0d 4d 4f 56 20 52 37 2c  52 32 0d 48 d0 25 4c 44  |.MOV R7,R2.H.%LD|
0000a380  4d 46 44 20 52 31 33 21  2c 7b 52 30 2c 52 31 2c  |MFD R13!,{R0,R1,|
0000a390  52 32 2c 52 33 2c 52 34  2c 52 35 2c 50 43 7d 0d  |R2,R3,R4,R5,PC}.|
0000a3a0  48 da 04 0d 48 e4 16 5d  3a 50 25 3d 63 6c 61 69  |H...H..]:P%=clai|
0000a3b0  6d 65 64 5f 63 6f 64 65  25 0d 48 ee 0f 5b 4f 50  |med_code%.H..[OP|
0000a3c0  54 20 6f 70 74 25 80 33  0d 48 f8 04 0d 49 02 0a  |T opt%.3.H...I..|
0000a3d0  2e 56 62 61 73 65 0d 49  0c 0b 42 20 56 66 69 6c  |.Vbase.I..B Vfil|
0000a3e0  6c 0d 49 16 0b 42 20 56  66 69 6c 6c 0d 49 20 0a  |l.I..B Vfill.I .|
0000a3f0  42 20 56 67 6f 6e 0d 49  2a 0b 42 20 56 67 6f 66  |B Vgon.I*.B Vgof|
0000a400  66 0d 49 34 0b 42 20 56  69 6e 73 74 0d 49 3e 13  |f.I4.B Vinst.I>.|
0000a410  4c 44 4d 46 44 20 52 31  33 21 2c 7b 50 43 7d 0d  |LDMFD R13!,{PC}.|
0000a420  49 48 13 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |IH.LDMFD R13!,{P|
0000a430  43 7d 0d 49 52 13 44 43  44 20 56 6e 61 6d 65 2d  |C}.IR.DCD Vname-|
0000a440  56 62 61 73 65 0d 49 5c  04 0d 49 66 0a 2e 56 6e  |Vbase.I\..If..Vn|
0000a450  61 6d 65 0d 49 70 12 44  43 42 20 22 45 66 66 65  |ame.Ip.DCB "Effe|
0000a460  78 22 2b bd 30 0d 49 7a  09 41 4c 49 47 4e 0d 49  |x"+.0.Iz.ALIGN.I|
0000a470  84 04 0d 49 8e 0a 2e 56  69 6e 73 74 0d 49 98 16  |...I...Vinst.I..|
0000a480  53 54 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |STMFD R13!,{R0-R|
0000a490  34 7d 0d 49 a2 0d 4d 4f  56 20 52 30 2c 23 30 0d  |4}.I..MOV R0,#0.|
0000a4a0  49 ac 0d 4d 4f 56 20 52  31 2c 23 30 0d 49 b6 0d  |I..MOV R1,#0.I..|
0000a4b0  4d 4f 56 20 52 32 2c 23  30 0d 49 c0 0d 4d 4f 56  |MOV R2,#0.I..MOV|
0000a4c0  20 52 33 2c 23 30 0d 49  ca 0d 4d 4f 56 20 52 34  | R3,#0.I..MOV R4|
0000a4d0  2c 23 30 0d 49 d4 1a 53  57 49 20 22 58 53 6f 75  |,#0.I..SWI "XSou|
0000a4e0  6e 64 5f 43 6f 6e 66 69  67 75 72 65 22 0d 49 de  |nd_Configure".I.|
0000a4f0  15 4c 44 52 56 43 20 52  30 2c 5b 52 33 2c 23 31  |.LDRVC R0,[R3,#1|
0000a500  32 5d 0d 49 e8 14 53 54  52 56 43 20 52 30 2c 56  |2].I..STRVC R0,V|
0000a510  6c 61 5f 70 74 72 0d 49  f2 12 53 54 52 56 53 20  |la_ptr.I..STRVS |
0000a520  52 30 2c 5b 52 31 33 5d  0d 49 fc 19 4c 44 4d 46  |R0,[R13].I..LDMF|
0000a530  44 20 52 31 33 21 2c 7b  52 30 2d 52 34 2c 50 43  |D R13!,{R0-R4,PC|
0000a540  7d 0d 4a 06 04 0d 4a 10  0a 2e 56 73 70 6f 73 0d  |}.J...J...Vspos.|
0000a550  4a 1a 09 44 43 44 20 30  0d 4a 24 04 0d 4a 2e 0a  |J..DCD 0.J$..J..|
0000a560  2e 56 73 65 6e 64 0d 4a  38 09 44 43 44 20 30 0d  |.Vsend.J8.DCD 0.|
0000a570  4a 42 04 0d 4a 4c 0c 2e  56 6c 61 5f 70 74 72 0d  |JB..JL..Vla_ptr.|
0000a580  4a 56 09 44 43 44 20 30  0d 4a 60 04 0d 4a 6a 0e  |JV.DCD 0.J`..Jj.|
0000a590  2e 56 63 6f 6e 76 5f 74  61 62 0d 4a 74 09 44 43  |.Vconv_tab.Jt.DC|
0000a5a0  44 20 30 0d 4a 7e 04 0d  4a 88 09 2e 56 76 6f 6c  |D 0.J~..J...Vvol|
0000a5b0  0d 4a 92 11 44 43 42 20  31 32 37 3a 41 4c 49 47  |.J..DCB 127:ALIG|
0000a5c0  4e 0d 4a 9c 04 0d 4a a6  0d 2e 56 63 6f 6d 6d 61  |N.J...J...Vcomma|
0000a5d0  6e 64 0d 4a b0 09 44 43  44 20 30 0d 4a ba 04 0d  |nd.J..DCD 0.J...|
0000a5e0  4a c4 0d 2e 56 63 6f 75  6e 74 65 72 0d 4a ce 09  |J...Vcounter.J..|
0000a5f0  44 43 44 20 30 0d 4a d8  04 0d 4a e2 0e 2e 56 63  |DCD 0.J...J...Vc|
0000a600  6f 6d 6d 5f 6f 66 66 0d  4a ec 0d 4d 4f 56 20 52  |omm_off.J..MOV R|
0000a610  30 2c 23 30 0d 4a f6 13  53 54 52 20 52 30 2c 56  |0,#0.J..STR R0,V|
0000a620  63 6f 6d 6d 61 6e 64 0d  4b 00 0d 42 20 56 66 69  |command.K..B Vfi|
0000a630  6e 69 73 68 0d 4b 0a 04  0d 4b 14 09 2e 56 67 6f  |nish.K...K...Vgo|
0000a640  6e 0d 4b 1e 10 4c 44 52  20 52 30 2c 56 73 70 6f  |n.K..LDR R0,Vspo|
0000a650  73 0d 4b 28 13 53 54 52  20 52 30 2c 56 63 6f 75  |s.K(.STR R0,Vcou|
0000a660  6e 74 65 72 0d 4b 32 13  53 54 52 20 52 30 2c 5b  |nter.K2.STR R0,[|
0000a670  52 39 2c 23 31 36 5d 0d  4b 3c 12 4c 44 52 20 52  |R9,#16].K<.LDR R|
0000a680  30 2c 56 6c 61 5f 70 74  72 0d 4b 46 13 53 54 52  |0,Vla_ptr.KF.STR|
0000a690  20 52 30 2c 5b 52 39 2c  23 32 30 5d 0d 4b 50 04  | R0,[R9,#20].KP.|
0000a6a0  0d 4b 5a 0a 2e 56 66 69  6c 6c 0d 4b 64 14 4c 44  |.KZ..Vfill.Kd.LD|
0000a6b0  4d 49 42 20 52 39 2c 7b  52 32 2d 52 36 7d 0d 4b  |MIB R9,{R2-R6}.K|
0000a6c0  6e 13 4c 44 52 20 52 30  2c 56 63 6f 6d 6d 61 6e  |n.LDR R0,Vcomman|
0000a6d0  64 0d 4b 78 0d 43 4d 50  20 52 30 2c 23 31 0d 4b  |d.Kx.CMP R0,#1.K|
0000a6e0  82 11 42 45 51 20 56 63  6f 6d 6d 5f 6f 66 66 0d  |..BEQ Vcomm_off.|
0000a6f0  4b 8c 14 4c 44 52 20 52  37 2c 56 63 6f 6e 76 5f  |K..LDR R7,Vconv_|
0000a700  74 61 62 0d 4b 96 0f 4c  44 52 20 52 31 2c 56 76  |tab.K..LDR R1,Vv|
0000a710  6f 6c 0d 4b a0 10 80 20  52 31 2c 52 31 2c 23 31  |ol.K... R1,R1,#1|
0000a720  32 37 0d 4b aa 19 4c 44  52 42 20 52 31 2c 5b 52  |27.K..LDRB R1,[R|
0000a730  36 2c 52 31 2c 4c 53 4c  23 31 5d 0d 4b b4 13 4d  |6,R1,LSL#1].K..M|
0000a740  4f 56 20 52 31 2c 52 31  2c 4c 53 52 23 31 0d 4b  |OV R1,R1,LSR#1.K|
0000a750  be 12 52 53 42 20 52 31  2c 52 31 2c 23 31 32 37  |..RSB R1,R1,#127|
0000a760  0d 4b c8 04 0d 4b d2 0d  2e 56 66 69 6c 6c 5f 6c  |.K...K...Vfill_l|
0000a770  70 0d 4b dc 10 4c 44 52  20 52 30 2c 56 73 65 6e  |p.K..LDR R0,Vsen|
0000a780  64 0d 4b e6 13 4c 44 52  20 52 35 2c 56 63 6f 75  |d.K..LDR R5,Vcou|
0000a790  6e 74 65 72 0d 4b f0 0d  54 45 51 20 52 35 2c 23  |nter.K..TEQ R5,#|
0000a7a0  30 0d 4b fa 16 53 54 4d  45 51 49 42 20 52 39 2c  |0.K..STMEQIB R9,|
0000a7b0  7b 52 32 2d 52 35 7d 0d  4c 04 0f 42 45 51 20 56  |{R2-R5}.L..BEQ V|
0000a7c0  66 69 6e 69 73 68 0d 4c  0e 0d 43 4d 50 20 52 35  |finish.L..CMP R5|
0000a7d0  2c 52 30 0d 4c 18 16 53  54 4d 47 45 49 42 20 52  |,R0.L..STMGEIB R|
0000a7e0  39 2c 7b 52 32 2d 52 35  7d 0d 4c 22 0f 42 47 45  |9,{R2-R5}.L".BGE|
0000a7f0  20 56 66 69 6e 69 73 68  0d 4c 2c 17 41 44 44 20  | Vfinish.L,.ADD |
0000a800  52 32 2c 52 32 2c 52 32  2c 4c 53 4c 23 31 36 0d  |R2,R2,R2,LSL#16.|
0000a810  4c 36 1a 4c 44 52 42 20  52 30 2c 5b 52 35 2c 52  |L6.LDRB R0,[R5,R|
0000a820  32 2c 4c 53 52 23 32 34  5d 0d 4c 40 13 4c 44 52  |2,LSR#24].L@.LDR|
0000a830  42 20 52 30 2c 5b 52 37  2c 52 30 5d 0d 4c 4a 17  |B R0,[R7,R0].LJ.|
0000a840  53 55 42 53 20 52 30 2c  52 30 2c 52 31 2c 4c 53  |SUBS R0,R0,R1,LS|
0000a850  4c 23 31 0d 4c 54 0f 4d  4f 56 4d 49 20 52 30 2c  |L#1.LT.MOVMI R0,|
0000a860  23 30 0d 4c 5e 15 53 54  52 42 20 52 30 2c 5b 52  |#0.L^.STRB R0,[R|
0000a870  31 32 5d 2c 52 31 31 0d  4c 68 17 41 44 44 20 52  |12],R11.Lh.ADD R|
0000a880  32 2c 52 32 2c 52 32 2c  4c 53 4c 23 31 36 0d 4c  |2,R2,R2,LSL#16.L|
0000a890  72 1a 4c 44 52 42 20 52  30 2c 5b 52 35 2c 52 32  |r.LDRB R0,[R5,R2|
0000a8a0  2c 4c 53 52 23 32 34 5d  0d 4c 7c 13 4c 44 52 42  |,LSR#24].L|.LDRB|
0000a8b0  20 52 30 2c 5b 52 37 2c  52 30 5d 0d 4c 86 17 53  | R0,[R7,R0].L..S|
0000a8c0  55 42 53 20 52 30 2c 52  30 2c 52 31 2c 4c 53 4c  |UBS R0,R0,R1,LSL|
0000a8d0  23 31 0d 4c 90 0f 4d 4f  56 4d 49 20 52 30 2c 23  |#1.L..MOVMI R0,#|
0000a8e0  30 0d 4c 9a 15 53 54 52  42 20 52 30 2c 5b 52 31  |0.L..STRB R0,[R1|
0000a8f0  32 5d 2c 52 31 31 0d 4c  a4 17 41 44 44 20 52 32  |2],R11.L..ADD R2|
0000a900  2c 52 32 2c 52 32 2c 4c  53 4c 23 31 36 0d 4c ae  |,R2,R2,LSL#16.L.|
0000a910  1a 4c 44 52 42 20 52 30  2c 5b 52 35 2c 52 32 2c  |.LDRB R0,[R5,R2,|
0000a920  4c 53 52 23 32 34 5d 0d  4c b8 13 4c 44 52 42 20  |LSR#24].L..LDRB |
0000a930  52 30 2c 5b 52 37 2c 52  30 5d 0d 4c c2 17 53 55  |R0,[R7,R0].L..SU|
0000a940  42 53 20 52 30 2c 52 30  2c 52 31 2c 4c 53 4c 23  |BS R0,R0,R1,LSL#|
0000a950  31 0d 4c cc 0f 4d 4f 56  4d 49 20 52 30 2c 23 30  |1.L..MOVMI R0,#0|
0000a960  0d 4c d6 15 53 54 52 42  20 52 30 2c 5b 52 31 32  |.L..STRB R0,[R12|
0000a970  5d 2c 52 31 31 0d 4c e0  17 41 44 44 20 52 32 2c  |],R11.L..ADD R2,|
0000a980  52 32 2c 52 32 2c 4c 53  4c 23 31 36 0d 4c ea 1b  |R2,R2,LSL#16.L..|
0000a990  4c 44 52 42 20 52 30 2c  5b 52 35 2c 52 32 2c 4c  |LDRB R0,[R5,R2,L|
0000a9a0  53 52 23 32 34 5d 21 0d  4c f4 13 53 54 52 20 52  |SR#24]!.L..STR R|
0000a9b0  35 2c 56 63 6f 75 6e 74  65 72 0d 4c fe 13 4c 44  |5,Vcounter.L..LD|
0000a9c0  52 42 20 52 30 2c 5b 52  37 2c 52 30 5d 0d 4d 08  |RB R0,[R7,R0].M.|
0000a9d0  17 53 55 42 53 20 52 30  2c 52 30 2c 52 31 2c 4c  |.SUBS R0,R0,R1,L|
0000a9e0  53 4c 23 31 0d 4d 12 0f  4d 4f 56 4d 49 20 52 30  |SL#1.M..MOVMI R0|
0000a9f0  2c 23 30 0d 4d 1c 15 53  54 52 42 20 52 30 2c 5b  |,#0.M..STRB R0,[|
0000aa00  52 31 32 5d 2c 52 31 31  0d 4d 26 18 42 49 43 20  |R12],R11.M&.BIC |
0000aa10  52 32 2c 52 32 2c 23 26  46 46 30 30 30 30 30 30  |R2,R2,#&FF000000|
0000aa20  0d 4d 30 0f 43 4d 50 20  52 31 32 2c 52 31 30 0d  |.M0.CMP R12,R10.|
0000aa30  4d 3a 10 42 4c 54 20 56  66 69 6c 6c 5f 6c 70 0d  |M:.BLT Vfill_lp.|
0000aa40  4d 44 11 53 55 42 53 20  52 34 2c 52 34 2c 23 31  |MD.SUBS R4,R4,#1|
0000aa50  0d 4d 4e 14 53 54 4d 49  42 20 52 39 2c 7b 52 32  |.MN.STMIB R9,{R2|
0000aa60  2d 52 35 7d 0d 4d 58 13  4d 4f 56 50 4c 20 52 30  |-R5}.MX.MOVPL R0|
0000aa70  2c 23 25 31 30 30 30 0d  4d 62 11 4d 4f 56 4d 49  |,#%1000.Mb.MOVMI|
0000aa80  20 52 30 2c 23 25 31 30  0d 4d 6c 13 4c 44 4d 46  | R0,#%10.Ml.LDMF|
0000aa90  44 20 52 31 33 21 2c 7b  50 43 7d 0d 4d 76 04 0d  |D R13!,{PC}.Mv..|
0000aaa0  4d 80 0c 2e 56 66 69 6e  69 73 68 0d 4d 8a 0d 4d  |M...Vfinish.M..M|
0000aab0  4f 56 20 52 30 2c 23 30  0d 4d 94 0b 2e 56 66 69  |OV R0,#0.M...Vfi|
0000aac0  6e 6c 70 0d 4d 9e 15 53  54 52 42 20 52 30 2c 5b  |nlp.M..STRB R0,[|
0000aad0  52 31 32 5d 2c 52 31 31  0d 4d a8 15 53 54 52 42  |R12],R11.M..STRB|
0000aae0  20 52 30 2c 5b 52 31 32  5d 2c 52 31 31 0d 4d b2  | R0,[R12],R11.M.|
0000aaf0  15 53 54 52 42 20 52 30  2c 5b 52 31 32 5d 2c 52  |.STRB R0,[R12],R|
0000ab00  31 31 0d 4d bc 15 53 54  52 42 20 52 30 2c 5b 52  |11.M..STRB R0,[R|
0000ab10  31 32 5d 2c 52 31 31 0d  4d c6 0d 4d 56 4e 20 52  |12],R11.M..MVN R|
0000ab20  34 2c 23 31 0d 4d d0 14  53 54 4d 49 42 20 52 39  |4,#1.M..STMIB R9|
0000ab30  2c 7b 52 32 2d 52 35 7d  0d 4d da 0f 4d 4f 56 20  |,{R2-R5}.M..MOV |
0000ab40  52 30 2c 23 25 31 30 0d  4d e4 13 4c 44 4d 46 44  |R0,#%10.M..LDMFD|
0000ab50  20 52 31 33 21 2c 7b 50  43 7d 0d 4d ee 04 0d 4d  | R13!,{PC}.M...M|
0000ab60  f8 0a 2e 56 67 6f 66 66  0d 4e 02 0d 4d 4f 56 20  |...Vgoff.N..MOV |
0000ab70  52 30 2c 23 30 0d 4e 0c  0b 2e 56 66 6c 75 73 68  |R0,#0.N...Vflush|
0000ab80  0d 4e 16 15 53 54 52 42  20 52 30 2c 5b 52 31 32  |.N..STRB R0,[R12|
0000ab90  5d 2c 52 31 31 0d 4e 20  15 53 54 52 42 20 52 30  |],R11.N .STRB R0|
0000aba0  2c 5b 52 31 32 5d 2c 52  31 31 0d 4e 2a 15 53 54  |,[R12],R11.N*.ST|
0000abb0  52 42 20 52 30 2c 5b 52  31 32 5d 2c 52 31 31 0d  |RB R0,[R12],R11.|
0000abc0  4e 34 15 53 54 52 42 20  52 30 2c 5b 52 31 32 5d  |N4.STRB R0,[R12]|
0000abd0  2c 52 31 31 0d 4e 3e 0f  43 4d 50 20 52 31 32 2c  |,R11.N>.CMP R12,|
0000abe0  52 31 30 0d 4e 48 0e 42  4c 54 20 56 66 6c 75 73  |R10.NH.BLT Vflus|
0000abf0  68 0d 4e 52 0d 4d 4f 56  20 52 30 2c 23 31 0d 4e  |h.NR.MOV R0,#1.N|
0000ac00  5c 13 4c 44 4d 46 44 20  52 31 33 21 2c 7b 50 43  |\.LDMFD R13!,{PC|
0000ac10  7d 0d 4e 66 04 0d 4e 70  0e 2e 74 61 62 5f 73 74  |}.Nf..Np..tab_st|
0000ac20  61 72 74 0d 4e 7a 07 5d  3a ed 0d 4e 84 05 e1 0d  |art.Nz.]:..N....|
0000ac30  4e 8e 04 0d 4e 98 04 0d  4e a2 1e f4 20 2a 2a 20  |N...N...N... ** |
0000ac40  23 23 20 2e 2e 2e 20 64  61 74 61 20 2e 2e 2e 20  |## ... data ... |
0000ac50  23 23 20 2a 2a 0d 4e ac  04 0d 4e b6 19 f4 20 2a  |## **.N...N... *|
0000ac60  2a 20 74 65 6d 70 6c 61  74 65 20 64 61 74 61 20  |* template data |
0000ac70  2a 2a 0d 4e c0 04 0d 4e  ca 1d dc 20 22 3c 45 66  |**.N...N... "<Ef|
0000ac80  66 65 78 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |fex$Dir>.Templat|
0000ac90  65 73 22 0d 4e d4 18 dc  20 20 20 6d 61 69 6e 2c  |es".N...   main,|
0000aca0  77 69 6e 5f 6d 61 69 6e  25 2c 30 0d 4e de 18 dc  |win_main%,0.N...|
0000acb0  20 20 20 70 61 6e 65 2c  77 69 6e 5f 70 61 6e 65  |   pane,win_pane|
0000acc0  25 2c 30 0d 4e e8 18 dc  20 20 20 69 6e 66 6f 2c  |%,0.N...   info,|
0000acd0  77 69 6e 5f 69 6e 66 6f  25 2c 30 0d 4e f2 1e dc  |win_info%,0.N...|
0000ace0  20 20 20 6c 6f 61 64 5f  71 75 65 72 79 2c 77 69  |   load_query,wi|
0000acf0  6e 5f 6c 6f 61 64 25 2c  30 0d 4e fc 16 dc 20 20  |n_load%,0.N...  |
0000ad00  20 73 61 76 65 2c 77 69  6e 5f 73 61 76 65 25 0d  | save,win_save%.|
0000ad10  4f 06 1b dc 20 20 20 20  20 38 38 2b 32 34 2c 73  |O...     88+24,s|
0000ad20  61 76 65 5f 76 61 6c 69  64 25 0d 4f 10 1e dc 20  |ave_valid%.O... |
0000ad30  20 20 20 20 38 38 2b 32  30 2b 33 32 2c 73 61 76  |    88+20+32,sav|
0000ad40  65 5f 74 78 74 25 2c 30  0d 4f 1a 23 dc 20 20 20  |e_txt%,0.O.#.   |
0000ad50  73 61 6d 70 6c 65 5f 69  6e 66 6f 2c 77 69 6e 5f  |sample_info,win_|
0000ad60  73 61 6d 70 69 6e 66 6f  25 2c 30 0d 4f 24 09 dc  |sampinfo%,0.O$..|
0000ad70  20 30 2c 30 0d 4f 2e 04  0d 4f 38 04 0d 4f 42 04  | 0,0.O...O8..OB.|
0000ad80  0d 4f 4c 1f f4 20 2a 2a  20 23 23 20 2e 2e 2e 20  |.OL.. ** ## ... |
0000ad90  74 6f 6f 6c 73 20 2e 2e  2e 20 23 23 20 2a 2a 0d  |tools ... ## **.|
0000ada0  4f 56 04 0d 4f 60 17 f4  20 2a 2a 20 54 6f 6f 6c  |OV..O`.. ** Tool|
0000adb0  20 3d 20 6d 65 6e 75 20  2a 2a 0d 4f 6a 04 0d 4f  | = menu **.Oj..O|
0000adc0  74 22 dd f2 58 6d 65 6e  75 5f 61 64 64 69 74 65  |t"..Xmenu_addite|
0000add0  6d 28 69 74 65 6d 24 2c  73 75 62 5f 69 64 25 29  |m(item$,sub_id%)|
0000ade0  0d 4f 7e 1b ea 20 61 25  2c 77 69 64 25 3a 61 25  |.O~.. a%,wid%:a%|
0000adf0  3d 58 6d 65 6e 75 5f 70  6f 73 25 0d 4f 88 31 e7  |=Xmenu_pos%.O.1.|
0000ae00  20 a9 69 74 65 6d 24 3e  31 32 20 f2 58 6d 65 6e  | .item$>12 .Xmen|
0000ae10  75 5f 61 64 64 6c 6f 6e  67 28 69 74 65 6d 24 2c  |u_addlong(item$,|
0000ae20  30 2c 73 75 62 5f 69 64  25 29 3a e1 0d 4f 92 0f  |0,sub_id%):..O..|
0000ae30  77 69 64 25 3d a9 69 74  65 6d 24 0d 4f 9c 33 e7  |wid%=.item$.O.3.|
0000ae40  20 58 6d 65 6e 75 5f 70  6f 73 25 2b 32 34 3e 58  | Xmenu_pos%+24>X|
0000ae50  6d 65 6e 75 5f 65 6e 64  25 20 85 20 31 2c 22 4d  |menu_end% . 1,"M|
0000ae60  65 6e 75 20 61 72 65 61  20 66 75 6c 6c 22 0d 4f  |enu area full".O|
0000ae70  a6 16 21 61 25 3d 30 3a  61 25 21 34 3d 73 75 62  |..!a%=0:a%!4=sub|
0000ae80  5f 69 64 25 0d 4f b0 12  61 25 21 38 3d 26 30 37  |_id%.O..a%!8=&07|
0000ae90  30 30 30 30 32 31 0d 4f  ba 12 24 28 61 25 2b 31  |000021.O..$(a%+1|
0000aea0  32 29 3d 69 74 65 6d 24  0d 4f c4 12 72 30 25 3d  |2)=item$.O..r0%=|
0000aeb0  58 6d 65 6e 75 5f 70 6f  73 25 0d 4f ce 12 58 6d  |Xmenu_pos%.O..Xm|
0000aec0  65 6e 75 5f 70 6f 73 25  2b 3d 32 34 0d 4f d8 25  |enu_pos%+=24.O.%|
0000aed0  e7 20 58 6d 65 6e 75 5f  77 69 64 25 3c 77 69 64  |. Xmenu_wid%<wid|
0000aee0  25 20 58 6d 65 6e 75 5f  77 69 64 25 3d 77 69 64  |% Xmenu_wid%=wid|
0000aef0  25 0d 4f e2 15 58 6d 65  6e 75 5f 68 65 69 67 68  |%.O..Xmenu_heigh|
0000af00  74 25 2b 3d 34 34 0d 4f  ec 05 e1 0d 4f f6 04 0d  |t%+=44.O....O...|
0000af10  50 00 31 dd f2 58 6d 65  6e 75 5f 61 64 64 77 72  |P.1..Xmenu_addwr|
0000af20  73 28 74 69 74 6c 65 24  2c 76 61 6c 69 64 24 2c  |s(title$,valid$,|
0000af30  64 65 66 61 75 6c 74 24  2c f8 20 69 6e 64 25 29  |default$,. ind%)|
0000af40  0d 50 0a 27 ea 20 76 6c  25 2c 61 25 2c 77 69 64  |.P.'. vl%,a%,wid|
0000af50  25 2c 76 61 6c 25 2c 62  25 3a 76 6c 25 3d a9 76  |%,val%,b%:vl%=.v|
0000af60  61 6c 69 64 24 2b 31 0d  50 14 30 58 6d 65 6e 75  |alid$+1.P.0Xmenu|
0000af70  5f 65 6e 64 25 2d 3d 76  6c 25 3a 76 61 6c 25 3d  |_end%-=vl%:val%=|
0000af80  58 6d 65 6e 75 5f 65 6e  64 25 3a 24 76 61 6c 25  |Xmenu_end%:$val%|
0000af90  3d 76 61 6c 69 64 24 0d  50 1e 31 58 6d 65 6e 75  |=valid$.P.1Xmenu|
0000afa0  5f 65 6e 64 25 2d 3d 31  36 3a 69 6e 64 25 3d 58  |_end%-=16:ind%=X|
0000afb0  6d 65 6e 75 5f 65 6e 64  25 3a 24 69 6e 64 25 3d  |menu_end%:$ind%=|
0000afc0  64 65 66 61 75 6c 74 24  0d 50 28 12 58 6d 65 6e  |default$.P(.Xmen|
0000afd0  75 5f 65 6e 64 25 2d 3d  35 32 0d 50 32 1e 58 6d  |u_end%-=52.P2.Xm|
0000afe0  65 6e 75 5f 65 6e 64 25  3d 58 6d 65 6e 75 5f 65  |enu_end%=Xmenu_e|
0000aff0  6e 64 25 80 28 ac 33 29  0d 50 3c 11 62 25 3d 58  |nd%.(.3).P<.b%=X|
0000b000  6d 65 6e 75 5f 65 6e 64  25 0d 50 46 23 24 62 25  |menu_end%.PF#$b%|
0000b010  3d c0 74 69 74 6c 65 24  2c 31 32 29 3a 62 25 21  |=.title$,12):b%!|
0000b020  31 32 3d 26 30 30 30 37  30 32 30 37 0d 50 50 14  |12=&00070207.PP.|
0000b030  62 25 21 31 36 3d a9 74  69 74 6c 65 24 2a 31 36  |b%!16=.title$*16|
0000b040  0d 50 5a 17 e7 20 62 25  21 31 36 3c 33 32 20 62  |.PZ.. b%!16<32 b|
0000b050  25 21 31 36 3d 33 32 0d  50 64 14 62 25 21 32 30  |%!16=32.Pd.b%!20|
0000b060  3d 34 34 3a 62 25 21 32  34 3d 30 0d 50 6e 16 62  |=44:b%!24=0.Pn.b|
0000b070  25 21 32 38 3d 31 33 32  3a 62 25 21 33 32 3d 2d  |%!28=132:b%!32=-|
0000b080  31 0d 50 78 13 62 25 21  33 36 3d 26 30 37 30 30  |1.Px.b%!36=&0700|
0000b090  30 31 32 31 0d 50 82 0e  62 25 21 34 30 3d 69 6e  |0121.P..b%!40=in|
0000b0a0  64 25 0d 50 8c 0e 62 25  21 34 34 3d 76 61 6c 25  |d%.P..b%!44=val%|
0000b0b0  0d 50 96 0c 62 25 21 34  38 3d 31 36 0d 50 a0 1d  |.P..b%!48=16.P..|
0000b0c0  f2 58 6d 65 6e 75 5f 61  64 64 69 74 65 6d 28 74  |.Xmenu_additem(t|
0000b0d0  69 74 6c 65 24 2c 62 25  29 0d 50 aa 05 e1 0d 50  |itle$,b%).P....P|
0000b0e0  b4 04 0d 50 be 20 dd f2  58 6d 65 6e 75 5f 61 64  |...P. ..Xmenu_ad|
0000b0f0  64 77 72 73 32 28 74 69  74 6c 65 24 2c 69 6e 64  |dwrs2(title$,ind|
0000b100  25 29 0d 50 c8 19 ea 20  76 6c 25 2c 61 25 2c 77  |%).P... vl%,a%,w|
0000b110  69 64 25 2c 76 61 6c 25  2c 62 25 0d 50 d2 1e 76  |id%,val%,b%.P..v|
0000b120  6c 25 3d 69 6e 64 25 2b  31 36 3a 58 6d 65 6e 75  |l%=ind%+16:Xmenu|
0000b130  5f 65 6e 64 25 2d 3d 35  32 0d 50 dc 1e 58 6d 65  |_end%-=52.P..Xme|
0000b140  6e 75 5f 65 6e 64 25 3d  58 6d 65 6e 75 5f 65 6e  |nu_end%=Xmenu_en|
0000b150  64 25 80 28 ac 33 29 0d  50 e6 11 62 25 3d 58 6d  |d%.(.3).P..b%=Xm|
0000b160  65 6e 75 5f 65 6e 64 25  0d 50 f0 1e 24 62 25 3d  |enu_end%.P..$b%=|
0000b170  74 69 74 6c 65 24 3a 62  25 21 31 32 3d 26 30 30  |title$:b%!12=&00|
0000b180  30 37 30 32 30 37 0d 50  fa 14 62 25 21 31 36 3d  |070207.P..b%!16=|
0000b190  a9 74 69 74 6c 65 24 2a  31 36 0d 51 04 17 e7 20  |.title$*16.Q... |
0000b1a0  62 25 21 31 36 3c 33 32  20 62 25 21 31 36 3d 33  |b%!16<32 b%!16=3|
0000b1b0  32 0d 51 0e 14 62 25 21  32 30 3d 34 34 3a 62 25  |2.Q..b%!20=44:b%|
0000b1c0  21 32 34 3d 30 0d 51 18  16 62 25 21 32 38 3d 31  |!24=0.Q..b%!28=1|
0000b1d0  33 32 3a 62 25 21 33 32  3d 2d 31 0d 51 22 13 62  |32:b%!32=-1.Q".b|
0000b1e0  25 21 33 36 3d 26 30 37  30 30 30 31 32 31 0d 51  |%!36=&07000121.Q|
0000b1f0  2c 0e 62 25 21 34 30 3d  69 6e 64 25 0d 51 36 0e  |,.b%!40=ind%.Q6.|
0000b200  62 25 21 34 34 3d 76 61  6c 25 0d 51 40 0c 62 25  |b%!44=val%.Q@.b%|
0000b210  21 34 38 3d 31 36 0d 51  4a 1d f2 58 6d 65 6e 75  |!48=16.QJ..Xmenu|
0000b220  5f 61 64 64 69 74 65 6d  28 74 69 74 6c 65 24 2c  |_additem(title$,|
0000b230  62 25 29 0d 51 54 05 e1  0d 51 5e 04 0d 51 68 0f  |b%).QT...Q^..Qh.|
0000b240  dd f2 58 6d 65 6e 75 5f  64 6f 74 0d 51 72 11 21  |..Xmenu_dot.Qr.!|
0000b250  72 30 25 3d 21 72 30 25  20 84 20 32 0d 51 7c 15  |r0%=!r0% . 2.Q|.|
0000b260  58 6d 65 6e 75 5f 68 65  69 67 68 74 25 2b 3d 32  |Xmenu_height%+=2|
0000b270  34 0d 51 86 05 e1 0d 51  90 04 0d 51 9a 26 dd f2  |4.Q....Q...Q.&..|
0000b280  58 6d 65 6e 75 5f 61 64  64 6c 6f 6e 67 28 69 74  |Xmenu_addlong(it|
0000b290  65 6d 24 2c 6d 6c 25 2c  73 75 62 5f 69 64 25 29  |em$,ml%,sub_id%)|
0000b2a0  0d 51 a4 1b ea 20 61 25  2c 77 69 64 25 3a 61 25  |.Q... a%,wid%:a%|
0000b2b0  3d 58 6d 65 6e 75 5f 70  6f 73 25 0d 51 ae 1e e7  |=Xmenu_pos%.Q...|
0000b2c0  20 6d 6c 25 3c 3d a9 69  74 65 6d 24 20 6d 6c 25  | ml%<=.item$ ml%|
0000b2d0  3d a9 69 74 65 6d 24 2b  31 0d 51 b8 0f 77 69 64  |=.item$+1.Q..wid|
0000b2e0  25 3d a9 69 74 65 6d 24  0d 51 c2 37 e7 20 58 6d  |%=.item$.Q.7. Xm|
0000b2f0  65 6e 75 5f 70 6f 73 25  2b 32 34 3e 58 6d 65 6e  |enu_pos%+24>Xmen|
0000b300  75 5f 65 6e 64 25 2d 6d  6c 25 20 85 20 31 2c 22  |u_end%-ml% . 1,"|
0000b310  4d 65 6e 75 20 61 72 65  61 20 66 75 6c 6c 22 0d  |Menu area full".|
0000b320  51 cc 16 21 61 25 3d 30  3a 61 25 21 34 3d 73 75  |Q..!a%=0:a%!4=su|
0000b330  62 5f 69 64 25 0d 51 d6  12 61 25 21 38 3d 26 30  |b_id%.Q..a%!8=&0|
0000b340  37 30 30 30 31 32 31 0d  51 e0 13 58 6d 65 6e 75  |7000121.Q..Xmenu|
0000b350  5f 65 6e 64 25 2d 3d 6d  6c 25 0d 51 ea 15 24 58  |_end%-=ml%.Q..$X|
0000b360  6d 65 6e 75 5f 65 6e 64  25 3d 69 74 65 6d 24 0d  |menu_end%=item$.|
0000b370  51 f4 14 61 25 21 31 32  3d 58 6d 65 6e 75 5f 65  |Q..a%!12=Xmenu_e|
0000b380  6e 64 25 0d 51 fe 0b 61  25 21 31 36 3d 30 0d 52  |nd%.Q..a%!16=0.R|
0000b390  08 0d 61 25 21 32 30 3d  6d 6c 25 0d 52 12 12 72  |..a%!20=ml%.R..r|
0000b3a0  30 25 3d 58 6d 65 6e 75  5f 70 6f 73 25 0d 52 1c  |0%=Xmenu_pos%.R.|
0000b3b0  12 58 6d 65 6e 75 5f 70  6f 73 25 2b 3d 32 34 0d  |.Xmenu_pos%+=24.|
0000b3c0  52 26 25 e7 20 58 6d 65  6e 75 5f 77 69 64 25 3c  |R&%. Xmenu_wid%<|
0000b3d0  77 69 64 25 20 58 6d 65  6e 75 5f 77 69 64 25 3d  |wid% Xmenu_wid%=|
0000b3e0  77 69 64 25 0d 52 30 15  58 6d 65 6e 75 5f 68 65  |wid%.R0.Xmenu_he|
0000b3f0  69 67 68 74 25 2b 3d 34  34 0d 52 3a 05 e1 0d 52  |ight%+=44.R:...R|
0000b400  44 04 0d 52 4e 23 dd f2  58 6d 65 6e 75 5f 61 64  |D..RN#..Xmenu_ad|
0000b410  64 69 6e 70 75 74 28 76  61 6c 24 2c 6d 6c 25 2c  |dinput(val$,ml%,|
0000b420  77 69 64 25 29 0d 52 58  16 ea 20 61 25 3a 61 25  |wid%).RX.. a%:a%|
0000b430  3d 58 6d 65 6e 75 5f 70  6f 73 25 0d 52 62 41 e7  |=Xmenu_pos%.RbA.|
0000b440  20 58 6d 65 6e 75 5f 70  6f 73 25 2b 32 34 3e 58  | Xmenu_pos%+24>X|
0000b450  6d 65 6e 75 5f 65 6e 64  25 2d 28 6d 6c 25 2b a9  |menu_end%-(ml%+.|
0000b460  76 61 6c 24 2b 31 29 20  85 20 31 2c 22 4d 65 6e  |val$+1) . 1,"Men|
0000b470  75 20 61 72 65 61 20 66  75 6c 6c 22 0d 52 6c 11  |u area full".Rl.|
0000b480  21 61 25 3d 34 3a 61 25  21 34 3d 2d 31 0d 52 76  |!a%=4:a%!4=-1.Rv|
0000b490  12 61 25 21 38 3d 26 30  37 30 30 30 31 32 31 0d  |.a%!8=&07000121.|
0000b4a0  52 80 13 58 6d 65 6e 75  5f 65 6e 64 25 2d 3d 6d  |R..Xmenu_end%-=m|
0000b4b0  6c 25 0d 52 8a 14 61 25  21 31 32 3d 58 6d 65 6e  |l%.R..a%!12=Xmen|
0000b4c0  75 5f 65 6e 64 25 0d 52  94 0b 61 25 21 31 36 3d  |u_end%.R..a%!16=|
0000b4d0  30 0d 52 9e 44 e7 20 76  61 6c 24 3c 3e 22 22 20  |0.R.D. val$<>"" |
0000b4e0  58 6d 65 6e 75 5f 65 6e  64 25 2d 3d a9 76 61 6c  |Xmenu_end%-=.val|
0000b4f0  24 2b 31 3a 24 58 6d 65  6e 75 5f 65 6e 64 25 3d  |$+1:$Xmenu_end%=|
0000b500  76 61 6c 24 3a 61 25 21  31 36 3d 58 6d 65 6e 75  |val$:a%!16=Xmenu|
0000b510  5f 65 6e 64 25 0d 52 a8  0d 61 25 21 32 30 3d 6d  |_end%.R..a%!20=m|
0000b520  6c 25 0d 52 b2 12 72 30  25 3d 58 6d 65 6e 75 5f  |l%.R..r0%=Xmenu_|
0000b530  70 6f 73 25 0d 52 bc 12  58 6d 65 6e 75 5f 70 6f  |pos%.R..Xmenu_po|
0000b540  73 25 2b 3d 32 34 0d 52  c6 25 e7 20 58 6d 65 6e  |s%+=24.R.%. Xmen|
0000b550  75 5f 77 69 64 25 3c 77  69 64 25 20 58 6d 65 6e  |u_wid%<wid% Xmen|
0000b560  75 5f 77 69 64 25 3d 77  69 64 25 0d 52 d0 15 58  |u_wid%=wid%.R..X|
0000b570  6d 65 6e 75 5f 68 65 69  67 68 74 25 2b 3d 34 34  |menu_height%+=44|
0000b580  0d 52 da 05 e1 0d 52 e4  04 0d 52 ee 1b dd f2 58  |.R....R...R....X|
0000b590  6d 65 6e 75 5f 73 68 61  64 65 28 72 30 25 2c 73  |menu_shade(r0%,s|
0000b5a0  65 74 25 29 0d 52 f8 18  e7 20 73 65 74 25 3c 3e  |et%).R... set%<>|
0000b5b0  30 20 73 65 74 25 3d 31  3c 3c 32 32 0d 53 02 23  |0 set%=1<<22.S.#|
0000b5c0  72 30 25 21 38 3d 28 72  30 25 21 38 20 80 28 ac  |r0%!8=(r0%!8 .(.|
0000b5d0  28 31 3c 3c 32 32 29 29  29 84 20 73 65 74 25 0d  |(1<<22))). set%.|
0000b5e0  53 0c 05 e1 0d 53 16 04  0d 53 20 1a dd f2 58 6d  |S....S...S ...Xm|
0000b5f0  65 6e 75 5f 74 69 63 6b  28 72 30 25 2c 73 65 74  |enu_tick(r0%,set|
0000b600  25 29 0d 53 2a 14 e7 20  73 65 74 25 3c 3e 30 20  |%).S*.. set%<>0 |
0000b610  73 65 74 25 3d 31 0d 53  34 21 21 72 30 25 3d 28  |set%=1.S4!!r0%=(|
0000b620  21 72 30 25 20 80 20 26  46 46 46 46 46 46 46 45  |!r0% . &FFFFFFFE|
0000b630  29 84 20 73 65 74 25 0d  53 3e 05 e1 0d 53 48 04  |). set%.S>...SH.|
0000b640  0d 53 52 18 dd f2 58 6d  65 6e 75 5f 6d 65 73 73  |.SR...Xmenu_mess|
0000b650  61 67 65 28 72 30 25 29  0d 53 5c 10 e7 20 72 30  |age(r0%).S\.. r0|
0000b660  25 21 34 3c 3d 31 20 e1  0d 53 66 11 21 72 30 25  |%!4<=1 ..Sf.!r0%|
0000b670  3d 21 72 30 25 20 84 20  38 0d 53 70 05 e1 0d 53  |=!r0% . 8.Sp...S|
0000b680  7a 04 0d 53 84 1a dd f2  58 6d 65 6e 75 5f 65 6e  |z..S....Xmenu_en|
0000b690  64 28 f8 20 70 25 2c f8  20 65 25 29 0d 53 8e 17  |d(. p%,. e%).S..|
0000b6a0  e7 20 58 6d 65 6e 75 5f  68 65 69 67 68 74 25 3c  |. Xmenu_height%<|
0000b6b0  31 20 8c 0d 53 98 1a f2  58 6d 65 6e 75 5f 61 64  |1 ..S...Xmenu_ad|
0000b6c0  64 69 74 65 6d 28 22 20  22 2c 2d 31 29 0d 53 a2  |ditem(" ",-1).S.|
0000b6d0  17 f2 58 6d 65 6e 75 5f  73 68 61 64 65 28 72 30  |..Xmenu_shade(r0|
0000b6e0  25 2c 31 29 0d 53 ac 14  58 6d 65 6e 75 5f 68 65  |%,1).S..Xmenu_he|
0000b6f0  69 67 68 74 25 3d 34 34  0d 53 b6 05 cd 0d 53 c0  |ight%=44.S....S.|
0000b700  13 21 72 30 25 3d 21 72  30 25 20 84 20 31 32 38  |.!r0%=!r0% . 128|
0000b710  0d 53 ca 25 58 6d 65 6e  75 5f 73 74 61 72 74 25  |.S.%Xmenu_start%|
0000b720  21 31 36 3d 28 58 6d 65  6e 75 5f 77 69 64 25 2b  |!16=(Xmenu_wid%+|
0000b730  31 29 2a 31 36 0d 53 d4  21 58 6d 65 6e 75 5f 73  |1)*16.S.!Xmenu_s|
0000b740  74 61 72 74 25 21 2d 34  3d 58 6d 65 6e 75 5f 68  |tart%!-4=Xmenu_h|
0000b750  65 69 67 68 74 25 0d 53  de 11 70 25 3d 58 6d 65  |eight%.S..p%=Xme|
0000b760  6e 75 5f 70 6f 73 25 0d  53 e8 11 65 25 3d 58 6d  |nu_pos%.S..e%=Xm|
0000b770  65 6e 75 5f 65 6e 64 25  0d 53 f2 05 e1 0d 53 fc  |enu_end%.S....S.|
0000b780  04 0d 54 06 1f dd f2 58  6d 65 6e 75 5f 73 74 61  |..T....Xmenu_sta|
0000b790  72 74 28 74 69 74 24 2c  73 74 25 2c 65 6e 25 29  |rt(tit$,st%,en%)|
0000b7a0  0d 54 10 0a 73 74 25 2b  3d 34 0d 54 1a 14 58 6d  |.T..st%+=4.T..Xm|
0000b7b0  65 6e 75 5f 73 74 61 72  74 25 3d 73 74 25 0d 54  |enu_start%=st%.T|
0000b7c0  24 1b 58 6d 65 6e 75 5f  70 6f 73 25 3d 58 6d 65  |$.Xmenu_pos%=Xme|
0000b7d0  6e 75 5f 73 74 61 72 74  25 0d 54 2e 12 58 6d 65  |nu_start%.T..Xme|
0000b7e0  6e 75 5f 65 6e 64 25 3d  65 6e 25 0d 54 38 13 58  |nu_end%=en%.T8.X|
0000b7f0  6d 65 6e 75 5f 68 65 69  67 68 74 25 3d 30 0d 54  |menu_height%=0.T|
0000b800  42 12 74 69 74 24 3d c0  74 69 74 24 2c 31 32 29  |B.tit$=.tit$,12)|
0000b810  0d 54 4c 14 58 6d 65 6e  75 5f 77 69 64 25 3d a9  |.TL.Xmenu_wid%=.|
0000b820  74 69 74 24 0d 54 56 0d  24 73 74 25 3d 74 69 74  |tit$.TV.$st%=tit|
0000b830  24 0d 54 60 14 73 74 25  21 31 32 3d 26 30 30 30  |$.T`.st%!12=&000|
0000b840  37 30 32 30 37 0d 54 6a  0c 73 74 25 21 31 36 3d  |70207.Tj.st%!16=|
0000b850  30 0d 54 74 0d 73 74 25  21 32 30 3d 34 34 0d 54  |0.Tt.st%!20=44.T|
0000b860  7e 0c 73 74 25 21 32 34  3d 30 0d 54 88 14 72 30  |~.st%!24=0.T..r0|
0000b870  25 3d 58 6d 65 6e 75 5f  73 74 61 72 74 25 0d 54  |%=Xmenu_start%.T|
0000b880  92 12 58 6d 65 6e 75 5f  70 6f 73 25 2b 3d 32 38  |..Xmenu_pos%+=28|
0000b890  0d 54 9c 05 e1 0d 54 a6  04 0d 54 b0 1d dd f2 58  |.T....T...T....X|
0000b8a0  6d 65 6e 75 5f 73 65 74  69 6e 70 75 74 28 69 64  |menu_setinput(id|
0000b8b0  25 2c 73 74 24 29 0d 54  ba 0b 69 64 25 2b 3d 31  |%,st$).T..id%+=1|
0000b8c0  32 0d 54 c4 23 e7 20 a9  73 74 24 3e 3d 69 64 25  |2.T.#. .st$>=id%|
0000b8d0  21 38 20 73 74 24 3d c0  73 74 24 2c 69 64 25 21  |!8 st$=.st$,id%!|
0000b8e0  38 2d 31 29 0d 54 ce 0f  24 28 21 69 64 25 29 3d  |8-1).T..$(!id%)=|
0000b8f0  73 74 24 0d 54 d8 05 e1  0d 54 e2 04 0d 54 ec 19  |st$.T....T...T..|
0000b900  dd a4 58 6d 65 6e 75 5f  67 65 74 69 6e 70 75 74  |..Xmenu_getinput|
0000b910  28 69 64 25 29 0d 54 f6  0f 3d a4 7a 28 69 64 25  |(id%).T..=.z(id%|
0000b920  21 31 32 29 0d 55 00 04  0d 55 0a 18 dd f2 58 6d  |!12).U...U....Xm|
0000b930  65 6e 75 5f 69 63 6f 6e  62 61 72 28 69 64 25 29  |enu_iconbar(id%)|
0000b940  0d 55 14 0d ea 20 68 65  69 67 68 74 25 0d 55 1e  |.U... height%.U.|
0000b950  12 68 65 69 67 68 74 25  3d 69 64 25 21 2d 34 0d  |.height%=id%!-4.|
0000b960  55 28 11 c8 99 20 26 34  30 30 43 46 2c 2c 71 25  |U(... &400CF,,q%|
0000b970  0d 55 32 13 58 6d 65 6e  75 5f 78 25 3d 21 71 25  |.U2.Xmenu_x%=!q%|
0000b980  2d 36 34 0d 55 3c 17 58  6d 65 6e 75 5f 79 25 3d  |-64.U<.Xmenu_y%=|
0000b990  39 36 2b 68 65 69 67 68  74 25 0d 55 46 12 58 6d  |96+height%.UF.Xm|
0000b9a0  65 6e 75 5f 70 74 72 25  3d 69 64 25 0d 55 50 2b  |enu_ptr%=id%.UP+|
0000b9b0  c8 99 20 26 34 30 30 44  34 2c 2c 58 6d 65 6e 75  |.. &400D4,,Xmenu|
0000b9c0  5f 70 74 72 25 2c 58 6d  65 6e 75 5f 78 25 2c 58  |_ptr%,Xmenu_x%,X|
0000b9d0  6d 65 6e 75 5f 79 25 0d  55 5a 05 e1 0d 55 64 04  |menu_y%.UZ...Ud.|
0000b9e0  0d 55 6e 15 dd f2 58 6d  65 6e 75 5f 6d 61 69 6e  |.Un...Xmenu_main|
0000b9f0  28 69 64 25 29 0d 55 78  11 c8 99 20 26 34 30 30  |(id%).Ux... &400|
0000ba00  43 46 2c 2c 71 25 0d 55  82 13 58 6d 65 6e 75 5f  |CF,,q%.U..Xmenu_|
0000ba10  78 25 3d 21 71 25 2d 36  34 0d 55 8c 14 58 6d 65  |x%=!q%-64.U..Xme|
0000ba20  6e 75 5f 79 25 3d 71 25  21 34 2b 32 34 0d 55 96  |nu_y%=q%!4+24.U.|
0000ba30  12 58 6d 65 6e 75 5f 70  74 72 25 3d 69 64 25 0d  |.Xmenu_ptr%=id%.|
0000ba40  55 a0 2b c8 99 20 26 34  30 30 44 34 2c 2c 58 6d  |U.+.. &400D4,,Xm|
0000ba50  65 6e 75 5f 70 74 72 25  2c 58 6d 65 6e 75 5f 78  |enu_ptr%,Xmenu_x|
0000ba60  25 2c 58 6d 65 6e 75 5f  79 25 0d 55 aa 05 e1 0d  |%,Xmenu_y%.U....|
0000ba70  55 b4 04 0d 55 be 1f f4  20 2a 2a 20 54 6f 6f 6c  |U...U... ** Tool|
0000ba80  20 3d 20 77 69 6d 70 2f  67 65 6e 65 72 61 6c 20  | = wimp/general |
0000ba90  2a 2a 0d 55 c8 04 0d 55  d2 33 dd a4 7a 28 61 25  |**.U...U.3..z(a%|
0000baa0  29 3a ea 73 24 3a 73 24  3d 22 22 3a c8 95 3f 61  |):.s$:s$="":..?a|
0000bab0  25 3e 33 31 3a 73 24 2b  3d bd 3f 61 25 3a 61 25  |%>31:s$+=.?a%:a%|
0000bac0  2b 3d 31 3a ce 3a 3d 73  24 0d 55 dc 04 0d 55 e6  |+=1:.:=s$.U...U.|
0000bad0  16 dd a4 73 65 74 28 f8  20 76 61 72 25 2c 76 61  |...set(. var%,va|
0000bae0  6c 25 29 0d 55 f0 10 76  61 72 25 3d 76 61 6c 25  |l%).U..var%=val%|
0000baf0  3a 3d 30 0d 55 fa 04 0d  56 04 15 dd f2 73 65 74  |:=0.U...V....set|
0000bb00  76 61 72 28 76 24 2c 76  61 6c 25 29 0d 56 0e 20  |var(v$,val%).V. |
0000bb10  76 61 6c 25 3d a0 28 22  46 4e 73 65 74 28 22 2b  |val%=.("FNset("+|
0000bb20  76 24 2b 22 2c 76 61 6c  25 29 22 29 0d 56 18 05  |v$+",val%)").V..|
0000bb30  e1 0d 56 22 04 0d 56 2c  14 dd f2 58 77 69 6d 70  |..V"..V,...Xwimp|
0000bb40  5f 69 6e 69 74 28 73 24  29 0d 56 36 0e 73 24 3d  |_init(s$).V6.s$=|
0000bb50  c0 73 24 2c 31 35 29 0d  56 40 38 c8 99 20 26 34  |.s$,15).V@8.. &4|
0000bb60  30 30 43 30 2c 32 30 30  2c 26 34 42 35 33 34 31  |00C0,200,&4B5341|
0000bb70  35 34 2c 73 24 20 b8 20  77 69 6d 70 5f 76 65 72  |54,s$ . wimp_ver|
0000bb80  73 25 2c 74 61 73 6b 5f  68 61 6e 64 6c 65 25 0d  |s%,task_handle%.|
0000bb90  56 4a 05 e1 0d 56 54 04  0d 56 5e 22 dd f2 58 77  |VJ...VT..V^"..Xw|
0000bba0  69 6d 70 5f 74 65 6d 70  6c 61 74 65 73 28 69 63  |imp_templates(ic|
0000bbb0  25 2c 69 63 5f 65 6e 64  25 29 0d 56 68 29 ea 20  |%,ic_end%).Vh). |
0000bbc0  66 69 6c 65 24 2c 74 65  6d 70 24 2c 76 61 72 24  |file$,temp$,var$|
0000bbd0  2c 68 61 6e 64 25 2c 61  64 24 2c 61 64 25 2c 76  |,hand%,ad$,ad%,v|
0000bbe0  61 6c 25 0d 56 72 0b f3  20 66 69 6c 65 24 0d 56  |al%.Vr.. file$.V|
0000bbf0  7c 11 c8 95 20 66 69 6c  65 24 3c 3e 22 30 22 0d  ||... file$<>"0".|
0000bc00  56 86 16 20 20 c8 99 20  26 34 30 30 44 39 2c 2c  |V..  .. &400D9,,|
0000bc10  66 69 6c 65 24 0d 56 90  0d 20 20 f3 20 74 65 6d  |file$.V..  . tem|
0000bc20  70 24 0d 56 9a 13 20 20  c8 95 20 74 65 6d 70 24  |p$.V..  .. temp$|
0000bc30  3c 3e 22 30 22 0d 56 a4  0e 20 20 20 20 f3 20 76  |<>"0".V..    . v|
0000bc40  61 72 24 0d 56 ae 38 20  20 20 20 c8 99 20 26 34  |ar$.V.8    .. &4|
0000bc50  30 30 44 42 2c 2c 58 74  65 6d 70 25 2c 69 63 25  |00DB,,Xtemp%,ic%|
0000bc60  2c 69 63 5f 65 6e 64 25  2c 2d 31 2c 74 65 6d 70  |,ic_end%,-1,temp|
0000bc70  24 2c 30 20 b8 20 2c 2c  69 63 25 0d 56 b8 0d 20  |$,0 . ,,ic%.V.. |
0000bc80  20 20 20 f3 20 61 64 24  0d 56 c2 13 20 20 20 20  |   . ad$.V..    |
0000bc90  c8 95 20 61 64 24 3c 3e  22 30 22 0d 56 cc 22 20  |.. ad$<>"0".V." |
0000bca0  20 20 20 20 20 61 64 25  3d a0 61 64 24 3a f3 20  |     ad%=.ad$:. |
0000bcb0  61 64 24 3a 76 61 6c 25  3d a0 61 64 24 0d 56 d6  |ad$:val%=.ad$.V.|
0000bcc0  19 20 20 20 20 20 20 58  74 65 6d 70 25 21 61 64  |.      Xtemp%!ad|
0000bcd0  25 3d 76 61 6c 25 0d 56  e0 0f 20 20 20 20 20 20  |%=val%.V..      |
0000bce0  f3 20 61 64 24 0d 56 ea  0b 20 20 20 20 20 20 ce  |. ad$.V..      .|
0000bcf0  0d 56 f4 21 20 20 20 20  c8 99 20 26 34 30 30 43  |.V.!    .. &400C|
0000bd00  31 2c 2c 58 74 65 6d 70  25 20 b8 20 68 61 6e 64  |1,,Xtemp% . hand|
0000bd10  25 0d 56 fe 1b 20 20 20  20 f2 73 65 74 76 61 72  |%.V..    .setvar|
0000bd20  28 76 61 72 24 2c 68 61  6e 64 25 29 0d 57 08 0f  |(var$,hand%).W..|
0000bd30  20 20 20 20 f3 20 74 65  6d 70 24 0d 57 12 07 20  |    . temp$.W.. |
0000bd40  20 ce 0d 57 1c 0f 20 20  c8 99 20 26 34 30 30 44  | ..W..  .. &400D|
0000bd50  41 0d 57 26 0d 20 20 f3  20 66 69 6c 65 24 0d 57  |A.W&.  . file$.W|
0000bd60  30 05 ce 0d 57 3a 10 69  63 6f 6e 65 6e 64 25 3d  |0...W:.iconend%=|
0000bd70  69 63 25 0d 57 44 05 e1  0d 57 4e 04 0d 57 58 19  |ic%.WD...WN..WX.|
0000bd80  f4 20 2a 2a 20 54 6f 6f  6c 20 3d 20 6d 65 6d 6f  |. ** Tool = memo|
0000bd90  72 79 20 2a 2a 0d 57 62  04 0d 57 6c 18 dd f2 58  |ry **.Wb..Wl...X|
0000bda0  6d 65 6d 5f 69 6e 69 74  28 62 6c 6f 63 6b 73 25  |mem_init(blocks%|
0000bdb0  29 0d 57 76 18 58 6d 65  6d 5f 62 6c 6f 63 6b 73  |).Wv.Xmem_blocks|
0000bdc0  25 3d 62 6c 6f 63 6b 73  25 0d 57 80 29 c8 99 20  |%=blocks%.W.).. |
0000bdd0  26 31 45 2c 36 2c 2c 2c  62 6c 6f 63 6b 73 25 2a  |&1E,6,,,blocks%*|
0000bde0  34 20 b8 20 2c 2c 58 6d  65 6d 5f 68 65 61 64 65  |4 . ,,Xmem_heade|
0000bdf0  72 25 0d 57 8a 1b e3 20  74 65 6d 70 5f 61 25 3d  |r%.W... temp_a%=|
0000be00  30 20 b8 20 62 6c 6f 63  6b 73 25 2d 31 0d 57 94  |0 . blocks%-1.W.|
0000be10  1f 58 6d 65 6d 5f 68 65  61 64 65 72 25 21 28 74  |.Xmem_header%!(t|
0000be20  65 6d 70 5f 61 25 3c 3c  32 29 3d 30 0d 57 9e 05  |emp_a%<<2)=0.W..|
0000be30  ed 0d 57 a8 05 e1 0d 57  b2 04 0d 57 bc 17 dd a4  |..W....W...W....|
0000be40  58 6d 65 6d 5f 63 6c 61  69 6d 28 73 69 7a 65 25  |Xmem_claim(size%|
0000be50  29 0d 57 c6 20 e3 20 74  65 6d 70 5f 61 25 3d 30  |).W. . temp_a%=0|
0000be60  20 b8 20 58 6d 65 6d 5f  62 6c 6f 63 6b 73 25 2d  | . Xmem_blocks%-|
0000be70  31 0d 57 d0 23 e7 20 58  6d 65 6d 5f 68 65 61 64  |1.W.#. Xmem_head|
0000be80  65 72 25 21 28 74 65 6d  70 5f 61 25 3c 3c 32 29  |er%!(temp_a%<<2)|
0000be90  3d 30 20 8c 0d 57 da 20  c8 99 20 26 31 45 2c 36  |=0 ..W. .. &1E,6|
0000bea0  2c 2c 2c 73 69 7a 65 25  20 b8 20 2c 2c 74 65 6d  |,,,size% . ,,tem|
0000beb0  70 5f 62 25 0d 57 e4 25  58 6d 65 6d 5f 68 65 61  |p_b%.W.%Xmem_hea|
0000bec0  64 65 72 25 21 28 74 65  6d 70 5f 61 25 3c 3c 32  |der%!(temp_a%<<2|
0000bed0  29 3d 74 65 6d 70 5f 62  25 0d 57 ee 1d 74 65 6d  |)=temp_b%.W..tem|
0000bee0  70 5f 61 25 3d 58 6d 65  6d 5f 62 6c 6f 63 6b 73  |p_a%=Xmem_blocks|
0000bef0  25 2b 31 30 30 30 0d 57  f8 05 cd 0d 58 02 05 ed  |%+1000.W....X...|
0000bf00  0d 58 0c 41 e7 20 74 65  6d 70 5f 61 25 3d 58 6d  |.X.A. temp_a%=Xm|
0000bf10  65 6d 5f 62 6c 6f 63 6b  73 25 20 85 20 31 2c 22  |em_blocks% . 1,"|
0000bf20  4d 61 78 69 6d 75 6d 20  62 6c 6f 63 6b 20 61 6c  |Maximum block al|
0000bf30  6c 6f 63 61 74 69 6f 6e  20 72 65 61 63 68 65 64  |location reached|
0000bf40  22 0d 58 16 0c 3d 74 65  6d 70 5f 62 25 0d 58 20  |".X..=temp_b%.X |
0000bf50  04 0d 58 2a 1e dd f2 58  6d 65 6d 5f 72 65 64 75  |..X*...Xmem_redu|
0000bf60  63 65 28 f8 20 61 64 64  72 25 2c 63 73 25 29 0d  |ce(. addr%,cs%).|
0000bf70  58 34 20 e3 20 74 65 6d  70 5f 61 25 3d 30 20 b8  |X4 . temp_a%=0 .|
0000bf80  20 58 6d 65 6d 5f 62 6c  6f 63 6b 73 25 2d 31 0d  | Xmem_blocks%-1.|
0000bf90  58 3e 27 e7 20 58 6d 65  6d 5f 68 65 61 64 65 72  |X>'. Xmem_header|
0000bfa0  25 21 28 74 65 6d 70 5f  61 25 3c 3c 32 29 3d 61  |%!(temp_a%<<2)=a|
0000bfb0  64 64 72 25 20 8c 0d 58  48 2a c8 99 20 26 31 44  |ddr% ..XH*.. &1D|
0000bfc0  2c 34 2c 26 31 38 30 30  30 30 30 2c 61 64 64 72  |,4,&1800000,addr|
0000bfd0  25 2c 2d 63 73 25 20 b8  20 2c 2c 61 64 64 72 25  |%,-cs% . ,,addr%|
0000bfe0  0d 58 52 23 58 6d 65 6d  5f 68 65 61 64 65 72 25  |.XR#Xmem_header%|
0000bff0  21 28 74 65 6d 70 5f 61  25 3c 3c 32 29 3d 61 64  |!(temp_a%<<2)=ad|
0000c000  64 72 25 0d 58 5c 1d 74  65 6d 70 5f 61 25 3d 58  |dr%.X\.temp_a%=X|
0000c010  6d 65 6d 5f 62 6c 6f 63  6b 73 25 2b 31 30 30 30  |mem_blocks%+1000|
0000c020  0d 58 66 05 cd 0d 58 70  05 ed 0d 58 7a 41 e7 20  |.Xf...Xp...XzA. |
0000c030  74 65 6d 70 5f 61 25 3d  58 6d 65 6d 5f 62 6c 6f  |temp_a%=Xmem_blo|
0000c040  63 6b 73 25 20 85 20 31  2c 22 43 61 6e 6e 6f 74  |cks% . 1,"Cannot|
0000c050  20 66 69 6e 64 20 62 6c  6f 63 6b 20 66 6f 72 20  | find block for |
0000c060  61 6c 74 65 72 61 74 69  6f 6e 22 0d 58 84 05 e1  |alteration".X...|
0000c070  0d 58 8e 04 0d 58 98 1d  dd f2 58 6d 65 6d 5f 64  |.X...X....Xmem_d|
0000c080  65 6c 74 61 28 f8 20 61  64 64 72 25 2c 63 73 25  |elta(. addr%,cs%|
0000c090  29 0d 58 a2 2e ea 20 73  69 7a 65 25 3a e7 20 63  |).X... size%:. c|
0000c0a0  73 25 3c 30 20 f2 58 6d  65 6d 5f 72 65 64 75 63  |s%<0 .Xmem_reduc|
0000c0b0  65 28 61 64 64 72 25 2c  2d 63 73 25 29 3a e1 0d  |e(addr%,-cs%):..|
0000c0c0  58 ac 20 e3 20 74 65 6d  70 5f 61 25 3d 30 20 b8  |X. . temp_a%=0 .|
0000c0d0  20 58 6d 65 6d 5f 62 6c  6f 63 6b 73 25 2d 31 0d  | Xmem_blocks%-1.|
0000c0e0  58 b6 27 e7 20 58 6d 65  6d 5f 68 65 61 64 65 72  |X.'. Xmem_header|
0000c0f0  25 21 28 74 65 6d 70 5f  61 25 3c 3c 32 29 3d 61  |%!(temp_a%<<2)=a|
0000c100  64 64 72 25 20 8c 0d 58  c0 26 c8 99 20 26 31 44  |ddr% ..X.&.. &1D|
0000c110  2c 36 2c 26 31 38 30 30  30 30 30 2c 61 64 64 72  |,6,&1800000,addr|
0000c120  25 20 b8 20 2c 2c 2c 73  69 7a 65 25 0d 58 ca 0e  |% . ,,,size%.X..|
0000c130  73 69 7a 65 25 2b 3d 63  73 25 0d 58 d4 24 c8 99  |size%+=cs%.X.$..|
0000c140  20 26 31 45 2c 31 33 2c  2c 61 64 64 72 25 2c 73  | &1E,13,,addr%,s|
0000c150  69 7a 65 25 20 b8 20 2c  2c 61 64 64 72 25 0d 58  |ize% . ,,addr%.X|
0000c160  de 23 58 6d 65 6d 5f 68  65 61 64 65 72 25 21 28  |.#Xmem_header%!(|
0000c170  74 65 6d 70 5f 61 25 3c  3c 32 29 3d 61 64 64 72  |temp_a%<<2)=addr|
0000c180  25 0d 58 e8 1d 74 65 6d  70 5f 61 25 3d 58 6d 65  |%.X..temp_a%=Xme|
0000c190  6d 5f 62 6c 6f 63 6b 73  25 2b 31 30 30 30 0d 58  |m_blocks%+1000.X|
0000c1a0  f2 05 cd 0d 58 fc 05 ed  0d 59 06 41 e7 20 74 65  |....X....Y.A. te|
0000c1b0  6d 70 5f 61 25 3d 58 6d  65 6d 5f 62 6c 6f 63 6b  |mp_a%=Xmem_block|
0000c1c0  73 25 20 85 20 31 2c 22  43 61 6e 6e 6f 74 20 66  |s% . 1,"Cannot f|
0000c1d0  69 6e 64 20 62 6c 6f 63  6b 20 66 6f 72 20 61 6c  |ind block for al|
0000c1e0  74 65 72 61 74 69 6f 6e  22 0d 59 10 05 e1 0d 59  |teration".Y....Y|
0000c1f0  1a 04 0d 59 24 20 dd f2  58 6d 65 6d 5f 63 68 61  |...Y$ ..Xmem_cha|
0000c200  6e 67 65 28 f8 20 61 64  64 72 25 2c 73 69 7a 65  |nge(. addr%,size|
0000c210  25 29 0d 59 2e 20 e3 20  74 65 6d 70 5f 61 25 3d  |%).Y. . temp_a%=|
0000c220  30 20 b8 20 58 6d 65 6d  5f 62 6c 6f 63 6b 73 25  |0 . Xmem_blocks%|
0000c230  2d 31 0d 59 38 27 e7 20  58 6d 65 6d 5f 68 65 61  |-1.Y8'. Xmem_hea|
0000c240  64 65 72 25 21 28 74 65  6d 70 5f 61 25 3c 3c 32  |der%!(temp_a%<<2|
0000c250  29 3d 61 64 64 72 25 20  8c 0d 59 42 24 c8 99 20  |)=addr% ..YB$.. |
0000c260  26 31 45 2c 31 33 2c 2c  61 64 64 72 25 2c 73 69  |&1E,13,,addr%,si|
0000c270  7a 65 25 20 b8 20 2c 2c  61 64 64 72 25 0d 59 4c  |ze% . ,,addr%.YL|
0000c280  23 58 6d 65 6d 5f 68 65  61 64 65 72 25 21 28 74  |#Xmem_header%!(t|
0000c290  65 6d 70 5f 61 25 3c 3c  32 29 3d 61 64 64 72 25  |emp_a%<<2)=addr%|
0000c2a0  0d 59 56 1d 74 65 6d 70  5f 61 25 3d 58 6d 65 6d  |.YV.temp_a%=Xmem|
0000c2b0  5f 62 6c 6f 63 6b 73 25  2b 31 30 30 30 0d 59 60  |_blocks%+1000.Y`|
0000c2c0  05 cd 0d 59 6a 05 ed 0d  59 74 41 e7 20 74 65 6d  |...Yj...YtA. tem|
0000c2d0  70 5f 61 25 3d 58 6d 65  6d 5f 62 6c 6f 63 6b 73  |p_a%=Xmem_blocks|
0000c2e0  25 20 85 20 31 2c 22 43  61 6e 6e 6f 74 20 66 69  |% . 1,"Cannot fi|
0000c2f0  6e 64 20 62 6c 6f 63 6b  20 66 6f 72 20 61 6c 74  |nd block for alt|
0000c300  65 72 61 74 69 6f 6e 22  0d 59 7e 05 e1 0d 59 88  |eration".Y~...Y.|
0000c310  04 0d 59 92 19 dd f2 58  6d 65 6d 5f 72 65 6c 65  |..Y....Xmem_rele|
0000c320  61 73 65 28 61 64 64 72  25 29 0d 59 9c 20 e3 20  |ase(addr%).Y. . |
0000c330  74 65 6d 70 5f 61 25 3d  30 20 b8 20 58 6d 65 6d  |temp_a%=0 . Xmem|
0000c340  5f 62 6c 6f 63 6b 73 25  2d 31 0d 59 a6 27 e7 20  |_blocks%-1.Y.'. |
0000c350  58 6d 65 6d 5f 68 65 61  64 65 72 25 21 28 74 65  |Xmem_header%!(te|
0000c360  6d 70 5f 61 25 3c 3c 32  29 3d 61 64 64 72 25 20  |mp_a%<<2)=addr% |
0000c370  8c 0d 59 b0 13 c8 99 20  26 31 45 2c 37 2c 2c 61  |..Y.... &1E,7,,a|
0000c380  64 64 72 25 0d 59 ba 1f  58 6d 65 6d 5f 68 65 61  |ddr%.Y..Xmem_hea|
0000c390  64 65 72 25 21 28 74 65  6d 70 5f 61 25 3c 3c 32  |der%!(temp_a%<<2|
0000c3a0  29 3d 30 0d 59 c4 1d 74  65 6d 70 5f 61 25 3d 58  |)=0.Y..temp_a%=X|
0000c3b0  6d 65 6d 5f 62 6c 6f 63  6b 73 25 2b 31 30 30 30  |mem_blocks%+1000|
0000c3c0  0d 59 ce 05 cd 0d 59 d8  05 ed 0d 59 e2 3e e7 20  |.Y....Y....Y.>. |
0000c3d0  74 65 6d 70 5f 61 25 3d  58 6d 65 6d 5f 62 6c 6f  |temp_a%=Xmem_blo|
0000c3e0  63 6b 73 25 20 85 20 31  2c 22 43 61 6e 6e 6f 74  |cks% . 1,"Cannot|
0000c3f0  20 66 69 6e 64 20 62 6c  6f 63 6b 20 66 6f 72 20  | find block for |
0000c400  72 65 6c 65 61 73 65 22  0d 59 ec 05 e1 0d 59 f6  |release".Y....Y.|
0000c410  04 0d 5a 00 0f dd f2 58  6d 65 6d 5f 71 75 69 74  |..Z....Xmem_quit|
0000c420  0d 5a 0a 0d 74 65 6d 70  5f 62 25 3d 30 0d 5a 14  |.Z..temp_b%=0.Z.|
0000c430  20 e3 20 74 65 6d 70 5f  61 25 3d 30 20 b8 20 58  | . temp_a%=0 . X|
0000c440  6d 65 6d 5f 62 6c 6f 63  6b 73 25 2d 31 0d 5a 1e  |mem_blocks%-1.Z.|
0000c450  24 e7 20 58 6d 65 6d 5f  68 65 61 64 65 72 25 21  |$. Xmem_header%!|
0000c460  28 74 65 6d 70 5f 61 25  3c 3c 32 29 3c 3e 30 20  |(temp_a%<<2)<>0 |
0000c470  8c 0d 5a 28 0e 74 65 6d  70 5f 62 25 2b 3d 31 0d  |..Z(.temp_b%+=1.|
0000c480  5a 32 27 c8 99 20 26 31  45 2c 37 2c 2c 58 6d 65  |Z2'.. &1E,7,,Xme|
0000c490  6d 5f 68 65 61 64 65 72  25 21 28 74 65 6d 70 5f  |m_header%!(temp_|
0000c4a0  61 25 3c 3c 32 29 0d 5a  3c 1f 58 6d 65 6d 5f 68  |a%<<2).Z<.Xmem_h|
0000c4b0  65 61 64 65 72 25 21 28  74 65 6d 70 5f 61 25 3c  |eader%!(temp_a%<|
0000c4c0  3c 32 29 3d 30 0d 5a 46  05 cd 0d 5a 50 05 ed 0d  |<2)=0.ZF...ZP...|
0000c4d0  5a 5a 1a c8 99 20 26 31  45 2c 37 2c 2c 58 6d 65  |ZZ... &1E,7,,Xme|
0000c4e0  6d 5f 68 65 61 64 65 72  25 0d 5a 64 2a ff 22 53  |m_header%.Zd*."S|
0000c4f0  65 74 45 76 61 6c 20 45  66 66 65 78 25 46 72 65  |etEval Effex%Fre|
0000c500  65 64 42 6c 6f 63 6b 73  20 22 2b c3 74 65 6d 70  |edBlocks "+.temp|
0000c510  5f 62 25 0d 5a 6e 05 e1  0d 5a 78 04 0d 5a 82 1a  |_b%.Zn...Zx..Z..|
0000c520  f4 20 2a 2a 20 54 6f 6f  6c 20 3d 20 77 69 6e 64  |. ** Tool = wind|
0000c530  6f 77 73 20 2a 2a 0d 5a  8c 04 0d 5a 96 18 dd f2  |ows **.Z...Z....|
0000c540  58 77 69 6e 5f 6f 70 65  6e 28 68 61 6e 64 6c 65  |Xwin_open(handle|
0000c550  25 29 0d 5a a0 13 21 58  74 65 6d 70 25 3d 68 61  |%).Z..!Xtemp%=ha|
0000c560  6e 64 6c 65 25 0d 5a aa  22 c8 99 20 26 34 30 30  |ndle%.Z.".. &400|
0000c570  43 42 2c 2c 58 74 65 6d  70 25 3a 58 74 65 6d 70  |CB,,Xtemp%:Xtemp|
0000c580  25 21 32 38 3d 2d 31 0d  5a b4 15 c8 99 20 26 34  |%!28=-1.Z.... &4|
0000c590  30 30 43 35 2c 2c 58 74  65 6d 70 25 0d 5a be 05  |00C5,,Xtemp%.Z..|
0000c5a0  e1 0d 5a c8 04 0d 5a d2  19 dd f2 58 77 69 6e 5f  |..Z...Z....Xwin_|
0000c5b0  63 6c 6f 73 65 28 68 61  6e 64 6c 65 25 29 0d 5a  |close(handle%).Z|
0000c5c0  dc 13 21 58 74 65 6d 70  25 3d 68 61 6e 64 6c 65  |..!Xtemp%=handle|
0000c5d0  25 0d 5a e6 15 c8 99 20  26 34 30 30 43 36 2c 2c  |%.Z.... &400C6,,|
0000c5e0  58 74 65 6d 70 25 0d 5a  f0 05 e1 0d 5a fa 04 0d  |Xtemp%.Z....Z...|
0000c5f0  5b 04 21 dd f2 58 77 69  6e 5f 73 65 74 74 69 74  |[.!..Xwin_settit|
0000c600  6c 65 28 68 61 6e 64 6c  65 25 2c 74 69 74 24 29  |le(handle%,tit$)|
0000c610  0d 5b 0e 0b ea 20 61 25  2c 62 25 0d 5b 18 13 21  |.[... a%,b%.[..!|
0000c620  58 74 65 6d 70 25 3d 68  61 6e 64 6c 65 25 0d 5b  |Xtemp%=handle%.[|
0000c630  22 15 c8 99 20 26 34 30  30 43 43 2c 2c 58 74 65  |"... &400CC,,Xte|
0000c640  6d 70 25 0d 5b 2c 3b e7  20 28 58 74 65 6d 70 25  |mp%.[,;. (Xtemp%|
0000c650  21 36 30 20 80 20 32 35  36 29 3d 30 20 85 20 31  |!60 . 256)=0 . 1|
0000c660  2c 22 57 69 6e 64 6f 77  20 74 69 74 6c 65 20 6e  |,"Window title n|
0000c670  6f 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 5b  |ot indirected".[|
0000c680  36 10 62 25 3d 58 74 65  6d 70 25 21 38 34 0d 5b  |6.b%=Xtemp%!84.[|
0000c690  40 10 61 25 3d 58 74 65  6d 70 25 21 37 36 0d 5b  |@.a%=Xtemp%!76.[|
0000c6a0  4a 14 74 69 74 24 3d c0  74 69 74 24 2c 62 25 2d  |J.tit$=.tit$,b%-|
0000c6b0  31 29 0d 5b 54 0c 24 61  25 3d 74 69 74 24 0d 5b  |1).[T.$a%=tit$.[|
0000c6c0  5e 05 e1 0d 5b 68 04 0d  5b 72 18 f4 20 2a 2a 20  |^...[h..[r.. ** |
0000c6d0  54 6f 6f 6c 20 3d 20 69  63 6f 6e 73 20 2a 2a 0d  |Tool = icons **.|
0000c6e0  5b 7c 04 0d 5b 86 1c dd  a4 58 69 63 6f 6e 5f 67  |[|..[....Xicon_g|
0000c6f0  65 74 73 74 72 28 77 69  6e 25 2c 69 63 25 29 0d  |etstr(win%,ic%).|
0000c700  5b 90 1d 21 58 74 65 6d  70 25 3d 77 69 6e 25 3a  |[..!Xtemp%=win%:|
0000c710  58 74 65 6d 70 25 21 34  3d 69 63 25 0d 5b 9a 15  |Xtemp%!4=ic%.[..|
0000c720  c8 99 20 26 34 30 30 43  45 2c 2c 58 74 65 6d 70  |.. &400CE,,Xtemp|
0000c730  25 0d 5b a4 33 e7 20 28  58 74 65 6d 70 25 21 32  |%.[.3. (Xtemp%!2|
0000c740  34 20 80 20 32 35 36 29  3d 30 20 85 20 31 2c 22  |4 . 256)=0 . 1,"|
0000c750  49 63 6f 6e 20 6e 6f 74  20 69 6e 64 69 72 65 63  |Icon not indirec|
0000c760  74 65 64 22 0d 5b ae 12  3d a4 7a 28 58 74 65 6d  |ted".[..=.z(Xtem|
0000c770  70 25 21 32 38 29 0d 5b  b8 04 0d 5b c2 1f dd f2  |p%!28).[...[....|
0000c780  58 69 63 6f 6e 5f 73 65  74 73 74 72 28 77 69 6e  |Xicon_setstr(win|
0000c790  25 2c 69 63 25 2c 73 24  29 0d 5b cc 0b ea 20 61  |%,ic%,s$).[... a|
0000c7a0  25 2c 62 25 0d 5b d6 1d  21 58 74 65 6d 70 25 3d  |%,b%.[..!Xtemp%=|
0000c7b0  77 69 6e 25 3a 58 74 65  6d 70 25 21 34 3d 69 63  |win%:Xtemp%!4=ic|
0000c7c0  25 0d 5b e0 15 c8 99 20  26 34 30 30 43 45 2c 2c  |%.[.... &400CE,,|
0000c7d0  58 74 65 6d 70 25 0d 5b  ea 33 e7 20 28 58 74 65  |Xtemp%.[.3. (Xte|
0000c7e0  6d 70 25 21 32 34 20 80  20 32 35 36 29 3d 30 20  |mp%!24 . 256)=0 |
0000c7f0  85 20 31 2c 22 49 63 6f  6e 20 6e 6f 74 20 69 6e  |. 1,"Icon not in|
0000c800  64 69 72 65 63 74 65 64  22 0d 5b f4 10 62 25 3d  |directed".[..b%=|
0000c810  58 74 65 6d 70 25 21 33  36 0d 5b fe 10 61 25 3d  |Xtemp%!36.[..a%=|
0000c820  58 74 65 6d 70 25 21 32  38 0d 5c 08 10 73 24 3d  |Xtemp%!28.\..s$=|
0000c830  c0 73 24 2c 62 25 2d 31  29 0d 5c 12 0a 24 61 25  |.s$,b%-1).\..$a%|
0000c840  3d 73 24 0d 5c 1c 1b f2  58 69 63 6f 6e 5f 72 65  |=s$.\...Xicon_re|
0000c850  64 72 61 77 28 77 69 6e  25 2c 69 63 25 29 0d 5c  |draw(win%,ic%).\|
0000c860  26 05 e1 0d 5c 30 04 0d  5c 3a 25 dd f2 58 69 63  |&...\0..\:%..Xic|
0000c870  6f 6e 5f 73 65 74 69 63  6f 6e 76 61 6c 69 64 28  |on_seticonvalid(|
0000c880  77 69 6e 25 2c 69 63 25  2c 73 24 29 0d 5c 44 0b  |win%,ic%,s$).\D.|
0000c890  ea 20 61 25 2c 61 24 0d  5c 4e 1d 21 58 74 65 6d  |. a%,a$.\N.!Xtem|
0000c8a0  70 25 3d 77 69 6e 25 3a  58 74 65 6d 70 25 21 34  |p%=win%:Xtemp%!4|
0000c8b0  3d 69 63 25 0d 5c 58 15  c8 99 20 26 34 30 30 43  |=ic%.\X... &400C|
0000c8c0  45 2c 2c 58 74 65 6d 70  25 0d 5c 62 33 e7 20 28  |E,,Xtemp%.\b3. (|
0000c8d0  58 74 65 6d 70 25 21 32  34 20 80 20 32 35 36 29  |Xtemp%!24 . 256)|
0000c8e0  3d 30 20 85 20 31 2c 22  49 63 6f 6e 20 6e 6f 74  |=0 . 1,"Icon not|
0000c8f0  20 69 6e 64 69 72 65 63  74 65 64 22 0d 5c 6c 13  | indirected".\l.|
0000c900  61 24 3d 24 28 58 74 65  6d 70 25 21 33 32 29 0d  |a$=$(Xtemp%!32).|
0000c910  5c 76 19 24 28 58 74 65  6d 70 25 21 33 32 29 3d  |\v.$(Xtemp%!32)=|
0000c920  c0 73 24 2c a9 61 24 29  0d 5c 80 1b f2 58 69 63  |.s$,.a$).\...Xic|
0000c930  6f 6e 5f 72 65 64 72 61  77 28 77 69 6e 25 2c 69  |on_redraw(win%,i|
0000c940  63 25 29 0d 5c 8a 05 e1  0d 5c 94 04 0d 5c 9e 1c  |c%).\....\...\..|
0000c950  dd f2 58 69 63 6f 6e 5f  72 65 64 72 61 77 28 77  |..Xicon_redraw(w|
0000c960  69 6e 25 2c 69 63 25 29  0d 5c a8 1d 21 58 74 65  |in%,ic%).\..!Xte|
0000c970  6d 70 25 3d 77 69 6e 25  3a 58 74 65 6d 70 25 21  |mp%=win%:Xtemp%!|
0000c980  34 3d 69 63 25 0d 5c b2  1a 58 74 65 6d 70 25 21  |4=ic%.\..Xtemp%!|
0000c990  38 3d 30 3a 58 74 65 6d  70 25 21 31 32 3d 30 0d  |8=0:Xtemp%!12=0.|
0000c9a0  5c bc 15 c8 99 20 26 34  30 30 43 44 2c 2c 58 74  |\.... &400CD,,Xt|
0000c9b0  65 6d 70 25 0d 5c c6 05  e1 0d ff                 |emp%.\.....|
0000c9bb