C
C SUBROUTINE 'QGBELL'
C ===================
C
C RING BELL ON THE TERMINAL (IN A GRAPHICS MODE)
C
      SUBROUTINE QGBELL
C
C PARAMETERS
C
C     NONE
C
C SPECIFICATION STATEMENTS
C ------------------------
C
      CHARACTER*1 BELL
      CHARACTER*1 MODE, ESC, GS, US, FS, CR, FF, SUB
      COMMON /QQCHR/ MODE, ESC, GS, US, FS, CR, FF, SUB
      SAVE /QQCHR/
C
C RING BELL
C ---------
C
      IF (MODE.NE.'T') CALL QGTMOD
      BELL = CHAR(7)
      CALL QGSEND (BELL)
      RETURN
      END
