strim (2) --- trim trailing blanks and tabs from a string  03/23/80


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function strim (str)
                 character str (ARB)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Strim'  is  used  to trim trailing blanks and tabs from the
                 EOS-terminated passed as its first argument.   The  function
                 return is the length of the trimmed string, excluding EOS.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 One pass is made through the string, and the position of the
                 last  non-blank,  non-tab  character  remembered.   When the
                 entire  string  has  been  scanned,  an   EOS   is   planted
                 immediately after the last non-blank.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 str


            _S_e_e _A_l_s_o

                 stake (2), sdrop (2), substr (2)



























            strim (2)                     - 1 -                     strim (2)