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!watmath!clyde!bonnie!akgua!sdcsvax!dcdwest!ittvax!decvax!decwrl!dec-rhea!dec-kirk!williams From: williams@kirk.DEC (John Williams 223-3402) Newsgroups: net.jokes Subject: Wouldn't it be funny if I rotated this? Message-ID: <35@decwrl.UUCP> Date: Tue, 18-Dec-84 17:43:41 EST Article-I.D.: decwrl.35 Posted: Tue Dec 18 17:43:41 1984 Date-Received: Sat, 22-Dec-84 00:47:58 EST Sender: daemon@decwrl.UUCP Organization: DEC Engineering Network Lines: 43 Ok. For all you Deckies, here is yet another ROT13 program written in VMS PASCAL. To use it: Compile it Link it Take rotated message and make a command file out of it by tacking $ R ROT13 to the beginning of it. Submit it for batch processing Voila! ------------------------------Cut Here--------------------------- Program Rot13 (input,output); Var K : Char; Begin While ( NOT EOF ) Do Begin While ( NOT EOLN ) Do Begin Read (K); If (((Ord('A')<=Ord(K))AND(Ord(K)<=Ord('M')))OR ((Ord('a')<=Ord(K))AND(Ord(K)<=Ord('m')))) Then K := Chr(Ord(K)+13) Else If (((Ord('N')<=Ord(K))AND(Ord(K)<=Ord('Z')))OR ((Ord('n')<=Ord(K))AND(Ord(K)<=Ord('z')))) Then K := Chr(Ord(K)-13); Write(K) End; Writeln; Read(K) End End. ------------------------------Cut Here--------------------------- Oh, BTW, you need to know how to use an editor. Happy Hunting. ----{ john williams }----