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

	COMMON IFORM,IHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
	COMMON LANF,IANF,I,I2,IZFE,IZFA,N
	DIMENSION I(11,148),I2(148),N(67),KARTE(16),IFA(11),NOTE(11)
	CALL OOPEN('RKA1','FACH')
	DO 10 K1=IANF,148
10	WRITE(4,20)(I(K2,K1),K2=1,11)
20	FORMAT(I3,10A2)
	CALL OCLOSE
	CALL IOPEN('RKA1','NOTEN')
80	READ(4,30)(KARTE(K),K=1,16)
30	FORMAT(I3,3(I1,I2),5I2,I1,2I2,I1)
	IF(KARTE(1)) 100,200,100
100	DO 40 K1=IANF,148
	IF(KARTE(1)-I(1,K1))40,50,40
50	DO 60 K2=2,11
	IF(KARTE(5)-I(K2,K1)) 60,70,60
70	IF(KARTE(14)) 71,72,71
71	MY=10
	GOTO 75
72	MY=14
75	I(K2,K1)=KARTE(MY)*64-1056
	GOTO 80
60	CONTINUE
	WRITE(1,90)I(1,K1),N(KARTE(5))
90	FORMAT('SCHUELER',I4,' HAT KEIN ',A2)
	GOTO 80
40	CONTINUE
	WRITE(1,110)KARTE(1)
110	FORMAT('KEIN SCHUELER MIT NR',I4,'VORHANDEN')
	GOTO 80
200	CALL IOPEN('RKA1','FACH')
	DO 210 K1=IANF,148
	READ(4,20)(IFA(L),L=1,11)
	DO 210 K2=2,11
	IF(I(K2,K1)-IFA(K2))210,230,210
230	I(K2,K1)=-32
210	CONTINUE
	CALL OOPEN('RKA1','LISTE')
	DO 310 K1=IANF,148
310	WRITE(4,320)(I(K2,K1),K2=1,11)
320	FORMAT(I3,10A1)
	CALL OCLOSE
C	DRUCKROUTINE
	CALL RTAPE(1,-ISTM,1628,I)
	DO 410 L=LANF,148
	CALL IOPEN('RKA1','FACH')
	DO 420 K2=IANF,148
	READ(4,20)(IFA(M),M=1,11)
	IF(IFA(1)-I(1,K1)) 420,430,420
420	CONTINUE
	STOP
430	CALL IOPEN('RKA1','LISTE')
	DO 440 K2=IANF,148
	READ(4,320)(NOTE(M),M=1,11)
	IF(NOTE(1)-I(1,K1)) 440,450,440
440	CONTINUE
	GOTO 909
450	WRITE(1,500)(I(K2,L),K2=1,11)
500	FORMAT(///I3,2X,10A2)
	WRITE(1,510)(IFA(M),M=2,11)
510	FORMAT(/'FACH: ',2X,10(A2,2X))
	WRITE(1,520)(NOTE(M),M=2,11)
520	FORMAT('NOTE: ',2X,10(X,A1,2X))
410	CONTINUE
909	STOP
	END