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