C
C SUBROUTINE 'QGALPH'
C ===================
C
C RETURN TO ANSI SCREEN FROM GRAPHICS MODE
C
      SUBROUTINE QGALPH
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*1 CAN
      CHARACTER*2 XALPH
      LOGICAL PSET
      COMMON /QQLAST/ PSET, KXH, KXL, KYH, KYL
      CHARACTER*1 MODE, ESC, GS, US, FS, CR, FF, SUB
      COMMON /QQCHR/ MODE, ESC, GS, US, FS, CR, FF, SUB
      COMMON /QQTTYP/ ITYP
      SAVE /QQLAST/,/QQCHR/,/QQTTYP/
C
C CODE
C ----
C
      PSET = .FALSE.
      IF (ITYP.EQ.1) THEN
         XALPH(1:1) = ESC
         XALPH(2:2) = CHAR(3)
         CALL QGSEND(XALPH)
      ELSE
         CAN=CHAR(24)
         CALL QGSEND(CAN)
      ENDIF
      MODE = ' '
      RETURN
      END
