C
C SUBROUTINE 'QSSETC'
C ===================
C
C SET ANSI CURSOR POSITION ON ANSI SCREEN
C
      SUBROUTINE QSSETC(ICOL,ILIN)
C
C PARAMETERS
C
C       ICOL (I)   COLUMN NO. 1-80
C       ILIN (I)   LINE NO. 1-24
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*8 CRSMOV
C
C CODE
C ----
C
      IF (ICOL.LT.1 .OR. ICOL.GT.80) RETURN
      IF (ILIN.LT.1 .OR. ILIN.GT.24) RETURN
      CRSMOV(1:1)=CHAR(27)
      CRSMOV(2:2)=CHAR(91)
      IF (ILIN.LT.10) THEN
         WRITE (CRSMOV(3:3),1000) ILIN
         II=4
      ELSE
         WRITE (CRSMOV(3:4),1001) ILIN
         II=5
      ENDIF
      CRSMOV(II:II)=CHAR(59)
      II=II+1
      IF (ICOL.LT.10) THEN
         WRITE (CRSMOV(II:II),1000) ICOL
         II=II+1
      ELSE
         WRITE (CRSMOV(II:II+1),1001) ICOL
         II=II+2
      ENDIF
      CRSMOV(II:II)=CHAR(72)
      CALL QGSEND(CRSMOV(1:II))
      RETURN
C
C FORMAT STATEMENTS
C
1000  FORMAT(I1)
1001  FORMAT(I2)
      END
