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 Who<>Girl 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 }