File: RTES.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

C	EINLESEPROGRAMM
	READ(5,100)IANZ
100	FORMAT(I4)
	DO 10 I=1,IANZ
	READ(5,110) T
110	FORMAT(F8.0)
	WRITE(4,110) T
10	CONTINUE
	STOP
	END

---