;	----------------------------------------------------------------
;	Abstract
;	----------------------------------------------------------------
;	Name:		Silent
;	Description:	Silent turns off volume for length of seconds
;	Parms:		length
;	----------------------------------------------------------------
;	Declarations
;	----------------------------------------------------------------
	Dim	$length
	Dim	$lengthMS
;	----------------------------------------------------------------
;	Initialization
;	----------------------------------------------------------------
	$length=37	; default
;
	if $CmdLine[0]<>0 Then
		$length=$cmdLine[1]
	EndIf
;
	$lengthMS=$length * 1000
;	----------------------------------------------------------------
;	Main
;	----------------------------------------------------------------
	Send("{Volume_Mute}")	; Turns off (or toggles) volume
;
	Sleep($lengthMS)
;
	Send("{Volume_Mute}")
;	----------------------------------------------------------------
;	Termination
;	----------------------------------------------------------------
	Exit