(BEQ,$INAX1,$INAX2,END)
(BEQ,$INAX2,$INAX3,END)
(BEQ,$INAX1,$INAX3,END)
PR450=0
E81=0
E2=0
;======᫥  ==============
(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



;=====砫 ᫮===================
;X
E31=PL1
;Y
E32=PL2
;Z0
E30=PL3
;Z1
E37=PL4
;D
E40=PL5+DPMA
;NP
E17=PL7
;F
E25=DPMF
;R
E9=PL8
;UAO
E10=PL9
;dZ
E46=PL10


;=== ᥩ===================
$PS1="X"
$PS2="Y"
$PS3="Z"


(GTA,$INAX1,4,E19)
(GTA,$INAX2,4,E18)
(BNE,E19,E18,END)
(GTA,$INAX3,4,E19)
(BNE,E19,E18,END)


E200=DPMS
(DPT,E40,E200,E25)
E51=E40*E17

#SN(E16).BL=1
$PS3 E30

$PS1 E31 $PS2 E32

$PS3 E37

G91

(BEQ,$PS8,$PS1,XXX)
(BEQ,$PS8,$PS2,YYY)
(BEQ,$PS8,$PS3,ZZZ)
(BNC,END2)
;G72 $PS6 E35 E61

"XXX"
E61=0
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 E51 $PS2 0 RE200 E59
E61=E59
E62=E60
"DDD12"
G72 $PS1 E51 $PS2 0 RE200 E59
E61=(E61+E59)/(E9-1)
E62=(E62+E60)/(E9-1)
"DDD11"
G72 $PS1 E51 $PS2 0 E59
E61=(E61*(E9-1)+E59)/E9
E62=(E62*(E9-1)+E60)/E9
G90
$PS1 E31 $PS2 E32
#SN(E16).BL=1
PR450=E61
(BNC,EN)
"YYY"
E61=0
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 0 $PS2 E51 RE200 E59
E61=E59
E62=E60
"DDD12"
G72 $PS1 0 $PS2 E51 RE200 E59
E61=(E61+E59)/(E9-1)
E62=(E62+E60)/(E9-1)
"DDD11"
G72 $PS1 0 $PS2 E51 E59
E61=(E61*(E9-1)+E59)/E9
E62=(E62*(E9-1)+E60)/E9
G90
$PS1 E31 $PS2 E32
#SN(E16).BL=1
PR450=E62
(BNC,EN)

"ZZZ"
E61=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS3 E51 RE200 E59
E61=E59
"DDD12"
G72 $PS3 E51 RE200 E59
E61=(E61+E59)/(E9-1)
"DDD11"
G72 $PS3 E51 E59
E61=(E61*(E9-1)+E59)/E9
G90
$PS3 E37
#SN(E16).BL=1
PR450=E61


"EN"
$PS3 E30


(BEQ,$PS8,$PS1,XXX1)
(BEQ,$PS8,$PS2,YYY1)
(BEQ,$PS8,$PS3,ZZZ1)

"XXX1"
(RQO,E10,$INAX1 0)
(GOA,E19,$INAX1,E101)
(GOA,E10,$INAX1,E111)
E111=-E111+E101+PR450+E46

(RQO,E10,$INAX1 E111)
(BNC,CLOZE)

"YYY1"
(RQO,E10,$INAX2 0)
(GOA,E19,$INAX2,E102)
(GOA,E10,$INAX2,E112)
E112=-E112+E102+PR450+E46
(RQO,E10,$INAX2 E112)
(BNC,CLOZE)

"ZZZ1"
(RQO,E10,$INAX3 0)
(GOA,E19,$INAX3,E103)
(GOA,E10,$INAX3,E113)
E113=-E113+E103+PR450+E46
(RQO,E10,$INAX3 E113)

"CLOZE"

(BNC,END2)
"END"
(DIS,"訡 䨣樨 ᥩ")

"END2"
