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

(Source file text) 

---

C	TP
	DIMENSION FNAME(60)
	DO 100 I=1,60
100	CALL CPUT3(FNAME(I),1,32)
	CALL CPUT3(FNAME(10),1,42)
	CALL CPUT3(FNAME(35),1,33)
	WRITE(4,1000) FNAME
1000	FORMAT(1X,60A1)
	STOP
	END

---