PROGRAM DATOTEKE
INTEGER AKCIJA
OPEN(UNIT=1,FILE='PODATKI.DAT',STATUS='UNKNOWN')
AKCIJA=0
DO WHILE (AKCIJA.NE.4)
 PRINT *,' IZBERI ZELJENO OPERACIJO'
 PRINT *,' 1 - vpis novega studenta'
 PRINT *,' 2 - izpis vseh studentov'
 PRINT *,' 3 - iskanje po priimku'
 PRINT *,' 4 - konec'
 READ *, AKCIJA
 IF (AKCIJA.EQ.1) CALL VPIS
 IF (AKCIJA.EQ.2) CALL IZPIS
 IF (AKCIJA.EQ.3) CALL ISKANJE
ENDDO
CLOSE (1)
END

SUBROUTINE VPIS 
CHARACTER IME*16,PRIIMEK*32
INTEGER STAROST
PRINT *,'VNESI IME'
READ 5,IME
PRINT *,'VNESI PRIIMEK'
READ 5,PRIIMEK
PRINT *,'VNESI STAROST'
READ *,STAROST
10 FORMAT (A16,A32,I3)
5 FORMAT(A) 
WRITE(1,10) IME,PRIIMEK,STAROST
RETURN 
END 

SUBROUTINE IZPIS
CHARACTER IME*16,PRIIMEK*32
INTEGER STAROST
REWIND (1)
DO WHILE (.TRUE.)
 READ(1,10,END=600),IME,PRIIMEK,STAROST
 PRINT *,ime,priimek,starost
 ENDDO
 600 CONTINUE
 10 FORMAT(A16,A32,I3)
RETURN 
END



SUBROUTINE ISKANJE
CHARACTER IME*16,PRIIMEK*32,PRI*32
INTEGER STAROST
REWIND (1)
PRINT *,'VNESI PRIIMEK'
READ 5,PRI
5 FORMAT(A)
10 FORMAT(A16,A32,I3)
DO WHILE (.TRUE.)
 READ (1,10,END=600)IME,PRIIMEK,STAROST
 IF (PRIIMEK.EQ.PRI) THEN
 PRINT *,IME,PRIIMEK,STAROST
 ENDIF
ENDDO
600 CONTINUE 
RETURN
END