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

C	AUSGABETEIL UEBER ZULASSUNG - GK-BEREICH
	DIMENSION KARTE(25),IFE(227),N(67),LK(6,148),FNAM(4)
	DIMENSION IW(148),I5P(148),KLASSE(10),LOS(4)
	DO 1 K=1,4
	ISTC=148+(K+1)*200
	CALL RTAPE(1,-ISTC,227,IFE)
1	LOS(K)=IFE(10)
	DO 5 K=1,67
5	N(K)=IFE(K+160)
	READ(1,10)FNAM(1)
	READ(1,20)FNAM(2)
	READ(1,30)FNAM(3)
	READ(1,40)FNAM(4)
10	FORMAT('DATEI 12.1:'A6)
20	FORMAT('DATEI 12.2:'A6)
30	FORMAT('DATEI 13.1:'A6)
40	FORMAT('DATEI 13.2:'A6)
	DO 60 K1=1,148
	DO 50 K2=1,6
50	LK(K2,K1)=0
	I5P(K1)=0
60	IW(K1)=0
	CALL IOPEN('RKB1',FNAM(4))
	IANF=LOS(4)
	ILOS=IANF
	DO 120 K1=IANF,148
	READ(4,70)(KARTE(K),K=1,25)
70	FORMAT(13I3,12I2)
	LK(1,K1)=KARTE(1)
	LK(2,K1)=KARTE(4)/10
	LK(3,K1)=KARTE(5)/10
	LK(4,K1)=KARTE(16)
	LK(5,K1)=KARTE(17)
	DO 120 K2=6,13
	IF(N(KARTE(K2)/10)+2016) 80,120,80
80	IW(K1)=IW(K1)+1
	LK(6,K1)=LK(6,K1)+KARTE(K2+12)
	IF(KARTE(K2+12)-5) 90,120,120
90	I5P(K1)=I5P(K1)+1
120	CONTINUE
	DO 210 ISA=1,3
	CALL IOPEN('RKB1',FNAM(ISA))
	IANF=LOS(ISA)
	WRITE(1,1001)ISA,IANF
1001	FORMAT('ISA',I2,'IANF',I4)
	DO 160 K3=IANF,148
125	READ(4,70)(KARTE(K),K=1,25)
	WRITE(1,404)KARTE(1),K1
404	FORMAT(I4,2X,I4)
130	DO 150 K1=ILOS,148
	IF(KARTE(1)-LK(1,K1)) 150,140,150
140	INDEX=K1
	GOTO 170
150	CONTINUE
160	CONTINUE
170	DO 200 K2=4,13
	IF(N(KARTE(K2)/10)+2016) 180,200,180
180	IW(INDEX)=IW(INDEX)+1
	LK(6,INDEX)=LK(6,INDEX)+KARTE(K2+12)
	IF(KARTE(K2+12)-5) 190,200,200
190	I5P(INDEX)=I5P(INDEX)+1
200	CONTINUE
	GOTO 125
210	CONTINUE
	END