***************************************************************
* File: lettera.for
* Scopo: soluzione compito del 10-07-2000

      CHARACTER FUNCTION MASSIMA(NOME)
* ISTRUZIONI DICHIARATIVE
      IMPLICIT NONE
* NOME E` PARAMETRO DI INPUT
      CHARACTER*12 NOME
* DICHIARAZIONI DELLE VARIABILI
      CHARACTER CORRENTE, MAX/'A'/
* ISTRUZIONI ESEGUIBILI
      OPEN(9,FILE=NOME)
      READ(9,10) CORRENTE
      DO WHILE (CORRENTE .NE. '$')
         IF (CORRENTE .GT. MAX) MAX = CORRENTE
	 READ(9,10) CORRENTE
      ENDDO
      CLOSE(9)
      MASSIMA = MAX
      RETURN
10    FORMAT(A1)
      END

      PROGRAM MAIN
* ISTRUZIONI DICHIARATIVE
      IMPLICIT NONE
* DICHIARAZIONI DI TIPO PER LE COSTANTI
      CHARACTER*12 NOMEFILE
* DEFINIZIONI DELLE COSTANTI
      PARAMETER (NOMEFILE = 'DATI.TXT')
* DICHIARAZIONE TIPO FUNZIONE USATA
      CHARACTER MASSIMA
* ISTRUZIONI ESEGUIBILI
      WRITE(*,*) MASSIMA(NOMEFILE)

      STOP
      END
