Написать программу R=tgx-e^(-x)+x-1 , для x=-1+1 шаг 0.1 — QBasic(Бейсик)

PRINT "x", "r"
FOR x = -1 TO 1.001 STEP .1
    r = TAN(x) - EXP(-x) + x - 1
    PRINT USING "##.#"; x;
    PRINT "   ";
    PRINT USING "##.######"; r
NEXT