
SET DELETED ON

SET DEFAULT TO c:\2013\baze

USE kalkstav ALIAS ks IN 0
SELECT ks
SET FILTER TO brdok="PS"
GOTO top
SET ORDER TO tag sifrob
GOTO top
BROWSE

a1=ks.sifrob
SKIP
DO WHILE !EOF()
a2=ks.sifrob
IF a1=a2
	?a1,a2
	delete
ENDIF
a1=a2
SKIP
ENDDO
	