5 REM PROGRAM TO CALCULATE THE ROOTS OF A QUADRATIC EQUATION 
10 PRINT "ENTER VALUES FOR A, B AND C" 
20 INPUT A,B,C 
25 IF A=0 THEN 200 
30 LET R=B^2-4*A*C 
33 IF R<0 THEN 110
36 LET R=SQR(R)
40 LET X1=(-B+R)/(2*A)
50 LET X2=(-B-R)/(2*A)
60 PRINT 
70 PRINT "EQUATION";A;"X^2 +";B;"X +";C;" HAS THE FOLLOWING SOLUTIONS:" 
80 PRINT "X1=";X1,"X2=";X2 
90 PRINT 
100 GO TO 10 
110 PRINT "NO REAL SOLUTIONS"
200 END 
