%%HP: T(1)A(R)F(.);
 CLEAR
"Baskara Formula
Enter a b c"
"" INPUT OBJ  a b
c
   '(b^2-4*a*c)'
 D
     '.5*a*(-b+D)'
NUM "X1" TAG '.5*
a*(-b-D)' NUM "X2"
TAG
    
  

