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

	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