%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:844
File Name:TRIANGLE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 2
\ClrText
"1=DEG"
"2=RAD"
?\->F
F=1\=>\Deg
F=2\=>\Rad
\ClrText
"1=\cos "
"2=\sin "
"3=A(SAS)"
"4=A(SSS)"
"5=ASS"
?\->E
E=2\=>\Goto1
E=3\=>\Goto3
E=4\=>\Goto4
E=5\=>\Goto5
\ClrText
"C\x^2=A\x^2+B\x^2-2AB\cos D"
"C"?\->C
"A"?\->A
"B"?\->B
"D"?\->D
\If C=0
\Then \sqrt(A\x^2+B\x^2-2AB\cos D)\->Y
\ClrText
\Locate 1,1,"SIDE Y="
\Locate 8,1,Y
\While \Getkey\<>31
\WhileEnd
\Else C\x^2-A\x^2-B\x^2\->F
F/(\(-)2AB)\->F
\If F>1
\Then \ClrText
"NO SUCH TRIANGLE!"\Disp\Goto2
\IfEnd
\acos F\->V
\ClrText
\Locate 1,1,"ANGLE V="
\Locate 9,1,V
\While \Getkey\<>31
\WhileEnd
\IfEnd
\Goto2
\Lbl 1
\ClrText
"(\sin A)/B=(\sin C)/D"
"A"?\->A
"B"?\->B
"C"?\->C
(\sin C)*B\->F
F/(\sin A)\->Z
\ClrText
"SIDE Z="
\Locate 8,1,Z
\While \Getkey\<>31
\WhileEnd
\Goto2
\Lbl 3
\ClrText
"F=(1\ab/c2)BC\sin A"
"B"?\->B
"C"?\->C
"A"?\->A
((1\ab/c2)BC\sin A)\->X
\ClrText
"AREA X="
\Locate 8,1,X
\While \Getkey\<>31
\WhileEnd
\Goto2
\Lbl 4
\ClrText
"A"?\->A
"B"?\->B
"C"?\->C
(A+B+C)/2\->D
\sqrt(D(D-A)(D-B)(D-C))\->W
\ClrText
"AREA W="
\Locate 8,1,W
\While \Getkey\<>31
\WhileEnd
\Goto2
\Lbl 5
\ClrText
"ANGLE"?\->D
"S1"?\->E
"S2"?\->F
1\->A
\(-)2(E\cos D)\->B
E\x^2-F\x^2\->C
\ClrText
\If B\x^2-4AC<0
\Then \ClrText
"NO SUCH TRIANGLE!"\Disp\Goto2
\IfEnd
((\(-)B+\sqrt(B\x^2-4AC))/2A)\->G
\If G>0
\Then "SIDE G="
\Locate 8,1,G
\IfEnd
((\(-)B-\sqrt(B\x^2-4AC))/2A)\->H
\If H>0
\Then \Locate 1,2,"SIDE H="
\Locate 8,2,H
\IfEnd
\While \Getkey\<>31
\WhileEnd
\Goto2

%End