5 rem Play 5 octaves of major scale, pausing after each
  10 dim note, freq
  20 dim audio as pin pt2 for frequency output
  30 let freq = 110
  40 while freq<3000 do
  50   gosub octave
  60   let freq = freq*2
  70 endwhile
  80 end
  90 sub octave
 100   let audio = freq
 110   for note = 1 to 8
 120     sleep 500 ms
 130     if note==3||note==7 then
 140       let audio = (audio*10595+5000)/10000
 150     else
 160       let audio = (audio*11225+5000)/10000
 170     endif
 180   next
 190   let audio = 0
 200   sleep 250 ms
 210 endsub