Cierra la empresa ???

Hoy publicamos la version 0.9.8 del programa 'Cerramos la empresa?' en el que se encuentran muchas de las Pymes de esta nuestra Patria. Cualquier parecido con algún lenguaje de programación y la situación concreta de alguna empresa es mera coincidencia y fruto del Azar.

----------------------- Programa para trabajar en empresas en crisis -------------------

/* Constantes */

EXCUSAS = 1000 /* mínimo número de excusas, excusas mil */

CONSTANTENOMINA = 0 /* Constante universalizadora de las nóminas del */
/* personal para evitar favoritismos */

DENUNCIAMOSoQUE = 3 /* Constante aborregadora universal */

/* Variables */

noEntero salario /* Por si se cobra, que sea sólo algo */

entero maxNumTrolasDia, maxNumTrolasSemana, maxNumTrolasMes

veryvery long Int trolas

BOOhleando concursoAcreedores, cierreEmpresa, marearLaPerdiz /* variables fantasma, a medida de nuestros lideres empresariales */

aquiLeando haColado /* tambien llamada variable de la hemos metido doblada, otra vez */

/* Inicialización de variables */

salario := 2500 /* en euros, total ya puestos a pedir; "ante el vicio de cobrar, está la virtud de no pagar" */

concursoAcreedores := false /* al menos ahora mismo */

cierreEmpresa := false /* hipótesis inicial */

marearLaPerdiz : = true /* casi mejor hace esto una constante */

maxNumTrolasDia := 3 /* no se pueden admitir mas, que no cuelan */

haColado := true /* valor medio típico en esta empresa */

/* Programa en sí */

trolas := maxNumTrolasDia

repeat /* bucle genérico, usando el algoritmo de la marmota */

if (salario=0) then trolas := trolas * EXCUSAS

else Echo ("Tú es que no trabajas / vienes a almorzar al trabajo")

maxNumTrolasSemana := maxNumTrolasDía * 7 /* porque hay excusas para todos los días, incluso festivos*/

maxNumTrolasMes := maxNumTrolasSemana * EXCUSAS /* sobre todo, que no se acaben las trolas */

marearLaPerdiz := NOT marearLaPerdiz

cierreEmpresa := NOT cierreEmpresa

if trolas > 1000 then Echo ( "Soy trolero, y templé mi corazón mintiendo a la peña ... ") /* Paráfrasis con soniquete de la popular canción de Antonio Molina */

else Echo ("Excusa de la semana :"+ random (10000))

if trolas > 10000 then concursoAcreedores := true

salario := salario * CONSTANTENOMINA

haColado := NOT(NOT(haColado)) /* Aqui cuela siempre */

maxNumTrolasSemana := maxNumTrolasDía + maxNumTrolasSemana /* La cosa es ser imaginativos y acumular trolas */

maxNumTrolasMes := maxNumTrolasSemana + maxNumTrolasMes

until (haColado = false) OR (trolas > 1000000000000000000000000000000000000000) OR ((concursoAcreedores AND (cierreEmpresa AND marearLaPerdiz)) = true)

Echo ("Si llegas hasta aquí, es que o has tenido mucha paciencia o no hay sangre en las venas")

Echo ("Pero una cosa es segura:")

Echo (" - Trolas: "+trolas)

Echo (" con un promedio al dia de "+maxNumTrolasDia+", a la semana de "+ maxNumTrolasSemana+", y como poco al mes "+ maxNumTrolasMes)

Echo ("")

Echo (" Vamos, que de trolas, promesas y excusas vas bien servido ")

Echo ("")

Echo (" - Promesas:"+(trolas / CONSTANTENOMINA )) /* Da error aquí, quizá es que la división da INFINITO ... */

Echo (" - Salario: "+salario+" euros." )

Echo (" - Meses sin cobrar: "+ (maxNumTrolasDia + DENUNCIAMOSoQUE))

Echo (" ")

Echo (" Empresa finalizada con éxito. Pulse usted una tecla para volver a empezar, pulse '+' para seguir, o pulse '*' para denunciar")

Echo (" ")

if getchar()='*' then Echo ("Tarde, gilipollas ")

else Echo ("Si quieres seguir o volver a empezar, es que tienes lo que te mereces")

------------------ Cierre de la empresa ---------------------------------