home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 2002 July 1 / VMAG130101.iso / ONLINE / monthly / calc / CLPCA511.LZH / ClipCalc / EXTFUNC / roff.cef < prev    next >
Encoding:
Text File  |  1999-05-21  |  235 b   |  11 lines
  1. #!/usr/local/bin/clip
  2. #ÄlÄ╠î▄ôⁿ rounding off
  3. #\!- <prec> <val>
  4. :complex \16
  5. @p = pow 10 @0
  6. @r = @p * real @1 + 0.5
  7. @i = @p * imag @1 + 0.5
  8. @r = int (@r / @p) + int (@r % @p) / @p
  9. @i = int (@i / @p) + int (@i % @p) / @p
  10. @r @i
  11.