\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=QUADEQ
\FILE=QUADEQ.85P
ClLCD
Disp "QUADRATIC EQUATIONS","","AX\^2\+BX+C",""
Input "Input A:",A
If A==0:Goto O
Input "Input B:",B
Input "Input C:",C
(\(-)\B+\sqrt\(B\^2\-4A*C))/(2A)\->\D
(\(-)\B-\sqrt\(B\^2\-4A*C))/(2A)\->\E
ClLCD

If A>0:Disp "-OPENS UP"
If A<0:Disp "-OPENS DOWN"
(B\^2\-4A*C)\->\F
If F>0:Disp "2 REALS"
If F==0:Disp "1 REAL"
If F<0:Then
Disp "2 IMAG. COMPLX":Goto J
End
Disp "(+)",D,"(-)",E
\(-)\B/(2A)\->\X
((4A*C)-(B\^2\))/(4*A)\->\Y
Pause 
ClLCD
Disp ""
Disp "Vertex: (X,Y)"
Outpt(3,5,X
Outpt(3,13,Y
Disp ""
Disp ""
Stop

Lbl O
Disp "","A=0"
Stop

Lbl J
Disp "B\^2\-4A*C=",F
\(-)\B/(2A)\->\X
((4A*C)-(B\^2\))/(4*A)\->\Y
Pause 
ClLCD
Disp ""
Disp "Vertex: (X,Y)"
Outpt(3,5,X
Outpt(3,13,Y
Disp ""
Disp ""

\STOP\