;: 02=
;==========
SYVAR185.15CH="     1.02"
;
;ᮡ .
                                            ;
;稪 ᠭ ()  诨.
                                            ;
;  ७  横  ।
;:  㬮砭  0:
; 0     BPI=0 - ⨢ ,
;                     䨣஢ 
;                     TAS  TAS0 *5 PGCFIL
; 1     BPI=1 - ⨢ ,
;                     䨣஢ 
;                     TAS1 *5 PGCFIL
                                            ;
; 䠩 PGCFIL  ᥪ樨 *2  
; 2 樨:
;  SIM=E,,1000,,,         - ⢮ E 
;                            65565
;  SIM=NEW,PR,2000,6,62,3 -  ६
;      (᪫⥫쭮  ࠬ஢
;       横 ७)
; 饭
; SB - ⠭ 
                                            ;
;======================= 横:========================================
; == ஢ઠ: ६ INAX1),2),3) 
;       祭 ====SB
(BEQ,$INAX1,$INAX2,ERR1)
                 ;஢ઠ   न
                 ; ᮢ   
                 ;诨
(BEQ,$INAX2,$INAX3,ERR1)
                 ;஢ઠ   
                 ; ᮢ   
                 ;诨
(BEQ,$INAX1,$INAX3,ERR1)
; 
;==᫥  ,  ஬
;  믮 横==SB
;ਬ砭.
;ᯮ    ᨣ
;ࠢ饣 ᭮ 
; ᨣ, ਬ,  1- 
;U10N9 ⠭ १ ६
;SN(E16).BL , : E16=329  (10*32+9=329) 
;!!!᭮   横 砥 
;   砫   G0,G1,G2,G3
;!!!᭮   横 몫砥 
;   砫   G72,G73,G74
;!!! 砥 ࠡ뢠   ⥬
;   뢥  ࠭ ᮮ饭:
;!!!"室  ࠭祭 ६饭
;    < >,<# >"
;!!!  PLC ⠭ ᨣ I3N9="1".                                          
(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
                                            ;
                                            ;PR1230=1 -ࠢ ᨣ
                                            ;          ᭮ 
                                            ;          믮  
(BEQ,PR1230,1,IZPLC1)
                 ;砫쭠 ⠭:
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC1"
                                            ;
                 ;=====室 =======
         ;X1
E31=PL1
         ;Y1
E32=PL2
         ;d1
E41=PL3
         ;Z1
E37=PL4
         ;V
E7=PL5
         ;X2
E33=PL6
         ;Y2
E34=PL7
         ;d1
E42=PL8
         ;Z2
E38=PL9
         ;Z0
E30=PL10
         ;D
E40=PL11+DPMA
E200=DPMS
         ;B
E8=PL12
         ;F
E25=DPMF
         ;R
E9=PL13
         ;U
E26=PL14
         ;i
E20=PL15
         ;Nt
E21=PL16
         ;======
         ;ﭨ 
         ;஢  ஥樨  X
E87=ABS(E31-E33)
         ;ﭨ  ஢
         ; ஥樨  Y
E88=ABS(E32-E34)
         ;쭮 ﭨ 
         ;஢
;         r1    r2    ஥  X
E89=(E40+E41/2+E42/2)*COS(ART(E88/E87))
;         r1    r2    ஥  Y
E90=(E40+E41/2+E42/2)*SIN(ART(E88/E87))
(BGE,E87,E89,XOK)
(BGE,E88,E90,YOK)
(BNC,ERR3)
"XOK"
"YOK"
                                            ;
         ;㫥 㣫 
         ;᪮ ࠡ⪨  砫
         ; ७
(URP,0)
                                            ;
E5=0
                                            ;
;== । ᥩ  ᪮ ࠡ⪨ ==SB
         ;  
$PS1=$INAX1
         ;  न
$PS2=$INAX2
         ;  诨
$PS3=$INAX3
;==========
;न ᠭ   孮
;஢
;- 1- ஢  窠:
  0, 120, 240 ࠤᮢ:
                                            ;
E51=E31+(E40+E41/2)*COS(0)
E52=E32+(E40+E41/2)*SIN(0)
                                            ;
E53=E31+(E40+E41/2)*COS(120)
E54=E32+(E40+E41/2)*SIN(120)
                                            ;
E55=E31+(E40+E41/2)*COS(240)
E56=E32+(E40+E41/2)*SIN(240)
                                            ;
;- 2- ஢  窠:
  0, 120, 240 ࠤᮢ:
                                            ;
E61=E31+E41/2*COS(0)
E62=E32+E41/2*SIN(0)
                                            ;
E63=E31+E41/2*COS(120)
E64=E32+E41/2*SIN(120)
                                            ;

E65=E31+E41/2*COS(240)
E66=E32+E41/2*SIN(240)
                                            ;
;⨢ 奬   横 ७
(DPT,E40,E200,E25)
                                            ;
                                            ;
(BEQ,PR1230,1,IZPLC2)
                 ; 
SN(E16).BL=1
(DLY,0.2)
"IZPLC2"
;=== 室  砫 ७ 1- ஢
;=====窠 1====== 0 ࠤ
                 ;-  诨
                 ;   
G0 $PS3 E30
                 ;-   ᪮
                 ; ࠡ⪨
$PS1 E51 $PS2 E52 
                 ;-  诨
                 ;   ७
$PS3 E37
                                            ;
                                            ;
(BEQ,PR1230,1,IZPLC3)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC3"
                                            ;
;=====७ 1- ஢==========
;=====窠 1====== 0 ࠤ
E71=0
E72=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 E61 $PS2 E62 RE200 E59
E71=E59
E72=E60
"DDD12"
G72 $PS1 E61 $PS2 E62 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD11"
G72 $PS1 E61 $PS2 E62 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPLC4)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC4"
                                            ;
                 ;-室  ᪮
                 ; ࠡ⪨
