(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



;=====砫 ᫮===================
;X
E31=PL1
;dX
E41=PL2
;Y
E32=PL3
;dY
E42=PL4
;Q
E7=PL5
;Z0
E30=PL6
;Z1
E37=PL7
;D
E40=PL8+DPMA
;F
E25=DPMF
;B
E8=PL9
;R
E9=PL10
;UAO
E10=PL11
;T
E1=PL12
;C
E2=PL13
;dX
E44=PL14
;dY
E47=PL15
;=== ᥩ===================
$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)


E200=DPMS
(DPT,E40,E200,E25)
;A
E51=E31+E40
E61=E32+E42

E52=E31+E40
E62=E32+E40

E53=E31+E41
E63=E32+E40
;B
E54=E31-E41
E64=E32+E40

E55=E31-E40
E65=E32+E40

E56=E31-E40
E66=E32+E42
;C
E57=E31-E40
E67=E32-E42

E58=E31-E40
E68=E32-E40

E70=E31-E41
E69=E32-E40

;D

E71=E31+E32
E91=E32-E40

E72=E31+E40
E92=E32-E40

E73=E31+E40
E93=E32-E42

(BEQ,E7,1,A)
(BEQ,E7,2,B)
(BEQ,E7,3,C)
(BEQ,E7,4,D)

"A"
#SN(E16).BL=1
$PS3 E30
$PS1 E51 $PS2 E61
$PS3 E37
#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E61 E81

#SN(E16).BL=0
E81=0
E82=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 E31 $PS2 E61 RE200 E59
E81=E59
E82=E60
"DDD12"
G72 $PS1 E31 $PS2 E61 RE200 E59
E81=(E81+E59)/(E9-1)
E82=(E82+E60)/(E9-1)
"DDD11"
G72 $PS1 E31 $PS2 E61 E59
E81=(E81*(E9-1)+E59)/E9
E82=(E82*(E9-1)+E60)/E9
$PS1 E51 $PS2 E61
#SN(E16).BL=1
p1=XE81 YE82
(BEQ,E8,0,B1)
$PS3 E30
"B1"

$PS2 E62
$PS3 E37
#SN(E16).BL=0

;G72 $PS1 E31 $PS2 E62 E82

#SN(E16).BL=0
E83=0
E84=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G72 $PS1 E44 $PS2 E62 RE200 E59
E83=E59
E84=E60
"DDD22"
G72 $PS1 E44 $PS2 E62 RE200 E59
E83=(E83+E59)/(E9-1)
E84=(E84+E60)/(E9-1)
"DDD21"
G72 $PS1 E44 $PS2 E62 E59
E83=(E83*(E9-1)+E59)/E9
E84=(E84*(E9-1)+E60)/E9
$PS1 E51 $PS2 E62 
#SN(E16).BL=1
p2=XE83 YE84

l1= p1, p2
#SN(E16).BL=0

;G72 $PS1 E51 $PS2 E32 E83

#SN(E16).BL=0
E85=0
E86=0
(BEQ,E9,1,DDD31)
(BEQ,E9,2,DDD32)
G72 $PS1 E51 $PS2 E32 RE200 E59
E85=E59
E86=E60
"DDD32"
G72 $PS1 E51 $PS2 E32 RE200 E59
E85=(E85+E59)/(E9-1)
E86=(E86+E60)/(E9-1)
"DDD31"
G72 $PS1 E51 $PS2 E32 E59
E85=(E85*(E9-1)+E59)/E9
E86=(E86*(E9-1)+E60)/E9
$PS1 E53 $PS2 E63
#SN(E16).BL=1
p3=XE85 YE86

(BEQ,E8,0,B2)
$PS3 E30
"B2"
$PS1 E53
$PS3 E37
#SN(E16).BL=0

;G72 $PS1 E53 $PS2 E32 E84

