%%HP: T(1)A(G)F(,);
 CLEAR "B? " ""
INPUT OBJ 'B' STO
"?" "" INPUT OBJ
'' STO "?" "" INPUT
OBJ '' STO "AB(a)?"
"" INPUT OBJ 'Da'
STO "BC(b)?" "" INPUT
OBJ 'Db' STO 400, B
 +  + - NUM 'AC'
STO Db  SIN * NUM
'J' STO 'Da*SIN()*
SIN(AC)' NUM 'K' STO
'J/K' NUM 'L' STO '
1,/TAN(AC)' NUM 'M'
STO 'ATAN(1,/(M+L))'
NUM
  IF 'ATAN(1,/(M+L))<
0,'
  THEN 200, +
  END 'C' STO 'AC-C'
NUM 'A' STO
"Angulo A: " A
"Angulo C: " C { C A
AC Db Da   M J K L
B } PURGE
