\start83\
\comment=Program file dated 10/07/97, 14:24
\name=QUADEQ
\file=J:\QUADEQ.AS3
prgmFACSU
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"\->\Y\1\
B\^2\-4*A*C\->\D
If D\>=\0
Then
(\(-)\B+\root\(D))/(2*A)\->\E
(\(-)\B-\root\(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

\stop83\