SUBROUTINE PUTBLK(ARRAY,SIZE,ISTART,IEND)
	INTEGER SIZE,ISTART,IEND
	BYTE ARRAY(SIZE)
	DO 10 I=ISTART,IEND
10	ARRAY(I)="40
	RETURN
	END