Genuary 2024 Day 2 - No palettes

-- genuary #2 2024
-- no palettes
-- by carson kompon
g=128r,p=rnd,srand
z=r(-1)f=0u=9p(z)
poke(0x5f54,0x60)
_set_fps(60)
cls()
::_::
x=r(g)
y=r(g)
pset(x,y,pget(x,y)+r(2))
if r()>.999 then
	sspr(r(3),r(3),g-r(6),g-r(6),0,0,g,g)
	p(z)
	f+=1
	u=r(g)
end
if f>10 then
	z=r(-1)
	p(z)
	f=0
end
goto _