;--------- SGT --------------
;   
 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)
; -----   X ------
; --------  ------------
 E40=E33
; E41 = J + 2*OVER
 E41=E34+(E37*2)
; (E50,E51) =    (X,Y)
 E77=E38+E48
 E50=NEG(E77)
 E51=E38-E37
; E42 =     
 E42=(E38*2)-E37
; E43 =    P2
 E43=E40+E38
; E44 =   Y
 E44=E41-(E38*2)
 (BLE,E44,0,V1)
; E2 =    
 E2=INT(E44/E42)+1
; E45 =         
 E45=E44/E2
 (BNC,V2)
     "V1"
 E2=0
 E45=0
     "V2"
; E46 =     Z
 E46=(E32-E35-E49)/E1
 E47=E32
 E43=E43+E48
 E2=E2
; ---------  ----------
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E50 $PS2E51
 $PS3E32
     (RPT,E1)
 G0 G90 $PS1E50 $PS2E51
 E47=E47-E46
 G1  $PS3E47
 E40=ABS(E40)
 E43=ABS(E43)
 G1 G91 $PS1E77
 (BEQ,E2,0,11)
           (RPT,E2)
 $PS1E40
 $PS2E45
 E40=NEG(E40)
 E43=NEG(E43)
           (ERP)
     "11"
;E40=NEG(E40)
;E43=NEG(E43)
;$PS2E45
 $PS1E43
 E47=E47+E48
 G0 G90 $PS3E47
 E47=E47-E48
     (ERP)
 G0 G90 $PS3E32
 $PS1E50 $PS2E51
 (BNC,END)
     "END"
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
