/*
EJEMPLOS VARIOIOS DE PROCEDIMIENTOS EN LPP
1)MOSTTRAR EN PANTALLA EL SALUDO HOLA
2) MOSTRAR "N" VECES HOLA(COMO INDIQUE EL USUARIO)
3)DIBUJAR LINEAS:
                -CON TAMAÑO VARIABLE
                -CON COLOR VARIABLE
                -CON UN CARACTER VARIABLE
4)DIBUJAR UN RECUADRO(MARCO)EN PANTALLA.
                -CON COLOR
                -DE TAMAÑO DE VARIABLE    
*/

//----VARIANBLES DEL MODULO PRINCIPAL ---
ENTERO N

//---SUBRUTINAS---
PROCEDIMIENTO SALUDO
INICIO
      LLAMAR COLOR_TEXTO(10)
      ESCRIBA "HOLA"
FIN
//--------------
PROCEDIMIENTO SALU2(ENTERO N)
// N VA A CONTENER CANTIDAD DE VVECES A REPETIR
ENTERO J
INICIO
      LLAMAR COLOR_TEXTO(11)
      PARA J <-1 HASTA N HAGA
           LLAMAR NUEVA_LINEA()
           ESCRIBA J,"-HOLA"
      FIN PARA    
FIN
//------------------
PROCEDIMIENTO LINEA(ENTERO N,ENTERO COLOR, CARACTER SIMBOLO)
ENTERO J
INICIO
      LLAMAR COLOR_TEXTO(COLOR)
      PARA J <-1 HASTA N HAGA
           ESCRIBA SIMBOLO
      FIN PARA
      LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO  
FIN
//-------------
PROCEDIMIENTO CUADRO(ENTERO X1 ,ENTERO Y1 ,ENTERO X2 , ENTERO Y2 , ENTERO COLOR)
ENTERO J
INICIO
      //DIBUJANDOI LAS LINEAS HORIZONTALAES
      LLAMAR COLOR_TEXTO(COLOR)
     
      PARA J <-X1 HASTA X2 HAGA
           LLAMAR POSICIONAR_CURSOR(J,Y1)
           ESCRIBA CAR(205)
           LLAMAR POSICIONAR_CURSOR(J,Y2)
           ESCRIBA CAR(205)
      FIN PARA
      //DIBUJANDOI LAS LINEAS VERTICALES
      PARA J <-Y1 HASTA Y2 HAGA
           LLAMAR POSICIONAR_CURSOR(X1,J)
           ESCRIBA CAR (186)
           LLAMAR POSICIONAR_CURSOR(X2,J)
           ESCRIBA CAR (186)
      FIN PARA
      //LAS ESQUINAS
      LLAMAR POSICIONAR_CURSOR(X1,Y1)
      ESCRIBA CAR (201)
      LLAMAR POSICIONAR_CURSOR(X2,Y1)
      ESCRIBA CAR (187)
      //--
      LLAMAR POSICIONAR_CURSOR(X1,Y2)
      ESCRIBA CAR (200)
      LLAMAR POSICIONAR_CURSOR(X2,Y2)
      ESCRIBA CAR (188)
      //---
     
      LLAMAR COLOR_TEXTO(15)//VUELVE A BLANCO  
FIN
//---MODULO PRINCIPAL--
INICIO
      LLAMAR CUADRO (1,1,80,22,9)//9 COLOR
     
     
      ESCRIBA "PROCEDIMIENTO"
      LLAMAR NUEVA_LINEA()
      ESCRIBA "============="
      LLAMAR NUEVA_LINEA()
     
     
      LLAMAR SALUDO
      LLAMAR NUEVA_LINEA()
     
     
     
      ESCRIBA "============="
      LLAMAR NUEVA_LINEA()
      ESCRIBA "INGRESE LA CANTIDAD DE N:"
      LEA N
      LLAMAR SALU2(N)
     
     
      LLAMAR NUEVA_LINEA()
      ESCRIBA "PULSE CUALQUIER TECLA PARA CONTINUAR..."
      LLAMAR OBTENER_CARACTER()// PIDE QUE SE PULSE LA TECLA
      LLAMAR LIMPIAR_PANTALLA()
     
      LLAMAR CUADRO (10,5,50,12,14)//14 COLOR
     
      LLAMAR LINEA(5, 11,'=')//(5) SIGNOS IGUALES,COLOR,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(20, 12,'-')//(20) SIGNOS IGUALES,COLOR,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(50, 13,CAR (177))//(50) SIGNOS IGUALES,COLOR ,CARACTER
      LLAMAR NUEVA_LINEA()
      LLAMAR LINEA(70, 10,CAR (219))//(70) SIGNOS IGUALES,COLOR ,CARACTER
     
     
     
      LLAMAR OBTENER_CARACTER()
     
FIN