' DEMONSTRATION OF RCTIME FUNCTION
' BY Perry R. Cook, 1999-2007
' Instructions:
' Connect one wire of some variable resistance to the 
'    red terminal  on the interface board.
' Connect one wire of a capacitor to the black terminal.
' Connect both of the remaining wires (one from the 
'    variable resistor, one from the capacitor) 
'    to the B0 terminal.
' Load and run this program

myword var word

input 0

myloop:
    low 0
    pause 10
    rctime 0,0,myword
    debug DEC myword, cr
goto myloop