DC> If you want me to do it, it's got 2 large and 2 uncertain-sized
DC> (hopefully small) projects ahead of it yet..
You can do it, or not, whatever you wish, it was just an idea. I
have all ready posted all the code necessary to create the program.
...Here, aprox 150) do
        if pos(sa[j],p)>0
        then begin
               writeln(fo,s);
               inc(n);
               j := 0;
             end
        else dec(j);
    end;     { while not eof(fi) }
  end;
begin
  if paramcount  3
  then message('SEARCH file.in file.out pattern.fil')
  else assign(fp,paramstr(3));
  assign(fi,paramstr(1)); { could fexpand and }
  assign(fo,paramstr(2)); {test in  out }
  settextbuf(fi,bi);
  settextbuf(fo,bo);
  settextbuf(fp,bp);
  {$I-} reset(fp); {$I+}
  if ioresult  0
  then message('Pattern File not found');
  {$I-} reset(fi); {$I+}
  if ioresult  0
  then message('File to search  not found');
  {$I-} rewrite(fo); {$I+}
  if ioresult  0
  then message('Unable to create output file');
  i := 0;
  n := 0;
  while not eof(fp) do
  begin
    {$I-} readln(fp,s); {$I+}
    if ioresult  0
    then message('Error occured reading pattern file');
    if (length(s)>0) and (i < max)
    then begin
           inc(i);
           upper(s);
           sa[i] := s;
         end
  end;     { while not eof(fp) }
  if i > 0 then Check4match;
  closeup;
  if n=0 then halt(1);  { nothing found }
end.
-Lee
---
 þ Tags ç Us þ Dawn crept silently across the yard, searching for her keys
--- QScan/PCB v1.18b / 01-0219
---------------