@ dEVICE pic16F628A, INTRC_OSC_NOCLKOUT 
@ device MCLR_off
@ Device WDT_off
@ Device Bod_off
CMCON = 7 
mesafe var word 
genlik var word 
width var word
Tetik VAR PortA.1 'tetik (trig) pini porta.1'e bagli
Eko VAR PortA.2 'eko pini porta.1'e bagli
output portb.5
'*****************
pause 300 
basla: 
gosub ping 
pause 50
'Mesafe degiskeninde cm cinsinden veri bulunmaktadir.
'Ornegin 83 cm yakinda portb.5'e bagli ledi yakmak icin
'If mesafe < 83 then 
'high portb.5
'endif
'demeniz yeterlidir.
goto basla 
'***************** 
Ping: 
Tetik = 0 
PULSOUT tetik, 2 
PULSIN Eko, 1, genlik 
genlik = (genlik * 5)  
pause 1 
mesafe = genlik ** 2257 
RETURN