home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug083.ark / INT%.DIF < prev    next >
Encoding:
Text File  |  1984-04-29  |  472 b   |  16 lines
  1.  file INT%.DIF                                02/26/82
  2. Make a new file INT.DIF as follows:
  3. (1)  Start with the old file INT.DIF.
  4. (2)  Insert in it, at the end (just before RDS() $ ),
  5.           all of this file below the line:
  6. -------------------------------------------------------------
  7.  
  8. FUNCTION ERF(EX1),
  9.   WHEN EX1 EQ MINF, -1  EXIT,
  10.   WHEN EX1 < 0, -ERF(-EX1)  EXIT,
  11.   WHEN ZERO(EX1), 0  EXIT,
  12.   WHEN EX1 EQ PINF, 1  EXIT,
  13.   SIMPU('ERF,EX1),
  14. ENDFUN $
  15.  
  16.