Value = BClr ( Number , Bit )
Returns Number with its Bitth bit cleared.
PRINT BClr(15, 1) 13
PRINT BClr(13, 1) 13
AND, BChg, BSet, BTst, NOT, OR, Shl, Shr, XOR