' ==========================================================
'   EXTERNAL COMMANDS TO BUTTONS EXAMPLE
' ==========================================================

Button 1 Label Beep1
Button 2 Label Beep2
Button 3 Label Beep3
Variable Numeric Slot_ExternalCommands = 1
Stop

Label Beep1
	Beep 440 100
	ClearCommand
Return

Label Beep2
	Beep 600 100
	ClearCommand
Return

Label Beep3
	ClearCommand
	ExecBeepMultiple
Return

Label ExecBeepMultiple
	For v1 = 1 To 3
		Beep 880 100
		Wait Seconds 0.1
	Next
Return

Label ClearCommand
	SlotText(Slot_ExternalCommands) = ""
Return


'WATCH v1
'EXEC DestX = 12
