C
C SUBROUTINE 'QSBELL'
C ===================
C
C RING BELL ON THE TERMINAL
C
      SUBROUTINE QSBELL
C
C PARAMETERS
C
C     NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*1 BELL
C
C RING BELL
C ---------
C
      BELL = CHAR(7)
      CALL QGSEND (BELL)
      RETURN
      END
