Rem VBScript For probing In the Y direction

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
Code "G4 P2" 'Pause 1 second to give time to position probe plate

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F10" 'Slow feedrate to 4 ipm

Rem Probe up

YNew = GetDro(1) + 3 'move to current y position + 3 inches
Code "G31 Y" &YNew
While IsMoving() 'wait for the move to finish
Wend
YNew = GetVar(2001) 'read the touch point

Rem move back to the hit point incase there was an overshoot

Code "G91 G0 Z.500"
Code "G90 G0 Y" &YNew
Code "G91 Y.100"

While IsMoving ()
Wend
Call SetDro (1,0.000)
Code "G4 P0.25"

Code "F" &CurrentFeed 'restore original feed rate
End If