s_copy(a, b, la, lb)	/* assign strings:  a = b */char *a, *b;long int la, lb;{char *aend, *bend;aend = a + la;if(la <= lb)	while(a < aend)		*a++ = *b++;else	{	bend = b + lb;	while(b < bend)		*a++ = *b++;	while(a < aend)		*a++ = ' ';	}}