C	ZUSAMMENSTELLUNG DER LEISTUNGSKURSDATEN
	COMMON LANF,NOTE,FNAM,LK,L
	DIMENSION NOTE(13,148),FNAM(3),LK(6,148),L(149),KURS(25)
	DIMENSION MY(3,4)
	DO 10 K1=1,148
	DO 15 K3=1,6
15	LK(K3,K1)=0
	DO 16 K2=1,13
16	NOTE(K2,K1)=0
10	CONTINUE
	READ(1,20)FNAM(1)
	READ(1,30)FNAM(2)
	READ(1,40)FNAM(3)
20	FORMAT('DATEINAME FUER 12.1: 'A6)
30	FORMAT('DATEINAME FUER 12.2: 'A6)
40	FORMAT('DATEINAME FUER 13.1: 'A6)
	ISTA=800
	ISTL=26+ISTA
	CALL RTAPE(1,ISTL,149,L)
	LANF=L(149)
	DO 50 K1=LANF,148
	NOTE(1,K1)=L(K1)
50	L(K1)=0
	DO 60 I=1,3
	MY(I,1)=2*I
	MY(I,2)=MY(I,1)+1
	MY(I,3)=MY(I,2)+5
60	MY(I,4)=MY(I,3)+1
	DO 70 I=1,3
	CALL IOPEN('RKB1',FNAM(I))
100	READ(4,80)(KURS(K2),K2=1,25)
80	FORMAT(13I3,12I2)
	IF(KURS(1)) 90,70,90
90	DO 110 K1=LANF,148
	IF(NOTE(1,K1)-KURS(1)) 110,130,110
130	INDEX=K1
	GOTO 140
110	CONTINUE
	GOTO 100
140	DO 150 J=1,2
	NOTE(MY(I,J),INDEX)=KURS(J+1)/10
150	NOTE(MY(I,J+2),INDEX)=KURS(J+13)
	GOTO 100
70	CONTINUE
C	AUSWERTUNG DER DATEN
	DO 160 K1=LANF,148
	DO 170 I=1,2
	IF(NOTE(I+1,K1)-NOTE(I+3,K1)) 180,190,180
180	WRITE(1,185)NOTE(1,K1)
185	FORMAT('FEHLER IN DEN LK-DATEN BEI SCHUELER ',I3)
	DO 195 K2=1,13
195	NOTE(K2,K1)=0
	GOTO 160
190	IF(NOTE(I+1,K1)-NOTE(I+5,K1)) 180,170,180
170	CONTINUE
	LK(1,K1)=NOTE(1,K1)
	LK(2,K1)=NOTE(2,K1)
	LK(3,K1)=NOTE(3,K1)
	LK(4,K1)=NOTE(8,K1)+NOTE(10,K1)+NOTE(12,K1)
	LK(5,K1)=NOTE(9,K1)+NOTE(11,K1)+NOTE(13,K1)
	IF(NOTE(12,K1)-NOTE(13,K1)) 200,200,210
200	LK(6,K1)=NOTE(13,K1)
	GOTO 260
210	LK(6,K1)=NOTE(12,K1)
260	DO 240 K2=8,13
	IF(NOTE(K2,K1)-5) 250,240,240
250	L(K1)=L(K1)+1
240	CONTINUE
160	CONTINUE
	CALL OOPEN('RKB1','ABILKS')
	DO 220 K1=LANF,148
220	WRITE(4,230)(LK(K2,K1),K2=1,6),L(K1)
230	FORMAT(7I3)
	CALL OCLOSE
	CALL CHAIN('AB2')
	END