C
C SUBROUTINE 'QSREVV'
C ===================
C
C SET TO REVERSE VIDEO
C
      SUBROUTINE QSREVV
C
C PARAMETERS
C
C NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*4 REVV
C
C CODE
C ----
C
      REVV(1:1)=CHAR(27)
      REVV(2:2)=CHAR(91)
      REVV(3:3)=CHAR(55)
      REVV(4:4)=CHAR(109)
      CALL QGSEND(REVV)
      RETURN
      END
