Program Party;
Uses Vine, Chips, Condoms;

{$I Variable.Pas}

PROCEDURE Prepare;
  Begin
    Find(House);
    Buy(Bottles);
    Buy(Chips);
    Call(Friends);
    Call(Girls);
  End;{ Prepare }

PROCEDURE Drinks;
  Begin
    Open(Bottles);
    Repeat
      Drink(Next(Gramms100));
      Chips:=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 Who<>Girl Then Write('Are you 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;
      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 }