;--------- FILSGE -------------
;१஢ ভ १ 譥
;樫᪮ 孮 (室 
; 㡨). 
;-----------------------------
 G94 G97 G40 G90
;(X) न 業 㦭   X
 E30=PL1
;
;(Y) न 業 㦭   Y
 E31=PL2
;
;(Z) p 窨 砫 p⪨   Z
 E32=PL3
;
;(RG)  ⮢
 E33=PL4
;
;(RF)  ⮢ ⠫
 E34=PL5
;
;(K) न, । 㡨   Z.
 E35=PL6
;
;(j)   ࠤ
 E39=PL7
;
;(d) 㡨  室
 E37=PL8
;
; १
 E36=PL0
 (BNE,E36,0,WW)
 (DIS," ४    १")
 "WW"

;
;(USF) ਯ   孮
 E43=PL9
;
;(USP) ਯ  㡨
 E44=PL10
;
;(QIL) ⪫  ࠧ 砫 ࠡ 
 E45=PL11
; ---------  -----------
 (BGT,E39,0,B)
 E1=1
 E43=0
         "B"
 (BGT,E37,0,A)
 E2=1
 E44=0
         "A"
;E40 = RG-RF-USF
 E40=E33-E34-E43
       (BEQ,E39,0,6)
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E40/E39)
      ;E38-P ⪠, 
       E38=E40-(E1*E39)
      ;E52-10% 㡨  p室
       E52=E39*0.1
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "6", ᫨ > p 1 p室
       (BLE,E38,E52,6)
              
                          E1=E1+1
       "6"
; 蠣  ࠤ (j) E40
       E40=E40/E1     
;
;------
;E50 = 㡨  Z
 E50=E32-E35-E44
       (BEQ,E37,0,7)
;-----P ⢠ p室  㡨--------
      ;E2-P 楫 ⢠ p室
       E2=INT(E50/E37)
      ;E38-P ⪠, 
       E38=E50-(E2*E37)
      ;E52-10% 㡨  p室
       E52=E37*0.1
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "6", ᫨ > p 1 p室
       (BLE,E38,E52,7)
              
                          E2=E2+1
       "7"
; 㡨  室 (d2) E50
       E50=E50/E2     
 E51=E32
 E46=E33+E36+E45
;E47-P1   
 E47=NEG(E46)
;----------- 믮 横 ---------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E47 $PS2
 $PS3E32
            (RPT,E2)
;E41 = COORD. X DI P2
 E41=(E33-E40)+E36
 E51=E51-E50
 G1 G29 $PS3E51
            (RPT,E1)
;E42 = RAGGIO DI APPROCCIO
 E42=(E41+((E46-E41)/2))
 E48=NEG(E41)
 E49=NEG(E42)
 G2 G28 $PS1E48 IE49 J
 G3 I J
 G2 $PS1E47 $PS2 IE49  J
 E41=E41-E40
            (ERP)
            (ERP)
 G0 G29 $PS3E32
; 
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
;---------  ---------------
