C
C SUBROUTINE 'QGCLR'
C ==================
C
C CLEAR GRAPHICS SCREEN (QGINIT & QGENTR MUST HAVE BEEN CALLED PREVIOUSLY)
C
      SUBROUTINE QGCLR
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
      CHARACTER*2 CLR
      LOGICAL PSET
      COMMON /QQLAST/ PSET, KXH, KXL, KYH, KYL
      SAVE /QQCHR/,/QQLAST/
C
C CODE
C ----
C
      PSET = .FALSE.
      CLR(1:1)=ESC
      CLR(2:2)=FF
      CALL QGSEND(CLR)
      RETURN
      END
