QUADS by DomDCalcs for color Ti 84/83 family

Lbl 52
prgmCLEAR
Input "INPUT A: ",A
Input "INPUT B: ",B
Input "INPUT C: ",C
prgmCLEAR
If (B²-(4*A*C))<0
Then
Disp "NO SOLUTION"
Pause
Goto 3
Else
((­B+√(B²-(4*A*C)))/(2*A))→D
((­B-√(B²-(4*A*C)))/(2*A))→E
Text(1,1,"X= ",D)
Text(20,1,"X= ",E)
If B>0
Then
B*­1→B
Goto 45
Else
Lbl 45
Text(34,1,B,"+/- √(",B^2-4*A*C,")")
Line(­30,2.9,­2.3,2.9)
Text(60,18,2A)
Pause
Lbl 3
Menu("SOLVE ANOTHER?","YES",52,"NO",2)
Lbl 2
prgmUNCLEAR
Stop