/******************************
	Insert char c into string
	s at position p
******************************/
void strinc(
	char	*s,
	long		p,
	char	c	)
	{
	long 	i;
	long	l;

	l = 0x1L + strlen(s);
	for (i=l;i>p;i--)
		*(s+i) = *(s+i-1);
	*(s+p) = c;
	}

/******************************
	Insert string src into 
	string dst at position p
******************************/
void strins(
	char	*dst,
	long	p,
	char	*src	)
	{
	long 	i;
	long	l,m;

	m = strlen(src);
	l = m + strlen(dst) + 0x1L;
	for (i=l;i>(p+m-1);i--)
		*(dst+i) 	= *(dst+i-m);
	for (i=0;i<m;i++)
		*(dst+p+i)	= *(src+i);
	}