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 }