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

# STRLT -- Is S1 < S2.

bool procedure strlt (s1, s2)

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

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