anchor.diff:  interface
   
   uses
  -  Classes, BeaRLibItems, uMob;
  +  Classes, BeaRLibItems, uMob, Types;
   
   type
     TSceneEnum = (scTitle, scLoad, scHelp, scGame, scQuit, scWin, scDef, scInv,
  
positive.code:   private
      KStr: string;
      CX, CY: Byte;
    public
      procedure Render; virtual; abstract;
      procedure Update(var Key: Word); virtual; abstract;
  
negative.code:   begin
      if F then
        Terminal.Print(1, Y, TScene.KeyStr(Chr(V + Ord('A'))))
          else begin
            Terminal.ForegroundColor(clWhite);
            Terminal.Print(1, Y, '[[' + Chr(V + Ord('A')) + ']]');
          end;
  