0  BEGIN PGM 1060_EN MM 
1  ;Program for cross-milling of a tube with the
2  ;possibilitz of defining different spindle
3  ;speeds and feed rates
4  ;
5  BLK FORM 0.1 Z X+0 Y-20 Z-50
6  BLK FORM 0.2  X+20  Y+20  Z+0
7  ;
8  ;Tool call drilling tool
9  TOOL CALL 4 Z ;without specifying the spindle speed
10 L  Z+100 R0 FMAX
11 ;
12 ;Cycle definition to call the program
13 ;10601-en.h by Cycl Call or M99
14 CYCL DEF 12.0 PGM CALL
15 CYCL DEF 12.1 PGM 10601_en.h
16 ;
17 ;Input parameters for drilling
18 FN 0: Q1 =+2 ;SAFETY CLEARANCE
19 FN 0: Q2 =+0 ;COORDINATE SURFACE
20 FN 0: Q3 =+2.5 ;LENGTH OF ACCELERATION / DECELERATION PATH
21 FN 0: Q4 =+12 ;WALL THICKNESS OF TUBE
22 FN 0: Q5 =+50 ;DIAMETER OF TUBE
23 FN 0: Q6 =+100 ;FEED RATE FOR DRILLING
24 FN 0: Q7 =+2000 ;FEED RATE IN THE AIR
25 FN 0: Q8 =+2000 ;ROTATION SPEED FOR SPOT DRILLING
26 FN 0: Q9 =+1000 ;ROTATION SPEED FOR DRILLING
27 FN 0: Q10 =+4 ;OVERRUN
28 ;
29 ;Move to the drilling position and call the cycle
30 L  X+10  Y+0 R0 FMAX M3 M99
31 ;
32 ;End of program
33 L  Z+100 R0 FMAX M2
34 END PGM 1060_EN MM