##############################################################################
###+---------+################################################################
#+-| RTRIM() |----------------------------------------------------+###########
#| +---------+ Returns the result of removing all trailing blanks |###########
#+----------------------------------------------------------------+###########
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE string.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------------+#############################
#|     FUNCTION CHAR rtrim PROTOTYPE            |#############################
#|      PARAMETERS CONST CHAR source_string     |#############################
#+----------------------------------------------+#############################
##############################################################################
##############################################################################
###########+---| Description |-----------------------------------+############
###########| The rtrim() function returns the result of removing |############
###########| all trailing blanks from source_string.             |############
###########+-----------------------------------------------------+############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########|                                                          |#########
#########| ? rtrim("Megan Morse  ")    && "Megan Morse"             |#########
#########| ? len( rtrim("   "))        && prints 0                  |#########
#########| ? rtrim(ltrim("  My Name ") && "My Name"                 |#########
#########|                                                          |#########
#########| z = "A long string with spaces"+space(50)                |#########
#########| ? rtrim( z )                                             |#########
#########|                                                          |#########
#########| *--- prints: "A long string with spaces"                 |#########
#########+----------------------------------------------------------+#########
##############################################################################