horoscopo

Proceso Horoscopo
	Escribir ""
	Escribir "Bienvenido al Horoscopo"
	Escribir ""
	Escribir Sin Saltar "Primero que todo escriba su día de nacimiento "; Leer dia;
	Mientras dia > 31 Hacer
		Escribir Sin Saltar "Ese día no existe, escriba su día de nacimiento "; Leer dia;
	Fin Mientras
	Escribir "";
	Definir mes Como Caracter;
	Escribir "Perfecto ahora escriba en que mes naciscio "; Leer mes;
	Repetir
		Si meses = 13 entonces
			Escribir Sin Saltar "Este mes no existe, digitelo correctamente numero o nombre del mes"; Leer mes;
		FinSi
		Segun mes Hacer
			"Enero" o "enero" o "ENERO" o "1":
				meses = 1;
			"Febrero" o "febrero" o "FEBRERO" o "2":
				meses = 2;
			"Marzo" o "marzo" o "MARZO" o "3":
				meses = 3;
			"Abril" o "abril" o "ABRIL" o "4":
				meses = 4;
			"Mayo" o "mayo" o "MAYO" o "5":
				meses = 5;
			"Junio" o "junio" o "JUNIO" o "6":
				meses = 6;
			"Julio" o "julio" o "JULIO" o "7":
				meses = 7;
			"Agosto" o "agosto" o "AGOSTO" o "8":
				meses = 8;
			"Septiembre" o "septiembre" o "SEPTIEMBRE" o "9":
				meses = 9;
			"Octubre" o "octubre" o "OCTUBRE" o "10":
				meses = 10;
			"Noviembre" o "noviembre" o "NOVIEMBRE" o "11":
				meses = 11;
			"Diciembre" o "diciembre" o "DICIEMBRE" o "12":
				meses = 12;
			De Otro Modo:
				meses = 13;
			Fin Segun
		Hasta Que meses <> 13
		Limpiar Pantalla
		Si (dia > 20 y meses = 1) o (dia < 17 y meses = 2) Entonces
			Escribir ""
			Escribir "Eres acuario"
			Escribir ""
			Escribir "¡Cuánta actividad mental estás desarrollando! Algunos recuerdos del pasado aflorarán en el presente, pero los verás de una manera diferente."
		FinSi
		Si (dia > 18 y meses = 2) o (dia < 19 y meses = 3)  Entonces
			Escribir ""
			Escribir "Eres Piscis"
			Escribir ""
			Escribir "Harás frente a todo lo que se te ponga por delante. Los problemas para ti hoy no existirán, incluso crecerás ante los retos que se te presenten."
		FinSi
		Si (dia > 20 y meses = 3) o (dia < 19 y meses = 4)  Entonces
			Escribir ""
			Escribir "Eres Aries"
			Escribir ""
			Escribir "Hoy el día será especialmente bueno para el trabajo, los desplazamientos y la comunicación con personas lejanas de tu entorno, incluso de tu país."
		FinSi
		Si (dia > 20 y meses = 4) o (dia < 20 y meses = 5)  Entonces
			Escribir ""
			Escribir "Eres Tauro"
			Escribir ""
			Escribir "Tal vez pienses que tu pareja o afín te exige demasiado. Utiliza la perseverancia y aprende a esperar para conseguir tus objetivos. No te desanimes."
		FinSi
		Si (dia > 21 y meses = 5) o (dia < 20 y meses = 6)  Entonces
			Escribir ""
			Escribir "Eres Geminis"
			Escribir ""
			Escribir "Si tienes problemas de comunicación con tu pareja, pasa a la acción; quizás el conflicto esté en que ambos se dejan llevar por los instintos."
		FinSi
		Si (dia > 21 y meses = 6) o (dia < 22 y meses = 7)  Entonces
			Escribir ""
			Escribir "Eres Cancer"
			Escribir ""
			Escribir "En el terreno sentimental es posible que tengas enfrentamientos con tu pareja, y esta situación afectará tu carácter. Procura tener paciencia."
		FinSi
		Si (dia > 23 y meses = 7) o (dia < 22 y meses = 8)  Entonces
			Escribir ""
			Escribir "Eres Leo"
			Escribir ""
			Escribir "Hoy en el ámbito profesional recibirás muy buenas noticias. ¿Tenías un negocio pendiente? Si es así verás cómo se pone de nuevo en buena marcha."
		FinSi
		Si (dia > 23 y meses = 8) o (dia < 22 y meses = 9)  Entonces
			Escribir ""
			Escribir "Eres Virgo"
			Escribir ""
			Escribir "Hoy tus emociones serán fuertes, igual que tus deseos de cambio: es tiempo para actuar con determinación y llevar a cabo tus propósitos. Debes tener calma."
		FinSi
		Si (dia > 23 y meses = 9) o (dia < 22 y meses = 10)  Entonces
			Escribir ""
			Escribir "Eres Libra"
			Escribir ""
			Escribir "Alguien con un carácter amigable, sensible y con buenos modales puede tener un interés romántico en ti, y es muy posible que hoy te lo demuestre."
		FinSi
		Si (dia > 23 y meses = 10) o (dia < 21 y meses = 11)  Entonces
			Escribir ""
			Escribir "Eres Escorpio"
			Escribir ""
			Escribir "Te sentirás un poco solo. Además, esta circunstancia hará que se reafirme en ti el deseo de cambiar tu entorno personal. Deja atrás lo que ya no estés utilizando."
		FinSi
		Si (dia > 22 y meses = 11) o (dia < 21 y meses = 12) Entonces
			Escribir ""
			Escribir "Eres Sagitario"
			Escribir ""
			Escribir "Puede que discutas con tu familia política, si la tienes. También es posible que se presenten dificultades en tu entorno laboral. Procura controlar la impulsividad."
		FinSi
		Si (dia > 22 y meses = 12) o (dia < 19 y meses = 1) Entonces
			Escribir ""
			Escribir "Eres Capricornio"
			Escribir ""
			Escribir "Hoy es posible que tengas problemas para hacer frente a los gastos que se te avecinan. Piensa muy bien antes de emitir conceptos sobre los demás."
		FinSi
FinProceso