10	! ----- NUMERIC.FUN -----
	!
	! ----- FUNCTION TO CHECK FOR NUMERIC DATA -----
	!
	! ----- (RETURNS TRUE IF PASSED STRING CONTAINS ONLY NUMERIC DATA) -----
	!
	! ----- 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 WORD NUMERIC(STRING VALUE_TO_TEST)

		OPTION TYPE = EXPLICIT

		! ----- COMMON CONSTANTS -----
		DECLARE WORD CONSTANT TRUE		= (1%=1%)
		DECLARE WORD CONSTANT FALSE		= NOT TRUE

		DECLARE STRING NUMERIC_EDIT	! EDIT VARIABLE
		DECLARE WORD NUMERIC_TEMP	! TEMPORARY

		! ----- REMOVE ANY SPACES -----
		NUMERIC_EDIT = EDIT$(VALUE_TO_TEST, 136%)

		IF LEN(NUMERIC_EDIT) > 0% THEN
			NUMERIC = TRUE
			FOR NUMERIC_TEMP = 1% TO LEN(NUMERIC_EDIT)
				NUMERIC = FALSE IF POS("0123456789",	&
					MID(NUMERIC_EDIT, NUMERIC_TEMP,	&
					1%), 1%) = 0%
			NEXT NUMERIC_TEMP
		ELSE
			NUMERIC = FALSE
		END IF
	END FUNCTION