My First Tweetcart: The Bouncing DVD Logo!

--dvd
--by calverin
x=64y=48d={-1,1}o=7c={}r=rnd
e=r(d)f=r(d)v=ovalfill
for i=1,15do add(c,i)end::_::
flip()cls()x+=e y+=f a=x+1b=x-1g=y+1h=y-1if(b==0or a==118)e*=-1o=r(c)
if(h==24or g==104)f*=-1o=r(c)
?'dvd',b,h,o
?'"',x+10,y+8
v(x-2,y+8,x+10,y+4,o)v(x+2,y+5,x+6,y+7,0)goto _