home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / DTOF.INT < prev    next >
Encoding:
Text File  |  1988-01-29  |  202 b   |  11 lines
  1.  
  2. type
  3.   double    = array[0..7] of byte;
  4.  
  5. function dtof(B: double): real;
  6.    {convert 8 byte double to real}
  7.  
  8. procedure ftod(PasReal: real; var B: double);
  9.    {convert real to 8 byte double}
  10.  
  11.