 ;01.03.2021 KRAUTER G.
 ;========================================
 ;D01 -  ᢥ૥ ⢥
 ;========================================
 ;
 G0 G94 G97 G40 G90 G29

 ;==============᫥  =============
(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"
  
;===================砫 ᫮=====================
  
;᭮ ﭨ R1
 E101=PL1 
 ;㡨 ࠡ⪨ Z
 E102=PL2 
 ;  १ F
 E25=PL3 
 ;㡨 १ I
 E104=PL4 
 ;६ 뤥প  t1
 E105=PL5 
 ;न 孮 ⮢ (᮫⭠) O
 E106=PL6 
 ;2- ࠧ ᭮ R2
 E107=PL7 
 ;६ 뤥প  t2
 E108=PL8 
 
;====न ᢥ૥ ⥯   横,  横 ᪠  (CCL)
 ;न ⢥   X
 ;E109=PL7 
 ;न ⢥   Y
 ;E110=PL8
 
  
  
  
  ;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3
  
;=============================================
;               
;=============================================
 
 
 ;஢ઠ,  㡨  १   㡨 ࠡ⪨.
 (BGT,E104,E102,ERRV)
 
 
 
 
 

 
 

  ;室 祭 Z  祭 室 ᫥  १
      E112=E106+E101

  ;室    
  G$PS3E112
  

;========
;६:
;E111 - ⥪ न १.
;E201 - ⥪騩 ⮪ १.
;E202 - ⥪ ᭠ .

  FE25
  E201=E102-E104
  E111=E106-E104
  E202=E111+E101
  
 (BEQ,E104,E102,YES)
 
 "NO"

 G1$PS3E111 
 (DLY,E108)
 G$PS3E112
 (DLY,E105)
 G$PS3E202  
 
 E201=E201-E104
 E111=E111-E104
 E202=E202-E104
 
 (BGT,E201,0,NO)
 ;^^^^^^^^^^^^^^^^^^^^
 "YES"
; E111=E111+E104-E201
; E202=E111+E101
 E111=E106-E102
 G1$PS3E111
 G0$PS3E102
 
 ; 
  (BEQ,E107,0,R1)
  
  ;"R2"
  ; न 室  ⮬  ᭮ ﭨ
  E111=E106+E107
   G0$PS3E111
  (BNC,ENDR)
  
  "R1"
  ; न 室  ⮬  ᭮ ﭨ
  E111=E106+E101
  G0$PS3E111
 

 ;訡 =====================
  (BNC,ENDR)
 "ERRV"
 (DIS, " !! I > Z.")
 "ENDR"
 ;============================
 

 
 ;================================================================
 ; 横           
                