0  BEGIN PGM 205 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q206 = ABS Q206  
7  Q211 = ABS Q211  
8  Q212 = ABS Q212  
9  Q256 = ABS Q256  
10  Q257 = ABS Q257  
11  Q258 = ABS Q258  
12  Q259 = ABS Q259  
13  LBL 200
14  FN 17: SYSWRITE ID212 = +3
15  FN 18: SYSREAD Q0 = ID1000 NR7441
16  Q0 = 2 * FRAC (Q0 / 2)  
17  FN 9: IF +Q0 EQU +1 GOTO LBL 199
18  FN 9: IF +Q110 EQU +0 GOTO LBL 199
19  FN 9: IF +Q110 EQU +1 GOTO LBL 199
20  FN 14: ERROR = 1000
21  LBL 199
22  FN 10: IF +Q109 NE -1 GOTO LBL 198
23  FN 14: ERROR = 1001
24  LBL 198
25  FN 9: IF +Q201 EQU +0 GOTO LBL 254
26  FN 12: IF +Q201 LT +0 GOTO LBL 197
27  FN 0: Q30 = -1
28  FN 9: IF +0 EQU +0 GOTO LBL 194
29  LBL 197
30  FN 0: Q30 = +1
31  LBL 194
32  FN 9: IF +Q195 EQU +1 GOTO LBL 193
33  CALL LBL 4
34  LBL 193
35  FN 1: Q19 = +Q203 + +Q200
36  Q51 = ABS Q200  
37  Q52 = ABS Q204  
38  FN 11: IF +Q51 GT +Q52 GOTO LBL 7
39  FN 1: Q19 = +Q203 + +Q204
40  LBL 7
41  FN 1: Q20 = +Q203 + +Q200
42  FN 1: Q24 = +Q203 + +Q201
43  FN 0: Q15 = +Q203
44  LBL 1
45  FN 1: Q39 = +Q212 + +Q212
46  FN 2: Q34 = +Q259 - +Q258
47  FN 4: Q21 = +Q34 DIV +Q201
48  FN 0: Q22 = +Q202
49  FN 0: Q35 = +0
50  L Z+Q20 R0 F MAX
51  LBL 2
52  FN 1: Q35 = +Q35 + -Q22
53  FN 9: IF +Q30 EQU -1 GOTO LBL 50
54  FN 11: IF +Q35 GT +Q201 GOTO LBL 3
55  FN 0: Q35 = +Q201
56  LBL 3
57  FN 9: IF +0 EQU +0 GOTO LBL 51
58  LBL 50
59  FN 12: IF +Q35 LT +Q201 GOTO LBL 51
60  FN 0: Q35 = +Q201
61  LBL 51
62  FN 2: Q36 = +Q203 - -Q35
63  FN 9: IF +Q257 EQU +0 GOTO LBL 6
64  LBL 5
65  FN 2: Q15 = +Q15 - +Q257
66  FN 9: IF +Q30 EQU -1 GOTO LBL 40
67  FN 12: IF +Q15 LT +Q36 GOTO LBL 6
68  FN 9: IF +0 EQU +0 GOTO LBL 41
69  LBL 40
70  FN 11: IF +Q15 GT +Q36 GOTO LBL 6
71  LBL 41
72  L Z+Q15 R0 FQ206
73  L IZ+Q256 F3000
74  FN 9: IF +Q30 EQU -1 GOTO LBL 42
75  FN 11: IF +Q15 GT +Q36 GOTO LBL 5
76  FN 9: IF +0 EQU +0 GOTO LBL 6
77  LBL 42
78  FN 12: IF +Q15 LT +Q36 GOTO LBL 5
79  LBL 6
80  L Z+Q36 R0 FQ206
81  FN 0: Q15 = +Q36
82  FN 9: IF +Q35 EQU +Q201 GOTO LBL 4
83  L Z+Q20 R0 F MAX
84  FN 3: Q37 = +Q35 * +Q21
85  FN 1: Q37 = +Q37 + +Q258
86  FN 1: Q37 = +Q36 + +Q37
87  L Z+Q37 R0 F MAX
88  FN 9: IF +Q212 EQU +0 GOTO LBL 2
89  FN 9: IF +Q205 EQU +0 GOTO LBL 2
90  FN 2: Q22 = +Q22 - +Q212
91  FN 9: IF +Q30 EQU -1 GOTO LBL 45
92  FN 11: IF +Q22 GT +Q205 GOTO LBL 2
93  FN 0: Q22 = +Q205
94  FN 9: IF +0 EQU +0 GOTO LBL 2
95  LBL 45
96  FN 12: IF +Q22 LT +Q205 GOTO LBL 2
97  FN 0: Q22 = +Q205
98  FN 9: IF +0 EQU +0 GOTO LBL 2
99  LBL 4
100  FN 9: IF +Q195 EQU +1 GOTO LBL 192
101  FN 3: Q200 = +Q200 * +Q30
102  FN 3: Q202 = +Q202 * +Q30
103  FN 3: Q204 = +Q204 * +Q30
104  FN 3: Q205 = +Q205 * +Q30
105  FN 3: Q212 = +Q212 * +Q30
106  FN 3: Q256 = +Q256 * +Q30
107  FN 3: Q257 = +Q257 * +Q30
108  FN 3: Q258 = +Q258 * +Q30
109  FN 3: Q259 = +Q259 * +Q30
110  LBL 0
111  LBL 192
112  FN 9: IF +Q211 EQU +0 GOTO LBL 180
113  CYCL DEF 9.0 VERWEILZEIT
114  CYCL DEF 9.1 V.ZEIT Q211
115  LBL 180
116  L Z+Q20 R0 F MAX
117  FN 9: IF +Q195 EQU +1 GOTO LBL 254
118  L Z+Q19 R0 F MAX
119  LBL 254
120  END PGM 205 MM
