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 }----