Написать программу запроса у пользователя угла (b градусов), пока не введен 0, составить таблицы тригонометрических функций этих углов- QBasic(Бейсик)

pi = 3.14159
DO
    INPUT "vvedite ugol ", b
    IF b <> 0 THEN PRINT "sin(x)="; SIN(b * pi / 180); " cos(x)="; COS(b * pi / 180); " tg(x)="; TAN(b * pi / 180); " ctg(x)="; 1 / TAN(b * pi / 180)
LOOP UNTIL b = 0