Вычислить сумму для бесконечного ряда- QBasic(Бейсик)

CLS
eps = 0.001
DO
    PRINT "vvedite x(x < 0.5):"
    INPUT x
LOOP WHILE ABS(x) >= 0.5
z = x ^ 2
DO
    t = (-1) ^ n * z ^ (2 * n + 1) / (2 * n + 1)
    y = y + t
    PRINT n, USING "##.#########"; t
    n = n + 1
LOOP WHILE ABS(t) > eps
PRINT "summa ravna:"; USING "##.#########"; y
s = ATN(x ^ 2)
PRINT "Tochonoe znachenie:"; USING "##.#########"; s
PRINT "Pogresnost rasheta sostavila:";
PRINT USING "##.#########"; ABS(y - s)