
Gosub SetButtons
Stop

Label SetButtons
	Button 1 Text PenUp
	Button PenUp Color SkyBlue
	
	Button 4 Text PenDown
	Button PenDown Text "Pen down"
	Button PenDown Color White
	
	Button 7 Text PenSingle
	Button PenSingle Text "Pen single"
	Button PenSingle Color PaleGreen
	
	Button 8 Text "TEST"
	Button TEST Color Aqua
	Button TEST Slot 12
	
	Button 10 Text "M2"
	Button M2 Color Yellow
	
	Button 14 Text "Temperature"
	Button Temperature Color Salmon
Return

Label ClearButtons
	For v1 = 1 To 32
		Button v1 Text ""
		Button v1 Color Moccasin
		Button v1 Enabled
		For v1 = 1 To 32
			Button v1 Text ""
			Button v1 Color Moccasin
			Button v1 Enabled
		Next
		Wait Seconds 0.1
	Next
	Wait Seconds 0.1
Return

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

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

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


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