function Rtrim$(src$)

Returns src$ with all the spaces after the last non-space character removed.