C
C SUBROUTINE 'QSHOME'
C ===================
C
C HOME CURSOR ON ANSI SCREEN
C
      SUBROUTINE QSHOME
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*3 HOMANS
C
C CODE
C ----
C
      HOMANS(1:1)=CHAR(27)
      HOMANS(2:2)=CHAR(91)
      HOMANS(3:3)=CHAR(72)
      CALL QGSEND(HOMANS)
      RETURN
      END
