From: Stefan Denker <StefanDenker@gmx.de>
Newsgroups: de.alt.talk.kasper

var
Angebetete : TWeibchen;
Child : TChild;

begin
repeat
Angebete.send "Willst du mich heiraten?"
if not (Angebetete.Antwort='JA') then
begin
self.gehe_einen_saufen;
self.randaliere_in bar;
try
self.hide_from_police;
except
on fallenfromCliffError self.alive=false;
on gotcaughtError Police.takemoney(self.purse);
on AnyotherError hideError(reallyfast);
end;
end;
until (self.age > 40) or (Angebetete.Antwort='Ja');
repeat
if (self.attachedtoprocess(Angebetete)) then
begin
Wife := Angebetete;
Child := new TChild(self, Wife);
self.buildhouse(borrowmoney(bank));
end;
self.workhard;
until self.herzinfakt or not self.alive;

Ungefähr so.
Meint ihr, ich kann mich damit auf der CeBit vorstellen? Ob ich dann Chancen auf nen Job habe?
Stefan