BEGIN PGM 211 MM
Q195 = Q197  
Q197 = 0  
Q200 = ABS Q200  
Q202 = ABS Q202  
Q204 = ABS Q204  
Q215 = ABS Q215  
Q219 = ABS Q219  
Q244 = ABS Q244  
Q248 = ABS Q248  
Q338 = ABS Q338  
FN 17: SYSWRITE ID212 = +3
FN 18: SYSREAD Q5 = ID210 NR4 IDX1
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 2 * FRAC (Q0 / 2)  
FN 9: IF +Q0 EQU +1 GOTO LBL 199
FN 9: IF +Q110 EQU +0 GOTO LBL 199
FN 9: IF +Q110 EQU +1 GOTO LBL 199
FN 14: ERROR = 1000
LBL 199
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC (Q0 / 8)  
FN 12: IF +Q0 LT +4 GOTO LBL 206
FN 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 14: ERROR = 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR = 1001
LBL 198
FN 10: IF +Q202 NE +0 GOTO LBL 21
FN 14: ERROR = 1030
LBL 21
FN 11: IF +Q248 GT +0 GOTO LBL 195
FN 14: ERROR = 1016
LBL 195
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q50 = -1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q50 = +1
LBL 194
FN 10: IF +Q195 NE +1 GOTO LBL 196
FN 14: ERROR = 1016
LBL 196
CALL LBL 99
FN 18: SYSREAD Q1 = ID200 NR1
Q1 = ABS Q1  
FN 9: IF +Q1 EQU +0 GOTO LBL 96
FN 0: Q2 = +Q215
Q27 = (Q219 / Q1) * Q5  
FN 11: IF +Q27 GT +6 GOTO LBL 98
FN 12: IF +Q27 LT +2 GOTO LBL 97
FN 9: IF +Q27 EQU +2 GOTO LBL 200
FN 9: IF +0 EQU +0 GOTO LBL 201
LBL 200
FN 0: Q215 = +1
LBL 201
Q47 = ABS Q201  
Q48 = ABS Q202  
FN 11: IF +Q47 GT +Q48 GOTO LBL 202
Q27 = Q47 / 2 * Q50  
FN 9: IF +0 EQU +0 GOTO LBL 203
LBL 202
FN 4: Q27 = +Q202 DIV +2
LBL 203
FN 4: Q22 = +Q207 DIV +2
FN 1: Q29 = +Q203 + +Q201
FN 1: Q19 = +Q203 + +Q200
Q51 = ABS Q200  
Q52 = ABS Q204  
FN 11: IF +Q51 GT +Q52 GOTO LBL 10
FN 1: Q19 = +Q203 + +Q204
LBL 10
FN 2: Q20 = +Q203 - -Q200
FN 1: Q28 = +Q203 + +0
FN 4: Q30 = +Q244 DIV +2
FN 1: Q33 = +Q245 + +Q248
FN 4: Q36 = +Q219 DIV +2
Q34 = Q36 - Q1 / Q5  
Q32 = Q34 / 2  
FN 1: Q40 = +Q30 + +Q36
FN 2: Q41 = +Q30 - +Q36
Q12 = Q206
FN 10: IF +Q206 NE +0 GOTO LBL 11
Q12 = Q207
LBL 11
CC X+Q216 Y+Q217
FN 1: Q0 = +Q109 + +1
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
FN 9: IF +Q30 EQU -1 GOTO LBL 120
FN 11: IF +Q0 GT +Q19 GOTO LBL 121
L Z+Q19 R0 F MAX
FN 9: IF +0 EQU +0 GOTO LBL 121
LBL 120
FN 12: IF +Q0 LT +Q19 GOTO LBL 121
L Z+Q19 R0 F MAX
LBL 121
LP PR+Q30 PA+Q245 F MAX
LBL 6
L Z+Q20 F MAX
Q11 = Q207
FN 9: IF +Q215 EQU +2 GOTO LBL 5
L Z+Q203 R0 FQ207
FN 10: IF +Q50 NE -1 GOTO LBL 30
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 1
LBL 30
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 100
LBL 1
FN 1: Q28 = +Q28 + -Q27
FN 10: IF +Q50 NE -1 GOTO LBL 32
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 3
FN 9: IF +0 EQU +0 GOTO LBL 33
LBL 32
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 3
LBL 33
CP IPA+Q248 Z+Q28 DR+ FQ207
LBL 12
FN 1: Q28 = +Q28 + -Q27
FN 10: IF +Q50 NE -1 GOTO LBL 34
FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
FN 11: IF +Q28 GT +Q29 GOTO LBL 2
FN 9: IF +0 EQU +0 GOTO LBL 35
LBL 34
FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
FN 12: IF +Q28 LT +Q29 GOTO LBL 2
LBL 35
CP IPA-Q248 Z+Q28 DR- FQ207
FN 1: Q28 = +Q28 + -Q27
FN 10: IF +Q50 NE -1 GOTO LBL 36
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 3
FN 9: IF +0 EQU +0 GOTO LBL 37
LBL 36
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 3
LBL 37
CP IPA+Q248 Z+Q28 DR+ FQ207
FN 10: IF +Q50 NE -1 GOTO LBL 38
FN 12: IF +Q28 LT +Q29 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 2
LBL 38
FN 11: IF +Q28 GT +Q29 GOTO LBL 12
LBL 2
CP IPA-Q248 Z+Q29 DR- FQ207
CP IPA+Q248 Z+Q29 DR+ FQ207
FN 9: IF +Q215 EQU +1 GOTO LBL 100
CP IPA-Q248 Z+Q29 DR- FQ207
FN 9: IF +0 EQU +0 GOTO LBL 5
LBL 3
CP IPA+Q248 Z+Q29 DR+ FQ207
CP IPA-Q248 Z+Q29 DR- FQ207
FN 9: IF +Q215 EQU +1 GOTO LBL 100
LBL 5
FN 9: IF +Q215 EQU +1 GOTO LBL 100
Q10 = Q29  
Q13 = 1.1  
FN 9: IF +Q338 EQU +0 GOTO LBL 150
Q10 = Q203 - Q338  
Q13 = 0  
LBL 151
FN 9: IF +Q30 EQU -1 GOTO LBL 152
FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
FN 12: IF +Q10 LT +Q29 GOTO LBL 153
FN 9: IF +0 EQU +0 GOTO LBL 150
LBL 152
FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
FN 11: IF +Q10 GT +Q29 GOTO LBL 153
FN 9: IF +0 EQU +0 GOTO LBL 150
LBL 153
Q10 = Q29  
Q13 = 1.1  
LBL 150
L Z+Q10 R0 FQ11
LP PR+Q40 PA+Q245 RL FQ207
RND RQ32 FQ22
CP IPA+Q248 DR+ FQ207
CTP PR+Q41 PA+Q33 FQ207
CP IPA-Q248 DR- FQ207
CTP PR+Q40 PA+Q245 FQ207
RND RQ32 FQ22
LP PR+Q30 PA+Q245 R0 FQ207
FN 9: IF +Q13 EQU +1.1 GOTO LBL 100
Q10 = Q10 - Q338  
Q11 = Q12
FN 9: IF +0 EQU +0 GOTO LBL 151
LBL 100
L Z+Q20 R0 F MAX
L Z+Q19 F MAX
LP PR+Q30 PA+Q245 R0 F MAX
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 98
FN 14: ERROR = 1002
LBL 97
FN 14: ERROR = 1003
LBL 96
FN 14: ERROR= 1021
LBL 99
FN 3: Q200 = +Q200 * +Q50
FN 3: Q202 = +Q202 * +Q50
FN 3: Q204 = +Q204 * +Q50
FN 3: Q338 = +Q338 * +Q50
LBL 0
FN 0: Q215 = +Q2
LBL 254
END PGM 211 MM
