'sonar example
func main()
  dim SRFcount
 
loop:
  
  sonar 0,1,SRFcount
  print "Distance= ",SRFcount /64," Inches"
  pause 20
  goto loop

endfunc