anchor.diff:    begin
       if F then
         Terminal.Print(1, Y, TScene.KeyStr(Chr(V + Ord('A'))))
  -        else
  -        begin
  +        else begin
             Terminal.ForegroundColor(clWhite);
             Terminal.Print(1, Y, '[[' + Chr(V + Ord('A')) + ']]');
           end;
  
positive.code: interface
  
  uses
    Classes, BeaRLibItems, uMob;
  
  type
    TSceneEnum = (scTitle, scLoad, scHelp, scGame, scQuit, scWin, scDef, scInv,
  
negative.code:     procedure AddKey(AKey, AStr: string; IsClear: Boolean = False;
        IsRender: Boolean = False);
      procedure FromAToZ;
      procedure AddKeyLabel(AKey: string; S: string; AColor: Cardinal = clWhite);
    end;
  
  type
  