/*
ALGORITMO QUE PERMITA INGRESAR LAS SGTS. NUMEROS Y LETRAS Y MUESTRE
EL DIA , EL NOMBRE Y UNA ACTIVIDAD DIARIA PERSONAL , ASI :
1 LUNES
2 MARTES
3 MIERCOLES
4 JUEVES
5 VIERNES
6 SABADO
7 DOMINGO

DADO OTRO NUMERO DEBE INDICAR ERROR (COLOR AMARILLO)
*/

ENTERO NUMERO
REAL LUNES, MARTES, MIERCOLES, JUEVES, VIERNES , SABADO, DOMINGO
CADENA [15] NOMBRE


INICIO
         LLAMAR COLOR_TEXTO (14) // 14 AMARILLO
         LLAMAR POSICIONAR_CURSOR (30,10)
         ESCRIBA " ******* INGRESE SU NOMBRE*****  "
         LLAMAR POSICIONAR_CURSOR (20,14)
         LEA NOMBRE
          LLAMAR POSICIONAR_CURSOR (20,15)
         ESCRIBA " INGRESE DIA DE LA SEMANA ( 1-7), DONDE 1=LUNES: "
         LEA NUMERO
         CASO NUMERO
                 1 :
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES LUNES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER ANIME"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. LIMPIAR MI CUARTO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LIMPIAR LA CASA"
                  2:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES MARTES"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. JUGAR CON MI PRIMO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. BAÑAR A MI PERRO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. AYUDAR A LA ABUELA"
                  3:
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES MIERCOLES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. SACAR A PASEAR AL PERRO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. ARREGLAR MI ROPA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LAVAR MI ROPA"
                  4:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES JUEVES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. LAVAR PLATOS"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. VISITAR A LA ABUELA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. AYUDAR A MI SOBRINO CON LA TAREA"
                  5:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES VIERNES "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER TELE"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. JUGAR PELOTA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. SALIR UN RATO"
                  6:
                   LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES SABADO "
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. ESTAR ENTRE PATAS"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. AYUDAR A MAMA"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. HACER LA TAREA"
                  7:
                  LLAMAR POSICIONAR_CURSOR (20, 16)
                  LLAMAR COLOR_TEXTO (15)// 15 ES BLANCO
                  ESCRIBA " HOY ES DOMINGO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,17)
                  ESCRIBA "1. VER ANIME"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,18)
                  ESCRIBA "2. LIMPIAR MI CUARTO"
                  LLAMAR NUEVA_LINEA ()
                  LLAMAR POSICIONAR_CURSOR (20,19)
                  ESCRIBA "3. LIMPIAR LA CASA"
                
         SINO:
                 LLAMAR POSICIONAR_CURSOR (20,16)
                 LLAMAR COLOR_TEXTO (12)// 12 ES ROJO
                 ESCRIBA "ERROR, NUMERO INCORRECTO"        

FIN CASO

FIN