' *** FILE_LEN.LST *** 2nd GFA-Manual, page 11-24 FUNCTION file_length(file$) ' ' *** Returns length of file$ (0 if not found) ' ' *** Procedure: Program_exit ' LOCAL dta.adr%,m$,k dta.adr%=FGETDTA() IF EXIST(file$) RETURN {dta.adr%+26} ELSE m$=" *** Error ***| |File "+RIGHT$(file$,LEN(file$)-RINSTR(file$,"\")) m$=m$+"|not found " ALERT 3,m$,1,"Continue|Exit",k IF k=1 RETURN 0 ELSE @program_exit ENDIF ENDIF ENDFUNC ' ***** '