anchor.diff:  
   function TConsoleFile.GetIsReadonly: Boolean;
   begin
  -  Result := False;
  +  Result := True;
   end;
   
   procedure TConsoleFile.DoLoad(FileName: string);
   begin
  -  //Contents.Load(FileName);
   end;
   
   procedure TConsoleFile.DoSave(FileName: string);
   begin
  -  //Contents.Save(FileName);
   end;
   
   destructor TConsoleFile.Destroy;
  
positive.code:   with Engine do
    begin
      Categories.Add(TConsoleFileCategory.Create('Console'));
      Groups.Add(TConsoleFile, 'Console', 'Console Files', 'Console', ['Console'], [fgkMember], []);
      Tendencies.Add(TConsoleTendency);
    end;
  end.
  
negative.code: 
  function TSynConsoleSyn.GetSampleSource: string;
  begin
    Result := 'echo %temp%'#13#10;
  end;
  
  class function TSynConsoleSyn.GetLanguageName: string;
  