set print on          
set printer to extrato
select b
use \temp\asptrl01
index on sigla to isigla
select a
use \temp\asptrl02
set filter to nome <> " " 
go top
index on sigla+nome+str(somageral,5,2) to atleta
go top
do while .not. eof()
   l=1
   sig=sigla
   do while .not. eof() .and. sigla = sig
      @ l,01 say nome+uf
      nm=nome
      do while .not. eof() .and. sigla = sig .and. nome = nm
         skip
      enddo
      l=l+1
   enddo
enddo
close databases
set printer to
return