New code:
Code:
:Lbl {theta}
:0->A:0->B:0->C:0->E:0->F:0->G:0->H:0->{theta}
:Disp "SIDE?"
:Input B
:Disp "SIDE?"
:Input A
:Disp "ANGLE OPPOSITE SECOND SIDE?"
:Input {theta}
:Asin({theta})->H
:If B<H
:Then
:Disp "NO SOLUTION"
:If B>H and A>B
:Then
:Goto A
:End
:If B>H and A<B
:Then
:Goto B
:End
:If B=H
:Then
:Goto C
:End
:Lbl B
:asin((Asin({theta}))/B)->C
:180-({theta}+C)->D
:(Bsin(D))/sin({theta})->E
:ClrHome
:Disp "SOLUTIONS:"
:Disp "SIDE 1: ",B
:Disp "ANGLE 1: ",{theta}
:Disp "SIDE 2: ",A
:Disp "ANGLE 2: ",C
:Disp "SIDE 3: ",E
:Disp "ANGLE 3: ",D
:Pause
:ClrHome
:Goto {theta}