>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)
Peter Cortiel