SYVAR185.15CH="    1.02"
                                            ;
                                            ;======  ==============
(BGE,SK25,80,5)
(BGE,SK25,80,4)
(BGE,SK25,80,3)
(BGE,SK25,80,2)
E15=0
(BNC,PROEND)
"2"
E15=1
(BNC,PROEND)
"3"
E15=2
(BNC,PROEND)
"4"
E15=3
(BNC,PROEND)
"5"
E15=4
"PROEND"
E16=(10+26*E15)*32+9
                                            ;
                                            ;===== ===================
                                            ;P
E1=PL1
                                            ;mZ
E35=PL2
                                            ;mK
E36=PL3
                                            ;Z0
E30=PL4
                                            ;Z1
E31=DPMA
                                            ;Tp
E32=-PL4
                                            ;Q
E37=PL5
E37
                                            ;S
E26=PL6
                                            ;F
E25=PL7
E200=DPMS
E9=3
$PS1=$INAX1
$PS2=$INAX2
$PS3=$INAX3
                                            ;
                                            ;
                                            ;Np
E11=PL5
                                            ;
(DER,1,SYVAR.15CH,E201)
(OPN,1,PRTT/MP3,W)
                                            ;
(RED,1,1,2)
E10=E201
(RED,1,1,11)
E33=E201
E34=E33/2+10
(RED,1,1,12)
                                            ;Np
E11=E201
(CLO,1)
                                            ;
                                            ;
(GTA,X,4,E3)
E14=E3
                                            ;
                                            ;
(UAO,E10)
G0 $PS3 E30
(TRD,E12,E13)
                                            ;
                                            ;=======================================================
"BEGIN"
                                            ;
$PS1 0 $PS2 0
$PS3 E31
                                            ;
(BEQ,E26,0,SSS)
SE26 M4
"SSS"
                                            ;
                                            ;
E107=E37
E108=-E37
                                            ;
E109=E33/2
E110=-E33/2
                                            ;
E117=PL0+E33/2+10
E118=-PL0-E33/2-10
                                            ;
E120=-2*PL0
(RQP,E12,E13,KE120)
TE12.E13 M6
                                            ;
(DPT,E117,E200,E25)
                                            ;
(BEQ,E11,1,X11)
(BEQ,E11,2,X12)
(BEQ,E11,3,X13)
(BEQ,E11,4,X14)
"X11"
(BEQ,E37,0,Q1)
$PS2 E107
"Q1"
                                            ;G74 $PS3 0 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS3 0  RE200 E59
E61=E59
"DDD12"
G74 $PS3 0  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS3 0 E59
E61=(E61*(E9-1)+E59)/E9
                                            ;
                                            ;
$PS2 E117
$PS3 E32
                                            ;G74 $PS2 E109 E62
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E109  RE200 E59
E62=E59
"DDD12"
G74 $PS2 E109  RE200 E59
E62=(E62+E59)/(E9-1)
"DDD11"
G74 $PS2 E109 E59
E62=(E62*(E9-1)+E59)/E9
                                            ;
$PS3 E31
(BNC,Q)
                                            ;
"X12"
(BEQ,E37,0,Q2)
$PS1 E107
"Q2"
                                            ;G74 $PS3 0 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS3 0  RE200 E59
E61=E59
"DDD12"
G74 $PS3 0  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS3 0 E59
E61=(E61*(E9-1)+E59)/E9
$PS1 E117
$PS3 E32
                                            ;G74 $PS1 E109 E62
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E109  RE200 E59
E62=E59
"DDD12"
G74 $PS2 E109  RE200 E59
E62=(E62+E59)/(E9-1)
"DDD11"
G74 $PS2 E109 E59
E62=(E62*(E9-1)+E59)/E9
$PS3 E31
(BNC,Q)
                                            ;
"X13"
(BEQ,E37,0,Q3)
$PS2 E108
"Q3"
                                            ;G74 $PS3 0 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS3 0  RE200 E59
E61=E59
"DDD12"
G74 $PS3 0  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS3 0 E59
E61=(E61*(E9-1)+E59)/E9
$PS2 E118
$PS3 E32
                                            ;G74 $PS2 E110 E62
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E110  RE200 E59
E62=E59
"DDD12"
G74 $PS2 E110  RE200 E59
E62=(E62+E59)/(E9-1)
"DDD11"
G74 $PS2 E110 E59
E62=(E62*(E9-1)+E59)/E9
$PS3 E31
(BNC,Q)
                                            ;
"X14"
(BEQ,E37,0,Q4)
$PS1 E108
"Q4"
                                            ;G74 $PS3 0 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS3 0  RE200 E59
E61=E59
"DDD12"
G74 $PS3 0  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS3 0 E59
E61=(E61*(E9-1)+E59)/E9
$PS1 E118
$PS3 E32
                                            ;G74 $PS1 E110 E62
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS1 E110  RE200 E59
E62=E59
"DDD12"
G74 $PS1 E110  RE200 E59
E62=(E62+E59)/(E9-1)
"DDD11"
G74 $PS1 E110 E59
E62=(E62*(E9-1)+E59)/E9
$PS3 E31
                                            ;
                                            ;
"Q"
M5
                                            ;
$PS3 E31
$PS1 0 $PS2 0
                                            ;
E62=E62*2
(BEQ,E1,1,PQ1)
(RQR,E12,E13,Z,c0,m E35)
(RQR,E12,E13,K,c0,m E36)
(RQP,E12,E13,ZE61)
(RQP,E12,E13,KE62)
(BNC,END)
"PQ1"
(RQU,E12,E13,ZE61)
(RQU,E12,E13,KE62)
"END"
G0 $PS3 E30
(UAO,E14)
