%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:181
File Name:DISCRIM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM CALCULATES THE DISCRIMINANT"
"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
\ClrText
"DISCRIMINANT =":D\Disp\Goto1

%End