Pristine Ack-5.5
[Ack-5.5.git] / lang / basic / test / test09.b
1 100 if -1 then print "ok" else print "error1"
2 110 if 1>0 then print "ok2" elseprint "error2"
3 120 if 1<2 then print "1<2" else print "error 1<2"
4 130 if 1<0 then print "error 1<0" else print "1<0 "
5 220 if 1<=2 then print "1<=2" else print "error 1<=2"
6 230 if 1<=0 then print "error 1<=0" else print "1<=0 "
7 320 if 1>2 then print "error 1>2" else print "1>2"
8 330 if 1>0 then print "1>0" else print "error 1>0 "
9 420 if 1>=2 then print "error 1>=2" else print "1>=2"
10 430 if 1>=0 then print "1>=0" else print "error 1>=0 "
11 500 if -1 and -1 then print "-1 and -1" else print "error -1 and -1"
12 510 if -1 and 0 then print "error -1 and 0" else print "-1 and 0"
13 520 if -1 or -1 then print "-1 or -1" else print "error -1 and -1"
14 530 if -1 or 0 then print "-1 or 0" else print"error -1 or 0"
15 540 if 0 or 0 then print "error 0 or 0" else print "0 or 0"
16 600 if 1<1 then print "error 1<1" else print "1<1"
17 605 i=100
18 610 if i=100 then print "i=100" else print "error i=100"