BEGINPGM211MM
Q295=Q297
Q297=0
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
Q215=ABSQ215
Q219=ABSQ219
Q244=ABSQ244
Q248=ABSQ248
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
FN11:IF+Q248GT+0GOTOLBL195
FN14:ERROR=1016
LBL195
FN9:IF+Q201EQU+0GOTOLBL254
FN12:IF+Q201LT+0GOTOLBL197
FN0:Q50=-1
FN9:IF+0EQU+0GOTOLBL194
LBL197
FN0:Q50=+1
LBL194
FN10:IF+Q295NE+1GOTOLBL196
FN14:ERROR=1016
LBL196
CALLLBL99
FN18:SYSREADQ1=ID200NR1
FN0:Q2=+Q215
Q27=(Q219/Q1)*Q5
FN11:IF+Q27GT+6GOTOLBL98
FN12:IF+Q27LT+2GOTOLBL97
FN9:IF+Q27EQU+2GOTOLBL200
FN9:IF+0EQU+0GOTOLBL201
LBL200
FN0:Q215=+1
LBL201
Q47=ABSQ201
Q48=ABSQ202
FN11:IF+Q47GT+Q48GOTOLBL202
Q27=Q47/2*Q50
FN9:IF+0EQU+0GOTOLBL203
LBL202
FN4:Q27=+Q202DIV+2
LBL203
FN4:Q22=+Q207DIV+2
FN1:Q29=+Q203++Q201
FN1:Q19=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL10
FN1:Q19=+Q203++Q204
LBL10
FN2:Q20=+Q203--Q200
FN1:Q28=+Q203++0
FN4:Q30=+Q244DIV+2
FN1:Q33=+Q245++Q248
FN4:Q36=+Q219DIV+2
FN2:Q34=+Q36-+Q1
Q34=(Q36*Q5)-Q1
Q32=(Q34/2)*Q5
FN1:Q40=+Q30++Q36
FN2:Q41=+Q30-+Q36
CCX+Q216Y+Q217
LZ+Q19R0FMAX
LPPR+Q30PA+Q245FMAX
LBL6
LZ+Q20FMAX
FN9:IF+Q215EQU+2GOTOLBL5
LZ+Q203R0F100
FN10:IF+Q50NE-1GOTOLBL30
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL100
FN9:IF+0EQU+0GOTOLBL1
LBL30
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL100
LBL1
FN1:Q28=+Q28+-Q27
FN10:IF+Q50NE-1GOTOLBL32
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL3
FN9:IF+0EQU+0GOTOLBL33
LBL32
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL3
LBL33
CPIPA+Q248Z+Q28DR+FQ207
LBL12
FN1:Q28=+Q28+-Q27
FN10:IF+Q50NE-1GOTOLBL34
FN9:IF+Q28EQU+Q29GOTOLBL2
FN11:IF+Q28GT+Q29GOTOLBL2
FN9:IF+0EQU+0GOTOLBL35
LBL34
FN9:IF+Q28EQU+Q29GOTOLBL2
FN12:IF+Q28LT+Q29GOTOLBL2
LBL35
CPIPA-Q248Z+Q28DR-FQ207
FN1:Q28=+Q28+-Q27
FN10:IF+Q50NE-1GOTOLBL36
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL3
FN9:IF+0EQU+0GOTOLBL37
LBL36
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL3
LBL37
CPIPA+Q248Z+Q28DR+FQ207
FN10:IF+Q50NE-1GOTOLBL38
FN12:IF+Q28LT+Q29GOTOLBL12
FN9:IF+0EQU+0GOTOLBL2
LBL38
FN11:IF+Q28GT+Q29GOTOLBL12
LBL2
CPPA+Q245Z+Q29DR-FQ207
CPIPA+Q248Z+Q29DR+FQ207
FN9:IF+Q215EQU+1GOTOLBL100
CPPA+Q245Z+Q29DR-FQ207
FN9:IF+0EQU+0GOTOLBL5
LBL3
CPIPA+Q248Z+Q29DR+FQ207
CPPA+Q245Z+Q29DR-FQ207
FN9:IF+Q215EQU+1GOTOLBL100
LBL5
LZ+Q29FQ207
LPPR+Q40PA+Q245RLFQ207
RNDRQ32FQ22
CPIPA+Q248DR+FQ207
CTPPR+Q41PA+Q33FQ207
CPPA+Q245DR-FQ207
CTPPR+Q40PA+Q245FQ207
RNDRQ32FQ22
LPPR+Q30PA+Q245R0FQ207
LBL100
LZ+Q20R0FMAX
LZ+Q19FMAX
LPPR+Q30PA+Q245R0FMAX
FN9:IF+0EQU+0GOTOLBL99
LBL98
FN14:ERROR=1002
LBL97
FN14:ERROR=1003
LBL99
FN3:Q200=+Q200*+Q50
FN3:Q202=+Q202*+Q50
FN3:Q204=+Q204*+Q50
LBL0
FN0:Q215=+Q2
LBL254
ENDPGM211MM
