0  BEGIN PGM 1010 MM 
1  FN 0: Q1 =+46
2  FN 0: Q2 =+20
3  FN 0: Q5 =+0.5
4  FN 0: Q6 =+15
5  FN 0: Q8 =+50
6  FN 0: Q9 =+40
7  FN 0: Q12 =+2
8  FN 0: Q13 =+30
9  BLK FORM 0.1 Z X+0 Y+0 Z-20
10 BLK FORM 0.2  X+100  Y+80  Z+0
11 TOOL CALL 201 Z S1000
12 CYCL DEF 1.0 TIEFBOHREN
13 CYCL DEF 1.1 ABSTQ12
14 CYCL DEF 1.2 TIEFE-2.5
15 CYCL DEF 1.3 ZUSTLG10
16 CYCL DEF 1.4 V.ZEIT0
17 CYCL DEF 1.5 F100
18 CALL LBL 20
19 TOOL CALL 225 Z S1000
20 CYCL DEF 1.0 TIEFBOHREN
21 CYCL DEF 1.1 ABSTQ12
22 CYCL DEF 1.2 TIEFE-20
23 CYCL DEF 1.3 ZUSTLG10
24 CYCL DEF 1.4 V.ZEIT0
25 CYCL DEF 1.5 F100
26 CALL LBL 20
27 L  Z+100 R0 F9998 M30
28 LBL 20
29 CYCL DEF 7.0 NULLPUNKT
30 CYCL DEF 7.1  X+Q8
31 CYCL DEF 7.2  Y+Q9
32 CYCL DEF 10.0 DREHUNG
33 CYCL DEF 10.1  ROT+Q6
34 CALL LBL 10
35 FN 4: Q48 =+Q40 DIV +Q13
36 FN 0: Q50 =+Q40
37 FN 0: Q36 =+0
38 FN 0: Q40 =+0
39 FN 0: Q46 =+0
40 FN 0: Q47 =+0
41 FN 0: Q50 =+1
42 CALL LBL 2
43 L  X+Q21  Y+Q22 R0 F9999 M3
44 L  Z+Q12
45 CYCL CALL
46 LBL 21
47 FN 1: Q46 =+Q46 + +Q48
48 LBL 22
49 FN 1: Q36 =+Q36 + +Q5
50 CALL LBL 2
51 CALL LBL 3
52 FN 12: IF +Q47 LT +Q46 GOTO LBL 22
53 L  X+Q21  Y+Q22
54 CYCL CALL
55 FN 1: Q50 =+Q50 + +1
56 FN 12: IF +Q50 LT +Q13 GOTO LBL 21
57 CYCL DEF 10.0 DREHUNG
58 CYCL DEF 10.1  ROT+0
59 CYCL DEF 7.0 NULLPUNKT
60 CYCL DEF 7.1  X+0
61 CYCL DEF 7.2  Y+0
62 LBL 0
63 LBL 10
64 FN 0: Q40 =+0
65 FN 0: Q36 =+0
66 FN 0: Q4 =+360
67 CALL LBL 2
68 LBL 1
69 FN 1: Q36 =+Q36 + +Q5
70 CALL LBL 2
71 CALL LBL 3
72 FN 12: IF +Q36 LT +Q4 GOTO LBL 1
73 FN 0: Q36 =+Q4
74 CALL LBL 2
75 LBL 0
76 LBL 2
77 FN 7: Q21 = COS +Q36
78 FN 3: Q21 =+Q21 * +Q1
79 FN 6: Q22 = SIN +Q36
80 FN 3: Q22 =+Q22 * +Q2
81 LBL 0
82 LBL 3
83 FN 1: Q37 =+Q36 + +Q5
84 FN 7: Q31 = COS +Q37
85 FN 3: Q31 =+Q31 * +Q1
86 FN 6: Q32 = SIN +Q37
87 FN 3: Q32 =+Q32 * +Q2
88 FN 2: Q34 =+Q31 - +Q21
89 FN 2: Q35 =+Q32 - +Q22
90 FN 8: Q39 =+Q35 LEN +Q34
91 FN 1: Q40 =+Q40 + +Q39
92 FN 1: Q47 =+Q40 + +0
93 LBL 0
94 END PGM 1010 MM