;--------- FILSGI -------------
;१஢ ভ १ ७
;樫᪮ 孮   室 
; 㡨. 
;-----------------------------
 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
;
; १
 E36=PL0
 (BNE,E36,0,WW)
 (DIS," ४    १")
 "WW"

;
;(USF) ਯ   孮
 E43=PL8
;
;(USP) ਯ  㡨
 E44=PL9
;
; --------------------
 (BGT,E39,0,A)
 E1=1
 E43=0
 E44=0
        "A"
 E45=E34-E33
       (BGT,E43,E45,C)
;
;E40 = DELTA P
 E40=((E34-E33)-E43)
       (BEQ,E39,0,6)
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E40/E39)
      ;E38-P ⪠, 
       E38=E40-(E1*E39)
      ;E50-10% j
       E50=E39*0.1
      ;᫨ ⮪ <=10% 蠣  ࠤ p室  "6", ᫨ > p 1 p室
       (BLE,E38,E50,6)
              
                          E1=E1+1
       "6"
; 蠣  ࠤ E40
       E40=E40/E1    
;
;E41 = 
 E41=(E33+E40)-E36
 E35=E35+E44
;--------------------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1 $PS2
 $PS3E32
 G1 $PS3E35
        (RPT,E1)
; E42 =
 E42=E41/2
 G3 G28 $PS2E41 I0 JE42
 I J
 $PS1 $PS2 I JE42
 E41=E41+E40
        (ERP)
 G0 G29 $PS3E32
;
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
 (BNC,FINE)
         "C"
 (DIS,"  ")
        "FINE"
;---------  ---------------
