D. JacKaL's Quadratic Equation

This program uses the Quadratic Equation to solve for X.  You will be prompted to enter the 3 
coefficients of the equation (A, B, and C), and the calc will then use the Quadratic Equation 
to solve for both values of X.  This Quadratic Equation program solves for both real and 
imaginary answers.

/START80/
/NAME=QUAD
:LBL 1
:0->I
:CLRHOME
:INPUT "A=",A
:INPUT "B=",B
:INPUT "C=",C
:B\^2\-4AC->D     (this is the squared sign)
:IF D<0
:THEN
:\(-)\D->D     (this is the negative sign)
:1->I
:END
:\(-)\B/2->Z
:\sqrt\D/2->\@\     (this is the "theta" character)
:CLRHOME
:DISP "X="
:IF I=0
:DISP Z+\@\,"              OR",Z-\@\
:IF I=1
:DISP Z,"             +/-",\@\,"               I"
:PAUSE 
:LBL Q
:CLRHOME
:DISP "ANOTHER?","1:YES","2:NO"
:INPUT Q
:IF Q=1
:GOTO 1
:IF Q-2
:GOTO Q
:CLRHOME
/STOP80/