/*-------------------------------------------------------------------
  xcopies(string,n)
   returns string witn n copies of string
   Mark McDonald 2008
  -------------------------------------------------------------------*/
char *xcopies(char *x, int xn){
  char *xret;
  int xcnt;
  while( xcnt <= xn){
    strcat(xret,x);
    xcnt++;
  }//wend
  return(xret);
}//xcopies