SUBROUTINE SORT(IARRY,LENGTH)
	DIMENSION IARRY(200),MIN(3),INTARRY(3)
	EQUIVALENCE (RMIN,MIN),(SUBJ,INTARRY)
	MIN(2)='  '
	MIN(3)='  '
	INTARRY(2)='  '
	INTARRY(3)='  '
	LIMIT=LENGTH-1
	DO 60 I=1,LIMIT
	MIN(1)=IARRY(I)
	LOWEST=I
	ISTART = I+1
	DO 50 J = ISTART,LENGTH
	INTARRY(1)=IARRY(J)
	IF(LEX(RMIN,SUBJ))50,50,10
 10	MIN(1)=IARRY(J)
	LOWEST=J
 50	CONTINUE
	IARRY(LOWEST)=IARRY(I)
	IARRY(I)=MIN(1)
 60	CONTINUE
	RETURN
	END
]@\
vu
K@\
nml
@o]@p	@qT@r@x`@z@|@~;@@w
@n@m@l@v@u@t@}	@{
@y@sA
	H	


#