BEGINPGM200MM
Q295=Q297
Q297=0
FN9:IF+Q295EQU+1GOTOLBL200
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
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+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:Q27=+Q202
FN0:Q31=+Q200
LBL4
FN1:Q24=+Q203++Q201
LZ+Q20R0FMAX
Q51=ABSQ201
Q52=ABSQ202
FN9:IF+Q51EQU+Q52GOTOLBL14
LBL6
FN1:Q23=+Q23+-Q27
FN1:Q22=+Q23++Q31
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
LZ+Q20FMAX
CYCLDEF9.0VERWEILZEIT
CYCLDEF9.1V.ZEITQ210
LZ+Q22FMAX
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
LBL0
LBL193
LZ+Q24R0FQ206
LZ+Q20FMAX
LZ+Q19FMAX
LBL254
ENDPGM200MM
