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

	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	COMMON LANF,IANF,IZFE,IZFA,N,I,I2
	DIMENSION I(11,148),I2(148),N(67),IFE(227),KARTE(16)
	CALL RTAPE(1,ISTG,1628,I)
	CALL OOPEN('RKA1','FACH')
	DO 190 K1=IANF,148
190	WRITE(4,270)(I(K2,K1),K2=1,11)
270	FORMAT(I3,10I3)
	CALL OCLOSE
	READ(1,10)IANZ
	CALL OOPEN('RKA1','NOTEN')
10	FORMAT('ANZAHL DATEIEN:'I2)
	DO 300 K=1,IANZ
	READ(1,20)FNAME
20	FORMAT('DATEINAME:'A6)
	CALL IOPEN('RKA1',FNAME)
200	READ(4,35)(KARTE(L),L=1,16)
35	FORMAT(16I3)
30	FORMAT(I3,3(I1,I2),5I2,I1,2I2,I1)
	IF(KARTE(1)) 100,300,100
C	BINAERES SUCHEN
100	KU=IANF
	KO=148
	IF(I(1,148)-KARTE(1)) 135,145,105
105	INDEX=KU+(KO-KU)/2
	IF(I(1,INDEX)-KARTE(1)) 110,140,120
110	KU=INDEX+1
	GOTO 130
120	KO=INDEX
130	IF(KO-KU) 135,135,105
135	WRITE(1,1351)KARTE(1),KARTE(5),KARTE(6)
1351	FORMAT('FALSCHE SCHUELERNR: ',I3,2X,I2,2X,I1)
	GOTO 200
145	INDEX=148
140	DO 150 K2=2,11
	IF(I(K2,INDEX)/10-KARTE(5)) 150,160,150
150	CONTINUE
170	WRITE(1,1701)KARTE(1),KARTE(5)
1701	FORMAT('SCHUELER NR: ',I3,' HAT KEIN ',I2)
	GOTO 200
160	WRITE(4,30)(KARTE(L),L=1,16)
	GOTO 200
300	CONTINUE
	DO 16 L=1,16
16	KARTE(L)=0
	WRITE(4,30)(KARTE(L),L=1,16)
	CALL OCLOSE
	CALL CHAIN('KUNOT')
	END