Select Code to Download

#!/usr/bin/perl -P

# set this to the bit masks 
...

print "bitwise AND (ONE & FOUR)=", ONE & FOUR, "\n";
print "bitwise AND (ONE & THREE)=", ONE & THREE, "\n";