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
                                            ;
                                            ;
                                            ;
                                            ;=====砫 ᫮===================
                                            ;OAU
E10=PL1
                                            ;Z0
E41=DPMA
                                            ;Dp
E42=PL2
                                            ;Tp
E44=PL3
                                            ;Np
E11=PL4
                                            ;F
E25=PL5
 
E9=3


                                            ;=== ᥩ===================
$PS1=$INAX1
$PS2=$INAX2
$PS3=$INAX3
                                            ;
                                            ;
                                            ;
                                            ;
(GTA,$INAX1,4,E19)
(GTA,$INAX2,4,E18)
(BNE,E19,E18,END2)
(GTA,$INAX3,4,E19)
(BNE,E19,E18,END2)
                                            ;
                                            ;
(GTA,$INAX1,12,E31)
(GTA,$INAX2,12,E32)
(GTA,$INAX3,12,E43)
                                            ;
E61=E31+E42/2+10+PL0
E62=E31+(-E42/2-10-PL0)
E63=E32+E42/2+10+PL0
E64=E32+(-E42/2-10-PL0)
E65=E31+10+PL0
E66=E31-10-PL0
E67=E32+10+PL0
E68=E32-10-PL0
E200=DPMS
(DPT,E41,E200,E25)
                                            ;
E41=E43-E41
#SN329.BL=1
                                            ;
                                            ;
#SN329.BL=0
(TRD,E12,E13)
E120=-PL0*2
(RQP,E12,E13,KE120)
TE12.E13 M6
                                            ;
                                            ;G72 $PS3 E41 E73
                                            ;
#SN(E16).BL=0
E73=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS3 E41 RE200 E59
E73=E59
"DDD12"
G72 $PS3 E41 RE200 E59
E73=(E73+E59)/(E9-1)
"DDD11"
G72 $PS3 E41 E59
E73=(E73*(E9-1)+E59)/E9
#SN(E16).BL=1
                                            ;
                                            ;
                                            ;
E42=E73-E44
                                            ;
                                            ;
$PS1 E61
$PS3 E42
                                            ;
E120=-E120
(RQP,E12,E13,KE120)
TE12.E13 M6
                                            ;
                                            ;G72  $PS1 E65 $PS2 E32 E51
#SN(E16).BL=0
E51=0
E52=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G72 $PS1 E65 $PS2 E32 RE200 E59
E51=E59
E52=E60
"DDD22"
G72 $PS1 E65 $PS2 E32  RE200 E59
E51=(E51+E59)/(E9-1)
E52=(E52+E60)/(E9-1)
"DDD21"
G72 $PS1 E65 $PS2 E32  E59
E51=(E51*(E9-1)+E59)/E9
E52=(E52*(E9-1)+E60)/E9
#SN(E16).BL=1
                                            ;
                                            ;
                                            ;
$PS3 E43
$PS1 E62
$PS3 E42
                                            ;
                                            ;
                                            ;G72 $PS1 E66 $PS2 E32 E53
#SN(E16).BL=0
E53=0
E54=0
(BEQ,E9,1,DDD221)
(BEQ,E9,2,DDD222)
G72 $PS1 E66  $PS2 E32  RE200 E59
E53=E59
E54=E60
"DDD222"
G72 $PS1 E66  $PS2 E32 RE200 E59
E53=(E53+E59)/(E9-1)
E54=(E54+E60)/(E9-1)
"DDD221"
G72 $PS1 E66  $PS2 E32  E59
E53=(E53*(E9-1)+E59)/E9
E54=(E54*(E9-1)+E60)/E9
#SN(E16).BL=1 
                                            ;X real
E71=E51-(E51-E53)/2
                                            ;
$PS3 E43
$PS1 E71
$PS2 E63
$PS3 E42
                                            ;
                                            ;G72 $PS1 E71 $PS2 E67 E53
#SN(E16).BL=0
E51=0
E52=0
(BEQ,E9,1,DDD321)
(BEQ,E9,2,DDD322)
G72 $PS1 E71 $PS2 E67 RE200 E59
E51=E59
E52=E60
"DDD322"
G72 $PS1 E71 $PS2 E67  RE200 E59
E51=(E51+E59)/(E9-1)
E52=(E52+E60)/(E9-1)
"DDD321"
G72 $PS1 E71 $PS2 E67  E59
E51=(E51*(E9-1)+E59)/E9
E52=(E52*(E9-1)+E60)/E9
#SN(E16).BL=1
                                            ;
