% MENU

menu :-
        write("Ejemplo del menú"),
        repeat,
        write("Elija una opción"),nl,
        write("1 -> Primera "),nl,
        write("2 -> Segunda "),nl,
        write("3 -> Tercera "),nl, nl,
        write("0 -> Fin "),nl,
        read(Op),
        (
                Op =:= 0 -> write("Fin del ejemplo del menú");
                Op =:= 1 -> write("Primera opción "),nl, fail;
                Op =:= 2 -> write("Segunda opción "),nl, fail;
                Op =:= 3 -> write("Tercera opción "),nl, fail;
                true -> write("Opción incorrecta -->"), write(Op), nl, nl, fail
        ),
		nl.
