The Chux Norrix blog

Como creador del programa “Tontito”, me complace anunciar que ya está disponible para su descarga la versión 0.2 que a partir de ahora se denominará “Litle Fool”. La descarga es gratuita si bien se admiten donaciones. HimliSoft S.L. siempre se ha caracterizado por apoyar el Software Libre y ha hecho de la calidad el estandarte de todos sus productos; por eso ahora ha llegado el momento de volver a brindar al mundo la oportunidad de usar nuestro software.

Se permite modificarlo libemente siempre y cuando se comente o enlace a esta web en reconocimiento al gran trabajo para crear desde cero dicho software. A su vez, también agredecemos que se reporten los bugs encontrados con el fin de corregirlos lo antes posible y poder prestar el mejor servicio a la comunidad.

Entre las novedades que acompañan a esta versión destacan:

• Se ha reescrito todo el código desde cero.
• Ahora el programa soporta distintos usuarios refiriendose a cada uno por su nombre
• Con el nuevo y revolucionario algoritmo implementado se obtiene un rendimiento revolucionario en el campo del software para el entretenimiento domésticos.

Instrucciones:

1. Descarga la nueva version y descomprimela dentro de una carpeta.
2. Compila el archivo source.pas.
3. Ahora tienes un archivo ejecutable. ¡Enhorabuena! ¡Ya puedes divertirte todo el tiempo que te apetezca!

En próximas versiones proporcionaremos binarios precompilados para Windows, Linux y MAC OS-X (no obstante, si los usuarios de OS X desean soporte lo antes posible regalenme un MacBook y tendran su versión cuanto antes).

Código fuente: (A la vista de todo el mundo, para que se aprecie nuestra buena fé)

PROGRAM tontito;
(*Creado por Himliano, HimliSoft S.L. *)
Uses crt;

VAR
	num : integer;
	control : boolean;
	nombre  : string;

BEGIN
	control:=false;
	clrscr; WHILE control <> true DO

	BEGIN
		writeln(output,'Disculpe, ¿podría decirme su nombre?');
		readln(input,nombre);
		writeln(output,'Bien, ',nombre,', introduzca un numero entre el 1 y el 10:');
		readln(input,num);
		WHILE num <> 5 DO
			IF (num IN [1 .. 10]) = false THEN
			BEGIN
				writeln(output,'Céntrese ',nombre,' ; le hemos dicho entre 1 y 10.');
				writeln('¿Acaso tiene usted el día vacilón?');
				readln(num);
			END
			ELSE
			BEGIN
				writeln(output,nombre,' ese no es el que buscamos, introduzca otro:');
				readln(input,num);
			END;
			IF num = 5 THEN
			BEGIN
				writeln(output,nombre,',por el culo te la hinco!!');
				readln();
				control := true;
			END
	END;
END.

(PD: Nótese que todo esto es una broma)