COMMON LANF
	DIMENSION IDAT(17,148),N(67),IFE(227),IAUS(2,148),ISATZ(9)
	DO 10 K1=1,148
	IAUS(1,K1)=0
	IAUS(2,K1)=0
	DO 10 K2=1,17
10	IDAT(K2,K1)=0
	ISTA=1000
	ISTC=148+ISTA
	CALL RTAPE(1,-ISTC,227,IFE)
	LANF=IFE(9)
	DO 20 K=1,67
20	N(K)=IFE(160+K)
	CALL IOPEN('RKB1','ABILKS')
	DO 30 K1=LANF,148
30	READ(4,40)(IDAT(K,K1),K=1,3),IDAT(6,K1),IDAT(7,K1),IAUS(1,K1),IX
	CALL IOPEN('RKB1','ABIGKS')
	DO 50 K1=LANF,148
	READ(4,40)(ISATZ(K),K=1,7)
	IF(ISATZ(1)-IDAT(1,K1)) 70,80,70
70	DO 90 K3=LANF,148
	IF(ISATZ(1)-IDAT(1,K3)) 90,100,90
100	INDEX=K3
	GOTO 110
90	CONTINUE
	WRITE(1,60)ISATZ(1)
40	FORMAT(7I3)
60	FORMAT(/'LEISTUNGSKURSDATEN FUER SCHUELER ',I3,' FEHLEN')
	GOTO 50
80	INDEX=K1
110	IDAT(4,INDEX)=ISATZ(2)
	IDAT(5,INDEX)=ISATZ(3)
	IDAT(8,INDEX)=ISATZ(4)
	IDAT(9,INDEX)=ISATZ(5)
	IAUS(2,INDEX)=ISATZ(6)
50	CONTINUE
	CALL IOPEN('RKB1','ABI132')
	KZEIG=1
	IZEIG=4
230	DO 120 K1=LANF,148
	READ(4,130)(ISATZ(K),K=1,9)
130	FORMAT(9I4)
	IF(ISATZ(1)-IDAT(1,K1)) 140,150,140
140	DO 160 K3=LANF,148
	IF(ISATZ(1)-IDAT(1,K3)) 160,170,160
170	INDEX=K3
	GOTO 180
160	CONTINUE
	WRITE(1,360)ISATZ(1)
360	FORMAT(/'GRUND- UND LEISTUNGSKURSDATEN FUER SCHUELER ',I3,
	1' FEHLEN')
	GOTO 120
150	INDEX=K1
180	DO 190 K2=2,5
	IF(IDAT(K2,INDEX)-ISATZ(K2)/10) 200,190,200
200	GOTO(240,250),KZEIG
240	WRITE(1,210)ISATZ(1),N(ISATZ(K2)/10)
210	FORMAT(/'UNTERSCHIEDLICHE FACHANGABEN IN 12.1-13.1 UND 13.2 ',
	1'BEI SCHUELER ',I3,' IM FACH ',A2)
	GOTO 190
250	WRITE(1,260)ISATZ(1),N(ISATZ(K2)/10)
260	FORMAT(/'UNTERSCHIEDLICHE FACHANGABEN IN 12.1-13.2 UND ',
	1'PRUEFUNGSFAECHERN BEI SCHUELER ',I3,' IM FACH ',A2)
190	CONTINUE
	DO 220 K2=6,9
220	IDAT(IZEIG+K2,INDEX)=ISATZ(K2)
120	CONTINUE
	GOTO(310,320),KZEIG
310	CALL IOPEN('RKB1','ABIPRF')
	KZEIG=2
	IZEIG=8
	GOTO 230
320	CALL OOPEN('RKB1','ABITUR')
	DO 280 K1=LANF,148
	WRITE(4,290)IDAT(1,K1),(N(IDAT(K,K1)),K=2,5)
	WRITE(4,300)(IDAT(K,K1),K=6,17),IAUS(1,K1),IAUS(2,K1)
280	CONTINUE
290	FORMAT(I3,4A2)
300	FORMAT(14I4)
	CALL OCLOSE
	CALL CHAIN('AB8')
	END