10 REM THIS IS PROGRAM "QUADROOT" 
20 REM THIS PROGRAM CALCULATES THE ROOTS OF A QUADRATIC EQUATION
30 REM Y = A*X^2 + B*X + C HAS TWO ROOTS AT Y = O
40 LPRINT "PROGRAM QUADROOT"
50 PRINT "PROGRAM QUADROOT"
60 INPUT "A=";A
70 LPRINT "A=";A
80 INPUT "B=";B
90 LPRINT "B=";B
100 INPUT "C=";C
110 LPRINT "C=";C
120 DIS = B^2 - 4*A*C
130 IF DIS > 0 THEN 170
140 IF DIS < 0 THEN 190
150 LPRINT "EQUAL ROOTS ="; -B/(2*A); ","; -B/(2*A)
160 GOTO 210
170 LPRINT "REAL ROOTS=" (-B+(DIS)^.5)/(2*A) "&" (-B-(DIS)^.5)/(2*A)   
180 GOTO 210
190 IMAG = ABS(DIS)
200 LPRINT "COMPLEX ROOTS="; -B/(2*A);"+i*";((IMAG)^.5)/(2*A); "&"; -B/(2*A);"-i*";((IMAG)^.5)/(2*A)
210 PRINT "ROOTS ARE ON PRINTOUT"
220 PRINT "--ooOOOoo--"
230 LPRINT "--ooOOOoo--"
240 LPRINT
250 PRINT
260 PRINT "DO YOU WANT ANOTHER QUADRATIC? Y/N?"
270 INPUT ANS$
280 IF ANS$ = "Y" THEN 10
290 PRINT "RETURN TO MBASIC COMMAND LEVEL"
300 END