CurrentFeed = GetOemDRO(818)
DoSpinStop()

ZCur = GetDro(2)
ZMove = ZCur-20.0 'Profundidad máxima que detecta 20.0
ZOffset = 19.3 'Espesor de la Probeta 19.3
ZSal = ZOffset + 2.0 'Despues de tocar la probeta, subir a 2.0
If GetOemLed (825)=0 Then
Code "G4 P2.5"
Code "G31 Z"& ZMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetDro(2)
Call SetDro(2, ZOffset)
Code "G4 P1"
Code "G0 Z" & ZSal
Code "(Z zeroed)"
Code "F" &CurrentFeed

Else
Code "(Check Ground Probe)"
End If

Exit Sub