with Text_IO ; use Text_IO ; -- pour les entrees/sorties

procedure petit_service is
  package Int_Io is new Integer_IO (INTEGER); use Int_Io;

  -- emet un bip
  procedure Bip is
  begin
    put(CHARACTER'VAL(7)) ;
  end Bip ;

  -- demande de taper sur une touche
  procedure Attend is
     c : CHARACTER := ' ' ;
  begin
     new_line ;
     put("Appuyer sur une touche pour continuer ") ;
     get(c) ; new_line ;
  end Attend ;

  -- affiche la table ASCII
  procedure Ascii is
     i : INTEGER ;
  begin
     for i in 1..255 loop
         new_line ;
         put(i) ; put(" : ") ; put(CHARACTER'VAL(i)) ;
     end loop ;
  end Ascii ;

  -- pose une question a l'utilisateur et renvoie V ou F
  function fini return boolean is
    c : CHARACTER := ' ' ;
  begin
    new_line ;
    put("Est-ce bien (O/N) ?") ; get(c) ;
    if (c = 'O') then return TRUE ;
    else return FALSE ;
    end if ;
  end fini ; 
    
-- programme principal
begin
  Bip ; 
  Attend ; 
  Ascii ;
  Bip ;
  if (fini) then
     put("Au revoir ") ;
  else
     put("Adieu ") ;
  end if ;
end petit_service ;