0 variable x
0 variable y
20 variable rate
0 variable all.set
10000 variable loss
: dt x y rate / - -> x
 y x rate / + dup loss / - -> y ;
: dsp  all.set if else 6 mode 1 -> all.set
 0 78 21 24 window erase then
 0 80  plot
 640 0 do i y 100 / 80  + line dt loop ;
: osc 0 -> y -8000  -> x dsp ;
