SitID = eval("S"+Base.S1+"_"+Base.S2+".C");
J = Base.S1;
Base.S1 = eval("S"+Base.S1+"_"+Base.S2+".S1");
Base.S2 = eval("S"+J+"_"+Base.S2+".S2");
if (SitID != "Ninguno") {
	List = SitID+" "+List;
	gotoAndPlay (4);
} else {
	stop ();
};

SitID = "S"+Base.S1+"_"+Base.S2;
C = eval(SitID+".C");
Base.S1 = eval(SitID+".S1");
Base.S2 = eval(SitID+".S2");
if (C != "Ninguno") {
	List = SitID+" "+List;
	gotoAndPlay (4);
} else {
	stop ();
}

Escena 1
   actions for fotograma 1
      // SitIni.
      Base.S = 5;
      // Guardar SitIni.
      SitID = "S"+Base.S;
      Depth = 1;
      attachMovie("Circ", SitID, Depth);
      set (SitID+".S", Base.S);
      set (SitID+".C", "Ninguno");
      // Cand normal.
      C = -1;
      // Vars de Unsolved sits.
      U = 0;
      Us = 0;
   actions for fotograma 2
      // Reset Sit. Aplic.
      S = Base.S+C;
      // ¿Sol?
      if (10<S) {
         // Sol; begin to show list
         List = C;
         gotoAndPlay (4);
         // Sino ¿la sit está anotada?
      } else if (eval("S"+S+".S") == null) {
         // No. Anotarla.
         SitID = "S"+S;
         Depth = Depth+1;
         attachMovie("Circ", SitID, Depth);
         set (SitID+".S", Base.S);
         set (SitID+".C", C);
         Us = Us+1;
         SitID = "U"+Us;
         Depth = Depth+1;
         attachMovie("Circ", SitID, Depth);
         set (SitID+".S", S);
      }
   actions for fotograma 3
      // ¿Candmod is pos?
      if (C<1) {
         // Candmod.
         C = C+2;
         // Reset sit, then Aplic.
         gotoAndPlay (2);
      } else {
         // ¿Hay UnsSit?
         if (U<Us) {
            // Hay, usarla.
            Base.S = eval("U"+U+".S");
            // Reset sit, then Aplic.
            gotoAndPlay (2);
         } else {
            // No se logró Sol.
            List = "No se halló Sol";
            stop ();
         }
      }
   actions for fotograma 4
      List = C+" "+List;
   actions for fotograma 6
      SitID = "S"+S+".S";
      if (eval(SitID) != "Ninguno") {
         List = eval(SitID)+" "+List;
         gotoAndPlay (5);
      } else {
         stop ();
      }

Si SPs == 0
	Los contenidos de las líneas son movidas a las siguientes, y en la 1 poner "SP = 1;".
sino si todo SP tiene un uso:
	Los contenidos posteriores a las definiciones de SP son movidas a las siguientes, y en la que quedó vacía poner "SPX = 1;" en lo cual X es la cantidad de SPs que habría agregando esta.
sino si hay alguna SP sin uso
	Mensaje = "Ya hay una SP sin uso"

C1 = 1;
C2 = 1;
Max = 10;

// ¿Sol?
if (C2<C1) {
    stop ();
} else {
    // Candsmod
    if (C2<Max) {
        C2 = C2+1;
    } else if (C1<Max) {
        C2 = 1;
        C1 = C1+1;
    } else {
        // No hay Sol o está más allá del Max.
        stop ();
    }
}

gotoAndPlay (2);

Escena 1
   actions for fotograma 1
      C1 = 1;
      C2 = 1;
      Max = 2;
   actions for fotograma 2
      // ¿Sol?
      if (C2<C1) {
         stop ();
      } else {
         trace ("No funcionó: "+C1+" "+C2);
         // Candsmod
         // C1 aumentará, C2=Max.
         C1 = 1;
         C2 = Max;
      }
   actions for fotograma 3
      C1 = C1+1;
   actions for fotograma 4
      if (C1 != Max) {
         gotoAndPlay (3);
      } else {
         // Ahora C1=Max, C2 aumentará.
         C2 = 1;
      }
   actions for fotograma 5
      C2 = C2+1;
   actions for fotograma 6
      if (C2<=Max) {
         Max = Max+1;
         gotoAndPlay (2);
      } else {
         gotoAndPlay (5);
      }