##############################################################################
###+-----------+##############################################################
#+-| ISUPPER() |-------------------------------------------------------+######
#| +-----------+ Returns TRUE if first character begins with uppercase |######
#+---------------------------------------------------------------------+######
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE string.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------+###############################
#|     FUNCTION LOGICAL isupper PROTOTYPE     |###############################
#|      PARAMETERS CONST CHAR test_string     |###############################
#+--------------------------------------------+###############################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| The isupper() function returns TRUE if the first character |########
########| within test_string begins with an uppercase letter.        |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########|                                                          |#########
#########| ? isupper( "Lloyd Tabb" )             && Prints .T.      |#########
#########| ? isupper( "lloyd tabb" )             && Prints .F.      |#########
#########| ? isupper( "   lloyd tabb" )          && Prints .F.      |#########
#########| ? isupper( "1234 south street" )      && Prints .F.      |#########
#########+----------------------------------------------------------+#########
##############################################################################