character*999::c="";do1;n=0;do2 i=1,451;read'(a1$)',c(i+42:);k=c(i:i)//c(i+40:)=="** *";2 n=n+k;1 print'(i0)',n;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page