The most annoying sound in the world.

[Whammo]

Just in time for Christmas!
Use your cursor keys for fine and coarse adjustment of the speed of frequency sweep,
to find your most annoying sound for the holidays!
My present to you is the use of the space bar to cease the unholy racket!

base @ hex
0 value voice
: voice! 7 * to voice ;
: freq! d400 voice + ! ;
: pulse! d402 voice + ! ;
: control! d404 voice + c! ;
: cutoff! d415 ! ;
: filter! d417 c! ;
: volume! d418 c! ;
( write adsr )
: srad! ( SR AD -- ) d405 voice + ! ;

: irqpeek $dc0e c@ ;
: irqpoke $dc0e c! ;
: irqoff irqpeek $fe and irqpoke ;
: irqon irqpeek 1 or irqpoke ;

fff value speed \ play with me

: annoy f volume! f000 srad!
irqoff
0 voice! ffff freq! 11 control!
f000 srad!
1 voice! 0 freq! 11 control!
f000 srad!
ffff begin dup invert 0 voice! freq!
dup 1 voice! freq! speed - irqon
key? if key case
11 of speed 1- endof
91 of speed 1+ endof
1d of speed ff + endof
9d of speed ff - endof
20 of
0 voice! 10 control! 1 voice!
10 control! drop
quit endof endcase
to speed
then irqoff
again
;
base !
annoy