0 BEGIN PGM NEW_TEST MM
1 BLK FORM 0.1 Z X+0 Y+0 Z-30 
2 BLK FORM 0.2 X+500 Y+500 Z+30
3 CYCL DEF 7.0 DATUM SHIFT
4 CYCL DEF 7.1 #0
5 TOOL CALL 30 Z S1500 F8000
6 CYCL DEF 7.0 DATUM SHIFT
7 CYCL DEF 7.1 X+0
8 CYCL DEF 7.2 Y+0
9 CYCL DEF 7.3 Z+0
10 CYCL DEF 7.4 A+0
11 CYCL DEF 7.5 B+0
12 CYCL DEF 7.6 C+0
13 CYCL DEF 7.0 DATUM SHIFT
14 CYCL DEF 7.1 IX+0
15 CYCL DEF 7.2 IY+0
16 CYCL DEF 7.3 IZ+0
17 CYCL DEF 7.4 IA+0
18 CYCL DEF 7.5 IB+0
19 CYCL DEF 7.6 IC+0
20 CYCL DEF 8.0 MIRROR IMAGE
21 CYCL DEF 8.1
22 CYCL DEF 9.0 DWELL TIME
23 CYCL DEF 9.1 DWELL 1.5
24 CYCL DEF 10.0 ROTATION
25 CYCL DEF 10.1 
26 CYCL DEF 13.0 ORIENTATION
27 CYCL DEF 13.1 ANGLE 0
28 CYCL DEF 19.0 WORKING PLANE
29 CYCL DEF 19.1 A+0 B+0 C+0
30 CYCL DEF 247 DATUM SETTING
  Q339=0 ;DATUM NUMBER
