anchor.diff:            end;
           //We now have command text and parameters, so process them
   
  -        if Assigned(fOnProcessCommandText) then
  -          fOnProcessCommandText(CommandType, CommandText, CommandStartPos, I);  //Pass command end position in text;
  -
           if not ProcessCommand(CommandType, ParamList, TextParam) then
           //A returned value of false indicates an error has occoured and we should exit
             Exit;
  
positive.code: type
    TMissionParserCommon = class
    protected
      fOnProcessCommandText: TKMCommandTextEvent;
      fMissionFileName: string;
      fLastHand: TKMHandIndex; //Current Player
      fFatalErrors: string; //Fatal errors descriptions accumulate here
  
negative.code:   repeat
      if aText[I] = '!' then
      begin
  
        //Default uninitialized values
        TextParam := '';
  