[lfjokes] One for the delphi geeks...

[Simondo]

I admit it -- I'm a nerd.  This is from a guy on the Delphi Users Group 
programming list who'd had enough for the week.  Hopefully it makes some sense 
to those of you not fluent in Pascal... :o)

simondo


By Trevor Jones

begin
If bHadEnough and bStillBeingMadeToWorkWhenTheBossIsPlayingGolf then
    begin
    Delete( CurrentJob );
    NewJob := Jobs.Locate( 'Salary', [SomethingLikeLotto],
 loLocateNearest );
    if not VarIsNull( NewJob ) then
        begin
        self.ApplyFor( NewJob );
        if NewJob.accepted then
            begin
            self.assign( NewJob );
            if NewJob.Salary > What_I_Could_Reasonably_Expect then
                self.smirk_big_time
            else
                self.smirk_a_ bit;
            end
        else
            self.ComplainBitterly;
        end
    else
        begin
        Unemployment.Apply( self );
        self.LieAroundAndWatchDaytimeTV;
        end
    end
end