uses dos;

var s,spath:string;
    ps:dirstr;
    ns:namestr;
    es:extstr;
    notfound:boolean;

begin
  writeln;
  writeln('Find EXE/COM/BAT files on the PATH.');
  writeln;
  writeln('Enter commandline:');
  write(':'); readln(s);

  while (copy(s,1,1)=' ') do s:=copy(s,2,length(s)-1);

  fsplit(s,ps,ns,es);

  notfound:=FALSE;
  s:=ns+'.EXE'; spath:=fsearch(s,getenv('PATH'));
  if (spath='') then begin
    s:=ns+'.COM'; spath:=fsearch(s,getenv('PATH'));
    if (spath='') then begin
      s:=ns+'.BAT'; spath:=fsearch(s,getenv('PATH'));
      if (spath='') then notfound:=TRUE;
    end;
  end;

  if (not notfound) then spath:=fexpand(spath);

  if (notfound) then writeln('Not found.') else writeln('Found: '+spath);

end.