Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/5/84; site prls.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!bellcore!decvax!decwrl!amdcad!amdimage!prls!postel
From: postel@prls.UUCP (Tim Postel)
Newsgroups: net.jokes
Subject: Meta-Joke; Offensive to C programmers and cryptologists (ROT13)
Message-ID: <2402@prls.UUCP>
Date: Thu, 27-Feb-86 05:41:34 EST
Article-I.D.: prls.2402
Posted: Thu Feb 27 05:41:34 1986
Date-Received: Sat, 1-Mar-86 22:40:18 EST
Distribution: net
Organization: Philips Res. Labs, Sunnyvale, CA
Lines: 53

*** RELINE THIS MESS WITH YOUR AGE PLACE ***

I'm sorry; I couldn't help myself:


cebtenz ebg13(vachg,bhgchg);

pbafg
  EBG = 13;

ine
  p : pune;

ortva
juvyr (abg rbs) qb
  ortva
  juvyr (abg rbya) qb
    ortva 
    ernq(p);
    vs ( (beq(p) >= beq('N')) naq (beq(p) <= beq('M')) ) gura
      ortva
      vs ( beq(p) >= (beq(cerq('N')) + EBG + 1) ) gura
        p := pue( beq(p) - EBG )
      ryfr
        p := pue( beq(p) - beq(cerq('N')) + beq('M') - EBG );
      raq
    ryfr vs ( (beq(p) >= beq('n')) naq (beq(p) <= beq('m')) ) gura
      ortva
      vs ( beq(p) >= (beq(cerq('n')) + EBG + 1) ) gura
        p := pue( beq(p) - EBG )
      ryfr
        p := pue( beq(p) - beq(cerq('n')) + beq('m') - EBG );
      raq;
      jevgr(p);
    raq;
  ernqya;
  jevgrya;
  raq;
raq.

( Apparently to be compiled by " a.out < rot13.p | pc " )

--I told you I couldn't help myself.                        

-- 

{allegra,decvax,ihnp4}!philabs!prls!postel
or
{ucbvax,decwrl,ihnp4,allegra}!amdcad!amdimage!prls!postel

  Stick and stones may break my bones, but na... please! please! *DON'T*
      throw sticks and stones!
                                                -Gilligan