C
C SUBROUTINE 'QSNORV'
C ===================
C
C SET TO NORMAL VIDEO
C
      SUBROUTINE QSNORV
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*4 NORV
C
C CODE
C ----
C
      NORV(1:1)=CHAR(27)
      NORV(2:2)=CHAR(91)
      NORV(3:3)=CHAR(48)
      NORV(4:4)=CHAR(109)
      CALL QGSEND(NORV)
      RETURN
      END
