Ich würde auf jeden Fall den Tipp von Robert annehmen und einen "read(n)" nehmen. Das spart vor allem unnötige Zugriffe und das Programm läuft schneller, z.B.:

kyFile setll myfile
do *hival
kyfile reade(n) myfile
if %eof(myfile) then
leave
endif
:
:
enddo