o<gtk_probe_xplus> sub

#<x>=#<_x> (save start X position) 
(PRINT, position X #<_x> ) 
G91
F #<_hal[probe.ps_searchvel]>
G38.2 X[#<_hal[probe.ps_probe_max]>]
G1 X[-#<_hal[probe.ps_probe_latch]>] F#<_ini[TOOLSENSOR]RAPID_SPEED> 
F #<_hal[probe.ps_probevel]>
G4 P0.5
G38.2 X[#<_hal[probe.ps_probe_latch]>*2]
(print, probe X=#5061 )
G90
(back to start point)
G1 X#<x> F#<_ini[TOOLSENSOR]RAPID_SPEED> 

o<gtk_probe_xplus> endsub
M2