Best of Jokes Current Jokes RHF Home Search Sponsor RHF?
Fun Stuff & Jokes
Previous | RHF Joke Archives | Next

Mail Daemon(in Pascal)

pearlman@cis.ohio-state.edu (Andrew Pearlman)
(usenet, smirk, original)

{ed Written in response to my announcement of an autoreply daemon, I
suppose.}

Begin
  Read Joke
  Case Joke
    1: Pun
       Reject
    2: Used before
       Reject
    3: Not Good Enough
       Reject
  If topical := 'T', then Post
    else Wait 10 days
End

Procedure Reject
  Begin
    If Have_20_people_sent_this_to_me_in_the_last_2_weeks := 'T'
       Then Get_Brad
       else
    Case How_many_bad_jokes?
      1: polite_rejection
      2: normal_rejection
      3-30: instruct_reject
      31+: get_a_hint_reject
  End

Original, Code may produce unforeseen rejections, keep trying.

(From the "Rest" of RHF)


Previous | RHF Joke Archives | Next

Best of Jokes | Current Jokes | RHF Home | Search