31 * - test q numbers - *
32 FN0: q200 = 9
33 FN1: q200 = q200 + 10
34 FN2: q200 = q200 - 10
35 FN3: q200 = q200 * 10
36 FN4: q200 = q200 div 10
37 FN5: q200 = sqrt q200
38 FN6: q200 = sin90
39 FN7: q200 = cos90
40 FN8: q200 = 3 len 4
41 ;FN9: IF 1 EQU 1 GOTO LBL 10
42 ;FN10: IF 1 NE 2 GOTO LBL 10
43 ;FN11: IF 2 GT 1 GOTO LBL 10
44 ;FN12: IF 1 LT 2 GOTO LBL 10
45 FN9: IF 1 EQU 2 GOTO LBL 10
46 FN10: IF 1 NE 1 GOTO LBL 10
47 FN11: IF 1 GT 2 GOTO LBL 10
48 FN12: IF 2 LT 1 GOTO LBL 10
49 FN13: q200 = 1 ANG 0
50 FN13: q200 = 1 ANG 1
51 FN13: q200 = 0 ANG 1
52 FN13: q200 = -1 ANG 1
53 FN13: q200 = -1 ANG 0
54 FN13: q200 = -1 ANG -1
55 FN13: q200 = 0 ANG -1
56 FN13: q200 = 1 ANG -1
57 ;Q200 = Q200 + 10
58 ;Q200 = Q200 - 10
59 ;Q200 = Q200 * 10
60 ;Q200 = Q200 / 10
61 R0 F100 M0
62 R F M
63 ; comment ~ f
64 more comment ~
65 more comment
66 CALL LBL 50
67 ;END PGM NEW_TEST MM
68 M30
69 LBL 1 ;Zig Zag +X
70 L IX+10
71 LBL 0
72 LBL 2 ;Zig Zag -X
73 L IX-10
74 LBL 0
75 LBL 3 ;Zig Zag +Y
76 L IY+10
77 LBL 0
78 LBL 4 ;Zig Zag -Y
79 L IY-10
80 LBL 0
81 LBL 5 ;Zig Zag +Z
82 L IZ+10
83 LBL 0
84 LBL 6 ;Zig Zag -Z
85 L IZ-10
86 LBL 0
87 LBL 7 ;Zig Zag program
88 CALL LBL 3
89 CALL LBL 2
90 CALL LBL 4
91 CALL LBL 1
92 CALL LBL 5
93 CALL LBL 3
94 CALL LBL 2
95 CALL LBL 4
96 CALL LBL 6
97 CALL LBL 2
98 CALL LBL 7 REP 8
99 LBL 0
100 LBL 10 ;Test program
101 * - test comment - *
102 ;CALL LBL 10 
103 * - BOX START - *
104 L Z100 FMAX
105 L X0 Y0 FMAX
106 L Z2 FMAX
107 L Z-1 F30000 M13
108 L X500.0
109 L Y500,0 M4
110 L X0
111 L Y0
112 L Z100 FMAX
113 L X10 Y10 F10000
114 * - BOX END - *
115 CYCL DEF 1.0 PECKING
116 CYCL DEF 1.1 SET UP 5
117 CYCL DEF 1.2 DEPTH -20
118 CYCL DEF 1.3 PECKG 10
119 CYCL DEF 1.4 DWELL 0.5
120 CYCL DEF 1.5 F Auto
121 L Z30
122 CYCL CALL
123 L X10 Y20 M99
124 L X10 Y30 M99
125 L X10 Y40 M99
126 L Z100 FMAX
127 CYCL DEF 2.0 TAPPING
128 CYCL DEF 2.1 SET UP 5
129 CYCL DEF 2.2 DEPTH -20
130 CYCL DEF 2.3 DWELL 0.4
131 CYCL DEF 2.4 F100
132 L X20 Y20 Z30 M99
133 L X20 Y40 M99
134 L X20 Y60 M99
135 L Z100 FMAX
136 CYCL DEF 3.0 SLOT MILLING
137 CYCL DEF 3.1 SET UP 2
138 CYCL DEF 3.2 DEPTH -15
139 CYCL DEF 3.3 PLNGNG 5 F80
140 CYCL DEF 3.4 X50
141 CYCL DEF 3.5 Y18
142 CYCL DEF 3.6 F120
143 L X30 Y20 Z30 M99
144 L X30 Y40 M99
145 L Z100 M91
146 L Z100 M92
147 L X30 Y60 
148 L Z30 M99
149 L Z100 FMAX
150 CYCL DEF 4.0 POCKET MILLING
151 CYCL DEF 4.1 SET UP 2
152 CYCL DEF 4.2 DEPTH -10
153 CYCL DEF 4.3 PLNGNG 4 F80
154 CYCL DEF 4.4 X80
155 CYCL DEF 4.5 Y40
156 CYCL DEF 4.6 F100 DR+ RADIUS 0
157 L X120 Y30 Z30 M99
158 CYCL DEF 4.0 POCKET MILLING
159 CYCL DEF 4.1 SET UP 2
160 CYCL DEF 4.2 DEPTH -10
161 CYCL DEF 4.3 PLNGNG 4 F80
162 CYCL DEF 4.4 X36
163 CYCL DEF 4.5 Y80
164 CYCL DEF 4.6 F100 DR- RADIUS 18
165 L X140 Y100 Z30 M99
166 L Z100 FMAX
167 CYCL DEF 5.0 CIRCULAR POCKET
168 CYCL DEF 5.1 SET UP 2
169 CYCL DEF 5.2 DEPTH -12
170 CYCL DEF 5.3 PLNGNG 6 F80
171 CYCL DEF 5.4 RADIUS 35
172 CYCL DEF 5.5 F100 DR+
173 L X220 Y40 Z30 M99
174 CYCL DEF 5.0 CIRCULAR POCKET
175 CYCL DEF 5.1 SET UP 2
176 CYCL DEF 5.2 DEPTH -12
177 CYCL DEF 5.3 PLNGNG 6 F80
178 CYCL DEF 5.4 RADIUS 35
179 CYCL DEF 5.5 F100 DR-
180 L X220 Y130 M99
181 L Z100 FMAX
182 CYCL DEF 18.0 THREAD CUTTING
183 CYCL DEF 18.1 DEPTH 10
184 CYCL DEF 18.2 PITCH +1
185 L X270 Y190 Z30 M99
186 L X270 Y180 M99
187 L X270 Y170 M99
188 L X270 Y160 M99
189 L Z100 FMAX
190 CYCL DEF 18.0 THREAD CUTTING
191 CYCL DEF 18.1 DEPTH -10
192 CYCL DEF 18.2 PITCH +1
193 L X270 Y140 Z30 M99
194 L X270 Y130 M99
195 L X270 Y120 M99
196 L X270 Y110 M99
197 L Z100 FMAX
198 L X270 Y90 Z30 M99
199 L Z30 FMAX
200 L X270 Y80 M99
201 L Z30 FMAX
202 L X270 Y70 M99
203 L Z30 FMAX
204 L X270 Y60 M99
205 L Z30 FMAX
206 L Z100 FMAX
207 CYCL DEF 17.0 RIGID TAPPING GS
208 CYCL DEF 17.1 SET UP 2
209 CYCL DEF 17.2 DEPTH -20
210 CYCL DEF 17.3 PITCH +1
211 L X270 Y10 Z30 M99
212 L X270 Y20 M99
213 L X270 Y30 M99
214 L X270 Y40 M99
215 L Z100 FMAX
216 CYCL DEF 16.0 ERROR CYCLE :)
217 CYCL DEF 16.1
218 CALL PGM WhatEver
219 CYCL DEF 220 POLAR PATTERN
  Q216=+300 ;CENTER IN 1ST AXIS
  Q217=+40 ;CENTER IN 2ND AXIS
  Q244=40 ;PITCH CIRCLE DIAMETR
  Q245=+180 ;STARTING ANGLE
  Q246=+0 ;STOPPING ANGLE
  Q247=+0 ;STEPPING ANGLE
  Q241=10 ;NR OF REPETITIONS
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q301=1 ;TRAVERSE TO CLEARANCE HEIGHT
220 L Z100 FMAX
221 CYCL DEF 12.0 PGM CALL
222 CYCL DEF 12.1 PGM TNC:\TIP\TOP\SUPER.H
223 CYCL DEF 221 CARTESIAN PATTRN
  Q225=+350 ;STARTNG PNT 1ST AXIS
  Q226=+20 ;STARTNG PNT 2ND AXIS
  Q237=+10 ;SPACING IN 1ST AXIS
  Q238=+8 ;SPACING IN 2ND AXIS
  Q242=6 ;NUMBER OF COLUMNS
  Q243=4 ;NUMBER OF LINES
  Q224=+15 ;ANGLE OF ROTATION
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q301=1 ;TRAVERSE TO CLEARANCE HEIGHT
224 L Z100 FMAX
225 L X450 Y30
226 L Z30
227 L X440 Y30
228 CC X450 Y30
229 CP IPA+2970 IZ-40 DR+
230 L X450 Y30
231 L Z100 FMAX M8000
232 L Y60 FMAX
233 L Z10
234 CC X430 Y60
235 LP PR+30 PA+90 RR F800
236 CT X450 Y140
237 L X460
238 CR X440 Y140 R-20 DR-
239 L X480 Y160
240 L X480 Y200
241 CC X480 Y200
242 CTP PR+50 PA+160
243 L X480 Y200
244 L X480 Y160
245 CALL LBL 7	;Zig Zag program
246 L Y100
247 L IX+50 ;M3
248 CHF 10 F250
249 L IY+50
250 RND R5 F100
251 L IX+25
252 CC X+375 Y+125
253 C X+400 Y+125 DR-
254 CHF 10 F250
255 C X+375 Y+100 DR-
256 RND R5 F100
257 CC X+375 Y+75
258 C X+350 Y+75 DR+
259 L Z100 FMAX
260 L X0 Y100
261 L Z30
262 APPR LT X+20 Y+130 Z+0 LEN5 RL F100
263 L Y150 F200
264 DEP LT LEN5 F100
265 L Z30
266 APPR LT X+20 Y+170 Z+0 LEN5 RL F100
267 CC X+20 Y+175
268 C X+20 Y+180 DR+
269 DEP LT LEN5 F100
270 L Z30
271 L Y200
272 L Z100 FMAX
273 L X0 Y100
274 L Z30
275 APPR LN X+50 Y+130 Z+0 LEN5 RL F100
276 L Y150 F200
277 DEP LN LEN5 F100
278 L Z30
279 APPR LN X+50 Y+170 Z+0 LEN5 RR F100
280 CC X+50 Y+175
281 C X+50 Y+180 DR+
282 DEP LN LEN5 F100
283 L Z30
284 L Y200
285 L Z100 FMAX
286 L X0 Y100
287 L Z30
288 APPR CT X+80 Y+130 Z+0 CCA90 R5 RL F100
289 L Y150 F200
290 DEP CT CCA90 R5 F100
291 L Z30
292 APPR CT X+80 Y+170 Z+0 CCA90 R5 RR F100
293 CC X+80 Y+175
294 C X+80 Y+180 DR+
295 DEP CT CCA90 R5 F100
296 L Z30
297 L Y200
298 L Z100 FMAX
299 L X0 Y100
300 L Z30
301 APPR LCT X+110 Y+130 Z+0 R5 RL F100
302 L Y150 F200
303 DEP LCT X+100 Y+158 R5 F100
304 L Z30
305 APPR LCT X+110 Y+170 Z+0 R5 RL F100
306 CC X+110 Y+175
307 C X+110 Y+180 DR+
308 DEP LCT X+100 Y+200 R5 F100
309 L Z30
310 L Y200
311 L Z100 FMAX
312 CYCL DEF 200 DRILLING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-5 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q210=0 ;DWELL TIME AT TOP
  Q203=+30 ;SURFACE COORDINATE
  Q204=20 ;2ND SET-UP CLEARANCE
  Q211=0.25 ;DWELL TIME AT BOTTOM
