* Les champs dans la table sont:
*	idmatch (Id. Match)
*	ne1 (Nom Equipe1)
*	ne2 (Nom Equipe2
*	pe1 (Points Equipe1)
*	pe2 (Nom Equipe2)
*	revenus	(argent recolte)

USE resultat.dbf
argent=0
accept "Nom equipe" to equipe
DO WHILE !EOF()
	IF equipe=alltrim(ne1) .or. equipe=ALLTRIM(ne2)
		argent=argent+revenus
	ENDIF
	skip
ENDDO
?"Argent recolte",argent