%
O0017(POCKET MILLING)(12/98)
(G65 P17 U V S Z Q R F)
(U#21 X POCKET WIDTH)
(V#22 Y POCKET WIDTH)
(S#19 STEP QTY)
(Z#26)(Q#17)(R#18)(F#9)
#101=#5001
#102=#5002
#103=#5003
#104=#18
#105=#[2000+#4307](CUTTER COMP)
G90G0Z#104
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/3]
#3=1.
WHILE[#3LE#19]DO2
#106=[[#21/2]-#105]*[#3/#19]
#107=[[#22/2]-#105]*[#3/#19]
G1X[#101+#106]Y#102F#9
Y[#102+#107]
X[#101-#106]
Y[#102-#107]
X[#101+#106]
Y[#102+3.]
#3=#3+1.
END2
X#101Y#102F#9*2]
END1
G0Z#103
M99


O0300
M98P1
N1G57S400D11M3(020 MILL)
G90G0X-170.Y110.Z350.
G43Z20.H1M16
G65P3A301.Z0.Q20.R20.F50.
G0X Y
G65P17U V S Z Q R F
G0Z350.H00M17
G91G28Y0Z0
M30


O0301(300 SUB)
G1G41X-150.Y96.5
X130.52
G2X134.49Y92.94I0.J-4.
G3X148.08Y79.36I15.25J1.67
G2X151.65Y75.38I-0.43J-3.98
G1Y-92.5
G2X147.65Y-96.5I-4.J0.
G1X-130.52Y-96.5
G2X-134.49Y-92.94I0.J4.
G3X-148.08Y-79.36I-15.25J-1.67
G2X-151.65Y-75.38I0.43J3.98
G1Y92.5
G2X-147.65Y96.5I4.J0.
G1X-145.
G40X-130.Y110.
G0X-170.
M99
%