include star1

message "Click with left mouse button to create stars..\nor click with right button for circles.." "Done"
logo backcolor "black"
pu

repeat untilbreak [
   getkey
   if whichkey = "Done" [ break ]
   moveto whereclick
   logo linecolor = randomcolor
   set size = 30
   repeat (calc 1 + random 15) [
      if whichkey = "left"  [ 
        star1 :size 0   
        incr size by 15
        ]
      elseif whichkey = "right" [ 
        pd; circle :size; pu  
        incr :size by 10 
        ]
      wait 10
      ]
   ]
