Character Count
389

Cartridge Code
c=camera
function s(n,x,y)for i=-1,0do
c(i-x,i-y)color(i*3)
k(ord("#4%=%2.4.40=%=.?#?%H%H.J.?0H*;,=*G,IR;T=RGTI⁵\0⁵○⁵\0♥\0",n*4+1,4))
end end
function d(v,x,y)for j=0,6do
if(ord("wD>nMk{F○o",v+1)&2^j>0)s(j,x,y)
end end
::_::?"⁶1⁶c6"
for i=0,2do k=ovalfill
v=stat(93+i)if(i<1)v%=12v+=0^v*12
if(i>0or v>9)d(v\10,i*40-33,3)
c()d(v%10,i*40-16,3)end
k=rectfill
for i=7,12do s(i,-6,-1)end
goto _