INTEGER *2 A,B,V(0:255,100)
	A=1
	pi2=2.*3.14159265
	k=3777173
10	DO rf=1,100
	ij=0
	f=max(ran(k)*100.,1.)/255.	
	DO b=0,255
		v(b,rf)=127*(1+sin(b*pi2*f))
		CALL DRIO(A,v)
	END DO
	END DO
105	DO rf=1,100
		DO b=0,255
			CALL DRIO(a,v(b,rf))
		END DO
	END DO
	ij=ij+1
	if (ij.ge.10) goto 10
	GOTO 105
100	CALL EXIT
	END