# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# STRNE -- Compare two strings for inequality.

bool procedure strne (s1, s2)

char	s1[ARB], s2[ARB]
int	ip

begin
	do ip = 1, ARB
	    if (s1[ip] == EOS)
		return (s2[ip] != EOS)
	    else if (s1[ip] != s2[ip])
		return (true)
end