rem: gets1(s, len) char *s; int len;
add: gets1(char *s, int len)
context: gets1(s, len)	char *s;	int len;{char *p;int nbl;while(len > 0)	{	iline++;	while ((p = fgets(s,len,tabin))==0)		{		if (swapin()==0)			return(0);		}	while (*s) s++;	s--;	if (*s == '\n') *s-- =0;	else		{		if (!feof(tabin))			{			if (ferror(tabin))				error(errmsg(errno));			else				error(gettext("Line too long"));			}		}	for(nbl=0; *s == '\\' && s>p; s--)		nbl++;	if (linstart && nbl % 2) /* fold escaped nl if in table */		{		s++;		len -= s - p;		continue;		}	break;	}return(p);}