BEGINPGM210MM
Q295=Q297
Q297=0
Q200=ABSQ200
Q202=ABSQ202
Q204=ABSQ204
Q215=ABSQ215
Q218=ABSQ218
Q219=ABSQ219
FN17:SYSWRITEID212=+3
FN18:SYSREADQ5=ID210NR4IDX1
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
FN11:IF+Q218GT+Q219GOTOLBL197
FN14:ERROR=1032
LBL197
FN9:IF+Q201EQU+0GOTOLBL254
FN12:IF+Q201LT+0GOTOLBL196
FN0:Q30=-1
FN9:IF+0EQU+0GOTOLBL194
LBL196
FN0:Q30=+1
LBL194
FN10:IF+Q202NE+0GOTOLBL21
FN14:ERROR=1030
LBL21
FN10:IF+Q295NE+1GOTOLBL195
FN14:ERROR=1016
LBL195
CALLLBL99
FN0:Q2=+Q215
FN18:SYSREADQ1=ID200NR1
Q27=(Q219/Q1)*Q5
FN11:IF+Q27GT+6GOTOLBL98
FN12:IF+Q27LT+2GOTOLBL97
FN9:IF+Q27EQU+2GOTOLBL200
FN9:IF+0EQU+0GOTOLBL201
LBL200
FN0:Q215=+1
LBL201
Q57=ABSQ201
Q58=ABSQ202
FN11:IF+Q57GT+Q58GOTOLBL202
Q27=Q57/2*Q30
FN9:IF+0EQU+0GOTOLBL203
LBL202
FN4:Q27=+Q202DIV+2
LBL203
FN4:Q22=+Q207DIV+2
FN1:Q29=+Q203++Q201
FN1:Q19=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL10
FN1:Q19=+Q203++Q204
LBL10
FN2:Q20=+Q203--Q200
FN1:Q28=+Q203++0
FN4:Q35=+Q218DIV+2
FN4:Q36=+Q219DIV+2
FN2:Q34=+Q36-+Q1
FN2:Q32=+Q36-+Q1
FN2:Q40=+0-+Q35
FN1:Q41=+Q40++Q1
FN1:Q23=+Q40++Q36
FN1:Q42=+0++Q35
FN2:Q43=+Q42-+Q1
FN2:Q24=+Q42-+Q36
FN1:Q44=+0++Q36
FN2:Q45=+Q44-+Q1
FN2:Q46=+0-+Q36
FN1:Q47=+Q46++Q1
FN1:Q25=+0++Q32
FN2:Q26=+0-+Q32
CYCLDEF7.0NULLPUNKT
CYCLDEF7.1IX+Q216
CYCLDEF7.2IY+Q217
CYCLDEF10.0DREHUNG
CYCLDEF10.1IROT+Q224
LZ+Q19R0FMAX
LX+Q23Y+0FMAX
LZ+Q20FMAX
FN9:IF+Q215EQU+2GOTOLBL5
LZ+Q203R0F100
FN10:IF+Q30NE-1GOTOLBL30
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL100
FN9:IF+0EQU+0GOTOLBL31
LBL30
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL100
LBL31
FN1:Q28=+Q28+-Q27
FN10:IF+Q30NE-1GOTOLBL32
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL3
FN9:IF+0EQU+0GOTOLBL33
LBL32
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL3
LBL33
LX+Q24Z+Q28FQ207
LBL12
FN1:Q28=+Q28+-Q27
FN10:IF+Q30NE-1GOTOLBL34
FN9:IF+Q28EQU+Q29GOTOLBL2
FN11:IF+Q28GT+Q29GOTOLBL2
FN9:IF+0EQU+0GOTOLBL35
LBL34
FN9:IF+Q28EQU+Q29GOTOLBL2
FN12:IF+Q28LT+Q29GOTOLBL2
LBL35
LX+Q23Z+Q28FQ207
FN1:Q28=+Q28+-Q27
FN10:IF+Q30NE-1GOTOLBL36
FN9:IF+Q28EQU+Q29GOTOLBL3
FN11:IF+Q28GT+Q29GOTOLBL3
FN9:IF+0EQU+0GOTOLBL37
LBL36
FN9:IF+Q28EQU+Q29GOTOLBL3
FN12:IF+Q28LT+Q29GOTOLBL3
LBL37
LX+Q24Y+0Z+Q28FQ207
FN10:IF+Q30NE-1GOTOLBL38
FN12:IF+Q28LT+Q29GOTOLBL12
FN9:IF+0EQU+0GOTOLBL2
LBL38
FN11:IF+Q28GT+Q29GOTOLBL12
LBL2
LX+Q23Y+0Z+Q29FQ207
LX+Q24Y+0Z+Q29FQ207
FN9:IF+0EQU+0GOTOLBL5
LBL3
LZ+Q29Y+0X+Q24FQ207
LX+Q23Y+0Z+Q29FQ207
LBL5
FN9:IF+Q215EQU+1GOTOLBL100
LX+Q25Y+0R0FQ207
LZ+Q29R0FQ207
CRX+0Y+Q45R+Q32DR+FQ22
LX+Q23Y+Q45Z+Q29FQ207
CRY+Q47X+Q23R+Q34DR+FQ207
LX+Q24Y+Q47Z+Q29FQ207
CRY+Q45X+Q24R+Q34DR+FQ207
LX+0Y+Q45Z+Q29FQ207
CTX+Q26Y+0R0FQ22
LX+0Z+Q29Y+0R0FQ207
LBL100
LZ+Q20X+0Y+0R0FMAX
LZ+Q19FMAX
CYCLDEF10.0DREHUNG
CYCLDEF10.1IROT-Q224
CYCLDEF7.0NULLPUNKT
CYCLDEF7.1IX-Q216
CYCLDEF7.2IY-Q217
FN9:IF+0EQU+0GOTOLBL99
LBL98
FN14:ERROR=1002
LBL97
FN14:ERROR=1003
LBL99
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
LBL0
FN0:Q215=+Q2
LBL254
ENDPGM210MM
