Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Humor (https://www.clubdelphi.com/foros/forumdisplay.php?f=31)
-   -   El código fuente de Windows 2003 (https://www.clubdelphi.com/foros/showthread.php?t=41963)

TJose 30-03-2007 00:18:24

El código fuente de Windows 2003
 
No se de donde viene, me lo pasó un amigo, está excelente.


Código:

#include "Win30.h"
#include "Win31.h"
#include "Win95.h"
#include "Win98.h"
#include "
Win2000.h"
#include "AlgoMas.h"
#include "CodigoAntiguo.h"
#include "NormasDeBillGates.h"
#include "CosasDeRelleno.h"
#include "Monopoly.h"

#define INSTALAR TODO_SIN_EXCEPCION_Y_A_LO_BESTIA

#define CASCAR -5483021548692487811456214478251

static char Escritorio[16000000]; /* 16 Mb */
static char Accesorios[8000000]; /* 8 Mb */
static char Explorer4[4000000]; /* 4 Mb */
static char ProgramasDeUsuario[2000000]; /* 2 Mb */

static char MemoriaLibre[2000000]; /* 2 Mb */

int main() {
  while (NoCasque()) {
    MostrarMensajeCopyright();
    MostrarMensajeNormasBillGates();
    DesactivarBotonReset();
    BucleParaNoHacerNada();


    if (PRIMERA_INSTALACION) {
      while (TamanyoDiscoSwap() < ESPACIO_WIN * 5)) {
        Ocupar50MbParaDiscoDeSwap();
        BucleParaNoHacerNada();
        }

      EliminarSistemaDeArchivosHPFS();

      EliminarCualquierRastroDeOS2();
      DeshabilitarInstalacionDeNetscape();
      DeshabilitarInstalacionDeRealPlayer();

      if (QuedaAlgunRastroSospechoso()) ColgarSistema();
    }


    MostrarAlgunaCosaBonitaPeroInutil();
    MostrarMensajeCopyrightOtraVez();
    BucleParaNoHacerNada();
    HacerVerQueHaceAlgo();

    if (SigueSinCascar()) {
      MostrarMensajeCopyrightOtraVez();

      BucleParaNoHacerNada();
      EjecutarWin31();

      if (AunSigueSinCascar()) EjecutarWin30();

      BucleParaNoHacerNada_1();
      BucleParaNoHacerNada_2();
      BucleParaNoHacerNada_3();


      BucleParaNoHacerNada_Etcetera();
    }

    if (UsuarioNoAceptaWindowsComoAlgoUtil()) goto
          VETE_A_SABER_DONDE;

    if (SeHaDetectadoCache()) DeshabilitarCache();

    if (CPU_Rapida()) {

      EstablecerEstadosDeEspera(MUCHISIMOS);
      EstablecerRaton(VELOCIDAD, MUY_LENTO);
      EstablecerRaton(ACCION, DESPLAZARSE_A_SALTOS);
      EstablecerRaton(REACCION, A_VECES);
      EstablecerTeclado(VELOCIDAD_PARPADEO, MUY_LENTO);

      EstablecerTeclado(VELOCIDAD_REPETICION, LENTO);
    }

/* printf("Bienvenido a Windows 3.0"); */
/* printf("Bienvenido a Windows 3.1"); */
/* printf("Bienvenido a Windows 95"); */

/* printf("Bienvenido a Windows 98"); */
/* printf("Bienvenido a Windows 2000"); */
printf("Bienvenido a Windows 2003");

    if (CPU != INTEL) {
      DeshabilitarRaton();

      DesconfigurarTeclado();
      ColgarSistema(INDICADOR_MSDOS);
    }
    else {
      MemoriaDeSistema = open("a:\swp0001.swp", O_CREATE);

      while (NoHayaSuficienteEspacioEnDisco()) printf("Inserte nuevo

                                                disco en la unidad A:");
    }

    while (SE_NOS_CANTEN_LOS_HUEVOS) {
      sleep(5000);
      ObtenerEntradaUsuario();
      sleep(5000);

      ReaccionarAPeticionUsuario();
    }

    if (ObtenerNumeroAlAzar() != BINGOOOO)
      GenerarErrorDeProteccionGeneral();

/* Fin de bucle principal */
}

/* Finalizar sesion */
if (AunNoHaCascadoDelTodo()) {

  if (ObtenerOtroNumeroAlAzar() != BINGOOOO) {
    MandarExplorerALaMierda();

    if (HayAlgoAbierto()) {
      Accion = MostrarMensaje("?Desea guardar los datos?");
      if (Accion == SI) GuardarDatos_JAJAJA();

      MandarloTodoAlCarajo();
    }
  }

  printf("Windows se esta cerrando");
  while (HAYA_PRISA) sleep(5000);
  if (UsuarioYaLlegaTardeDondeTeniaQueIr()) printf("Ahora puede

                                                  apagar el equipo.");
  }

return ((int)((long)((float)((double)((re double)CASCAR)))));

}


dec 30-03-2007 00:22:18

¡Chúpate esa Bill! ¡Desde luego tienes más dinero que todos (o era el dinero de todos...) pero lo que nos haces reír no tiene precio! :D :D

PD. El que no se conforma es porque no quiere...

kinobi 30-03-2007 00:24:59

Cita:

Empezado por TJose
return ((int)((long)((float)((double)((re double)CASCAR)))));

El final es apoteósico :D

Muy bueno.

Saludos


La franja horaria es GMT +2. Ahora son las 18:41:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi