DIMENSION I(11,148),IFE(227),LK(6,148),LDAT(9),IZA(4) ISTA=1000 ISTC=148+ISTA ISTM=38+ISTA CALL RTAPE(1,-ISTM,1628,I) CALL RTAPE(1,-ISTC,227,IFE) CALL IOPEN('RKB1','ABI132') LANF=IFE(9) IANF=IFE(10) DO 10 K1=IANF,148 READ(4,20)(LDAT(K),K=1,9) 20 FORMAT(9I4) LK(1,K1)=LDAT(1) LK(2,K1)=LDAT(5)/10 LK(3,K1)=LDAT(5)-10*LK(2,K1) LK(4,K1)=LDAT(9) 10 LK(5,K1)=0 DO 200 K3=171,227 IF(IFE(K3)+2016) 30,200,30 30 DO 60 M=1,4 60 IZA(M)=0 DO 40 K1=LANF,148 IF(LK(2,K1)-K3+160) 40,50,40 50 IZA(LK(3,K1))=IZA(LK(3,K1))+1 LK(5,K1)=1 40 CONTINUE DO 70 M=1,4 IF(IZA(M)) 70,70,80 80 WRITE(1,100)IFE(K3),M 100 FORMAT(10(/),'KURS: ',A2,I1) WRITE(1,110) 110 FORMAT(///'NAME: ',20X,'PUNKTE 13.2:',2X,'PRUEFNOTE MIT ', 1'TENDENZ'/5('-'),21X,12('-'),2X,22('-')//) DO 120 K1=LANF,148 IF(LK(5,K1)) 120,120,130 130 IF(LK(3,K1)-M) 120,140,120 140 WRITE(1,150)(I(K2,K1),K2=2,11),LK(4,K1) 150 FORMAT(10A2,10X,I2/) LK(5,K1)=0 120 CONTINUE 70 CONTINUE 200 CONTINUE END