SUBROUTINE CITYSORT (CITIES,NUM)
	CHARACTER*12 CITIES(10), HOLD
	INTEGER*2 NUM
	INTEGER*4  J, K
	LOGICAL  EXCH
	   J = 1
13	   EXCH = .FALSE.
	   DO 11 K = 1, NUM-J
	     IF (CITIES(K) .GT. CITIES(K + 1)) THEN
		HOLD = CITIES(K)
		CITIES(K) = CITIES(K+1)
		CITIES(K+1) = HOLD
		EXCH = .TRUE.
	     ENDIF
11	   CONTINUE
	   J = J + 1
	   IF (EXCH) GO TO 13
	RETURN
	END
C
C
C
	SUBROUTINE  AVERAGE (TEMPS, NUM, AVG)
	INTEGER*2 TEMPS(10), AVG, NUM
	INTEGER*4  J, SUM
	SUM = 0
	DO 11 J = 1, NUM
	  SUM = SUM + TEMPS(J)
11	CONTINUE
	AVG = SUM / NUM
	RETURN
	END