;: 00=
;==========
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 न 1- 窨 ७
E31=PL1
         ;Y1 न 1- 窨 ७
E32=PL2
         ;X2 न 2- 窨 ७
E33=PL3
         ;Y2 न 2- 窨 ७
E34=PL4
         ;Z0 ᭠ 
E30=PL5
         ;Z1  ७ 
E37=PL6
         ;NP ࠢ ७
E19=PL8
         ;D ᭮ ﭨ
E40=PL9+DPMA
         ;ࠧ ᭮ + ࠧ 室
         ;᫥ 믮  ७
         ; G72
E200=DPMS
         ;
         ;B
E8=PL10
         ;F
E25=DPMF
         ;R
E9=PL11
         ;U
E26=PL12
         ;=======
                                            ;
         ;㫥 㣫 
         ;᪮ ࠡ⪨  砫
         ; ७
(URP,0)
                                            ;
E5=0
                                            ;
;== । ᥩ  ᪮ ࠡ⪨ ==SB
         ;  
$PS1=$INAX1
         ;  न
$PS2=$INAX2
         ;  诨
$PS3=$INAX3
;==========
                                            ;
;(1- 窠)  न 窨 砫
; ७  ⮬ D  DPMA  NP
;dX1
E51=E31-E19*E40
;dY1
E52=E32-E19*E40
                                ;===
;(2- 窠)  न 窨  砫
; ७  ⮬ D  DPMA  NP
;dX2
E53=E33-E19*E40
;dY2
E54=E34-E19*E40
                                ;===
;⨢ 奬   横 ७
(DPT,E40,E200,E25)
                                            ;
                                            ;
;⪠ XXX -室  ७   X
(BEQ,$PS7,$PS1,XXX)
                                            ;
;⪠ YYY -室  ७   Y
(BEQ,$PS7,$PS2,YYY)
                                            ;
(BNC,END)
                                            ;
                                            ;
"XXX"
                 ;==========================
                 ; ७ X
                 ;==========================
                                            ;
E87=ABS(E34-E32)
(BLE,E87,0.0001,ERR2)
                                            ;
(BEQ,PR1230,1,IZPLC2)
; 
SN(E16).BL=1
(DLY,0.2)
"IZPLC2"
;६饭  室 樨 
;७ 1- 窨:
                 ;-  诨
                 ;   
G0 $PS3 E30
                 ;-   ᪮
                 ; ࠡ⪨
$PS1 E51 $PS2 E32 
                 ;-  诨
                 ;   ७
$PS3 E37
                                            ;
                                            ;
(BEQ,PR1230,1,IZPLC3)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC3"
                                            ;
;====७ 1- 窨=====
E61=0
E62=0
(BEQ,E9,1,DDD11)
(BEQ,E9,2,DDD12)
G72 $PS1 E31 $PS2 E32 RE200 E59
E61=E59
E62=E60
"DDD12"
G72 $PS1 E31 $PS2 E32 RE200 E59
E61=(E61+E59)/(E9-1)
E62=(E62+E60)/(E9-1)
"DDD11"
G72 $PS1 E31 $PS2 E32 E59
E61=(E61*(E9-1)+E59)/E9
E62=(E62*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPLC4)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC4"
                                            ;
                 ;-室  ᪮
                 ; ࠡ⪨
$PS1 E51 $PS2 E32
                                            ;
(BEQ,E8,0,BBB1)
                                            ;
                 ;-室   诨
                 ;   
G0 $PS3 E30
                                            ;
"BBB1"
                                            ;
                 ;-室   
                 ; ᪮ ࠡ⪨
$PS1 E53 $PS2 E34
                 ;-  诨  
                 ; ७
$PS3 E37
                                            ;
(BEQ,PR1230,1,IZPLC5)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC5"
                                            ;
;====७ 2- 窨=====
E63=0
E64=0
(BEQ,E9,1,DDD21)
(BEQ,E9,2,DDD22)
G72 $PS1 E33 $PS2 E34  RE200 E59
E63=E59
E64=E60
"DDD22"
G72 $PS1 E33 $PS2 E34  RE200 E59
E63=(E63+E59)/(E9-1)
E64=(E64+E60)/(E9-1)
"DDD21"
G72 $PS1 E33 $PS2 E34  E59
E63=(E63*(E9-1)+E59)/E9
E64=(E64*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPLC6)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC6"
                                            ;
                 ;-室  ᪮
                 ; ࠡ⪨
