home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / MANTISSA.PRG < prev    next >
Text File  |  1990-10-22  |  437b  |  18 lines
  1. ***********
  2. * MANTISSA.PRG
  3. * by Tom Rettig and Leonard Zerman
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO MANTISSA WITH <expN> 
  7. * RETURN: Number between 1 and 1.99999999... which is multiplied
  8. *         by the power of 2 necessary to produce <expN>
  9. ***********
  10. PARAMETERS par1 
  11. CALL Trpass  WITH par1
  12. CALL Trexe   WITH "MANTISSA"
  13. IF fox
  14.    RETURN (tr_retn)
  15. ENDIF
  16. * eof mantissa *
  17.  
  18.