DOOMSDAY.BAS

CLS
PRINT "Doomsday Calculator"
INPUT "The year you wish to find the doomsday for is 19"; year
divide = year \ 12
1 IF divide > 7 THEN divide = divide - 7 ELSE GOTO 2
GOTO 1
2 remain = year MOD 12
3 IF remain > 7 THEN remain = remain - 7 ELSE GOTO 4
GOTO 3
4 refour = remain \ 4
5 IF refour > 7 THEN refour = refour - 7 ELSE GOTO 6
GOTO 5
6 doomsday = divide + remain + refour
7 IF doomsday > 7 THEN doomsday = doomsday - 7 ELSE GOTO 8
GOTO 7
8 IF doomsday = 0 THEN doomsday$ = "Wednesday"
IF doomsday = 1 THEN doomsday$ = "Thursday"
IF doomsday = 2 THEN doomsday$ = "Friday"
IF doomsday = 3 THEN doomsday$ = "Saturday"
IF doomsday = 4 THEN doomsday$ = "Sunday"
IF doomsday = 5 THEN doomsday$ = "Monday"
IF doomsday = 6 THEN doomsday$ = "Tuesday"
PRINT "The Doomsday of the year 19"; year; "is "; doomsday$
END