>Sam
>
>

>create cursor x1 ( cLine c(254) )
>append from TheFile type sdf
>

>
>if you have lines longer than 254 characters use multiple fields.
>
>>Actually there are over 70,000 lines, but it craps out after 28,640 lines.
How about something like this:

x1=UPPER(filetostr("MyProg.prg"))
?"Number of fuunctions ",OCCURS("FUNC",x1)
?"Number of procedures ",OCCURS("PROC",x1)