C
C SUBROUTINE 'QSCURD'
C ===================
C
C ANSI CURSOR 1 POSITION DOWN ON ANSI SCREEN
C
      SUBROUTINE QSCURD
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(66)
      CALL QGSEND(CRSMOV)
      RETURN
      END
