0  BEGIN PGM 1105 MM 
1  FN 0: Q1 =+15
2  FN 0: Q2 =+15
3  FN 0: Q30 =+8
4  FN 0: Q31 =+8
5  FN 0: Q32 =+10
6  FN 0: Q33 =+10
7  FN 0: Q7 =+0
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 225 Z S5000
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 20
19 L  Z+100 R0 FMAX M2
20 LBL 20
21 FN 12: IF +Q30 LT +3 GOTO LBL 5
22 FN 12: IF +Q31 LT +3 GOTO LBL 5
23 CYCL DEF 7.0 NULLPUNKT
24 CYCL DEF 7.1  X+Q1
25 CYCL DEF 7.2  Y+Q2
26 CYCL DEF 10.0 DREHUNG
27 CYCL DEF 10.1  ROT+Q7
28 L  Z+100 R0 FMAX
29 L  X+0  Y+0 R0 FMAX M3
30 L  Z+Q8 R0 FMAX
31 CYCL CALL
32 FN 2: Q34 =+Q30 - +1
33 LBL 1
34 FN 2: Q34 =+Q34 - +1
35 L IX+Q32 FMAX
36 CYCL CALL
37 FN 11: IF +Q34 GT +0 GOTO LBL 1
38 FN 2: Q35 =+Q31 - +1
39 LBL 2
40 FN 2: Q35 =+Q35 - +1
41 L IY+Q33 FMAX
42 CYCL CALL
43 FN 11: IF +Q35 GT +0 GOTO LBL 2
44 FN 2: Q34 =+Q30 - +1
45 LBL 3
46 FN 2: Q34 =+Q34 - +1
47 L IX-Q32 FMAX
48 CYCL CALL
49 FN 11: IF +Q34 GT +0 GOTO LBL 3
50 FN 2: Q36 =+Q31 - +2
51 LBL 4
52 FN 2: Q36 =+Q36 - +1
53 L IY-Q33 FMAX
54 CYCL CALL
55 FN 11: IF +Q36 GT +0 GOTO LBL 4
56 FN 9: IF +0 EQU +0 GOTO LBL 6
57 LBL 5
58 FN 14: ERROR= 1011
59 LBL 6
60 CYCL DEF 7.0 NULLPUNKT
61 CYCL DEF 7.1  X+0
62 CYCL DEF 7.2  Y+0
63 CYCL DEF 7.3  Z+0
64 CYCL DEF 10.0 DREHUNG
65 CYCL DEF 10.1  ROT+0
66 LBL 0
67 END PGM 1105 MM