;----------------- STI ------------------------
;१஢ אַ㣮쭮 ଠ
  G94 G97 G40 G90

; (X) न ।   㣮 אַ㣮쭨   X.
  E42=PL1

; (Y) न ।   㣮 אַ㣮쭨   Y.
  E43=PL2

; (I)  p pאַ㣮쭨   X
  E44=PL4

; (J)  p pאַ㣮쭨   Y
  E45=PL5

; (Z) न 窨 砫 ࠡ⪨   Z.
  E46=PL3

; (K) न । 㡨   Z.
  E47=PL6

; (d) 㡨  室
  E36=PL7

; (USF) ਯ ⠢塞   孮 
  E48=PL8

; (USP) ਯ ⠢塞  㡨
  E49=PL9

;  १
  E50=PL0
  E50=E50*2
 (BNE,E50,0,WW)
 (DIS," ४    १")
 "WW"

; (OVER) 쭮 ४⨥
  E51=PL10

;-------------p ⮢ d=0-------------------
 (BEQ,E36,0,16)
 (BNC,18)
    "16"
 E0=0
 E48=0
 E49=0
    "18"

;-----P ⢠ p室--------
      ;E38-㡨  Z
       E38=E46-E47-E49
       (BEQ,E36,0,6)
      ;E0-P 楫 ⢠ p室
       E0=INT(E38/E36)
      ;E41-P ⪠, 
       E41=E38-(E0*E36)
      ;E39-10% 㡨  p室
       E39=E36*0.1
      ;᫨ ⮪ <=10% 㡨  p室 p室  "6", ᫨ > p 1 p室
       (BLE,E41,E39,6)
                 E0=E0+1
       "6"
;P 㡨  p室 E52
       E52=E38/E0
;----------------------------------------
; I/2
 E53=E44/2
; J/2
 E54=E45/2
; I/2-(ਯ)
 E55=E53-E48
; J/2-(ਯ)
 E56=E54-E48
(BGT,E50,E55,ERR1)
(BGT,E50,E56,ERR2)
(BGT,E45,E44,S2)
; -----------------------------
 E57=E56+E51/2
 E58=E57/E50
 E59=INT(E58)
;- 室 
 E1=E59+1
; increment 
 E60=(E57-E50)/E59
; 
 E61=(E50/2)-(E51/2)
 E62=E53-E54
; 
 E62=E62+E61
;न 窨 砫 ࠡ⪨   Z
 E63=E46
; -----------------------------
E42=E42+E53
E43=E43+E54
(UIO,XE42,YE43)
G X Y
ZE63
; ----------------------------
(RPT,E0)
E64=E61
E65=E62
E63=E63-E52
G1ZE63
(RPT,E1)
E66=NEG(E64)
E67=NEG(E65)
YE66
XE65
YE64
XE67
YE66
X
E64=E64+E60
E65=E65+E60
(ERP)
Y
(ERP)
G ZE46
(BNC,S1)
; ---------------------------------
"S2"
E57=E55+E51/2
E58=E57/E50
E59=INT(E58)
E1=E59+1
; increment 
E60=(E57-E50)/E59
E61=(E50/2)-(E51/2)
E62=E54-E53
E62=E62+E61
;न 窨 砫 ࠡ⪨   Z
E63=E46
; -----------------------------
E42=E42+E53
E43=E43+E54
(UIO,XE42,YE43)
G X Y
ZE63
; ----------------------------
(RPT,E0)
E64=E61
E65=E62
E63=E63-E52
G1 ZE63
(RPT,E1)
XE64
YE65
E66=NEG(E64)
E67=NEG(E65)
XE66
YE67
XE64
Y
E64=E64+E60
E65=E65+E60
(ERP)
X
(ERP)
G ZE46
; ---------------------------------
      "S1"

E42=NEG(E42)
E43=NEG(E43)
(UIO,XE42,YE43)
(BNC,FINE)
     "ERR1"
(DIS,"D १  <=I/2-USF")
                                            ;!!!!(RPT,0)- 訡!!!!!
                                                 (RPT,0)
     "ERR2"
(DIS,"D १  <=J/2-USF")
                                                 (RPT,0)

      "FINE"
; ----------  -------------