;-------- SCA --------------
;୮ १஢ 
 G94 G97 G40 G90
;------------------------------
;(d) 㡨  p室
 E50=PL7
;
;(X) p 窨 砫 p⪨   X
 E30=PL1
;
;(Y) p 窨 砫 p⪨   Y
 E31=PL2
;
;(Z) p 窨 砫 p⪨   Z
 E35=PL3
;
;(I) Cp 誠
 E32=PL4
;
;(K) 祠 p   Z
 E36=PL5
;
;(R) P ᮥ
 E33=PL6
;
;P p
 E42=PL0
 (BNE,E42,0,WW)
 (DIS," ४    १")
 "WW"
;
;(USF) p   p孮
 E47=PL8
;
;(USP) p  㡨
 E46=PL9
;
; --------- ⮢ p⪠ d=0 ----------
 (BEQ,E50,0,16)
 (BNC,17)
         "16"
 E1=1
 E47=0
 E46=0
         "17"
; ------------------------------
 E48=E42+E47
 (BGT,E48,E33,A)
; ----------------------------
;E2 = 室  ਭ
 E2=INT((E33-E47)/(E42*2)+1)
;
;E44 = QUOTA DI ASPORT. LATER.
 E44=(E33-E47)/E2
;
;E37-㡨  Z
     E37=ABS(E35-E36)-E46
                  (BEQ,E50,0,6)
;
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E37/E50)
      ;E38-P ⪠, 
       E38=E37-(E1*E50)
      ;E51-10% 㡨  p室
       E51=E50*0.1
      ;᫨ ⮪ <=10% 㡨  p室 p室  "6", ᫨ > p 1 p室
       (BLE,E38,E51,6)
              
                          E1=E1+1
       "6"
;P 㡨  p室 E37
       E37=E37/E1
;-----------------------------------------------------------
 E38=E35
;E39 = 
 E39=E32-(E33*2)
;------- 믮 横 -------------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G $PS1 $PS2 $PS3E35
 (RPT,E1)
 E38=E38-E37
 E35=0
 G1 G29 $PS3E38
;E41
 E41=E44-E42
 (RPT,E2)
 E41=NEG(E41)
 E40=E41/2
 E45=NEG(E41) 
 G3 G28 $PS1 $PS2E41 I JE40
 G1 $PS1E39
 G3 $PS2E45 IE39 J
 G1 $PS1
 G3 $PS2E41 I J
 $PS2 I JE40
 E41=NEG(E41)
 E41=E41+E44
 (ERP)
 (ERP)
 G0 G29 $PS3E35
; -----------------------------
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
 (BNC,Z)
           "A"
 (DIS,"R १  <=Rᮥ.-USF")
						           ;!!!RPT0- 訡
								                (RPT,0)
           "Z"
;-----------  ------------