#bas
IF D < 0 THEN x1 = dbl2str((-1 * b)/(2 * a)) & '- i*' & dbl2str(SQRT(ABS(D))/(2 * a)) : x2 = dbl2str((-1 * b)/(2 * a)) & '- i*' & dbl2str(SQRT(ABS(D))/(2 * a)):PRINT "x1,x2="; x1, x2