anchor.diff:      private
         FNoExitBehavior : TNoExitBehavior;
   
  -      procedure PrintTotalDuration;
  +      procedure ActualizeExitCode(var CurrentExitCode : Integer);
         procedure ProcessOptions;
  -      procedure UpdateExitCode(var AnExitCode : Integer);
   
         // Application commands implementation:
         procedure PrintHelp;
  
positive.code:         .Execute(acMakeArchive)
          .Execute(acTerminate);
  
        UpdateExitCode(Result);
        PrintTotalDuration;
      except
        Exception.RaiseOuterException(EApplicationExecutionFailed.Create);
      end;
  
negative.code:         FNoExitBehavior := TNoExitBehavior(iValue);
  end;
  
  end.
  