0  BEGIN PGM 5080-en MM 
1  ;In this program a rectangular stud and a
2  ;rectangular pocket, as well as a circular stud
3  ;and a circular pocket are milled and then
4  ;chamfers are milled with an inclined tool on
5  ;the contour. Machining the contour is
6  ;programmed in the main program. Machining the
7  ;chamfers is programmed in two more called
8  ;programs. In these you have to fill in all 
9  ;necessary parameters.
10 BLK FORM 0.1 Z  X+0  Y+0  Z-20
11 BLK FORM 0.2  X+200  Y+100  Z+2
12 ;Tool call
13 TOOL CALL 12 Z S6121 F4591
14 TOOL DEF 8
15 CYCL DEF 232 FACE MILLING ~
    Q389=+2    ;STRATEGY ~
    Q225=+0    ;STARTNG PNT 1ST AXIS ~
    Q226=+0    ;STARTNG PNT 2ND AXIS ~
    Q227=+2    ;STARTNG PNT 3RD AXIS ~
    Q386=+0    ;END POINT 3RD AXIS ~
    Q218=+200  ;FIRST SIDE LENGTH ~
    Q219=+100  ;2ND SIDE LENGTH ~
    Q202=+5    ;MAX. PLUNGING DEPTH ~
    Q369=+0    ;ALLOWANCE FOR FLOOR ~
    Q370=+1    ;MAX. OVERLAP ~
    Q207= AUTO ;FEED RATE FOR MILLNG ~
    Q385= AUTO ;FINISHING FEED RATE ~
    Q253= MAX ;F PRE-POSITIONING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q357=+2    ;CLEARANCE TO SIDE ~
    Q204=+50   ;2ND SET-UP CLEARANCE
16 CYCL CALL M3
17 ;
18 ;Tool call
19 TOOL CALL 8 Z S9549 F2578
20 ;Milling outer contour with SL-cycle
21 CYCL DEF 14.0 CONTOUR
22 CYCL DEF 14.1 CONTOUR LABEL1 /2 /3
23 CYCL DEF 20 CONTOUR DATA ~
    Q1=-15   ;MILLING DEPTH ~
    Q2=+1    ;TOOL PATH OVERLAP ~
    Q3=+0    ;ALLOWANCE FOR SIDE ~
    Q4=+0    ;ALLOWANCE FOR FLOOR ~
    Q5=+0    ;SURFACE COORDINATE ~
    Q6=+2    ;SET-UP CLEARANCE ~
    Q7=+50   ;CLEARANCE HEIGHT ~
    Q8=+0    ;ROUNDING RADIUS ~
    Q9=+1    ;ROTATIONAL DIRECTION
24 CYCL DEF 22 ROUGH-OUT ~
    Q10=-7.5  ;PLUNGING DEPTH ~
    Q11= AUTO ;FEED RATE FOR PLNGNG ~
    Q12= AUTO ;FEED RATE F. ROUGHNG ~
    Q18=+0    ;COARSE ROUGHING TOOL ~
    Q19=+2063 ;FEED RATE FOR RECIP. ~
    Q208=+99999 ;RETRACTION FEED RATE
25 CYCL CALL M3
26 ;
27 ;Milling pockets
28 CYCL DEF 251 RECTANGULAR POCKET ~
    Q215=+0    ;MACHINING OPERATION ~
    Q218=+50   ;FIRST SIDE LENGTH ~
    Q219=+40   ;2ND SIDE LENGTH ~
    Q220=+10   ;CORNER RADIUS ~
    Q368=+0    ;ALLOWANCE FOR SIDE ~
    Q224=+0    ;ANGLE OF ROTATION ~
    Q367=+0    ;POCKET POSITION ~
    Q207= AUTO ;FEED RATE FOR MILLNG ~
    Q351=+1    ;CLIMB OR UP-CUT ~
    Q201=-15   ;DEPTH ~
    Q202=+8    ;PLUNGING DEPTH ~
    Q369=+0    ;ALLOWANCE FOR FLOOR ~
    Q206=+2063 ;FEED RATE FOR PLNGNG ~
    Q338=+0    ;INFEED FOR FINISHING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q370=+1    ;TOOL PATH OVERLAP ~
    Q366=+1    ;PLUNGE ~
    Q385=+500  ;FINISHING FEED RATE
29 L  X+150  Y+50 R0 FMAX M3 M99
30 ;
31 CYCL DEF 252 CIRCULAR POCKET ~
    Q215=+0    ;MACHINING OPERATION ~
    Q223=+50   ;CIRCLE DIAMETER ~
    Q368=+0    ;ALLOWANCE FOR SIDE ~
    Q207= AUTO ;FEED RATE FOR MILLNG ~
    Q351=+1    ;CLIMB OR UP-CUT ~
    Q201=-15   ;DEPTH ~
    Q202=+8    ;PLUNGING DEPTH ~
    Q369=+0    ;ALLOWANCE FOR FLOOR ~
    Q206=+2063 ;FEED RATE FOR PLNGNG ~
    Q338=+0    ;INFEED FOR FINISHING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q203=+0    ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q370=+1    ;TOOL PATH OVERLAP ~
    Q366=+1    ;PLUNGE ~
    Q385=+500  ;FINISHING FEED RATE
32 L  X+50  Y+50 R0 FMAX M3 M99
33 ;
34 TOOL CALL 8 Z S9549 F2500
35 M3
36 ;Datum shift to circle center
37 CYCL DEF 7.0 DATUM SHIFT
38 CYCL DEF 7.1  X+50
39 CYCL DEF 7.2  Y+50
40 ;Program call chamfers circle
41 CALL PGM 50801-en.h
42 ;Datum shift to center of rectangle
43 CYCL DEF 7.0 DATUM SHIFT
44 CYCL DEF 7.1  X+150
45 CYCL DEF 7.2  Y+50
46 ;Program call chamfers rectangle
47 CALL PGM 50802-en.h
48 CYCL DEF 7.0 DATUM SHIFT
49 CYCL DEF 7.1  X+0
50 CYCL DEF 7.2  Y+0
51 CYCL DEF 7.3  Z+0
52 ;
53 M30 ;End of program
54 ;Subprograms
55 ;Outer contour
56 LBL 1
57 L  X-20  Y-20 RL
58 L  X+220
59 L  Y+120
60 L  X-20
61 L  Y-20
62 LBL 0
63 ;Contour circular stud
64 LBL 2
65 CC  X+50  Y+50
66 LP  PR+35  PA+0 RL
67 CP IPA-360 DR-
68 LBL 0
69 ;Contour rectangular stud
70 LBL 3
71 CC  X+150  Y+50
72 LP  PR+35  PA+0 RL
73 L  Y+20
74 RND R15
75 L IX-70
76 RND R15
77 L  Y+80
78 RND R15
79 L IX+70
80 RND R15
81 L  Y+50
82 LBL 0
83 END PGM 5080-en MM