BEGINPGM230MM
Q200=ABSQ200
Q218=ABSQ218
Q219=ABSQ219
Q240=ABSQ240
FN17:SYSWRITEID212=+3
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
FN18:SYSREADQ1=ID200NR1
FN2:Q11=+Q225-+Q1
FN1:Q12=+Q226++Q1
FN0:Q13=+1
FN1:Q14=+Q225++Q218
FN1:Q14=+Q14++Q1
FN2:Q16=+Q219-+Q1
FN2:Q16=+Q16-+Q1
FN9:IF+Q240EQU+1GOTOLBL1
FN2:Q18=+Q240-+1
FN4:Q16=+Q16DIV+Q18
LBL1
FN1:Q17=+Q227++Q200
LX+Q11Y+Q12R0FMAX
LZ+Q17FMAX
LZ+Q227FQ206
LBL2
LX+Q11Y+Q12FQ209
LX+Q14FQ207
FN1:Q12=+Q12++Q16
FN1:Q13=+Q13++1
FN11:IF+Q13GT+Q240GOTOLBL99
LX+Q14Y+Q12FQ209
LX+Q11Y+Q12FQ207
FN1:Q12=+Q12++Q16
FN1:Q13=+Q13++1
FN12:IF+Q13LT+Q240GOTOLBL2
FN9:IF+Q13EQU+Q240GOTOLBL2
LBL99
LZ+Q17FMAX
ENDPGM230MM
