Activatesignal (OUTPUT6)
Code "g53 g0 x2.2655 y10.7739 z0.0"
While IsMoving ()
Wend
If getOemled (28)=0 Then
	Dooembutton (136)
	End If

If GetOemLed (825)<>0 Then 'Check to see if the probe is already grounded or faulty
	Call ProbeGrounded()
	Exit Sub
Else
        CurrentToolDiameter = GetOemDRO(43) 'gets the current tool diameter
	toolnew = CurrentToolDiameter /2
	Code "g54 g1 f10 z1.0"
	While IsMoving ()
	Wend
	Code "G91 x" &toolnew
	While IsMoving ()
	Wend
	DeActivateSignal(OUTPUT5)
sleep(1000)
Spin = 300

 If Spin < 450 Then
   Call gear
   End If

 

	Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
	Code "G90 G31 Z-2 F5" 'probing move, can set the feed rate here as well as how far to move
	'Code "G31 Z-1.0 F5" 'Z goes down a max of 1.0 at 5IPM
	
	While IsMoving() 'wait while it happens
	Wend
	Code "g91 g1 f20 z.1"
	Code "G90 G31 Z-2 F5"
	While IsMoving ()
	Wend
	Z_Shift = GetOEMDRO (1002)
	Z_Offset = GetOEMDRO ( 49 )
	Axis_Pos = GetOEMDRO(85)
	Tool_Offset = Axis_Pos - Z_Offset  
	Call setOEMDRO(42, Tool_Offset)
	Code "G0 Z1.0" 'put the Z retract height you want here
	'Code "G0 Z1.0" 'retract Z to 1.0 inch

	While IsMoving ()
	Wend
	Code "g90 M5"
	DeactivateSignal (output6)
	doOembutton (136)
End If


Sub gear
   
   pulley = getOemdro(56)
 If pulley = 1 Then
   Call lowgear
   End If
 If pulley = 2 Then
   Call gearchange
   End If
   End Sub



Sub gearchange

  
  setpulley (1)
  Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Change To Low Gear " 
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons 
Style = 0 + 48 + 0   ' Define buttons. 
Title = "Gear Change Requested"   ' Define title 
Help = "DEMO.HLP"   ' Define Help file 
Ctxt = 1000   ' Define topic       
 'context.        
 ' Display message. 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok    
MyString = "Ok"   ' Perform some action 
End If

  Call Lowgear
  End Sub
   


Sub LowGear
 
   DoSpinCW()
   Message "Low gear active"
   
 End Sub

   

Sub ProbeGrounded()
	Code "(Probe plate is grounded, check connection and try again)"
End Sub