If isActive (OEMtrig1) Then
	
	Rem	VBScript To probe In the z axis

	If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
		Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
	Else
		Code "G4 P1"			'Pause 1 seconds to give time to position probe plate
		PlateOffset = .25	'Get plate offset DRO
		CurrentFeed = GetOemDRO(818) 	'Get the current feedrate to return to later
		Code "F4"			'slow down feedrate to 4 ipm
	
	Rem	Probe In the z direction
		ZNew = GetDro(2) - 2		'probe move to current z - 2 inches
		Code "G31Z" &ZNew
		While IsMoving()		'wait for probe move to finish
		Wend

		ZNew = GetVar(2002) 		'read the touch point
		Code "G0 Z" &ZNew 		'move back to hit point incase there was overshoot
		While IsMoving ()
		Wend
		
		If PlateOffset <> 0 Then
			Call SetDro (2, PlateOffset)	'set the Z axis DRO to  plate thickness
			Code "G4 P0.25" 		'Pause for Dro to update.
			ZNew = PlateOffset + .25
			Code "G0 Z" &ZNew 		'put the Z retract height you want here
			Code "(Z axis is now zeroed)" 	'puts this message in the status bar
		End If
	
		Code "F" &CurrentFeed 		'Returns to prior feed rate
	End If
End If

If isActive (OEMtrig3) Then

	Rem	VBScript To center probe inside a pipe
	
	If GetOemLed (825) <> 0 Then 		'Check to see if the probe is already grounded or faulty
		Code "(Probe plate is grounded, check connection and try again)"
	Else
		FeedCurrent = GetOemDRO(818) 	'Get the current settings
		XCurrent = GetDro(0)
		YCurrent = GetDro(1)
	
		Code "G4 P1"			'Pause 1 second to give time to position probe plate
		Code "F4"			'slow feed rate to 4 ipm
	
	Rem	Probe Left
		
		XNew = Xcurrent - 3		'probe 3 inches to left
		Code "G31 X" &XNew
		While IsMoving()		'wait for the move to finish
		Wend
		XPos1 = GetVar(2000)		'get the probe touch location
	
		Code "G0 X" &XCurrent		'rapid move back to start point
	
	Rem	Probe Right
		
		XNew = XCurrent + 3		'probe 3 inches to right
		Code "G31 X" &XNew
		While IsMoving()
		Wend
		XPos2 = GetVar(2000)
	
		XCenter = (XPos1 + XPos2) / 2	'center is midway between XPos1 and XPos2
		Code "G0 X" &XCenter		'rapid move to the x center location
	
	Rem	Probe up
	
		YNew = YCurrent + 3
		Code "G31 Y" &YNew
		While IsMoving()
		Wend
		YPos1 = GetVar(2001)
	
		Code "G0 Y" &YCurrent
	
	Rem	Probe down
		
		YNew = YCurrent - 3
		Code "G31 Y" &YNew
		While IsMoving()
		Wend
		YPos2 = GetVar(2001)
	
		YCenter = (YPos1 + YPos2) / 2
	
	Rem	move To the center
		
		Code "G0 Y" &YCenter
		While IsMoving ()
		Wend
	
		Code "F" &FeedCurrent  		'restore starting feed rate
	End If
End If

If isActive (OEMtrig2) Then
	message "Not active yet Wayne"
End If