'ProgramMode:RUN "SOLVE AX_#E5C2_+BX+C=0" "A"?->A "B"?->B "C"?->C B^<2>-4AC->D "DISCRIMINANT D = " DDispsIf D<0 Then "D IS < 0,NO REAL SOLUTIONS" (-)B/(2A)->R Sqrt(Abs (D))/(2A)->I "REAL PART:" RDisps"IMAGINARY PARTS _#E5BE__Imaginary_" IDispsClrText Menu "GRAPH?","YES",1,"NO",2 IfEnd (-B+Sqrt(D))/(2A)->E (-B-Sqrt(D))/(2A)->F "ROOT 1" EDisps"ROOT 2" FDispsClrText Menu "GRAPH?","YES",1,"NO",2 Lbl 2 "END" Stop Lbl 1 ClrText ClrGraph Y=Type "AX_^<2>_+BX+C"->GraphY1 DrawGraph Stop