CurrentFeed = GetOemDRO(818)    'Get the current feedrate to return to later
If GetOemLed (825)=0 Then       'Check to see if the probe is already grounded or faulty
   Xpos = GetDro(0)
   ProbeDia = GetOEMDRO(1000)
   ' ------ Probe for west edge ------
   Code "G31 X" & Xpos + 5 & " F10"   'probing move at 10mm per min for 5 mm.
   While IsMoving()       'wait while it happens
   Wend
   Call SetDRO (0,-ProbeDia/2)   
   Code "F" & CurrentFeed       'Returns to prior feed rate
Else
Code "(Probe is grounded, check connection and try again)" 'this goes in the status bar if applicable
End If