Cartridge code (94 chars):

a=128 for i=0,2^14 do
pset(i/a,i%a,rnd(15))end::★::x=rnd(a)y=rnd(a)circ(x,y,1,pget(x,y))goto ★