Version: 1.0
Author: Andrew Robinon  (grobin@agt.net)
Descripton: Solves any triangle for either an unknown side value or angle.
											
Commands:
->		Single arrow (on the keyboard)
=>		Double arrow (press: [shift] [prgm] [f3] [f3])
*		Multiplication
/		Division		
^2		Squared (on the keyboard)
SYMBOL 214 \f "Symbol"		Square root (on keyboard)
_		Display
(-1)		Recirocal funtion (press: [shift] [)])
												

Program:

Lbl 1
ClrText
"1. A^2=B^2+C^2-2BC cos A"
"2. cos A=(B^2+C^2-A^2)/(2BC)"?->A
A=1=>Goto 2
A=2=>Goto 3
Lbl 2
ClrText
"B="?->Z
"C="?->Y
"cos A="?->X
Z^2+Y^2-2ZYcos X->W
SYMBOL 214 \f "Symbol"W->W
" "
"A="
W_
Goto 1
Lbl 3
ClrText
"A="?->W
"B="?->V
"C="?->U
(V^2+U^2-W^2)/(2*V*U)->M
cos(-1)M->M
"cos A="
M_
Goto 1