"Strummin' Along"
280 characters
n,m,t,w,o,l=32,128,0,0,ovalfill,line::_::cls(1)for i=0,n do c=4if(i==n)c=9 o(16,64-i,m,99-i,c)o(-n,78-i,m,m-i,c)end for i=16,m do x=97-i c=4if(i%9>7)c=6 if(i<20or i>46)l(i,x,i+n,x,c)o(n,48,84,62,0)end for i=7,n,5 do l(9+i,82,m+i,-n-(w+i)%3,7)end flip()t+=1if(t%n<1)w=9 w*=.9goto _ |
[Please log in to post a comment]