0  BEGIN PGM 213 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q202 = ABS Q202  
6  Q204 = ABS Q204  
7  Q218 = ABS Q218  
8  Q219 = ABS Q219  
9  Q220 = ABS Q220  
10  Q221 = ABS Q221  
11  LBL 200
12  FN 17: SYSWRITE ID212 = +3
13  FN 18: SYSREAD Q5 = ID210 NR4 IDX1
14  FN 18: SYSREAD Q0 = ID1000 NR7441
15  Q0 = 2 * FRAC (Q0 / 2)  
16  FN 9: IF +Q0 EQU +1 GOTO LBL 199
17  FN 9: IF +Q110 EQU +0 GOTO LBL 199
18  FN 9: IF +Q110 EQU +1 GOTO LBL 199
19  FN 14: ERROR = 1000
20  LBL 199
21  FN 18: SYSREAD Q0 = ID1000 NR7441
22  Q0 = 8 * FRAC (Q0 / 8)  
23  FN 12: IF +Q0 LT +4 GOTO LBL 206
24  FN 12: IF +Q201 LT +0 GOTO LBL 206
25  FN 9: IF +Q201 EQU +0 GOTO LBL 206
26  FN 14: ERROR = 1077
27  LBL 206
28  FN 10: IF +Q109 NE -1 GOTO LBL 198
29  FN 14: ERROR = 1001
30  LBL 198
31  FN 10: IF +Q202 NE +0 GOTO LBL 21
32  FN 14: ERROR = 1030
33  LBL 21
34  FN 3: Q35 = +2 * +Q220
35  FN 11: IF +Q218 GT +Q35 GOTO LBL 196
36  FN 9: IF +Q218 EQU +Q35 GOTO LBL 196
37  FN 14: ERROR = 1035
38  LBL 196
39  FN 11: IF +Q219 GT +Q35 GOTO LBL 195
40  FN 9: IF +Q219 EQU +Q35 GOTO LBL 195
41  FN 14: ERROR = 1035
42  LBL 195
43  FN 9: IF +Q201 EQU +0 GOTO LBL 254
44  FN 12: IF +Q201 LT +0 GOTO LBL 197
45  FN 0: Q30 = -1
46  FN 9: IF +0 EQU +0 GOTO LBL 194
47  LBL 197
48  FN 0: Q30 = +1
49  LBL 194
50  FN 9: IF +Q195 EQU +1 GOTO LBL 193
51  CALL LBL 99
52  LBL 193
53  FN 18: SYSREAD Q1 = ID200 NR1
54  Q1 = ABS Q1  
55  Q21 = (3.5 * Q1) / Q5   ;  
56  FN 4: Q17 = +Q218 DIV +2
57  FN 4: Q18 = +Q219 DIV +2
58  Q26 = (Q1 / 2) / Q5   ;  
59  FN 3: Q25 = +Q26 * +0.75 ;  
60  Q27 = Q21 + Q221   ;  
54  Q28 = Q207
50  FN 9: IF +Q220 EQU +0 GOTO LBL 190
61  FN 4: Q28 = +Q207 DIV +1.5
62  LBL 190
62  Q29 = Q17 + Q27  
63  FN 1: Q19 = +Q203 + +Q200
64  Q51 = ABS Q200  
65  Q52 = ABS Q204  
66  FN 11: IF +Q51 GT +Q52 GOTO LBL 3
67  FN 1: Q19 = +Q203 + +Q204
68  LBL 3
69  FN 1: Q20 = +Q203 + +Q200
70  FN 0: Q22 = +Q207
71  FN 12: IF +Q206 LT +Q207 GOTO LBL 5
72  FN 11: IF +Q221 GT +Q25 GOTO LBL 5
73  FN 3: Q22 = +Q207 * +2
74  LBL 5
75  FN 2: Q23 = +Q203 - +Q202
76  FN 2: Q24 = +Q203 - -Q201
77  FN 9: IF +Q195 EQU +1 GOTO LBL 98
78  FN 1: Q0 = +Q109 + +1
79  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
80  FN 9: IF +Q30 EQU -1 GOTO LBL 120
81  FN 11: IF +Q0 GT +Q19 GOTO LBL 121
82  L Z+Q19 R0 F MAX
83  FN 9: IF +0 EQU +0 GOTO LBL 121
84  LBL 120
85  FN 12: IF +Q0 LT +Q19 GOTO LBL 121
86  L Z+Q19 R0 F MAX
87  LBL 121
88  L X+Q216 Y+Q217 R0 F MAX
89  LBL 98
90  L IX+Q29 F MAX
91  L Z+Q20 F MAX
92  FN 10: IF +Q30 NE -1 GOTO LBL 30
93  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
94  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
95  FN 9: IF +0 EQU +0 GOTO LBL 10
96  LBL 30
97  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
98  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
99  LBL 10
100  CALL LBL 11
101  FN 2: Q23 = +Q23 - +Q202
102  FN 10: IF +Q30 NE -1 GOTO LBL 32
103  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
104  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
105  FN 9: IF +0 EQU +0 GOTO LBL 10
106  LBL 32
107  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
108  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
109  FN 9: IF +0 EQU +0 GOTO LBL 10
110  LBL 12
111  FN 0: Q23 = +Q24
112  CALL LBL 11
113  FN 9: IF +0 EQU +0 GOTO LBL 99
114  LBL 11
115  L Z+Q23 FQ206
116  L IX-Q27 IY+0 RL FQ22
117  RND RQ26 FQ28
118  L IY-Q18 FQ207
119  RND RQ220 FQ28
120  L IX-Q218 FQ207
121  RND RQ220 FQ28
122  L IY+Q219 FQ207
123  RND RQ220 FQ28
124  L IX+Q218 FQ207
125  RND RQ220 FQ28
126  L IY-Q18 FQ207
127  RND RQ26 FQ28
128  L IX+Q27 IY+0 R0 FQ22
129  LBL 0
130  LBL 99
131  FN 9: IF +Q195 EQU +1 GOTO LBL 192
132  FN 3: Q200 = +Q200 * +Q30
133  FN 3: Q202 = +Q202 * +Q30
134  FN 3: Q204 = +Q204 * +Q30
135  LBL 0
136  LBL 192
137  L Z+Q20 F MAX
138  FN 9: IF +Q195 EQU +1 GOTO LBL 253
141  FN 0: Q15 = +0
139  L Z+Q19 F MAX
140  L IX-Q29 F MAX
142  LBL 0
138  FN 9: IF +0 EQU +0 GOTO LBL 254
143  LBL 253
FN 9: IF +Q176 EQU +0 GOTO LBL 254
140  L IX-Q29 F MAX
143  LBL 254
144  END PGM 213 MM
