TI-83 quadratic roots program

:Prompt A
:Prompt B
:Prompt C
: -B/(2A)® H
:AH² + BH+C® K
:Disp "H="
:Disp H
:Disp "K="
:Disp K
:Pause
:(-B + Ö (B²-4AC))/(2A)® R
:(-B - Ö (B²-4AC))/(2A)® S
:Disp "ROOT ONE ="
:Disp R
:Disp "ROOT TWO="
:Disp S
:

NOTES:

• Commands like Disp, Input, and Prompt can be found by pressing Prog when you are already in the program edit mode and scrolling through the menus there.
• A new colon (:) appears every time you Enter.
• Hit Sto to get the arrow symbol (® ).
• The equal sign (=) is located in the Test menu.
• If your calculator is in a + bi mode instead of Real mode, you will get complex answers instead of an error statement when the discriminate is negative.