Составить программу для вычисления дня недели по введенной дате — QBasic(Бейсик)

INPUT "day ", d
INPUT "month ", m
INPUT "year ", y
IF m <= 2 THEN
y = y - 1
d = d + 3
END IF
t = 1 + (d + y + y \ 4 - y \ 100 + y \ 400 + (31 * m + 10) \ 12) MOD 7
PRINT t