Click above to get retro games delivered to your door ever month!

  Name:     atest() - check if a character matches any array elements
  Usage:    <integer> = atest(<char>,<array>,[<start>])
  Params:   char <char>, character to check for
            array <array>, an array of strings
            integer <start>, the element # to start search, (optional),
            if left off, the search starts at element #1.
  Returns:  integer equal to the element number of the first
            instance starting at element <start> where <char>
            matches the first character of an element. If no match
            is found, then 0 is returned.

 ---------------------------------- Example ---------------------------------

                 declare strings[5]
                 strings[1] = "Append"
                 strings[2] = "Edit"
                 strings[3] = "Delete"
                 strings[4] = "Access Codes"
                 strings[5] = "Quit"

                 ? atest("D",strings)
                 * prints 3

                 ? atest("a",strings)
                 * prints 1

                 ? atest("A",strings,2)
                 * prints 4

                 ? atest("T",strings)
                 * prints 0

  Note:     This search is NOT case sensitive and leading spaces
            are ignored.