0  BEGIN PGM 2070 MM 
1  FN 0: Q1 =+0
2  FN 0: Q2 =+0
3  FN 0: Q3 =-10
4  FN 0: Q5 =+50
5  FN 0: Q6 =+45
6  FN 0: Q16 =+25
7  FN 0: Q7 =+0
8  FN 0: Q17 =+360
9  FN 0: Q8 =+0
10 FN 0: Q10 =+2
11 FN 0: Q11 =+300
12 FN 0: Q12 =+555
13 FN 0: Q14 =+0
14 FN 0: Q15 =+2
15 BLK FORM 0.1 Z X-60 Y-50 Z-40
16 BLK FORM 0.2  X+60  Y+50  Z+0
17 TOOL CALL 10 Z S3000
18 CALL LBL 1
19 L  Z+100 R0 F9999 M2
20 LBL 1
21 CYCL DEF 7.0 NULLPUNKT
22 CYCL DEF 7.1  X+Q1
23 CYCL DEF 7.2  Y+Q2
24 CYCL DEF 10.0 DREHUNG
25 CYCL DEF 10.1  ROT+Q8
26 FN 0: Q23 =+Q3
27 FN 0: Q27 =+Q7
28 FN 1: Q31 =+Q6 + +Q14
29 FN 1: Q32 =+Q16 + +Q14
30 FN 0: Q35 =+0
31 FN 2: Q37 =+Q17 - +Q7
32 FN 4: Q37 =+Q37 DIV +Q5
33 CALL LBL 4
34 FN 9: IF +Q15 EQU +1 GOTO LBL 11
35 FN 9: IF +Q15 EQU +2 GOTO LBL 12
36 LBL 10
37 L  X+Q21  Y+Q22 R0 F9999 M3
38 FN 9: IF +0 EQU +0 GOTO LBL 2
39 LBL 11
40 L  X+Q21  Y+Q22 RL F9999 M3
41 FN 9: IF +0 EQU +0 GOTO LBL 2
42 LBL 12
43 L  X+Q21  Y+Q22 RR F9999 M3
44 LBL 2
45 L  Z+Q10 F9999
46 L  Z+Q3 FQ11
47 LBL 3
48 FN 1: Q27 =+Q27 + +Q37
49 FN 1: Q35 =+Q35 + +1
50 FN 11: IF +Q35 GT +Q5 GOTO LBL 99
51 CALL LBL 4
52 L  X+Q21  Y+Q22  Z+Q23 FQ11
53 FN 12: IF +Q35 LT +Q5 GOTO LBL 3
54 LBL 99
55 L  Z+Q10 R0 F9999
56 CYCL DEF 10.0 DREHUNG
57 CYCL DEF 10.1  ROT+0
58 CYCL DEF 7.0 NULLPUNKT
59 CYCL DEF 7.1  X+0
60 CYCL DEF 7.2  Y+0
61 LBL 0
62 LBL 4
63 FN 7: Q21 = COS +Q27
64 FN 3: Q21 =+Q21 * +Q31
65 FN 6: Q22 = SIN +Q27
66 FN 3: Q22 =+Q32 * +Q22
67 LBL 0
68 END PGM 2070 MM