$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
   DECLARE FUNCTION TRIML(Strng$,Amount%) AS STRING
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB6"
'/*------------------------------------------------------------------*/
  FUNCTION MKSTR(BYVAL NUMB##) PUBLIC AS STRING
    T$ = STR$(NUMB##)
    IF NUMB## > 0 THEN T$ = TRIML(T$,1)
    FUNCTION = T$
  END FUNCTION
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   A$ = MKSTS(32586110.24)
'   SAY 10,1,A$,31
'   Y$ = GETKEY
'/*------------------------------------------------------------------*/