o<go_to_g30> sub

M73
G90
G53 G0 Z0
G30

o<go_to_g30> endsub

M2