

Beep 200 200

Loop
Stop


'Label EventStop
'	Beep
'End

Variable String NewText
Variable String OldText
Variable Numeric Frequency = 440
Variable Numeric Milliseconds = 50
Label Loop
	NewText = Trim(SlotText(1))
	NewText = Replace(NewText, " ...", "")
	'NewText = "beep 800 500"
	If NewText <> OldText
		OldText = NewText
		s10 = GetSeparatedString(NewText, 0)
		s11 = GetSeparatedString(NewText, 1)
		Select s10
			Case "frequency"
				Frequency = s11
			Case "milliseconds"
				Milliseconds = s11
			Case "beep"
				Beep Frequency Milliseconds
		EndSelect
		Wait Seconds 0.1
	EndIf
Goto Loop


'WATCH v1
'EXEC DestX = 12
