set exclusive off
CLOSE ALL

SET DELETED ON
SET CENTURY on
SET DATE GERMAN
USE d:\a\virman ALIAS vir IN 0
USE d:\2018\str1\baze\virman ALIAS virman shared IN 0

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