;Ver 1.1
                         ;R  - ࠤ 
E30=PL1
                         ;I  - .業   
E40=PL2
                         ;D1 - 砫쭠 .    X
E45=PL3
                         ;L1 -  頤 ࠢ   
E35=PL4
;E35>E32
                         ;D2 -   
E43=PL5
                         ;L2 -  頤 ᫥   
E33=PL6
;E33>E32
                         ;Zn - 砫쭠 . 横 ࠡ⪨    Z
E46=PL7
                         ;Xn - 砫쭠 . 横 ࠡ⪨    X
E47=PL8
                         ;u  -  ਯ  
E31=PL9
                         ;K  - ਭ 筮 १
E32=PL10
                         ;d  - 蠣 ୮ ࠡ⪨  १殬
E34=PL11
;(d<K-1)
;᫮  蠡 (BLE,E34,73)
;᫨ d=0,  d=K-1
                         ;T - 筮 㬥 
E10=PL12
                         ;C - ४ 筮 㬥 
E11=PL13
                         ;t - 室 㬥
E12=PL14
                         ;c - ४ 室 㬥 
E13=PL15
                         ;S-᪮ १ 筮 㬥 /
E25=PL16
                         ;F- 筮 㬥  /
E26=PL17
                         ;s-।⮢ ᪮ १ 室 㬥 /
E27=PL18
                         ;f-।⮢  室 㬥  /
E28=PL19
                         ;sf-⮢ ᪮ १ 室 㬥 /
E29=PL20
                         ;p-㧠   १  筮 㬥  G4, .⮢
E48=PL21
TMR=E48
                         ;SL-।쭠 ᪮ 饭 诨  /
E49=PL22
SSL=E49
;(M) p p饭 诨           
 E3=PL23
;ࠢ 室  ४  ࠤ 㬥
(BEQ,CBS,1,TOF20)
  E4=3
  E5=42
(BNC,ENDTOF)
"TOF20"
  E4=2
  E5=41
"ENDTOF"
                         ;-㣮 १
E55=PL27
                         ;R-ࠤ १
E56=PL28

;஢ઠ   室 १  㣫,  ࠤ
(BEQ,E55,0,TESTR)
(BNC,ENDT)
"TESTR"
(BEQ,E56,0,ENDC)
"ENDT"

;஢ઠ न 砫 㣨    ࠡ⪨ १殬  A/=0  r=0

; न Z
E74=E40+E30*COS(E55)
(BLT,E44,E74,ENDA)
; न X
E75=2*E30*SIN(E55)
(BLT,E45,E75,ENDA)


E98=E30*2+1
;(UCG,2,Z-150Z50,X-5XE47)
(UCG,2,Z-120Z,XE98X,SS,0,-5)
                     ;Ak  - 㣮 ଠ  筮 窥 
E49=ARS((E43/2)/E30)
                     ;Zk - 筠 .    Z
E42=E40-E30*COS(E49)
                     ;An  - 㣮 ଠ  砫쭮 窥 
E92=ARS((E45/2)/E30)
                     ;Zn - 砫쭠 .    Z
;  ਯ᪠:
                     ; 砫쭮 窨   Znd
E44=E40+(E30)*COS(E92)
;  ⮬ ਯ᪠:
                     ; 砫쭮 窨   Znd
E50=E40+(E30+E31)*COS(E92)
                     ; 砫쭮 窨 ⮢ ࠡ⪨ 室 १殬   Z
E73=E44+E35+2*PL28
                     ; 砫쭮 窨   Xnd
E51=2*(E30+E31)*SIN(E92)
                     ; 筮 窨   Zkd
E60=E40-(E30+E31)*COS(E49)
                     ; 筮 窨   Xkd
E61=2*(E30+E31)*SIN(E49)
;================== ୮ ࠡ⪠  १殬 ========
TE10.E11M6
GXE47
G96G95G29SE25FE26ME3M8
ZE40
;================== ୮ ࠢ   ==================
          ;⠭ 㫥 ᬥ饭  業 
