///3///
	1///
fonction dureeCalcul (E f:Flux de Paquet; S temps : réel)
	p : paquet
	temps : reel
	temps<-0
	tantQue non eof(f) faire
		Lire(f,p)
		temps=temps+1/300
	FinTantQue
	retourner temps
Fin

	2///
	
fonction afficherFlux (E adresse : chaine)
	f : FluxDePaquet
	ouvrirFluxDePaquets(adresse,f)
	tantque non eof(f) faire
		nbalus++
		lire(f,(tabPa(nbalus))
		Si nbalus = 100 alors
			decompresserMPEG2(im,tabPa)
			nbalus<-0
			nbimLus++
			tabim(bnlmLus)<-im
		sinon
			im<-reconstituerMPEG2(tabim,im)
			
			pour i allant de 2 a 10 pas 1 faire	
				tabim(i-1)>tabim(i)
			FinPour
			tabim(10)<-im
		FinSi
		afficherImage(im)
	FinSi
	FinTantQue
	fermer(f)
FinProcedure