C
C SUBROUTINE 'QSCURR'
C ===================
C
C ANSI CURSOR 1 POSITION RIGHT ON ANSI SCREEN
C
      SUBROUTINE QSCURR
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*3 CRSMOV
C
C CODE
C ----
C
      CRSMOV(1:1)=CHAR(27)
      CRSMOV(2:2)=CHAR(91)
      CRSMOV(3:3)=CHAR(67)
      CALL QGSEND(CRSMOV)
      RETURN
      END