| RHF Joke Archives |

{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.

| RHF Joke Archives |