Is there a Better Way? (2016-09-16 23:45 by TomL_12953 #78736)
I am have written a function to test a value to see if it's numeric or not. The function is below. Is there a better way to do this test?
EXTERNAL FUNCTION ISNUMERIC(S$)
REM Returns -1 if argument is a number, 0 if it is not.
LET ISNUMERIC = -1
WHEN EXCEPTION IN
LET TEMP = VAL(S$)
USE
LET ISNUMERIC = 0
END WHEN
END FUNCTION