Character Count
509

Cartridge Code
n={0}i=1w=127p=24365poke(p,1)y=6x=0s=""m=128c=camera
l=clip
a=max::_::poke(p+3,1)cls()while
stat(30)do
k=stat(31)
if(k>"`"and k<"{")k=chr(ord(k)-32)
if(k>"~"and k<"あ")k=chr(ord(k)-31)
if(k>"~")k=""
if k=="\b"then
if sub(s,-1)=="\n"then
y-=6i-=1x=max(n[i]-29)else
n[i]=max(n[i]-2)end
s=sub(s,1,-2)k=""x=max(x-2)
elseif k=="\r"then
k="\n"y+=6i+=1x=0add(n,0)end
s..=k
n[i]+=1
if n[i]>30then x+=1end
end
v=btnp()if(v>0and v<3)x=a(x+v*2-3)
l()c(0,a(y-120))?">",0,y
l(8,0,m,m)c(a(x*4),a(y-120))?s,8,6,9
flip()goto _