anchor.diff:    DoUpdateMemo;
   
     try
  -    if SBeginsWith(Str, cConsolePrintPrefix) then
  +    if StartsStr(cConsolePrintPrefix, Str) then
       begin
         Str:= 'print('+Copy(Str, 2, MaxInt) + ')';
         bExpr:= false;
  
positive.code: procedure TfmConsole.DoGetLineColor(Ed: TATSynEdit; ALineIndex: integer;
    var AColorFont, AColorBg: TColor);
  var
    Str: atString;
    fmt: TecSyntaxFormat;
  begin
    Str:= Ed.Strings.Lines[ALineIndex];
  
negative.code: 
  uses
    Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
    StrUtils, Menus, LclType,
    PythonEngine,
    ATStrings,
    ATSynEdit,
  