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

(Source file text) 

---

C	TESTPROGRAMM FUER PLOT
	DIMENSION Y(100)
	XL=0
	STEP=12.*3.14159/100.
	ST=0.
	DO 10 I=1,100
	ST=ST+STEP
10	Y(I)=SIN(ST)
	CALL YPLOT(STEP,XL,Y)
	STOP
	END

---