;==================================================
;           ஢ 㯠 CP2
;==================================================
;!
;襭:
;1) 砫  98 १ࢨ஢ 
;   न 業   ⮫
;2) 砫  99 १ࢨ஢ 
;   न 業 蠩  ⮫ (७ K  L .) 
;   (窠 99  ⮬ 横  ᯮ)
(BEQ,$INAX1,$INAX2,END)
(BEQ,$INAX2,$INAX3,END)
(BEQ,$INAX1,$INAX3,END)
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
               ;===========================
;P(=0-ਥ㥬; =1-ਥ㥬
E1=PL1
;r - ࠤ 
E40=PL2/2
E41=-E40
               ;===========================
               ;砫 ᫮==========
               ;98-.  
E19=98
;㫥 ६-१⮢ ७ 横
RTA=0
RTO=0
E61=0
E62=0
E64=0
E65=0
               ; 
$PS1=$INAX1
               ; न
$PS2=$INAX2
               ;  ࠫ쭮 诨
$PS3=$INAX3
               ;⥪ न X ਪ
(GTA,$PS1,1,E51)
               ;⥪ न Y ਪ
(GTA,$PS2,1,E53)
               ;᫥ । .
               ;ᠭ ਪ 㯠  殬:
               ;-    "+"
E51=E51+E40
               ;-    "-"
E52=E51-E40*2
               ;-  न  "+"
E53=E53+E40
               ;-  न  "-"
E54=E53-E40*2
               ;E10-  㯠
               ;E11- ४ 㯠 
(TRD,E10,E11)
;============================================
; ,   
;DPM (DPM0).
;============================================
         ;DPMA- ⠭ ⠭ ࠡ祩
         ;᪮ ७.
         ;⠭ ⪫뢠 
         ;। 窨 ᠭ DK
         ; 孮  ࠢ 
         ;砫쭮 窥 横.
E199=DPMA
         ;DPMS- ⠭ ᭮ DK.
         ;⪫뢠  ।
         ;窨 ᠭ 㯠  孮 
         ;ࠢ ७. 
E200=DPMS
         ;DPMF- ࠡ ᪮ ७.
         ;  १ DPMA+DPMS
E25=DPMF
         ;⨢ 奬 
         ; 横 ७
E26=DPMF
(BEQ,PR1227,0,F)
E26=PR1227
"F"
(DPT,E40,E200,E26)
                                            ;
               ;E81 - K ਪ   "-"
               ;       ⨢  ४
E81=-2*PL0
               ;E81  ᯮ 
               ;㫥 祭 K  ⨢
               ;४ E11
(RQP,E10,E11,KE81)
               ;⨢ -  - 㯠
TE10.E11M6
               ;祭 ᭮ 㯠  
               ;६  ६饭   ..
#SN(E16).BL=1
               ;室   "ਥ㥬 "
(BEQ,E1,0,P)
;=======================================================
; 1
;믮  ਥ㥬 稪
;  ணࠬ ᫥ न 業 
;᫨ .  業  ⨢,    
;믮 ஢ न 業  
               ;몫.᭮ 㯠  ७
#SN(E16).BL=0
               ;3-⭮ ७  ᠭ 㯠
               ;   殬     "+"
E61=0
G72 $PS1 E51 RE200 E60
E61=E60
G72 $PS1 E51 RE200 E60
E61=(E61+E60)/2
G72 $PS1 E51 E60
E61=(E61*2+E60)/3
               ;3-⭮ ७  ᠭ 㯠
               ;   殬     "-"
E62=0
G72 $PS1 E52 RE200 E60
E62=E60
G72 $PS1 E52 RE200 E60
E62=(E60+E62)/2
G72 $PS1 E52 E60
E62=(E60*2+E62)/3
               ;祭 ᭮ 㯠  
               ;६  ६饭   ..
#SN(E16).BL=1
               ; न 業 
               ;  
E63=(E61-E62)/2+E62
               ;६饭  । ७
               ;    
$PS1 E63
               ;몫.᭮ 㯠  ७
#SN(E16).BL=0
               ;3-⭮ ७  ᠭ 㯠
               ;   殬   न  "+"
E64=0
G72 $PS2 E53 RE200 E60
E64=E60
G72 $PS2 E53 RE200 E60
E64=(E60+E64)/2
G72 $PS2 E53 E60
E64=(E60+E64*2)/3
               ;3-⭮ ७  ᠭ 㯠
               ;   殬   न  "-"
E65=0
G72 $PS2 E54 RE200 E60
E65=E60
G72 $PS2 E54 RE200 E60
E65=E60+E65
G72 $PS2 E54 E60
E65=(E60+E65)/3
               ;祭 ᭮ 㯠  
               ;६  ६饭   ..
#SN(E16).BL=1
               ; न 業 
               ;  न
E66=(E64-E65)/2+E65
               ;R 
E71=(E64-E65)/2
               ;r ਪ 㯠
;E80=(E40-E71)*2
;(RQP,E10,E11,KE80)
               ;६饭  । ७
               ;    न
$PS2 E66
               ;⮢  ୮ ७
               ;न 業 
(GTA,X,1,E51)
E51=E51+E40
E52=E51-E40*2
#SN(E16).BL=0
G72 $PS1 E52 RE200 E60
E62=E60
G72 $PS1 E52 RE200 E60
E62=(E60+E62)/2
G72 $PS1 E52 E60
E62=(E60+E62*2)/3
G72 $PS1 E51 RE200 E60
E61=E60
G72 $PS1 E51 RE200 E60
E61=(E60+E61)/2
G72 $PS1 E51 E60
E61=(E60+E61*2)/3
#SN(E16).BL=1
E63=(E62-E61)/2+E61
$PS1 E63 
;!!!襭!!!
;᫥ न 業  
; 䠩 砫 祪  砫  98
;
;< ஢   न 業
;   砫  98>
E67=0
E68=0
(GTA,X,4,E19)
(GOA,E19,$INAX1,E67)
(GOA,E19,$INAX2,E68)
E67=NEG(E67)
E68=NEG(E68)
(RQO,E19,$INAX1 E67)
(RQO,E19,$INAX2 E68)
(RQO,E19,$INAX1 E63)
(RQO,E19,$INAX2 E66)
;
;=============================================
; 2
;᫥ RTA,RTO  ࠤ ਪ 
; 믮 ᫥ 믮  1
;  砫쭮 ⠭ P=0 (ਥ㥬 稪)
"P"
;E19-98 - 砫쭮 窨 業 
(UAO,E19)
(GOA,E19,$INAX1,E63)
(GOA,E19,$INAX2,E66)
               ;祭 ᭮ 㯠  
               ;६  ६饭   ..
#SN(E16).BL=1
               ;業 
G0 $PS1 $PS2
               ;몫祭 ᭮ 㯠
               ; ७
#SN(E16).BL=0
               ;横 ७ RTA,RTO,ࠤ ਪ
G73 rE40 E90
(DIS,E90," ",E91," ",E92)
               ;祭 ᭮ 㯠  
               ;६  ६饭   ..
#SN(E16).BL=1
G0$PS1E90$PS2E91
               ;몫祭 ᭮ 㯠
               ; ७
#SN(E16).BL=0
               ;横 ७ RTA,RTO,ࠤ ਪ
G73 rE40 E90
;(DIS,E90," ",E91," ",E92)
;:
;K- ਪ 㯠 
E81=PL2-E92*2
E82=E63-E90
E83=E66-E91
;ᬥ饭 業 ਪ   
RTA=E82
;ᬥ饭 業 ਪ   न
RTO=E83
; ஢筮 
E80=PL2
;===
; ࠭ #8  뢮 १⮢ ⮢
(SCR,ON)
; -  ਨ  뢮  ࠭
(DEF,21, 3,3,"஢ ⥫쭮 㯠",A49)
(DEF,1, 5,3,"X+ ",A16)
(DEF,2, 5,7,E62,6,A16)
(DEF,30, 5,20,"-न ᠭ 㯠  ",A16)
(DEF,31, 5,52,"   ",A16)
;===
(DEF,3, 6,3,"X- ",A16)
(DEF,4, 6,7,E61,6,A16)
(DEF,32, 6,20,"-न ᠭ 㯠  ",A16)
(DEF,33, 6,52,"   ",A16)
;===
(DEF,5, 7,3,"X* ",A16)
(DEF,6, 7,7,E63,6,A16)
(DEF,34, 7,20,"-७ न 業 ",A16)
(DEF,35, 7,52,"   ",A16)
;===
(DEF,7, 9,3,"Y+ ",A16)
(DEF,8, 9,7,E64,6,A16)
(DEF,36, 9,20,"-न ᠭ 㯠  ",A16)
(DEF,37, 9,52,"   न",A16)
;===
(DEF,9, 10,3,"Y- ",A16)
(DEF,10, 10,7,E65,6,A16)
(DEF,38, 10,20,"-न ᠭ 㯠  ",A16)
(DEF,39, 10,52,"   न",A16)
;===
(DEF,11, 11,3,"Y* ",A16)
(DEF,12, 11,7,E66,6,A16)
(DEF,40, 11,20,"-७ न 業 ",A16)
(DEF,41, 11,52,"   ",A16)
;===
(DEF,13, 13,3,"D  ",A16)
(DEF,14, 13,7,E80,6,A16)
(DEF,29, 13,20,"- ஢筮 ",A16)
;===
(DEF,15, 14,3,"K  ",A16)
(DEF,16, 14,7,E81,6,A16)
(DEF,22, 14,20,"- ਪ 㯠 ᠭ  ",A16)
(DEF,23, 14,52,"४ ",A16)
(DEF,24, 14,62,E11,A16)
;===
(DEF,17, 16,3,"RTA",A16)
(DEF,18, 16,7,RTA,6,A16)
(DEF,25, 16,20,"-ᬥ饭 業 ਪ 㯠 ",A16)
(DEF,26, 16,52,"  ",A16)
;===
(DEF,19, 17,3,"RTO",A16)
(DEF,20, 17,7,RTO,6,A16)
(DEF,27, 17,20,"-ᬥ饭 業 ਪ 㯠 ",A16)
(DEF,28, 17,52,"  न",A16)
(OUT)
;  ਪ  ४  K
(RQP,E10,E11,KE81)
(DEF,110,19,10," த  ",A12)
;孮᪨ ⠭  ᬮ १⮢ 
M0
; ࠭ #8
(SCR,OFF)
(BNC,END2)
"END"
(DIS,"訡 䨣樨 ᥩ")
"END2"
