//
// Program: Kaleido-Doodle
// Author:  Cindy Koffler
//
      Call graph on
      Set  x=0
      Set  y=0
      Set  z=0
      Set  d=(xpixels()-ypixels())/2
loop: Call show mouse
      Call read quit key (27)
      Call read mouse (x,y,z)
      If   (z=0) Goto loop
      Call hide mouse
      If   (z=1) Goto draw
      Call cls
      Goto loop
draw: Set  color=random(15)+1
      Call solid color (color)
      Call solid circle (x,y,3)
      Call solid circle (x,ypixels()-y,3)
      Call solid circle (xpixels()-x,y,3)
      Call solid circle (xpixels()-x,ypixels()-y,3)
      Call solid circle (y+d,x-d,3)
      Call solid circle (ypixels()-y+d,x-d,3)
      Call solid circle (y+d,ypixels()-x+d,3)
      Call solid circle (ypixels()-y+d,ypixels()-x+d,3)
      Goto loop