' {$STAMP BS2} ' {$PBASIC 2.5} DEBUG "Warming up..." PAUSE 20000 ' PIR warm-up time DEBUG CLS DO DEBUG HOME, "IN0 = ", BIN1 IN0 ' Display state of PIR sensor PAUSE 100 ' Small Delay LOOP ' Repeat Forever