Паскаль / do9 / iriepas201 / Irie Pascal / samples / batch

//*****************************************************
// This program is a primitive batch processor.
// It sends each line in the input file to the
//   command processor.
program batch(f, output);
var
   f : text;
   s : string;
   err : integer;
begin
   writeln('This is a simple command processor');
   writeln('Enter quit when done');
   writeln;
   err := 0;
   reset(f);    (* open input file or standard input file *)
   write('>');
   while not eof(f) do
      begin
         readln(f, s);
         if lowercase(trim(s)) = 'quit' then
            exit;
         writeln('Executing ', s);
         err := system(s);      (* Pass 's' to the command processor *)
         writeln('Error code is ', err);
         if err <> 0 then
            exit(err);
         write('>');
      end;
   exit(err)
end.