anchor.diff:            Saga.Player.Pos.Y) then
             TWorld.GoLoc(drBottom);
         end;
  -    //BeginTest
  +    // BeginTest
       TK_1:
         TWorld.GoLoc(drLeft);
       TK_2:
         TWorld.GoLoc(drRight);
  -    //End Test
  +    // End Test
       TK_J:
         Saga.Stages.SetStage(stQuestLog);
       TK_I:
  
positive.code:   S := Trim(LinkList.GetName(Key - TK_1));
    LinkList.Clear;
    Saga.Dialog.Next(S);
  end;
  
  procedure TStageDialog.Timer;
  
negative.code:       Saga.Engine.GetTextLength(Saga.Dialog.CloseTag)) = Saga.Dialog.CloseTag)
      then
        S := Close;
      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
    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
  