pal({7,13,-3,2,-14},1)w=128n=20p={}r=rnd
for i=0,n do
p[i]={x=r(w),y=r(w),a=r(2)-1,b=r(4)-2}end
::_::cls()for i=0,n do
q=p[i]q.x=(q.x+q.a)%w
q.y=(q.y+q.b)%w
for j=i,n do
o=p[j]x=o.x-q.x
y=o.y-q.y
d=xx+yy
if(d<750)line(q.x,q.y,o.x,o.y,d/150+1)end
pset(q.x,q.y,1)end
flip()goto _
