C
C SUBROUTINE 'QSCLRL'
C ===================
C
C CLEAR LINES ON ANSI SCREEN
C
      SUBROUTINE QSCLRL(ILIN1,ILIN2)
C
C PARAMETERS
C
C         ILIN1 (I)  START LINE FOR CLEAR (1-24)
C         ILIN2 (I)  END LINE FOR CLEAR (1-24) (>=ILIN1)
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*4 ERASE
C
C CODE
C ----
C
      IF (ILIN1.LT.1 .OR. ILIN1.GT.24) RETURN
      IF (ILIN2.LT.1 .OR. ILIN2.GT.24) RETURN
      IF (ILIN2.LT.ILIN1) RETURN
      ERASE(1:1)=CHAR(27)
      ERASE(2:2)=CHAR(91)
      ERASE(3:3)=CHAR(50)
      ERASE(4:4)=CHAR(75)
      DO 100 IL=ILIN1,ILIN2
      IF (IL.EQ.ILIN1) CALL QSSETC(1,IL)
      CALL QGSEND(ERASE)
      IF (IL.NE.ILIN2) CALL QSCURD
100   CONTINUE
      RETURN
      END
