anchor.diff:    cMaxLen = 150;
   var
     Ed: TATSynEdit;
  -  Form: TfmMenuList;
  -  Num, NumMax: integer;
     items: TStringList;
     bm: TATBookmarkItem;
     strInfo, strKind, strCaption: string;
  -  NLine, NKind, i: integer;
  +  NumMax, NLine, NKind, i: integer;
  +  Obj: TObject;
   begin
     Ed:= CurrentEditor;
     NumMax:= Ed.Strings.Count-1;
  
positive.code:   end;
  end;
  
  procedure TfmMain.DoGotoFromInput(const AInput: string);
  var
    Frame: TEditorFrame;
  
negative.code:       Exit;
      end;
  
      if not DoDialogMenuList(strCaption, items, NLine, Obj) then
      begin
        MsgStatus(msgStatusCancelled);
        Exit
      end;
    finally
      FreeAndNil(items);
    end;
  
    NLine:= PtrInt(Obj);
    if NLine>NumMax then
      NLine:= NumMax;
  
    Ed.DoGotoPos(
      Point(0, NLine),
      Point(-1, -1),
      UiOps.FindIndentHorz,
      UiOps.FindIndentVert,
  