SUBROUTINE SORT(LIST,LENGTH)
C+
C	SUBROUTINE SORT WILL SORT A LIST OF WORDS INTO ALPHABETICAL
C	ORDER.
C 
C	LOCAL VARIABLES
C		RIGHT	- IS THE LIST IN CORRECT ORDER
C		WORD	- HOLDER FOR LIST ELEMENT EXCHANGE
C 
C-
	CHARACTER*25 LIST(LENGTH),WORD
	LOGICAL*1 RIGHT
C 
10	RIGHT=.TRUE.
	DO 20,I=1,LENGTH-1
	IF(LIST(I).GT.LIST(I+1))THEN
		WORD=LIST(I)
		LIST(I)=LIST(I+1)
		LIST(I+1)=WORD
		RIGHT=.FALSE.
	END IF
20	CONTINUE
	IF(.NOT.RIGHT)GO TO 10
	RETURN
	END