Программка :-)

← →
Санёк (2002-05-01 18:57) [0]

Program Party;
Uses Vine, Zakus, Condoms;
{$I Variable.Pas}

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Call(Friends);
Call(Girls);
End;{ Prepare }

Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Zakus:=Eat(Next(Foods));
Until TwoViewInEyes;
End;{ Drinks }

Procedure Dances;
Begin
Music:=True;
Call(OneGirl);
Go(DancingRoom);
With Music.Jump Do Begin
If Girl(Drink)>Normal(Drink) Then
Begin
Touch(AssOfGirl);
Touch(BrestOfGirl);
End
Else
Begin
Go(DrinkingRoom);
Let`s(Girl):=Drinks(More);
Return(DancingRoom);
End;
End;
End;{ Dances }

Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If WhoGirl Then Write("Are yor sodomite ??!");
Find(DarkRoom);
Close(Door_and_windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyTable;
HowMany:=0;
Repeat
Call(Next(Who));
Delete(DressOf(Who));
Kiss(Lips,Brest,OtherPartsOfBody);
Repeat
Asm
PUSH YourPenis
POP YourPenis
End;
Until YouHaveOrgasm;
Case HowMany of Inc(HowMany);
If (HowMany mod 15 = 0) then Write("You are BIG man !!!");
Until YourPenisStay;
End;{ Fuck }

Begin { Party - Main Program }
Prepare;
Drinks;
If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
Dances;
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

← →
drpass (2002-05-01 19:16) [1]

Чего-то не компилируется. Где ты брал модули Vine, Zakus и Condoms? На мыло можешь кинуть? :)
А если честно, эта "прога" старая, как Fortran :)

← →
VID (2002-05-01 19:34) [2]

to drpass: модули Vine, Zakus, Condoms надо брать в соответствующих магазинах и аптеках :)))
если все функции и процедуры правильно наберёшь, то откомпилится и запустится ;)

← →
PaRL (2002-05-01 19:40) [3]

Ух-ты... хорошая программка :)

← →
drpass (2002-05-02 00:14) [4]

А вот сегодня нашел в дебрях винта. Не помню, где скачал, и кто автор. Так что уж пусть извинит, если увидит.
Исходники Win98
#include "win31.h"
#include "win95.h"
#include "evenmore.h"
#include "oldstuff.h"
#include "billrulz.h"
#include "monopoly.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();
disable_Netscape();
disable_RealPlayer();
disable_Corel_Products();
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("c:\windows\win386.swp", O_CREATE);
while(something)
{
sleep(5);
get_user_input();
sleep(5);
act_on_user_input();
sleep(5);
}
create_general_protection_fault();
}

← →
TF8 (2002-05-02 00:17) [5]

I was here!!!!

← →
PaRL (2002-05-02 17:51) [6]

> I was here!!!!

PaRL was here.

← →
MisterBin (2002-05-02 18:55) [7]

>PaRl
>TF8

I was Here

← →
PaRL (2002-05-02 18:58) [8]

Началось...

← →
Rammish (2002-05-02 20:45) [9]

>PaRl
>TF8
>MisterBin

I"ve been to the place you"ve said you were to be.

← →
Doom (2002-05-03 00:24) [10]

>PaRl
>TF8
>MisterBin

>Rammish

I"d been long ago before you were to the place they"ve said they were to

← →
VID (2002-05-03 03:08) [11]

Особено забавен фрагмент:

> /* printf("Welcome to Windows 3.11"); */
> /* printf("Welcome to Windows 95"); */
> printf("Welcome to Windows 98");
>

:)))

Программка :-) Найти похожие ветки