C
C SUBROUTINE 'QSCLRA'
C ===================
C
C CLEAR TO ANSI SCREEN
C
      SUBROUTINE QSCLRA
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*4 CLRANS
C
C CODE
C ----
C
      CLRANS(1:1)=CHAR(27)
      CLRANS(2:2)=CHAR(91)
      CLRANS(3:3)=CHAR(50)
      CLRANS(4:4)=CHAR(74)
      CALL QGSEND(CLRANS)
      RETURN
      END
