%N grqtyp %F $MIR/src/grqtyp.f
%D Inquire current device type
%B
      SUBROUTINE GRQTYP (TYPE,INTER)
      CHARACTER*(*) TYPE
      LOGICAL INTER

 GRPCKG: obtain the device type of the currently selected graphics
 device, and determine whether or not it is an interactive device.

 Arguments:

 TYPE (output, CHARACTER*(*)): receives the device type, as a
       character string, eg 'PRINTRONIX', 'TRILOG', 'VERSATEC',
       'TEK4010', 'TEK4014', 'GRINNELL', or 'VT125'.  The character
       string should have a length of at least 8 to ensure that the
       type is unique.
 INTER (output, LOGICAL): receives the value .TRUE. if the device is
       interactive, .FALSE. otherwise.
