Got a little problem with this macro as it conventional mill and the high feed doesn't like that so I need to change this to climb milling. any help would be appreciated.

%

O1120(SKIMMING - TITANIUM ONLY)

T30M6

(63mm HIGH FEED SECO FACEMILL)

(PULL STUD = 1x THU COOLANT 308765 50)

(BACKEND = 1x BT50BSM2C22100M)

(CUTTER BODY = 1x R220.21-0063-LO06.9A)

(SPARE SCREWS = 9x C02508-T08P)

(INSERT = 9x LOHT060310TR-M07 MS2050)

G40G80G17G21

M50

M68

G0G90G80G40G54X0Y0S315M3

M16

T50

G43Z200H30

G65P9921D30X0.Y0.U1899.V140.R1.Q.6Z0.C10.E0.75F1700

(D=TOOL NUMBER)

(X=X START OF BILLET)

(Y=Y START OF BILLET)

(U=X FINISH SIZE)

(V=Y FINISH SIZE)

(R=START HEIGHT)

(Q=DEPTH OF CUT-MAX 0.6)

(Z=FINISH HEIGHT)

(C= RUN OFF DISTANCE)

(E= STEP OVER PERCENTAGE)

(F=FEED RATE)

G0Z50

G0G80M09

M05

G94

M69(CHIP CONVEYOR OFF)

M50

M30

%

%

O9921(SQUARE-UNI-DIR)

(G65P9921X-Y-U-V-D-R-Z-F-E-C-K-Q-)

#31=#4001

#33=#4003

#32=#5003

IF[#24EQ#0]GOTO10

GOTO20

N10#24=#5001

N20IF[#25EQ#0]GOTO30

GOTO40

N30#25=#5002

N40IF[#18EQ#0]GOTO993(R)

IF[[#18-#26]LT0]GOTO993

IF[#26EQ#0]GOTO994(Z)

IF[[#7*#9*#21*#22]EQ0]GOTO990

IF[#21LT0]GOTO990

IF[#22LT0]GOTO990

#10=#[13000+#7]+#[12000+#7](OFFSET-C-TYPE&&OFFSET-NUMBER-LE-200)

IF[#10LE0]GOTO991

IF[#8EQ#0]GOTO50

GOTO60

N50#8=0.60

N60IF[#8GT1]GOTO996

IF[#3EQ#0]GOTO70

GOTO80

N70#3=#10

N80IF[#3LT0]GOTO992

IF[#6EQ#0]GOTO90

GOTO100

N90#6=0

N100#26=#26+#6

IF[#17EQ#0]GOTO110

GOTO120

N110#17=#18-#26

N120IF[#17GT[#18-#26]]GOTO997(Q-GT-[R-Z])

IF[#6GT#17]GOTO998(K-GT-Q)

#27=#24-[#3+#10]

#28=#25+#10*[2*#8-1]

#29=#18-#17

#30=#28

#14=2*#10*#8

DO1

#28=#30

G00X#27Y#28

Z#18

G01Z#29F[#9/2]

DO2

G01X[#21+#3+#10+#24]F#9

#12=#28+#10-#25

IF[#12GE#22]GOTO200

#28=#28+#14

G00Z#18

G00Z#32

G00Y#28X#27

G00Z#18

G01Z#29F[#9/2]

END2

N200#29=#29-#17

IF[#29GE#26]GOTO300

IF[[#29+#17]EQ#26]GOTO400

#29=#26

N300G00G90Z#18

Z#32

END1

N400(***END-OF-CYCLE***)

IF[#6EQ0]GOTO500

#26=#26-#6

G00G90Z#18

Z#32

#28=#30

G00G90X#27Y#28

Z#18

G01Z#26F[#9/2]

DO3

G01X[#21+#3+#10+#24]F#9

#12=#28+#10-#25

IF[#12GE#22]GOTO500

#28=#28+#14

G00Z#18

G00Z#32

G00Y#28X#27

G00Z#18

G01Z#26F[#9/2]

END3

N500(***END-OF-FINISH***)

G00G90Z#18

Z#32

G#31G#33F#9

GOTO999

N990#3000=81(DATA-LACK-OR-ERROR-D.F.U.V.)

N991#3000=82(OFFSET-ERROR)

N992#3000=83(DATA-ERROR-FOR-C.)

N993#3000=84(RAPID-APPROACH-POINT-R.)

N994#3000=85(Z-END-POINT-Z.)

N995#3000=86(CORNER-RADIUS-I.)

N996#3000=87(MODIFY-E.)

N997#3000=88(MODIFY-Q.)

N998#3000=89(MODIFY-K.)

N999M99

%