home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL3.ZIP / INT2REAL.INC < prev    next >
Encoding:
Text File  |  1987-03-28  |  414 b   |  22 lines
  1.  
  2. const int2real_tag: string[90]
  3.    = #0'@(#)CURRENT_FILE LAST_UPDATE Convert unsigned int to real 1.0'#0;
  4. #log Convert unsigned int to real 1.0
  5.  
  6. (*
  7.  * convert unsigned integer to real
  8.  *
  9.  *)
  10.  
  11. function int_to_real(i: integer): real;
  12. begin
  13.    if i = $8000 then
  14.       int_to_real := 32768.0
  15.    else if i < 0 then
  16.       int_to_real := 65536.0 + int(i)
  17.    else
  18.       int_to_real := int(i);
  19. end;
  20.  
  21.  
  22.