BEGINPGM203MM
Q295=Q297
Q297=0
FN9:IF+Q295EQU+1GOTOLBL200
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
Q205=ABSQ205
Q212=ABSQ212
Q213=ABSQ213
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+0GOTOLBL196
LBL197
FN0:Q30=+1
LBL196
FN9:IF+Q212EQU+0GOTOLBL195
FN10:IF+Q205NE+0GOTOLBL195
FN14:ERROR=1031
LBL195
FN9:IF+Q295EQU+1GOTOLBL194
CALLLBL14
LBL194
FN1:Q19=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL2
FN1:Q19=+Q203++Q204
LBL2
FN10:IF+Q202NE+0GOTOLBL21
FN14:ERROR=1030
LBL21
FN1:Q20=+Q203++Q200
FN0:Q23=+Q203
FN0:Q26=+Q206
FN9:IF+Q208EQU+0GOTOLBL3
FN0:Q26=+Q208
LBL3
FN0:Q27=+Q202
FN0:Q31=+Q200
LBL4
FN0:Q25=+0
FN1:Q24=+Q203++Q201
LZ+Q20R0FMAX
Q51=ABSQ201
Q52=ABSQ202
FN9:IF+Q51EQU+Q52GOTOLBL14
LBL6
FN9:IF+Q205EQU+0GOTOLBL8
FN9:IF+Q212EQU+0GOTOLBL8
FN9:IF+Q30EQU-1GOTOLBL9
FN11:IF+Q27GT+Q205GOTOLBL8
FN0:Q27=+Q205
FN9:IF+0EQU+0GOTOLBL8
LBL9
FN12:IF+Q27LT+Q205GOTOLBL8
FN0:Q27=+Q205
LBL8
FN1:Q23=+Q23+-Q27
FN1:Q22=+Q23++Q31
FN2:Q27=+Q27-+Q212
FN10:IF+Q30NE-1GOTOLBL30
FN11:IF+Q23GT+Q24GOTOLBL14
FN9:IF+Q23EQU+Q24GOTOLBL14
FN9:IF+0EQU+0GOTOLBL31
LBL30
FN12:IF+Q23LT+Q24GOTOLBL14
FN9:IF+Q23EQU+Q24GOTOLBL14
LBL31
LZ+Q23FQ206
FN12:IF+Q25LT+Q213GOTOLBL10
LZ+Q20FQ26
CYCLDEF9.0VERWEILZEIT
CYCLDEF9.1V.ZEITQ210
FN0:Q25=-1
LBL10
LZ+Q22FMAX
FN1:Q25=+Q25++1
FN10:IF+Q30NE-1GOTOLBL32
FN12:IF+Q23LT+Q24GOTOLBL6
FN11:IF+0GT+0GOTOLBL14
LBL32
FN11:IF+Q23GT+Q24GOTOLBL6
LBL14
FN9:IF+Q295EQU+1GOTOLBL193
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
FN3:Q205=+Q205*+Q30
FN3:Q212=+Q212*+Q30
LBL0
LBL193
LZ+Q24R0FQ206
CYCLDEF9.0VERWEILZEIT
CYCLDEF9.1V.ZEITQ211
LZ+Q20FQ26
LZ+Q19FMAX
LBL254
ENDPGM203MM
