Rem VBScript To touch off X Y Z

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)
ZCurrent = GetDro(2)
ToolDia  = GetOEMDro(105)
ToolRad = ToolDia/2

Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "F4" 'slow feed rate to 4 ipm

Rem Probe X
XNew = Xcurrent - 1 'move left 1 inch
Code "G31 X" &XNew
While IsMoving() 'wait for the move to finish
Wend
SetDro(0,ToolRad)
Code "G0 X0,5" 'rapid move back off plate

Rem Probe Y
YNew = YCurrent - 1
Code "G31 Y" &YNew
While IsMoving()
Wend
SetDro(1,ToolRad)
Code "G0 Y0,5" 'rapid move back off plate

Rem Probe Z
ZNew = ZCurrent - 1
Code "G31 Y" &ZNew
While IsMoving()
Wend
SetDro(2,0)
Code "G0 Z0.5"  'rapid move back off plate

Code "F" &FeedCurrent 'restore starting feed rate

End If