200byteDemoChallenge!

BlitzMax Forums/BlitzMax Programming/200byteDemoChallenge!

Ok here is a late entry. Pong w/out player control(ran out of bytes)
Can anyone figure ou† how to compress this more?

Edit:
Now playable w/ mouse
256bytes
w=320h=240Graphics w,h;a=2b=1y=9s=30While KeyHit(27)=0p:+(MouseX()-p)/20c:+(x-c)/9x:+a;y:+b;If(x+4>w)+(x<0)a:*-1
If(y>h)+(y<0)y=h/2
If(x+5<p+s)+(x>p)+(y>231)=3Or(x+5<c+s)+(x>c)+(y<5)=3b:*-1
Cls;DrawRect p,235,s,5DrawRect c,0,s,5DrawOval x,y,4,4Flip;Wend