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 to the top page