0  BEGIN PGM 1025 MM 
1  FN 0: Q1 =+80
2  FN 0: Q2 =+80
3  FN 0: Q3 =+80
4  FN 0: Q4 =+8
5  FN 0: Q5 =+0.866
6  FN 0: Q8 =+2
7  BLK FORM 0.1 Z X-0.5 Y-0.5 Z-20
8  BLK FORM 0.2  X+160.5  Y+160.5  Z+0
9  CALL PGM 10251.H
10 TOOL CALL 223 Z S200
11 CYCL DEF 1.0 TIEFBOHREN
12 CYCL DEF 1.1 ABSTQ8
13 CYCL DEF 1.2 TIEFE-21
14 CYCL DEF 1.3 ZUSTLG10
15 CYCL DEF 1.4 V.ZEIT0
16 CYCL DEF 1.5 F100
17 CALL LBL 1
18 L  Z+50 R0 FMAX M2
19 LBL 1
20 FN 2: Q14 =+Q3 - +Q108
21 FN 1: Q13 =+Q14 + +Q2
22 FN 1: Q15 =+Q3 + +Q108
23 FN 2: Q32 =+Q2 - +Q3
24 FN 2: Q32 =+Q32 - -Q108
25 FN 0: Q21 =+Q1
26 FN 0: Q22 =+Q32
27 FN 3: Q27 =+Q4 * +Q5
28 FN 3: Q23 =+Q4 * +0.5
29 FN 3: Q24 =+Q4 * +3
30 FN 1: Q24 =+Q24 + +Q3
31 L  Z+100 R0 FMAX M3
32 L  X+Q21  Y+Q22 R0 FMAX
33 L  Z+Q8 FMAX
34 CYCL CALL
35 LBL 5
36 FN 1: Q21 =+Q21 + -Q23
37 FN 1: Q22 =+Q22 + +Q27
38 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
39 LBL 30
40 FN 1: Q21 =+Q21 + -Q4
41 CALL LBL 50
42 FN 12: IF +Q29 LT +Q14 GOTO LBL 30
43 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
44 LBL 32
45 FN 1: Q21 =+Q21 + +Q4
46 CALL LBL 50
47 FN 11: IF +Q29 GT +Q14 GOTO LBL 32
48 LBL 31
49 L  X+Q21  Y+Q22 R0 FMAX M99
50 FN 1: Q21 =+Q21 + +Q4
51 CALL LBL 50
52 FN 12: IF +Q29 LT +Q14 GOTO LBL 31
53 FN 9: IF +Q29 EQU +Q14 GOTO LBL 31
54 FN 1: Q21 =+Q21 + +Q23
55 FN 1: Q22 =+Q22 + +Q27
56 FN 11: IF +Q22 GT +Q13 GOTO LBL 99
57 LBL 40
58 FN 1: Q21 =+Q21 + +Q4
59 CALL LBL 50
60 FN 12: IF +Q29 LT +Q14 GOTO LBL 40
61 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
62 LBL 41
63 FN 1: Q21 =+Q21 + -Q4
64 CALL LBL 50
65 FN 11: IF +Q29 GT +Q14 GOTO LBL 41
66 LBL 42
67 L  X+Q21  Y+Q22 R0 FMAX M99
68 FN 1: Q21 =+Q21 + -Q4
69 CALL LBL 50
70 FN 12: IF +Q29 LT +Q14 GOTO LBL 42
71 FN 9: IF +Q29 EQU +Q14 GOTO LBL 42
72 FN 9: IF +0 EQU +0 GOTO LBL 5
73 LBL 0
74 LBL 50
75 FN 2: Q28 =+Q1 - +Q21
76 FN 2: Q29 =+Q2 - +Q22
77 FN 8: Q29 =+Q28 LEN +Q29
78 FN 3: Q30 =+Q28 * +Q28
79 FN 5: Q30 = SQRT +Q30
80 FN 11: IF +Q30 GT +Q24 GOTO LBL 99
81 LBL 0
82 LBL 99
83 L  Z+50 R0 FMAX
84 LBL 0
85 END PGM 1025 MM