Unnamed

SetBuffer BackBuffer()q=200:p=135:e=q:r=p:o=9:b=100:.k:If(e<0)n=n+1:e=q:o=80-Rnd(99):r=p
e=e+7*Cos(o):r=r+7*Sin(o):l=MouseY():If(e>400)m=m+1:e=q:r=p:o=80+Rnd(99)
If(r<9)+(r>290)o=360-o
If((e<15)+(l-r>-21)+(r>l-35)=3)+((e>375)+(b-r>-46)+(r>b-9)=3)o=180-o
b=b+1:If(b>r)b=b-2
Rect 1,l-25,9,50:Rect 390,b,9,50:Oval e,r,9,9:AppTitle m+"-"+n:Flip:Cls:Goto k