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
E17=(10+26*E15)*32+2
E18=26*E15*32+28
                                            ;===== ===================
                                            ;
                                            ;P
E1=PL1
                                            ;
E32=PL2
                                            ;Z0
E31=DPMA
                                            ;Tp
E91=-PL3
                                            ;S
E26=PL4
                                            ;F
E25=PL5
E200=DPMS
                                            ;
E9=3
                                            ;
$PS1=$INAX1
$PS2=$INAX2
$PS3=$INAX3
                                            ;
                                            ;
(TRD,E12,E13)
(DER,1,SYVAR.15CH,E201)
(OPN,1,PRTT/MP3,W)
ERR=1
(BGT,IOSTA,0,ERROPN)
ERR=0
(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,E14)
                                            ;
                                            ;
(UAO,E10)
G0 $PS3 E30
                                            ;
                                            ;
                                            ;=======================================================
                                            ;
                                            ;
$PS1 0 $PS2 0
$PS3 E31
                                            ;
(BEQ,E26,0,SSS)
SE26 M4
"SSS"
                                            ;
                                            ;
E107=PL0+E33/2+10
E108=-PL0-E33/2-10
E109=E33/2
E110=-E33/2
                                            ;
E120=-2*PL0
(RQP,E12,E13,KE120)
TE12.E13 M6
                                            ;
(DPT,E107,E200,E25)
                                            ;
                                            ;
(BEQ,E11,1,X11)
(BEQ,E11,2,X12)
(BEQ,E11,3,X13)
(BEQ,E11,4,X14)
                                            ;
"X11"
$PS2 E107
$PS3 E91
                                            ;
                                            ;G74 $PS2 E109 RE200 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E109  RE200 E59
E61=E59
"DDD12"
G74 $PS2 E109  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS2 E109  E59
E61=(E61*(E9-1)+E59)/E9
(BNC,Q)
                                            ;
"X12"
$PS1 E107
$PS3 E91
                                            ;G74 $PS1 E109 RE200 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS1 E109  RE200 E59
E61=E59
"DDD12"
G74 $PS1 E109  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS1 E109  E59
E61=(E61*(E9-1)+E59)/E9
#SN(E16).BL=1
                                            ;
(BNC,Q)
                                            ;
"X13"
$PS2 E108
$PS3 E91
                                            ;G74 $PS2 E110 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS2 E110  RE200 E59
E61=E59
"DDD12"
G74 $PS2 E110  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS2 E110  E59
E61=(E61*(E9-1)+E59)/E9
#SN(E16).BL=1
(BNC,Q)
                                            ;
"X14"
$PS1 E108
$PS3 E91
                                            ;G74 $PS1 E110 E61
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G74 $PS1 E110  RE200 E59
E61=E59
"DDD12"
G74 $PS1 E110  RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G74 $PS1 E110  E59
E61=(E61*(E9-1)+E59)/E9
#SN(E16).BL=1
                                            ;
                                            ;
"Q"
                                            ;
M5
$PS3 E31
$PS1 0 $PS2 0
E61=E61*2
                                            ;
(BEQ,E1,1,PQ1)
(RQR,E12,E13,K,c0,m E32)
(RQP,E12,E13,KE61)
(BNC,END)
"PQ1"
(RQU,E12,E13,KE61)
"END"
(CLO,2)
G0 $PS3 E30
(UAO,E14)
         