Constant TEMA_ALEATORIO 0;
Constant TEMA_ORDENADO 1;
Constant TEMA_CONDICIONAL 2;
 
Class 	Tema
 with 	dicho 0,
 	modo ALEATORIO,
 	expresa [ x;
  	    print "^";
	    switch (self.modo)
  	    {
  	     TEMA_ALEATORIO:
		x = random(self.#respuestas / 2) - 1;
		print_ret (string) self.&respuestas-->x, "^";
  	     TEMA_ORDENADO:
		print (string) self.&respuestas-->self.dicho, "^";
   		if (self.dicho < (self.#respuestas / 2) - 1)
		    self.dicho++;
   		rtrue;
  	     TEMA_CONDICIONAL:
		print_ret (string)
		    self.&respuestas-->self.condicion(), "^";
  	    }
 	    
  	],
 	respuestas,
 	condicion,
 has 	propio;