DIMENSION PLBF(2)
  1	X=0.0
	Y=0.0
	CALL CLRPLT(1,PLBF)
  	DO 10 I=2,100
	X=X+0.01
  	Y=Y+0.01
  	CALL PLOT(1,X,Y)
  10	CALL CLRPLT(1,PLBF)
	GO TO 1
	STOP
	END