10 INPUT "A="; A
20 INPUT "B="; B
30 PRINT "A AND B =" A AND B    :rem AND
40 PRINT "A OR B =" A OR B      :rem OR
50 PRINT "A XOR B =" (A AND(NOT B))OR((NOT A)AND B)    :rem XOR
60 PRINT "NOT A =" NOT A        :rem NOT