%%HP: T(3)A(D)F(.);
\<<
"Discriminant :
AX\178 ?"
"" INPUT OBJ\-> 'A'
STO "BX ?" "" INPUT
OBJ\-> 'B' STO "C ?"
"" INPUT OBJ\-> 'C'
STO B 2 ^ 4 A C * *
- DUP 'D' STO "\GD"
\->TAG
  IF D 0 <
  THEN
"No real solution"
  ELSE 2 A * DUP B
NEG D - SWAP / SWAP
B NEG D + SWAP / 2
\->LIST "Solution(s)"
\->TAG
  END { A B C D }
PURGE
\>>