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