	program aap
	open(20,file='aap.dat')
	write(20,*)'aap'
	read(*,*)
	close(20)
	end

