TI 81 Quadratic Equation Program

Prgm 5:QUADRAT
:disp "Quadratic Formula"
:disp "Only Real Roots"
:float
:disp "A="
:input A
:disp "B="
:input B
:disp "C="
:input C
:(-B+(B2-4AC))/(2A)
:disp "x="
:disp ans
:disp "or"
:(-B-(B2-4AC))/(2A)
:disp "x="
:disp ans
:end