%N pgqfs %F $MIR/src/pgqfs.f
%D Inquire fill-area style
%B
      SUBROUTINE PGQFS (FS)
      INTEGER  FS

 Query the current Fill-Area Style attribute (set by routine
 PGSFS).

 Argument:
  FS     (output) : the current fill-area style:
                      FS = 1 => solid (default)
                      FS = 2 => outline
                      FS = 3 => hatched
                      FS = 4 => cross-hatched
