DIMENSION IN(12)
	READ(1,5)IANZ
5	FORMAT('WIEVIELE KARTEN?'I3)
	CALL IOPEN('CDR',0)
	CALL OOPEN('SYS','ATOM')
	DO 20 K=1,IANZ
	READ(4,1)(IN(J),J=1,12)
1	FORMAT(12A1)
	WRITE(4,1)(IN(J),J=1,12)
	WRITE(1,1)(IN(J),J=1,12)
20	CONTINUE
	CALL OCLOSE
	END