Thanks for your help again. i still have a problem (sorry). for the 1st 31 bits i get the error "missing expression". the rest evaluates correctly. i'll see if i can figure out the problem.



AiaIaiaIai! You run on VFP6SP5 !

On this, TRANSFORM(,"@0") not mask the 32 bits of the numeric value, and it return a
"stars string" ( overflow in VFP computations ).

then you have to return into a two way computation:

CLEAR

*** FULL TEST
x=0
? 'zero'
?
FOR k=0 TO 52
	IF Test(m.x,m.k)
  		?? TRANSFORM(m.k,"@R < 99 >")
  	ENDIF
NEXT
* PREPARE A FULL 53 BITS SET TO 1 
FOR k=0 TO 52
	x=m.x+2^m.k
NEXT
? '111...'

FOR k=0 TO 52
	IF Test(m.x,m.k)
  		?? TRANSFORM(m.k,"@R < 99 >")
  	ENDIF
NEXT

FUNCTION Test
LPARA	MasterBit, TestBit

#IF VERSION(5)>800
	RETURN BITTEST(m.MasterBit*2^MIN(0,32*SIGN(31-m.TestBit)), m.TestBit%32)
#ELIF VERSION(5)>600
	RETURN BITTEST(EVALUATE(TRANSFORM(m.MasterBit*2^MIN(0,32*SIGN(31-m.TestBit)),"@0")), m.TestBit%32)
#ELSE
	RETURN IIF(m.TestBit<32	;
			,BITTEST(m.MasterBit, m.TestBit)	;
			,BITTEST(EVALUATE(TRANSFORM(m.MasterBit*2^MIN(0,32*SIGN(31-m.TestBit)),"@0")), m.TestBit%32))
#ENDIF