Жираф Подвальный: Алгоритм жизнедеятельности сисадмина-программиста

2002-12-07 : Жираф Подвальный : Алгоритм жизнедеятельности сисадмина-программиста

Мы с моим другом Конем написали программу
[]
[]
[]
procedure TLife1.BeginDay (Sender: TObject);
Var I:Longint;
Label SearchFuck;
begin
[] If SenderMySelf Then Begin
Halt(666);
with TLife2.Create(Self) do
try
ShowModal;
finally
Free;
end;End;
with myself do begin
[] try StandUp
[] except try RememberAll
finally Try FogiveAll
{} Except Halt(666) End;
end;end;
bath;
if food0 then eat(food) else say('I hate this fucking post');
gotowork;
while worktime=true do
try shit:=bullet
except eat(shit)
end;
if money0 then do begin
drink(beer);
shopping;
end;
else say('I hate this fucking post again');
gotohome;
if food0 then eat(food) else say('I hate this fucking post forever');
wash;
I:=1000
SearchFuck:
Dec(I)
Randomize;
Wife:=Random(I);
[] If (Wife.Buffers60) and (Wife.Leggs90) and (Wife.Age20) then Goto SearchFuck Else// MySelf.HandFucking Else
if helth0 then Begin
{} Repeat Until KeyPressed;
fuck(wife)
End
Else Begin

Repeat
drink(beer);
Until Money.EOf;
End;
end;
while child.sleep=true do myself.sleep;
end;

Оригинал текста - http://teplovoz.com/creo/435.html