%N grqci %F $MIR/src/grqci.f
%D Inquire current color index
%B
      SUBROUTINE GRQCI (C)

 GRPCKG: obtain the color index of the current graphics device.

 Argument:

 C (integer, output): receives the current color index (0-255).
