INTEGER*2 H(12),K(12),iflag(12),L
	OPEN(UNIT=3,FILE='SEARCH.COM',STATUS='NEW',CARRIAGECONTROL='list')
	WRITE(3,1)
1	FORMAT('$SET DEF B:[BERRY.DENZO]')
	WRITE(6,*)'  ENTER H,K,L TO BE SEARCHED:'
	READ(5,*)H(1),K(1),L

C	DO 20 I=2,6
C	H(I)=-K(I-1)
C20	K(I)=H(I-1)+K(I-1)
C	DO 30 I=7,12
C	H(I)=K(I-6)
C30	K(I)=H(I-6)

	H(2)=H(1)
	H(3)=-H(1)
	H(4)=-H(1)

	K(2)=-K(1)
	K(3)= K(1)
	K(4)=-K(1)


	do 35 i=2,4
	do 35 j=1,i-1
35	if ((h(i).eq.h(j)).and.(k(i).eq.k(j))) iflag(i)=1
	DO 40 I=1,4
	if (iflag(i).ne.1) then
	WRITE(3,41)H(I),K(I),L
	if(l.ne.0)WRITE(3,41)H(I),K(I),-L
	endif
40	continue
41	FORMAT('$SEARCH *.OUT "',3I4,'"')
	end