C	PROGRAM SQUARE.FT
C	-------------------
C
C
	SUBROUTINE SQUARE(MEM,IBYTE,KXC,KYC)
C
C
C	PETER LEMKIN
C	IMAGE PROCESSING UNIT, DCBD
C	NATIONAL CANCER INSTITUTE
C	NATIONAL INSTITUTES OF HEALTH
C	9000 ROCKVILLE PIKE
C	BETHESDA, MD. 20014
C
C	JULY 19, 1977
C	JULY 18, 1977
C
C	PURPOSE
C	-------
C	DISPLAY  A 3X3 BLACK SQUARE CENTERED AT (KXC,KYC).
C
C	DEFINE  X LIMITS
	L1=KYC-1
	L2=KYC+1
C
	J=KXC-1
	DO 10 I=L1,L2
S	JMS W
10	CONTINUE
C
	J=KXC+1
	DO 20 I=L1,L2
S	JMS W
20	CONTINUE
C
C	DEFINE Y LIMITS
	L1=KXC-1
	L2=KXC+1
	I=KYC-1
	DO 30 J=L1,L2
S	JMS W
30	CONTINUE
C
	I=KYC+1
	DO 40 J=L1,L2
S	JMS W
40	CONTINUE
	RETURN
C
C
C	***************************************************
C	*SUBROUTINE W
C	***************************************************
C	WRITE OUT BLACK AT (I,J) IN MEM,IBYTE.
C
S	CPAGE 3
S RW,	JMP I W
SW, 	0
	CALL BMPARM(J,I,255,MEM,IBYTE,1)
	CALL PACK2D
S	JMP RW
	END
  