Hi BR549:
Thanks for taking the time to write the code. I just tried it on the computer and it looks like it works just fine. Didn't have much time to play with it, just threw in some variables and ran it. Very nice. If I wanted to retract back to x0.0 each time what would need to be done?
Cool stuff.
Thanks again BR

I t will retract back to the initial starting point as is. If you start at zero it will end at zero.

Do you need something differrent??

(;-) TP

Hi BR:
First of all thanks for your help.
Here's what I did. I changed what you programmed so it works in G90. I wanted to drill the first 3" without pecking. Then I wanted it to start pecking but retract to X0.0. Needed to clear the drill from the piece. Also, I added a couple lines that will make sure the drill gets to the final depth.
The code below is what I'm using now and it works pretty good.
Thanks again for all your help. I know what kind of time is involved with doing the programming.

M4
M98P1 L1
o1
#100 = 14.18    ;Drill Depth)
#101 = 0.375    ;Peck depth)
#102 = Fup[[#100-#105]/#101]
#103 = [#100/#102]
#104= #103
#105 = 3.0       ;INITIAL DRILL DEPTH
#106 = 1.0       ;Feedrate)
G90
M98 P2 L#102
G0 X[#105-.02]
G1 X#100 F#106
M5
G0 X-0.2
G90
M30
o02
G1 X#105 F#106
G0X0.0
X[#105-.020]
G1X[#105+.020]
#105=[#105+#101]

M99
%

GoodJob,  just watch your chip load on the initial drill depth. That is a LONG way to drill without clearing chips(;-) normal is 4x the drill diameter.

(;-) TP