File: TTEST.FT of Tape: V50/Source/Source-Listing-FORTRAN-1

(Source file text) 

---

C	PROGRAM SIMULATES TV PROGRAM STAR TREK
	DOUBLE PRECISION DUMMY
	DOUBLE PRECISION PI 
	PI=3.141592653589793
	WRITE (4,1) PI
1	FORMAT (////,1X,'PI=',D22.18)
	DUMMY=4*DATAN(1.0)
	WRITE (4,10) DUMMY
10	FORMAT(////,1X,'4*DATAN=: ',D22.18)
	END

---