Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watnot!watmath!clyde!rutgers!princeton!allegra!ulysses!gamma!zeta!mb2c!jbh
From: jbh@mb2c.UUCP
Newsgroups: comp.sys.cbm
Subject: ROT-13 for C64
Message-ID: <2220@mb2c.UUCP>
Date: Thu, 19-Feb-87 20:16:10 EST
Article-I.D.: mb2c.2220
Posted: Thu Feb 19 20:16:10 1987
Date-Received: Sat, 21-Feb-87 03:57:29 EST
Organization: Michigan Bell, Southfield, MI
Lines: 53
Keywords: ROT13,C64,Basic



This will be useful to those attempting to read rec.humor with a lowly
Commodore 64.  Save any rotated jokes to disk in sequential files.  This
BASIC program will then decode the rotated text to the screen and
(optionally) create a second unrotated sequential file.

I use SECONDTERM to capture (via the buffer) any material that looks
interesting, rotated or not. Later, I edit the files with KWIKWRITE to
separate the encoded parts, use this basic program to unrotate the text,
then finally recombine and print everything with KWIKWRITE.

Side plug: KWIKWRITE (Datamost) is the world's most underrated word processer.



100 rem jim harvey, 18538 inkster, redford, mich, 48240
110 printchr$(147)chr$(14)"Program to Perform a ROT-13 on a"
120 print"Sequential Disk File."
130 gosub250:c$=chr$(17):d$=chr$(157):d$=d$+d$+d$
140 printc$+"Input File Name";:inputa$
150 print"On Which Device  8"+d$;:inputa
160 printc$+"Output File Name"
170 print"(RETURN to Just Read)";:inputb$:rr=not(b$="")
180 ifrrthenprint"On Which Device  8"+d$;:inputb
190 open1,a,8,a$+",s,r"
200 ifrrthenopen2,b,9,b$+",s,w"
210 sysin:sx=st
220 ifrrthenprint#2,in$;
230 ifsxthenget#1,a$:close1:close2:end
240 goto210
250 in$="aa":fori=1to6:in$=in$+in$:next
260 in$=mid$(in$,2):in$=in$+in$:in=828
270 fori=828to921:readn:pokei,n:next
280 data160,2,177,45,153,137,0,200,192,6,208,246,162,1,32,198
290 data255,32,207,255,32,103,3,32,210,255,164,142,145,140,32,142
300 data3,200,132,142,196,139,208,233,76,204,255,201,65,144,12,201
310 data219,176,8,201,91,144,5,201,193,176,12,96,24,105,13,201
320 data91,144,3,56,233,26,96,24,105,13,201,219,144,3,56,233
330 data26,96,165,144,240,7,152,160,2,145,45,104,104,96
340 return


               Jim Harvey
               c/0 Michigan Bell Telephone
               Room 3352
               29777 Telegraph Rd.
               Southfield, Michigan
                            48034


Disclaimer: My employer will probably shoot me for this.