(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)
;F
E25=DPMF
;R
E9=PL6
;UAO
E10=PL7
;dZ
E46=PL8


;=== ᥩ===================
$PS1=$INAX1
$PS2=$INAX2
$PS3=$INAX3


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


E200=DPMS
(DPT,40,E200,E25)


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

$PS1 E31 $PS2 E32

$PS3 E37

G91


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


"EN"
$PS3 E30


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


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

"END2"
