Даны 2 числа d-день и m-месяц. Определить предыдущую дату — QBasic(Бейсик)

CLS
INPUT "vvedite d"; d
INPUT "vvedite m"; m
d = d - 1
IF d = 0 THEN
    m = m - 1
    IF m = 0 THEN m = 12
    IF (m AND 1) = 1 AND m <= 7 THEN d = 31 ELSE d = 30
    IF (m AND 1) = 0 AND m >= 8 THEN d = 31 ELSE d = 30
    IF m = 2 THEN d = 28
END IF
PRINT "d ="; d, "m ="; m