	SUBROUTINE FILL(B,FILLER)
	LOGICAL*1 B(80)
	LOGICAL*1 FILLER(80)
	J=2
10	IF(FILLER(1).EQ.FILLER(J)) RETURN
	B(J-1)=FILLER(J)
	J=J+1
	GOTO 10
	RETURN
	END
