Random Light Flasher Using the an Command

---

Random Light Flasher Program using the rand and ant comamnds

This program uses the rand and ant commands to randomly

flash LED's connected to port A. The rand command generates a

number between 1 and 5 and stores it in the /rand_no var.

The ant command evaluates the value of /rand_no and toggles

the required LED on port A.

The program will run for /runs_to_do and stop.

---

prog_vars =

d/runs_to_do 50

d/runs_done 0

d/rand_no 0

prog_vars.

prog_start =

aoff

prog_start.

prog_loop =

-- Do /runs_to_do runs

repeat /runs_to_do ->

-- Get a random number

rand 1 5 -> /rand_no

"rand no /rand_no run no /runs_done"

ant /rand_no ->

= 1 -> tg a1

= 2 -> tg a2

= 3 -> tg a3

= 4 -> tg a4

= 5 -> tg a5

-> "out of range number /rand_no"

ant.

repeat.

-- dec the runs to do and inc runs done

dec /runs_to_do

inc /runs_done

-- exit after runs done

any /runs_done >= /runs_to_do -> exitprog

prog_loop.

prog_stop =

-- Turn the port A Leds off

aoff

print "Bye"

prog_stop.