char *substr(s, t, i, n)
    char s[],
         t[];
    int  i,
	 n;
{
    char k;
    for(k=0; (s[i] != '\0') && (k < n) && (s[i] != '\n') ;) {
	 t[k++] = s[i++];
    }
    t[k] = '\0';
    return(t);
}