;---------------RNC---------------
;ﭭ 横 p ᪮ p,   X
G0G97G40G90
;
;p 窨 砫 p   Z  (Rs)
E30=PL1
;
;砫 p p (D)
E34=PL2
;p 樮p   P1
G0 ZE30 XE34
;
;p 窨  p   X  (X)
E31=PL3
;
;p 窨  p   Z  (Z)
E32=PL4
;
; p (K)
E33=PL5
;
;᫮ p室 p p⪨ (L1)
E1=PL6
;
;᫮ p室 ⮢ p⪨ (L2)
E2=PL7
;
;Pﭨ  p㬥⮬  ⠫ (R)
(BEQ,$PS8," ",1)
E35=PL8
(BNC,2)
"1"
E35=2
"2"
;
;4- p , p騩 ⨯ p p (T)
(BEQ,$PS9," ",3)
E10=PL9
(BNC,4)
"3"
E10=0000
"4"
;
;᫮ 室 (P)
(BEQ,$PS10," ",5)
E3=PL10
(BNC,6)
"5"
E3=1
"6"
;-----------  ⨯ p---------
E11=E10-INT(E10/10)*10
(BEQ,E11,2,7)
;------⠭p⭮ p p-----
;
;P 㣫   (B); B=ABS(ART(Z/(X/2))); (B<=30)
;E50 -  Z
E50=E32-E30
;E51 -  X
E51=E31-E34
;E40 -  
E40=ABS(ART(E50*2/E51))
(BLE,E40,30,OK)
;
;訡
(DIS,"   >30" )
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"OK"
; p ()
(BEQ,$PS11," ",8)
E38=PL11
(BNC,9)
"8"
E38=0
"9"
;
;㡨 p (b)
(BEQ,$PS12," ",10)
E39=PL12
(BNC,FIL)
"10"
E39=0	
(BNC,FIL)
"7"
;---------⠭p⭮ p p-----
;P 㣫   (B); B=ABS(ART(Z/(X/2)))
;E50 -  Z
E50=E32-E30
;E51 -  X
E51=E31-E34
;E40 -  
E40=ABS(ART(E50*2/E51))
;
;---------------- p ()----------------
E38=PL11
(BEQ,$PS11," ",11)
;
; p   >= 㣮  *2 (a>=2*B) 
E42=E40*2
(BGT,E42,E38,16)
;
; p    180
(BGT,E38,179,15)
(BNC,12)
;-----------訡------------------------------------------------
"16"
;訡
(DIS,"pp (a)   >",E42)
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"15"
;訡
(DIS,"pp (a)   <180")
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"11"
;訡
(DIS,"  pp (a)")
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, bE39)
"12"
;-------------------------------------------------------------------
;
;---------------㡨 p (b)----------------------------------
E39=PL12
(BEQ,$PS12," ",13)
;
; p p   
E13=E10/1000
(BLT,E13,1,17)
;
; 㡨 p b<(K)/(2*tg(a/2)*P*cosB)
E41=ABS((E33)/(2*TAN(E38/2)*E3*COS(E40)))
(BGT,E39,E41,14)
(BNC,FIL)
"17"
; 㡨 p b<(K)/(2*tg(a/2)*P)
E41=ABS((E33)/(2*TAN(E38/2)*E3))
(BGT,E39,E41,14)
(BNC,FIL)
;
;---------------------訡-------------------------------------------
"14"
;訡
(DIS,"pp (b)   <",E41)
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38, bE39)
(BNC,END)
"13"
;訡
(DIS,"  pp (b)")
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38)
;-----------------------------------------------------------------------
;---------------------믮 p---------------------------------
"FIL"
(DPI, Z, X)
(FIL, $PS3 E31, $PS4 E32, KE33, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"END"
