%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:244
File Name:QUADROOT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM CALCULATES THE REAL ROOTS"
"OF QUADRATIC EQUATIONS OF THE FORM:"
\Lbl 1
"AX\x^2+BX+C=0"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
(B\x^2-4*A*C)\->D
D<0\=>\Goto2
\sqrtD\->M
((-B-M)/2*A)\->E
((-B+M)/2*A)\->F
"X=":E\Disp"OR X=":F\Disp\ClrText
\Goto1
\Lbl 2
"NO REAL SOLUTIONS"\Disp\ClrText
\Goto1

%End