Ar fi si Copy to Array intregul cursor, redimensionare array, inserare linie, zap pe cursor sau tablerevert(.t.), append from array.

Sau solutia urmatoare care, spre deosebire de array, nu e limitata la numarul de elemente :

CREATE CURSOR cc (f1 i, poz i)
CURSORSETPROP("Buffering",5)
FOR ii=1 TO 20
INSERT INTO cc (f1) VALUES (ii)
next
BROWSE LAST
SET SQLBUFFERING ON
GO 7
lnpoz=ABS(RECNO()) && Inregistrarile adaugate in buffer au recno() negativ
SELECT ABS(RECNO()) as rec, * FROM cc WHERE ABS(RECNO())<lnpoz INTO CURSOR cx ORDER BY 1
SELECT ABS(RECNO()) as rec, * FROM cc WHERE ABS(RECNO())>=lnpoz INTO CURSOR cy ORDER BY 1
TABLEREVERT(.t.,'cc')
INSERT INTO cc (f1, poz) SELECT f1, rec FROM cx
APPEND BLANK IN cc
INSERT INTO cc (f1, poz) SELECT f1, rec FROM cy
SELECT cc
BROWSE nowait
SET SQLBUFFERING OFF &&daca e cazul