C-FOCAL,  5/69

02.05 T"ZELLER'S CONGRUENCE IS APPLIED TO CALCULATE THE DAY OF
02.07 T"THE WEEK"!"FOLLOWING INPUT OF MONTH(2 DIGITS),DAY(2 DIGITS)
02.09 T", AND YEAR(4 DIGITS)"!"INPUT IS SELF TERMINATING"!!
02.11 T"GREGORIAN CALENDAR EXCLUDES DATES PRIOR TO 1500"!!;C 1582
02.20 T!"GIVE MONTH, DAY, AND YEAR"!;O C;O X
02.25 A Z(1),Z(2),"  "Z(3),Z(4),"  "Z(5),Z(6),Z(7),Z(8);O I
02.26 F I=1,8;S Z(I)=Z(I)-176
02.30 S K=Z(3)*10+Z(4);S C=Z(5)*10+Z(6);I(C-15)2.11;S D=Z(7)*10+Z(8)
02.35 S M=10*Z(1)+Z(2);I(M-2)2.4,2.4;S M=M-2;G 2.45
02.40 S M=M+10;S D=D-1
02.45 T"  THE DAY IS :  "
02.50 S R=[FITR(<2.6*M>-.199)]+[K]+[D]+[FITR(D/4)]+[FITR(C/4)]-(2*C)
02.55 I(R-7)2.6;S R=R-7;G 2.55
02.60 D +3+(.1*R)+.1;G 2.2

03.10 T"SUNDAY
03.20 T"MONDAY
03.30 T"TUESDAY
03.40 T"WEDNESDAY
03.50 T"THURSDAY
03.60 T"FRIDAY
03.70 T"SATURDAY
_
_G
ZELLER'S CONGRUENCE IS APPLIED TO CALCULATE THE DAY OFTHE WEEK
FOLLOWING INPUT OF MONTH(2 DIGITS),DAY(2 DIGITS), AND YEAR(4 DIGITS)
INPUT IS SELF TERMINATING

GREGORIAN CALENDAR EXCLUDES DATES PRIOR TO 1500

GIVE MONTH, DAY, AND YEAR
01  17  1935  THE DAY IS :  THURSDAY
GIVE MONTH, DAY, AND YEAR
09  30  1970  THE DAY IS :  WEDNESDAY
GIVE MONTH, DAY, AND YEAR

?01.00 @ 02.25
_