home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL-INC.ZIP / DTOF.INT < prev    next >
Encoding:
Text File  |  1989-06-02  |  317 b   |  11 lines
  1. type
  2.   double    = array[0..7] of byte;
  3.  
  4. function dtof(B: double): real;
  5.    {convert 8 byte double to real}
  6. function dtol(B: double): longint;
  7.    {convert 8 byte double to long integer}
  8. procedure ftod(PasReal: real; var B: double);
  9.    {convert real to 8 byte double}
  10. procedure incd(var d: double; n: real);
  11.