I find the compact version easier to read XD (not the fully compact version, I uncompress the code so it becomes somewhat readable)
Viewing post in XTRIS - Retrospective and Thank You! comments
Code that I uncompressed
poke(0x5f2c,3) a={18,28,38,28} b={22,22,22,32} p=0 g=4 i=1 l=0 c=color q=btnp ::_:: c(0) --screen black --use this for j=0,999 do pset(rnd(64),rnd(64)) end --and not this --for j=0,4096 do --if (rnd()>.7) pset(j\64,j%64) --end --timer colour c(7) --timer size l=time() --score ?p,0,0 --timer line(0,63,l,63) --loop to draw all rects for j=1,4 do --grey squre colour c(5) --green squre if (j==g) c(3) ?"x",a[j]+3,b[j]+2 --player if (j==i) c(7) --game end if (l>63) c(8) --draws all rects rect(a[j],b[j],a[j]+8,b[j]+8)end if(l<63)then --movement if (q(0) and i%4>1) i-=1 if (q(1) and i<3) i+=1 if (q(2) and i>3) i=2 if (q(3) and i==2) i=4 --score + partical effects if(g==i) p+=1 g=rnd(4)\1+1 rectfill(a[i],b[i],a[i]+8,b[i]+8,3) --idk if(g==i) g+=1 g%=4 g+=1 --end end flip() goto _