Value = BSet ( Number , Bit )
Return if the Bitth bit of Number is set.
Example :
PRINT BSet(13, 1) => 15 PRINT BSet(15, 1) => 15