10	! ----- WEEKDAY.FUN -----
	!
	! ----- FUNCTION TO RETURN THE WEEKDAY OF A PASSED MM,DD,YY DATE -----
	!
	! ----- Last Change 05/01/89 by Brian Lomasky -----
	!
	! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA  02111 -----
	! ----- (617) 482-2706, x3259 -----
	!
	! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or -----
	! ----- explicitly implies this program is usable in any way. -----
	! ----- This program is released to the public domain in an -----
	! ----- "AS-IS" condition. -----
	!
	! ----- Restrictions: -----
	! -----   1) Requires VAX BASIC V2.4 or later. -----
	!
	FUNCTION STRING WEEKDAY(WORD MONTH, WORD DAY, WORD YEAR)

		OPTION TYPE = EXPLICIT

		DECLARE STRING CONSTANT MONTH_VALUES = "144025036146"

		DECLARE WORD DAY_OF_WEEK

		DAY_OF_WEEK = YEAR + INT(YEAR / 4%) + DAY +		&
			INTEGER(MID(MONTH_VALUES, MONTH, 1%), WORD)
		DAY_OF_WEEK = DAY_OF_WEEK - 1%				&
			IF YEAR = 4% * INT(YEAR / 4%) AND MONTH < 3%
		DAY_OF_WEEK = DAY_OF_WEEK - 7% * INT(DAY_OF_WEEK / 7%) + 1%
		SELECT DAY_OF_WEEK
		CASE 1%
			WEEKDAY = "Saturday"
		CASE 2%
			WEEKDAY = "Sunday"
		CASE 3%
			WEEKDAY = "Monday"
		CASE 4%
			WEEKDAY = "Tuesday"
		CASE 5%
			WEEKDAY = "Wednesday"
		CASE 6%
			WEEKDAY = "Thursday"
		CASE 7%
			WEEKDAY = "Friday"
		END SELECT
	END FUNCTION