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