#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

#bas
CLS
INPUT "a,b,c"; a, b, c
D = b ^ 2 - 4 * a * c
e = SQR(D)
IF D > 0 THEN x1 = (-1 * b - e) / (2 * a): x2 = (-1 * b + e) / (2 * a): PRINT "x1="; x1: PRINT "x2="; x2
IF D = 0 THEN x = (-1 * b - e) / (2 * a): PRINT "x="; x
IF D < 0 THEN PRINT "No Roots!"
SLEEP