Characters/Bytes used
1024

Source Code
l=0S=0r='\r\|w'd=512t=0o=ord
for i=0,831do j=i\64k=i%64m=memset
v=o("sXL0(/C3C3g4L0$#",k\4+1)-35sset(k%8+j*8,k\8,o("11156728>49?4:75;:5<72=>",v\3^(k%4)%3+j*3-14))P=poke
P(d+i,rnd(7)+1)end::_::L=l\10p=btnp()b=btn()\8%2if ˇ<1then
ˇ=p\31cls(7)?'\^x6tetri5 1k\-0\+0t❎',38,60,13
elseif ˇ<3then
cls(7)map()B=4V=0for i=0,15do
g=1k=i*128if(ˇ<2)m(8195+k,5,10)
for j=3,12do if(mget(j,i)<6)g=_ end
if(g)memcpy(8320,8192,k)V+=1end
S+=o("¹⁸⁘<ユ",V+1)\2*(L+1)l+=V
if(t<1)a=0d+=1x=8t=9y=0
a+=p\16\.6/4y+=t\9*(2+L)/64ˇ=2if(b<=@2)x+=@3*p%4\2-@1*p%2
if(b*y>.5)y+=t\9*.6
if(p>15)x=mid(4+@d\7,x,11-@d\7)
m(1,1,3)for h=0,1do for i=0,11do
s=sin(a)c=cos(a)j=i%4-1k=i\4X=x+j*c-s*k Y=y+j*s+c*k
if o("f▶6'cGᶠ",@(d+h))&2^i>0then
if h>0then?'\^x1█',k*6+111,42-j*6
else spr(@d+5,X*8,Y*8)P(B,X)P(B+4,Y)B+=1
for q=-1,1do if(mget(X+q,Y+1-q^2)!=5and Y>=0)P(q+2)end end end
if(i-5*@2>7and t<2)mset(@(i-4),@i,@d+5)ˇ+=0^y end end
if(@2<1)y\=1t-=1else t=9
?l..r..L..r..S,2,31,13
?'lines\r\|wlevel\r\|wscore',2,24,6
else?'\#1❎',60,66
if(p>31)run()end
flip()goto _