Bitwise operations AND,OR,XOR,IMP,EQV,NOT

Download BITOP.zip, extract BITOP.DLL and put it into the folder where BASIC.EXE exists to enable bitwise operations as follows.
As NOT is a reserved word of Full BASIC, the name of NOT function is altered to BNOT.
The applicable range is upto 32 bit.

DECLARE EXTERNAL FUNCTION AND,OR,XOR,IMP,EQV,BNOT
LET a=BVAL("1010",2)
LET b=BVAL("11",2)
PRINT AND(a,b),OR(a,b),XOR(a,b),IMP(a,b),EQV(a,b)
PRINT BNOT(a),BNOT(b)
END
EXTERNAL FUNCTION AND(a,b)
ASSIGN "BitOp.dll","ANDop"
END FUNCTION
EXTERNAL FUNCTION OR(a,b)
ASSIGN "BitOp.dll","ORop"
END FUNCTION
EXTERNAL FUNCTION XOR(a,b)
ASSIGN "BitOp.dll","XORop"
END FUNCTION
EXTERNAL FUNCTION IMP(a,b)
ASSIGN "BitOp.dll","IMPop"
END FUNCTION
EXTERNAL FUNCTION EQV(a,b)
ASSIGN "BitOp.dll","EQVop"
END FUNCTION
EXTERNAL FUNCTION BNOT(a)
ASSIGN "BitOp.dll","NOTop"
END FUNCTION


Back