text '*** 303 ***'
nl
slider trans
text 'transpose'
nl
slider cutoff
text 'cutoff freq.'
nl
slider reso
text 'resonance amnt.'
nl
slider flt.att
text 'filter attack'
nl
slider flt.rel
text 'filter release'
nl
slider osc.att
text 'osc. attack'
nl
slider osc.rel
text 'osc. release'
nl
switch type 0
text 'sine'
switch type 1
text 'squre'
switch type 2
text 'saw'
nl
button exit
nl
set type 2
set flt.att 32
set flt.rel 64
set osc.att 64
set osc.rel 127
set cutoff 64
set reso 64
set trans 0
resize
get