' {$STAMP BS2} ' {$PBASIC 2.5} UDPin CON 0 LRPIn CON 1 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, "Up/Down = ", DEC UD, ", Left/Right = ", DEC LR, CLREOL PAUSE 50 LOOP