{Terreno Antonio}
uses
    coda_lst,listeric,crt;

procedure menu;

begin
   clrscr;
   writeln ('MENU'' OPERAZIONI:');
   writeln ('[ a ] --> crea');
   writeln ('[ b ] --> inserisci elemento in coda');
   writeln ('[ c ] --> estrai elemento ');
   writeln ('[ d ] --> verifica se piena');
   writeln ('[ e ] --> verifica se vuota');
   writeln ('[ f ] --> visualizza lo stato');
   writeln ('[ x ] --> Uscita');
end;

var
   opzione: char;
   coda: tipo_coda;
   elemento: tipo_elemento;
begin
   writeln;
   menu;
   writeln;
   write ('Scegliere l''operazione da compiere: ');
   readln (opzione);
   while not (opzione = 'x') do
      begin
         case opzione of
       'a': crea(coda);
       'b': begin
               write('elemento? ');
          readln(elemento);
          inserisci_retro(elemento,coda);
            end;
       'c': estrai_fronte(elemento,coda);
       'd': writeln('piena? ',piena(coda));
       'e': writeln('vuota? ',vuota(coda));
       'f': visualizza_stato(coda);
    end;
         readln;
      menu;
      writeln;
      write ('Scegliere l''operazione da compiere: ');
      readln (opzione);
   end
end.