(Pocket Mill - X/Z Plane G18)
(Time @ 30% = 3:24m)
G0 G49 G40.1 G18
G80 G50 G90 G98 G20 (Inch)

(Center Pocket = X0.0, Y0.0)
(Width = 2.0 + ball mill dia.)
(Radius of Arc = 1.00")
(Parameter #11 = Y step incr.)

G00 X0 Y0
M6 T3
(M03 S800)
G00 G43 H3 
#11=[0]
G00 X0 Y0 Z.1

M98 p1000 L5
G00 Z.1
G4 P1
G00 Z.5 M5
M30

(Cutting subroutine)
O1000
G18 G1 X1 F40
G3 X-1 I0 K0
#11=[#11+.1]
G1 Y#11
G2 X1 I0 K0
#11=[#11+.1]
G1 Y#11
m99


%%