Quake Indicator

---

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.