[Turbine]

Here's a mill one to blast a circle pocket without a start hole. It has slick helical motion. My favorite lathe one is in your email. (Sorry guys... It wouldn't be right for me to post that one here as I did not write it.)

• O9001
  (VERSION 1.1 - 2/17/03)
  (X=X CENTER)
  (Y=Y CENTER)
  (Z=FINAL DEPTH)
  (B=BORE DIAMETER)
  (C=CUTTER DIAMETER)
  (D=DIRECTION, 2 OR 3)
  (W=DEPTH PER PASS)
  (R=START PLANE OF MATERIAL)
  (F=FEED RATE)
  #30=#4001
  #31=#4003
  #32=#4109
  #33=#5043-#5083
  IF[#24EQ#0]THEN#24=#5041
  IF[#25EQ#0]THEN#25=#5042
  IF[#18EQ#0]THEN#18=#33
  IF[#9EQ#0]THEN#9=#32
  IF[#26EQ#0]OR[#2EQ#0]OR[#3EQ#0]OR[#7EQ#0]OR[#23EQ#0]THEN#3000=1(INSUFFICIENT INFORMATION SUPPLIED)
  IF[#23LE0]THEN#3000=1(ILLEGAL W SPECIFIED)
  IF[#2LE0]OR[#3LE0]THEN#3000=1(BOTH BORE AND CUTTER DIA MUST BE GREATER THAN ZERO)
  IF[#26GE#18]THEN#3000=1(DEPTH MUST BE LESS THAN START POINT)
  IF[#26GT[#18-#23]]THEN#3000=1(W VALUE TOO GREAT)
  IF[#3GE#2]THEN#3000=1(CUTTER CAN NOT BE BIGGER OR EQUAL TO BORE DIAMETER)
  IF[#7EQ2]OR[#7EQ3]GOTO5
  #3000=1(ILLEGAL DIRECTION SPECIFIED)
  N5#29=#2/2-#3/2
  G00G90X#24Y#25
  Z[#18+#23]
  #18=#18-#23
  G01G91X#29Z-#23F#9
  N10G#7X0.Y0.Z-#23I-#29J0.
  IF[#18EQ#26]GOTO15
  #18=#18-#23
  IF[#18GT#26]GOTO10
  #23=#18+#23-#26
  #18=#26
  GOTO10
  N15G#7X0.Y0.I-#29J0.
  G#7X-#29Y0.I-[#29/2]J0.
  G00G90Z#33
  G#30G#31F#32
  M99