BEGINPGM213MM
Q295=Q297
Q297=0
FN9:IF+Q295EQU+1GOTOLBL200
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
Q218=ABSQ218
Q219=ABSQ219
Q220=ABSQ220
Q221=ABSQ221
LBL200
FN17:SYSWRITEID212=+3
FN18:SYSREADQ5=ID210NR4IDX1
FN18:SYSREADQ0=ID1000NR7441
Q0=2*FRAC(Q0/2)
FN9:IF+Q0EQU+1GOTOLBL199
FN9:IF+Q110EQU+0GOTOLBL199
FN9:IF+Q110EQU+1GOTOLBL199
FN14:ERROR=1000
LBL199
FN10:IF+Q109NE-1GOTOLBL198
FN14:ERROR=1001
LBL198
FN10:IF+Q202NE+0GOTOLBL21
FN14:ERROR=1030
LBL21
FN3:Q35=+2*+Q220
FN11:IF+Q218GT+Q35GOTOLBL196
FN9:IF+Q218EQU+Q35GOTOLBL196
FN14:ERROR=1035
LBL196
FN11:IF+Q219GT+Q35GOTOLBL195
FN9:IF+Q219EQU+Q35GOTOLBL195
FN14:ERROR=1035
LBL195
FN9:IF+Q201EQU+0GOTOLBL254
FN12:IF+Q201LT+0GOTOLBL197
FN0:Q30=-1
FN9:IF+0EQU+0GOTOLBL194
LBL197
FN0:Q30=+1
LBL194
FN9:IF+Q295EQU+1GOTOLBL193
CALLLBL99
LBL193
FN18:SYSREADQ1=ID200NR1
FN3:Q21=+2.5*+Q1
FN4:Q17=+Q218DIV+2
FN4:Q18=+Q219DIV+2
FN1:Q25=+0++Q17
Q26=(Q1/2)*Q5
Q27=Q21+Q221+(2*Q26)
FN4:Q28=+Q207DIV+1.5
Q29=Q17+Q27
FN1:Q19=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL3
FN1:Q19=+Q203++Q204
LBL3
FN1:Q20=+Q203++Q200
FN0:Q22=+Q207
FN12:IF+Q206LT+Q207GOTOLBL5
FN3:Q22=+Q207*+2
LBL5
FN2:Q23=+Q203-+Q202
FN2:Q24=+Q203--Q201
FN9:IF+Q295EQU+1GOTOLBL98
LZ+Q19R0FMAX
LX+Q216Y+Q217R0FMAX
LBL98
LIX+Q29FMAX
LZ+Q20FMAX
FN10:IF+Q30NE-1GOTOLBL30
FN9:IF+Q23EQU+Q24GOTOLBL12
FN11:IF+Q23GT+Q24GOTOLBL12
FN9:IF+0EQU+0GOTOLBL10
LBL30
FN9:IF+Q23EQU+Q24GOTOLBL12
FN12:IF+Q23LT+Q24GOTOLBL12
LBL10
CALLLBL11
FN2:Q23=+Q23-+Q202
FN10:IF+Q30NE-1GOTOLBL32
FN9:IF+Q23EQU+Q24GOTOLBL12
FN11:IF+Q23GT+Q24GOTOLBL12
FN9:IF+0EQU+0GOTOLBL10
LBL32
FN9:IF+Q23EQU+Q24GOTOLBL12
FN12:IF+Q23LT+Q24GOTOLBL12
FN9:IF+0EQU+0GOTOLBL10
LBL12
FN0:Q23=+Q24
CALLLBL11
FN9:IF+0EQU+0GOTOLBL99
LBL11
LZ+Q23FQ206
LIX-Q27IY+0RLFQ22
RNDRQ26FQ28
LIY-Q18FQ207
RNDRQ220FQ28
LIX-Q218FQ207
RNDRQ220FQ28
LIY+Q219FQ207
RNDRQ220FQ28
LIX+Q218FQ207
RNDRQ220FQ28
LIY-Q18FQ207
RNDRQ26FQ28
LIX+Q27IY+0R0FQ22
LBL0
LBL99
FN9:IF+Q295EQU+1GOTOLBL192
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
LBL0
LBL192
LZ+Q20FMAX
LZ+Q19FMAX
LIX-Q29FMAX
FN0:Q15=+0
LBL0
LBL254
ENDPGM213MM
