CurrentFeed = GetOemDRO(818) 'Get the current feedrate.
PlateThickness = 20
ProbeFeed = 50

Code "G90 F" &ProbeFeed
While IsMoving()
Wend
If GetOemLed (825)=0 Then
Code "G4 P3" 'Time to get to the z-plate
While IsMoving()
Wend
Code "G31Z-50 F" &ProbeFeed
While IsMoving()
Wend
Code "G4 P0.25"
While IsMoving()
Wend
ZProbePos = GetVar(2002)
While IsMoving()
Wend
Code "G0 Z" &ZProbePos
While IsMoving ()
Wend
Call SetDro (2, PlateThickness)
While IsMoving()
Wend
Code "G4 P0.5" 'Pause for Dro to update.
While IsMoving()
Wend
Code "G0 Z10" 'Change the Z retract height here
While IsMoving()
Wend
Code "(Z axis is now zeroed)"
While IsMoving()
Wend
Code "F" &CurrentFeed
Else
Code "(Z-Plate is grounded, check connection and try again)"
Exit Sub
End If