FoxPro/Visual FoxPro - SEEK

Tengo la siguiente consulta

select tabla1
While !EOF

select campo1 from tabla1 into cursor cur1

select tabla2
DoWhile !EOF
select campo1 from tabla2 into cursor cur2

if cur1.campo1 = cur2.campo1
messagebox("valores iguales",64"valores iguales")
endif
skip 1 in tabla2
EndDo

skip 1 in tabla1
EndDo

Como pueden ver es una busqueda secuencial que se hace entre dos tablas, para mirar
los valores iguales de cierto campo.
Quiero hacer esta misma consulta pero utlizando busqueda indexada, utilizando la fución seek,

Muchas gracias por la atención prestada

Puedes hacer eso facil con un SELECT -SQL
select campo1 FROM tabla2,tabla1 where tabla1.campo1= tabla2.campo1

Select Tabla1
go top

Do While !Eof()
If Seek(Tabla1.Campo1,'Tabla2','Campo2') && Campo2 es el indice
wait window 'valores iguales'
EndIf

Select Tabla1
Skip
EndDo