

CurrentFeed = GetOemDRO(818)	'浱ǰ
DoSpinStop()	'ͣת

Cur = GetDro(0) 'x
Move = Cur-20.0 '̽20.0
Offset = Abs(GetOEMDRO(1000))/(2) 'Ѱ뾶,Ҫ
Sal = Offset + 2.0 'Եɺ뿪2.0

If GetOemLed (825)=0 Then	'жѰǷнӴ?ֻпʼʱ޽ӴѰ
Code "G4 P2.5"	'ͣ2.5
Code "G31 X"& Move & "F25"	'xԽ25ٶѰ
While IsMoving()		'ȴѰֹ̽ͣ
Sleep(200)
Wend
Probepos = GetDro(0)		'
Call SetDro(0, Offset)		'µxԭ
Code "G4 P1"			'ͣ
Code "G0 X" & Sal		'
Code "(X zeroed)"		'ʾϢ
Code "F" &CurrentFeed 		'ָԭн

Else
Code "(Check Ground Probe)"	'Ѱ(probe)Եض·(нӴ),
End If

Exit Sub   
