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