[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]

{*****************************************************************************
 * Function ...... RTOS()
 * Purpose ....... To convert a REAL to a string
 * Parameters .... nNum       REAL to convert to string format
 *                 nLength    Length of resultant string
 *                 nDec       Decimal places
 * Returns ....... <nNum> as a string, <nLength> long to <nDec> decimal places
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 *****************************************************************************}
FUNCTION RTOS( nNum: REAL; nLength, nDec: INTEGER ): STRING;
VAR
   s: ^STRING;
BEGIN
     ASM  
          mov     sp, bp 
          push    ss
          push    WORD PTR @RESULT
     END;
     STR( nNum:nLength:nDec, s^ );
END;

[Back to STRINGS SWAG index]  [Back to Main SWAG index]  [Original]