;--------- SGS --------------
;   
 G94 G97 G40 G90
;(X) न ।   㣮 אַ㣮쭨   X.
 E30=PL1
;
;(Y) न ।   㣮 אַ㣮쭨   Y.
 E31=PL2
;
;(Z) न 窨 砫 ࠡ⪨   Z.
 E32=PL3
;
;(I)  אַ㣮쭨  X
 E33=PL4
;
;(J)  אַ㣮쭨  Y
 E34=PL5
;
;(K) न । 㡨   Z.
 E35=PL6
;
;(d) 㡨  室
 E39=PL7
;
;(O) 稭 ४   ᥤ 室
 E37=PL8
;
;(R)  १
 E38=PL0
 (BNE,E38,0,WW)
 (DIS," ४    १")
 "WW"

;
;(USP) ਯ  㡨 
 E49=PL9
;
;(QIL) ⪫  ࠧ 砫 ࠡ 
 E48=PL10
 (BNE,$PS11," ",9)
 E48=1
 "9"
; -----------------------------
; ------- ⮢ ࠡ⪠ d=0 ------------
(BEQ,E39,0,16)
(BNC,17)
  "16"
E1=1
E49=0
   "17"
;
;-----P ⢠ p室--------
      ;E57-㡨  Z
       E57=ABS(E32-E35)-E49
       (BEQ,E39,0,6)
      ;E1-P 楫 ⢠ p室
       E1=INT(E57/E39)
      ;E41-P ⪠, 
       E58=E57-(E1*E39)
      ;E59-10% 㡨  p室
       E59=E39*0.1
      ;᫨ ⮪ <=10% 㡨  p室 p室  "6", ᫨ > p 1 p室
       (BLE,E58,E59,6)
              
                          E1=E1+1
       "6"
;
 (DPI,$PS1,$PS2)
; -----   Y ------
; --------  ------------
 E40=E33+(E37*2)
 E41=E34
 E77=E38+E48
 E50=NEG(E77)
 E51=E38-E37
 E42=(E38*2)-E37
 E43=E41+E38
 E44=E40-(E38*2)
 (BLE,E44,0,V3)
 E2=INT(E44/E42)+1
 E45=E44/E2
 (BNC,V4)
     "V3"
 E2=0
 E45=0
     "V4"
 E46=(E32-E35-E49)/E1
 E47=E32
 E43=E43+E48
;E2=E2-1
; ---------  ----------
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E51 $PS2E50
 $PS3E32
     (RPT,E1)
 G0 G90 $PS1E51 $PS2E50
 E47=E47-E46
 G1 $PS3E47
 E41=ABS(E41)
 E43=ABS(E43)
 G1 G91 $PS2E77
 (BEQ,E2,0,111)
           (RPT,E2)
 $PS2E41
 $PS1E45
 E43=NEG(E43)
 E41=NEG(E41)
           (ERP)
     "111"
;E43=NEG(E43)
;E41=NEG(E41)
;$PS1E45
 $PS2E43
 E47=E47+E48
 G0 G90 $PS3E47
 E47=E47-E48
     (ERP)
 G0 G90 $PS3E32
 $PS1E51 $PS2E50
     "END"
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
