GO TOP may be slow. I believe you can replace those 3 lines of code with:

GO RECNO()

It will act as the record pointer was changed, but it will be faster.

Vlad

>lncur = recno()
>go top
>go lncur