%N pgqtbg %F $MIR/src/pgqtbg.f
%D Inquire text background color index
%B
      SUBROUTINE PGQTBG (TBCI)
      INTEGER  TBCI

 Query the current Text Background Color Index (set by routine
 PGSTBG).

 Argument:
  TBCI   (output) : receives the current text background color index.
