1 REM THIS PROGRAM APPEARS AT PAGE 25 OF THE ITALIAN VERSION OF
2 REM "PROGRAMMING IN BASIC" 1ST EDITION, BY BYRON S. GOTTFRIED 
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
30 LET R=(B^2-4*A*C)^.5
40 LET X1=(-B+R)/(2*A)	' CALCULATE FIRST ROOT
50 LET X2=(-B-R)/(2*A)	' CALCULATE SECOND ROOT
60 PRINT 
70 PRINT "A=";A,"B=";B,"C=";C 
80 PRINT "X1=";X1,"X2=";X2 
90 PRINT
100 GO TO 10 
110 END
