Люди, кто умееть работать в QBasic, ПОЖАЛУЙСТА ПОМОГИТЕ!!!

Лови:
'RESHENIE QUADRATNOGO URAVNENIYA VIDA
' X^2+B*X+C = 0
10 INPUT "B=", B
20 INPUT "C=", C
30 GOSUB 200
40 IF D > 0 THEN
50 PRINT "X1="; (-B - SQR(D)) / 2; " X2="; (-B + SQR(D)) / 2
60 ELSEIF D = 0 THEN
70 PRINT "X1=X2="; -B / 2
80 ELSE
90 PRINT "URAVNENIE NE IMEET KORNEI"
100 END IF
110 END
200 D = B * B - 4 * C
210 RETURN

DECLARE FUNCTION discr (a, b, c)
DECLARE SUB prroots (a, b, c)

PRINT "x^2 - 6.2x + 4 = 0: ";
prroots 1, -6.2, 4
PRINT "x^2 + 2x - 3 = 0: ";
prroots 1, 2, -3
END

FUNCTION discr (a, b, c)
discr = b * b - 4 * a * c
END FUNCTION

SUB prroots (a, b, c)
IF discr(a, b, c) > 0 THEN
PRINT "x1: "; (-b - SQR(b * b - 4 * a * c)) / (2 * a);
PRINT "; x2: "; (-b + SQR(b * b - 4 * a * c)) / (2 * a)
ELSEIF discr(a, b, c) = 0 THEN
PRINT "x: "; -b / (2 * a)
ELSE
PRINT "no roots"
END IF
END SUB