Ant Command Test

---

Ant test Program

---

prog_vars =

d/count 0

prog_vars.

prog_start =

rdbg 5

/count 1

prog_start.

prog_loop =

test_ant 10 10

test_ant 1000 1000

exitprog

prog_loop.

test_ant /in_count 0 /int1 0 =

print "Ant Test count /in_count "

ant /in_count ->

< -10 -> print "Count is < -10"|tg d1

/int1 < 0 -> print "Count is < 0"|tg d1

< 10 -> print "Count is < 10"|tg d1

< 100 -> print "Count is < 100 ERROR"|tg d1

< 200 -> print "JP99"|task1 /count

-> print "Default Action"

ant.

print "POST the ant"

test_ant.

prog_stop =

print "Bye"

prog_stop.