$PS1 E51 $PS2 E52 
                                            ;
(BEQ,E8,0,BBB1)
                                            ;
                 ;-室   诨 
                 ;  
G0 $PS3  E30
(BNC,B1)
                                            ;
                 ;६饭  砫
                 ;७  ஬ 室
"BBB1"
                 ;  ७
UVR=1
G3 $PS1 E53 $PS2 E54 IE31 JE32 F1
UVR=0
                                            ;
"B1"
                 ; ᭮ 
G0 $PS1 E53 $PS2 E54
                 ; ७:
$PS3  E37
                                            ;
(BEQ,PR1230,1,IZPLC5)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC5"
                                            ;
;=====窠 2====== 120 ࠤ
E73=0
E74=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G72 $PS1 E63 $PS2 E64 RE200 E59
E73=E59
E74=E60
"DDD22"
G72 $PS1 E63 $PS2 E64 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD21"
G72 $PS1 E63 $PS2 E64 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPLC6)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC6"
                                            ;
                 ;-室  ᪮
                 ; ࠡ⪨
$PS1 E53 $PS2 E54
                                            ;
(BEQ,E8,0,BBB2)
                 ;᭠ 
G0 $PS3  E30
                                            ;
(BNC,B2)
                                            ;
"BBB2"
                 ;६饭  砫
                 ;७  ஬ 室
                 ;  ७
UVR=1
G3 $PS1 E55 $PS2 E56 IE31 JE32 F1
UVR=0
                                            ;
"B2"
                 ;६饭  砫
                 ;७  ஬ 室
                 ; ᭮ 
G0 $PS1 E55 $PS2 E56
                 ; ७:
$PS3  E37
                                            ;
(BEQ,PR1230,1,IZPLC7)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC7"
                                            ;
                                            ;