#SN(E16).BL=0
E87=0
E88=0
(BEQ,E9,1,DDD41)
(BEQ,E9,2,DDD42)
G72 $PS1 E53 $PS2 E32 RE200 E59
E87=E59
E88=E60
"DDD42"
G72 $PS1 E53 $PS2 E32 RE200 E59
E87=(E87+E59)/(E9-1)
E88=(E88+E60)/(E9-1)
"DDD41"
G72 $PS1 E53 $PS2 E32 E59
E87=(E87*(E9-1)+E59)/E9
E88=(E88*(E9-1)+E60)/E9
$PS1 E53 $PS2 E63
#SN(E16).BL=1
p4=XE87 YE88

l2= p3, p4
p5=l1, l2

E101=FEP(5,1)
E102=FEP(5,2)

(DIS,E101," ",E102)
M0

(BNC,en)

"B"
#SN(E16).BL=1
$PS3 E30
$PS1 E54 $PS2 E64
$PS3 E37
#SN(E16).BL=0
;G72 $PS1 E54  $PS2 E32 E81

#SN(E16).BL=0
E81=0
E82=0
(BEQ,E9,1,DDD211)
(BEQ,E9,2,DDD212)
G72 $PS1 E54  $PS2 E32 RE200 E59
E81=E59
E82=E60
"DDD212"
G72 $PS1 E54  $PS2 E32 RE200 E59
E81=(E81+E59)/(E9-1)
E82=(E82+E60)/(E9-1)
"DDD211"
G72 $PS1 E54  $PS2 E32 E59
E81=(E81*(E9-1)+E59)/E9
E82=(E82*(E9-1)+E60)/E9
$PS1 E54 $PS2 E64
#SN(E16).BL=1

p1=XE81 YE82

(BEQ,E8,0,B3)
$PS3 E30
"B3"

$PS1 E55
$PS3 E37
#SN(E16).BL=0

;G72 $PS1 E55 $PS2 E32 E82

#SN(E16).BL=0
E83=0
E84=0
(BEQ,E9,1,DDD221)
(BEQ,E9,2,DDD222)
G72 $PS1 E55 $PS2 E32 RE200 E59
E83=E59
E84=E60
"DDD222"
G72 $PS1 E55 $PS2 E32 RE200 E59
E83=(E83+E59)/(E9-1)
E84=(E84+E60)/(E9-1)
"DDD221"
G72 $PS1 E55 $PS2 E32 E59
E83=(E83*(E9-1)+E59)/E9
E84=(E84*(E9-1)+E60)/E9
$PS1 E55 $PS2 E64 
#SN(E16).BL=1

p2=XE83 YE84
l1= p1, p2

#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E64 E83

#SN(E16).BL=0
E85=0
E86=0
(BEQ,E9,1,DDD231)
(BEQ,E9,2,DDD232)
G72 $PS1 E31 $PS2 E64 RE200 E59
E85=E59
E86=E60
"DDD232"
G72 $PS1 E31 $PS2 E64 RE200 E59
E85=(E85+E59)/(E9-1)
E86=(E86+E60)/(E9-1)
"DDD231"
G72 $PS1 E31 $PS2 E64 E59
E85=(E85*(E9-1)+E59)/E9
E86=(E86*(E9-1)+E60)/E9
$PS1 E55 $PS2 E63
#SN(E16).BL=1

p3=XE85 YE86
(BEQ,E8,0,B4)
$PS3 E30
"B4"
$PS2 E66
$PS3 E37
#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E66 E84

#SN(E16).BL=0
E87=0
E88=0
(BEQ,E9,1,DDD241)
(BEQ,E9,2,DDD242)
G72 $PS1 E31 $PS2 E66 RE200 E59
E87=E59
E88=E60
"DDD242"
G72 $PS1 E31 $PS2 E66 RE200 E59
E87=(E87+E59)/(E9-1)
E88=(E88+E60)/(E9-1)
"DDD241"
G72 $PS1 E31 $PS2 E66 E59
E87=(E87*(E9-1)+E59)/E9
E88=(E88*(E9-1)+E60)/E9
$PS1 E55 $PS2 E66
#SN(E16).BL=1
p4=XE87 YE88

