CLOSE ALL
SET exclusive off
SET DELETED ON
SET CENTURY on
SET DATE GERMAN
USE d:\a\zagrac ALIAS zr IN 0
USE d:\2018\str1\baze\zagrac ALIAS zagrac shared IN 0

SELECT zr
GOTO top
DO WHILE !EOF()
a1=zr.brdok
	SELECT zagrac
	SET ORDER TO tag brdok
	GOTO top
	SEEK a1
	IF !FOUND()
		SELECT zr
		SCATTER memvar
		SELECT zagrac
		APPEND BLANK
		GATHER memvar
	ENDIF
SELECT zr
SKIP
ENDDO
RETURN
		