%
O0001(BUFFER SET-UP)(25/11/96) 
#131=#3002 
G91G28Z0 
G00G17G21G40G49G69G80G90 
H00
M70
#133=0.
M99
 
 
                                                                                                                         
O0002(THREADING) 
(HEL. INT. MACRO)
(G65 P2 D- Z- T- R- S- F-) 
(SPECIFY D CODE FOR RAD OFFSET)
(FOR INT. TOOL RAD=+)
(FOR EXT. TOOL RAD=-)
(D=RADIUS #7)
(Z=DEPTH #26)
(T=Z PITCH #20)
(R=Z SET UP #18) 
(S=RETRACT AMOUNT & DIRECTION)(#19)
(END POINT 9 O-CLOCK)
(F=FEED RATE)(#9)
#103=#5003 
#3=0.
#21=#7-#[2000+#4307] 
G91G0X-#21 
G90G0Z#18
#104=#26-#18 
WHILE[#3GT#104]DO1 
IF[[#3-#20]LT#104]THEN#20=-[#104-#3] 
G91G2Z-#20I#21F#9
#3=#3-#20
END1 
G1X#19 
G90G0Z#103 
G91X[#21-#19]
G90
M99
 
 
                                                                                                                         
O0003(PROFILE MACRO) 
(G65 P3 A- Z- Q- R- F-)
(A=PROFILE PROG NO #1) 
(Z=Z DEPTH #26)
(Q=DEPTH OF CUT #17) 
(R=Z SET UP #18) 
(F=FEED RATE #9) 
#103=#5003(READ Z) 
#104=#18 
G90G0Z[#104+0.5] 
G1Z#104F#9(G1) 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G90G1Z#104F[#9/3](G1)
F#9
M98P#1 
END1 
G90G0Z#103 
M99
 
 
                                                                                                                         
O0004(HEL INTERPOLATION) 
(MILLING SAME AS 2)
(HEL. INT. MACRO)(INTERNAL)
(G65 P4 D- Z- T- R- S- F-) 
(SPECIFY D CODE FOR RAD OFFSET)
(D)
(S RELIEF 019) 
(F)
#101=#5001 
#102=#5002 
#103=#5003 
#105=#20 
#21=#7-#[2000+#4307] 
G91G0X-#21 
G90G0Z#18
#104=#5003 
WHILE[#104GT#26]DO1
IF[[#104-#105]LT#26]THEN#105=#104-#26
G91G3Z-#105I#21F#9 
#104=#5003 
END1 
G3I#21 
G1X#19 
G90G0Z#103 
X#101Y#102 
M99
 
 
                                                                                                                         
O0005(CIR INTERPOLATION) 
(G65 P5 S- D- T- F-) 
(CAN BE CONTROLED BY MACRO #3) 
(G65 P3 A5. Z- Q- R- F- S- D- T-)
(SPECIFY D FOR RAD OFFSET) 
(S=INSIDE BORE RAD #19)
(D=BORE RAD #7)
(T=DEPTH OF CUT #20) 
(F=FEED RATE #9) 
#101=#5001 
#102=#5002 
#3=#19 
#4=#[2000+#4307] 
G0X[[#101-#3]+#4]
WHILE[#3LT#7]DO1 
#3=#3+#20
IF[#3GT#7]THEN#3=#7
G1X[[#101-#3]+#4]F[#9/2] 
G3X[[#101-#3]+#4]Y#102I[#3-#4]F#9
END1 
G0X#101Y#102 
M99
 
 
                                                                                                                         
O0006(STEPPED CIR. INT)
(G65 P6 Z- Q- R- S- D- T- F-)
(SPECIFY D FOR RAD OFFSET) 
(Z DEPTH #26)
(Q DEPTH OF CUT #17) 
(R STARTING POSITION #18)
(S #19)
(D #7)(RADII)
(T #20)
(F FEED #9)
#101=#5001 
#102=#5002 
#103=#5003 
#105=#17 
#13=#[2000+#4307]
G90G0Z#18
#104=#5003 
WHILE[#104GT#26]DO1
IF[[#104-#105]LT#26]THEN#105=#104-#26
G91G1Z-#105F[#9/3] 
#104=#5003 
#3=#19 
WHILE[#3LT#7]DO2 
#3=#3+#20
IF[#3GT#7]THEN#3=#7
G90G1X[[#101+#3]-#13]F[#9/2] 
G91G3I-[#3-#13]F#9 
G90
END2 
G90G0X#101 
END1 
/M5
Z#18.
G90G0X#101Y#102Z#103.
/(M1)
M3 
M99
 
 
                                                                                                                         
O0009(POLAR CO-ORD MACRO)
(G65 P9 I J K W) 
(G65 P9 I J K W U H) 
(I=X CENTER POINT #4)
#114=#4
(J=Y CENTER POINT #5)
#115=#5
(K=POLAR RADIUS #6)
#116=#6
(W=POLAR ANGLE #23 +=C.C,-=C)
#117=#23 
(U=INCRAMENTAL ANGLE #21)
(H=REPITION #11) 
IF[#11LT1.]THEN#11=1.
#3=0.
WHILE[#3LT#11]DO1
#117=#117+#21
#104=COS[#117]*#116
#105=SIN[#117]*#116
X[#114+#104]Y[#115+#105] 
#3=#3+1. 
END1 
M99
 
 
                                                                                                                         
O0010(2 ND DEPTH CONTROLE) 
(M98 P10)
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G90G1Z#104F[#9/3]
F#9
M99
 
 
                                                                                                                         
O0011(STEP H/S DRILLING) 
(G65 P11 Z- K- Q- R- F-) 
(Z=DRILLING DEPTH)(#26)
(K=SMALL PECKING DEPTH)(#6)
(Q=PECKING DEPTH)(#17) 
(R=Z STARTING POINT SET UP)(#18) 
(F=FEED RATE)(#9)
G90G0Z#18
#103=#5003 
#104=-#17
#105=#18-1.
WHILE[#104GT[#26-#17]]DO1
IF[#104LT#26]THEN#104=#26
G73Z#104Q#6R[#105+1.]F#9 
#105=#104
#104=#104-#17
END1 
G0Z#103
M99
 
 
                                                                                                                         
O0012(SLOT MILLING)
(G65 P12 X- Y- Z- Q- R- F-)
(X#24 Y#25 Z#26 Q#17 R#18 F#9) 
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
#104=#18 
G90G0Z#104 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/3](F[#9/3])
G1X#24Y#25F#9
IF[#104EQ#26]GOTO99
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/3] 
G1X#101Y#102F#9
N99END1
G0Z#103
X#101Y#102 
M99
 
 
                                                                                                                         
O0013(CANNED CYCLE SET UP) 
(G66 P13 A- Z- R- Q- I- F-)
(G67 CANCEL) 
(A=#1 CYCLE CODE 73-84)
(Z=#26 Z DEPTH)
(R=#18 SET UP) 
(Q=#17 PECKING DEPTH)
(I=#4 DWELL) 
(F=#9 FEED RATE) 
G90G#1Z#26R#18Q#17P#4I#4J#5F#9 
G0/M5
/M1
M3 
N9M99
 
                                                                                                                         
O0014(Y SLOT WITH X WIDTH) 
(G65P14 U- V- Y- Z- Q- R- F-)
(U=WIDTH #21)
(V=X DEPTH OF CUT #22) 
(Y#25 Z#26 Q#17 R#18 F#9)
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
#104=#18 
G90G0Z#104 
#3=0(CONTROLER X)
WHILE[#3LT[#21/2]]DO1
WHILE[#104GT#26]DO2
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/2] 
IF[#104EQ#26]THENGOTO11
G1Y#25F#9
#104=#104-#17
IF[#104LT#26]THEN#104=#26
Z#104F[#9/2] 
N11Y#102F#9
END2 
#3=#3+#22
IF[#3GT[#21/2]]THEN#3=#21/2
G1X[#101+#3] 
Y#25 
X[#101-#3] 
Y#102
X#101
END1 
G0Z#103
M99
                                                                                                                         
O0015(X SLOT WITH Y WIDTH) 
(G65P15 U- V- X- Z- Q- R- F-)
(U=WIDTH #21)
(V=Y DEPTH OF CUT #22) 
(X#24 Z#26 Q#17 R#18 F#9)
#101=#5001(X START)
#102=#5002(Y START)
#103=#5003(Z START)
G90G0Z#18
#3=0(CONTROLER Y)
WHILE[#3LT[#21/2]]DO1
WHILE[#18GT#26]DO2 
#18=#18-#17
IF[#18LT#26]THEN#18=#26
G1Z#18F[#9/2]
G1X#24F#9
#18=#18-#17
IF[#18LT#26]THEN#18=#26
Z#18F[#9/2]
X#101F#9 
END2 
#3=#3+#22
IF[#3GT[#21/2]]THEN#3=#21/2
G1Y[#102-#3] 
X#24 
Y[#102+#3] 
X#101
Y#102
END1 
G0Z#103
M99
                                                                                                                         
O0016(POCKET MILL) 
(G65P16U-V-Z-Q-R-T-F-) 
(U=#21 X-WIDTH)
(V=#22 Y-WIDTH)
(Z=#26 FINAL DEPTH)
(Q=#17 DEPT PECKING) 
(R=#18 RETRACT AMOUNT) 
(T=#20 NO OF CUTS) 
(F=#9 FEED RATE) 
#101=#5001 
#102=#5002 
#103=#5003 
#105=#[2000+#4307] 
#106=[#21/2]-#105
#107=[#22/2]-#105
#104=#18 
G90G0Z#104 
WHILE[#104GT#26]DO1
#104=#104-#17
IF[#104LT#26]THEN#104=#26
G1Z#104F[#9/2] 
#108=0 
WHILE[#108LT#20]DO2
#108=#108+1
IF[#108GT#20]THEN#108=#20
G1X[#101+[#106*#108/#20]]Y#102F#9
Y[#102+[#107*#108/#20]]
X[#101-[#106*#108/#20]]
Y[#102-[#107*#108/#20]]
X[#101+[#106*#108/#20]]
Y[#102+2.] 
END2 
G1X#101Y#102F[#9*4]
END1 
G0Z#103
M99
                                                                                                                         
O0019
M98P1
N1G57S110M3
G90G0X-46.Y155.565Z350.
G43Z20.H1M16 
G73Z-42.Q1.R-30.F10. 
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O0020
M98P1
N1G57S300D7M3
G90G0X-5.Y-120.Z350. 
G43Z20.H6M16 
G65P3A21.Z-24.Q4.R0.F30. 
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O0021
G0X-5.Y-120. 
G1G41X9.436Y-108.F#9 
Y-100.2
G3X-11.944Y-78.82R21.38
G1X-16.
G40G0Y-120.
X-5. 
M99
                                                                                                                         
O0022
(G65P22Z S A T F)
#101=#5001 
#102=#5002 
#103=#5003 
G90G0Z2. 
G1Z#26F[#9/3]
#27=0. 
#28=0. 
WHILE[#27LT#19]DO1 
#27=#27+[#20/8.] 
IF[#27GT#19]THEN#27=#19
#28=#28+45.
IF[#28GT360.]THEN#28=#28-360.
#24=COS[#28]*#27 
#25=SIN[#28]*#27 
#29=#26+[TAN[#1]*#27]
G3X[#101+#24]Y[#102+#25]Z#29R#27F#9
END1 
G3I-#24J-#25 
G0Z#103
M99
                                                                                                                         
O0023
M98P1
N1G59S800M3
G90G0X0.Y0.Z350. 
G43Z20.H23/M16 
G65P22Z-2.9S5.7A27.T0.2F100. 
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O0035
(025.7)
M98P1
N1G59S160M3
G90G0X-17.85Y-15.Z350. 
G43Z20.H1M16 
G0Z5.99
G1Y0.F18.
G2X17.85I17.85 
G1Y-15.
G0Z350.H00M17
G91G28Y0.Z0. 
M30
                                                                                                                         
O0050
M24
 
G91G0X10.
M24
M30
                                                                                                                         
O0100
M98P1
N1G59S250D14M3 
G0G90X12.Y-12.Z350.
G43Z20.H12M16
G65P3A101.Z-30.Q10.R0.F40. 
G0Z350.H00M17
G91G28Y0.Z0. 
M30
                                                                                                                         
O0101
G0G40X12.Y-12. 
G41G1X10.3Y0.
G2X0.Y10.3R10.3
G40G1X-11. 
G0Y-12.
X12. 
M99
                                                                                                                         
O1000
M98P1
N1G57S400D3M3
G90G0X-65.Y0.Z350. 
G43Z10.H6M16 
/G66P16U59.V57.Z-8.05Q9.R0.T2.F30. 
G66P3A1002.Z-8.05Q2.R-7.F30. 
X-65.
X65. 
G67
G0Z350.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O1001
M98P1
N1G57S1000M3 
G90G0X-65.Y67.5Z350. 
G43Z30.H7M16 
G66P12Y77.5Z-2.5Q0.5R0.F10.
X-65.
X65. 
G67
G66P12Y-77.5Z-2.5Q0.5R0.F10. 
X65.Y-67.5 
X-65.
G67
G0Z400.H00M17
G91G28Y0.Z0. 
M30
                                                                                                                         
O1002
G91G1G41X34.61Y-2.F#9
Y12.06 
G3X-23.54Y23.54I-23.54 
G1X-22.14
G3X-23.54Y-23.54J-23.54
G1Y-20.12
G3X23.54Y-23.54I23.54
G1X22.14 
G3X23.54Y23.54J23.54 
G1Y12.06 
G0G40X-34.61Y-2. 
G90
M99
                                                                                                                         
O1003
M98P1
N1G57S200D11M3 
G90G0X17.5Y38.Z350.
G43Z30.H12M16
G65P6Z-24.6Q4.R-2.S10.D12.4T3.F30. 
G0Z400.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O1004
M98P1
N1G57S1500M3 
G90G0X0.Y0.Z350. 
G43Z20.H8/M16
M98P1005 
G68R180. 
M98P1005 
G69
G0Z400.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O1005
G0G90G0X-27.14 
Z-7. 
G1Z-9.56F10. 
Y22.78F50
G3X-31.57Y10.06R20.5 
G1Y-10.06
G3X-27.14Y-22.78R20.5
G1Y0.
G0Z20. 
X0.
M99
                                                                                                                         
O1010
M98P1
N1G57S200M3
G90G0X17.5Y38.Z350.
G43Z30.H12M16
G65P3A1011.Z-1.8Q2.R0.F20. 
G0Z400.H00M17
G91G28Y0Z0 
M30
                                                                                                                         
O1011
G91G1X19.37
G2X-29.05Y16.77R75.515 
X0.Y-33.54R75.51 
X29.05Y16.77R75.51 
G1X-19.37
M99
%