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

DIMENSION nomEquipes(15)

* Les noms des equipes sont y inclus car j'ai fait
* un exemple chez moi pour verifier le programme.
* Pour le controle il n'y avait pas besoin de definir 
* le tableau
 
nomEquipes(1)="aigles"
nomEquipes(2)="anguilles"
nomEquipes(3)="faucons"
nomEquipes(4)="lions"
nomEquipes(5)="ours"
nomEquipes(6)="panters"
nomEquipes(7)="tigres"

FOR i=1 TO 7
	matchGagnes=0
	GO top
	DO WHILE !EOF()
		IF nomEquipes(i)=ALLTRIM(ne1)
			IF pe1>pe2
				matchGagnes=matchGagnes+1
			ENDIF
		ELSE
			if nomEquipes(i)=ALLTRIM(ne2)
				IF pe2>pe1
					matchGagnes=matchGagnes+1
				ENDIF
			ENDIF
		ENDIF
		SKIP
	ENDDO
	?nomEquipes(i), "a gagne",matchGagnes,"matchs"
ENDFOR