;: C1=
;==========
SYVAR185.15CH="     1.02"
;
;ᮡ .
                                            ;
;稪 ᠭ ()  诨.
                                            ;
;  ७  横  ।:
; 㬮砭  0: BPI=0 ⨢ , 䨣஢  TAS  TAS0 (*5 PGCFIL)
;                       BPI=1 ⨢ , 䨣஢  TAS1 (*5 PGCFIL)
                                            ;
; 䠩 PGCFIL  ᥪ樨 *2    2 樨:
;  SIM=E,,1000,,,         - ⢮ E   65565
;  SIM=NEW,PR,2000,6,62,3 -  ६ (᪫⥫쭮  ࠬ஢ 横)
; 饭
; SB - ⠭ 
                                            ;
;PR1020-१ ७
        ;  ७ 
;PR1021-१ ७
        ; 2- ( ᯮ  横)
;PR1022-१ ७
        ; 3- ( ᯮ  横)
;PR1023-न 砫
        ;७  1- 
;PR1024-न 砫
        ;७  2- 
;PR1025-न 砫
        ;७  3- 
;======
;譨 ६
;PR1200-ᨬ쭠  ६饭 
;PR1226-᪮ 㡮 ७
;PR1227-᪮ 筮 ७
                                            ;
;======================= 横:========================================
                                            ; 室  横 ᫥
                                            ; 訡 ࠭ ASSET
E5=0
                                            ;
;= ஢ઠ: ६ 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"
                                            ;
                 ;=====室 =======
         ;᢮ ६ $PS10 
         ; ७ 
$PS10=$PS1
         ;㣮    ७
         ;($PS2="a")
E134=PL2
         ;न 砫 ७ X
E137=PL3
         ;न 砫 ७ Y
E138=PL4
         ;न 砫 ७ Z
E139=PL5
                                ;
;== । ᥩ  ᪮ ࠡ⪨ ==SB
                 ;  
$PS1=$INAX1
                 ;  न
$PS2=$INAX2
                 ;  诨
$PS3=$INAX3
                                            ;
                                            ;===============================
                                            ; , 
                                            ;  DPM (DPM0).
                                            ;===============================
                                            ;DPMA-⠭ ⠭
                                            ;     ࠡ祩 ᪮ ७
                                            ;⠭ ⪫뢠 
                                            ;। 窨 ᠭ DK
                                            ; 孮  ࠢ 
                                            ;砫쭮 窥 横.
E199=DPMA
                                            ;DPMS-⠭ ᭮ DK.
                                            ;⪫뢠  ।
                                            ;窨 ᠭ 㯠 
                                            ;孮  ࠢ
                                            ;७. 
E200=DPMS
                                            ;DPMF-ࠡ ᪮ ७
                                            ;  १ DPMA+DPMS
E25=DPMF
                                            ;===============================
                                            ;쭠 ᪮ ७
                                            ;===============================
                                            ;᪮ 㡮 ७
E26=DPMF
(BEQ,PR1226,0,F1)
E26=PR1226
"F1"
                                            ;᪮ 筮 ७
E27=DPMF
(BEQ,PR1227,0,F)
E27=PR1227
"F"
                                            ;===============================
                                            ;। ࠬ஢  横
                                            ;G72  㡮 ७
                                            ;
                                            ; ७ PR1200
E135=PR1200
                                            ;⠭ ⠭ ࠡ祩
                                            ;᪮ ७.
E136=ABS(E135)
                                            ;⠭ 室  窨
                                            ;ᠭ ᫥ 㡮 ७
E141=5
                                            ;⨢ 쭮 奬
                                            ;   横 㡮
                                            ;७
(DPT,E136,E200,E26)
                                            ;
                                            ;樠 ६ 
                                            ; १ ७
E131=0
E132=0
                                            ;
(BEQ,PR1230,1,IZPLC2)
; 
SN(E16).BL=1
(DLY,0.2)
"IZPLC2"
                                            ;
                 ;६饭  
                 ;砫 ७
