When set to OFF R:BASE will use a standard Windows sound for all errors and the BEEP command. When set to ON certain sounds, as set in the Windows Control Panel, will be used instead depending on which soundtype is used. Below is a table of Types and their corresponding sound event. You must set the actual sounds used in the Windows Sounds Control Panel Applet. You will also need to ensure that your speakers are Un-Muted and working properly. In either case, WINBEEP ON or WINBEEP OFF, if you have the "No Sounds" scheme selected in your Sounds Control Panel you will not hear any beeps from R:BASE for Windows.

Sound Type	Sound Event
(none)	Exclamation
1	Exclamation
2	Critical Stop
3	Question
4	Default
(other)	Asterisk

Examples

SET CAPTION ' '
SET VAR VRows INTEGER = 0
SET VAR VMsg TEXT = NULL
SELECT COUNT(*) INTO VRows INDIC IVRows FROM TableName
IF VRows = 0 THEN
   CLS
   SET WINBEEP ON 2
   BEEP
   PAUSE 2 USING 'No Record(s) on File!' AT CENTER CENTER
   SET WINBEEP OFF
   GOTO Done
ELSE
   CLS
   SET WINBEEP ON 1
   BEEP
   SET VAR VMsg = ((CTXT(.VRows)) & 'Record(s) on File!')
   PAUSE 2 USING .VMsg AT CENTER CENTER
   SET WINBEEP OFF
   GOTO Done
ENDIF
 
LABEL Done
   CLS
   CLEAR ALL VAR