home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 14 / MA_Cover_14.iso / source / e / powerd / lib / powerd_lib.lha / PowerD / RealStr.d < prev    next >
Encoding:
Text File  |  1999-06-23  |  297 b   |  16 lines
  1. OPT    OBJECT
  2.  
  3. PROC RealStr(str:PTR TO CHAR,f:DOUBLE,n=1)(PTR TO CHAR)
  4.     DEFD    d
  5.     DEFL    top,rest
  6.     DEF    buf[24]:CHAR        // this is large enough
  7.     d:=FAbs(f)
  8.     top:=d
  9.     d-=top
  10.     d*=1000000000
  11.     rest:=d
  12.     IF f<0 THEN top:=Neg(top)
  13.     StringF(buf,'\d.\z\r\d[9]',top,rest)
  14.     StrCopy(str,buf,StrLen(buf)-9+n)
  15. ENDPROC str
  16.