CREATE CURSOR tmp(t1 c(10))
FOR i=1 TO 21 s1=IIF(MOD(i,3)=0,"",TRANSFORM(i)) INSERT INTO tmp(t1) values(s1)
ENDFOR
BROWSE
SELECT TOP 1 t1,RECNO() as id FROM tmp WHERE !EMPTY(t1) ORDER BY id DESC INTO CURSOR tmp1
BROWSE
FOR i=21 TO 1 STEP -1 s1=IIF(MOD(i,3)=1,"",TRANSFORM(i)) INSERT INTO tmp(t1) values(s1)
ENDFOR
BROWSE
SELECT TOP 1 t1,RECNO() as id FROM tmp WHERE !EMPTY(t1) ORDER BY id DESC INTO CURSOR tmp1
BROWSE