$PS1 E53 $PS2 E34
                 ;-室   诨 
                 ;  
G0 $PS3 E30   
                                            ;
(BEQ,PR1230,1,IZPLC7)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC7"
                                            ;
; 㣫  2- 窠
;           Y         X
E71=ART((E64-E62)/(E63-E61))-URP
                                            ;
(BNC,en)
                                            ;
                                            ;
"YYY"
                 ;==========================
                 ; ७ Y
                 ;==========================
                                            ;
E87=ABS(E33-E31)
(BLE,E87,0.0001,ERR3)
                                            ;
(BEQ,PR1230,1,IZPLC8)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC8"
                                            ;
;६饭  室 樨 
;७ 1- 窨:
                 ;-室   诨 
                 ;  
G0 $PS3 E30
                 ;-室   
                 ; ᪮ ࠡ⪨
$PS1 E31 $PS2 E52
                 ;-  诨  
                 ; ७
$PS3 E37
                                            ;
(BEQ,PR1230,1,IZPLC9)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC9"
                                            ;
;====७ 1- 窨=====
E61=0
E62=0
(BEQ,E9,1,DDD31)
(BEQ,E9,2,DDD32)
G72 $PS1 E31 $PS2 E32  RE200 E59
E61=E59
E62=E60
"DDD32"
G72 $PS1 E31 $PS2 E32  RE200 E59
E61=(E61+E59)/(E9-1)
E62=(E62+E60)/(E9-1)
"DDD31"
G72 $PS1 E31 $PS2 E32  E59
E61=(E61*(E9-1)+E59)/E9
E62=(E62*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPL10)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPL10"
                                            ;
                 ;-⢮    ᪮
                 ; ࠡ⪨
$PS1 E31 $PS2 E52
                                            ;
(BEQ,E8,0,BBB2)
                 ;-室   诨
                 ;   
G0 $PS3 E30
                                            ;
"BBB2"
                                            ;
                 ;-室  
                 ;  ᪮ ࠡ⪨
G0 $PS1 E33 $PS2 E54
                 ;-  诨  
                 ; ७
$PS3 E37
                                            ;
(BEQ,PR1230,1,IZPL11)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL11"
                                            ;
;====७ 2- 窨=====
E63=0
E64=0
(BEQ,E9,1,DDD41)
(BEQ,E9,2,DDD42)
G72 $PS1 E33 $PS2 E34  RE200 E59
E63=E59
E64=E60
"DDD42"
G72 $PS1 E33 $PS2 E34  RE200 E59
E63=(E63+E59)/(E9-1)
E64=(E64+E60)/(E9-1)
"DDD41"
G72 $PS1 E33 $PS2 E34  E59
E63=(E63*(E9-1)+E59)/E9
E64=(E64*(E9-1)+E60)/E9
                                            ;
(BEQ,PR1230,1,IZPL12)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPL12"
                                            ;
                 ;-⢮   
                 ; ᪮ ࠡ⪨
$PS1 E33 $PS2 E54
                 ;-室   诨 
                 ;  
G0 $PS3 E30
                                            ;
; 㣫  2- 窠
;           Y         X
E71=ART((E64-E62)/(E63-E61))-URP
                                            ;
                                            ;
(BNC,en)
                                            ;
"en"
                                            ;
                 ;E26 - 㣫 
                 ;    ᪮  ⮬
                 ;    ।⠭
                 ; 㣫 אַ  ࠬ U
E26=E71-E26
                                            ;
                 ; ᯮ
                 ; ᪮
                 ;ࠡ⪨:
(URP,E26)
                                            ;
(BEQ,PR1230,1,IZPL13)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPL13"
                                            ;

(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,"⠭  窠 - ")
(DEF,10, 4, 5,"   Y   > 0.")
(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,"   X   > 0.")
(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,IZPL14)
SN(E16).BL=0
(DLY,0.2)
"IZPL14"
       ;====== 横======