cells column 1 row 1 stringValue ClrHome Disp "AX²+BX+C=0" Prompt A Prompt B Prompt C ClrHome B²-4*A*C→D Disp "DISCRIMINANT" Disp D Disp "" Disp "PUSH ENTER TO" Disp "CONTINUE" Pause ClrHome If D>0 Then Disp "TWO REALS" Disp (–B+√(D))/(2*A) Disp (–B-√(D))/(2*A) End –B/(2*A)→P If D=0 Then Disp "ONE REAL" Disp P End If D<0 Then Disp "TWO COMPLEX" Disp "SOLUTIONS A+B?" Disp "AND A-B? WHERE" Disp "A =" Output(4,5,P) Disp "B =" Output(5,5,√(–D)/(2*A)) Output(7,1,"PUSH ENTER TO" Output(8,1,"CONTINUE" Pause ClrHome End Disp "VERTEX (X,Y)" Disp P Disp A*P^2+B*P+C device name QUADFORM device type TI-82 isProtected object type Program