NAME: GetColor

     USE: GetColor will return the current drawing color.  Valid return
          values renge from 0 to 15.

     DEPENDENCY:  Must first be in graphics mode.  The unit Graph
                  must also be placed in the uses section.

     SYNTAX: GetColor

     EXAMPLE: CurrentColor := GetColor;