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.