modules/tostr.bas

   1 DECLARE FUNCTION toStr$ (a!)\r
   2 \r
   3 FUNCTION toStr$ (a)\r
   4 \r
   5 b$ = STR$(a)\r
   6 IF LEFT$(b$, 1) = " " THEN b$ = RIGHT$(b$, LEN(b$) - 1)\r
   7 toStr$ = b$\r
   8 \r
   9 END FUNCTION\r
  10 \r