How many characters of code did you use?
500

Include your code here, if you'd like to show it off!
i=0j=24m={}u=0v=0c={1,10,9,8,4}r=rectfill
fillp(0x8050)pal(0,1)for y=-1,16 do m[y]={} for x=-1,16 do m[y][x]=true end end
?"\asil0wcgcgb2gb2ga#2ga#2ga2ga2gg#2fg#2fg#2fg#2fg2fg2fa2fb2 -"
::_::r(0,0,127,23,1)p=btn()u=mid(4,u+((p&2)\2-(p&1)\1)*8,124)v=mid(28,v+((p&8)\8-(p&4)\4)*8,116)m[v\8][u\8]=false
for y=24,119,8 do for x=0,127,8 do if(m[y\8][x\8])r(x,y,x+8,y+8,c[y\24+1])end end
if(i+4==u and j+4==v)i=rnd(15)\1*8 j=rnd(11)\1*8+24
?"\^.○ツ…ッ○、|エ",i,j
?"\f7\^.「<BB<~$f",u-4,v-4
?"\^d9 ",0,0
flip()cls()goto _