char *search( pat, text )
     char *pat, *text;

     { int m;

       if( *pat == EOS ) return( text );
       m = strlen(pat);
       for( ; *text != EOS; text++ )
          if( strncmp( pat, text, m ) == 0 ) return( text );
       return( NULL );
     }