\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=QUADEQ
\FILE=QUADEQ.82P
ClrHome
Disp "ENTER THE"
Disp "COEFICIENTS :"
Disp ""
Disp "AX\^2\+BX+C=0"
Disp ""
Prompt A
Prompt B
Prompt C
ClrHome
Disp ""
"A*X\^2\+B*X+C"\->\\Y1\
""\->\\Y2\
""\->\\Y3\
""\->\\Y4\
B\^2\-4*A*C\->\D
If D\>=\0
Then
(\(-)\B+\sqrt\D)/(2*A)\->\E
(\(-)\B-\sqrt\D)/(2*A)\->\F
Disp "THE ROOTS ARE :"
Disp "ROOT 1 =",E\>Frac\
Disp "ROOT 2 =",F\>Frac\
Disp "HIT ENTER TO SEE"
Disp "GRAPH"
Pause 
Else
Disp "ROOTS ARE"
Disp "IMAGINARY"
Disp ""
Disp "HIT ENTER TO SEE"
Disp "GRAPH"
Pause 
End
ZStandard
Pause 
ClrHome
\STOP82\