Here is the program

Input “ANGLE?”,S

Input "OPPOSITE SIDE?",A

Input "OTHER SIDE?",B

If A<Bsin(S)

Then

Disp "NO SUCH TRIANGLE"

Else

sin(Bsin(S)/A)→T

180-S-T→R

Asin(R)/sin(S)→C

IfA≥BorA=Bsin(S)

Then

Disp "ONE TRIANGLE"

Disp "THIRD SIDE IS",C

Disp "OTHER ANGLES ARE",T,R

Else

180-T→M

180-S-M→N

Asin(N)/sin(S)→D

ClrHome

Disp "TWO TRIANGLES",""

Disp "PRESS ENTER NOW"

Disp "AND AFTER FIRST"

Disp "TRIANGLE ANSWER"

Pause

ClrHome

Disp "TRIANGLE ONE"

Disp "THIRD SIDE IS",C

Disp "OTHER ANGLES AREA",T,R

Pause

Disp "TRIANGLE TWO"

Disp "THIRD SIDE IS",D

Disp "OTHER ANGLES ARE",M,N

End

Return

__