[comp.binaries.ibm.pc] v07i087: rotate13, perform net standard rot13

ibmbin-request@crdgw1.crd.ge.com (08/02/90)

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 <aneely@hydra.uwo.ca> 
           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:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!S!,``'$```#S%+)X74O`%@``6Q,```$```````````!R;W1A=&4Q,RYE
M>&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(#"-SC<P_,A/)["3S!0!%`*A`#4!&@-0170'H
M!D#V)P2R->H&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##E<PY(MY`/XQ0`XPB_\!!`DDOB!X634$I)I9549BE;
M@>3A0\=Y%_R3"#M="&-9!D6X04<9<H!@1AILE`$"'6^`(,<;=(3Q9PLQS*`#
M"!T0D6@>;]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]!<O#;1/%R-RQ/V:G)'OV+ZK+70<(_IGP=)\TLEMZD=8P`X!$14M'\'3"PX
M``@`,V<ZHWC+0\_ABB-WO??F^S*[OVB>)#JW\'.R)BXK+1O3VM+!09A^_V)Q
MN2L3_%SJC_]S.(8^($X!'SZ<CCO,_1X);S4!#YPNFX\CK#``#!>@">$`&(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,$<!`G##4;`#FQ9PQRNAX`%<4"$`CL`&TX0((W#Z,``?P,(SF.9#`-0A`,/`
M5C^IV0P+Y#&0!5T'/6#A!71@8`"P&`(Z)C``="1@`,T8P2*X88-%'($`Z!A!
M"MWP#U#(D(8%4(9,-FH#15Q!`2V]`P):^@0#M/0-!-!!-.YP`AW4XPXC8"8>
M/N`/9^!A`_Y(A@X<L,T[3,`?S="!"^91@#LL()OG3(0#U(F.'@Q`&<[!!2D5
MX8,:+L(!YUQ$.@N`#AH00*WG1$<(!K`,=%A@`&(U`%G-J@Q%K!4=&2#`,L1S
M@/:(QP!00$<^!("%O;(0K2QTAUK5J0-WU$$`,@`&.B*S#):ZU*:*N`,!F"D`
M"YQ3#A?0P5KO$(&B"L`&[2B`'!*@`QN\HZH5]84`E&$9=,1"`(H0A@H,<$Y_
M`*.NI0"N,88;6^-VEJ.*^"@JX$$'`I#@`0P`!!UK"`<$&*"&*@6`9S]*@@/$
M@@#2`,=V"_`([X)7)NN]QS(`X8`:(F`9)IUA#9_;T2L08`'2H,,$9O`/1QP#
M/XOP@!@745<#`$`)=<!'>)E8@,N*(Q_#8.DBOD``7'2#!KJ0``!V,(TY:.`>
M\U@$-L@1!E0,`)@),T<88&$+<PQ!$<,PAQ`4<0P=AY?%)."'C.?K`Q[Z$P$$
MM0`L8-3'`."7A]@RL@*`40<)R(`<!9UR'12`"!/PT)"7]:-#_?%<#]B@&'\@
MP#&*T,=KK+DA7BM$1Q)1!`8PH@L.6#,$LC``1C1!`L8H`@P`\`'>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(<G]$H.S]B!-NBP
M#!,@(@`2Q<2(O6$'8"QB'NO@Q0*V00=<P`(!Z+`C+%@I"`#\&QU]`,`2Q*&.
M=9!B!]Z@`RBT$X!S9P(=:@#`$,3QCG5$@FDZA)$BW`WO=2@`'4Y0XC$"T``%
M#&$(LKZA">B,@)EW00%=,#1+B9%F6C>AYBGX^3@RP&M?,TV<_EP`?F0)@".(
MXQ[M00<G1+@-?MS0T%>W#"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,<YV%A$;:H4"H1>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@#\W1B7YP<A`@7MJ`"Y8A:]=$:#D7BRLP#3LP#'PTAJH@@0/@#?-`
M"O?FA\BA"^_D"-K`"`8P:#/0#HM`#`4P`0!P7M.`#HP@#1`X"LXQ"@H```-@
M`#(Q"@8Q"A8``*.@`4H4"C+1>1`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,93DB<I`"D90+H40()0`,NP#X-`
M#`:`!8-P#A\0",=@"0O!#SDP!P3D&U=`"U3`1K`&"$XP$EBP!5F@!5[P!5WP
M`0?P#+@`#43HDX;U$:%W?_02BLD`;,H(3]JP#Z.P&HL0#`LP#'3P`:'@``"P
M`)(3`49D`CO@`;&81R80"@JQ#NW`",.P`AXP:(.P#A"@52R@'A[@`IWH`28`
M`(P`#',I8.5TF:.``NI(`T@H`>0"!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!<X9F>A0`],Y``*`#L#QG"7$!&SD`HK0.))3
M2CB@<>LP#\,0"V2`GM=X<C)Q(5=F#_%``#"06//86,0P#%#00N@0$5@`!><E
M#>B`#F*!!=<EH#R@`WQ$``>@"-!`"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;`<S-5
M#*+%"JJ@",@@`^U0C,QH:($ZJ&=V!S#%<S:U"$]``*R@`\$@38H0#(O:J(]*
M"I$:CCO7<]MQ99*Z493*<PQ0J0B@"`1P91U54PN0#'NA=P,0#RL0#'(P`4!P
MJ_^5#)$V`\FP`Y]J`'&Y#@)P0\&(#)"J#6`%`)-*J(9:J=FA"`W@J*QPF04P
M!S5G#`6P?<%@#]`P`/EP!(PZK:V*:+):J&FF"`S@J-I1`8FX`M$@!Q@@'GF9
M#`(F!$9P!%%`A_-@"GR8!7D$!!`6#ZQ6K=<:KSS'J=I1`NR*##K`#*#*#`H`
ML`;@J`=[63I`#)'J'($JKP9`,ZK04A^E"N$5L3P'4XB:J2TK@>[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<P:1L]4B``WB8'XP!#PK-E?@M4(;$41K!`AP
MM`&T"/X0M5,+M$IBMP-@!(B%M0$4!UN+#JZ@M'Y+N.C@`F2;<R;KJMCZ!S)[
M!YG*88KP#(Z:6?.PJ,M0C+$``BJP#"KP#)T;J0YVLA.;"[%X0_.P"OR%J2Q+
M`%B(0K$P`-.P#HP*".%P`#237B:```$07JDZ4]$%6OZE`M`@!T0E#+7[#[>;
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"<K8@:P;%HP!:LP!GLP!!,P/-P"B6KP8(Z
MN27\P0=<`*]@8?>0PAME9APL6E8'#*O@;]>PPQVQ"C>T"D+<"$5`!ZN0F3OL
M"P9PQ,@`Q,"0"WCYNJS``T\@3;#P!(P*LJ206:I0:,Z1JC#E4=E!9P3044<P
M:W06JQY5<W3F`#)'<S-7!`J@#.&H"Y.V#@B@"YC6'KHP"]>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@<X'<`3_-SA`0QPH@<VOF'(1F:":P9N$HR9(%
MKQ-K`F']:\E01S]':V;-U2%@I[\Z)[A0!F]M&34LK]F1U\C*US7GTX#-1R!]
M:(KMUX.P#P3`0;3@`^P\U(:&I$JZ:_9<!PU`:UWPV%6@`$7'`,,PRV@@R>N@
M;J=(<?B08?Q0J)'65>(%#: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.`!^0<S@+:U;N!UC^XI\@XR7`Y8O0
MYOS`"E>V`LC`YTJ>N!>F"$3P#U<F@>-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