 ;22.04.2021 KRAUTER G.
 ;========================================
 ;D07 - ⢥  㦭
 ;========================================
 ;
 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"
  
;===================砫 ᫮=====================

;न 業 㦭   
E350=PL1
;न 業 㦭   न
E351=PL2
; 㦭
E352=PL3
;砫 㣮
E25=PL4
; 㣫
E26=PL5
;⢮ 室
E1=PL6-1
;᭮ ﭨ
E355=PL7
;न  ⮢
E356=PL8
;2- ᭮ ﭨ
E357=PL9
;६饭    (0  1)
E358=PL10
;६饭  . ( אַ   㣥)
E359=PL11  
 
 
 ;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3

;। ࠢ ࠡ⪨
(BGT,E26,0,PR)
E3=2
(BNC,PO)
"PR"
E3=3
"PO"


(DPI,$PS1,$PS2)
(UIO,$PS1E350,$PS2E351)

; न ࢮ .
; X = E352/2 , Y = 0
;E360 - न ⥪  X
;E361 - न ⥪  Y
;E27 - ⥪騩 㣮
E27=E26
E360=E352/2
E363=E360
E370=E357+E356  
E371=E355+E356

(URT,E25)
;६饭  2  ﭨ
G0 $PS3 E370
;६饭  न १
G0 $PS1 E360 $PS2 0 
 
 (CCL)

(RPT,E1)


  ;६饭  ᭮ ﭨ 
  (BEQ,E358,1,11)
     G0 $PS3 E371
    (BNC,22)
  "11"
    G0 $PS3 E370
  "22"


  ; ᫥饩 न
  ;X=COS(E27)
  ;Y=SIN(E27)

   E360=E363*COS(E27)
   E361=E363*SIN(E27)
   ;
   E27=E27+E26

   ;६饭  ᫥ 

   (BEQ,E359,1,DU)
       G $PS1 E360 $PS2 E361
      (BNC,LI)
   "DU"
      GE3 F3000 $PS1 E360 $PS2 E361 IJ
   "LI" 

   ;ࠡ⪠
    (CCL)

(ERP)

(URT,0)

 
E350=NEG(E350)
E351=NEG(E351)
(UIO,$PS1E350,$PS2E351)
 
 
 
 
 
  
  
 
;=====================================================================
 
 ;================================================================
 ; 横           
                