entero = funcion X(entero p)
   Si p=5
       devolver p+2
   OSi p<0 
       devolver 0
   Osi p>129
       devolver 32
   Osi p=51 
       devolver Sumatorio(p/3)
   Sino
       devolver p
   Fin si
Fin funcion

 entero = funcion X(entero p)
   entero y

   Si p=5
       y= p+2
   OSi p<0 
       y= 0
   Osi p>129
       y= 32
   Osi p=51 
       y = Sumatorio(p/3)
   Sino
       y= p
   Fin si

   devolver y 
Fin funcion

buleano = Funcion PedirPartida
    dato= PedirDatoAlUsuario("¿ DeseaJugar otra partida (S/N)? ")
    Si (dato="S") ó (dato="s") luego
        devolver TRUE
    Sino
        devolver FALSE
    Fin si
Fin funcion

Array de bytes =Funcion BarajarBolas(entero cantidad) //8 bolas
     Array bytes Bolas()
    entero i, j, k

    RedimensionarArray Bolas(0 a cantidad-1)

    // Meter en el "saco" todas las bolas que participan
    bucle para k desde 0 a cantidad-1
        Bolas(k) = k    
    Repetir

    //Barajar el array. 
    // aunque se barajan todas, el usuario solo debe resolver las 4 primeras.
    bucle para k desde cantidad-1 a 1 regresivamente
        j= Random(entre 0 y k)
        i=bolas(k)
        bolas(k)= bolas(j)
        bolas(j)=i
    repetir
    
    devolver bolas //devuelve el array barajado. 
Fin funcion

buleano = funcion VerificarLinea(entero cantidad, entero cantidadUser, arraybytes bolasUser())
    entero h, i, j, k

    bucle para k desde 0 a cantidadUser-1
        j= EstaBolaUserEnBanca(bolasUser(k), cantidad)
        Si (j>=0) luego  //la bola que eligió el jugador está en la línea...
            i +=1
            si (j= bolas(k)) luego //además coincide en el sitio
                h +=1
            fin si
         fin si
    Fin bucle
    Pintar h bolas, de blanco //indicador de bolas correctas y en su sitio.
    Si (h=cantidadUser) luego
        mensaje "enhorabuena, juego resuelto"
        devolver FALSE 
    Sino
        pintar i-h bolas, de gris // indicador de bolas correctas pero fuera de sitio.
        pintar cantidaduser - i bolas, de negro //indicador de bolas erróneas
        tiradas +=1  //intentos del jugador
        Si (tiradas = Maxtiradas) luego // por ejemplo 10, ó 12 tintentos
           mensaje "Lo sentimos, perdiste todas tus oportunidades de acertar. GAME OVER"
            devolver FALSE
        sino
            devolver TRUE //el jugador puede seguir jugando...
        Fin si
    Fin si
    // puede resumirse en (pintar) solo dos informaciones en vez de en 3... al gusto (omitiendo el 1º de los 3 puntosm, pintar h bolas de blanco), y/o cambiar colores para expresar una u otra cosa.
Fin funcion

entero = Funcion EstaBolaUserEnBanca(entero Bola, entero cantidad) // esta cantidad es la de bolas totales que hay
     entero k 

    bucle para k desde 0 a cantidad-1
        si bola = Bolas(k) luego
            devolver k
        fin si 
    fin bucle

    devolver -1    
Fin funcion

