SET DEFAULT TO d:\robno\baze
OPEN DATABASE belcar
USE zagrev ALIAS zagrev IN 0	
USE revstav ALIAS revstav IN 0
SET DELETED ON
SELECT revstav
GOTO top
a2=SPACE(1)
DO WHILE !EOF()
a1=revstav.brdok

SELECT zagrev
SET ORDER TO tag brdok
GOTO top
SEEK a1
IF !FOUND()
	IF a1<>a2	
		=MESSAGEBOX(a1+" "+a2,0)
		a2=a1
	endif	
ENDIF
SELECT revstav
SKIP
ENDDO
CLOSE ALL
	