'***********************
'* Routine by Giordano *
'*       Asse X --     *
'***********************
CurrentFeed = GetOemDRO(818)
DoSpinStop()
SetDro (0, 0)
XMove = 10.0     'Distanza massima dal tastatore all'avvio della procedura
                 'Se non viene trovato entro questo valore darà un errore

XOffset = - 1.4 'Spessore del tastatore
XSal = XOffset - 3.0 'Ritorno dell'asse X
StopXmove = 0
If GetOemLed (825)=0 Then 'Led probe
DoOEMButton (1008)
Code "G4 P2.5"
Code "G31 X"& XMove & "F25"
While IsMoving()
Sleep(200)
Wend
Probepos = GetVar(2000) '(2002) Posizione asse Z
			'(2001) Posizione asse Y
			'(2000) Posizione asse X
If Probepos = XMove Then
responce = MsgBox ("***** ERRORE *****" , 0 , "Errore tastatore" )
Code "G0 X0"
StopXmove = 1
Code "F" &CurrentFeed
End If
If StopXmove = 0 Then
Code "G0 X" & Probepos
While IsMoving ()
Sleep (200)
Wend
End If
Call SetDro (0, XOffset)'XDRO = 0, YDRO = 1, ZDRO = 2
Code "G4 P1"
Code "G0 X" & XSal
Code "(X zeroed)"
Code "F" &CurrentFeed
'**********************************************************************
Diam_Ute = Question ("Inserire il diametro dell'utensile")
setDro (0, XOffset - Diam_Ute / 2)
If Diam_Ute = 0 Then
MsgBox ("Il valore zero non è ammesso. La procedura sarà annullata.")
Exit Sub
End If
'**********************************************************************
Else
Code "(Controllare il contatto di massa del tastatore)"
End If
Exit Sub