Compressed Bytes used
1014

Source Code (OPTIONAL)
cls()
x1,y1,dy,x_c,y_c,y1_c,x1_c,t,r,l,c,sp=20,40,0,40,0,80,1,time,rectfill,line,circfill,split
pal(sp("7,6,15,134,13,141,133,130,1,140,12,129,8,9,10"),1)
cl={}
perso=sp("47,65,3,11,n,52,64,3,11,n,57,65,4,11,n,61,67,4,11,n,67,65,3,13,n,69,58,3,13,n,69,62,3,13,n,67,68,3,13,n,43,66,2,3,n,74,56,2,13,n,73,59,2,3,n,76,62,2,3,n,76,66,1,3,n,74,66,1,3,n,72,69,2,3,n,72,69,1,0,n,72,53,2,3,n,72,48,5,3,n,66,60,1,n,0,76,52,2,n,0,72,69,1,3,n")
perso_l=sp("74,57,78,61,0,71,60,75,62,0,79,63,75,67,3,64,64,66,67,13,68,69,64,67,13,66,59,66,59,13,67,61,67,61,0,67,61,64,62,0,63,64,58,61,0,61,72,57,70,0,59,71,51,67,0,44,64,49,62,0,59,66,55,64,12,72,69,72,71,0,71,69,72,66,0,65,67,67,69,14,71,62,71,60,13,71,61,74,63,13,76,67,79,64,0,67,48,68,48,11,68,48,68,48,12,68,52,69,53,0,76,55,76,57,3,77,55,77,56,3,70,53,70,54,0,67,60,67,61,13,73,41,69,45,4,73,46,72,42,4,70,46,75,41,4,78,45,73,48,4,80,48,73,50,4,69,44,76,40,14,79,42,72,47,14,74,43,80,44,14,80,45,75,49,14,70,45,76,42,15,73,46,80,43,15,73,47,79,41,15,73,49,77,45,15,65,59,65,59,0,66,55,66,55,0,75,62,75,62,3,74,63,74,63,0,67,48,67,48,11,75,65,75,65,3,69,54,69,54,0")
for i=1,#perso_l,5 do
c(perso[i],perso[i+1],perso[i+2],perso[i+3])
l(perso_l[i],perso_l[i+1],perso_l[i+2],perso_l[i+3],perso_l[i+4])
end
i=1
tem=c
for x=41,78 do
for y=43,71 do
cl[i]=pget(x,y)
sset(x-33,y-43,cl[i])
if (cl[i]>0) sset(x+7,y-43,12)
i+=1
end
end

a=sp("-7,-7,7,10,5,0,0,0,0,2,4,4,-4,-4,140,-1,40,128,40,4, 3,41,124,41,8, 4,42,123,42,5, 42,-79,78,-79,1, 42,-55,78,-55,1 ,42,-79,42,0,1, 78,-79,78,0,1,1,40,128,40,4, 3,41,124,41,8, 4,42,123,42,5, 4,23,-4,-53,2, 18,4,-18,-4,2, 4,23,-4,-53,2, 18,4,-18,-4,2, 20,1,-20,2,1, -7,81,7,6,1, -5,5,4,6,6")
::_::
cls(134)
for i=1,2 do
for j=0,960,160 do
for i=1,15,5 do
eco=-dy+j
r(40+a[i],a[i+1]+eco,80+a[i+2],80+a[i+3]+eco,a[i+4])
end
clip(44,eco+1,31,105+eco)
spr(1,x_c+8,y_c-20,5,4)
clip()
for i=16,50,5 do
l(a[i],80+a[i+1]+eco,a[i+2],80+a[i+3]+eco,a[i+4])
end
if (dy>=800) dy=0
end
end
dy+=3
spr(6,x_c-20,y_c+40,5,4)
spr(1,x_c,y_c,5,4)
x_c,y_c=60+x1_c+cos(t()/16)*35,46+sin(t()/16)*30
flip()
goto _

Link to Commented Source Code (OPTIONAL)
http://S Yanik @s_yanik