CurrentFeed = GetOemDRO(818)
PierceHight = -10.0
ProbeFeed = 1300.0

Code "G90 F" &ProbeFeed

If GetOemLed(825) = 0 Then
Code "G31 Z-117 F" &ProbeFeed

While IsMoving()
Wend

Code "G4 P0.25"

ZprobePos = GetVar(2002)

Message "ProbePos is " &ZprobePos


Code "G0 Z" &ZprobePos
While IsMoving()
Wend

Call SetDRO(2,PierceHight)

While IsMoving()
Wend


Code "G4 P0.6"
Code "G0 Z 0"
Code "G92 Z0.0"

Message "Z at Pierce Hight   " & ZprobePos

Code "F" & CurrentFeed
StartTHC()
ZeroTHC()
Else
Code "(ERROR. Plate is Grounded)"
GotoSafeZ()
Exit Sub
End If