Does anyone know if there is an shorter way to write this type of a program?
it keeps repeating to a depth of 2.55" at 0.05" per

T21 M06
(1.25 3 FLUTE)
G90 G58 G00 X3.25 Y5.
M88
S1800 M03
G43 H21 Z1. M08
G01 Z-0.05 F15.
G41 G01 X2.375 Y4. D21
G01 Y3.077
G03 X2.7606 Y2.174 R1.25
G02 X2. Y0.2794 R1.1
G02 X1.2394 Y2.174 R1.1
G03 X1.625 Y3.077 R1.25
G01 Y3.7294
G01 X2.5
G40 G00 X3.25 Y5.

G01 Z-0.1
G41 G01 X2.375 Y4. D21
G01 Y3.077
G03 X2.7606 Y2.174 R1.25
G02 X2. Y0.2794 R1.1
G02 X1.2394 Y2.174 R1.1
G03 X1.625 Y3.077 R1.25
G01 Y3.7294
G01 X2.5
G40 G00 X3.25 Y5.

do it in a sub routine. make your first z move a incremental move and do not have the cutter move up and the end of the sub.

I see you have the Z-0.05 at the top of the first set of profile coordinates then Z-0.10 at the top of the next: Do you mean you keep on with Z-0.15, Z-0.2, etc until you get to the full depth?

Put your profile coords in a subroutine and then increment the Z-0.05 before you call the subroutine.

EDIT: Drewmeister must type faster than me.:) He wasn't there when I started.

Thanks for the input guys.
It all helps

%
G0G20G40G80G90
T21 M06
(1.25 3 FLUTE)
G90 G58 G00 X3.25 Y5.
M88 ( I AM NOT FAMILIAR WITH M88)
S1800 M03
G43 H21 Z1. M08
M97P1000L51
G0Z2.M9
G91G28Y0Z0
G90
M30

P1000
G01 G91 Z-0.05 F15.
G90 G41 G01 X2.375 Y4. D21
G01 Y3.077
G03 X2.7606 Y2.174 R1.25
G02 X2. Y0.2794 R1.1
G02 X1.2394 Y2.174 R1.1
G03 X1.625 Y3.077 R1.25
G01 Y3.7294
G01 X2.5
G40 X3.25 Y5. F25.
M99
%

By using the M97 with the L command will let it loop so having your entire path with in the P1000 program and using G91 for the Z Depth it will continue to repeatedly do the steps you want.

Hopefully this will help.

you can also use a While do loop:

T21 M06
(1.25 3 FLUTE)
G90 G58 G00 X3.25 Y5.
M88
S1800 M03
G43 H21 Z1. M08
G01 Z-0.05 F15.
#100=51.0(Number of Passes)
WHILE [#100 GT 0]DO1
#100=#100-1.0
G41 G01 X2.375 Y4. D21
G01 Y3.077
G03 X2.7606 Y2.174 R1.25
G02 X2. Y0.2794 R1.1
G02 X1.2394 Y2.174 R1.1
G03 X1.625 Y3.077 R1.25
G01 Y3.7294
G01 X2.5
G40 G00 X3.25 Y5.
END1
G0Z2.0M9
G91G28Y0Z0
G90
M30

This is my macro to trepan maybe this will help

%
O0001
G00 G90 G54
(Trepan Macro)
(-----Alter 1 thru 7----)

#1 .75 (Diameter of mill)
#2 5.500 (Dia to Trepan)
#3 2.55 (Depth of cut)
#4 51(# of cuts)
#5 1500 (rpm)
#6 15.5 (ipm)
#7 1.0 (Distance above part)

(----Do not alter below----)
#2/2=#8
#1/2=#9
#8-#9=#10
G80 M09
M06 T2
G00 X-#10 Y0 S#3 M03
G43 Z#7 H02 M08
G01 Z-#3 F1.
G02 I#10 J0. F#6
G00 Z6.
G00 G91 G28 Z0 Y0 M09
G90 M19
M30
%