2 c 2.3. ==> messages d'erreur eventuels
4 if ( codre0.eq.3 ) then
5 write (ulsort,texte(langue,5)) motcle
6 write (ulsort,texte(langue,11))
7 write (ulsort,texte(langue,12)) nbrmin, nbrmax
8 write (ulsort,texte(langue,1)) 'Sortie', nompro
11 elseif ( codre0.eq.6 ) then
12 write (ulsort,texte(langue,5)) motcle
13 write (ulsort,texte(langue,7))
14 write (ulsort,texte(langue,1)) 'Sortie', nompro
17 elseif ( codre0.eq.5 ) then
18 write (ulsort,texte(langue,1)) 'Entree', nompro
19 write (ulsort,texte(langue,5)) motcle
20 write (ulsort,*) noptio(1:loptio)
21 write (ulsort,texte(langue,6)) option
23 elseif ( codre0.eq.0 ) then
24 write (ulsort,texte(langue,10)) option