ack/lang/basic/test/test09.bas

19 lines
959 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
100 if -1 then print "ok" else print "error1"
110 if 1>0 then print "ok2" elseprint "error2"
120 if 1<2 then print "1<2" else print "error 1<2"
130 if 1<0 then print "error 1<0" else print "1<0 "
220 if 1<=2 then print "1<=2" else print "error 1<=2"
230 if 1<=0 then print "error 1<=0" else print "1<=0 "
320 if 1>2 then print "error 1>2" else print "1>2"
330 if 1>0 then print "1>0" else print "error 1>0 "
420 if 1>=2 then print "error 1>=2" else print "1>=2"
430 if 1>=0 then print "1>=0" else print "error 1>=0 "
500 if -1 and -1 then print "-1 and -1" else print "error -1 and -1"
510 if -1 and 0 then print "error -1 and 0" else print "-1 and 0"
520 if -1 or -1 then print "-1 or -1" else print "error -1 and -1"
530 if -1 or 0 then print "-1 or 0" else print"error -1 or 0"
540 if 0 or 0 then print "error 0 or 0" else print "0 or 0"
600 if 1<1 then print "error 1<1" else print "1<1"
605 i=100
610 if i=100 then print "i=100" else print "error i=100"