"Едем в Подольск" и Windows '98 Source Code Опции

[Sco®pion]

{ Едем в Подольск, Version 1.02 }
{ Copyright © 1999,2000 by Sergey V. Efimoff root@stabilis.net> }
{ Все, что вы увидите ниже, было написано холодным ветреным вечером }
{ в декабре 1999 года под впечатлением одной из многочисленных }
{ поездок домой в объекте класса общественного транспорта, }
{ называемого электричкой. Итак, понеслась... }

Код

{ ... }
Weather.Create;
Weather.Snow.Initialize;
Weather.Wind.Initialize;
Weather.Conditions(Degrees.Zero, Wetness.95%);
People.Bind(Platform);
Timer:=Platform.People.Clock.Minutes;
MaxWait:=32;
while not Train.Arrived do begin
 if Platform.People.Clock.Minutes-Timer>MaxWait then begin
   Platform.People.ТвоюМать('Да где же эта чертова электричка?!')
   Timer:=Platform.People.Clock.Minutes;
   if MaxWait>1 then MaxWait:=MaxWait div 2 else begin
     Platform.People.ТвоюМать(ОЧЕHЬ_СИЛЬHО);
     MaxWait:=32;
   end;
 end else
   Platform.People.Walk(Platform)
end;
for Stations in [Царицыно..Подольск] do begin
 Train.Show;
 Train.Stop;
 Platform.People.ТвоюМать('Как всегда, набитая!;-(');
 Train.Doors.Open;
 Train.People.FallOut(Platform);
 { People are going to enter the train... }
 Counter:=Platform.People.Push(@Self, Train, CNT_Till_глаза_на_лбу);
 Platform.People.Push(@Self,Train,Counter*2);
 while not Train.Moves do begin
   Platform.People.ТвоюМать('Еще одного!!! Hу в сеpедине же пусто совсем!!!');
   Train.People.ТвоюМать('у куда вы лезете - не видите, места нет!');
   Train.Driver.ТвоюМать('Идите все к черту, а я закрываю двери!;-E');
   Platform.People.Push(@Self.Train,1);
   Train.People.DeepВыдох;
 end;
 Train.StartMove;
 try
   Train.Doors.Close;
 except
   Train.Doors.Open;
   Train.People.FallOut(Railway);
   Train.Doors.Close;
 finally
   Train.Doors.Lock;
 end;
 Babka:=Train.People.ExecSQL('SELECT * FROM People '+
 'WHERE People.Age>60 AND People.Sex=UNDEFINED AND
  People.Flags=(самое_толстое AND самое_вредное)');
 { Every time you eat ... }
 Babka.Bag.Fish.StartSmell;
 while Train.Moves do begin
   Babka.TurnAround;
   Train.People.ТвоюМать('Долго ты еще будешь вертеться?!');
          Babka.ТвоюМать('А что, нельзя? а себя посмотри, алкаш!');
   Train.People.ТвоюМать(WM_SEND_FAR);
   Babka.Idle(Time.Seconds.10);
 end;
 People1:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=WILL');
 People2:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=WONT');
 People3:=Train.People.ExecSQL('SELECT * FROM People WHERE People.Out:=CANT');
 { Action 1 }
 People1.Ask(Train.People[People2], 'Вы выходите?');
 People2.Message('ет');
 { Action 2 }
 People2.Kick(People1);
 People2.ТвоюМать('Куда прешься???');
 People1.ТвоюМать(WM_SEND_FAR);
 { Action 3 }
 People3.Kick(People2);
 People3.ТвоюМать('у пройди в середину, че встал как пенек у входа?!');
 People2.ТвоюМать(WM_SEND_FAR);
end;
Train.People.Pop(@Self, Train, All);
People.Bind(BusStation);
BusStation.People.DeepВдох;
while not Bus.Arrived do
BusStation.People.Idle(тупо_уставившись_на_расписание);
Bus:=Class(Train);
{ ... }

Еще одна версия.
Код Win'98 теперь перед Вами!
From: leonid

Код

/*Windows '98 source code.*/
/*
TOP SECRET Microsoft(c) Code
Project: Chicago(tm)
Projected release-date: Summer 1998
*/
#include "win31.h"
#include "win95.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#define INSTALL_HARD
char make_prog_look_big 1600000;
void main()
{
    while(!CRASHED)
    {
       display_copyright_message();
       display_bill_rules_message();
       do_nothing_loop();
       if (first_time_installation)
       {
           make_50_megabyte_swapfile();
           do_nothing_loop();
           totally_screw_up_HPFS_file_system();
           search_and_destroy_the_rest_of_OS/2();
           hang_system();
       }
       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_3.1();
           do_nothing_loop();
           do_nothing_loop();
       }
   }
   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);
   }
   /* printf("Welcome to Windows 3.11"); */
   /* printf("Welcome to Windows 95"); */
   printf("Welcome to Windows 98");
   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);
   }
   create_general_protection_fault();
}

скопировано направо с http://full.nm.ru/train.htm