10 rem converts Sharp IR distance sensor to audio output on SSIM
  20 dim sensor1 as pin pad04 for analog input
  30 dim speaker as pin pt2 for frequency output
  40 while 1 do
  50   let speaker = sensor1*3-880
  55   sleep 100 ms
  60 endwhile