Multiple relational operators in a single line of code

[tsh73]

print "AND: both conditions must hold"
age = 20
print "Age = ";age
If age>19 AND age<60, then print "he/she is an adult" else print "I dunno"
age = 15
print "Age = ";age
If age>19 AND age<60, then print "he/she is an adult" else print "I dunno"

print
print "OR: any (or both) conditions must hold"
age = 15
print "Age = ";age
If age<19 OR age>60, then print "he/she either loo young or too old" else print "I dunno"
age = 65
print "Age = ";age
If age<19 OR age>60, then print "he/she either loo young or too old" else print "I dunno"
age = 20
print "Age = ";age
If age<19 OR age>60, then print "he/she either loo young or too old" else print "I dunno"
'actuallt OR is logical OR, nor exclusive OR
print "XOR: only one conditions must hold"

print
print "NOT: condition must NOT hold"
age = 20
print "Age = ";age
If not(age>19) then print "he/she is NOT adult" else print "I dunno"
age = 15
print "Age = ";age
If not(age>19) then print "he/she is NOT adult" else print "I dunno"

print
print "Result of comparison is 0 (false) or 1 (true)"
print "1>2: "; 1>2, "1<2: "; 1<2
print "but NOT(0) gives '-1'"

print "any non-zero integer is consided true by IF  statement"
print "so it still true"
if 1 then print "true" else print "false"
if -1 then print "true" else print "false"
if 0 then print "true" else print "false"

print
true = 1 : false = 0
print "x", "not(x)"
print "----------------------"
for x = false to true
   print x, not(x)
next

print
print "x", "y", "x and y", "x or y", "x xor y"
print "----------------------------------------------------------------"
for x = false to true
   for y = false to true
       print x, y, x and y, x or y, x xor y
   next
next




[B+]

Man 60 aint too old, not for Basic!

[zzz000abc]

Hi ice,
have a glance through the following examples also

res$="minor adult old"
for age=10 to 70  step 10
  x=(age<=19 and age>0)+(age>19 and age<60)*2+(age>=60)*3
  k=k+1
  print "SNo. ";k;" age :";age;" result :";word$(res$,x)
next

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

for j=1 to 10
    i=j mod 2
   x=(i=0)+(i<>0) 'compare plus with or
   y=(i=0)*(i<>0) 'compare * with and
   print j;".  ";"x=";x;" y=";y;" z=";z
next