+---------------------------------+
|             ISDIGIT             |
+---------------------------------+
ISDIGIT(<expC>)

-----------------------------------
Returns true if <expC> begins with a digit.
Return value - Logical
-----------------------------------

+---------------------------------+
|         Program Example         |
+---------------------------------+
CLEAR
SET TALK ON
STORE SPACE(1) TO item
@ 10,10 GET item SIZE 1,40
READ

IF NOT ISALPHA(item) AND (NOT ISDIGIT(item))
        ? 'First character must be digit or alphabetic'
ENDIF

-----------------------------------

See Also:  ISALPHA(), ISUPPER(), LOWER(), PROPER(), UPPER()

-----------------------------------