Cartridge code (262 chars):

c={7,10,9,8,2,1}m=256p={}r=rnd
for i=0,39 do
add(p,{x=r(m),y=r(m),u=r(2)-1,w=r(2)-1})end::★::cls()for j in all(p) do
j.x=(j.x+j.u)%128j.y=(j.y+j.w)%128
for d in all(p)do
f=(j.x-d.x)^2+(j.y-d.y)^2
f/=70
if(f<6)line(d.x,d.y,j.x,j.y,c[ceil(f)])
end
end
flip()goto ★