0  BEGIN PGM 220 MM
1  Q200 = ABS Q200  
2  Q204 = ABS Q204  
3  Q241 = ABS Q241  
4  Q244 = ABS Q244  
5  Q250 = ABS Q250  
6  Q251 = ABS Q251  
7  Q252 = ABS Q252  
8  Q301 = ABS Q301  
9  FN 17: SYSWRITE ID212 = +3
10  FN 18: SYSREAD Q55 = ID10 NR3
11  FN 10: IF +Q55 NE +0 GOTO LBL 205
12  FN 14: ERROR = 1027
13  LBL 205
14  FN 10: IF +Q55 NE +210 GOTO LBL 204
15  FN 14: ERROR = 1033
16  LBL 204
17  FN 10: IF +Q55 NE +211 GOTO LBL 203
18  FN 14: ERROR = 1034
19  LBL 203
20  FN 10: IF +Q55 NE +230 GOTO LBL 202
21  FN 14: ERROR = 1027
22  LBL 202
23  FN 10: IF +Q55 NE +231 GOTO LBL 201
24  FN 14: ERROR = 1027
25  LBL 201
26  FN 11: IF +Q55 GT +199 GOTO LBL 200
27  FN 18: SYSREAD Q56 = ID30 NR2
28  FN 0: Q57 = +Q201
29  FN 0: Q201 = +Q56
30  LBL 200
31  FN 18: SYSREAD Q0 = ID1000 NR7441
32  Q0 = 2 * FRAC (Q0 / 2)  
33  FN 9: IF +Q0 EQU +1 GOTO LBL 199
34  FN 9: IF +Q55 EQU +17 GOTO LBL 199
35  FN 9: IF +Q55 EQU +18 GOTO LBL 199
36  FN 9: IF +Q55 EQU +207 GOTO LBL 199
37  FN 9: IF +Q55 EQU +209 GOTO LBL 199
38  FN 9: IF +Q110 EQU +0 GOTO LBL 199
39  FN 9: IF +Q110 EQU +1 GOTO LBL 199
40  FN 14: ERROR = 1000
41  LBL 199
42  FN 10: IF +Q109 NE -1 GOTO LBL 198
43  FN 14: ERROR = 1001
44  LBL 198
45  FN 11: IF +Q241 GT +0 GOTO LBL 197
46  FN 14: ERROR = 1017
47  LBL 197
48  FN 9: IF +Q55 EQU +204 GOTO LBL 192
49  FN 9: IF +Q55 EQU +263 GOTO LBL 191
50  FN 9: IF +Q55 EQU +264 GOTO LBL 191
51  FN 9: IF +Q55 EQU +265 GOTO LBL 191
52  FN 9: IF +Q201 EQU +0 GOTO LBL 254
53  FN 12: IF +Q201 LT +0 GOTO LBL 196
54  FN 0: Q30 = -1
55  FN 9: IF +0 EQU +0 GOTO LBL 190
56  LBL 196
57  FN 0: Q30 = +1
58  FN 9: IF +0 EQU +0 GOTO LBL 190
59  LBL 191
60  FN 9: IF +Q201 EQU +0 GOTO LBL 253
61  Q356 = ABS Q356 * (-1)  
62  Q358 = ABS Q358 * (-1)  
63  FN 12: IF +Q201 LT +0 GOTO LBL 187
64  Q356 = ABS Q356  
65  Q358 = ABS Q358  
66  FN 9: IF +0 EQU +0 GOTO LBL 185
67  LBL 253
68  FN 9: IF +Q356 EQU +0 GOTO LBL 252
69  FN 12: IF +Q356 LT +0 GOTO LBL 187
70  FN 9: IF +0 EQU +0 GOTO LBL 185
71  LBL 252
72  FN 9: IF +Q358 EQU +0 GOTO LBL 254
73  FN 12: IF +Q358 LT +0 GOTO LBL 187
74  LBL 185
75  FN 0: Q30 = -1
76  FN 9: IF +0 EQU +0 GOTO LBL 190
77  LBL 187
78  FN 0: Q30 = +1
79  FN 9: IF +0 EQU +0 GOTO LBL 190
80  LBL 192
81  FN 9: IF +Q249 EQU +0 GOTO LBL 254
82  FN 12: IF +Q249 LT +0 GOTO LBL 195
83  FN 0: Q30 = +1
84  FN 9: IF +0 EQU +0 GOTO LBL 190
85  LBL 195
86  FN 0: Q30 = -1
87  LBL 190
88  FN 10: IF +Q245 NE +Q246 GOTO LBL 194
89  FN 14: ERROR = 1038
90  LBL 194
91  FN 10: IF +Q247 NE +0 GOTO LBL 193
92  Q50 = ABS (Q246 - Q245)  
93  FN 12: IF +Q50 LT +360.0001 GOTO LBL 193
94  FN 14: ERROR = 1039
95  LBL 193
96  CALL LBL 99
97  FN 4: Q43 = +Q244 DIV +2
98  FN 0: Q44 = +Q245
99  FN 1: Q40 = +Q246 + -Q245
100  FN 8: Q41 = +Q40 LEN+0
101  FN 0: Q45 = +Q241
102  FN 0: Q47 = +Q247
103  FN 0: Q53 = +Q216
104  FN 0: Q54 = +Q217
105  FN 9: IF +Q241 EQU +1 GOTO LBL 4
106  FN 9: IF +Q41 EQU +360 GOTO LBL 4
107  FN 2: Q45 = +Q45 - +1
108  LBL 4
109  FN 10: IF +Q47 NE +0 GOTO LBL 5
110  FN 4: Q47 = +Q40 DIV +Q45
111  LBL 5
112  FN 0: Q46 = +1
113  FN 1: Q48 = +Q203 + +Q200
114  Q51 = ABS Q200  
115  Q52 = ABS Q204  
116  FN 11: IF +Q51 GT +Q52 GOTO LBL 11
117  FN 1: Q48 = +Q203 + +Q204
118  LBL 11
119  FN 1: Q49 = +Q203 + +Q200
120  CC X+Q53 Y+Q54
121  FN 1: Q0 = +Q109 + +1
122  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
123  FN 9: IF +Q30 EQU -1 GOTO LBL 120
124  FN 11: IF +Q0 GT +Q48 GOTO LBL 121
125  L Z+Q48 R0 F MAX
126  FN 9: IF +0 EQU +0 GOTO LBL 121
127  LBL 120
128  FN 12: IF +Q0 LT +Q48 GOTO LBL 121
129  L Z+Q48 R0 F MAX
130  LBL 121
131  LP PR+Q43 PA+Q44 F MAX
132  L Z+Q49 F MAX
133  FN 17: SYSWRITE ID212 = +0
134  FN 0: Q197 = +1
135  CYCL CALL
136  FN 0: Q197 = +0
137  FN 17: SYSWRITE ID212 = +3
138  FN 9: IF +Q241 EQU +1 GOTO LBL 98
139  CC X+Q53 Y+Q54
140  LBL 12
141  FN 1: Q44 = +Q44 + +Q47
142  FN 1: Q46 = +Q46 + +1
143  FN 10: IF +Q301 NE +1 GOTO LBL 122
144  L Z+Q48 F MAX
145  LBL 122
146  LP PR+Q43 PA+Q44 F MAX
147  L Z+Q49 F MAX
148  FN 17: SYSWRITE ID212 = +0
149  FN 0: Q197 = +1
150  CYCL CALL
151  FN 0: Q197 = +0
152  FN 17: SYSWRITE ID212 = +3
153  CC X+Q53 Y+Q54
154  FN 12: IF +Q46 LT +Q241 GOTO LBL 12
155  LBL 98
156  L Z+Q48 F MAX
157  LBL 99
158  FN 3: Q200 = +Q200 * +Q30
159  FN 3: Q202 = +Q202 * +Q30
160  FN 3: Q204 = +Q204 * +Q30
161  FN 3: Q205 = +Q205 * +Q30
162  FN 3: Q212 = +Q212 * +Q30
163  FN 3: Q250 = +Q250 * +Q30
164  FN 3: Q252 = +Q252 * +Q30
165  FN 3: Q256 = +Q256 * +Q30
166  FN 3: Q257 = +Q257 * +Q30
167  FN 3: Q258 = +Q258 * +Q30
168  FN 3: Q259 = +Q259 * +Q30
169  FN 3: Q334 = +Q334 * +Q30
170  LBL 0
171  FN 0: Q216 = +Q53
172  FN 0: Q217 = +Q54
173  FN 11: IF +Q55 GT +199 GOTO LBL 254
174  FN 0: Q201 = +Q57
175  LBL 254
176  END PGM 220 MM
