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

	COMMON LANF,IANF,IDAT,N,IAUS
	DIMENSION IDAT(17,148),N(67),IAUS(2,148),ISATZ(9)
	CALL IOPEN('RKB1','ABI132')
	KZEIG=1
	IZEIG=4
230	DO 120 K1=IANF,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=IANF,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