BEGIN PGM 213 MM
Q195 = Q197  
Q197 = 0  
FN 9: IF +Q195 EQU +1 GOTO LBL 200
Q200 = ABS Q200  
Q202 = ABS Q202  
Q204 = ABS Q204  
Q218 = ABS Q218  
Q219 = ABS Q219  
Q220 = ABS Q220  
Q221 = ABS Q221  
LBL 200
FN 17: SYSWRITE ID212 = +3
FN 18: SYSREAD Q5 = ID210 NR4 IDX1
CALL PGM CHECK_MP7441
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 3: Q35 = +2 * +Q220
FN 11: IF +Q218 GT +Q35 GOTO LBL 196
FN 9: IF +Q218 EQU +Q35 GOTO LBL 196
FN 14: ERROR = 1035
LBL 196
FN 11: IF +Q219 GT +Q35 GOTO LBL 195
FN 9: IF +Q219 EQU +Q35 GOTO LBL 195
FN 14: ERROR = 1035
LBL 195
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q30 = -1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q30 = +1
LBL 194
FN 9: IF +Q195 EQU +1 GOTO LBL 193
CALL LBL 99
LBL 193
FN 18: SYSREAD Q1 = ID200 NR1
Q1 = ABS Q1  
Q21 = (3.5 * Q1) / Q5   ;  
FN 4: Q17 = +Q218 DIV +2
FN 4: Q18 = +Q219 DIV +2
Q26 = (Q1 / 2) / Q5   ;  
FN 3: Q25 = +Q26 * +0.75 ;  
Q27 = Q21 + Q221   ;  
Q28 = Q207
FN 9: IF +Q220 EQU +0 GOTO LBL 190
FN 4: Q28 = +Q207 DIV +1.5
LBL 190
Q29 = Q17 + Q27  
FN 1: Q19 = +Q203 + +Q200
Q51 = ABS Q200  
Q52 = ABS Q204  
FN 11: IF +Q51 GT +Q52 GOTO LBL 3
FN 1: Q19 = +Q203 + +Q204
LBL 3
FN 1: Q20 = +Q203 + +Q200
FN 0: Q22 = +Q207
FN 12: IF +Q206 LT +Q207 GOTO LBL 5
FN 11: IF +Q221 GT +Q25 GOTO LBL 5
FN 3: Q22 = +Q207 * +2
LBL 5
FN 2: Q23 = +Q203 - +Q202
FN 2: Q24 = +Q203 - -Q201
FN 9: IF +Q195 EQU +1 GOTO LBL 98
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
L X+Q216 Y+Q217 R0 F MAX
LBL 98
L IX+Q29 F MAX
L Z+Q20 F MAX
FN 10: IF +Q30 NE -1 GOTO LBL 30
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 11: IF +Q23 GT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 30
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 12: IF +Q23 LT +Q24 GOTO LBL 12
LBL 10
CALL LBL 11
FN 2: Q23 = +Q23 - +Q202
FN 10: IF +Q30 NE -1 GOTO LBL 32
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 11: IF +Q23 GT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 32
FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
FN 12: IF +Q23 LT +Q24 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 10
LBL 12
FN 0: Q23 = +Q24
CALL LBL 11
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 11
L Z+Q23 FQ206
L IX-Q27 IY+0 RL FQ22
RND RQ26 FQ28
L IY-Q18 FQ207
RND RQ220 FQ28
L IX-Q218 FQ207
RND RQ220 FQ28
L IY+Q219 FQ207
RND RQ220 FQ28
L IX+Q218 FQ207
RND RQ220 FQ28
L IY-Q18 FQ207
RND RQ26 FQ28
L IX+Q27 IY+0 R0 FQ22
LBL 0
LBL 99
FN 9: IF +Q195 EQU +1 GOTO LBL 192
FN 3: Q200 = +Q200 * +Q30
FN 3: Q202 = +Q202 * +Q30
FN 3: Q204 = +Q204 * +Q30
LBL 0
LBL 192
L Z+Q20 F MAX
FN 9: IF +Q195 EQU +1 GOTO LBL 253
FN 0: Q15 = +0
L Z+Q19 F MAX
L IX-Q29 F MAX
LBL 0
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 253
FN 9: IF +Q176 EQU +0 GOTO LBL 254
L IX-Q29 F MAX
LBL 254
END PGM 213 MM
