File: WERTE.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

C	EINLESEPROGRAMM
	I=1
75	WRITE(4,77)
77	FORMAT(/1X,' DATENNR (FORMAT(X,I3)),0 = DATENENDE',T70,$)
 	READ(4,70) IEND
70	FORMAT(I3)
	IF (IEND) 61,51,61
61	WRITE(4,71)
71	FORMAT(/1X,'T =',T8,$)
	READ(4,72) T
72	FORMAT(E16.9)
	WRITE(4,76)
76	FORMAT(/1X,'R= ',T8,$)
	READ(4,72) R
	WRITE(5,73) I,T,R
73	FORMAT(1X,I5,2E16.9)
	I=I+1
	GOTO 75
51	I=0
	T=1.
	R=1.
	WRITE(5,73) I,T,R
	END

---