FUNCTION Int2Float(num) && By Anatoly Mogylevets - found in www.fox.wikis.com * converts FoxPro numeric to 32-bit float form #DEFINE REAL_BIAS 127 #DEFINE REAL_MANTISSA_SIZE 23 #DEFINE REAL_NEGATIVE 0x80000000 #DEFINE EXPONENT_MASK 0x7F800000 #DEFINE MANTISSA_MASK 0x7FFFFF LOCAL sgn, exponent, mantissa DO CASE CASE num < 0 **************************************************** OPERATOR TYPE MISMATCH sgn = REAL_NEGATIVE num = -num CASE num > 0 sgn = 0 OTHERWISE RETURN 0 ENDCASE