lcClassFile = upper(FileToStr('ProcedureFile.prg')) && I guess it's a procedure file already lnOccurs = ('PROCEDURE',lcClassFile) for ix = 1 to lnOccurs lcProc=strextract(lcClassFile,'PROCEDURE','PROCEDURE',ix,3) if len(lcProc) > 65500 ? mline(lcProc,1) endif endforCetin