313 L X10 Y220 M99
314 L X10 Y230 M99
315 L X10 Y240 M99
316 L X10 Y250 M99
317 CYCL DEF 201 REAMING
  Q200 = 2 ;SET-UP CLEARANCE
  Q201 = -10 ;DEPTH
  Q206 = 100 ;FEED RATE FOR PLUNGING
  Q211 = 0.5 ;DWELL TIME AT BOTTOM
  Q208 = 250 ;RETRACTION FEED RATE
  Q203 = +30 ;SURFACE COORDINATE
  Q204 = 30 ;2ND SET-UP CLEARANCE
318 L X30 Y220 M99
319 L X30 Y230 M99
320 L X30 Y240 M99
321 L X30 Y250 M99
322 CYCL DEF 202 BORING
  Q200 = 2 ;SET-UP CLEARANCE
  Q201 = -15 ;DEPTH
  Q206 = 100 ;FEED RATE FOR PLUNGING
  Q211 = 0.5 ;DWELL TIME AT BOTTOM
  Q208 = 250 ;RETRACTION FEED TIME
  Q203 = +30 ;SURFACE COORDINATE
  Q204 = 40 ;2ND SET-UP CLEARANCE
  Q214 = 1 ;DISENGAGING DIRECTN
  Q336 = 0 ;ANGLE OF SPINDLE
323 L X50 Y220 M99
324 L X50 Y230 M99
325 L X50 Y240 M99
326 L X50 Y250 M99
327 CYCL DEF 203 UNIVERSAL DRILLING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q210=0 ;DWELL TIME AT TOP
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q212=0.2 ;DECREMENT
  Q213=3 ;BREAKS
  Q205=3 ;MIN. PLUNGING DEPTH
  Q211=0.25 ;DWELL TIME AT BOTTOM
  Q208=500 ;RETRACTION FEED RATE
  Q256=0.2 ;DIST FOR CHIP BRKNG
328 L X70 Y220 M99
329 L X70 Y230 M99
330 L X70 Y240 M99
331 L X70 Y250 M99
332 CYCL DEF 204 BACK BORING
  Q200=2 ;SET-UP CLEARANCE
  Q249=+5 ;DEPTH OF COUNTERBORE
  Q250=30 ;MATERIAL THICKNESS
  Q251=3.5 ;OFF-CENTER DISTANCE
  Q252=15 ;TOOL EDGE HEIGHT
  Q253=750 ;F PRE-POSITIONING
  Q254=200 ;F COUNTERBORING
  Q255=0 ;DWELL TIME
  Q203=+30 ;SURFACE COORDINATE
  Q204=55 ;2ND SET-UP CLEARANCE
  Q214=1 ;DISENGAGING DIRECTN
  Q336=0 ;ANGLE OF SPINDLE
333 L X90 Y220 M99
334 L X90 Y230 M99
335 L X90 Y240 M99
336 L X90 Y250 M99
337 CYCL DEF 205 UNIVERSAL PECKING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-25 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q203=+30 ;SURFACE COORDINATE
  Q204=60 ;2ND SET-UP CLEARANCE
  Q212=0.5 ;DECREMENT
  Q205=3 ;MIN. PLUNGING DEPTH
  Q258=0.5 ;UPPER ADV STOP DIST
  Q259=1 ;LOWER ADV STOP DIST
  Q257=5 ;DEPTH FOR CHIP BRKNG
  Q256=0.2 ;DIST FOR CHIP BRKNG
  Q211=0.25 ;DWELL TIME AT BOTTOM
338 L X110 Y220 M99
339 L X110 Y230 M99
340 L X110 Y240 M99
341 L X110 Y250 M99
342 CYCL DEF 206 TAPPING NEW
  Q200=2 ;SET-UP CLEARANCE
  Q201=-5 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q211=0.25 ;DWELL TIME AT BOTTOM
  Q203=+30 ;SURFACE COORDINATE
  Q204=20 ;2ND SET-UP CLEARANCE
