CLEAR CREATE CURSOR myCursor (a i DEFAULT RAND()*1000000) FOR K=1 TO 600000 APPEND BLANK NEXT INDEX ON A TAG TA SET ORDER TO TEST(10000) SET ORDER TO 1 ? ? "with a order active" TEST(100) PROCEDURE TEST(N) T1=SECONDS() FOR K=1 TO m.n SEEK 23 ORDER 1 NEXT ? "SEEK #Test=",m.n at 20,SECONDS()-T1 T1=SECONDS() FOR K=1 TO m.n LOCATE FOR A=23 NEXT ? "LOCATE #Test=",m.n at 20,SECONDS()-T1