
/*
** scopy -- copy from[i] to to[j]
*/
scopy(from, i, to, j) char *from, *to; int i, j; {
  from=from+i;
  to=to+j;
  while(*to++ = *from++);
  }
                                                                                                                                                                                                                                                                                                                                                                  