How many characters of code did you use?
497

Include your code here, if you'd like to show it off!
b=btnp
s=math.sin
u=5t=0r=0o=0p=pix
e=rect
n=print
cls()c=circ
TIC=load[[x,y,l=mouse()if l then c(x,y,r,u)end
if(b()~=0or l)then t=0 else t=t+1 end
if t<1200then
if b(4)then cls(u)end
if r<0then r=0 end
if b(0)then u=u+1 end
if b(1)then u=u-1 end
if b(2,30,2)then r=r-1 end
if b(3,30,2)then r=r+1 end
e(0,0,240,7,u)e(0,7,240,1,1)for i=-1,1 do
for j=-1,1 do
n("Pen:"..r+1,i,j,7)end
end
n("Pen:"..r+1,0,0,5)else
for i=0,32638 do
q=i%240p=i/240v=99*(p/20*s(q/20))poke4(i,v/60+q/8+time()/600)end
end]]