	DIMENSION X(4),Y(4),XD(4),YD(4)
	INTEGER I,J,II,K2,K
	x1=-3.
	y1=-3.
	CALL PLOTS(-2,-200,6)
	call factor(.6)
	CALL PLOT(7.,4.5,-3)
	do 25 k2=1,4
	do 10 k=1,4
	x(1)=-1.0
	x(2)=-1.0
	x(3)=1.0
	x(4)=1.0
	y(1)=1.0
	y(2)=-1.0
	y(3)=-1.0
	y(4)=1.0
	smu=0.1
	RMU=1.0-SMU
	if(k.eq.2.or.k.eq.4)goto 7
	do 6 ii=1,4
6	x(ii)=-x(ii)
7	call plot(x1,y1,-3)
	y1=2.
	x1=0.
	if(k2.eq.2.or.k2.eq.4)y1=-2.
	DO 3 I=1,22
	CALL PLOT(X(4),Y(4),3)
	DO 1 J=1,4
	CALL PLOT(X(J),Y(J),2)
	NJ=MOD(J,4)+1
	XD(J)=RMU*X(J)+SMU*X(NJ)
	YD(J)=RMU*Y(J)+SMU*Y(NJ)
1	CONTINUE
	DO 2 J=1,4
	X(J)=XD(J)
	Y(J)=YD(J)
2	CONTINUE
3	CONTINUE
10	continue
	x1=2.
	y1=0.
25	continue
	CALL PLOT(0.,0.,999)
	STOP
	END
