How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
cls(7)for i=1,416do
?chr(rnd(99)+155),i%19*7,i/19\1*6,i>415and 1
end
memcpy(0,24576,7^5)l=0k=1a=0v=.5x=3y=3::_::p=btn()r=(p\2%2-p%2)/99m=(p\8%2-p\4%2)/9c=cos(r)s=sin(r)x-=l*m
y-=k*m
o=l
l=l*c-k*s
k=o*s+k*c
o=v
v=v*c-a*s
a=o*s+a*c
cls(13)rectfill(0,0,127,63,12)for i=0,127do
c=i/63-1r=l+v*c
f=k+a*c
s=2g=x\1h=y\1q=abs(1/r)w=abs(1/f)z=1o=q*(g+1-x)e=1p=w*(h+1-y)
if(f<0)e=-1p=(y-h)*w
if(r<0)z=-1o=(x-g)*q
while s>1do
if o<p then
o+=q
g+=z
m=6else
p+=w
h+=e
m=7end
s=sget(g,h)end
d=64/(m>6and(h-y+.5-e/2)/f or(g-x+.5-z/2)/r)
line(i,64-d,i,64+d,m+s)end
flip()goto _