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...' ? TRANSFORM(m.x*2^-32,"@R0") 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)<900 RETURN BITTEST(EVALUATE(TRANSFORM(m.MasterBit*2^MIN(0,32*SIGN(31-m.TestBit)),"@0")), m.TestBit%32) #ELSE RETURN BITTEST(m.MasterBit*2^MIN(0,32*SIGN(31-m.TestBit)), m.TestBit%32) #ENDIFTo use EVAL(TRANSFORM( is demential,