[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rkb / paroff / vc8e.bk

	INTEGER BUFFER(100)\r
	INTEGER N,X(100),Y(100)\r
	CALL CLRPLT(100,BUFFER)\r
	CALL SCALE (0,0,100.0,100.0)\r
	DO 10 N=0,100\r
	X(N)=50.0\r
	Y(N)=FLOAT(N)\r
10	CONTINUE\r
	CALL PLOT(100,X,Y)\r
20	GOTO 20\r
	END\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	INTEGER BUFFER(100)\r
	2	INTEGER N,X(100),Y(100)\r
	3	CALL CLRPLT(100,BUFFER)\r
	4	CALL SCALE (0,0,100.0,100.0)\r
	5	DO 10 N=0,100\r
	6	X(N)=50.0\r
	7	Y(N)=FLOAT(N)\r
	8	10 CONTINUE\r
	9	CALL PLOT(100,X,Y)\r
	10	20 GOTO 20\r
	11	END\r
	12	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0