CHARACTER CWA*8,LOGIN*9
100	READ(1,1100,END=9000)CWA,LOGIN
1100	FORMAT(28X,A8,4X,A9)
	WRITE(2,1200)LOGIN,CWA
1200	FORMAT(A,A)
	GOTO 100
9000	END