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

Config Portd.4 = Output          'выход для подключения ноги Trigger
Trigger Alias Portd.4
Trigger = 0

Config Portd.5 = Input           'вход для импульса Echo
                  
Dim Cmd As String * 8

Dim A As Word                   
Dim S As Single               

Const K = 0.1725               

Waitms 50

Do
Trigger = 1                     
Waitus 15
Trigger = 0

Waitus 10
Pulsein A , Pind , 5 , 1       

S = A * K      
               
Print  "(s , "###.#")"

Loop
End