NPT Thread Milling

;G65 P9000 U0. W0. A.375 R5. E10. Z-.5 V18. F10.

o100 sub
;O9000 (PIPE THREADS)
(U IS X LOCATION)
(W IS Y LOCATION)
(A=STARTING RADIUS)
(R=NUMBER OF MOVES PER CIRCLE)
(Z=DEPTH)
(E=NUMBER OF PASSES [thickness / pitch])
(V=THREADS PER INCH)
(F=FEED)
#<U> = #1
#<W> = #2
#<A> = #3
#<R> = #4
#<E> = #5
#<Z> = #6
#<V> = #7
#<F> = #8
#3=0.0
#10=[360 / #<R>]
#109=#10
#110=[1 / #<V>]
#111=[0.0625 / #<V>]
#3=#<R>
G00 X#<U> Y#<W>
G01 Z#<Z> F#<F>
#19=[#<A> + #<U>]
G01 X#19 Y#<W> F#<F>
#<Z>=[#<Z> + #110 / #109]
#24=[COS[ #3 ] * #<A>]
#25=[SIN[ #3 ] * #<A>]
#24=[#24 + #<U>]
#25=[#25 + #<W>]
G01 X#24 Y#25 Z#<Z> F#<F>
#3=[#3 + #<R>]
#<A>=[#<A> + #111 / #109]
o110 if [ #3 LE 360.00000 * #<E> ]
  #<Z>=[#<Z> + #110 / #109]
  #24=[COS[ #3 ] * #<A>]
  #25=[SIN[ #3 ] * #<A>]
  #24=[#24 + #<U>]
  #25=[#25 + #<W>]
  G01 X#24 Y#25 Z#<Z> F#<F>
  #3=[#3 + #<R>]
  #<A>=[#<A> + #111 / #109]
o110 endif
G01 X#<U> Y#<W> F#<F>
G00 Z1. M09
;M99
o100 endsub

o100 call [0][0][.375][5][10][-0.5][18][10]
M2