Program Party napisany przez administratora

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 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,Brest,OtherPartsOfBody);
      Repeat
        Asm
          PUSH YourPenis
          POP  YourPenis
        End;
      Until YouHaveOrgasm;
      Case HowMany of Inc(HowMany);
      If (HowMany mod 15 = 0) then Write('YES ! You are BIG man !!!');
    Until YourPenisStay;
  End;{ Fuck }

    Begin {program Party - by Admin :-}
      Prepare;
      Drinks;
      If Who(Drink)>Normal(Drink) Then Who:=FaceDown;
      Dances;
      Fuck(Girls);
      Go(AtHomes);
    End.{ Main Program }