Click above to get retro games delivered to your door ever month!

 set bell            Control the bell flag
------------------------------------------------------------------------------
 Syntax
   set bell on|off

 Arguments
   None.

 Description
   The set bell command controls the bell flag. The default status of
   set bell is off.

   When the bell flag is set to on, the speaker is turned on when the
   end of a get field during a read is reached.

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_setbell
   vardef
      char( 20 ) cName
      uint       nAge
   enddef
   cName := "Marietta"
   nAge := 21
   clear
   @ 2, 10 say "Bell off   " get cName
   @ 4, 22 get nAge picture "99"
   read
   set confirm on
   set bell on
   @ 6, 10 say "Bell on    " get cName
   @ 8, 22 get nAge picture "99"
   read
   endproc

   proc main
   Test_setbell()
   endproc