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