Character Count
256

Cartridge Code
t=0n={55,70,104,82}r=rnd
s=srand::_::u=t\3for i=stat(108),-● do
if(i<256)t+=1>>11poke(s(t\1),99+sin(t*n[u%4+1])*32+sin(t*r(n)*2)*9)serial(2056,s(t),1)
x=r(16)y=t+i/99circ(x*8,i/12,1,r()-2+i/●-sgn(({x|y,x^^y})[u%2+1]%u%17-1))end?"⁶w⁶#bl▥p⁶1",y%99,9,7
goto _