Parallax 27800 - BASIC Stamp HomeWork Board; BASIC Stamp Implementation

Copyright © Parallax Inc. Page 3 of 5
BASIC Stamp HomeWork Board
' {$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
Note: When this program is run the BASIC Stamp Debug Terminal will automatically open.