! ----- NUMERIC.FUN -----
	!
	! ----- FUNCTION TO CHECK FOR NUMERIC DATA -----
	! ----- (RETURNS TRUE IF PASSED STRING CONTAINS ONLY NUMERIC DATA) -----
	!
	! ----- Last Change 07/02/93 by Brian Lomasky -----
	!
	FUNCTION WORD NUMERIC(STRING VALUE_TO_TEST)

		%INCLUDE "NUSER.INC"

		DECLARE STRING NUMERIC_EDIT	! EDIT VARIABLE FOR NUMERIC FUNC
		DECLARE WORD NUMERIC_TEMP	! TEMPORARY FOR NUMERIC FUNCTION

		! ----- 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