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:     procedure AddKey(AKey, AStr: string; IsClear: Boolean = False;
        IsRender: Boolean = False);
      procedure FromAToZ;
    end;
  
  type
  
negative.code: implementation
  
  uses
    SysUtils, Dialogs, Math, uTerminal, uPlayer, BearLibTerminal,
    uMap, uMsgLog, uItem, GNUGetText, uGame, uCorpse, uCalendar, uShop,
    uSpellbook;
  
  