0  BEGIN PGM 70901-EN MM 
1  ;Calculations
2  CALL LBL 10
3  CALL LBL 11
4  ;Milling the pocket
5  CYCL DEF 14.0 CONTOUR
6  CYCL DEF 14.1 CONTOUR LABEL1
7  ERROR = 7  CYCL DEF 6.0 ROUGH-OUT
8  ERROR = 8  CYCL DEF 6.1 SET UPQ25 DEPTH-Q29
9  ERROR = 9  CYCL DEF 6.2 PLNGNGQ26 FQ20 ALLOW+Q24
10 ERROR = 10 CYCL DEF 6.3 ANGLE+0 FQ21
11 L  Z+Q25 R0 F9999 M99
12 ;Pocket completed
13 ;
14 ;Milling funnel
15 CYCL DEF 14.0 CONTOUR
16 CYCL DEF 14.1 CONTOUR LABEL2
17 ERROR = 17 CYCL DEF 16.0 CONTOUR MILLING
18 ERROR = 18 CYCL DEF 16.1 SET UPQ25 DEPTH-Q58
19 ERROR = 19 CYCL DEF 16.2 PLNGNGQ58 FQ20 DR+ FQ21
20 LBL 12
21 CALL LBL 13
22 CYCL CALL
23 FN 12: IF +Q40 LT +Q27 GOTO LBL 12
24 ;Jump to the end of the program
25 FN 9: IF +0 EQU +0 GOTO LBL 99
26 ;Contour at ground
27 LBL 1
28 L  X+Q54  Y+Q55 RR
29 L  X+Q13  Y+Q14
30 RND RQ19
31 L  X+Q15  Y+Q16
32 RND RQ19
33 L  X+Q17  Y+Q18
34 RND RQ19
35 L  X+Q11  Y+Q12
36 RND RQ19
37 L  X+Q54  Y+Q55
38 LBL 0
39 ;Contour funnel
40 LBL 2
41 L  X+Q52  Y+Q53 RR
42 L  X+Q63  Y+Q64
43 RND RQ69
44 L  X+Q65  Y+Q66
45 RND RQ69
46 L  X+Q67  Y+Q68
47 RND RQ69
48 L  X+Q61  Y+Q62
49 RND RQ69
50 L  X+Q52  Y+Q53
51 LBL 0
52 ;Calculations
53 LBL 10
54 FN 0: Q40 =+0
55 FN 0: Q61 =+Q1
56 FN 0: Q62 =+Q2
57 FN 0: Q63 =+Q3
58 FN 0: Q64 =+Q4
59 FN 0: Q65 =+Q5
60 FN 0: Q66 =+Q6
61 FN 0: Q67 =+Q7
62 FN 0: Q68 =+Q8
63 FN 0: Q69 =+Q9
64 LBL 0
65 LBL 11
66 Q41 = ( Q11 - Q1 ) / Q27
67 Q42 = ( Q12 - Q2 ) / Q27
68 Q43 = ( Q13 - Q3 ) / Q27
69 Q44 = ( Q14 - Q4 ) / Q27
70 Q45 = ( Q15 - Q5 ) / Q27
71 Q46 = ( Q16 - Q6 ) / Q27
72 Q47 = ( Q17 - Q7 ) / Q27
73 Q48 = ( Q18 - Q8 ) / Q27
74 Q49 = ( Q19 - Q9 ) / Q27
75 Q52 = Q1 - ( ( Q1 - Q3 ) / 2 )
76 Q53 = Q2 + ( ( Q4 - Q2 ) / 2 )
77 Q54 = Q11 - ( ( Q11 - Q13 ) / 2 )
78 Q55 = Q12 + ( ( Q14 - Q12 ) / 2 )
79 Q56 = ( Q54 - Q52 ) / Q27
80 Q57 = ( Q55 - Q53 ) / Q27
81 Q51 = Q28 / Q27
82 Q58 = 0
83 LBL 0
84 LBL 13
85 Q40 = Q40 + 1
86 FN 1: Q52 =+Q52 + +Q56
87 FN 1: Q53 =+Q53 + +Q57
88 FN 1: Q58 =+Q58 + +Q51
89 FN 1: Q61 =+Q61 + +Q41
90 FN 1: Q62 =+Q62 + +Q42
91 FN 1: Q63 =+Q63 + +Q43
92 FN 1: Q64 =+Q64 + +Q44
93 FN 1: Q65 =+Q65 + +Q45
94 FN 1: Q66 =+Q66 + +Q46
95 FN 1: Q67 =+Q67 + +Q47
96 FN 1: Q68 =+Q68 + +Q48
97 FN 1: Q69 =+Q69 + +Q49
98 LBL 0
99 LBL 99
100 END PGM 70901-EN MM