'{$STAMP BS2} 'STAMP directive (specifies a BS2)

Result VAR Word 'Word variable to hold result.
output 0
output 9

Again:

HIGH 7 'Discharge the cap

PAUSE 1 'for 1 ms.
low 0
low 9
RCTIME 7, 1, Result 'Measure RC charge time.
DEBUG CLS, DEC Result 'Show value on screen.
if Result > 100 then led1
if Result < 100 then led2
GOTO Again

led1:
high 0
goto Again

led2:
high 9
goto again