/*BANDERA DEL PERU EN LPP
*/
ENTERO J
INICIO
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ///
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ///
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     //
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ////
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     ////
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219),CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(15)
     ESCRIBA CAR(219)
     FIN PARA
    
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     PARA J <- 1 HASTA 10 HAGA
     LLAMAR COLOR_TEXTO(12)
     ESCRIBA CAR(219)
     FIN PARA
     LLAMAR NUEVA_LINEA()
     LLAMAR OBTENER_CARACTER()
FIN