Untitled

procedure PonerLineaAzulejo(longitud, direccion){
  repeat (longitud){
    Mover(direccion)
    PonerAzulejo()
  }
}

procedure GuardaEnL(){
  PonerAzulejo()
  PonerLineaAzulejo(2, Norte)
  MoverN(2, Sur)
  PonerLineaAzulejo(2, Este)
  MoverN(2, Oeste)
}