0  BEGIN PGM 10351 MM 
1  FN 0: Q19 =+0
2  FN 0: Q20 =+Q6
3  FN 1: Q21 =+Q6 + +Q7
4  FN 10: IF +Q7 NE +0 GOTO LBL 3
5  FN 2: Q21 =+Q6 - +Q1
6  LBL 3
7  FN 12: IF +Q3 LT +Q2 GOTO LBL 100
8  FN 1: Q23 =+Q6 + +Q1
9  FN 1: Q24 =+Q6 + +Q2
10 FN 1: Q25 =+Q6 + +Q1
11 FN 0: Q15 =+1
12 L  Z+Q25 R0 F9998
13 LBL 1
14 FN 5: Q12 = SQRT +Q15
15 FN 4: Q13 =+Q3 DIV +Q12
16 FN 12: IF +Q13 LT +Q10 GOTO LBL 4
17 FN 0: Q13 =+Q10
18 LBL 4
19 FN 1: Q20 =+Q20 + +Q13
20 FN 1: Q22 =+Q20 + +Q1
21 FN 1: Q19 =+Q19 + +1
22 FN 12: IF +Q20 LT +Q24 GOTO LBL 99
23 L  Z+Q20 R0 FQ5
24 FN 9: IF +Q20 EQU +Q24 GOTO LBL 99
25 FN 12: IF +Q19 LT +Q9 GOTO LBL 2
26 L  Z+Q23 R0 F9998
27 CYCL DEF 9.0 VERWEILZEIT
28 CYCL DEF 9.1 V.ZEITQ4
29 FN 0: Q19 =+0
30 L  Z+Q22 R0 F9998
31 LBL 2
32 L  Z+Q22 R0 FQ5
33 FN 1: Q15 =+Q15 + +Q8
34 FN 11: IF +Q20 GT +Q24 GOTO LBL 1
35 LBL 99
36 L  Z+Q24 R0 FQ5
37 CYCL DEF 9.0 VERWEILZEIT
38 CYCL DEF 9.1 V.ZEITQ11
39 LBL 100
40 L  Z+Q21 R0 F9998
41 END PGM 10351 MM