l2= p3, p4
p5=l1, l2

E101=FEP(5,1)
E102=FEP(5,2)

(DIS,E101," ",E102)
M0
(BNC,en)


"C"
#SN(E16).BL=1
$PS3 E30
$PS1 E57 $PS2 E67
$PS3 E37

#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E67 E81

#SN(E16).BL=0
E81=0
E82=0
(BEQ,E9,1,DDD311)
(BEQ,E9,2,DDD312)
G72 $PS1 E31 $PS2 E67 RE200 E59
E81=E59
E82=E60
"DDD312"
G72 $PS1 E31 $PS2 E67 RE200 E59
E81=(E81+E59)/(E9-1)
E82=(E82+E60)/(E9-1)
"DDD311"
G72 $PS1 E31 $PS2 E67 E59
E81=(E81*(E9-1)+E59)/E9
E82=(E82*(E9-1)+E60)/E9
$PS1 E57 $PS2 E67
#SN(E16).BL=1

p1=XE81 YE82
(BEQ,E8,0,B5)
$PS3 E30
"B5"

$PS2 E68
$PS3 E37

;G72 $PS1 E31 $PS2 E68 E82

#SN(E16).BL=0
E83=0
E84=0
(BEQ,E9,1,DDD321)
(BEQ,E9,2,DDD322)
G72 $PS1 E31 $PS2 E68 RE200 E59
E83=E59
E84=E60
"DDD322"
G72 $PS1 E31 $PS2 E68 RE200 E59
E83=(E83+E59)/(E9-1)
E84=(E84+E60)/(E9-1)
"DDD321"
G72 $PS1 E31 $PS2 E68 E59
E83=(E83*(E9-1)+E59)/E9
E84=(E84*(E9-1)+E60)/E9
$PS1 E57 $PS2 E68 
#SN(E16).BL=1

p2=XE83 YE84
l1= p1, p2


;G72 $PS1 E57 $PS2 E32 E83

#SN(E16).BL=0
E85=0
E86=0
(BEQ,E9,1,DDD331)
(BEQ,E9,2,DDD332)
G72 $PS1 E57 $PS2 E32 RE200 E59
E85=E59
E86=E60
"DDD332"
G72 $PS1 E57 $PS2 E32 RE200 E59
E85=(E85+E59)/(E9-1)
E86=(E86+E60)/(E9-1)
"DDD331"
G72 $PS1 E57 $PS2 E32 E59
E85=(E85*(E9-1)+E59)/E9
E86=(E86*(E9-1)+E60)/E9
$PS1 E70 $PS2 E68 
#SN(E16).BL=1

p3=XE85 YE86
(BEQ,E8,0,B6)
$PS3 E30
"B6"
$PS1 E70
$PS3 E37

#SN(E16).BL=0
;G72 $PS1 E70 $PS2 E32 E84

#SN(E16).BL=0
E87=0
E88=0
(BEQ,E9,1,DDD341)
(BEQ,E9,2,DDD342)
G72 $PS1 E70 $PS2 E32 RE200 E59
E87=E59
E88=E60
"DDD342"
G72 $PS1 E70 $PS2 E32 RE200 E59
E87=(E87+E59)/(E9-1)
E88=(E88+E60)/(E9-1)
"DDD341"
G72 $PS1 E70 $PS2 E32 E59
E87=(E87*(E9-1)+E59)/E9
E88=(E88*(E9-1)+E60)/E9
$PS1 E70 $PS2 E68
#SN(E16).BL=1

p4=XE87 YE88
l2= p3, p4
p5=l1, l2

E101=FEP(5,1)
E102=FEP(5,2)
(DIS,E101," ",E102)
M0
(BNC,en)

"D"
#SN(E16).BL=1
$PS3 E30
$PS1 E71 $PS2 E91
$PS3 E37

