5 rem Vary audio according to Sharp distance sensor value
  10 dim speaker as pin pt2 for frequency output
  20 rem generate a 1KHz square wave for 2 seconds on port pin PT0
  30 let speaker = 1000
  40 sleep 2 s
  50 dim distance1 as pin pad04 for analog input
  60 while 1 do
  70   let speaker = distance1
  80   sleep 25 ms
  90 endwhile