
s1 = SlotText(1)

If s1 <> s2
	s2 = s1
	Select s2
		Case "Sound1"
			Load "sound\alarm1.wav"
		Case "Sound2"
			Load "sound\alarm24.wav"
	EndSelect
EndIf

Wait Seconds 0.1


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
