10 REM THIS IS PROGRAM "ROOTS" A PROGRAM TO SOLVE QUADRATIC EQUATIONS
20 REM
30 REM THIS PROGRAM WAS WRITTEN BY M. FINERTY ON 10/16/84
40 REM A QUADRATIC IS WRITEN A*X^2 + B*X + C = 0
50 REM IF A = 0, THE EQUATION IS NOT QUADRATIC.
60 REM ******************************************************************
70 REM
80 INPUT "A =";A
90 INPUT "B =";B
100 INPUT "C =";C
110 DISCRIM = B^2 - 4*A*C
120 REM
130 ON SGN(DISCRIM) + 2 GOTO 140,170,200
140 PRINT "ROOTS ARE:";-B/(2*A);"+ i*";SQR(ABS(DISCRIM))/(2*A)
150 PRINT "AND:      ";-B/(2*A);"- i*";SQR(ABS(DISCRIM))/(2*A)
160 GOTO 220
170 PRINT "ROOTS ARE:";-B/(2*A)
180 PRINT "AND:      ";-B/(2*A)
190 GOTO 220
200 PRINT "ROOTS ARE:";-B/(2*A) + SQR(DISCRIM)/(2*A)
210 PRINT "AND:      ";-B/(2*A) - SQR(DISCRIM)/(2*A)
220 PRINT "--ooO0Ooo--"
230 PRINT "DO YOU WANT ANOTHER QUADRATIC? Y/N?"
240 INPUT A$
250 IF A$ = "Y" THEN 10
260 END