C
C SUBROUTINE 'QGENTR'
C ===================
C
C ENTER GRAPHICS MODE (QGINIT MUST HAVE BEEN CALLED PREVIOUSLY)
C
      SUBROUTINE QGENTR
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*6 XGR
      CHARACTER*1 MODE, ESC, GS, US, FS, CR, FF, SUB
      COMMON /QQCHR/ MODE, ESC, GS, US, FS, CR, FF, SUB
      LOGICAL PSET
      COMMON /QQLAST/ PSET, KXH, KXL, KYH, KYL
      COMMON /QQTTYP/ ITYP
      SAVE /QQCHR/,/QQLAST/,/QQTTYP/
C
C CODE
C ----
C
      PSET = .FALSE.
      MODE = 'V'
      IF (ITYP.EQ.1) THEN
         XGR(1:1) = ESC
         XGR(2:2) = CHAR(91)
         XGR(3:3) = CHAR(63)
         XGR(4:4) = CHAR(51)
         XGR(5:5) = CHAR(56)
         XGR(6:6) = CHAR(104)
         CALL QGSEND(XGR)
      ELSE
         CALL QGSEND(GS)
      ENDIF
      RETURN
      END
