program checkarq;
uses Dos;

var
  F: text;
  S: string;

begin
  Assign(F, 'dobbs.bat');
  {$I-}
  Reset(F);
  {$I+}
  if IOResult <> 0 then begin
    writeln('Cannot open DOBBS.BAT');
    exit;
  end;
  Readln(F, S);
  if Pos('/Arq', S) <> 0 then begin
    Close(F);
    Rewrite(F);
    S := S + ' /E';
    Writeln(F, S);
    close(F);
  end;
end.