' {$STAMP BS2} ' {$PBASIC 2.5} UDPin CON 8 LRPIn CON 9 LR VAR Word UD VAR Word DO HIGH LRPin PAUSE 2 RCTIME LRPin, 1, LR HIGH UDPin PAUSE 2 RCTIME UDPin, 1, UD DEBUG HOME, "UD = ", DEC UD, ", LR = ", DEC LR, CLREOL PAUSE 50 LOOP