
Gosub TEST
Stop

Label TEST
	Variable Numeric NumCycle
	For NumCycle = 1 To 1000
		Load sound\Click3.wav
		Gosub PenSingleAndWaitSolenoidON
		Wait Seconds 0.5
	Next
Return

Label PenSingleAndWaitSolenoidON
	Variable Numeric WS1
	Variable Numeric WS2
	For WS2 = 1 To 9e99
		For WS1 = 1 To 9e99
			Wait Seconds 0.1
			Exit 2
			'WS1 = 9e99
			'WS2 = 9e99
		Next
	Next
Return


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