unsigned long str_add(char *d, const char *s, unsigned long u) /*EXTRACT_INCL*/ {
  unsigned long l=0;
  for (l=0; s[l] && l<u; l++) d[l] = s[l];
  return(l);
}