10 CLS
20 PRINT "ROOTS OF QUADRATIC EQUATIONS"
30 PRINT 
40 PRINT "COEFFICIENTS A,B,C,";
50 INPUT A,B,C
60 S=B^2-4*A*C
70 R=SQR(ABS(S))
80 IF S<0 THEN 110  
90 PRINT "ROOTS (REAL): ";(-B-R)/(2*A);", ";(-B+R)/(2*A)
100 GOTO 120  
110 PRINT "ROOTS (COMPLEX):  ";-B/(2*A);"+ OR -";R/(2*A);" I"
120 PRINT
130 PRINT "MORE DATA? (1=YES, 0=NO)";
140 INPUT X
150 IF X=1 THEN 30   
160 END