function InsertarNodo () {
	Imagenes = Imagenes+1;
	Nodos = Nodos+1;
	Grafo.attachMovie("mNodo", "Nodo"+Nodos, Imagenes);
	// Especificar la situación que representa:
	set ("Grafo.Nodo"+Nodos+".EnHP", EnHP);
	// Insertar flecha:
	Imagenes = Imagenes+1;
	Grafo.attachMovie("mFlecha", "Flecha"+Nodos, Imagenes);
	// Especificar el sitio donde se insertan:
	setProperty ("Grafo.Nodo"+Nodos, _y, PosicionY+33);
	setProperty ("Grafo.Flecha"+Nodos, _x, PosicionX);
	setProperty ("Grafo.Flecha"+Nodos, _y, PosicionY+6.5);
	Hijos = Hijos+1;
	if ( Hijos == 1 ) {
		setProperty ("Grafo.Nodo"+Nodos, _x, PosicionX);
	} else {
		Hijo = 0;
		Resta = 49.5*(Hijos-1);
		do {
			Hijo = Hijo+1;
			Posicion = Hijo*33-Resta;
			setProperty ("Grafo.Nodo"+(Nodos-Hijos+Hijo), _x, Posicion);
			// Rotación y tamaño de flecha.
	 		DistanciaXPadreHijo = Math.abs(Posicion);
			setProperty ("Grafo.Flecha"+(Nodos-Hijos+Hijo), _height, Math.sqrt(Math.pow(DistanciaXPadreHijo, 2)+20*20));
			Rotacion = 180/Math.PI*Math.atan (DistanciaXPadreHijo/20*-1);
			if ( Posicion<0 ) {
				Rotacion = Rotacion*-1;
			}
			setProperty ("Grafo.Flecha"+(Nodos-Hijos+Hijo), _rotation, Rotacion);
		} while ( Hijo < Hijos );
	}
}

function InsertarNodo () {
	Imagenes = Imagenes+1;
	Nodos = Nodos+1;
	Grafo.attachMovie("mNodo", "Nodo"+Nodos, Imagenes);
	// Especificar la situación que representa:
	set ("Grafo.Nodo"+Nodos+".EnHP", EnHP);
	// Insertar flecha:
	Imagenes = Imagenes+1;
	Grafo.attachMovie("mFlecha", "Flecha"+Nodos, Imagenes);
	// Especificar el sitio donde se insertan:
	setProperty ("Grafo.Nodo"+Nodos, _y, PosicionY+33);
	setProperty ("Grafo.Flecha"+Nodos, _x, PosicionX);
	setProperty ("Grafo.Flecha"+Nodos, _y, PosicionY+6.5);
	Hijos = Hijos+1;
	if ( Hijos == 1 ) {
		setProperty ("Grafo.Nodo"+Nodos, _x, PosicionX);
	} else {
		Hijo = 0;
		Resta = 49.5*(Hijos-1);
		do {
			Hijo = Hijo+1;
			Posicion = Hijo*33-Resta;
			setProperty ("Grafo.Nodo"+(Nodos-Hijos+Hijo), _x, Posicion);
			// Rotación y tamaño de flecha.
	 		DistanciaXPadreHijo = Math.abs(Posicion);
			setProperty ("Grafo.Flecha"+Nodos, _height, Math.sqrt(Math.pow(DistanciaXPadreHijo, 2)+20*20));
			setProperty ("Grafo.Flecha"+Nodos, _rotation, 180/Math.PI*Math.atan (DistanciaXPadreHijo/20)*-1);
		} while ( Hijo < Hijos );
	}
}

