BEGINPGM201MM
Q295=Q297
Q297=0
FN9:IF+Q295EQU+1GOTOLBL200
Q200=ABSQ200
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+0GOTOLBL194
LBL197
FN0:Q30=+1
LBL194
FN9:IF+Q295EQU+1GOTOLBL193
CALLLBL4
LBL193
FN1:Q19=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL2
FN1:Q19=+Q203++Q204
LBL2
FN1:Q20=+Q203++Q200
FN1:Q24=+Q203++Q201
FN0:Q25=+Q208
FN10:IF+Q208NE+0GOTOLBL4
FN0:Q25=+Q206
LBL4
FN9:IF+Q295EQU+1GOTOLBL192
FN3:Q200=+Q200*+Q30
FN3:Q204=+Q204*+Q30
LBL0
LBL192
LZ+Q20R0FMAX
LZ+Q24R0FQ206
CYCLDEF9.0VERWEILZEIT
CYCLDEF9.1V.ZEITQ211
LZ+Q20R0FQ25
LZ+Q19R0FMAX
LBL254
ENDPGM201MM
