anchor.diff:    Str:= Ed.Strings.Lines[ALineIndex];
   
     bMsgPrompt:= SBeginsWith(Str, cConsolePrompt);
  -  bMsgNote:= SBeginsWith(Str, 'NOTE: ');
  +  bMsgNote:= SBeginsWith(Str, cConsoleNoteMsg);
     bMsgError:= (Str=cConsoleTracebackMsg) or
       SRegexMatchesString(Str, '^[a-zA-Z][\w\.]*Error: .+', true);
   
  
positive.code:     ModeReadOnly:= true;
  
      if (AText=cConsoleTracebackMsg) or
        SBeginsWith(AText, cConsoleSyntaxErrorMsg) then
      begin
        Inc(ErrorCounter);
        if Assigned(FOnNumberChange) then
  
negative.code:   cConsolePrintPrefix = '=';
    cConsoleTracebackMsg = 'Traceback (most recent call last):';
    cConsoleSyntaxErrorMsg = 'SyntaxError: ';
    cConsoleNoteMsg = 'NOTE: ';
  
  implementation
  
  