{Terreno Antonio}
uses
   coda_vet,vettori,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.