;V1.3 KCU
; - 室 १஢ ७
;   ᪮ 孮 ᢥ ;
; - 室 १ ७ १
;    ᪮ 孮 ᢥ 
;     室.
;==========================================
;(X)   - .業  X
 E40=PL1
;(Y)   - .業  Y
 E41=PL2
;(Z)   -   ⠫
 E42=PL3
;(RFB) - ࠤ 㦭   ᭮
 E34=PL4
   E30=E34
   E80=E34
   E31=0
         ;E32 - ࠤ   ⥪饩 窥
          E32=E34
;(K)   - न 孥 ᭮ 
 E51=PL5
;(H)   -  
 E57=PL6
 E81=-E57
 
;()   - 㣮 
 E33=PL7
; E33=ART(E57/E34)
;(d)   - 蠣    360 ࠤᮢ
 E35=PL8
         ; 
         E36=E35*(3.14159265*2)/360
E77=E57/E35
E78=E77-INT(E77)
;ࠤ  ᭮ 
;E79=E34+E57/TAN(E33)
E79=E34-E57/TAN(E33)

;(e)   - ⨬ ⪫  㦭 ()
 E38=PL9
;         E37=E57-E38

   ; 㣫 ᥣ  ᭮  筮
   E39=ARC((E34-E38)/E34)*2
;
;(USF) - ਯ   孮
 E43=PL10
;
;(USP) - ਯ  㡨
 E44=PL11
;;;;;;;;;;;;;;;;;;;;;;;;;;;; E81=-E57+E44
;
;(QIL) - ⪫  ࠧ 砫 ࠡ 
 E45=PL12

;(F)   - ࠡ   
 E25=PL13

;(f)   - ࠡ  室  ᭮    Z
 E26=PL14

;(q)   - ࠢ 室 (=0-⨢ ..;=1- ..)
 E68=PL15
      
 (BEQ,E68,0,PROTV1)
   E39=NEG(E39)
   
   "PROTV1"

;(TOR)   - ⨯ १ 0-楢; 1-஢ (᪠)
 E73=PL16
 ; 㬮砭 G61 
 E2=61


              ;砫 㣮  1- 窨 孮  1- 祭
E60=0
              ;⥪  祭 
E67=0
              ;न  ண 室  ᭮  ( 1   )
E75=E51


; १
 E52=PL0
 E52=ABS(E52)

;᫨ 1,  室   ࠡ⪨ ஢ १
(BEQ,E73,1,G60)

;===============================================================================
;================================= ================================
;===============================================================================
(BNE,E36,0,WW)
 (DIS," ४    १")
 "WW"

   E34=E34-E52-E43
              ;訡1:१  ⮬  ਯ᪠  頥  ⢥⨥     
(BLT,E34,0,ERR1)
   E30=E34
   E31=0
   E32=E34

;             ;न ᪠  ᭮  RBF+K/2+QIL+USF   X
E49=E34-E52-E45-E43

;訡2:१  ⮬  ਯ᪠ UCF  ⪫ QIL  頥  ⢥⨥
;(BLT,E49,0,ERR2)
(BGT,E49,0,VV)
E49=0
"VV"

;----------- 믮 横 ---------
 (DPI,$PS1,$PS2)

 (UIO,$PS1E40,$PS2E41)
 G0 $PS1E49 $PS2
 G0 $PS3E42
                         ;न ᭮   Z+USP ( ⮬ ਯ᪠  㡨):
 E51=E51+E44
 (UIO,$PS3E51)
                         ;஥ ᪠  Z + 1
 E82=1
 G0$PS3E82
                         ;᪠  Z  0  ࠡ祩  
 G1$PS3E67FE26
                         ; न  砫쭮 㣫 E60
;X
E30=E32*COS(E60)
;Y
E31=E32*SIN(E60)

;     X       Y      Z
G1G27$PS1E30$PS2E31$PS3E67FE25
;==============================
"BEGIN"
                         ; 㣫 ᥣ  ᭮  筮   ࠤ 祭 
                E90=E32-E52
                E39=ARC((E90-E38)/E90)*2
                (BEQ,E68,0,PROTV2)
                E39=NEG(E39)
        "PROTV2"
                E69=ABS(E39)
                         ;᫨ 㣮 ᥣ  30,  㣮 ᥣ =30 ࠤᠬ
                (BGT,E69,40,10)
                (BNC,NEXT)
        "10"
                E39=40
                (BEQ,E68,0,PROTV3)
                E39=NEG(E39)
        "PROTV3"
        "NEXT"
E60=E60+E39
E50=ABS(E60)
E67=-E36/(2*3.14159265)*E50
(BLT,E67,E81,BEGIN1)

E32=E34+E67/TAN(E33)
                         ;᫨ ࠤ 㦭  筮 㦭,  "1"
(BLT,E32,E38,1)
                         ;᫨ ࠤ 㦭  0,  "1"
(BLT,E32,0,1)

E30=E32*COS(E60)
E31=E32*SIN(E60)
                         ;न ⥪饩 窨  孮 䨣
G1$PS1E30$PS2E31$PS3E67
;
(BNC,BEGIN)
(BNC,END)
;
;᫥  䨫 ========
"BEGIN1"

