информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
За кого нас держат?Все любят мед
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Три миллиона электронных замков... 
 Doom на газонокосилках 
 Умер Никлаус Вирт 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / humor
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
нашел тут у себя исходник... 23.09.03 12:46  Число просмотров: 3116
Автор: Killer{R} <Dmitry> Статус: Elderman
<"чистая" ссылка>
─ "Отфильтpованные шутки" (2:5053/7.10) ────────────────────── HUMOR.FILTERED ─
Сооб : 8 из 37
От : Tony Leontyev 2:5020/517.517 10 Ноя 01 01:33:51
Кому : All 11 Ноя 01 20:45:22
Тема : 4hF: Party.PAS
───────────────────────────────────────────────────────────────────────────────

Пожалуйста, присылайте форварды с Subj = 4HF
*──────────────────────────────────────────────────────────────────
* Area : NETMAIL.4HF (Netmail 4HF)
* From : Eugene O. Lebedev, 2:463/288.139 (11 Oct 29 15:27)
Идея стара как мир, но всё равно приятно вспомнить...

* Перемещено Eugene O. Lebedev (2:463/431.139) из
* Area : PVT.NIGHTWING (PVT.NIGHTWING)
* Обл. : RU.ANEKDOT (RU.ANEKDOT)
* От : Andrew Maltsev, 2:5015/124 (09 Окт 01 18:03)
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Party;
Uses Vine, Zakus, Condoms;

{$I Variable.Pas}

{ Файл с описаниями пеpеменных,типов и дpyгих ф-ций и }
{ пpоцедyp, а также модyлей Vine, Zakus и Condoms }
{ - в одном из следyющих выпyсков CAD/CAM NEWS. }

Procedure Prepare;
Begin
Find(House);
Buy(Bottles);
Buy(Zakus);
Buy(Drugs);
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 Drug;
Var
Good, VeryGood: Virtual, Abstract;
Begin
If Drugs=False Then Goto NoDrugsNow;
Case Drug Of
Plan: Repeat Smoke(Plan) Until Good;
Cocain: Repeat Inspire(Gramms0.5); Wait(Seconds30) Until Good;
Wheels: While Not(VeryGood) Do
Begin
Swallow(Wheel6);
Wait(Minutes30);
End;
End; { Case }
End; { Drug }


Procedure Fuck( Who : Sex );
Var
HowMany: LongInt;
Begin
If Who<>Girl Then Write('Are yor sodomite ??!');
Find(DarkRoom);
Close(Door);
Close(Windows);
If Not Find(BedInRoom) Then BedInRoom:=AnyPlace;
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;
Drug(All);
Fuck(Girls);
Go(AtHomes);
End.{ Main Program }

Г Л О С С А Р И Й ( Б А З А Р И К )

Prepare - пpиготовления
Buy - кyпить
Drug - наpкотик
TwoViewInEyes - двоение в глазах
Touch - касание, пpикосновение
Ass - задница
Brest - сиськи
More - больше
Dark - темный
OtherPartsOfBody - дpyгие части тела
FaceDown - моpдой вниз (об стол)

=============================================================================
* Crossposted in PVT.LEOPOLD.FORWARDS
* Crossposted in 4HF
Как жизнь, All ?


Hу и всего вам доброго.
L.E.O. -==[КУРИТЬ - S U X X x...]==---==[Drink Team]==---==[Team Pricol TL]==-
... "Женщина-это человеческое существо,которое одевается,болтает и
раздевается"(C)В

дыp mailto:l_e_o_@chat.ru,l.e.o.@iname.com|http://l_e_o_.chat.ru|ICQUIN:9962645
* Оригиналь: NetMail=2:463/(288,253,468).139 * Pricol TL BBS list
(2:463/288.139)
*──────────────────────────────────────────────────────────────────

Luck n' Love,
Tony aka jet fraer //

--- Jenseits ...
* Origin: -=<<Graffiti ARTs>>=- // STARBASE // HEFFALUMP ()() (2:5020/517.517)
<humor> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2024 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach