
CLEAR
SET DEVICE TO  printer
SET PRINT TO d:\cepsi\napomene\a.lst
SET DELETED ON
USE ROBA ALIAS ROBA IN 0
SET ORDER TO TAG barkod
GOTO TOP
A1=ROBA.barkod
b1=roba.sifrob
c1=ALLTRIM(roba.naziv)
SKIP
DO WHILE !EOF()
A2=ROBA.barkod
b2=roba.sifrob
c2=ALLTRIM(roba.naziv)
IF A1=A2
*	?a1,roba.naziv
	@row()+1,1 say A1+" "+b1+" "+c1+" "+b2+" "+c2
ENDIF
A1=A2	
b1=b2
c1=c2
SKIP
ENDDO
SET PRINT to
SET DEVICE TO screen

