Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!know!zaphod.mps.ohio-state.edu!rpi!crdgw1!sixhub!crdgw1.crd.ge.com!ibmbin-request From: ibmbin-request@crdgw1.crd.ge.com Newsgroups: comp.binaries.ibm.pc Subject: v07i087: rotate13, perform net standard rot13 (part 01/01) Summary: Performs rot13 coding for reading rotated postings Message-ID: <1408@sixhub.UUCP> Date: 2 Aug 90 05:08:54 GMT Sender: davidsen@sixhub.UUCP Followup-To: comp.binaries.ibm.pc.d Lines: 156 Approved: davidsen@sixhub.UUCP X-Submissions-to: ibmbin@crdgw1.crd.ge.com X-Questions-to: ibmbin-request@crdgw1.crd.ge.com Checksum: 2522620863 (Verify with "brik -cv") Posting-number: Volume 07, Issue 087 Submitted-by: aneely@uwovax.uwo.ca Archive-name: rotate13/part01 This is a program to do or undo rot13 encoding. If you don't know what that is, please read the newusers stuff rather than ask me. Suggested groups are news.announce.newusers, and news.newsusers.questions. I will ignore any questions about this. That said, the submitter says: This is a Turbo Pascal program that I wrote to read ascii files that have been encoded with the rot13 switch. I use it on my pc after downloading the file/s I want, rather than use up time on the mainframe. It is hereby released to the public domain. Use it and distribute it to your hearts content. Amer Neely cis: 71653,760 [ Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command. checksum size (bytes) file (between BEGIN--cut and END--cut lines) 38523 7089 part01 checksum size (bytes) file 54990 5124 rotate13.zoo -- bill ] rotate13 part01/01 BEGIN--cut here--cut here begin 644 rotate13.zoo M6D]/(#(N,#`@07)C:&EV92X:``#&4`"@`0>@<`````I`%`````0"DC*```FV@!!H`!@"0`*```1``0*6P!```! M`.!<1``<*![4"$@C,HT1+EJXN.'BCHM`+A:YJ.[BNXL`!%"4(!/`A9H<:KZH M2:-FCII+:D*I6:6FEIIF:L:IZ:?FH)J4:F:JZ:DFJYK":C*K&:UFO)H!!E!< M(!9`A;(CRLHHRZ-LD+)&REHINZ5LG;)ZROXI&ZFLI;*ORM(JFZNLL[+3RI8K MJZ[LN[+TRO(K^X``10J6`:S(#"-SCH&X._?OP.[@PL?'KSW;^+"JR0JAPL!`$U$!,@>Q`X!,3\$3"@J M`(-<(B/X<$7<`=[/@'3N`'SWMV[`/R/^%L&_3F``/NT%H/RBZ."*IGX$R$8' M#/+Y0Y]]^'7W'3^#^,%/$WX8,(@;_#2P#@&#&%&A(E;P4^"!]R%2P3I&?(@= M@MOI!P(`_?T7(`!TN&!B??=MIZ"&#?+31H035GAAAAMV."."(OZ"CP$>7#%D MC?G%``P4FF"1@&R:4##E3A0\=Y%_R3"#M="&-9!D6X04<9;]0!PAUA^'EHHG.$88>A:=`QZ19YO.!&%\1-5!-RL`[WZJNQ`D"` M"U)$&@$//(``A1QES#$'"&&`L$89>8#@@P^:4$0E1:DI5TX@[``0@#$&=/F< M,*\!8"225_R"10#]H:E)+U=6F:Z;WN)30))A"I`D+O\``&4AZ3*#&Y9:?@NO M'.1>82ZZ:ZZKI28,#)":*.(4`$K#4`:A@&SZ01*PBP**`TL&4,`B`)05")": M)MQTZ^\5#S?Y9)3IUK.O)NRFK!\L%P,H8`'8=AE`F`#`RX.\_J52@&P\)ZE) M!@:TJ24@7'I)1QKQPFL)`?`R0G6XVES=+`"G`-"(+P#\8T&X4QO=1;]6&ZU. MO]!)#JW\'.R)BXK+1O3VM+!09A^_V)Q MN2L3_%SJC_]S.(8^($X!'SZ@">$`&(YX M1.D<\<_BFL@1./&K-PUC"K`G"8L&9ZZLYG/,@V^YW]U_S^Z=73BI"3:U`2`M M.JL9^>X5#D#'!P;@/Z,AC6C&`R`Z$G8ZP,F&?LN@Q0/0,8T"\.``=%!`6^Q@ M`%R(!1U6```Z0@$`6B!`!O]`QRX*H`ABD.`/HJ!'`42AC@+,`!BB*,<,ZS%# M>Q0`"*(@1P%P,1%'`.,7;```?DR@@P+081_XR85OT/$#`>#B!@"(Q#V@,0-I MW",>HX#'NQSP`5V\(`"XV$`)FA&"#PQ#%T44A@D`88)#\.:"=#!`W.0@`%@, M``JT$"$5"H`%!9"##BW`A00B,`L1'F&(,(C`+0`@"Q'VH`"`T(<*ZF"!.3K` MCFBT5BX`8`!TI*``M)#`+$"`#A$48!@21`<'\H.+2$ZRDNB(`"%C`0`%2*,. M")`%!MIRMU@$0!'R4`0U_*&,0`+"'QBP@P!H$8!1H*,`B;"`/`J`"`><`V<& M,$ M/N`/9^!A`_Y(A@X)E8@,N*(Q_#8.DBOD``7'2#!KJ0``!V,(TY:.`> M\U@$-L@1!E0,`)@),T<88&$+BI<;9D9S MA_NR"YPR.!!]$$`LKI'!-0M`%M?`A0_>B@TZ4\#/%DA$%S#@9PTDH@D<\+,' M;EAHRU1A$>RXC@%,L(@J$$`)2J`U,$U`C#XP8`;;B+*7`LB%?^0B(CQ``!UH MP(,)#"AN="!"$GBP`3J<0$QT&`$/#$"'&_!``W0P`@\:0(B,@)EW00%=,#1+B9%F6C>AYBGX^3@RP&M?,TV<_EP`?F0)@".( MXQ[M00W#"P:@`Z9P$(!4XB"%!"+#CD```MX5$&R$3EN.LR` M!PJ@0PUHD0!%>*"&*#PV`*2`CC($0`O^$(9JU6D'$/CUG.NX`"T"&(4`K&," MJCTG'1K`S'74W;0%B+IST-$"`!Q`"UG8PC#\88S:WM8.&"BJV`_KV+.F]:\C M`3TL!X#"=#`@`+3`[#_2,AC47<`S]X#,':60!WN;<]!T<( M_.`+8`<>H.,-(@3%/PZ?>1:@8PP`6/T!`C@,`(!^'1Q`!Q4`$'DG/E49ZYC@ M$42(AW^LXP!4!`#WCV!\XHO#%.@0`SU#1``03]DD?(I@#/9@`DK0&O8P`,*P M",B@5N`'"UNU#OI7#$+@#ABH!+#P`!RH?\&P@6ZT`_=`!V,@=E<`.(OP#"O@ M#'[U38I@`S5$@/'$8PO8@"@T`,,0#>"P"/A`?!0(`(,@#!T$`+C`-`AQ`)=% M"[!@`!]@1/R@`/QF`:R@"-C`#J@0`'6P#_J@A0'P1(LP#*NP#^+`#NN@5^?` M"JL@#OQP`!_P!;)G!5=0!0;0#!!P`%WP!5Y0?K'R:NS@`?Q0#'8@`5<(#3)@ M#\2W;W3P`(!0?UQ`!PGPB/^@`W.R!'40#[@P!`!P'0%T`@``;&D("#C@`G10 M`$.@;G5@#\W1B7YP1`P"A[0+@?@"]T0`+D@8I#`#R[`"K10`VR4 M"!W`"&PV",=``.(`#QY`1KK@#$@(`&L4`KI0#4@X`A&I"YV`A"1PD<:`A#\0 MD1^`"^[B`>P$!;A`C@X`!0%4`@400)$P1,93DB0"!08P!8,UDBJ)#DTDDDBRFC%0`$92C_>8 MCP"PC_U("R7@`<50`6ST`0:)D/$0"I&Y``9`F720`KOP$OP#`*&P&N@@`P"P M"_X0`.@PCZ%`F>@P$;"@`^A0!A0`],Y``*`#L#QG"7$!&SD`HK0.))3 M2CB@<>LP#\,0"V2`GM=XB`#F*!!=@"-!`"W<8`N4G`!LP`B1``S5@`S>``SF@`SO` M`SW@`S]0!U)0!WZ2!FU@*("R*($"`,1"!ROB`BT7BL!P"`8@FLLP"#X@FO[D M9*$@FNE0"_%!#S;@"-'AET7Q!P?`!Q3@E[+U`%9J`'R``%CJET5``'?@9+B0 M#`"0#HT0I2L`#W+0`(&0'@(@!P>P`S8@G0`S6,JPIG3@#Q["#8R@#3;`[J8(!(+3'Q M-6$S-M>A``9P!?X*!?)A`$BPFN5@('[@`$$;0!WP#SSK#S[[BD'[#QQTEJMI M#/X00.[QLU5K!P@00(00'^60; MN[O;N[\+#L$;`-``#(,P#;RA#'5`#^]*J8AZJ7]PN;2KN>W0JXKPN:9*K:C* M41/+LK.*#;:+N[J+#+SKNP$`O(0PO*DKN?)ZJ*+%N@#0"B:P``70AOD0J98! MLW\@P`1`P*VP128P`@G\=`QLK0"0PAME9APL6E8'#*O@;]>PPQVQ"C>T"D+<"$5`!ZN0F3OL M"P9PQ,@`Q,"0"WCYNJS``T\@3;#P!(P*LJ206:I0:,Z1JC#E4=E!9P3044

0JMFQ"&S6`Y-& M!Q+0`Y@V>3T`"Y0&`88CFF8``.M``F.G0"1@?F]<%'',QG*\"[&(#@THF);& MR(:V9,Y*,X!L`I`F:92&`:H<:8F,`(\,`&<@R1@`!;N@$.B@$(4D.0RP"QEA M42K'9J1L&4$;M";P#QF@EW,R"J+Y!0>08?"J:,B:"`T@5CVPRH7<`![S#P6P MRGY,!]/$`X#0!X,FB8U0!3#`1G+P!(DP1)IP`,BZ"-F@S926`HO0`6)%!&R$ M"^]P`!+(",M@#\(`"'40`>!\#7>!#I>)"\H@S\E`SY:&:9X&:J>&`:*F`6O& M`0^``*KVL);11?.LSP(@!&S4`ATQ"-H``'-``#?418N@#(L`#?DL5B8=`HU0 M"1V1"QV1S[3P`VPT!\\*#,"V`]C@HX#`TP``;@,P!.L@#XLP#2L`#5+T#S5= MTFPTTK0`!&PDS3;<<\50!0S@N@ M;J=((%#:K(#N>#8:!-$:(-RPI=VHMPVK1F:ZO=VD4*`&D` MVR27BNL&4(MPV[TF``7K`6O)C#;G75>`S/_0!13`S`/@S```S;0FQZ:-VMG1 M:PSP`5Z0!=*LV$&+#E'P#W5``>@`!__P;9,W!./VO>A`!OVM`/\T!.@M:@BP M#B4`R/6-!OBM`%N'#H7P#U^'#H#P#PE^VFF8RH/0!^QX%Y^=I,)M#^`]:LS, M#N:]#N?@X%>`#N/@#Z3==?\`,`A^`-V]#.>S#O50O"R;J9M:W_T@XP^0!'Z0 M`)8P<';U#Q=F">@``1J.XPIN:(#H`=?!`/5]"?Y`B`@P2OY4`>@`"_[0=@[@ MWRX7!$:`"`2P`TY@`'6P#BL0#XC``!N.`!^0V`LC`YTJ>N!>F"$3P#U-P`(6.#I[@#Q=6YW>N#`YVNR;W6VEH M3,[*2RZ^RS*>?C,PYN"6`?80#&%(`&T'`:TN`'1P`+UR!TV]#N1@RDU6YSH' M71_%`V'@/3R@!W?#`B`07K6R[,S>[+%"*P`0$-RGQ/T"```````````````` G`````````````````````````````````````````````````/R# ` end END--cut here--cut here