5 PRINT "QUADRATIC EQUATION"
6 PRINT
10 READ A, B, C
20 LET D = B * B -4 * A * C
30 LET S = - B / (2 * A )
40 LET T = SQR(D) / (2 * A)
50 IF D = 0 THEN 100
60 IF D < 0 THEN 200
70 PRINT A, B, C, "TWO REAL ROOTS"
80 PRINT "ROOTS = " S + T, S - T
90 GOTO 300
100 PRINT A, B, C, "ONE ROOT"
110 PRINT "ROOT =" S
120 GOTO 300
200 PRINT A, B, C, "COMPLEX ROOTS"
210 PRINT "REAL PART=" S, "IMAGINARY PART=" T
300 PRINT
310 GOTO 10
400 DATA 1, -2, -3, 1, -4, 4, 1, 0, 2
999 END
