use table in 0
set deleted off
select * from table where !deleted() into cursor cs0
select * from table where deleted() into cursor cs1
use (dbf('table')) in table exclusive
if used('table')
zap in table
insert into table select * from cs0
insert into table select * from cs1
local lnRec
lnRec = reccount('cs0')
delete from table where recno()>lnRec
use in table
endif