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
E30=PL3
                                            ;Z1
E31=DPMA
                                            ;Q
E33=PL4

                                            ;S
E26=PL5
                                            ;F
E25=PL6
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,12)
                                            ;Np
E11=E201
(CLO,1)
(GTA,X,4,E14)
                                            ;
                                            ;
(UAO,E10)
G0 $PS3 E30
(DPT,E31,E200,E25)
                                            ;
                                            ;
$PS1 0 $PS2 0
$PS3 E31
E107=E33
E108=-E33
(BEQ,E33,0,Q)
(BEQ,E11,1,X11)
(BEQ,E11,2,X12)
(BEQ,E11,3,X13)
(BEQ,E11,4,X14)
"X11"
$PS2 E107
(BNC,Q)
"X12"
$PS1 E107
(BNC,Q)
"X13"
$PS2 E108
(BNC,Q)
"X14"
$PS1 E108
                                            ;
"Q"
(BEQ,E26,0,SSS)
SE26 M4
                                            ;
                                            ;
"SSS"
                                            ;G74 $PS3 0 E61
                                            ;
#SN(E16).BL=0
E73=0
G74 $PS3 0 RE200 E59
E73=E59
G74 $PS3 0 RE200 E59
E73=(E73+E59)/(E9-1)
G74 $PS3 0 E59
E73=(E73*(E9-1)+E59)/E9
#SN(E16).BL=1
                                            ;
                                            ;
M5
$PS3 E31
                                            ;
$PS1 0 $PS2 0
                                            ;
(BEQ,E1,1,PQ1)
(RQR,E12,E13,Z,c0,m E32)
(RQP,E12,E13,ZE73)
(BNC,END)
"PQ1"
(RQU,E12,E13,ZE73)
"END"
G0 $PS3 E30
(UAO,E14)
