equal (2) --- compare two strings for equality           03/23/80


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 integer function equal (str1, str2)
                 character str1 (ARB), str2 (ARB)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Equal'  is used to compare EOS-terminated strings.  The two
                 arguments are the  strings  to  be  compared;  the  function
                 return is YES if they are equal (on a character-by-character
                 basis), NO if they are not.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Equal'  simply  loops through each of the two strings, com-
                 paring characters.  If a mismatch occurs,  NO  is  returned;
                 otherwise, YES is returned.  Comparison stops when an EOS is
                 encountered.   To  be equal, strings must be of equal length
                 (EOS's must match).


            _S_e_e _A_l_s_o

                 strcmp (2)






























            equal (2)                     - 1 -                     equal (2)