343 L X130 Y220 M99
344 L X130 Y230 M99
345 L X130 Y240 M99
346 L X130 Y250 M99
347 CYCL DEF 207 RIGID TAPPING NEW
  Q200=2 ;SET-UP CLEARANCE
  Q201=-10 ;DEPTH
  Q239=+1 ;PITCH
  Q203=+30 ;SURFACE COORDINATE
  Q204=30 ;2ND SET-UP CLEARANCE
348 L X150 Y220 M99
349 L X150 Y230 M99
350 L X150 Y240 M99
351 L X150 Y250 M99
352 CYCL DEF 208 BORE MILLING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q334=1.5 ;PLUNGING DEPTH
  Q203=+30 ;SURFACE COORDINATE
  Q204=40 ;2ND SET-UP CLEARANCE
  Q335=10 ;NOMINAL DIAMETER
  Q342=0 ;ROUGHING DIAMETER
353 L X170 Y220 M99
354 L X170 Y230 M99
355 L X170 Y240 M99
356 L X170 Y250 M99
357 CYCL DEF 209 TAPPING W/ CHIP BRKG
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q239=+1 ;PITCH
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q257=5 ;DEPTH FOR CHIP BRKNG
  Q256=+25 ;DIST. FOR CHIP BRKNG
  Q336=50 ;ANGLE OF SPINDLE
358 L X190 Y220 M99
359 L X190 Y230 M99
360 L X190 Y240 M99
361 L X190 Y250 M99
362 CYCL DEF 240 CENTERING
  Q200=2 ;SET-UP CLEARANCE
  Q343=1 ;SELECT THE DEPTH/DIA.
  Q201=+0 ;DEPTH
  Q344=-4 ;DIAMETER
  Q206=250 ;FEED RATE FOR PLUNGING
  Q211=0.1 ;DWELL TIME AT DEPTH
  Q203=+30 ;SURFACE COORDINATE
  Q204=60 ;2ND SET-UP CLEARANCE
363 L X210 Y220 M99
364 L X210 Y230 M99
365 L X210 Y240 M99
366 L X210 Y250 M99
367 CYCL DEF 210 SLOT RECIP. PLNG
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q202=7 ;PLUNGING DEPTH
  Q215=0 ;MACHINING OPERATION
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+50 ;CENTER IN 1ST AXIS
  Q217=+300 ;CENTER IN 2ND AXIS
  Q218=80 ;FIRST SIDE LENGTH
  Q219=18 ;SECOND SIDE LENGTH
  Q224=+0 ;ANGLE OF ROTATION
  Q338=5 ;INFEED FOR FINISHING
368 CYCL CALL
369 CYCL DEF 211 CIRCULAR SLOT
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q202=5 ;PLUNGING DEPTH
  Q215=0 ;MACHINING OPERATION
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+170 ;CENTER IN 1ST AXIS
  Q217=+260 ;CENTER IN 2ND AXIS
  Q244=80 ;PITCH CIRCLE DIAMETR
  Q219=18 ;SECOND SIDE LENGTH
  Q245=+45 ;STARTING ANGLE
  Q248=90 ;ANGULAR LENGTH
  Q338=5 ;INFEED FOR FINISHING
370 CYCL CALL
371 CYCL DEF 212 POCKET FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+300 ;CENTER IN 1ST AXIS
  Q217=+300 ;CENTER IN 2ND AXIS
  Q218=80 ;FIRST SIDE LENGTH
  Q219=60 ;SECOND SIDE LENGTH
  Q220=5 ;CORNER RADIUS
  Q221=5 ;ALLOWANCE
372 CYCL CALL
373 CYCL DEF 213 STUD FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+300 ;CENTER IN 1ST AXIS
  Q217=+300 ;CENTER IN 2ND AXIS
  Q218=90 ;FIRST SIDE LENGTH
  Q219=70 ;SECOND SIDE LENGTH
  Q220=5 ;CORNER RADIUS
  Q221=5 ;ALLOWANCE
374 CYCL CALL
375 CYCL DEF 214 CIRCULAR POCKET FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+430 ;CENTER IN 1ST AXIS
  Q217=+300 ;CENTER IN 2ND AXIS
  Q222=75 ;WORKPIECE BLANK DIA.
  Q223=80 ;FINISHED PART DIA.
376 CYCL CALL
377 CYCL DEF 215 C. STUD FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q201=-20 ;DEPTH
  Q206=150 ;FEED RATE FOR PLUNGING
  Q202=5 ;PLUNGING DEPTH
  Q207=500 ;FEED RATE FOR MILLING
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q216=+430 ;CENTER IN 1ST AXIS
  Q217=+300 ;CENTER IN 2ND AXIS
  Q222=95 ;WORKPIECE BLANK DIA.
  Q223=90 ;FINISHED PART DIA.
378 CYCL CALL
379 CYCL DEF 230 MULTIPASS MILLING
  Q225=+20 ;STARTING PNT 1ST AXIS
  Q226=+375 ;STARTING PNT 2ND AXIS
  Q227=+20 ;STARTING PNT 3RD AXIS
  Q218=30 ;FIRST SIDE LENGTH
  Q219=30 ;SECOND SIDE LENGTH
  Q240=11 ;NUMBER OF CUTS
  Q206=150 ;FEED RATE FOR PLUNGING
  Q207=500 ;FEED RATE FOR MILLING
  Q209=200 ;STEPOVER FEED RATE
  Q200=2 ;SET-UP CLEARANCE
