'SRF04 Demo
  dim range
  const ping 1
  const echo 0

  output ping
  low ping


  PULSEINSCALE = 6 'Will give reading in ~inches


loop:
  pulseout ping,10
  pulsein echo,1,range

  print range
  pause 100
  goto loop