Вечеринка - Исходный текст вечеринки на Дельфи. Для настоящих
программистов

program Party;

uses Vine, Food, Condoms;
{$I Variable.Pas}

procedure Prepare;
var
     HowMany: LongInt;
begin
     HowMany:=0;
         while (HowMany < Normal(Money)) do inc(HowMany);
            if (HowMany div 200 > 0) then Write('You are BIG man
!!!' ;
     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 );
begin
     if WhoGirl then Write('Are yor sodomite ??!' ;
     Find(DarkRoom);
     Close(Door_and_windows);
     if Not Find(BedInRoom) then BedInRoom:=AnyTable;
     //
     repeat
        Call(Next(Who));
        Delete(DressOf(Who));
        Kiss(Lips,Breast,OtherPartsOfBody);
        repeat
               asm
                  PUSH YourPenis
                  POP  YourPenis
               end;
        until YouHaveOrgasm;
     until YourPenisStay;
end; { Fuck }

begin { Party - Main Program }
     Prepare;
     Drinks;
     if Who(Drink)>Normal(Drink) then
        begin Who:=FaceOfTable; Release; end
        else
        begin
           Dances;
           Fuck(Girls);
           Go(AtHomes);
        end;
end. { Main Program }