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