 ;08.04.2021 KRAUTER G.
 ;========================================
 ;D03 - 窠
 ;========================================
 ;
 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 
 ; ⭮ 室 FBack
 E26=PL4 
 ;न 孮 ⮢ (᮫⭠) O
 E106=PL5

 ;2- ࠧ ᭮ R2
 E107=PL6
 ;६ 뤥প  t2
 E108=PL7
 ;ࠢ 室  ਠ
 E109=PL8
 
 
 ; 祭 FRAPC
 PR401=FRAPC
 
 
  ;᫨  ⭮ 室 =0,  ࠢ   १
  (BGT,E26,0,AAA)
     E26=E25
  "AAA"  
  
;  
$PS1=$INAX1
;  न
$PS2=$INAX2
;  诨
$PS3=$INAX3
  
;=============================================
;               
;=============================================
 
  ;室 祭 Z
      E300=E106+E101

  ;室    
      G$PS3E300

;========
;६:
;E200 - ⥪ न १.
;E201 - ⥪騩 ⮪ १.
;E202 - ⥪ ᭠ .
;E203 - ࠬ I  横 86
;E204 - ࠬ J  横 86


;᢮ ࠬࠬ I  J 横 
;86 祭  ᨬ  
;ࠢ 室
(BEQ,E109,1,22)
(BEQ,E109,1,33)
(BEQ,E109,1,44)
(BEQ,E109,1,55)
E203=0
E204=0
(BNC,66)
"22"
E203=-0.2
E204=0
(BNC,66)
"33"
E203=0
E204=-0.2
(BNC,66)
"44"
E203=0.2
E204=0
(BNC,66)
"55"
E203=0
E204=0.2

"66"


; ॢ  न 孮
(UIO,$PS3E106)
;। ⥪ न 㬥  X   Y
(GTA,$PS1,1,E205)
(GTA,$PS2,1,E206)
  FE25
     ;६ 뤥প 
  TMR=E108
     ;⠭ 横 窨 G86  
  G86RE101$PS3E102IE203JE204
     ;FRAPC - ६, ⢥   ⭮ 室
  FRAPC=E26
     ;न ⢥, 祭 १ GTA ࠭
  
  $PS1E205$PS2E206
     ; 横 G86
  G80
  ; न 室  1 ᭮ ﭨ
  E111=E106+E101
  
  ;====================
  ;  
  
  
  G0$PS3E107
  
  ;室  ஥ ᭮ ﭨ 


  ; 砫쭮 窨  室
  E207=NEG(E106)
  (UIO,$PS3E207)
 
; M00
 
 
  ; 祭 FRAPC
 FRAPC=PR401
 
 
 ;================================================================
 ; 横           
                