(info: OD Profile Radius Mode)
o<profilerad> sub
#<part>     = #1 (Part Subroutine)
#<EntryX>   = #2 (=0.575 Entry X Radius)
#<CutDepth> = #3 (=0.025 Cut Depth)
#<OffsetX>  = #4 (=0.125 Offset X)
#<Tool>     = #5 (=3 Tool Number)
#<RPM>      = #6 (=1500 RPM)
#<SFM>      = #7 (=100 SFM)
#<IPMR>     = #8 (=10 Roughing Feed IPM)
#<IPMF>     = #9 (=2 Finishing Feed IPM)
#<Coolant>  = #10(=8 Coolant)
#<Home>     = #11(=0 Return to Home = 1)

G18 G8
G96 D#<RPM> S#<SFM>

#<CurrentX> = [#<EntryX> + #<OffsetX>]
F#<IPMR>
T#<Tool> M6 G43
G0 X#<CurrentX>
G92 X#<EntryX>
M3 M#<Coolant>

o200 while[#<CurrentX> gt #<EntryX>]
  o#<part> call
  #<CurrentX> = [#<CurrentX> - #<CutDepth>]
  G92.1
  G0 X#<CurrentX>
  G92 X#<EntryX>
o200 endwhile
G92.1
F#<IPMF>
o#<part> call
G0 X[#<EntryX> + #<OffsetX>]

o210 if[#<Home> EQ 1]
  G53 G0 X0 Z0
o210 endif

o<profilerad> endsub