(BEQ,$INAX1,$INAX2,END)
(BEQ,$INAX2,$INAX3,END)
(BEQ,$INAX1,$INAX3,END)
;== ६================
PR412=E12
E12=1
"ENDB1"
(BEQ,E12,400,BEG1)
PR(E12)=E(E12)
E12=E12+1
(BNC,ENDB1)
"BEG1"
E12=PR412
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

;D
E31=PL1


E25=DPMF
$PS1=$INAX1
$PS2=$INAX2
$PS3=$INAX3


E33=DPMA
E200=DPMS
(DPT,E33,E200,E25)


#SN(E16).BL=0
;G74 $PS3 E31 E65
G74 $PS3 E31 RE200 E60
E65=E60
G74 $PS3 E31 RE200 E60
E65=(E65+E60)/2
G74 $PS3 E31 E60
E65=(E65*2+E60)/3

#SN(E16).BL=1

(TRD,E10,E11)
(RQP,E10,E11,ZE65)

E12=1
"ENDB2"
(BEQ,E12,400,BEG2)
E(E12)=PR(E12)
PR(E12)=0
E12=E12+1
(BNC,ENDB2)
"BEG2"
E12=PR412

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

"END2"

