' {$STAMP BS2p}
' {$PBASIC 2.5}
' {$PORT COM8}
'GOSUB StartUp
' -----[ I/O Definitions ]-------------------------------------------------
StepSen1 PIN 15 ' Lower level steps sensor
FoyerSen PIN 14 ' Foyer sensor
StepSen2 PIN 13 ' Upper level steps sensor
BathSen PIN 12 ' Outside half-bath sensor
HallSen PIN 11 ' Hallway sensor
StepLED1 PIN 9 ' Lower level steps LED
FoyerLED PIN 8 ' Foyer LED00
Stairs2LED PIN 7 ' Upper level stairs LED
HallwayLED PIN 6 ' Hallway LED
Hallway2LED PIN 5 ' Hallway/Loft LED
Main:
PAUSE 3000
DO
DEBUG HOME, BIN1 StepSen1
IF (StepSen1 = 1 ) THEN
HIGH StepLED1
PAUSE 5000
LOW StepLED1
ELSEIF (FoyerSen = 1 ) THEN
HIGH FoyerLED
PAUSE 5000
LOW FoyerLED
ELSEIF (StepSen2 = 1 ) THEN
HIGH Stairs2LED
PAUSE 500
LOW Stairs2LED
ELSEIF (HallSen = 1) OR (BathSen = 1 ) THEN
HIGH HallwayLED
HIGH Hallway2LED
PAUSE 500
LOW HallwayLED
LOW Hallway2LED
ENDIF
PAUSE 10
LOOP