SET TALK OFF
SET ECHO OFF
SET SAFETY OFF
PUBLIC s
USE table1
s=0
m.no=areacode
m.ns=team
DO WHILE .t. and m.ns=team
COUNT TO k FOR team=m.ns
? m.ns,areacode
skip
? m.ns

IF team<>m.ns
m.ns=team
s=s+1

? s
IF EOF()
EXIT
ENDIF
ENDIF
enddo