/*-------------------------------------------------------------------
  xtrimr(string,n)
  trims off n chars on right of string
  -------------------------------------------------------------------*/
char *xtrimr(char *x, int xn){
  char *xret ="";
  int xlth;
  int nlth;
  int xsp;
  xlth = strlen(x);
  if(xn < 1)
   return(x);
  //Same Length - Return nothing
  if(xn == xlth)
    return(xret);
  //Trim more than length return nothing
  if(xn > xlth)
    return(xret);
  //Trim it
  nlth = xlth - xn;
  xret = strgetsubstr(x,1,nlth);
  return(xret);
}//trimr