Windows Source Code

[LazaruX]

Hi everybody, I would like to announce you all that Windows Vista has actually been written in pascal, here i develop the Source code that has been updated from the original C code.

here it is:

Code: [Select]


{Source Code Windows Vista}

uses win31,win95,win98,win2000,winXP,workst~1,evenmore,oldstuff,billrulz,monopoly,backdoor

var
 nothing,
 first_time_installation,
 fast_cpu,
 system_ok,
 still_not_crashed
 :boolean;

 detect_cache:integer;
 get_user_input:char;

 crashed,anything,lots,speed,very_slow,action,jumpy,reaction,sometimes:real

begin
 while (CRASHED) do
  begin
   display_copyright_message;
   display_bill_rules_message;
   repeat until nothig=true;

   if first_time_installation=true then
    begin
     make_100_megabyte_swapfile;
     repeat until nothig=true;
     totally_screw_up_HPFS_file_system;
     search_and_destroy_the_rest_of-OS2;
     make_futile_attempt_to_damage_Linux;
     disable_Netscape;
     disable_RealPlayer;
     disable_Lotus_Products;
     hang_system;
    end

    write_something(anything);
    display_copyright_message;
    repeat until nothing=true;
    do_some_stuff;

    if (still_not_crashed=true) then
     begin
      display_copyright_message;
      repeat until nothing=true;
      basically_run_windows_31;
      repeat until nothing=true;;
     end;
  end;

 if detect_cache<>0 then disable_cache;

 if (fast_cpu=true then
  begin
   set_wait_states(lots);
   set_mouse(speed,very_slow);
   set_mouse(action,jumpy);
   set_mouse(reaction,sometimes);
  end;

  { writeln('Welcome to Windows 3.1');      }
  { writeln('Welcome to Windows 3.11');    }
  { writeln('Welcome to Windows 95');       }
  { writeln('Welcome to Windows NT 3.0'); }
  { writeln('Welcome to Windows 98');       }
  { writeln('Welcome to Windows NT 4.0'); }
  { writeln('Welcome to Windows 2000');   }
  { writeln('Welcome to Windows XP');      }
  writeln('Welcome to Windows Vista');    

  if (system_ok=true) then crash(to_dos_prompt)
  else
   system_memory = open('a:\swp0001.swp',O_CREATE);

  while(something) do
   begin
    sleep(5);
    get_user_input:=readkey;;
    sleep(5);
    act_on_user_input;
    sleep(5);
   end;

  create_general_protection_fault;

end.





This is the previous code of Windows 2000 written in C

Code: [Select]


/* Source Code Windows 2000 */

#include "win31.h"
#include "win95.h"
#include "win98.h"
#include "workst~1.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#include "monopoly.h"
#include "backdoor.h"
#define INSTALL = HARD

char make_prog_look_big(16000000);
void main()
{
  while(!CRASHED)
  {
    display_copyright_message();
    display_bill_rules_message();
    do_nothing_loop();

    if (first_time_installation)
      {
      make_100_megabyte_swapfile();
      do_nothing_loop();
      totally_screw_up_HPFS_file_system();
      search_and_destroy_the_rest_of-OS2();
      make_futile_attempt_to_damage_Linux();
      disable_Netscape();
      disable_RealPlayer();
      disable_Lotus_Products();
      hang_system();
      } //if
    write_something(anything);
    display_copyright_message();
    do_nothing_loop();
    do_some_stuff();

    if (still_not_crashed)
    {
    display_copyright_message();
    do_nothing_loop();
    basically_run_windows_31();
    do_nothing_loop();
    } // if
  } //while

  if (detect_cache())
    disable_cache();

  if (fast_cpu())
    {
    set_wait_states(lots);
    set_mouse(speed,very_slow);
    set_mouse(action,jumpy);
    set_mouse(reaction,sometimes);
    } //if

  /* printf("Welcome to Windows 3.1");    */
  /* printf("Welcome to Windows 3.11");   */
  /* printf("Welcome to Windows 95");     */
  /* printf("Welcome to Windows NT 3.0"); */
  /* printf("Welcome to Windows 98");     */
  /* printf("Welcome to Windows NT 4.0"); */
  printf("Welcome to Windows 2000");

  if (system_ok())
    crash(to_dos_prompt)
  else
    system_memory = open("a:\swp0001.swp",O_CREATE);

  while(something)
    {
    sleep(5);
    get_user_input();
    sleep(5);
    act_on_user_input();
    sleep(5);
    } // while
  create_general_protection_fault();

} // main