"------------- DELTA -------------LIKE THIS: AX²+BX+C=0 -------------" :Lbl 0:"A"?->A:"B"?->B:"C"?->C:B²-4AC->D:D>0=>Goto 1:D=0=>Goto 2:D<0=>Goto 3:Lbl 1:"2 SOLUTION":D[DISP] (-B-([SQRT]D))/(2A)->E:(-B+([SQRT]D)) /(2A)->F:"X1=":E[DISP] "X2=":F[DISP] ClrText:Goto 0:Lbl 2:"ONE SOLUTION":D[DISP] -B/(2A)->G:"X=":G[DISP] ClrText:Goto 0:Lbl 3:"NO SOLUTION":D[DISP] ClrText:Goto 0