0  BEGIN PGM 214 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  Q222 = ABS Q222  
8  Q223 = ABS Q223  
9  LBL 200
10  FN 17: SYSWRITE ID212 = +3
11  FN 18: SYSREAD Q0 = ID1000 NR7441
12  Q0 = 2 * FRAC (Q0 / 2)  
13  FN 9: IF +Q0 EQU +1 GOTO LBL 199
14  FN 9: IF +Q110 EQU +0 GOTO LBL 199
15  FN 9: IF +Q110 EQU +1 GOTO LBL 199
16  FN 14: ERROR = 1000
17  LBL 199
18  FN 10: IF +Q109 NE -1 GOTO LBL 198
19  FN 14: ERROR = 1001
20  LBL 198
21  FN 9: IF +Q201 EQU +0 GOTO LBL 254
22  FN 12: IF +Q201 LT +0 GOTO LBL 197
23  FN 0: Q30 = -1
24  FN 9: IF +0 EQU +0 GOTO LBL 194
25  LBL 197
26  FN 0: Q30 = +1
27  LBL 194
28  FN 9: IF +Q222 EQU +Q223 GOTO LBL 196
29  FN 12: IF +Q222 LT +Q223 GOTO LBL 196
30  FN 14: ERROR = 1040
31  LBL 196
32  FN 18: SYSREAD Q2 = ID200 NR1
33  Q2 = ABS Q2  
34  FN 3: Q21 = +2.1 * +Q2
35  FN 12: IF +Q21 LT +Q223 GOTO LBL 193
36  FN 14: ERROR = 1029
37  LBL 193
38  FN 10: IF +Q202 NE +0 GOTO LBL 21
39  FN 14: ERROR = 1030
40  LBL 21
41  FN 9: IF +Q195 EQU +1 GOTO LBL 192
42  CALL LBL 99
43  LBL 192
44  FN 4: Q17 = +Q222 DIV +2
45  FN 4: Q18 = +Q223 DIV +2
46  FN 0: Q1 = +0.1
47  FN 0: Q26 = +Q1
48  FN 4: Q28 = +Q207 DIV +1.5
49  FN 0: Q29 = +0
50  FN 9: IF +Q222 EQU +0 GOTO LBL 195
51  FN 2: Q26 = +Q18 - +Q17
52  LBL 190
53  Q29 = Q18 - 2 * Q26 - 2 * Q2  
54  FN 11: IF +Q29 GT +0 GOTO LBL 195
55  FN 9: IF +Q29 EQU +0 GOTO LBL 195
56  Q26 = Q26 / 2  
57  FN 9: IF +Q26 EQU +0 GOTO LBL 188
58  FN 11: IF +2 GT +1 GOTO LBL 190
59  LBL 188
60  FN 0: Q26 = +Q1
61  FN 0: Q29 = +0
62  LBL 195
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 9: IF +Q206 EQU +Q207 GOTO LBL 5
73  FN 0: Q22 = +Q207
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  CC IX+0 IY+0
91  LP PR+Q29 PA+0 F MAX
92  L Z+Q20 F MAX
93  FN 10: IF +Q30 NE -1 GOTO LBL 30
94  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
95  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
96  FN 9: IF +0 EQU +0 GOTO LBL 10
97  LBL 30
98  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
99  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
100  LBL 10
101  CALL LBL 11
102  FN 2: Q23 = +Q23 - +Q202
103  FN 10: IF +Q30 NE -1 GOTO LBL 32
104  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
105  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
106  FN 9: IF +0 EQU +0 GOTO LBL 10
107  LBL 32
108  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
109  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
110  FN 9: IF +0 EQU +0 GOTO LBL 10
111  LBL 12
112  FN 0: Q23 = +Q24
113  CALL LBL 11
114  FN 9: IF +0 EQU +0 GOTO LBL 99
115  LBL 11
116  L Z+Q23 FQ206
117  LP PR+Q18 PA+0 RL FQ22
118  RND RQ26 FQ28
119  CP IPA+360 DR+ FQ207
120  RND RQ26 FQ28
121  LP PR+Q29 R0 FQ22
122  LBL 0
123  LBL 99
124  FN 9: IF +Q195 EQU +1 GOTO LBL 191
125  FN 3: Q200 = +Q200 * +Q30
126  FN 3: Q202 = +Q202 * +Q30
127  FN 3: Q204 = +Q204 * +Q30
128  LBL 0
129  LBL 191
130  L Z+Q20 F MAX
131  FN 9: IF +Q195 EQU +1 GOTO LBL 254
132  L Z+Q19 F MAX
133  LP PR+0 PA+0 F MAX
134  FN 0: Q15 = +0
135  LBL 254
136  END PGM 214 MM