380 CYCL CALL
381 L Z100
382 CYCL DEF 231 RULED SURFACE
  Q225=+70 ;STARTING PNT 1ST AXIS
  Q226=+375 ;STARTING PNT 2ND AXIS
  Q227=20 ;STARTING PNT 3RD AXIS
  Q228=+100 ;2ND POINT 1ST AXIS
  Q229=+375 ;2ND POINT 2ND AXIS
  Q230=-20 ;2ND POINT 3RD AXIS
  Q231=+100 ;3RD POINT 1ST AXIS
  Q232=+405 ;3RD POINT 2ND AXIS
  Q233=+20 ;3RD POINT 3RD AXIS
  Q234=+70 ;4TH POINT 1ST AXIS
  Q235=+405 ;4TH POINT 2ND AXIS
  Q236=-20 ;4TH POINT 3RD AXIS
  Q240=11 ;NUMBER OF CUTS
  Q207=500 ;FEED RATE FOR MILLING
383 CYCL CALL
384 L Z100
385 CYCL DEF 232 FACE MILLING
  Q389=0 ;STRATEGY
  Q225=+120 ;STARTING PNT 1ST AXIS
  Q226=+375 ;STARTING PNT 2ND AXIS
  Q227=+10 ;STARTING PNT 3RD AXIS
  Q386=0 ;END POINT IN 3RD AXIS
  Q218=30 ;FIRST SIDE LENGTH
  Q219=30 ;SECOND SIDE LENGTH
  Q202=3 ;MAX. PLUNGING DEPTH
  Q369=2 ;ALLOWANCE FOR FLOOR
  Q370=1 ;MAX. OVERLAP
  Q207=500 ;FEED RATE FOR MILLING
  Q385=800 ;FEED RATE FOR FINISHING
  Q253=2000 ;F PRE-POSITIONING
  Q200=2 ;SET-UP CLEARANCE
  Q357=2 ;CLEARANCE TO SIDE
  Q204=2 ;2ND SET-UP CLEARANCE
386 CYCL CALL
387 L Z100
388 CYCL DEF 232 FACE MILLING
  Q389=1 ;STRATEGY
  Q225=+170 ;STARTING PNT 1ST AXIS
  Q226=+375 ;STARTING PNT 2ND AXIS
  Q227=+10 ;STARTING PNT 3RD AXIS
  Q386=0 ;END POINT IN 3RD AXIS
  Q218=30 ;FIRST SIDE LENGTH
  Q219=30 ;SECOND SIDE LENGTH
  Q202=3 ;MAX. PLUNGING DEPTH
  Q369=2 ;ALLOWANCE FOR FLOOR
  Q370=1 ;MAX. OVERLAP
  Q207=500 ;FEED RATE FOR MILLING
  Q385=800 ;FEED RATE FOR FINISHING
  Q253=2000 ;F PRE-POSITIONING
  Q200=2 ;SET-UP CLEARANCE
  Q357=2 ;CLEARANCE TO SIDE
  Q204=2 ;2ND SET-UP CLEARANCE
389 CYCL CALL
390 L Z100
391 CYCL DEF 232 FACE MILLING
  Q389=2 ;STRATEGY
  Q225=+220 ;STARTING PNT 1ST AXIS
  Q226=+375 ;STARTING PNT 2ND AXIS
  Q227=+10 ;STARTING PNT 3RD AXIS
  Q386=0 ;END POINT IN 3RD AXIS
  Q218=30 ;FIRST SIDE LENGTH
  Q219=30 ;SECOND SIDE LENGTH
  Q202=3 ;MAX. PLUNGING DEPTH
  Q369=2 ;ALLOWANCE FOR FLOOR
  Q370=1 ;MAX. OVERLAP
  Q207=500 ;FEED RATE FOR MILLING
  Q385=800 ;FEED RATE FOR FINISHING
  Q253=2000 ;F PRE-POSITIONING
  Q200=2 ;SET-UP CLEARANCE
  Q357=2 ;CLEARANCE TO SIDE
  Q204=2 ;2ND SET-UP CLEARANCE
392 CYCL CALL
393 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=0 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
394 L Z100
395 L X270 Y375 FMAX
396 CYCL CALL
397 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=1 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
398 L Z100
399 L X270 Y390 FMAX
400 CYCL CALL
401 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=4 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
402 L Z100
403 L X270 Y405 FMAX
404 CYCL CALL
405 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-4 ;THREAD DEPTH
  Q355=4 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
406 L Z100
407 L X270 Y420 FMAX
408 CYCL CALL
409 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=0 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=-1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
410 L Z100
411 L X290 Y375 FMAX
412 CYCL CALL
413 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=1 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=-1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
414 L Z100
415 L X290 Y390 FMAX
416 CYCL CALL
417 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=4 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=-1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
418 L Z100
419 L X290 Y405 FMAX
420 CYCL CALL
421 CYCL DEF 262 THREAD MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-4 ;THREAD DEPTH
  Q355=4 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=-1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q207=500 ;FEED RATE FOR MILLING
422 L Z100
423 L X290 Y420 FMAX
424 CYCL CALL
425 CYCL DEF 263 THREAD MLLNG/CNTSNKG
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q356=-20 ;COUNTERSINKING DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q357=0.2 ;CLEARANCE TO SIDE
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
426 L Z100
427 L X310 Y375 FMAX M99
428 L X310 Y390 FMAX M99
429 CYCL DEF 263 THREAD MLLNG/CNTSNKG
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q356=-20 ;COUNTERSINKING DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q357=1.5 ;CLEARANCE TO SIDE
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
430 L X310 Y405 FMAX M99
431 L X310 Y420 FMAX M99
432 CYCL DEF 264 THREAD DRILLING/MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q356=-20 ;TOTAL HOLE DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q202=5 ;INFEED DEPTH
  Q258=0.2 ;ADVANCED STOP DISTANCE
  Q257=5 ;DEPTH FOR CHIP BRKNG
  Q256=0.2 ;DIST. FOR CHIP BRKNG
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q206=150 ;FEED RATE FOR PLUNGING
  Q207=500 ;FEED RATE FOR MILLING
