%%HP: T(1)A(R)F(.);
 CLEAR
"USING INFORM II A.X+B.X+C"
{ { " A"
"ENTER 2ND DEGREE COEFFICIENT"
} { " B"
"ENTER 1ST DEGREE COEFFICIENT"
} { " C"
"ENTER INDEPENDENT COEFFICIENT"
} } { 1 1 } { } { }
INFORM DROP EVAL 
A B C
   "ROOTS" { " X1"
" X2" } { 1 1 } { }
'(-B+(B^2-4*A*C))/
2*A' EVAL '(-B-(B^
2-4*A*C))/2*A' EVAL
2 LIST INFORM
CLEAR
  

