
s1 = SlotText(1)
s1 = Trim(s1)
s1 = LCase(s1)

If s1 <> s2
	s2 = s1
	Select s1
		Case "open notepad"
			Load "c:\windows\system32\notepad.exe"
			Beep 440 50
		Case "close notepad"
			Load CloseApps "c:\windows\system32\notepad.exe"
			Beep 440 50
		Case "open wordpad"
			Load "C:\Program Files\Windows NT\Accessories\wordpad.exe"
			Beep 440 50
		Case "close wordpad"
			Load CloseApps "C:\Program Files\Windows NT\Accessories\wordpad.exe"
			Beep 440 50
	EndSelect
EndIf


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
