anchor.diff:        Saga.Engine.GetTextLength(Saga.Dialog.CloseTag)) = Saga.Dialog.CloseTag)
       then
         S := Close;
  -    Saga.UI.DrawKey(35, I + 25, Trim(N + ' ' + S), Format('%d', [I + 1]));
  +    Saga.Engine.ForegroundColor(IfThen(I = MenuPos, Saga.Colors.clTitle,
  +      Saga.Colors.clSplText));
  +    Saga.Engine.Print(35, I + 25, Format(TEntity.KeyFmt, [IntToStr(I + 1),
  +      Trim(N + ' ' + S)]));
     end;
   end;
   
   procedure TStageDialog.Update(var Key: Word);
   begin
  -  case Key of
  +  inherited;
  +  case Key of
  +    TK_ENTER:
  +      begin
  +        Key := MenuPos + TK_1;
  +        Answer(Key);
  +        Render;
  +      end;
       TK_1 .. TK_5: // 1..5
         begin
           if (Key - TK_1 > LinkList.Count - 1) or (Key < TK_1) then
  
positive.code:   S := Trim(LinkList.GetName(Key - TK_1));
    LinkList.Clear;
    Saga.Dialog.Next(S);
  end;
  
  procedure TStageDialog.Timer;
  
negative.code: 
  constructor TStageDialog.Create;
  begin
    inherited;
    Top := 23;
    FLinkList := TLinks.Create;
  end;
  
  