Note: needs to be done in Python.

ALGORITHM 398 TABLELESS DATE CONVERSION* RicharD A. Stone (Recd. 2 Jan. 1970 and 6 April 1970) Western Electric Company, P.O. Box 900, Princeton, NJ 085440 Patent applied for. KEY WORDS AND PHRASES: date, calendar CR CATEGORIES: 5.9 procedure calendar(y, n, m, d); comment calendar is called with the year in y and the day of the value y, n; integer y, n, m, d,t; year in n. The month number is returned in m, and the day of the month is returned in d. The first section of the procedure changes the dates so that February has 30 days. The sccond secti the fact that 30.55 (m+2) -91 passes through the number of days preceeding each month. on uses Error detection:l be in the range 1-12 if and only if n is in the correct range; begin t 44-then 1 else 0 comment The following statement is unnecessary if it is known that 1900 (50+) then 2-else 0); m :((d+91).100) 3055; d:- (d+91) - (m3055) 100; end calendar ALGORITHM 398 TABLELESS DATE CONVERSION* RicharD A. Stone (Recd. 2 Jan. 1970 and 6 April 1970) Western Electric Company, P.O. Box 900, Princeton, NJ 085440 Patent applied for. KEY WORDS AND PHRASES: date, calendar CR CATEGORIES: 5.9 procedure calendar(y, n, m, d); comment calendar is called with the year in y and the day of the value y, n; integer y, n, m, d,t; year in n. The month number is returned in m, and the day of the month is returned in d. The first section of the procedure changes the dates so that February has 30 days. The sccond secti the fact that 30.55 (m+2) -91 passes through the number of days preceeding each month. on uses Error detection:l be in the range 1-12 if and only if n is in the correct range; begin t 44-then 1 else 0 comment The following statement is unnecessary if it is known that 1900 (50+) then 2-else 0); m :((d+91).100) 3055; d:- (d+91) - (m3055) 100; end calendar