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

	DIMENSION IPRSA(9),NAME(11,148),IFE(227),I1(3),I2(3)
	DO 10 K2=1,9
10	IPRSA(K2)=0
	ISTC=1148
	ISTM=1038
	CALL RTAPE(1,-ISTM,1628,NAME)
	CALL RTAPE(1,-ISTC,227,IFE)
	LANF=IFE(9)
	IANF=IFE(10)
	CALL IOPEN('RKB1','ABI4FP')
	CALL OOPEN('RKB1','ABIPRF')
	WRITE(1,90)
90	FORMAT(/'EINGABE DER PRUEFUNGSERGEBNISSE IM 1.-3.FACH'//)
	DO 20 K1=IANF,148
	READ(4,30)(IPRSA(K2),K2=1,9)
30	FORMAT(9I4)
	DO 50 K=1,3
	I1(K)=IPRSA(1+K)/10
	I2(K)=IPRSA(1+K)-10*I1(K)
50	I1(K)=I1(K)+160
	IF(IPRSA(1)-NAME(1,K1)) 110,40,110
110	DO 120 K4=LANF,148
	IF(IPRSA(1)-NAME(1,K4)) 120,130,120
120	CONTINUE
	STOP
130	IZEIG=K4
	GOTO 140
40	IZEIG=K1
140	WRITE(1,70)(NAME(K2,IZEIG),K2=1,11),IFE(I1(1)),I2(1),
70	FORMAT(/I3,2X,10A2,2X,'1.FACH: ',A2,I1)
	K=1
150	CONTINUE
	READ(1,80)IPRSA(6)
80	FORMAT('     ERGEBNIS (PUNKTZAHL) :'I2)
	IF(IPRSA(6) - 15) 1,1,150
1	K=K+1
	WRITE(1,60)K,IFE(I1(K)),I2(K),
60	FORMAT(27X,I1,'.FACH: ',A2,I1)
	READ(1,80)IPRSA(5+K)
	GOTO(1,1,100),K
100	WRITE(4,30)(IPRSA(K),K=1,9)
20	CONTINUE
	CALL OCLOSE
	END