home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / INT2REAL.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  265 b   |  18 lines
  1.  
  2. (*
  3.  * convert unsigned integer to real
  4.  *
  5.  *)
  6.  
  7. function int_to_real(i: integer): real;
  8. begin
  9.    if i = $8000 then
  10.       int_to_real := 32768.0
  11.    else if i < 0 then
  12.       int_to_real := 65536.0 + int(i)
  13.    else
  14.       int_to_real := int(i);
  15. end;
  16.  
  17.  
  18.