How many characters of code did you use?
556

Include your code here, if you'd like to show it off!
poke(24365,1)m=sub a={f="\f",n="\n"}a["*"]="\*"a["^"]="\^"a["+"]="\+"a["#"]="\#"a["\\"]="\\" s="\\fep8\\fcscii\\f6:\\n"x=#s::m::cls(5)y=118-#s\31*6rectfill(0,y,127,127,1)for i=0,#s do c=m(s,i+1,i+1) if(x==i and t()\0.4%2==1)c="\fc_" ?c,i*4%124+2,y+2+6*(i\31),6 end b=btnp() if(b)x+=b%4\2-b%2x=max(0,x) k=stat(30)and stat(31)if k then if(k=="\8")k=""s=m(s,1,x-1)..m(s,x+1,-1)x-=2 if(k=="\r")k="\\n"x+=1 s=m(s,1,x)..k..m(s,x+1)x+=1end i=1o=""while i<=#s do c=m(s,i,i) if(c=="\\")i=min(i+1,#s)c=a[m(s,i,i)] i+=1if(c)o..=c end?o,2,2,6 poke(24368,1)flip()goto m