PROCEDURE Main()
   LOCAL n

   FErase("p.dbf"); FErase("c.dbf")
   dbCreate("p.dbf", { {"X","N",4,0} })
   USE p.dbf NEW EXCLUSIVE ALIAS p
   dbAppend(); FieldPut(1, 1)
   dbAppend(); FieldPut(1, 2); dbDelete()
   dbAppend(); FieldPut(1, 3)
   dbCommit()
   dbGoTop()

   /* SET DELETED OFF (default) — all 3 included */
   COUNT TO n
   ? "DELETED OFF count =", n, "(expect 3)"

   SET DELETED ON
   dbGoTop()
   COUNT TO n
   ? "DELETED ON count =", n, "(expect 2)"

   COPY TO c.dbf
   dbCloseArea()
   USE c.dbf NEW EXCLUSIVE
   COUNT TO n
   ? "COPY rows after DELETED ON =", n, "(expect 2)"
   dbCloseArea()

   FErase("p.dbf"); FErase("c.dbf")
   ? "DONE"
   RETURN