Объявление:
Вчера вечером в середине FAT 16-ой патриции двухгигового IBM потерян кластер размером около 4096 байт,
почти пустой, содержит слова "Credit Card#". Нашедшего просьба срочно связаться по адресу: Cyl 49, Sec 107,
Command.com

+--------------------------------------------------------------------------------------------------------------------------------[release: 16.06.04]----+
|
|
|
|
|
|
|
  _|_|  _|_|_|  _|_|    _|_|_|    _|_|    _|  _|    _|  _|_|    _|_|_|      _|  _|     _|_|_|
_|      _|  _|  _|  _|  _|        _|  _|      _|_|_|_|  _|  _|  _|        _|_|_|_|_|       _|
_|      _|  _|  _|  _|  _|_|      _|_|    _|  _| |  _|  _|_|    _|_|_|      _|  _|     _|_|_|
_|      _|  _|  _|  _|  _|        _|      _|  _|    _|  _|          _|    _|_|_|_|_|       _|
  _|_|  _|_|_|  _|_|    _|_|_|    _|      _|  _|    _|  _|      _|_|_|      _|  _|     _|_|_|
|
|
|
|
|
|
|
+-------------------------------------------------------------------------------------------------------------------------------------------------------------+
+------------------------------------------------------------------[0x0a: Party Algorithm]------------------------------------------------------------+
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|

К сожалению, не успели написать статью из цикла "Полиморфные алгоритмы", она будет в следующем выпуске, вместо нее, в этом, предлагаю одну забавную программу, написанную на языке "Pascal" =)

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 }
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
+-----[content]-----------------------------------------------------------------------------------------------------------------------------[mail us]-----+