File: FORT6.FT of Disk: Disks/PDP8-Net/haygood-osv3r

(Source file text) 

---

	DOUBLE PRECISION PI, E, EPI
	PI = 3.14159265358979323846D0
	E = -2.71828182845904523536D0
	EPI = E * PI
	WRITE (4,200)EPI
200	FORMAT (1H1,B17.13)
	STOP
	END

---