CLS
label Start
Def AN$ as String
Def D as int
Def M as int
Def Y as int
def N as int
def DAY as int
INPUT "Day of birth (DD): ", D
INPUT "Month of birth (MM): ", M
INPUT "Year of birth (YYYY): ", Y
IF M = 1 THEN M = 13
if M = 13 then Y = Y - 1
IF M = 2 THEN M = 14
if M = 14 then Y = Y - 1
N = D + (2 * M) + INT((3 * (M + 1)) / 5) + Y + INT(Y / 4) - INT(Y / 100) + INT(Y / 400) + 2
DAY = N % 7
IF DAY = 1 THEN PRINT "You were born on a Sunday."
IF DAY = 2 THEN PRINT "You were born on a Monday."
IF DAY = 3 THEN PRINT "You were born on a Tuesday."
IF DAY = 4 THEN PRINT "You were born on a Wednesday."
IF DAY = 5 THEN PRINT "You were born on a Thursday."
IF DAY = 6 THEN PRINT "You were born on a Friday."
IF DAY = 0 THEN PRINT "You were born on a Saturday."
input "Would like to do another date (N?Y)? ",AN$
If AN$ = "Y" or AN$ = "y" then goto Start
DO: UNTIL INKEY$ = "N" or "n"
END