' Demonstrate the RCIN command
		Device 16F877
        Declare XTAL 20
        Remarks ON        
        Declare RSOUT_PIN PortB.0
        
        Dim Result as Word        
        Rsout Cls
Inf:	High PortB.1
        Delayms 2
        Result = RCIN PortB.1,High
        Rsout at 1,1,@Result,"  "
        Goto Inf