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 _