\START85\
\COMMENT=Program file dated 09/19/98, 17:00
\NAME=CONICS
\FILE=C:\TI85LINK\PROGRAMS\CONICS.85P
:ClLCD
:Disp ""
:Disp "       Conics"
:Disp ""
:Disp "   by Nick Markham"
:Disp ""
:Disp "  markhamnr@aol.com"
:Pause 
:ClLCD
:Disp "Ax\^2\+By\^2\+Cxy+Dx+Ey+F=0"
:Prompt A,B,C,D,E,F
:If B==0
:Then
:y1=(A*x*x+D*x+F)/\(-)\(C*x+E)
:Else
:y1=(\(-)\(D+C*x)+\sqrt\((D+C*x)\^2\-4*B*(A*x*x+D*x+F)))/2/B
:y2=(\(-)\(D+C*x)-\sqrt\((D+C*x)\^2\-4*B*(A*x*x+D*x+F)))/2/B
:End
:DispG
:Stop
:
\STOP85\