Count diamonds level 2 by pooq

dim t$(1)
for j=1to 220line input""a$
for k=1to token(a$,t$())n=n+t$(k)="*"next
if!mod(j,11)?n/2:n=0
next

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top