Macro sample request

[leggazoid]

Can someone with an 0i control for a mill post these macros?

Thanks


Custom Macro B Canned Cycles
The Custom Macro B canned cycles are fully tested examples of macros that
you can use immediately, or copy and modify to implement your own custom
cycles.

O9170 Outside frame milling
O9171 Inside frame milling
O9172 Pocket frame milling
O9173 Face milling
O9174 Outside circle milling
O9176 Inside circle milling
O9177 Pocket circle milling
O9179 Slot milling
O9180 Row pattern drilling
O9190 Rectangular frame drilling
O9280 Bolt-hole circle drilling

%
O9170 (G170 OUTSIDE FRAME MILL)
#2=#4003 (G90/G91 MODE)
#130=#5041(INITIAL X POS)
#131=#5042(INITIAL Y POS)
#132=#5043(INITIAL Z POS)
#133=#[2000+#4107](ACTIVE RADIUS)
IF [#2 EQ 91] GOTO 3 (INCREMENTAL MODE)
#130=0
#131=0
#132=0
N3 #130=#130+#4 (FINAL X POSITION)
#131=#131+#5
#132=#132+#6 (FINAL Z POS - R PLANE)
IF [#13 NE #0] GOTO 4
#13=0
N4 #7=#7-2*#9 (LENGTH - RADIUS)
#8=#8-2*#9 (WIDTH - RADIUS)
#9=#9+#13 (RADIUS+FINISH ALLOWANCE)
IF [#14 NE #0] GOTO 5
#14=#12 (FINISH FEED)
N5 IF [#15 NE #0] GOTO 10
#15=0.5*#12 (PLUNGE FEED)
N10 IF [#16 EQ #0] GOTO 20 (STEP DEPTH)
IF [#16 EQ 0] GOTO 20
#23=#10/#16
#17=FIX[#23] (ROUND OFF)
#23=#10-#17*#16
IF [#23 EQ 0] GOTO 25
#17=#17+1 (NO. OF STEPS IN DEPTH)
GOTO 25
N20 #17=1
#16=#10
#23=0
N25 G90 G00 Z#132 (MOVE TO R PLANE)
G00 X#130 Y[#131-#8/2-#9-#11] (START POSITION)
G41 G91 G01 X#11 F#12
G03 X[-#11] Y#11 R#11
(START OF MILLING CYCLE)
N1 WHILE [#17 GT 0] DO 1
IF [#17 GT 1] GOTO 18
IF [#23 EQ 0] GOTO 18
#16=#23
N18 G01 Z[-#16] F#15(PLUNGE)
G01 X[-#7/2] F#12 (MILL)
G02 X[-#9] Y#9 R#9
G01 Y#8 (WIDTH)
G02 X#9 Y#9 R#9
G01 X#7 (LENGTH)
G02 X#9 Y[-#9] R#9
G01 Y[-#8]
G02 X[-#9] Y[-#9] R#9
G01 X[-#7/2]
#17=#17-1
END 1
N19 IF [#13 EQ 0] GOTO 30 (START OF FINISH CYCLE)
#9=#9-#13 (DECREASE RADIUS BY FINISH ALLOWANCE)
#11=#11+#133 (ADJUST CLEARANCE BY TOOL RADIUS)
G03 X[-#11] Y[-#11] R#11
G01 X[2*#11+#13]
G03 X[-#11-#13] Y[#11+#13] R[#11+#13] F#14
G01 X[-#7/2] (FINISH)
G02 X[-#9] Y#9 R#9
G01 Y#8 (WIDTH)
G02 X#9 Y#9 R#9
G01 X#7 (LENGTH)
G02 X#9 Y[-#9] R#9
G01 Y[-#8]
G02 X[-#9] Y[-#9] R#9
G01 X[-#7/2](END FINISH CYCLE)
#11=#11-#133(ADJUST CLEARANCE BY TOOL RADIUS)
N30 G03 X[-#11-#13] Y[-#11-#13] R[#11+#13] F#14
G40 G01 X[#11/2]
G90 G00 X#130 Z#132(Z MOVE UP)
G#2 (PUTS BACK INTO G90/G91 MODE AS FOUND)
M99
%