Thanks Daniell and TPS. this is what i got and works !
didn't know about spaces. Thanks TPS
'probing = XY ID
'probe dia. = tapered till tip - - tip .104"
NegMove = -10
PosMove = 10
Feed = 6
Code "G31 F" & Feed & " X" & NegMove 'X axis
While IsMoving()
Wend
SetOEMDRO(800,0)
Code "G00 X.2"
While IsMoving()
Wend
Code "G31 F" & Feed & " X" & PosMove
While IsMoving()
Wend
Xdro = GetOEMDRO(800)
SetOEMDRO(800,Xdro/2)
While IsMoving()
Wend
Code "G00 X0"
While IsMoving()
Wend
Code "G31 F" & Feed & " Y" & NegMove 'Y axis
While IsMoving()
Wend
SetOEMDRO(801,0)
Code "G00 Y.2"
While IsMoving()
Wend
Code "G31 F" & Feed & " Y" & PosMove
While IsMoving()
Wend
Ydro = GetOEMDRO(801)
SetOEMDRO(801,Ydro/2)
Code "G00 Y0"
End