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

C	ZUSAMMENSTELLUNG DER GRUNDKURSDATEN
	COMMON LANF,NOTE,FNAM,LK,L
	DIMENSION NOTE(13,148),FNAM(3),LK(6,148),L(149),KURS(25)
	DIMENSION MY(3,4)
	READ(1,20)FNAM(1)
	READ(1,30)FNAM(2)
	READ(1,40)FNAM(3)
20	FORMAT('DATEINAME FUER 12.1: 'A6)
30	FORMAT('DATEINAME FUER 12.2: 'A6)
40	FORMAT('DATEINAME FUER 13.1: 'A6)
	DO 50 K1=1,148
50	L(K1)=0
	DO 60 I=1,3
	MY(I,1)=2*I
	MY(I,2)=MY(I,1)+1
	MY(I,3)=MY(I,2)+5
60	MY(I,4)=MY(I,3)+1
	DO 70 I=1,3
	CALL IOPEN('RKB1',FNAM(I))
100	READ(4,80)(KURS(K2),K2=1,25)
80	FORMAT(I3,24I2)
	IF(KURS(1)) 90,70,90
90	DO 110 K1=LANF,148
	IF(NOTE(1,K1)-KURS(1)) 110,130,110
130	INDEX=K1
	GOTO 140
110	CONTINUE
	GOTO 100
140	DO 150 J=1,2
	DO 10 K=2,13
	IF(KURS(K)-NOTE(1+J,INDEX)) 10,15,10
15	NOTE(MY(I,J+2),INDEX)=KURS(K+12)
	GOTO 150
10	CONTINUE
	GOTO 100
150	CONTINUE
	GOTO 100
70	CONTINUE
C	AUSWERTUNG DER DATEN
	DO 160 K1=LANF,148
	LK(1,K1)=NOTE(1,K1)
	LK(2,K1)=NOTE(2,K1)
	LK(3,K1)=NOTE(3,K1)
	LK(4,K1)=NOTE(8,K1)+NOTE(10,K1)+NOTE(12,K1)
	LK(5,K1)=NOTE(9,K1)+NOTE(11,K1)+NOTE(13,K1)
260	DO 240 K2=8,13
	IF(NOTE(K2,K1)-5) 250,240,240
250	L(K1)=L(K1)+1
240	CONTINUE
160	CONTINUE
	CALL OOPEN('RKB1','ABIGKS')
	DO 220 K1=LANF,148
220	WRITE(4,230)(LK(K2,K1),K2=1,6),L(K1)
230	FORMAT(7I3)
	CALL OCLOSE
	END