/*-------------------------------------------------------------------
  xpos(needle, haystack,start)
   returns start position of needle in haystack if found
   If needle not found, 0 is returned
   Mark McDonald 2008
  -------------------------------------------------------------------*/
int *xpos(char *xneedle, char xhay, int xsp){
  int xret = 0;
  if(xsp < 1){xsp = 1;}
  if(xsp => strlen(xhay)){return(0);}
  xret = strfindsubstr(xhay, xneedle, xsp);
return(xret);
}//xpos