(*$M 32768, 0, 327680 *)

Program SE_DIR;
Uses
  CRT, DOS;

(*
 *  18.04.1994: Creation TL
 *  12.10.2003:
 *
 *  1) Avec TURBO chercher dans l'aide en ligne  FindFIRST et FindNEXT
 *
 *  2) Lister seulement les noms de Dossier (Directory)
 *
 *  3) Lister seulement les fichiers executables (*.BAT, *.COM, *.EXE)
 *
 *)

(*-----*)

Var
  DirINFO: SearchREC;

Begin  (* Debut *)
  FindFIRST('*.*', AnyFile, DirINFO);
  WHILE DosError = 0 DO BEGIN
    Writeln(' ', DirInfo.Name);
    FindNEXT(DirINFO);
  END;
End.   (* SE_DIR *)