$PS3 E43
$PS2 E64
$PS3 E42
                                            ;
                                            ;
                                            ;G72 $PS1 E71 $PS2 E68 E51
#SN(E16).BL=0
E53=0
E54=0
(BEQ,E9,1,DDD421)
(BEQ,E9,2,DDD422)
G72 $PS1 E71 $PS2 E68  RE200 E59
E53=E59
E54=E60
"DDD422"
G72 $PS1 E71 $PS2 E68 RE200 E59
E53=(E53+E59)/(E9-1)
E54=(E54+E60)/(E9-1)
"DDD421"
G72 $PS1 E71 $PS2 E68  E59
E53=(E53*(E9-1)+E59)/E9
E54=(E54*(E9-1)+E60)/E9 
#SN(E16).BL=1
                                            ;
E72=E52-(E52-E54)/2
                                            ;
$PS3 E43
$PS2 E72
$PS1 E61
$PS3 E42
                                            ;
                                            ;
                                            ;G72 $PS1 E65 $PS2 E72  E51
#SN(E16).BL=0
E51=0
E52=0
(BEQ,E9,1,DDD521)
(BEQ,E9,2,DDD522)
G72 $PS1 E65 $PS2 E72 RE200 E59
E51=E59
E52=E60
"DDD522"
G72 $PS1 E65 $PS2 E72  RE200 E59
E51=(E51+E59)/(E9-1)
E52=(E52+E60)/(E9-1)
"DDD521"
G72 $PS1 E65 $PS2 E72  E59
E51=(E51*(E9-1)+E59)/E9
E52=(E52*(E9-1)+E60)/E9
#SN(E16).BL=1
                                            ;
                                            ;
$PS3 E43
$PS1 E62
$PS3 E42
                                            ;
                                            ;
                                            ;G72 $PS1 E66 $PS2 E72  E52
#SN(E16).BL=0 
E53=0
E54=0
(BEQ,E9,1,DDD621)
(BEQ,E9,2,DDD622)
G72 $PS1 E66 $PS2 E72  RE200 E59
E53=E59
E54=E60
"DDD622"
G72 $PS1 E66 $PS2 E72 RE200 E59
E53=(E53+E59)/(E9-1)
E54=(E54+E60)/(E9-1)
"DDD621"
G72 $PS1 E66 $PS2 E72  E59
E53=(E53*(E9-1)+E59)/E9
E54=(E54*(E9-1)+E60)/E9 
#SN(E16).BL=1
$PS3 E42
$PS3 E43
$PS1 E71
                                            ;
E71=E51-(E51-E53)/2
E74=(E51-E53)
E120=-E120
(RQP,E12,E13,KE120)
TE12.E13 M6
                                            ;
                                            ;G72 $PS3 E41 E73
#SN(E16).BL=0
E73=0
(BEQ,E9,1,DDD711)
(BEQ,E9,2,DDD712)
G72 $PS3 E41 RE200 E59
E73=E59
"DDD712"
G72 $PS3 E41 RE200 E59
E73=(E73+E59)/(E9-1)
"DDD711"
G72 $PS3 E41 E59
E73=(E73*(E9-1)+E59)/E9
#SN(E16).BL=1

E120=-E120
(RQP,E12,E13,KE120)
TE12.E13 M6

(DIS,E71," ",E72," ",E73)
ERR=1
                                            ;
                                            ;
                                            ;
                                            ;
                                            ;
                                            ;
                                            ;===== ࠬ஢=========
                                            ;
                                            ;
                                            ;
                                            ;
                                            ;
                                            ;
(DER,2,SYVAR.15CH,E350)
ERR=1
(CRE,2,PRTT/MP3,20)
(BNE,IOSTA,5,OK)
(CAN,PRTT/MP3)
(CRE,2,PRTT/MP3,20)
"OK"
(OPN,1,PRTT/MP3,W)
E350=0
SYVAR.16CH="஢ 㯠"
(WRT,1,2,1)
E350=E10
SYVAR.16CH="UAO"
(WRT,1,2,2)
                                            ;