433 L Z100
434 L X330 Y375 FMAX M99
435 L X330 Y390 FMAX M99
436 CYCL DEF 264 THREAD DRILLING/MILLING
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q356=-20 ;TOTAL HOLE DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q202=5 ;INFEED DEPTH
  Q258=0.2 ;ADVANCED STOP DISTANCE
  Q257=5 ;DEPTH FOR CHIP BRKNG
  Q256=0.2 ;DIST. FOR CHIP BRKNG
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q206=150 ;FEED RATE FOR PLUNGING
  Q207=500 ;FEED RATE FOR MILLING
437 L X330 Y405 FMAX M99
438 L X330 Y420 FMAX M99
439 CYCL DEF 265 HEL. THREAD DRLG/MLG
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q360=0 ;COUNTERSINKING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
440 L Z100
441 L X350 Y375 FMAX M99
442 L X350 Y390 FMAX M99
443 CYCL DEF 265 HEL. THREAD DRLG/MLG
  Q335=10 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-16 ;THREAD DEPTH
  Q253=750 ;F PRE-POSITIONING
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q360=1 ;COUNTERSINKING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
444 L X350 Y405 FMAX M99
445 L X350 Y420 FMAX M99
446 CYCL DEF 267 OUTSIDE THREAD MLLNG
  Q335=6 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=0 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q358=+2 ;DEPTH AT FRONT
  Q359=+3 ;OFFSET AT FRONT
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
447 L Z100
448 L X370 Y375 FMAX M99
449 L X370 Y390 FMAX M99
450 CYCL DEF 267 OUTSIDE THREAD MLLNG
  Q335=6 ;NOMINAL DIAMETER
  Q239=+1.5 ;PITCH
  Q201=-20 ;THREAD DEPTH
  Q355=0 ;THREADS PER STEP
  Q253=750 ;F PRE-POSITIONING
  Q351=+1 ;CLIMB OR UP-CUT
  Q200=2 ;SET-UP CLEARANCE
  Q358=+2 ;DEPTH AT FRONT
  Q359=+5 ;OFFSET AT FRONT
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q254=150 ;F COUNTERBORING
  Q207=500 ;FEED RATE FOR MILLING
451 L X370 Y405 FMAX M99
452 L X370 Y420 FMAX M99
453 CYCL DEF 251 RECTANGULAR POCKET
  Q215=0 ;MACHINING OPERATION
  Q218=40 ;1ST SIDE LENGTH
  Q219=60 ;2ND SIDE LENGTH
  Q220=5 ;CORNER RADIUS
  Q368=5 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;POCKET POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=-1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=5 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=2 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q370=1 ;TOOL PATH OVERLAP
  Q366=0 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
454 L Z100
455 L X30 Y455 FMAX
456 CYCL CALL
457 CYCL DEF 251 RECTANGULAR POCKET
  Q215=0 ;MACHINING OPERATION
  Q218=40 ;1ST SIDE LENGTH
  Q219=60 ;2ND SIDE LENGTH
  Q220=5 ;CORNER RADIUS
  Q368=5 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;POCKET POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=-1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=5 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=2 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q370=1 ;TOOL PATH OVERLAP
  Q366=1 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
458 L Z100
459 L X80 Y455 FMAX
460 CYCL CALL
461 CYCL DEF 251 RECTANGULAR POCKET
  Q215=2 ;MACHINING OPERATION
  Q218=40 ;1ST SIDE LENGTH
  Q219=60 ;2ND SIDE LENGTH
  Q220=5 ;CORNER RADIUS
  Q368=5 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;POCKET POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=-1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=5 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=2 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q370=1 ;TOOL PATH OVERLAP
  Q366=2 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
462 L Z100
463 L X130 Y455 FMAX
464 CYCL CALL
465 CYCL DEF 252 CIRCULAR POCKET
  Q215=0 ;MACHINING OPERATION
  Q223=40 ;CIRCLE DIAMETER
  Q368=4 ;ALLOWANCE FOR SIDE
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=4 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=1 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q370=0.3 ;TOOL PATH OVERLAP
  Q366=0 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
466 L Z100
467 L X180 Y435 FMAX
468 CYCL CALL
469 CYCL DEF 252 CIRCULAR POCKET
  Q215=2 ;MACHINING OPERATION
  Q223=40 ;CIRCLE DIAMETER
  Q368=4 ;ALLOWANCE FOR SIDE
  Q207=500 ;FEED RATE FOR MILLING
  Q351=-1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=4 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=1 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q370=0.3 ;TOOL PATH OVERLAP
  Q366=1 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
470 L Z100
471 L X180 Y475 FMAX
472 CYCL CALL
473 CYCL DEF 253 SLOT MILLING
  Q215=0 ;MACHINING OPERATION
  Q218=80 ;SLOT LENGTH
  Q219=12 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;SLOT POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=0 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
474 L Z100
475 L X240 Y490 FMAX
476 CYCL CALL
477 CYCL DEF 253 SLOT MILLING
  Q215=0 ;MACHINING OPERATION
  Q218=80 ;SLOT LENGTH
  Q219=12 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;SLOT POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=-1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=2 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
