Directory of image this file is from
This file as a plain text file

	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