G0 G90 $PS1 E137 $PS2 E138 $PS3 E139
                 ; न 窨
                 ;砫 ७
(GTA,$PS1,1,E151)
(GTA,$PS2,1,E152)
(GTA,$PS3,1,E153)
                 ; 砫
                 ;न ७
PR1023=E151
PR1024=E152
PR1025=E153
                                            ;
(BEQ,PR1230,1,IZPLC3)
                 ;  몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC3"
                                            ;
(BEQ,$PS10,$PS1,XXX)
(BEQ,$PS10,$PS2,YYY)
(BEQ,$PS10,$PS3,ERR6)
                                            ;
                                            ;
                                            ;
(BNC,ERR5)
                                            ;
                                            ;
                                            ;
"XXX"
                 ;==========================
                 ; ७ X
                 ;==========================
                                            ;㡮 ७ G90  室
                                            ; ७ 窨  稭
                                            ;RE14

E143=E135*COS(E134)
E144=E135*SIN(E134)
G90 G72 $PS1 E143 $PS2 E144 RE141 E131
                                            ;筮 ७ G90
                                            ;⨢ 쭮 奬
                                            ;   横 筮
                                            ;७
(DPT,E136,E200,E27)
                                            ;
;E143=(E135-E141)*COS(E134)
;E144=(E135-E141)*SIN(E134)
G90 G72 $PS1 E143 $PS2 E144 E131
                                            ;室  ࠡ ७                                ;
(BNC,ENDG72)
                                            ;
                                            ;
                                            ;
"YYY"
                 ;==========================
                 ; ७ Y
                 ;==========================
                                            ;㡮 ७ G90  室
                                            ; ७ 窨  稭
                                            ;RE141

E143=E135*SIN(360-E134)
E144=E135*COS(360-E134)
G90 G72 $PS1 E143 $PS2 E144 RE141 E131
                                            ;
                                            ;筮 ७ G90
                                            ;⨢ 쭮 奬
                                            ;   横 筮
                                            ;७
(DPT,E136,E200,E27)
                                            ;
G90 G72 $PS1 E143 $PS2 E144 E131
                                            ;室  ࠡ ७
(BNC,ENDG72)
                                            ;
                                            ;
                                            ;
"ZZZ"
                 ;==========================
                 ; ७ Z
                 ;==========================
                 ;襭  
                 ;==========================
                                            ;
                                            ;
                                            ;
"ENDG72"
                                            ;
(BEQ,PR1230,1,IZPLC4)
                 ;  
SN(E16).BL=1
(DLY,0.2)
"IZPLC4"
                                            ;
                                            ;
                 ; न 横
G0 G90 $PS1 E137 $PS2 E138 $PS3 E139
                                            ;
(BEQ,PR1230,1,IZPLC5)
                 ; 몫
SN(E16).BL=0
(DLY,0.2)
"IZPLC5"
                                            ;
                                            ;⨢ 奬  ,
                                            ;  DPM
(DPT,E199,E200,E25)
                                            ;
                                            ;==࠭ १
                                            ;   ६         ===
PR1020=E131
PR1021=E132
(DIS,$PS1,PR1020," ",$PS2,PR1021)
                                            ;
                                            ;
                                            ;
(BNC,END)
                                            ;
                 ;=====ࠡ⪠ 訡=====
"ERR1"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 䨣樨 ")
(DEF, 2, 1,52,"")
(DEF, 5, 3, 5,", न   诨")
(DEF,10, 3,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)
                                            ;
                                            ;
"ERR5"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 롮  ")
(DEF, 2, 1,52,"७")
(DEF, 5, 3, 5,"  ७   ")
(DEF, 6, 3,37," , न   诨")
(DEF,10, 3,69,".")
(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)
                                            ;
                                            ;
"ERR6"
                                            ;
(SCR,ON)
(DEF, 1, 1,20,"! 訡 롮  ")
(DEF, 2, 1,52,"७")
(DEF, 5, 3, 5," Z    । ")
(DEF, 6, 3,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"

