>* otherwise
>* if right(cString,1) # ";"
>* codelines = codelines + 1
>* endif
> * Check inline comment
> do while occurs("&",cString)>0
> cString = substr(cString,at("&",cString)+1)
> if cString = "&"
> astlines = astlines + 1
> exit
> endif
> enddo
>* endcaseOr collect them to a inlinecomm var to differentiate from astlines.
>Cetin

A bit shorter: somewhere in the beginning

dbl_amp="&"+"&"


Then we can do like this:

* Check inline comment
if dbl_amp$ cString
astlines = astlines + 1
endif