cFile=Getfile("TXT","Open the text File","Open",0)
nhdl=Fopen(cfile,10)
nsize=Fseek(nhdl,0,2) && Move to EOF
IF nsize<=0
*- File is empty
ELSE
=FSeek(nhdl,0,0) && Move to BOF
DO WHILE !FEOF(nhdl)
cString=FGETS(nhdl)
cStr1=Substr(cString,31,3)
cStr2=Substr(cString,78,3)
ENDDO
ENDIF
"Anyone who has never made a mistake has never tried anything new." A.E
"The important thing is not to stop questioning. Curiosity has its own reason for existing." A.E