0  BEGIN PGM 1020 MM 
1  FN 0: Q1 =+10
2  FN 0: Q2 =+10
3  FN 0: Q3 =+9
4  FN 0: Q4 =+12
5  FN 0: Q5 =+10
6  FN 0: Q6 =+7
7  FN 0: Q7 =+5
8  FN 0: Q8 =+2
9  BLK FORM 0.1 Z X+0 Y+0 Z-25
10 BLK FORM 0.2  X+100  Y+100  Z+0
11 TOOL CALL 227 Z S1000
12 CYCL DEF 1.0 TIEFBOHREN
13 CYCL DEF 1.1 ABSTQ8
14 CYCL DEF 1.2 TIEFE-20
15 CYCL DEF 1.3 ZUSTLG10
16 CYCL DEF 1.4 V.ZEIT0
17 CYCL DEF 1.5 F100
18 CALL LBL 1
19 L  Z+50 R0 FMAX M2
20 LBL 1
21 FN 0: Q21 =+0
22 FN 0: Q22 =+0
23 FN 0: Q25 =+0
24 FN 0: Q26 =+0
25 FN 0: Q23 =+Q3
26 CYCL DEF 7.0 NULLPUNKT
27 CYCL DEF 7.1  X+Q1
28 CYCL DEF 7.2  Y+Q2
29 CYCL DEF 10.0 DREHUNG
30 CYCL DEF 10.1  ROT+Q7
31 LBL 2
32 L  X+Q21  Y+Q22 R0 F9999 M3
33 L  Z+Q8 R0 F9999
34 CYCL CALL
35 LBL 3
36 FN 1: Q21 =+Q21 + +Q23
37 FN 1: Q25 =+Q25 + +1
38 FN 12: IF +Q25 LT +Q5 GOTO LBL 2
39 FN 0: Q25 =+0
40 FN 1: Q26 =+Q26 + +1
41 FN 0: Q23 =-Q23
42 FN 1: Q21 =+Q21 + +Q23
43 FN 1: Q22 =+Q22 + +Q4
44 FN 12: IF +Q26 LT +Q6 GOTO LBL 2
45 CYCL DEF 7.0 NULLPUNKT
46 CYCL DEF 7.1  X+0
47 CYCL DEF 7.2  Y+0
48 CYCL DEF 10.0 DREHUNG
49 CYCL DEF 10.1  ROT+0
50 LBL 0
51 END PGM 1020 MM