	PROGRAM TEST2
	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)
	CALL VTHTXT(8,23,1,' UPPER REGION NEXT, THEN LOWER ')
	CALL ISLEEP(0,0,5,0)
	CALL GRREGN(IBUF,0,1)
	CALL GRAPHS(IBUF,227+4,X,Y,512,,0)
	CALL GRREGN(IBUF,1,2)
	CALL GRAPHS(IBUF,227+4,,Y,512,0.,1)
	CALL GRAPHS(IBUF,32,X,Y,512,,1)
	CALL EXIT
	END
