hi,
i use just your code to get 2400 records .ok.
but when i change to 7200 records ,after run, he get just 3200 records only, my table have 23662 records,

any idea.

CLOSE ALL
use one &&23662 records
copy structure to TempResult
use TempResult in 0
select *, rand() * 0.000000 as random;
  from one;
  into cursor Temp;
  order by area ,random
go top
for i = 1 TO 3
  select Temp
BROWSE
wait
 locate for area= i 
  copy next 7200 to temp2 while area = i 
    select TempResult
  append from temp2
NEXT 

thanks