misc/LINECNT.PAS

uses crt,dos;
{::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::}
var eFileHandle : text;
    eCounter    : longInt;
    eFileData   : searchRec;
    eString     : string;
 begin
 findFirst('*.PAS',archive,eFileData);
 while (dosError=0) do
  begin
  assign(eFileHandle,eFileData.name);
  reset(eFileHandle);
   repeat
   readLn(eFileHandle,eString);
   inc(eCounter);
   until (eof(eFileHandle)=true);
  close(eFileHandle);
  findNext(eFileData);
  end;
 writeLn('Total Source Lines >> ',eCounter);
 end.