Ant Command Test

This is a test for the ant command.

Program


---

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.