PIR Sensor

---

Pir sensor program

---

prog_vars =

d/senout 0

d/prev 0

prog_vars.

prog_start =

bms 0

gt a1

prog_start.

prog_loop =

-- main program loop

/senout /a1

any /prev = /senout ->

patcat

else

print "out /senout"

enda.

any /a1 = 0 -> bms 50

any /a1 = 1 -> bms 0

/prev /senout

prog_loop.

prog_stop =

print "Bye"

prog_stop.