BEGINPGMINIT25XMM
Q371=ABSQ371
Q373=ABSQ373
Q370=ABSQ370
Q366=ABSQ366
Q219=ABSQ219
Q268=ABSQ268
Q269=ABSQ269
FN17:SYSWRITEID212=+3
Q0=ABSQ201
;FN11:IF+Q0GT+Q369GOTOLBL19
;FN9:IF+Q0EQU+Q369GOTOLBL19
;FN14:ERROR=1086
;LBL19
;FN18:SYSREADQ0=ID1000NR7441
;Q0=2*FRAC(Q0/2)
;FN9:IF+Q0EQU+1GOTOLBL10
;FN9:IF+Q110EQU+0GOTOLBL10
;FN9:IF+Q110EQU+1GOTOLBL10
;FN14:ERROR=1000
;LBL10
;FN18:SYSREADQ0=ID1000NR7441
;Q0=8*FRAC(Q0/8)
;FN12:IF+Q0LT+4GOTOLBL11
;FN12:IF+Q201LT+0GOTOLBL11
;FN9:IF+Q201EQU+0GOTOLBL11
;FN14:ERROR=1077
CALL PGM CHECK_MP7441
LBL11
FN10:IF+Q109NE-1GOTOLBL12
FN14:ERROR=1001
LBL12
;FN18:SYSREADQ0=ID56NR1
;FN10:IF+Q0NE-1GOTOLBL20
FN9:IF+0EQU+0GOTOLBL20
FN9:IF+Q366EQU+0GOTOLBL17
FN14:ERROR=1083
LBL20
FN 18: SYSREAD QL0 = ID 50 NR 2
FN 11: IF +QL0 GT +0 GOTO LBL "End_ToolR"
    FN 14: ERROR= 1002
LBL "End_ToolR"
FN10:IF+Q194NE+53GOTOLBL16
FN18:SYSREADQ0=ID200NR1
FN18:SYSREADQ2=ID210NR4IDX2
Q0=ABS(2*Q0)
Q1=(Q219-2*Q368)*Q2
FN11:IF+Q1GT+Q0GOTOLBL16
FN9:IF+Q1EQU+Q0GOTOLBL16
FN14:ERROR=1003
LBL16
FN10:IF+Q194NE+54GOTOLBL17
FN18:SYSREADQ0=ID200NR1
FN18:SYSREADQ2=ID210NR4IDX2
Q0=ABS(2*Q0)
Q1=(Q219-2*Q368)*Q2
FN11:IF+Q1GT+Q0GOTOLBL17
FN9:IF+Q1EQU+Q0GOTOLBL17
FN14:ERROR=1003
LBL17
FN10:IF+Q194NE+51GOTOLBL18
FN18:SYSREADQ0=ID200NR1
FN11:IF+Q220GT+Q0GOTOLBL18
FN9:IF+Q220EQU+Q0GOTOLBL18
FN9:IF+Q220EQU+0GOTOLBL18
FN14:ERROR=1003
LBL18
ENDPGMINIT25XMM
