d={}c={11,2,3,4,5}r=rnd
p=pal
p(2,-5,1)p(4,-13,1)p(5,-15,1)for i=1,20do
d[i]={x=r(127),y=r(127),a=r(2)-1,b=r(2)-1}end::_::cls()for i in all(d) do
for j in all(d) do
l=sqrt((i.x-j.x)^2+(i.y-j.y)^2)if(l<35)line(i.x,i.y,j.x,j.y,c[flr(l/7+1)])end
i.x=(i.x+i.a)%128i.y=(i.y+i.b)%128end
flip()goto _