How many characters of code did you use?
500

Include your code here, if you'd like to show it off!
Pico-8 Edu Version:

https://www.pico-8-edu.com/?c=AHB4YQH0AXsPcc4tL5EkT5FccXryFq9xejOeHXPNNU1zT9NUD9ElUdYVByUXNU31Bl34DI-wBC9xTnj5LfefFBwVB4FHjjOSJZLT-XBekpipPOsJ3uEljlpoz0s398IDvPIMXth7gK2F_AHKMl_zwYHBwEhUvMJDhAMeuDJ4gyJ4hsmFxa1L58vFgWI0Xy3LA64Mw921G4szo6a5IfLCfBTJimstnAqkRQ9QFWgkBZRFNEXeItpywmY3vtVNjWwe2s3MxlNd1OYL87oh8VvshP103c4GTtv2QunKtbXGAxPZZJpuLe6sixjs7A0vvcTyqhlmsgMmF1ZG47nBE47wTloFS9ZaS8rdeCxTCLjjgPCAgcGdOf2CMa-k030hsFg3AiHju0c0wUistVKOzeeJjMgR4Uvs7U92hyoiJAvCCWOLhhswlPiQpJhcokeGhQWGZ_aXm64ZbI5d0VudGNhqB1UWkjsGgnI7Hu_XV5tsQDRofK1UVajrzWLoCg==&g=w-w-w-w1HQHw-w2Xw-w3Xw-w2HQH

Raw Code:

x=9y=9z=0g={}d="034203620"s="234354735"m=split("\#b**,===,===<,===,\#b,[=,=>,[=,\#b")for i=1,9do
for j=1,2^s[i]do m[i]..=" "end
end::_::cls()?z
b=btnp()x+=b\2%2-b%2y-=b\4%2for i=1,9do
o=""for j=1,6do o..=m[i]end
v=d[i]^2*cos(i/2)j=t()*v%#o
o=sub(o,j)..sub(o,1,j)s=sub(o,x+1,x+2)?o,4
if i==y then
if(y<6)x-=v/30
if y==1then
j=x\6+1if(g[j])stop()
g[j]="x"x=9y=9z+=1if(z%5==0)g={}
elseif y>5and s!=" "or y<5and s==" "then
stop()end
end
end?"x",x*4,y*6,8
for i=1,5do?g[i]or"",i*24-12,6
end
flip()goto _