Forgot one other routine ======= tindex(s,t) char s[], t[]; { register int j,k,i; for(i=0;s[i] != '\0'; i++) { for(j=i,k=0;t[k] != '\0' && s[j]== t[k]; j++, k++) ; if(t[k] == '\0') return(i); } return(-1); }