Воскресенье, 12 Декабря 2004 г. 10:14
+ в цитатник
Дорогие мои соседи, воскресенье придумано для того, чтобы
1) выспаться
2) см. п.1
Мне очень нравится музыка, сам иногда с удовольствием слушаю :), но ведь не в воскресенье утром
Дело-то к Новому году идет...
Всем программерам привет
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 }
Сберкасса, очередь. Забегает мужик с обрезом и в маске:
- Всем на пол!!! Лицом вниз!!! Лежать!!!
Забегает в кассу. К кассирше:
- На колени!! Сосать!!
Та безоговорочно выполняет требования террориста. Тот, расслабившись, снимает
маску:
- А дома мы, значит, не можем?! Дома, значит, нас тошнит?
Люблю, когда теща правильная. Когда она на тебя не кричит, когда смотрит с тобой футбол, когда может сесть и выпить с тобой пивка...Вот тесть -- правильная теща.
Все-таки Южная Корея решила отказаться от замены английского слова "condom", на его корейский аналог. Многие корейцы жаловались, что испытывают затруднения из-за того, что их имена звучат похоже на новый термин.
Оказалось, как не назови, все одно - имена многих южнокорейцев содержат символы, которые произносятся аналогичным образом. :)