1  ;
 2  
 3  O<g20sub> sub
 4  M70 (save in current call context)
 5  
 6  g20 (imperial)
 7  g90 (absolute mode)
 8  f4  (much faster feed)
 9  G0 X1.0 Y1.0 (move absolute to 1in/1in)
10  
11  M71 (restore to caller context)
12  O<g20sub> endsub
13  
14  m2