DIMENSION KARTE(16)
	READ(1,10)IANZ
	CALL OOPEN('RKA1','NOTEN')
10	FORMAT('ANZAHL DATEIEN:'I2)
	DO 300 K=1,IANZ
	READ(1,20)FNAME
20	FORMAT('DATEINAME:'A6)
	CALL IOPEN('RKA1',FNAME)
200	READ(4,30)(KARTE(L),L=1,16)
30	FORMAT(16I3)
	IF(KARTE(1)) 100,300,100
100	WRITE(4,30)(KARTE(L),L=1,16)
	GOTO 200
300	CONTINUE
	DO 16 L=1,16
16	KARTE(L)=0
	WRITE(4,30)(KARTE(L),L=1,16)
	CALL OCLOSE
	CALL CHAIN('KUWA5A')
	END