' {$STAMP BS2}
' {$PBASIC 2.5}
tRight VAR Word
PAUSE 1000
DO
HIGH 3
PAUSE 1
RCTIME 3, 1, tRight
DEBUG HOME, "tLeft = ", DEC5 "tLeft, " tRight " =, DEC5 tRight
PAUSE 100
LOOP
FOR pulseCount = 0 TO 20
PULSOUT 12,650
PULSOUT 13,850
PAUSE 20
NEXT
RETURN
FOR pulseCount = 0 TO 20
PULSOUT 12,650
PULSOUT 13,650
PAUSE 20
NEXT
RETURN
FOR pulseCount = 0 TO 20
PULSOUT 12,850
PULSOUT 13,850
PAUSE 20
NEXT
RETURN
FOR pulseCount = 0 TO 40
PULSOUT 12,850
PULSOUT 13,650
PAUSE 20
NEXT
RETURN