BEGINPGM231MM
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
CALLLBL1
CALLLBL2
CALLLBL4
LX+Q31Y+Q32Z+Q33R0FQ42
LBL10
LX+Q31Y+Q32Z+Q33R0FQ207
LX+Q34Y+Q35Z+Q36R0FQ42
LX+Q34Y+Q35Z+Q38R0FMAX
FN9:IF+Q30EQU+Q46GOTOLBL99
LX+Q31Y+Q32Z+Q37R0FMAX
LIZ-Q1FMAX
LX+Q31Y+Q32Z+Q33R0FQ42
CALLLBL3
FN11:IF+Q30GT+Q46GOTOLBL99
FN9:IF+Q30EQU+Q46GOTOLBL10
FN12:IF+Q30LT+Q46GOTOLBL10
LBL1
FN0:Q30=+0
FN0:Q31=+Q225
FN0:Q32=+Q226
FN1:Q33=+Q227++0
FN0:Q34=+Q228
FN0:Q35=+Q229
FN1:Q36=+Q230++0
FN1:Q37=+Q33++Q1
FN1:Q37=+Q37++Q1
FN1:Q38=+Q36++Q1
FN1:Q38=+Q38++Q1
LBL0
LBL2
FN4:Q46=+Q240DIV+1
FN2:Q51=+Q234-+Q225
FN4:Q51=+Q51DIV+Q46
FN2:Q52=+Q235-+Q226
FN4:Q52=+Q52DIV+Q46
FN2:Q53=+Q236-+Q227
FN4:Q53=+Q53DIV+Q46
FN2:Q54=+Q231-+Q228
FN4:Q54=+Q54DIV+Q46
FN2:Q55=+Q232-+Q229
FN4:Q55=+Q55DIV+Q46
FN2:Q56=+Q233-+Q230
FN4:Q56=+Q56DIV+Q46
FN4:Q42=+Q207DIV+2
LBL0
LBL3
FN1:Q30=+Q30++1
FN1:Q31=+Q31++Q51
FN1:Q32=+Q32++Q52
FN1:Q33=+Q33++Q53
FN1:Q34=+Q34++Q54
FN1:Q35=+Q35++Q55
FN1:Q36=+Q36++Q56
FN1:Q37=+Q33++Q1
FN1:Q37=+Q37++Q1
FN1:Q38=+Q36++Q1
FN1:Q38=+Q38++Q1
FN0:Q42=+Q207
LBL0
LBL4
FN11:IF+Q227GT+Q230GOTOLBL11
FN0:Q25=+Q230
FN9:IF+0EQU+0GOTOLBL6
LBL11
FN0:Q25=+Q227
LBL6
FN11:IF+Q233GT+Q236GOTOLBL9
FN0:Q26=+Q236
FN9:IF+0EQU+0GOTOLBL8
LBL9
FN0:Q26=+Q233
LBL8
FN11:IF+Q25GT+Q26GOTOLBL12
FN0:Q27=+Q26
FN9:IF+0EQU+0GOTOLBL14
LBL12
FN0:Q27=+Q25
LBL14
FN1:Q27=+Q27++Q1
FN1:Q27=+Q27++Q1
LBL0
LBL99
LZ+Q27R0FMAX
ENDPGM231MM
