home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / LTOR.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  332 b   |  24 lines
  1.  
  2. (*
  3.  * ltor - long integer to real conversion, s.h.smith, 24-jul-87 (21-dec-87)
  4.  *
  5.  *)
  6.  
  7. function ltor(long: long_int): real;
  8. var
  9.    l: longint absolute long;
  10. begin
  11.    ltor := l;
  12. end;
  13.  
  14.  
  15. procedure rtol(r: real;
  16.                var long: long_int);
  17. var
  18.    l: longint absolute long;
  19. begin
  20.    l := trunc(r);
  21. end;
  22.  
  23.  
  24.