Characters/Bytes used
1024

Source Code
function _init()
a=0.18
l=28
p=64
q=64
f=0
t=1
s=0
d=1
j=0
k=0
g=0.09
x=40
y=70
r=rectfill
m=camera
n=sin
b=cos
e=btnp
o={}
for i=1,19 do
o[i]=flr(rnd(104))+8
end
end
function _update()
cls()
m(x-30,0)
for i=0,7 do
?"ˇvˇˇv\+0w\f1░\+0w░\+fw░\+0w░\+fw░\+0w░\+fw░",(i*32)+128*(flr((x-30)/128)),0,13
?"∧∧∧∧",(i*32)+128*(flr((x-30)/128)),124,13
end
for i=2,19 do
r(i*64,o[i],(i*64)+19,o[i]+7,9)
if s<2 or s>3 then
if (x-1>=i*64 and x-5<=i*64+19 and y<=o[i]+7 and y+4>=o[i]) or y+1<=1 or y+3>=126 then
s=2
j=0
k=0
f=0
?"\a",0,0
end
if x>1282 then
s=3
?"\asccegc4",0,0
end
end
end
fillp(0xa5a5)
r(1282,0,1286,127,10)
fillp()
if s==0 then
c=d*(a*(b(0.5-((f/40)*0.5))))
u=x
v=y
x=p+(l*(-n(c)))
y=q+(l*(b(c)))
line(p,q,x,y,6)
if e(4) then
s=4
j=x-u
k=y-v
end
f+=1
if f>=40 then
f=0
d=d*-1
end
elseif s==2 then
f+=1
if (f>=30 and e(4)) _init()
y+=k
k+=g
elseif s==3 then
if (e(4)) _init()
else
x+=j
y+=k
k+=g
if e(4) then
s=0
f=13
d=1
?"\ai6v1g",0,0
c=d*(a*(b(0.5-((f/40)*0.5))))
p=x-(l*(-n(c)))
q=y-(l*(b(c)))
end
end
?"オ",x-7,y,8
end