// Test: forceStable + key loop (same as dbedit_main but minimal)
FUNCTION Main()
   LOCAL oBrowse, oCol, nKey

   USE "dbf/customer"

   oBrowse := TBrowseDB(0, 0, 22, 79)
   oCol := TBColumnNew("ID", {|| FieldGet(1)})
   oBrowse:addColumn(oCol)
   oCol := TBColumnNew("FIRST", {|| FieldGet(2)})
   oBrowse:addColumn(oCol)

   CLS

   DO WHILE .T.
      oBrowse:forceStable()
      nKey := Inkey(0)
      DO CASE
      CASE nKey = 5
         oBrowse:up()
      CASE nKey = 24
         oBrowse:down()
      CASE nKey = 27
         EXIT
      ENDCASE
   ENDDO

   USE
   RETURN NIL