
Gosub SetButtons
Stop

Label SetButtons
	Button 1 Text PenDown
	Button PenDown Text "Pen DOWN"
	Button PenDown Color SkyBlue
	
	Button 2 Label PenUp
	Button PenUp Text "Pen UP"
	Button PenUp Color White
	
	Button 4 Label PenSingle
	Button PenSingle Text "Pen single"
	Button PenSingle Color PaleGreen
	
	Button 5 Label "TEST"
	Button TEST Color Aqua
	Button TEST Slot 12
	
	Button 8 Label DisableButtons
	Button DisableButtons Color Salmon
Return

Label  DisableButtons
	For v1 = 1 To 32
		Button v1 Color Moccasin
		Button v1 Disabled
	Next
Return

Label PenDown
	Slot(15) = 0
	Wait Seconds 0.1
Return

Label PenUp
	Slot(15) = 500
	Wait Seconds 0.1
Return

Label PenSingle
	Gosub PenDown
	Load sound\Click3.wav
	Wait Seconds 0.5
	Gosub PenDown
Return


'WATCH WS1
'WATCH WS2
'WATCH SequenceIndex
'WATCH GetSeparatedString
'EXEC DestX = 12
