CLOSE ALL
OPEN DATABASE z:\ro2009\baze\belcar SHARED
USE z:\ro2009\baze\roba ALIAS roba shared IN 0

SELECT roba

SET ORDER TO tag sifrob
GOTO top
m.sif=roba.sifrob
skip
DO WHILE !EOF()
IF roba.sifrob=m.sif
		DELETE
ELSE
	m.sif=roba.sifrob	
endif		
SKIP
ENDDO
RETURN
