RosettaCodeData/Task/Determine-if-a-string-is-numeric/Vedit-macro-language/determine-if-a-string-is-numeric.vedit

:IS_NUMERIC:
if (Num_Eval(SUPPRESS)==0 && Cur_Char != '0') {
    Return(FALSE)
} else {
    Return(TRUE)
}