Buleano = Funcion EsNumeroPerfecto(entero numero)
    entero divisor = 2  //el primer divisor... ya sabemos que todo nº es divisible por 1.
    entero n = 1
    entero fin = (numero \2)  // hay un límite de búsqueda. llegando a la mitad, quizás sea divisible por 2, más allá solo es divisible por sí mismo... 

    Hacer
        si (numero modulo divisor) = 0)
            n += divisor              
        fin si
        divisor += 1
    repetir mientras (n <= fin)  // fin, porque un  divisor de 2 lo reduce a la mitad.
    
    EsNumeroPerfecto = (n = numero)
fin funcion

funcion PosicionarLetraEnPantalla(char letra, byte X, byte Y)
    string s = espacios(X-1) + letra
    entero k

    borrar pantalla
    bucle para k desde 0 hasta Y-1
        imprimir salto de línea
    fin bucle
  
    imprimir s
fin funcion

char letra = 'S'
byte X = 0
byte Y = 0

funcion Mover(char p)  // p de posición
    seleccionar caso de p
        caso 'l', 'L'  
            Si (X<79)  // suponiendo que 80 es el número máximo de caracteres en línea
                X +=1
                PosicionarLetraEnPantalla(letra, X, Y)
            sino
                mostrar aviso "llegado al extremo derecho"
            fin si
        caso 'J', 'j' 
            Si (X>0)  // no se puede mover más a la izquierda, salvo que se permita, ascender una línea e ir al final de la misma.
                x -=1
                PosicionarLetraEnPantalla(letra, X, Y)
            sino
                mostrar aviso "llegado al extremo izquierdo"
            fin si
        caso 'i, 'I' 
            idem que 'J' pero para Y (no para X)
        caso 'k', 'K' 
           ídem que 'L' pero para Y (no para X), considerando también el número máximo de líneas en la pantalla..
        Otros casos
            beep, o un mensaje de no reconocer la letra, o de mostrar las opciones correctas, o...
    fin casos      
fin funcion

array de Strings = funcion Traducir(array de bytes Buffer() )
    entero k
    array de string s()

    bucle para k desde 0 hasta buffer.Lenght -1
        s(k) = Conv(buffer(k))  // Conv es el array que generamos... al iniciar el programa
    fin bucle 

    devolver s
fin funcion

buleano = funcion TraducirFichero(string Ruta)
   array de bytes Buffer()
   entero i, j, k
   constante entera Mb = 2 a la 20 // 1Mb.
   string rSalida  // ruta del fichero de salida

   Si abrirFichero(ruta) = TRUE 
       i = tamañoFichero(ruta) // crea un objeto file y pregunta por su propiedad size.
       k = (i  \ Mb) // Bloques: cantidad de megabytes que tiene el fichero (es una división entera).
       j = (i and (mb-1)) // Resto que no alcanza 1Mb.

       Hacer
           rSalida= ElegirRutaSalida(ruta)  // decide una ruta para el fichero de salida. se parte de la ruta de entrada, y como mínimo debería cambiarse al extensión...
       Repetir Mientras Esvalido(rSalida)= FALSE  
       // EsValido sería una función que verifique, que la ruta de salida es adecuada (no tiene caracteres ilegales, no existe ya como fichero (no quieres sobrescribirlo), la unidad existe, etc... etc...). Puedes añadir una opción cancelar, si no el bucle insistirá...
        AbrirFichero(rSalida)

        Si (k>0) //si el fichero tiene 1 o más bloques enteros (Megabytes)
            redimensionar buffer(0 a Mb-1)
            bucle para n desde 0 a k-1
                buffer = leer(ruta)  // se supone que el método usado actualiza el puntero de lectura...   
                escribir(Traducir(buffer)) //ídem con el de escritura...
            siguiente
        Fin si

        Si (j>0)  //si hay algún resto que no encaja en 1mb.
            redimensionar buffer(0 a j-1)
            buffer = leer(ruta)  
            escribir(Traducir(buffer))
        fin si
        devolver TRUE
   Fin si
fin funcion