BIT.AND

out = BIT.AND( BYVAL op1 AS INTEGER

               BYVAL op2 AS INTEGER ) AS INTEGER

Bitwise AND of op1 and op2.  Returns an integer

Example:

$LIBRARY "MyBASIC2_ExtLib.dll"

DIM c AS INTEGER

DIM a AS INTEGER

a = 31

c = BIT.AND( a, 1 )

IF c = 1 THEN

  PRINT a;" is an ODD number"

ENDIF

' Print some examples...

PRINT "BIT.AND( 0x00110011 & 0x00100010 ) = 0x";FORMAT( "%08X", BIT.AND( 0x00110011, 0x00100010 ) ),

PRINT "BIT.OR( 0x00110011 & 0x00100010 )  = 0x";FORMAT( "%08X", BIT.OR( 0x00110011, 0x00100010 ) ),

PRINT "BIT.XOR( 0x00110011 & 0x00100010 ) = 0x";FORMAT( "%08X", BIT.XOR( 0x00110011, 0x00100010 ) ),

PRINT "BIT.NOT( 0x00110011 )              = 0x";FORMAT( "%08X", BIT.NOT( 0x0F11F00E ) ),

PRINT "BIT.SHIFT( 0x00000011 ) << 1       = 0x";FORMAT( "%08X", BIT.SHIFT( 0x00000011, -1 ) ),

PRINT "BIT.SHIFT( 0x11000000 ) >> 7       = 0x";FORMAT( "%08X", BIT.SHIFT( 0x11000000, 7 ) ),

PRINT "WORD.HI( BIT.NOT( 0x0F11F00E ) )   = 0x";FORMAT( "%08X", WORD.HI( BIT.NOT( 0x0F11F00E ) ) ),

PRINT "WORD.LO( BIT.NOT( 0x0F11F00E ) )   = 0x";FORMAT( "%08X", WORD.LO( BIT.NOT( 0x0F11F00E ) ) ),

PRINT "LONG.MAKE( 0x12, 0x34 )            = 0x";FORMAT( "%08X", LONG.MAKE( 0x12, 0x34 ) ),

END