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

C	LISTE DER MUENDLICHEN ABITURPRUEFUNGEN
C	GEORDNET NACH PRUEFLINGEN (FUER KONFERENZZIMMER)
	DIMENSION I(11,148),NAME(11),TEXT(3),IPRFA(6),L(149)
	DIMENSION KURS(6)
	ISTA=1000
	ISTE=101+ISTA
	ISTL=26+ISTA
	CALL RTAPE(1,-ISTL,149,L)
	LANF=L(149)
	CALL RTAPE(1,-ISTE,1628,I)
	CALL IOPEN('RKB1','ABIAUS')
	ISPACE=-2016
	SPACE='      '
	WRITE(1,10)
10	FORMAT(8(/),33X,'PRUEFUNGEN WEGEN'/'NAME',22X,'ABWEI',
	1'CHUNG',10X,'GEFAEHRDUNG'5X,'BEMERKUNG'/40('- '))
	IANZ=0
	IPRZA=0
	DO 20 K1=LANF,148
	IANZ=IANZ+1
	READ(4,30)(NAME(K),K=1,11),TEXT(1),TEXT(2),TEXT(3),
	READ(4,40)(IPRFA(K),K=1,6)
30	FORMAT(I3,10A2,3A6)
40	FORMAT(6A2)
	WRITE(1,50)
50	FORMAT(/)
	IF(TEXT(1)-SPACE) 25,60,25
25	WRITE(1,255)(NAME(K),K=2,11),TEXT(1),TEXT(2),TEXT(3)
	GOTO 205
255	FORMAT(10A2,45X,3A6)
60	DO 90 K3=LANF,148
	IF(I(1,K3)-NAME(1)) 90,100,90
100	INDEX=K3
	GOTO 150
90	CONTINUE
	WRITE(1,140)NAME(1)
140	FORMAT(/'FEHLENDE KURSDATEN BEI SCHUELER',I4)
	GOTO 20
150	DO 220 K=1,3
	IF(IPRFA(K)+2016) 230,240,230
230	KURS(K)=I(1+K,INDEX)*64-992
	GOTO 250
240	KURS(K)=ISPACE
250	IF(IPRFA(K+3)+2016) 260,270,260
260	KURS(3+K)=I(1+K,INDEX)*64-992
	GOTO 220
270	KURS(3+K)=ISPACE
220	CONTINUE
	WRITE(1,160)(NAME(K),K=2,11),
160	FORMAT(10A2)
	WRITE(1,195)ISPACE,
195	FORMAT(3X,A2)
	DO 170 K=1,3
170	WRITE(1,180)IPRFA(K),KURS(K),ISPACE,
180	FORMAT(A2,2A1)
	WRITE(1,190)ISPACE,
190	FORMAT(8X,A2)
	DO 200 K=4,6
200	WRITE(1,180)IPRFA(K),KURS(K),ISPACE,
	WRITE(1,210)ISPACE
210	FORMAT(A2)
	DO 80 K=1,6
	IF(IPRFA(K)+2016) 70,80,70
70	IPRZA=IPRZA+1
80	CONTINUE
205	IF(IANZ-3) 20,110,110
110	WRITE(1,120)
120	FORMAT(/40('- '))
	IANZ=0
20	CONTINUE
	WRITE(1,130)IPRZA
130	FORMAT(//5X,I3,' PRUEFUNGEN')
	END