Отправлено Sergey Pinigin 06 сентября 2002 г. 16:21

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 }

• Ответ: Error: Отсутствие цикла в ассемблерной вставке. — kappa   (07.09.2002 06:23, пустое)
• Until YouHaveOrgasm; - какой эгоизм! :) — Alecsandro   (06.09.2002 17:39, пустое)
• Используются функции из библиотеки Friday.lib. ./) — Peter K.   (06.09.2002 16:42, пустое)
  • На ходу придумал новый смайл: ./ ) - одноглазый Буратино. — Peter K.   (06.09.2002 16:45, пустое)
• Ответ: Вы забыли все зациклить. — trainer   (06.09.2002 16:35, пустое)
• Кашшмар! Парень, да ты маньяк! — Peter K.   (06.09.2002 16:32, пустое)
  • произведение не мое. автор не подписался - значит народное... — Sergey Pinigin   (06.09.2002 16:42, пустое)
• Ответ: A one error here. Gramms (100) more correct, I think. And then — Bill   (06.09.2002 16:31, 53 байт)