10 rem Play 4 octaves of chromatic scale (descending)
  20 dim note
  30 dim audio as pin pt2 for frequency output
  40 let audio = 220*4
  50 while 1 do
  60   sleep 250 ms
  70   let note = audio*10000/10595
  80   let audio = note
  90   if audio<220 then
 100     let audio = 220*4
 110   endif
 120 endwhile