Characters/Bytes used
829/843

Source Code
?"\aszl0yi7x2cga.fde.cga.fdc.c4b3a.bag.egfdcb2c3"
function z(s)l={}for i=1,#s do
add(l,sub(s,i,i))end
return l
end
j=0w=0g={}h={x=z('l+[[xl*]-x]-l[-lx]+lx'),l=z('1l2l')}s={'x'}r=rnd
for i=0,3000do
g[i]={r(128),90+r(38)}end
for i=1,4do u={}for m in all(s)do k=h[m]or{m}for n in all(k)do
add(u,n)end
end
s=u
end::_::f=rectfill
if(j==10)j=0w=r()*2-1
j=j+1f(0,0,127,89,12)f(0,90,127,127,11)
for i=1,#g do
pset(g[i][1],g[i][2],3)end
p={x=40,y=127}a=w+65t=w+25c=4q={}circfill(99,22,20+r(2)\1,10)?'\^w\^t\f7\#1v𝘢𝘯𝘯𝘪\^-t\^-w\f1\#c2021',70,114
for e in all(s) do
if(e=='l')o=a/360d={x=3*cos(o),y=3*sin(o)}x=p.x+d.x y=p.y+d.y line(p.x,p.y,x,y,c)p={x=x,y=y}
if(e=='+')a+=t
if(e=='-')a-=t
if(e=='[')add(q,{p,a,c},1)
if(e==']')p,a,c=unpack(q[1])deli(q,1)
if(e=='0')c=0
if(e=='1')c=4
if(e=='2')c=5
if(e=='*')?'●',p.x-2,p.y-3,8
end
flip()goto _