	PROGRAM TEST6
	DIMENSION X(512),Y(512),IBUF(30)
	DO 10 I=1,512
	X(I)=ALOG10(FLOAT(I))
	R=(6.2832)*FLOAT(I)/200.
	Y(I)=SIN(R)
10	CONTINUE
	CALL BOUNDS(1,X,XMAX,XMIN,512)
	CALL GRAPHS(IBUF,227+4,X,Y,512,,0)
C
	CALL VTHTXT(8,23,1,' CHANGING SHADE LINE POSITION ')
	CALL BOUNDS(1,Y,YMAX,YMIN,512)
	DO 20 I=1,10
	CALL ISLEEP(0,0,3,0)
	FI=I
	SHADE=((FI/10.)*(YMAX-YMIN))+YMIN
	CALL GRSHAD(IBUF,SHADE,0)
20	CONTINUE
C
	CALL EXIT
	END
