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

	DIMENSION IPRSA(9),NAME(11,148),IFE(227)
	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','ABI132')
	CALL OOPEN('RKB1','ABI4FP')
	WRITE(1,90)
90	FORMAT(/'EINGABE DER PRUEFUNGSERGEBNISSE IM 4.FACH'//
	1'BEI SPORT ERST ERGEBNIS PRAKTISCHER TEIL, DANN THEORETISCHER'
	2' TEIL EINGEBEN !')
	DO 20 K1=IANF,148
	READ(4,30)(IPRSA(K2),K2=1,9)
30	FORMAT(5I3,4I2)
	I1=IPRSA(5)/10
	I2=IPRSA(5)-10*I1
	INDEX=I1+160
	IPRSA(6)=0
	IPRSA(7)=0
	IPRSA(8)=0
	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(INDEX),I2,
70	FORMAT(/I3,2X,10A2,2X,'4.FACH: ',A2,I1)
150	CONTINUE
	READ(1,80)IPRSA(9)
80	FORMAT('     ERGEBNIS (PUNKTZAHL) :'I4)
	IF(IPRSA(9) - 15) 100,100,160
160	IF(I1-54) 150,170,150
170	IF(IPRSA(9)-1515) 100,100,150
100	WRITE(4,30)(IPRSA(K),K=1,9)
20	CONTINUE
	CALL OCLOSE
	END