My TI-BASIC right triangle trigonometry solver from 9th grade geometry class.

TRIGSOLV.8xp.txt

Disp " "
Disp "  USING TRIG TO"
Disp "  FIND MEASURES"
Disp "I NEED:"
Disp " 1)AN ANGLE"
Disp " 2)A SIDE"
Input "CHOICE: ",C
If C=1:Then:
    Disp "IS THE ANGLE OP-":Disp "POSITE THE HYP.?"
    Disp " 1)YES"
    Disp " 2)NO"
    Input "CHOICE: ",C
    If C=1:Then:Disp "  THEN IT'S THE":Disp " RIGHT ANGLE SO":Disp "IT'S 90^^o, MORON.":End
    If C=2:Then
        Disp " WHAT DO I KNOW?"
        Disp "(O=OPPOSITE LEG"
        Disp " A=ADJACENT LEG"
        Disp " H=HYPOTENUSE)"
        Disp " 1)O AND A"
        Disp " 2)O AND H"
        Disp " 3)A AND H"
        Input "CHOICE: ",C
        If C=1:Then:
            Input "OPPOSITE= ",O
            Input "ADJACENT= ",A
            Disp "ANGLE IS",tan^-1(O/A)
        End
        If C=2:Then
            Input "OPPOSITE=",O
            Input "HYPOTENUSE=",H
            Disp "ANGLE IS",sin^-1(O/H)
        End
        If C=3:Then
            Input "ADJACENT=",A
            Input "HYPOTENUSE=",H
            Disp "ANGLE IS",cos^-1(A/H)
        End
    End
End



If C=2:Then
    Disp "I NEED:"
    Disp " 1)THE HYPO."
    Disp " 2)OPPOSITE LEG"
    Disp " 3)ADJACENT LEG"
    Input "CHOICE: ",C
    If C=1:Then
        Disp "I KNOW: (TO A)"
        Disp " 1)ADJACENT LEG"
        Disp " 2)OPPOSITE LEG"
        Input "CHOICE: ",C
        If C=1:Then
            Input "ANGLE A=",B
            Input "ADJACENT LEG="A
            A/cos(B)->X
            Disp "HYPOTENUSE:",X
        End
        If C=2:Then
            Input "ANGLE A=",A
            Input "OPPOSITE LEG=",O
            O/sin(A)->X
            Disp "HYPOTENUSE:",X
        End
    End
    If C=2:Then
        Disp "I KNOW"
        Disp " 1)THE HYP."
        Disp " 2)ADJACENT LEG"
        Input "CHOICE: ",C
        If C=1:Then
            Input "HYPO.=",H
            Input "ANGLE A=",A
            H*sin(A)->X
            "OPPOSITE LEG:",X
        End
        If C=2:Then
            Input "ADJACENT LEG=",A
            Input "ANGLE A=",B
            A*tan(B)->X
            Disp "OPPOSITE LEG:",X
        End
    End

    If C=3:Then
        Disp "I KNOW:"
        Disp " 1)THE HYPO."
        Disp " 2)OPPOSITE LEG"
        Input "CHOICE: ",C
        If C=1:Then
            Input "HYPOTENUSE=",H
            Input "ANGLE=",A
            H*cos(A)->X
            Disp "ADJACENT LEG:",X
        End
        If C=2:Then
            Input "OPPOSITE LEG=",O
            Input "ANGLE A=",A
            O*tan(A)->X
            Disp "ADJACENT LEG:",X
        End
    End
End