>>>>How about something like this:
>>>>
>>>>x1=UPPER(filetostr("MyProg.prg"))
>>>>?"Number of fuunctions ",OCCURS("FUNC",x1)
>>>>?"Number of procedures ",OCCURS("PROC",x1)
>>
>>But searching for CHR(13)+"FUNC" and CHR(13)+"PROC" should eliminate most of the false positives.
>
>It'll eliminate all matches because New Line is CHR(13)+CHR(10) not CHR(13).

Really?
The line end are CHR(13)+CHR(10) or CHR(13),see the PRG properties - setting "Save with line feeds"

MartinJ