Any and All Statement Text Test

---

all Statement Test Program no 1

This is an example program showing how to use all statements.

---

prog_vars =

d/pin1 0

d/pin2 1

d/float1 12.5

d/float2 3.141

d/int1 10

d/int2 0

d/pin_no 0

d/text1 "Jack"

d/text2 "Jill"

prog_vars.

prog_start =

print " -------------- "

print "all statement test program"

prog_start.

prog_loop =

-- Test 1 Should be TRUE ie "a" = "a"

all "a" = "a" ->

print "Test 1 TRUE CORRECT"

else

print "Test 1 FALSE WRONG"

exitprog

enda.

-- Test 2 Should be FALSE ie "a" != "b"

all "a" = "b" ->

print "Test 2 TRUE WRONG"

else

print "Test 2 FALSE CORRECT"

exitprog

enda.

-- Test 3 Should be TRUE ie /text1 is != /text2

all /text1 != /text2 ->

print "Test 3 TRUE CORRECT"

else

print "Test 3 FALSE WRONG"

exitprog

enda.

-- Test 4 Should be TRUE ie /text1 is "JacK"

all /text1 = "Jack" ->

print "Test 4 TRUE CORRECT"

else

print "Test 4 FALSE WRONG"

exitprog

enda.

-- Test Should be TRUE ie "Jack" is = "JacK"

all "Jack" = "Jack" ->

print "Test 5 TRUE CORRECT"

else

print "Test 5 FALSE WRONG"

exitprog

enda.

prog_loop.

prog_stop =

print "Bye"

prog_stop.