$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)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB1"
'/*-------------------------------------------------------------------
FUNCTION TRIML(Strng$,Amount%) PUBLIC AS STRING
  IF LEN(Strng$) - 1 >= Amount% THEN
    TRIML = RIGHT$(Strng$,LEN(Strng$) - Amount%)
  ELSE
    TRIML = Strng$
  END IF
END FUNCTION
'/*------------------------------------------------------------------*/
'    CLS
'    PRINT TRIML("    abc",2)
'    PRINT TRIML("AB",2)
'    INPUT Z