10	! ----- TODAYS_DATE_AS_MMDDYY.FUN -----
	!
	! ----- RETURNS TODAYS DATE AS A 6-CHARACTER MMDDYY STRING -----
	!
	! ----- 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 TODAYS_DATE_AS_MMDDYY

	OPTION TYPE = EXPLICIT			! ENSURE ALL VARIABLES DECLARED

	! ----- MISCELLANEOUS STRING CONSTANTS -----
	DECLARE STRING CONSTANT THE_MONTHS =				&
		"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"

	! ----- VARIABLE DECLARATIONS -----
	DECLARE STRING TEMP_DATE		! CURRENT DATE AS MMDDYY (RJL0)

	TEMP_DATE = EDIT$(DATE$(0%), 32%)	! STORE UPPERCASED STRING

	! ----- FIND MONTH INDEX, MAKE DATE MMDDYY -----
	TEMP_DATE = NUM1$((POS(THE_MONTHS, MID(TEMP_DATE, 4%, 3%), 1%)	&
		+ 2%) / 3%) + LEFT(TEMP_DATE, 2%) + RIGHT(TEMP_DATE, 8%)

	! ----- ENSURE LENGTH OF SIX -----
	TEMP_DATE = "0" + TEMP_DATE IF LEN(TEMP_DATE) < 6%

	TODAYS_DATE_AS_MMDDYY = TEMP_DATE	! RETURN THE CURRENT DATE

	END FUNCTION