;=====窠 3====== 240 ࠤ
E75=0
E76=0
(BEQ,E9,1,DDD31)
(BEQ,E9,2,DDD32)
G72 $PS1 E65 $PS2 E66 RE200 E59
E75=E59
E76=E60
"DDD32"
G72 $PS1 E65 $PS2 E66 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD31"
G72 $PS1 E65 $PS2 E66 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
                                            ;
                                            ;
(BEQ,PR1230,1,IZPLC8)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC8"
                 ;-室  ᪮
                 ; ࠡ⪨
$PS1 E55 $PS2 E56
                                            ;
;
;஥ 㦭  3- 窠
p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c1=p1,p2,p3
                                            ;
                                            ;
;=====७ 2- ஢
                 ;-室   诨 
                 ;  
; 砫 ७
;㣮 0; 120; 240 ࠤᮢ
E51=E33+(E40+E41/2)*COS(0)
E52=E34+(E40+E41/2)*SIN(0)
                                            ;
E53=E33+(E40+E41/2)*COS(120)
E54=E34+(E40+E41/2)*SIN(120)
                                            ;
E55=E33+(E40+E41/2)*COS(240)
E56=E34+(E40+E41/2)*SIN(240)
                                            ;
;न ᠭ   孮 2-
;஢ 
                                            ;
; न 窨 ७
;㣮 0; 120; 240 ࠤᮢ
E61=E33+E41/2*COS(0)
E62=E34+E41/2*SIN(0)
                                            ;
E63=E33+E41/2*COS(120)
E64=E34+E41/2*SIN(120)
                                            ;
E65=E33+E41/2*COS(240)
E66=E34+E41/2*SIN(240)
                                            ;
;=== 室  砫 ७ 2- ஢
;=====窠 1====== 0 ࠤ
                 ;-室   诨 
                 ;  
G0 $PS3 E30
                 ;६饭  砫
                 ;७  ஬ 室
$PS1 E51 $PS2 E52 
                 ;-  诨  
                 ; ७
$PS3 E38
                                            ;
(BEQ,PR1230,1,IZPLC9)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC9"
                 ;===७ 2- ஢
;=====窠 1====== 0 ࠤ
E71=0
E72=0
(BEQ,E9,1,DDD41)
(BEQ,E9,2,DDD42)
G72 $PS1 E61 $PS2 E62 RE200 E59
E71=E59
E72=E60
"DDD42"
G72 $PS1 E61 $PS2 E62 RE200 E59
E71=(E71+E59)/(E9-1)
E72=(E72+E60)/(E9-1)
"DDD41"
G72 $PS1 E61 $PS2 E62 E59
E71=(E71*(E9-1)+E59)/E9
E72=(E72*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPL10)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPL10"
                                            ;
                 ;-⢮    ᪮
                 ; ࠡ⪨
$PS1 E51 $PS2 E52 
                                            ;
(BEQ,E8,0,BBB3)
                 ;室   
G0 $PS3  E30
                                            ;
(BNC,B3)
                                            ;
"BBB3"
                 ;६饭  砫
                 ;७  ஬ 室
                 ;  ७
UVR=1
G3 $PS1 E53 $PS2 E54 IE33 JE34 F1
UVR=0
                                            ;
"B3"
                 ;६饭  砫
                 ;७  ஬ 室
                 ; ᭮ 
G0 $PS1 E53 $PS2 E54
                 ;६饭 
                 ; ७
$PS3  E38
                                            ;
(BEQ,PR1230,1,IZPL11)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL11"
                                            ;
;=====窠 2====== 120 ࠤ
E73=0
E74=0
(BEQ,E9,1,DDD51)
(BEQ,E9,2,DDD52)
G72 $PS1 E63 $PS2 E64 RE200 E59
E73=E59
E74=E60
"DDD52"
G72 $PS1 E63 $PS2 E64 RE200 E59
E73=(E73+E59)/(E9-1)
E74=(E74+E60)/(E9-1)
"DDD51"
G72 $PS1 E63 $PS2 E64 E59
E73=(E73*(E9-1)+E59)/E9
E74=(E74*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPL12)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPL12"
                                            ;
                 ;-⢮   
                 ; ᪮ ࠡ⪨
