PIR Sensor

Program


---

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.