12 lines
308 B
Text
12 lines
308 B
Text
SUB bitwise (a AS Integer, b AS Integer)
|
|
DIM u AS UInteger
|
|
|
|
PRINT "a AND b = "; a AND b
|
|
PRINT "a OR b = "; a OR b
|
|
PRINT "a XOR b = "; a XOR b
|
|
PRINT "NOT a = "; NOT a
|
|
PRINT "a SHL b = "; a SHL b
|
|
PRINT "a SHR b (arithmetic) = "; a SHR b
|
|
u = a
|
|
PRINT "a SHR b (logical) = "; u SHR b
|
|
END SUB
|