Escena 1
   actions for fotograma 1
      MaxDecimales = 0;
      N1 = 0;
   actions for fotograma 2
      Decimales = 0;
   actions for fotograma 3
      Nombre = "N"+Decimales;
      N = (eval(Nombre)*Math.pow(10, Decimales)+1)/Math.pow(10, Decimales);
      // Guardar el valor en la lista correspondiente.
      set (Nombre, N);
      if (Decimales>0) {
         LargoMinimodeDiferencia = Decimales+2;
      } else {
         LargoMinimodeDiferencia = Decimales+1;
      }
      if (String(N-Math.floor(N)).length>=LargoMinimodeDiferencia) {
         // El valor no fue producido, se muestra y se chequea.
         trace ("Se generó "+Nombre+": "+N);
      }
   actions for fotograma 4
      if (Decimales<MaxDecimales) {
         Decimales = Decimales+1;
         gotoAndPlay (3);
      } else {
         // Se creará una nueva lista con decimales más pequeños.
         MaxDecimales = MaxDecimales+1;
         set ("N"+MaxDecimales, 0);
         gotoAndPlay (2);
      }

      if (Decimales>0) {
         LargoMinimodeDiferencia = Decimales+2;
      } else {
         LargoMinimodeDiferencia = Decimales+1;
      }
      if (String(N-Math.floor(N)).length>=LargoMinimodeDiferencia) {

   actions for fotograma 1
      // Mostrar mensaje "Presiona una tecla."
      stop ();
   actions for Movie1
      onClipEvent (keyDown) {
         _level0.gotoAndStop(2);
      }
   actions for fotograma 2
      // Mostrar mensaje "Ganaste."

   // Desde frames 1 a 3 mostrar mensaje "Presiona una tecla."
   actions for Movie1 (ubicada desde frame 1 a 3)
      onClipEvent (keyDown) {
         _level0.gotoAndPlay(2);
      }
   actions for fotograma 4
      stop ();
   actions for Movie2
      onClipEvent (keyDown) {
         _level0.gotoAndStop(5);
         // Ahí se muestra mensaje "Ganaste".
      }

Escena 1
   // En el fotograma 1 y 2 dice "Cargando..."
   actions for Vacío (fotograma 2)
      onClipEvent (keyDown) {
         _level0.gotoAndPlay(1);
      }
   // En fotograma 3 y 4 se muestra mensaje "Presiona una tecla".
   actions for fotograma 4
      gotoAndPlay (3);
   actions for Vacío (fotograma 3 y 4)
      onClipEvent (keyDown) {
         // Muestra mensaje "Ganaste".
         _level0.gotoAndStop(5);
      }

trace( -1 + Math.pow(10, 8 - 1) )

trace(9999998.999999994);

trace(9999999);

Longitud = 8;
Nombre = "N"+Longitud;
N8 = 9999999;
N = eval(Nombre)+1;
trace ("N: "+N);
set (Nombre, eval(Nombre)+1);
trace (Nombre+": "+eval(Nombre));
stop ();

Escena 1
   actions for fotograma 1
      Puntero = 4;
      function Variar () {
         Pixel = "P"+Puntero;
         evaledPixel = eval(Pixel);
         // ¿El pixel puede cambiar de color?
         if (evaledPixel<1) {
            // Sí, cambiarlo.
            set (Pixel, evaledPixel+1);
            Col = new Color(evaledPixel);
            Col.setRGB(parseInt(FFFFFF, 16));
            DibujoListo = "Sí";
            gotoAndPlay (4);
            // Darme tiempo de verlo
            // volver
         } else {
            // No, resetearlo.
            set (Pixel, 0);
            Col = new Color(evaledPixel);
            Col.setRGB(parseInt(0, 16));
            // ¿Hay un pixel anterior?
            if (Puntero>1) {
               // Sí, apuntar a ese.
               Puntero = Puntero-1;
               // Continuar haciendo el dibujo.
               DibujoListo = "No";
            }
         }
      }
   actions for fotograma 2
      Variar();
   actions for fotograma 3
      Variar();
      if (DibujoListo == "No") {
         gotoAndPlay (2);
      }
   actions for fotograma 20
      gotoAndPlay (2);