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

;
;(d) 㡨  p室
 E36=PL8
;
;(QIL) ⪫   ࠧ 砫 ࠡ   Y
 E56=PL11
;
;(USF) p   p孮
 E53=PL9
;
;(USP) p  㡨
 E52=PL10
;
;஢ન:
        ;R<=I/2+USF
         E60=E34/2+E53
         (BGT,E37,E60,ER1)
        ;R<=J/2+USF
         E61=E35/2+E53
         (BGT,E37,E61,ER2)
;                                   
;------------p ⮢ (d=0)------------
 (BEQ,E36,0,16)
       (BNC,18)
        "16"
 E1=1
 E52=0
 E53=0
        "18"
;---------- P -----------
 E30=E30+(E34/2)
 E31=E31+(E35/2)
;E41 = I/2+USF+R p
 E41=(E34/2+E53)+E38
;E42 = J/2+USF+R p
 E42=(E35/2+E53)+E38
;
 E43=E41-E37-E38
;E44
 E44=E42-E37-E38
;E45 
 E45=NEG(E42+E56)
 E46=NEG(E42+(E56/2))
 E48=NEG(E41)
 E49=NEG(E42)
 E50=NEG(E43)
 E51=NEG(E44)
;-----P ⢠ p室--------
      ;E57-㡨  Z
       E57=ABS(E32-E33)-E52
       (BEQ,E36,0,6)
      ;E1-P 楫 ⢠ p室
       E1=INT(E57/E36)
      ;E41-P ⪠, 
       E58=E57-(E1*E36)
      ;E59-10% 㡨  p室
       E59=E36*0.1
      ;᫨ ⮪ <=10% 㡨  p室 p室  "6", ᫨ > p 1 p室
       (BLE,E58,E59,6)
              E1=E1+1
       "6"
;P 㡨  p室 E40
       E40=E57/E1
       E47=E32-E40
;-----------------------------------------------------------
; -------믮 横  -----------
 (DPI,$PS1,$PS2)
 (UIO,$PS1E30,$PS2E31)
 G0 $PS1E50 $PS2E45 $PS3E32
 G28
    (RPT,E1)
 G1 G29 $PS3E47
 G2 G28 $PS1E50 $PS2E49 IE50 JE46
 G1 $PS1E43
 G3 $PS1E41 $PS2E51 IE43 JE51
 G1 $PS2E44
 G3 $PS1E43 $PS2E42 IE43 JE44
 G1 $PS1E50
 G3 $PS1E48 $PS2E44 IE50 JE44
 G1 $PS2E51
 G3 $PS1E50 $PS2E49 IE50 JE51
 G2 $PS2E45 IE50 JE46
 E47=E47-E40
    (ERP)
 G0 G29 $PS1E50 $PS2E45 $PS3E32
;
 E30=NEG(E30)
 E31=NEG(E31)
 (UIO,$PS1E30,$PS2E31)
 (BNC,9)
; ----------  -------------
  "ER1"
  (DIS,"ࠬ R   <=",E60)
  (BNC,9)
  "ER2"
  (DIS,"ࠬ R   <=",E61)
  "9"
