next up previous contents
suivant: Corp du programme principale monter: Description du fichier généré précédent: Fonction   Table des matières

Présentation du programme 

procedure Accueil is
begin -- Accueil

   Put_Line ( "------------------------------------------------" );
   Put_Line ( "-- But      : Tester des paquetages." );
   Put_Line ( "-- Auteur   : Genere par APTesting" );
   Put_Line ( "-- Remarque : " );
   Put_Line ( "-- Date     :  31 / 8 / 2002" );
   Put_Line ( "------------------------------------------------" );

end Accueil;
Cette procédure a été volontairement sortie du programme principale. Cela donne au fichier une plus grande clarté et facilite la personnalisation de la présentation du programme.