Quake Indicator

This has 3 RC Servos connected to ports A1 to A3.

Program


---

Quake Indicator Program

This has 3 rc servos connected to ports A1 to A3.

---


prog_vars =

d/count 0

prog_vars.


prog_start =

pclear

print "Program Start count /count"

prog_start.


prog_loop =

-- main program loop

print "Count /count"

inc /count

any /count >= 50 -> exitprog


small_quake

medium_quake

big_quake


exitnow


prog_loop.

small_quake =


"small"

-- Sweep Servo on A1

svs a1 90 5

small_quake.


medium_quake =


"Medium"


-- Sweep Servo on A2

svs a2 90 5

medium_quake.

big_quake =


"Big"

-- Sweep Servo on A3

svs a3 90 5


big_quake.



prog_stop =

print "Bye"

prog_stop.