BEGINPGM220MM
Q200=ABSQ200
Q204=ABSQ204
Q241=ABSQ241
Q244=ABSQ244
Q250=ABSQ250
Q251=ABSQ251
Q252=ABSQ252
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
FN11:IF+Q241GT+0GOTOLBL197
FN14:ERROR=1017
LBL197
FN9:IF+Q55EQU+204GOTOLBL192
FN9:IF+Q201EQU+0GOTOLBL254
FN12:IF+Q201LT+0GOTOLBL196
FN0:Q30=-1
FN9:IF+0EQU+0GOTOLBL190
LBL196
FN0:Q30=+1
FN9:IF+0EQU+0GOTOLBL190
LBL192
FN9:IF+Q249EQU+0GOTOLBL254
FN12:IF+Q249LT+0GOTOLBL195
FN0:Q30=+1
FN9:IF+0EQU+0GOTOLBL190
LBL195
FN0:Q30=-1
LBL190
FN10:IF+Q245NE+Q246GOTOLBL194
FN14:ERROR=1038
LBL194
FN10:IF+Q247NE+0GOTOLBL193
Q50=ABS(Q246-Q245)
FN12:IF+Q50LT+360.0001GOTOLBL193
FN14:ERROR=1039
LBL193
CALLLBL99
FN4:Q43=+Q244DIV+2
FN0:Q44=+Q245
FN1:Q40=+Q246+-Q245
FN8:Q41=+Q40LEN+0
FN0:Q45=+Q241
FN0:Q47=+Q247
FN0:Q53=+Q216
FN0:Q54=+Q217
FN9:IF+Q241EQU+1GOTOLBL4
FN9:IF+Q41EQU+360GOTOLBL4
FN2:Q45=+Q45-+1
LBL4
FN10:IF+Q47NE+0GOTOLBL5
FN4:Q47=+Q40DIV+Q45
LBL5
FN0:Q46=+1
FN1:Q48=+Q203++Q200
Q51=ABSQ200
Q52=ABSQ204
FN11:IF+Q51GT+Q52GOTOLBL11
FN1:Q48=+Q203++Q204
LBL11
FN1:Q49=+Q203++Q200
LZ+Q48R0FMAX
FN10:IF+Q58NE+0GOTOLBL111
CCX+Q53Y+Q54
LPPR+Q43PA+Q44FMAX
FN9:IF+0EQU+0GOTOLBL112
LBL111
Q59=COSQ44*Q43+Q53
Q60=SINQ44*Q43+Q54
LX+Q59FMAX
LY+Q60FMAX
LBL112
LZ+Q49FMAX
FN17:SYSWRITEID212=+0
FN0:Q297=+1
CYCLCALL
FN0:Q297=+0
FN17:SYSWRITEID212=+3
FN9:IF+Q241EQU+1GOTOLBL98
CCX+Q53Y+Q54
LBL12
FN1:Q44=+Q44++Q47
FN1:Q46=+Q46++1
LZ+Q48FMAX
FN10:IF+Q58NE+0GOTOLBL121
LPPR+Q43PA+Q44FMAX
FN9:IF+0EQU+0GOTOLBL122
LBL121
Q59=COSQ44*Q43+Q53
Q60=SINQ44*Q43+Q54
LX+Q59FMAX
LY+Q60FMAX
LBL122
LZ+Q49FMAX
FN17:SYSWRITEID212=+0
FN0:Q297=+1
CYCLCALL
FN0:Q297=+0
FN17:SYSWRITEID212=+3
CCX+Q53Y+Q54
FN12:IF+Q46LT+Q241GOTOLBL12
LBL98
LZ+Q48FMAX
LBL99
FN3:Q200=+Q200*+Q30
FN3:Q202=+Q202*+Q30
FN3:Q204=+Q204*+Q30
FN3:Q205=+Q205*+Q30
FN3:Q212=+Q212*+Q30
FN3:Q250=+Q250*+Q30
FN3:Q252=+Q252*+Q30
LBL0
FN0:Q216=+Q53
FN0:Q217=+Q54
FN11:IF+Q55GT+199GOTOLBL254
FN0:Q201=+Q57
LBL254
ENDPGM220MM
