q=math.abs s=math.sin c=math.cos f=",.-+_/|!*%#$M"function pal(i,r,g,b)poke(0x3fc0+(i*3)+2,b)poke(0x3fc0+(i*3)+1,g)poke(0x3fc0+(i*3),r)end t=0 function scanline(row)r=c(row*0.01)%64*s(row*0.01+t*0.001)*row pal((row+t+r)%4,r,r*2,r*3)end function TIC()t=time()*0.001 cls(t%5)m=-100+t*0.001g=t*0.001%3 for i=0,t*100%999 do z=c(i)*s(i*0.01+t*2)*t v=t*0.1%0.5 a=c(i*m+t)*q(z-i*v)*s(t+i*g) b=s(i*m+t)*q(z-i*v)*s(-t+i*g/2) x=120+a y=64+b v=(i>>5)+t*10 n=(math.floor(-v)%(#f-1))+1print(string.sub(f,n,n),x,y,v)end end