Genuary 2023 Day 3 - Glitch Art

-- genuary #3 2023
-- glitch art
-- by carson kompon
spr_s=0x0
scr_s=0x6000
scr_e=0x7fff
scr_r=scr_e-scr_s
ball_x=0
ball_y=0
pal({[0]=0,129,131,3,139,11,138,135,7},1)
cls(1)
::_::
	for i=1,999 do
		x=rnd(128)
		y=rnd(128)
		c=max(pget(x,y)-rnd(6))
		circ(x+rnd(2)-1,y+rnd(2)-1,1,c)
	end
	ball_x=64+cos(t()/4)*24
	ball_y=(ball_y-(128/32))%128
	circfill(
		ball_x,
		ball_y,
		3, 8
	)
	for i=1,1 do
		src=scr_s+rnd(scr_r)
		l=rnd(scr_e-src)/10
		dst=scr_s+rnd(scr_r-l)
		memcpy(dst,src,l)
	end
	memcpy(spr_s,scr_s,scr_r)
	for i=1,4 do
		sspr(2,2,126,126,rnd(3),rnd(2),128+rnd(2),128+rnd(2))
	end
	flip()
goto _