Escena 1
 
  actions for fotograma 1
    N0 = 0;
    N1 = 0;
    N2 = 0;
    N3 = 0;
    N4 = 0;
    N5 = 0;
    N6 = 0;
    N7 = 0;
    N8 = 0;
    N9 = 0;
    MostProbably = "N0";
 
  actions for fotograma 2
    Num = random(10);
    trace("Num es " + Num);
    set( "N" + Num, eval("N" + Num) + 1 );
    if ( eval(MostProbably) < eval("N" + Num) ) {
      MostProbably = "N" + Num;
    }
    trace( "MostProbably es " + eval(MostProbably) );
 
  actions for fotograma 3
    gotoAndPlay (2);

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main ()
{
	long num_tot; /* nº total de pruebas dígito 0-9 que se han hecho */
	long num_veces [10]; /* nº veces que ha aparecido cada dígito */
	float frec_relat [10]; /* frecuencia relativa de apariciones de cada dígito */
	int digito_azar; /* dígito entre 0-9 para elegir al azar */
	int i; /* contador bucle */
 
	num_tot = 0;					/* inicialización 	*/
	for (i = 0; i < 10; i++)
		{							/* 		de			*/
			num_veces [i] = 0;
			frec_relat [i] = 0;
		}							/* variables		*/
 
	srand (time(NULL)); /* semilla para rand */
 
	while (1 == 1) /* bucle infinito */
	{
		system ("clear");
 
		digito_azar = rand() %10; /* se elige dígito al azar entre 0-9 */
		printf ("digito_azar = %u\n", digito_azar);
 
		num_tot++; /* se actualiza el nº total de pruebas */
 
		for (i = 0; i < 10; i++)			/* se actualiza 			*/
			{
				if (i == digito_azar)
				{						/* el nº de repeticiones	*/
					++num_veces [i];
				}
			}							/* de cada dígito			*/
 
		for (i = 0; i < 10; i++)										/* actualiza frecuencias	*/
			{
				frec_relat [i] = (float) num_veces [i] / num_tot;
			}														/* de cada dígito			*/
 
		printf ("Nº total de pruebas: %ld\n", num_tot);					/* imprime	*/
		for (i = 0; i < 10; i++)
			{
				printf ("Nº de apariciones de %u", i);
				printf (": %ld", num_veces [i]);
				printf ("     Frecuencia relativa: %f\n", frec_relat [i]);
			}																/* resultados	*/
 
		printf ("pulsar para seguir");	/* espera pulsar	*/
		while (getchar () != '\n')		/* pulsar tecla		*/	
		;								/* para seguir		*/
 
	}
 
	return 0;
}