--------------------------------------------------------------------------- Quadratic Formula: Does standard formula, if discriminate is negative, tells you. Also graphs equation at end for you (optional). PGRM: QUAD ClrHome Disp "Quadratic Formula" Disp "A=" Input A Disp "B=" Input B Disp "C=" Input C (B^2-4AC) -> D If D<0 Goto 9 If A=0 Goto 9 (-B+sqrt(D))/2A -> P (-B-sqrt(D))/2A -> N Disp P Disp N Goto G End Lbl 9 Disp "NO SOLUTION, D=" Disp D Lbl G Disp "GRAPH? (3=YES)" Input V If V=3 Goto Y End Lbl Y "AX^2+BX+C" -> Y1 DispGraph