From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX"  5-MAR-1991 21:52:09.00
To:	ARISIA::EVERHART
CC:	
Subj:	followup: request for TPU rot13 procedure

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.89)
	 id AA15495; Tue, 5 Mar 91 21:17:12 EST
Received: From UCBVAX.BERKELEY.EDU by CRVAX.SRI.COM with TCP; Mon,  4 MAR 91 20:51:55 PST
Received: by ucbvax.Berkeley.EDU (5.63/1.42)
	id AA21733; Mon, 4 Mar 91 20:46:29 -0800
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 4 Mar 91 17:18:34 GMT
From: att!pacbell.com!pacbell!sactoh0!csusac!csuchico.edu!OAVAX.CSUCHICO.EDU!RGOLDSTONE@ucbvax.Berkeley.EDU  (Robin Goldstone)
Organization: California State University, Chico
Subject: followup: request for TPU rot13 procedure
Message-Id: <1991Mar04.171834.7007@ecst.csuchico.edu>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

Thanks to everyone who sent me a procedure to do rot13 in TPU.  And thanks to
everyone else for not telling me to RTFM!

I ended up using a procedure written by Tim Cook, which allows rotation of
the whole file or else just a selected block.  I thought I'd post Tim's
procedure for others who may be able to use it:

! ROT13.TPU -	Simple substitution cipher for TPU
!
! How to use:
!	To enable, enter the following command at the "Command:" prompt
!	(press "Do" to get the "Command:" prompt) while this file is in
!	your current buffer.
!
!	   Command: extend tpu *
!
!	To rotate a section of text, press the "Select" key at one end,
!	move the cursor to the other end, then press the "Do" key and enter
!	the command "rot13". To un-rotate a section of text, the method is
!	the same (rot13 is it's inverse).  Or you can just use the "rot13"
!	command to rotate all of the current buffer.
!
! Author:	Tim Cook, 3 Oct 1990


PROCEDURE eve_rot13 ;

   IF EVE$X_SELECT_POSITION = 0 THEN
      translate (current_buffer,
         "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",
         "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm") ;
   ELSE
      translate (select_range,
         "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz",
         "NOPQRSTUVWXYZABCDEFGHIJKLMnopqrstuvwxyzabcdefghijklm") ;
      EVE$X_SELECT_POSITION := 0 ; ENDIF ;
   ENDPROCEDURE ;

***********************************************************************
Robin Goldstone, California State University, Chico  Computing Services
rgoldstone@oavax.csuchico.edu