13 lines
320 B
Plaintext
13 lines
320 B
Plaintext
sub formBin$(n)
|
|
return right$("00000000" + bin$(n), 8)
|
|
end sub
|
|
|
|
a = 6 : b = 3
|
|
print a, " = \t", formBin$(a)
|
|
print b, " = \t", formBin$(b)
|
|
print "\t--------"
|
|
print "AND = \t", formBin$(and(a, b))
|
|
print "OR = \t", formBin$(or(a, b))
|
|
print "XOR = \t", formBin$(xor(a, b))
|
|
print "NOT ", a, " =\t", formBin$(xor(255, a))
|