$PS1 E53 $PS2 E54
                                            ;
(BEQ,E8,0,BBB4)
                 ;६饭 
                 ; 
G0 $PS3  E30
                                            ;
(BNC,B4)
                                            ;
"BBB4"
                 ;६饭  砫
                 ;७  ஬ 室
                 ;  ७
UVR=1
G3 $PS1 E55 $PS2 E56 IE33 JE34 F1
UVR=0
                                            ;
"B4"
                 ;६饭  砫
                 ;७  ஬ 室
                 ; ᭮ 
G0 $PS1 E55 $PS2 E56
                 ; ७
$PS3  E38
                                            ;
(BEQ,PR1230,1,IZPL13)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL13"
                                            ;
;=====窠 3====== 240 ࠤ
E75=0
E76=0
(BEQ,E9,1,DDD61)
(BEQ,E9,2,DDD62)
G72 $PS1 E65 $PS2 E66 RE200 E59
E75=E59
E76=E60
"DDD62"
G72 $PS1 E65 $PS2 E66 RE200 E59
E75=(E75+E59)/(E9-1)
E76=(E76+E60)/(E9-1)
"DDD61"
G72 $PS1 E65 $PS2 E66 E59
E75=(E75*(E9-1)+E59)/E9
E76=(E76*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPL14)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPL14"
                 ;-⢮   
                 ; ᪮ ࠡ⪨
$PS1 E55 $PS2 E56
                 ;室 
                 ; 
G0 $PS3 E30
                                            ;
;஥ 2- 㦭  3- 窠
p1=XE71 YE72
p2=XE73 YE74
p3=XE75 YE76
c2=p1,p2,p3
                                            ;
;᫥ न 業 1- ஢
E81=FEC(1,1)
E82=FEC(1,2)
                                            ;
;᫥ न 業 2- ஢
E91=FEC(2,1)
E92=FEC(2,2)
                                            ;
; 㣫  業ࠬ ஢
E70=ART((E92-E82)/(E91-E81))
                                            ;
;== ⢨  १⠬ ७ =================
                                            ;
                 ;室   ⮫
(BEQ,E7,1,VVV)
                                            ;
                 ;E26 - 㣫 
                 ;    ᪮  ⮬
                 ;    ।⠭
                 ; 㣫 אַ  ࠬ U
E26=E70-E26
                                            ;
                 ; ᯮ
                 ; ᪮
                 ;ࠡ⪨:
(URP,E26)
                 ;  横
(BNC,END)
                                            ;
                 ;===========
"VVV"
                 ;।  
                 ;饭   
                 ;诨
(BEQ,$INAX3,"X",A)
(BEQ,$INAX3,"U",A)
(BEQ,$INAX3,"Y",B)
(BEQ,$INAX3,"V",B)
(BEQ,$INAX3,"Z",C)
(BEQ,$INAX3,"W",C)
"A"
$PS5="A"
(BNC,ROT)
"B"
$PS5="B"
(BNC,ROT)
"C"
$PS5="C"
(BNC,ROT)

"ROT"
                 ;  饭 
                 ;㣮 ࠢ  G91
E71=NEG(E70)
G91 $PS5 E71
G90
                                            ;
                                            ;
(BEQ,PR1230,1,IZPL15)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL15"
                                            ;
                 ;ய 㫥
                 ;樨  饭 
                 ;ࠬ i=0
(BEQ,E20,0,END)
                                            ;
;== 㫥 樨  饭 ===
                 ; 
                 ;ᯮ㥬
                 ;砫쭮 窨
(GTA,$PS5,4,E18)
                                            ; 
                 ;᫨ Nt=999999  i=1, 
                 ;믮  㣫 
                 ;ᯮ㥬 砫 (.)
                 ;->"CUR"
