%%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 '400,-(B++)'
NUM 'K' STO 'Da*SIN(
)/(Db*SIN())' NUM
'H' STO 'ATAN(SIN(K)/
(H+COS(K)))' NUM
  IF 'ATAN(SIN(K)/(H+
COS(K)))<0,'
  THEN 200, +
  END 'A' STO 'K-A'
NUM 'C' STO
"Angulo A: " A
"Angulo C: " C 'C'
PURGE 'A' PURGE 'K'
PURGE 'H' PURGE ''
PURGE '' PURGE 'Da'
PURGE 'Db' PURGE 'B'
PURGE
