/*-------------------------------------------------------------------
  xright(string,cols,pad)
  returns right most cols in string
  -------------------------------------------------------------------*/
char *xright(char *x, int xcols, char*xpad){
  char *xret = "";
  int xsp;
  int xlth;
  int xadd;
  xlth = strlen(x);
  //Same length just return it
  if(xcols == xlth)
    return (x);
  // Pad it?
  if(xcols => xlth){
    xadd = xcols - xlth;
    xret = strcompose(strgenstr(xpad, xadd), x);
    return (xret);
  }
  //Must be less than length
  xsp = xlth - xcols;
  if(xsp < xlth){xret = strgetsubstr(x, xsp, xcols);}
return (xret);
}//right