0  BEGIN PGM 2145_EN MM 
1  ;NC-program in which an SL cycle is defined.
2  ;Its special feature is that you can use
3  ;a Q parameter to select which subprogram number
4  ;is to be used as a contour.
5  ;At the beginning of the program, you define
6  ;a parameter with the number of the subprogram to be used,
7  ;in the example it would be 11 or 12.
8  ;Cycle 14 provides the subprogram number
9  ;of the island and that of a further subprogram.
10 ;This second subprogram consists only of a CALL LBL
11 ;with the Q parameter defined at the start,
12 ;so that the selected programm is used.
13 ;
14 BLK FORM 0.1 Z X+200 Y-50 Z-10
15 BLK FORM 0.2  X+300  Y+50  Z+30
16 ;
17 ;Tool call
18 TOOL CALL 4 Z S8000
19 ;
20 L  Z+100 R0 F9999 M3 ;Retracting
21 ;
22 FN 0: Q30 =+12 ;Selection of the pocket contour
23 ;
24 ;Definition of the contour label
25 CYCL DEF 14.0 CONTOUR
26 CYCL DEF 14.1 CONTOUR LABEL10 /2
27 ;
28 ;Machining cycles
29 CYCL DEF 20 CONTOUR DATA ~
    Q1=-34   ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=+30   ;SURFACE COORDINATE ~
    Q6=+2    ;SET-UP CLEARANCE ~
    Q7=+5    ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
30 CYCL DEF 22 ROUGH-OUT ~
    Q10=-4    ;PLUNGING DEPTH ~
    Q11=+300  ;FEED RATE FOR PLNGNG ~
    Q12=+1500 ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+500  ;FEED RATE FOR RECIP. ~
    Q208=+99999 ;RETRACTION FEED RATE ~
    Q401=+70   ;FEED RATE FACTOR ~
    Q404=+0    ;FINE ROUGH STRATEGY
31 CYCL CALL M3
32 L  Z+100 R0 F99999 ;Retracting
33 M30 ;End of program
34 ;
35 ;Subprograms
36 ;
37 LBL 2 ;Island contour
38 L  X+200  Y+26 RL
39 L  X+300  Y+36
40 L  Y-36
41 L  X+200  Y-26
42 L  X+200  Y+26
43 LBL 0
44 ;
45 LBL 10 ;Subprogram for pocket selection
46 CALL LBL Q30
47 LBL 0
48 ;
49 LBL 11 ;Contour of pocket 1
50 L  X+194  Y-56 RR
51 L  Y+46
52 L  X+306
53 L  Y-46
54 L  X+194
55 LBL 0
56 ;
57 LBL 12 ;Contour of pocket 2
58 L  X+194  Y-56 RR
59 L  Y+56
60 L  X+306
61 L  Y-56
62 L  X+194
63 LBL 0
64 END PGM 2145_EN MM