SET(BELL)

  Enables or disables the terminal bell for messages (all or only
  broadcasts).

  Syntax

     SET (BELL, {ALL | BROADCAST}, {OFF | ON})

  Parameters

     ALL        Specifies that ON or OFF applies to all messages.

     BROADCAST  Specifies that ON or OFF applies only to broadcast messages,
                such as from MAIL or REPLY.

     OFF        Disables the bell for ALL or BROADCAST messages.

     ON         Enables the bell for ALL or BROADCAST messages.

  Comments

  A bell character (ASCII decimal 7) in message text does not cause the bell
  to ring; TPU displays bell characters as uninterpreted control codes.
  You can also use DCL commands to affect the display of broadcast messages
  within TPU.  If you use the DCL command SET TERMINAL/NOBROADCAST, no
  broadcast messages are sent to your terminal.  Also, using the DCL command
  SET BROADCAST controls some kinds of broadcast messages.

  Example

  The following procedure saves the existing bell state, turns it on for
  messages, outputs a message with a bell, and then restores the previous
  bell state:

     PROCEDURE user_ring_bell (msg_string)
        local bell_state;
        bell_state := GET_INFO (SYSTEM, "bell");
        SET (BELL, ALL, ON);
        MESSAGE (msg_string);
        IF bell_state = 0
           THEN
              SET (BELL, ALL, OFF);
           ELSE
              IF bell_state = BROADCAST
                 THEN
                    SET (BELL, BROADCAST, ON);
              ENDIF;
        ENDIF;
     ENDPROCEDURE;

  Related topics

     SET(INFORMATIONAL)   SET(SUCCESS)