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

(Source file text) 

---

	DIMENSION Q(10)
	DO 10 I=1,10
	Q(I)= I
10	CONTINUE
	DO 20 I=1,10
	WRITE (4,300)Q(I)
20	CONTINUE
300	FORMAT (1H ,F5.2)
	A=14.
	PI = 3.14159
	PIO2 = PI / 2.0
50	FORMAT (2F3.1)
	X=(A-5.25)/2.5
	WRITE (4,100)X
	SX = PI * PI / 2.0
	WRITE (4,100) SX
100	FORMAT (1H1,F5.2)
	WRITE (4,200)PIO2
200	FORMAT (1H1,F7.5)
	STOP
	END

---