Párty – zdroják v Pascalu

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 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,Brest,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 }

=== End ===
kriticka cast programu je napsana v assembleru 
Na tvorbu tohoto prográmku stačí TP 7.0