Algoritmo – Menú Opciones

Algoritmo Repetir_Hacer_While
	//Menu de opciones con repetición
	Definir Seleccion Como Caracter;
	Mientras (Seleccion <> "0") Hacer
		Limpiar Pantalla;
		Escribir "+-----------------------+";
		Escribir "|    Menú de Opciones   |"; 
		Escribir "|                       |";
		Escribir "|   1. Opción 1         |";
		Escribir "|   2. Opción 2         |";
		Escribir "|   3. Opción 3         |";
		Escribir "|                       |";
		Escribir "|   0. Salir            |";
		Escribir "|                       |";
		Escribir "+-----------------------+";
		Escribir Sin Saltar "Opción: ";
		Leer Seleccion;
		Segun Seleccion Hacer
			Caso "1":
				Escribir "Opción 1";
			Caso "2":
				Escribir "Opción 2";
			Caso "3":
				Escribir "Opción 3";
			Caso "0":
				Escribir "Saliendo del algoritmo";
			De Otro Modo:
				Escribir "Opción no valida";
		FinSegun
		Escribir "Pulsa una tecla para continuar";
		Esperar Tecla;
	FinMientras
FinAlgoritmo