0 BEGIN PGM 70901 MM 
1 CALL LBL 10
2 CALL LBL 11
3 CYCL DEF 14.0 KONTUR
4 CYCL DEF 14.1 KONTURLABEL1
5 CYCL DEF 6.0 AUSRAEUMEN
6 CYCL DEF 6.1 ABSTQ25 TIEFE-Q29
7 CYCL DEF 6.2 ZUSTLGQ26 FQ20 AUFM+Q24
8 CYCL DEF 6.3 WINKEL+0 FQ21
9 L  Z+Q25 R0 F9999 M99
10 CYCL DEF 14.0 KONTUR
11 CYCL DEF 14.1 KONTURLABEL2
12 CYCL DEF 16.0 KONTURFRAESEN
13 CYCL DEF 16.1 ABSTQ25 TIEFE-Q58
14 CYCL DEF 16.2 ZUSTLGQ58 FQ20 DR+ FQ21
15 LBL 12
16 CALL LBL 13
17 CYCL CALL
18 FN 12: IF +Q40 LT +Q27 GOTO LBL 12
19 FN 9: IF +0 EQU +0 GOTO LBL 99
20 LBL 1
21 L  X+Q54  Y+Q55 RR
22 L  X+Q13  Y+Q14
23 RND RQ19
24 L  X+Q15  Y+Q16
25 RND RQ19
26 L  X+Q17  Y+Q18
27 RND RQ19
28 L  X+Q11  Y+Q12
29 RND RQ19
30 L  X+Q54  Y+Q55
31 LBL 0
32 LBL 2
33 L  X+Q52  Y+Q53 RR
34 L  X+Q63  Y+Q64
35 RND RQ69
36 L  X+Q65  Y+Q66
37 RND RQ69
38 L  X+Q67  Y+Q68
39 RND RQ69
40 L  X+Q61  Y+Q62
41 RND RQ69
42 L  X+Q52  Y+Q53
43 LBL 0
44 LBL 10
45 FN 0: Q40 =+0
46 FN 0: Q61 =+Q1
47 FN 0: Q62 =+Q2
48 FN 0: Q63 =+Q3
49 FN 0: Q64 =+Q4
50 FN 0: Q65 =+Q5
51 FN 0: Q66 =+Q6
52 FN 0: Q67 =+Q7
53 FN 0: Q68 =+Q8
54 FN 0: Q69 =+Q9
55 LBL 0
56 LBL 11
Q41 = ( Q11 - Q1 ) / Q27
Q42 = ( Q12 - Q2 ) / Q27
Q43 = ( Q13 - Q3 ) / Q27
Q44 = ( Q14 - Q4 ) / Q27
Q45 = ( Q15 - Q5 ) / Q27
Q46 = ( Q16 - Q6 ) / Q27
Q47 = ( Q17 - Q7 ) / Q27
Q48 = ( Q18 - Q8 ) / Q27
Q49 = ( Q19 - Q9 ) / Q27
Q52 = Q1 - ( ( Q1 - Q3 ) / 2 )
Q53 = Q2 + ( ( Q4 - Q2 ) / 2 )
Q54 = Q11 - ( ( Q11 - Q13 ) / 2 )
Q55 = Q12 + ( ( Q14 - Q12 ) / 2 )
Q56 = ( Q54 - Q52 ) / Q27
Q57 = ( Q55 - Q53 ) / Q27
Q51 = Q28 / Q27
Q58 = 0
57 LBL 0
58 LBL 13
Q40 = Q40 + 1
59 FN 1: Q52 =+Q52 + +Q56
60 FN 1: Q53 =+Q53 + +Q57
61 FN 1: Q58 =+Q58 + +Q51
62 FN 1: Q61 =+Q61 + +Q41
63 FN 1: Q62 =+Q62 + +Q42
64 FN 1: Q63 =+Q63 + +Q43
65 FN 1: Q64 =+Q64 + +Q44
66 FN 1: Q65 =+Q65 + +Q45
67 FN 1: Q66 =+Q66 + +Q46
68 FN 1: Q67 =+Q67 + +Q47
69 FN 1: Q68 =+Q68 + +Q48
70 FN 1: Q69 =+Q69 + +Q49
71 LBL 0
72 LBL 99
73 END PGM 30201-de MM