function dibuja()
  LineBF(3,3,t1*b1+3,t2*b1+3,_negro,_blanco)
  Line(0,(t2 * b1)+7,(t1*b1)+7,(t2 * b1)+7,_negro)
  Line((t1*b1)+7,(t2 * b1)+1,480,(t2 * b1)+1,_negro)
  Line((t1*b1)+7,(t2 * b1)+1,(t1*b1)+7,(t2 * b1)+7,_negro)
  for ny = 1, t2 do
   for nx = 1, t1 do
    if tabla[nx][ny] ~= "F" and tabla[nx][ny] ~= "@" and tabla[nx][ny] ~= "?" and tabla[nx][ny] ~= ">" then
     co = asc(tabla[nx][ny])-55
     dex=(nx * b1) - b1
     dey=(ny * b1) - b1
     Form[System_PRG_YO].Form_1:blit(dex+5,dey+5,img1[co-9])
    else
     co = asc(tabla[nx][ny])-55
     dex=(nx * b1) - b1
     dey=(ny * b1) - b1
     Form[System_PRG_YO].Form_1:blit(dex+5,dey+5,img1[0])
    end
   end
  end
 
  LineB(3,3,t1*b1+3,t2*b1+3,_negro,_blanco)
  ActualizarVentana()
 end

 function agt(nx,ny,c)
  local nx = val(nx)
  local ny = val(ny)
  local c = c
  if c == "@" or c == "?" then
   c=c
  else
   marcadas = marcadas + 1
   local X1 = (4)+(nx - 1) * b1
   local X2 = (4)+b1 + (nx - 1) * b1
   local Y1 = (4)+(ny - 1) * b1
   local Y2 = (4)+b1 + (ny - 1) * b1
   tabla[nx][ny] = "F"
   if (nx-1) > 0 then
    if tabla[nx-1][ny] == c then
     agt(nx-1,ny,c)
    else
     if tabla[nx-1][ny] ~= "F" then
      Line(X1,Y1,X1,Y2,_negro)
     end
    end
   else
    Line(X1,Y1,X1,Y2,_negro)
   end
   if (ny-1)> 0 then
    if tabla[nx][ny-1] == c then
     agt(nx,ny-1, c)
    else
     if tabla[nx][ny-1] ~= "F" then
      Line(X1,Y1,X2,Y1,_negro)
     end
    end
   else
    Line(X1,Y1,X2,Y1,_negro)
   end
   if (nx+1)<(t1+1) then
    if tabla[nx+1][ny] == c then
     agt(nx+1,ny,c)
    else
     if tabla[nx+1][ny] ~= "F" then
      Line(X2,Y1,X2,Y2,_negro)
     end
    end
   else
    Line(X2,Y1,X2,Y2,_negro)
   end
   if (ny+1)<(t2+1) then
    if tabla[nx][ny+1] == c then
     agt(nx,ny+1,c)
    else
     if tabla[nx][ny+1] ~= "F" then
      Line(X1,Y2,X2,Y2,_negro)
     end
    end
   else
    Line(X1,Y2,X2,Y2,_negro)
   end
  end
 end