BEGINPGM221MM
Q200=ABSQ200
Q204=ABSQ204
Q242=ABSQ242
Q243=ABSQ243
FN17:SYSWRITEID212=+3
FN18:SYSREADQ58=ID20NR11
FN18:SYSREADQ55=ID10NR3
FN10:IF+Q55NE+12GOTOLBL206
FN14:ERROR=1027
LBL206
FN10:IF+Q55NE+0GOTOLBL205
FN14:ERROR=1027
LBL205
FN10:IF+Q55NE+210GOTOLBL204
FN14:ERROR=1033
LBL204
FN10:IF+Q55NE+211GOTOLBL203
FN14:ERROR=1034
LBL203
FN10:IF+Q55NE+230GOTOLBL202
FN14:ERROR=1027
LBL202
FN10:IF+Q55NE+231GOTOLBL201
FN14:ERROR=1027
LBL201
FN11:IF+Q55GT+199GOTOLBL200
FN18:SYSREADQ56=ID30NR2
FN0:Q57=+Q201
FN0:Q201=+Q56
LBL200
FN9:IF+Q55EQU+17GOTOLBL199
FN9:IF+Q55EQU+18GOTOLBL199
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
CALLLBL99
FN0:Q41=+0
FN0:Q42=+0
FN0:Q45=+0
FN0:Q46=+0
FN0:Q43=+Q237
FN1:Q48=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL11
FN1:Q48=+Q203++Q204
LBL11
FN1:Q49=+Q203++Q200
CYCLDEF7.0NULLPUNKT
CYCLDEF7.1IX+Q225
CYCLDEF7.2IY+Q226
FN10:IF+Q58NE+0GOTOLBL2
CYCLDEF10.0DREHUNG
CYCLDEF10.1IROT+Q224
LBL2
LZ+Q48R0FMAX
FN10:IF+Q58NE+0GOTOLBL21
LX+Q41Y+Q42FMAX
FN9:IF+0EQU+0GOTOLBL22
LBL21
Q59=Q41*COSQ224-Q42*SINQ224
Q60=Q41*SINQ224+Q42*COSQ224
LX+Q59FMAX
LY+Q60FMAX
LBL22
LZ+Q49R0FMAX
FN17:SYSWRITEID212=+0
FN0:Q297=+1
CYCLCALL
FN0:Q297=+0
FN17:SYSWRITEID212=+3
FN1:Q41=+Q41++Q43
FN1:Q45=+Q45++1
FN12:IF+Q45LT+Q242GOTOLBL2
FN0:Q45=+0
FN1:Q46=+Q46++1
FN0:Q43=-Q43
FN1:Q41=+Q41++Q43
FN1:Q42=+Q42++Q238
FN12:IF+Q46LT+Q243GOTOLBL2
FN10:IF+Q58NE+0GOTOLBL98
CYCLDEF10.0DREHUNG
CYCLDEF10.1IROT-Q224
LBL98
CYCLDEF7.0NULLPUNKT
CYCLDEF7.1IX-Q225
CYCLDEF7.2IY-Q226
LZ+Q48FMAX
LBL99
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
FN3:Q205=+Q205*+Q30
FN3:Q212=+Q212*+Q30
LBL0
FN11:IF+Q55GT+199GOTOLBL254
FN0:Q201=+Q57
LBL254
ENDPGM221MM