buleano = Funcion BolaValida(entero bola, entero posicion, entero cantidadUser)
    entero j, k

    Si (bola=-1) luego  // equivale a eliminar una bola, ...para ubicarla en otra posición
        bolasUser(posicion) = -1 // -1 equivale a un hueco libre en el array de apuesta del jugador
        devolver FALSE  
    fin si
    
    // Comprobar que esa bola no haya sido ya elegida
    bucle para k desde 0 a cantidadUser-1
        Si (bola = bolasUser(k)) luego
            mensaje "Ya tienes esa bola elegida"
            devolver FALSE  //solo puede elegirse una vez una bola del mismo color.
        sino
            Si (bolasUser(k) >-1) luego
                Si (k=posicion) luego // pretende ubicarse la bola  en una posición ya ocupada... 
                                                        // podria hacerse diferentes cosas, pero lo mejor es impedirlo e indicarlo.
                    mensaje "Ya hay una bola en esa posición, solo puede colocar bolas en huecos libres. si lo precisa retire una bola de la posición deseada antes de colocar otra.                                     
                fin si
            sino
                Si (k=posicion) luego 
                    bolasUser(k)= bola //el jugador mete su bola en un hueco
                sino
                    j +=1  // queda un hueco más en el array para alojar una bola...
                fin si
            fin si
        fin si
    fin bucle

    Si (j=0) 
        devolver TRUE //Si no hay huecos, si ya tiene todas las bolas devuelve TRUE
    sino
        devolver FALSE
    fin si
fin funcion

Funcion IniciarPartida
    array bytes bolas(), bolasUser() 
    entero bola, posicion, tiradas, maxTiradas

    maxTiradas=10
    Hacer mientras PedirPartida = TRUE
        bolas = llamada a BarajarBolas(8)
        tiradas =0

        Hacer // nueva tirada del jugador
            bolasUser = llamada a BorrarBolasUser(4)
            Hacer // pedir bolas de una línea al jugador
                bola = PedirDatoBola al jugador (0-7) // volver a pedir mientras esté fuera del rango 0-7
                posicion = pedirDatoPosicion al jugador (0-3) // volver a pedir mientras quede fuera del rango 0-3
            Repetir mientras BolaValida(bola, posicion, 4) = FALSE     
            // al salir del bucle el jugador completo su apuesta y consta en el array bolasUser  

        Repetir mientras VerificarLinea(8, 4, bolasUser) = TRUE
    Repetir 
fin funcion

arrayBytes = funcion BorrarBolasUser(entero cantidadUser)
    array bytes arr()
    entero k
   
    bucle para k desde 0 a cantidadUser-1
        arr(k) = -1
    fin bucle     
    
    devolver arr
fin funcion

Array(y,x) = z

Array((y*ancho) + x) = z

entero i, j, k
byte letra

Bucle j por cada letra en Palabra
    i=1
    Bucle para k de 0 a 7
        bit= (letra and i)  //entiendo que si el bit está a 0, se consigna un 0.
        letra /=2      
        llamada a funcion Posicionar(k, bit)
        i +=i // así va tomando valores 1,2,4,8,16...
    Fin bucle
Fin bucle

letra= palabra.char(0)
  i=1
  bucle para k de 0 a 7
     bit= (letra and i)  //entiendo que si el bit está a 0, se consigna un 0.
     letra /=2
     llamada a función x001(k,bit)
     i +=i // así va tomando valores 1,2,4,8,16...
  fin bucle

letra= palabra.char(1)
  i=1
  bucle para k de 0 a 7
     bit= (letra and i)  //entiendo que si el bit está a 0, se consigna un 0.
     letra /=2
     llamada a función x002(k,bit)
     i +=i // así va tomando valores 1,2,4,8,16...
  fin bucle

letra= palabra.char(2)
  i=1
  bucle para k de 0 a 7
     bit= (letra and i)  //entiendo que si el bit está a 0, se consigna un 0.
     letra /=2
     llamada a función x003(k,bit)
     i +=i // así va tomando valores 1,2,4,8,16...
  fin bucle
...etc...

entero x, y //declaradas al nivel del módulo, no dentro de una función, pues sus valores deben permanecer inalteradas tras salir de la función.
Funcion PosicionarCuadrante1119(entero indice, entero bit)
    Si (indice=0) luego  //Reset X e Y al inicio del cuadrante
       x= 19
       y= 11
    Sino
       Si (x=20) luego
           x= 19
           y +=1
       Sino
          x +=1   // x= 20
       Fin si
    Fin si

    Array(x,y) = bit
Fin funcion

Si (x < y) luego

Si (y => x) luego

Si (x <= y) luego

Si (y >= x) luego