E70=0
E54=E34
E53=0
(BLE,E34,2.6,ENDE53)
E53=2*E34/E30
"ENDE53"
;E34=2.6
     E70=E70+E54

"1" 
          ;⠭ । 蠣   Z  筮 १
     E70=E70+E54
          ;뢠 ⭮襭  㣮  ⮬ ਯ᪠  
     E91=E70/(E30+E31)
          ;஫㥬 ⭮襭  㣫  >1
(BGE,E91,1,QQ)
          ;뢠 㣮  ࠤ
     E79=90-ARS(E91)
(BNC,F)
          ;⠭ 㣫 =0, ᫨ ⭮襭  㣫 >1
"QQ"
     E79=0
"F"
                 ;X
     E71=2*(E30+E31)*SIN(E79)
(BLT,E71,E45,P1)
                 ;Z
     E72=E40+E70
     (BGE,E72,E50,P1)
     GZE72
     G1G4XE71
     GXE47
     E54=E54-E53
(BNC,1)
"P1"
    GZE50
    G1G4XE45
    GXE47
;============ ୮  頤 ࠢ    筮 १ ==============
(BEQ,E35,0,NLS)
(BEQ,E45,0,NLS)
   ;Z
   E95=E50+E34
   E96=E44+E35-E32
#(BGE,E95,E96,ENDCHR)

"CHR"
   GZE95
   G1G4XE45
   GXE47
   E95=E95+E34
#(BLT,E95,E96,CHR)

"ENDCHR"
E95=E96
GZE95
G1G4XE94
GXE47
"NLS"
;================== ୮      筮 १ ================
E80=0
"2"
E80=E80-E34
;A1
E89=90-ARS(ABS(E80/(E30+E31)))
;X
E81=2*(E30+E31)*SIN(E89)
(BLE,E81,E43,P)
;Z
E82=E40+E80-E32
E83=E60-E32
GZE82
G1G4XE81
GXE47
(BGT,E82,E83,2)
"P"
;A1
E89=E49
;X
E81=2*E30*SIN(E89)
;Z
E83=E40-E30*COS(E89)-E31-E32
GZE83
G1G4XE43
GXE47
(BEQ,E33,0,NRS)
;================== ୮  頤 ᫥   ==================
E85=E83-E34
;Z
E93=E42-E33
;X
E91=E43
(BLE,E85,E93,END3)
"3"
GZE85
G1G4XE91
GXE47
E85=E85-E34
(BGT,E85,E93,3)
"END3"
E85=E93
GZE85
G1G4XE91
GXE47
"NRS"
TE12.E13M6
(BEQ,E45,0,0E45)










; 砩, ᫨ 砫  樫 /= 0
;================== ।⮢ ࠡ⪠ 室 १殬 ========
G96G95G29SE27ME3FE28
G      XE47 ZE73
G1 GE5 XE51
            ZE50
GE4    XE61 ZE60  IE40 JE41
G1 G40      ZE93
G      XE47
;================== ⮢ ࠡ⪠ 室 १殬 ========
G96G95G29SE27ME3FE28
G      XE47 ZE73
G1 GE5 XE45
            ZE44
GE4    XE43 ZE42 IE40 JE41
G1 G40      ZE93
GXE47
(BNC,END)
; 砩, ᫨ 砫  樫 = 0
"0E45"
;================== ।⮢ ࠡ⪠ 室 १殬 ========
G96G95G29SE27ME3FE28
G      XE47 ZE73
G1     XE51
   GE5      ZE50
GE4    XE61 ZE60  IE40 JE41
G1 G40      ZE93
G      XE47
;================== ⮢ ࠡ⪠ 室 १殬 ========
G96G95G29SE27ME3FE28
G      XE47 ZE73
G1     XE45
   GE5      ZE44
GE4    XE43 ZE42 IE40 JE41
G1 G40      ZE93
GXE47
(BNC,END)

;:
"ENDA"
(DIS,". A 让  ..!")
"ENDC"
(DIS,". A=0  R=0!")


"END"
;================== ===============================
