;---------------RND----------------------------------------
;ﭭ 横 p 樫p᪮ p,   X
G0G97G40G90
;
;p 窨 砫 p   Z  (Rs)
E33=PL1
;
;p p (D)
E34=PL2
;p 樮p   P1
G0 XE34 ZE33 
;
;p 窨  p   X  (X)
E31=PL3
;
; p (K)
E32=PL4
;
;᫮ p室 p p⪨ (L1)
E1=PL5
;
;᫮ p室 ⮢ p⪨ (L2)
E2=PL6
;
;Pﭨ  p㬥⮬  ⠫ (R)
(BEQ,$PS7," ",1)
E35=PL7
(BNC,2)
"1"
E35=1
"2"
;
;4- p , p騩 ⨯ p p (T)
(BEQ,$PS8," ",3)
E10=PL8
(BNC,4)
"3"
E10=0000
"4"
;
;᫮ 室 (P)
(BEQ,$PS9," ",5)
E3=PL9
(BNC,6)
"5"
E3=1
"6"
;-----------  ⨯ p---------
E11=E10-INT(E10/10)*10
(BEQ,E11,2,7)
;------⠭p⭮ p p-----
;
; p ()
(BEQ,$PS10," ",8)
E38=PL10
(BNC,9)
"8"
E38=0
"9"
;-----------
;㡨 p (b)
(BEQ,$PS11," ",10)
E39=PL11
(BNC,FIL)
"10"
E39=0
(BNC,FIL)
"7"
;------⠭p⭮ p p-----
;
; p ()
E38=PL10
(BEQ,$PS10," ",11)
; p    180
(BGT,E38,179,15)
(BNC,12)
"15"
;訡
(DIS,"pp (a)   <180")
(FIL, $PS3 E31, KE32, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"11"
;訡
(DIS,"  pp (a)")
(FIL, $PS3 E31, KE32, LE1.E2, RE35, TE10, PE3, bE39)
"12"
;----------------
;㡨 p (b)
E39=PL11
(BEQ,$PS11," ",13)
; 㡨 p b<K/(2*tg(a/2)*P)
E40=E32/(2*TAN(E38/2)*E3)
(BGT,E39,E40,14)
(BNC,FIL)
"14"
;訡
(DIS,"pp (b)   <",E40)
(FIL, $PS3 E31, KE32, LE1.E2, RE35, TE10, PE3, aE38, bE39)
(BNC,END)
"13"
;訡
(DIS,"  pp (b)")
(FIL, $PS3 E31, KE32, LE1.E2, RE35, TE10, PE3, aE38)
;------- 믮 p ------------
"FIL"
(DPI, Z, X)
(FIL, $PS3 E31, KE32, LE1.E2, RE35, TE10, PE3, aE38, bE39)
"END"