0  BEGIN PGM 51001_EN MM 
1  ;Program for drilling a hole 
2  ;at an angle to the workpiece
3  ;
4  ;Tool call
5  TOOL CALL 7 Z S4000 F300
6  ;
7  L  Z+100 R0 FMAX M3 ;Move to clearance height
8  L  X+Q7  Y+Q8 R0 FMAX ;Pre-position
9  ;Shift the datum to the stud center.
10 ;Shift Z to the position 
11 ;that the working plane is tilted around.
12 CYCL DEF 7.0 DATUM SHIFT
13 CYCL DEF 7.1  Z+Q9
14 CYCL DEF 7.2  X+Q7
15 CYCL DEF 7.3  Y+Q8
16 ;Tilt the working plane
17 CYCL DEF 19.0 WORKING PLANE
18 CYCL DEF 19.1  A+Q11  B+0  C+0
19 ;Move the rotary axis to the desired position
20 L  A+Q120  B+Q121  C+Q122 R0 FMAX
21 CYCL DEF 252 CIRCULAR POCKET ~
    Q215=+0    ;MACHINING OPERATION ~
    Q223=+42   ;CIRCLE DIAMETER ~
    Q368=+0    ;ALLOWANCE FOR SIDE ~
    Q207=+600  ;FEED RATE FOR MILLNG ~
    Q351=+1    ;CLIMB OR UP-CUT ~
    Q201=-80   ;DEPTH ~
    Q202=+5    ;PLUNGING DEPTH ~
    Q369=+0    ;ALLOWANCE FOR FLOOR ~
    Q206=+300  ;FEED RATE FOR PLNGNG ~
    Q338=+0    ;INFEED FOR FINISHING ~
    Q200=+2    ;SET-UP CLEARANCE ~
    Q203=+25   ;SURFACE COORDINATE ~
    Q204=+50   ;2ND SET-UP CLEARANCE ~
    Q370=+1    ;TOOL PATH OVERLAP ~
    Q366=+1    ;PLUNGE ~
    Q385=+500  ;FINISHING FEED RATE
22 L  X+0  Y+0 R0 FMAX
23 M99
24 M140 MB MAX F9999 ;Retract
25 ;Cancel tilting the working plane
26 CYCL DEF 19.0 WORKING PLANE
27 CYCL DEF 19.1  A+0  B+0  C+0
28 CYCL DEF 19.0 WORKING PLANE
29 CYCL DEF 19.1
30 ;Reset rotary axes to zero
31 L  A+Q120  B+Q121  C+Q122 R0 FMAX
32 ;Cancel datum shift
33 CYCL DEF 7.0 DATUM SHIFT
34 CYCL DEF 7.1  X+0
35 CYCL DEF 7.2  Y+0
36 CYCL DEF 7.3  Z+0
37 END PGM 51001_EN MM