$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config Portc.5 = Output
Trig Alias Portc.5
Config Portc.4 = Input
Config Portd.7 = Output
Led Alias Portd.7
Led = 0



Dim S As Word
Dim R As Single

Do
Trig = 1
Waitus 15
Trig = 0
Waitus 10
Pulsein S , Pinc , 4 , 1
R = S * 0.1725
If R < 10 Then
  Led = 1
 Waitus 5000000
'возможно вместо Waitus или Waitms нужно написать Wait?
 И ещё вопрос одна единица после  Waitus означает одна микросекунда или у неё  (у этой единицы) другая размерность (милисекунды\секунды)?
Else
 Led = 0
 Waitms 1000

End If