RosettaCodeData/Task/Logical-operations/FutureBasic/logical-operations.futurebasic

24 lines
998 B
Plaintext

include "ConsoleWindow"
def tab 6
dim as long a, b
print "In FB the Boolean constants _true = 1, _false = 0"
print string$( 39, "-" )
print " a", " b", "and", "or", "xor", "nand", "nor"
print string$( 39, "-" )
a = _false: b = _false: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _false: b = _true: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _true: b = _false: print a, b, a and b, a or b, a xor b, a nand b, a nor b
a = _true: b = _true: print a, b, a and b, a or b, a xor b, a nand b, a nor b
print
print "FB also has shorthand operator expressions:
print string$( 39, "-" )
print " a", " b", "&&", "||", "^^", "^&", "^|"
print string$( 39, "-" )
a = _false: b = _false: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _false: b = _true: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _true: b = _false: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b
a = _true: b = _true: print a, b, a && b, a || b, a ^^ b, a ^& b, a ^| b