(BEQ,$INAX1,$INAX2,END)
(BEQ,$INAX2,$INAX3,END)
(BEQ,$INAX1,$INAX3,END)

PR451=0
PR452=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


;=====砫 ᫮===================
;X1
E31=PL1
;Y1
E32=PL2
;X2
E33=PL3
;Y2
E34=PL4
;X3
E41=PL5
;Y3
E42=PL6
;X4
E35=PL7
;Y4
E36=PL8
;Z0
E30=PL9
;Z1
E37=PL10
;D
E40=DPMA
;F
E25=DPMF
;R
E9=PL11
;UAO
E10=PL12
;P
E1=PL13
;dZ
E46=PL14
;dX
E47=PL15
;dY
E48=PL16
;=== ᥩ===================
$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)


E51=E31+E40*COS(0)
E52=E32+E40*SIN(0)

E53=E31+E40*COS(120)
E54=E32+E40*SIN(120)

E55=E31+E40*COS(240)
E56=E32+E40*SIN(240)

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

$PS3 E30
$PS1 E31 $PS2 E32
$PS3 E37

#SN(E16).BL=0

E71=0
E72=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=E59
E72=E60
"DDD12"
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD11"
G72 $PS1 E51 $PS2 E52 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
$PS1 E31 $PS2 E32 

#SN(E16).BL=0

E73=0
E74=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=E59
E74=E60
"DDD22"
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD21"
G72 $PS1 E53 $PS2 E54 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
$PS1 E31 $PS2 E32 

E75=0
E76=0
(BEQ,E9,1,DDD31)
(BEQ,E9,2,DDD32)
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=E59
E76=E60
"DDD32"
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD31"
G72 $PS1 E55 $PS2 E56 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
$PS1 E31 $PS2 E32 
 
#SN(E16).BL=1

p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c1=p1,p2,p3

$PS3 E30


E51=E33+E40*COS(0)
E52=E34+E40*SIN(0)

E53=E33+E40*COS(120)
E54=E34+E40*SIN(120)

E55=E33+E40*COS(240)
E56=E34+E40*SIN(240)

$PS1 E33 $PS2 E34 
$PS3 E37

#SN(E16).BL=0

E71=0
E72=0
(BEQ,E9,1,DDD41)
(BEQ,E9,2,DDD42)
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=E59
E72=E60
"DDD42"
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD41"
G72 $PS1 E51 $PS2 E52 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
$PS1 E33 $PS2 E34 

#SN(E16).BL=0

E73=0
E74=0
(BEQ,E9,1,DDD51)
(BEQ,E9,2,DDD52)
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=E59
E74=E60
"DDD52"
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD51"
G72 $PS1 E53 $PS2 E54 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
$PS1 E33 $PS2 E34 

E75=0
E76=0
(BEQ,E9,1,DDD61)
(BEQ,E9,2,DDD62)
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=E59
E76=E60
"DDD62"
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD61"
G72 $PS1 E55 $PS2 E56 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
$PS1 E33 $PS2 E34 
 
#SN(E16).BL=1

p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c2=p1,p2,p3

$PS3 E30

E51=E35+E40*COS(0)
E52=E36+E40*SIN(0)

E53=E35+E40*COS(120)
E54=E36+E40*SIN(120)

E55=E35+E40*COS(240)
E56=E36+E40*SIN(240)

$PS1 E35 $PS2 E36 
$PS3 E37

#SN(E16).BL=0

E71=0
E72=0
(BEQ,E9,1,DDD71)
(BEQ,E9,2,DDD72)
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=E59
E72=E60
"DDD72"
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD71"
G72 $PS1 E51 $PS2 E52 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
$PS1 E35 $PS2 E36 

#SN(E16).BL=0

E73=0
E74=0
(BEQ,E9,1,DDD81)
(BEQ,E9,2,DDD82)
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=E59
E74=E60
"DDD82"
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD81"
G72 $PS1 E53 $PS2 E54 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
$PS1 E35 $PS2 E36 

E75=0
E76=0
(BEQ,E9,1,DDD91)
(BEQ,E9,2,DDD92)
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=E59
E76=E60
"DDD92"
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD91"
G72 $PS1 E55 $PS2 E56 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
$PS1 E35 $PS2 E36 
 
#SN(E16).BL=1

p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c3=p1,p2,p3

$PS3 E30

E51=E41+E40*COS(0)
E52=E42+E40*SIN(0)

E53=E41+E40*COS(120)
E54=E42+E40*SIN(120)

E55=E41+E40*COS(240)
E56=E42+E40*SIN(240)

$PS1 E41 $PS2 E42 
$PS3 E37

#SN(E16).BL=0

E71=0
E72=0
(BEQ,E9,1,DDD101)
(BEQ,E9,2,DDD102)
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=E59
E72=E60
"DDD102"
G72 $PS1 E51 $PS2 E52 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD101"
G72 $PS1 E51 $PS2 E52 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
$PS1 E41 $PS2 E42  

#SN(E16).BL=0

