jbh@mb2c.UUCP (02/20/87)
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.