cls() a=360 r=rnd

w=stat(6) s=1 for i=1,#w do ch=ord(sub(w,i,i))s+=s*31+ch end if(#w==0)s=rnd(-1) srand(s)

pal({-8,8,9,10,11,12,-4,0,-8,8,9,10,11,12,-4},1)

::_:: if(r()>.95)srand(s) for i=0,a do pset(sin(i/a)*r(128)+54+r(20),cos(i/a)*sin(i/a)*r(64)+54+r(20),r(8)) pset(-sin(i/a)*r(64)+54+r(20),-cos(i/a)*sin(i/a)*r(128)+54+r(20),r(8)) x=r(128)y=r(128) pset(x,y,pget(x,y)-1) end goto _