top of page
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.
bottom of page