;==================================================
;           ஢ 㯠 CP3
;==================================================
;!
;襭:
;1) 砫  98 १ࢨ஢ 
;   न 業   ⮫
;2) 砫  99 १ࢨ஢ 
;   न 業 蠩  ⮫ (७ K  L .) 
;   (窠 99  ⮬ 横  ᯮ)
                                ;
(BEQ,$INAX1,$INAX2,END)
(BEQ,$INAX2,$INAX3,END)
(BEQ,$INAX1,$INAX3,END)
                                ;===᫥  ===
(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 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)
                                ;===========================
(BNC,END2)
"END"
(DIS,"訡 䨣樨 ᥩ")
                                ;===========================
"END2"
