
include "star1"

message "Click with mouse to create stars.." "Done"
logo backcolor "black"
clear
pu

repeat untilbreak [

   getkey
   if whichkey = "done" [ break ]   

   moveto whereclick

   star1 30 0

   ]