E73=0
E74=0
(BEQ,E9,1,DDD111)
(BEQ,E9,2,DDD112)
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=E59
E74=E60
"DDD112"
G72 $PS1 E53 $PS2 E54 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD111"
G72 $PS1 E53 $PS2 E54 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
$PS1 E41 $PS2 E42 

E75=0
E76=0
(BEQ,E9,1,DDD121)
(BEQ,E9,2,DDD122)
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=E59
E76=E60
"DDD122"
G72 $PS1 E55 $PS2 E56 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD121"
G72 $PS1 E55 $PS2 E56 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
$PS1 E41 $PS2 E42 
 
#SN(E16).BL=1

p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c4=p1,p2,p3


E81=FEC(1,1)
E82=FEC(1,2)

E83=FEC(2,1)
E84=FEC(2,2)

E85=FEC(3,1)
E86=FEC(3,2)

E87=FEC(4,1)
E88=FEC(4,2)

p1=XE81 YE82
p2=XE83 YE84
p3=XE85 YE86
p4=XE87 YE88

l1=p1,p3
l2=p2,p4

p1=l1,l2

E81=FEP(1,1)
E82=FEP(1,2)

"en"
;======࠭ ६==========

PR451=E81
PR452=E82

;================================================

(RQO,E10,$INAX1 0)
(GOA,E19,$INAX1,E101)
(GOA,E10,$INAX1,E111)
(GTA,$INAX1,12,E121)
E111=-E111+E101+PR451+E44
"RQO1"
(RQO,E10,$INAX1 E111)

(RQO,E10,$INAX2 0)
(GOA,E19,$INAX2,E102)
(GOA,E10,$INAX2,E112)
(GTA,$INAX2,12,E122)
E112=-E112+E102+PR452+E47
"RQO2"
(RQO,E10,$INAX2 E112)

(RQO,E10,$INAX3 0)
(GOA,E19,$INAX3,E103)
(GOA,E10,$INAX3,E113)
(GTA,$INAX3,12,E123)
(BEQ,E1,0,03)
(BEQ,E1,1,13)
(BEQ,E1,2,23)
"03"
E113=-E113
(BNC,RQO3)
"13"
E113=0
(BNC,RQO3)
"23"
E113=-E113+E103+E123
"RQO3"
(RQO,E10,$INAX3 E113)

(BEQ,$INAX4," ",Cloze1)
(RQO,E10,$INAX4 0)
(GOA,E19,$INAX4,E104)
(GOA,E10,$INAX4,E114)
(GTA,$INAX4,12,E124)
(BEQ,E2,0,04)
(BEQ,E2,1,14)
(BEQ,E2,2,24)
"04"
E114=-E114
(BNC,RQO4)
"14"
E114=0
(BNC,RQO4)
"24"
E114=-E114+E104+E124
"RQO4"
(RQO,E10,$INAX4 E114)

(BEQ,$INAX5," ",Cloze1)
(RQO,E10,$INAX5 0)
(GOA,E19,$INAX5,E105)
(GOA,E10,$INAX5,E115)
(GTA,$INAX5,12,E125)
(BEQ,E2,0,05)
(BEQ,E2,1,15)
(BEQ,E2,2,25)
"05"
E115=-E115
(BNC,RQO5)
"15"
E115=0
(BNC,RQO5)
"25"
E115=-E115+E105+E125
"RQO5"
(RQO,E10,$INAX5 E115)

(BEQ,$INAX6," ",Cloze1)
(RQO,E10,$INAX6 0)
(GOA,E19,$INAX6,E106)
(GOA,E10,$INAX6,E116)
(GTA,$INAX6,12,E126)
(BEQ,E2,0,06)
(BEQ,E2,1,16)
(BEQ,E2,2,26)
"06"
E116=-E116
(BNC,RQO4)
"16"
E116=0
(BNC,RQO6)
"26"
E116=-E116+E106+E126
"RQO6"
(RQO,E10,$INAX6 E116)

(BEQ,$INAX7," ",Cloze1)
(RQO,E10,$INAX7 0)
(GOA,E19,$INAX7,E107)
(GOA,E10,$INAX7,E117)
(GTA,$INAX7,12,E127)
(BEQ,E2,0,07)
(BEQ,E2,1,17)
(BEQ,E2,2,27)
"07"
E117=-E117
(BNC,RQO7)
"17"
E117=0
(BNC,RQO7)
"27"
E117=-E117+E107+E127
"RQO7"
(RQO,E10,$INAX7 E117)

(BEQ,$INAX8," ",Cloze1)
(RQO,E10,$INAX8 0)
(GOA,E19,$INAX8,E108)
(GOA,E10,$INAX8,E118)
(GTA,$INAX8,12,E128)
(BEQ,E2,0,08)
(BEQ,E2,1,18)
(BEQ,E2,2,28)
"08"
E118=-E118
(BNC,RQO8)
"18"
E118=0
(BNC,RQO8)
"28"
E118=-E118+E108+E128
"RQO8"
(RQO,E10,$INAX8 E118)

"Cloze1"

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

"END2"