; ------- SPO --------------
; -----------------------------
 G94 G97 G40 G90
;(X) न ।   㣮 אַ㣮쭨   X.
 E30=PL1
;
;(Y) न ।   㣮 אַ㣮쭨   Y.
 E31=PL2
;
;(Z) न 窨 砫 ࠡ⪨   Z.
 E32=PL3
;
;(K) न । 㡨   Z.
 E33=PL6
;
;(I)  p pאַ㣮쭨   
 E34=PL4
;
;(J)  p pאַ㣮쭨   Y
 E35=PL5
;
;(R)  p㣫
 E37=PL7
;
;(d) 㡨  p室
 E36=PL8
;
; P p 
 E38=PL0
 (BNE,E38,0,WW)
 (DIS," ४    १")
 "WW"
;
;(USF) p   p孮
 E53=PL9
;
;(USP) p  㡨
 E52=PL10
;
;(QIL)⪫  pp 砫 p   Y
 E56=PL11
;
;஢ન:
         ;1)R>=R+USF
            E62=E38+E53
            E63=ABS(E37)
            (BLT,E63,E62,ER1)
         ;4)QIL<=(R-R-USF)*2
            E64=(E63-E38-E53)*2
            (BGT,E56,E64,ER4)
;-------------p ⮢ d=0-------------------
 (BEQ,E36,0,16)
 (BNC,18)
    "16"
 E1=1
 E52=0
 E53=0
    "18"
;-----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
;------------------P--------------------------
E54=E37
E37=ABS(E37)-E38-E53
E30=E30+(E34/2)
E31=E31+(E35/2)
;E41 = I/2-USF-RAGGIO UT.
E41=(E34/2-E53)-E38
;E42 = J/2-USF-RAGGIO UT.
E42=(E35/2-E53)-E38
;E43 =
E43=(E41-E37)
;E44 =
E44=(E42-E37)
;E45 =
E45=(E42-E56)
E46=NEG(E45+((E42-E45)/2))
E45=NEG(E45)
E47=E32-E40
E48=NEG(E41)
E49=NEG(E42)
E50=NEG(E43)
E51=NEG(E44)
(DPI,$PS1,$PS2)
(UIO,$PS1E30,$PS2E31)
G0 $PS1E50 $PS2E45 $PS3E32
     (RPT,E1)
G1 G29 $PS3E47
G2 G28 $PS1E50 $PS2E49 IE50 JE46
G2 G28 $PS1E48 $PS2E51 IE50 JE51
G1 $PS2E44
G2 $PS1E50 $PS2E42 IE50 JE44
G1 $PS1E43
G2 $PS1E41 $PS2E44 IE43 JE44
G1 $PS2E51
G2 $PS1E43 $PS2E49 IE43 JE51
G1 $PS1E50
G2 G28 $PS1E50 $PS2E45 IE50 JE46
E47=E47-E40
    (ERP)
G0 G29 $PS1E50 $PS2E45 $PS3E32
; RIMETTO L'ORIGINE PRECEDENTE
E30=NEG(E30)
E31=NEG(E31)
(UIO,$PS1E30,$PS2E31)
(BNC,OK)
        "ER1"
  (DIS,"ࠬ R   >=",E62)
  (BNC,OK)
        "ER4"
  (DIS,"ࠬ QIL   <=",E64)
        "OK"