Destroy all the dots!

Destroy all the dots with your mouse, there is still alot of bugs in here. I had nothing to do but now i have, so you can edit the whole program for your own needs. You can also use it on the 20 liners compo =) alrighty just check :P

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    do
   x#=rnd(screen width()) : y#=rnd(screen height())
   r#=rnd(255) : g#=rnd(255) : b#=rnd(255)
   if dot#<50000 then dot x#,y#,rgb(r#,g#,b#)
   if dot#=5000 then  cls : center text screen width()/2,screen height()/2,"YOU LOSE!" : print "score ",points*0.25 : wait key : end
   dot#=dot#+1
   if point(x#,y#)=000000
      dot#=dot#-1
      points#=points#+1
      dot x#,y#,rgb(0,0,0)
   endif
   if mouseclick()>=1 and release#=1
      ink rgb(255,255,255),rgb(255,255,255)
      for c=0 to 50
         circle mousex(),mousey(),c
      next c
   endif
   if mouseclick()>0 then release#=0
   if mouseclick()=0 then release#=1
loop