Genuary 2023 Day 1 - Perfect Loop / Infinite Loop

-- genuary #1 2023
-- perfect loop / infinite loop
-- by carson kompon
cls()
srand(1)
f=0
pal({[0]=0,128,2,129,131,132,136,1,3,4,8,140,139,137},1)
::_::
	for i=1,1do
		x=rnd(128)
		y=rnd(128)
		c=pget(x,y)
		pset(x+rnd(2)-1,y+rnd(2)-1,max(rnd({c,c,c,c-4}),rnd(1.2)))
	end
	circfill(
		64+sin(t()/4)*48,
		64+sin(t()/2)*26,
		3,
		(t())%4+10
	)
	if t()-f>=8 then
		f=t()\1
		srand(1)
	end
goto _