symbol irled = pin2
symbol irsensor = pin4
symbol RELAY = pin1
main:
pwmout irled,
25, 52 'PWM on for 26 usec
period 38.4kHz
pause 3 very brief pause before
reading
if irsensor =0
then goto SawPulse
low RELAY ' RELAY off
goto
skip1:
SawPulse:
high RELAY ' RELAY on
pause 1500 ' keep slower speed for 1.5
seconds
skip1:
pwmout irled,00,00
'turn off PWM
pause 100 pause
1/10 second
goto main