ClrText:Gra
Lbl 0:0ŞA~Z
"¨A"?ŞA
A=999ãProg "MENU"
"¨B"?ŞB
B=999ãProg "MENU"
"¨C"?ŞC
C=999ãProg "MENU"
"DA"?ŞD
D=999ãProg "MENU"
"DB"?ŞE
E=999ãProg "MENU"
"DC"?ŞF
F=999ãProg "MENU"
DEFá0ãGoto 1
AEFá0ãGoto 2
ADEá0ãGoto 3
ABDá0ãGoto 6
ABFá0ãGoto 7
ABEá0ãGoto 8
ADFá0ãGoto A
"A=1ER ANGL/B=2E ANGL"İ
Goto 0
Lbl 1:(D‰E‰F)¹2ŞP
cos› ((E‹‰F‹™D‹)¹(2EF))ŞA
Aà0.5ã2tan› (†((P™E)(P™F)¹((P™D)P)))ŞA
cos› ((F‹‰D‹™E‹)¹(2FD))ŞB
Bà0.5ã2tan› (†((P™F)(P™D)¹((P™E)P)))ŞB
200™A™BŞC
"¨A":Aİ
"¨B":Bİ
"¨C":Cİ
Goto 9
Lbl 2
†(E‹‰F‹™2EFcos A)ŞD
cos› ((F‹‰D‹™E‹)¹(2FD))ŞB
200™A™BŞC
"DA":Dİ
"¨B":Bİ
"¨C":Cİ
Goto 9
Lbl 3:D<Eã1ŞZ
sin› (E¹D©sin A)ŞB
200™A™BŞC
D©sin C¹sin AŞF
"¨B":Bİ
"¨C":Cİ
"DC":Fİ
Goto 9
Lbl 5:0ŞZ:200™BŞH
200™A™HŞI
D©sin I¹sin AŞL
DEsin I¹2ŞS
L‹¹(2((tan A)›‰(tan H)›))ŞT
"¨B'":Hİ
"¨C'":Iİ
"DC'":Lİ
"S1'":Sİ
"S2'":Tİ
Goto C
Lbl 6:200™A™BŞC
D©sin C¹sin AŞF
D©sin B¹sin AŞE
"¨C":Cİ
"DB":Eİ
"DC":Fİ
Goto 9
Lbl 7:200™A™BŞC
F©sin B¹sin CŞE
†(E‹‰F‹™2EFcos A)ŞD
"¨C":Cİ
"DA":Dİ
"DB":Eİ
Goto 9
Lbl 8:200™A™BŞC
Esin C¹sin BŞF
Esin A¹sin BŞD
"¨C":Cİ
"DA":Dİ
"DC":Fİ
Goto 9
Lbl A:D<Fã2ŞZ
sin› (F¹Dsin A)ŞC
200™A™CŞB
Dsin B¹sin AŞE
"¨B":Bİ
"¨C":Cİ
"DB":Eİ
Goto 9
Lbl B:0ŞZ
200™BŞH
200™A™HŞI
Dsin H¹sin AŞK
DHsin I¹2ŞS
F‹¹(2((tan A)›‰(tan K)›))ŞT
"¨B'":Hİ
"¨C'":Iİ
"DB'":Kİ
"S1'":Sİ
"S2'":Tİ
Goto C
Lbl 9:DEsin C¹2ŞM
F‹¹(2((tan A)›‰(tan B)›))ŞN
"S1=":Mİ
"S2=":Nİ
Z=1ãGoto 5
Z=2ãGoto B
Lbl C:"ŞMEM"?ŞU
U=999ãProg "MENU"
If U=1
Then AŞList 3[1]
BŞList 3[2]
CŞList 3[3]
DŞList 3[4]
EŞList 3[5]
FŞList 3[6]
HŞList 3[7]
IŞList 3[8]
KŞList 3[9]
LŞList 3[10]
SŞList 3[12]
MŞList 3[13]
IfEnd:Stop