OPTION EXPLICIT

CONST PIRLED=1:SETPIN PIRLED,DOUT
PIN(PIRLED)=0 'ensure LED off to start with

CONST PIRPIN=2: SETPIN PIRPIN,DIN,PULLDOWN

'PROGRAM START

DO
DO WHILE PIRPIN=0:LOOP ' endless loop while no motion (i.e. PIR input LOW)
DO WHILE PIRPIN=1 ' if here then see if motion is still detected
PIN(PIRLED)=1 ' LED on
PAUSE 200 ' but only briefly
PIN(PIRLED)=0 ' before turning LED OFF again
PAUSE 200 ' bit more of a delay (so LED can Flash if movement still occurring)
LOOP ' see if still moving i.e. PIRPIN=1
LOOP ' if no movement (i.e. PIRPIN=0) - then go back to wait for next movement

END

OPTION EXPLICIT

CONST PIRLED=4:SETPIN PIRLED,DOUT

CONST PIRPIN=5

SETPIN PIRPIN,INTH,ALERT,PULLDOWN

DIM SIGN=0

'PROGRAM START

DO
PIN(PIRLED)=0
DO WHILE SIGN=0
LOOP
MOTIONACTION
SIGN=0
LOOP


SUB ALERT
SIGN=1
END SUB

SUB MOTIONACTION
PRINT "MOTION DETECTED!"
PIN(PIRLED)=1
PAUSE 1000
PIN(PIRLED)=0
END SUB

END