#SN(E16).BL=0
;G72 $PS1 E71 $PS2 E32 E81

#SN(E16).BL=0
E81=0
E82=0
(BEQ,E9,1,DDD411)
(BEQ,E9,2,DDD412)
G72 $PS1 E71 $PS2 E32 RE200 E59
E81=E59
E82=E60
"DDD412"
G72 $PS1 E71 $PS2 E32 RE200 E59
E81=(E81+E59)/(E9-1)
E82=(E82+E60)/(E9-1)
"DDD411"
G72 $PS1 E71 $PS2 E32 E59
E81=(E81*(E9-1)+E59)/E9
E82=(E82*(E9-1)+E60)/E9
$PS1 E71 $PS2 E91
#SN(E16).BL=1

p1=XE81 YE82

(BEQ,E13,0,B7)
$PS3 E36
"B7"

$PS1 E72
$PS3 E37
#SN(E16).BL=0
;G72 $PS1 E72 $PS2 E32 E82

#SN(E16).BL=0
E83=0
E84=0
(BEQ,E9,1,DDD421)
(BEQ,E9,2,DDD422)
G72 $PS1 E72 $PS2 E32 RE200 E59
E83=E59
E84=E60
"DDD422"
G72 $PS1 E72 $PS2 E32 RE200 E59
E83=(E83+E59)/(E9-1)
E84=(E84+E60)/(E9-1)
"DDD421"
G72 $PS1 E72 $PS2 E32 E59
E83=(E83*(E9-1)+E59)/E9
E84=(E84*(E9-1)+E60)/E9
$PS1 E72 $PS2 E91 
#SN(E16).BL=1
p2=XE83 YE84

l1=p1,p2
#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E91 E83

#SN(E16).BL=0
E85=0
E86=0
(BEQ,E9,1,DDD431)
(BEQ,E9,2,DDD432)
G72 $PS1 E31 $PS2 E91 RE200 E59
E85=E59
E86=E60
"DDD432"
G72 $PS1 E31 $PS2 E91 RE200 E59
E85=(E85+E59)/(E9-1)
E86=(E86+E60)/(E9-1)
"DDD431"
G72 $PS1 E31 $PS2 E91 E59
E85=(E85*(E9-1)+E59)/E9
E86=(E86*(E9-1)+E60)/E9
$PS1 E72 $PS2 E91  
#SN(E16).BL=1
p3=XE85 YE86
(BEQ,E8,0,B8)
$PS3 E30
"B8"
$PS2 E93
$PS3 E37

#SN(E16).BL=0
;G72 $PS1 E31 $PS2 E93 E84
#SN(E16).BL=0
E87=0
E88=0
(BEQ,E9,1,DDD441)
(BEQ,E9,2,DDD442)
G72 $PS1 E31 $PS2 E93 RE200 E59
E87=E59
E88=E60
"DDD442"
G72 $PS1 E31 $PS2 E93 RE200 E59
E87=(E87+E59)/(E9-1)
E88=(E88+E60)/(E9-1)
"DDD441"
G72 $PS1 E31 $PS2 E93 E59
E87=(E87*(E9-1)+E59)/E9
E88=(E88*(E9-1)+E60)/E9
$PS1 E72 $PS2 E93
#SN(E16).BL=1

p4=XE87 YE88
l2= p3, p4
p5=l1, l2

E101=FEP(5,1)
E102=FEP(5,2)
(DIS,E101," ",E102)
(BNC,en)

"TTT"
(DIS,"ॢ襭 Eps")
E12=1
"ENDB3"
(BEQ,E12,400,BEG3)
E(E12)=PR(E12)
PR(E12)=0
E12=E12+1
(BNC,ENDB3)
"BEG3"
E12=PR412
;==============================
"HOLD"
#SK(E17).BL=1
(BNE,SK(E18),1,HOLD)
(BNC,END1)
"GOOD3"

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

PR451=E111
PR452=E112

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

(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"