create table free_table.dbf free (num i, name c( 128 )) 
	=rand(- 1 )
	for i= 1  to  400000 
		insert into free_table values (( 2 ^ 31 - 1 )*rand(), sys( 2015 ))
	endfor
	select free_table
	index on num tag num
	index on name tag name

	
clear 
clear all

use y:\free_table in  0  order num

set talk off
set delete on
set near on
set printer to log.txt
set printer on

=rand(- 1 )
lnLow = int(( 2 ^ 31  - 1 )*rand())
lnHigh = int(( 2 ^ 31  - 1 )*rand())
if lnLow > lnHigh
	lnTemp = lnHigh
	lnHigh = lnLow
	lnLow = lnTemp
endif
?  "NUM BETWEEN " , lnLow,  " AND " , lnHigh

for i =  0  to  3 
	?  "SEEK + DO WHILE" 
	create cursor temp (num i, name c( 128 ))
	lnStart = seconds()	
	select free_table
	=seek(lnLow)
	do while num <= m.lnHigh .and. !eof()
		insert into temp values (free_table.num, free_table.name)
		skip
	enddo
	lnRecCount = reccount('temp')
	use in temp
	
	lnEnd = seconds()	
	? i, lnEnd - lnStart, lnRecCount

	?  "SELECT" 	
	lnStart = seconds()		
	select num, name ;
	from free_table ;
	where num between lnLow and lnHigh ;
	into cursor temp nofilter
	lnRecCount = reccount('temp')
	use in temp
	
	lnEnd = seconds()	
	
	? i, lnEnd - lnStart, lnRecCount
		
endfor
set printer off
set printer to
clear all