Программа вечеринки на Паскале....

[Sergei]

Please, code inspection....
-----------------------------------------------

 

Program Party;
Uses Vine, Food, Condoms;
{$I Variable.Pas}
Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Food);
Call(Friends);
Call(Girls);
End;{ Prepare }
Procedure Drinks;
Begin
Open(Bottles);
Repeat
Drink(Next(Gramms100));
Food:=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(BreastOfGirl);
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,Breast,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 }

 

----------------
Кстати, там есть одна ошибка. Нет тела подпрограммы Go.

[Sergei]

Вот еще в тему....

 

"Вы идете правильной дорогой, если:

 

- ваша мать, глядя теленовости, называет правительство "ламеры
мастдайные"
- вы регулярно ложитесь спать в 9 часов... утра, разумеется
- на вопрос вашей знакомой "куда бы нам сегодня пойти?" вы
называете адрес заинтересовавшего вас сайта
- и вашу знакомую это не удивляет, ибо именно это она и имела
в виду
- сумма денег является для вас абстрактным набором цифр, пока
вы не прикинете, сколько памяти на нее можно купить
- падение курса рубля волнует вас намного меньше, чем падение
числа посетителей на вашей страничке
- вы не успеваете отвечать на всю приходящую почту, однако,
обнаружив, что свежей почты нет, сильно огорчаетесь
- если вам случается заболеть, вы передвигаете свою кровать
к столу с компьютером, чтобы можно было читать почту лежа
- вы полагаете, что бумажная почта - это е-мэйл, распечатанный
на принтере
- вы удивлены, почему до сих пор не налажен выпуск
водонепроницаемых компьютеров, с которыми можно мыться
- если по телевизору показывают включенный компьютер, вы
пытаетесь на глаз определить, какая операционная система на нем
установлена, причем это занимает вас гораздо больше,
чем телепередача
- если вы читали "Войну и мир", то не можете понять, чем так
впечатлила Андрея Болконского заставка виндов на Аустерлице
- вы можете выразить сколь угодно сложную мысль при помощи слов
"sux", "rulez", "баг" и "фича"
- вы считаете, что единицами скорости являются мегагерц и cps,
веса - мегабайт, а длины - минута
- вас огорчило, что вы соответствуете не всем вышеперечисленным
пунктам

 

Сперто отсюда:
http://anekdot.perekur.ru/super1.shtml