//
// Program: Diamond
// Author:  Bruce Clark
//
randomize
graph on; cls
xc=xpixels()/2; yc=ypixels()/2
c = random (15) + 1
Do
  line color (c)
  Do z = 0, 230, 10
    line (xc, yc-230,  xc + z, yc)
    line (xc+230, yc, xc, yc + z)
    line (xc, yc+230, xc - z, yc)
    line (xc-230,  yc, xc, yc - z)
    wait quit key (0, 100)
  Loop
  n = random(14) + 1; c = n + bool (n >= c)
Loop