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