;JefaSover®
;© Bengt and Jefa
; "->" is the STO>-button
;
Prgm1:JEFA
:ClrHome
:Disp "X˛+PX+Q=0"
:Disp "P="
:Input P
:Disp "Q="
:Input Q
:P˛/4-Q->D
:If D<0
:Goto A
:Disp "X1 AND X2 ="
:-P/2+[*1]D->X		;[*1]= MATH-4
:Disp X
:-P/2-[*1]D->X		;[*1]= MATH-4
:Disp X
:Stop
:Lbl A
:Disp "NO ANSWER"