F_IS_ALPHA_NUM

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Function Name : f_is_alpha_num
// Argument Name : as_source, Arg Type : String, Pass By : Value
// Return Type :      Boolean
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//    Description:   Determines whether a string contains only alphabetic and
//                        numeric characters.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////

Long ll_count=0
Long ll_length
Char lc_char[]
Integer    li_ascii

//Check parameters
If IsNull(as_source) Then
    boolean lb_null
    SetNull(lb_null)
    Return lb_null
End If

//Get the length
ll_length = Len (as_source)

//Check for at least one character
If ll_length=0 Then
    Return False
End If

//Move string into array of chars
lc_char = as_source

//Perform loop around all characters.
//Quit loop if Non Alphanemeric character is found.
Do While ll_count < ll_length
    ll_count ++
   
    //Get ASC code of character.
    li_ascii = Asc (lc_char[ll_count])
   
    // '0'= 48, '9'=57, 'A'=65, 'Z'=90, 'a'=97, 'z'=122
    If li_ascii<48 or (li_ascii>57 and li_ascii<65) Or &
        (li_ascii>90 and li_ascii<97) or li_ascii>122 Then
        /* Character is Not an AlphaNumeric */
        Return False
    End If
Loop
   
// Entire string is AlphaNumeric.
Return True