478 L Z100
479 L X240 Y470 FMAX
480 CYCL CALL
481 CYCL DEF 253 SLOT MILLING
  Q215=0 ;MACHINING OPERATION
  Q218=80 ;SLOT LENGTH
  Q219=30 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q224=+0 ;ANGLE OF ROTATION
  Q367=0 ;SLOT POSITION
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=1 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
482 L Z100
483 L X240 Y445 FMAX
484 CYCL CALL
485 CYCL DEF 254 CIRCULAR SLOT
  Q215=0 ;MACHINING OPERATION
  Q219=12 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q375=80 ;PITCH CIRCLE DIA.
  Q367=1 ;REF. SLOT POSITION
  Q216=+50 ;CENTER IN 1ST AXIS
  Q217=+50 ;CENTER IN 2ND AXIS
  Q376=+45 ;STARTING ANGLE
  Q248=90 ;ANGULAR LENGTH
  Q378=0 ;STEPPING ANGLE
  Q377=1 ;NR OF REPETITIONS
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=0 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
486 L Z100
487 L X300 Y490 FMAX
488 CYCL CALL
489 CYCL DEF 254 CIRCULAR SLOT
  Q215=0 ;MACHINING OPERATION
  Q219=12 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q375=80 ;PITCH CIRCLE DIA.
  Q367=1 ;REF. SLOT POSITION
  Q216=+50 ;CENTER IN 1ST AXIS
  Q217=+50 ;CENTER IN 2ND AXIS
  Q376=+45 ;STARTING ANGLE
  Q248=90 ;ANGULAR LENGTH
  Q378=0 ;STEPPING ANGLE
  Q377=1 ;NR OF REPETITIONS
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=2 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
490 L Z100
491 L X300 Y470 FMAX
492 CYCL CALL
493 CYCL DEF 254 CIRCULAR SLOT
  Q215=0 ;MACHINING OPERATION
  Q219=30 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q375=80 ;PITCH CIRCLE DIA.
  Q367=1 ;REF. SLOT POSITION
  Q216=+50 ;CENTER IN 1ST AXIS
  Q217=+50 ;CENTER IN 2ND AXIS
  Q376=+45 ;STARTING ANGLE
  Q248=90 ;ANGULAR LENGTH
  Q378=0 ;STEPPING ANGLE
  Q377=1 ;NR OF REPETITIONS
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=1 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
494 L Z100
495 L X300 Y445 FMAX
496 CYCL CALL
497 CYCL DEF 254 CIRCULAR SLOT
  Q215=0 ;MACHINING OPERATION
  Q219=12 ;SLOT WIDTH
  Q368=0.2 ;ALLOWANCE FOR SIDE
  Q375=40 ;PITCH CIRCLE DIA.
  Q367=0 ;REF. SLOT POSITION
  Q216=+440 ;CENTER IN 1ST AXIS
  Q217=+420 ;CENTER IN 2ND AXIS
  Q376=+70 ;STARTING ANGLE
  Q248=40 ;ANGULAR LENGTH
  Q378=90 ;STEPPING ANGLE
  Q377=4 ;NR OF REPETITIONS
  Q207=500 ;FEED RATE FOR MILLING
  Q351=+1 ;CLIMB OR UP-CUT
  Q201=-20 ;DEPTH
  Q202=5 ;INFEED DEPTH
  Q369=0.1 ;ALLOWANCE FOR FLOOR
  Q206=150 ;FEED RATE FOR PLNGNG
  Q338=5 ;INFEED FOR FINISHING
  Q200=2 ;SET-UP CLEARANCE
  Q203=+30 ;SURFACE COORDINATE
  Q204=50 ;2ND SET-UP CLEARANCE
  Q366=1 ;PLUNGING
  Q385=500 ;FEED RATE FOR FINISHING
