%%HP: T(1)A(G)F(,);
 CLEAR "ANGULO B:"
"" INPUT OBJ 'B' STO
"ANGULO :" "" INPUT
OBJ '' STO
"ANGULO :" "" INPUT
OBJ '' STO
"DISTANCIA AB (a):"
"" INPUT OBJ 'DA'
STO
"DISTANCIA BC (b):"
"" INPUT OBJ 'DB'
STO 'ATAN(DA*SIN()/(
DB*SIN()))' NUM ''
STO '400,-(B++)'
NUM 2, / 'M' STO '
ATAN(TAN(M)/TAN(50,+
))' NUM 'N' STO 'N+M
' NUM 'angA' STO 'M-
N' NUM 'angC' STO
"Angulo A:" angA
"Angulo C:" angC
'angA' PURGE 'angC'
PURGE 'B' PURGE ''
PURGE '' PURGE 'DA'
PURGE 'DB' PURGE 'N'
PURGE 'M' PURGE ''
PURGE