(BEQ,E21,999999,CUR)
                 ;E17=Nt
E17=E21
                 ;᫨  ᯮ㥬
                 ;砫쭮 窨 ᮢ
                 ; ஬,   Nt 
                 ; 㣫  ᯮ㥬
                 ;砫 (.)
                 ; 室  "UAOn"
(BNE,E18,E17,UAOn)
                                            ;
"CUR"
                 ;㫥 祭 㣫 
                 ;䠩 砫 祪 
                 ;ᯮ㥬 - 窥
(GOA,E18,$PS5,E101)
E101=-E101
(RQO,E18,$PS5 E101)
                 ; 㣮  饭
                 ;᫥ ࠢ
                 ;७ 孮
(GTA,$PS5,1,E102)
                 ;! 㣫 ⮫ ᫥
                 ;ࠢ ७
                 ;孮  ᯮ㥬
                 ;砫  
                 ;⮬᪨ 㫥
                 ;樨  饭!
(RQO,E18,$PS5 E102)
(DIS,"- ⮫  ",$PS5," 믮")
                                            ;
                 ; 横
(BNC,END)
                                            ;
                                            ;
"UAOn"
                 ;"UAOn"- ࠡ  ஬
                 ;砫쭮 窨 Nt
                                            ;
                 ;㫥 祭 㣫 
                 ;䠩 砫 祪 
                 ;砫쭮 窥 Nt
(GOA,E17,$PS5,E101)
E101=-E101
(RQO,E17,$PS5 E101)
                 ; 㣮  饭
                 ;᫥ ࠢ
                 ;७ 孮
(GTA,$PS5,1,E102)
                 ;! 㣫 ⮫ ᫥
                 ;ࠢ ७
                 ;孮  
                 ;砫 !
(RQO,E17,$PS5 E102)
                 ;!ᯮ짮  ⥬
                 ;砫  Nt 
                 ;㫥 樨 
                 ;饭
(UAO,E17,$PS5)
(DIS,". ⮫  ",$PS5," 믮")
                                            ;
                 ; 横
(BNC,END)
                 ;====ࠡ⪠ 訡====== 
                                            ; 
"ERR1"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 䨣樨 ")
(DEF, 2, 1,52,"")
(DEF, 5, 3, 5,", न   诨-")
(DEF,10, 4, 5,"   ࠧ .   ")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
 
(BNC,ENDERR)
                                            ;
                                            ;
"ERR2"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡   ")
(DEF, 2, 1,52,"")
(DEF, 5, 3, 5,"  Z    ᠭ")
(DEF,10, 4, 5," ' ७', ᫨ ' ")
(DEF,11, 4,37,"饭' -  C.")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
                                            ;
(BNC,ENDERR)
                                            ;
                                            ;
"ERR3"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡   ")
(DEF, 2, 1,52,"")
(DEF, 5, 3, 5,"⠭  ﬨ ஢ ")
(DEF,10, 4, 5," ⨬   ७")
(DEF,11, 4,37,".                             ")
(DEF,15, 7, 5," த 横  1 ",A1)
(DEF,20, 7,37,"  ENTER ",A1)
(DEF,25, 7,53,E5,2)
(DEF,30, 9, 5," ४饭 ணࠬ 믮",A12)
(DEF,31, 9,37," ' '.",A12)
                                            ;
(BNC,ENDERR)
                                            ;
                                            ;
"ENDERR"
                                            ;
                                            ;
                 ; 뢮 訡 
                 ;࠭ #8 ASSET 
                 ;। 室 
                 ;ணࠬ
E5=0
(DLY,0.1)
(OUT)
                                            ;
"ERR"
(INP," ",E5,25)
(BEQ,E5,0,ERR)
(SCR,OFF)
                                            ;
;
"END"
;===
(BEQ,PR1230,1,IZPL16)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL16"
       ;====== 横======