>LOCAL m.lnX, m.lii >m.lnX=0xFFFFFFFF+1 > >FOR m.lii=1 TO 32 >?m.lii, VFP64_BITTEST(m.lnX, m.lii) >NEXT >RETURN > >PROCEDURE VFP64_BITTEST >LPARAMETERS m.nNumericExpression1, m.nBitNumber >RETURN IIF(m.nBitNumber<=31, BITTEST(m.nNumericExpression1, m.nBitNumber), BITTEST(m.nNumericExpression1/(0x100000000), m.nBitNumber-32)) >RETURN >.
FOR m.Bit = 32 TO 48 ? m.Bit, VFP64_BITTEST(0x0FFFFFFFFFFFF, m.Bit) ENDFORThere is no safe way for doing this in VFP using numeric types, I believe, as Dragan remarked.