C
C SUBROUTINE 'QGTMOD'
C ===================
C
C EXIT TO GRAPHICS TEXT MODE FROM ANOTHER GRAPHICS MODE
C
      SUBROUTINE QGTMOD
C
C PARAMETERS
C
C      NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*1 MODE, ESC, GS, US, FS, CR, FF, SUB
      COMMON /QQCHR/ MODE, ESC, GS, US, FS, CR, FF, SUB
      SAVE /QQCHR/
C
C EXIT TO TEXT MODE
C -----------------
C
      IF (MODE.EQ.'V') THEN
         CALL QGSEND (US)
      ELSE
         CALL QGSEND (CR)
      ENDIF
      MODE = 'T'
      RETURN
      END
