** mztolo 2006
CLOSE ALL
CLEAR
tempe=''
CREATE CURSOR anumu (kode c(5))
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('001')
INSERT INTO anumu(kode) VALUES ('002')
INSERT INTO anumu(kode) VALUES ('002')
INSERT INTO anumu(kode) VALUES ('003')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('004')
INSERT INTO anumu(kode) VALUES ('005')
INSERT INTO anumu(kode) VALUES ('006')
INSERT INTO anumu(kode) VALUES ('007')
INSERT INTO anumu(kode) VALUES ('007')
INSERT INTO anumu(kode) VALUES ('008')
INSERT INTO anumu(kode) VALUES ('009')

SELECT kode,.t. as flag FROM anumu INTO CURSOR anumux READWRITE 

GO TOP
tempe=anumux.kode 
SCAN
	IF tempe <> anumux.kode
		replace anumux.flag WITH .f. 
	ELSE 
		replace anumux.flag WITH .t.
	ENDIF
	tempe=anumux.kode
ENDSCAN
BROWSE