Procedure SysBeep uses the current system prompt sound to alert the user.
PROCEDURE SysBeep;def vs.SysBeep():
return NoneSysBeep;vs.SysBeep()
vs.Absolute()
vs.MoveTo( 0, 0 )
vs.BeginGroup()
vs.CreateText( message1 )
if vs.PSweep > 90:
vs.SysBeep()
sweepTmp = 90
vs.SetRField( gObjHandle, gObjName, 'Sweep', '90' )Availability: from All Versions