Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site decwrl.UUCP
Path: utzoo!linus!decvax!decwrl!dec-rhea!dec-null!marantz
From: marantz@null.DEC (Josh HL01-1/S07 DTN 225-4835)
Newsgroups: net.jokes
Subject: Re: How to rotate a joke (corrections, additions)
Message-ID: <3065@decwrl.UUCP>
Date: Thu, 2-Aug-84 09:42:51 EDT
Article-I.D.: decwrl.3065
Posted: Thu Aug  2 09:42:51 1984
Date-Received: Fri, 3-Aug-84 02:38:20 EDT
Sender: daemon@decwrl.UUCP
Organization: DEC Engineering Network
Lines: 51


[Stupid line for all people who use defective operating systems]

I'm not new to the net and I've seen dozens of joke rotation programs.
I'm getting sick of all these explanations about how to unrotate jokes, so
naturally, in the general spirit of net.*, I'm going to add to the problem.
Here is how to unrotate jokes if you read your mail from VMS or UNIX emacs:

(defun
(rot13
    (save-excursion
	(if (< (mark) (dot)) (exchange-dot-and-mark))
	(while (< (dot) (mark))
	    (rot13-character))))
(rot13-character c
    (if (& (>= (following-char) 'A') (<= (following-char) 'Z'))
	(insert-character (if (> (following-char) 'M')
			      (- (following-char) 13)
			      (+ (following-char) 13)))
	(if (& (>= (following-char) 'a') (<= (following-char) 'z'))
	    (insert-character (if (> (following-char) 'm')
				  (- (following-char) 13)
				  (+ (following-char) 13)))))
    (if (= (following-char) '\n') (sit-for 0))
    (if (| (& (>= (following-char) 'A') (<= (following-char) 'Z'))
	   (& (>= (following-char) 'a') (<= (following-char) 'z')))
	(delete-next-character)
	(forward-character))))

You don't have to put the rotated message in a file, you just set the region
around the rotated message, and do ESC-X rot13.  Now my flame.  Is there some
central place on usenet where net documentation is kept that these rotation
programs could live?  There is a specific place on DEC's ENET where all the 
documentation about the usenet distribution lists lives, which also does the
actual distribution.  If there is an analagous place on the usenet, why aren't
rotation programs stored in the same place that people find out about
net.jokes?  Then maybe not EVERY new user would post his solution to the
rotation problem.  Alternatively, another newsgroup could be started:
net.jokes.rot13, where people could post their programs to unrotate (or
rotate) jokes.

Please, if you feel the need to flame about UNIX vs. VMS or EMACS vs. EDT vs.
VI, send mail to me, not to the net.

				    -Joshua D. Marantz

USENET:	    decvax!decwrl!rhea!null!marantz
E-NET:	    NULL::MARANTZ
ARPA:	    "decvax!decwrl!rhea!null!marantz"@berkeley

Thu 2-Aug-1984 09:44 EST