Dim IsPicaxeOn, IsSquirtBigEnough As Boolean


tryagain: Activate(Output1)	
	  Activate(Output2)	

IsPicaxeOn = 0
SquirtBigEnough = 0

Code "G04 P150"	

For i =1 To 100
	If IsActive(Input1) Then
		IsPicaxeOn = 1
		Code "G04 P10"
	End If
Next i

If IsPicaxeOn = 1 Then

Code "G91" 
Code "G00 Z150"
Code "G04 P1000"
Code "G90"
Code "G00 A0"
Code "A0.4"
Code "G04 P500"
Code "G00 A0"
Code "A0.2"
Code "G04 P500"			   					

For i =1 To 100
	If IsActive(Input1) Then
		IsSquirtBigEnough = 1
		Code "G04 P10"
	Else 
	If IsActive(Input2) Then
		IsSquirtBigEnough = 0
		Code "G04 P10"
	End If 
	End If	
Next i
Code "G00 C120"

If SquirtBigEnough = 1 Then
	End
Else 
If SquirtBigEnough = 0 Then
	GoTo tryagain
End If
End If
End