;------- SGC --------------
;୮ 室 १஢  㡨 
; ࠬ 楢 १.
; -----------------------------
 G94 G97 G40 G90
;
;(X) न, ।   㣮 אַ㣮쭨   X.
 E30=PL1
;
;(Y) न, ।   㣮 אַ㣮쭨   Y.
 E31=PL2
;
;(Z) p 窨 砫 p⪨   Z
 E32=PL3
;
;(K) न, । 㡨   Z.
 E35=PL6
;
;(I)  p pאַ㣮쭨   X
 E33=PL4
;
;(J)  p pאַ㣮쭨   Y
 E34=PL5
;
;P p㬥
 E36=PL0
 (BNE,E36,0,WW)
 (DIS," ४    १")
 "WW"

;
;(d) 㡨 1 p室
 E39=PL7
;
;(USF) p   p孮
 E46=PL8
;
;(USP) p  㡨
 E47=PL9
;
;---------⮢ p⪠ d=0-----
 (BEQ,E39,0,16)
 (BNC,17)
      "16"
  E46=0
  E47=0
  E1=1
      "17"
;---------- P -----------
;E42-p 窨  p⪨   X 
     E42=E33+E46+E36
;
;E43-p 窨  p⪨   Y 
     E43=E34+E46+E36
;
;E40-R p㬥 + p
     E40=NEG(E36+E46)
;
;E37-㡨  Z
     E37=ABS(E32-E35)-E47
                  (BEQ,E39,0,6)
;
;-----P ⢠ p室--------
      ;E1-P 楫 ⢠ p室
       E1=INT(E37/E39)
      ;E38-P ⪠, 
       E38=E37-(E1*E39)
      ;E50-10% 㡨  p室
       E50=E39*0.1
      ;᫨ ⮪ <=10% 㡨  p室 p室  "6", ᫨ > p 1 p室
       (BLE,E38,E50,6)
              
                          E1=E1+1
       "6"
;P 㡨  p室 E44
       E44=E37/E1
 E45=E32
;-----------------------------------------------------------
; ------- 믮 横 -----------
;DPI: X-, Y-p
 (DPI,$PS1,$PS2)
;
;p饭 室 窨 X-E30, Y-E31
 (UIO,$PS1E30,$PS2E31)
;
 G0 $PS1E40 $PS2E40
    $PS3E32
                         (RPT,E1)
 E45=E45-E44
 G1 G29 $PS3E45
 G27 $PS1E42
 $PS2E43
 $PS1E40
 $PS2E40
                         (ERP)
 G0 $PS1E40 $PS2E40
 $PS3E32
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
; -----------------------  -------------
