;----------------- STk ------------------------
;१஢ אַ㣮쭮 ଠ
  G94 G97 G40 G90
;(X) न ।   㣮 אַ㣮쭨   X.
  E42=PL1
;(Y) न ।   㣮 אַ㣮쭨   Y.
  E43=PL2
;(I)  p pאַ㣮쭨   X
  E44=PL4
;(J)  p pאַ㣮쭨   Y
  E45=PL5
;(R) 㣫
 E37=PL8
;(Z) न 窨 砫 ࠡ⪨   Z.
  E46=PL3
;(K) न । 㡨   Z.
  E47=PL6
;(d) 㡨  室
  E36=PL7
;(USF) ਯ ⠢塞   孮 
  E48=PL9
 
;(USP) ਯ ⠢塞  㡨
  E49=PL10
; १
 ;E31-R १
          E31=PL0
  E32=E31*4
  E50=PL0
  E50=E50*2
 (BNE,E50,0,WW)
 (DIS," ४    १")
 "WW"
;(OVER) 쭮 ४⨥
  E51=PL11
;-------------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
(BGT,E47,E46,ERR2)
; I/2
E53=E44/2
; J/2
E54=E45/2
E55=E37-E48
; 
E56=E53-E48
; 
E57=E54-E48
; ----------------------------------
E58=E53-E37
E59=E54-E37
E60=NEG(E58)
E61=NEG(E59)
; ----------------------------------
(BGT,E31,E55,ERR1)
(BGT,E50,E56,ERR2)
(BGT,E50,E57,ERR3)
(BGT,E45,E44,S2)
; -----------------------------
E62=E57+E51/2
E63=E62/E50
E64=INT(E63)
; 
E1=E64+1
; increment
E65=(E62-E50)/E64
; 
E66=(E50/2)-(E51/2)
E67=E53-E54
; 
E67=E67+E66
; 
E55=E46
; -----------------------------
E42=E42+E53
E43=E43+E54
(UIO,XE42,YE43)
G X Y
ZE55
; ------------------------------
(RPT,E0)
E68=E66
E69=E67
E55=E55-E52
G1ZE55
(RPT,E1)
E70=NEG(E68)
E71=NEG(E69)
; ------------------------------------
(BGT,E68,E59,CAL)
; ------------------------------------
YE70
XE69
YE68
XE71
YE70
X
(BNC,CAL1)
; -------------------------------------
"CAL"
YE70
XE58
G3 XE69 YE61 IE58 JE61
G1 YE59
G3 XE58 YE68 IE58 JE59
G1 XE60
G3 XE71  YE59 IE60 JE59
G1 YE61
G3 XE60 YE70 IE60 JE61
G1 X
; -----------------------------------
"CAL1"
E68=E68+E65
E69=E69+E65
(ERP)
Y
(ERP)
G ZE46
(BNC,S1)
; ---------------------------------
"S2"
E62=E56+E51/2
E63=E62/E50
E64=INT(E63)
E1=E64+1
; 
E65=(E62-E50)/E64
E66=(E50/2)-(E51/2)
E67=E54-E53
E67=E67+E66
; 
E55=E46
; -----------------------------
E42=E42+E53
E43=E43+E54
(UIO,XE42,YE43)
G X Y
ZE55
; -------------------------
(RPT,E0)
E68=E66
E69=E67
E55=E55-E52
G1 ZE55
(RPT,E1)
E70=NEG(E68)
E71=NEG(E69)
; ----------------------
(BGT,E68,E58,LAB3)
; ----------------------
XE68
YE69
XE70
YE71
XE68
Y
(BNC,LAB4)
; -------------------------
"LAB3"
XE68
YE59
G3 XE58 YE69 IE58 JE59
G1 XE60
G3 XE70 YE59 IE60 JE59
G1 YE61
G3 XE60 YE71 IE60 JE61
G1 XE58
G3 XE68 YE61 IE58 JE61
G1 Y
; -------------------------
"LAB4"
E68=E68+E65
E69=E69+E65
(ERP)
X
(ERP)
G ZE46
; ---------------------------------
"S1"
; 
E42=NEG(E42)
E43=NEG(E43)
(UIO,XE42,YE43)
(BNC,FINE)
     "ERR1"
(DIS,".१  <=R.-USF")
                                            ;!!!!(RPT,0)- 訡!!!!!
                                                 (RPT,0)
   "ERR2"
(DIS,"D १  <=I/2-USF")
                                                 (RPT,0)
   "ERR3"
(DIS,"D १  <=J/2-USF")
                                                 (RPT,0) 
                       "FINE"
; ----------   -------------
