Value = BSet ( Number , Bit )
Return if the Bitth bit of Number is set.
PRINT BSet(13, 1) 15
PRINT BSet(15, 1) 15
AND, BChg, BClr, BTst, FALSE, NOT, OR, Rol, Ror, Shl, Shr, TRUE, XOR