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

	COMMON ISTA,IANF,LANF,FNAM,LK,L,I,N
	DIMENSION I(11,148),KARTE(25),N(67),IFE(227),FNAM(3),L(149)
	DIMENSION LK(6,148)
	ISTA=1000
	ISTG=78+ISTA
	ISTC=148+ISTA
	CALL RTAPE(1,-ISTC,227,IFE)
	CALL RTAPE(1,ISTG,1628,I)
	READ(1,10)FNAME
10	FORMAT('DATEINAME FUER 13.2: 'A6)
	IANF=IFE(10)
	DO 20 K3=1,67
20	N(K3)=IFE(160+K3)
	DO 140 K1=1,148
	LK(1,K1)=I(1,K1)
	DO 140 K2=2,6
140	LK(K2,K1)=0
	CALL IOPEN('RKB1',FNAME)
	DO 60 K3=IANF,148
90	READ(4,40)(KARTE(K),K=1,25)
40	FORMAT(13I3,12I2)
65	DO 30 K1=IANF,148
	IF(KARTE(1)-I(1,K1)) 30,70,30
70	INDEX=K1
	GOTO 80
30	CONTINUE
	GOTO 60
80	DO 100 K2=2,5
	IF(I(K2,INDEX)-KARTE(K2)) 115,100,115
115	IF(I(K2,INDEX)/10-KARTE(K2)/10) 110,105,110
105	WRITE(1,1005)KARTE(1),KARTE(K2)
1005	FORMAT('UNTERSCHIEDLICHE KURSNR IN WAHL- UND ABITURDATEN ',
	1'BEI SCHUELER',I4,' IN ',I3)
100	CONTINUE
	GOTO 120
110	WRITE(1,130)KARTE(1)
130	FORMAT('UNTERSCHIEDLICHE FAECHER IN WAHL- UND ABITURDATEN ',
	1'BEI SCHUELER',I4)
120	DO 150 K2=2,5
150	LK(K2,INDEX)=KARTE(K2+12)
60	CONTINUE
50	CALL OOPEN('RKB1','ABI132')
	DO 160 K1=IANF,148
160	WRITE(4,170)(I(K2,K1),K2=1,5),LK(2,K1),LK(3,K1),LK(4,K1),LK(5,K1)
170 	FORMAT(9I4)
	CALL OCLOSE
	CALL CHAIN('AB6')
	END