	PROGRAM TEST7
	DIMENSION X(512),Y(512),IBUF(30),ARRAY(10)
	DO 10 I=1,512
	X(I)=ALOG10(FLOAT(I))
	R=(6.2832)*FLOAT(I)/200.
	Y(I)=SIN(R)
10	CONTINUE
	CALL GRAPHS(IBUF,227,X,Y,512,,0)
	CALL GRINDX(IBUF,X,512,ARRAY,0)
	WRITE(7,20)(J,ARRAY(J),J=1,10)
20	FORMAT(' J=',I3,'  ARRAY(J)=',E13.6)
30	WRITE(7,32)
32	FORMAT(' ELEMENT?',$)
	READ(5,*)IEL
	IF(IEL.LT.0)GOTO 40
	WRITE(7,34)X(IEL)
34	FORMAT(' ',E13.6)
	GOTO 30
40	CALL EXIT
	END
