Click above to get retro games delivered to your door ever month!

 FUNCTION POPCOLSEL()

  Short:
  ------
  POPCOLSEL() Popup color grid for selecting a single color

  Returns:
  --------
  <cColor> => selected color

  Syntax:
  -------
  POPCOLSEL([cStartCol])

  Description:
  ------------
  Pops up a grid for selecting a single color (W/N,
  +R/W, etc).

  If SETBLINK() is set to .f., high intensity
  background colors are available, otherwise not.

  [cStartCol] is an optional starting color, which
  defaults to setcolor().

  If ESCAPE is pressed, the starting color is returned.

  Examples:
  ---------
   setblink(.f.)
   initsup()
   cNewColor := popcolsel()

  Source:
  -------
  S_PCSEL.PRG