;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;  ID OD Program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
F25.1   			(cut feedrate)
#99 = .008			(tool offset)
#100 =[00.959-#99]  (inner diameter)
#101 =[01.887+#99]	(outer diameter)
#102 =0.08			(spacing)
#103 =8				(rows)
#104 =8				(columns)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;  DO NOT EDIT ANY LINE ITEMS BELOW THIS POINT
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#105 =0 			(kerf for cutter comp)
#106 =0.125			(OD Lead in/out)
#107 =1				(pass counter)
#108 =1 			(pass counter)
#109 =0.1			(pierce delay)
;#110 =.15			(pierce/cut height)
;#111 =.5			(retract/rapid height)

G0 G49 G40 G17
G80 G50 G90 G90.1 G98  
G20 (Inch)

G52 X0 Y0					(Clear G52 offset)
M98 P111 L#103				(call subroutine for rows)
G52 X0 Y0					(Clear G52 offset)
M30

o111						(subroutine)
G52 X0
#107 =1
M98 P112 L#104				(call subroutine for columns)
G52 Y[[#101+#102]*#108]
#108 = [#108+1]
M99

o112						(subroutine)
G00 X[#101/2+#102] Y[#101/2+#102]
M480 (Jets On)
G04 P#109
G01 X[#101/2+#102+#100/2] Y[#101/2+#102]
G03 X[#101/2+#102+#100/2] Y[#101/2+#102] I[#101/2+#102] J[#101/2+#102]
G01 X[#101/2+#102+#100/2-#106] Y[#101/2+#102] 
M481 (Jets Off)
G04 P#109
;G00 Z#111
G00 X[#101/2+#102+Cos[45]*[#106+#101/2]] Y[#101/2+#102+sin[45]*[#106+#101/2]]
;G00 Z#110
M480 (Jets On)
G04 P#109
G01 X[#101/2+#102+Cos[45]*[#101/2]] Y[#101/2+#102+sin[45]*[#101/2]]
G03 X[#102] Y[#101/2+#102] I[#101/2+#102] J[#101/2+#102]
G03 X[#101/2+#102+Cos[45]*[#101/2]] Y[#101/2+#102+sin[45]*[#101/2]] I[#101/2+#102] J[#101/2+#102]
G01 X[#101/2+#102+Cos[45]*[#106+#101/2]] Y[#101/2+#102+sin[45]*[#106+#101/2]]
M481 (Jets Off)
G04 P#109
G52 X[[#101+#102]*#107]
#107 = [#107+1]
M99
%