File: SUB.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

C	TESTPROGRAMM
	A=1
	B=C(A)
	WRITE(4,1000)B
	STOP
	END
1000	FORMAT(E16.8)
	FUNKTION B(X)
	B=X+1
	RETURN
	EN

---