RosettaCodeData/Task/Bitwise-operations/BASIC/bitwise-operations-1.basic

SUB bitwise (a, b)
  PRINT a AND b
  PRINT a OR b
  PRINT a XOR b
  PRINT NOT a
END SUB