498 L Z100
499 L X440 Y420 FMAX
500 CYCL CALL
501 LBL 0
502 LBL 20
503 CALL LBL 10
504 CYCL DEF 7.0 DATUM SHIFT
505 CYCL DEF 7.1 IX+500
506 CYCL DEF 7.2 IY+0
507 CYCL DEF 7.3 IZ+0
508 CYCL DEF 7.4 IA+0
509 CYCL DEF 7.5 IB+0
510 CYCL DEF 7.6 IC+0
511 CALL LBL 10
512 CYCL DEF 7.0 DATUM SHIFT
513 CYCL DEF 7.1 IX-500
514 CYCL DEF 7.2 IY+500
515 CYCL DEF 7.3 IZ+0
516 CYCL DEF 7.4 IA+0
517 CYCL DEF 7.5 IB+0
518 CYCL DEF 7.6 IC+0
519 CALL LBL 10
520 CYCL DEF 7.0 DATUM SHIFT
521 CYCL DEF 7.1 IX+500
522 CYCL DEF 7.2 IY+0
523 CYCL DEF 7.3 IZ+0
524 CYCL DEF 7.4 IA+0
525 CYCL DEF 7.5 IB+0
526 CYCL DEF 7.6 IC+0
527 CALL LBL 10
528 CYCL DEF 7.0 DATUM SHIFT
529 CYCL DEF 7.1 IX-500
530 CYCL DEF 7.2 IY-500
531 CYCL DEF 7.3 IZ+0
532 CYCL DEF 7.4 IA+0
533 CYCL DEF 7.5 IB+0
534 CYCL DEF 7.6 IC+0
535 LBL 0
536 LBL 30
537 CALL LBL 20		; IX IY IZ
538 CYCL DEF 7.0 DATUM SHIFT
539 CYCL DEF 7.1 IX+0
540 CYCL DEF 7.2 IY+1000
541 CYCL DEF 7.3 IZ+0
542 CYCL DEF 7.4 IA+0
543 CYCL DEF 7.5 IB+0
544 CYCL DEF 7.6 IC+0
545 CYCL DEF 10.0 ROTATION
546 CYCL DEF 10.1 ROT+180
547 CALL LBL 20		; IX IY IZ
548 CYCL DEF 8.0 MIRROR IMAGE
549 CYCL DEF 8.1 X Y
550 CALL LBL 20		; IX IY IZ
551 CYCL DEF 8.0 MIRROR IMAGE
552 CYCL DEF 8.1 Y
553 CALL LBL 20		; IX IY IZ
554 CYCL DEF 7.0 DATUM SHIFT
555 CYCL DEF 7.1 IX+0
556 CYCL DEF 7.2 IY+0
557 CYCL DEF 7.3 IZ+0
558 CYCL DEF 7.4 IA+0
559 CYCL DEF 7.5 IB+0
560 CYCL DEF 7.6 IC+0
561 CYCL DEF 8.0 MIRROR IMAGE
562 CYCL DEF 8.1
563 CYCL DEF 10.0 ROTATION
564 CYCL DEF 10.1 ROT+0
565 CYCL DEF 7.0 DATUM SHIFT
566 CYCL DEF 7.1 IX+1000
567 CYCL DEF 7.2 IY+0
568 CYCL DEF 7.3 IZ+0
569 CYCL DEF 7.4 IA+0
570 CYCL DEF 7.5 IB+0
571 CYCL DEF 7.6 IC+0
572 CYCL DEF 11.0 SCALING
573 CYCL DEF 11.1 SCL 2
574 CALL LBL 20		; IX IY IZ
575 CYCL DEF 11.0 SCALING
576 CYCL DEF 11.1 SCL 1
577 CYCL DEF 7.0 DATUM SHIFT
578 CYCL DEF 7.1 IX+0
579 CYCL DEF 7.2 IY+0
580 CYCL DEF 7.3 IZ+0
581 CYCL DEF 7.4 IA+0
582 CYCL DEF 7.5 IB+0
583 CYCL DEF 7.6 IC+0
584 CYCL DEF 7.0 DATUM SHIFT
585 CYCL DEF 7.1 IX-3000
586 CYCL DEF 7.2 IY+0
587 CYCL DEF 7.3 IZ+0
588 CYCL DEF 7.4 IA+0
589 CYCL DEF 7.5 IB+0
590 CYCL DEF 7.6 IC+0
591 CYCL DEF 26.0 AXIS-SPECIFIC SCALING
592 CYCL DEF 26.1 X 2 Y 1 CCX+250 CCY+0
593 CALL LBL 20		; IX IY IZ
594 CYCL DEF 26.0 AXIS-SPECIFIC SCALING
595 CYCL DEF 26.1
596 CYCL DEF 7.0 DATUM SHIFT
597 CYCL DEF 7.1 IX+0
598 CYCL DEF 7.2 IY+0
599 CYCL DEF 7.3 IZ+0
600 CYCL DEF 7.4 IA+0
601 CYCL DEF 7.5 IB+0
602 CYCL DEF 7.6 IC+0
603 LBL 0
604 LBL 40
605 CALL LBL 42
606 CYCL DEF 19.0 B.FLADE
607 CYCL DEF 19.1 A-70, C-90,
608 CALL LBL 44
609 CALL LBL 42
610 CYCL DEF 19.0 B.FLADE
611 CYCL DEF 19.1 A-70, C+0,
612 CALL LBL 44
613 CALL LBL 42
614 CYCL DEF 19.0 B.FLADE
615 CYCL DEF 19.1 A-70, C+90,
616 CALL LBL 44
617 CALL LBL 42
618 CYCL DEF 19.0 B.FLADE
619 CYCL DEF 19.1 A-70, C+180,
620 CALL LBL 44
621 CALL LBL 42
622 CYCL DEF 19.0 B.FLADE
623 CYCL DEF 19.1 A-45, C-90,
624 CALL LBL 44
625 CALL LBL 42
626 CYCL DEF 19.0 B.FLADE
627 CYCL DEF 19.1 A-45, C+0,
628 CALL LBL 44
629 CALL LBL 42
630 CYCL DEF 19.0 B.FLADE
631 CYCL DEF 19.1 A-45, C+90,
632 CALL LBL 44
633 CALL LBL 42
634 CYCL DEF 19.0 B.FLADE
635 CYCL DEF 19.1 A-45, C+180,
636 CALL LBL 44
637 CALL LBL 42
638 CYCL DEF 19.0 B.FLADE
639 CYCL DEF 19.1 A-20, C-90,
640 CALL LBL 44
641 CALL LBL 42
642 CYCL DEF 19.0 B.FLADE
643 CYCL DEF 19.1 A-20, C+0,
644 CALL LBL 44
645 CALL LBL 42
646 CYCL DEF 19.0 B.FLADE
647 CYCL DEF 19.1 A-20, C+90,
648 CALL LBL 44
649 CALL LBL 42
650 CYCL DEF 19.0 B.FLADE
651 CYCL DEF 19.1 A-20, C+180,
652 CALL LBL 44
653 LBL 0
654 LBL 42
655 CYCL DEF 7.0 DATUM SHIFT
656 CYCL DEF 7.1 IX+0
657 CYCL DEF 7.2 IY+0
658 CYCL DEF 7.3 IZ+0
659 CYCL DEF 7.4 IA+0
660 CYCL DEF 7.5 IB+0
661 CYCL DEF 7.6 IC+0
662 LBL 0
663 LBL 44
664 CYCL DEF 7.0 DATUM SHIFT
665 CYCL DEF 7.1 IX+0
666 CYCL DEF 7.2 IY+0
667 CYCL DEF 7.3 IZ+2000
668 CYCL DEF 7.4 IA+0
669 CYCL DEF 7.5 IB+0
670 CYCL DEF 7.6 IC+0
671 CALL LBL 10
672 CYCL DEF 19.0 B.FLADE
673 CYCL DEF 19.1
674 CYCL DEF 7.0 DATUM SHIFT
675 CYCL DEF 7.1 IX+0
676 CYCL DEF 7.2 IY+0
677 CYCL DEF 7.3 IZ+0
678 CYCL DEF 7.4 IA+0
679 CYCL DEF 7.5 IB+0
680 CYCL DEF 7.6 IC+0
681 LBL 0
682 LBL 50
683 CALL LBL 30
684 CYCL DEF 7.0 DATUM SHIFT
685 CYCL DEF 7.1 X+0
686 CYCL DEF 7.2 Y+4000
687 CYCL DEF 7.3 Z+0
688 CYCL DEF 7.4 A+0
689 CYCL DEF 7.5 B+0
690 CYCL DEF 7.6 C+0
691 CALL LBL 40
692 LBL 0
693 END PGM NEW_TEST MM
