(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
;#   
E19=98
;㫥 ६-१⮢ ७ 横
RTA=0
RTO=0
E61=0
E62=0
E64=0
E65=0
; 
$PS1=$INAX1
; न
$PS2=$INAX2
;  ࠫ쭮 诨
$PS3=$INAX3
;
;E51 - ⥪ न X ਪ
;!!!!!!  אַ  X  $INAX1   $PS1
(GTA,X,1,E51)
;E53 - ⥪ न Y ਪ
;!!!!!!  אַ  Y  $INAX2   $PS2
(GTA,Y,1,E53)
;᫥ । न ᠭ ਪ  殬     "+"
E51=E51+E40
;᫥ । न ᠭ ਪ  殬     "-"
E52=E51-E40*2
;᫥ । न ᠭ ਪ  殬   न  "+"
E53=E53+E40
;᫥ । न ᠭ ਪ  殬   न  "-"
E54=E53-E40*2
;E10- 㬥 稪 ᠭ; E11- ४ 稪 ᠭ 
(TRD,E10,E11)
;⠭ ࠬ஢ ७ 稪 ᠭ  DPM ( 5 PGCFIL)   DPT 
; ७
E25=DPMF
;ࠧ ᭮
E200=DPMS
(DPT,E40,E200,E25)
;E81 -   ਪ   "-"
;(ࠢ PL0-६ ᮤন 祭 ࠤ 㬥  ⨢ ४ K/2)
E81=-2*PL0
;E81  ᯮ  㫥 祭 K  ⨢ ४ E11
(RQP,E10,E11,KE81)
;⨢ 㬥  ४ ( 稪 ᠭ)
;!!! ⨢樨 㬥  ४ ॡ M06!!!
;!!!ॡ   ࠧ ⮢ ⥬  ७!!!
TE10.E11M6
;祭 ᭮ 稪 ᠭ   ६饭   砫 ७
#SN(E16).BL=1
;室   "ਥ㥬 稪"
(BEQ,E1,0,P)
;=================================================================
; 1
;믮  ਥ㥬 稪
;  ணࠬ ᫥ न 業 
;᫨ 砫쭠 窠 業  ⨢,     믮 ஢ न 業  
;X+ E61
;몫祭 ᭮ 稪 ᠭ  砫 ७
#SN(E16).BL=0
;⭮ ७ 窨 ᠭ 稪  殬     "+"
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
;$PS1 E51
;⭮ ७ 窨 ᠭ 稪  殬     "-"
;X- E62
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
; न 業    
;X* E63
E63=(E61-E62)/2+E62
;६饭  । ७     
$PS1 E63
;몫祭 ᭮ 稪 ᠭ  砫 ७
#SN(E16).BL=0
;⭮ ७ 窨 ᠭ 稪  殬     "+"
;Y+ E64
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
;⭮ ७ 窨 ᠭ 稪  殬     "-"
;Y- E65
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
; न 業    न
;Y* E66
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)
;
; ( ᮣᮢ  ᮢ묨 ஭ )     :
;砫  98 १ࢨ஢  न 業   ⮫
;砫  99 १ࢨ஢  न 業 蠩  ⮫ (७ K  L .) 
;======================================================
; 2
;᫥ RTA,RTO  ࠤ ਪ 
; 믮 ᫥ 믮  1   砫쭮 ⠭ P=0 (ਥ㥬 稪)
"P"
;.   (UAO,98) -⨢樨 न 砫   業 
(UAO,E19)
;(GTA,X,1,E63)
;(GTA,Y,1,E66)
(GOA,E19,$INAX1,E63)
(GOA,E19,$INAX2,E66)
;祭 ᭮ 稪 ᠭ   ६饭   砫 ७
#SN(E16).BL=1
;業 
G0 $PS1 $PS2
;몫祭 ᭮ 稪 ᠭ  砫 ७
#SN(E16).BL=0
; 横 ७ RTA,RTO,ࠤ ਪ
G73 rE40 E90
;祭 ᭮ 稪 ᠭ   ६饭   砫 ७
#SN(E16).BL=1
; 
; ஢ , ..  ⠭ 㠫묨, ᫨  믮 ।騥 砭
E81=(PL2-E92*2)*2
E82=E63-E90
E83=E66-E91
RTA=E82
RTO=E83
E92=E92*2
;!!!E72 - 祣 ???!!!
E72=(E61-E62)/2
;!!!E80 - 祣 ???!!!
E80=(E40-E90*2)*2
; ࠭ #8  뢮 १⮢ ⮢
(SCR,ON)
; -  ਨ  뢮  ࠭
(DEF,21, 3,3,"஢ ⥫쭮 㯠",A49)
(DEF,1, 5,3,"X+",A16)
(DEF,2, 5,8,E62,6,A16)
(DEF,3, 6,3,"X-",A16)
(DEF,4, 6,8,E61,6,A16)
(DEF,5, 7,3,"X*",A16)
(DEF,6, 7,8,E63,6,A16)
(DEF,7, 8,3,"Y+",A16)
(DEF,8, 8,8,E64,6,A16)
(DEF,9, 9,3,"Y-",A16)
(DEF,10, 9,8,E65,6,A16)
(DEF,11, 10,3,"Y*",A16)
(DEF,12, 10,8,E66,6,A16)
(DEF,13, 11,3,"D",A16)
(DEF,14, 11,8,E92,6,A16)
(DEF,15, 12,3,"r",A16)
(DEF,16, 12,8,E81,6,A16)
(DEF,17, 13,3,"RTA",A16)
(DEF,18, 13,8,RTA,6,A16)
(DEF,19, 14,3,"RTO",A16)
(DEF,20, 14,8,RTO,6,A16)
;  ਪ  ४  K
(RQP,E10,E11,KE81)
(DEF,110,16,10," த  ",A12)
;孮᪨ ⠭  ᬮ १⮢ 
M0
; ࠭ #8
(SCR,OFF)
(BNC,END2)
"END"
(DIS,"訡 䨣樨 ᥩ")
"END2"
