Something

G17 G20 G40 G54 G80 G90 G94

o010 sub

(***EDIT***)

#20=-.2		(counsersink depth)
#21=.24		(countersink diameter)
#22=-.35	(thruhole depth)
#23=.15		(thruhole diameter)

#24=.125	(tool diamater)
#25=.3		(plunge feedrate ipm)
#26=10.		(planar feedrate ipm)
#27=.005	(z per pass)

#28=.05         (horizontal rapid Z)
#29=.01         (vertical rapid Z)
#30=1.          (clear Z)

(**********)

#31=[[#21-#24]/4] (countersink small radius)
#32=[[#21-#24]/2] (countersink large radius)
#33=[#2+[[#21-#24]/2]] (countersink top pt)
#34=[#2-[[#21-#24]/2]] (countersink bot pt)

#35=[[#23-#24]/4] (countersink small radius)
#36=[[#23-#24]/2] (countersink large radius)
#37=[#2+[[#23-#24]/2]] (countersink top pt)
#38=[#2-[[#23-#24]/2]] (countersink bot pt)

G0 Z[#20]
X[#1] Y[2]
Z[#29]

#99=0 (current depth)

o011 while [#99 GT #20]
G1 Z[#99] F[#25]
G2 X[#1] Y[#33] R[#31]
X[#1] Y[#34] R[#32]
X[#1] Y[#33] R[#32]
X[#1] Y[#2] R[#31]
#99=[#99-#27]
o011 endwhile

#99=[#20]
G1 Z[#99] F[#25]
G2 X[#1] Y[#2+[[#21*.5]-[#24*.5]]] R[[#21-#24]*.25]
X[#1] Y[#2+[[#21*.5]-[#24*.5]]] J[[#21*-.5]-[#24*-.5]]
X[#1] Y[#2] R[[#21-#24]*.25]
#99=[#99-#27]

o012 while [#99 GT #22]
G1 Z[#99] F[#25]
G2 X[#1] Y[#2+[[#23*.5]-[#24*.5]]] R[[#23-#24]*.25]
X[#1] Y[#2+[[#23*.5]-[#24*.5]]] J[[#23*-.5]-[#24*-.5]]
X[#1] Y[#2] R[[#23-#24]*.25]
#99=[#99-#27]
o012 endwhile

#99=[#22]
G1 Z[#99] F[#25]
G2 X[#1] Y[#2+[[#23*.5]-[#24*.5]]] R[[#23-#24]*.25] 
X[#1] Y[#2+[[#23*.5]-[#24*.5]]] J[[#23*-.5]-[#24*-.5]]
X[#1] Y[#2] R[[#23-#24]*.25]

G0 Z[#20]
o010 endsub

o010 call [1.575] [.65]
o010 call [2.325] [.65]
o010 call [3.075] [.65]
o010 call [3.825] [.65]
o010 call [4.575] [.65]

o010 call [1.575] [1.7]
o010 call [2.325] [1.7]
o010 call [3.075] [1.7]
o010 call [3.825] [1.7]
o010 call [4.575] [1.7]

M30