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

(Source file text) 

---

C	LIEST WERTE EIN
	I=0
300	WRITE(4,2001)
	READ(4,2002) IEND
	IF (IEND) 301,301,302
302	I=I+1
	WRITE(4,2003)
	READ(4,2004) X,Y
	WRITE(6,2005) I,X,Y
	GOTO 300
301	WRITE(4,2006) I
	I=0
	X=0
	Y=0
	WRITE(6,2005)
	REWIND 6

2001 	FORMAT(1X,//,X,' INPUT OF POINT: YES:1,NO:0')
2002	FORMAT(1X,I3)
2003	FORMAT(1X,/,' TIME (MM)       TEMP(MM)')
2004	FORMAT(1X,2E16.6)
2005	FORMAT(1X,I3,2E16.6)
2006	FORMAT(1X,//,' NUMBER OF POINTS ',I3)

	END

---