BEGINPGM214MM
Q295=Q297
Q297=0
FN9:IF+Q295EQU+1GOTOLBL200
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
Q222=ABSQ222
Q223=ABSQ223
LBL200
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
FN9:IF+Q201EQU+0GOTOLBL254
FN12:IF+Q201LT+0GOTOLBL197
FN0:Q30=-1
FN9:IF+0EQU+0GOTOLBL194
LBL197
FN0:Q30=+1
LBL194
FN9:IF+Q222EQU+Q223GOTOLBL196
FN12:IF+Q222LT+Q223GOTOLBL196
FN14:ERROR=1040
LBL196
FN18:SYSREADQ2=ID200NR1
FN3:Q21=+2.1*+Q2
FN12:IF+Q21LT+Q223GOTOLBL193
FN14:ERROR=1029
LBL193
FN10:IF+Q202NE+0GOTOLBL21
FN14:ERROR=1030
LBL21
FN9:IF+Q295EQU+1GOTOLBL192
CALLLBL99
LBL192
FN4:Q17=+Q222DIV+2
FN4:Q18=+Q223DIV+2
FN0:Q1=+0.1
FN0:Q26=+Q1
FN4:Q28=+Q207DIV+1.5
FN0:Q29=+0
FN9:IF+Q222EQU+0GOTOLBL195
FN2:Q26=+Q18-+Q17
LBL190
Q29=Q18-2*Q26-2*Q2
FN11:IF+Q29GT+0GOTOLBL195
FN9:IF+Q29EQU+0GOTOLBL195
Q26=Q26/2
FN9:IF+Q26EQU+0GOTOLBL188
FN11:IF+2GT+1GOTOLBL190
LBL188
FN0:Q26=+Q1
FN0:Q29=+0
LBL195
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
FN9:IF+Q206EQU+Q207GOTOLBL5
FN0:Q22=+Q207
LBL5
FN2:Q23=+Q203-+Q202
FN2:Q24=+Q203--Q201
FN9:IF+Q295EQU+1GOTOLBL98
LZ+Q19R0FMAX
LX+Q216Y+Q217R0FMAX
LBL98
CCIX+0IY+0
LPPR+Q29PA+0FMAX
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
LPPR+Q18PA+0RLFQ22
RNDRQ26FQ28
CPIPA+360DR+FQ207
RNDRQ26FQ28
LPPR+Q29R0FQ22
LBL0
LBL99
FN9:IF+Q295EQU+1GOTOLBL191
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
LBL0
LBL191
LZ+Q20FMAX
LZ+Q19FMAX
LPPR+0PA+0FMAX
FN0:Q15=+0
LBL254
ENDPGM214MM
