10 rem Chirps repeatedly
  20 dim speaker as pin pt2 for frequency output, x, y
  30 let y = 440*3
  40 while 1 do
  50   for x = y to 0 step -10
  60     let speaker = x
  70     sleep 1 ms
  80   next
  90   sleep 250 ms
 100 endwhile