(info: ID Boring) osub # = #1 (Starting Hole Diameter) # = #2 (Final Hole Diameter) # = #3 (=0.010 Depth of Cut) # = #4 (=0 Spring Cuts) # = #5 (=0.100 Z Start of Cut) # = #6 (Z End of Cut) # = #7 (=80 Surface Speed) # = #8 (=2 Feed IPM) # = #9 (=1500 MAX RPM) # = #10 (Tool Number) # = #11 (=8 Coolant 8 On 9 Off) T# M6 G43 G7 G96 D# S# ; Bore the ID M3 M# G0 X# Z# # = # o100 while [# lt #] O101 if [# + # lt #] # = [# + #] O101 else # = # O101 endif X# G1 Z# F# G0 X[#-0.010] Z# o100 endwhile o102 while [# gt 0] G1 X# Z# X[#-0.010] G0 Z# # = [# -1] o102 endwhile G0 X[#-0.010] M5 M9 Z# G53 G0 X0 Z0 oendsub