>>A object can´t do a lot, it can do only a thing. ;-D
>
>That object does miracles for me.
>
>>You can use delegation or implement the bridge pattern, as Claudio say.
>
>That's what I did.

Michel,
I believe it has only one offending procedure that passed the 64K limit. Use strextract() to locate. ie:

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
endfor

Cetin