BEGIN PGM 70901_nl MM 
CALL LBL 10
CALL LBL 11
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL1
CYCL DEF 6.0 AUSRAEUMEN
CYCL DEF 6.1 ABSTQ25 TIEFE-Q29
CYCL DEF 6.2 ZUSTLGQ26 FQ20 AUFM+Q24
CYCL DEF 6.3 WINKEL+0 FQ21
L  Z+Q25 R0 F9999 M99
CYCL DEF 14.0 KONTUR
CYCL DEF 14.1 KONTURLABEL2
CYCL DEF 16.0 KONTURFRAESEN
CYCL DEF 16.1 ABSTQ25 TIEFE-Q58
CYCL DEF 16.2 ZUSTLGQ58 FQ20 DR+ FQ21
LBL 12
CALL LBL 13
CYCL CALL
FN 12: IF +Q40 LT +Q27 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 1
L  X+Q54  Y+Q55 RR
L  X+Q13  Y+Q14
RND RQ19
L  X+Q15  Y+Q16
RND RQ19
L  X+Q17  Y+Q18
RND RQ19
L  X+Q11  Y+Q12
RND RQ19
L  X+Q54  Y+Q55
LBL 0
LBL 2
L  X+Q52  Y+Q53 RR
L  X+Q63  Y+Q64
RND RQ69
L  X+Q65  Y+Q66
RND RQ69
L  X+Q67  Y+Q68
RND RQ69
L  X+Q61  Y+Q62
RND RQ69
L  X+Q52  Y+Q53
LBL 0
LBL 10
FN 0: Q40 =+0
FN 0: Q61 =+Q1
FN 0: Q62 =+Q2
FN 0: Q63 =+Q3
FN 0: Q64 =+Q4
FN 0: Q65 =+Q5
FN 0: Q66 =+Q6
FN 0: Q67 =+Q7
FN 0: Q68 =+Q8
FN 0: Q69 =+Q9
LBL 0
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
LBL 0
LBL 13
Q40 = Q40 + 1
FN 1: Q52 =+Q52 + +Q56
FN 1: Q53 =+Q53 + +Q57
FN 1: Q58 =+Q58 + +Q51
FN 1: Q61 =+Q61 + +Q41
FN 1: Q62 =+Q62 + +Q42
FN 1: Q63 =+Q63 + +Q43
FN 1: Q64 =+Q64 + +Q44
FN 1: Q65 =+Q65 + +Q45
FN 1: Q66 =+Q66 + +Q46
FN 1: Q67 =+Q67 + +Q47
FN 1: Q68 =+Q68 + +Q48
FN 1: Q69 =+Q69 + +Q49
LBL 0
LBL 99
END PGM 70901_nl MM