>gnFileHandle = FOPEN("tapes1212.dat") >* Seek to end of file to determine the number of bytes in the file >nSize = FSEEK(gnFileHandle, 0, 2) && Move pointer to EOF > >IF nSize <= 0 > * If the file is empty, display an error message > WAIT WINDOW "This file is empty!" NOWAIT >ELSE > > * If file is not empty, the program stores its contents > * in memory, then displays the text on the main Visual FoxPro window > IF lCheck <> 'Y' > FOR X =0 TO nSize STEP 2264 > = FSEEK(gnFileHandle, X) && Move pointer to BOF > cString = FREAD(gnFileHandle, 2264) >etc. etc. I process the data that comes in from here >endfor >endif >>