; ࠤ  ᫥ 室
E32=E79-E52-E43


;⨢ .
E60=E57/E35*360
E83=E60+360

                (BEQ,E68,0,PROT2)

E60=NEG(E60)
E83=E60-360

"PROT2"

E67=E81

"LOOP1"
E30=E32*COS(E60)
E31=E32*SIN(E60)
G1$PS1E30$PS2E31$PS3E67
E60=E60+E39
E84=ABS(E60)
E85=ABS(E83)
(BLE,E84,E85,LOOP1)

;᫥ 窠  㦭:
E60=E83
E30=E32*COS(E60)
E31=E32*SIN(E60)
G1$PS1E30$PS2E31$PS3E67
;===
 E51=NEG(E51)
 (UIO,$PS3E51)

E49=E32-E52-E45-E43
 G0 $PS1E49 $PS2
    $PS3E42
 E40=NEG(E40)
 E41=NEG(E41)
 (UIO,$PS1E40,$PS2E41)
;---------  ---------------
(BNC,END)
;=========================================================================
;=========================================================================
;=========================== =================================
;=========================================================================
;=========================================================================
"G60"
;G61/G62/G60==============================================================
(BNE,E36,0,WWW)
 (DIS," ४    १")
 "WWW"

   E34=E34-E43
   E74=E34-E52-E43
              ;訡1:१  ⮬  ਯ᪠  頥  ⢥⨥     
(BLT,E74,0,ERR1)
   E30=E34
   E31=0
   E32=E34

;             ;न ᪠  ᭮  RBF+K/2+QIL+USF   X
E49=E34-E52-E45-E43
;訡2:१  ⮬  ਯ᪠ UCF  ⪫ QIL  頥  ⢥⨥
;(BLT,E49,0,ERR2)
(BGT,E49,0,VVV)
E49=0
"VVV"

;----------- 믮 横 ---------
 (DPI,$PS1,$PS2)

 (UIO,$PS1E40,$PS2E41)
 G0 G90 $PS1E49 $PS2
        $PS3E42
                    ;न ᭮   Z+USP ( ⮬ ਯ᪠  㡨):
 E51=E51+E44+1
 (UIO,$PS3E51)
                         ;஥ ᪠  Z + 1
 G0$PS3E75
                         ;᪠  Z  0 (E67=0)  ࠡ祩  
 G1$PS3E67FE26
E60=0
E32=E34-E43
                         ; न  砫쭮 㣫 E60
;X
E30=E32*COS(E60)
;Y
E31=E32*SIN(E60)
;K
E72=COS(E33)
;I
E70=-1*E30/SQR(E30*E30+E31*E31)
;J
E71=-1*E31/SQR(E30*E30+E31*E31)
;
G1G27GE2$PS1E30$PS2E46$PS3E67IE70JE71KE72FE25

;==============================
"BEG60"

                         ; 㣫 ᥣ  ᭮  筮   ࠤ 祭 
                E90=E32-E52
                E39=ARC((E90-E38)/E90)*2
                (BEQ,E68,0,PRO2)
                E39=NEG(E39)
        "PRO2"
                E69=ABS(E39)
                         ;᫨ 㣮 ᥣ  30,  㣮 ᥣ =30 ࠤᠬ
                (BGT,E69,40,100)
                (BNC,NEXT1)
        "100"
                E39=40
                (BEQ,E68,0,PRO3)
                E39=NEG(E39)
        "PRO3"
        "NEXT1"
E60=E60+E39
E50=ABS(E60)
E67=E36/(2*3.14159265)*E50
(BGT,E67,E57,BEGIN2)

E32=E34+E67/TAN(E33)
                         ;᫨ ࠤ 㦭  筮 㦭,  "1"
(BLT,E32,E38,160)

(BLT,E32,0,160)

;X
E30=E32*COS(E60)
;Y
E31=E32*SIN(E60)
;I
E70=-1*E30/SQR(E30*E30+E31*E31)
;J
E71=-1*E31/SQR(E30*E30+E31*E31)
                         ;न ⥪饩 窨  孮 
G1$PS1E30$PS2E31$PS3E67IE70JE71KE72
(BNC,BEG60)

;᫥  䨫 ========
"BEGIN2"
;⨢ .
E60=E57/E35*360
                (BEQ,E68,0,PROTI2)
E60=NEG(E60)
"PROTI2"

E32=E79-E43
;X
E30=E32*COS(E60)
;Y
E31=E32*SIN(E60)
;I
E70=-1*E30/SQR(E30*E30+E31*E31)
;J
E71=-1*E31/SQR(E30*E30+E31*E31)
;Z
E67=E57
                         ;न ᫥ 窨  孮 
G1$PS1E30$PS2E31$PS3E67IE70JE71KE72
 E51=NEG(E51)
 (UIO,$PS3E51)
 G0 G60 G90 $PS1E49 $PS2
    $PS3E42

 E40=NEG(E40)
 E41=NEG(E41)
 (UIO,$PS1E40,$PS2E41)

(BNC,END)
;---------  ---------------
"ERR1"
(DIS,"K>᭮ +USF")
"ERR2"
(DIS,"K>᭮ +USF+QIL")
"1"
"END"