/****************************************************************************
*  STRNCAT  -  concatenate strings (limited)
*

*	BYTE *strncat(s1,s2,n)
*	BYTE *s1, *s2; WORD n;
*
*	'strncat' copies at most n bytes of s2 onto the end of s1.
*
*	Assumes null terminated strings. No check is made for string area
*		overflow.
****************************************************************************/

#include <portab.h>

BYTE *	strncat(s1,s2,num)			/* CLEAR FUNCTION ***********/
	BYTE *s1;
REG	BYTE *s2;			/* 'n' unsigned: if n<0, we'll	*/
	WORD num;			/*  still decrement to 0.	*/
{
	REG BYTE *cp;

	for( cp=s1; *cp; cp++)		/* save s1 for return.		*/
		;
	while( *s2 && num-- > 0 )	/* copy until eos(s2) or n==0:	*/
		*cp++ = *s2++;		/*  no copy if n==0.		*/
	*cp = NULL;			/* make sure string gets eos.	*/
	return(s1);
}
copy if n==0.		*/
	*cp = NULL;			/* make sure string gets eos.	*/
	return(s1);
}
copy if n==0.		*/
	*cp = NULL;			/* make sure string gets eos.	*/
	return(s1);
}