(RQO,E10,$INAX1 0)
(RQO,E19,$INAX1 0)
(GOA,E19,$INAX1,E101)
(GOA,E10,$INAX1,E111)
(GTA,$INAX1,12,E121)
E111=-E111+E71+E101
E141=E71+E101
(RQO,E10,$INAX1 E111)
E350=E141
SYVAR.16CH=$INAX1
SYVAR2.16CH="="
(WRT,1,2,3)
                                            ;
(RQO,E10,$INAX2 0)
(RQO,E19,$INAX2 0)
(GOA,E19,$INAX2,E102)
(GOA,E10,$INAX2,E112)
(GTA,$INAX2,12,E122)
E112=-E112+E72+E102
E142=E72+E102
(RQO,E10,$INAX2 E112)
E350=E142
SYVAR.16CH=$INAX2
SYVAR2.16CH="="
(WRT,1,2,4)
                                            ;
(RQO,E10,$INAX3 0)
(RQO,E19,$INAX3 0)
(GOA,E19,$INAX3,E103)
(GOA,E10,$INAX3,E113)
(GTA,$INAX3,12,E123)
E113=-E113+E73+E103
E143=E73+E103
(RQO,E10,$INAX3 E113)
E350=E143
SYVAR.16CH=$INAX3
SYVAR2.16CH="=" 
(WRT,1,2,5)
                                            ;
(BEQ,$INAX4," ",Cloze1)
(RQO,E10,$INAX4 0)
(RQO,E19,$INAX4 0)
(GOA,E19,$INAX4,E104)
(GOA,E10,$INAX4,E114)
(GTA,$INAX4,12,E124)
E114=-E114+E104+E124
E144=E104+E124
(RQO,E10,$INAX4 E114)
(BEQ,$INAX4," ",Cloze)
E350=E144
SYVAR.16CH=$INAX4
SYVAR2.16CH="="
(WRT,1,2,6)
                                            ;
(BEQ,$INAX5," ",Cloze1)
(RQO,E10,$INAX5 0)
(RQO,E19,$INAX5 0)
(GOA,E19,$INAX5,E105)
(GOA,E10,$INAX5,E115)
(GTA,$INAX5,12,E125)
E115=-E115+E105+E125
E145=E105+E125
(RQO,E10,$INAX5 E115)
E350=E145
SYVAR.16CH=$INAX5
SYVAR2.16CH="="
(WRT,1,2,7)
                                            ;
(BEQ,$INAX6," ",Cloze1)
(RQO,E10,$INAX6 0)
(RQO,E19,$INAX6 0)
(GOA,E19,$INAX6,E106)
(GOA,E10,$INAX6,E116)
(GTA,$INAX6,12,E126)
E116=-E116+E106+E126
E146=E106+E126
(RQO,E10,$INAX6 E116)
E350=E146
SYVAR.16CH=$INAX6
SYVAR2.16CH="="
(WRT,1,2,8)
                                            ;
(BEQ,$INAX7," ",Cloze1)
(RQO,E10,$INAX7 0)
(RQO,E19,$INAX7 0)
(GOA,E19,$INAX7,E107)
(GOA,E10,$INAX7,E117)
(GTA,$INAX7,12,E127)
E117=-E117+E107+E127
E147=E107+E127
(RQO,E10,$INAX7 E117)
E350=E147
SYVAR.16CH=$INAX7
SYVAR2.16CH="="
(WRT,1,2,9)
                                            ;
(BEQ,$INAX8," ",Cloze1)
(RQO,E10,$INAX8 0)
(RQO,E19,$INAX8 0)
(GOA,E19,$INAX8,E108)
(GOA,E10,$INAX8,E118)
(GTA,$INAX8,12,E128)
E118=-E118+E108+E128
E148=E108+E128
(RQO,E10,$INAX8 E118)
E350=E148
SYVAR.16CH=$INAX8
(WRT,1,2,10)
"Cloze1"
E350=E74
SYVAR.16CH="Dp ="
(WRT,1,2,11)
E350=E11
SYVAR.16CH="Np ="
(WRT,1,2,12)
(CLO,1)
